From d739216709f12c9dd7d35917196f8e6cf56f0d1b Mon Sep 17 00:00:00 2001
From: Sergey Kosukhin <sergey.kosukhin@mpimet.mpg.de>
Date: Mon, 8 Apr 2024 11:11:46 +0200
Subject: [PATCH] Add automatically generated files.
---
Makefile.in | 979 +
aclocal.m4 | 1583 +
app/Makefile.in | 845 +
config/compile | 348 +
config/config.guess | 1812 +
config/config.sub | 1971 +
config/depcomp | 791 +
config/install-sh | 541 +
config/ltmain.sh | 11267 +++++
config/missing | 215 +
config/py-compile | 189 +
config/test-driver | 153 +
configure | 38374 ++++++++++++++
doc/cdi_cman.pdf | Bin 0 -> 326789 bytes
doc/cdi_fman.pdf | Bin 0 -> 353218 bytes
examples/Makefile.in | 1059 +
examples/pio/Makefile.in | 897 +
interfaces/Makefile.in | 1430 +
interfaces/python/Cdi.py | 1379 +
interfaces/python/cdi_wrapper.cpp | 29389 +++++++++++
interfaces/ruby/cdi_wrapper.cpp | 33805 +++++++++++++
m4/libtool.m4 | 8369 +++
m4/ltoptions.m4 | 437 +
m4/ltsugar.m4 | 124 +
m4/ltversion.m4 | 23 +
m4/lt~obsolete.m4 | 99 +
src/Makefile.in | 1614 +
src/cdi.inc | 2629 +
src/cdiFortran.c | 814 +
src/cdilib.c | 75789 ++++++++++++++++++++++++++++
src/cdipio.inc | 318 +
src/cdipioFortran.c | 186 +
src/config.h.in | 334 +
src/mo_cdi.f90 | 6121 +++
tests/Makefile.in | 1681 +
35 files changed, 225565 insertions(+)
create mode 100644 Makefile.in
create mode 100644 aclocal.m4
create mode 100644 app/Makefile.in
create mode 100755 config/compile
create mode 100755 config/config.guess
create mode 100755 config/config.sub
create mode 100755 config/depcomp
create mode 100755 config/install-sh
create mode 100644 config/ltmain.sh
create mode 100755 config/missing
create mode 100755 config/py-compile
create mode 100755 config/test-driver
create mode 100755 configure
create mode 100644 doc/cdi_cman.pdf
create mode 100644 doc/cdi_fman.pdf
create mode 100644 examples/Makefile.in
create mode 100644 examples/pio/Makefile.in
create mode 100644 interfaces/Makefile.in
create mode 100644 interfaces/python/Cdi.py
create mode 100644 interfaces/python/cdi_wrapper.cpp
create mode 100644 interfaces/ruby/cdi_wrapper.cpp
create mode 100644 m4/libtool.m4
create mode 100644 m4/ltoptions.m4
create mode 100644 m4/ltsugar.m4
create mode 100644 m4/ltversion.m4
create mode 100644 m4/lt~obsolete.m4
create mode 100644 src/Makefile.in
create mode 100644 src/cdi.inc
create mode 100644 src/cdiFortran.c
create mode 100644 src/cdilib.c
create mode 100644 src/cdipio.inc
create mode 100644 src/cdipioFortran.c
create mode 100644 src/config.h.in
create mode 100644 src/mo_cdi.f90
create mode 100644 tests/Makefile.in
diff --git a/Makefile.in b/Makefile.in
new file mode 100644
index 000000000..b1966361f
--- /dev/null
+++ b/Makefile.in
@@ -0,0 +1,979 @@
+# Makefile.in generated by automake 1.16.5 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2021 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.
+
+@SET_MAKE@
+VPATH = @srcdir@
+am__is_gnu_make = { \
+ if test -z '$(MAKELEVEL)'; then \
+ false; \
+ elif test -n '$(MAKE_HOST)'; then \
+ true; \
+ elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
+ true; \
+ else \
+ false; \
+ fi; \
+}
+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@
+subdir = .
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = \
+ $(top_srcdir)/m4/acx_assert_lang_is_fortran_variant.m4 \
+ $(top_srcdir)/m4/acx_c_package.m4 \
+ $(top_srcdir)/m4/acx_cfortran_flags.m4 \
+ $(top_srcdir)/m4/acx_check_cfortran.m4 \
+ $(top_srcdir)/m4/acx_check_strptr_convert.m4 \
+ $(top_srcdir)/m4/acx_execinfo.m4 \
+ $(top_srcdir)/m4/acx_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_fortran_include_flag.m4 \
+ $(top_srcdir)/m4/acx_fortran_package.m4 \
+ $(top_srcdir)/m4/acx_lang_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_package.m4 \
+ $(top_srcdir)/m4/acx_lt_problems.m4 \
+ $(top_srcdir)/m4/acx_m4_list_to_quoted_strings.m4 \
+ $(top_srcdir)/m4/acx_mpirun.m4 $(top_srcdir)/m4/acx_mv_obj.m4 \
+ $(top_srcdir)/m4/acx_option_search_libs.m4 \
+ $(top_srcdir)/m4/acx_options.m4 \
+ $(top_srcdir)/m4/acx_prog_cc_posix.m4 \
+ $(top_srcdir)/m4/acx_sl_fc_mod_path_flag.m4 \
+ $(top_srcdir)/m4/acx_sl_mod_suffix.m4 \
+ $(top_srcdir)/m4/acx_tls_xlc_retry.m4 \
+ $(top_srcdir)/m4/acx_use_libtool_configuration.m4 \
+ $(top_srcdir)/m4/acx_uuid.m4 $(top_srcdir)/m4/asx_tr_arg.m4 \
+ $(top_srcdir)/m4/asx_unset.m4 $(top_srcdir)/m4/ax_pthread.m4 \
+ $(top_srcdir)/m4/ax_python_devel.m4 $(top_srcdir)/m4/ax_tls.m4 \
+ $(top_srcdir)/m4/kpse_libtool.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)/m4/pkg.m4 $(top_srcdir)/acinclude.m4 \
+ $(top_srcdir)/m4/ac_lang_program_fortran.m4 \
+ $(top_srcdir)/m4/acx_lang_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_c_check_include.m4 \
+ $(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+ $(ACLOCAL_M4)
+DIST_COMMON = $(srcdir)/Makefile.am $(top_srcdir)/configure \
+ $(am__configure_deps) $(am__DIST_COMMON)
+am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \
+ configure.lineno config.status.lineno
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = $(top_builddir)/src/config.h
+CONFIG_CLEAN_FILES = cdi.settings \
+ src/cmake/cdi/cdi-config-version.cmake \
+ src/cmake/cdi/cdi-config.cmake src/pkgconfig/cdi.pc \
+ src/pkgconfig/cdi_f2003.pc src/pkgconfig/cdipio.pc \
+ tables/gen_tableheaderfile
+CONFIG_CLEAN_VPATH_FILES =
+AM_V_P = $(am__v_P_@AM_V@)
+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_@AM_V@)
+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
+am__v_GEN_0 = @echo " GEN " $@;
+am__v_GEN_1 =
+AM_V_at = $(am__v_at_@AM_V@)
+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
+am__v_at_0 = @
+am__v_at_1 =
+SOURCES =
+DIST_SOURCES =
+RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \
+ ctags-recursive dvi-recursive html-recursive info-recursive \
+ install-data-recursive install-dvi-recursive \
+ install-exec-recursive install-html-recursive \
+ install-info-recursive install-pdf-recursive \
+ install-ps-recursive install-recursive installcheck-recursive \
+ installdirs-recursive pdf-recursive ps-recursive \
+ tags-recursive uninstall-recursive
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
+RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \
+ distclean-recursive maintainer-clean-recursive
+am__recursive_targets = \
+ $(RECURSIVE_TARGETS) \
+ $(RECURSIVE_CLEAN_TARGETS) \
+ $(am__extra_recursive_targets)
+AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \
+ cscope distdir distdir-am dist dist-all distcheck
+am__extra_recursive_targets = examples-recursive
+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)`
+DIST_SUBDIRS = $(SUBDIRS)
+am__DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/cdi.settings.in \
+ $(top_srcdir)/config/compile $(top_srcdir)/config/config.guess \
+ $(top_srcdir)/config/config.sub \
+ $(top_srcdir)/config/install-sh $(top_srcdir)/config/ltmain.sh \
+ $(top_srcdir)/config/missing \
+ $(top_srcdir)/src/cmake/cdi/cdi-config-version.cmake.in \
+ $(top_srcdir)/src/cmake/cdi/cdi-config.cmake.in \
+ $(top_srcdir)/src/pkgconfig/cdi.pc.in \
+ $(top_srcdir)/src/pkgconfig/cdi_f2003.pc.in \
+ $(top_srcdir)/src/pkgconfig/cdipio.pc.in \
+ $(top_srcdir)/tables/gen_tableheaderfile.in AUTHORS ChangeLog \
+ INSTALL NEWS README config/compile config/config.guess \
+ config/config.sub config/install-sh config/ltmain.sh \
+ config/missing config/py-compile
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+distdir = $(PACKAGE)-$(VERSION)
+top_distdir = $(distdir)
+am__remove_distdir = \
+ if test -d "$(distdir)"; then \
+ find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \
+ && rm -rf "$(distdir)" \
+ || { sleep 5 && rm -rf "$(distdir)"; }; \
+ else :; fi
+am__post_remove_distdir = $(am__remove_distdir)
+am__relativize = \
+ dir0=`pwd`; \
+ sed_first='s,^\([^/]*\)/.*$$,\1,'; \
+ sed_rest='s,^[^/]*/*,,'; \
+ sed_last='s,^.*/\([^/]*\)$$,\1,'; \
+ sed_butlast='s,/*[^/]*$$,,'; \
+ while test -n "$$dir1"; do \
+ first=`echo "$$dir1" | sed -e "$$sed_first"`; \
+ if test "$$first" != "."; then \
+ if test "$$first" = ".."; then \
+ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
+ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
+ else \
+ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
+ if test "$$first2" = "$$first"; then \
+ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
+ else \
+ dir2="../$$dir2"; \
+ fi; \
+ dir0="$$dir0"/"$$first"; \
+ fi; \
+ fi; \
+ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
+ done; \
+ reldir="$$dir2"
+DIST_ARCHIVES = $(distdir).tar.gz
+GZIP_ENV = --best
+DIST_TARGETS = dist-gzip
+# Exists only to be overridden by the user if desired.
+AM_DISTCHECK_DVI_TARGET = dvi
+distuninstallcheck_listfiles = find . -type f -print
+am__distuninstallcheck_listfiles = $(distuninstallcheck_listfiles) \
+ | sed 's|^\./|$(prefix)/|' | grep -v '$(infodir)/dir$$'
+distcleancheck_listfiles = find . -type f -print
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CSCOPE = @CSCOPE@
+CTAGS = @CTAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DCE_UUIDROOT = @DCE_UUIDROOT@
+DCE_UUID_C_INCLUDE = @DCE_UUID_C_INCLUDE@
+DCE_UUID_C_LIB = @DCE_UUID_C_LIB@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECCODES_INCLUDE = @ECCODES_INCLUDE@
+ECCODES_LIBS = @ECCODES_LIBS@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+ENABLE_ACROSS = @ENABLE_ACROSS@
+ENABLE_CDI_LIB = @ENABLE_CDI_LIB@
+ENABLE_CGRIBEX = @ENABLE_CGRIBEX@
+ENABLE_EXTRA = @ENABLE_EXTRA@
+ENABLE_GRIB = @ENABLE_GRIB@
+ENABLE_IEG = @ENABLE_IEG@
+ENABLE_MPI = @ENABLE_MPI@
+ENABLE_NC2 = @ENABLE_NC2@
+ENABLE_NC4 = @ENABLE_NC4@
+ENABLE_NC4HDF5 = @ENABLE_NC4HDF5@
+ENABLE_NC4SZLIB = @ENABLE_NC4SZLIB@
+ENABLE_NETCDF = @ENABLE_NETCDF@
+ENABLE_SERVICE = @ENABLE_SERVICE@
+ETAGS = @ETAGS@
+EXEEXT = @EXEEXT@
+F77 = @F77@
+FC = @FC@
+FCFLAGS = @FCFLAGS@
+FCFLAGS_f90 = @FCFLAGS_f90@
+FCMODCASE = @FCMODCASE@
+FCMODEXT = @FCMODEXT@
+FC_DEFINE = @FC_DEFINE@
+FC_MOD_FLAG = @FC_MOD_FLAG@
+FC_OPTINC = @FC_OPTINC@
+FDB5_INCLUDE = @FDB5_INCLUDE@
+FDB5_LIBS = @FDB5_LIBS@
+FFLAGS = @FFLAGS@
+FGREP = @FGREP@
+GREP = @GREP@
+GRIB_API_INCLUDE = @GRIB_API_INCLUDE@
+GRIB_API_LIBS = @GRIB_API_LIBS@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBRT = @LIBRT@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
+MAINT = @MAINT@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+MPIROOT = @MPIROOT@
+MPI_C_INCLUDE = @MPI_C_INCLUDE@
+MPI_C_LIB = @MPI_C_LIB@
+MPI_FC_LIB = @MPI_FC_LIB@
+MPI_FC_MOD = @MPI_FC_MOD@
+MPI_LAUNCH = @MPI_LAUNCH@
+NC_CONFIG = @NC_CONFIG@
+NETCDF_INCLUDE = @NETCDF_INCLUDE@
+NETCDF_LIBS = @NETCDF_LIBS@
+NETCDF_ROOT = @NETCDF_ROOT@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OPENMP_CFLAGS = @OPENMP_CFLAGS@
+OSSP_UUIDROOT = @OSSP_UUIDROOT@
+OSSP_UUID_C_INCLUDE = @OSSP_UUID_C_INCLUDE@
+OSSP_UUID_C_LIB = @OSSP_UUID_C_LIB@
+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@
+PKG_CONFIG = @PKG_CONFIG@
+PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
+PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
+PPM_CORE_C_INCLUDE = @PPM_CORE_C_INCLUDE@
+PPM_CORE_C_LIB = @PPM_CORE_C_LIB@
+PTHREAD_CC = @PTHREAD_CC@
+PTHREAD_CFLAGS = @PTHREAD_CFLAGS@
+PTHREAD_CXX = @PTHREAD_CXX@
+PTHREAD_LIBS = @PTHREAD_LIBS@
+PYTHON = @PYTHON@
+PYTHON_CPPFLAGS = @PYTHON_CPPFLAGS@
+PYTHON_EXEC_PREFIX = @PYTHON_EXEC_PREFIX@
+PYTHON_EXTRA_LDFLAGS = @PYTHON_EXTRA_LDFLAGS@
+PYTHON_EXTRA_LIBS = @PYTHON_EXTRA_LIBS@
+PYTHON_LIBS = @PYTHON_LIBS@
+PYTHON_PLATFORM = @PYTHON_PLATFORM@
+PYTHON_PLATFORM_SITE_PKG = @PYTHON_PLATFORM_SITE_PKG@
+PYTHON_PREFIX = @PYTHON_PREFIX@
+PYTHON_SITE_PKG = @PYTHON_SITE_PKG@
+PYTHON_VERSION = @PYTHON_VERSION@
+RANLIB = @RANLIB@
+RUBY = @RUBY@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+SWIG = @SWIG@
+SYSTEM_TYPE = @SYSTEM_TYPE@
+SZLIB_INCLUDE = @SZLIB_INCLUDE@
+SZLIB_LIBS = @SZLIB_LIBS@
+THREADS_INCLUDE = @THREADS_INCLUDE@
+THREADS_LIBS = @THREADS_LIBS@
+UTIL_LINUX_UUIDROOT = @UTIL_LINUX_UUIDROOT@
+UTIL_LINUX_UUID_C_INCLUDE = @UTIL_LINUX_UUID_C_INCLUDE@
+UTIL_LINUX_UUID_C_LIB = @UTIL_LINUX_UUID_C_LIB@
+UUID_C_INCLUDE = @UUID_C_INCLUDE@
+UUID_C_LIB = @UUID_C_LIB@
+VERSION = @VERSION@
+YAXT_C_INCLUDE = @YAXT_C_INCLUDE@
+YAXT_C_LIB = @YAXT_C_LIB@
+YAXT_FC_LIB = @YAXT_FC_LIB@
+YAXT_FC_MOD = @YAXT_FC_MOD@
+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@
+ac_ct_F77 = @ac_ct_F77@
+ac_ct_FC = @ac_ct_FC@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+ax_pthread_config = @ax_pthread_config@
+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@
+pkgpyexecdir = @pkgpyexecdir@
+pkgpythondir = @pkgpythondir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+pyexecdir = @pyexecdir@
+pythondir = @pythondir@
+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@
+SUBDIRS = src interfaces app examples tests
+EXTRA_DIST = \
+ LICENSE \
+ config/interface.rb \
+ doc/cdi_cman.pdf \
+ doc/cdi_fman.pdf \
+ src/cfortran.doc
+
+ACLOCAL_AMFLAGS = -I m4
+all: all-recursive
+
+.SUFFIXES:
+am--refresh: Makefile
+ @:
+$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps)
+ @for dep in $?; do \
+ case '$(am__configure_deps)' in \
+ *$$dep*) \
+ echo ' cd $(srcdir) && $(AUTOMAKE) --foreign'; \
+ $(am__cd) $(srcdir) && $(AUTOMAKE) --foreign \
+ && exit 0; \
+ exit 1;; \
+ esac; \
+ done; \
+ echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign Makefile'; \
+ $(am__cd) $(top_srcdir) && \
+ $(AUTOMAKE) --foreign Makefile
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+ @case '$?' in \
+ *config.status*) \
+ echo ' $(SHELL) ./config.status'; \
+ $(SHELL) ./config.status;; \
+ *) \
+ echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__maybe_remake_depfiles)'; \
+ cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__maybe_remake_depfiles);; \
+ esac;
+
+$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
+ $(SHELL) ./config.status --recheck
+
+$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps)
+ $(am__cd) $(srcdir) && $(AUTOCONF)
+$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps)
+ $(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS)
+$(am__aclocal_m4_deps):
+cdi.settings: $(top_builddir)/config.status $(srcdir)/cdi.settings.in
+ cd $(top_builddir) && $(SHELL) ./config.status $@
+src/cmake/cdi/cdi-config-version.cmake: $(top_builddir)/config.status $(top_srcdir)/src/cmake/cdi/cdi-config-version.cmake.in
+ cd $(top_builddir) && $(SHELL) ./config.status $@
+src/cmake/cdi/cdi-config.cmake: $(top_builddir)/config.status $(top_srcdir)/src/cmake/cdi/cdi-config.cmake.in
+ cd $(top_builddir) && $(SHELL) ./config.status $@
+src/pkgconfig/cdi.pc: $(top_builddir)/config.status $(top_srcdir)/src/pkgconfig/cdi.pc.in
+ cd $(top_builddir) && $(SHELL) ./config.status $@
+src/pkgconfig/cdi_f2003.pc: $(top_builddir)/config.status $(top_srcdir)/src/pkgconfig/cdi_f2003.pc.in
+ cd $(top_builddir) && $(SHELL) ./config.status $@
+src/pkgconfig/cdipio.pc: $(top_builddir)/config.status $(top_srcdir)/src/pkgconfig/cdipio.pc.in
+ cd $(top_builddir) && $(SHELL) ./config.status $@
+tables/gen_tableheaderfile: $(top_builddir)/config.status $(top_srcdir)/tables/gen_tableheaderfile.in
+ cd $(top_builddir) && $(SHELL) ./config.status $@
+
+mostlyclean-libtool:
+ -rm -f *.lo
+
+clean-libtool:
+ -rm -rf .libs _libs
+
+distclean-libtool:
+ -rm -f libtool config.lt
+
+# This directory's subdirectories are mostly independent; you can cd
+# into them and run 'make' without going through this Makefile.
+# To change the values of 'make' variables: instead of editing Makefiles,
+# (1) if the variable is set in 'config.status', edit 'config.status'
+# (which will cause the Makefiles to be regenerated when you run 'make');
+# (2) otherwise, pass the desired values on the 'make' command line.
+$(am__recursive_targets):
+ @fail=; \
+ if $(am__make_keepgoing); then \
+ failcom='fail=yes'; \
+ else \
+ failcom='exit 1'; \
+ fi; \
+ dot_seen=no; \
+ target=`echo $@ | sed s/-recursive//`; \
+ case "$@" in \
+ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
+ *) list='$(SUBDIRS)' ;; \
+ esac; \
+ for subdir in $$list; do \
+ echo "Making $$target in $$subdir"; \
+ if test "$$subdir" = "."; then \
+ dot_seen=yes; \
+ local_target="$$target-am"; \
+ else \
+ local_target="$$target"; \
+ fi; \
+ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
+ || eval $$failcom; \
+ done; \
+ if test "$$dot_seen" = "no"; then \
+ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
+ fi; test -z "$$fail"
+examples-local:
+
+ID: $(am__tagged_files)
+ $(am__define_uniq_tagged_files); mkid -fID $$unique
+tags: tags-recursive
+TAGS: tags
+
+tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
+ set x; \
+ here=`pwd`; \
+ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
+ include_option=--etags-include; \
+ empty_fix=.; \
+ else \
+ include_option=--include; \
+ empty_fix=; \
+ fi; \
+ list='$(SUBDIRS)'; for subdir in $$list; do \
+ if test "$$subdir" = .; then :; else \
+ test ! -f $$subdir/TAGS || \
+ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
+ fi; \
+ done; \
+ $(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-recursive
+
+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"
+cscope: cscope.files
+ test ! -s cscope.files \
+ || $(CSCOPE) -b -q $(AM_CSCOPEFLAGS) $(CSCOPEFLAGS) -i cscope.files $(CSCOPE_ARGS)
+clean-cscope:
+ -rm -f cscope.files
+cscope.files: clean-cscope cscopelist
+cscopelist: cscopelist-recursive
+
+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
+ -rm -f cscope.out cscope.in.out cscope.po.out cscope.files
+distdir: $(BUILT_SOURCES)
+ $(MAKE) $(AM_MAKEFLAGS) distdir-am
+
+distdir-am: $(DISTFILES)
+ $(am__remove_distdir)
+ test -d "$(distdir)" || mkdir "$(distdir)"
+ @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
+ @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
+ if test "$$subdir" = .; then :; else \
+ $(am__make_dryrun) \
+ || test -d "$(distdir)/$$subdir" \
+ || $(MKDIR_P) "$(distdir)/$$subdir" \
+ || exit 1; \
+ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
+ $(am__relativize); \
+ new_distdir=$$reldir; \
+ dir1=$$subdir; dir2="$(top_distdir)"; \
+ $(am__relativize); \
+ new_top_distdir=$$reldir; \
+ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
+ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
+ ($(am__cd) $$subdir && \
+ $(MAKE) $(AM_MAKEFLAGS) \
+ top_distdir="$$new_top_distdir" \
+ distdir="$$new_distdir" \
+ am__remove_distdir=: \
+ am__skip_length_check=: \
+ am__skip_mode_fix=: \
+ distdir) \
+ || exit 1; \
+ fi; \
+ done
+ -test -n "$(am__skip_mode_fix)" \
+ || find "$(distdir)" -type d ! -perm -755 \
+ -exec chmod u+rwx,go+rx {} \; -o \
+ ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \
+ ! -type d ! -perm -400 -exec chmod a+r {} \; -o \
+ ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \
+ || chmod -R a+r "$(distdir)"
+dist-gzip: distdir
+ tardir=$(distdir) && $(am__tar) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).tar.gz
+ $(am__post_remove_distdir)
+
+dist-bzip2: distdir
+ tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2
+ $(am__post_remove_distdir)
+
+dist-lzip: distdir
+ tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz
+ $(am__post_remove_distdir)
+
+dist-xz: distdir
+ tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz
+ $(am__post_remove_distdir)
+
+dist-zstd: distdir
+ tardir=$(distdir) && $(am__tar) | zstd -c $${ZSTD_CLEVEL-$${ZSTD_OPT--19}} >$(distdir).tar.zst
+ $(am__post_remove_distdir)
+
+dist-tarZ: distdir
+ @echo WARNING: "Support for distribution archives compressed with" \
+ "legacy program 'compress' is deprecated." >&2
+ @echo WARNING: "It will be removed altogether in Automake 2.0" >&2
+ tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z
+ $(am__post_remove_distdir)
+
+dist-shar: distdir
+ @echo WARNING: "Support for shar distribution archives is" \
+ "deprecated." >&2
+ @echo WARNING: "It will be removed altogether in Automake 2.0" >&2
+ shar $(distdir) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).shar.gz
+ $(am__post_remove_distdir)
+
+dist-zip: distdir
+ -rm -f $(distdir).zip
+ zip -rq $(distdir).zip $(distdir)
+ $(am__post_remove_distdir)
+
+dist dist-all:
+ $(MAKE) $(AM_MAKEFLAGS) $(DIST_TARGETS) am__post_remove_distdir='@:'
+ $(am__post_remove_distdir)
+
+# This target untars the dist file and tries a VPATH configuration. Then
+# it guarantees that the distribution is self-contained by making another
+# tarfile.
+distcheck: dist
+ case '$(DIST_ARCHIVES)' in \
+ *.tar.gz*) \
+ eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).tar.gz | $(am__untar) ;;\
+ *.tar.bz2*) \
+ bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\
+ *.tar.lz*) \
+ lzip -dc $(distdir).tar.lz | $(am__untar) ;;\
+ *.tar.xz*) \
+ xz -dc $(distdir).tar.xz | $(am__untar) ;;\
+ *.tar.Z*) \
+ uncompress -c $(distdir).tar.Z | $(am__untar) ;;\
+ *.shar.gz*) \
+ eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).shar.gz | unshar ;;\
+ *.zip*) \
+ unzip $(distdir).zip ;;\
+ *.tar.zst*) \
+ zstd -dc $(distdir).tar.zst | $(am__untar) ;;\
+ esac
+ chmod -R a-w $(distdir)
+ chmod u+w $(distdir)
+ mkdir $(distdir)/_build $(distdir)/_build/sub $(distdir)/_inst
+ chmod a-w $(distdir)
+ test -d $(distdir)/_build || exit 0; \
+ dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \
+ && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \
+ && am__cwd=`pwd` \
+ && $(am__cd) $(distdir)/_build/sub \
+ && ../../configure \
+ $(AM_DISTCHECK_CONFIGURE_FLAGS) \
+ $(DISTCHECK_CONFIGURE_FLAGS) \
+ --srcdir=../.. --prefix="$$dc_install_base" \
+ && $(MAKE) $(AM_MAKEFLAGS) \
+ && $(MAKE) $(AM_MAKEFLAGS) $(AM_DISTCHECK_DVI_TARGET) \
+ && $(MAKE) $(AM_MAKEFLAGS) check \
+ && $(MAKE) $(AM_MAKEFLAGS) install \
+ && $(MAKE) $(AM_MAKEFLAGS) installcheck \
+ && $(MAKE) $(AM_MAKEFLAGS) uninstall \
+ && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \
+ distuninstallcheck \
+ && chmod -R a-w "$$dc_install_base" \
+ && ({ \
+ (cd ../.. && umask 077 && mkdir "$$dc_destdir") \
+ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \
+ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \
+ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \
+ distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \
+ } || { rm -rf "$$dc_destdir"; exit 1; }) \
+ && rm -rf "$$dc_destdir" \
+ && $(MAKE) $(AM_MAKEFLAGS) dist \
+ && rm -rf $(DIST_ARCHIVES) \
+ && $(MAKE) $(AM_MAKEFLAGS) distcleancheck \
+ && cd "$$am__cwd" \
+ || exit 1
+ $(am__post_remove_distdir)
+ @(echo "$(distdir) archives ready for distribution: "; \
+ list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \
+ sed -e 1h -e 1s/./=/g -e 1p -e 1x -e '$$p' -e '$$x'
+distuninstallcheck:
+ @test -n '$(distuninstallcheck_dir)' || { \
+ echo 'ERROR: trying to run $@ with an empty' \
+ '$$(distuninstallcheck_dir)' >&2; \
+ exit 1; \
+ }; \
+ $(am__cd) '$(distuninstallcheck_dir)' || { \
+ echo 'ERROR: cannot chdir into $(distuninstallcheck_dir)' >&2; \
+ exit 1; \
+ }; \
+ test `$(am__distuninstallcheck_listfiles) | wc -l` -eq 0 \
+ || { echo "ERROR: files left after uninstall:" ; \
+ if test -n "$(DESTDIR)"; then \
+ echo " (check DESTDIR support)"; \
+ fi ; \
+ $(distuninstallcheck_listfiles) ; \
+ exit 1; } >&2
+distcleancheck: distclean
+ @if test '$(srcdir)' = . ; then \
+ echo "ERROR: distcleancheck can only run from a VPATH build" ; \
+ exit 1 ; \
+ fi
+ @test `$(distcleancheck_listfiles) | wc -l` -eq 0 \
+ || { echo "ERROR: files left in build directory after distclean:" ; \
+ $(distcleancheck_listfiles) ; \
+ exit 1; } >&2
+check-am: all-am
+check: check-recursive
+all-am: Makefile
+installdirs: installdirs-recursive
+installdirs-am:
+install: install-recursive
+install-exec: install-exec-recursive
+install-data: install-data-recursive
+uninstall: uninstall-recursive
+
+install-am: all-am
+ @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+
+installcheck: installcheck-recursive
+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:
+
+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."
+clean: clean-recursive
+
+clean-am: clean-generic clean-libtool mostlyclean-am
+
+distclean: distclean-recursive
+ -rm -f $(am__CONFIG_DISTCLEAN_FILES)
+ -rm -f Makefile
+distclean-am: clean-am distclean-generic distclean-libtool \
+ distclean-tags
+
+dvi: dvi-recursive
+
+dvi-am:
+
+examples: examples-recursive
+
+examples-am: examples-local
+
+html: html-recursive
+
+html-am:
+
+info: info-recursive
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-recursive
+
+install-dvi-am:
+
+install-exec-am:
+
+install-html: install-html-recursive
+
+install-html-am:
+
+install-info: install-info-recursive
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-recursive
+
+install-pdf-am:
+
+install-ps: install-ps-recursive
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-recursive
+ -rm -f $(am__CONFIG_DISTCLEAN_FILES)
+ -rm -rf $(top_srcdir)/autom4te.cache
+ -rm -f Makefile
+maintainer-clean-am: distclean-am maintainer-clean-generic
+
+mostlyclean: mostlyclean-recursive
+
+mostlyclean-am: mostlyclean-generic mostlyclean-libtool
+
+pdf: pdf-recursive
+
+pdf-am:
+
+ps: ps-recursive
+
+ps-am:
+
+uninstall-am:
+
+.MAKE: $(am__recursive_targets) install-am install-strip
+
+.PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am \
+ am--refresh check check-am clean clean-cscope clean-generic \
+ clean-libtool cscope cscopelist-am ctags ctags-am dist \
+ dist-all dist-bzip2 dist-gzip dist-lzip dist-shar dist-tarZ \
+ dist-xz dist-zip dist-zstd distcheck distclean \
+ distclean-generic distclean-libtool distclean-tags \
+ distcleancheck distdir distuninstallcheck dvi dvi-am \
+ examples-am examples-local html html-am info info-am install \
+ install-am 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-man \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ installdirs-am maintainer-clean maintainer-clean-generic \
+ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \
+ ps ps-am tags tags-am uninstall uninstall-am
+
+.PRECIOUS: Makefile
+
+
+# The pdf files below cannot be created in parallel:
+doc/cdi_cman.pdf: doc/cdi_fman.pdf
+
+doc/cdi_cman.pdf:
+ $(AM_V_GEN)$(am__cd) $(top_srcdir)/doc/tex && ./makepdf_c && mv cdi_cman.pdf .. && ./cleanup
+
+doc/cdi_fman.pdf:
+ $(AM_V_GEN)$(am__cd) $(top_srcdir)/doc/tex && ./makepdf_f && mv cdi_fman.pdf .. && ./cleanup
+
+# 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/aclocal.m4 b/aclocal.m4
new file mode 100644
index 000000000..685504289
--- /dev/null
+++ b/aclocal.m4
@@ -0,0 +1,1583 @@
+# generated automatically by aclocal 1.16.5 -*- Autoconf -*-
+
+# Copyright (C) 1996-2021 Free Software Foundation, Inc.
+
+# This file 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.
+
+m4_ifndef([AC_CONFIG_MACRO_DIRS], [m4_defun([_AM_CONFIG_MACRO_DIRS], [])m4_defun([AC_CONFIG_MACRO_DIRS], [_AM_CONFIG_MACRO_DIRS($@)])])
+m4_ifndef([AC_AUTOCONF_VERSION],
+ [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
+m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],,
+[m4_warning([this file was generated for autoconf 2.69.
+You have another version of autoconf. It may work, but is not guaranteed to.
+If you have problems, you may need to regenerate the build system entirely.
+To do so, use the procedure documented by the package, typically 'autoreconf'.])])
+
+# Copyright (C) 2002-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_AUTOMAKE_VERSION(VERSION)
+# ----------------------------
+# Automake X.Y traces this macro to ensure aclocal.m4 has been
+# generated from the m4 files accompanying Automake X.Y.
+# (This private macro should not be called outside this file.)
+AC_DEFUN([AM_AUTOMAKE_VERSION],
+[am__api_version='1.16'
+dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to
+dnl require some minimum version. Point them to the right macro.
+m4_if([$1], [1.16.5], [],
+ [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl
+])
+
+# _AM_AUTOCONF_VERSION(VERSION)
+# -----------------------------
+# aclocal traces this macro to find the Autoconf version.
+# This is a private macro too. Using m4_define simplifies
+# the logic in aclocal, which can simply ignore this definition.
+m4_define([_AM_AUTOCONF_VERSION], [])
+
+# AM_SET_CURRENT_AUTOMAKE_VERSION
+# -------------------------------
+# Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced.
+# This function is AC_REQUIREd by AM_INIT_AUTOMAKE.
+AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION],
+[AM_AUTOMAKE_VERSION([1.16.5])dnl
+m4_ifndef([AC_AUTOCONF_VERSION],
+ [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
+_AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))])
+
+# AM_AUX_DIR_EXPAND -*- Autoconf -*-
+
+# Copyright (C) 2001-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets
+# $ac_aux_dir to '$srcdir/foo'. In other projects, it is set to
+# '$srcdir', '$srcdir/..', or '$srcdir/../..'.
+#
+# Of course, Automake must honor this variable whenever it calls a
+# tool from the auxiliary directory. The problem is that $srcdir (and
+# therefore $ac_aux_dir as well) can be either absolute or relative,
+# depending on how configure is run. This is pretty annoying, since
+# it makes $ac_aux_dir quite unusable in subdirectories: in the top
+# source directory, any form will work fine, but in subdirectories a
+# relative path needs to be adjusted first.
+#
+# $ac_aux_dir/missing
+# fails when called from a subdirectory if $ac_aux_dir is relative
+# $top_srcdir/$ac_aux_dir/missing
+# fails if $ac_aux_dir is absolute,
+# fails when called from a subdirectory in a VPATH build with
+# a relative $ac_aux_dir
+#
+# The reason of the latter failure is that $top_srcdir and $ac_aux_dir
+# are both prefixed by $srcdir. In an in-source build this is usually
+# harmless because $srcdir is '.', but things will broke when you
+# start a VPATH build or use an absolute $srcdir.
+#
+# So we could use something similar to $top_srcdir/$ac_aux_dir/missing,
+# iff we strip the leading $srcdir from $ac_aux_dir. That would be:
+# am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"`
+# and then we would define $MISSING as
+# MISSING="\${SHELL} $am_aux_dir/missing"
+# This will work as long as MISSING is not called from configure, because
+# unfortunately $(top_srcdir) has no meaning in configure.
+# However there are other variables, like CC, which are often used in
+# configure, and could therefore not use this "fixed" $ac_aux_dir.
+#
+# Another solution, used here, is to always expand $ac_aux_dir to an
+# absolute PATH. The drawback is that using absolute paths prevent a
+# configured tree to be moved without reconfiguration.
+
+AC_DEFUN([AM_AUX_DIR_EXPAND],
+[AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl
+# Expand $ac_aux_dir to an absolute path.
+am_aux_dir=`cd "$ac_aux_dir" && pwd`
+])
+
+# AM_CONDITIONAL -*- Autoconf -*-
+
+# Copyright (C) 1997-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_CONDITIONAL(NAME, SHELL-CONDITION)
+# -------------------------------------
+# Define a conditional.
+AC_DEFUN([AM_CONDITIONAL],
+[AC_PREREQ([2.52])dnl
+ m4_if([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])],
+ [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl
+AC_SUBST([$1_TRUE])dnl
+AC_SUBST([$1_FALSE])dnl
+_AM_SUBST_NOTMAKE([$1_TRUE])dnl
+_AM_SUBST_NOTMAKE([$1_FALSE])dnl
+m4_define([_AM_COND_VALUE_$1], [$2])dnl
+if $2; then
+ $1_TRUE=
+ $1_FALSE='#'
+else
+ $1_TRUE='#'
+ $1_FALSE=
+fi
+AC_CONFIG_COMMANDS_PRE(
+[if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then
+ AC_MSG_ERROR([[conditional "$1" was never defined.
+Usually this means the macro was only invoked conditionally.]])
+fi])])
+
+# Copyright (C) 1999-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+
+# There are a few dirty hacks below to avoid letting 'AC_PROG_CC' be
+# written in clear, in which case automake, when reading aclocal.m4,
+# will think it sees a *use*, and therefore will trigger all it's
+# C support machinery. Also note that it means that autoscan, seeing
+# CC etc. in the Makefile, will ask for an AC_PROG_CC use...
+
+
+# _AM_DEPENDENCIES(NAME)
+# ----------------------
+# See how the compiler implements dependency checking.
+# NAME is "CC", "CXX", "OBJC", "OBJCXX", "UPC", or "GJC".
+# We try a few techniques and use that to set a single cache variable.
+#
+# We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was
+# modified to invoke _AM_DEPENDENCIES(CC); we would have a circular
+# dependency, and given that the user is not expected to run this macro,
+# just rely on AC_PROG_CC.
+AC_DEFUN([_AM_DEPENDENCIES],
+[AC_REQUIRE([AM_SET_DEPDIR])dnl
+AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl
+AC_REQUIRE([AM_MAKE_INCLUDE])dnl
+AC_REQUIRE([AM_DEP_TRACK])dnl
+
+m4_if([$1], [CC], [depcc="$CC" am_compiler_list=],
+ [$1], [CXX], [depcc="$CXX" am_compiler_list=],
+ [$1], [OBJC], [depcc="$OBJC" am_compiler_list='gcc3 gcc'],
+ [$1], [OBJCXX], [depcc="$OBJCXX" am_compiler_list='gcc3 gcc'],
+ [$1], [UPC], [depcc="$UPC" am_compiler_list=],
+ [$1], [GCJ], [depcc="$GCJ" am_compiler_list='gcc3 gcc'],
+ [depcc="$$1" am_compiler_list=])
+
+AC_CACHE_CHECK([dependency style of $depcc],
+ [am_cv_$1_dependencies_compiler_type],
+[if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
+ # We make a subdir and do the tests there. Otherwise we can end up
+ # making bogus files that we don't know about and never remove. For
+ # instance it was reported that on HP-UX the gcc test will end up
+ # making a dummy file named 'D' -- because '-MD' means "put the output
+ # in D".
+ rm -rf conftest.dir
+ mkdir conftest.dir
+ # Copy depcomp to subdir because otherwise we won't find it if we're
+ # using a relative directory.
+ cp "$am_depcomp" conftest.dir
+ cd conftest.dir
+ # We will build objects and dependencies in a subdirectory because
+ # it helps to detect inapplicable dependency modes. For instance
+ # both Tru64's cc and ICC support -MD to output dependencies as a
+ # side effect of compilation, but ICC will put the dependencies in
+ # the current directory while Tru64 will put them in the object
+ # directory.
+ mkdir sub
+
+ am_cv_$1_dependencies_compiler_type=none
+ if test "$am_compiler_list" = ""; then
+ am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp`
+ fi
+ am__universal=false
+ m4_case([$1], [CC],
+ [case " $depcc " in #(
+ *\ -arch\ *\ -arch\ *) am__universal=true ;;
+ esac],
+ [CXX],
+ [case " $depcc " in #(
+ *\ -arch\ *\ -arch\ *) am__universal=true ;;
+ esac])
+
+ for depmode in $am_compiler_list; do
+ # Setup a source with many dependencies, because some compilers
+ # like to wrap large dependency lists on column 80 (with \), and
+ # we should not choose a depcomp mode which is confused by this.
+ #
+ # We need to recreate these files for each test, as the compiler may
+ # overwrite some of them when testing with obscure command lines.
+ # This happens at least with the AIX C compiler.
+ : > sub/conftest.c
+ for i in 1 2 3 4 5 6; do
+ echo '#include "conftst'$i'.h"' >> sub/conftest.c
+ # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with
+ # Solaris 10 /bin/sh.
+ echo '/* dummy */' > sub/conftst$i.h
+ done
+ echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
+
+ # We check with '-c' and '-o' for the sake of the "dashmstdout"
+ # mode. It turns out that the SunPro C++ compiler does not properly
+ # handle '-M -o', and we need to detect this. Also, some Intel
+ # versions had trouble with output in subdirs.
+ am__obj=sub/conftest.${OBJEXT-o}
+ am__minus_obj="-o $am__obj"
+ case $depmode in
+ gcc)
+ # This depmode causes a compiler race in universal mode.
+ test "$am__universal" = false || continue
+ ;;
+ nosideeffect)
+ # After this tag, mechanisms are not by side-effect, so they'll
+ # only be used when explicitly requested.
+ if test "x$enable_dependency_tracking" = xyes; then
+ continue
+ else
+ break
+ fi
+ ;;
+ msvc7 | msvc7msys | msvisualcpp | msvcmsys)
+ # This compiler won't grok '-c -o', but also, the minuso test has
+ # not run yet. These depmodes are late enough in the game, and
+ # so weak that their functioning should not be impacted.
+ am__obj=conftest.${OBJEXT-o}
+ am__minus_obj=
+ ;;
+ none) break ;;
+ esac
+ if depmode=$depmode \
+ source=sub/conftest.c object=$am__obj \
+ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
+ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
+ >/dev/null 2>conftest.err &&
+ grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
+ grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
+ grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
+ ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
+ # icc doesn't choke on unknown options, it will just issue warnings
+ # or remarks (even with -Werror). So we grep stderr for any message
+ # that says an option was ignored or not supported.
+ # When given -MP, icc 7.0 and 7.1 complain thusly:
+ # icc: Command line warning: ignoring option '-M'; no argument required
+ # The diagnosis changed in icc 8.0:
+ # icc: Command line remark: option '-MP' not supported
+ if (grep 'ignoring option' conftest.err ||
+ grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
+ am_cv_$1_dependencies_compiler_type=$depmode
+ break
+ fi
+ fi
+ done
+
+ cd ..
+ rm -rf conftest.dir
+else
+ am_cv_$1_dependencies_compiler_type=none
+fi
+])
+AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type])
+AM_CONDITIONAL([am__fastdep$1], [
+ test "x$enable_dependency_tracking" != xno \
+ && test "$am_cv_$1_dependencies_compiler_type" = gcc3])
+])
+
+
+# AM_SET_DEPDIR
+# -------------
+# Choose a directory name for dependency files.
+# This macro is AC_REQUIREd in _AM_DEPENDENCIES.
+AC_DEFUN([AM_SET_DEPDIR],
+[AC_REQUIRE([AM_SET_LEADING_DOT])dnl
+AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl
+])
+
+
+# AM_DEP_TRACK
+# ------------
+AC_DEFUN([AM_DEP_TRACK],
+[AC_ARG_ENABLE([dependency-tracking], [dnl
+AS_HELP_STRING(
+ [--enable-dependency-tracking],
+ [do not reject slow dependency extractors])
+AS_HELP_STRING(
+ [--disable-dependency-tracking],
+ [speeds up one-time build])])
+if test "x$enable_dependency_tracking" != xno; then
+ am_depcomp="$ac_aux_dir/depcomp"
+ AMDEPBACKSLASH='\'
+ am__nodep='_no'
+fi
+AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno])
+AC_SUBST([AMDEPBACKSLASH])dnl
+_AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl
+AC_SUBST([am__nodep])dnl
+_AM_SUBST_NOTMAKE([am__nodep])dnl
+])
+
+# Generate code to set up dependency tracking. -*- Autoconf -*-
+
+# Copyright (C) 1999-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# _AM_OUTPUT_DEPENDENCY_COMMANDS
+# ------------------------------
+AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS],
+[{
+ # Older Autoconf quotes --file arguments for eval, but not when files
+ # are listed without --file. Let's play safe and only enable the eval
+ # if we detect the quoting.
+ # TODO: see whether this extra hack can be removed once we start
+ # requiring Autoconf 2.70 or later.
+ AS_CASE([$CONFIG_FILES],
+ [*\'*], [eval set x "$CONFIG_FILES"],
+ [*], [set x $CONFIG_FILES])
+ shift
+ # Used to flag and report bootstrapping failures.
+ am_rc=0
+ for am_mf
+ do
+ # Strip MF so we end up with the name of the file.
+ am_mf=`AS_ECHO(["$am_mf"]) | sed -e 's/:.*$//'`
+ # Check whether this is an Automake generated Makefile which includes
+ # dependency-tracking related rules and includes.
+ # Grep'ing the whole file directly is not great: AIX grep has a line
+ # limit of 2048, but all sed's we know have understand at least 4000.
+ sed -n 's,^am--depfiles:.*,X,p' "$am_mf" | grep X >/dev/null 2>&1 \
+ || continue
+ am_dirpart=`AS_DIRNAME(["$am_mf"])`
+ am_filepart=`AS_BASENAME(["$am_mf"])`
+ AM_RUN_LOG([cd "$am_dirpart" \
+ && sed -e '/# am--include-marker/d' "$am_filepart" \
+ | $MAKE -f - am--depfiles]) || am_rc=$?
+ done
+ if test $am_rc -ne 0; then
+ AC_MSG_FAILURE([Something went wrong bootstrapping makefile fragments
+ for automatic dependency tracking. If GNU make was not used, consider
+ re-running the configure script with MAKE="gmake" (or whatever is
+ necessary). You can also try re-running configure with the
+ '--disable-dependency-tracking' option to at least be able to build
+ the package (albeit without support for automatic dependency tracking).])
+ fi
+ AS_UNSET([am_dirpart])
+ AS_UNSET([am_filepart])
+ AS_UNSET([am_mf])
+ AS_UNSET([am_rc])
+ rm -f conftest-deps.mk
+}
+])# _AM_OUTPUT_DEPENDENCY_COMMANDS
+
+
+# AM_OUTPUT_DEPENDENCY_COMMANDS
+# -----------------------------
+# This macro should only be invoked once -- use via AC_REQUIRE.
+#
+# This code is only required when automatic dependency tracking is enabled.
+# This creates each '.Po' and '.Plo' makefile fragment that we'll need in
+# order to bootstrap the dependency handling code.
+AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS],
+[AC_CONFIG_COMMANDS([depfiles],
+ [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS],
+ [AMDEP_TRUE="$AMDEP_TRUE" MAKE="${MAKE-make}"])])
+
+# AM_EXTRA_RECURSIVE_TARGETS -*- Autoconf -*-
+
+# Copyright (C) 2012-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_EXTRA_RECURSIVE_TARGETS
+# --------------------------
+# Define the list of user recursive targets. This macro exists only to
+# be traced by Automake, which will ensure that a proper definition of
+# user-defined recursive targets (and associated rules) is propagated
+# into all the generated Makefiles.
+# TODO: We should really reject non-literal arguments here...
+AC_DEFUN([AM_EXTRA_RECURSIVE_TARGETS], [])
+
+# Do all the work for Automake. -*- Autoconf -*-
+
+# Copyright (C) 1996-2021 Free Software Foundation, Inc.
+#
+# This file 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 macro actually does too much. Some checks are only needed if
+# your package does certain things. But this isn't really a big deal.
+
+dnl Redefine AC_PROG_CC to automatically invoke _AM_PROG_CC_C_O.
+m4_define([AC_PROG_CC],
+m4_defn([AC_PROG_CC])
+[_AM_PROG_CC_C_O
+])
+
+# AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE])
+# AM_INIT_AUTOMAKE([OPTIONS])
+# -----------------------------------------------
+# The call with PACKAGE and VERSION arguments is the old style
+# call (pre autoconf-2.50), which is being phased out. PACKAGE
+# and VERSION should now be passed to AC_INIT and removed from
+# the call to AM_INIT_AUTOMAKE.
+# We support both call styles for the transition. After
+# the next Automake release, Autoconf can make the AC_INIT
+# arguments mandatory, and then we can depend on a new Autoconf
+# release and drop the old call support.
+AC_DEFUN([AM_INIT_AUTOMAKE],
+[AC_PREREQ([2.65])dnl
+m4_ifdef([_$0_ALREADY_INIT],
+ [m4_fatal([$0 expanded multiple times
+]m4_defn([_$0_ALREADY_INIT]))],
+ [m4_define([_$0_ALREADY_INIT], m4_expansion_stack)])dnl
+dnl Autoconf wants to disallow AM_ names. We explicitly allow
+dnl the ones we care about.
+m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl
+AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl
+AC_REQUIRE([AC_PROG_INSTALL])dnl
+if test "`cd $srcdir && pwd`" != "`pwd`"; then
+ # Use -I$(srcdir) only when $(srcdir) != ., so that make's output
+ # is not polluted with repeated "-I."
+ AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl
+ # test to see if srcdir already configured
+ if test -f $srcdir/config.status; then
+ AC_MSG_ERROR([source directory already configured; run "make distclean" there first])
+ fi
+fi
+
+# test whether we have cygpath
+if test -z "$CYGPATH_W"; then
+ if (cygpath --version) >/dev/null 2>/dev/null; then
+ CYGPATH_W='cygpath -w'
+ else
+ CYGPATH_W=echo
+ fi
+fi
+AC_SUBST([CYGPATH_W])
+
+# Define the identity of the package.
+dnl Distinguish between old-style and new-style calls.
+m4_ifval([$2],
+[AC_DIAGNOSE([obsolete],
+ [$0: two- and three-arguments forms are deprecated.])
+m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl
+ AC_SUBST([PACKAGE], [$1])dnl
+ AC_SUBST([VERSION], [$2])],
+[_AM_SET_OPTIONS([$1])dnl
+dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT.
+m4_if(
+ m4_ifset([AC_PACKAGE_NAME], [ok]):m4_ifset([AC_PACKAGE_VERSION], [ok]),
+ [ok:ok],,
+ [m4_fatal([AC_INIT should be called with package and version arguments])])dnl
+ AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl
+ AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl
+
+_AM_IF_OPTION([no-define],,
+[AC_DEFINE_UNQUOTED([PACKAGE], ["$PACKAGE"], [Name of package])
+ AC_DEFINE_UNQUOTED([VERSION], ["$VERSION"], [Version number of package])])dnl
+
+# Some tools Automake needs.
+AC_REQUIRE([AM_SANITY_CHECK])dnl
+AC_REQUIRE([AC_ARG_PROGRAM])dnl
+AM_MISSING_PROG([ACLOCAL], [aclocal-${am__api_version}])
+AM_MISSING_PROG([AUTOCONF], [autoconf])
+AM_MISSING_PROG([AUTOMAKE], [automake-${am__api_version}])
+AM_MISSING_PROG([AUTOHEADER], [autoheader])
+AM_MISSING_PROG([MAKEINFO], [makeinfo])
+AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
+AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl
+AC_REQUIRE([AC_PROG_MKDIR_P])dnl
+# For better backward compatibility. To be removed once Automake 1.9.x
+# dies out for good. For more background, see:
+# <https://lists.gnu.org/archive/html/automake/2012-07/msg00001.html>
+# <https://lists.gnu.org/archive/html/automake/2012-07/msg00014.html>
+AC_SUBST([mkdir_p], ['$(MKDIR_P)'])
+# We need awk for the "check" target (and possibly the TAP driver). The
+# system "awk" is bad on some platforms.
+AC_REQUIRE([AC_PROG_AWK])dnl
+AC_REQUIRE([AC_PROG_MAKE_SET])dnl
+AC_REQUIRE([AM_SET_LEADING_DOT])dnl
+_AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])],
+ [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])],
+ [_AM_PROG_TAR([v7])])])
+_AM_IF_OPTION([no-dependencies],,
+[AC_PROVIDE_IFELSE([AC_PROG_CC],
+ [_AM_DEPENDENCIES([CC])],
+ [m4_define([AC_PROG_CC],
+ m4_defn([AC_PROG_CC])[_AM_DEPENDENCIES([CC])])])dnl
+AC_PROVIDE_IFELSE([AC_PROG_CXX],
+ [_AM_DEPENDENCIES([CXX])],
+ [m4_define([AC_PROG_CXX],
+ m4_defn([AC_PROG_CXX])[_AM_DEPENDENCIES([CXX])])])dnl
+AC_PROVIDE_IFELSE([AC_PROG_OBJC],
+ [_AM_DEPENDENCIES([OBJC])],
+ [m4_define([AC_PROG_OBJC],
+ m4_defn([AC_PROG_OBJC])[_AM_DEPENDENCIES([OBJC])])])dnl
+AC_PROVIDE_IFELSE([AC_PROG_OBJCXX],
+ [_AM_DEPENDENCIES([OBJCXX])],
+ [m4_define([AC_PROG_OBJCXX],
+ m4_defn([AC_PROG_OBJCXX])[_AM_DEPENDENCIES([OBJCXX])])])dnl
+])
+# Variables for tags utilities; see am/tags.am
+if test -z "$CTAGS"; then
+ CTAGS=ctags
+fi
+AC_SUBST([CTAGS])
+if test -z "$ETAGS"; then
+ ETAGS=etags
+fi
+AC_SUBST([ETAGS])
+if test -z "$CSCOPE"; then
+ CSCOPE=cscope
+fi
+AC_SUBST([CSCOPE])
+
+AC_REQUIRE([AM_SILENT_RULES])dnl
+dnl The testsuite driver may need to know about EXEEXT, so add the
+dnl 'am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This
+dnl macro is hooked onto _AC_COMPILER_EXEEXT early, see below.
+AC_CONFIG_COMMANDS_PRE(dnl
+[m4_provide_if([_AM_COMPILER_EXEEXT],
+ [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl
+
+# POSIX will say in a future version that running "rm -f" with no argument
+# is OK; and we want to be able to make that assumption in our Makefile
+# recipes. So use an aggressive probe to check that the usage we want is
+# actually supported "in the wild" to an acceptable degree.
+# See automake bug#10828.
+# To make any issue more visible, cause the running configure to be aborted
+# by default if the 'rm' program in use doesn't match our expectations; the
+# user can still override this though.
+if rm -f && rm -fr && rm -rf; then : OK; else
+ cat >&2 <<'END'
+Oops!
+
+Your 'rm' program seems unable to run without file operands specified
+on the command line, even when the '-f' option is present. This is contrary
+to the behaviour of most rm programs out there, and not conforming with
+the upcoming POSIX standard: <http://austingroupbugs.net/view.php?id=542>
+
+Please tell bug-automake@gnu.org about your system, including the value
+of your $PATH and any error possibly output before this message. This
+can help us improve future automake versions.
+
+END
+ if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then
+ echo 'Configuration will proceed anyway, since you have set the' >&2
+ echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2
+ echo >&2
+ else
+ cat >&2 <<'END'
+Aborting the configuration process, to ensure you take notice of the issue.
+
+You can download and install GNU coreutils to get an 'rm' implementation
+that behaves properly: <https://www.gnu.org/software/coreutils/>.
+
+If you want to complete the configuration process using your problematic
+'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM
+to "yes", and re-run configure.
+
+END
+ AC_MSG_ERROR([Your 'rm' program is bad, sorry.])
+ fi
+fi
+dnl The trailing newline in this macro's definition is deliberate, for
+dnl backward compatibility and to allow trailing 'dnl'-style comments
+dnl after the AM_INIT_AUTOMAKE invocation. See automake bug#16841.
+])
+
+dnl Hook into '_AC_COMPILER_EXEEXT' early to learn its expansion. Do not
+dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further
+dnl mangled by Autoconf and run in a shell conditional statement.
+m4_define([_AC_COMPILER_EXEEXT],
+m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])])
+
+# When config.status generates a header, we must update the stamp-h file.
+# This file resides in the same directory as the config header
+# that is generated. The stamp files are numbered to have different names.
+
+# Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the
+# loop where config.status creates the headers, so we can generate
+# our stamp files there.
+AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK],
+[# Compute $1's index in $config_headers.
+_am_arg=$1
+_am_stamp_count=1
+for _am_header in $config_headers :; do
+ case $_am_header in
+ $_am_arg | $_am_arg:* )
+ break ;;
+ * )
+ _am_stamp_count=`expr $_am_stamp_count + 1` ;;
+ esac
+done
+echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count])
+
+# Copyright (C) 2001-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_PROG_INSTALL_SH
+# ------------------
+# Define $install_sh.
+AC_DEFUN([AM_PROG_INSTALL_SH],
+[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
+if test x"${install_sh+set}" != xset; then
+ case $am_aux_dir in
+ *\ * | *\ *)
+ install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
+ *)
+ install_sh="\${SHELL} $am_aux_dir/install-sh"
+ esac
+fi
+AC_SUBST([install_sh])])
+
+# Copyright (C) 2003-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# Check whether the underlying file-system supports filenames
+# with a leading dot. For instance MS-DOS doesn't.
+AC_DEFUN([AM_SET_LEADING_DOT],
+[rm -rf .tst 2>/dev/null
+mkdir .tst 2>/dev/null
+if test -d .tst; then
+ am__leading_dot=.
+else
+ am__leading_dot=_
+fi
+rmdir .tst 2>/dev/null
+AC_SUBST([am__leading_dot])])
+
+# Add --enable-maintainer-mode option to configure. -*- Autoconf -*-
+# From Jim Meyering
+
+# Copyright (C) 1996-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_MAINTAINER_MODE([DEFAULT-MODE])
+# ----------------------------------
+# Control maintainer-specific portions of Makefiles.
+# Default is to disable them, unless 'enable' is passed literally.
+# For symmetry, 'disable' may be passed as well. Anyway, the user
+# can override the default with the --enable/--disable switch.
+AC_DEFUN([AM_MAINTAINER_MODE],
+[m4_case(m4_default([$1], [disable]),
+ [enable], [m4_define([am_maintainer_other], [disable])],
+ [disable], [m4_define([am_maintainer_other], [enable])],
+ [m4_define([am_maintainer_other], [enable])
+ m4_warn([syntax], [unexpected argument to AM@&t@_MAINTAINER_MODE: $1])])
+AC_MSG_CHECKING([whether to enable maintainer-specific portions of Makefiles])
+ dnl maintainer-mode's default is 'disable' unless 'enable' is passed
+ AC_ARG_ENABLE([maintainer-mode],
+ [AS_HELP_STRING([--]am_maintainer_other[-maintainer-mode],
+ am_maintainer_other[ make rules and dependencies not useful
+ (and sometimes confusing) to the casual installer])],
+ [USE_MAINTAINER_MODE=$enableval],
+ [USE_MAINTAINER_MODE=]m4_if(am_maintainer_other, [enable], [no], [yes]))
+ AC_MSG_RESULT([$USE_MAINTAINER_MODE])
+ AM_CONDITIONAL([MAINTAINER_MODE], [test $USE_MAINTAINER_MODE = yes])
+ MAINT=$MAINTAINER_MODE_TRUE
+ AC_SUBST([MAINT])dnl
+]
+)
+
+# Check to see how 'make' treats includes. -*- Autoconf -*-
+
+# Copyright (C) 2001-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_MAKE_INCLUDE()
+# -----------------
+# Check whether make has an 'include' directive that can support all
+# the idioms we need for our automatic dependency tracking code.
+AC_DEFUN([AM_MAKE_INCLUDE],
+[AC_MSG_CHECKING([whether ${MAKE-make} supports the include directive])
+cat > confinc.mk << 'END'
+am__doit:
+ @echo this is the am__doit target >confinc.out
+.PHONY: am__doit
+END
+am__include="#"
+am__quote=
+# BSD make does it like this.
+echo '.include "confinc.mk" # ignored' > confmf.BSD
+# Other make implementations (GNU, Solaris 10, AIX) do it like this.
+echo 'include confinc.mk # ignored' > confmf.GNU
+_am_result=no
+for s in GNU BSD; do
+ AM_RUN_LOG([${MAKE-make} -f confmf.$s && cat confinc.out])
+ AS_CASE([$?:`cat confinc.out 2>/dev/null`],
+ ['0:this is the am__doit target'],
+ [AS_CASE([$s],
+ [BSD], [am__include='.include' am__quote='"'],
+ [am__include='include' am__quote=''])])
+ if test "$am__include" != "#"; then
+ _am_result="yes ($s style)"
+ break
+ fi
+done
+rm -f confinc.* confmf.*
+AC_MSG_RESULT([${_am_result}])
+AC_SUBST([am__include])])
+AC_SUBST([am__quote])])
+
+# Fake the existence of programs that GNU maintainers use. -*- Autoconf -*-
+
+# Copyright (C) 1997-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_MISSING_PROG(NAME, PROGRAM)
+# ------------------------------
+AC_DEFUN([AM_MISSING_PROG],
+[AC_REQUIRE([AM_MISSING_HAS_RUN])
+$1=${$1-"${am_missing_run}$2"}
+AC_SUBST($1)])
+
+# AM_MISSING_HAS_RUN
+# ------------------
+# Define MISSING if not defined so far and test if it is modern enough.
+# If it is, set am_missing_run to use it, otherwise, to nothing.
+AC_DEFUN([AM_MISSING_HAS_RUN],
+[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
+AC_REQUIRE_AUX_FILE([missing])dnl
+if test x"${MISSING+set}" != xset; then
+ MISSING="\${SHELL} '$am_aux_dir/missing'"
+fi
+# Use eval to expand $SHELL
+if eval "$MISSING --is-lightweight"; then
+ am_missing_run="$MISSING "
+else
+ am_missing_run=
+ AC_MSG_WARN(['missing' script is too old or missing])
+fi
+])
+
+# Helper functions for option handling. -*- Autoconf -*-
+
+# Copyright (C) 2001-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# _AM_MANGLE_OPTION(NAME)
+# -----------------------
+AC_DEFUN([_AM_MANGLE_OPTION],
+[[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])])
+
+# _AM_SET_OPTION(NAME)
+# --------------------
+# Set option NAME. Presently that only means defining a flag for this option.
+AC_DEFUN([_AM_SET_OPTION],
+[m4_define(_AM_MANGLE_OPTION([$1]), [1])])
+
+# _AM_SET_OPTIONS(OPTIONS)
+# ------------------------
+# OPTIONS is a space-separated list of Automake options.
+AC_DEFUN([_AM_SET_OPTIONS],
+[m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])])
+
+# _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET])
+# -------------------------------------------
+# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise.
+AC_DEFUN([_AM_IF_OPTION],
+[m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])])
+
+# Copyright (C) 1999-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# _AM_PROG_CC_C_O
+# ---------------
+# Like AC_PROG_CC_C_O, but changed for automake. We rewrite AC_PROG_CC
+# to automatically call this.
+AC_DEFUN([_AM_PROG_CC_C_O],
+[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
+AC_REQUIRE_AUX_FILE([compile])dnl
+AC_LANG_PUSH([C])dnl
+AC_CACHE_CHECK(
+ [whether $CC understands -c and -o together],
+ [am_cv_prog_cc_c_o],
+ [AC_LANG_CONFTEST([AC_LANG_PROGRAM([])])
+ # Make sure it works both with $CC and with simple cc.
+ # Following AC_PROG_CC_C_O, we do the test twice because some
+ # compilers refuse to overwrite an existing .o file with -o,
+ # though they will create one.
+ am_cv_prog_cc_c_o=yes
+ for am_i in 1 2; do
+ if AM_RUN_LOG([$CC -c conftest.$ac_ext -o conftest2.$ac_objext]) \
+ && test -f conftest2.$ac_objext; then
+ : OK
+ else
+ am_cv_prog_cc_c_o=no
+ break
+ fi
+ done
+ rm -f core conftest*
+ unset am_i])
+if test "$am_cv_prog_cc_c_o" != yes; then
+ # Losing compiler, so override with the script.
+ # FIXME: It is wrong to rewrite CC.
+ # But if we don't then we get into trouble of one sort or another.
+ # A longer-term fix would be to have automake use am__CC in this case,
+ # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)"
+ CC="$am_aux_dir/compile $CC"
+fi
+AC_LANG_POP([C])])
+
+# For backward compatibility.
+AC_DEFUN_ONCE([AM_PROG_CC_C_O], [AC_REQUIRE([AC_PROG_CC])])
+
+# Copyright (C) 1999-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+
+# AM_PATH_PYTHON([MINIMUM-VERSION], [ACTION-IF-FOUND], [ACTION-IF-NOT-FOUND])
+# ---------------------------------------------------------------------------
+# Adds support for distributing Python modules and packages. To
+# install modules, copy them to $(pythondir), using the python_PYTHON
+# automake variable. To install a package with the same name as the
+# automake package, install to $(pkgpythondir), or use the
+# pkgpython_PYTHON automake variable.
+#
+# The variables $(pyexecdir) and $(pkgpyexecdir) are provided as
+# locations to install python extension modules (shared libraries).
+# Another macro is required to find the appropriate flags to compile
+# extension modules.
+#
+# If your package is configured with a different prefix to python,
+# users will have to add the install directory to the PYTHONPATH
+# environment variable, or create a .pth file (see the python
+# documentation for details).
+#
+# If the MINIMUM-VERSION argument is passed, AM_PATH_PYTHON will
+# cause an error if the version of python installed on the system
+# doesn't meet the requirement. MINIMUM-VERSION should consist of
+# numbers and dots only.
+AC_DEFUN([AM_PATH_PYTHON],
+ [
+ dnl Find a Python interpreter. Python versions prior to 2.0 are not
+ dnl supported. (2.0 was released on October 16, 2000).
+ m4_define_default([_AM_PYTHON_INTERPRETER_LIST],
+[python python2 python3 dnl
+ python3.9 python3.8 python3.7 python3.6 python3.5 python3.4 python3.3 dnl
+ python3.2 python3.1 python3.0 dnl
+ python2.7 python2.6 python2.5 python2.4 python2.3 python2.2 python2.1 dnl
+ python2.0])
+
+ AC_ARG_VAR([PYTHON], [the Python interpreter])
+
+ m4_if([$1],[],[
+ dnl No version check is needed.
+ # Find any Python interpreter.
+ if test -z "$PYTHON"; then
+ AC_PATH_PROGS([PYTHON], _AM_PYTHON_INTERPRETER_LIST, :)
+ fi
+ am_display_PYTHON=python
+ ], [
+ dnl A version check is needed.
+ if test -n "$PYTHON"; then
+ # If the user set $PYTHON, use it and don't search something else.
+ AC_MSG_CHECKING([whether $PYTHON version is >= $1])
+ AM_PYTHON_CHECK_VERSION([$PYTHON], [$1],
+ [AC_MSG_RESULT([yes])],
+ [AC_MSG_RESULT([no])
+ AC_MSG_ERROR([Python interpreter is too old])])
+ am_display_PYTHON=$PYTHON
+ else
+ # Otherwise, try each interpreter until we find one that satisfies
+ # VERSION.
+ AC_CACHE_CHECK([for a Python interpreter with version >= $1],
+ [am_cv_pathless_PYTHON],[
+ for am_cv_pathless_PYTHON in _AM_PYTHON_INTERPRETER_LIST none; do
+ test "$am_cv_pathless_PYTHON" = none && break
+ AM_PYTHON_CHECK_VERSION([$am_cv_pathless_PYTHON], [$1], [break])
+ done])
+ # Set $PYTHON to the absolute path of $am_cv_pathless_PYTHON.
+ if test "$am_cv_pathless_PYTHON" = none; then
+ PYTHON=:
+ else
+ AC_PATH_PROG([PYTHON], [$am_cv_pathless_PYTHON])
+ fi
+ am_display_PYTHON=$am_cv_pathless_PYTHON
+ fi
+ ])
+
+ if test "$PYTHON" = :; then
+ dnl Run any user-specified action, or abort.
+ m4_default([$3], [AC_MSG_ERROR([no suitable Python interpreter found])])
+ else
+
+ dnl Query Python for its version number. Although site.py simply uses
+ dnl sys.version[:3], printing that failed with Python 3.10, since the
+ dnl trailing zero was eliminated. So now we output just the major
+ dnl and minor version numbers, as numbers. Apparently the tertiary
+ dnl version is not of interest.
+ dnl
+ AC_CACHE_CHECK([for $am_display_PYTHON version], [am_cv_python_version],
+ [am_cv_python_version=`$PYTHON -c "import sys; print ('%u.%u' % sys.version_info[[:2]])"`])
+ AC_SUBST([PYTHON_VERSION], [$am_cv_python_version])
+
+ dnl At times, e.g., when building shared libraries, you may want
+ dnl to know which OS platform Python thinks this is.
+ dnl
+ AC_CACHE_CHECK([for $am_display_PYTHON platform], [am_cv_python_platform],
+ [am_cv_python_platform=`$PYTHON -c "import sys; sys.stdout.write(sys.platform)"`])
+ AC_SUBST([PYTHON_PLATFORM], [$am_cv_python_platform])
+
+ dnl emacs-page
+ dnl If --with-python-sys-prefix is given, use the values of sys.prefix
+ dnl and sys.exec_prefix for the corresponding values of PYTHON_PREFIX
+ dnl and PYTHON_EXEC_PREFIX. Otherwise, use the GNU ${prefix} and
+ dnl ${exec_prefix} variables.
+ dnl
+ dnl The two are made distinct variables so they can be overridden if
+ dnl need be, although general consensus is that you shouldn't need
+ dnl this separation.
+ dnl
+ dnl Also allow directly setting the prefixes via configure options,
+ dnl overriding any default.
+ dnl
+ if test "x$prefix" = xNONE; then
+ am__usable_prefix=$ac_default_prefix
+ else
+ am__usable_prefix=$prefix
+ fi
+
+ # Allow user to request using sys.* values from Python,
+ # instead of the GNU $prefix values.
+ AC_ARG_WITH([python-sys-prefix],
+ [AS_HELP_STRING([--with-python-sys-prefix],
+ [use Python's sys.prefix and sys.exec_prefix values])],
+ [am_use_python_sys=:],
+ [am_use_python_sys=false])
+
+ # Allow user to override whatever the default Python prefix is.
+ AC_ARG_WITH([python_prefix],
+ [AS_HELP_STRING([--with-python_prefix],
+ [override the default PYTHON_PREFIX])],
+ [am_python_prefix_subst=$withval
+ am_cv_python_prefix=$withval
+ AC_MSG_CHECKING([for explicit $am_display_PYTHON prefix])
+ AC_MSG_RESULT([$am_cv_python_prefix])],
+ [
+ if $am_use_python_sys; then
+ # using python sys.prefix value, not GNU
+ AC_CACHE_CHECK([for python default $am_display_PYTHON prefix],
+ [am_cv_python_prefix],
+ [am_cv_python_prefix=`$PYTHON -c "import sys; sys.stdout.write(sys.prefix)"`])
+
+ dnl If sys.prefix is a subdir of $prefix, replace the literal value of
+ dnl $prefix with a variable reference so it can be overridden.
+ case $am_cv_python_prefix in
+ $am__usable_prefix*)
+ am__strip_prefix=`echo "$am__usable_prefix" | sed 's|.|.|g'`
+ am_python_prefix_subst=`echo "$am_cv_python_prefix" | sed "s,^$am__strip_prefix,\\${prefix},"`
+ ;;
+ *)
+ am_python_prefix_subst=$am_cv_python_prefix
+ ;;
+ esac
+ else # using GNU prefix value, not python sys.prefix
+ am_python_prefix_subst='${prefix}'
+ am_python_prefix=$am_python_prefix_subst
+ AC_MSG_CHECKING([for GNU default $am_display_PYTHON prefix])
+ AC_MSG_RESULT([$am_python_prefix])
+ fi])
+ # Substituting python_prefix_subst value.
+ AC_SUBST([PYTHON_PREFIX], [$am_python_prefix_subst])
+
+ # emacs-page Now do it all over again for Python exec_prefix, but with yet
+ # another conditional: fall back to regular prefix if that was specified.
+ AC_ARG_WITH([python_exec_prefix],
+ [AS_HELP_STRING([--with-python_exec_prefix],
+ [override the default PYTHON_EXEC_PREFIX])],
+ [am_python_exec_prefix_subst=$withval
+ am_cv_python_exec_prefix=$withval
+ AC_MSG_CHECKING([for explicit $am_display_PYTHON exec_prefix])
+ AC_MSG_RESULT([$am_cv_python_exec_prefix])],
+ [
+ # no explicit --with-python_exec_prefix, but if
+ # --with-python_prefix was given, use its value for python_exec_prefix too.
+ AS_IF([test -n "$with_python_prefix"],
+ [am_python_exec_prefix_subst=$with_python_prefix
+ am_cv_python_exec_prefix=$with_python_prefix
+ AC_MSG_CHECKING([for python_prefix-given $am_display_PYTHON exec_prefix])
+ AC_MSG_RESULT([$am_cv_python_exec_prefix])],
+ [
+ # Set am__usable_exec_prefix whether using GNU or Python values,
+ # since we use that variable for pyexecdir.
+ if test "x$exec_prefix" = xNONE; then
+ am__usable_exec_prefix=$am__usable_prefix
+ else
+ am__usable_exec_prefix=$exec_prefix
+ fi
+ #
+ if $am_use_python_sys; then # using python sys.exec_prefix, not GNU
+ AC_CACHE_CHECK([for python default $am_display_PYTHON exec_prefix],
+ [am_cv_python_exec_prefix],
+ [am_cv_python_exec_prefix=`$PYTHON -c "import sys; sys.stdout.write(sys.exec_prefix)"`])
+ dnl If sys.exec_prefix is a subdir of $exec_prefix, replace the
+ dnl literal value of $exec_prefix with a variable reference so it can
+ dnl be overridden.
+ case $am_cv_python_exec_prefix in
+ $am__usable_exec_prefix*)
+ am__strip_prefix=`echo "$am__usable_exec_prefix" | sed 's|.|.|g'`
+ am_python_exec_prefix_subst=`echo "$am_cv_python_exec_prefix" | sed "s,^$am__strip_prefix,\\${exec_prefix},"`
+ ;;
+ *)
+ am_python_exec_prefix_subst=$am_cv_python_exec_prefix
+ ;;
+ esac
+ else # using GNU $exec_prefix, not python sys.exec_prefix
+ am_python_exec_prefix_subst='${exec_prefix}'
+ am_python_exec_prefix=$am_python_exec_prefix_subst
+ AC_MSG_CHECKING([for GNU default $am_display_PYTHON exec_prefix])
+ AC_MSG_RESULT([$am_python_exec_prefix])
+ fi])])
+ # Substituting python_exec_prefix_subst.
+ AC_SUBST([PYTHON_EXEC_PREFIX], [$am_python_exec_prefix_subst])
+
+ # Factor out some code duplication into this shell variable.
+ am_python_setup_sysconfig="\
+import sys
+# Prefer sysconfig over distutils.sysconfig, for better compatibility
+# with python 3.x. See automake bug#10227.
+try:
+ import sysconfig
+except ImportError:
+ can_use_sysconfig = 0
+else:
+ can_use_sysconfig = 1
+# Can't use sysconfig in CPython 2.7, since it's broken in virtualenvs:
+# <https://github.com/pypa/virtualenv/issues/118>
+try:
+ from platform import python_implementation
+ if python_implementation() == 'CPython' and sys.version[[:3]] == '2.7':
+ can_use_sysconfig = 0
+except ImportError:
+ pass"
+
+ dnl emacs-page Set up 4 directories:
+
+ dnl 1. pythondir: where to install python scripts. This is the
+ dnl site-packages directory, not the python standard library
+ dnl directory like in previous automake betas. This behavior
+ dnl is more consistent with lispdir.m4 for example.
+ dnl Query distutils for this directory.
+ dnl
+ AC_CACHE_CHECK([for $am_display_PYTHON script directory (pythondir)],
+ [am_cv_python_pythondir],
+ [if test "x$am_cv_python_prefix" = x; then
+ am_py_prefix=$am__usable_prefix
+ else
+ am_py_prefix=$am_cv_python_prefix
+ fi
+ am_cv_python_pythondir=`$PYTHON -c "
+$am_python_setup_sysconfig
+if can_use_sysconfig:
+ sitedir = sysconfig.get_path('purelib', vars={'base':'$am_py_prefix'})
+else:
+ from distutils import sysconfig
+ sitedir = sysconfig.get_python_lib(0, 0, prefix='$am_py_prefix')
+sys.stdout.write(sitedir)"`
+ #
+ case $am_cv_python_pythondir in
+ $am_py_prefix*)
+ am__strip_prefix=`echo "$am_py_prefix" | sed 's|.|.|g'`
+ am_cv_python_pythondir=`echo "$am_cv_python_pythondir" | sed "s,^$am__strip_prefix,\\${PYTHON_PREFIX},"`
+ ;;
+ *)
+ case $am_py_prefix in
+ /usr|/System*) ;;
+ *) am_cv_python_pythondir="\${PYTHON_PREFIX}/lib/python$PYTHON_VERSION/site-packages"
+ ;;
+ esac
+ ;;
+ esac
+ ])
+ AC_SUBST([pythondir], [$am_cv_python_pythondir])
+
+ dnl 2. pkgpythondir: $PACKAGE directory under pythondir. Was
+ dnl PYTHON_SITE_PACKAGE in previous betas, but this naming is
+ dnl more consistent with the rest of automake.
+ dnl
+ AC_SUBST([pkgpythondir], [\${pythondir}/$PACKAGE])
+
+ dnl 3. pyexecdir: directory for installing python extension modules
+ dnl (shared libraries).
+ dnl Query distutils for this directory.
+ dnl
+ AC_CACHE_CHECK([for $am_display_PYTHON extension module directory (pyexecdir)],
+ [am_cv_python_pyexecdir],
+ [if test "x$am_cv_python_exec_prefix" = x; then
+ am_py_exec_prefix=$am__usable_exec_prefix
+ else
+ am_py_exec_prefix=$am_cv_python_exec_prefix
+ fi
+ am_cv_python_pyexecdir=`$PYTHON -c "
+$am_python_setup_sysconfig
+if can_use_sysconfig:
+ sitedir = sysconfig.get_path('platlib', vars={'platbase':'$am_py_exec_prefix'})
+else:
+ from distutils import sysconfig
+ sitedir = sysconfig.get_python_lib(1, 0, prefix='$am_py_exec_prefix')
+sys.stdout.write(sitedir)"`
+ #
+ case $am_cv_python_pyexecdir in
+ $am_py_exec_prefix*)
+ am__strip_prefix=`echo "$am_py_exec_prefix" | sed 's|.|.|g'`
+ am_cv_python_pyexecdir=`echo "$am_cv_python_pyexecdir" | sed "s,^$am__strip_prefix,\\${PYTHON_EXEC_PREFIX},"`
+ ;;
+ *)
+ case $am_py_exec_prefix in
+ /usr|/System*) ;;
+ *) am_cv_python_pyexecdir="\${PYTHON_EXEC_PREFIX}/lib/python$PYTHON_VERSION/site-packages"
+ ;;
+ esac
+ ;;
+ esac
+ ])
+ AC_SUBST([pyexecdir], [$am_cv_python_pyexecdir])
+
+ dnl 4. pkgpyexecdir: $(pyexecdir)/$(PACKAGE)
+ dnl
+ AC_SUBST([pkgpyexecdir], [\${pyexecdir}/$PACKAGE])
+
+ dnl Run any user-specified action.
+ $2
+ fi
+])
+
+
+# AM_PYTHON_CHECK_VERSION(PROG, VERSION, [ACTION-IF-TRUE], [ACTION-IF-FALSE])
+# ---------------------------------------------------------------------------
+# Run ACTION-IF-TRUE if the Python interpreter PROG has version >= VERSION.
+# Run ACTION-IF-FALSE otherwise.
+# This test uses sys.hexversion instead of the string equivalent (first
+# word of sys.version), in order to cope with versions such as 2.2c1.
+# This supports Python 2.0 or higher. (2.0 was released on October 16, 2000).
+AC_DEFUN([AM_PYTHON_CHECK_VERSION],
+ [prog="import sys
+# split strings by '.' and convert to numeric. Append some zeros
+# because we need at least 4 digits for the hex conversion.
+# map returns an iterator in Python 3.0 and a list in 2.x
+minver = list(map(int, '$2'.split('.'))) + [[0, 0, 0]]
+minverhex = 0
+# xrange is not present in Python 3.0 and range returns an iterator
+for i in list(range(0, 4)): minverhex = (minverhex << 8) + minver[[i]]
+sys.exit(sys.hexversion < minverhex)"
+ AS_IF([AM_RUN_LOG([$1 -c "$prog"])], [$3], [$4])])
+
+# Copyright (C) 2001-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_RUN_LOG(COMMAND)
+# -------------------
+# Run COMMAND, save the exit status in ac_status, and log it.
+# (This has been adapted from Autoconf's _AC_RUN_LOG macro.)
+AC_DEFUN([AM_RUN_LOG],
+[{ echo "$as_me:$LINENO: $1" >&AS_MESSAGE_LOG_FD
+ ($1) >&AS_MESSAGE_LOG_FD 2>&AS_MESSAGE_LOG_FD
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
+ (exit $ac_status); }])
+
+# Check to make sure that the build environment is sane. -*- Autoconf -*-
+
+# Copyright (C) 1996-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_SANITY_CHECK
+# ---------------
+AC_DEFUN([AM_SANITY_CHECK],
+[AC_MSG_CHECKING([whether build environment is sane])
+# Reject unsafe characters in $srcdir or the absolute working directory
+# name. Accept space and tab only in the latter.
+am_lf='
+'
+case `pwd` in
+ *[[\\\"\#\$\&\'\`$am_lf]]*)
+ AC_MSG_ERROR([unsafe absolute working directory name]);;
+esac
+case $srcdir in
+ *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*)
+ AC_MSG_ERROR([unsafe srcdir value: '$srcdir']);;
+esac
+
+# Do 'set' in a subshell so we don't clobber the current shell's
+# arguments. Must try -L first in case configure is actually a
+# symlink; some systems play weird games with the mod time of symlinks
+# (eg FreeBSD returns the mod time of the symlink's containing
+# directory).
+if (
+ am_has_slept=no
+ for am_try in 1 2; do
+ echo "timestamp, slept: $am_has_slept" > conftest.file
+ set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
+ if test "$[*]" = "X"; then
+ # -L didn't work.
+ set X `ls -t "$srcdir/configure" conftest.file`
+ fi
+ if test "$[*]" != "X $srcdir/configure conftest.file" \
+ && test "$[*]" != "X conftest.file $srcdir/configure"; then
+
+ # If neither matched, then we have a broken ls. This can happen
+ # if, for instance, CONFIG_SHELL is bash and it inherits a
+ # broken ls alias from the environment. This has actually
+ # happened. Such a system could not be considered "sane".
+ AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken
+ alias in your environment])
+ fi
+ if test "$[2]" = conftest.file || test $am_try -eq 2; then
+ break
+ fi
+ # Just in case.
+ sleep 1
+ am_has_slept=yes
+ done
+ test "$[2]" = conftest.file
+ )
+then
+ # Ok.
+ :
+else
+ AC_MSG_ERROR([newly created file is older than distributed files!
+Check your system clock])
+fi
+AC_MSG_RESULT([yes])
+# If we didn't sleep, we still need to ensure time stamps of config.status and
+# generated files are strictly newer.
+am_sleep_pid=
+if grep 'slept: no' conftest.file >/dev/null 2>&1; then
+ ( sleep 1 ) &
+ am_sleep_pid=$!
+fi
+AC_CONFIG_COMMANDS_PRE(
+ [AC_MSG_CHECKING([that generated files are newer than configure])
+ if test -n "$am_sleep_pid"; then
+ # Hide warnings about reused PIDs.
+ wait $am_sleep_pid 2>/dev/null
+ fi
+ AC_MSG_RESULT([done])])
+rm -f conftest.file
+])
+
+# Copyright (C) 2009-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_SILENT_RULES([DEFAULT])
+# --------------------------
+# Enable less verbose build rules; with the default set to DEFAULT
+# ("yes" being less verbose, "no" or empty being verbose).
+AC_DEFUN([AM_SILENT_RULES],
+[AC_ARG_ENABLE([silent-rules], [dnl
+AS_HELP_STRING(
+ [--enable-silent-rules],
+ [less verbose build output (undo: "make V=1")])
+AS_HELP_STRING(
+ [--disable-silent-rules],
+ [verbose build output (undo: "make V=0")])dnl
+])
+case $enable_silent_rules in @%:@ (((
+ yes) AM_DEFAULT_VERBOSITY=0;;
+ no) AM_DEFAULT_VERBOSITY=1;;
+ *) AM_DEFAULT_VERBOSITY=m4_if([$1], [yes], [0], [1]);;
+esac
+dnl
+dnl A few 'make' implementations (e.g., NonStop OS and NextStep)
+dnl do not support nested variable expansions.
+dnl See automake bug#9928 and bug#10237.
+am_make=${MAKE-make}
+AC_CACHE_CHECK([whether $am_make supports nested variables],
+ [am_cv_make_support_nested_variables],
+ [if AS_ECHO([['TRUE=$(BAR$(V))
+BAR0=false
+BAR1=true
+V=1
+am__doit:
+ @$(TRUE)
+.PHONY: am__doit']]) | $am_make -f - >/dev/null 2>&1; then
+ am_cv_make_support_nested_variables=yes
+else
+ am_cv_make_support_nested_variables=no
+fi])
+if test $am_cv_make_support_nested_variables = yes; then
+ dnl Using '$V' instead of '$(V)' breaks IRIX make.
+ AM_V='$(V)'
+ AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)'
+else
+ AM_V=$AM_DEFAULT_VERBOSITY
+ AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY
+fi
+AC_SUBST([AM_V])dnl
+AM_SUBST_NOTMAKE([AM_V])dnl
+AC_SUBST([AM_DEFAULT_V])dnl
+AM_SUBST_NOTMAKE([AM_DEFAULT_V])dnl
+AC_SUBST([AM_DEFAULT_VERBOSITY])dnl
+AM_BACKSLASH='\'
+AC_SUBST([AM_BACKSLASH])dnl
+_AM_SUBST_NOTMAKE([AM_BACKSLASH])dnl
+])
+
+# Copyright (C) 2001-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# AM_PROG_INSTALL_STRIP
+# ---------------------
+# One issue with vendor 'install' (even GNU) is that you can't
+# specify the program used to strip binaries. This is especially
+# annoying in cross-compiling environments, where the build's strip
+# is unlikely to handle the host's binaries.
+# Fortunately install-sh will honor a STRIPPROG variable, so we
+# always use install-sh in "make install-strip", and initialize
+# STRIPPROG with the value of the STRIP variable (set by the user).
+AC_DEFUN([AM_PROG_INSTALL_STRIP],
+[AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
+# Installed binaries are usually stripped using 'strip' when the user
+# run "make install-strip". However 'strip' might not be the right
+# tool to use in cross-compilation environments, therefore Automake
+# will honor the 'STRIP' environment variable to overrule this program.
+dnl Don't test for $cross_compiling = yes, because it might be 'maybe'.
+if test "$cross_compiling" != no; then
+ AC_CHECK_TOOL([STRIP], [strip], :)
+fi
+INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
+AC_SUBST([INSTALL_STRIP_PROGRAM])])
+
+# Copyright (C) 2006-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# _AM_SUBST_NOTMAKE(VARIABLE)
+# ---------------------------
+# Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in.
+# This macro is traced by Automake.
+AC_DEFUN([_AM_SUBST_NOTMAKE])
+
+# AM_SUBST_NOTMAKE(VARIABLE)
+# --------------------------
+# Public sister of _AM_SUBST_NOTMAKE.
+AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)])
+
+# Check how to create a tarball. -*- Autoconf -*-
+
+# Copyright (C) 2004-2021 Free Software Foundation, Inc.
+#
+# This file 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.
+
+# _AM_PROG_TAR(FORMAT)
+# --------------------
+# Check how to create a tarball in format FORMAT.
+# FORMAT should be one of 'v7', 'ustar', or 'pax'.
+#
+# Substitute a variable $(am__tar) that is a command
+# writing to stdout a FORMAT-tarball containing the directory
+# $tardir.
+# tardir=directory && $(am__tar) > result.tar
+#
+# Substitute a variable $(am__untar) that extract such
+# a tarball read from stdin.
+# $(am__untar) < result.tar
+#
+AC_DEFUN([_AM_PROG_TAR],
+[# Always define AMTAR for backward compatibility. Yes, it's still used
+# in the wild :-( We should find a proper way to deprecate it ...
+AC_SUBST([AMTAR], ['$${TAR-tar}'])
+
+# We'll loop over all known methods to create a tar archive until one works.
+_am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none'
+
+m4_if([$1], [v7],
+ [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'],
+
+ [m4_case([$1],
+ [ustar],
+ [# The POSIX 1988 'ustar' format is defined with fixed-size fields.
+ # There is notably a 21 bits limit for the UID and the GID. In fact,
+ # the 'pax' utility can hang on bigger UID/GID (see automake bug#8343
+ # and bug#13588).
+ am_max_uid=2097151 # 2^21 - 1
+ am_max_gid=$am_max_uid
+ # The $UID and $GID variables are not portable, so we need to resort
+ # to the POSIX-mandated id(1) utility. Errors in the 'id' calls
+ # below are definitely unexpected, so allow the users to see them
+ # (that is, avoid stderr redirection).
+ am_uid=`id -u || echo unknown`
+ am_gid=`id -g || echo unknown`
+ AC_MSG_CHECKING([whether UID '$am_uid' is supported by ustar format])
+ if test $am_uid -le $am_max_uid; then
+ AC_MSG_RESULT([yes])
+ else
+ AC_MSG_RESULT([no])
+ _am_tools=none
+ fi
+ AC_MSG_CHECKING([whether GID '$am_gid' is supported by ustar format])
+ if test $am_gid -le $am_max_gid; then
+ AC_MSG_RESULT([yes])
+ else
+ AC_MSG_RESULT([no])
+ _am_tools=none
+ fi],
+
+ [pax],
+ [],
+
+ [m4_fatal([Unknown tar format])])
+
+ AC_MSG_CHECKING([how to create a $1 tar archive])
+
+ # Go ahead even if we have the value already cached. We do so because we
+ # need to set the values for the 'am__tar' and 'am__untar' variables.
+ _am_tools=${am_cv_prog_tar_$1-$_am_tools}
+
+ for _am_tool in $_am_tools; do
+ case $_am_tool in
+ gnutar)
+ for _am_tar in tar gnutar gtar; do
+ AM_RUN_LOG([$_am_tar --version]) && break
+ done
+ am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"'
+ am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"'
+ am__untar="$_am_tar -xf -"
+ ;;
+ plaintar)
+ # Must skip GNU tar: if it does not support --format= it doesn't create
+ # ustar tarball either.
+ (tar --version) >/dev/null 2>&1 && continue
+ am__tar='tar chf - "$$tardir"'
+ am__tar_='tar chf - "$tardir"'
+ am__untar='tar xf -'
+ ;;
+ pax)
+ am__tar='pax -L -x $1 -w "$$tardir"'
+ am__tar_='pax -L -x $1 -w "$tardir"'
+ am__untar='pax -r'
+ ;;
+ cpio)
+ am__tar='find "$$tardir" -print | cpio -o -H $1 -L'
+ am__tar_='find "$tardir" -print | cpio -o -H $1 -L'
+ am__untar='cpio -i -H $1 -d'
+ ;;
+ none)
+ am__tar=false
+ am__tar_=false
+ am__untar=false
+ ;;
+ esac
+
+ # If the value was cached, stop now. We just wanted to have am__tar
+ # and am__untar set.
+ test -n "${am_cv_prog_tar_$1}" && break
+
+ # tar/untar a dummy directory, and stop if the command works.
+ rm -rf conftest.dir
+ mkdir conftest.dir
+ echo GrepMe > conftest.dir/file
+ AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar])
+ rm -rf conftest.dir
+ if test -s conftest.tar; then
+ AM_RUN_LOG([$am__untar <conftest.tar])
+ AM_RUN_LOG([cat conftest.dir/file])
+ grep GrepMe conftest.dir/file >/dev/null 2>&1 && break
+ fi
+ done
+ rm -rf conftest.dir
+
+ AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool])
+ AC_MSG_RESULT([$am_cv_prog_tar_$1])])
+
+AC_SUBST([am__tar])
+AC_SUBST([am__untar])
+]) # _AM_PROG_TAR
+
+m4_include([m4/acx_assert_lang_is_fortran_variant.m4])
+m4_include([m4/acx_c_package.m4])
+m4_include([m4/acx_cfortran_flags.m4])
+m4_include([m4/acx_check_cfortran.m4])
+m4_include([m4/acx_check_strptr_convert.m4])
+m4_include([m4/acx_execinfo.m4])
+m4_include([m4/acx_fortran_check_include.m4])
+m4_include([m4/acx_fortran_include_flag.m4])
+m4_include([m4/acx_fortran_package.m4])
+m4_include([m4/acx_lang_check_include.m4])
+m4_include([m4/acx_lang_package.m4])
+m4_include([m4/acx_lt_problems.m4])
+m4_include([m4/acx_m4_list_to_quoted_strings.m4])
+m4_include([m4/acx_mpirun.m4])
+m4_include([m4/acx_mv_obj.m4])
+m4_include([m4/acx_option_search_libs.m4])
+m4_include([m4/acx_options.m4])
+m4_include([m4/acx_prog_cc_posix.m4])
+m4_include([m4/acx_sl_fc_mod_path_flag.m4])
+m4_include([m4/acx_sl_mod_suffix.m4])
+m4_include([m4/acx_tls_xlc_retry.m4])
+m4_include([m4/acx_use_libtool_configuration.m4])
+m4_include([m4/acx_uuid.m4])
+m4_include([m4/asx_tr_arg.m4])
+m4_include([m4/asx_unset.m4])
+m4_include([m4/ax_pthread.m4])
+m4_include([m4/ax_python_devel.m4])
+m4_include([m4/ax_tls.m4])
+m4_include([m4/kpse_libtool.m4])
+m4_include([m4/libtool.m4])
+m4_include([m4/ltoptions.m4])
+m4_include([m4/ltsugar.m4])
+m4_include([m4/ltversion.m4])
+m4_include([m4/lt~obsolete.m4])
+m4_include([m4/pkg.m4])
+m4_include([acinclude.m4])
diff --git a/app/Makefile.in b/app/Makefile.in
new file mode 100644
index 000000000..b8fe5112d
--- /dev/null
+++ b/app/Makefile.in
@@ -0,0 +1,845 @@
+# Makefile.in generated by automake 1.16.5 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2021 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.
+
+@SET_MAKE@
+
+VPATH = @srcdir@
+am__is_gnu_make = { \
+ if test -z '$(MAKELEVEL)'; then \
+ false; \
+ elif test -n '$(MAKE_HOST)'; then \
+ true; \
+ elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
+ true; \
+ else \
+ false; \
+ fi; \
+}
+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 = $(am__EXEEXT_1)
+noinst_PROGRAMS = $(am__EXEEXT_3) $(am__EXEEXT_4) $(am__EXEEXT_5)
+check_PROGRAMS = $(am__EXEEXT_2)
+@ENABLE_CDI_APP_TRUE@@ENABLE_CDI_LIB_TRUE@am__append_1 = cdi
+@ENABLE_CDI_APP_TRUE@@ENABLE_CDI_LIB_FALSE@am__append_2 = cdi
+@ENABLE_CDI_APP_TRUE@am__append_3 = createtable
+@ENABLE_CDI_APP_FALSE@@with_on_demand_check_programs_TRUE@am__append_4 = cdi
+@ENABLE_CDI_APP_FALSE@@with_on_demand_check_programs_FALSE@am__append_5 = cdi
+@ENABLE_ALL_STATIC_TRUE@am__append_6 = -all-static
+subdir = app
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = \
+ $(top_srcdir)/m4/acx_assert_lang_is_fortran_variant.m4 \
+ $(top_srcdir)/m4/acx_c_package.m4 \
+ $(top_srcdir)/m4/acx_cfortran_flags.m4 \
+ $(top_srcdir)/m4/acx_check_cfortran.m4 \
+ $(top_srcdir)/m4/acx_check_strptr_convert.m4 \
+ $(top_srcdir)/m4/acx_execinfo.m4 \
+ $(top_srcdir)/m4/acx_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_fortran_include_flag.m4 \
+ $(top_srcdir)/m4/acx_fortran_package.m4 \
+ $(top_srcdir)/m4/acx_lang_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_package.m4 \
+ $(top_srcdir)/m4/acx_lt_problems.m4 \
+ $(top_srcdir)/m4/acx_m4_list_to_quoted_strings.m4 \
+ $(top_srcdir)/m4/acx_mpirun.m4 $(top_srcdir)/m4/acx_mv_obj.m4 \
+ $(top_srcdir)/m4/acx_option_search_libs.m4 \
+ $(top_srcdir)/m4/acx_options.m4 \
+ $(top_srcdir)/m4/acx_prog_cc_posix.m4 \
+ $(top_srcdir)/m4/acx_sl_fc_mod_path_flag.m4 \
+ $(top_srcdir)/m4/acx_sl_mod_suffix.m4 \
+ $(top_srcdir)/m4/acx_tls_xlc_retry.m4 \
+ $(top_srcdir)/m4/acx_use_libtool_configuration.m4 \
+ $(top_srcdir)/m4/acx_uuid.m4 $(top_srcdir)/m4/asx_tr_arg.m4 \
+ $(top_srcdir)/m4/asx_unset.m4 $(top_srcdir)/m4/ax_pthread.m4 \
+ $(top_srcdir)/m4/ax_python_devel.m4 $(top_srcdir)/m4/ax_tls.m4 \
+ $(top_srcdir)/m4/kpse_libtool.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)/m4/pkg.m4 $(top_srcdir)/acinclude.m4 \
+ $(top_srcdir)/m4/ac_lang_program_fortran.m4 \
+ $(top_srcdir)/m4/acx_lang_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_c_check_include.m4 \
+ $(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+ $(ACLOCAL_M4)
+DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = $(top_builddir)/src/config.h
+CONFIG_CLEAN_FILES =
+CONFIG_CLEAN_VPATH_FILES =
+@ENABLE_CDI_APP_TRUE@@ENABLE_CDI_LIB_TRUE@am__EXEEXT_1 = cdi$(EXEEXT)
+am__installdirs = "$(DESTDIR)$(bindir)"
+@ENABLE_CDI_APP_FALSE@@with_on_demand_check_programs_TRUE@am__EXEEXT_2 = cdi$(EXEEXT)
+@ENABLE_CDI_APP_TRUE@@ENABLE_CDI_LIB_FALSE@am__EXEEXT_3 = \
+@ENABLE_CDI_APP_TRUE@@ENABLE_CDI_LIB_FALSE@ cdi$(EXEEXT)
+@ENABLE_CDI_APP_TRUE@am__EXEEXT_4 = createtable$(EXEEXT)
+@ENABLE_CDI_APP_FALSE@@with_on_demand_check_programs_FALSE@am__EXEEXT_5 = cdi$(EXEEXT)
+PROGRAMS = $(bin_PROGRAMS) $(noinst_PROGRAMS)
+am_cdi_OBJECTS = cdi.$(OBJEXT) printinfo.$(OBJEXT)
+cdi_OBJECTS = $(am_cdi_OBJECTS)
+cdi_LDADD = $(LDADD)
+cdi_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+AM_V_lt = $(am__v_lt_@AM_V@)
+am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
+am__v_lt_0 = --silent
+am__v_lt_1 =
+am_createtable_OBJECTS = createtable.$(OBJEXT)
+createtable_OBJECTS = $(am_createtable_OBJECTS)
+createtable_LDADD = $(LDADD)
+createtable_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+AM_V_P = $(am__v_P_@AM_V@)
+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_@AM_V@)
+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
+am__v_GEN_0 = @echo " GEN " $@;
+am__v_GEN_1 =
+AM_V_at = $(am__v_at_@AM_V@)
+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
+am__v_at_0 = @
+am__v_at_1 =
+DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/src
+depcomp = $(SHELL) $(top_srcdir)/config/depcomp
+am__maybe_remake_depfiles = depfiles
+am__depfiles_remade = ./$(DEPDIR)/cdi.Po ./$(DEPDIR)/createtable.Po \
+ ./$(DEPDIR)/printinfo.Po
+am__mv = mv -f
+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_@AM_V@)
+am__v_CC_ = $(am__v_CC_@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_@AM_V@)
+am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
+am__v_CCLD_0 = @echo " CCLD " $@;
+am__v_CCLD_1 =
+SOURCES = $(cdi_SOURCES) $(createtable_SOURCES)
+DIST_SOURCES = $(cdi_SOURCES) $(createtable_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
+am__extra_recursive_targets = examples-recursive
+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)`
+am__DIST_COMMON = $(srcdir)/Makefile.in $(top_srcdir)/config/depcomp
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CSCOPE = @CSCOPE@
+CTAGS = @CTAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DCE_UUIDROOT = @DCE_UUIDROOT@
+DCE_UUID_C_INCLUDE = @DCE_UUID_C_INCLUDE@
+DCE_UUID_C_LIB = @DCE_UUID_C_LIB@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECCODES_INCLUDE = @ECCODES_INCLUDE@
+ECCODES_LIBS = @ECCODES_LIBS@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+ENABLE_ACROSS = @ENABLE_ACROSS@
+ENABLE_CDI_LIB = @ENABLE_CDI_LIB@
+ENABLE_CGRIBEX = @ENABLE_CGRIBEX@
+ENABLE_EXTRA = @ENABLE_EXTRA@
+ENABLE_GRIB = @ENABLE_GRIB@
+ENABLE_IEG = @ENABLE_IEG@
+ENABLE_MPI = @ENABLE_MPI@
+ENABLE_NC2 = @ENABLE_NC2@
+ENABLE_NC4 = @ENABLE_NC4@
+ENABLE_NC4HDF5 = @ENABLE_NC4HDF5@
+ENABLE_NC4SZLIB = @ENABLE_NC4SZLIB@
+ENABLE_NETCDF = @ENABLE_NETCDF@
+ENABLE_SERVICE = @ENABLE_SERVICE@
+ETAGS = @ETAGS@
+EXEEXT = @EXEEXT@
+F77 = @F77@
+FC = @FC@
+FCFLAGS = @FCFLAGS@
+FCFLAGS_f90 = @FCFLAGS_f90@
+FCMODCASE = @FCMODCASE@
+FCMODEXT = @FCMODEXT@
+FC_DEFINE = @FC_DEFINE@
+FC_MOD_FLAG = @FC_MOD_FLAG@
+FC_OPTINC = @FC_OPTINC@
+FDB5_INCLUDE = @FDB5_INCLUDE@
+FDB5_LIBS = @FDB5_LIBS@
+FFLAGS = @FFLAGS@
+FGREP = @FGREP@
+GREP = @GREP@
+GRIB_API_INCLUDE = @GRIB_API_INCLUDE@
+GRIB_API_LIBS = @GRIB_API_LIBS@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBRT = @LIBRT@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
+MAINT = @MAINT@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+MPIROOT = @MPIROOT@
+MPI_C_INCLUDE = @MPI_C_INCLUDE@
+MPI_C_LIB = @MPI_C_LIB@
+MPI_FC_LIB = @MPI_FC_LIB@
+MPI_FC_MOD = @MPI_FC_MOD@
+MPI_LAUNCH = @MPI_LAUNCH@
+NC_CONFIG = @NC_CONFIG@
+NETCDF_INCLUDE = @NETCDF_INCLUDE@
+NETCDF_LIBS = @NETCDF_LIBS@
+NETCDF_ROOT = @NETCDF_ROOT@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OPENMP_CFLAGS = @OPENMP_CFLAGS@
+OSSP_UUIDROOT = @OSSP_UUIDROOT@
+OSSP_UUID_C_INCLUDE = @OSSP_UUID_C_INCLUDE@
+OSSP_UUID_C_LIB = @OSSP_UUID_C_LIB@
+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@
+PKG_CONFIG = @PKG_CONFIG@
+PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
+PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
+PPM_CORE_C_INCLUDE = @PPM_CORE_C_INCLUDE@
+PPM_CORE_C_LIB = @PPM_CORE_C_LIB@
+PTHREAD_CC = @PTHREAD_CC@
+PTHREAD_CFLAGS = @PTHREAD_CFLAGS@
+PTHREAD_CXX = @PTHREAD_CXX@
+PTHREAD_LIBS = @PTHREAD_LIBS@
+PYTHON = @PYTHON@
+PYTHON_CPPFLAGS = @PYTHON_CPPFLAGS@
+PYTHON_EXEC_PREFIX = @PYTHON_EXEC_PREFIX@
+PYTHON_EXTRA_LDFLAGS = @PYTHON_EXTRA_LDFLAGS@
+PYTHON_EXTRA_LIBS = @PYTHON_EXTRA_LIBS@
+PYTHON_LIBS = @PYTHON_LIBS@
+PYTHON_PLATFORM = @PYTHON_PLATFORM@
+PYTHON_PLATFORM_SITE_PKG = @PYTHON_PLATFORM_SITE_PKG@
+PYTHON_PREFIX = @PYTHON_PREFIX@
+PYTHON_SITE_PKG = @PYTHON_SITE_PKG@
+PYTHON_VERSION = @PYTHON_VERSION@
+RANLIB = @RANLIB@
+RUBY = @RUBY@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+SWIG = @SWIG@
+SYSTEM_TYPE = @SYSTEM_TYPE@
+SZLIB_INCLUDE = @SZLIB_INCLUDE@
+SZLIB_LIBS = @SZLIB_LIBS@
+THREADS_INCLUDE = @THREADS_INCLUDE@
+THREADS_LIBS = @THREADS_LIBS@
+UTIL_LINUX_UUIDROOT = @UTIL_LINUX_UUIDROOT@
+UTIL_LINUX_UUID_C_INCLUDE = @UTIL_LINUX_UUID_C_INCLUDE@
+UTIL_LINUX_UUID_C_LIB = @UTIL_LINUX_UUID_C_LIB@
+UUID_C_INCLUDE = @UUID_C_INCLUDE@
+UUID_C_LIB = @UUID_C_LIB@
+VERSION = @VERSION@
+YAXT_C_INCLUDE = @YAXT_C_INCLUDE@
+YAXT_C_LIB = @YAXT_C_LIB@
+YAXT_FC_LIB = @YAXT_FC_LIB@
+YAXT_FC_MOD = @YAXT_FC_MOD@
+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@
+ac_ct_F77 = @ac_ct_F77@
+ac_ct_FC = @ac_ct_FC@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+ax_pthread_config = @ax_pthread_config@
+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@
+pkgpyexecdir = @pkgpyexecdir@
+pkgpythondir = @pkgpythondir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+pyexecdir = @pyexecdir@
+pythondir = @pythondir@
+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@
+AM_CPPFLAGS = -I$(top_srcdir)/src
+AM_LDFLAGS = $(am__append_6)
+LDADD = $(top_builddir)/src/libcdi.la
+cdi_SOURCES = \
+ cdi.c \
+ printinfo.c \
+ printinfo.h
+
+createtable_SOURCES = createtable.c
+
+# Compile programs using Libtool:
+COMPILE = $(LTCOMPILE)
+FCCOMPILE = $(LTFCCOMPILE)
+PPFCCOMPILE = $(LTPPFCCOMPILE)
+CXXCOMPILE = $(LTCXXCOMPILE)
+
+# Compile *.F90 without CPPFLAGS, which are normally meant for the C compiler
+# and might not be compatible with the Fortran compiler:
+LTPPFCCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
+
+
+# Avoid compiling twice by running Libtool with '-static'
+# This is safe because all Libtool libraries in this directory are
+# static-only and contain PIC objects:
+AM_CFLAGS = -static
+AM_FCFLAGS = -static
+AM_CXXFLAGS = -static
+all: all-am
+
+.SUFFIXES:
+.SUFFIXES: .c .lo .o .obj
+$(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 app/Makefile'; \
+ $(am__cd) $(top_srcdir) && \
+ $(AUTOMAKE) --foreign app/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__maybe_remake_depfiles)'; \
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
+ 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-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-checkPROGRAMS:
+ @list='$(check_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
+
+cdi$(EXEEXT): $(cdi_OBJECTS) $(cdi_DEPENDENCIES) $(EXTRA_cdi_DEPENDENCIES)
+ @rm -f cdi$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_OBJECTS) $(cdi_LDADD) $(LIBS)
+
+createtable$(EXEEXT): $(createtable_OBJECTS) $(createtable_DEPENDENCIES) $(EXTRA_createtable_DEPENDENCIES)
+ @rm -f createtable$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(createtable_OBJECTS) $(createtable_LDADD) $(LIBS)
+
+mostlyclean-compile:
+ -rm -f *.$(OBJEXT)
+
+distclean-compile:
+ -rm -f *.tab.c
+
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/createtable.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/printinfo.Po@am__quote@ # am--include-marker
+
+$(am__depfiles_remade):
+ @$(MKDIR_P) $(@D)
+ @echo '# dummy' >$@-t && $(am__mv) $@-t $@
+
+am--depfiles: $(am__depfiles_remade)
+
+.c.o:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
+
+.c.obj:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
+
+.c.lo:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
+
+mostlyclean-libtool:
+ -rm -f *.lo
+
+clean-libtool:
+ -rm -rf .libs _libs
+examples-local:
+
+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: $(BUILT_SOURCES)
+ $(MAKE) $(AM_MAKEFLAGS) distdir-am
+
+distdir-am: $(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
+ $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS)
+check: check-am
+all-am: Makefile $(PROGRAMS)
+installdirs:
+ for dir in "$(DESTDIR)$(bindir)"; 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:
+
+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."
+clean: clean-am
+
+clean-am: clean-binPROGRAMS clean-checkPROGRAMS clean-generic \
+ clean-libtool clean-local clean-noinstPROGRAMS mostlyclean-am
+
+distclean: distclean-am
+ -rm -f ./$(DEPDIR)/cdi.Po
+ -rm -f ./$(DEPDIR)/createtable.Po
+ -rm -f ./$(DEPDIR)/printinfo.Po
+ -rm -f Makefile
+distclean-am: clean-am distclean-compile distclean-generic \
+ distclean-tags
+
+dvi: dvi-am
+
+dvi-am:
+
+examples: examples-am
+
+examples-am: examples-local
+
+html: html-am
+
+html-am:
+
+info: info-am
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-am
+
+install-dvi-am:
+
+install-exec-am: install-binPROGRAMS
+
+install-html: install-html-am
+
+install-html-am:
+
+install-info: install-info-am
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-am
+
+install-pdf-am:
+
+install-ps: install-ps-am
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+ -rm -f ./$(DEPDIR)/cdi.Po
+ -rm -f ./$(DEPDIR)/createtable.Po
+ -rm -f ./$(DEPDIR)/printinfo.Po
+ -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
+
+.MAKE: check-am install-am install-strip
+
+.PHONY: CTAGS GTAGS TAGS all all-am am--depfiles check check-am clean \
+ clean-binPROGRAMS clean-checkPROGRAMS clean-generic \
+ clean-libtool clean-local clean-noinstPROGRAMS cscopelist-am \
+ ctags ctags-am distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am \
+ examples-am examples-local 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-man 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
+
+.PRECIOUS: Makefile
+
+
+clean-local:
+ -rm -rf *.dSYM
+
+# 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/config/compile b/config/compile
new file mode 100755
index 000000000..df363c8fb
--- /dev/null
+++ b/config/compile
@@ -0,0 +1,348 @@
+#! /bin/sh
+# Wrapper for compilers which do not understand '-c -o'.
+
+scriptversion=2018-03-07.03; # UTC
+
+# Copyright (C) 1999-2021 Free Software Foundation, Inc.
+# Written by Tom Tromey <tromey@cygnus.com>.
+#
+# 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 2, 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 <https://www.gnu.org/licenses/>.
+
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+# This file is maintained in Automake, please report
+# bugs to <bug-automake@gnu.org> or send patches to
+# <automake-patches@gnu.org>.
+
+nl='
+'
+
+# We need space, tab and new line, in precisely that order. Quoting is
+# there to prevent tools from complaining about whitespace usage.
+IFS=" "" $nl"
+
+file_conv=
+
+# func_file_conv build_file lazy
+# Convert a $build file to $host form and store it in $file
+# Currently only supports Windows hosts. If the determined conversion
+# type is listed in (the comma separated) LAZY, no conversion will
+# take place.
+func_file_conv ()
+{
+ file=$1
+ case $file in
+ / | /[!/]*) # absolute file, and not a UNC file
+ if test -z "$file_conv"; then
+ # lazily determine how to convert abs files
+ case `uname -s` in
+ MINGW*)
+ file_conv=mingw
+ ;;
+ CYGWIN* | MSYS*)
+ file_conv=cygwin
+ ;;
+ *)
+ file_conv=wine
+ ;;
+ esac
+ fi
+ case $file_conv/,$2, in
+ *,$file_conv,*)
+ ;;
+ mingw/*)
+ file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'`
+ ;;
+ cygwin/* | msys/*)
+ file=`cygpath -m "$file" || echo "$file"`
+ ;;
+ wine/*)
+ file=`winepath -w "$file" || echo "$file"`
+ ;;
+ esac
+ ;;
+ esac
+}
+
+# func_cl_dashL linkdir
+# Make cl look for libraries in LINKDIR
+func_cl_dashL ()
+{
+ func_file_conv "$1"
+ if test -z "$lib_path"; then
+ lib_path=$file
+ else
+ lib_path="$lib_path;$file"
+ fi
+ linker_opts="$linker_opts -LIBPATH:$file"
+}
+
+# func_cl_dashl library
+# Do a library search-path lookup for cl
+func_cl_dashl ()
+{
+ lib=$1
+ found=no
+ save_IFS=$IFS
+ IFS=';'
+ for dir in $lib_path $LIB
+ do
+ IFS=$save_IFS
+ if $shared && test -f "$dir/$lib.dll.lib"; then
+ found=yes
+ lib=$dir/$lib.dll.lib
+ break
+ fi
+ if test -f "$dir/$lib.lib"; then
+ found=yes
+ lib=$dir/$lib.lib
+ break
+ fi
+ if test -f "$dir/lib$lib.a"; then
+ found=yes
+ lib=$dir/lib$lib.a
+ break
+ fi
+ done
+ IFS=$save_IFS
+
+ if test "$found" != yes; then
+ lib=$lib.lib
+ fi
+}
+
+# func_cl_wrapper cl arg...
+# Adjust compile command to suit cl
+func_cl_wrapper ()
+{
+ # Assume a capable shell
+ lib_path=
+ shared=:
+ linker_opts=
+ for arg
+ do
+ if test -n "$eat"; then
+ eat=
+ else
+ case $1 in
+ -o)
+ # configure might choose to run compile as 'compile cc -o foo foo.c'.
+ eat=1
+ case $2 in
+ *.o | *.[oO][bB][jJ])
+ func_file_conv "$2"
+ set x "$@" -Fo"$file"
+ shift
+ ;;
+ *)
+ func_file_conv "$2"
+ set x "$@" -Fe"$file"
+ shift
+ ;;
+ esac
+ ;;
+ -I)
+ eat=1
+ func_file_conv "$2" mingw
+ set x "$@" -I"$file"
+ shift
+ ;;
+ -I*)
+ func_file_conv "${1#-I}" mingw
+ set x "$@" -I"$file"
+ shift
+ ;;
+ -l)
+ eat=1
+ func_cl_dashl "$2"
+ set x "$@" "$lib"
+ shift
+ ;;
+ -l*)
+ func_cl_dashl "${1#-l}"
+ set x "$@" "$lib"
+ shift
+ ;;
+ -L)
+ eat=1
+ func_cl_dashL "$2"
+ ;;
+ -L*)
+ func_cl_dashL "${1#-L}"
+ ;;
+ -static)
+ shared=false
+ ;;
+ -Wl,*)
+ arg=${1#-Wl,}
+ save_ifs="$IFS"; IFS=','
+ for flag in $arg; do
+ IFS="$save_ifs"
+ linker_opts="$linker_opts $flag"
+ done
+ IFS="$save_ifs"
+ ;;
+ -Xlinker)
+ eat=1
+ linker_opts="$linker_opts $2"
+ ;;
+ -*)
+ set x "$@" "$1"
+ shift
+ ;;
+ *.cc | *.CC | *.cxx | *.CXX | *.[cC]++)
+ func_file_conv "$1"
+ set x "$@" -Tp"$file"
+ shift
+ ;;
+ *.c | *.cpp | *.CPP | *.lib | *.LIB | *.Lib | *.OBJ | *.obj | *.[oO])
+ func_file_conv "$1" mingw
+ set x "$@" "$file"
+ shift
+ ;;
+ *)
+ set x "$@" "$1"
+ shift
+ ;;
+ esac
+ fi
+ shift
+ done
+ if test -n "$linker_opts"; then
+ linker_opts="-link$linker_opts"
+ fi
+ exec "$@" $linker_opts
+ exit 1
+}
+
+eat=
+
+case $1 in
+ '')
+ echo "$0: No command. Try '$0 --help' for more information." 1>&2
+ exit 1;
+ ;;
+ -h | --h*)
+ cat <<\EOF
+Usage: compile [--help] [--version] PROGRAM [ARGS]
+
+Wrapper for compilers which do not understand '-c -o'.
+Remove '-o dest.o' from ARGS, run PROGRAM with the remaining
+arguments, and rename the output as expected.
+
+If you are trying to build a whole package this is not the
+right script to run: please start by reading the file 'INSTALL'.
+
+Report bugs to <bug-automake@gnu.org>.
+EOF
+ exit $?
+ ;;
+ -v | --v*)
+ echo "compile $scriptversion"
+ exit $?
+ ;;
+ cl | *[/\\]cl | cl.exe | *[/\\]cl.exe | \
+ icl | *[/\\]icl | icl.exe | *[/\\]icl.exe )
+ func_cl_wrapper "$@" # Doesn't return...
+ ;;
+esac
+
+ofile=
+cfile=
+
+for arg
+do
+ if test -n "$eat"; then
+ eat=
+ else
+ case $1 in
+ -o)
+ # configure might choose to run compile as 'compile cc -o foo foo.c'.
+ # So we strip '-o arg' only if arg is an object.
+ eat=1
+ case $2 in
+ *.o | *.obj)
+ ofile=$2
+ ;;
+ *)
+ set x "$@" -o "$2"
+ shift
+ ;;
+ esac
+ ;;
+ *.c)
+ cfile=$1
+ set x "$@" "$1"
+ shift
+ ;;
+ *)
+ set x "$@" "$1"
+ shift
+ ;;
+ esac
+ fi
+ shift
+done
+
+if test -z "$ofile" || test -z "$cfile"; then
+ # If no '-o' option was seen then we might have been invoked from a
+ # pattern rule where we don't need one. That is ok -- this is a
+ # normal compilation that the losing compiler can handle. If no
+ # '.c' file was seen then we are probably linking. That is also
+ # ok.
+ exec "$@"
+fi
+
+# Name of file we expect compiler to create.
+cofile=`echo "$cfile" | sed 's|^.*[\\/]||; s|^[a-zA-Z]:||; s/\.c$/.o/'`
+
+# Create the lock directory.
+# Note: use '[/\\:.-]' here to ensure that we don't use the same name
+# that we are using for the .o file. Also, base the name on the expected
+# object file name, since that is what matters with a parallel build.
+lockdir=`echo "$cofile" | sed -e 's|[/\\:.-]|_|g'`.d
+while true; do
+ if mkdir "$lockdir" >/dev/null 2>&1; then
+ break
+ fi
+ sleep 1
+done
+# FIXME: race condition here if user kills between mkdir and trap.
+trap "rmdir '$lockdir'; exit 1" 1 2 15
+
+# Run the compile.
+"$@"
+ret=$?
+
+if test -f "$cofile"; then
+ test "$cofile" = "$ofile" || mv "$cofile" "$ofile"
+elif test -f "${cofile}bj"; then
+ test "${cofile}bj" = "$ofile" || mv "${cofile}bj" "$ofile"
+fi
+
+rmdir "$lockdir"
+exit $ret
+
+# Local Variables:
+# mode: shell-script
+# sh-indentation: 2
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-start: "scriptversion="
+# time-stamp-format: "%:y-%02m-%02d.%02H"
+# time-stamp-time-zone: "UTC0"
+# time-stamp-end: "; # UTC"
+# End:
diff --git a/config/config.guess b/config/config.guess
new file mode 100755
index 000000000..f6d217a49
--- /dev/null
+++ b/config/config.guess
@@ -0,0 +1,1812 @@
+#! /bin/sh
+# Attempt to guess a canonical system name.
+# Copyright 1992-2024 Free Software Foundation, Inc.
+
+# shellcheck disable=SC2006,SC2268 # see below for rationale
+
+timestamp='2024-01-01'
+
+# This file 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 <https://www.gnu.org/licenses/>.
+#
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that
+# program. This Exception is an additional permission under section 7
+# of the GNU General Public License, version 3 ("GPLv3").
+#
+# Originally written by Per Bothner; maintained since 2000 by Ben Elliston.
+#
+# You can get the latest version of this script from:
+# https://git.savannah.gnu.org/cgit/config.git/plain/config.guess
+#
+# Please send patches to <config-patches@gnu.org>.
+
+
+# The "shellcheck disable" line above the timestamp inhibits complaints
+# about features and limitations of the classic Bourne shell that were
+# superseded or lifted in POSIX. However, this script identifies a wide
+# variety of pre-POSIX systems that do not have POSIX shells at all, and
+# even some reasonably current systems (Solaris 10 as case-in-point) still
+# have a pre-POSIX /bin/sh.
+
+
+me=`echo "$0" | sed -e 's,.*/,,'`
+
+usage="\
+Usage: $0 [OPTION]
+
+Output the configuration name of the system '$me' is run on.
+
+Options:
+ -h, --help print this help, then exit
+ -t, --time-stamp print date of last modification, then exit
+ -v, --version print version number, then exit
+
+Report bugs and patches to <config-patches@gnu.org>."
+
+version="\
+GNU config.guess ($timestamp)
+
+Originally written by Per Bothner.
+Copyright 1992-2024 Free Software Foundation, Inc.
+
+This is free software; see the source for copying conditions. There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
+
+help="
+Try '$me --help' for more information."
+
+# Parse command line
+while test $# -gt 0 ; do
+ case $1 in
+ --time-stamp | --time* | -t )
+ echo "$timestamp" ; exit ;;
+ --version | -v )
+ echo "$version" ; exit ;;
+ --help | --h* | -h )
+ echo "$usage"; exit ;;
+ -- ) # Stop option processing
+ shift; break ;;
+ - ) # Use stdin as input.
+ break ;;
+ -* )
+ echo "$me: invalid option $1$help" >&2
+ exit 1 ;;
+ * )
+ break ;;
+ esac
+done
+
+if test $# != 0; then
+ echo "$me: too many arguments$help" >&2
+ exit 1
+fi
+
+# Just in case it came from the environment.
+GUESS=
+
+# CC_FOR_BUILD -- compiler used by this script. Note that the use of a
+# compiler to aid in system detection is discouraged as it requires
+# temporary files to be created and, as you can see below, it is a
+# headache to deal with in a portable fashion.
+
+# Historically, 'CC_FOR_BUILD' used to be named 'HOST_CC'. We still
+# use 'HOST_CC' if defined, but it is deprecated.
+
+# Portable tmp directory creation inspired by the Autoconf team.
+
+tmp=
+# shellcheck disable=SC2172
+trap 'test -z "$tmp" || rm -fr "$tmp"' 0 1 2 13 15
+
+set_cc_for_build() {
+ # prevent multiple calls if $tmp is already set
+ test "$tmp" && return 0
+ : "${TMPDIR=/tmp}"
+ # shellcheck disable=SC2039,SC3028
+ { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } ||
+ { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir "$tmp" 2>/dev/null) ; } ||
+ { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir "$tmp" 2>/dev/null) && echo "Warning: creating insecure temp directory" >&2 ; } ||
+ { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; }
+ dummy=$tmp/dummy
+ case ${CC_FOR_BUILD-},${HOST_CC-},${CC-} in
+ ,,) echo "int x;" > "$dummy.c"
+ for driver in cc gcc c89 c99 ; do
+ if ($driver -c -o "$dummy.o" "$dummy.c") >/dev/null 2>&1 ; then
+ CC_FOR_BUILD=$driver
+ break
+ fi
+ done
+ if test x"$CC_FOR_BUILD" = x ; then
+ CC_FOR_BUILD=no_compiler_found
+ fi
+ ;;
+ ,,*) CC_FOR_BUILD=$CC ;;
+ ,*,*) CC_FOR_BUILD=$HOST_CC ;;
+ esac
+}
+
+# This is needed to find uname on a Pyramid OSx when run in the BSD universe.
+# (ghazi@noc.rutgers.edu 1994-08-24)
+if test -f /.attbin/uname ; then
+ PATH=$PATH:/.attbin ; export PATH
+fi
+
+UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown
+UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown
+UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown
+UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown
+
+case $UNAME_SYSTEM in
+Linux|GNU|GNU/*)
+ LIBC=unknown
+
+ set_cc_for_build
+ cat <<-EOF > "$dummy.c"
+ #if defined(__ANDROID__)
+ LIBC=android
+ #else
+ #include <features.h>
+ #if defined(__UCLIBC__)
+ LIBC=uclibc
+ #elif defined(__dietlibc__)
+ LIBC=dietlibc
+ #elif defined(__GLIBC__)
+ LIBC=gnu
+ #elif defined(__LLVM_LIBC__)
+ LIBC=llvm
+ #else
+ #include <stdarg.h>
+ /* First heuristic to detect musl libc. */
+ #ifdef __DEFINED_va_list
+ LIBC=musl
+ #endif
+ #endif
+ #endif
+ EOF
+ cc_set_libc=`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^LIBC' | sed 's, ,,g'`
+ eval "$cc_set_libc"
+
+ # Second heuristic to detect musl libc.
+ if [ "$LIBC" = unknown ] &&
+ command -v ldd >/dev/null &&
+ ldd --version 2>&1 | grep -q ^musl; then
+ LIBC=musl
+ fi
+
+ # If the system lacks a compiler, then just pick glibc.
+ # We could probably try harder.
+ if [ "$LIBC" = unknown ]; then
+ LIBC=gnu
+ fi
+ ;;
+esac
+
+# Note: order is significant - the case branches are not exclusive.
+
+case $UNAME_MACHINE:$UNAME_SYSTEM:$UNAME_RELEASE:$UNAME_VERSION in
+ *:NetBSD:*:*)
+ # NetBSD (nbsd) targets should (where applicable) match one or
+ # more of the tuples: *-*-netbsdelf*, *-*-netbsdaout*,
+ # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently
+ # switched to ELF, *-*-netbsd* would select the old
+ # object file format. This provides both forward
+ # compatibility and a consistent mechanism for selecting the
+ # object file format.
+ #
+ # Note: NetBSD doesn't particularly care about the vendor
+ # portion of the name. We always set it to "unknown".
+ UNAME_MACHINE_ARCH=`(uname -p 2>/dev/null || \
+ /sbin/sysctl -n hw.machine_arch 2>/dev/null || \
+ /usr/sbin/sysctl -n hw.machine_arch 2>/dev/null || \
+ echo unknown)`
+ case $UNAME_MACHINE_ARCH in
+ aarch64eb) machine=aarch64_be-unknown ;;
+ armeb) machine=armeb-unknown ;;
+ arm*) machine=arm-unknown ;;
+ sh3el) machine=shl-unknown ;;
+ sh3eb) machine=sh-unknown ;;
+ sh5el) machine=sh5le-unknown ;;
+ earmv*)
+ arch=`echo "$UNAME_MACHINE_ARCH" | sed -e 's,^e\(armv[0-9]\).*$,\1,'`
+ endian=`echo "$UNAME_MACHINE_ARCH" | sed -ne 's,^.*\(eb\)$,\1,p'`
+ machine=${arch}${endian}-unknown
+ ;;
+ *) machine=$UNAME_MACHINE_ARCH-unknown ;;
+ esac
+ # The Operating System including object format, if it has switched
+ # to ELF recently (or will in the future) and ABI.
+ case $UNAME_MACHINE_ARCH in
+ earm*)
+ os=netbsdelf
+ ;;
+ arm*|i386|m68k|ns32k|sh3*|sparc|vax)
+ set_cc_for_build
+ if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \
+ | grep -q __ELF__
+ then
+ # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout).
+ # Return netbsd for either. FIX?
+ os=netbsd
+ else
+ os=netbsdelf
+ fi
+ ;;
+ *)
+ os=netbsd
+ ;;
+ esac
+ # Determine ABI tags.
+ case $UNAME_MACHINE_ARCH in
+ earm*)
+ expr='s/^earmv[0-9]/-eabi/;s/eb$//'
+ abi=`echo "$UNAME_MACHINE_ARCH" | sed -e "$expr"`
+ ;;
+ esac
+ # The OS release
+ # Debian GNU/NetBSD machines have a different userland, and
+ # thus, need a distinct triplet. However, they do not need
+ # kernel version information, so it can be replaced with a
+ # suitable tag, in the style of linux-gnu.
+ case $UNAME_VERSION in
+ Debian*)
+ release='-gnu'
+ ;;
+ *)
+ release=`echo "$UNAME_RELEASE" | sed -e 's/[-_].*//' | cut -d. -f1,2`
+ ;;
+ esac
+ # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM:
+ # contains redundant information, the shorter form:
+ # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used.
+ GUESS=$machine-${os}${release}${abi-}
+ ;;
+ *:Bitrig:*:*)
+ UNAME_MACHINE_ARCH=`arch | sed 's/Bitrig.//'`
+ GUESS=$UNAME_MACHINE_ARCH-unknown-bitrig$UNAME_RELEASE
+ ;;
+ *:OpenBSD:*:*)
+ UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'`
+ GUESS=$UNAME_MACHINE_ARCH-unknown-openbsd$UNAME_RELEASE
+ ;;
+ *:SecBSD:*:*)
+ UNAME_MACHINE_ARCH=`arch | sed 's/SecBSD.//'`
+ GUESS=$UNAME_MACHINE_ARCH-unknown-secbsd$UNAME_RELEASE
+ ;;
+ *:LibertyBSD:*:*)
+ UNAME_MACHINE_ARCH=`arch | sed 's/^.*BSD\.//'`
+ GUESS=$UNAME_MACHINE_ARCH-unknown-libertybsd$UNAME_RELEASE
+ ;;
+ *:MidnightBSD:*:*)
+ GUESS=$UNAME_MACHINE-unknown-midnightbsd$UNAME_RELEASE
+ ;;
+ *:ekkoBSD:*:*)
+ GUESS=$UNAME_MACHINE-unknown-ekkobsd$UNAME_RELEASE
+ ;;
+ *:SolidBSD:*:*)
+ GUESS=$UNAME_MACHINE-unknown-solidbsd$UNAME_RELEASE
+ ;;
+ *:OS108:*:*)
+ GUESS=$UNAME_MACHINE-unknown-os108_$UNAME_RELEASE
+ ;;
+ macppc:MirBSD:*:*)
+ GUESS=powerpc-unknown-mirbsd$UNAME_RELEASE
+ ;;
+ *:MirBSD:*:*)
+ GUESS=$UNAME_MACHINE-unknown-mirbsd$UNAME_RELEASE
+ ;;
+ *:Sortix:*:*)
+ GUESS=$UNAME_MACHINE-unknown-sortix
+ ;;
+ *:Twizzler:*:*)
+ GUESS=$UNAME_MACHINE-unknown-twizzler
+ ;;
+ *:Redox:*:*)
+ GUESS=$UNAME_MACHINE-unknown-redox
+ ;;
+ mips:OSF1:*.*)
+ GUESS=mips-dec-osf1
+ ;;
+ alpha:OSF1:*:*)
+ # Reset EXIT trap before exiting to avoid spurious non-zero exit code.
+ trap '' 0
+ case $UNAME_RELEASE in
+ *4.0)
+ UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'`
+ ;;
+ *5.*)
+ UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'`
+ ;;
+ esac
+ # According to Compaq, /usr/sbin/psrinfo has been available on
+ # OSF/1 and Tru64 systems produced since 1995. I hope that
+ # covers most systems running today. This code pipes the CPU
+ # types through head -n 1, so we only detect the type of CPU 0.
+ ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1`
+ case $ALPHA_CPU_TYPE in
+ "EV4 (21064)")
+ UNAME_MACHINE=alpha ;;
+ "EV4.5 (21064)")
+ UNAME_MACHINE=alpha ;;
+ "LCA4 (21066/21068)")
+ UNAME_MACHINE=alpha ;;
+ "EV5 (21164)")
+ UNAME_MACHINE=alphaev5 ;;
+ "EV5.6 (21164A)")
+ UNAME_MACHINE=alphaev56 ;;
+ "EV5.6 (21164PC)")
+ UNAME_MACHINE=alphapca56 ;;
+ "EV5.7 (21164PC)")
+ UNAME_MACHINE=alphapca57 ;;
+ "EV6 (21264)")
+ UNAME_MACHINE=alphaev6 ;;
+ "EV6.7 (21264A)")
+ UNAME_MACHINE=alphaev67 ;;
+ "EV6.8CB (21264C)")
+ UNAME_MACHINE=alphaev68 ;;
+ "EV6.8AL (21264B)")
+ UNAME_MACHINE=alphaev68 ;;
+ "EV6.8CX (21264D)")
+ UNAME_MACHINE=alphaev68 ;;
+ "EV6.9A (21264/EV69A)")
+ UNAME_MACHINE=alphaev69 ;;
+ "EV7 (21364)")
+ UNAME_MACHINE=alphaev7 ;;
+ "EV7.9 (21364A)")
+ UNAME_MACHINE=alphaev79 ;;
+ esac
+ # A Pn.n version is a patched version.
+ # A Vn.n version is a released version.
+ # A Tn.n version is a released field test version.
+ # A Xn.n version is an unreleased experimental baselevel.
+ # 1.2 uses "1.2" for uname -r.
+ OSF_REL=`echo "$UNAME_RELEASE" | sed -e 's/^[PVTX]//' | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`
+ GUESS=$UNAME_MACHINE-dec-osf$OSF_REL
+ ;;
+ Amiga*:UNIX_System_V:4.0:*)
+ GUESS=m68k-unknown-sysv4
+ ;;
+ *:[Aa]miga[Oo][Ss]:*:*)
+ GUESS=$UNAME_MACHINE-unknown-amigaos
+ ;;
+ *:[Mm]orph[Oo][Ss]:*:*)
+ GUESS=$UNAME_MACHINE-unknown-morphos
+ ;;
+ *:OS/390:*:*)
+ GUESS=i370-ibm-openedition
+ ;;
+ *:z/VM:*:*)
+ GUESS=s390-ibm-zvmoe
+ ;;
+ *:OS400:*:*)
+ GUESS=powerpc-ibm-os400
+ ;;
+ arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*)
+ GUESS=arm-acorn-riscix$UNAME_RELEASE
+ ;;
+ arm*:riscos:*:*|arm*:RISCOS:*:*)
+ GUESS=arm-unknown-riscos
+ ;;
+ SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*)
+ GUESS=hppa1.1-hitachi-hiuxmpp
+ ;;
+ Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*)
+ # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE.
+ case `(/bin/universe) 2>/dev/null` in
+ att) GUESS=pyramid-pyramid-sysv3 ;;
+ *) GUESS=pyramid-pyramid-bsd ;;
+ esac
+ ;;
+ NILE*:*:*:dcosx)
+ GUESS=pyramid-pyramid-svr4
+ ;;
+ DRS?6000:unix:4.0:6*)
+ GUESS=sparc-icl-nx6
+ ;;
+ DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*)
+ case `/usr/bin/uname -p` in
+ sparc) GUESS=sparc-icl-nx7 ;;
+ esac
+ ;;
+ s390x:SunOS:*:*)
+ SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
+ GUESS=$UNAME_MACHINE-ibm-solaris2$SUN_REL
+ ;;
+ sun4H:SunOS:5.*:*)
+ SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
+ GUESS=sparc-hal-solaris2$SUN_REL
+ ;;
+ sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*)
+ SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
+ GUESS=sparc-sun-solaris2$SUN_REL
+ ;;
+ i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*)
+ GUESS=i386-pc-auroraux$UNAME_RELEASE
+ ;;
+ i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*)
+ set_cc_for_build
+ SUN_ARCH=i386
+ # If there is a compiler, see if it is configured for 64-bit objects.
+ # Note that the Sun cc does not turn __LP64__ into 1 like gcc does.
+ # This test works for both compilers.
+ if test "$CC_FOR_BUILD" != no_compiler_found; then
+ if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \
+ (CCOPTS="" $CC_FOR_BUILD -m64 -E - 2>/dev/null) | \
+ grep IS_64BIT_ARCH >/dev/null
+ then
+ SUN_ARCH=x86_64
+ fi
+ fi
+ SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
+ GUESS=$SUN_ARCH-pc-solaris2$SUN_REL
+ ;;
+ sun4*:SunOS:6*:*)
+ # According to config.sub, this is the proper way to canonicalize
+ # SunOS6. Hard to guess exactly what SunOS6 will be like, but
+ # it's likely to be more like Solaris than SunOS4.
+ SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
+ GUESS=sparc-sun-solaris3$SUN_REL
+ ;;
+ sun4*:SunOS:*:*)
+ case `/usr/bin/arch -k` in
+ Series*|S4*)
+ UNAME_RELEASE=`uname -v`
+ ;;
+ esac
+ # Japanese Language versions have a version number like '4.1.3-JL'.
+ SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/-/_/'`
+ GUESS=sparc-sun-sunos$SUN_REL
+ ;;
+ sun3*:SunOS:*:*)
+ GUESS=m68k-sun-sunos$UNAME_RELEASE
+ ;;
+ sun*:*:4.2BSD:*)
+ UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null`
+ test "x$UNAME_RELEASE" = x && UNAME_RELEASE=3
+ case `/bin/arch` in
+ sun3)
+ GUESS=m68k-sun-sunos$UNAME_RELEASE
+ ;;
+ sun4)
+ GUESS=sparc-sun-sunos$UNAME_RELEASE
+ ;;
+ esac
+ ;;
+ aushp:SunOS:*:*)
+ GUESS=sparc-auspex-sunos$UNAME_RELEASE
+ ;;
+ # The situation for MiNT is a little confusing. The machine name
+ # can be virtually everything (everything which is not
+ # "atarist" or "atariste" at least should have a processor
+ # > m68000). The system name ranges from "MiNT" over "FreeMiNT"
+ # to the lowercase version "mint" (or "freemint"). Finally
+ # the system name "TOS" denotes a system which is actually not
+ # MiNT. But MiNT is downward compatible to TOS, so this should
+ # be no problem.
+ atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*)
+ GUESS=m68k-atari-mint$UNAME_RELEASE
+ ;;
+ atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*)
+ GUESS=m68k-atari-mint$UNAME_RELEASE
+ ;;
+ *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*)
+ GUESS=m68k-atari-mint$UNAME_RELEASE
+ ;;
+ milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*)
+ GUESS=m68k-milan-mint$UNAME_RELEASE
+ ;;
+ hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*)
+ GUESS=m68k-hades-mint$UNAME_RELEASE
+ ;;
+ *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*)
+ GUESS=m68k-unknown-mint$UNAME_RELEASE
+ ;;
+ m68k:machten:*:*)
+ GUESS=m68k-apple-machten$UNAME_RELEASE
+ ;;
+ powerpc:machten:*:*)
+ GUESS=powerpc-apple-machten$UNAME_RELEASE
+ ;;
+ RISC*:Mach:*:*)
+ GUESS=mips-dec-mach_bsd4.3
+ ;;
+ RISC*:ULTRIX:*:*)
+ GUESS=mips-dec-ultrix$UNAME_RELEASE
+ ;;
+ VAX*:ULTRIX*:*:*)
+ GUESS=vax-dec-ultrix$UNAME_RELEASE
+ ;;
+ 2020:CLIX:*:* | 2430:CLIX:*:*)
+ GUESS=clipper-intergraph-clix$UNAME_RELEASE
+ ;;
+ mips:*:*:UMIPS | mips:*:*:RISCos)
+ set_cc_for_build
+ sed 's/^ //' << EOF > "$dummy.c"
+#ifdef __cplusplus
+#include <stdio.h> /* for printf() prototype */
+ int main (int argc, char *argv[]) {
+#else
+ int main (argc, argv) int argc; char *argv[]; {
+#endif
+ #if defined (host_mips) && defined (MIPSEB)
+ #if defined (SYSTYPE_SYSV)
+ printf ("mips-mips-riscos%ssysv\\n", argv[1]); exit (0);
+ #endif
+ #if defined (SYSTYPE_SVR4)
+ printf ("mips-mips-riscos%ssvr4\\n", argv[1]); exit (0);
+ #endif
+ #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD)
+ printf ("mips-mips-riscos%sbsd\\n", argv[1]); exit (0);
+ #endif
+ #endif
+ exit (-1);
+ }
+EOF
+ $CC_FOR_BUILD -o "$dummy" "$dummy.c" &&
+ dummyarg=`echo "$UNAME_RELEASE" | sed -n 's/\([0-9]*\).*/\1/p'` &&
+ SYSTEM_NAME=`"$dummy" "$dummyarg"` &&
+ { echo "$SYSTEM_NAME"; exit; }
+ GUESS=mips-mips-riscos$UNAME_RELEASE
+ ;;
+ Motorola:PowerMAX_OS:*:*)
+ GUESS=powerpc-motorola-powermax
+ ;;
+ Motorola:*:4.3:PL8-*)
+ GUESS=powerpc-harris-powermax
+ ;;
+ Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*)
+ GUESS=powerpc-harris-powermax
+ ;;
+ Night_Hawk:Power_UNIX:*:*)
+ GUESS=powerpc-harris-powerunix
+ ;;
+ m88k:CX/UX:7*:*)
+ GUESS=m88k-harris-cxux7
+ ;;
+ m88k:*:4*:R4*)
+ GUESS=m88k-motorola-sysv4
+ ;;
+ m88k:*:3*:R3*)
+ GUESS=m88k-motorola-sysv3
+ ;;
+ AViiON:dgux:*:*)
+ # DG/UX returns AViiON for all architectures
+ UNAME_PROCESSOR=`/usr/bin/uname -p`
+ if test "$UNAME_PROCESSOR" = mc88100 || test "$UNAME_PROCESSOR" = mc88110
+ then
+ if test "$TARGET_BINARY_INTERFACE"x = m88kdguxelfx || \
+ test "$TARGET_BINARY_INTERFACE"x = x
+ then
+ GUESS=m88k-dg-dgux$UNAME_RELEASE
+ else
+ GUESS=m88k-dg-dguxbcs$UNAME_RELEASE
+ fi
+ else
+ GUESS=i586-dg-dgux$UNAME_RELEASE
+ fi
+ ;;
+ M88*:DolphinOS:*:*) # DolphinOS (SVR3)
+ GUESS=m88k-dolphin-sysv3
+ ;;
+ M88*:*:R3*:*)
+ # Delta 88k system running SVR3
+ GUESS=m88k-motorola-sysv3
+ ;;
+ XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3)
+ GUESS=m88k-tektronix-sysv3
+ ;;
+ Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD)
+ GUESS=m68k-tektronix-bsd
+ ;;
+ *:IRIX*:*:*)
+ IRIX_REL=`echo "$UNAME_RELEASE" | sed -e 's/-/_/g'`
+ GUESS=mips-sgi-irix$IRIX_REL
+ ;;
+ ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX.
+ GUESS=romp-ibm-aix # uname -m gives an 8 hex-code CPU id
+ ;; # Note that: echo "'`uname -s`'" gives 'AIX '
+ i*86:AIX:*:*)
+ GUESS=i386-ibm-aix
+ ;;
+ ia64:AIX:*:*)
+ if test -x /usr/bin/oslevel ; then
+ IBM_REV=`/usr/bin/oslevel`
+ else
+ IBM_REV=$UNAME_VERSION.$UNAME_RELEASE
+ fi
+ GUESS=$UNAME_MACHINE-ibm-aix$IBM_REV
+ ;;
+ *:AIX:2:3)
+ if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then
+ set_cc_for_build
+ sed 's/^ //' << EOF > "$dummy.c"
+ #include <sys/systemcfg.h>
+
+ main()
+ {
+ if (!__power_pc())
+ exit(1);
+ puts("powerpc-ibm-aix3.2.5");
+ exit(0);
+ }
+EOF
+ if $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"`
+ then
+ GUESS=$SYSTEM_NAME
+ else
+ GUESS=rs6000-ibm-aix3.2.5
+ fi
+ elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then
+ GUESS=rs6000-ibm-aix3.2.4
+ else
+ GUESS=rs6000-ibm-aix3.2
+ fi
+ ;;
+ *:AIX:*:[4567])
+ IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'`
+ if /usr/sbin/lsattr -El "$IBM_CPU_ID" | grep ' POWER' >/dev/null 2>&1; then
+ IBM_ARCH=rs6000
+ else
+ IBM_ARCH=powerpc
+ fi
+ if test -x /usr/bin/lslpp ; then
+ IBM_REV=`/usr/bin/lslpp -Lqc bos.rte.libc | \
+ awk -F: '{ print $3 }' | sed s/[0-9]*$/0/`
+ else
+ IBM_REV=$UNAME_VERSION.$UNAME_RELEASE
+ fi
+ GUESS=$IBM_ARCH-ibm-aix$IBM_REV
+ ;;
+ *:AIX:*:*)
+ GUESS=rs6000-ibm-aix
+ ;;
+ ibmrt:4.4BSD:*|romp-ibm:4.4BSD:*)
+ GUESS=romp-ibm-bsd4.4
+ ;;
+ ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and
+ GUESS=romp-ibm-bsd$UNAME_RELEASE # 4.3 with uname added to
+ ;; # report: romp-ibm BSD 4.3
+ *:BOSX:*:*)
+ GUESS=rs6000-bull-bosx
+ ;;
+ DPX/2?00:B.O.S.:*:*)
+ GUESS=m68k-bull-sysv3
+ ;;
+ 9000/[34]??:4.3bsd:1.*:*)
+ GUESS=m68k-hp-bsd
+ ;;
+ hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*)
+ GUESS=m68k-hp-bsd4.4
+ ;;
+ 9000/[34678]??:HP-UX:*:*)
+ HPUX_REV=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*.[0B]*//'`
+ case $UNAME_MACHINE in
+ 9000/31?) HP_ARCH=m68000 ;;
+ 9000/[34]??) HP_ARCH=m68k ;;
+ 9000/[678][0-9][0-9])
+ if test -x /usr/bin/getconf; then
+ sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null`
+ sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null`
+ case $sc_cpu_version in
+ 523) HP_ARCH=hppa1.0 ;; # CPU_PA_RISC1_0
+ 528) HP_ARCH=hppa1.1 ;; # CPU_PA_RISC1_1
+ 532) # CPU_PA_RISC2_0
+ case $sc_kernel_bits in
+ 32) HP_ARCH=hppa2.0n ;;
+ 64) HP_ARCH=hppa2.0w ;;
+ '') HP_ARCH=hppa2.0 ;; # HP-UX 10.20
+ esac ;;
+ esac
+ fi
+ if test "$HP_ARCH" = ""; then
+ set_cc_for_build
+ sed 's/^ //' << EOF > "$dummy.c"
+
+ #define _HPUX_SOURCE
+ #include <stdlib.h>
+ #include <unistd.h>
+
+ int main ()
+ {
+ #if defined(_SC_KERNEL_BITS)
+ long bits = sysconf(_SC_KERNEL_BITS);
+ #endif
+ long cpu = sysconf (_SC_CPU_VERSION);
+
+ switch (cpu)
+ {
+ case CPU_PA_RISC1_0: puts ("hppa1.0"); break;
+ case CPU_PA_RISC1_1: puts ("hppa1.1"); break;
+ case CPU_PA_RISC2_0:
+ #if defined(_SC_KERNEL_BITS)
+ switch (bits)
+ {
+ case 64: puts ("hppa2.0w"); break;
+ case 32: puts ("hppa2.0n"); break;
+ default: puts ("hppa2.0"); break;
+ } break;
+ #else /* !defined(_SC_KERNEL_BITS) */
+ puts ("hppa2.0"); break;
+ #endif
+ default: puts ("hppa1.0"); break;
+ }
+ exit (0);
+ }
+EOF
+ (CCOPTS="" $CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null) && HP_ARCH=`"$dummy"`
+ test -z "$HP_ARCH" && HP_ARCH=hppa
+ fi ;;
+ esac
+ if test "$HP_ARCH" = hppa2.0w
+ then
+ set_cc_for_build
+
+ # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating
+ # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler
+ # generating 64-bit code. GNU and HP use different nomenclature:
+ #
+ # $ CC_FOR_BUILD=cc ./config.guess
+ # => hppa2.0w-hp-hpux11.23
+ # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess
+ # => hppa64-hp-hpux11.23
+
+ if echo __LP64__ | (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) |
+ grep -q __LP64__
+ then
+ HP_ARCH=hppa2.0w
+ else
+ HP_ARCH=hppa64
+ fi
+ fi
+ GUESS=$HP_ARCH-hp-hpux$HPUX_REV
+ ;;
+ ia64:HP-UX:*:*)
+ HPUX_REV=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*.[0B]*//'`
+ GUESS=ia64-hp-hpux$HPUX_REV
+ ;;
+ 3050*:HI-UX:*:*)
+ set_cc_for_build
+ sed 's/^ //' << EOF > "$dummy.c"
+ #include <unistd.h>
+ int
+ main ()
+ {
+ long cpu = sysconf (_SC_CPU_VERSION);
+ /* The order matters, because CPU_IS_HP_MC68K erroneously returns
+ true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct
+ results, however. */
+ if (CPU_IS_PA_RISC (cpu))
+ {
+ switch (cpu)
+ {
+ case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break;
+ case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break;
+ case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break;
+ default: puts ("hppa-hitachi-hiuxwe2"); break;
+ }
+ }
+ else if (CPU_IS_HP_MC68K (cpu))
+ puts ("m68k-hitachi-hiuxwe2");
+ else puts ("unknown-hitachi-hiuxwe2");
+ exit (0);
+ }
+EOF
+ $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"` &&
+ { echo "$SYSTEM_NAME"; exit; }
+ GUESS=unknown-hitachi-hiuxwe2
+ ;;
+ 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:*)
+ GUESS=hppa1.1-hp-bsd
+ ;;
+ 9000/8??:4.3bsd:*:*)
+ GUESS=hppa1.0-hp-bsd
+ ;;
+ *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*)
+ GUESS=hppa1.0-hp-mpeix
+ ;;
+ hp7??:OSF1:*:* | hp8?[79]:OSF1:*:*)
+ GUESS=hppa1.1-hp-osf
+ ;;
+ hp8??:OSF1:*:*)
+ GUESS=hppa1.0-hp-osf
+ ;;
+ i*86:OSF1:*:*)
+ if test -x /usr/sbin/sysversion ; then
+ GUESS=$UNAME_MACHINE-unknown-osf1mk
+ else
+ GUESS=$UNAME_MACHINE-unknown-osf1
+ fi
+ ;;
+ parisc*:Lites*:*:*)
+ GUESS=hppa1.1-hp-lites
+ ;;
+ C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*)
+ GUESS=c1-convex-bsd
+ ;;
+ C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*)
+ if getsysinfo -f scalar_acc
+ then echo c32-convex-bsd
+ else echo c2-convex-bsd
+ fi
+ exit ;;
+ C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*)
+ GUESS=c34-convex-bsd
+ ;;
+ C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*)
+ GUESS=c38-convex-bsd
+ ;;
+ C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*)
+ GUESS=c4-convex-bsd
+ ;;
+ CRAY*Y-MP:*:*:*)
+ CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
+ GUESS=ymp-cray-unicos$CRAY_REL
+ ;;
+ CRAY*[A-Z]90:*:*:*)
+ echo "$UNAME_MACHINE"-cray-unicos"$UNAME_RELEASE" \
+ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \
+ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \
+ -e 's/\.[^.]*$/.X/'
+ exit ;;
+ CRAY*TS:*:*:*)
+ CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
+ GUESS=t90-cray-unicos$CRAY_REL
+ ;;
+ CRAY*T3E:*:*:*)
+ CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
+ GUESS=alphaev5-cray-unicosmk$CRAY_REL
+ ;;
+ CRAY*SV1:*:*:*)
+ CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
+ GUESS=sv1-cray-unicos$CRAY_REL
+ ;;
+ *:UNICOS/mp:*:*)
+ CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
+ GUESS=craynv-cray-unicosmp$CRAY_REL
+ ;;
+ F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*)
+ FUJITSU_PROC=`uname -m | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`
+ FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'`
+ FUJITSU_REL=`echo "$UNAME_RELEASE" | sed -e 's/ /_/'`
+ GUESS=${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}
+ ;;
+ 5000:UNIX_System_V:4.*:*)
+ FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'`
+ FUJITSU_REL=`echo "$UNAME_RELEASE" | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/ /_/'`
+ GUESS=sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}
+ ;;
+ i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*)
+ GUESS=$UNAME_MACHINE-pc-bsdi$UNAME_RELEASE
+ ;;
+ sparc*:BSD/OS:*:*)
+ GUESS=sparc-unknown-bsdi$UNAME_RELEASE
+ ;;
+ *:BSD/OS:*:*)
+ GUESS=$UNAME_MACHINE-unknown-bsdi$UNAME_RELEASE
+ ;;
+ arm:FreeBSD:*:*)
+ UNAME_PROCESSOR=`uname -p`
+ set_cc_for_build
+ if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \
+ | grep -q __ARM_PCS_VFP
+ then
+ FREEBSD_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
+ GUESS=$UNAME_PROCESSOR-unknown-freebsd$FREEBSD_REL-gnueabi
+ else
+ FREEBSD_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
+ GUESS=$UNAME_PROCESSOR-unknown-freebsd$FREEBSD_REL-gnueabihf
+ fi
+ ;;
+ *:FreeBSD:*:*)
+ UNAME_PROCESSOR=`uname -p`
+ case $UNAME_PROCESSOR in
+ amd64)
+ UNAME_PROCESSOR=x86_64 ;;
+ i386)
+ UNAME_PROCESSOR=i586 ;;
+ esac
+ FREEBSD_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
+ GUESS=$UNAME_PROCESSOR-unknown-freebsd$FREEBSD_REL
+ ;;
+ i*:CYGWIN*:*)
+ GUESS=$UNAME_MACHINE-pc-cygwin
+ ;;
+ *:MINGW64*:*)
+ GUESS=$UNAME_MACHINE-pc-mingw64
+ ;;
+ *:MINGW*:*)
+ GUESS=$UNAME_MACHINE-pc-mingw32
+ ;;
+ *:MSYS*:*)
+ GUESS=$UNAME_MACHINE-pc-msys
+ ;;
+ i*:PW*:*)
+ GUESS=$UNAME_MACHINE-pc-pw32
+ ;;
+ *:SerenityOS:*:*)
+ GUESS=$UNAME_MACHINE-pc-serenity
+ ;;
+ *:Interix*:*)
+ case $UNAME_MACHINE in
+ x86)
+ GUESS=i586-pc-interix$UNAME_RELEASE
+ ;;
+ authenticamd | genuineintel | EM64T)
+ GUESS=x86_64-unknown-interix$UNAME_RELEASE
+ ;;
+ IA64)
+ GUESS=ia64-unknown-interix$UNAME_RELEASE
+ ;;
+ esac ;;
+ i*:UWIN*:*)
+ GUESS=$UNAME_MACHINE-pc-uwin
+ ;;
+ amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*)
+ GUESS=x86_64-pc-cygwin
+ ;;
+ prep*:SunOS:5.*:*)
+ SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
+ GUESS=powerpcle-unknown-solaris2$SUN_REL
+ ;;
+ *:GNU:*:*)
+ # the GNU system
+ GNU_ARCH=`echo "$UNAME_MACHINE" | sed -e 's,[-/].*$,,'`
+ GNU_REL=`echo "$UNAME_RELEASE" | sed -e 's,/.*$,,'`
+ GUESS=$GNU_ARCH-unknown-$LIBC$GNU_REL
+ ;;
+ *:GNU/*:*:*)
+ # other systems with GNU libc and userland
+ GNU_SYS=`echo "$UNAME_SYSTEM" | sed 's,^[^/]*/,,' | tr "[:upper:]" "[:lower:]"`
+ GNU_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
+ GUESS=$UNAME_MACHINE-unknown-$GNU_SYS$GNU_REL-$LIBC
+ ;;
+ x86_64:[Mm]anagarm:*:*|i?86:[Mm]anagarm:*:*)
+ GUESS="$UNAME_MACHINE-pc-managarm-mlibc"
+ ;;
+ *:[Mm]anagarm:*:*)
+ GUESS="$UNAME_MACHINE-unknown-managarm-mlibc"
+ ;;
+ *:Minix:*:*)
+ GUESS=$UNAME_MACHINE-unknown-minix
+ ;;
+ aarch64:Linux:*:*)
+ set_cc_for_build
+ CPU=$UNAME_MACHINE
+ LIBCABI=$LIBC
+ if test "$CC_FOR_BUILD" != no_compiler_found; then
+ ABI=64
+ sed 's/^ //' << EOF > "$dummy.c"
+ #ifdef __ARM_EABI__
+ #ifdef __ARM_PCS_VFP
+ ABI=eabihf
+ #else
+ ABI=eabi
+ #endif
+ #endif
+EOF
+ cc_set_abi=`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^ABI' | sed 's, ,,g'`
+ eval "$cc_set_abi"
+ case $ABI in
+ eabi | eabihf) CPU=armv8l; LIBCABI=$LIBC$ABI ;;
+ esac
+ fi
+ GUESS=$CPU-unknown-linux-$LIBCABI
+ ;;
+ aarch64_be:Linux:*:*)
+ UNAME_MACHINE=aarch64_be
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ alpha:Linux:*:*)
+ case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' /proc/cpuinfo 2>/dev/null` in
+ EV5) UNAME_MACHINE=alphaev5 ;;
+ EV56) UNAME_MACHINE=alphaev56 ;;
+ PCA56) UNAME_MACHINE=alphapca56 ;;
+ PCA57) UNAME_MACHINE=alphapca56 ;;
+ EV6) UNAME_MACHINE=alphaev6 ;;
+ EV67) UNAME_MACHINE=alphaev67 ;;
+ EV68*) UNAME_MACHINE=alphaev68 ;;
+ esac
+ objdump --private-headers /bin/sh | grep -q ld.so.1
+ if test "$?" = 0 ; then LIBC=gnulibc1 ; fi
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ arc:Linux:*:* | arceb:Linux:*:* | arc32:Linux:*:* | arc64:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ arm*:Linux:*:*)
+ set_cc_for_build
+ if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \
+ | grep -q __ARM_EABI__
+ then
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ else
+ if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \
+ | grep -q __ARM_PCS_VFP
+ then
+ GUESS=$UNAME_MACHINE-unknown-linux-${LIBC}eabi
+ else
+ GUESS=$UNAME_MACHINE-unknown-linux-${LIBC}eabihf
+ fi
+ fi
+ ;;
+ avr32*:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ cris:Linux:*:*)
+ GUESS=$UNAME_MACHINE-axis-linux-$LIBC
+ ;;
+ crisv32:Linux:*:*)
+ GUESS=$UNAME_MACHINE-axis-linux-$LIBC
+ ;;
+ e2k:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ frv:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ hexagon:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ i*86:Linux:*:*)
+ GUESS=$UNAME_MACHINE-pc-linux-$LIBC
+ ;;
+ ia64:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ k1om:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ kvx:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ kvx:cos:*:*)
+ GUESS=$UNAME_MACHINE-unknown-cos
+ ;;
+ kvx:mbr:*:*)
+ GUESS=$UNAME_MACHINE-unknown-mbr
+ ;;
+ loongarch32:Linux:*:* | loongarch64:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ m32r*:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ m68*:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ mips:Linux:*:* | mips64:Linux:*:*)
+ set_cc_for_build
+ IS_GLIBC=0
+ test x"${LIBC}" = xgnu && IS_GLIBC=1
+ sed 's/^ //' << EOF > "$dummy.c"
+ #undef CPU
+ #undef mips
+ #undef mipsel
+ #undef mips64
+ #undef mips64el
+ #if ${IS_GLIBC} && defined(_ABI64)
+ LIBCABI=gnuabi64
+ #else
+ #if ${IS_GLIBC} && defined(_ABIN32)
+ LIBCABI=gnuabin32
+ #else
+ LIBCABI=${LIBC}
+ #endif
+ #endif
+
+ #if ${IS_GLIBC} && defined(__mips64) && defined(__mips_isa_rev) && __mips_isa_rev>=6
+ CPU=mipsisa64r6
+ #else
+ #if ${IS_GLIBC} && !defined(__mips64) && defined(__mips_isa_rev) && __mips_isa_rev>=6
+ CPU=mipsisa32r6
+ #else
+ #if defined(__mips64)
+ CPU=mips64
+ #else
+ CPU=mips
+ #endif
+ #endif
+ #endif
+
+ #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL)
+ MIPS_ENDIAN=el
+ #else
+ #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB)
+ MIPS_ENDIAN=
+ #else
+ MIPS_ENDIAN=
+ #endif
+ #endif
+EOF
+ cc_set_vars=`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^CPU\|^MIPS_ENDIAN\|^LIBCABI'`
+ eval "$cc_set_vars"
+ test "x$CPU" != x && { echo "$CPU${MIPS_ENDIAN}-unknown-linux-$LIBCABI"; exit; }
+ ;;
+ mips64el:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ openrisc*:Linux:*:*)
+ GUESS=or1k-unknown-linux-$LIBC
+ ;;
+ or32:Linux:*:* | or1k*:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ padre:Linux:*:*)
+ GUESS=sparc-unknown-linux-$LIBC
+ ;;
+ parisc64:Linux:*:* | hppa64:Linux:*:*)
+ GUESS=hppa64-unknown-linux-$LIBC
+ ;;
+ parisc:Linux:*:* | hppa:Linux:*:*)
+ # Look for CPU level
+ case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in
+ PA7*) GUESS=hppa1.1-unknown-linux-$LIBC ;;
+ PA8*) GUESS=hppa2.0-unknown-linux-$LIBC ;;
+ *) GUESS=hppa-unknown-linux-$LIBC ;;
+ esac
+ ;;
+ ppc64:Linux:*:*)
+ GUESS=powerpc64-unknown-linux-$LIBC
+ ;;
+ ppc:Linux:*:*)
+ GUESS=powerpc-unknown-linux-$LIBC
+ ;;
+ ppc64le:Linux:*:*)
+ GUESS=powerpc64le-unknown-linux-$LIBC
+ ;;
+ ppcle:Linux:*:*)
+ GUESS=powerpcle-unknown-linux-$LIBC
+ ;;
+ riscv32:Linux:*:* | riscv32be:Linux:*:* | riscv64:Linux:*:* | riscv64be:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ s390:Linux:*:* | s390x:Linux:*:*)
+ GUESS=$UNAME_MACHINE-ibm-linux-$LIBC
+ ;;
+ sh64*:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ sh*:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ sparc:Linux:*:* | sparc64:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ tile*:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ vax:Linux:*:*)
+ GUESS=$UNAME_MACHINE-dec-linux-$LIBC
+ ;;
+ x86_64:Linux:*:*)
+ set_cc_for_build
+ CPU=$UNAME_MACHINE
+ LIBCABI=$LIBC
+ if test "$CC_FOR_BUILD" != no_compiler_found; then
+ ABI=64
+ sed 's/^ //' << EOF > "$dummy.c"
+ #ifdef __i386__
+ ABI=x86
+ #else
+ #ifdef __ILP32__
+ ABI=x32
+ #endif
+ #endif
+EOF
+ cc_set_abi=`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^ABI' | sed 's, ,,g'`
+ eval "$cc_set_abi"
+ case $ABI in
+ x86) CPU=i686 ;;
+ x32) LIBCABI=${LIBC}x32 ;;
+ esac
+ fi
+ GUESS=$CPU-pc-linux-$LIBCABI
+ ;;
+ xtensa*:Linux:*:*)
+ GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
+ ;;
+ i*86:DYNIX/ptx:4*:*)
+ # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there.
+ # earlier versions are messed up and put the nodename in both
+ # sysname and nodename.
+ GUESS=i386-sequent-sysv4
+ ;;
+ i*86:UNIX_SV:4.2MP:2.*)
+ # Unixware is an offshoot of SVR4, but it has its own version
+ # number series starting with 2...
+ # I am not positive that other SVR4 systems won't match this,
+ # I just have to hope. -- rms.
+ # Use sysv4.2uw... so that sysv4* matches it.
+ GUESS=$UNAME_MACHINE-pc-sysv4.2uw$UNAME_VERSION
+ ;;
+ i*86:OS/2:*:*)
+ # If we were able to find 'uname', then EMX Unix compatibility
+ # is probably installed.
+ GUESS=$UNAME_MACHINE-pc-os2-emx
+ ;;
+ i*86:XTS-300:*:STOP)
+ GUESS=$UNAME_MACHINE-unknown-stop
+ ;;
+ i*86:atheos:*:*)
+ GUESS=$UNAME_MACHINE-unknown-atheos
+ ;;
+ i*86:syllable:*:*)
+ GUESS=$UNAME_MACHINE-pc-syllable
+ ;;
+ i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*)
+ GUESS=i386-unknown-lynxos$UNAME_RELEASE
+ ;;
+ i*86:*DOS:*:*)
+ GUESS=$UNAME_MACHINE-pc-msdosdjgpp
+ ;;
+ i*86:*:4.*:*)
+ UNAME_REL=`echo "$UNAME_RELEASE" | sed 's/\/MP$//'`
+ if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then
+ GUESS=$UNAME_MACHINE-univel-sysv$UNAME_REL
+ else
+ GUESS=$UNAME_MACHINE-pc-sysv$UNAME_REL
+ fi
+ ;;
+ i*86:*:5:[678]*)
+ # UnixWare 7.x, OpenUNIX and OpenServer 6.
+ case `/bin/uname -X | grep "^Machine"` in
+ *486*) UNAME_MACHINE=i486 ;;
+ *Pentium) UNAME_MACHINE=i586 ;;
+ *Pent*|*Celeron) UNAME_MACHINE=i686 ;;
+ esac
+ GUESS=$UNAME_MACHINE-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION}
+ ;;
+ i*86:*:3.2:*)
+ if test -f /usr/options/cb.name; then
+ UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name`
+ GUESS=$UNAME_MACHINE-pc-isc$UNAME_REL
+ elif /bin/uname -X 2>/dev/null >/dev/null ; then
+ UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')`
+ (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486
+ (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \
+ && UNAME_MACHINE=i586
+ (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \
+ && UNAME_MACHINE=i686
+ (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \
+ && UNAME_MACHINE=i686
+ GUESS=$UNAME_MACHINE-pc-sco$UNAME_REL
+ else
+ GUESS=$UNAME_MACHINE-pc-sysv32
+ fi
+ ;;
+ pc:*:*:*)
+ # Left here for compatibility:
+ # uname -m prints for DJGPP always 'pc', but it prints nothing about
+ # the processor, so we play safe by assuming i586.
+ # Note: whatever this is, it MUST be the same as what config.sub
+ # prints for the "djgpp" host, or else GDB configure will decide that
+ # this is a cross-build.
+ GUESS=i586-pc-msdosdjgpp
+ ;;
+ Intel:Mach:3*:*)
+ GUESS=i386-pc-mach3
+ ;;
+ paragon:*:*:*)
+ GUESS=i860-intel-osf1
+ ;;
+ i860:*:4.*:*) # i860-SVR4
+ if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then
+ GUESS=i860-stardent-sysv$UNAME_RELEASE # Stardent Vistra i860-SVR4
+ else # Add other i860-SVR4 vendors below as they are discovered.
+ GUESS=i860-unknown-sysv$UNAME_RELEASE # Unknown i860-SVR4
+ fi
+ ;;
+ mini*:CTIX:SYS*5:*)
+ # "miniframe"
+ GUESS=m68010-convergent-sysv
+ ;;
+ mc68k:UNIX:SYSTEM5:3.51m)
+ GUESS=m68k-convergent-sysv
+ ;;
+ M680?0:D-NIX:5.3:*)
+ GUESS=m68k-diab-dnix
+ ;;
+ M68*:*:R3V[5678]*:*)
+ test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;;
+ 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0)
+ OS_REL=''
+ test -r /etc/.relid \
+ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
+ /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
+ && { echo i486-ncr-sysv4.3"$OS_REL"; exit; }
+ /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
+ && { echo i586-ncr-sysv4.3"$OS_REL"; exit; } ;;
+ 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*)
+ /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
+ && { echo i486-ncr-sysv4; exit; } ;;
+ NCR*:*:4.2:* | MPRAS*:*:4.2:*)
+ OS_REL='.3'
+ test -r /etc/.relid \
+ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
+ /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
+ && { echo i486-ncr-sysv4.3"$OS_REL"; exit; }
+ /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
+ && { echo i586-ncr-sysv4.3"$OS_REL"; exit; }
+ /bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \
+ && { echo i586-ncr-sysv4.3"$OS_REL"; exit; } ;;
+ m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*)
+ GUESS=m68k-unknown-lynxos$UNAME_RELEASE
+ ;;
+ mc68030:UNIX_System_V:4.*:*)
+ GUESS=m68k-atari-sysv4
+ ;;
+ TSUNAMI:LynxOS:2.*:*)
+ GUESS=sparc-unknown-lynxos$UNAME_RELEASE
+ ;;
+ rs6000:LynxOS:2.*:*)
+ GUESS=rs6000-unknown-lynxos$UNAME_RELEASE
+ ;;
+ PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*)
+ GUESS=powerpc-unknown-lynxos$UNAME_RELEASE
+ ;;
+ SM[BE]S:UNIX_SV:*:*)
+ GUESS=mips-dde-sysv$UNAME_RELEASE
+ ;;
+ RM*:ReliantUNIX-*:*:*)
+ GUESS=mips-sni-sysv4
+ ;;
+ RM*:SINIX-*:*:*)
+ GUESS=mips-sni-sysv4
+ ;;
+ *:SINIX-*:*:*)
+ if uname -p 2>/dev/null >/dev/null ; then
+ UNAME_MACHINE=`(uname -p) 2>/dev/null`
+ GUESS=$UNAME_MACHINE-sni-sysv4
+ else
+ GUESS=ns32k-sni-sysv
+ fi
+ ;;
+ PENTIUM:*:4.0*:*) # Unisys 'ClearPath HMP IX 4000' SVR4/MP effort
+ # says <Richard.M.Bartel@ccMail.Census.GOV>
+ GUESS=i586-unisys-sysv4
+ ;;
+ *:UNIX_System_V:4*:FTX*)
+ # From Gerald Hewes <hewes@openmarket.com>.
+ # How about differentiating between stratus architectures? -djm
+ GUESS=hppa1.1-stratus-sysv4
+ ;;
+ *:*:*:FTX*)
+ # From seanf@swdc.stratus.com.
+ GUESS=i860-stratus-sysv4
+ ;;
+ i*86:VOS:*:*)
+ # From Paul.Green@stratus.com.
+ GUESS=$UNAME_MACHINE-stratus-vos
+ ;;
+ *:VOS:*:*)
+ # From Paul.Green@stratus.com.
+ GUESS=hppa1.1-stratus-vos
+ ;;
+ mc68*:A/UX:*:*)
+ GUESS=m68k-apple-aux$UNAME_RELEASE
+ ;;
+ news*:NEWS-OS:6*:*)
+ GUESS=mips-sony-newsos6
+ ;;
+ R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*)
+ if test -d /usr/nec; then
+ GUESS=mips-nec-sysv$UNAME_RELEASE
+ else
+ GUESS=mips-unknown-sysv$UNAME_RELEASE
+ fi
+ ;;
+ BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only.
+ GUESS=powerpc-be-beos
+ ;;
+ BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only.
+ GUESS=powerpc-apple-beos
+ ;;
+ BePC:BeOS:*:*) # BeOS running on Intel PC compatible.
+ GUESS=i586-pc-beos
+ ;;
+ BePC:Haiku:*:*) # Haiku running on Intel PC compatible.
+ GUESS=i586-pc-haiku
+ ;;
+ ppc:Haiku:*:*) # Haiku running on Apple PowerPC
+ GUESS=powerpc-apple-haiku
+ ;;
+ *:Haiku:*:*) # Haiku modern gcc (not bound by BeOS compat)
+ GUESS=$UNAME_MACHINE-unknown-haiku
+ ;;
+ SX-4:SUPER-UX:*:*)
+ GUESS=sx4-nec-superux$UNAME_RELEASE
+ ;;
+ SX-5:SUPER-UX:*:*)
+ GUESS=sx5-nec-superux$UNAME_RELEASE
+ ;;
+ SX-6:SUPER-UX:*:*)
+ GUESS=sx6-nec-superux$UNAME_RELEASE
+ ;;
+ SX-7:SUPER-UX:*:*)
+ GUESS=sx7-nec-superux$UNAME_RELEASE
+ ;;
+ SX-8:SUPER-UX:*:*)
+ GUESS=sx8-nec-superux$UNAME_RELEASE
+ ;;
+ SX-8R:SUPER-UX:*:*)
+ GUESS=sx8r-nec-superux$UNAME_RELEASE
+ ;;
+ SX-ACE:SUPER-UX:*:*)
+ GUESS=sxace-nec-superux$UNAME_RELEASE
+ ;;
+ Power*:Rhapsody:*:*)
+ GUESS=powerpc-apple-rhapsody$UNAME_RELEASE
+ ;;
+ *:Rhapsody:*:*)
+ GUESS=$UNAME_MACHINE-apple-rhapsody$UNAME_RELEASE
+ ;;
+ arm64:Darwin:*:*)
+ GUESS=aarch64-apple-darwin$UNAME_RELEASE
+ ;;
+ *:Darwin:*:*)
+ UNAME_PROCESSOR=`uname -p`
+ case $UNAME_PROCESSOR in
+ unknown) UNAME_PROCESSOR=powerpc ;;
+ esac
+ if command -v xcode-select > /dev/null 2> /dev/null && \
+ ! xcode-select --print-path > /dev/null 2> /dev/null ; then
+ # Avoid executing cc if there is no toolchain installed as
+ # cc will be a stub that puts up a graphical alert
+ # prompting the user to install developer tools.
+ CC_FOR_BUILD=no_compiler_found
+ else
+ set_cc_for_build
+ fi
+ if test "$CC_FOR_BUILD" != no_compiler_found; then
+ if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \
+ (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \
+ grep IS_64BIT_ARCH >/dev/null
+ then
+ case $UNAME_PROCESSOR in
+ i386) UNAME_PROCESSOR=x86_64 ;;
+ powerpc) UNAME_PROCESSOR=powerpc64 ;;
+ esac
+ fi
+ # On 10.4-10.6 one might compile for PowerPC via gcc -arch ppc
+ if (echo '#ifdef __POWERPC__'; echo IS_PPC; echo '#endif') | \
+ (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \
+ grep IS_PPC >/dev/null
+ then
+ UNAME_PROCESSOR=powerpc
+ fi
+ elif test "$UNAME_PROCESSOR" = i386 ; then
+ # uname -m returns i386 or x86_64
+ UNAME_PROCESSOR=$UNAME_MACHINE
+ fi
+ GUESS=$UNAME_PROCESSOR-apple-darwin$UNAME_RELEASE
+ ;;
+ *:procnto*:*:* | *:QNX:[0123456789]*:*)
+ UNAME_PROCESSOR=`uname -p`
+ if test "$UNAME_PROCESSOR" = x86; then
+ UNAME_PROCESSOR=i386
+ UNAME_MACHINE=pc
+ fi
+ GUESS=$UNAME_PROCESSOR-$UNAME_MACHINE-nto-qnx$UNAME_RELEASE
+ ;;
+ *:QNX:*:4*)
+ GUESS=i386-pc-qnx
+ ;;
+ NEO-*:NONSTOP_KERNEL:*:*)
+ GUESS=neo-tandem-nsk$UNAME_RELEASE
+ ;;
+ NSE-*:NONSTOP_KERNEL:*:*)
+ GUESS=nse-tandem-nsk$UNAME_RELEASE
+ ;;
+ NSR-*:NONSTOP_KERNEL:*:*)
+ GUESS=nsr-tandem-nsk$UNAME_RELEASE
+ ;;
+ NSV-*:NONSTOP_KERNEL:*:*)
+ GUESS=nsv-tandem-nsk$UNAME_RELEASE
+ ;;
+ NSX-*:NONSTOP_KERNEL:*:*)
+ GUESS=nsx-tandem-nsk$UNAME_RELEASE
+ ;;
+ *:NonStop-UX:*:*)
+ GUESS=mips-compaq-nonstopux
+ ;;
+ BS2000:POSIX*:*:*)
+ GUESS=bs2000-siemens-sysv
+ ;;
+ DS/*:UNIX_System_V:*:*)
+ GUESS=$UNAME_MACHINE-$UNAME_SYSTEM-$UNAME_RELEASE
+ ;;
+ *:Plan9:*:*)
+ # "uname -m" is not consistent, so use $cputype instead. 386
+ # is converted to i386 for consistency with other x86
+ # operating systems.
+ if test "${cputype-}" = 386; then
+ UNAME_MACHINE=i386
+ elif test "x${cputype-}" != x; then
+ UNAME_MACHINE=$cputype
+ fi
+ GUESS=$UNAME_MACHINE-unknown-plan9
+ ;;
+ *:TOPS-10:*:*)
+ GUESS=pdp10-unknown-tops10
+ ;;
+ *:TENEX:*:*)
+ GUESS=pdp10-unknown-tenex
+ ;;
+ KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*)
+ GUESS=pdp10-dec-tops20
+ ;;
+ XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*)
+ GUESS=pdp10-xkl-tops20
+ ;;
+ *:TOPS-20:*:*)
+ GUESS=pdp10-unknown-tops20
+ ;;
+ *:ITS:*:*)
+ GUESS=pdp10-unknown-its
+ ;;
+ SEI:*:*:SEIUX)
+ GUESS=mips-sei-seiux$UNAME_RELEASE
+ ;;
+ *:DragonFly:*:*)
+ DRAGONFLY_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
+ GUESS=$UNAME_MACHINE-unknown-dragonfly$DRAGONFLY_REL
+ ;;
+ *:*VMS:*:*)
+ UNAME_MACHINE=`(uname -p) 2>/dev/null`
+ case $UNAME_MACHINE in
+ A*) GUESS=alpha-dec-vms ;;
+ I*) GUESS=ia64-dec-vms ;;
+ V*) GUESS=vax-dec-vms ;;
+ esac ;;
+ *:XENIX:*:SysV)
+ GUESS=i386-pc-xenix
+ ;;
+ i*86:skyos:*:*)
+ SKYOS_REL=`echo "$UNAME_RELEASE" | sed -e 's/ .*$//'`
+ GUESS=$UNAME_MACHINE-pc-skyos$SKYOS_REL
+ ;;
+ i*86:rdos:*:*)
+ GUESS=$UNAME_MACHINE-pc-rdos
+ ;;
+ i*86:Fiwix:*:*)
+ GUESS=$UNAME_MACHINE-pc-fiwix
+ ;;
+ *:AROS:*:*)
+ GUESS=$UNAME_MACHINE-unknown-aros
+ ;;
+ x86_64:VMkernel:*:*)
+ GUESS=$UNAME_MACHINE-unknown-esx
+ ;;
+ amd64:Isilon\ OneFS:*:*)
+ GUESS=x86_64-unknown-onefs
+ ;;
+ *:Unleashed:*:*)
+ GUESS=$UNAME_MACHINE-unknown-unleashed$UNAME_RELEASE
+ ;;
+ *:Ironclad:*:*)
+ GUESS=$UNAME_MACHINE-unknown-ironclad
+ ;;
+esac
+
+# Do we have a guess based on uname results?
+if test "x$GUESS" != x; then
+ echo "$GUESS"
+ exit
+fi
+
+# No uname command or uname output not recognized.
+set_cc_for_build
+cat > "$dummy.c" <<EOF
+#ifdef _SEQUENT_
+#include <sys/types.h>
+#include <sys/utsname.h>
+#endif
+#if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__)
+#if defined (vax) || defined (__vax) || defined (__vax__) || defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__)
+#include <signal.h>
+#if defined(_SIZE_T_) || defined(SIGLOST)
+#include <sys/utsname.h>
+#endif
+#endif
+#endif
+main ()
+{
+#if defined (sony)
+#if defined (MIPSEB)
+ /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed,
+ I don't know.... */
+ printf ("mips-sony-bsd\n"); exit (0);
+#else
+#include <sys/param.h>
+ printf ("m68k-sony-newsos%s\n",
+#ifdef NEWSOS4
+ "4"
+#else
+ ""
+#endif
+ ); exit (0);
+#endif
+#endif
+
+#if defined (NeXT)
+#if !defined (__ARCHITECTURE__)
+#define __ARCHITECTURE__ "m68k"
+#endif
+ int version;
+ version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`;
+ if (version < 4)
+ printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version);
+ else
+ printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version);
+ exit (0);
+#endif
+
+#if defined (MULTIMAX) || defined (n16)
+#if defined (UMAXV)
+ printf ("ns32k-encore-sysv\n"); exit (0);
+#else
+#if defined (CMU)
+ printf ("ns32k-encore-mach\n"); exit (0);
+#else
+ printf ("ns32k-encore-bsd\n"); exit (0);
+#endif
+#endif
+#endif
+
+#if defined (__386BSD__)
+ printf ("i386-pc-bsd\n"); exit (0);
+#endif
+
+#if defined (sequent)
+#if defined (i386)
+ printf ("i386-sequent-dynix\n"); exit (0);
+#endif
+#if defined (ns32000)
+ printf ("ns32k-sequent-dynix\n"); exit (0);
+#endif
+#endif
+
+#if defined (_SEQUENT_)
+ struct utsname un;
+
+ uname(&un);
+ if (strncmp(un.version, "V2", 2) == 0) {
+ printf ("i386-sequent-ptx2\n"); exit (0);
+ }
+ if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */
+ printf ("i386-sequent-ptx1\n"); exit (0);
+ }
+ printf ("i386-sequent-ptx\n"); exit (0);
+#endif
+
+#if defined (vax)
+#if !defined (ultrix)
+#include <sys/param.h>
+#if defined (BSD)
+#if BSD == 43
+ printf ("vax-dec-bsd4.3\n"); exit (0);
+#else
+#if BSD == 199006
+ printf ("vax-dec-bsd4.3reno\n"); exit (0);
+#else
+ printf ("vax-dec-bsd\n"); exit (0);
+#endif
+#endif
+#else
+ printf ("vax-dec-bsd\n"); exit (0);
+#endif
+#else
+#if defined(_SIZE_T_) || defined(SIGLOST)
+ struct utsname un;
+ uname (&un);
+ printf ("vax-dec-ultrix%s\n", un.release); exit (0);
+#else
+ printf ("vax-dec-ultrix\n"); exit (0);
+#endif
+#endif
+#endif
+#if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__)
+#if defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__)
+#if defined(_SIZE_T_) || defined(SIGLOST)
+ struct utsname *un;
+ uname (&un);
+ printf ("mips-dec-ultrix%s\n", un.release); exit (0);
+#else
+ printf ("mips-dec-ultrix\n"); exit (0);
+#endif
+#endif
+#endif
+
+#if defined (alliant) && defined (i860)
+ printf ("i860-alliant-bsd\n"); exit (0);
+#endif
+
+ exit (1);
+}
+EOF
+
+$CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null && SYSTEM_NAME=`"$dummy"` &&
+ { echo "$SYSTEM_NAME"; exit; }
+
+# Apollos put the system type in the environment.
+test -d /usr/apollo && { echo "$ISP-apollo-$SYSTYPE"; exit; }
+
+echo "$0: unable to guess system type" >&2
+
+case $UNAME_MACHINE:$UNAME_SYSTEM in
+ mips:Linux | mips64:Linux)
+ # If we got here on MIPS GNU/Linux, output extra information.
+ cat >&2 <<EOF
+
+NOTE: MIPS GNU/Linux systems require a C compiler to fully recognize
+the system type. Please install a C compiler and try again.
+EOF
+ ;;
+esac
+
+cat >&2 <<EOF
+
+This script (version $timestamp), has failed to recognize the
+operating system you are using. If your script is old, overwrite *all*
+copies of config.guess and config.sub with the latest versions from:
+
+ https://git.savannah.gnu.org/cgit/config.git/plain/config.guess
+and
+ https://git.savannah.gnu.org/cgit/config.git/plain/config.sub
+EOF
+
+our_year=`echo $timestamp | sed 's,-.*,,'`
+thisyear=`date +%Y`
+# shellcheck disable=SC2003
+script_age=`expr "$thisyear" - "$our_year"`
+if test "$script_age" -lt 3 ; then
+ cat >&2 <<EOF
+
+If $0 has already been updated, send the following data and any
+information you think might be pertinent to config-patches@gnu.org to
+provide the necessary information to handle your system.
+
+config.guess timestamp = $timestamp
+
+uname -m = `(uname -m) 2>/dev/null || echo unknown`
+uname -r = `(uname -r) 2>/dev/null || echo unknown`
+uname -s = `(uname -s) 2>/dev/null || echo unknown`
+uname -v = `(uname -v) 2>/dev/null || echo unknown`
+
+/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null`
+/bin/uname -X = `(/bin/uname -X) 2>/dev/null`
+
+hostinfo = `(hostinfo) 2>/dev/null`
+/bin/universe = `(/bin/universe) 2>/dev/null`
+/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null`
+/bin/arch = `(/bin/arch) 2>/dev/null`
+/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null`
+/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null`
+
+UNAME_MACHINE = "$UNAME_MACHINE"
+UNAME_RELEASE = "$UNAME_RELEASE"
+UNAME_SYSTEM = "$UNAME_SYSTEM"
+UNAME_VERSION = "$UNAME_VERSION"
+EOF
+fi
+
+exit 1
+
+# Local variables:
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-start: "timestamp='"
+# time-stamp-format: "%:y-%02m-%02d"
+# time-stamp-end: "'"
+# End:
diff --git a/config/config.sub b/config/config.sub
new file mode 100755
index 000000000..2c6a07ab3
--- /dev/null
+++ b/config/config.sub
@@ -0,0 +1,1971 @@
+#! /bin/sh
+# Configuration validation subroutine script.
+# Copyright 1992-2024 Free Software Foundation, Inc.
+
+# shellcheck disable=SC2006,SC2268 # see below for rationale
+
+timestamp='2024-01-01'
+
+# This file 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 <https://www.gnu.org/licenses/>.
+#
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that
+# program. This Exception is an additional permission under section 7
+# of the GNU General Public License, version 3 ("GPLv3").
+
+
+# Please send patches to <config-patches@gnu.org>.
+#
+# Configuration subroutine to validate and canonicalize a configuration type.
+# Supply the specified configuration type as an argument.
+# If it is invalid, we print an error message on stderr and exit with code 1.
+# Otherwise, we print the canonical config type on stdout and succeed.
+
+# You can get the latest version of this script from:
+# https://git.savannah.gnu.org/cgit/config.git/plain/config.sub
+
+# This file is supposed to be the same for all GNU packages
+# and recognize all the CPU types, system types and aliases
+# that are meaningful with *any* GNU software.
+# Each package is responsible for reporting which valid configurations
+# it does not support. The user should be able to distinguish
+# a failure to support a valid configuration from a meaningless
+# configuration.
+
+# The goal of this file is to map all the various variations of a given
+# machine specification into a single specification in the form:
+# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM
+# or in some cases, the newer four-part form:
+# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM
+# It is wrong to echo any other type of specification.
+
+# The "shellcheck disable" line above the timestamp inhibits complaints
+# about features and limitations of the classic Bourne shell that were
+# superseded or lifted in POSIX. However, this script identifies a wide
+# variety of pre-POSIX systems that do not have POSIX shells at all, and
+# even some reasonably current systems (Solaris 10 as case-in-point) still
+# have a pre-POSIX /bin/sh.
+
+me=`echo "$0" | sed -e 's,.*/,,'`
+
+usage="\
+Usage: $0 [OPTION] CPU-MFR-OPSYS or ALIAS
+
+Canonicalize a configuration name.
+
+Options:
+ -h, --help print this help, then exit
+ -t, --time-stamp print date of last modification, then exit
+ -v, --version print version number, then exit
+
+Report bugs and patches to <config-patches@gnu.org>."
+
+version="\
+GNU config.sub ($timestamp)
+
+Copyright 1992-2024 Free Software Foundation, Inc.
+
+This is free software; see the source for copying conditions. There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
+
+help="
+Try '$me --help' for more information."
+
+# Parse command line
+while test $# -gt 0 ; do
+ case $1 in
+ --time-stamp | --time* | -t )
+ echo "$timestamp" ; exit ;;
+ --version | -v )
+ echo "$version" ; exit ;;
+ --help | --h* | -h )
+ echo "$usage"; exit ;;
+ -- ) # Stop option processing
+ shift; break ;;
+ - ) # Use stdin as input.
+ break ;;
+ -* )
+ echo "$me: invalid option $1$help" >&2
+ exit 1 ;;
+
+ *local*)
+ # First pass through any local machine types.
+ echo "$1"
+ exit ;;
+
+ * )
+ break ;;
+ esac
+done
+
+case $# in
+ 0) echo "$me: missing argument$help" >&2
+ exit 1;;
+ 1) ;;
+ *) echo "$me: too many arguments$help" >&2
+ exit 1;;
+esac
+
+# Split fields of configuration type
+# shellcheck disable=SC2162
+saved_IFS=$IFS
+IFS="-" read field1 field2 field3 field4 <<EOF
+$1
+EOF
+IFS=$saved_IFS
+
+# Separate into logical components for further validation
+case $1 in
+ *-*-*-*-*)
+ echo "Invalid configuration '$1': more than four components" >&2
+ exit 1
+ ;;
+ *-*-*-*)
+ basic_machine=$field1-$field2
+ basic_os=$field3-$field4
+ ;;
+ *-*-*)
+ # Ambiguous whether COMPANY is present, or skipped and KERNEL-OS is two
+ # parts
+ maybe_os=$field2-$field3
+ case $maybe_os in
+ nto-qnx* | linux-* | uclinux-uclibc* \
+ | uclinux-gnu* | kfreebsd*-gnu* | knetbsd*-gnu* | netbsd*-gnu* \
+ | netbsd*-eabi* | kopensolaris*-gnu* | cloudabi*-eabi* \
+ | storm-chaos* | os2-emx* | rtmk-nova* | managarm-* \
+ | windows-* )
+ basic_machine=$field1
+ basic_os=$maybe_os
+ ;;
+ android-linux)
+ basic_machine=$field1-unknown
+ basic_os=linux-android
+ ;;
+ *)
+ basic_machine=$field1-$field2
+ basic_os=$field3
+ ;;
+ esac
+ ;;
+ *-*)
+ # A lone config we happen to match not fitting any pattern
+ case $field1-$field2 in
+ decstation-3100)
+ basic_machine=mips-dec
+ basic_os=
+ ;;
+ *-*)
+ # Second component is usually, but not always the OS
+ case $field2 in
+ # Prevent following clause from handling this valid os
+ sun*os*)
+ basic_machine=$field1
+ basic_os=$field2
+ ;;
+ zephyr*)
+ basic_machine=$field1-unknown
+ basic_os=$field2
+ ;;
+ # Manufacturers
+ dec* | mips* | sequent* | encore* | pc533* | sgi* | sony* \
+ | att* | 7300* | 3300* | delta* | motorola* | sun[234]* \
+ | unicom* | ibm* | next | hp | isi* | apollo | altos* \
+ | convergent* | ncr* | news | 32* | 3600* | 3100* \
+ | hitachi* | c[123]* | convex* | sun | crds | omron* | dg \
+ | ultra | tti* | harris | dolphin | highlevel | gould \
+ | cbm | ns | masscomp | apple | axis | knuth | cray \
+ | microblaze* | sim | cisco \
+ | oki | wec | wrs | winbond)
+ basic_machine=$field1-$field2
+ basic_os=
+ ;;
+ *)
+ basic_machine=$field1
+ basic_os=$field2
+ ;;
+ esac
+ ;;
+ esac
+ ;;
+ *)
+ # Convert single-component short-hands not valid as part of
+ # multi-component configurations.
+ case $field1 in
+ 386bsd)
+ basic_machine=i386-pc
+ basic_os=bsd
+ ;;
+ a29khif)
+ basic_machine=a29k-amd
+ basic_os=udi
+ ;;
+ adobe68k)
+ basic_machine=m68010-adobe
+ basic_os=scout
+ ;;
+ alliant)
+ basic_machine=fx80-alliant
+ basic_os=
+ ;;
+ altos | altos3068)
+ basic_machine=m68k-altos
+ basic_os=
+ ;;
+ am29k)
+ basic_machine=a29k-none
+ basic_os=bsd
+ ;;
+ amdahl)
+ basic_machine=580-amdahl
+ basic_os=sysv
+ ;;
+ amiga)
+ basic_machine=m68k-unknown
+ basic_os=
+ ;;
+ amigaos | amigados)
+ basic_machine=m68k-unknown
+ basic_os=amigaos
+ ;;
+ amigaunix | amix)
+ basic_machine=m68k-unknown
+ basic_os=sysv4
+ ;;
+ apollo68)
+ basic_machine=m68k-apollo
+ basic_os=sysv
+ ;;
+ apollo68bsd)
+ basic_machine=m68k-apollo
+ basic_os=bsd
+ ;;
+ aros)
+ basic_machine=i386-pc
+ basic_os=aros
+ ;;
+ aux)
+ basic_machine=m68k-apple
+ basic_os=aux
+ ;;
+ balance)
+ basic_machine=ns32k-sequent
+ basic_os=dynix
+ ;;
+ blackfin)
+ basic_machine=bfin-unknown
+ basic_os=linux
+ ;;
+ cegcc)
+ basic_machine=arm-unknown
+ basic_os=cegcc
+ ;;
+ convex-c1)
+ basic_machine=c1-convex
+ basic_os=bsd
+ ;;
+ convex-c2)
+ basic_machine=c2-convex
+ basic_os=bsd
+ ;;
+ convex-c32)
+ basic_machine=c32-convex
+ basic_os=bsd
+ ;;
+ convex-c34)
+ basic_machine=c34-convex
+ basic_os=bsd
+ ;;
+ convex-c38)
+ basic_machine=c38-convex
+ basic_os=bsd
+ ;;
+ cray)
+ basic_machine=j90-cray
+ basic_os=unicos
+ ;;
+ crds | unos)
+ basic_machine=m68k-crds
+ basic_os=
+ ;;
+ da30)
+ basic_machine=m68k-da30
+ basic_os=
+ ;;
+ decstation | pmax | pmin | dec3100 | decstatn)
+ basic_machine=mips-dec
+ basic_os=
+ ;;
+ delta88)
+ basic_machine=m88k-motorola
+ basic_os=sysv3
+ ;;
+ dicos)
+ basic_machine=i686-pc
+ basic_os=dicos
+ ;;
+ djgpp)
+ basic_machine=i586-pc
+ basic_os=msdosdjgpp
+ ;;
+ ebmon29k)
+ basic_machine=a29k-amd
+ basic_os=ebmon
+ ;;
+ es1800 | OSE68k | ose68k | ose | OSE)
+ basic_machine=m68k-ericsson
+ basic_os=ose
+ ;;
+ gmicro)
+ basic_machine=tron-gmicro
+ basic_os=sysv
+ ;;
+ go32)
+ basic_machine=i386-pc
+ basic_os=go32
+ ;;
+ h8300hms)
+ basic_machine=h8300-hitachi
+ basic_os=hms
+ ;;
+ h8300xray)
+ basic_machine=h8300-hitachi
+ basic_os=xray
+ ;;
+ h8500hms)
+ basic_machine=h8500-hitachi
+ basic_os=hms
+ ;;
+ harris)
+ basic_machine=m88k-harris
+ basic_os=sysv3
+ ;;
+ hp300 | hp300hpux)
+ basic_machine=m68k-hp
+ basic_os=hpux
+ ;;
+ hp300bsd)
+ basic_machine=m68k-hp
+ basic_os=bsd
+ ;;
+ hppaosf)
+ basic_machine=hppa1.1-hp
+ basic_os=osf
+ ;;
+ hppro)
+ basic_machine=hppa1.1-hp
+ basic_os=proelf
+ ;;
+ i386mach)
+ basic_machine=i386-mach
+ basic_os=mach
+ ;;
+ isi68 | isi)
+ basic_machine=m68k-isi
+ basic_os=sysv
+ ;;
+ m68knommu)
+ basic_machine=m68k-unknown
+ basic_os=linux
+ ;;
+ magnum | m3230)
+ basic_machine=mips-mips
+ basic_os=sysv
+ ;;
+ merlin)
+ basic_machine=ns32k-utek
+ basic_os=sysv
+ ;;
+ mingw64)
+ basic_machine=x86_64-pc
+ basic_os=mingw64
+ ;;
+ mingw32)
+ basic_machine=i686-pc
+ basic_os=mingw32
+ ;;
+ mingw32ce)
+ basic_machine=arm-unknown
+ basic_os=mingw32ce
+ ;;
+ monitor)
+ basic_machine=m68k-rom68k
+ basic_os=coff
+ ;;
+ morphos)
+ basic_machine=powerpc-unknown
+ basic_os=morphos
+ ;;
+ moxiebox)
+ basic_machine=moxie-unknown
+ basic_os=moxiebox
+ ;;
+ msdos)
+ basic_machine=i386-pc
+ basic_os=msdos
+ ;;
+ msys)
+ basic_machine=i686-pc
+ basic_os=msys
+ ;;
+ mvs)
+ basic_machine=i370-ibm
+ basic_os=mvs
+ ;;
+ nacl)
+ basic_machine=le32-unknown
+ basic_os=nacl
+ ;;
+ ncr3000)
+ basic_machine=i486-ncr
+ basic_os=sysv4
+ ;;
+ netbsd386)
+ basic_machine=i386-pc
+ basic_os=netbsd
+ ;;
+ netwinder)
+ basic_machine=armv4l-rebel
+ basic_os=linux
+ ;;
+ news | news700 | news800 | news900)
+ basic_machine=m68k-sony
+ basic_os=newsos
+ ;;
+ news1000)
+ basic_machine=m68030-sony
+ basic_os=newsos
+ ;;
+ necv70)
+ basic_machine=v70-nec
+ basic_os=sysv
+ ;;
+ nh3000)
+ basic_machine=m68k-harris
+ basic_os=cxux
+ ;;
+ nh[45]000)
+ basic_machine=m88k-harris
+ basic_os=cxux
+ ;;
+ nindy960)
+ basic_machine=i960-intel
+ basic_os=nindy
+ ;;
+ mon960)
+ basic_machine=i960-intel
+ basic_os=mon960
+ ;;
+ nonstopux)
+ basic_machine=mips-compaq
+ basic_os=nonstopux
+ ;;
+ os400)
+ basic_machine=powerpc-ibm
+ basic_os=os400
+ ;;
+ OSE68000 | ose68000)
+ basic_machine=m68000-ericsson
+ basic_os=ose
+ ;;
+ os68k)
+ basic_machine=m68k-none
+ basic_os=os68k
+ ;;
+ paragon)
+ basic_machine=i860-intel
+ basic_os=osf
+ ;;
+ parisc)
+ basic_machine=hppa-unknown
+ basic_os=linux
+ ;;
+ psp)
+ basic_machine=mipsallegrexel-sony
+ basic_os=psp
+ ;;
+ pw32)
+ basic_machine=i586-unknown
+ basic_os=pw32
+ ;;
+ rdos | rdos64)
+ basic_machine=x86_64-pc
+ basic_os=rdos
+ ;;
+ rdos32)
+ basic_machine=i386-pc
+ basic_os=rdos
+ ;;
+ rom68k)
+ basic_machine=m68k-rom68k
+ basic_os=coff
+ ;;
+ sa29200)
+ basic_machine=a29k-amd
+ basic_os=udi
+ ;;
+ sei)
+ basic_machine=mips-sei
+ basic_os=seiux
+ ;;
+ sequent)
+ basic_machine=i386-sequent
+ basic_os=
+ ;;
+ sps7)
+ basic_machine=m68k-bull
+ basic_os=sysv2
+ ;;
+ st2000)
+ basic_machine=m68k-tandem
+ basic_os=
+ ;;
+ stratus)
+ basic_machine=i860-stratus
+ basic_os=sysv4
+ ;;
+ sun2)
+ basic_machine=m68000-sun
+ basic_os=
+ ;;
+ sun2os3)
+ basic_machine=m68000-sun
+ basic_os=sunos3
+ ;;
+ sun2os4)
+ basic_machine=m68000-sun
+ basic_os=sunos4
+ ;;
+ sun3)
+ basic_machine=m68k-sun
+ basic_os=
+ ;;
+ sun3os3)
+ basic_machine=m68k-sun
+ basic_os=sunos3
+ ;;
+ sun3os4)
+ basic_machine=m68k-sun
+ basic_os=sunos4
+ ;;
+ sun4)
+ basic_machine=sparc-sun
+ basic_os=
+ ;;
+ sun4os3)
+ basic_machine=sparc-sun
+ basic_os=sunos3
+ ;;
+ sun4os4)
+ basic_machine=sparc-sun
+ basic_os=sunos4
+ ;;
+ sun4sol2)
+ basic_machine=sparc-sun
+ basic_os=solaris2
+ ;;
+ sun386 | sun386i | roadrunner)
+ basic_machine=i386-sun
+ basic_os=
+ ;;
+ sv1)
+ basic_machine=sv1-cray
+ basic_os=unicos
+ ;;
+ symmetry)
+ basic_machine=i386-sequent
+ basic_os=dynix
+ ;;
+ t3e)
+ basic_machine=alphaev5-cray
+ basic_os=unicos
+ ;;
+ t90)
+ basic_machine=t90-cray
+ basic_os=unicos
+ ;;
+ toad1)
+ basic_machine=pdp10-xkl
+ basic_os=tops20
+ ;;
+ tpf)
+ basic_machine=s390x-ibm
+ basic_os=tpf
+ ;;
+ udi29k)
+ basic_machine=a29k-amd
+ basic_os=udi
+ ;;
+ ultra3)
+ basic_machine=a29k-nyu
+ basic_os=sym1
+ ;;
+ v810 | necv810)
+ basic_machine=v810-nec
+ basic_os=none
+ ;;
+ vaxv)
+ basic_machine=vax-dec
+ basic_os=sysv
+ ;;
+ vms)
+ basic_machine=vax-dec
+ basic_os=vms
+ ;;
+ vsta)
+ basic_machine=i386-pc
+ basic_os=vsta
+ ;;
+ vxworks960)
+ basic_machine=i960-wrs
+ basic_os=vxworks
+ ;;
+ vxworks68)
+ basic_machine=m68k-wrs
+ basic_os=vxworks
+ ;;
+ vxworks29k)
+ basic_machine=a29k-wrs
+ basic_os=vxworks
+ ;;
+ xbox)
+ basic_machine=i686-pc
+ basic_os=mingw32
+ ;;
+ ymp)
+ basic_machine=ymp-cray
+ basic_os=unicos
+ ;;
+ *)
+ basic_machine=$1
+ basic_os=
+ ;;
+ esac
+ ;;
+esac
+
+# Decode 1-component or ad-hoc basic machines
+case $basic_machine in
+ # Here we handle the default manufacturer of certain CPU types. It is in
+ # some cases the only manufacturer, in others, it is the most popular.
+ w89k)
+ cpu=hppa1.1
+ vendor=winbond
+ ;;
+ op50n)
+ cpu=hppa1.1
+ vendor=oki
+ ;;
+ op60c)
+ cpu=hppa1.1
+ vendor=oki
+ ;;
+ ibm*)
+ cpu=i370
+ vendor=ibm
+ ;;
+ orion105)
+ cpu=clipper
+ vendor=highlevel
+ ;;
+ mac | mpw | mac-mpw)
+ cpu=m68k
+ vendor=apple
+ ;;
+ pmac | pmac-mpw)
+ cpu=powerpc
+ vendor=apple
+ ;;
+
+ # Recognize the various machine names and aliases which stand
+ # for a CPU type and a company and sometimes even an OS.
+ 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc)
+ cpu=m68000
+ vendor=att
+ ;;
+ 3b*)
+ cpu=we32k
+ vendor=att
+ ;;
+ bluegene*)
+ cpu=powerpc
+ vendor=ibm
+ basic_os=cnk
+ ;;
+ decsystem10* | dec10*)
+ cpu=pdp10
+ vendor=dec
+ basic_os=tops10
+ ;;
+ decsystem20* | dec20*)
+ cpu=pdp10
+ vendor=dec
+ basic_os=tops20
+ ;;
+ delta | 3300 | motorola-3300 | motorola-delta \
+ | 3300-motorola | delta-motorola)
+ cpu=m68k
+ vendor=motorola
+ ;;
+ dpx2*)
+ cpu=m68k
+ vendor=bull
+ basic_os=sysv3
+ ;;
+ encore | umax | mmax)
+ cpu=ns32k
+ vendor=encore
+ ;;
+ elxsi)
+ cpu=elxsi
+ vendor=elxsi
+ basic_os=${basic_os:-bsd}
+ ;;
+ fx2800)
+ cpu=i860
+ vendor=alliant
+ ;;
+ genix)
+ cpu=ns32k
+ vendor=ns
+ ;;
+ h3050r* | hiux*)
+ cpu=hppa1.1
+ vendor=hitachi
+ basic_os=hiuxwe2
+ ;;
+ hp3k9[0-9][0-9] | hp9[0-9][0-9])
+ cpu=hppa1.0
+ vendor=hp
+ ;;
+ hp9k2[0-9][0-9] | hp9k31[0-9])
+ cpu=m68000
+ vendor=hp
+ ;;
+ hp9k3[2-9][0-9])
+ cpu=m68k
+ vendor=hp
+ ;;
+ hp9k6[0-9][0-9] | hp6[0-9][0-9])
+ cpu=hppa1.0
+ vendor=hp
+ ;;
+ hp9k7[0-79][0-9] | hp7[0-79][0-9])
+ cpu=hppa1.1
+ vendor=hp
+ ;;
+ hp9k78[0-9] | hp78[0-9])
+ # FIXME: really hppa2.0-hp
+ cpu=hppa1.1
+ vendor=hp
+ ;;
+ hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893)
+ # FIXME: really hppa2.0-hp
+ cpu=hppa1.1
+ vendor=hp
+ ;;
+ hp9k8[0-9][13679] | hp8[0-9][13679])
+ cpu=hppa1.1
+ vendor=hp
+ ;;
+ hp9k8[0-9][0-9] | hp8[0-9][0-9])
+ cpu=hppa1.0
+ vendor=hp
+ ;;
+ i*86v32)
+ cpu=`echo "$1" | sed -e 's/86.*/86/'`
+ vendor=pc
+ basic_os=sysv32
+ ;;
+ i*86v4*)
+ cpu=`echo "$1" | sed -e 's/86.*/86/'`
+ vendor=pc
+ basic_os=sysv4
+ ;;
+ i*86v)
+ cpu=`echo "$1" | sed -e 's/86.*/86/'`
+ vendor=pc
+ basic_os=sysv
+ ;;
+ i*86sol2)
+ cpu=`echo "$1" | sed -e 's/86.*/86/'`
+ vendor=pc
+ basic_os=solaris2
+ ;;
+ j90 | j90-cray)
+ cpu=j90
+ vendor=cray
+ basic_os=${basic_os:-unicos}
+ ;;
+ iris | iris4d)
+ cpu=mips
+ vendor=sgi
+ case $basic_os in
+ irix*)
+ ;;
+ *)
+ basic_os=irix4
+ ;;
+ esac
+ ;;
+ miniframe)
+ cpu=m68000
+ vendor=convergent
+ ;;
+ *mint | mint[0-9]* | *MiNT | *MiNT[0-9]*)
+ cpu=m68k
+ vendor=atari
+ basic_os=mint
+ ;;
+ news-3600 | risc-news)
+ cpu=mips
+ vendor=sony
+ basic_os=newsos
+ ;;
+ next | m*-next)
+ cpu=m68k
+ vendor=next
+ case $basic_os in
+ openstep*)
+ ;;
+ nextstep*)
+ ;;
+ ns2*)
+ basic_os=nextstep2
+ ;;
+ *)
+ basic_os=nextstep3
+ ;;
+ esac
+ ;;
+ np1)
+ cpu=np1
+ vendor=gould
+ ;;
+ op50n-* | op60c-*)
+ cpu=hppa1.1
+ vendor=oki
+ basic_os=proelf
+ ;;
+ pa-hitachi)
+ cpu=hppa1.1
+ vendor=hitachi
+ basic_os=hiuxwe2
+ ;;
+ pbd)
+ cpu=sparc
+ vendor=tti
+ ;;
+ pbb)
+ cpu=m68k
+ vendor=tti
+ ;;
+ pc532)
+ cpu=ns32k
+ vendor=pc532
+ ;;
+ pn)
+ cpu=pn
+ vendor=gould
+ ;;
+ power)
+ cpu=power
+ vendor=ibm
+ ;;
+ ps2)
+ cpu=i386
+ vendor=ibm
+ ;;
+ rm[46]00)
+ cpu=mips
+ vendor=siemens
+ ;;
+ rtpc | rtpc-*)
+ cpu=romp
+ vendor=ibm
+ ;;
+ sde)
+ cpu=mipsisa32
+ vendor=sde
+ basic_os=${basic_os:-elf}
+ ;;
+ simso-wrs)
+ cpu=sparclite
+ vendor=wrs
+ basic_os=vxworks
+ ;;
+ tower | tower-32)
+ cpu=m68k
+ vendor=ncr
+ ;;
+ vpp*|vx|vx-*)
+ cpu=f301
+ vendor=fujitsu
+ ;;
+ w65)
+ cpu=w65
+ vendor=wdc
+ ;;
+ w89k-*)
+ cpu=hppa1.1
+ vendor=winbond
+ basic_os=proelf
+ ;;
+ none)
+ cpu=none
+ vendor=none
+ ;;
+ leon|leon[3-9])
+ cpu=sparc
+ vendor=$basic_machine
+ ;;
+ leon-*|leon[3-9]-*)
+ cpu=sparc
+ vendor=`echo "$basic_machine" | sed 's/-.*//'`
+ ;;
+
+ *-*)
+ # shellcheck disable=SC2162
+ saved_IFS=$IFS
+ IFS="-" read cpu vendor <<EOF
+$basic_machine
+EOF
+ IFS=$saved_IFS
+ ;;
+ # We use 'pc' rather than 'unknown'
+ # because (1) that's what they normally are, and
+ # (2) the word "unknown" tends to confuse beginning users.
+ i*86 | x86_64)
+ cpu=$basic_machine
+ vendor=pc
+ ;;
+ # These rules are duplicated from below for sake of the special case above;
+ # i.e. things that normalized to x86 arches should also default to "pc"
+ pc98)
+ cpu=i386
+ vendor=pc
+ ;;
+ x64 | amd64)
+ cpu=x86_64
+ vendor=pc
+ ;;
+ # Recognize the basic CPU types without company name.
+ *)
+ cpu=$basic_machine
+ vendor=unknown
+ ;;
+esac
+
+unset -v basic_machine
+
+# Decode basic machines in the full and proper CPU-Company form.
+case $cpu-$vendor in
+ # Here we handle the default manufacturer of certain CPU types in canonical form. It is in
+ # some cases the only manufacturer, in others, it is the most popular.
+ craynv-unknown)
+ vendor=cray
+ basic_os=${basic_os:-unicosmp}
+ ;;
+ c90-unknown | c90-cray)
+ vendor=cray
+ basic_os=${Basic_os:-unicos}
+ ;;
+ fx80-unknown)
+ vendor=alliant
+ ;;
+ romp-unknown)
+ vendor=ibm
+ ;;
+ mmix-unknown)
+ vendor=knuth
+ ;;
+ microblaze-unknown | microblazeel-unknown)
+ vendor=xilinx
+ ;;
+ rs6000-unknown)
+ vendor=ibm
+ ;;
+ vax-unknown)
+ vendor=dec
+ ;;
+ pdp11-unknown)
+ vendor=dec
+ ;;
+ we32k-unknown)
+ vendor=att
+ ;;
+ cydra-unknown)
+ vendor=cydrome
+ ;;
+ i370-ibm*)
+ vendor=ibm
+ ;;
+ orion-unknown)
+ vendor=highlevel
+ ;;
+ xps-unknown | xps100-unknown)
+ cpu=xps100
+ vendor=honeywell
+ ;;
+
+ # Here we normalize CPU types with a missing or matching vendor
+ armh-unknown | armh-alt)
+ cpu=armv7l
+ vendor=alt
+ basic_os=${basic_os:-linux-gnueabihf}
+ ;;
+ dpx20-unknown | dpx20-bull)
+ cpu=rs6000
+ vendor=bull
+ basic_os=${basic_os:-bosx}
+ ;;
+
+ # Here we normalize CPU types irrespective of the vendor
+ amd64-*)
+ cpu=x86_64
+ ;;
+ blackfin-*)
+ cpu=bfin
+ basic_os=linux
+ ;;
+ c54x-*)
+ cpu=tic54x
+ ;;
+ c55x-*)
+ cpu=tic55x
+ ;;
+ c6x-*)
+ cpu=tic6x
+ ;;
+ e500v[12]-*)
+ cpu=powerpc
+ basic_os=${basic_os}"spe"
+ ;;
+ mips3*-*)
+ cpu=mips64
+ ;;
+ ms1-*)
+ cpu=mt
+ ;;
+ m68knommu-*)
+ cpu=m68k
+ basic_os=linux
+ ;;
+ m9s12z-* | m68hcs12z-* | hcs12z-* | s12z-*)
+ cpu=s12z
+ ;;
+ openrisc-*)
+ cpu=or32
+ ;;
+ parisc-*)
+ cpu=hppa
+ basic_os=linux
+ ;;
+ pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*)
+ cpu=i586
+ ;;
+ pentiumpro-* | p6-* | 6x86-* | athlon-* | athlon_*-*)
+ cpu=i686
+ ;;
+ pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*)
+ cpu=i686
+ ;;
+ pentium4-*)
+ cpu=i786
+ ;;
+ pc98-*)
+ cpu=i386
+ ;;
+ ppc-* | ppcbe-*)
+ cpu=powerpc
+ ;;
+ ppcle-* | powerpclittle-*)
+ cpu=powerpcle
+ ;;
+ ppc64-*)
+ cpu=powerpc64
+ ;;
+ ppc64le-* | powerpc64little-*)
+ cpu=powerpc64le
+ ;;
+ sb1-*)
+ cpu=mipsisa64sb1
+ ;;
+ sb1el-*)
+ cpu=mipsisa64sb1el
+ ;;
+ sh5e[lb]-*)
+ cpu=`echo "$cpu" | sed 's/^\(sh.\)e\(.\)$/\1\2e/'`
+ ;;
+ spur-*)
+ cpu=spur
+ ;;
+ strongarm-* | thumb-*)
+ cpu=arm
+ ;;
+ tx39-*)
+ cpu=mipstx39
+ ;;
+ tx39el-*)
+ cpu=mipstx39el
+ ;;
+ x64-*)
+ cpu=x86_64
+ ;;
+ xscale-* | xscalee[bl]-*)
+ cpu=`echo "$cpu" | sed 's/^xscale/arm/'`
+ ;;
+ arm64-* | aarch64le-*)
+ cpu=aarch64
+ ;;
+
+ # Recognize the canonical CPU Types that limit and/or modify the
+ # company names they are paired with.
+ cr16-*)
+ basic_os=${basic_os:-elf}
+ ;;
+ crisv32-* | etraxfs*-*)
+ cpu=crisv32
+ vendor=axis
+ ;;
+ cris-* | etrax*-*)
+ cpu=cris
+ vendor=axis
+ ;;
+ crx-*)
+ basic_os=${basic_os:-elf}
+ ;;
+ neo-tandem)
+ cpu=neo
+ vendor=tandem
+ ;;
+ nse-tandem)
+ cpu=nse
+ vendor=tandem
+ ;;
+ nsr-tandem)
+ cpu=nsr
+ vendor=tandem
+ ;;
+ nsv-tandem)
+ cpu=nsv
+ vendor=tandem
+ ;;
+ nsx-tandem)
+ cpu=nsx
+ vendor=tandem
+ ;;
+ mipsallegrexel-sony)
+ cpu=mipsallegrexel
+ vendor=sony
+ ;;
+ tile*-*)
+ basic_os=${basic_os:-linux-gnu}
+ ;;
+
+ *)
+ # Recognize the canonical CPU types that are allowed with any
+ # company name.
+ case $cpu in
+ 1750a | 580 \
+ | a29k \
+ | aarch64 | aarch64_be | aarch64c | arm64ec \
+ | abacus \
+ | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] \
+ | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] \
+ | alphapca5[67] | alpha64pca5[67] \
+ | am33_2.0 \
+ | amdgcn \
+ | arc | arceb | arc32 | arc64 \
+ | arm | arm[lb]e | arme[lb] | armv* \
+ | avr | avr32 \
+ | asmjs \
+ | ba \
+ | be32 | be64 \
+ | bfin | bpf | bs2000 \
+ | c[123]* | c30 | [cjt]90 | c4x \
+ | c8051 | clipper | craynv | csky | cydra \
+ | d10v | d30v | dlx | dsp16xx \
+ | e2k | elxsi | epiphany \
+ | f30[01] | f700 | fido | fr30 | frv | ft32 | fx80 \
+ | javascript \
+ | h8300 | h8500 \
+ | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \
+ | hexagon \
+ | i370 | i*86 | i860 | i960 | ia16 | ia64 \
+ | ip2k | iq2000 \
+ | k1om \
+ | kvx \
+ | le32 | le64 \
+ | lm32 \
+ | loongarch32 | loongarch64 \
+ | m32c | m32r | m32rle \
+ | m5200 | m68000 | m680[012346]0 | m68360 | m683?2 | m68k \
+ | m6811 | m68hc11 | m6812 | m68hc12 | m68hcs12x \
+ | m88110 | m88k | maxq | mb | mcore | mep | metag \
+ | microblaze | microblazeel \
+ | mips* \
+ | mmix \
+ | mn10200 | mn10300 \
+ | moxie \
+ | mt \
+ | msp430 \
+ | nanomips* \
+ | nds32 | nds32le | nds32be \
+ | nfp \
+ | nios | nios2 | nios2eb | nios2el \
+ | none | np1 | ns16k | ns32k | nvptx \
+ | open8 \
+ | or1k* \
+ | or32 \
+ | orion \
+ | picochip \
+ | pdp10 | pdp11 | pj | pjl | pn | power \
+ | powerpc | powerpc64 | powerpc64le | powerpcle | powerpcspe \
+ | pru \
+ | pyramid \
+ | riscv | riscv32 | riscv32be | riscv64 | riscv64be \
+ | rl78 | romp | rs6000 | rx \
+ | s390 | s390x \
+ | score \
+ | sh | shl \
+ | sh[1234] | sh[24]a | sh[24]ae[lb] | sh[23]e | she[lb] | sh[lb]e \
+ | sh[1234]e[lb] | sh[12345][lb]e | sh[23]ele | sh64 | sh64le \
+ | sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet \
+ | sparclite \
+ | sparcv8 | sparcv9 | sparcv9b | sparcv9v | sv1 | sx* \
+ | spu \
+ | tahoe \
+ | thumbv7* \
+ | tic30 | tic4x | tic54x | tic55x | tic6x | tic80 \
+ | tron \
+ | ubicom32 \
+ | v70 | v850 | v850e | v850e1 | v850es | v850e2 | v850e2v3 \
+ | vax \
+ | vc4 \
+ | visium \
+ | w65 \
+ | wasm32 | wasm64 \
+ | we32k \
+ | x86 | x86_64 | xc16x | xgate | xps100 \
+ | xstormy16 | xtensa* \
+ | ymp \
+ | z8k | z80)
+ ;;
+
+ *)
+ echo "Invalid configuration '$1': machine '$cpu-$vendor' not recognized" 1>&2
+ exit 1
+ ;;
+ esac
+ ;;
+esac
+
+# Here we canonicalize certain aliases for manufacturers.
+case $vendor in
+ digital*)
+ vendor=dec
+ ;;
+ commodore*)
+ vendor=cbm
+ ;;
+ *)
+ ;;
+esac
+
+# Decode manufacturer-specific aliases for certain operating systems.
+
+if test x"$basic_os" != x
+then
+
+# First recognize some ad-hoc cases, or perhaps split kernel-os, or else just
+# set os.
+obj=
+case $basic_os in
+ gnu/linux*)
+ kernel=linux
+ os=`echo "$basic_os" | sed -e 's|gnu/linux|gnu|'`
+ ;;
+ os2-emx)
+ kernel=os2
+ os=`echo "$basic_os" | sed -e 's|os2-emx|emx|'`
+ ;;
+ nto-qnx*)
+ kernel=nto
+ os=`echo "$basic_os" | sed -e 's|nto-qnx|qnx|'`
+ ;;
+ *-*)
+ # shellcheck disable=SC2162
+ saved_IFS=$IFS
+ IFS="-" read kernel os <<EOF
+$basic_os
+EOF
+ IFS=$saved_IFS
+ ;;
+ # Default OS when just kernel was specified
+ nto*)
+ kernel=nto
+ os=`echo "$basic_os" | sed -e 's|nto|qnx|'`
+ ;;
+ linux*)
+ kernel=linux
+ os=`echo "$basic_os" | sed -e 's|linux|gnu|'`
+ ;;
+ managarm*)
+ kernel=managarm
+ os=`echo "$basic_os" | sed -e 's|managarm|mlibc|'`
+ ;;
+ *)
+ kernel=
+ os=$basic_os
+ ;;
+esac
+
+# Now, normalize the OS (knowing we just have one component, it's not a kernel,
+# etc.)
+case $os in
+ # First match some system type aliases that might get confused
+ # with valid system types.
+ # solaris* is a basic system type, with this one exception.
+ auroraux)
+ os=auroraux
+ ;;
+ bluegene*)
+ os=cnk
+ ;;
+ solaris1 | solaris1.*)
+ os=`echo "$os" | sed -e 's|solaris1|sunos4|'`
+ ;;
+ solaris)
+ os=solaris2
+ ;;
+ unixware*)
+ os=sysv4.2uw
+ ;;
+ # es1800 is here to avoid being matched by es* (a different OS)
+ es1800*)
+ os=ose
+ ;;
+ # Some version numbers need modification
+ chorusos*)
+ os=chorusos
+ ;;
+ isc)
+ os=isc2.2
+ ;;
+ sco6)
+ os=sco5v6
+ ;;
+ sco5)
+ os=sco3.2v5
+ ;;
+ sco4)
+ os=sco3.2v4
+ ;;
+ sco3.2.[4-9]*)
+ os=`echo "$os" | sed -e 's/sco3.2./sco3.2v/'`
+ ;;
+ sco*v* | scout)
+ # Don't match below
+ ;;
+ sco*)
+ os=sco3.2v2
+ ;;
+ psos*)
+ os=psos
+ ;;
+ qnx*)
+ os=qnx
+ ;;
+ hiux*)
+ os=hiuxwe2
+ ;;
+ lynx*178)
+ os=lynxos178
+ ;;
+ lynx*5)
+ os=lynxos5
+ ;;
+ lynxos*)
+ # don't get caught up in next wildcard
+ ;;
+ lynx*)
+ os=lynxos
+ ;;
+ mac[0-9]*)
+ os=`echo "$os" | sed -e 's|mac|macos|'`
+ ;;
+ opened*)
+ os=openedition
+ ;;
+ os400*)
+ os=os400
+ ;;
+ sunos5*)
+ os=`echo "$os" | sed -e 's|sunos5|solaris2|'`
+ ;;
+ sunos6*)
+ os=`echo "$os" | sed -e 's|sunos6|solaris3|'`
+ ;;
+ wince*)
+ os=wince
+ ;;
+ utek*)
+ os=bsd
+ ;;
+ dynix*)
+ os=bsd
+ ;;
+ acis*)
+ os=aos
+ ;;
+ atheos*)
+ os=atheos
+ ;;
+ syllable*)
+ os=syllable
+ ;;
+ 386bsd)
+ os=bsd
+ ;;
+ ctix* | uts*)
+ os=sysv
+ ;;
+ nova*)
+ os=rtmk-nova
+ ;;
+ ns2)
+ os=nextstep2
+ ;;
+ # Preserve the version number of sinix5.
+ sinix5.*)
+ os=`echo "$os" | sed -e 's|sinix|sysv|'`
+ ;;
+ sinix*)
+ os=sysv4
+ ;;
+ tpf*)
+ os=tpf
+ ;;
+ triton*)
+ os=sysv3
+ ;;
+ oss*)
+ os=sysv3
+ ;;
+ svr4*)
+ os=sysv4
+ ;;
+ svr3)
+ os=sysv3
+ ;;
+ sysvr4)
+ os=sysv4
+ ;;
+ ose*)
+ os=ose
+ ;;
+ *mint | mint[0-9]* | *MiNT | MiNT[0-9]*)
+ os=mint
+ ;;
+ dicos*)
+ os=dicos
+ ;;
+ pikeos*)
+ # Until real need of OS specific support for
+ # particular features comes up, bare metal
+ # configurations are quite functional.
+ case $cpu in
+ arm*)
+ os=eabi
+ ;;
+ *)
+ os=
+ obj=elf
+ ;;
+ esac
+ ;;
+ aout* | coff* | elf* | pe*)
+ # These are machine code file formats, not OSes
+ obj=$os
+ os=
+ ;;
+ *)
+ # No normalization, but not necessarily accepted, that comes below.
+ ;;
+esac
+
+else
+
+# Here we handle the default operating systems that come with various machines.
+# The value should be what the vendor currently ships out the door with their
+# machine or put another way, the most popular os provided with the machine.
+
+# Note that if you're going to try to match "-MANUFACTURER" here (say,
+# "-sun"), then you have to tell the case statement up towards the top
+# that MANUFACTURER isn't an operating system. Otherwise, code above
+# will signal an error saying that MANUFACTURER isn't an operating
+# system, and we'll never get to this point.
+
+kernel=
+obj=
+case $cpu-$vendor in
+ score-*)
+ os=
+ obj=elf
+ ;;
+ spu-*)
+ os=
+ obj=elf
+ ;;
+ *-acorn)
+ os=riscix1.2
+ ;;
+ arm*-rebel)
+ kernel=linux
+ os=gnu
+ ;;
+ arm*-semi)
+ os=
+ obj=aout
+ ;;
+ c4x-* | tic4x-*)
+ os=
+ obj=coff
+ ;;
+ c8051-*)
+ os=
+ obj=elf
+ ;;
+ clipper-intergraph)
+ os=clix
+ ;;
+ hexagon-*)
+ os=
+ obj=elf
+ ;;
+ tic54x-*)
+ os=
+ obj=coff
+ ;;
+ tic55x-*)
+ os=
+ obj=coff
+ ;;
+ tic6x-*)
+ os=
+ obj=coff
+ ;;
+ # This must come before the *-dec entry.
+ pdp10-*)
+ os=tops20
+ ;;
+ pdp11-*)
+ os=none
+ ;;
+ *-dec | vax-*)
+ os=ultrix4.2
+ ;;
+ m68*-apollo)
+ os=domain
+ ;;
+ i386-sun)
+ os=sunos4.0.2
+ ;;
+ m68000-sun)
+ os=sunos3
+ ;;
+ m68*-cisco)
+ os=
+ obj=aout
+ ;;
+ mep-*)
+ os=
+ obj=elf
+ ;;
+ mips*-cisco)
+ os=
+ obj=elf
+ ;;
+ mips*-*|nanomips*-*)
+ os=
+ obj=elf
+ ;;
+ or32-*)
+ os=
+ obj=coff
+ ;;
+ *-tti) # must be before sparc entry or we get the wrong os.
+ os=sysv3
+ ;;
+ sparc-* | *-sun)
+ os=sunos4.1.1
+ ;;
+ pru-*)
+ os=
+ obj=elf
+ ;;
+ *-be)
+ os=beos
+ ;;
+ *-ibm)
+ os=aix
+ ;;
+ *-knuth)
+ os=mmixware
+ ;;
+ *-wec)
+ os=proelf
+ ;;
+ *-winbond)
+ os=proelf
+ ;;
+ *-oki)
+ os=proelf
+ ;;
+ *-hp)
+ os=hpux
+ ;;
+ *-hitachi)
+ os=hiux
+ ;;
+ i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent)
+ os=sysv
+ ;;
+ *-cbm)
+ os=amigaos
+ ;;
+ *-dg)
+ os=dgux
+ ;;
+ *-dolphin)
+ os=sysv3
+ ;;
+ m68k-ccur)
+ os=rtu
+ ;;
+ m88k-omron*)
+ os=luna
+ ;;
+ *-next)
+ os=nextstep
+ ;;
+ *-sequent)
+ os=ptx
+ ;;
+ *-crds)
+ os=unos
+ ;;
+ *-ns)
+ os=genix
+ ;;
+ i370-*)
+ os=mvs
+ ;;
+ *-gould)
+ os=sysv
+ ;;
+ *-highlevel)
+ os=bsd
+ ;;
+ *-encore)
+ os=bsd
+ ;;
+ *-sgi)
+ os=irix
+ ;;
+ *-siemens)
+ os=sysv4
+ ;;
+ *-masscomp)
+ os=rtu
+ ;;
+ f30[01]-fujitsu | f700-fujitsu)
+ os=uxpv
+ ;;
+ *-rom68k)
+ os=
+ obj=coff
+ ;;
+ *-*bug)
+ os=
+ obj=coff
+ ;;
+ *-apple)
+ os=macos
+ ;;
+ *-atari*)
+ os=mint
+ ;;
+ *-wrs)
+ os=vxworks
+ ;;
+ *)
+ os=none
+ ;;
+esac
+
+fi
+
+# Now, validate our (potentially fixed-up) individual pieces (OS, OBJ).
+
+case $os in
+ # Sometimes we do "kernel-libc", so those need to count as OSes.
+ llvm* | musl* | newlib* | relibc* | uclibc*)
+ ;;
+ # Likewise for "kernel-abi"
+ eabi* | gnueabi*)
+ ;;
+ # VxWorks passes extra cpu info in the 4th filed.
+ simlinux | simwindows | spe)
+ ;;
+ # See `case $cpu-$os` validation below
+ ghcjs)
+ ;;
+ # Now accept the basic system types.
+ # The portable systems comes first.
+ # Each alternative MUST end in a * to match a version number.
+ gnu* | android* | bsd* | mach* | minix* | genix* | ultrix* | irix* \
+ | *vms* | esix* | aix* | cnk* | sunos | sunos[34]* \
+ | hpux* | unos* | osf* | luna* | dgux* | auroraux* | solaris* \
+ | sym* | plan9* | psp* | sim* | xray* | os68k* | v88r* \
+ | hiux* | abug | nacl* | netware* | windows* \
+ | os9* | macos* | osx* | ios* | tvos* | watchos* \
+ | mpw* | magic* | mmixware* | mon960* | lnews* \
+ | amigaos* | amigados* | msdos* | newsos* | unicos* | aof* \
+ | aos* | aros* | cloudabi* | sortix* | twizzler* \
+ | nindy* | vxsim* | vxworks* | ebmon* | hms* | mvs* \
+ | clix* | riscos* | uniplus* | iris* | isc* | rtu* | xenix* \
+ | mirbsd* | netbsd* | dicos* | openedition* | ose* \
+ | bitrig* | openbsd* | secbsd* | solidbsd* | libertybsd* | os108* \
+ | ekkobsd* | freebsd* | riscix* | lynxos* | os400* \
+ | bosx* | nextstep* | cxux* | oabi* \
+ | ptx* | ecoff* | winnt* | domain* | vsta* \
+ | udi* | lites* | ieee* | go32* | aux* | hcos* \
+ | chorusrdb* | cegcc* | glidix* | serenity* \
+ | cygwin* | msys* | moss* | proelf* | rtems* \
+ | midipix* | mingw32* | mingw64* | mint* \
+ | uxpv* | beos* | mpeix* | udk* | moxiebox* \
+ | interix* | uwin* | mks* | rhapsody* | darwin* \
+ | openstep* | oskit* | conix* | pw32* | nonstopux* \
+ | storm-chaos* | tops10* | tenex* | tops20* | its* \
+ | os2* | vos* | palmos* | uclinux* | nucleus* | morphos* \
+ | scout* | superux* | sysv* | rtmk* | tpf* | windiss* \
+ | powermax* | dnix* | nx6 | nx7 | sei* | dragonfly* \
+ | skyos* | haiku* | rdos* | toppers* | drops* | es* \
+ | onefs* | tirtos* | phoenix* | fuchsia* | redox* | bme* \
+ | midnightbsd* | amdhsa* | unleashed* | emscripten* | wasi* \
+ | nsk* | powerunix* | genode* | zvmoe* | qnx* | emx* | zephyr* \
+ | fiwix* | mlibc* | cos* | mbr* | ironclad* )
+ ;;
+ # This one is extra strict with allowed versions
+ sco3.2v2 | sco3.2v[4-9]* | sco5v6*)
+ # Don't forget version if it is 3.2v4 or newer.
+ ;;
+ # This refers to builds using the UEFI calling convention
+ # (which depends on the architecture) and PE file format.
+ # Note that this is both a different calling convention and
+ # different file format than that of GNU-EFI
+ # (x86_64-w64-mingw32).
+ uefi)
+ ;;
+ none)
+ ;;
+ kernel* | msvc* )
+ # Restricted further below
+ ;;
+ '')
+ if test x"$obj" = x
+ then
+ echo "Invalid configuration '$1': Blank OS only allowed with explicit machine code file format" 1>&2
+ fi
+ ;;
+ *)
+ echo "Invalid configuration '$1': OS '$os' not recognized" 1>&2
+ exit 1
+ ;;
+esac
+
+case $obj in
+ aout* | coff* | elf* | pe*)
+ ;;
+ '')
+ # empty is fine
+ ;;
+ *)
+ echo "Invalid configuration '$1': Machine code format '$obj' not recognized" 1>&2
+ exit 1
+ ;;
+esac
+
+# Here we handle the constraint that a (synthetic) cpu and os are
+# valid only in combination with each other and nowhere else.
+case $cpu-$os in
+ # The "javascript-unknown-ghcjs" triple is used by GHC; we
+ # accept it here in order to tolerate that, but reject any
+ # variations.
+ javascript-ghcjs)
+ ;;
+ javascript-* | *-ghcjs)
+ echo "Invalid configuration '$1': cpu '$cpu' is not valid with os '$os$obj'" 1>&2
+ exit 1
+ ;;
+esac
+
+# As a final step for OS-related things, validate the OS-kernel combination
+# (given a valid OS), if there is a kernel.
+case $kernel-$os-$obj in
+ linux-gnu*- | linux-android*- | linux-dietlibc*- | linux-llvm*- \
+ | linux-mlibc*- | linux-musl*- | linux-newlib*- \
+ | linux-relibc*- | linux-uclibc*- )
+ ;;
+ uclinux-uclibc*- )
+ ;;
+ managarm-mlibc*- | managarm-kernel*- )
+ ;;
+ windows*-msvc*-)
+ ;;
+ -dietlibc*- | -llvm*- | -mlibc*- | -musl*- | -newlib*- | -relibc*- \
+ | -uclibc*- )
+ # These are just libc implementations, not actual OSes, and thus
+ # require a kernel.
+ echo "Invalid configuration '$1': libc '$os' needs explicit kernel." 1>&2
+ exit 1
+ ;;
+ -kernel*- )
+ echo "Invalid configuration '$1': '$os' needs explicit kernel." 1>&2
+ exit 1
+ ;;
+ *-kernel*- )
+ echo "Invalid configuration '$1': '$kernel' does not support '$os'." 1>&2
+ exit 1
+ ;;
+ *-msvc*- )
+ echo "Invalid configuration '$1': '$os' needs 'windows'." 1>&2
+ exit 1
+ ;;
+ kfreebsd*-gnu*- | kopensolaris*-gnu*-)
+ ;;
+ vxworks-simlinux- | vxworks-simwindows- | vxworks-spe-)
+ ;;
+ nto-qnx*-)
+ ;;
+ os2-emx-)
+ ;;
+ *-eabi*- | *-gnueabi*-)
+ ;;
+ none--*)
+ # None (no kernel, i.e. freestanding / bare metal),
+ # can be paired with an machine code file format
+ ;;
+ -*-)
+ # Blank kernel with real OS is always fine.
+ ;;
+ --*)
+ # Blank kernel and OS with real machine code file format is always fine.
+ ;;
+ *-*-*)
+ echo "Invalid configuration '$1': Kernel '$kernel' not known to work with OS '$os'." 1>&2
+ exit 1
+ ;;
+esac
+
+# Here we handle the case where we know the os, and the CPU type, but not the
+# manufacturer. We pick the logical manufacturer.
+case $vendor in
+ unknown)
+ case $cpu-$os in
+ *-riscix*)
+ vendor=acorn
+ ;;
+ *-sunos*)
+ vendor=sun
+ ;;
+ *-cnk* | *-aix*)
+ vendor=ibm
+ ;;
+ *-beos*)
+ vendor=be
+ ;;
+ *-hpux*)
+ vendor=hp
+ ;;
+ *-mpeix*)
+ vendor=hp
+ ;;
+ *-hiux*)
+ vendor=hitachi
+ ;;
+ *-unos*)
+ vendor=crds
+ ;;
+ *-dgux*)
+ vendor=dg
+ ;;
+ *-luna*)
+ vendor=omron
+ ;;
+ *-genix*)
+ vendor=ns
+ ;;
+ *-clix*)
+ vendor=intergraph
+ ;;
+ *-mvs* | *-opened*)
+ vendor=ibm
+ ;;
+ *-os400*)
+ vendor=ibm
+ ;;
+ s390-* | s390x-*)
+ vendor=ibm
+ ;;
+ *-ptx*)
+ vendor=sequent
+ ;;
+ *-tpf*)
+ vendor=ibm
+ ;;
+ *-vxsim* | *-vxworks* | *-windiss*)
+ vendor=wrs
+ ;;
+ *-aux*)
+ vendor=apple
+ ;;
+ *-hms*)
+ vendor=hitachi
+ ;;
+ *-mpw* | *-macos*)
+ vendor=apple
+ ;;
+ *-*mint | *-mint[0-9]* | *-*MiNT | *-MiNT[0-9]*)
+ vendor=atari
+ ;;
+ *-vos*)
+ vendor=stratus
+ ;;
+ esac
+ ;;
+esac
+
+echo "$cpu-$vendor${kernel:+-$kernel}${os:+-$os}${obj:+-$obj}"
+exit
+
+# Local variables:
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-start: "timestamp='"
+# time-stamp-format: "%:y-%02m-%02d"
+# time-stamp-end: "'"
+# End:
diff --git a/config/depcomp b/config/depcomp
new file mode 100755
index 000000000..715e34311
--- /dev/null
+++ b/config/depcomp
@@ -0,0 +1,791 @@
+#! /bin/sh
+# depcomp - compile a program generating dependencies as side-effects
+
+scriptversion=2018-03-07.03; # UTC
+
+# Copyright (C) 1999-2021 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 2, 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 <https://www.gnu.org/licenses/>.
+
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+# Originally written by Alexandre Oliva <oliva@dcc.unicamp.br>.
+
+case $1 in
+ '')
+ echo "$0: No command. Try '$0 --help' for more information." 1>&2
+ exit 1;
+ ;;
+ -h | --h*)
+ cat <<\EOF
+Usage: depcomp [--help] [--version] PROGRAM [ARGS]
+
+Run PROGRAMS ARGS to compile a file, generating dependencies
+as side-effects.
+
+Environment variables:
+ depmode Dependency tracking mode.
+ source Source file read by 'PROGRAMS ARGS'.
+ object Object file output by 'PROGRAMS ARGS'.
+ DEPDIR directory where to store dependencies.
+ depfile Dependency file to output.
+ tmpdepfile Temporary file to use when outputting dependencies.
+ libtool Whether libtool is used (yes/no).
+
+Report bugs to <bug-automake@gnu.org>.
+EOF
+ exit $?
+ ;;
+ -v | --v*)
+ echo "depcomp $scriptversion"
+ exit $?
+ ;;
+esac
+
+# Get the directory component of the given path, and save it in the
+# global variables '$dir'. Note that this directory component will
+# be either empty or ending with a '/' character. This is deliberate.
+set_dir_from ()
+{
+ case $1 in
+ */*) dir=`echo "$1" | sed -e 's|/[^/]*$|/|'`;;
+ *) dir=;;
+ esac
+}
+
+# Get the suffix-stripped basename of the given path, and save it the
+# global variable '$base'.
+set_base_from ()
+{
+ base=`echo "$1" | sed -e 's|^.*/||' -e 's/\.[^.]*$//'`
+}
+
+# If no dependency file was actually created by the compiler invocation,
+# we still have to create a dummy depfile, to avoid errors with the
+# Makefile "include basename.Plo" scheme.
+make_dummy_depfile ()
+{
+ echo "#dummy" > "$depfile"
+}
+
+# Factor out some common post-processing of the generated depfile.
+# Requires the auxiliary global variable '$tmpdepfile' to be set.
+aix_post_process_depfile ()
+{
+ # If the compiler actually managed to produce a dependency file,
+ # post-process it.
+ if test -f "$tmpdepfile"; then
+ # Each line is of the form 'foo.o: dependency.h'.
+ # Do two passes, one to just change these to
+ # $object: dependency.h
+ # and one to simply output
+ # dependency.h:
+ # which is needed to avoid the deleted-header problem.
+ { sed -e "s,^.*\.[$lower]*:,$object:," < "$tmpdepfile"
+ sed -e "s,^.*\.[$lower]*:[$tab ]*,," -e 's,$,:,' < "$tmpdepfile"
+ } > "$depfile"
+ rm -f "$tmpdepfile"
+ else
+ make_dummy_depfile
+ fi
+}
+
+# A tabulation character.
+tab=' '
+# A newline character.
+nl='
+'
+# Character ranges might be problematic outside the C locale.
+# These definitions help.
+upper=ABCDEFGHIJKLMNOPQRSTUVWXYZ
+lower=abcdefghijklmnopqrstuvwxyz
+digits=0123456789
+alpha=${upper}${lower}
+
+if test -z "$depmode" || test -z "$source" || test -z "$object"; then
+ echo "depcomp: Variables source, object and depmode must be set" 1>&2
+ exit 1
+fi
+
+# Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po.
+depfile=${depfile-`echo "$object" |
+ sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`}
+tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`}
+
+rm -f "$tmpdepfile"
+
+# Avoid interferences from the environment.
+gccflag= dashmflag=
+
+# Some modes work just like other modes, but use different flags. We
+# parameterize here, but still list the modes in the big case below,
+# to make depend.m4 easier to write. Note that we *cannot* use a case
+# here, because this file can only contain one case statement.
+if test "$depmode" = hp; then
+ # HP compiler uses -M and no extra arg.
+ gccflag=-M
+ depmode=gcc
+fi
+
+if test "$depmode" = dashXmstdout; then
+ # This is just like dashmstdout with a different argument.
+ dashmflag=-xM
+ depmode=dashmstdout
+fi
+
+cygpath_u="cygpath -u -f -"
+if test "$depmode" = msvcmsys; then
+ # This is just like msvisualcpp but w/o cygpath translation.
+ # Just convert the backslash-escaped backslashes to single forward
+ # slashes to satisfy depend.m4
+ cygpath_u='sed s,\\\\,/,g'
+ depmode=msvisualcpp
+fi
+
+if test "$depmode" = msvc7msys; then
+ # This is just like msvc7 but w/o cygpath translation.
+ # Just convert the backslash-escaped backslashes to single forward
+ # slashes to satisfy depend.m4
+ cygpath_u='sed s,\\\\,/,g'
+ depmode=msvc7
+fi
+
+if test "$depmode" = xlc; then
+ # IBM C/C++ Compilers xlc/xlC can output gcc-like dependency information.
+ gccflag=-qmakedep=gcc,-MF
+ depmode=gcc
+fi
+
+case "$depmode" in
+gcc3)
+## gcc 3 implements dependency tracking that does exactly what
+## we want. Yay! Note: for some reason libtool 1.4 doesn't like
+## it if -MD -MP comes after the -MF stuff. Hmm.
+## Unfortunately, FreeBSD c89 acceptance of flags depends upon
+## the command line argument order; so add the flags where they
+## appear in depend2.am. Note that the slowdown incurred here
+## affects only configure: in makefiles, %FASTDEP% shortcuts this.
+ for arg
+ do
+ case $arg in
+ -c) set fnord "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" "$arg" ;;
+ *) set fnord "$@" "$arg" ;;
+ esac
+ shift # fnord
+ shift # $arg
+ done
+ "$@"
+ stat=$?
+ if test $stat -ne 0; then
+ rm -f "$tmpdepfile"
+ exit $stat
+ fi
+ mv "$tmpdepfile" "$depfile"
+ ;;
+
+gcc)
+## Note that this doesn't just cater to obsosete pre-3.x GCC compilers.
+## but also to in-use compilers like IMB xlc/xlC and the HP C compiler.
+## (see the conditional assignment to $gccflag above).
+## There are various ways to get dependency output from gcc. Here's
+## why we pick this rather obscure method:
+## - Don't want to use -MD because we'd like the dependencies to end
+## up in a subdir. Having to rename by hand is ugly.
+## (We might end up doing this anyway to support other compilers.)
+## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like
+## -MM, not -M (despite what the docs say). Also, it might not be
+## supported by the other compilers which use the 'gcc' depmode.
+## - Using -M directly means running the compiler twice (even worse
+## than renaming).
+ if test -z "$gccflag"; then
+ gccflag=-MD,
+ fi
+ "$@" -Wp,"$gccflag$tmpdepfile"
+ stat=$?
+ if test $stat -ne 0; then
+ rm -f "$tmpdepfile"
+ exit $stat
+ fi
+ rm -f "$depfile"
+ echo "$object : \\" > "$depfile"
+ # The second -e expression handles DOS-style file names with drive
+ # letters.
+ sed -e 's/^[^:]*: / /' \
+ -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile"
+## This next piece of magic avoids the "deleted header file" problem.
+## The problem is that when a header file which appears in a .P file
+## is deleted, the dependency causes make to die (because there is
+## typically no way to rebuild the header). We avoid this by adding
+## dummy dependencies for each header file. Too bad gcc doesn't do
+## this for us directly.
+## Some versions of gcc put a space before the ':'. On the theory
+## that the space means something, we add a space to the output as
+## well. hp depmode also adds that space, but also prefixes the VPATH
+## to the object. Take care to not repeat it in the output.
+## Some versions of the HPUX 10.20 sed can't process this invocation
+## correctly. Breaking it into two sed invocations is a workaround.
+ tr ' ' "$nl" < "$tmpdepfile" \
+ | sed -e 's/^\\$//' -e '/^$/d' -e "s|.*$object$||" -e '/:$/d' \
+ | sed -e 's/$/ :/' >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+hp)
+ # This case exists only to let depend.m4 do its work. It works by
+ # looking at the text of this script. This case will never be run,
+ # since it is checked for above.
+ exit 1
+ ;;
+
+sgi)
+ if test "$libtool" = yes; then
+ "$@" "-Wp,-MDupdate,$tmpdepfile"
+ else
+ "$@" -MDupdate "$tmpdepfile"
+ fi
+ stat=$?
+ if test $stat -ne 0; then
+ rm -f "$tmpdepfile"
+ exit $stat
+ fi
+ rm -f "$depfile"
+
+ if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files
+ echo "$object : \\" > "$depfile"
+ # Clip off the initial element (the dependent). Don't try to be
+ # clever and replace this with sed code, as IRIX sed won't handle
+ # lines with more than a fixed number of characters (4096 in
+ # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines;
+ # the IRIX cc adds comments like '#:fec' to the end of the
+ # dependency line.
+ tr ' ' "$nl" < "$tmpdepfile" \
+ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' \
+ | tr "$nl" ' ' >> "$depfile"
+ echo >> "$depfile"
+ # The second pass generates a dummy entry for each header file.
+ tr ' ' "$nl" < "$tmpdepfile" \
+ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \
+ >> "$depfile"
+ else
+ make_dummy_depfile
+ fi
+ rm -f "$tmpdepfile"
+ ;;
+
+xlc)
+ # This case exists only to let depend.m4 do its work. It works by
+ # looking at the text of this script. This case will never be run,
+ # since it is checked for above.
+ exit 1
+ ;;
+
+aix)
+ # The C for AIX Compiler uses -M and outputs the dependencies
+ # in a .u file. In older versions, this file always lives in the
+ # current directory. Also, the AIX compiler puts '$object:' at the
+ # start of each line; $object doesn't have directory information.
+ # Version 6 uses the directory in both cases.
+ set_dir_from "$object"
+ set_base_from "$object"
+ if test "$libtool" = yes; then
+ tmpdepfile1=$dir$base.u
+ tmpdepfile2=$base.u
+ tmpdepfile3=$dir.libs/$base.u
+ "$@" -Wc,-M
+ else
+ tmpdepfile1=$dir$base.u
+ tmpdepfile2=$dir$base.u
+ tmpdepfile3=$dir$base.u
+ "$@" -M
+ fi
+ stat=$?
+ if test $stat -ne 0; then
+ rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
+ exit $stat
+ fi
+
+ for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
+ do
+ test -f "$tmpdepfile" && break
+ done
+ aix_post_process_depfile
+ ;;
+
+tcc)
+ # tcc (Tiny C Compiler) understand '-MD -MF file' since version 0.9.26
+ # FIXME: That version still under development at the moment of writing.
+ # Make that this statement remains true also for stable, released
+ # versions.
+ # It will wrap lines (doesn't matter whether long or short) with a
+ # trailing '\', as in:
+ #
+ # foo.o : \
+ # foo.c \
+ # foo.h \
+ #
+ # It will put a trailing '\' even on the last line, and will use leading
+ # spaces rather than leading tabs (at least since its commit 0394caf7
+ # "Emit spaces for -MD").
+ "$@" -MD -MF "$tmpdepfile"
+ stat=$?
+ if test $stat -ne 0; then
+ rm -f "$tmpdepfile"
+ exit $stat
+ fi
+ rm -f "$depfile"
+ # Each non-empty line is of the form 'foo.o : \' or ' dep.h \'.
+ # We have to change lines of the first kind to '$object: \'.
+ sed -e "s|.*:|$object :|" < "$tmpdepfile" > "$depfile"
+ # And for each line of the second kind, we have to emit a 'dep.h:'
+ # dummy dependency, to avoid the deleted-header problem.
+ sed -n -e 's|^ *\(.*\) *\\$|\1:|p' < "$tmpdepfile" >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+## The order of this option in the case statement is important, since the
+## shell code in configure will try each of these formats in the order
+## listed in this file. A plain '-MD' option would be understood by many
+## compilers, so we must ensure this comes after the gcc and icc options.
+pgcc)
+ # Portland's C compiler understands '-MD'.
+ # Will always output deps to 'file.d' where file is the root name of the
+ # source file under compilation, even if file resides in a subdirectory.
+ # The object file name does not affect the name of the '.d' file.
+ # pgcc 10.2 will output
+ # foo.o: sub/foo.c sub/foo.h
+ # and will wrap long lines using '\' :
+ # foo.o: sub/foo.c ... \
+ # sub/foo.h ... \
+ # ...
+ set_dir_from "$object"
+ # Use the source, not the object, to determine the base name, since
+ # that's sadly what pgcc will do too.
+ set_base_from "$source"
+ tmpdepfile=$base.d
+
+ # For projects that build the same source file twice into different object
+ # files, the pgcc approach of using the *source* file root name can cause
+ # problems in parallel builds. Use a locking strategy to avoid stomping on
+ # the same $tmpdepfile.
+ lockdir=$base.d-lock
+ trap "
+ echo '$0: caught signal, cleaning up...' >&2
+ rmdir '$lockdir'
+ exit 1
+ " 1 2 13 15
+ numtries=100
+ i=$numtries
+ while test $i -gt 0; do
+ # mkdir is a portable test-and-set.
+ if mkdir "$lockdir" 2>/dev/null; then
+ # This process acquired the lock.
+ "$@" -MD
+ stat=$?
+ # Release the lock.
+ rmdir "$lockdir"
+ break
+ else
+ # If the lock is being held by a different process, wait
+ # until the winning process is done or we timeout.
+ while test -d "$lockdir" && test $i -gt 0; do
+ sleep 1
+ i=`expr $i - 1`
+ done
+ fi
+ i=`expr $i - 1`
+ done
+ trap - 1 2 13 15
+ if test $i -le 0; then
+ echo "$0: failed to acquire lock after $numtries attempts" >&2
+ echo "$0: check lockdir '$lockdir'" >&2
+ exit 1
+ fi
+
+ if test $stat -ne 0; then
+ rm -f "$tmpdepfile"
+ exit $stat
+ fi
+ rm -f "$depfile"
+ # Each line is of the form `foo.o: dependent.h',
+ # or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'.
+ # Do two passes, one to just change these to
+ # `$object: dependent.h' and one to simply `dependent.h:'.
+ sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile"
+ # Some versions of the HPUX 10.20 sed can't process this invocation
+ # correctly. Breaking it into two sed invocations is a workaround.
+ sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" \
+ | sed -e 's/$/ :/' >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+hp2)
+ # The "hp" stanza above does not work with aCC (C++) and HP's ia64
+ # compilers, which have integrated preprocessors. The correct option
+ # to use with these is +Maked; it writes dependencies to a file named
+ # 'foo.d', which lands next to the object file, wherever that
+ # happens to be.
+ # Much of this is similar to the tru64 case; see comments there.
+ set_dir_from "$object"
+ set_base_from "$object"
+ if test "$libtool" = yes; then
+ tmpdepfile1=$dir$base.d
+ tmpdepfile2=$dir.libs/$base.d
+ "$@" -Wc,+Maked
+ else
+ tmpdepfile1=$dir$base.d
+ tmpdepfile2=$dir$base.d
+ "$@" +Maked
+ fi
+ stat=$?
+ if test $stat -ne 0; then
+ rm -f "$tmpdepfile1" "$tmpdepfile2"
+ exit $stat
+ fi
+
+ for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2"
+ do
+ test -f "$tmpdepfile" && break
+ done
+ if test -f "$tmpdepfile"; then
+ sed -e "s,^.*\.[$lower]*:,$object:," "$tmpdepfile" > "$depfile"
+ # Add 'dependent.h:' lines.
+ sed -ne '2,${
+ s/^ *//
+ s/ \\*$//
+ s/$/:/
+ p
+ }' "$tmpdepfile" >> "$depfile"
+ else
+ make_dummy_depfile
+ fi
+ rm -f "$tmpdepfile" "$tmpdepfile2"
+ ;;
+
+tru64)
+ # The Tru64 compiler uses -MD to generate dependencies as a side
+ # effect. 'cc -MD -o foo.o ...' puts the dependencies into 'foo.o.d'.
+ # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put
+ # dependencies in 'foo.d' instead, so we check for that too.
+ # Subdirectories are respected.
+ set_dir_from "$object"
+ set_base_from "$object"
+
+ if test "$libtool" = yes; then
+ # Libtool generates 2 separate objects for the 2 libraries. These
+ # two compilations output dependencies in $dir.libs/$base.o.d and
+ # in $dir$base.o.d. We have to check for both files, because
+ # one of the two compilations can be disabled. We should prefer
+ # $dir$base.o.d over $dir.libs/$base.o.d because the latter is
+ # automatically cleaned when .libs/ is deleted, while ignoring
+ # the former would cause a distcleancheck panic.
+ tmpdepfile1=$dir$base.o.d # libtool 1.5
+ tmpdepfile2=$dir.libs/$base.o.d # Likewise.
+ tmpdepfile3=$dir.libs/$base.d # Compaq CCC V6.2-504
+ "$@" -Wc,-MD
+ else
+ tmpdepfile1=$dir$base.d
+ tmpdepfile2=$dir$base.d
+ tmpdepfile3=$dir$base.d
+ "$@" -MD
+ fi
+
+ stat=$?
+ if test $stat -ne 0; then
+ rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
+ exit $stat
+ fi
+
+ for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
+ do
+ test -f "$tmpdepfile" && break
+ done
+ # Same post-processing that is required for AIX mode.
+ aix_post_process_depfile
+ ;;
+
+msvc7)
+ if test "$libtool" = yes; then
+ showIncludes=-Wc,-showIncludes
+ else
+ showIncludes=-showIncludes
+ fi
+ "$@" $showIncludes > "$tmpdepfile"
+ stat=$?
+ grep -v '^Note: including file: ' "$tmpdepfile"
+ if test $stat -ne 0; then
+ rm -f "$tmpdepfile"
+ exit $stat
+ fi
+ rm -f "$depfile"
+ echo "$object : \\" > "$depfile"
+ # The first sed program below extracts the file names and escapes
+ # backslashes for cygpath. The second sed program outputs the file
+ # name when reading, but also accumulates all include files in the
+ # hold buffer in order to output them again at the end. This only
+ # works with sed implementations that can handle large buffers.
+ sed < "$tmpdepfile" -n '
+/^Note: including file: *\(.*\)/ {
+ s//\1/
+ s/\\/\\\\/g
+ p
+}' | $cygpath_u | sort -u | sed -n '
+s/ /\\ /g
+s/\(.*\)/'"$tab"'\1 \\/p
+s/.\(.*\) \\/\1:/
+H
+$ {
+ s/.*/'"$tab"'/
+ G
+ p
+}' >> "$depfile"
+ echo >> "$depfile" # make sure the fragment doesn't end with a backslash
+ rm -f "$tmpdepfile"
+ ;;
+
+msvc7msys)
+ # This case exists only to let depend.m4 do its work. It works by
+ # looking at the text of this script. This case will never be run,
+ # since it is checked for above.
+ exit 1
+ ;;
+
+#nosideeffect)
+ # This comment above is used by automake to tell side-effect
+ # dependency tracking mechanisms from slower ones.
+
+dashmstdout)
+ # Important note: in order to support this mode, a compiler *must*
+ # always write the preprocessed file to stdout, regardless of -o.
+ "$@" || exit $?
+
+ # Remove the call to Libtool.
+ if test "$libtool" = yes; then
+ while test "X$1" != 'X--mode=compile'; do
+ shift
+ done
+ shift
+ fi
+
+ # Remove '-o $object'.
+ IFS=" "
+ for arg
+ do
+ case $arg in
+ -o)
+ shift
+ ;;
+ $object)
+ shift
+ ;;
+ *)
+ set fnord "$@" "$arg"
+ shift # fnord
+ shift # $arg
+ ;;
+ esac
+ done
+
+ test -z "$dashmflag" && dashmflag=-M
+ # Require at least two characters before searching for ':'
+ # in the target name. This is to cope with DOS-style filenames:
+ # a dependency such as 'c:/foo/bar' could be seen as target 'c' otherwise.
+ "$@" $dashmflag |
+ sed "s|^[$tab ]*[^:$tab ][^:][^:]*:[$tab ]*|$object: |" > "$tmpdepfile"
+ rm -f "$depfile"
+ cat < "$tmpdepfile" > "$depfile"
+ # Some versions of the HPUX 10.20 sed can't process this sed invocation
+ # correctly. Breaking it into two sed invocations is a workaround.
+ tr ' ' "$nl" < "$tmpdepfile" \
+ | sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \
+ | sed -e 's/$/ :/' >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+dashXmstdout)
+ # This case only exists to satisfy depend.m4. It is never actually
+ # run, as this mode is specially recognized in the preamble.
+ exit 1
+ ;;
+
+makedepend)
+ "$@" || exit $?
+ # Remove any Libtool call
+ if test "$libtool" = yes; then
+ while test "X$1" != 'X--mode=compile'; do
+ shift
+ done
+ shift
+ fi
+ # X makedepend
+ shift
+ cleared=no eat=no
+ for arg
+ do
+ case $cleared in
+ no)
+ set ""; shift
+ cleared=yes ;;
+ esac
+ if test $eat = yes; then
+ eat=no
+ continue
+ fi
+ case "$arg" in
+ -D*|-I*)
+ set fnord "$@" "$arg"; shift ;;
+ # Strip any option that makedepend may not understand. Remove
+ # the object too, otherwise makedepend will parse it as a source file.
+ -arch)
+ eat=yes ;;
+ -*|$object)
+ ;;
+ *)
+ set fnord "$@" "$arg"; shift ;;
+ esac
+ done
+ obj_suffix=`echo "$object" | sed 's/^.*\././'`
+ touch "$tmpdepfile"
+ ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@"
+ rm -f "$depfile"
+ # makedepend may prepend the VPATH from the source file name to the object.
+ # No need to regex-escape $object, excess matching of '.' is harmless.
+ sed "s|^.*\($object *:\)|\1|" "$tmpdepfile" > "$depfile"
+ # Some versions of the HPUX 10.20 sed can't process the last invocation
+ # correctly. Breaking it into two sed invocations is a workaround.
+ sed '1,2d' "$tmpdepfile" \
+ | tr ' ' "$nl" \
+ | sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \
+ | sed -e 's/$/ :/' >> "$depfile"
+ rm -f "$tmpdepfile" "$tmpdepfile".bak
+ ;;
+
+cpp)
+ # Important note: in order to support this mode, a compiler *must*
+ # always write the preprocessed file to stdout.
+ "$@" || exit $?
+
+ # Remove the call to Libtool.
+ if test "$libtool" = yes; then
+ while test "X$1" != 'X--mode=compile'; do
+ shift
+ done
+ shift
+ fi
+
+ # Remove '-o $object'.
+ IFS=" "
+ for arg
+ do
+ case $arg in
+ -o)
+ shift
+ ;;
+ $object)
+ shift
+ ;;
+ *)
+ set fnord "$@" "$arg"
+ shift # fnord
+ shift # $arg
+ ;;
+ esac
+ done
+
+ "$@" -E \
+ | sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \
+ -e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \
+ | sed '$ s: \\$::' > "$tmpdepfile"
+ rm -f "$depfile"
+ echo "$object : \\" > "$depfile"
+ cat < "$tmpdepfile" >> "$depfile"
+ sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+msvisualcpp)
+ # Important note: in order to support this mode, a compiler *must*
+ # always write the preprocessed file to stdout.
+ "$@" || exit $?
+
+ # Remove the call to Libtool.
+ if test "$libtool" = yes; then
+ while test "X$1" != 'X--mode=compile'; do
+ shift
+ done
+ shift
+ fi
+
+ IFS=" "
+ for arg
+ do
+ case "$arg" in
+ -o)
+ shift
+ ;;
+ $object)
+ shift
+ ;;
+ "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI")
+ set fnord "$@"
+ shift
+ shift
+ ;;
+ *)
+ set fnord "$@" "$arg"
+ shift
+ shift
+ ;;
+ esac
+ done
+ "$@" -E 2>/dev/null |
+ sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::\1:p' | $cygpath_u | sort -u > "$tmpdepfile"
+ rm -f "$depfile"
+ echo "$object : \\" > "$depfile"
+ sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::'"$tab"'\1 \\:p' >> "$depfile"
+ echo "$tab" >> "$depfile"
+ sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::\1\::p' >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+msvcmsys)
+ # This case exists only to let depend.m4 do its work. It works by
+ # looking at the text of this script. This case will never be run,
+ # since it is checked for above.
+ exit 1
+ ;;
+
+none)
+ exec "$@"
+ ;;
+
+*)
+ echo "Unknown depmode $depmode" 1>&2
+ exit 1
+ ;;
+esac
+
+exit 0
+
+# Local Variables:
+# mode: shell-script
+# sh-indentation: 2
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-start: "scriptversion="
+# time-stamp-format: "%:y-%02m-%02d.%02H"
+# time-stamp-time-zone: "UTC0"
+# time-stamp-end: "; # UTC"
+# End:
diff --git a/config/install-sh b/config/install-sh
new file mode 100755
index 000000000..ec298b537
--- /dev/null
+++ b/config/install-sh
@@ -0,0 +1,541 @@
+#!/bin/sh
+# install - install a program, script, or datafile
+
+scriptversion=2020-11-14.01; # UTC
+
+# This originates from X11R5 (mit/util/scripts/install.sh), which was
+# later released in X11R6 (xc/config/util/install.sh) with the
+# following copyright and license.
+#
+# Copyright (C) 1994 X Consortium
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to
+# deal in the Software without restriction, including without limitation the
+# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+# sell copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
+# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+# Except as contained in this notice, the name of the X Consortium shall not
+# be used in advertising or otherwise to promote the sale, use or other deal-
+# ings in this Software without prior written authorization from the X Consor-
+# tium.
+#
+#
+# FSF changes to this file are in the public domain.
+#
+# Calling this script install-sh is preferred over install.sh, to prevent
+# 'make' implicit rules from creating a file called install from it
+# when there is no Makefile.
+#
+# This script is compatible with the BSD install script, but was written
+# from scratch.
+
+tab=' '
+nl='
+'
+IFS=" $tab$nl"
+
+# Set DOITPROG to "echo" to test this script.
+
+doit=${DOITPROG-}
+doit_exec=${doit:-exec}
+
+# Put in absolute file names if you don't have them in your path;
+# or use environment vars.
+
+chgrpprog=${CHGRPPROG-chgrp}
+chmodprog=${CHMODPROG-chmod}
+chownprog=${CHOWNPROG-chown}
+cmpprog=${CMPPROG-cmp}
+cpprog=${CPPROG-cp}
+mkdirprog=${MKDIRPROG-mkdir}
+mvprog=${MVPROG-mv}
+rmprog=${RMPROG-rm}
+stripprog=${STRIPPROG-strip}
+
+posix_mkdir=
+
+# Desired mode of installed file.
+mode=0755
+
+# Create dirs (including intermediate dirs) using mode 755.
+# This is like GNU 'install' as of coreutils 8.32 (2020).
+mkdir_umask=22
+
+backupsuffix=
+chgrpcmd=
+chmodcmd=$chmodprog
+chowncmd=
+mvcmd=$mvprog
+rmcmd="$rmprog -f"
+stripcmd=
+
+src=
+dst=
+dir_arg=
+dst_arg=
+
+copy_on_change=false
+is_target_a_directory=possibly
+
+usage="\
+Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
+ or: $0 [OPTION]... SRCFILES... DIRECTORY
+ or: $0 [OPTION]... -t DIRECTORY SRCFILES...
+ or: $0 [OPTION]... -d DIRECTORIES...
+
+In the 1st form, copy SRCFILE to DSTFILE.
+In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
+In the 4th, create DIRECTORIES.
+
+Options:
+ --help display this help and exit.
+ --version display version info and exit.
+
+ -c (ignored)
+ -C install only if different (preserve data modification time)
+ -d create directories instead of installing files.
+ -g GROUP $chgrpprog installed files to GROUP.
+ -m MODE $chmodprog installed files to MODE.
+ -o USER $chownprog installed files to USER.
+ -p pass -p to $cpprog.
+ -s $stripprog installed files.
+ -S SUFFIX attempt to back up existing files, with suffix SUFFIX.
+ -t DIRECTORY install into DIRECTORY.
+ -T report an error if DSTFILE is a directory.
+
+Environment variables override the default commands:
+ CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
+ RMPROG STRIPPROG
+
+By default, rm is invoked with -f; when overridden with RMPROG,
+it's up to you to specify -f if you want it.
+
+If -S is not specified, no backups are attempted.
+
+Email bug reports to bug-automake@gnu.org.
+Automake home page: https://www.gnu.org/software/automake/
+"
+
+while test $# -ne 0; do
+ case $1 in
+ -c) ;;
+
+ -C) copy_on_change=true;;
+
+ -d) dir_arg=true;;
+
+ -g) chgrpcmd="$chgrpprog $2"
+ shift;;
+
+ --help) echo "$usage"; exit $?;;
+
+ -m) mode=$2
+ case $mode in
+ *' '* | *"$tab"* | *"$nl"* | *'*'* | *'?'* | *'['*)
+ echo "$0: invalid mode: $mode" >&2
+ exit 1;;
+ esac
+ shift;;
+
+ -o) chowncmd="$chownprog $2"
+ shift;;
+
+ -p) cpprog="$cpprog -p";;
+
+ -s) stripcmd=$stripprog;;
+
+ -S) backupsuffix="$2"
+ shift;;
+
+ -t)
+ is_target_a_directory=always
+ dst_arg=$2
+ # Protect names problematic for 'test' and other utilities.
+ case $dst_arg in
+ -* | [=\(\)!]) dst_arg=./$dst_arg;;
+ esac
+ shift;;
+
+ -T) is_target_a_directory=never;;
+
+ --version) echo "$0 $scriptversion"; exit $?;;
+
+ --) shift
+ break;;
+
+ -*) echo "$0: invalid option: $1" >&2
+ exit 1;;
+
+ *) break;;
+ esac
+ shift
+done
+
+# We allow the use of options -d and -T together, by making -d
+# take the precedence; this is for compatibility with GNU install.
+
+if test -n "$dir_arg"; then
+ if test -n "$dst_arg"; then
+ echo "$0: target directory not allowed when installing a directory." >&2
+ exit 1
+ fi
+fi
+
+if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
+ # When -d is used, all remaining arguments are directories to create.
+ # When -t is used, the destination is already specified.
+ # Otherwise, the last argument is the destination. Remove it from $@.
+ for arg
+ do
+ if test -n "$dst_arg"; then
+ # $@ is not empty: it contains at least $arg.
+ set fnord "$@" "$dst_arg"
+ shift # fnord
+ fi
+ shift # arg
+ dst_arg=$arg
+ # Protect names problematic for 'test' and other utilities.
+ case $dst_arg in
+ -* | [=\(\)!]) dst_arg=./$dst_arg;;
+ esac
+ done
+fi
+
+if test $# -eq 0; then
+ if test -z "$dir_arg"; then
+ echo "$0: no input file specified." >&2
+ exit 1
+ fi
+ # It's OK to call 'install-sh -d' without argument.
+ # This can happen when creating conditional directories.
+ exit 0
+fi
+
+if test -z "$dir_arg"; then
+ if test $# -gt 1 || test "$is_target_a_directory" = always; then
+ if test ! -d "$dst_arg"; then
+ echo "$0: $dst_arg: Is not a directory." >&2
+ exit 1
+ fi
+ fi
+fi
+
+if test -z "$dir_arg"; then
+ do_exit='(exit $ret); exit $ret'
+ trap "ret=129; $do_exit" 1
+ trap "ret=130; $do_exit" 2
+ trap "ret=141; $do_exit" 13
+ trap "ret=143; $do_exit" 15
+
+ # Set umask so as not to create temps with too-generous modes.
+ # However, 'strip' requires both read and write access to temps.
+ case $mode in
+ # Optimize common cases.
+ *644) cp_umask=133;;
+ *755) cp_umask=22;;
+
+ *[0-7])
+ if test -z "$stripcmd"; then
+ u_plus_rw=
+ else
+ u_plus_rw='% 200'
+ fi
+ cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
+ *)
+ if test -z "$stripcmd"; then
+ u_plus_rw=
+ else
+ u_plus_rw=,u+rw
+ fi
+ cp_umask=$mode$u_plus_rw;;
+ esac
+fi
+
+for src
+do
+ # Protect names problematic for 'test' and other utilities.
+ case $src in
+ -* | [=\(\)!]) src=./$src;;
+ esac
+
+ if test -n "$dir_arg"; then
+ dst=$src
+ dstdir=$dst
+ test -d "$dstdir"
+ dstdir_status=$?
+ # Don't chown directories that already exist.
+ if test $dstdir_status = 0; then
+ chowncmd=""
+ fi
+ else
+
+ # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
+ # might cause directories to be created, which would be especially bad
+ # if $src (and thus $dsttmp) contains '*'.
+ if test ! -f "$src" && test ! -d "$src"; then
+ echo "$0: $src does not exist." >&2
+ exit 1
+ fi
+
+ if test -z "$dst_arg"; then
+ echo "$0: no destination specified." >&2
+ exit 1
+ fi
+ dst=$dst_arg
+
+ # If destination is a directory, append the input filename.
+ if test -d "$dst"; then
+ if test "$is_target_a_directory" = never; then
+ echo "$0: $dst_arg: Is a directory" >&2
+ exit 1
+ fi
+ dstdir=$dst
+ dstbase=`basename "$src"`
+ case $dst in
+ */) dst=$dst$dstbase;;
+ *) dst=$dst/$dstbase;;
+ esac
+ dstdir_status=0
+ else
+ dstdir=`dirname "$dst"`
+ test -d "$dstdir"
+ dstdir_status=$?
+ fi
+ fi
+
+ case $dstdir in
+ */) dstdirslash=$dstdir;;
+ *) dstdirslash=$dstdir/;;
+ esac
+
+ obsolete_mkdir_used=false
+
+ if test $dstdir_status != 0; then
+ case $posix_mkdir in
+ '')
+ # With -d, create the new directory with the user-specified mode.
+ # Otherwise, rely on $mkdir_umask.
+ if test -n "$dir_arg"; then
+ mkdir_mode=-m$mode
+ else
+ mkdir_mode=
+ fi
+
+ posix_mkdir=false
+ # The $RANDOM variable is not portable (e.g., dash). Use it
+ # here however when possible just to lower collision chance.
+ tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
+
+ trap '
+ ret=$?
+ rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir" 2>/dev/null
+ exit $ret
+ ' 0
+
+ # Because "mkdir -p" follows existing symlinks and we likely work
+ # directly in world-writeable /tmp, make sure that the '$tmpdir'
+ # directory is successfully created first before we actually test
+ # 'mkdir -p'.
+ if (umask $mkdir_umask &&
+ $mkdirprog $mkdir_mode "$tmpdir" &&
+ exec $mkdirprog $mkdir_mode -p -- "$tmpdir/a/b") >/dev/null 2>&1
+ then
+ if test -z "$dir_arg" || {
+ # Check for POSIX incompatibilities with -m.
+ # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
+ # other-writable bit of parent directory when it shouldn't.
+ # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
+ test_tmpdir="$tmpdir/a"
+ ls_ld_tmpdir=`ls -ld "$test_tmpdir"`
+ case $ls_ld_tmpdir in
+ d????-?r-*) different_mode=700;;
+ d????-?--*) different_mode=755;;
+ *) false;;
+ esac &&
+ $mkdirprog -m$different_mode -p -- "$test_tmpdir" && {
+ ls_ld_tmpdir_1=`ls -ld "$test_tmpdir"`
+ test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
+ }
+ }
+ then posix_mkdir=:
+ fi
+ rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir"
+ else
+ # Remove any dirs left behind by ancient mkdir implementations.
+ rmdir ./$mkdir_mode ./-p ./-- "$tmpdir" 2>/dev/null
+ fi
+ trap '' 0;;
+ esac
+
+ if
+ $posix_mkdir && (
+ umask $mkdir_umask &&
+ $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
+ )
+ then :
+ else
+
+ # mkdir does not conform to POSIX,
+ # or it failed possibly due to a race condition. Create the
+ # directory the slow way, step by step, checking for races as we go.
+
+ case $dstdir in
+ /*) prefix='/';;
+ [-=\(\)!]*) prefix='./';;
+ *) prefix='';;
+ esac
+
+ oIFS=$IFS
+ IFS=/
+ set -f
+ set fnord $dstdir
+ shift
+ set +f
+ IFS=$oIFS
+
+ prefixes=
+
+ for d
+ do
+ test X"$d" = X && continue
+
+ prefix=$prefix$d
+ if test -d "$prefix"; then
+ prefixes=
+ else
+ if $posix_mkdir; then
+ (umask $mkdir_umask &&
+ $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
+ # Don't fail if two instances are running concurrently.
+ test -d "$prefix" || exit 1
+ else
+ case $prefix in
+ *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
+ *) qprefix=$prefix;;
+ esac
+ prefixes="$prefixes '$qprefix'"
+ fi
+ fi
+ prefix=$prefix/
+ done
+
+ if test -n "$prefixes"; then
+ # Don't fail if two instances are running concurrently.
+ (umask $mkdir_umask &&
+ eval "\$doit_exec \$mkdirprog $prefixes") ||
+ test -d "$dstdir" || exit 1
+ obsolete_mkdir_used=true
+ fi
+ fi
+ fi
+
+ if test -n "$dir_arg"; then
+ { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
+ { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
+ { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
+ test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
+ else
+
+ # Make a couple of temp file names in the proper directory.
+ dsttmp=${dstdirslash}_inst.$$_
+ rmtmp=${dstdirslash}_rm.$$_
+
+ # Trap to clean up those temp files at exit.
+ trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
+
+ # Copy the file name to the temp name.
+ (umask $cp_umask &&
+ { test -z "$stripcmd" || {
+ # Create $dsttmp read-write so that cp doesn't create it read-only,
+ # which would cause strip to fail.
+ if test -z "$doit"; then
+ : >"$dsttmp" # No need to fork-exec 'touch'.
+ else
+ $doit touch "$dsttmp"
+ fi
+ }
+ } &&
+ $doit_exec $cpprog "$src" "$dsttmp") &&
+
+ # and set any options; do chmod last to preserve setuid bits.
+ #
+ # If any of these fail, we abort the whole thing. If we want to
+ # ignore errors from any of these, just make sure not to ignore
+ # errors from the above "$doit $cpprog $src $dsttmp" command.
+ #
+ { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
+ { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
+ { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
+ { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
+
+ # If -C, don't bother to copy if it wouldn't change the file.
+ if $copy_on_change &&
+ old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` &&
+ new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` &&
+ set -f &&
+ set X $old && old=:$2:$4:$5:$6 &&
+ set X $new && new=:$2:$4:$5:$6 &&
+ set +f &&
+ test "$old" = "$new" &&
+ $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
+ then
+ rm -f "$dsttmp"
+ else
+ # If $backupsuffix is set, and the file being installed
+ # already exists, attempt a backup. Don't worry if it fails,
+ # e.g., if mv doesn't support -f.
+ if test -n "$backupsuffix" && test -f "$dst"; then
+ $doit $mvcmd -f "$dst" "$dst$backupsuffix" 2>/dev/null
+ fi
+
+ # Rename the file to the real destination.
+ $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
+
+ # The rename failed, perhaps because mv can't rename something else
+ # to itself, or perhaps because mv is so ancient that it does not
+ # support -f.
+ {
+ # Now remove or move aside any old file at destination location.
+ # We try this two ways since rm can't unlink itself on some
+ # systems and the destination file might be busy for other
+ # reasons. In this case, the final cleanup might fail but the new
+ # file should still install successfully.
+ {
+ test ! -f "$dst" ||
+ $doit $rmcmd "$dst" 2>/dev/null ||
+ { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
+ { $doit $rmcmd "$rmtmp" 2>/dev/null; :; }
+ } ||
+ { echo "$0: cannot unlink or rename $dst" >&2
+ (exit 1); exit 1
+ }
+ } &&
+
+ # Now rename the file to the real destination.
+ $doit $mvcmd "$dsttmp" "$dst"
+ }
+ fi || exit 1
+
+ trap '' 0
+ fi
+done
+
+# Local variables:
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-start: "scriptversion="
+# time-stamp-format: "%:y-%02m-%02d.%02H"
+# time-stamp-time-zone: "UTC0"
+# time-stamp-end: "; # UTC"
+# End:
diff --git a/config/ltmain.sh b/config/ltmain.sh
new file mode 100644
index 000000000..82b305c99
--- /dev/null
+++ b/config/ltmain.sh
@@ -0,0 +1,11267 @@
+#! /bin/sh
+## DO NOT EDIT - This file generated from ./build-aux/ltmain.in
+## by inline-source v2014-01-03.01
+
+# libtool (GNU libtool) 2.4.6
+# Provide generalized library-building support services.
+# Written by Gordon Matzigkeit <gord@gnu.ai.mit.edu>, 1996
+
+# Copyright (C) 1996-2015 Free Software Foundation, Inc.
+# This is free software; see the source for copying conditions. There is NO
+# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+# GNU Libtool 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 2 of the License, or
+# (at your option) any later version.
+#
+# As a special exception to the GNU General Public License,
+# if you distribute this file as part of a program or library that
+# is built using GNU Libtool, you may include this file under the
+# same distribution terms that you use for the rest of that program.
+#
+# GNU Libtool 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/>.
+
+
+PROGRAM=libtool
+PACKAGE=libtool
+VERSION=2.4.6
+package_revision=2.4.6
+
+
+## ------ ##
+## Usage. ##
+## ------ ##
+
+# Run './libtool --help' for help with using this script from the
+# command line.
+
+
+## ------------------------------- ##
+## User overridable command paths. ##
+## ------------------------------- ##
+
+# After configure completes, it has a better idea of some of the
+# shell tools we need than the defaults used by the functions shared
+# with bootstrap, so set those here where they can still be over-
+# ridden by the user, but otherwise take precedence.
+
+: ${AUTOCONF="autoconf"}
+: ${AUTOMAKE="automake"}
+
+
+## -------------------------- ##
+## Source external libraries. ##
+## -------------------------- ##
+
+# Much of our low-level functionality needs to be sourced from external
+# libraries, which are installed to $pkgauxdir.
+
+# Set a version string for this script.
+scriptversion=2015-01-20.17; # UTC
+
+# General shell script boiler plate, and helper functions.
+# Written by Gary V. Vaughan, 2004
+
+# Copyright (C) 2004-2015 Free Software Foundation, Inc.
+# This is free software; see the source for copying conditions. There is NO
+# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+# 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.
+
+# As a special exception to the GNU General Public License, if you distribute
+# this file as part of a program or library that is built using GNU Libtool,
+# you may include this file under the same distribution terms that you use
+# for the rest of that program.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNES 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/>.
+
+# Please report bugs or propose patches to gary@gnu.org.
+
+
+## ------ ##
+## Usage. ##
+## ------ ##
+
+# Evaluate this file near the top of your script to gain access to
+# the functions and variables defined here:
+#
+# . `echo "$0" | ${SED-sed} 's|[^/]*$||'`/build-aux/funclib.sh
+#
+# If you need to override any of the default environment variable
+# settings, do that before evaluating this file.
+
+
+## -------------------- ##
+## Shell normalisation. ##
+## -------------------- ##
+
+# Some shells need a little help to be as Bourne compatible as possible.
+# Before doing anything else, make sure all that help has been provided!
+
+DUALCASE=1; export DUALCASE # for MKS sh
+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
+ emulate sh
+ NULLCMD=:
+ # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
+ # is contrary to our usage. Disable this feature.
+ alias -g '${1+"$@"}'='"$@"'
+ setopt NO_GLOB_SUBST
+else
+ case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac
+fi
+
+# NLS nuisances: We save the old values in case they are required later.
+_G_user_locale=
+_G_safe_locale=
+for _G_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES
+do
+ eval "if test set = \"\${$_G_var+set}\"; then
+ save_$_G_var=\$$_G_var
+ $_G_var=C
+ export $_G_var
+ _G_user_locale=\"$_G_var=\\\$save_\$_G_var; \$_G_user_locale\"
+ _G_safe_locale=\"$_G_var=C; \$_G_safe_locale\"
+ fi"
+done
+
+# CDPATH.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+# Make sure IFS has a sensible default
+sp=' '
+nl='
+'
+IFS="$sp $nl"
+
+# There are apparently some retarded systems that use ';' as a PATH separator!
+if test "${PATH_SEPARATOR+set}" != set; then
+ PATH_SEPARATOR=:
+ (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
+ (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
+ PATH_SEPARATOR=';'
+ }
+fi
+
+
+
+## ------------------------- ##
+## Locate command utilities. ##
+## ------------------------- ##
+
+
+# func_executable_p FILE
+# ----------------------
+# Check that FILE is an executable regular file.
+func_executable_p ()
+{
+ test -f "$1" && test -x "$1"
+}
+
+
+# func_path_progs PROGS_LIST CHECK_FUNC [PATH]
+# --------------------------------------------
+# Search for either a program that responds to --version with output
+# containing "GNU", or else returned by CHECK_FUNC otherwise, by
+# trying all the directories in PATH with each of the elements of
+# PROGS_LIST.
+#
+# CHECK_FUNC should accept the path to a candidate program, and
+# set $func_check_prog_result if it truncates its output less than
+# $_G_path_prog_max characters.
+func_path_progs ()
+{
+ _G_progs_list=$1
+ _G_check_func=$2
+ _G_PATH=${3-"$PATH"}
+
+ _G_path_prog_max=0
+ _G_path_prog_found=false
+ _G_save_IFS=$IFS; IFS=${PATH_SEPARATOR-:}
+ for _G_dir in $_G_PATH; do
+ IFS=$_G_save_IFS
+ test -z "$_G_dir" && _G_dir=.
+ for _G_prog_name in $_G_progs_list; do
+ for _exeext in '' .EXE; do
+ _G_path_prog=$_G_dir/$_G_prog_name$_exeext
+ func_executable_p "$_G_path_prog" || continue
+ case `"$_G_path_prog" --version 2>&1` in
+ *GNU*) func_path_progs_result=$_G_path_prog _G_path_prog_found=: ;;
+ *) $_G_check_func $_G_path_prog
+ func_path_progs_result=$func_check_prog_result
+ ;;
+ esac
+ $_G_path_prog_found && break 3
+ done
+ done
+ done
+ IFS=$_G_save_IFS
+ test -z "$func_path_progs_result" && {
+ echo "no acceptable sed could be found in \$PATH" >&2
+ exit 1
+ }
+}
+
+
+# We want to be able to use the functions in this file before configure
+# has figured out where the best binaries are kept, which means we have
+# to search for them ourselves - except when the results are already set
+# where we skip the searches.
+
+# Unless the user overrides by setting SED, search the path for either GNU
+# sed, or the sed that truncates its output the least.
+test -z "$SED" && {
+ _G_sed_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/
+ for _G_i in 1 2 3 4 5 6 7; do
+ _G_sed_script=$_G_sed_script$nl$_G_sed_script
+ done
+ echo "$_G_sed_script" 2>/dev/null | sed 99q >conftest.sed
+ _G_sed_script=
+
+ func_check_prog_sed ()
+ {
+ _G_path_prog=$1
+
+ _G_count=0
+ printf 0123456789 >conftest.in
+ while :
+ do
+ cat conftest.in conftest.in >conftest.tmp
+ mv conftest.tmp conftest.in
+ cp conftest.in conftest.nl
+ echo '' >> conftest.nl
+ "$_G_path_prog" -f conftest.sed <conftest.nl >conftest.out 2>/dev/null || break
+ diff conftest.out conftest.nl >/dev/null 2>&1 || break
+ _G_count=`expr $_G_count + 1`
+ if test "$_G_count" -gt "$_G_path_prog_max"; then
+ # Best one so far, save it but keep looking for a better one
+ func_check_prog_result=$_G_path_prog
+ _G_path_prog_max=$_G_count
+ fi
+ # 10*(2^10) chars as input seems more than enough
+ test 10 -lt "$_G_count" && break
+ done
+ rm -f conftest.in conftest.tmp conftest.nl conftest.out
+ }
+
+ func_path_progs "sed gsed" func_check_prog_sed $PATH:/usr/xpg4/bin
+ rm -f conftest.sed
+ SED=$func_path_progs_result
+}
+
+
+# Unless the user overrides by setting GREP, search the path for either GNU
+# grep, or the grep that truncates its output the least.
+test -z "$GREP" && {
+ func_check_prog_grep ()
+ {
+ _G_path_prog=$1
+
+ _G_count=0
+ _G_path_prog_max=0
+ printf 0123456789 >conftest.in
+ while :
+ do
+ cat conftest.in conftest.in >conftest.tmp
+ mv conftest.tmp conftest.in
+ cp conftest.in conftest.nl
+ echo 'GREP' >> conftest.nl
+ "$_G_path_prog" -e 'GREP$' -e '-(cannot match)-' <conftest.nl >conftest.out 2>/dev/null || break
+ diff conftest.out conftest.nl >/dev/null 2>&1 || break
+ _G_count=`expr $_G_count + 1`
+ if test "$_G_count" -gt "$_G_path_prog_max"; then
+ # Best one so far, save it but keep looking for a better one
+ func_check_prog_result=$_G_path_prog
+ _G_path_prog_max=$_G_count
+ fi
+ # 10*(2^10) chars as input seems more than enough
+ test 10 -lt "$_G_count" && break
+ done
+ rm -f conftest.in conftest.tmp conftest.nl conftest.out
+ }
+
+ func_path_progs "grep ggrep" func_check_prog_grep $PATH:/usr/xpg4/bin
+ GREP=$func_path_progs_result
+}
+
+
+## ------------------------------- ##
+## User overridable command paths. ##
+## ------------------------------- ##
+
+# All uppercase variable names are used for environment variables. These
+# variables can be overridden by the user before calling a script that
+# uses them if a suitable command of that name is not already available
+# in the command search PATH.
+
+: ${CP="cp -f"}
+# work around bug in libtool which raises an error when running in a
+# parallel make that should have been handled in printf internally
+printf()
+{
+ while ! builtin printf "$@" ; do
+ errcode=$?
+ # errcode might be EAGAIN=11 which means to simply try again
+ if [ $errcode != 11 ]; then
+ return $errcode
+ fi
+ done
+}
+: ${ECHO="printf %s\n"}
+: ${EGREP="$GREP -E"}
+: ${FGREP="$GREP -F"}
+: ${LN_S="ln -s"}
+: ${MAKE="make"}
+: ${MKDIR="mkdir"}
+: ${MV="mv -f"}
+: ${RM="rm -f"}
+: ${SHELL="${CONFIG_SHELL-/bin/sh}"}
+
+
+## -------------------- ##
+## Useful sed snippets. ##
+## -------------------- ##
+
+sed_dirname='s|/[^/]*$||'
+sed_basename='s|^.*/||'
+
+# Sed substitution that helps us do robust quoting. It backslashifies
+# metacharacters that are still active within double-quoted strings.
+sed_quote_subst='s|\([`"$\\]\)|\\\1|g'
+
+# Same as above, but do not quote variable references.
+sed_double_quote_subst='s/\(["`\\]\)/\\\1/g'
+
+# Sed substitution that turns a string into a regex matching for the
+# string literally.
+sed_make_literal_regex='s|[].[^$\\*\/]|\\&|g'
+
+# Sed substitution that converts a w32 file name or path
+# that contains forward slashes, into one that contains
+# (escaped) backslashes. A very naive implementation.
+sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g'
+
+# Re-'\' parameter expansions in output of sed_double_quote_subst that
+# were '\'-ed in input to the same. If an odd number of '\' preceded a
+# '$' in input to sed_double_quote_subst, that '$' was protected from
+# expansion. Since each input '\' is now two '\'s, look for any number
+# of runs of four '\'s followed by two '\'s and then a '$'. '\' that '$'.
+_G_bs='\\'
+_G_bs2='\\\\'
+_G_bs4='\\\\\\\\'
+_G_dollar='\$'
+sed_double_backslash="\
+ s/$_G_bs4/&\\
+/g
+ s/^$_G_bs2$_G_dollar/$_G_bs&/
+ s/\\([^$_G_bs]\\)$_G_bs2$_G_dollar/\\1$_G_bs2$_G_bs$_G_dollar/g
+ s/\n//g"
+
+
+## ----------------- ##
+## Global variables. ##
+## ----------------- ##
+
+# Except for the global variables explicitly listed below, the following
+# functions in the '^func_' namespace, and the '^require_' namespace
+# variables initialised in the 'Resource management' section, sourcing
+# this file will not pollute your global namespace with anything
+# else. There's no portable way to scope variables in Bourne shell
+# though, so actually running these functions will sometimes place
+# results into a variable named after the function, and often use
+# temporary variables in the '^_G_' namespace. If you are careful to
+# avoid using those namespaces casually in your sourcing script, things
+# should continue to work as you expect. And, of course, you can freely
+# overwrite any of the functions or variables defined here before
+# calling anything to customize them.
+
+EXIT_SUCCESS=0
+EXIT_FAILURE=1
+EXIT_MISMATCH=63 # $? = 63 is used to indicate version mismatch to missing.
+EXIT_SKIP=77 # $? = 77 is used to indicate a skipped test to automake.
+
+# Allow overriding, eg assuming that you follow the convention of
+# putting '$debug_cmd' at the start of all your functions, you can get
+# bash to show function call trace with:
+#
+# debug_cmd='eval echo "${FUNCNAME[0]} $*" >&2' bash your-script-name
+debug_cmd=${debug_cmd-":"}
+exit_cmd=:
+
+# By convention, finish your script with:
+#
+# exit $exit_status
+#
+# so that you can set exit_status to non-zero if you want to indicate
+# something went wrong during execution without actually bailing out at
+# the point of failure.
+exit_status=$EXIT_SUCCESS
+
+# Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh
+# is ksh but when the shell is invoked as "sh" and the current value of
+# the _XPG environment variable is not equal to 1 (one), the special
+# positional parameter $0, within a function call, is the name of the
+# function.
+progpath=$0
+
+# The name of this program.
+progname=`$ECHO "$progpath" |$SED "$sed_basename"`
+
+# Make sure we have an absolute progpath for reexecution:
+case $progpath in
+ [\\/]*|[A-Za-z]:\\*) ;;
+ *[\\/]*)
+ progdir=`$ECHO "$progpath" |$SED "$sed_dirname"`
+ progdir=`cd "$progdir" && pwd`
+ progpath=$progdir/$progname
+ ;;
+ *)
+ _G_IFS=$IFS
+ IFS=${PATH_SEPARATOR-:}
+ for progdir in $PATH; do
+ IFS=$_G_IFS
+ test -x "$progdir/$progname" && break
+ done
+ IFS=$_G_IFS
+ test -n "$progdir" || progdir=`pwd`
+ progpath=$progdir/$progname
+ ;;
+esac
+
+
+## ----------------- ##
+## Standard options. ##
+## ----------------- ##
+
+# The following options affect the operation of the functions defined
+# below, and should be set appropriately depending on run-time para-
+# meters passed on the command line.
+
+opt_dry_run=false
+opt_quiet=false
+opt_verbose=false
+
+# Categories 'all' and 'none' are always available. Append any others
+# you will pass as the first argument to func_warning from your own
+# code.
+warning_categories=
+
+# By default, display warnings according to 'opt_warning_types'. Set
+# 'warning_func' to ':' to elide all warnings, or func_fatal_error to
+# treat the next displayed warning as a fatal error.
+warning_func=func_warn_and_continue
+
+# Set to 'all' to display all warnings, 'none' to suppress all
+# warnings, or a space delimited list of some subset of
+# 'warning_categories' to display only the listed warnings.
+opt_warning_types=all
+
+
+## -------------------- ##
+## Resource management. ##
+## -------------------- ##
+
+# This section contains definitions for functions that each ensure a
+# particular resource (a file, or a non-empty configuration variable for
+# example) is available, and if appropriate to extract default values
+# from pertinent package files. Call them using their associated
+# 'require_*' variable to ensure that they are executed, at most, once.
+#
+# It's entirely deliberate that calling these functions can set
+# variables that don't obey the namespace limitations obeyed by the rest
+# of this file, in order that that they be as useful as possible to
+# callers.
+
+
+# require_term_colors
+# -------------------
+# Allow display of bold text on terminals that support it.
+require_term_colors=func_require_term_colors
+func_require_term_colors ()
+{
+ $debug_cmd
+
+ test -t 1 && {
+ # COLORTERM and USE_ANSI_COLORS environment variables take
+ # precedence, because most terminfo databases neglect to describe
+ # whether color sequences are supported.
+ test -n "${COLORTERM+set}" && : ${USE_ANSI_COLORS="1"}
+
+ if test 1 = "$USE_ANSI_COLORS"; then
+ # Standard ANSI escape sequences
+ tc_reset='[0m'
+ tc_bold='[1m'; tc_standout='[7m'
+ tc_red='[31m'; tc_green='[32m'
+ tc_blue='[34m'; tc_cyan='[36m'
+ else
+ # Otherwise trust the terminfo database after all.
+ test -n "`tput sgr0 2>/dev/null`" && {
+ tc_reset=`tput sgr0`
+ test -n "`tput bold 2>/dev/null`" && tc_bold=`tput bold`
+ tc_standout=$tc_bold
+ test -n "`tput smso 2>/dev/null`" && tc_standout=`tput smso`
+ test -n "`tput setaf 1 2>/dev/null`" && tc_red=`tput setaf 1`
+ test -n "`tput setaf 2 2>/dev/null`" && tc_green=`tput setaf 2`
+ test -n "`tput setaf 4 2>/dev/null`" && tc_blue=`tput setaf 4`
+ test -n "`tput setaf 5 2>/dev/null`" && tc_cyan=`tput setaf 5`
+ }
+ fi
+ }
+
+ require_term_colors=:
+}
+
+
+## ----------------- ##
+## Function library. ##
+## ----------------- ##
+
+# This section contains a variety of useful functions to call in your
+# scripts. Take note of the portable wrappers for features provided by
+# some modern shells, which will fall back to slower equivalents on
+# less featureful shells.
+
+
+# func_append VAR VALUE
+# ---------------------
+# Append VALUE onto the existing contents of VAR.
+
+ # We should try to minimise forks, especially on Windows where they are
+ # unreasonably slow, so skip the feature probes when bash or zsh are
+ # being used:
+ if test set = "${BASH_VERSION+set}${ZSH_VERSION+set}"; then
+ : ${_G_HAVE_ARITH_OP="yes"}
+ : ${_G_HAVE_XSI_OPS="yes"}
+ # The += operator was introduced in bash 3.1
+ case $BASH_VERSION in
+ [12].* | 3.0 | 3.0*) ;;
+ *)
+ : ${_G_HAVE_PLUSEQ_OP="yes"}
+ ;;
+ esac
+ fi
+
+ # _G_HAVE_PLUSEQ_OP
+ # Can be empty, in which case the shell is probed, "yes" if += is
+ # useable or anything else if it does not work.
+ test -z "$_G_HAVE_PLUSEQ_OP" \
+ && (eval 'x=a; x+=" b"; test "a b" = "$x"') 2>/dev/null \
+ && _G_HAVE_PLUSEQ_OP=yes
+
+if test yes = "$_G_HAVE_PLUSEQ_OP"
+then
+ # This is an XSI compatible shell, allowing a faster implementation...
+ eval 'func_append ()
+ {
+ $debug_cmd
+
+ eval "$1+=\$2"
+ }'
+else
+ # ...otherwise fall back to using expr, which is often a shell builtin.
+ func_append ()
+ {
+ $debug_cmd
+
+ eval "$1=\$$1\$2"
+ }
+fi
+
+
+# func_append_quoted VAR VALUE
+# ----------------------------
+# Quote VALUE and append to the end of shell variable VAR, separated
+# by a space.
+if test yes = "$_G_HAVE_PLUSEQ_OP"; then
+ eval 'func_append_quoted ()
+ {
+ $debug_cmd
+
+ func_quote_for_eval "$2"
+ eval "$1+=\\ \$func_quote_for_eval_result"
+ }'
+else
+ func_append_quoted ()
+ {
+ $debug_cmd
+
+ func_quote_for_eval "$2"
+ eval "$1=\$$1\\ \$func_quote_for_eval_result"
+ }
+fi
+
+
+# func_append_uniq VAR VALUE
+# --------------------------
+# Append unique VALUE onto the existing contents of VAR, assuming
+# entries are delimited by the first character of VALUE. For example:
+#
+# func_append_uniq options " --another-option option-argument"
+#
+# will only append to $options if " --another-option option-argument "
+# is not already present somewhere in $options already (note spaces at
+# each end implied by leading space in second argument).
+func_append_uniq ()
+{
+ $debug_cmd
+
+ eval _G_current_value='`$ECHO $'$1'`'
+ _G_delim=`expr "$2" : '\(.\)'`
+
+ case $_G_delim$_G_current_value$_G_delim in
+ *"$2$_G_delim"*) ;;
+ *) func_append "$@" ;;
+ esac
+}
+
+
+# func_arith TERM...
+# ------------------
+# Set func_arith_result to the result of evaluating TERMs.
+ test -z "$_G_HAVE_ARITH_OP" \
+ && (eval 'test 2 = $(( 1 + 1 ))') 2>/dev/null \
+ && _G_HAVE_ARITH_OP=yes
+
+if test yes = "$_G_HAVE_ARITH_OP"; then
+ eval 'func_arith ()
+ {
+ $debug_cmd
+
+ func_arith_result=$(( $* ))
+ }'
+else
+ func_arith ()
+ {
+ $debug_cmd
+
+ func_arith_result=`expr "$@"`
+ }
+fi
+
+
+# func_basename FILE
+# ------------------
+# Set func_basename_result to FILE with everything up to and including
+# the last / stripped.
+if test yes = "$_G_HAVE_XSI_OPS"; then
+ # If this shell supports suffix pattern removal, then use it to avoid
+ # forking. Hide the definitions single quotes in case the shell chokes
+ # on unsupported syntax...
+ _b='func_basename_result=${1##*/}'
+ _d='case $1 in
+ */*) func_dirname_result=${1%/*}$2 ;;
+ * ) func_dirname_result=$3 ;;
+ esac'
+
+else
+ # ...otherwise fall back to using sed.
+ _b='func_basename_result=`$ECHO "$1" |$SED "$sed_basename"`'
+ _d='func_dirname_result=`$ECHO "$1" |$SED "$sed_dirname"`
+ if test "X$func_dirname_result" = "X$1"; then
+ func_dirname_result=$3
+ else
+ func_append func_dirname_result "$2"
+ fi'
+fi
+
+eval 'func_basename ()
+{
+ $debug_cmd
+
+ '"$_b"'
+}'
+
+
+# func_dirname FILE APPEND NONDIR_REPLACEMENT
+# -------------------------------------------
+# Compute the dirname of FILE. If nonempty, add APPEND to the result,
+# otherwise set result to NONDIR_REPLACEMENT.
+eval 'func_dirname ()
+{
+ $debug_cmd
+
+ '"$_d"'
+}'
+
+
+# func_dirname_and_basename FILE APPEND NONDIR_REPLACEMENT
+# --------------------------------------------------------
+# Perform func_basename and func_dirname in a single function
+# call:
+# dirname: Compute the dirname of FILE. If nonempty,
+# add APPEND to the result, otherwise set result
+# to NONDIR_REPLACEMENT.
+# value returned in "$func_dirname_result"
+# basename: Compute filename of FILE.
+# value retuned in "$func_basename_result"
+# For efficiency, we do not delegate to the functions above but instead
+# duplicate the functionality here.
+eval 'func_dirname_and_basename ()
+{
+ $debug_cmd
+
+ '"$_b"'
+ '"$_d"'
+}'
+
+
+# func_echo ARG...
+# ----------------
+# Echo program name prefixed message.
+func_echo ()
+{
+ $debug_cmd
+
+ _G_message=$*
+
+ func_echo_IFS=$IFS
+ IFS=$nl
+ for _G_line in $_G_message; do
+ IFS=$func_echo_IFS
+ $ECHO "$progname: $_G_line"
+ done
+ IFS=$func_echo_IFS
+}
+
+
+# func_echo_all ARG...
+# --------------------
+# Invoke $ECHO with all args, space-separated.
+func_echo_all ()
+{
+ $ECHO "$*"
+}
+
+
+# func_echo_infix_1 INFIX ARG...
+# ------------------------------
+# Echo program name, followed by INFIX on the first line, with any
+# additional lines not showing INFIX.
+func_echo_infix_1 ()
+{
+ $debug_cmd
+
+ $require_term_colors
+
+ _G_infix=$1; shift
+ _G_indent=$_G_infix
+ _G_prefix="$progname: $_G_infix: "
+ _G_message=$*
+
+ # Strip color escape sequences before counting printable length
+ for _G_tc in "$tc_reset" "$tc_bold" "$tc_standout" "$tc_red" "$tc_green" "$tc_blue" "$tc_cyan"
+ do
+ test -n "$_G_tc" && {
+ _G_esc_tc=`$ECHO "$_G_tc" | $SED "$sed_make_literal_regex"`
+ _G_indent=`$ECHO "$_G_indent" | $SED "s|$_G_esc_tc||g"`
+ }
+ done
+ _G_indent="$progname: "`echo "$_G_indent" | $SED 's|.| |g'`" " ## exclude from sc_prohibit_nested_quotes
+
+ func_echo_infix_1_IFS=$IFS
+ IFS=$nl
+ for _G_line in $_G_message; do
+ IFS=$func_echo_infix_1_IFS
+ $ECHO "$_G_prefix$tc_bold$_G_line$tc_reset" >&2
+ _G_prefix=$_G_indent
+ done
+ IFS=$func_echo_infix_1_IFS
+}
+
+
+# func_error ARG...
+# -----------------
+# Echo program name prefixed message to standard error.
+func_error ()
+{
+ $debug_cmd
+
+ $require_term_colors
+
+ func_echo_infix_1 " $tc_standout${tc_red}error$tc_reset" "$*" >&2
+}
+
+
+# func_fatal_error ARG...
+# -----------------------
+# Echo program name prefixed message to standard error, and exit.
+func_fatal_error ()
+{
+ $debug_cmd
+
+ func_error "$*"
+ exit $EXIT_FAILURE
+}
+
+
+# func_grep EXPRESSION FILENAME
+# -----------------------------
+# Check whether EXPRESSION matches any line of FILENAME, without output.
+func_grep ()
+{
+ $debug_cmd
+
+ $GREP "$1" "$2" >/dev/null 2>&1
+}
+
+
+# func_len STRING
+# ---------------
+# Set func_len_result to the length of STRING. STRING may not
+# start with a hyphen.
+ test -z "$_G_HAVE_XSI_OPS" \
+ && (eval 'x=a/b/c;
+ test 5aa/bb/cc = "${#x}${x%%/*}${x%/*}${x#*/}${x##*/}"') 2>/dev/null \
+ && _G_HAVE_XSI_OPS=yes
+
+if test yes = "$_G_HAVE_XSI_OPS"; then
+ eval 'func_len ()
+ {
+ $debug_cmd
+
+ func_len_result=${#1}
+ }'
+else
+ func_len ()
+ {
+ $debug_cmd
+
+ func_len_result=`expr "$1" : ".*" 2>/dev/null || echo $max_cmd_len`
+ }
+fi
+
+
+# func_mkdir_p DIRECTORY-PATH
+# ---------------------------
+# Make sure the entire path to DIRECTORY-PATH is available.
+func_mkdir_p ()
+{
+ $debug_cmd
+
+ _G_directory_path=$1
+ _G_dir_list=
+
+ if test -n "$_G_directory_path" && test : != "$opt_dry_run"; then
+
+ # Protect directory names starting with '-'
+ case $_G_directory_path in
+ -*) _G_directory_path=./$_G_directory_path ;;
+ esac
+
+ # While some portion of DIR does not yet exist...
+ while test ! -d "$_G_directory_path"; do
+ # ...make a list in topmost first order. Use a colon delimited
+ # list incase some portion of path contains whitespace.
+ _G_dir_list=$_G_directory_path:$_G_dir_list
+
+ # If the last portion added has no slash in it, the list is done
+ case $_G_directory_path in */*) ;; *) break ;; esac
+
+ # ...otherwise throw away the child directory and loop
+ _G_directory_path=`$ECHO "$_G_directory_path" | $SED -e "$sed_dirname"`
+ done
+ _G_dir_list=`$ECHO "$_G_dir_list" | $SED 's|:*$||'`
+
+ func_mkdir_p_IFS=$IFS; IFS=:
+ for _G_dir in $_G_dir_list; do
+ IFS=$func_mkdir_p_IFS
+ # mkdir can fail with a 'File exist' error if two processes
+ # try to create one of the directories concurrently. Don't
+ # stop in that case!
+ $MKDIR "$_G_dir" 2>/dev/null || :
+ done
+ IFS=$func_mkdir_p_IFS
+
+ # Bail out if we (or some other process) failed to create a directory.
+ test -d "$_G_directory_path" || \
+ func_fatal_error "Failed to create '$1'"
+ fi
+}
+
+
+# func_mktempdir [BASENAME]
+# -------------------------
+# Make a temporary directory that won't clash with other running
+# libtool processes, and avoids race conditions if possible. If
+# given, BASENAME is the basename for that directory.
+func_mktempdir ()
+{
+ $debug_cmd
+
+ _G_template=${TMPDIR-/tmp}/${1-$progname}
+
+ if test : = "$opt_dry_run"; then
+ # Return a directory name, but don't create it in dry-run mode
+ _G_tmpdir=$_G_template-$$
+ else
+
+ # If mktemp works, use that first and foremost
+ _G_tmpdir=`mktemp -d "$_G_template-XXXXXXXX" 2>/dev/null`
+
+ if test ! -d "$_G_tmpdir"; then
+ # Failing that, at least try and use $RANDOM to avoid a race
+ _G_tmpdir=$_G_template-${RANDOM-0}$$
+
+ func_mktempdir_umask=`umask`
+ umask 0077
+ $MKDIR "$_G_tmpdir"
+ umask $func_mktempdir_umask
+ fi
+
+ # If we're not in dry-run mode, bomb out on failure
+ test -d "$_G_tmpdir" || \
+ func_fatal_error "cannot create temporary directory '$_G_tmpdir'"
+ fi
+
+ $ECHO "$_G_tmpdir"
+}
+
+
+# func_normal_abspath PATH
+# ------------------------
+# Remove doubled-up and trailing slashes, "." path components,
+# and cancel out any ".." path components in PATH after making
+# it an absolute path.
+func_normal_abspath ()
+{
+ $debug_cmd
+
+ # These SED scripts presuppose an absolute path with a trailing slash.
+ _G_pathcar='s|^/\([^/]*\).*$|\1|'
+ _G_pathcdr='s|^/[^/]*||'
+ _G_removedotparts=':dotsl
+ s|/\./|/|g
+ t dotsl
+ s|/\.$|/|'
+ _G_collapseslashes='s|/\{1,\}|/|g'
+ _G_finalslash='s|/*$|/|'
+
+ # Start from root dir and reassemble the path.
+ func_normal_abspath_result=
+ func_normal_abspath_tpath=$1
+ func_normal_abspath_altnamespace=
+ case $func_normal_abspath_tpath in
+ "")
+ # Empty path, that just means $cwd.
+ func_stripname '' '/' "`pwd`"
+ func_normal_abspath_result=$func_stripname_result
+ return
+ ;;
+ # The next three entries are used to spot a run of precisely
+ # two leading slashes without using negated character classes;
+ # we take advantage of case's first-match behaviour.
+ ///*)
+ # Unusual form of absolute path, do nothing.
+ ;;
+ //*)
+ # Not necessarily an ordinary path; POSIX reserves leading '//'
+ # and for example Cygwin uses it to access remote file shares
+ # over CIFS/SMB, so we conserve a leading double slash if found.
+ func_normal_abspath_altnamespace=/
+ ;;
+ /*)
+ # Absolute path, do nothing.
+ ;;
+ *)
+ # Relative path, prepend $cwd.
+ func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath
+ ;;
+ esac
+
+ # Cancel out all the simple stuff to save iterations. We also want
+ # the path to end with a slash for ease of parsing, so make sure
+ # there is one (and only one) here.
+ func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \
+ -e "$_G_removedotparts" -e "$_G_collapseslashes" -e "$_G_finalslash"`
+ while :; do
+ # Processed it all yet?
+ if test / = "$func_normal_abspath_tpath"; then
+ # If we ascended to the root using ".." the result may be empty now.
+ if test -z "$func_normal_abspath_result"; then
+ func_normal_abspath_result=/
+ fi
+ break
+ fi
+ func_normal_abspath_tcomponent=`$ECHO "$func_normal_abspath_tpath" | $SED \
+ -e "$_G_pathcar"`
+ func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \
+ -e "$_G_pathcdr"`
+ # Figure out what to do with it
+ case $func_normal_abspath_tcomponent in
+ "")
+ # Trailing empty path component, ignore it.
+ ;;
+ ..)
+ # Parent dir; strip last assembled component from result.
+ func_dirname "$func_normal_abspath_result"
+ func_normal_abspath_result=$func_dirname_result
+ ;;
+ *)
+ # Actual path component, append it.
+ func_append func_normal_abspath_result "/$func_normal_abspath_tcomponent"
+ ;;
+ esac
+ done
+ # Restore leading double-slash if one was found on entry.
+ func_normal_abspath_result=$func_normal_abspath_altnamespace$func_normal_abspath_result
+}
+
+
+# func_notquiet ARG...
+# --------------------
+# Echo program name prefixed message only when not in quiet mode.
+func_notquiet ()
+{
+ $debug_cmd
+
+ $opt_quiet || func_echo ${1+"$@"}
+
+ # A bug in bash halts the script if the last line of a function
+ # fails when set -e is in force, so we need another command to
+ # work around that:
+ :
+}
+
+
+# func_relative_path SRCDIR DSTDIR
+# --------------------------------
+# Set func_relative_path_result to the relative path from SRCDIR to DSTDIR.
+func_relative_path ()
+{
+ $debug_cmd
+
+ func_relative_path_result=
+ func_normal_abspath "$1"
+ func_relative_path_tlibdir=$func_normal_abspath_result
+ func_normal_abspath "$2"
+ func_relative_path_tbindir=$func_normal_abspath_result
+
+ # Ascend the tree starting from libdir
+ while :; do
+ # check if we have found a prefix of bindir
+ case $func_relative_path_tbindir in
+ $func_relative_path_tlibdir)
+ # found an exact match
+ func_relative_path_tcancelled=
+ break
+ ;;
+ $func_relative_path_tlibdir*)
+ # found a matching prefix
+ func_stripname "$func_relative_path_tlibdir" '' "$func_relative_path_tbindir"
+ func_relative_path_tcancelled=$func_stripname_result
+ if test -z "$func_relative_path_result"; then
+ func_relative_path_result=.
+ fi
+ break
+ ;;
+ *)
+ func_dirname $func_relative_path_tlibdir
+ func_relative_path_tlibdir=$func_dirname_result
+ if test -z "$func_relative_path_tlibdir"; then
+ # Have to descend all the way to the root!
+ func_relative_path_result=../$func_relative_path_result
+ func_relative_path_tcancelled=$func_relative_path_tbindir
+ break
+ fi
+ func_relative_path_result=../$func_relative_path_result
+ ;;
+ esac
+ done
+
+ # Now calculate path; take care to avoid doubling-up slashes.
+ func_stripname '' '/' "$func_relative_path_result"
+ func_relative_path_result=$func_stripname_result
+ func_stripname '/' '/' "$func_relative_path_tcancelled"
+ if test -n "$func_stripname_result"; then
+ func_append func_relative_path_result "/$func_stripname_result"
+ fi
+
+ # Normalisation. If bindir is libdir, return '.' else relative path.
+ if test -n "$func_relative_path_result"; then
+ func_stripname './' '' "$func_relative_path_result"
+ func_relative_path_result=$func_stripname_result
+ fi
+
+ test -n "$func_relative_path_result" || func_relative_path_result=.
+
+ :
+}
+
+
+# func_quote_for_eval ARG...
+# --------------------------
+# Aesthetically quote ARGs to be evaled later.
+# This function returns two values:
+# i) func_quote_for_eval_result
+# double-quoted, suitable for a subsequent eval
+# ii) func_quote_for_eval_unquoted_result
+# has all characters that are still active within double
+# quotes backslashified.
+func_quote_for_eval ()
+{
+ $debug_cmd
+
+ func_quote_for_eval_unquoted_result=
+ func_quote_for_eval_result=
+ while test 0 -lt $#; do
+ case $1 in
+ *[\\\`\"\$]*)
+ _G_unquoted_arg=`printf '%s\n' "$1" |$SED "$sed_quote_subst"` ;;
+ *)
+ _G_unquoted_arg=$1 ;;
+ esac
+ if test -n "$func_quote_for_eval_unquoted_result"; then
+ func_append func_quote_for_eval_unquoted_result " $_G_unquoted_arg"
+ else
+ func_append func_quote_for_eval_unquoted_result "$_G_unquoted_arg"
+ fi
+
+ case $_G_unquoted_arg in
+ # Double-quote args containing shell metacharacters to delay
+ # word splitting, command substitution and variable expansion
+ # for a subsequent eval.
+ # Many Bourne shells cannot handle close brackets correctly
+ # in scan sets, so we specify it separately.
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ _G_quoted_arg=\"$_G_unquoted_arg\"
+ ;;
+ *)
+ _G_quoted_arg=$_G_unquoted_arg
+ ;;
+ esac
+
+ if test -n "$func_quote_for_eval_result"; then
+ func_append func_quote_for_eval_result " $_G_quoted_arg"
+ else
+ func_append func_quote_for_eval_result "$_G_quoted_arg"
+ fi
+ shift
+ done
+}
+
+
+# func_quote_for_expand ARG
+# -------------------------
+# Aesthetically quote ARG to be evaled later; same as above,
+# but do not quote variable references.
+func_quote_for_expand ()
+{
+ $debug_cmd
+
+ case $1 in
+ *[\\\`\"]*)
+ _G_arg=`$ECHO "$1" | $SED \
+ -e "$sed_double_quote_subst" -e "$sed_double_backslash"` ;;
+ *)
+ _G_arg=$1 ;;
+ esac
+
+ case $_G_arg in
+ # Double-quote args containing shell metacharacters to delay
+ # word splitting and command substitution for a subsequent eval.
+ # Many Bourne shells cannot handle close brackets correctly
+ # in scan sets, so we specify it separately.
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ _G_arg=\"$_G_arg\"
+ ;;
+ esac
+
+ func_quote_for_expand_result=$_G_arg
+}
+
+
+# func_stripname PREFIX SUFFIX NAME
+# ---------------------------------
+# strip PREFIX and SUFFIX from NAME, and store in func_stripname_result.
+# PREFIX and SUFFIX must not contain globbing or regex special
+# characters, hashes, percent signs, but SUFFIX may contain a leading
+# dot (in which case that matches only a dot).
+if test yes = "$_G_HAVE_XSI_OPS"; then
+ eval 'func_stripname ()
+ {
+ $debug_cmd
+
+ # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are
+ # positional parameters, so assign one to ordinary variable first.
+ func_stripname_result=$3
+ func_stripname_result=${func_stripname_result#"$1"}
+ func_stripname_result=${func_stripname_result%"$2"}
+ }'
+else
+ func_stripname ()
+ {
+ $debug_cmd
+
+ case $2 in
+ .*) func_stripname_result=`$ECHO "$3" | $SED -e "s%^$1%%" -e "s%\\\\$2\$%%"`;;
+ *) func_stripname_result=`$ECHO "$3" | $SED -e "s%^$1%%" -e "s%$2\$%%"`;;
+ esac
+ }
+fi
+
+
+# func_show_eval CMD [FAIL_EXP]
+# -----------------------------
+# Unless opt_quiet is true, then output CMD. Then, if opt_dryrun is
+# not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP
+# is given, then evaluate it.
+func_show_eval ()
+{
+ $debug_cmd
+
+ _G_cmd=$1
+ _G_fail_exp=${2-':'}
+
+ func_quote_for_expand "$_G_cmd"
+ eval "func_notquiet $func_quote_for_expand_result"
+
+ $opt_dry_run || {
+ eval "$_G_cmd"
+ _G_status=$?
+ if test 0 -ne "$_G_status"; then
+ eval "(exit $_G_status); $_G_fail_exp"
+ fi
+ }
+}
+
+
+# func_show_eval_locale CMD [FAIL_EXP]
+# ------------------------------------
+# Unless opt_quiet is true, then output CMD. Then, if opt_dryrun is
+# not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP
+# is given, then evaluate it. Use the saved locale for evaluation.
+func_show_eval_locale ()
+{
+ $debug_cmd
+
+ _G_cmd=$1
+ _G_fail_exp=${2-':'}
+
+ $opt_quiet || {
+ func_quote_for_expand "$_G_cmd"
+ eval "func_echo $func_quote_for_expand_result"
+ }
+
+ $opt_dry_run || {
+ eval "$_G_user_locale
+ $_G_cmd"
+ _G_status=$?
+ eval "$_G_safe_locale"
+ if test 0 -ne "$_G_status"; then
+ eval "(exit $_G_status); $_G_fail_exp"
+ fi
+ }
+}
+
+
+# func_tr_sh
+# ----------
+# Turn $1 into a string suitable for a shell variable name.
+# Result is stored in $func_tr_sh_result. All characters
+# not in the set a-zA-Z0-9_ are replaced with '_'. Further,
+# if $1 begins with a digit, a '_' is prepended as well.
+func_tr_sh ()
+{
+ $debug_cmd
+
+ case $1 in
+ [0-9]* | *[!a-zA-Z0-9_]*)
+ func_tr_sh_result=`$ECHO "$1" | $SED -e 's/^\([0-9]\)/_\1/' -e 's/[^a-zA-Z0-9_]/_/g'`
+ ;;
+ * )
+ func_tr_sh_result=$1
+ ;;
+ esac
+}
+
+
+# func_verbose ARG...
+# -------------------
+# Echo program name prefixed message in verbose mode only.
+func_verbose ()
+{
+ $debug_cmd
+
+ $opt_verbose && func_echo "$*"
+
+ :
+}
+
+
+# func_warn_and_continue ARG...
+# -----------------------------
+# Echo program name prefixed warning message to standard error.
+func_warn_and_continue ()
+{
+ $debug_cmd
+
+ $require_term_colors
+
+ func_echo_infix_1 "${tc_red}warning$tc_reset" "$*" >&2
+}
+
+
+# func_warning CATEGORY ARG...
+# ----------------------------
+# Echo program name prefixed warning message to standard error. Warning
+# messages can be filtered according to CATEGORY, where this function
+# elides messages where CATEGORY is not listed in the global variable
+# 'opt_warning_types'.
+func_warning ()
+{
+ $debug_cmd
+
+ # CATEGORY must be in the warning_categories list!
+ case " $warning_categories " in
+ *" $1 "*) ;;
+ *) func_internal_error "invalid warning category '$1'" ;;
+ esac
+
+ _G_category=$1
+ shift
+
+ case " $opt_warning_types " in
+ *" $_G_category "*) $warning_func ${1+"$@"} ;;
+ esac
+}
+
+
+# func_sort_ver VER1 VER2
+# -----------------------
+# 'sort -V' is not generally available.
+# Note this deviates from the version comparison in automake
+# in that it treats 1.5 < 1.5.0, and treats 1.4.4a < 1.4-p3a
+# but this should suffice as we won't be specifying old
+# version formats or redundant trailing .0 in bootstrap.conf.
+# If we did want full compatibility then we should probably
+# use m4_version_compare from autoconf.
+func_sort_ver ()
+{
+ $debug_cmd
+
+ printf '%s\n%s\n' "$1" "$2" \
+ | sort -t. -k 1,1n -k 2,2n -k 3,3n -k 4,4n -k 5,5n -k 6,6n -k 7,7n -k 8,8n -k 9,9n
+}
+
+# func_lt_ver PREV CURR
+# ---------------------
+# Return true if PREV and CURR are in the correct order according to
+# func_sort_ver, otherwise false. Use it like this:
+#
+# func_lt_ver "$prev_ver" "$proposed_ver" || func_fatal_error "..."
+func_lt_ver ()
+{
+ $debug_cmd
+
+ test "x$1" = x`func_sort_ver "$1" "$2" | $SED 1q`
+}
+
+
+# Local variables:
+# mode: shell-script
+# sh-indentation: 2
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-pattern: "10/scriptversion=%:y-%02m-%02d.%02H; # UTC"
+# time-stamp-time-zone: "UTC"
+# End:
+#! /bin/sh
+
+# Set a version string for this script.
+scriptversion=2014-01-07.03; # UTC
+
+# A portable, pluggable option parser for Bourne shell.
+# Written by Gary V. Vaughan, 2010
+
+# Copyright (C) 2010-2015 Free Software Foundation, Inc.
+# This is free software; see the source for copying conditions. There is NO
+# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+# 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/>.
+
+# Please report bugs or propose patches to gary@gnu.org.
+
+
+## ------ ##
+## Usage. ##
+## ------ ##
+
+# This file is a library for parsing options in your shell scripts along
+# with assorted other useful supporting features that you can make use
+# of too.
+#
+# For the simplest scripts you might need only:
+#
+# #!/bin/sh
+# . relative/path/to/funclib.sh
+# . relative/path/to/options-parser
+# scriptversion=1.0
+# func_options ${1+"$@"}
+# eval set dummy "$func_options_result"; shift
+# ...rest of your script...
+#
+# In order for the '--version' option to work, you will need to have a
+# suitably formatted comment like the one at the top of this file
+# starting with '# Written by ' and ending with '# warranty; '.
+#
+# For '-h' and '--help' to work, you will also need a one line
+# description of your script's purpose in a comment directly above the
+# '# Written by ' line, like the one at the top of this file.
+#
+# The default options also support '--debug', which will turn on shell
+# execution tracing (see the comment above debug_cmd below for another
+# use), and '--verbose' and the func_verbose function to allow your script
+# to display verbose messages only when your user has specified
+# '--verbose'.
+#
+# After sourcing this file, you can plug processing for additional
+# options by amending the variables from the 'Configuration' section
+# below, and following the instructions in the 'Option parsing'
+# section further down.
+
+## -------------- ##
+## Configuration. ##
+## -------------- ##
+
+# You should override these variables in your script after sourcing this
+# file so that they reflect the customisations you have added to the
+# option parser.
+
+# The usage line for option parsing errors and the start of '-h' and
+# '--help' output messages. You can embed shell variables for delayed
+# expansion at the time the message is displayed, but you will need to
+# quote other shell meta-characters carefully to prevent them being
+# expanded when the contents are evaled.
+usage='$progpath [OPTION]...'
+
+# Short help message in response to '-h' and '--help'. Add to this or
+# override it after sourcing this library to reflect the full set of
+# options your script accepts.
+usage_message="\
+ --debug enable verbose shell tracing
+ -W, --warnings=CATEGORY
+ report the warnings falling in CATEGORY [all]
+ -v, --verbose verbosely report processing
+ --version print version information and exit
+ -h, --help print short or long help message and exit
+"
+
+# Additional text appended to 'usage_message' in response to '--help'.
+long_help_message="
+Warning categories include:
+ 'all' show all warnings
+ 'none' turn off all the warnings
+ 'error' warnings are treated as fatal errors"
+
+# Help message printed before fatal option parsing errors.
+fatal_help="Try '\$progname --help' for more information."
+
+
+
+## ------------------------- ##
+## Hook function management. ##
+## ------------------------- ##
+
+# This section contains functions for adding, removing, and running hooks
+# to the main code. A hook is just a named list of of function, that can
+# be run in order later on.
+
+# func_hookable FUNC_NAME
+# -----------------------
+# Declare that FUNC_NAME will run hooks added with
+# 'func_add_hook FUNC_NAME ...'.
+func_hookable ()
+{
+ $debug_cmd
+
+ func_append hookable_fns " $1"
+}
+
+
+# func_add_hook FUNC_NAME HOOK_FUNC
+# ---------------------------------
+# Request that FUNC_NAME call HOOK_FUNC before it returns. FUNC_NAME must
+# first have been declared "hookable" by a call to 'func_hookable'.
+func_add_hook ()
+{
+ $debug_cmd
+
+ case " $hookable_fns " in
+ *" $1 "*) ;;
+ *) func_fatal_error "'$1' does not accept hook functions." ;;
+ esac
+
+ eval func_append ${1}_hooks '" $2"'
+}
+
+
+# func_remove_hook FUNC_NAME HOOK_FUNC
+# ------------------------------------
+# Remove HOOK_FUNC from the list of functions called by FUNC_NAME.
+func_remove_hook ()
+{
+ $debug_cmd
+
+ eval ${1}_hooks='`$ECHO "\$'$1'_hooks" |$SED "s| '$2'||"`'
+}
+
+
+# func_run_hooks FUNC_NAME [ARG]...
+# ---------------------------------
+# Run all hook functions registered to FUNC_NAME.
+# It is assumed that the list of hook functions contains nothing more
+# than a whitespace-delimited list of legal shell function names, and
+# no effort is wasted trying to catch shell meta-characters or preserve
+# whitespace.
+func_run_hooks ()
+{
+ $debug_cmd
+
+ case " $hookable_fns " in
+ *" $1 "*) ;;
+ *) func_fatal_error "'$1' does not support hook funcions.n" ;;
+ esac
+
+ eval _G_hook_fns=\$$1_hooks; shift
+
+ for _G_hook in $_G_hook_fns; do
+ eval $_G_hook '"$@"'
+
+ # store returned options list back into positional
+ # parameters for next 'cmd' execution.
+ eval _G_hook_result=\$${_G_hook}_result
+ eval set dummy "$_G_hook_result"; shift
+ done
+
+ func_quote_for_eval ${1+"$@"}
+ func_run_hooks_result=$func_quote_for_eval_result
+}
+
+
+
+## --------------- ##
+## Option parsing. ##
+## --------------- ##
+
+# In order to add your own option parsing hooks, you must accept the
+# full positional parameter list in your hook function, remove any
+# options that you action, and then pass back the remaining unprocessed
+# options in '<hooked_function_name>_result', escaped suitably for
+# 'eval'. Like this:
+#
+# my_options_prep ()
+# {
+# $debug_cmd
+#
+# # Extend the existing usage message.
+# usage_message=$usage_message'
+# -s, --silent don'\''t print informational messages
+# '
+#
+# func_quote_for_eval ${1+"$@"}
+# my_options_prep_result=$func_quote_for_eval_result
+# }
+# func_add_hook func_options_prep my_options_prep
+#
+#
+# my_silent_option ()
+# {
+# $debug_cmd
+#
+# # Note that for efficiency, we parse as many options as we can
+# # recognise in a loop before passing the remainder back to the
+# # caller on the first unrecognised argument we encounter.
+# while test $# -gt 0; do
+# opt=$1; shift
+# case $opt in
+# --silent|-s) opt_silent=: ;;
+# # Separate non-argument short options:
+# -s*) func_split_short_opt "$_G_opt"
+# set dummy "$func_split_short_opt_name" \
+# "-$func_split_short_opt_arg" ${1+"$@"}
+# shift
+# ;;
+# *) set dummy "$_G_opt" "$*"; shift; break ;;
+# esac
+# done
+#
+# func_quote_for_eval ${1+"$@"}
+# my_silent_option_result=$func_quote_for_eval_result
+# }
+# func_add_hook func_parse_options my_silent_option
+#
+#
+# my_option_validation ()
+# {
+# $debug_cmd
+#
+# $opt_silent && $opt_verbose && func_fatal_help "\
+# '--silent' and '--verbose' options are mutually exclusive."
+#
+# func_quote_for_eval ${1+"$@"}
+# my_option_validation_result=$func_quote_for_eval_result
+# }
+# func_add_hook func_validate_options my_option_validation
+#
+# You'll alse need to manually amend $usage_message to reflect the extra
+# options you parse. It's preferable to append if you can, so that
+# multiple option parsing hooks can be added safely.
+
+
+# func_options [ARG]...
+# ---------------------
+# All the functions called inside func_options are hookable. See the
+# individual implementations for details.
+func_hookable func_options
+func_options ()
+{
+ $debug_cmd
+
+ func_options_prep ${1+"$@"}
+ eval func_parse_options \
+ ${func_options_prep_result+"$func_options_prep_result"}
+ eval func_validate_options \
+ ${func_parse_options_result+"$func_parse_options_result"}
+
+ eval func_run_hooks func_options \
+ ${func_validate_options_result+"$func_validate_options_result"}
+
+ # save modified positional parameters for caller
+ func_options_result=$func_run_hooks_result
+}
+
+
+# func_options_prep [ARG]...
+# --------------------------
+# All initialisations required before starting the option parse loop.
+# Note that when calling hook functions, we pass through the list of
+# positional parameters. If a hook function modifies that list, and
+# needs to propogate that back to rest of this script, then the complete
+# modified list must be put in 'func_run_hooks_result' before
+# returning.
+func_hookable func_options_prep
+func_options_prep ()
+{
+ $debug_cmd
+
+ # Option defaults:
+ opt_verbose=false
+ opt_warning_types=
+
+ func_run_hooks func_options_prep ${1+"$@"}
+
+ # save modified positional parameters for caller
+ func_options_prep_result=$func_run_hooks_result
+}
+
+
+# func_parse_options [ARG]...
+# ---------------------------
+# The main option parsing loop.
+func_hookable func_parse_options
+func_parse_options ()
+{
+ $debug_cmd
+
+ func_parse_options_result=
+
+ # this just eases exit handling
+ while test $# -gt 0; do
+ # Defer to hook functions for initial option parsing, so they
+ # get priority in the event of reusing an option name.
+ func_run_hooks func_parse_options ${1+"$@"}
+
+ # Adjust func_parse_options positional parameters to match
+ eval set dummy "$func_run_hooks_result"; shift
+
+ # Break out of the loop if we already parsed every option.
+ test $# -gt 0 || break
+
+ _G_opt=$1
+ shift
+ case $_G_opt in
+ --debug|-x) debug_cmd='set -x'
+ func_echo "enabling shell trace mode"
+ $debug_cmd
+ ;;
+
+ --no-warnings|--no-warning|--no-warn)
+ set dummy --warnings none ${1+"$@"}
+ shift
+ ;;
+
+ --warnings|--warning|-W)
+ test $# = 0 && func_missing_arg $_G_opt && break
+ case " $warning_categories $1" in
+ *" $1 "*)
+ # trailing space prevents matching last $1 above
+ func_append_uniq opt_warning_types " $1"
+ ;;
+ *all)
+ opt_warning_types=$warning_categories
+ ;;
+ *none)
+ opt_warning_types=none
+ warning_func=:
+ ;;
+ *error)
+ opt_warning_types=$warning_categories
+ warning_func=func_fatal_error
+ ;;
+ *)
+ func_fatal_error \
+ "unsupported warning category: '$1'"
+ ;;
+ esac
+ shift
+ ;;
+
+ --verbose|-v) opt_verbose=: ;;
+ --version) func_version ;;
+ -\?|-h) func_usage ;;
+ --help) func_help ;;
+
+ # Separate optargs to long options (plugins may need this):
+ --*=*) func_split_equals "$_G_opt"
+ set dummy "$func_split_equals_lhs" \
+ "$func_split_equals_rhs" ${1+"$@"}
+ shift
+ ;;
+
+ # Separate optargs to short options:
+ -W*)
+ func_split_short_opt "$_G_opt"
+ set dummy "$func_split_short_opt_name" \
+ "$func_split_short_opt_arg" ${1+"$@"}
+ shift
+ ;;
+
+ # Separate non-argument short options:
+ -\?*|-h*|-v*|-x*)
+ func_split_short_opt "$_G_opt"
+ set dummy "$func_split_short_opt_name" \
+ "-$func_split_short_opt_arg" ${1+"$@"}
+ shift
+ ;;
+
+ --) break ;;
+ -*) func_fatal_help "unrecognised option: '$_G_opt'" ;;
+ *) set dummy "$_G_opt" ${1+"$@"}; shift; break ;;
+ esac
+ done
+
+ # save modified positional parameters for caller
+ func_quote_for_eval ${1+"$@"}
+ func_parse_options_result=$func_quote_for_eval_result
+}
+
+
+# func_validate_options [ARG]...
+# ------------------------------
+# Perform any sanity checks on option settings and/or unconsumed
+# arguments.
+func_hookable func_validate_options
+func_validate_options ()
+{
+ $debug_cmd
+
+ # Display all warnings if -W was not given.
+ test -n "$opt_warning_types" || opt_warning_types=" $warning_categories"
+
+ func_run_hooks func_validate_options ${1+"$@"}
+
+ # Bail if the options were screwed!
+ $exit_cmd $EXIT_FAILURE
+
+ # save modified positional parameters for caller
+ func_validate_options_result=$func_run_hooks_result
+}
+
+
+
+## ----------------- ##
+## Helper functions. ##
+## ----------------- ##
+
+# This section contains the helper functions used by the rest of the
+# hookable option parser framework in ascii-betical order.
+
+
+# func_fatal_help ARG...
+# ----------------------
+# Echo program name prefixed message to standard error, followed by
+# a help hint, and exit.
+func_fatal_help ()
+{
+ $debug_cmd
+
+ eval \$ECHO \""Usage: $usage"\"
+ eval \$ECHO \""$fatal_help"\"
+ func_error ${1+"$@"}
+ exit $EXIT_FAILURE
+}
+
+
+# func_help
+# ---------
+# Echo long help message to standard output and exit.
+func_help ()
+{
+ $debug_cmd
+
+ func_usage_message
+ $ECHO "$long_help_message"
+ exit 0
+}
+
+
+# func_missing_arg ARGNAME
+# ------------------------
+# Echo program name prefixed message to standard error and set global
+# exit_cmd.
+func_missing_arg ()
+{
+ $debug_cmd
+
+ func_error "Missing argument for '$1'."
+ exit_cmd=exit
+}
+
+
+# func_split_equals STRING
+# ------------------------
+# Set func_split_equals_lhs and func_split_equals_rhs shell variables after
+# splitting STRING at the '=' sign.
+test -z "$_G_HAVE_XSI_OPS" \
+ && (eval 'x=a/b/c;
+ test 5aa/bb/cc = "${#x}${x%%/*}${x%/*}${x#*/}${x##*/}"') 2>/dev/null \
+ && _G_HAVE_XSI_OPS=yes
+
+if test yes = "$_G_HAVE_XSI_OPS"
+then
+ # This is an XSI compatible shell, allowing a faster implementation...
+ eval 'func_split_equals ()
+ {
+ $debug_cmd
+
+ func_split_equals_lhs=${1%%=*}
+ func_split_equals_rhs=${1#*=}
+ test "x$func_split_equals_lhs" = "x$1" \
+ && func_split_equals_rhs=
+ }'
+else
+ # ...otherwise fall back to using expr, which is often a shell builtin.
+ func_split_equals ()
+ {
+ $debug_cmd
+
+ func_split_equals_lhs=`expr "x$1" : 'x\([^=]*\)'`
+ func_split_equals_rhs=
+ test "x$func_split_equals_lhs" = "x$1" \
+ || func_split_equals_rhs=`expr "x$1" : 'x[^=]*=\(.*\)$'`
+ }
+fi #func_split_equals
+
+
+# func_split_short_opt SHORTOPT
+# -----------------------------
+# Set func_split_short_opt_name and func_split_short_opt_arg shell
+# variables after splitting SHORTOPT after the 2nd character.
+if test yes = "$_G_HAVE_XSI_OPS"
+then
+ # This is an XSI compatible shell, allowing a faster implementation...
+ eval 'func_split_short_opt ()
+ {
+ $debug_cmd
+
+ func_split_short_opt_arg=${1#??}
+ func_split_short_opt_name=${1%"$func_split_short_opt_arg"}
+ }'
+else
+ # ...otherwise fall back to using expr, which is often a shell builtin.
+ func_split_short_opt ()
+ {
+ $debug_cmd
+
+ func_split_short_opt_name=`expr "x$1" : 'x-\(.\)'`
+ func_split_short_opt_arg=`expr "x$1" : 'x-.\(.*\)$'`
+ }
+fi #func_split_short_opt
+
+
+# func_usage
+# ----------
+# Echo short help message to standard output and exit.
+func_usage ()
+{
+ $debug_cmd
+
+ func_usage_message
+ $ECHO "Run '$progname --help |${PAGER-more}' for full usage"
+ exit 0
+}
+
+
+# func_usage_message
+# ------------------
+# Echo short help message to standard output.
+func_usage_message ()
+{
+ $debug_cmd
+
+ eval \$ECHO \""Usage: $usage"\"
+ echo
+ $SED -n 's|^# ||
+ /^Written by/{
+ x;p;x
+ }
+ h
+ /^Written by/q' < "$progpath"
+ echo
+ eval \$ECHO \""$usage_message"\"
+}
+
+
+# func_version
+# ------------
+# Echo version message to standard output and exit.
+func_version ()
+{
+ $debug_cmd
+
+ printf '%s\n' "$progname $scriptversion"
+ $SED -n '
+ /(C)/!b go
+ :more
+ /\./!{
+ N
+ s|\n# | |
+ b more
+ }
+ :go
+ /^# Written by /,/# warranty; / {
+ s|^# ||
+ s|^# *$||
+ s|\((C)\)[ 0-9,-]*[ ,-]\([1-9][0-9]* \)|\1 \2|
+ p
+ }
+ /^# Written by / {
+ s|^# ||
+ p
+ }
+ /^warranty; /q' < "$progpath"
+
+ exit $?
+}
+
+
+# Local variables:
+# mode: shell-script
+# sh-indentation: 2
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-pattern: "10/scriptversion=%:y-%02m-%02d.%02H; # UTC"
+# time-stamp-time-zone: "UTC"
+# End:
+
+# Set a version string.
+scriptversion='(GNU libtool) 2.4.6'
+
+
+# func_echo ARG...
+# ----------------
+# Libtool also displays the current mode in messages, so override
+# funclib.sh func_echo with this custom definition.
+func_echo ()
+{
+ $debug_cmd
+
+ _G_message=$*
+
+ func_echo_IFS=$IFS
+ IFS=$nl
+ for _G_line in $_G_message; do
+ IFS=$func_echo_IFS
+ $ECHO "$progname${opt_mode+: $opt_mode}: $_G_line"
+ done
+ IFS=$func_echo_IFS
+}
+
+
+# func_warning ARG...
+# -------------------
+# Libtool warnings are not categorized, so override funclib.sh
+# func_warning with this simpler definition.
+func_warning ()
+{
+ $debug_cmd
+
+ $warning_func ${1+"$@"}
+}
+
+
+## ---------------- ##
+## Options parsing. ##
+## ---------------- ##
+
+# Hook in the functions to make sure our own options are parsed during
+# the option parsing loop.
+
+usage='$progpath [OPTION]... [MODE-ARG]...'
+
+# Short help message in response to '-h'.
+usage_message="Options:
+ --config show all configuration variables
+ --debug enable verbose shell tracing
+ -n, --dry-run display commands without modifying any files
+ --features display basic configuration information and exit
+ --mode=MODE use operation mode MODE
+ --no-warnings equivalent to '-Wnone'
+ --preserve-dup-deps don't remove duplicate dependency libraries
+ --quiet, --silent don't print informational messages
+ --tag=TAG use configuration variables from tag TAG
+ -v, --verbose print more informational messages than default
+ --version print version information
+ -W, --warnings=CATEGORY report the warnings falling in CATEGORY [all]
+ -h, --help, --help-all print short, long, or detailed help message
+"
+
+# Additional text appended to 'usage_message' in response to '--help'.
+func_help ()
+{
+ $debug_cmd
+
+ func_usage_message
+ $ECHO "$long_help_message
+
+MODE must be one of the following:
+
+ clean remove files from the build directory
+ compile compile a source file into a libtool object
+ execute automatically set library path, then run a program
+ finish complete the installation of libtool libraries
+ install install libraries or executables
+ link create a library or an executable
+ uninstall remove libraries from an installed directory
+
+MODE-ARGS vary depending on the MODE. When passed as first option,
+'--mode=MODE' may be abbreviated as 'MODE' or a unique abbreviation of that.
+Try '$progname --help --mode=MODE' for a more detailed description of MODE.
+
+When reporting a bug, please describe a test case to reproduce it and
+include the following information:
+
+ host-triplet: $host
+ shell: $SHELL
+ compiler: $LTCC
+ compiler flags: $LTCFLAGS
+ linker: $LD (gnu? $with_gnu_ld)
+ version: $progname (GNU libtool) 2.4.6
+ automake: `($AUTOMAKE --version) 2>/dev/null |$SED 1q`
+ autoconf: `($AUTOCONF --version) 2>/dev/null |$SED 1q`
+
+Report bugs to <bug-libtool@gnu.org>.
+GNU libtool home page: <http://www.gnu.org/software/libtool/>.
+General help using GNU software: <http://www.gnu.org/gethelp/>."
+ exit 0
+}
+
+
+# func_lo2o OBJECT-NAME
+# ---------------------
+# Transform OBJECT-NAME from a '.lo' suffix to the platform specific
+# object suffix.
+
+lo2o=s/\\.lo\$/.$objext/
+o2lo=s/\\.$objext\$/.lo/
+
+if test yes = "$_G_HAVE_XSI_OPS"; then
+ eval 'func_lo2o ()
+ {
+ case $1 in
+ *.lo) func_lo2o_result=${1%.lo}.$objext ;;
+ * ) func_lo2o_result=$1 ;;
+ esac
+ }'
+
+ # func_xform LIBOBJ-OR-SOURCE
+ # ---------------------------
+ # Transform LIBOBJ-OR-SOURCE from a '.o' or '.c' (or otherwise)
+ # suffix to a '.lo' libtool-object suffix.
+ eval 'func_xform ()
+ {
+ func_xform_result=${1%.*}.lo
+ }'
+else
+ # ...otherwise fall back to using sed.
+ func_lo2o ()
+ {
+ func_lo2o_result=`$ECHO "$1" | $SED "$lo2o"`
+ }
+
+ func_xform ()
+ {
+ func_xform_result=`$ECHO "$1" | $SED 's|\.[^.]*$|.lo|'`
+ }
+fi
+
+
+# func_fatal_configuration ARG...
+# -------------------------------
+# Echo program name prefixed message to standard error, followed by
+# a configuration failure hint, and exit.
+func_fatal_configuration ()
+{
+ func__fatal_error ${1+"$@"} \
+ "See the $PACKAGE documentation for more information." \
+ "Fatal configuration error."
+}
+
+
+# func_config
+# -----------
+# Display the configuration for all the tags in this script.
+func_config ()
+{
+ re_begincf='^# ### BEGIN LIBTOOL'
+ re_endcf='^# ### END LIBTOOL'
+
+ # Default configuration.
+ $SED "1,/$re_begincf CONFIG/d;/$re_endcf CONFIG/,\$d" < "$progpath"
+
+ # Now print the configurations for the tags.
+ for tagname in $taglist; do
+ $SED -n "/$re_begincf TAG CONFIG: $tagname\$/,/$re_endcf TAG CONFIG: $tagname\$/p" < "$progpath"
+ done
+
+ exit $?
+}
+
+
+# func_features
+# -------------
+# Display the features supported by this script.
+func_features ()
+{
+ echo "host: $host"
+ if test yes = "$build_libtool_libs"; then
+ echo "enable shared libraries"
+ else
+ echo "disable shared libraries"
+ fi
+ if test yes = "$build_old_libs"; then
+ echo "enable static libraries"
+ else
+ echo "disable static libraries"
+ fi
+
+ exit $?
+}
+
+
+# func_enable_tag TAGNAME
+# -----------------------
+# Verify that TAGNAME is valid, and either flag an error and exit, or
+# enable the TAGNAME tag. We also add TAGNAME to the global $taglist
+# variable here.
+func_enable_tag ()
+{
+ # Global variable:
+ tagname=$1
+
+ re_begincf="^# ### BEGIN LIBTOOL TAG CONFIG: $tagname\$"
+ re_endcf="^# ### END LIBTOOL TAG CONFIG: $tagname\$"
+ sed_extractcf=/$re_begincf/,/$re_endcf/p
+
+ # Validate tagname.
+ case $tagname in
+ *[!-_A-Za-z0-9,/]*)
+ func_fatal_error "invalid tag name: $tagname"
+ ;;
+ esac
+
+ # Don't test for the "default" C tag, as we know it's
+ # there but not specially marked.
+ case $tagname in
+ CC) ;;
+ *)
+ if $GREP "$re_begincf" "$progpath" >/dev/null 2>&1; then
+ taglist="$taglist $tagname"
+
+ # Evaluate the configuration. Be careful to quote the path
+ # and the sed script, to avoid splitting on whitespace, but
+ # also don't use non-portable quotes within backquotes within
+ # quotes we have to do it in 2 steps:
+ extractedcf=`$SED -n -e "$sed_extractcf" < "$progpath"`
+ eval "$extractedcf"
+ else
+ func_error "ignoring unknown tag $tagname"
+ fi
+ ;;
+ esac
+}
+
+
+# func_check_version_match
+# ------------------------
+# Ensure that we are using m4 macros, and libtool script from the same
+# release of libtool.
+func_check_version_match ()
+{
+ if test "$package_revision" != "$macro_revision"; then
+ if test "$VERSION" != "$macro_version"; then
+ if test -z "$macro_version"; then
+ cat >&2 <<_LT_EOF
+$progname: Version mismatch error. This is $PACKAGE $VERSION, but the
+$progname: definition of this LT_INIT comes from an older release.
+$progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION
+$progname: and run autoconf again.
+_LT_EOF
+ else
+ cat >&2 <<_LT_EOF
+$progname: Version mismatch error. This is $PACKAGE $VERSION, but the
+$progname: definition of this LT_INIT comes from $PACKAGE $macro_version.
+$progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION
+$progname: and run autoconf again.
+_LT_EOF
+ fi
+ else
+ cat >&2 <<_LT_EOF
+$progname: Version mismatch error. This is $PACKAGE $VERSION, revision $package_revision,
+$progname: but the definition of this LT_INIT comes from revision $macro_revision.
+$progname: You should recreate aclocal.m4 with macros from revision $package_revision
+$progname: of $PACKAGE $VERSION and run autoconf again.
+_LT_EOF
+ fi
+
+ exit $EXIT_MISMATCH
+ fi
+}
+
+
+# libtool_options_prep [ARG]...
+# -----------------------------
+# Preparation for options parsed by libtool.
+libtool_options_prep ()
+{
+ $debug_mode
+
+ # Option defaults:
+ opt_config=false
+ opt_dlopen=
+ opt_dry_run=false
+ opt_help=false
+ opt_mode=
+ opt_preserve_dup_deps=false
+ opt_quiet=false
+
+ nonopt=
+ preserve_args=
+
+ # Shorthand for --mode=foo, only valid as the first argument
+ case $1 in
+ clean|clea|cle|cl)
+ shift; set dummy --mode clean ${1+"$@"}; shift
+ ;;
+ compile|compil|compi|comp|com|co|c)
+ shift; set dummy --mode compile ${1+"$@"}; shift
+ ;;
+ execute|execut|execu|exec|exe|ex|e)
+ shift; set dummy --mode execute ${1+"$@"}; shift
+ ;;
+ finish|finis|fini|fin|fi|f)
+ shift; set dummy --mode finish ${1+"$@"}; shift
+ ;;
+ install|instal|insta|inst|ins|in|i)
+ shift; set dummy --mode install ${1+"$@"}; shift
+ ;;
+ link|lin|li|l)
+ shift; set dummy --mode link ${1+"$@"}; shift
+ ;;
+ uninstall|uninstal|uninsta|uninst|unins|unin|uni|un|u)
+ shift; set dummy --mode uninstall ${1+"$@"}; shift
+ ;;
+ esac
+
+ # Pass back the list of options.
+ func_quote_for_eval ${1+"$@"}
+ libtool_options_prep_result=$func_quote_for_eval_result
+}
+func_add_hook func_options_prep libtool_options_prep
+
+
+# libtool_parse_options [ARG]...
+# ---------------------------------
+# Provide handling for libtool specific options.
+libtool_parse_options ()
+{
+ $debug_cmd
+
+ # Perform our own loop to consume as many options as possible in
+ # each iteration.
+ while test $# -gt 0; do
+ _G_opt=$1
+ shift
+ case $_G_opt in
+ --dry-run|--dryrun|-n)
+ opt_dry_run=:
+ ;;
+
+ --config) func_config ;;
+
+ --dlopen|-dlopen)
+ opt_dlopen="${opt_dlopen+$opt_dlopen
+}$1"
+ shift
+ ;;
+
+ --preserve-dup-deps)
+ opt_preserve_dup_deps=: ;;
+
+ --features) func_features ;;
+
+ --finish) set dummy --mode finish ${1+"$@"}; shift ;;
+
+ --help) opt_help=: ;;
+
+ --help-all) opt_help=': help-all' ;;
+
+ --mode) test $# = 0 && func_missing_arg $_G_opt && break
+ opt_mode=$1
+ case $1 in
+ # Valid mode arguments:
+ clean|compile|execute|finish|install|link|relink|uninstall) ;;
+
+ # Catch anything else as an error
+ *) func_error "invalid argument for $_G_opt"
+ exit_cmd=exit
+ break
+ ;;
+ esac
+ shift
+ ;;
+
+ --no-silent|--no-quiet)
+ opt_quiet=false
+ func_append preserve_args " $_G_opt"
+ ;;
+
+ --no-warnings|--no-warning|--no-warn)
+ opt_warning=false
+ func_append preserve_args " $_G_opt"
+ ;;
+
+ --no-verbose)
+ opt_verbose=false
+ func_append preserve_args " $_G_opt"
+ ;;
+
+ --silent|--quiet)
+ opt_quiet=:
+ opt_verbose=false
+ func_append preserve_args " $_G_opt"
+ ;;
+
+ --tag) test $# = 0 && func_missing_arg $_G_opt && break
+ opt_tag=$1
+ func_append preserve_args " $_G_opt $1"
+ func_enable_tag "$1"
+ shift
+ ;;
+
+ --verbose|-v) opt_quiet=false
+ opt_verbose=:
+ func_append preserve_args " $_G_opt"
+ ;;
+
+ # An option not handled by this hook function:
+ *) set dummy "$_G_opt" ${1+"$@"}; shift; break ;;
+ esac
+ done
+
+
+ # save modified positional parameters for caller
+ func_quote_for_eval ${1+"$@"}
+ libtool_parse_options_result=$func_quote_for_eval_result
+}
+func_add_hook func_parse_options libtool_parse_options
+
+
+
+# libtool_validate_options [ARG]...
+# ---------------------------------
+# Perform any sanity checks on option settings and/or unconsumed
+# arguments.
+libtool_validate_options ()
+{
+ # save first non-option argument
+ if test 0 -lt $#; then
+ nonopt=$1
+ shift
+ fi
+
+ # preserve --debug
+ test : = "$debug_cmd" || func_append preserve_args " --debug"
+
+ case $host in
+ # Solaris2 added to fix http://debbugs.gnu.org/cgi/bugreport.cgi?bug=16452
+ # see also: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59788
+ *cygwin* | *mingw* | *pw32* | *cegcc* | *solaris2* | *os2*)
+ # don't eliminate duplications in $postdeps and $predeps
+ opt_duplicate_compiler_generated_deps=:
+ ;;
+ *)
+ opt_duplicate_compiler_generated_deps=$opt_preserve_dup_deps
+ ;;
+ esac
+
+ $opt_help || {
+ # Sanity checks first:
+ func_check_version_match
+
+ test yes != "$build_libtool_libs" \
+ && test yes != "$build_old_libs" \
+ && func_fatal_configuration "not configured to build any kind of library"
+
+ # Darwin sucks
+ eval std_shrext=\"$shrext_cmds\"
+
+ # Only execute mode is allowed to have -dlopen flags.
+ if test -n "$opt_dlopen" && test execute != "$opt_mode"; then
+ func_error "unrecognized option '-dlopen'"
+ $ECHO "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # Change the help message to a mode-specific one.
+ generic_help=$help
+ help="Try '$progname --help --mode=$opt_mode' for more information."
+ }
+
+ # Pass back the unparsed argument list
+ func_quote_for_eval ${1+"$@"}
+ libtool_validate_options_result=$func_quote_for_eval_result
+}
+func_add_hook func_validate_options libtool_validate_options
+
+
+# Process options as early as possible so that --help and --version
+# can return quickly.
+func_options ${1+"$@"}
+eval set dummy "$func_options_result"; shift
+
+
+
+## ----------- ##
+## Main. ##
+## ----------- ##
+
+magic='%%%MAGIC variable%%%'
+magic_exe='%%%MAGIC EXE variable%%%'
+
+# Global variables.
+extracted_archives=
+extracted_serial=0
+
+# If this variable is set in any of the actions, the command in it
+# will be execed at the end. This prevents here-documents from being
+# left over by shells.
+exec_cmd=
+
+
+# A function that is used when there is no print builtin or printf.
+func_fallback_echo ()
+{
+ eval 'cat <<_LTECHO_EOF
+$1
+_LTECHO_EOF'
+}
+
+# func_generated_by_libtool
+# True iff stdin has been generated by Libtool. This function is only
+# a basic sanity check; it will hardly flush out determined imposters.
+func_generated_by_libtool_p ()
+{
+ $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1
+}
+
+# func_lalib_p file
+# True iff FILE is a libtool '.la' library or '.lo' object file.
+# This function is only a basic sanity check; it will hardly flush out
+# determined imposters.
+func_lalib_p ()
+{
+ test -f "$1" &&
+ $SED -e 4q "$1" 2>/dev/null | func_generated_by_libtool_p
+}
+
+# func_lalib_unsafe_p file
+# True iff FILE is a libtool '.la' library or '.lo' object file.
+# This function implements the same check as func_lalib_p without
+# resorting to external programs. To this end, it redirects stdin and
+# closes it afterwards, without saving the original file descriptor.
+# As a safety measure, use it only where a negative result would be
+# fatal anyway. Works if 'file' does not exist.
+func_lalib_unsafe_p ()
+{
+ lalib_p=no
+ if test -f "$1" && test -r "$1" && exec 5<&0 <"$1"; then
+ for lalib_p_l in 1 2 3 4
+ do
+ read lalib_p_line
+ case $lalib_p_line in
+ \#\ Generated\ by\ *$PACKAGE* ) lalib_p=yes; break;;
+ esac
+ done
+ exec 0<&5 5<&-
+ fi
+ test yes = "$lalib_p"
+}
+
+# func_ltwrapper_script_p file
+# True iff FILE is a libtool wrapper script
+# This function is only a basic sanity check; it will hardly flush out
+# determined imposters.
+func_ltwrapper_script_p ()
+{
+ test -f "$1" &&
+ $lt_truncate_bin < "$1" 2>/dev/null | func_generated_by_libtool_p
+}
+
+# func_ltwrapper_executable_p file
+# True iff FILE is a libtool wrapper executable
+# This function is only a basic sanity check; it will hardly flush out
+# determined imposters.
+func_ltwrapper_executable_p ()
+{
+ func_ltwrapper_exec_suffix=
+ case $1 in
+ *.exe) ;;
+ *) func_ltwrapper_exec_suffix=.exe ;;
+ esac
+ $GREP "$magic_exe" "$1$func_ltwrapper_exec_suffix" >/dev/null 2>&1
+}
+
+# func_ltwrapper_scriptname file
+# Assumes file is an ltwrapper_executable
+# uses $file to determine the appropriate filename for a
+# temporary ltwrapper_script.
+func_ltwrapper_scriptname ()
+{
+ func_dirname_and_basename "$1" "" "."
+ func_stripname '' '.exe' "$func_basename_result"
+ func_ltwrapper_scriptname_result=$func_dirname_result/$objdir/${func_stripname_result}_ltshwrapper
+}
+
+# func_ltwrapper_p file
+# True iff FILE is a libtool wrapper script or wrapper executable
+# This function is only a basic sanity check; it will hardly flush out
+# determined imposters.
+func_ltwrapper_p ()
+{
+ func_ltwrapper_script_p "$1" || func_ltwrapper_executable_p "$1"
+}
+
+
+# func_execute_cmds commands fail_cmd
+# Execute tilde-delimited COMMANDS.
+# If FAIL_CMD is given, eval that upon failure.
+# FAIL_CMD may read-access the current command in variable CMD!
+func_execute_cmds ()
+{
+ $debug_cmd
+
+ save_ifs=$IFS; IFS='~'
+ for cmd in $1; do
+ IFS=$sp$nl
+ eval cmd=\"$cmd\"
+ IFS=$save_ifs
+ func_show_eval "$cmd" "${2-:}"
+ done
+ IFS=$save_ifs
+}
+
+
+# func_source file
+# Source FILE, adding directory component if necessary.
+# Note that it is not necessary on cygwin/mingw to append a dot to
+# FILE even if both FILE and FILE.exe exist: automatic-append-.exe
+# behavior happens only for exec(3), not for open(2)! Also, sourcing
+# 'FILE.' does not work on cygwin managed mounts.
+func_source ()
+{
+ $debug_cmd
+
+ case $1 in
+ */* | *\\*) . "$1" ;;
+ *) . "./$1" ;;
+ esac
+}
+
+
+# func_resolve_sysroot PATH
+# Replace a leading = in PATH with a sysroot. Store the result into
+# func_resolve_sysroot_result
+func_resolve_sysroot ()
+{
+ func_resolve_sysroot_result=$1
+ case $func_resolve_sysroot_result in
+ =*)
+ func_stripname '=' '' "$func_resolve_sysroot_result"
+ func_resolve_sysroot_result=$lt_sysroot$func_stripname_result
+ ;;
+ esac
+}
+
+# func_replace_sysroot PATH
+# If PATH begins with the sysroot, replace it with = and
+# store the result into func_replace_sysroot_result.
+func_replace_sysroot ()
+{
+ case $lt_sysroot:$1 in
+ ?*:"$lt_sysroot"*)
+ func_stripname "$lt_sysroot" '' "$1"
+ func_replace_sysroot_result='='$func_stripname_result
+ ;;
+ *)
+ # Including no sysroot.
+ func_replace_sysroot_result=$1
+ ;;
+ esac
+}
+
+# func_infer_tag arg
+# Infer tagged configuration to use if any are available and
+# if one wasn't chosen via the "--tag" command line option.
+# Only attempt this if the compiler in the base compile
+# command doesn't match the default compiler.
+# arg is usually of the form 'gcc ...'
+func_infer_tag ()
+{
+ $debug_cmd
+
+ if test -n "$available_tags" && test -z "$tagname"; then
+ CC_quoted=
+ for arg in $CC; do
+ func_append_quoted CC_quoted "$arg"
+ done
+ CC_expanded=`func_echo_all $CC`
+ CC_quoted_expanded=`func_echo_all $CC_quoted`
+ case $@ in
+ # Blanks in the command may have been stripped by the calling shell,
+ # but not from the CC environment variable when configure was run.
+ " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \
+ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) ;;
+ # Blanks at the start of $base_compile will cause this to fail
+ # if we don't check for them as well.
+ *)
+ for z in $available_tags; do
+ if $GREP "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then
+ # Evaluate the configuration.
+ eval "`$SED -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`"
+ CC_quoted=
+ for arg in $CC; do
+ # Double-quote args containing other shell metacharacters.
+ func_append_quoted CC_quoted "$arg"
+ done
+ CC_expanded=`func_echo_all $CC`
+ CC_quoted_expanded=`func_echo_all $CC_quoted`
+ case "$@ " in
+ " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \
+ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*)
+ # The compiler in the base compile command matches
+ # the one in the tagged configuration.
+ # Assume this is the tagged configuration we want.
+ tagname=$z
+ break
+ ;;
+ esac
+ fi
+ done
+ # If $tagname still isn't set, then no tagged configuration
+ # was found and let the user know that the "--tag" command
+ # line option must be used.
+ if test -z "$tagname"; then
+ func_echo "unable to infer tagged configuration"
+ func_fatal_error "specify a tag with '--tag'"
+# else
+# func_verbose "using $tagname tagged configuration"
+ fi
+ ;;
+ esac
+ fi
+}
+
+
+
+# func_write_libtool_object output_name pic_name nonpic_name
+# Create a libtool object file (analogous to a ".la" file),
+# but don't create it if we're doing a dry run.
+func_write_libtool_object ()
+{
+ write_libobj=$1
+ if test yes = "$build_libtool_libs"; then
+ write_lobj=\'$2\'
+ else
+ write_lobj=none
+ fi
+
+ if test yes = "$build_old_libs"; then
+ write_oldobj=\'$3\'
+ else
+ write_oldobj=none
+ fi
+
+ $opt_dry_run || {
+ cat >${write_libobj}T <<EOF
+# $write_libobj - a libtool object file
+# Generated by $PROGRAM (GNU $PACKAGE) $VERSION
+#
+# Please DO NOT delete this file!
+# It is necessary for linking the library.
+
+# Name of the PIC object.
+pic_object=$write_lobj
+
+# Name of the non-PIC object
+non_pic_object=$write_oldobj
+
+EOF
+ $MV "${write_libobj}T" "$write_libobj"
+ }
+}
+
+
+##################################################
+# FILE NAME AND PATH CONVERSION HELPER FUNCTIONS #
+##################################################
+
+# func_convert_core_file_wine_to_w32 ARG
+# Helper function used by file name conversion functions when $build is *nix,
+# and $host is mingw, cygwin, or some other w32 environment. Relies on a
+# correctly configured wine environment available, with the winepath program
+# in $build's $PATH.
+#
+# ARG is the $build file name to be converted to w32 format.
+# Result is available in $func_convert_core_file_wine_to_w32_result, and will
+# be empty on error (or when ARG is empty)
+func_convert_core_file_wine_to_w32 ()
+{
+ $debug_cmd
+
+ func_convert_core_file_wine_to_w32_result=$1
+ if test -n "$1"; then
+ # Unfortunately, winepath does not exit with a non-zero error code, so we
+ # are forced to check the contents of stdout. On the other hand, if the
+ # command is not found, the shell will set an exit code of 127 and print
+ # *an error message* to stdout. So we must check for both error code of
+ # zero AND non-empty stdout, which explains the odd construction:
+ func_convert_core_file_wine_to_w32_tmp=`winepath -w "$1" 2>/dev/null`
+ if test "$?" -eq 0 && test -n "$func_convert_core_file_wine_to_w32_tmp"; then
+ func_convert_core_file_wine_to_w32_result=`$ECHO "$func_convert_core_file_wine_to_w32_tmp" |
+ $SED -e "$sed_naive_backslashify"`
+ else
+ func_convert_core_file_wine_to_w32_result=
+ fi
+ fi
+}
+# end: func_convert_core_file_wine_to_w32
+
+
+# func_convert_core_path_wine_to_w32 ARG
+# Helper function used by path conversion functions when $build is *nix, and
+# $host is mingw, cygwin, or some other w32 environment. Relies on a correctly
+# configured wine environment available, with the winepath program in $build's
+# $PATH. Assumes ARG has no leading or trailing path separator characters.
+#
+# ARG is path to be converted from $build format to win32.
+# Result is available in $func_convert_core_path_wine_to_w32_result.
+# Unconvertible file (directory) names in ARG are skipped; if no directory names
+# are convertible, then the result may be empty.
+func_convert_core_path_wine_to_w32 ()
+{
+ $debug_cmd
+
+ # unfortunately, winepath doesn't convert paths, only file names
+ func_convert_core_path_wine_to_w32_result=
+ if test -n "$1"; then
+ oldIFS=$IFS
+ IFS=:
+ for func_convert_core_path_wine_to_w32_f in $1; do
+ IFS=$oldIFS
+ func_convert_core_file_wine_to_w32 "$func_convert_core_path_wine_to_w32_f"
+ if test -n "$func_convert_core_file_wine_to_w32_result"; then
+ if test -z "$func_convert_core_path_wine_to_w32_result"; then
+ func_convert_core_path_wine_to_w32_result=$func_convert_core_file_wine_to_w32_result
+ else
+ func_append func_convert_core_path_wine_to_w32_result ";$func_convert_core_file_wine_to_w32_result"
+ fi
+ fi
+ done
+ IFS=$oldIFS
+ fi
+}
+# end: func_convert_core_path_wine_to_w32
+
+
+# func_cygpath ARGS...
+# Wrapper around calling the cygpath program via LT_CYGPATH. This is used when
+# when (1) $build is *nix and Cygwin is hosted via a wine environment; or (2)
+# $build is MSYS and $host is Cygwin, or (3) $build is Cygwin. In case (1) or
+# (2), returns the Cygwin file name or path in func_cygpath_result (input
+# file name or path is assumed to be in w32 format, as previously converted
+# from $build's *nix or MSYS format). In case (3), returns the w32 file name
+# or path in func_cygpath_result (input file name or path is assumed to be in
+# Cygwin format). Returns an empty string on error.
+#
+# ARGS are passed to cygpath, with the last one being the file name or path to
+# be converted.
+#
+# Specify the absolute *nix (or w32) name to cygpath in the LT_CYGPATH
+# environment variable; do not put it in $PATH.
+func_cygpath ()
+{
+ $debug_cmd
+
+ if test -n "$LT_CYGPATH" && test -f "$LT_CYGPATH"; then
+ func_cygpath_result=`$LT_CYGPATH "$@" 2>/dev/null`
+ if test "$?" -ne 0; then
+ # on failure, ensure result is empty
+ func_cygpath_result=
+ fi
+ else
+ func_cygpath_result=
+ func_error "LT_CYGPATH is empty or specifies non-existent file: '$LT_CYGPATH'"
+ fi
+}
+#end: func_cygpath
+
+
+# func_convert_core_msys_to_w32 ARG
+# Convert file name or path ARG from MSYS format to w32 format. Return
+# result in func_convert_core_msys_to_w32_result.
+func_convert_core_msys_to_w32 ()
+{
+ $debug_cmd
+
+ # awkward: cmd appends spaces to result
+ func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null |
+ $SED -e 's/[ ]*$//' -e "$sed_naive_backslashify"`
+}
+#end: func_convert_core_msys_to_w32
+
+
+# func_convert_file_check ARG1 ARG2
+# Verify that ARG1 (a file name in $build format) was converted to $host
+# format in ARG2. Otherwise, emit an error message, but continue (resetting
+# func_to_host_file_result to ARG1).
+func_convert_file_check ()
+{
+ $debug_cmd
+
+ if test -z "$2" && test -n "$1"; then
+ func_error "Could not determine host file name corresponding to"
+ func_error " '$1'"
+ func_error "Continuing, but uninstalled executables may not work."
+ # Fallback:
+ func_to_host_file_result=$1
+ fi
+}
+# end func_convert_file_check
+
+
+# func_convert_path_check FROM_PATHSEP TO_PATHSEP FROM_PATH TO_PATH
+# Verify that FROM_PATH (a path in $build format) was converted to $host
+# format in TO_PATH. Otherwise, emit an error message, but continue, resetting
+# func_to_host_file_result to a simplistic fallback value (see below).
+func_convert_path_check ()
+{
+ $debug_cmd
+
+ if test -z "$4" && test -n "$3"; then
+ func_error "Could not determine the host path corresponding to"
+ func_error " '$3'"
+ func_error "Continuing, but uninstalled executables may not work."
+ # Fallback. This is a deliberately simplistic "conversion" and
+ # should not be "improved". See libtool.info.
+ if test "x$1" != "x$2"; then
+ lt_replace_pathsep_chars="s|$1|$2|g"
+ func_to_host_path_result=`echo "$3" |
+ $SED -e "$lt_replace_pathsep_chars"`
+ else
+ func_to_host_path_result=$3
+ fi
+ fi
+}
+# end func_convert_path_check
+
+
+# func_convert_path_front_back_pathsep FRONTPAT BACKPAT REPL ORIG
+# Modifies func_to_host_path_result by prepending REPL if ORIG matches FRONTPAT
+# and appending REPL if ORIG matches BACKPAT.
+func_convert_path_front_back_pathsep ()
+{
+ $debug_cmd
+
+ case $4 in
+ $1 ) func_to_host_path_result=$3$func_to_host_path_result
+ ;;
+ esac
+ case $4 in
+ $2 ) func_append func_to_host_path_result "$3"
+ ;;
+ esac
+}
+# end func_convert_path_front_back_pathsep
+
+
+##################################################
+# $build to $host FILE NAME CONVERSION FUNCTIONS #
+##################################################
+# invoked via '$to_host_file_cmd ARG'
+#
+# In each case, ARG is the path to be converted from $build to $host format.
+# Result will be available in $func_to_host_file_result.
+
+
+# func_to_host_file ARG
+# Converts the file name ARG from $build format to $host format. Return result
+# in func_to_host_file_result.
+func_to_host_file ()
+{
+ $debug_cmd
+
+ $to_host_file_cmd "$1"
+}
+# end func_to_host_file
+
+
+# func_to_tool_file ARG LAZY
+# converts the file name ARG from $build format to toolchain format. Return
+# result in func_to_tool_file_result. If the conversion in use is listed
+# in (the comma separated) LAZY, no conversion takes place.
+func_to_tool_file ()
+{
+ $debug_cmd
+
+ case ,$2, in
+ *,"$to_tool_file_cmd",*)
+ func_to_tool_file_result=$1
+ ;;
+ *)
+ $to_tool_file_cmd "$1"
+ func_to_tool_file_result=$func_to_host_file_result
+ ;;
+ esac
+}
+# end func_to_tool_file
+
+
+# func_convert_file_noop ARG
+# Copy ARG to func_to_host_file_result.
+func_convert_file_noop ()
+{
+ func_to_host_file_result=$1
+}
+# end func_convert_file_noop
+
+
+# func_convert_file_msys_to_w32 ARG
+# Convert file name ARG from (mingw) MSYS to (mingw) w32 format; automatic
+# conversion to w32 is not available inside the cwrapper. Returns result in
+# func_to_host_file_result.
+func_convert_file_msys_to_w32 ()
+{
+ $debug_cmd
+
+ func_to_host_file_result=$1
+ if test -n "$1"; then
+ func_convert_core_msys_to_w32 "$1"
+ func_to_host_file_result=$func_convert_core_msys_to_w32_result
+ fi
+ func_convert_file_check "$1" "$func_to_host_file_result"
+}
+# end func_convert_file_msys_to_w32
+
+
+# func_convert_file_cygwin_to_w32 ARG
+# Convert file name ARG from Cygwin to w32 format. Returns result in
+# func_to_host_file_result.
+func_convert_file_cygwin_to_w32 ()
+{
+ $debug_cmd
+
+ func_to_host_file_result=$1
+ if test -n "$1"; then
+ # because $build is cygwin, we call "the" cygpath in $PATH; no need to use
+ # LT_CYGPATH in this case.
+ func_to_host_file_result=`cygpath -m "$1"`
+ fi
+ func_convert_file_check "$1" "$func_to_host_file_result"
+}
+# end func_convert_file_cygwin_to_w32
+
+
+# func_convert_file_nix_to_w32 ARG
+# Convert file name ARG from *nix to w32 format. Requires a wine environment
+# and a working winepath. Returns result in func_to_host_file_result.
+func_convert_file_nix_to_w32 ()
+{
+ $debug_cmd
+
+ func_to_host_file_result=$1
+ if test -n "$1"; then
+ func_convert_core_file_wine_to_w32 "$1"
+ func_to_host_file_result=$func_convert_core_file_wine_to_w32_result
+ fi
+ func_convert_file_check "$1" "$func_to_host_file_result"
+}
+# end func_convert_file_nix_to_w32
+
+
+# func_convert_file_msys_to_cygwin ARG
+# Convert file name ARG from MSYS to Cygwin format. Requires LT_CYGPATH set.
+# Returns result in func_to_host_file_result.
+func_convert_file_msys_to_cygwin ()
+{
+ $debug_cmd
+
+ func_to_host_file_result=$1
+ if test -n "$1"; then
+ func_convert_core_msys_to_w32 "$1"
+ func_cygpath -u "$func_convert_core_msys_to_w32_result"
+ func_to_host_file_result=$func_cygpath_result
+ fi
+ func_convert_file_check "$1" "$func_to_host_file_result"
+}
+# end func_convert_file_msys_to_cygwin
+
+
+# func_convert_file_nix_to_cygwin ARG
+# Convert file name ARG from *nix to Cygwin format. Requires Cygwin installed
+# in a wine environment, working winepath, and LT_CYGPATH set. Returns result
+# in func_to_host_file_result.
+func_convert_file_nix_to_cygwin ()
+{
+ $debug_cmd
+
+ func_to_host_file_result=$1
+ if test -n "$1"; then
+ # convert from *nix to w32, then use cygpath to convert from w32 to cygwin.
+ func_convert_core_file_wine_to_w32 "$1"
+ func_cygpath -u "$func_convert_core_file_wine_to_w32_result"
+ func_to_host_file_result=$func_cygpath_result
+ fi
+ func_convert_file_check "$1" "$func_to_host_file_result"
+}
+# end func_convert_file_nix_to_cygwin
+
+
+#############################################
+# $build to $host PATH CONVERSION FUNCTIONS #
+#############################################
+# invoked via '$to_host_path_cmd ARG'
+#
+# In each case, ARG is the path to be converted from $build to $host format.
+# The result will be available in $func_to_host_path_result.
+#
+# Path separators are also converted from $build format to $host format. If
+# ARG begins or ends with a path separator character, it is preserved (but
+# converted to $host format) on output.
+#
+# All path conversion functions are named using the following convention:
+# file name conversion function : func_convert_file_X_to_Y ()
+# path conversion function : func_convert_path_X_to_Y ()
+# where, for any given $build/$host combination the 'X_to_Y' value is the
+# same. If conversion functions are added for new $build/$host combinations,
+# the two new functions must follow this pattern, or func_init_to_host_path_cmd
+# will break.
+
+
+# func_init_to_host_path_cmd
+# Ensures that function "pointer" variable $to_host_path_cmd is set to the
+# appropriate value, based on the value of $to_host_file_cmd.
+to_host_path_cmd=
+func_init_to_host_path_cmd ()
+{
+ $debug_cmd
+
+ if test -z "$to_host_path_cmd"; then
+ func_stripname 'func_convert_file_' '' "$to_host_file_cmd"
+ to_host_path_cmd=func_convert_path_$func_stripname_result
+ fi
+}
+
+
+# func_to_host_path ARG
+# Converts the path ARG from $build format to $host format. Return result
+# in func_to_host_path_result.
+func_to_host_path ()
+{
+ $debug_cmd
+
+ func_init_to_host_path_cmd
+ $to_host_path_cmd "$1"
+}
+# end func_to_host_path
+
+
+# func_convert_path_noop ARG
+# Copy ARG to func_to_host_path_result.
+func_convert_path_noop ()
+{
+ func_to_host_path_result=$1
+}
+# end func_convert_path_noop
+
+
+# func_convert_path_msys_to_w32 ARG
+# Convert path ARG from (mingw) MSYS to (mingw) w32 format; automatic
+# conversion to w32 is not available inside the cwrapper. Returns result in
+# func_to_host_path_result.
+func_convert_path_msys_to_w32 ()
+{
+ $debug_cmd
+
+ func_to_host_path_result=$1
+ if test -n "$1"; then
+ # Remove leading and trailing path separator characters from ARG. MSYS
+ # behavior is inconsistent here; cygpath turns them into '.;' and ';.';
+ # and winepath ignores them completely.
+ func_stripname : : "$1"
+ func_to_host_path_tmp1=$func_stripname_result
+ func_convert_core_msys_to_w32 "$func_to_host_path_tmp1"
+ func_to_host_path_result=$func_convert_core_msys_to_w32_result
+ func_convert_path_check : ";" \
+ "$func_to_host_path_tmp1" "$func_to_host_path_result"
+ func_convert_path_front_back_pathsep ":*" "*:" ";" "$1"
+ fi
+}
+# end func_convert_path_msys_to_w32
+
+
+# func_convert_path_cygwin_to_w32 ARG
+# Convert path ARG from Cygwin to w32 format. Returns result in
+# func_to_host_file_result.
+func_convert_path_cygwin_to_w32 ()
+{
+ $debug_cmd
+
+ func_to_host_path_result=$1
+ if test -n "$1"; then
+ # See func_convert_path_msys_to_w32:
+ func_stripname : : "$1"
+ func_to_host_path_tmp1=$func_stripname_result
+ func_to_host_path_result=`cygpath -m -p "$func_to_host_path_tmp1"`
+ func_convert_path_check : ";" \
+ "$func_to_host_path_tmp1" "$func_to_host_path_result"
+ func_convert_path_front_back_pathsep ":*" "*:" ";" "$1"
+ fi
+}
+# end func_convert_path_cygwin_to_w32
+
+
+# func_convert_path_nix_to_w32 ARG
+# Convert path ARG from *nix to w32 format. Requires a wine environment and
+# a working winepath. Returns result in func_to_host_file_result.
+func_convert_path_nix_to_w32 ()
+{
+ $debug_cmd
+
+ func_to_host_path_result=$1
+ if test -n "$1"; then
+ # See func_convert_path_msys_to_w32:
+ func_stripname : : "$1"
+ func_to_host_path_tmp1=$func_stripname_result
+ func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1"
+ func_to_host_path_result=$func_convert_core_path_wine_to_w32_result
+ func_convert_path_check : ";" \
+ "$func_to_host_path_tmp1" "$func_to_host_path_result"
+ func_convert_path_front_back_pathsep ":*" "*:" ";" "$1"
+ fi
+}
+# end func_convert_path_nix_to_w32
+
+
+# func_convert_path_msys_to_cygwin ARG
+# Convert path ARG from MSYS to Cygwin format. Requires LT_CYGPATH set.
+# Returns result in func_to_host_file_result.
+func_convert_path_msys_to_cygwin ()
+{
+ $debug_cmd
+
+ func_to_host_path_result=$1
+ if test -n "$1"; then
+ # See func_convert_path_msys_to_w32:
+ func_stripname : : "$1"
+ func_to_host_path_tmp1=$func_stripname_result
+ func_convert_core_msys_to_w32 "$func_to_host_path_tmp1"
+ func_cygpath -u -p "$func_convert_core_msys_to_w32_result"
+ func_to_host_path_result=$func_cygpath_result
+ func_convert_path_check : : \
+ "$func_to_host_path_tmp1" "$func_to_host_path_result"
+ func_convert_path_front_back_pathsep ":*" "*:" : "$1"
+ fi
+}
+# end func_convert_path_msys_to_cygwin
+
+func_add2xrpath ()
+{
+ dir="$1"
+ # We need an absolute path.
+ case $dir in
+ [\\/]* | [A-Za-z]:[\\/]*) ;;
+ =*)
+ func_stripname '=' '' "$dir"
+ dir=$lt_sysroot$func_stripname_result
+ ;;
+ *)
+ func_fatal_error "only absolute run-paths are allowed"
+ ;;
+ esac
+ case "$xrpath " in
+ *" $dir "*) ;;
+ *) func_append xrpath " $dir" ;;
+ esac
+}
+
+# func_convert_path_nix_to_cygwin ARG
+# Convert path ARG from *nix to Cygwin format. Requires Cygwin installed in a
+# a wine environment, working winepath, and LT_CYGPATH set. Returns result in
+# func_to_host_file_result.
+func_convert_path_nix_to_cygwin ()
+{
+ $debug_cmd
+
+ func_to_host_path_result=$1
+ if test -n "$1"; then
+ # Remove leading and trailing path separator characters from
+ # ARG. msys behavior is inconsistent here, cygpath turns them
+ # into '.;' and ';.', and winepath ignores them completely.
+ func_stripname : : "$1"
+ func_to_host_path_tmp1=$func_stripname_result
+ func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1"
+ func_cygpath -u -p "$func_convert_core_path_wine_to_w32_result"
+ func_to_host_path_result=$func_cygpath_result
+ func_convert_path_check : : \
+ "$func_to_host_path_tmp1" "$func_to_host_path_result"
+ func_convert_path_front_back_pathsep ":*" "*:" : "$1"
+ fi
+}
+# end func_convert_path_nix_to_cygwin
+
+
+# func_dll_def_p FILE
+# True iff FILE is a Windows DLL '.def' file.
+# Keep in sync with _LT_DLL_DEF_P in libtool.m4
+func_dll_def_p ()
+{
+ $debug_cmd
+
+ func_dll_def_p_tmp=`$SED -n \
+ -e 's/^[ ]*//' \
+ -e '/^\(;.*\)*$/d' \
+ -e 's/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p' \
+ -e q \
+ "$1"`
+ test DEF = "$func_dll_def_p_tmp"
+}
+
+
+# func_mode_compile arg...
+func_mode_compile ()
+{
+ $debug_cmd
+
+ # Get the compilation command and the source file.
+ base_compile=
+ srcfile=$nonopt # always keep a non-empty value in "srcfile"
+ suppress_opt=yes
+ suppress_output=
+ arg_mode=normal
+ libobj=
+ later=
+ pie_flag=
+
+ for arg
+ do
+ case $arg_mode in
+ arg )
+ # do not "continue". Instead, add this to base_compile
+ lastarg=$srcfile
+ srcfile=$arg
+ arg_mode=normal
+ ;;
+
+ target )
+ libobj=$arg
+ arg_mode=normal
+ continue
+ ;;
+
+ skip )
+ lastarg=
+ arg_mode=normal
+ continue
+ ;;
+
+ normal )
+ # Accept any command-line options.
+ case $arg in
+ -o)
+ test -n "$libobj" && \
+ func_fatal_error "you cannot specify '-o' more than once"
+ arg_mode=target
+ continue
+ ;;
+
+ -pie | -fpie | -fPIE)
+ func_append pie_flag " $arg"
+ continue
+ ;;
+
+ -shared | -static | -prefer-pic | -prefer-non-pic)
+ func_append later " $arg"
+ continue
+ ;;
+
+ -no-suppress)
+ suppress_opt=no
+ continue
+ ;;
+
+ -Xlinker | -XCClinker)
+ arg_mode=skip # the next one is ignored for compile mode
+ continue
+ ;;
+
+ -Xcompiler)
+ arg_mode=arg # the next one goes into the "base_compile" arg list
+ continue # The current "srcfile" will either be retained or
+ ;; # replaced later. I would guess that would be a bug.
+
+ -Wc,*)
+ func_stripname '-Wc,' '' "$arg"
+ args=$func_stripname_result
+ lastarg=
+ save_ifs=$IFS; IFS=,
+ for arg in $args; do
+ IFS=$save_ifs
+ func_append_quoted lastarg "$arg"
+ done
+ IFS=$save_ifs
+ func_stripname ' ' '' "$lastarg"
+ lastarg=$func_stripname_result
+
+ # Add the arguments to base_compile.
+ func_append base_compile " $lastarg"
+ continue
+ ;;
+
+ *)
+ # Accept the current argument as the source file.
+ # The previous "srcfile" becomes the current argument.
+ #
+ lastarg=$srcfile
+ srcfile=$arg
+ ;;
+ esac # case $arg
+ ;;
+ esac # case $arg_mode
+
+ # Aesthetically quote the previous argument.
+ func_append_quoted base_compile "$lastarg"
+ done # for arg
+
+ case $arg_mode in
+ arg)
+ func_fatal_error "you must specify an argument for -Xcompile"
+ ;;
+ target)
+ func_fatal_error "you must specify a target with '-o'"
+ ;;
+ *)
+ # Get the name of the library object.
+ test -z "$libobj" && {
+ func_basename "$srcfile"
+ libobj=$func_basename_result
+ }
+ ;;
+ esac
+
+ # Recognize several different file suffixes.
+ # If the user specifies -o file.o, it is replaced with file.lo
+ case $libobj in
+ *.[cCFSifmso] | \
+ *.ada | *.adb | *.ads | *.asm | \
+ *.c++ | *.cc | *.ii | *.class | *.cpp | *.cxx | \
+ *.[fF][09]? | *.for | *.java | *.go | *.obj | *.sx | *.cu | *.cup)
+ func_xform "$libobj"
+ libobj=$func_xform_result
+ ;;
+ esac
+
+ case $libobj in
+ *.lo) func_lo2o "$libobj"; obj=$func_lo2o_result ;;
+ *)
+ func_fatal_error "cannot determine name of library object from '$libobj'"
+ ;;
+ esac
+
+ func_infer_tag $base_compile
+
+ for arg in $later; do
+ case $arg in
+ -shared)
+ test yes = "$build_libtool_libs" \
+ || func_fatal_configuration "cannot build a shared library"
+ build_old_libs=no
+ continue
+ ;;
+
+ -static)
+ build_libtool_libs=no
+ build_old_libs=yes
+ continue
+ ;;
+
+ -prefer-pic)
+ pic_mode=yes
+ continue
+ ;;
+
+ -prefer-non-pic)
+ pic_mode=no
+ continue
+ ;;
+ esac
+ done
+
+ func_quote_for_eval "$libobj"
+ test "X$libobj" != "X$func_quote_for_eval_result" \
+ && $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \
+ && func_warning "libobj name '$libobj' may not contain shell special characters."
+ func_dirname_and_basename "$obj" "/" ""
+ objname=$func_basename_result
+ xdir=$func_dirname_result
+ lobj=$xdir$objdir/$objname
+
+ test -z "$base_compile" && \
+ func_fatal_help "you must specify a compilation command"
+
+ # Delete any leftover library objects.
+ if test yes = "$build_old_libs"; then
+ removelist="$obj $lobj $libobj ${libobj}T"
+ else
+ removelist="$lobj $libobj ${libobj}T"
+ fi
+
+ # On Cygwin there's no "real" PIC flag so we must build both object types
+ case $host_os in
+ cygwin* | mingw* | pw32* | os2* | cegcc*)
+ pic_mode=default
+ ;;
+ esac
+ if test no = "$pic_mode" && test pass_all != "$deplibs_check_method"; then
+ # non-PIC code in shared libraries is not supported
+ pic_mode=default
+ fi
+
+ # Calculate the filename of the output object if compiler does
+ # not support -o with -c
+ if test no = "$compiler_c_o"; then
+ output_obj=`$ECHO "$srcfile" | $SED 's%^.*/%%; s%\.[^.]*$%%'`.$objext
+ lockfile=$output_obj.lock
+ else
+ output_obj=
+ need_locks=no
+ lockfile=
+ fi
+
+ # Lock this critical section if it is needed
+ # We use this script file to make the link, it avoids creating a new file
+ if test yes = "$need_locks"; then
+ until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do
+ func_echo "Waiting for $lockfile to be removed"
+ sleep 2
+ done
+ elif test warn = "$need_locks"; then
+ if test -f "$lockfile"; then
+ $ECHO "\
+*** ERROR, $lockfile exists and contains:
+`cat $lockfile 2>/dev/null`
+
+This indicates that another process is trying to use the same
+temporary object file, and libtool could not work around it because
+your compiler does not support '-c' and '-o' together. If you
+repeat this compilation, it may succeed, by chance, but you had better
+avoid parallel builds (make -j) in this platform, or get a better
+compiler."
+
+ $opt_dry_run || $RM $removelist
+ exit $EXIT_FAILURE
+ fi
+ func_append removelist " $output_obj"
+ $ECHO "$srcfile" > "$lockfile"
+ fi
+
+ $opt_dry_run || $RM $removelist
+ func_append removelist " $lockfile"
+ trap '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' 1 2 15
+
+ func_to_tool_file "$srcfile" func_convert_file_msys_to_w32
+ srcfile=$func_to_tool_file_result
+ func_quote_for_eval "$srcfile"
+ qsrcfile=$func_quote_for_eval_result
+
+ # Only build a PIC object if we are building libtool libraries.
+ if test yes = "$build_libtool_libs"; then
+ # Without this assignment, base_compile gets emptied.
+ fbsd_hideous_sh_bug=$base_compile
+
+ if test no != "$pic_mode"; then
+ command="$base_compile $qsrcfile $pic_flag"
+ else
+ # Don't build PIC code
+ command="$base_compile $qsrcfile"
+ fi
+
+ func_mkdir_p "$xdir$objdir"
+
+ if test -z "$output_obj"; then
+ # Place PIC objects in $objdir
+ func_append command " -o $lobj"
+ fi
+
+ func_show_eval_locale "$command" \
+ 'test -n "$output_obj" && $RM $removelist; exit $EXIT_FAILURE'
+
+ if test warn = "$need_locks" &&
+ test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then
+ $ECHO "\
+*** ERROR, $lockfile contains:
+`cat $lockfile 2>/dev/null`
+
+but it should contain:
+$srcfile
+
+This indicates that another process is trying to use the same
+temporary object file, and libtool could not work around it because
+your compiler does not support '-c' and '-o' together. If you
+repeat this compilation, it may succeed, by chance, but you had better
+avoid parallel builds (make -j) in this platform, or get a better
+compiler."
+
+ $opt_dry_run || $RM $removelist
+ exit $EXIT_FAILURE
+ fi
+
+ # Just move the object if needed, then go on to compile the next one
+ if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then
+ func_show_eval '$MV "$output_obj" "$lobj"' \
+ 'error=$?; $opt_dry_run || $RM $removelist; exit $error'
+ fi
+
+ # Allow error messages only from the first compilation.
+ if test yes = "$suppress_opt"; then
+ suppress_output=' >/dev/null 2>&1'
+ fi
+ fi
+
+ # Only build a position-dependent object if we build old libraries.
+ if test yes = "$build_old_libs"; then
+ if test yes != "$pic_mode"; then
+ # Don't build PIC code
+ command="$base_compile $qsrcfile$pie_flag"
+ else
+ command="$base_compile $qsrcfile $pic_flag"
+ fi
+ if test yes = "$compiler_c_o"; then
+ func_append command " -o $obj"
+ fi
+
+ # Suppress compiler output if we already did a PIC compilation.
+ func_append command "$suppress_output"
+ func_show_eval_locale "$command" \
+ '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE'
+
+ if test warn = "$need_locks" &&
+ test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then
+ $ECHO "\
+*** ERROR, $lockfile contains:
+`cat $lockfile 2>/dev/null`
+
+but it should contain:
+$srcfile
+
+This indicates that another process is trying to use the same
+temporary object file, and libtool could not work around it because
+your compiler does not support '-c' and '-o' together. If you
+repeat this compilation, it may succeed, by chance, but you had better
+avoid parallel builds (make -j) in this platform, or get a better
+compiler."
+
+ $opt_dry_run || $RM $removelist
+ exit $EXIT_FAILURE
+ fi
+
+ # Just move the object if needed
+ if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then
+ func_show_eval '$MV "$output_obj" "$obj"' \
+ 'error=$?; $opt_dry_run || $RM $removelist; exit $error'
+ fi
+ fi
+
+ $opt_dry_run || {
+ func_write_libtool_object "$libobj" "$objdir/$objname" "$objname"
+
+ # Unlock the critical section if it was locked
+ if test no != "$need_locks"; then
+ removelist=$lockfile
+ $RM "$lockfile"
+ fi
+ }
+
+ exit $EXIT_SUCCESS
+}
+
+$opt_help || {
+ test compile = "$opt_mode" && func_mode_compile ${1+"$@"}
+}
+
+func_mode_help ()
+{
+ # We need to display help for each of the modes.
+ case $opt_mode in
+ "")
+ # Generic help is extracted from the usage comments
+ # at the start of this file.
+ func_help
+ ;;
+
+ clean)
+ $ECHO \
+"Usage: $progname [OPTION]... --mode=clean RM [RM-OPTION]... FILE...
+
+Remove files from the build directory.
+
+RM is the name of the program to use to delete files associated with each FILE
+(typically '/bin/rm'). RM-OPTIONS are options (such as '-f') to be passed
+to RM.
+
+If FILE is a libtool library, object or program, all the files associated
+with it are deleted. Otherwise, only FILE itself is deleted using RM."
+ ;;
+
+ compile)
+ $ECHO \
+"Usage: $progname [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE
+
+Compile a source file into a libtool library object.
+
+This mode accepts the following additional options:
+
+ -o OUTPUT-FILE set the output file name to OUTPUT-FILE
+ -no-suppress do not suppress compiler output for multiple passes
+ -prefer-pic try to build PIC objects only
+ -prefer-non-pic try to build non-PIC objects only
+ -shared do not build a '.o' file suitable for static linking
+ -static only build a '.o' file suitable for static linking
+ -Wc,FLAG pass FLAG directly to the compiler
+
+COMPILE-COMMAND is a command to be used in creating a 'standard' object file
+from the given SOURCEFILE.
+
+The output file name is determined by removing the directory component from
+SOURCEFILE, then substituting the C source code suffix '.c' with the
+library object suffix, '.lo'."
+ ;;
+
+ execute)
+ $ECHO \
+"Usage: $progname [OPTION]... --mode=execute COMMAND [ARGS]...
+
+Automatically set library path, then run a program.
+
+This mode accepts the following additional options:
+
+ -dlopen FILE add the directory containing FILE to the library path
+
+This mode sets the library path environment variable according to '-dlopen'
+flags.
+
+If any of the ARGS are libtool executable wrappers, then they are translated
+into their corresponding uninstalled binary, and any of their required library
+directories are added to the library path.
+
+Then, COMMAND is executed, with ARGS as arguments."
+ ;;
+
+ finish)
+ $ECHO \
+"Usage: $progname [OPTION]... --mode=finish [LIBDIR]...
+
+Complete the installation of libtool libraries.
+
+Each LIBDIR is a directory that contains libtool libraries.
+
+The commands that this mode executes may require superuser privileges. Use
+the '--dry-run' option if you just want to see what would be executed."
+ ;;
+
+ install)
+ $ECHO \
+"Usage: $progname [OPTION]... --mode=install INSTALL-COMMAND...
+
+Install executables or libraries.
+
+INSTALL-COMMAND is the installation command. The first component should be
+either the 'install' or 'cp' program.
+
+The following components of INSTALL-COMMAND are treated specially:
+
+ -inst-prefix-dir PREFIX-DIR Use PREFIX-DIR as a staging area for installation
+
+The rest of the components are interpreted as arguments to that command (only
+BSD-compatible install options are recognized)."
+ ;;
+
+ link)
+ $ECHO \
+"Usage: $progname [OPTION]... --mode=link LINK-COMMAND...
+
+Link object files or libraries together to form another library, or to
+create an executable program.
+
+LINK-COMMAND is a command using the C compiler that you would use to create
+a program from several object files.
+
+The following components of LINK-COMMAND are treated specially:
+
+ -all-static do not do any dynamic linking at all
+ -avoid-version do not add a version suffix if possible
+ -bindir BINDIR specify path to binaries directory (for systems where
+ libraries must be found in the PATH setting at runtime)
+ -dlopen FILE '-dlpreopen' FILE if it cannot be dlopened at runtime
+ -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols
+ -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3)
+ -export-symbols SYMFILE
+ try to export only the symbols listed in SYMFILE
+ -export-symbols-regex REGEX
+ try to export only the symbols matching REGEX
+ -LLIBDIR search LIBDIR for required installed libraries
+ -lNAME OUTPUT-FILE requires the installed library libNAME
+ -module build a library that can dlopened
+ -no-fast-install disable the fast-install mode
+ -no-install link a not-installable executable
+ -no-undefined declare that a library does not refer to external symbols
+ -o OUTPUT-FILE create OUTPUT-FILE from the specified objects
+ -objectlist FILE use a list of object files found in FILE to specify objects
+ -os2dllname NAME force a short DLL name on OS/2 (no effect on other OSes)
+ -precious-files-regex REGEX
+ don't remove output files matching REGEX
+ -release RELEASE specify package release information
+ -rpath LIBDIR the created library will eventually be installed in LIBDIR
+ -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries
+ -shared only do dynamic linking of libtool libraries
+ -shrext SUFFIX override the standard shared library file extension
+ -static do not do any dynamic linking of uninstalled libtool libraries
+ -static-libtool-libs
+ do not do any dynamic linking of libtool libraries
+ -version-info CURRENT[:REVISION[:AGE]]
+ specify library version info [each variable defaults to 0]
+ -weak LIBNAME declare that the target provides the LIBNAME interface
+ -Wc,FLAG
+ -Xcompiler FLAG pass linker-specific FLAG directly to the compiler
+ -Wl,FLAG
+ -Xlinker FLAG pass linker-specific FLAG directly to the linker
+ -XCClinker FLAG pass link-specific FLAG to the compiler driver (CC)
+
+All other options (arguments beginning with '-') are ignored.
+
+Every other argument is treated as a filename. Files ending in '.la' are
+treated as uninstalled libtool libraries, other files are standard or library
+object files.
+
+If the OUTPUT-FILE ends in '.la', then a libtool library is created,
+only library objects ('.lo' files) may be specified, and '-rpath' is
+required, except when creating a convenience library.
+
+If OUTPUT-FILE ends in '.a' or '.lib', then a standard library is created
+using 'ar' and 'ranlib', or on Windows using 'lib'.
+
+If OUTPUT-FILE ends in '.lo' or '.$objext', then a reloadable object file
+is created, otherwise an executable program is created."
+ ;;
+
+ uninstall)
+ $ECHO \
+"Usage: $progname [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE...
+
+Remove libraries from an installation directory.
+
+RM is the name of the program to use to delete files associated with each FILE
+(typically '/bin/rm'). RM-OPTIONS are options (such as '-f') to be passed
+to RM.
+
+If FILE is a libtool library, all the files associated with it are deleted.
+Otherwise, only FILE itself is deleted using RM."
+ ;;
+
+ *)
+ func_fatal_help "invalid operation mode '$opt_mode'"
+ ;;
+ esac
+
+ echo
+ $ECHO "Try '$progname --help' for more information about other modes."
+}
+
+# Now that we've collected a possible --mode arg, show help if necessary
+if $opt_help; then
+ if test : = "$opt_help"; then
+ func_mode_help
+ else
+ {
+ func_help noexit
+ for opt_mode in compile link execute install finish uninstall clean; do
+ func_mode_help
+ done
+ } | $SED -n '1p; 2,$s/^Usage:/ or: /p'
+ {
+ func_help noexit
+ for opt_mode in compile link execute install finish uninstall clean; do
+ echo
+ func_mode_help
+ done
+ } |
+ $SED '1d
+ /^When reporting/,/^Report/{
+ H
+ d
+ }
+ $x
+ /information about other modes/d
+ /more detailed .*MODE/d
+ s/^Usage:.*--mode=\([^ ]*\) .*/Description of \1 mode:/'
+ fi
+ exit $?
+fi
+
+
+# func_mode_execute arg...
+func_mode_execute ()
+{
+ $debug_cmd
+
+ # The first argument is the command name.
+ cmd=$nonopt
+ test -z "$cmd" && \
+ func_fatal_help "you must specify a COMMAND"
+
+ # Handle -dlopen flags immediately.
+ for file in $opt_dlopen; do
+ test -f "$file" \
+ || func_fatal_help "'$file' is not a file"
+
+ dir=
+ case $file in
+ *.la)
+ func_resolve_sysroot "$file"
+ file=$func_resolve_sysroot_result
+
+ # Check to see that this really is a libtool archive.
+ func_lalib_unsafe_p "$file" \
+ || func_fatal_help "'$lib' is not a valid libtool archive"
+
+ # Read the libtool library.
+ dlname=
+ library_names=
+ func_source "$file"
+
+ # Skip this library if it cannot be dlopened.
+ if test -z "$dlname"; then
+ # Warn if it was a shared library.
+ test -n "$library_names" && \
+ func_warning "'$file' was not linked with '-export-dynamic'"
+ continue
+ fi
+
+ func_dirname "$file" "" "."
+ dir=$func_dirname_result
+
+ if test -f "$dir/$objdir/$dlname"; then
+ func_append dir "/$objdir"
+ else
+ if test ! -f "$dir/$dlname"; then
+ func_fatal_error "cannot find '$dlname' in '$dir' or '$dir/$objdir'"
+ fi
+ fi
+ ;;
+
+ *.lo)
+ # Just add the directory containing the .lo file.
+ func_dirname "$file" "" "."
+ dir=$func_dirname_result
+ ;;
+
+ *)
+ func_warning "'-dlopen' is ignored for non-libtool libraries and objects"
+ continue
+ ;;
+ esac
+
+ # Get the absolute pathname.
+ absdir=`cd "$dir" && pwd`
+ test -n "$absdir" && dir=$absdir
+
+ # Now add the directory to shlibpath_var.
+ if eval "test -z \"\$$shlibpath_var\""; then
+ eval "$shlibpath_var=\"\$dir\""
+ else
+ eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\""
+ fi
+ done
+
+ # This variable tells wrapper scripts just to set shlibpath_var
+ # rather than running their programs.
+ libtool_execute_magic=$magic
+
+ # Check if any of the arguments is a wrapper script.
+ args=
+ for file
+ do
+ case $file in
+ -* | *.la | *.lo ) ;;
+ *)
+ # Do a test to see if this is really a libtool program.
+ if func_ltwrapper_script_p "$file"; then
+ func_source "$file"
+ # Transform arg to wrapped name.
+ file=$progdir/$program
+ elif func_ltwrapper_executable_p "$file"; then
+ func_ltwrapper_scriptname "$file"
+ func_source "$func_ltwrapper_scriptname_result"
+ # Transform arg to wrapped name.
+ file=$progdir/$program
+ fi
+ ;;
+ esac
+ # Quote arguments (to preserve shell metacharacters).
+ func_append_quoted args "$file"
+ done
+
+ if $opt_dry_run; then
+ # Display what would be done.
+ if test -n "$shlibpath_var"; then
+ eval "\$ECHO \"\$shlibpath_var=\$$shlibpath_var\""
+ echo "export $shlibpath_var"
+ fi
+ $ECHO "$cmd$args"
+ exit $EXIT_SUCCESS
+ else
+ if test -n "$shlibpath_var"; then
+ # Export the shlibpath_var.
+ eval "export $shlibpath_var"
+ fi
+
+ # Restore saved environment variables
+ for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES
+ do
+ eval "if test \"\${save_$lt_var+set}\" = set; then
+ $lt_var=\$save_$lt_var; export $lt_var
+ else
+ $lt_unset $lt_var
+ fi"
+ done
+
+ # Now prepare to actually exec the command.
+ exec_cmd=\$cmd$args
+ fi
+}
+
+test execute = "$opt_mode" && func_mode_execute ${1+"$@"}
+
+
+# func_mode_finish arg...
+func_mode_finish ()
+{
+ $debug_cmd
+
+ libs=
+ libdirs=
+ admincmds=
+
+ for opt in "$nonopt" ${1+"$@"}
+ do
+ if test -d "$opt"; then
+ func_append libdirs " $opt"
+
+ elif test -f "$opt"; then
+ if func_lalib_unsafe_p "$opt"; then
+ func_append libs " $opt"
+ else
+ func_warning "'$opt' is not a valid libtool archive"
+ fi
+
+ else
+ func_fatal_error "invalid argument '$opt'"
+ fi
+ done
+
+ if test -n "$libs"; then
+ if test -n "$lt_sysroot"; then
+ sysroot_regex=`$ECHO "$lt_sysroot" | $SED "$sed_make_literal_regex"`
+ sysroot_cmd="s/\([ ']\)$sysroot_regex/\1/g;"
+ else
+ sysroot_cmd=
+ fi
+
+ # Remove sysroot references
+ if $opt_dry_run; then
+ for lib in $libs; do
+ echo "removing references to $lt_sysroot and '=' prefixes from $lib"
+ done
+ else
+ tmpdir=`func_mktempdir`
+ for lib in $libs; do
+ $SED -e "$sysroot_cmd s/\([ ']-[LR]\)=/\1/g; s/\([ ']\)=/\1/g" $lib \
+ > $tmpdir/tmp-la
+ mv -f $tmpdir/tmp-la $lib
+ done
+ ${RM}r "$tmpdir"
+ fi
+ fi
+
+ if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then
+ for libdir in $libdirs; do
+ if test -n "$finish_cmds"; then
+ # Do each command in the finish commands.
+ func_execute_cmds "$finish_cmds" 'admincmds="$admincmds
+'"$cmd"'"'
+ fi
+ if test -n "$finish_eval"; then
+ # Do the single finish_eval.
+ eval cmds=\"$finish_eval\"
+ $opt_dry_run || eval "$cmds" || func_append admincmds "
+ $cmds"
+ fi
+ done
+ fi
+
+ # Exit here if they wanted silent mode.
+ $opt_quiet && exit $EXIT_SUCCESS
+
+ if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then
+ echo "----------------------------------------------------------------------"
+ echo "Libraries have been installed in:"
+ for libdir in $libdirs; do
+ $ECHO " $libdir"
+ done
+ echo
+ echo "If you ever happen to want to link against installed libraries"
+ echo "in a given directory, LIBDIR, you must either use libtool, and"
+ echo "specify the full pathname of the library, or use the '-LLIBDIR'"
+ echo "flag during linking and do at least one of the following:"
+ if test -n "$shlibpath_var"; then
+ echo " - add LIBDIR to the '$shlibpath_var' environment variable"
+ echo " during execution"
+ fi
+ if test -n "$runpath_var"; then
+ echo " - add LIBDIR to the '$runpath_var' environment variable"
+ echo " during linking"
+ fi
+ if test -n "$hardcode_libdir_flag_spec"; then
+ libdir=LIBDIR
+ eval flag=\"$hardcode_libdir_flag_spec\"
+
+ $ECHO " - use the '$flag' linker flag"
+ fi
+ if test -n "$admincmds"; then
+ $ECHO " - have your system administrator run these commands:$admincmds"
+ fi
+ if test -f /etc/ld.so.conf; then
+ echo " - have your system administrator add LIBDIR to '/etc/ld.so.conf'"
+ fi
+ echo
+
+ echo "See any operating system documentation about shared libraries for"
+ case $host in
+ solaris2.[6789]|solaris2.1[0-9])
+ echo "more information, such as the ld(1), crle(1) and ld.so(8) manual"
+ echo "pages."
+ ;;
+ *)
+ echo "more information, such as the ld(1) and ld.so(8) manual pages."
+ ;;
+ esac
+ echo "----------------------------------------------------------------------"
+ fi
+ exit $EXIT_SUCCESS
+}
+
+test finish = "$opt_mode" && func_mode_finish ${1+"$@"}
+
+
+# func_mode_install arg...
+func_mode_install ()
+{
+ $debug_cmd
+
+ # There may be an optional sh(1) argument at the beginning of
+ # install_prog (especially on Windows NT).
+ if test "$SHELL" = "$nonopt" || test /bin/sh = "$nonopt" ||
+ # Allow the use of GNU shtool's install command.
+ case $nonopt in *shtool*) :;; *) false;; esac
+ then
+ # Aesthetically quote it.
+ func_quote_for_eval "$nonopt"
+ install_prog="$func_quote_for_eval_result "
+ arg=$1
+ shift
+ else
+ install_prog=
+ arg=$nonopt
+ fi
+
+ # The real first argument should be the name of the installation program.
+ # Aesthetically quote it.
+ func_quote_for_eval "$arg"
+ func_append install_prog "$func_quote_for_eval_result"
+ install_shared_prog=$install_prog
+ case " $install_prog " in
+ *[\\\ /]cp\ *) install_cp=: ;;
+ *) install_cp=false ;;
+ esac
+
+ # We need to accept at least all the BSD install flags.
+ dest=
+ files=
+ opts=
+ prev=
+ install_type=
+ isdir=false
+ stripme=
+ no_mode=:
+ for arg
+ do
+ arg2=
+ if test -n "$dest"; then
+ func_append files " $dest"
+ dest=$arg
+ continue
+ fi
+
+ case $arg in
+ -d) isdir=: ;;
+ -f)
+ if $install_cp; then :; else
+ prev=$arg
+ fi
+ ;;
+ -g | -m | -o)
+ prev=$arg
+ ;;
+ -s)
+ stripme=" -s"
+ continue
+ ;;
+ -*)
+ ;;
+ *)
+ # If the previous option needed an argument, then skip it.
+ if test -n "$prev"; then
+ if test X-m = "X$prev" && test -n "$install_override_mode"; then
+ arg2=$install_override_mode
+ no_mode=false
+ fi
+ prev=
+ else
+ dest=$arg
+ continue
+ fi
+ ;;
+ esac
+
+ # Aesthetically quote the argument.
+ func_quote_for_eval "$arg"
+ func_append install_prog " $func_quote_for_eval_result"
+ if test -n "$arg2"; then
+ func_quote_for_eval "$arg2"
+ fi
+ func_append install_shared_prog " $func_quote_for_eval_result"
+ done
+
+ test -z "$install_prog" && \
+ func_fatal_help "you must specify an install program"
+
+ test -n "$prev" && \
+ func_fatal_help "the '$prev' option requires an argument"
+
+ if test -n "$install_override_mode" && $no_mode; then
+ if $install_cp; then :; else
+ func_quote_for_eval "$install_override_mode"
+ func_append install_shared_prog " -m $func_quote_for_eval_result"
+ fi
+ fi
+
+ if test -z "$files"; then
+ if test -z "$dest"; then
+ func_fatal_help "no file or destination specified"
+ else
+ func_fatal_help "you must specify a destination"
+ fi
+ fi
+
+ # Strip any trailing slash from the destination.
+ func_stripname '' '/' "$dest"
+ dest=$func_stripname_result
+
+ # Check to see that the destination is a directory.
+ test -d "$dest" && isdir=:
+ if $isdir; then
+ destdir=$dest
+ destname=
+ else
+ func_dirname_and_basename "$dest" "" "."
+ destdir=$func_dirname_result
+ destname=$func_basename_result
+
+ # Not a directory, so check to see that there is only one file specified.
+ set dummy $files; shift
+ test "$#" -gt 1 && \
+ func_fatal_help "'$dest' is not a directory"
+ fi
+ case $destdir in
+ [\\/]* | [A-Za-z]:[\\/]*) ;;
+ *)
+ for file in $files; do
+ case $file in
+ *.lo) ;;
+ *)
+ func_fatal_help "'$destdir' must be an absolute directory name"
+ ;;
+ esac
+ done
+ ;;
+ esac
+
+ # This variable tells wrapper scripts just to set variables rather
+ # than running their programs.
+ libtool_install_magic=$magic
+
+ staticlibs=
+ future_libdirs=
+ current_libdirs=
+ for file in $files; do
+
+ # Do each installation.
+ case $file in
+ *.$libext)
+ # Do the static libraries later.
+ func_append staticlibs " $file"
+ ;;
+
+ *.la)
+ func_resolve_sysroot "$file"
+ file=$func_resolve_sysroot_result
+
+ # Check to see that this really is a libtool archive.
+ func_lalib_unsafe_p "$file" \
+ || func_fatal_help "'$file' is not a valid libtool archive"
+
+ library_names=
+ old_library=
+ relink_command=
+ func_source "$file"
+
+ # Add the libdir to current_libdirs if it is the destination.
+ if test "X$destdir" = "X$libdir"; then
+ case "$current_libdirs " in
+ *" $libdir "*) ;;
+ *) func_append current_libdirs " $libdir" ;;
+ esac
+ else
+ # Note the libdir as a future libdir.
+ case "$future_libdirs " in
+ *" $libdir "*) ;;
+ *) func_append future_libdirs " $libdir" ;;
+ esac
+ fi
+
+ func_dirname "$file" "/" ""
+ dir=$func_dirname_result
+ func_append dir "$objdir"
+
+ if test -n "$relink_command"; then
+ # Determine the prefix the user has applied to our future dir.
+ inst_prefix_dir=`$ECHO "$destdir" | $SED -e "s%$libdir\$%%"`
+
+ # Don't allow the user to place us outside of our expected
+ # location b/c this prevents finding dependent libraries that
+ # are installed to the same prefix.
+ # At present, this check doesn't affect windows .dll's that
+ # are installed into $libdir/../bin (currently, that works fine)
+ # but it's something to keep an eye on.
+ test "$inst_prefix_dir" = "$destdir" && \
+ func_fatal_error "error: cannot install '$file' to a directory not ending in $libdir"
+
+ if test -n "$inst_prefix_dir"; then
+ # Stick the inst_prefix_dir data into the link command.
+ relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"`
+ else
+ relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%%"`
+ fi
+
+ func_warning "relinking '$file'"
+ func_show_eval "$relink_command" \
+ 'func_fatal_error "error: relink '\''$file'\'' with the above command before installing it"'
+ fi
+
+ # See the names of the shared library.
+ set dummy $library_names; shift
+ if test -n "$1"; then
+ realname=$1
+ shift
+
+ srcname=$realname
+ test -n "$relink_command" && srcname=${realname}T
+
+ # Install the shared library and build the symlinks.
+ func_show_eval "$install_shared_prog $dir/$srcname $destdir/$realname" \
+ 'exit $?'
+ tstripme=$stripme
+ case $host_os in
+ cygwin* | mingw* | pw32* | cegcc*)
+ case $realname in
+ *.dll.a)
+ tstripme=
+ ;;
+ esac
+ ;;
+ os2*)
+ case $realname in
+ *_dll.a)
+ tstripme=
+ ;;
+ esac
+ ;;
+ esac
+ if test -n "$tstripme" && test -n "$striplib"; then
+ func_show_eval "$striplib $destdir/$realname" 'exit $?'
+ fi
+
+ if test "$#" -gt 0; then
+ # Delete the old symlinks, and create new ones.
+ # Try 'ln -sf' first, because the 'ln' binary might depend on
+ # the symlink we replace! Solaris /bin/ln does not understand -f,
+ # so we also need to try rm && ln -s.
+ for linkname
+ do
+ test "$linkname" != "$realname" \
+ && func_show_eval "(cd $destdir && { $LN_S -f $realname $linkname || { $RM $linkname && $LN_S $realname $linkname; }; })"
+ done
+ fi
+
+ # Do each command in the postinstall commands.
+ lib=$destdir/$realname
+ func_execute_cmds "$postinstall_cmds" 'exit $?'
+ fi
+
+ # Install the pseudo-library for information purposes.
+ func_basename "$file"
+ name=$func_basename_result
+ instname=$dir/${name}i
+ func_show_eval "$install_prog $instname $destdir/$name" 'exit $?'
+
+ # Maybe install the static library, too.
+ test -n "$old_library" && func_append staticlibs " $dir/$old_library"
+ ;;
+
+ *.lo)
+ # Install (i.e. copy) a libtool object.
+
+ # Figure out destination file name, if it wasn't already specified.
+ if test -n "$destname"; then
+ destfile=$destdir/$destname
+ else
+ func_basename "$file"
+ destfile=$func_basename_result
+ destfile=$destdir/$destfile
+ fi
+
+ # Deduce the name of the destination old-style object file.
+ case $destfile in
+ *.lo)
+ func_lo2o "$destfile"
+ staticdest=$func_lo2o_result
+ ;;
+ *.$objext)
+ staticdest=$destfile
+ destfile=
+ ;;
+ *)
+ func_fatal_help "cannot copy a libtool object to '$destfile'"
+ ;;
+ esac
+
+ # Install the libtool object if requested.
+ test -n "$destfile" && \
+ func_show_eval "$install_prog $file $destfile" 'exit $?'
+
+ # Install the old object if enabled.
+ if test yes = "$build_old_libs"; then
+ # Deduce the name of the old-style object file.
+ func_lo2o "$file"
+ staticobj=$func_lo2o_result
+ func_show_eval "$install_prog \$staticobj \$staticdest" 'exit $?'
+ fi
+ exit $EXIT_SUCCESS
+ ;;
+
+ *)
+ # Figure out destination file name, if it wasn't already specified.
+ if test -n "$destname"; then
+ destfile=$destdir/$destname
+ else
+ func_basename "$file"
+ destfile=$func_basename_result
+ destfile=$destdir/$destfile
+ fi
+
+ # If the file is missing, and there is a .exe on the end, strip it
+ # because it is most likely a libtool script we actually want to
+ # install
+ stripped_ext=
+ case $file in
+ *.exe)
+ if test ! -f "$file"; then
+ func_stripname '' '.exe' "$file"
+ file=$func_stripname_result
+ stripped_ext=.exe
+ fi
+ ;;
+ esac
+
+ # Do a test to see if this is really a libtool program.
+ case $host in
+ *cygwin* | *mingw*)
+ if func_ltwrapper_executable_p "$file"; then
+ func_ltwrapper_scriptname "$file"
+ wrapper=$func_ltwrapper_scriptname_result
+ else
+ func_stripname '' '.exe' "$file"
+ wrapper=$func_stripname_result
+ fi
+ ;;
+ *)
+ wrapper=$file
+ ;;
+ esac
+ if func_ltwrapper_script_p "$wrapper"; then
+ notinst_deplibs=
+ relink_command=
+
+ func_source "$wrapper"
+
+ # Check the variables that should have been set.
+ test -z "$generated_by_libtool_version" && \
+ func_fatal_error "invalid libtool wrapper script '$wrapper'"
+
+ finalize=:
+ for lib in $notinst_deplibs; do
+ # Check to see that each library is installed.
+ libdir=
+ if test -f "$lib"; then
+ func_source "$lib"
+ fi
+ libfile=$libdir/`$ECHO "$lib" | $SED 's%^.*/%%g'`
+ if test -n "$libdir" && test ! -f "$libfile"; then
+ func_warning "'$lib' has not been installed in '$libdir'"
+ finalize=false
+ fi
+ done
+
+ relink_command=
+ func_source "$wrapper"
+
+ outputname=
+ if test no = "$fast_install" && test -n "$relink_command"; then
+ $opt_dry_run || {
+ if $finalize; then
+ tmpdir=`func_mktempdir`
+ func_basename "$file$stripped_ext"
+ file=$func_basename_result
+ outputname=$tmpdir/$file
+ # Replace the output file specification.
+ relink_command=`$ECHO "$relink_command" | $SED 's%@OUTPUT@%'"$outputname"'%g'`
+
+ $opt_quiet || {
+ func_quote_for_expand "$relink_command"
+ eval "func_echo $func_quote_for_expand_result"
+ }
+ if eval "$relink_command"; then :
+ else
+ func_error "error: relink '$file' with the above command before installing it"
+ $opt_dry_run || ${RM}r "$tmpdir"
+ continue
+ fi
+ file=$outputname
+ else
+ func_warning "cannot relink '$file'"
+ fi
+ }
+ else
+ # Install the binary that we compiled earlier.
+ file=`$ECHO "$file$stripped_ext" | $SED "s%\([^/]*\)$%$objdir/\1%"`
+ fi
+ fi
+
+ # remove .exe since cygwin /usr/bin/install will append another
+ # one anyway
+ case $install_prog,$host in
+ */usr/bin/install*,*cygwin*)
+ case $file:$destfile in
+ *.exe:*.exe)
+ # this is ok
+ ;;
+ *.exe:*)
+ destfile=$destfile.exe
+ ;;
+ *:*.exe)
+ func_stripname '' '.exe' "$destfile"
+ destfile=$func_stripname_result
+ ;;
+ esac
+ ;;
+ esac
+ func_show_eval "$install_prog\$stripme \$file \$destfile" 'exit $?'
+ $opt_dry_run || if test -n "$outputname"; then
+ ${RM}r "$tmpdir"
+ fi
+ ;;
+ esac
+ done
+
+ for file in $staticlibs; do
+ func_basename "$file"
+ name=$func_basename_result
+
+ # Set up the ranlib parameters.
+ oldlib=$destdir/$name
+ func_to_tool_file "$oldlib" func_convert_file_msys_to_w32
+ tool_oldlib=$func_to_tool_file_result
+
+ func_show_eval "$install_prog \$file \$oldlib" 'exit $?'
+
+ if test -n "$stripme" && test -n "$old_striplib"; then
+ func_show_eval "$old_striplib $tool_oldlib" 'exit $?'
+ fi
+
+ # Do each command in the postinstall commands.
+ func_execute_cmds "$old_postinstall_cmds" 'exit $?'
+ done
+
+ test -n "$future_libdirs" && \
+ func_warning "remember to run '$progname --finish$future_libdirs'"
+
+ if test -n "$current_libdirs"; then
+ # Maybe just do a dry run.
+ $opt_dry_run && current_libdirs=" -n$current_libdirs"
+ exec_cmd='$SHELL "$progpath" $preserve_args --finish$current_libdirs'
+ else
+ exit $EXIT_SUCCESS
+ fi
+}
+
+test install = "$opt_mode" && func_mode_install ${1+"$@"}
+
+
+# func_generate_dlsyms outputname originator pic_p
+# Extract symbols from dlprefiles and create ${outputname}S.o with
+# a dlpreopen symbol table.
+func_generate_dlsyms ()
+{
+ $debug_cmd
+
+ my_outputname=$1
+ my_originator=$2
+ my_pic_p=${3-false}
+ my_prefix=`$ECHO "$my_originator" | $SED 's%[^a-zA-Z0-9]%_%g'`
+ my_dlsyms=
+
+ if test -n "$dlfiles$dlprefiles" || test no != "$dlself"; then
+ if test -n "$NM" && test -n "$global_symbol_pipe"; then
+ my_dlsyms=${my_outputname}S.c
+ else
+ func_error "not configured to extract global symbols from dlpreopened files"
+ fi
+ fi
+
+ if test -n "$my_dlsyms"; then
+ case $my_dlsyms in
+ "") ;;
+ *.c)
+ # Discover the nlist of each of the dlfiles.
+ nlist=$output_objdir/$my_outputname.nm
+
+ func_show_eval "$RM $nlist ${nlist}S ${nlist}T"
+
+ # Parse the name list into a source file.
+ func_verbose "creating $output_objdir/$my_dlsyms"
+
+ $opt_dry_run || $ECHO > "$output_objdir/$my_dlsyms" "\
+/* $my_dlsyms - symbol resolution table for '$my_outputname' dlsym emulation. */
+/* Generated by $PROGRAM (GNU $PACKAGE) $VERSION */
+
+#ifdef __cplusplus
+extern \"C\" {
+#endif
+
+#if defined __GNUC__ && (((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) || (__GNUC__ > 4))
+#pragma GCC diagnostic ignored \"-Wstrict-prototypes\"
+#endif
+
+/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */
+#if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE
+/* DATA imports from DLLs on WIN32 can't be const, because runtime
+ relocations are performed -- see ld's documentation on pseudo-relocs. */
+# define LT_DLSYM_CONST
+#elif defined __osf__
+/* This system does not cope well with relocations in const data. */
+# define LT_DLSYM_CONST
+#else
+# define LT_DLSYM_CONST const
+#endif
+
+#define STREQ(s1, s2) (strcmp ((s1), (s2)) == 0)
+
+/* External symbol declarations for the compiler. */\
+"
+
+ if test yes = "$dlself"; then
+ func_verbose "generating symbol list for '$output'"
+
+ $opt_dry_run || echo ': @PROGRAM@ ' > "$nlist"
+
+ # Add our own program objects to the symbol list.
+ progfiles=`$ECHO "$objs$old_deplibs" | $SP2NL | $SED "$lo2o" | $NL2SP`
+ for progfile in $progfiles; do
+ func_to_tool_file "$progfile" func_convert_file_msys_to_w32
+ func_verbose "extracting global C symbols from '$func_to_tool_file_result'"
+ $opt_dry_run || eval "$NM $func_to_tool_file_result | $global_symbol_pipe >> '$nlist'"
+ done
+
+ if test -n "$exclude_expsyms"; then
+ $opt_dry_run || {
+ eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T'
+ eval '$MV "$nlist"T "$nlist"'
+ }
+ fi
+
+ if test -n "$export_symbols_regex"; then
+ $opt_dry_run || {
+ eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T'
+ eval '$MV "$nlist"T "$nlist"'
+ }
+ fi
+
+ # Prepare the list of exported symbols
+ if test -z "$export_symbols"; then
+ export_symbols=$output_objdir/$outputname.exp
+ $opt_dry_run || {
+ $RM $export_symbols
+ eval "$SED -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"'
+ case $host in
+ *cygwin* | *mingw* | *cegcc* )
+ eval "echo EXPORTS "'> "$output_objdir/$outputname.def"'
+ eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"'
+ ;;
+ esac
+ }
+ else
+ $opt_dry_run || {
+ eval "$SED -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"'
+ eval '$GREP -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T'
+ eval '$MV "$nlist"T "$nlist"'
+ case $host in
+ *cygwin* | *mingw* | *cegcc* )
+ eval "echo EXPORTS "'> "$output_objdir/$outputname.def"'
+ eval 'cat "$nlist" >> "$output_objdir/$outputname.def"'
+ ;;
+ esac
+ }
+ fi
+ fi
+
+ for dlprefile in $dlprefiles; do
+ func_verbose "extracting global C symbols from '$dlprefile'"
+ func_basename "$dlprefile"
+ name=$func_basename_result
+ case $host in
+ *cygwin* | *mingw* | *cegcc* )
+ # if an import library, we need to obtain dlname
+ if func_win32_import_lib_p "$dlprefile"; then
+ func_tr_sh "$dlprefile"
+ eval "curr_lafile=\$libfile_$func_tr_sh_result"
+ dlprefile_dlbasename=
+ if test -n "$curr_lafile" && func_lalib_p "$curr_lafile"; then
+ # Use subshell, to avoid clobbering current variable values
+ dlprefile_dlname=`source "$curr_lafile" && echo "$dlname"`
+ if test -n "$dlprefile_dlname"; then
+ func_basename "$dlprefile_dlname"
+ dlprefile_dlbasename=$func_basename_result
+ else
+ # no lafile. user explicitly requested -dlpreopen <import library>.
+ $sharedlib_from_linklib_cmd "$dlprefile"
+ dlprefile_dlbasename=$sharedlib_from_linklib_result
+ fi
+ fi
+ $opt_dry_run || {
+ if test -n "$dlprefile_dlbasename"; then
+ eval '$ECHO ": $dlprefile_dlbasename" >> "$nlist"'
+ else
+ func_warning "Could not compute DLL name from $name"
+ eval '$ECHO ": $name " >> "$nlist"'
+ fi
+ func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32
+ eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe |
+ $SED -e '/I __imp/d' -e 's/I __nm_/D /;s/_nm__//' >> '$nlist'"
+ }
+ else # not an import lib
+ $opt_dry_run || {
+ eval '$ECHO ": $name " >> "$nlist"'
+ func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32
+ eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'"
+ }
+ fi
+ ;;
+ *)
+ $opt_dry_run || {
+ eval '$ECHO ": $name " >> "$nlist"'
+ func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32
+ eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'"
+ }
+ ;;
+ esac
+ done
+
+ $opt_dry_run || {
+ # Make sure we have at least an empty file.
+ test -f "$nlist" || : > "$nlist"
+
+ if test -n "$exclude_expsyms"; then
+ $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T
+ $MV "$nlist"T "$nlist"
+ fi
+
+ # Try sorting and uniquifying the output.
+ if $GREP -v "^: " < "$nlist" |
+ if sort -k 3 </dev/null >/dev/null 2>&1; then
+ sort -k 3
+ else
+ sort +2
+ fi |
+ uniq > "$nlist"S; then
+ :
+ else
+ $GREP -v "^: " < "$nlist" > "$nlist"S
+ fi
+
+ if test -f "$nlist"S; then
+ eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$my_dlsyms"'
+ else
+ echo '/* NONE */' >> "$output_objdir/$my_dlsyms"
+ fi
+
+ func_show_eval '$RM "${nlist}I"'
+ if test -n "$global_symbol_to_import"; then
+ eval "$global_symbol_to_import"' < "$nlist"S > "$nlist"I'
+ fi
+
+ echo >> "$output_objdir/$my_dlsyms" "\
+
+/* The mapping between symbol names and symbols. */
+typedef struct {
+ const char *name;
+ void *address;
+} lt_dlsymlist;
+extern LT_DLSYM_CONST lt_dlsymlist
+lt_${my_prefix}_LTX_preloaded_symbols[];\
+"
+
+ if test -s "$nlist"I; then
+ echo >> "$output_objdir/$my_dlsyms" "\
+static void lt_syminit(void)
+{
+ LT_DLSYM_CONST lt_dlsymlist *symbol = lt_${my_prefix}_LTX_preloaded_symbols;
+ for (; symbol->name; ++symbol)
+ {"
+ $SED 's/.*/ if (STREQ (symbol->name, \"&\")) symbol->address = (void *) \&&;/' < "$nlist"I >> "$output_objdir/$my_dlsyms"
+ echo >> "$output_objdir/$my_dlsyms" "\
+ }
+}"
+ fi
+ echo >> "$output_objdir/$my_dlsyms" "\
+LT_DLSYM_CONST lt_dlsymlist
+lt_${my_prefix}_LTX_preloaded_symbols[] =
+{ {\"$my_originator\", (void *) 0},"
+
+ if test -s "$nlist"I; then
+ echo >> "$output_objdir/$my_dlsyms" "\
+ {\"@INIT@\", (void *) <_syminit},"
+ fi
+
+ case $need_lib_prefix in
+ no)
+ eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$my_dlsyms"
+ ;;
+ *)
+ eval "$global_symbol_to_c_name_address_lib_prefix" < "$nlist" >> "$output_objdir/$my_dlsyms"
+ ;;
+ esac
+ echo >> "$output_objdir/$my_dlsyms" "\
+ {0, (void *) 0}
+};
+
+/* This works around a problem in FreeBSD linker */
+#ifdef FREEBSD_WORKAROUND
+static const void *lt_preloaded_setup() {
+ return lt_${my_prefix}_LTX_preloaded_symbols;
+}
+#endif
+
+#ifdef __cplusplus
+}
+#endif\
+"
+ } # !$opt_dry_run
+
+ pic_flag_for_symtable=
+ case "$compile_command " in
+ *" -static "*) ;;
+ *)
+ case $host in
+ # compiling the symbol table file with pic_flag works around
+ # a FreeBSD bug that causes programs to crash when -lm is
+ # linked before any other PIC object. But we must not use
+ # pic_flag when linking with -static. The problem exists in
+ # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1.
+ *-*-freebsd2.*|*-*-freebsd3.0*|*-*-freebsdelf3.0*)
+ pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND" ;;
+ *-*-hpux*)
+ pic_flag_for_symtable=" $pic_flag" ;;
+ *)
+ $my_pic_p && pic_flag_for_symtable=" $pic_flag"
+ ;;
+ esac
+ ;;
+ esac
+ symtab_cflags=
+ for arg in $LTCFLAGS; do
+ case $arg in
+ -pie | -fpie | -fPIE) ;;
+ *) func_append symtab_cflags " $arg" ;;
+ esac
+ done
+
+ # Now compile the dynamic symbol file.
+ func_show_eval '(cd $output_objdir && $LTCC$symtab_cflags -c$no_builtin_flag$pic_flag_for_symtable "$my_dlsyms")' 'exit $?'
+
+ # Clean up the generated files.
+ func_show_eval '$RM "$output_objdir/$my_dlsyms" "$nlist" "${nlist}S" "${nlist}T" "${nlist}I"'
+
+ # Transform the symbol file into the correct name.
+ symfileobj=$output_objdir/${my_outputname}S.$objext
+ case $host in
+ *cygwin* | *mingw* | *cegcc* )
+ if test -f "$output_objdir/$my_outputname.def"; then
+ compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"`
+ finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"`
+ else
+ compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"`
+ finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"`
+ fi
+ ;;
+ *)
+ compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"`
+ finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"`
+ ;;
+ esac
+ ;;
+ *)
+ func_fatal_error "unknown suffix for '$my_dlsyms'"
+ ;;
+ esac
+ else
+ # We keep going just in case the user didn't refer to
+ # lt_preloaded_symbols. The linker will fail if global_symbol_pipe
+ # really was required.
+
+ # Nullify the symbol file.
+ compile_command=`$ECHO "$compile_command" | $SED "s% @SYMFILE@%%"`
+ finalize_command=`$ECHO "$finalize_command" | $SED "s% @SYMFILE@%%"`
+ fi
+}
+
+# func_cygming_gnu_implib_p ARG
+# This predicate returns with zero status (TRUE) if
+# ARG is a GNU/binutils-style import library. Returns
+# with nonzero status (FALSE) otherwise.
+func_cygming_gnu_implib_p ()
+{
+ $debug_cmd
+
+ func_to_tool_file "$1" func_convert_file_msys_to_w32
+ func_cygming_gnu_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $EGREP ' (_head_[A-Za-z0-9_]+_[ad]l*|[A-Za-z0-9_]+_[ad]l*_iname)$'`
+ test -n "$func_cygming_gnu_implib_tmp"
+}
+
+# func_cygming_ms_implib_p ARG
+# This predicate returns with zero status (TRUE) if
+# ARG is an MS-style import library. Returns
+# with nonzero status (FALSE) otherwise.
+func_cygming_ms_implib_p ()
+{
+ $debug_cmd
+
+ func_to_tool_file "$1" func_convert_file_msys_to_w32
+ func_cygming_ms_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $GREP '_NULL_IMPORT_DESCRIPTOR'`
+ test -n "$func_cygming_ms_implib_tmp"
+}
+
+# func_win32_libid arg
+# return the library type of file 'arg'
+#
+# Need a lot of goo to handle *both* DLLs and import libs
+# Has to be a shell function in order to 'eat' the argument
+# that is supplied when $file_magic_command is called.
+# Despite the name, also deal with 64 bit binaries.
+func_win32_libid ()
+{
+ $debug_cmd
+
+ win32_libid_type=unknown
+ win32_fileres=`file -L $1 2>/dev/null`
+ case $win32_fileres in
+ *ar\ archive\ import\ library*) # definitely import
+ win32_libid_type="x86 archive import"
+ ;;
+ *ar\ archive*) # could be an import, or static
+ # Keep the egrep pattern in sync with the one in _LT_CHECK_MAGIC_METHOD.
+ if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null |
+ $EGREP 'file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' >/dev/null; then
+ case $nm_interface in
+ "MS dumpbin")
+ if func_cygming_ms_implib_p "$1" ||
+ func_cygming_gnu_implib_p "$1"
+ then
+ win32_nmres=import
+ else
+ win32_nmres=
+ fi
+ ;;
+ *)
+ func_to_tool_file "$1" func_convert_file_msys_to_w32
+ win32_nmres=`eval $NM -f posix -A \"$func_to_tool_file_result\" |
+ $SED -n -e '
+ 1,100{
+ / I /{
+ s|.*|import|
+ p
+ q
+ }
+ }'`
+ ;;
+ esac
+ case $win32_nmres in
+ import*) win32_libid_type="x86 archive import";;
+ *) win32_libid_type="x86 archive static";;
+ esac
+ fi
+ ;;
+ *DLL*)
+ win32_libid_type="x86 DLL"
+ ;;
+ *executable*) # but shell scripts are "executable" too...
+ case $win32_fileres in
+ *MS\ Windows\ PE\ Intel*)
+ win32_libid_type="x86 DLL"
+ ;;
+ esac
+ ;;
+ esac
+ $ECHO "$win32_libid_type"
+}
+
+# func_cygming_dll_for_implib ARG
+#
+# Platform-specific function to extract the
+# name of the DLL associated with the specified
+# import library ARG.
+# Invoked by eval'ing the libtool variable
+# $sharedlib_from_linklib_cmd
+# Result is available in the variable
+# $sharedlib_from_linklib_result
+func_cygming_dll_for_implib ()
+{
+ $debug_cmd
+
+ sharedlib_from_linklib_result=`$DLLTOOL --identify-strict --identify "$1"`
+}
+
+# func_cygming_dll_for_implib_fallback_core SECTION_NAME LIBNAMEs
+#
+# The is the core of a fallback implementation of a
+# platform-specific function to extract the name of the
+# DLL associated with the specified import library LIBNAME.
+#
+# SECTION_NAME is either .idata$6 or .idata$7, depending
+# on the platform and compiler that created the implib.
+#
+# Echos the name of the DLL associated with the
+# specified import library.
+func_cygming_dll_for_implib_fallback_core ()
+{
+ $debug_cmd
+
+ match_literal=`$ECHO "$1" | $SED "$sed_make_literal_regex"`
+ $OBJDUMP -s --section "$1" "$2" 2>/dev/null |
+ $SED '/^Contents of section '"$match_literal"':/{
+ # Place marker at beginning of archive member dllname section
+ s/.*/====MARK====/
+ p
+ d
+ }
+ # These lines can sometimes be longer than 43 characters, but
+ # are always uninteresting
+ /:[ ]*file format pe[i]\{,1\}-/d
+ /^In archive [^:]*:/d
+ # Ensure marker is printed
+ /^====MARK====/p
+ # Remove all lines with less than 43 characters
+ /^.\{43\}/!d
+ # From remaining lines, remove first 43 characters
+ s/^.\{43\}//' |
+ $SED -n '
+ # Join marker and all lines until next marker into a single line
+ /^====MARK====/ b para
+ H
+ $ b para
+ b
+ :para
+ x
+ s/\n//g
+ # Remove the marker
+ s/^====MARK====//
+ # Remove trailing dots and whitespace
+ s/[\. \t]*$//
+ # Print
+ /./p' |
+ # we now have a list, one entry per line, of the stringified
+ # contents of the appropriate section of all members of the
+ # archive that possess that section. Heuristic: eliminate
+ # all those that have a first or second character that is
+ # a '.' (that is, objdump's representation of an unprintable
+ # character.) This should work for all archives with less than
+ # 0x302f exports -- but will fail for DLLs whose name actually
+ # begins with a literal '.' or a single character followed by
+ # a '.'.
+ #
+ # Of those that remain, print the first one.
+ $SED -e '/^\./d;/^.\./d;q'
+}
+
+# func_cygming_dll_for_implib_fallback ARG
+# Platform-specific function to extract the
+# name of the DLL associated with the specified
+# import library ARG.
+#
+# This fallback implementation is for use when $DLLTOOL
+# does not support the --identify-strict option.
+# Invoked by eval'ing the libtool variable
+# $sharedlib_from_linklib_cmd
+# Result is available in the variable
+# $sharedlib_from_linklib_result
+func_cygming_dll_for_implib_fallback ()
+{
+ $debug_cmd
+
+ if func_cygming_gnu_implib_p "$1"; then
+ # binutils import library
+ sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$7' "$1"`
+ elif func_cygming_ms_implib_p "$1"; then
+ # ms-generated import library
+ sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$6' "$1"`
+ else
+ # unknown
+ sharedlib_from_linklib_result=
+ fi
+}
+
+
+# func_extract_an_archive dir oldlib
+func_extract_an_archive ()
+{
+ $debug_cmd
+
+ f_ex_an_ar_dir=$1; shift
+ f_ex_an_ar_oldlib=$1
+ if test yes = "$lock_old_archive_extraction"; then
+ lockfile=$f_ex_an_ar_oldlib.lock
+ until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do
+ func_echo "Waiting for $lockfile to be removed"
+ sleep 2
+ done
+ fi
+ func_show_eval "(cd \$f_ex_an_ar_dir && $AR x \"\$f_ex_an_ar_oldlib\")" \
+ 'stat=$?; rm -f "$lockfile"; exit $stat'
+ if test yes = "$lock_old_archive_extraction"; then
+ $opt_dry_run || rm -f "$lockfile"
+ fi
+ if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then
+ :
+ else
+ func_fatal_error "object name conflicts in archive: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib"
+ fi
+}
+
+
+# func_extract_archives gentop oldlib ...
+func_extract_archives ()
+{
+ $debug_cmd
+
+ my_gentop=$1; shift
+ my_oldlibs=${1+"$@"}
+ my_oldobjs=
+ my_xlib=
+ my_xabs=
+ my_xdir=
+
+ for my_xlib in $my_oldlibs; do
+ # Extract the objects.
+ case $my_xlib in
+ [\\/]* | [A-Za-z]:[\\/]*) my_xabs=$my_xlib ;;
+ *) my_xabs=`pwd`"/$my_xlib" ;;
+ esac
+ func_basename "$my_xlib"
+ my_xlib=$func_basename_result
+ my_xlib_u=$my_xlib
+ while :; do
+ case " $extracted_archives " in
+ *" $my_xlib_u "*)
+ func_arith $extracted_serial + 1
+ extracted_serial=$func_arith_result
+ my_xlib_u=lt$extracted_serial-$my_xlib ;;
+ *) break ;;
+ esac
+ done
+ extracted_archives="$extracted_archives $my_xlib_u"
+ my_xdir=$my_gentop/$my_xlib_u
+
+ func_mkdir_p "$my_xdir"
+
+ case $host in
+ *-darwin*)
+ func_verbose "Extracting $my_xabs"
+ # Do not bother doing anything if just a dry run
+ $opt_dry_run || {
+ darwin_orig_dir=`pwd`
+ cd $my_xdir || exit $?
+ darwin_archive=$my_xabs
+ darwin_curdir=`pwd`
+ func_basename "$darwin_archive"
+ darwin_base_archive=$func_basename_result
+ darwin_arches=`$LIPO -info "$darwin_archive" 2>/dev/null | $GREP Architectures 2>/dev/null || true`
+ if test -n "$darwin_arches"; then
+ darwin_arches=`$ECHO "$darwin_arches" | $SED -e 's/.*are://'`
+ darwin_arch=
+ func_verbose "$darwin_base_archive has multiple architectures $darwin_arches"
+ for darwin_arch in $darwin_arches; do
+ func_mkdir_p "unfat-$$/$darwin_base_archive-$darwin_arch"
+ $LIPO -thin $darwin_arch -output "unfat-$$/$darwin_base_archive-$darwin_arch/$darwin_base_archive" "$darwin_archive"
+ cd "unfat-$$/$darwin_base_archive-$darwin_arch"
+ func_extract_an_archive "`pwd`" "$darwin_base_archive"
+ cd "$darwin_curdir"
+ $RM "unfat-$$/$darwin_base_archive-$darwin_arch/$darwin_base_archive"
+ done # $darwin_arches
+ ## Okay now we've a bunch of thin objects, gotta fatten them up :)
+ darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print | $SED -e "$sed_basename" | sort -u`
+ darwin_file=
+ darwin_files=
+ for darwin_file in $darwin_filelist; do
+ darwin_files=`find unfat-$$ -name $darwin_file -print | sort | $NL2SP`
+ $LIPO -create -output "$darwin_file" $darwin_files
+ done # $darwin_filelist
+ $RM -rf unfat-$$
+ cd "$darwin_orig_dir"
+ else
+ cd $darwin_orig_dir
+ func_extract_an_archive "$my_xdir" "$my_xabs"
+ fi # $darwin_arches
+ } # !$opt_dry_run
+ ;;
+ *)
+ func_extract_an_archive "$my_xdir" "$my_xabs"
+ ;;
+ esac
+ my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | sort | $NL2SP`
+ done
+
+ func_extract_archives_result=$my_oldobjs
+}
+
+
+# func_emit_wrapper [arg=no]
+#
+# Emit a libtool wrapper script on stdout.
+# Don't directly open a file because we may want to
+# incorporate the script contents within a cygwin/mingw
+# wrapper executable. Must ONLY be called from within
+# func_mode_link because it depends on a number of variables
+# set therein.
+#
+# ARG is the value that the WRAPPER_SCRIPT_BELONGS_IN_OBJDIR
+# variable will take. If 'yes', then the emitted script
+# will assume that the directory where it is stored is
+# the $objdir directory. This is a cygwin/mingw-specific
+# behavior.
+func_emit_wrapper ()
+{
+ func_emit_wrapper_arg1=${1-no}
+
+ $ECHO "\
+#! $SHELL
+
+# $output - temporary wrapper script for $objdir/$outputname
+# Generated by $PROGRAM (GNU $PACKAGE) $VERSION
+#
+# The $output program cannot be directly executed until all the libtool
+# libraries that it depends on are installed.
+#
+# This wrapper script should never be moved out of the build directory.
+# If it is, it will not operate correctly.
+
+# Sed substitution that helps us do robust quoting. It backslashifies
+# metacharacters that are still active within double-quoted strings.
+sed_quote_subst='$sed_quote_subst'
+
+# Be Bourne compatible
+if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then
+ emulate sh
+ NULLCMD=:
+ # Zsh 3.x and 4.x performs word splitting on \${1+\"\$@\"}, which
+ # is contrary to our usage. Disable this feature.
+ alias -g '\${1+\"\$@\"}'='\"\$@\"'
+ setopt NO_GLOB_SUBST
+else
+ case \`(set -o) 2>/dev/null\` in *posix*) set -o posix;; esac
+fi
+BIN_SH=xpg4; export BIN_SH # for Tru64
+DUALCASE=1; export DUALCASE # for MKS sh
+
+# The HP-UX ksh and POSIX shell print the target directory to stdout
+# if CDPATH is set.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+relink_command=\"$relink_command\"
+
+# This environment variable determines our operation mode.
+if test \"\$libtool_install_magic\" = \"$magic\"; then
+ # install mode needs the following variables:
+ generated_by_libtool_version='$macro_version'
+ notinst_deplibs='$notinst_deplibs'
+else
+ # When we are sourced in execute mode, \$file and \$ECHO are already set.
+ if test \"\$libtool_execute_magic\" != \"$magic\"; then
+ file=\"\$0\""
+
+ qECHO=`$ECHO "$ECHO" | $SED "$sed_quote_subst"`
+ $ECHO "\
+
+# A function that is used when there is no print builtin or printf.
+func_fallback_echo ()
+{
+ eval 'cat <<_LTECHO_EOF
+\$1
+_LTECHO_EOF'
+}
+ ECHO=\"$qECHO\"
+ fi
+
+# Very basic option parsing. These options are (a) specific to
+# the libtool wrapper, (b) are identical between the wrapper
+# /script/ and the wrapper /executable/ that is used only on
+# windows platforms, and (c) all begin with the string "--lt-"
+# (application programs are unlikely to have options that match
+# this pattern).
+#
+# There are only two supported options: --lt-debug and
+# --lt-dump-script. There is, deliberately, no --lt-help.
+#
+# The first argument to this parsing function should be the
+# script's $0 value, followed by "$@".
+lt_option_debug=
+func_parse_lt_options ()
+{
+ lt_script_arg0=\$0
+ shift
+ for lt_opt
+ do
+ case \"\$lt_opt\" in
+ --lt-debug) lt_option_debug=1 ;;
+ --lt-dump-script)
+ lt_dump_D=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%/[^/]*$%%'\`
+ test \"X\$lt_dump_D\" = \"X\$lt_script_arg0\" && lt_dump_D=.
+ lt_dump_F=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%^.*/%%'\`
+ cat \"\$lt_dump_D/\$lt_dump_F\"
+ exit 0
+ ;;
+ --lt-*)
+ \$ECHO \"Unrecognized --lt- option: '\$lt_opt'\" 1>&2
+ exit 1
+ ;;
+ esac
+ done
+
+ # Print the debug banner immediately:
+ if test -n \"\$lt_option_debug\"; then
+ echo \"$outputname:$output:\$LINENO: libtool wrapper (GNU $PACKAGE) $VERSION\" 1>&2
+ fi
+}
+
+# Used when --lt-debug. Prints its arguments to stdout
+# (redirection is the responsibility of the caller)
+func_lt_dump_args ()
+{
+ lt_dump_args_N=1;
+ for lt_arg
+ do
+ \$ECHO \"$outputname:$output:\$LINENO: newargv[\$lt_dump_args_N]: \$lt_arg\"
+ lt_dump_args_N=\`expr \$lt_dump_args_N + 1\`
+ done
+}
+
+# Core function for launching the target application
+func_exec_program_core ()
+{
+"
+ case $host in
+ # Backslashes separate directories on plain windows
+ *-*-mingw | *-*-os2* | *-cegcc*)
+ $ECHO "\
+ if test -n \"\$lt_option_debug\"; then
+ \$ECHO \"$outputname:$output:\$LINENO: newargv[0]: \$progdir\\\\\$program\" 1>&2
+ func_lt_dump_args \${1+\"\$@\"} 1>&2
+ fi
+ exec \"\$progdir\\\\\$program\" \${1+\"\$@\"}
+"
+ ;;
+
+ *)
+ $ECHO "\
+ if test -n \"\$lt_option_debug\"; then
+ \$ECHO \"$outputname:$output:\$LINENO: newargv[0]: \$progdir/\$program\" 1>&2
+ func_lt_dump_args \${1+\"\$@\"} 1>&2
+ fi
+ exec \"\$progdir/\$program\" \${1+\"\$@\"}
+"
+ ;;
+ esac
+ $ECHO "\
+ \$ECHO \"\$0: cannot exec \$program \$*\" 1>&2
+ exit 1
+}
+
+# A function to encapsulate launching the target application
+# Strips options in the --lt-* namespace from \$@ and
+# launches target application with the remaining arguments.
+func_exec_program ()
+{
+ case \" \$* \" in
+ *\\ --lt-*)
+ for lt_wr_arg
+ do
+ case \$lt_wr_arg in
+ --lt-*) ;;
+ *) set x \"\$@\" \"\$lt_wr_arg\"; shift;;
+ esac
+ shift
+ done ;;
+ esac
+ func_exec_program_core \${1+\"\$@\"}
+}
+
+ # Parse options
+ func_parse_lt_options \"\$0\" \${1+\"\$@\"}
+
+ # Find the directory that this script lives in.
+ thisdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*$%%'\`
+ test \"x\$thisdir\" = \"x\$file\" && thisdir=.
+
+ # Follow symbolic links until we get to the real thisdir.
+ file=\`ls -ld \"\$file\" | $SED -n 's/.*-> //p'\`
+ while test -n \"\$file\"; do
+ destdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*\$%%'\`
+
+ # If there was a directory component, then change thisdir.
+ if test \"x\$destdir\" != \"x\$file\"; then
+ case \"\$destdir\" in
+ [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;;
+ *) thisdir=\"\$thisdir/\$destdir\" ;;
+ esac
+ fi
+
+ file=\`\$ECHO \"\$file\" | $SED 's%^.*/%%'\`
+ file=\`ls -ld \"\$thisdir/\$file\" | $SED -n 's/.*-> //p'\`
+ done
+
+ # Usually 'no', except on cygwin/mingw when embedded into
+ # the cwrapper.
+ WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=$func_emit_wrapper_arg1
+ if test \"\$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR\" = \"yes\"; then
+ # special case for '.'
+ if test \"\$thisdir\" = \".\"; then
+ thisdir=\`pwd\`
+ fi
+ # remove .libs from thisdir
+ case \"\$thisdir\" in
+ *[\\\\/]$objdir ) thisdir=\`\$ECHO \"\$thisdir\" | $SED 's%[\\\\/][^\\\\/]*$%%'\` ;;
+ $objdir ) thisdir=. ;;
+ esac
+ fi
+
+ # Try to get the absolute directory name.
+ absdir=\`cd \"\$thisdir\" && pwd\`
+ test -n \"\$absdir\" && thisdir=\"\$absdir\"
+"
+
+ if test yes = "$fast_install"; then
+ $ECHO "\
+ program=lt-'$outputname'$exeext
+ progdir=\"\$thisdir/$objdir\"
+
+ if test ! -f \"\$progdir/\$program\" ||
+ { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | $SED 1q\`; \\
+ test \"X\$file\" != \"X\$progdir/\$program\"; }; then
+
+ file=\"\$\$-\$program\"
+
+ if test ! -d \"\$progdir\"; then
+ $MKDIR \"\$progdir\"
+ else
+ $RM \"\$progdir/\$file\"
+ fi"
+
+ $ECHO "\
+
+ # relink executable if necessary
+ if test -n \"\$relink_command\"; then
+ if relink_command_output=\`eval \$relink_command 2>&1\`; then :
+ else
+ \$ECHO \"\$relink_command_output\" >&2
+ $RM \"\$progdir/\$file\"
+ exit 1
+ fi
+ fi
+
+ $MV \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null ||
+ { $RM \"\$progdir/\$program\";
+ $MV \"\$progdir/\$file\" \"\$progdir/\$program\"; }
+ $RM \"\$progdir/\$file\"
+ fi"
+ else
+ $ECHO "\
+ program='$outputname'
+ progdir=\"\$thisdir/$objdir\"
+"
+ fi
+
+ $ECHO "\
+
+ if test -f \"\$progdir/\$program\"; then"
+
+ # fixup the dll searchpath if we need to.
+ #
+ # Fix the DLL searchpath if we need to. Do this before prepending
+ # to shlibpath, because on Windows, both are PATH and uninstalled
+ # libraries must come first.
+ if test -n "$dllsearchpath"; then
+ $ECHO "\
+ # Add the dll search path components to the executable PATH
+ PATH=$dllsearchpath:\$PATH
+"
+ fi
+
+ # Export our shlibpath_var if we have one.
+ if test yes = "$shlibpath_overrides_runpath" && test -n "$shlibpath_var" && test -n "$temp_rpath"; then
+ $ECHO "\
+ # Add our own library path to $shlibpath_var
+ $shlibpath_var=\"$temp_rpath\$$shlibpath_var\"
+
+ # Some systems cannot cope with colon-terminated $shlibpath_var
+ # The second colon is a workaround for a bug in BeOS R4 sed
+ $shlibpath_var=\`\$ECHO \"\$$shlibpath_var\" | $SED 's/::*\$//'\`
+
+ export $shlibpath_var
+"
+ fi
+
+ $ECHO "\
+ if test \"\$libtool_execute_magic\" != \"$magic\"; then
+ # Run the actual program with our arguments.
+ func_exec_program \${1+\"\$@\"}
+ fi
+ else
+ # The program doesn't exist.
+ \$ECHO \"\$0: error: '\$progdir/\$program' does not exist\" 1>&2
+ \$ECHO \"This script is just a wrapper for \$program.\" 1>&2
+ \$ECHO \"See the $PACKAGE documentation for more information.\" 1>&2
+ exit 1
+ fi
+fi\
+"
+}
+
+
+# func_emit_cwrapperexe_src
+# emit the source code for a wrapper executable on stdout
+# Must ONLY be called from within func_mode_link because
+# it depends on a number of variable set therein.
+func_emit_cwrapperexe_src ()
+{
+ cat <<EOF
+
+/* $cwrappersource - temporary wrapper executable for $objdir/$outputname
+ Generated by $PROGRAM (GNU $PACKAGE) $VERSION
+
+ The $output program cannot be directly executed until all the libtool
+ libraries that it depends on are installed.
+
+ This wrapper executable should never be moved out of the build directory.
+ If it is, it will not operate correctly.
+*/
+EOF
+ cat <<"EOF"
+#ifdef _MSC_VER
+# define _CRT_SECURE_NO_DEPRECATE 1
+#endif
+#include <stdio.h>
+#include <stdlib.h>
+#ifdef _MSC_VER
+# include <direct.h>
+# include <process.h>
+# include <io.h>
+#else
+# include <unistd.h>
+# include <stdint.h>
+# ifdef __CYGWIN__
+# include <io.h>
+# endif
+#endif
+#include <malloc.h>
+#include <stdarg.h>
+#include <assert.h>
+#include <string.h>
+#include <ctype.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <sys/stat.h>
+
+#define STREQ(s1, s2) (strcmp ((s1), (s2)) == 0)
+
+/* declarations of non-ANSI functions */
+#if defined __MINGW32__
+# ifdef __STRICT_ANSI__
+int _putenv (const char *);
+# endif
+#elif defined __CYGWIN__
+# ifdef __STRICT_ANSI__
+char *realpath (const char *, char *);
+int putenv (char *);
+int setenv (const char *, const char *, int);
+# endif
+/* #elif defined other_platform || defined ... */
+#endif
+
+/* portability defines, excluding path handling macros */
+#if defined _MSC_VER
+# define setmode _setmode
+# define stat _stat
+# define chmod _chmod
+# define getcwd _getcwd
+# define putenv _putenv
+# define S_IXUSR _S_IEXEC
+#elif defined __MINGW32__
+# define setmode _setmode
+# define stat _stat
+# define chmod _chmod
+# define getcwd _getcwd
+# define putenv _putenv
+#elif defined __CYGWIN__
+# define HAVE_SETENV
+# define FOPEN_WB "wb"
+/* #elif defined other platforms ... */
+#endif
+
+#if defined PATH_MAX
+# define LT_PATHMAX PATH_MAX
+#elif defined MAXPATHLEN
+# define LT_PATHMAX MAXPATHLEN
+#else
+# define LT_PATHMAX 1024
+#endif
+
+#ifndef S_IXOTH
+# define S_IXOTH 0
+#endif
+#ifndef S_IXGRP
+# define S_IXGRP 0
+#endif
+
+/* path handling portability macros */
+#ifndef DIR_SEPARATOR
+# define DIR_SEPARATOR '/'
+# define PATH_SEPARATOR ':'
+#endif
+
+#if defined _WIN32 || defined __MSDOS__ || defined __DJGPP__ || \
+ defined __OS2__
+# define HAVE_DOS_BASED_FILE_SYSTEM
+# define FOPEN_WB "wb"
+# ifndef DIR_SEPARATOR_2
+# define DIR_SEPARATOR_2 '\\'
+# endif
+# ifndef PATH_SEPARATOR_2
+# define PATH_SEPARATOR_2 ';'
+# endif
+#endif
+
+#ifndef DIR_SEPARATOR_2
+# define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
+#else /* DIR_SEPARATOR_2 */
+# define IS_DIR_SEPARATOR(ch) \
+ (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
+#endif /* DIR_SEPARATOR_2 */
+
+#ifndef PATH_SEPARATOR_2
+# define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR)
+#else /* PATH_SEPARATOR_2 */
+# define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2)
+#endif /* PATH_SEPARATOR_2 */
+
+#ifndef FOPEN_WB
+# define FOPEN_WB "w"
+#endif
+#ifndef _O_BINARY
+# define _O_BINARY 0
+#endif
+
+#define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type)))
+#define XFREE(stale) do { \
+ if (stale) { free (stale); stale = 0; } \
+} while (0)
+
+#if defined LT_DEBUGWRAPPER
+static int lt_debug = 1;
+#else
+static int lt_debug = 0;
+#endif
+
+const char *program_name = "libtool-wrapper"; /* in case xstrdup fails */
+
+void *xmalloc (size_t num);
+char *xstrdup (const char *string);
+const char *base_name (const char *name);
+char *find_executable (const char *wrapper);
+char *chase_symlinks (const char *pathspec);
+int make_executable (const char *path);
+int check_executable (const char *path);
+char *strendzap (char *str, const char *pat);
+void lt_debugprintf (const char *file, int line, const char *fmt, ...);
+void lt_fatal (const char *file, int line, const char *message, ...);
+static const char *nonnull (const char *s);
+static const char *nonempty (const char *s);
+void lt_setenv (const char *name, const char *value);
+char *lt_extend_str (const char *orig_value, const char *add, int to_end);
+void lt_update_exe_path (const char *name, const char *value);
+void lt_update_lib_path (const char *name, const char *value);
+char **prepare_spawn (char **argv);
+void lt_dump_script (FILE *f);
+EOF
+
+ cat <<EOF
+#if __GNUC__ < 4 || (__GNUC__ == 4 && __GNUC_MINOR__ < 5)
+# define externally_visible volatile
+#else
+# define externally_visible __attribute__((externally_visible)) volatile
+#endif
+externally_visible const char * MAGIC_EXE = "$magic_exe";
+const char * LIB_PATH_VARNAME = "$shlibpath_var";
+EOF
+
+ if test yes = "$shlibpath_overrides_runpath" && test -n "$shlibpath_var" && test -n "$temp_rpath"; then
+ func_to_host_path "$temp_rpath"
+ cat <<EOF
+const char * LIB_PATH_VALUE = "$func_to_host_path_result";
+EOF
+ else
+ cat <<"EOF"
+const char * LIB_PATH_VALUE = "";
+EOF
+ fi
+
+ if test -n "$dllsearchpath"; then
+ func_to_host_path "$dllsearchpath:"
+ cat <<EOF
+const char * EXE_PATH_VARNAME = "PATH";
+const char * EXE_PATH_VALUE = "$func_to_host_path_result";
+EOF
+ else
+ cat <<"EOF"
+const char * EXE_PATH_VARNAME = "";
+const char * EXE_PATH_VALUE = "";
+EOF
+ fi
+
+ if test yes = "$fast_install"; then
+ cat <<EOF
+const char * TARGET_PROGRAM_NAME = "lt-$outputname"; /* hopefully, no .exe */
+EOF
+ else
+ cat <<EOF
+const char * TARGET_PROGRAM_NAME = "$outputname"; /* hopefully, no .exe */
+EOF
+ fi
+
+
+ cat <<"EOF"
+
+#define LTWRAPPER_OPTION_PREFIX "--lt-"
+
+static const char *ltwrapper_option_prefix = LTWRAPPER_OPTION_PREFIX;
+static const char *dumpscript_opt = LTWRAPPER_OPTION_PREFIX "dump-script";
+static const char *debug_opt = LTWRAPPER_OPTION_PREFIX "debug";
+
+int
+main (int argc, char *argv[])
+{
+ char **newargz;
+ int newargc;
+ char *tmp_pathspec;
+ char *actual_cwrapper_path;
+ char *actual_cwrapper_name;
+ char *target_name;
+ char *lt_argv_zero;
+ int rval = 127;
+
+ int i;
+
+ program_name = (char *) xstrdup (base_name (argv[0]));
+ newargz = XMALLOC (char *, (size_t) argc + 1);
+
+ /* very simple arg parsing; don't want to rely on getopt
+ * also, copy all non cwrapper options to newargz, except
+ * argz[0], which is handled differently
+ */
+ newargc=0;
+ for (i = 1; i < argc; i++)
+ {
+ if (STREQ (argv[i], dumpscript_opt))
+ {
+EOF
+ case $host in
+ *mingw* | *cygwin* )
+ # make stdout use "unix" line endings
+ echo " setmode(1,_O_BINARY);"
+ ;;
+ esac
+
+ cat <<"EOF"
+ lt_dump_script (stdout);
+ return 0;
+ }
+ if (STREQ (argv[i], debug_opt))
+ {
+ lt_debug = 1;
+ continue;
+ }
+ if (STREQ (argv[i], ltwrapper_option_prefix))
+ {
+ /* however, if there is an option in the LTWRAPPER_OPTION_PREFIX
+ namespace, but it is not one of the ones we know about and
+ have already dealt with, above (inluding dump-script), then
+ report an error. Otherwise, targets might begin to believe
+ they are allowed to use options in the LTWRAPPER_OPTION_PREFIX
+ namespace. The first time any user complains about this, we'll
+ need to make LTWRAPPER_OPTION_PREFIX a configure-time option
+ or a configure.ac-settable value.
+ */
+ lt_fatal (__FILE__, __LINE__,
+ "unrecognized %s option: '%s'",
+ ltwrapper_option_prefix, argv[i]);
+ }
+ /* otherwise ... */
+ newargz[++newargc] = xstrdup (argv[i]);
+ }
+ newargz[++newargc] = NULL;
+
+EOF
+ cat <<EOF
+ /* The GNU banner must be the first non-error debug message */
+ lt_debugprintf (__FILE__, __LINE__, "libtool wrapper (GNU $PACKAGE) $VERSION\n");
+EOF
+ cat <<"EOF"
+ lt_debugprintf (__FILE__, __LINE__, "(main) argv[0]: %s\n", argv[0]);
+ lt_debugprintf (__FILE__, __LINE__, "(main) program_name: %s\n", program_name);
+
+ tmp_pathspec = find_executable (argv[0]);
+ if (tmp_pathspec == NULL)
+ lt_fatal (__FILE__, __LINE__, "couldn't find %s", argv[0]);
+ lt_debugprintf (__FILE__, __LINE__,
+ "(main) found exe (before symlink chase) at: %s\n",
+ tmp_pathspec);
+
+ actual_cwrapper_path = chase_symlinks (tmp_pathspec);
+ lt_debugprintf (__FILE__, __LINE__,
+ "(main) found exe (after symlink chase) at: %s\n",
+ actual_cwrapper_path);
+ XFREE (tmp_pathspec);
+
+ actual_cwrapper_name = xstrdup (base_name (actual_cwrapper_path));
+ strendzap (actual_cwrapper_path, actual_cwrapper_name);
+
+ /* wrapper name transforms */
+ strendzap (actual_cwrapper_name, ".exe");
+ tmp_pathspec = lt_extend_str (actual_cwrapper_name, ".exe", 1);
+ XFREE (actual_cwrapper_name);
+ actual_cwrapper_name = tmp_pathspec;
+ tmp_pathspec = 0;
+
+ /* target_name transforms -- use actual target program name; might have lt- prefix */
+ target_name = xstrdup (base_name (TARGET_PROGRAM_NAME));
+ strendzap (target_name, ".exe");
+ tmp_pathspec = lt_extend_str (target_name, ".exe", 1);
+ XFREE (target_name);
+ target_name = tmp_pathspec;
+ tmp_pathspec = 0;
+
+ lt_debugprintf (__FILE__, __LINE__,
+ "(main) libtool target name: %s\n",
+ target_name);
+EOF
+
+ cat <<EOF
+ newargz[0] =
+ XMALLOC (char, (strlen (actual_cwrapper_path) +
+ strlen ("$objdir") + 1 + strlen (actual_cwrapper_name) + 1));
+ strcpy (newargz[0], actual_cwrapper_path);
+ strcat (newargz[0], "$objdir");
+ strcat (newargz[0], "/");
+EOF
+
+ cat <<"EOF"
+ /* stop here, and copy so we don't have to do this twice */
+ tmp_pathspec = xstrdup (newargz[0]);
+
+ /* do NOT want the lt- prefix here, so use actual_cwrapper_name */
+ strcat (newargz[0], actual_cwrapper_name);
+
+ /* DO want the lt- prefix here if it exists, so use target_name */
+ lt_argv_zero = lt_extend_str (tmp_pathspec, target_name, 1);
+ XFREE (tmp_pathspec);
+ tmp_pathspec = NULL;
+EOF
+
+ case $host_os in
+ mingw*)
+ cat <<"EOF"
+ {
+ char* p;
+ while ((p = strchr (newargz[0], '\\')) != NULL)
+ {
+ *p = '/';
+ }
+ while ((p = strchr (lt_argv_zero, '\\')) != NULL)
+ {
+ *p = '/';
+ }
+ }
+EOF
+ ;;
+ esac
+
+ cat <<"EOF"
+ XFREE (target_name);
+ XFREE (actual_cwrapper_path);
+ XFREE (actual_cwrapper_name);
+
+ lt_setenv ("BIN_SH", "xpg4"); /* for Tru64 */
+ lt_setenv ("DUALCASE", "1"); /* for MSK sh */
+ /* Update the DLL searchpath. EXE_PATH_VALUE ($dllsearchpath) must
+ be prepended before (that is, appear after) LIB_PATH_VALUE ($temp_rpath)
+ because on Windows, both *_VARNAMEs are PATH but uninstalled
+ libraries must come first. */
+ lt_update_exe_path (EXE_PATH_VARNAME, EXE_PATH_VALUE);
+ lt_update_lib_path (LIB_PATH_VARNAME, LIB_PATH_VALUE);
+
+ lt_debugprintf (__FILE__, __LINE__, "(main) lt_argv_zero: %s\n",
+ nonnull (lt_argv_zero));
+ for (i = 0; i < newargc; i++)
+ {
+ lt_debugprintf (__FILE__, __LINE__, "(main) newargz[%d]: %s\n",
+ i, nonnull (newargz[i]));
+ }
+
+EOF
+
+ case $host_os in
+ mingw*)
+ cat <<"EOF"
+ /* execv doesn't actually work on mingw as expected on unix */
+ newargz = prepare_spawn (newargz);
+ rval = (int) _spawnv (_P_WAIT, lt_argv_zero, (const char * const *) newargz);
+ if (rval == -1)
+ {
+ /* failed to start process */
+ lt_debugprintf (__FILE__, __LINE__,
+ "(main) failed to launch target \"%s\": %s\n",
+ lt_argv_zero, nonnull (strerror (errno)));
+ return 127;
+ }
+ return rval;
+EOF
+ ;;
+ *)
+ cat <<"EOF"
+ execv (lt_argv_zero, newargz);
+ return rval; /* =127, but avoids unused variable warning */
+EOF
+ ;;
+ esac
+
+ cat <<"EOF"
+}
+
+void *
+xmalloc (size_t num)
+{
+ void *p = (void *) malloc (num);
+ if (!p)
+ lt_fatal (__FILE__, __LINE__, "memory exhausted");
+
+ return p;
+}
+
+char *
+xstrdup (const char *string)
+{
+ return string ? strcpy ((char *) xmalloc (strlen (string) + 1),
+ string) : NULL;
+}
+
+const char *
+base_name (const char *name)
+{
+ const char *base;
+
+#if defined HAVE_DOS_BASED_FILE_SYSTEM
+ /* Skip over the disk name in MSDOS pathnames. */
+ if (isalpha ((unsigned char) name[0]) && name[1] == ':')
+ name += 2;
+#endif
+
+ for (base = name; *name; name++)
+ if (IS_DIR_SEPARATOR (*name))
+ base = name + 1;
+ return base;
+}
+
+int
+check_executable (const char *path)
+{
+ struct stat st;
+
+ lt_debugprintf (__FILE__, __LINE__, "(check_executable): %s\n",
+ nonempty (path));
+ if ((!path) || (!*path))
+ return 0;
+
+ if ((stat (path, &st) >= 0)
+ && (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH)))
+ return 1;
+ else
+ return 0;
+}
+
+int
+make_executable (const char *path)
+{
+ int rval = 0;
+ struct stat st;
+
+ lt_debugprintf (__FILE__, __LINE__, "(make_executable): %s\n",
+ nonempty (path));
+ if ((!path) || (!*path))
+ return 0;
+
+ if (stat (path, &st) >= 0)
+ {
+ rval = chmod (path, st.st_mode | S_IXOTH | S_IXGRP | S_IXUSR);
+ }
+ return rval;
+}
+
+/* Searches for the full path of the wrapper. Returns
+ newly allocated full path name if found, NULL otherwise
+ Does not chase symlinks, even on platforms that support them.
+*/
+char *
+find_executable (const char *wrapper)
+{
+ int has_slash = 0;
+ const char *p;
+ const char *p_next;
+ /* static buffer for getcwd */
+ char tmp[LT_PATHMAX + 1];
+ size_t tmp_len;
+ char *concat_name;
+
+ lt_debugprintf (__FILE__, __LINE__, "(find_executable): %s\n",
+ nonempty (wrapper));
+
+ if ((wrapper == NULL) || (*wrapper == '\0'))
+ return NULL;
+
+ /* Absolute path? */
+#if defined HAVE_DOS_BASED_FILE_SYSTEM
+ if (isalpha ((unsigned char) wrapper[0]) && wrapper[1] == ':')
+ {
+ concat_name = xstrdup (wrapper);
+ if (check_executable (concat_name))
+ return concat_name;
+ XFREE (concat_name);
+ }
+ else
+ {
+#endif
+ if (IS_DIR_SEPARATOR (wrapper[0]))
+ {
+ concat_name = xstrdup (wrapper);
+ if (check_executable (concat_name))
+ return concat_name;
+ XFREE (concat_name);
+ }
+#if defined HAVE_DOS_BASED_FILE_SYSTEM
+ }
+#endif
+
+ for (p = wrapper; *p; p++)
+ if (*p == '/')
+ {
+ has_slash = 1;
+ break;
+ }
+ if (!has_slash)
+ {
+ /* no slashes; search PATH */
+ const char *path = getenv ("PATH");
+ if (path != NULL)
+ {
+ for (p = path; *p; p = p_next)
+ {
+ const char *q;
+ size_t p_len;
+ for (q = p; *q; q++)
+ if (IS_PATH_SEPARATOR (*q))
+ break;
+ p_len = (size_t) (q - p);
+ p_next = (*q == '\0' ? q : q + 1);
+ if (p_len == 0)
+ {
+ /* empty path: current directory */
+ if (getcwd (tmp, LT_PATHMAX) == NULL)
+ lt_fatal (__FILE__, __LINE__, "getcwd failed: %s",
+ nonnull (strerror (errno)));
+ tmp_len = strlen (tmp);
+ concat_name =
+ XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1);
+ memcpy (concat_name, tmp, tmp_len);
+ concat_name[tmp_len] = '/';
+ strcpy (concat_name + tmp_len + 1, wrapper);
+ }
+ else
+ {
+ concat_name =
+ XMALLOC (char, p_len + 1 + strlen (wrapper) + 1);
+ memcpy (concat_name, p, p_len);
+ concat_name[p_len] = '/';
+ strcpy (concat_name + p_len + 1, wrapper);
+ }
+ if (check_executable (concat_name))
+ return concat_name;
+ XFREE (concat_name);
+ }
+ }
+ /* not found in PATH; assume curdir */
+ }
+ /* Relative path | not found in path: prepend cwd */
+ if (getcwd (tmp, LT_PATHMAX) == NULL)
+ lt_fatal (__FILE__, __LINE__, "getcwd failed: %s",
+ nonnull (strerror (errno)));
+ tmp_len = strlen (tmp);
+ concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1);
+ memcpy (concat_name, tmp, tmp_len);
+ concat_name[tmp_len] = '/';
+ strcpy (concat_name + tmp_len + 1, wrapper);
+
+ if (check_executable (concat_name))
+ return concat_name;
+ XFREE (concat_name);
+ return NULL;
+}
+
+char *
+chase_symlinks (const char *pathspec)
+{
+#ifndef S_ISLNK
+ return xstrdup (pathspec);
+#else
+ char buf[LT_PATHMAX];
+ struct stat s;
+ char *tmp_pathspec = xstrdup (pathspec);
+ char *p;
+ int has_symlinks = 0;
+ while (strlen (tmp_pathspec) && !has_symlinks)
+ {
+ lt_debugprintf (__FILE__, __LINE__,
+ "checking path component for symlinks: %s\n",
+ tmp_pathspec);
+ if (lstat (tmp_pathspec, &s) == 0)
+ {
+ if (S_ISLNK (s.st_mode) != 0)
+ {
+ has_symlinks = 1;
+ break;
+ }
+
+ /* search backwards for last DIR_SEPARATOR */
+ p = tmp_pathspec + strlen (tmp_pathspec) - 1;
+ while ((p > tmp_pathspec) && (!IS_DIR_SEPARATOR (*p)))
+ p--;
+ if ((p == tmp_pathspec) && (!IS_DIR_SEPARATOR (*p)))
+ {
+ /* no more DIR_SEPARATORS left */
+ break;
+ }
+ *p = '\0';
+ }
+ else
+ {
+ lt_fatal (__FILE__, __LINE__,
+ "error accessing file \"%s\": %s",
+ tmp_pathspec, nonnull (strerror (errno)));
+ }
+ }
+ XFREE (tmp_pathspec);
+
+ if (!has_symlinks)
+ {
+ return xstrdup (pathspec);
+ }
+
+ tmp_pathspec = realpath (pathspec, buf);
+ if (tmp_pathspec == 0)
+ {
+ lt_fatal (__FILE__, __LINE__,
+ "could not follow symlinks for %s", pathspec);
+ }
+ return xstrdup (tmp_pathspec);
+#endif
+}
+
+char *
+strendzap (char *str, const char *pat)
+{
+ size_t len, patlen;
+
+ assert (str != NULL);
+ assert (pat != NULL);
+
+ len = strlen (str);
+ patlen = strlen (pat);
+
+ if (patlen <= len)
+ {
+ str += len - patlen;
+ if (STREQ (str, pat))
+ *str = '\0';
+ }
+ return str;
+}
+
+void
+lt_debugprintf (const char *file, int line, const char *fmt, ...)
+{
+ va_list args;
+ if (lt_debug)
+ {
+ (void) fprintf (stderr, "%s:%s:%d: ", program_name, file, line);
+ va_start (args, fmt);
+ (void) vfprintf (stderr, fmt, args);
+ va_end (args);
+ }
+}
+
+static void
+lt_error_core (int exit_status, const char *file,
+ int line, const char *mode,
+ const char *message, va_list ap)
+{
+ fprintf (stderr, "%s:%s:%d: %s: ", program_name, file, line, mode);
+ vfprintf (stderr, message, ap);
+ fprintf (stderr, ".\n");
+
+ if (exit_status >= 0)
+ exit (exit_status);
+}
+
+void
+lt_fatal (const char *file, int line, const char *message, ...)
+{
+ va_list ap;
+ va_start (ap, message);
+ lt_error_core (EXIT_FAILURE, file, line, "FATAL", message, ap);
+ va_end (ap);
+}
+
+static const char *
+nonnull (const char *s)
+{
+ return s ? s : "(null)";
+}
+
+static const char *
+nonempty (const char *s)
+{
+ return (s && !*s) ? "(empty)" : nonnull (s);
+}
+
+void
+lt_setenv (const char *name, const char *value)
+{
+ lt_debugprintf (__FILE__, __LINE__,
+ "(lt_setenv) setting '%s' to '%s'\n",
+ nonnull (name), nonnull (value));
+ {
+#ifdef HAVE_SETENV
+ /* always make a copy, for consistency with !HAVE_SETENV */
+ char *str = xstrdup (value);
+ setenv (name, str, 1);
+#else
+ size_t len = strlen (name) + 1 + strlen (value) + 1;
+ char *str = XMALLOC (char, len);
+ sprintf (str, "%s=%s", name, value);
+ if (putenv (str) != EXIT_SUCCESS)
+ {
+ XFREE (str);
+ }
+#endif
+ }
+}
+
+char *
+lt_extend_str (const char *orig_value, const char *add, int to_end)
+{
+ char *new_value;
+ if (orig_value && *orig_value)
+ {
+ size_t orig_value_len = strlen (orig_value);
+ size_t add_len = strlen (add);
+ new_value = XMALLOC (char, add_len + orig_value_len + 1);
+ if (to_end)
+ {
+ strcpy (new_value, orig_value);
+ strcpy (new_value + orig_value_len, add);
+ }
+ else
+ {
+ strcpy (new_value, add);
+ strcpy (new_value + add_len, orig_value);
+ }
+ }
+ else
+ {
+ new_value = xstrdup (add);
+ }
+ return new_value;
+}
+
+void
+lt_update_exe_path (const char *name, const char *value)
+{
+ lt_debugprintf (__FILE__, __LINE__,
+ "(lt_update_exe_path) modifying '%s' by prepending '%s'\n",
+ nonnull (name), nonnull (value));
+
+ if (name && *name && value && *value)
+ {
+ char *new_value = lt_extend_str (getenv (name), value, 0);
+ /* some systems can't cope with a ':'-terminated path #' */
+ size_t len = strlen (new_value);
+ while ((len > 0) && IS_PATH_SEPARATOR (new_value[len-1]))
+ {
+ new_value[--len] = '\0';
+ }
+ lt_setenv (name, new_value);
+ XFREE (new_value);
+ }
+}
+
+void
+lt_update_lib_path (const char *name, const char *value)
+{
+ lt_debugprintf (__FILE__, __LINE__,
+ "(lt_update_lib_path) modifying '%s' by prepending '%s'\n",
+ nonnull (name), nonnull (value));
+
+ if (name && *name && value && *value)
+ {
+ char *new_value = lt_extend_str (getenv (name), value, 0);
+ lt_setenv (name, new_value);
+ XFREE (new_value);
+ }
+}
+
+EOF
+ case $host_os in
+ mingw*)
+ cat <<"EOF"
+
+/* Prepares an argument vector before calling spawn().
+ Note that spawn() does not by itself call the command interpreter
+ (getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") :
+ ({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
+ GetVersionEx(&v);
+ v.dwPlatformId == VER_PLATFORM_WIN32_NT;
+ }) ? "cmd.exe" : "command.com").
+ Instead it simply concatenates the arguments, separated by ' ', and calls
+ CreateProcess(). We must quote the arguments since Win32 CreateProcess()
+ interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a
+ special way:
+ - Space and tab are interpreted as delimiters. They are not treated as
+ delimiters if they are surrounded by double quotes: "...".
+ - Unescaped double quotes are removed from the input. Their only effect is
+ that within double quotes, space and tab are treated like normal
+ characters.
+ - Backslashes not followed by double quotes are not special.
+ - But 2*n+1 backslashes followed by a double quote become
+ n backslashes followed by a double quote (n >= 0):
+ \" -> "
+ \\\" -> \"
+ \\\\\" -> \\"
+ */
+#define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
+#define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
+char **
+prepare_spawn (char **argv)
+{
+ size_t argc;
+ char **new_argv;
+ size_t i;
+
+ /* Count number of arguments. */
+ for (argc = 0; argv[argc] != NULL; argc++)
+ ;
+
+ /* Allocate new argument vector. */
+ new_argv = XMALLOC (char *, argc + 1);
+
+ /* Put quoted arguments into the new argument vector. */
+ for (i = 0; i < argc; i++)
+ {
+ const char *string = argv[i];
+
+ if (string[0] == '\0')
+ new_argv[i] = xstrdup ("\"\"");
+ else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL)
+ {
+ int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL);
+ size_t length;
+ unsigned int backslashes;
+ const char *s;
+ char *quoted_string;
+ char *p;
+
+ length = 0;
+ backslashes = 0;
+ if (quote_around)
+ length++;
+ for (s = string; *s != '\0'; s++)
+ {
+ char c = *s;
+ if (c == '"')
+ length += backslashes + 1;
+ length++;
+ if (c == '\\')
+ backslashes++;
+ else
+ backslashes = 0;
+ }
+ if (quote_around)
+ length += backslashes + 1;
+
+ quoted_string = XMALLOC (char, length + 1);
+
+ p = quoted_string;
+ backslashes = 0;
+ if (quote_around)
+ *p++ = '"';
+ for (s = string; *s != '\0'; s++)
+ {
+ char c = *s;
+ if (c == '"')
+ {
+ unsigned int j;
+ for (j = backslashes + 1; j > 0; j--)
+ *p++ = '\\';
+ }
+ *p++ = c;
+ if (c == '\\')
+ backslashes++;
+ else
+ backslashes = 0;
+ }
+ if (quote_around)
+ {
+ unsigned int j;
+ for (j = backslashes; j > 0; j--)
+ *p++ = '\\';
+ *p++ = '"';
+ }
+ *p = '\0';
+
+ new_argv[i] = quoted_string;
+ }
+ else
+ new_argv[i] = (char *) string;
+ }
+ new_argv[argc] = NULL;
+
+ return new_argv;
+}
+EOF
+ ;;
+ esac
+
+ cat <<"EOF"
+void lt_dump_script (FILE* f)
+{
+EOF
+ func_emit_wrapper yes |
+ $SED -n -e '
+s/^\(.\{79\}\)\(..*\)/\1\
+\2/
+h
+s/\([\\"]\)/\\\1/g
+s/$/\\n/
+s/\([^\n]*\).*/ fputs ("\1", f);/p
+g
+D'
+ cat <<"EOF"
+}
+EOF
+}
+# end: func_emit_cwrapperexe_src
+
+# func_win32_import_lib_p ARG
+# True if ARG is an import lib, as indicated by $file_magic_cmd
+func_win32_import_lib_p ()
+{
+ $debug_cmd
+
+ case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in
+ *import*) : ;;
+ *) false ;;
+ esac
+}
+
+# func_suncc_cstd_abi
+# !!ONLY CALL THIS FOR SUN CC AFTER $compile_command IS FULLY EXPANDED!!
+# Several compiler flags select an ABI that is incompatible with the
+# Cstd library. Avoid specifying it if any are in CXXFLAGS.
+func_suncc_cstd_abi ()
+{
+ $debug_cmd
+
+ case " $compile_command " in
+ *" -compat=g "*|*\ -std=c++[0-9][0-9]\ *|*" -library=stdcxx4 "*|*" -library=stlport4 "*)
+ suncc_use_cstd_abi=no
+ ;;
+ *)
+ suncc_use_cstd_abi=yes
+ ;;
+ esac
+}
+
+# func_mode_link arg...
+func_mode_link ()
+{
+ $debug_cmd
+
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*)
+ # It is impossible to link a dll without this setting, and
+ # we shouldn't force the makefile maintainer to figure out
+ # what system we are compiling for in order to pass an extra
+ # flag for every libtool invocation.
+ # allow_undefined=no
+
+ # FIXME: Unfortunately, there are problems with the above when trying
+ # to make a dll that has undefined symbols, in which case not
+ # even a static library is built. For now, we need to specify
+ # -no-undefined on the libtool link line when we can be certain
+ # that all symbols are satisfied, otherwise we get a static library.
+ allow_undefined=yes
+ ;;
+ *)
+ allow_undefined=yes
+ ;;
+ esac
+ libtool_args=$nonopt
+ base_compile="$nonopt $@"
+ compile_command=$nonopt
+ finalize_command=$nonopt
+
+ compile_rpath=
+ finalize_rpath=
+ compile_shlibpath=
+ finalize_shlibpath=
+ convenience=
+ old_convenience=
+ deplibs=
+ old_deplibs=
+ compiler_flags=
+ linker_flags=
+ dllsearchpath=
+ lib_search_path=`pwd`
+ inst_prefix_dir=
+ new_inherited_linker_flags=
+
+ avoid_version=no
+ bindir=
+ dlfiles=
+ dlprefiles=
+ dlself=no
+ export_dynamic=no
+ export_symbols=
+ export_symbols_regex=
+ generated=
+ libobjs=
+ ltlibs=
+ module=no
+ no_install=no
+ objs=
+ os2dllname=
+ non_pic_objects=
+ precious_files_regex=
+ prefer_static_libs=no
+ preload=false
+ prev=
+ prevarg=
+ release=
+ rpath=
+ xrpath=
+ perm_rpath=
+ temp_rpath=
+ thread_safe=no
+ vinfo=
+ vinfo_number=no
+ weak_libs=
+ single_module=$wl-single_module
+ func_infer_tag $base_compile
+
+ # We need to know -static, to get the right output filenames.
+ for arg
+ do
+ case $arg in
+ -shared)
+ test yes != "$build_libtool_libs" \
+ && func_fatal_configuration "cannot build a shared library"
+ build_old_libs=no
+ break
+ ;;
+ -all-static | -static | -static-libtool-libs)
+ case $arg in
+ -all-static)
+ if test yes = "$build_libtool_libs" && test -z "$link_static_flag"; then
+ func_warning "complete static linking is impossible in this configuration"
+ fi
+ if test -n "$link_static_flag"; then
+ dlopen_self=$dlopen_self_static
+ fi
+ prefer_static_libs=yes
+ ;;
+ -static)
+ if test -z "$pic_flag" && test -n "$link_static_flag"; then
+ dlopen_self=$dlopen_self_static
+ fi
+ prefer_static_libs=built
+ ;;
+ -static-libtool-libs)
+ if test -z "$pic_flag" && test -n "$link_static_flag"; then
+ dlopen_self=$dlopen_self_static
+ fi
+ prefer_static_libs=yes
+ ;;
+ esac
+ build_libtool_libs=no
+ build_old_libs=yes
+ break
+ ;;
+ esac
+ done
+
+ # See if our shared archives depend on static archives.
+ test -n "$old_archive_from_new_cmds" && build_old_libs=yes
+
+ # Go through the arguments, transforming them on the way.
+ while test "$#" -gt 0; do
+ arg=$1
+ shift
+ func_quote_for_eval "$arg"
+ qarg=$func_quote_for_eval_unquoted_result
+ func_append libtool_args " $func_quote_for_eval_result"
+
+ # If the previous option needs an argument, assign it.
+ if test -n "$prev"; then
+ case $prev in
+ output)
+ func_append compile_command " @OUTPUT@"
+ func_append finalize_command " @OUTPUT@"
+ ;;
+ esac
+
+ case $prev in
+ bindir)
+ bindir=$arg
+ prev=
+ continue
+ ;;
+ dlfiles|dlprefiles)
+ $preload || {
+ # Add the symbol object into the linking commands.
+ func_append compile_command " @SYMFILE@"
+ func_append finalize_command " @SYMFILE@"
+ preload=:
+ }
+ case $arg in
+ *.la | *.lo) ;; # We handle these cases below.
+ force)
+ if test no = "$dlself"; then
+ dlself=needless
+ export_dynamic=yes
+ fi
+ prev=
+ continue
+ ;;
+ self)
+ if test dlprefiles = "$prev"; then
+ dlself=yes
+ elif test dlfiles = "$prev" && test yes != "$dlopen_self"; then
+ dlself=yes
+ else
+ dlself=needless
+ export_dynamic=yes
+ fi
+ prev=
+ continue
+ ;;
+ *)
+ if test dlfiles = "$prev"; then
+ func_append dlfiles " $arg"
+ else
+ func_append dlprefiles " $arg"
+ fi
+ prev=
+ continue
+ ;;
+ esac
+ ;;
+ expsyms)
+ export_symbols=$arg
+ test -f "$arg" \
+ || func_fatal_error "symbol file '$arg' does not exist"
+ prev=
+ continue
+ ;;
+ expsyms_regex)
+ export_symbols_regex=$arg
+ prev=
+ continue
+ ;;
+ framework)
+ case $host in
+ *-*-darwin*)
+ case "$deplibs " in
+ *" $qarg.ltframework "*) ;;
+ *) func_append deplibs " $qarg.ltframework" # this is fixed later
+ ;;
+ esac
+ ;;
+ esac
+ prev=
+ continue
+ ;;
+ inst_prefix)
+ inst_prefix_dir=$arg
+ prev=
+ continue
+ ;;
+ mllvm)
+ # Clang does not use LLVM to link, so we can simply discard any
+ # '-mllvm $arg' options when doing the link step.
+ prev=
+ continue
+ ;;
+ objectlist)
+ if test -f "$arg"; then
+ save_arg=$arg
+ moreargs=
+ for fil in `cat "$save_arg"`
+ do
+# func_append moreargs " $fil"
+ arg=$fil
+ # A libtool-controlled object.
+
+ # Check to see that this really is a libtool object.
+ if func_lalib_unsafe_p "$arg"; then
+ pic_object=
+ non_pic_object=
+
+ # Read the .lo file
+ func_source "$arg"
+
+ if test -z "$pic_object" ||
+ test -z "$non_pic_object" ||
+ test none = "$pic_object" &&
+ test none = "$non_pic_object"; then
+ func_fatal_error "cannot find name of object for '$arg'"
+ fi
+
+ # Extract subdirectory from the argument.
+ func_dirname "$arg" "/" ""
+ xdir=$func_dirname_result
+
+ if test none != "$pic_object"; then
+ # Prepend the subdirectory the object is found in.
+ pic_object=$xdir$pic_object
+
+ if test dlfiles = "$prev"; then
+ if test yes = "$build_libtool_libs" && test yes = "$dlopen_support"; then
+ func_append dlfiles " $pic_object"
+ prev=
+ continue
+ else
+ # If libtool objects are unsupported, then we need to preload.
+ prev=dlprefiles
+ fi
+ fi
+
+ # CHECK ME: I think I busted this. -Ossama
+ if test dlprefiles = "$prev"; then
+ # Preload the old-style object.
+ func_append dlprefiles " $pic_object"
+ prev=
+ fi
+
+ # A PIC object.
+ func_append libobjs " $pic_object"
+ arg=$pic_object
+ fi
+
+ # Non-PIC object.
+ if test none != "$non_pic_object"; then
+ # Prepend the subdirectory the object is found in.
+ non_pic_object=$xdir$non_pic_object
+
+ # A standard non-PIC object
+ func_append non_pic_objects " $non_pic_object"
+ if test -z "$pic_object" || test none = "$pic_object"; then
+ arg=$non_pic_object
+ fi
+ else
+ # If the PIC object exists, use it instead.
+ # $xdir was prepended to $pic_object above.
+ non_pic_object=$pic_object
+ func_append non_pic_objects " $non_pic_object"
+ fi
+ else
+ # Only an error if not doing a dry-run.
+ if $opt_dry_run; then
+ # Extract subdirectory from the argument.
+ func_dirname "$arg" "/" ""
+ xdir=$func_dirname_result
+
+ func_lo2o "$arg"
+ pic_object=$xdir$objdir/$func_lo2o_result
+ non_pic_object=$xdir$func_lo2o_result
+ func_append libobjs " $pic_object"
+ func_append non_pic_objects " $non_pic_object"
+ else
+ func_fatal_error "'$arg' is not a valid libtool object"
+ fi
+ fi
+ done
+ else
+ func_fatal_error "link input file '$arg' does not exist"
+ fi
+ arg=$save_arg
+ prev=
+ continue
+ ;;
+ os2dllname)
+ os2dllname=$arg
+ prev=
+ continue
+ ;;
+ precious_regex)
+ precious_files_regex=$arg
+ prev=
+ continue
+ ;;
+ release)
+ release=-$arg
+ prev=
+ continue
+ ;;
+ rpath | xrpath)
+ # We need an absolute path.
+ case $arg in
+ [\\/]* | [A-Za-z]:[\\/]*) ;;
+ *)
+ func_fatal_error "only absolute run-paths are allowed"
+ ;;
+ esac
+ if test rpath = "$prev"; then
+ case "$rpath " in
+ *" $arg "*) ;;
+ *) func_append rpath " $arg" ;;
+ esac
+ else
+ case "$xrpath " in
+ *" $arg "*) ;;
+ *) func_append xrpath " $arg" ;;
+ esac
+ fi
+ prev=
+ continue
+ ;;
+ shrext)
+ shrext_cmds=$arg
+ prev=
+ continue
+ ;;
+ weak)
+ func_append weak_libs " $arg"
+ prev=
+ continue
+ ;;
+ xcclinker)
+ func_append linker_flags " $qarg"
+ func_append compiler_flags " $qarg"
+ prev=
+ func_append compile_command " $qarg"
+ func_append finalize_command " $qarg"
+ continue
+ ;;
+ xcompiler)
+ func_append compiler_flags " $qarg"
+ prev=
+ func_append compile_command " $qarg"
+ func_append finalize_command " $qarg"
+ continue
+ ;;
+ xlinker)
+ func_append linker_flags " $qarg"
+ func_append compiler_flags " $wl$qarg"
+ prev=
+ func_append compile_command " $wl$qarg"
+ func_append finalize_command " $wl$qarg"
+ continue
+ ;;
+ *)
+ eval "$prev=\"\$arg\""
+ prev=
+ continue
+ ;;
+ esac
+ fi # test -n "$prev"
+
+ prevarg=$arg
+
+ case $arg in
+ -all-static)
+ if test -n "$link_static_flag"; then
+ # See comment for -static flag below, for more details.
+ func_append compile_command " $link_static_flag"
+ func_append finalize_command " $link_static_flag"
+ fi
+ continue
+ ;;
+
+ -allow-undefined)
+ # FIXME: remove this flag sometime in the future.
+ func_fatal_error "'-allow-undefined' must not be used because it is the default"
+ ;;
+
+ -avoid-version)
+ avoid_version=yes
+ continue
+ ;;
+
+ -bindir)
+ prev=bindir
+ continue
+ ;;
+
+ -dlopen)
+ prev=dlfiles
+ continue
+ ;;
+
+ -dlpreopen)
+ prev=dlprefiles
+ continue
+ ;;
+
+ -export-dynamic)
+ export_dynamic=yes
+ continue
+ ;;
+
+ -export-symbols | -export-symbols-regex)
+ if test -n "$export_symbols" || test -n "$export_symbols_regex"; then
+ func_fatal_error "more than one -exported-symbols argument is not allowed"
+ fi
+ if test X-export-symbols = "X$arg"; then
+ prev=expsyms
+ else
+ prev=expsyms_regex
+ fi
+ continue
+ ;;
+
+ -framework)
+ prev=framework
+ continue
+ ;;
+
+ -inst-prefix-dir)
+ prev=inst_prefix
+ continue
+ ;;
+
+ # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:*
+ # so, if we see these flags be careful not to treat them like -L
+ -L[A-Z][A-Z]*:*)
+ case $with_gcc/$host in
+ no/*-*-irix* | /*-*-irix*)
+ func_append compile_command " $arg"
+ func_append finalize_command " $arg"
+ ;;
+ esac
+ continue
+ ;;
+
+ -L*)
+ func_stripname "-L" '' "$arg"
+ if test -z "$func_stripname_result"; then
+ if test "$#" -gt 0; then
+ func_fatal_error "require no space between '-L' and '$1'"
+ else
+ func_fatal_error "need path for '-L' option"
+ fi
+ fi
+ func_resolve_sysroot "$func_stripname_result"
+ dir=$func_resolve_sysroot_result
+ # We need an absolute path.
+ case $dir in
+ [\\/]* | [A-Za-z]:[\\/]*) ;;
+ *)
+ absdir=`cd "$dir" && pwd`
+ test -z "$absdir" && \
+ func_fatal_error "cannot determine absolute directory name of '$dir'"
+ dir=$absdir
+ ;;
+ esac
+ case "$deplibs " in
+ *" -L$dir "* | *" $arg "*)
+ # Will only happen for absolute or sysroot arguments
+ ;;
+ *)
+ # Preserve sysroot, but never include relative directories
+ case $dir in
+ [\\/]* | [A-Za-z]:[\\/]* | =*) func_append deplibs " $arg" ;;
+ *) func_append deplibs " -L$dir" ;;
+ esac
+ func_append lib_search_path " $dir"
+ ;;
+ esac
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*)
+ testbindir=`$ECHO "$dir" | $SED 's*/lib$*/bin*'`
+ case :$dllsearchpath: in
+ *":$dir:"*) ;;
+ ::) dllsearchpath=$dir;;
+ *) func_append dllsearchpath ":$dir";;
+ esac
+ case :$dllsearchpath: in
+ *":$testbindir:"*) ;;
+ ::) dllsearchpath=$testbindir;;
+ *) func_append dllsearchpath ":$testbindir";;
+ esac
+ ;;
+ esac
+ continue
+ ;;
+
+ -l*)
+ if test X-lc = "X$arg" || test X-lm = "X$arg"; then
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos* | *-cegcc* | *-*-haiku*)
+ # These systems don't actually have a C or math library (as such)
+ continue
+ ;;
+ *-*-os2*)
+ # These systems don't actually have a C library (as such)
+ test X-lc = "X$arg" && continue
+ ;;
+ *-*-openbsd* | *-*-freebsd* | *-*-dragonfly* | *-*-bitrig*)
+ # Do not include libc due to us having libc/libc_r.
+ test X-lc = "X$arg" && continue
+ ;;
+ *-*-rhapsody* | *-*-darwin1.[012])
+ # Rhapsody C and math libraries are in the System framework
+ func_append deplibs " System.ltframework"
+ continue
+ ;;
+ *-*-sco3.2v5* | *-*-sco5v6*)
+ # Causes problems with __ctype
+ test X-lc = "X$arg" && continue
+ ;;
+ *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*)
+ # Compiler inserts libc in the correct place for threads to work
+ test X-lc = "X$arg" && continue
+ ;;
+ esac
+ elif test X-lc_r = "X$arg"; then
+ case $host in
+ *-*-openbsd* | *-*-freebsd* | *-*-dragonfly* | *-*-bitrig*)
+ # Do not include libc_r directly, use -pthread flag.
+ continue
+ ;;
+ esac
+ fi
+ func_append deplibs " $arg"
+ continue
+ ;;
+
+ -mllvm)
+ prev=mllvm
+ continue
+ ;;
+
+ -module)
+ module=yes
+ continue
+ ;;
+
+ # Tru64 UNIX uses -model [arg] to determine the layout of C++
+ # classes, name mangling, and exception handling.
+ # Darwin uses the -arch flag to determine output architecture.
+ -model|-arch|-isysroot|--sysroot)
+ func_append compiler_flags " $arg"
+ func_append compile_command " $arg"
+ func_append finalize_command " $arg"
+ prev=xcompiler
+ continue
+ ;;
+
+ -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \
+ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*)
+ func_append compiler_flags " $arg"
+ func_append compile_command " $arg"
+ func_append finalize_command " $arg"
+ case "$new_inherited_linker_flags " in
+ *" $arg "*) ;;
+ * ) func_append new_inherited_linker_flags " $arg" ;;
+ esac
+ continue
+ ;;
+
+ -multi_module)
+ single_module=$wl-multi_module
+ continue
+ ;;
+
+ -no-fast-install)
+ fast_install=no
+ continue
+ ;;
+
+ -no-install)
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin* | *-cegcc*)
+ # The PATH hackery in wrapper scripts is required on Windows
+ # and Darwin in order for the loader to find any dlls it needs.
+ func_warning "'-no-install' is ignored for $host"
+ func_warning "assuming '-no-fast-install' instead"
+ fast_install=no
+ ;;
+ *) no_install=yes ;;
+ esac
+ continue
+ ;;
+
+ -no-undefined)
+ allow_undefined=no
+ continue
+ ;;
+
+ -objectlist)
+ prev=objectlist
+ continue
+ ;;
+
+ -os2dllname)
+ prev=os2dllname
+ continue
+ ;;
+
+ -o) prev=output ;;
+
+ -precious-files-regex)
+ prev=precious_regex
+ continue
+ ;;
+
+ -release)
+ prev=release
+ continue
+ ;;
+
+ -rpath)
+ prev=rpath
+ continue
+ ;;
+
+ -R)
+ prev=xrpath
+ continue
+ ;;
+
+ -R*)
+ func_stripname '-R' '' "$arg"
+ dir=$func_stripname_result
+ # We need an absolute path.
+ func_add2xrpath "$dir"
+ continue
+ ;;
+
+ -shared)
+ # The effects of -shared are defined in a previous loop.
+ continue
+ ;;
+
+ -shrext)
+ prev=shrext
+ continue
+ ;;
+
+ -static | -static-libtool-libs)
+ # The effects of -static are defined in a previous loop.
+ # We used to do the same as -all-static on platforms that
+ # didn't have a PIC flag, but the assumption that the effects
+ # would be equivalent was wrong. It would break on at least
+ # Digital Unix and AIX.
+ continue
+ ;;
+
+ -thread-safe)
+ thread_safe=yes
+ continue
+ ;;
+
+ -version-info)
+ prev=vinfo
+ continue
+ ;;
+
+ -version-number)
+ prev=vinfo
+ vinfo_number=yes
+ continue
+ ;;
+
+ -weak)
+ prev=weak
+ continue
+ ;;
+
+ -Wc,*)
+ func_stripname '-Wc,' '' "$arg"
+ args=$func_stripname_result
+ arg=
+ save_ifs=$IFS; IFS=,
+ for flag in $args; do
+ IFS=$save_ifs
+ func_quote_for_eval "$flag"
+ func_append arg " $func_quote_for_eval_result"
+ func_append compiler_flags " $func_quote_for_eval_result"
+ done
+ IFS=$save_ifs
+ func_stripname ' ' '' "$arg"
+ arg=$func_stripname_result
+ ;;
+
+ -Wl,--start-group|-Wl,--end-group|-Wl,-\(|-Wl,-\))
+ func_append deplibs " $arg"
+ continue
+ ;;
+
+ -Wl,*)
+ wlprefix=`expr x"$wl" : '.*' - 1`
+ wlprefix=`expr x"$arg" : 'x\(.\{'"$wlprefix"'\}\)'`
+ if test x"$wlprefix" = x"$wl" -a x"$wl" != x"-Wl,"; then
+ func_append compiler_flags " $arg"
+ func_append compile_command " $arg"
+ func_append finalize_command " $arg"
+ if expr "x$arg" : '^x'"$wl"'-rpath,,' >/dev/null ; then
+ func_stripname "$wl"'-rpath,,' '' "$arg"
+ dir=$func_stripname_result
+ func_add2xrpath "$dir"
+ elif expr "x$arg" : '^x'"$wl"'-rpath$' >/dev/null ; then
+ func_stripname "$wl" '' "$1"
+ dir=$func_stripname_result
+ if ! expr "x$1" : '^x'"$wl" >/dev/null \
+ || ! test -d "$dir" ; then
+ func_fatal_error "$wl"'-rpath must be followed by '"$wl"'-escaped directory'
+ fi
+ shift
+ func_add2xrpath "$dir"
+ continue
+ else
+ func_stripname "$wl" '' "$arg"
+ func_append new_inherited_linker_flags " -Wl,$func_stripname_result"
+ fi
+ continue
+ elif expr "x$arg" : '^x-Wl,-rpath,' >/dev/null ; then
+ func_stripname '-Wl,-rpath,' '' "$arg"
+ dir=$func_stripname_result
+ func_add2xrpath "$dir"
+ continue
+ elif expr "x$arg" : '^x-Wl,-rpath$' >/dev/null ; then
+ func_stripname '-Wl,' '' "$1"
+ dir=$func_stripname_result
+ if ! expr "x$1" : '^x-Wl,' >/dev/null \
+ || ! test -d "$dir" ; then
+ func_fatal_error '-Wl,-rpath must be followed by -Wl-escaped directory'
+ fi
+ func_quote_for_eval "$1"
+ func_append libtool_args " $func_quote_for_eval_result"
+ shift
+ func_add2xrpath "$dir"
+ continue
+ fi
+ func_stripname '-Wl,' '' "$arg"
+ args=$func_stripname_result
+ arg=
+ save_ifs=$IFS; IFS=,
+ for flag in $args; do
+ IFS=$save_ifs
+ func_quote_for_eval "$flag"
+ func_append arg " $wl$func_quote_for_eval_result"
+ func_append compiler_flags " $wl$func_quote_for_eval_result"
+ func_append linker_flags " $func_quote_for_eval_result"
+ done
+ IFS=$save_ifs
+ func_stripname ' ' '' "$arg"
+ arg=$func_stripname_result
+ ;;
+
+ -Xcompiler)
+ prev=xcompiler
+ continue
+ ;;
+
+ -Xlinker)
+ prev=xlinker
+ continue
+ ;;
+
+ -XCClinker)
+ prev=xcclinker
+ continue
+ ;;
+
+ # -msg_* for osf cc
+ -msg_*)
+ func_quote_for_eval "$arg"
+ arg=$func_quote_for_eval_result
+ ;;
+
+ # Flags to be passed through unchanged, with rationale:
+ # -64, -mips[0-9] enable 64-bit mode for the SGI compiler
+ # -r[0-9][0-9]* specify processor for the SGI compiler
+ # -xarch=*, -xtarget=* enable 64-bit mode for the Sun compiler
+ # +DA*, +DD* enable 64-bit mode for the HP compiler
+ # -q* compiler args for the IBM compiler
+ # -m*, -t[45]*, -txscale* architecture-specific flags for GCC
+ # -F/path path to uninstalled frameworks, gcc on darwin
+ # -p, -pg, --coverage, -fprofile-* profiling flags for GCC
+ # -fstack-protector* stack protector flags for GCC
+ # @file GCC response files
+ # -tp=* Portland pgcc target processor selection
+ # --sysroot=* for sysroot support
+ # -O*, -g*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization
+ # -stdlib=* select c++ std lib with clang
+ -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \
+ -t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \
+ -O*|-g*|-flto*|-fwhopr*|-fuse-linker-plugin|-fstack-protector*|-stdlib=*)
+ func_quote_for_eval "$arg"
+ arg=$func_quote_for_eval_result
+ func_append compile_command " $arg"
+ func_append finalize_command " $arg"
+ func_append compiler_flags " $arg"
+ continue
+ ;;
+
+ -Z*)
+ if test os2 = "`expr $host : '.*\(os2\)'`"; then
+ # OS/2 uses -Zxxx to specify OS/2-specific options
+ compiler_flags="$compiler_flags $arg"
+ func_append compile_command " $arg"
+ func_append finalize_command " $arg"
+ case $arg in
+ -Zlinker | -Zstack)
+ prev=xcompiler
+ ;;
+ esac
+ continue
+ else
+ # Otherwise treat like 'Some other compiler flag' below
+ func_quote_for_eval "$arg"
+ arg=$func_quote_for_eval_result
+ fi
+ ;;
+
+ # Some other compiler flag.
+ -* | +*)
+ func_quote_for_eval "$arg"
+ arg=$func_quote_for_eval_result
+ ;;
+
+ *.$objext)
+ # A standard object.
+ func_append objs " $arg"
+ ;;
+
+ *.lo)
+ # A libtool-controlled object.
+
+ # Check to see that this really is a libtool object.
+ if func_lalib_unsafe_p "$arg"; then
+ pic_object=
+ non_pic_object=
+
+ # Read the .lo file
+ func_source "$arg"
+
+ if test -z "$pic_object" ||
+ test -z "$non_pic_object" ||
+ test none = "$pic_object" &&
+ test none = "$non_pic_object"; then
+ func_fatal_error "cannot find name of object for '$arg'"
+ fi
+
+ # Extract subdirectory from the argument.
+ func_dirname "$arg" "/" ""
+ xdir=$func_dirname_result
+
+ test none = "$pic_object" || {
+ # Prepend the subdirectory the object is found in.
+ pic_object=$xdir$pic_object
+
+ if test dlfiles = "$prev"; then
+ if test yes = "$build_libtool_libs" && test yes = "$dlopen_support"; then
+ func_append dlfiles " $pic_object"
+ prev=
+ continue
+ else
+ # If libtool objects are unsupported, then we need to preload.
+ prev=dlprefiles
+ fi
+ fi
+
+ # CHECK ME: I think I busted this. -Ossama
+ if test dlprefiles = "$prev"; then
+ # Preload the old-style object.
+ func_append dlprefiles " $pic_object"
+ prev=
+ fi
+
+ # A PIC object.
+ func_append libobjs " $pic_object"
+ arg=$pic_object
+ }
+
+ # Non-PIC object.
+ if test none != "$non_pic_object"; then
+ # Prepend the subdirectory the object is found in.
+ non_pic_object=$xdir$non_pic_object
+
+ # A standard non-PIC object
+ func_append non_pic_objects " $non_pic_object"
+ if test -z "$pic_object" || test none = "$pic_object"; then
+ arg=$non_pic_object
+ fi
+ else
+ # If the PIC object exists, use it instead.
+ # $xdir was prepended to $pic_object above.
+ non_pic_object=$pic_object
+ func_append non_pic_objects " $non_pic_object"
+ fi
+ else
+ # Only an error if not doing a dry-run.
+ if $opt_dry_run; then
+ # Extract subdirectory from the argument.
+ func_dirname "$arg" "/" ""
+ xdir=$func_dirname_result
+
+ func_lo2o "$arg"
+ pic_object=$xdir$objdir/$func_lo2o_result
+ non_pic_object=$xdir$func_lo2o_result
+ func_append libobjs " $pic_object"
+ func_append non_pic_objects " $non_pic_object"
+ else
+ func_fatal_error "'$arg' is not a valid libtool object"
+ fi
+ fi
+ ;;
+
+ *.$libext)
+ # An archive.
+ func_append deplibs " $arg"
+ func_append old_deplibs " $arg"
+ continue
+ ;;
+
+ *.la)
+ # A libtool-controlled library.
+
+ func_resolve_sysroot "$arg"
+ if test dlfiles = "$prev"; then
+ # This library was specified with -dlopen.
+ func_append dlfiles " $func_resolve_sysroot_result"
+ prev=
+ elif test dlprefiles = "$prev"; then
+ # The library was specified with -dlpreopen.
+ func_append dlprefiles " $func_resolve_sysroot_result"
+ prev=
+ else
+ func_append deplibs " $func_resolve_sysroot_result"
+ fi
+ continue
+ ;;
+
+ # Some other compiler argument.
+ *)
+ # Unknown arguments in both finalize_command and compile_command need
+ # to be aesthetically quoted because they are evaled later.
+ func_quote_for_eval "$arg"
+ arg=$func_quote_for_eval_result
+ ;;
+ esac # arg
+
+ # Now actually substitute the argument into the commands.
+ if test -n "$arg"; then
+ func_append compile_command " $arg"
+ func_append finalize_command " $arg"
+ fi
+ done # argument parsing loop
+
+ test -n "$prev" && \
+ func_fatal_help "the '$prevarg' option requires an argument"
+
+ if test yes = "$export_dynamic" && test -n "$export_dynamic_flag_spec"; then
+ eval arg=\"$export_dynamic_flag_spec\"
+ func_append compile_command " $arg"
+ func_append finalize_command " $arg"
+ fi
+
+ oldlibs=
+ # calculate the name of the file, without its directory
+ func_basename "$output"
+ outputname=$func_basename_result
+ libobjs_save=$libobjs
+
+ if test -n "$shlibpath_var"; then
+ # get the directories listed in $shlibpath_var
+ eval shlib_search_path=\`\$ECHO \"\$$shlibpath_var\" \| \$SED \'s/:/ /g\'\`
+ else
+ shlib_search_path=
+ fi
+ eval sys_lib_search_path=\"$sys_lib_search_path_spec\"
+ eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\"
+
+ # Definition is injected by LT_CONFIG during libtool generation.
+ func_munge_path_list sys_lib_dlsearch_path "$LT_SYS_LIBRARY_PATH"
+
+ func_dirname "$output" "/" ""
+ output_objdir=$func_dirname_result$objdir
+ func_to_tool_file "$output_objdir/"
+ tool_output_objdir=$func_to_tool_file_result
+ # Create the object directory.
+ func_mkdir_p "$output_objdir"
+
+ # Determine the type of output
+ case $output in
+ "")
+ func_fatal_help "you must specify an output file"
+ ;;
+ *.$libext) linkmode=oldlib ;;
+ *.lo | *.$objext) linkmode=obj ;;
+ *.la) linkmode=lib ;;
+ *) linkmode=prog ;; # Anything else should be a program.
+ esac
+
+ specialdeplibs=
+
+ libs=
+ # Find all interdependent deplibs by searching for libraries
+ # that are linked more than once (e.g. -la -lb -la)
+ for deplib in $deplibs; do
+ if $opt_preserve_dup_deps; then
+ case "$libs " in
+ *" $deplib "*) func_append specialdeplibs " $deplib" ;;
+ esac
+ fi
+ func_append libs " $deplib"
+ done
+
+ if test lib = "$linkmode"; then
+ libs="$predeps $libs $compiler_lib_search_path $postdeps"
+
+ # Compute libraries that are listed more than once in $predeps
+ # $postdeps and mark them as special (i.e., whose duplicates are
+ # not to be eliminated).
+ pre_post_deps=
+ if $opt_duplicate_compiler_generated_deps; then
+ for pre_post_dep in $predeps $postdeps; do
+ case "$pre_post_deps " in
+ *" $pre_post_dep "*) func_append specialdeplibs " $pre_post_deps" ;;
+ esac
+ func_append pre_post_deps " $pre_post_dep"
+ done
+ fi
+ pre_post_deps=
+ fi
+
+ deplibs=
+ newdependency_libs=
+ newlib_search_path=
+ need_relink=no # whether we're linking any uninstalled libtool libraries
+ notinst_deplibs= # not-installed libtool libraries
+ notinst_path= # paths that contain not-installed libtool libraries
+
+ case $linkmode in
+ lib)
+ passes="conv dlpreopen link"
+ for file in $dlfiles $dlprefiles; do
+ case $file in
+ *.la) ;;
+ *)
+ func_fatal_help "libraries can '-dlopen' only libtool libraries: $file"
+ ;;
+ esac
+ done
+ ;;
+ prog)
+ compile_deplibs=
+ finalize_deplibs=
+ alldeplibs=false
+ newdlfiles=
+ newdlprefiles=
+ passes="conv scan dlopen dlpreopen link"
+ ;;
+ *) passes="conv"
+ ;;
+ esac
+
+ for pass in $passes; do
+ # The preopen pass in lib mode reverses $deplibs; put it back here
+ # so that -L comes before libs that need it for instance...
+ if test lib,link = "$linkmode,$pass"; then
+ ## FIXME: Find the place where the list is rebuilt in the wrong
+ ## order, and fix it there properly
+ tmp_deplibs=
+ for deplib in $deplibs; do
+ tmp_deplibs="$deplib $tmp_deplibs"
+ done
+ deplibs=$tmp_deplibs
+ fi
+
+ if test lib,link = "$linkmode,$pass" ||
+ test prog,scan = "$linkmode,$pass"; then
+ libs=$deplibs
+ deplibs=
+ fi
+ if test prog = "$linkmode"; then
+ case $pass in
+ dlopen) libs=$dlfiles ;;
+ dlpreopen) libs=$dlprefiles ;;
+ link) libs="$deplibs %DEPLIBS% $dependency_libs" ;;
+ esac
+ fi
+ if test lib,dlpreopen = "$linkmode,$pass"; then
+ # Collect and forward deplibs of preopened libtool libs
+ for lib in $dlprefiles; do
+ # Ignore non-libtool-libs
+ dependency_libs=
+ func_resolve_sysroot "$lib"
+ case $lib in
+ *.la) func_source "$func_resolve_sysroot_result" ;;
+ esac
+
+ # Collect preopened libtool deplibs, except any this library
+ # has declared as weak libs
+ for deplib in $dependency_libs; do
+ func_basename "$deplib"
+ deplib_base=$func_basename_result
+ case " $weak_libs " in
+ *" $deplib_base "*) ;;
+ *) func_append deplibs " $deplib" ;;
+ esac
+ done
+ done
+ libs=$dlprefiles
+ fi
+ if test dlopen = "$pass"; then
+ # Collect dlpreopened libraries
+ save_deplibs=$deplibs
+ deplibs=
+ fi
+
+ for deplib in $libs; do
+ lib=
+ found=false
+ case $deplib in
+ -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \
+ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*)
+ if test prog,link = "$linkmode,$pass"; then
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ func_append compiler_flags " $deplib"
+ if test lib = "$linkmode"; then
+ case "$new_inherited_linker_flags " in
+ *" $deplib "*) ;;
+ * ) func_append new_inherited_linker_flags " $deplib" ;;
+ esac
+ fi
+ fi
+ continue
+ ;;
+ -l*)
+ if test lib != "$linkmode" && test prog != "$linkmode"; then
+ func_warning "'-l' is ignored for archives/objects"
+ continue
+ fi
+ func_stripname '-l' '' "$deplib"
+ name=$func_stripname_result
+ if test lib = "$linkmode"; then
+ searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path"
+ else
+ searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path"
+ fi
+ for searchdir in $searchdirs; do
+ for search_ext in .la $std_shrext .so .a; do
+ # Search the libtool library
+ lib=$searchdir/lib$name$search_ext
+ if test -f "$lib"; then
+ if test .la = "$search_ext"; then
+ found=:
+ else
+ found=false
+ fi
+ break 2
+ fi
+ done
+ done
+ if $found; then
+ # deplib is a libtool library
+ # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib,
+ # We need to do some special things here, and not later.
+ if test yes = "$allow_libtool_libs_with_static_runtimes"; then
+ case " $predeps $postdeps " in
+ *" $deplib "*)
+ if func_lalib_p "$lib"; then
+ library_names=
+ old_library=
+ func_source "$lib"
+ for l in $old_library $library_names; do
+ ll=$l
+ done
+ if test "X$ll" = "X$old_library"; then # only static version available
+ found=false
+ func_dirname "$lib" "" "."
+ ladir=$func_dirname_result
+ lib=$ladir/$old_library
+ if test prog,link = "$linkmode,$pass"; then
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ deplibs="$deplib $deplibs"
+ test lib = "$linkmode" && newdependency_libs="$deplib $newdependency_libs"
+ fi
+ continue
+ fi
+ fi
+ ;;
+ *) ;;
+ esac
+ fi
+ else
+ # deplib doesn't seem to be a libtool library
+ if test prog,link = "$linkmode,$pass"; then
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ deplibs="$deplib $deplibs"
+ test lib = "$linkmode" && newdependency_libs="$deplib $newdependency_libs"
+ fi
+ continue
+ fi
+ ;; # -l
+ *.ltframework)
+ if test prog,link = "$linkmode,$pass"; then
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ deplibs="$deplib $deplibs"
+ if test lib = "$linkmode"; then
+ case "$new_inherited_linker_flags " in
+ *" $deplib "*) ;;
+ * ) func_append new_inherited_linker_flags " $deplib" ;;
+ esac
+ fi
+ fi
+ continue
+ ;;
+ -L*)
+ case $linkmode in
+ lib)
+ deplibs="$deplib $deplibs"
+ test conv = "$pass" && continue
+ newdependency_libs="$deplib $newdependency_libs"
+ func_stripname '-L' '' "$deplib"
+ func_resolve_sysroot "$func_stripname_result"
+ func_append newlib_search_path " $func_resolve_sysroot_result"
+ ;;
+ prog)
+ if test conv = "$pass"; then
+ deplibs="$deplib $deplibs"
+ continue
+ fi
+ if test scan = "$pass"; then
+ deplibs="$deplib $deplibs"
+ else
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ fi
+ func_stripname '-L' '' "$deplib"
+ func_resolve_sysroot "$func_stripname_result"
+ func_append newlib_search_path " $func_resolve_sysroot_result"
+ ;;
+ *)
+ func_warning "'-L' is ignored for archives/objects"
+ ;;
+ esac # linkmode
+ continue
+ ;; # -L
+ -R*)
+ if test link = "$pass"; then
+ func_stripname '-R' '' "$deplib"
+ func_resolve_sysroot "$func_stripname_result"
+ dir=$func_resolve_sysroot_result
+ # Make sure the xrpath contains only unique directories.
+ case "$xrpath " in
+ *" $dir "*) ;;
+ *) func_append xrpath " $dir" ;;
+ esac
+ fi
+ deplibs="$deplib $deplibs"
+ continue
+ ;;
+ *.la)
+ func_resolve_sysroot "$deplib"
+ lib=$func_resolve_sysroot_result
+ ;;
+ *.$libext)
+ if test conv = "$pass"; then
+ deplibs="$deplib $deplibs"
+ continue
+ fi
+ case $linkmode in
+ lib)
+ # Linking convenience modules into shared libraries is allowed,
+ # but linking other static libraries is non-portable.
+ case " $dlpreconveniencelibs " in
+ *" $deplib "*) ;;
+ *)
+ valid_a_lib=false
+ case $deplibs_check_method in
+ match_pattern*)
+ set dummy $deplibs_check_method; shift
+ match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"`
+ if eval "\$ECHO \"$deplib\"" 2>/dev/null | $SED 10q \
+ | $EGREP "$match_pattern_regex" > /dev/null; then
+ valid_a_lib=:
+ fi
+ ;;
+ pass_all)
+ valid_a_lib=:
+ ;;
+ esac
+ if $valid_a_lib; then
+ echo
+ $ECHO "*** Warning: Linking the shared library $output against the"
+ $ECHO "*** static library $deplib is not portable!"
+ deplibs="$deplib $deplibs"
+ else
+ echo
+ $ECHO "*** Warning: Trying to link with static lib archive $deplib."
+ echo "*** I have the capability to make that library automatically link in when"
+ echo "*** you link to this library. But I can only do this if you have a"
+ echo "*** shared version of the library, which you do not appear to have"
+ echo "*** because the file extensions .$libext of this argument makes me believe"
+ echo "*** that it is just a static archive that I should not use here."
+ fi
+ ;;
+ esac
+ continue
+ ;;
+ prog)
+ if test link != "$pass"; then
+ deplibs="$deplib $deplibs"
+ else
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ fi
+ continue
+ ;;
+ esac # linkmode
+ ;; # *.$libext
+ *.lo | *.$objext)
+ if test conv = "$pass"; then
+ deplibs="$deplib $deplibs"
+ elif test prog = "$linkmode"; then
+ if test dlpreopen = "$pass" || test yes != "$dlopen_support" || test no = "$build_libtool_libs"; then
+ # If there is no dlopen support or we're linking statically,
+ # we need to preload.
+ func_append newdlprefiles " $deplib"
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ func_append newdlfiles " $deplib"
+ fi
+ fi
+ continue
+ ;;
+ %DEPLIBS%)
+ alldeplibs=:
+ continue
+ ;;
+ -Wl,--start-group|-Wl,--end-group|-Wl,-\(|-Wl,-\))
+ if test "$linkmode,$pass" = "prog,link"; then
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ deplibs="$deplib $deplibs"
+ fi
+ continue
+ ;;
+ esac # case $deplib
+
+ $found || test -f "$lib" \
+ || func_fatal_error "cannot find the library '$lib' or unhandled argument '$deplib'"
+
+ # Check to see that this really is a libtool archive.
+ func_lalib_unsafe_p "$lib" \
+ || func_fatal_error "'$lib' is not a valid libtool archive"
+
+ func_dirname "$lib" "" "."
+ ladir=$func_dirname_result
+
+ dlname=
+ dlopen=
+ dlpreopen=
+ libdir=
+ library_names=
+ old_library=
+ inherited_linker_flags=
+ # If the library was installed with an old release of libtool,
+ # it will not redefine variables installed, or shouldnotlink
+ installed=yes
+ shouldnotlink=no
+ avoidtemprpath=
+
+
+ # Read the .la file
+ func_source "$lib"
+
+ # Convert "-framework foo" to "foo.ltframework"
+ if test -n "$inherited_linker_flags"; then
+ tmp_inherited_linker_flags=`$ECHO "$inherited_linker_flags" | $SED 's/-framework \([^ $]*\)/\1.ltframework/g'`
+
+ # Additionally convert " -pthread" to " -Wl,-pthread" for nagfor
+ if test yes = "$with_nagfor" ; then
+ tmp_inherited_linker_flags=`$ECHO " $tmp_inherited_linker_flags " | $SED 's/ -pthread[[:blank:]]/ -Wl,-pthread /g'`
+ fi
+
+ for tmp_inherited_linker_flag in $tmp_inherited_linker_flags; do
+ case " $new_inherited_linker_flags " in
+ *" $tmp_inherited_linker_flag "*) ;;
+ *) func_append new_inherited_linker_flags " $tmp_inherited_linker_flag";;
+ esac
+ done
+ fi
+ dependency_libs=`$ECHO " $dependency_libs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
+ if test lib,link = "$linkmode,$pass" ||
+ test prog,scan = "$linkmode,$pass" ||
+ { test prog != "$linkmode" && test lib != "$linkmode"; }; then
+ test -n "$dlopen" && func_append dlfiles " $dlopen"
+ test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen"
+ fi
+
+ if test conv = "$pass"; then
+ # Only check for convenience libraries
+ deplibs="$lib $deplibs"
+ if test -z "$libdir"; then
+ if test -z "$old_library"; then
+ func_fatal_error "cannot find name of link library for '$lib'"
+ fi
+ # It is a libtool convenience library, so add in its objects.
+ func_append convenience " $ladir/$objdir/$old_library"
+ func_append old_convenience " $ladir/$objdir/$old_library"
+ elif test prog != "$linkmode" && test lib != "$linkmode"; then
+ func_fatal_error "'$lib' is not a convenience library"
+ fi
+ tmp_libs=
+ for deplib in $dependency_libs; do
+ deplibs="$deplib $deplibs"
+ if $opt_preserve_dup_deps; then
+ case "$tmp_libs " in
+ *" $deplib "*) func_append specialdeplibs " $deplib" ;;
+ esac
+ fi
+ func_append tmp_libs " $deplib"
+ done
+ continue
+ fi # $pass = conv
+
+
+ # Get the name of the library we link against.
+ linklib=
+ if test -n "$old_library" &&
+ { test yes = "$prefer_static_libs" ||
+ test built,no = "$prefer_static_libs,$installed"; }; then
+ linklib=$old_library
+ else
+ for l in $old_library $library_names; do
+ linklib=$l
+ done
+ fi
+ if test -z "$linklib"; then
+ func_fatal_error "cannot find name of link library for '$lib'"
+ fi
+
+ # This library was specified with -dlopen.
+ if test dlopen = "$pass"; then
+ test -z "$libdir" \
+ && func_fatal_error "cannot -dlopen a convenience library: '$lib'"
+ if test -z "$dlname" ||
+ test yes != "$dlopen_support" ||
+ test no = "$build_libtool_libs"
+ then
+ # If there is no dlname, no dlopen support or we're linking
+ # statically, we need to preload. We also need to preload any
+ # dependent libraries so libltdl's deplib preloader doesn't
+ # bomb out in the load deplibs phase.
+ func_append dlprefiles " $lib $dependency_libs"
+ else
+ func_append newdlfiles " $lib"
+ fi
+ continue
+ fi # $pass = dlopen
+
+ # We need an absolute path.
+ case $ladir in
+ [\\/]* | [A-Za-z]:[\\/]*) abs_ladir=$ladir ;;
+ *)
+ abs_ladir=`cd "$ladir" && pwd`
+ if test -z "$abs_ladir"; then
+ func_warning "cannot determine absolute directory name of '$ladir'"
+ func_warning "passing it literally to the linker, although it might fail"
+ abs_ladir=$ladir
+ fi
+ ;;
+ esac
+ func_basename "$lib"
+ laname=$func_basename_result
+
+ # Find the relevant object directory and library name.
+ if test yes = "$installed"; then
+ if test ! -f "$lt_sysroot$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then
+ func_warning "library '$lib' was moved."
+ dir=$ladir
+ absdir=$abs_ladir
+ libdir=$abs_ladir
+ else
+ dir=$lt_sysroot$libdir
+ absdir=$lt_sysroot$libdir
+ fi
+ test yes = "$hardcode_automatic" && avoidtemprpath=yes
+ else
+ if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then
+ dir=$ladir
+ absdir=$abs_ladir
+ # Remove this search path later
+ func_append notinst_path " $abs_ladir"
+ else
+ dir=$ladir/$objdir
+ absdir=$abs_ladir/$objdir
+ # Remove this search path later
+ func_append notinst_path " $abs_ladir"
+ fi
+ fi # $installed = yes
+ func_stripname 'lib' '.la' "$laname"
+ name=$func_stripname_result
+
+ # This library was specified with -dlpreopen.
+ if test dlpreopen = "$pass"; then
+ if test -z "$libdir" && test prog = "$linkmode"; then
+ func_fatal_error "only libraries may -dlpreopen a convenience library: '$lib'"
+ fi
+ case $host in
+ # special handling for platforms with PE-DLLs.
+ *cygwin* | *mingw* | *cegcc* )
+ # Linker will automatically link against shared library if both
+ # static and shared are present. Therefore, ensure we extract
+ # symbols from the import library if a shared library is present
+ # (otherwise, the dlopen module name will be incorrect). We do
+ # this by putting the import library name into $newdlprefiles.
+ # We recover the dlopen module name by 'saving' the la file
+ # name in a special purpose variable, and (later) extracting the
+ # dlname from the la file.
+ if test -n "$dlname"; then
+ func_tr_sh "$dir/$linklib"
+ eval "libfile_$func_tr_sh_result=\$abs_ladir/\$laname"
+ func_append newdlprefiles " $dir/$linklib"
+ else
+ func_append newdlprefiles " $dir/$old_library"
+ # Keep a list of preopened convenience libraries to check
+ # that they are being used correctly in the link pass.
+ test -z "$libdir" && \
+ func_append dlpreconveniencelibs " $dir/$old_library"
+ fi
+ ;;
+ * )
+ # Prefer using a static library (so that no silly _DYNAMIC symbols
+ # are required to link).
+ if test -n "$old_library"; then
+ func_append newdlprefiles " $dir/$old_library"
+ # Keep a list of preopened convenience libraries to check
+ # that they are being used correctly in the link pass.
+ test -z "$libdir" && \
+ func_append dlpreconveniencelibs " $dir/$old_library"
+ # Otherwise, use the dlname, so that lt_dlopen finds it.
+ elif test -n "$dlname"; then
+ func_append newdlprefiles " $dir/$dlname"
+ else
+ func_append newdlprefiles " $dir/$linklib"
+ fi
+ ;;
+ esac
+ fi # $pass = dlpreopen
+
+ if test -z "$libdir"; then
+ # Link the convenience library
+ if test lib = "$linkmode"; then
+ deplibs="$dir/$old_library $deplibs"
+ elif test prog,link = "$linkmode,$pass"; then
+ compile_deplibs="$dir/$old_library $compile_deplibs"
+ finalize_deplibs="$dir/$old_library $finalize_deplibs"
+ else
+ deplibs="$lib $deplibs" # used for prog,scan pass
+ fi
+ continue
+ fi
+
+
+ if test prog = "$linkmode" && test link != "$pass"; then
+ func_append newlib_search_path " $ladir"
+ deplibs="$lib $deplibs"
+
+ linkalldeplibs=false
+ if test no != "$link_all_deplibs" || test -z "$library_names" ||
+ test no = "$build_libtool_libs"; then
+ linkalldeplibs=:
+ fi
+
+ tmp_libs=
+ for deplib in $dependency_libs; do
+ case $deplib in
+ -L*) func_stripname '-L' '' "$deplib"
+ func_resolve_sysroot "$func_stripname_result"
+ func_append newlib_search_path " $func_resolve_sysroot_result"
+ ;;
+ esac
+ # Need to link against all dependency_libs?
+ if $linkalldeplibs; then
+ deplibs="$deplib $deplibs"
+ else
+ # Need to hardcode shared library paths
+ # or/and link against static libraries
+ newdependency_libs="$deplib $newdependency_libs"
+ fi
+ if $opt_preserve_dup_deps; then
+ case "$tmp_libs " in
+ *" $deplib "*) func_append specialdeplibs " $deplib" ;;
+ esac
+ fi
+ func_append tmp_libs " $deplib"
+ done # for deplib
+ continue
+ fi # $linkmode = prog...
+
+ if test prog,link = "$linkmode,$pass"; then
+ if test -n "$library_names" &&
+ { { test no = "$prefer_static_libs" ||
+ test built,yes = "$prefer_static_libs,$installed"; } ||
+ test -z "$old_library"; }; then
+ # We need to hardcode the library path
+ if test -n "$shlibpath_var" && test -z "$avoidtemprpath"; then
+ # Make sure the rpath contains only unique directories.
+ case $temp_rpath: in
+ *"$absdir:"*) ;;
+ *) func_append temp_rpath "$absdir:" ;;
+ esac
+ fi
+
+ # Hardcode the library path.
+ # Skip directories that are in the system default run-time
+ # search path.
+ case " $sys_lib_dlsearch_path " in
+ *" $absdir "*) ;;
+ *)
+ case "$compile_rpath " in
+ *" $absdir "*) ;;
+ *) func_append compile_rpath " $absdir" ;;
+ esac
+ ;;
+ esac
+ case " $sys_lib_dlsearch_path " in
+ *" $libdir "*) ;;
+ *)
+ case "$finalize_rpath " in
+ *" $libdir "*) ;;
+ *) func_append finalize_rpath " $libdir" ;;
+ esac
+ ;;
+ esac
+ fi # $linkmode,$pass = prog,link...
+
+ if $alldeplibs &&
+ { test pass_all = "$deplibs_check_method" ||
+ { test yes = "$build_libtool_libs" &&
+ test -n "$library_names"; }; }; then
+ # We only need to search for static libraries
+ continue
+ fi
+ fi
+
+ link_static=no # Whether the deplib will be linked statically
+ use_static_libs=$prefer_static_libs
+ if test built = "$use_static_libs" && test yes = "$installed"; then
+ use_static_libs=no
+ fi
+ if test -n "$library_names" &&
+ { test no = "$use_static_libs" || test -z "$old_library"; }; then
+ case $host in
+ *cygwin* | *mingw* | *cegcc* | *os2*)
+ # No point in relinking DLLs because paths are not encoded
+ func_append notinst_deplibs " $lib"
+ need_relink=no
+ ;;
+ *)
+ if test no = "$installed"; then
+ func_append notinst_deplibs " $lib"
+ need_relink=yes
+ fi
+ ;;
+ esac
+ # This is a shared library
+
+ # Warn about portability, can't link against -module's on some
+ # systems (darwin). Don't bleat about dlopened modules though!
+ dlopenmodule=
+ for dlpremoduletest in $dlprefiles; do
+ if test "X$dlpremoduletest" = "X$lib"; then
+ dlopenmodule=$dlpremoduletest
+ break
+ fi
+ done
+ if test -z "$dlopenmodule" && test yes = "$shouldnotlink" && test link = "$pass"; then
+ echo
+ if test prog = "$linkmode"; then
+ $ECHO "*** Warning: Linking the executable $output against the loadable module"
+ else
+ $ECHO "*** Warning: Linking the shared library $output against the loadable module"
+ fi
+ $ECHO "*** $linklib is not portable!"
+ fi
+ if test lib = "$linkmode" &&
+ test yes = "$hardcode_into_libs"; then
+ # Hardcode the library path.
+ # Skip directories that are in the system default run-time
+ # search path.
+ case " $sys_lib_dlsearch_path " in
+ *" $absdir "*) ;;
+ *)
+ case "$compile_rpath " in
+ *" $absdir "*) ;;
+ *) func_append compile_rpath " $absdir" ;;
+ esac
+ ;;
+ esac
+ case " $sys_lib_dlsearch_path " in
+ *" $libdir "*) ;;
+ *)
+ case "$finalize_rpath " in
+ *" $libdir "*) ;;
+ *) func_append finalize_rpath " $libdir" ;;
+ esac
+ ;;
+ esac
+ fi
+
+ if test -n "$old_archive_from_expsyms_cmds"; then
+ # figure out the soname
+ set dummy $library_names
+ shift
+ realname=$1
+ shift
+ libname=`eval "\\$ECHO \"$libname_spec\""`
+ # use dlname if we got it. it's perfectly good, no?
+ if test -n "$dlname"; then
+ soname=$dlname
+ elif test -n "$soname_spec"; then
+ # bleh windows
+ case $host in
+ *cygwin* | mingw* | *cegcc* | *os2*)
+ func_arith $current - $age
+ major=$func_arith_result
+ versuffix=-$major
+ ;;
+ esac
+ eval soname=\"$soname_spec\"
+ else
+ soname=$realname
+ fi
+
+ # Make a new name for the extract_expsyms_cmds to use
+ soroot=$soname
+ func_basename "$soroot"
+ soname=$func_basename_result
+ func_stripname 'lib' '.dll' "$soname"
+ newlib=libimp-$func_stripname_result.a
+
+ # If the library has no export list, then create one now
+ if test -f "$output_objdir/$soname-def"; then :
+ else
+ func_verbose "extracting exported symbol list from '$soname'"
+ func_execute_cmds "$extract_expsyms_cmds" 'exit $?'
+ fi
+
+ # Create $newlib
+ if test -f "$output_objdir/$newlib"; then :; else
+ func_verbose "generating import library for '$soname'"
+ func_execute_cmds "$old_archive_from_expsyms_cmds" 'exit $?'
+ fi
+ # make sure the library variables are pointing to the new library
+ dir=$output_objdir
+ linklib=$newlib
+ fi # test -n "$old_archive_from_expsyms_cmds"
+
+ if test prog = "$linkmode" || test relink != "$opt_mode"; then
+ add_shlibpath=
+ add_dir=
+ add=
+ lib_linked=yes
+ case $hardcode_action in
+ immediate | unsupported)
+ if test no = "$hardcode_direct"; then
+ add=$dir/$linklib
+ case $host in
+ *-*-sco3.2v5.0.[024]*) add_dir=-L$dir ;;
+ *-*-sysv4*uw2*) add_dir=-L$dir ;;
+ *-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \
+ *-*-unixware7*) add_dir=-L$dir ;;
+ *-*-darwin* )
+ # if the lib is a (non-dlopened) module then we cannot
+ # link against it, someone is ignoring the earlier warnings
+ if /usr/bin/file -L $add 2> /dev/null |
+ $GREP ": [^:]* bundle" >/dev/null; then
+ if test "X$dlopenmodule" != "X$lib"; then
+ $ECHO "*** Warning: lib $linklib is a module, not a shared library"
+ if test -z "$old_library"; then
+ echo
+ echo "*** And there doesn't seem to be a static archive available"
+ echo "*** The link will probably fail, sorry"
+ else
+ add=$dir/$old_library
+ fi
+ elif test -n "$old_library"; then
+ add=$dir/$old_library
+ fi
+ fi
+ esac
+ elif test no = "$hardcode_minus_L"; then
+ case $host in
+ *-*-sunos*) add_shlibpath=$dir ;;
+ esac
+ add_dir=-L$dir
+ add=-l$name
+ elif test no = "$hardcode_shlibpath_var"; then
+ add_shlibpath=$dir
+ add=-l$name
+ else
+ lib_linked=no
+ fi
+ ;;
+ relink)
+ if test yes = "$hardcode_direct" &&
+ test no = "$hardcode_direct_absolute"; then
+ add=$dir/$linklib
+ elif test yes = "$hardcode_minus_L"; then
+ add_dir=-L$absdir
+ # Try looking first in the location we're being installed to.
+ if test -n "$inst_prefix_dir"; then
+ case $libdir in
+ [\\/]*)
+ func_append add_dir " -L$inst_prefix_dir$libdir"
+ ;;
+ esac
+ fi
+ add=-l$name
+ elif test yes = "$hardcode_shlibpath_var"; then
+ add_shlibpath=$dir
+ add=-l$name
+ else
+ lib_linked=no
+ fi
+ ;;
+ *) lib_linked=no ;;
+ esac
+
+ if test yes != "$lib_linked"; then
+ func_fatal_configuration "unsupported hardcode properties"
+ fi
+
+ if test -n "$add_shlibpath"; then
+ case :$compile_shlibpath: in
+ *":$add_shlibpath:"*) ;;
+ *) func_append compile_shlibpath "$add_shlibpath:" ;;
+ esac
+ fi
+ if test prog = "$linkmode"; then
+ test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs"
+ test -n "$add" && compile_deplibs="$add $compile_deplibs"
+ else
+ test -n "$add_dir" && deplibs="$add_dir $deplibs"
+ test -n "$add" && deplibs="$add $deplibs"
+ if test yes != "$hardcode_direct" &&
+ test yes != "$hardcode_minus_L" &&
+ test yes = "$hardcode_shlibpath_var"; then
+ case :$finalize_shlibpath: in
+ *":$libdir:"*) ;;
+ *) func_append finalize_shlibpath "$libdir:" ;;
+ esac
+ fi
+ fi
+ fi
+
+ if test prog = "$linkmode" || test relink = "$opt_mode"; then
+ add_shlibpath=
+ add_dir=
+ add=
+ # Finalize command for both is simple: just hardcode it.
+ if test yes = "$hardcode_direct" &&
+ test no = "$hardcode_direct_absolute"; then
+ add=$libdir/$linklib
+ elif test yes = "$hardcode_minus_L"; then
+ add_dir=-L$libdir
+ add=-l$name
+ elif test yes = "$hardcode_shlibpath_var"; then
+ case :$finalize_shlibpath: in
+ *":$libdir:"*) ;;
+ *) func_append finalize_shlibpath "$libdir:" ;;
+ esac
+ add=-l$name
+ elif test yes = "$hardcode_automatic"; then
+ if test -n "$inst_prefix_dir" &&
+ test -f "$inst_prefix_dir$libdir/$linklib"; then
+ add=$inst_prefix_dir$libdir/$linklib
+ else
+ add=$libdir/$linklib
+ fi
+ else
+ # We cannot seem to hardcode it, guess we'll fake it.
+ add_dir=-L$libdir
+ # Try looking first in the location we're being installed to.
+ if test -n "$inst_prefix_dir"; then
+ case $libdir in
+ [\\/]*)
+ func_append add_dir " -L$inst_prefix_dir$libdir"
+ ;;
+ esac
+ fi
+ add=-l$name
+ fi
+
+ if test prog = "$linkmode"; then
+ test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs"
+ test -n "$add" && finalize_deplibs="$add $finalize_deplibs"
+ else
+ test -n "$add_dir" && deplibs="$add_dir $deplibs"
+ test -n "$add" && deplibs="$add $deplibs"
+ fi
+ fi
+ elif test prog = "$linkmode"; then
+ # Here we assume that one of hardcode_direct or hardcode_minus_L
+ # is not unsupported. This is valid on all known static and
+ # shared platforms.
+ if test unsupported != "$hardcode_direct"; then
+ test -n "$old_library" && linklib=$old_library
+ compile_deplibs="$dir/$linklib $compile_deplibs"
+ finalize_deplibs="$dir/$linklib $finalize_deplibs"
+ else
+ compile_deplibs="-l$name -L$dir $compile_deplibs"
+ finalize_deplibs="-l$name -L$dir $finalize_deplibs"
+ fi
+ elif test yes = "$build_libtool_libs"; then
+ # Not a shared library
+ if test pass_all != "$deplibs_check_method"; then
+ # We're trying link a shared library against a static one
+ # but the system doesn't support it.
+
+ # Just print a warning and add the library to dependency_libs so
+ # that the program can be linked against the static library.
+ echo
+ $ECHO "*** Warning: This system cannot link to static lib archive $lib."
+ echo "*** I have the capability to make that library automatically link in when"
+ echo "*** you link to this library. But I can only do this if you have a"
+ echo "*** shared version of the library, which you do not appear to have."
+ if test yes = "$module"; then
+ echo "*** But as you try to build a module library, libtool will still create "
+ echo "*** a static module, that should work as long as the dlopening application"
+ echo "*** is linked with the -dlopen flag to resolve symbols at runtime."
+ if test -z "$global_symbol_pipe"; then
+ echo
+ echo "*** However, this would only work if libtool was able to extract symbol"
+ echo "*** lists from a program, using 'nm' or equivalent, but libtool could"
+ echo "*** not find such a program. So, this module is probably useless."
+ echo "*** 'nm' from GNU binutils and a full rebuild may help."
+ fi
+ if test no = "$build_old_libs"; then
+ build_libtool_libs=module
+ build_old_libs=yes
+ else
+ build_libtool_libs=no
+ fi
+ fi
+ else
+ deplibs="$dir/$old_library $deplibs"
+ link_static=yes
+ fi
+ fi # link shared/static library?
+
+ if test lib = "$linkmode"; then
+ if test -n "$dependency_libs" &&
+ { test yes != "$hardcode_into_libs" ||
+ test yes = "$build_old_libs" ||
+ test yes = "$link_static"; }; then
+ # Extract -R from dependency_libs
+ temp_deplibs=
+ for libdir in $dependency_libs; do
+ case $libdir in
+ -R*) func_stripname '-R' '' "$libdir"
+ temp_xrpath=$func_stripname_result
+ case " $xrpath " in
+ *" $temp_xrpath "*) ;;
+ *) func_append xrpath " $temp_xrpath";;
+ esac;;
+ *) func_append temp_deplibs " $libdir";;
+ esac
+ done
+ dependency_libs=$temp_deplibs
+ fi
+
+ func_append newlib_search_path " $absdir"
+ # Link against this library
+ test no = "$link_static" && newdependency_libs="$abs_ladir/$laname $newdependency_libs"
+ # ... and its dependency_libs
+ tmp_libs=
+ for deplib in $dependency_libs; do
+ newdependency_libs="$deplib $newdependency_libs"
+ case $deplib in
+ -L*) func_stripname '-L' '' "$deplib"
+ func_resolve_sysroot "$func_stripname_result";;
+ *) func_resolve_sysroot "$deplib" ;;
+ esac
+ if $opt_preserve_dup_deps; then
+ case "$tmp_libs " in
+ *" $func_resolve_sysroot_result "*)
+ func_append specialdeplibs " $func_resolve_sysroot_result" ;;
+ esac
+ fi
+ func_append tmp_libs " $func_resolve_sysroot_result"
+ done
+
+ if test no != "$link_all_deplibs"; then
+ # Add the search paths of all dependency libraries
+ for deplib in $dependency_libs; do
+ path=
+ case $deplib in
+ -L*) path=$deplib ;;
+ *.la)
+ func_resolve_sysroot "$deplib"
+ deplib=$func_resolve_sysroot_result
+ func_dirname "$deplib" "" "."
+ dir=$func_dirname_result
+ # We need an absolute path.
+ case $dir in
+ [\\/]* | [A-Za-z]:[\\/]*) absdir=$dir ;;
+ *)
+ absdir=`cd "$dir" && pwd`
+ if test -z "$absdir"; then
+ func_warning "cannot determine absolute directory name of '$dir'"
+ absdir=$dir
+ fi
+ ;;
+ esac
+ if $GREP "^installed=no" $deplib > /dev/null; then
+ case $host in
+ *-*-darwin*)
+ depdepl=
+ eval deplibrary_names=`$SED -n -e 's/^library_names=\(.*\)$/\1/p' $deplib`
+ if test -n "$deplibrary_names"; then
+ for tmp in $deplibrary_names; do
+ depdepl=$tmp
+ done
+ if test -f "$absdir/$objdir/$depdepl"; then
+ depdepl=$absdir/$objdir/$depdepl
+ darwin_install_name=`$OTOOL -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'`
+ if test -z "$darwin_install_name"; then
+ darwin_install_name=`$OTOOL64 -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'`
+ fi
+ func_append compiler_flags " $wl-dylib_file $wl$darwin_install_name:$depdepl"
+ func_append linker_flags " -dylib_file $darwin_install_name:$depdepl"
+ path=
+ fi
+ fi
+ ;;
+ *)
+ path=-L$absdir/$objdir
+ ;;
+ esac
+ else
+ eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $deplib`
+ test -z "$libdir" && \
+ func_fatal_error "'$deplib' is not a valid libtool archive"
+ test "$absdir" != "$libdir" && \
+ func_warning "'$deplib' seems to be moved"
+
+ path=-L$absdir
+ fi
+ ;;
+ esac
+ case " $deplibs " in
+ *" $path "*) ;;
+ *) deplibs="$path $deplibs" ;;
+ esac
+ done
+ fi # link_all_deplibs != no
+ fi # linkmode = lib
+ done # for deplib in $libs
+ if test link = "$pass"; then
+ if test prog = "$linkmode"; then
+ compile_deplibs="$new_inherited_linker_flags $compile_deplibs"
+ finalize_deplibs="$new_inherited_linker_flags $finalize_deplibs"
+ else
+ compiler_flags="$compiler_flags "`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
+ fi
+ fi
+ dependency_libs=$newdependency_libs
+ if test dlpreopen = "$pass"; then
+ # Link the dlpreopened libraries before other libraries
+ for deplib in $save_deplibs; do
+ deplibs="$deplib $deplibs"
+ done
+ fi
+ if test dlopen != "$pass"; then
+ test conv = "$pass" || {
+ # Make sure lib_search_path contains only unique directories.
+ lib_search_path=
+ for dir in $newlib_search_path; do
+ case "$lib_search_path " in
+ *" $dir "*) ;;
+ *) func_append lib_search_path " $dir" ;;
+ esac
+ done
+ newlib_search_path=
+ }
+
+ if test prog,link = "$linkmode,$pass"; then
+ vars="compile_deplibs finalize_deplibs"
+ else
+ vars=deplibs
+ fi
+ for var in $vars dependency_libs; do
+ # Add libraries to $var in reverse order
+ eval tmp_libs=\"\$$var\"
+ new_libs=
+ for deplib in $tmp_libs; do
+ # FIXME: Pedantically, this is the right thing to do, so
+ # that some nasty dependency loop isn't accidentally
+ # broken:
+ #new_libs="$deplib $new_libs"
+ # Pragmatically, this seems to cause very few problems in
+ # practice:
+ case $deplib in
+ -L*) new_libs="$deplib $new_libs" ;;
+ -R*)
+ func_stripname '-R' '' "$deplib"
+ func_add2xrpath "$func_stripname_result"
+ ;;
+ *)
+ # And here is the reason: when a library appears more
+ # than once as an explicit dependence of a library, or
+ # is implicitly linked in more than once by the
+ # compiler, it is considered special, and multiple
+ # occurrences thereof are not removed. Compare this
+ # with having the same library being listed as a
+ # dependency of multiple other libraries: in this case,
+ # we know (pedantically, we assume) the library does not
+ # need to be listed more than once, so we keep only the
+ # last copy. This is not always right, but it is rare
+ # enough that we require users that really mean to play
+ # such unportable linking tricks to link the library
+ # using -Wl,-lname, so that libtool does not consider it
+ # for duplicate removal.
+ case " $specialdeplibs " in
+ *" $deplib "*) new_libs="$deplib $new_libs" ;;
+ *)
+ case " $new_libs " in
+ *" $deplib "*) ;;
+ *) new_libs="$deplib $new_libs" ;;
+ esac
+ ;;
+ esac
+ ;;
+ esac
+ done
+ tmp_libs=
+ for deplib in $new_libs; do
+ case $deplib in
+ -L*)
+ case " $tmp_libs " in
+ *" $deplib "*) ;;
+ *) func_append tmp_libs " $deplib" ;;
+ esac
+ ;;
+ *) func_append tmp_libs " $deplib" ;;
+ esac
+ done
+ eval $var=\"$tmp_libs\"
+ done # for var
+ fi
+
+ # Add Sun CC postdeps if required:
+ test CXX = "$tagname" && {
+ case $host_os in
+ linux*)
+ case `$CC -V 2>&1 | sed 5q` in
+ *Sun\ C*) # Sun C++ 5.9
+ func_suncc_cstd_abi
+
+ if test no != "$suncc_use_cstd_abi"; then
+ func_append postdeps ' -library=Cstd -library=Crun'
+ fi
+ ;;
+ esac
+ ;;
+
+ solaris*)
+ func_cc_basename "$CC"
+ case $func_cc_basename_result in
+ CC* | sunCC*)
+ func_suncc_cstd_abi
+
+ if test no != "$suncc_use_cstd_abi"; then
+ func_append postdeps ' -library=Cstd -library=Crun'
+ fi
+ ;;
+ esac
+ ;;
+ esac
+ }
+
+ # Last step: remove runtime libs from dependency_libs
+ # (they stay in deplibs)
+ tmp_libs=
+ for i in $dependency_libs; do
+ case " $predeps $postdeps $compiler_lib_search_path " in
+ *" $i "*)
+ i=
+ ;;
+ esac
+ if test -n "$i"; then
+ func_append tmp_libs " $i"
+ fi
+ done
+ dependency_libs=$tmp_libs
+ done # for pass
+ if test prog = "$linkmode"; then
+ dlfiles=$newdlfiles
+ fi
+ if test prog = "$linkmode" || test lib = "$linkmode"; then
+ dlprefiles=$newdlprefiles
+ fi
+
+ case $linkmode in
+ oldlib)
+ if test -n "$dlfiles$dlprefiles" || test no != "$dlself"; then
+ func_warning "'-dlopen' is ignored for archives"
+ fi
+
+ case " $deplibs" in
+ *\ -l* | *\ -L*)
+ func_warning "'-l' and '-L' are ignored for archives" ;;
+ esac
+
+ test -n "$rpath" && \
+ func_warning "'-rpath' is ignored for archives"
+
+ test -n "$xrpath" && \
+ func_warning "'-R' is ignored for archives"
+
+ test -n "$vinfo" && \
+ func_warning "'-version-info/-version-number' is ignored for archives"
+
+ test -n "$release" && \
+ func_warning "'-release' is ignored for archives"
+
+ test -n "$export_symbols$export_symbols_regex" && \
+ func_warning "'-export-symbols' is ignored for archives"
+
+ # Now set the variables for building old libraries.
+ build_libtool_libs=no
+ oldlibs=$output
+ func_append objs "$old_deplibs"
+ ;;
+
+ lib)
+ # Make sure we only generate libraries of the form 'libNAME.la'.
+ case $outputname in
+ lib*)
+ func_stripname 'lib' '.la' "$outputname"
+ name=$func_stripname_result
+ eval shared_ext=\"$shrext_cmds\"
+ eval libname=\"$libname_spec\"
+ ;;
+ *)
+ test no = "$module" \
+ && func_fatal_help "libtool library '$output' must begin with 'lib'"
+
+ if test no != "$need_lib_prefix"; then
+ # Add the "lib" prefix for modules if required
+ func_stripname '' '.la' "$outputname"
+ name=$func_stripname_result
+ eval shared_ext=\"$shrext_cmds\"
+ eval libname=\"$libname_spec\"
+ else
+ func_stripname '' '.la' "$outputname"
+ libname=$func_stripname_result
+ fi
+ ;;
+ esac
+
+ if test -n "$objs"; then
+ if test pass_all != "$deplibs_check_method"; then
+ func_fatal_error "cannot build libtool library '$output' from non-libtool objects on this host:$objs"
+ else
+ echo
+ $ECHO "*** Warning: Linking the shared library $output against the non-libtool"
+ $ECHO "*** objects $objs is not portable!"
+ func_append libobjs " $objs"
+ fi
+ fi
+
+ test no = "$dlself" \
+ || func_warning "'-dlopen self' is ignored for libtool libraries"
+
+ set dummy $rpath
+ shift
+ test 1 -lt "$#" \
+ && func_warning "ignoring multiple '-rpath's for a libtool library"
+
+ install_libdir=$1
+
+ oldlibs=
+ if test -z "$rpath"; then
+ if test yes = "$build_libtool_libs"; then
+ # Building a libtool convenience library.
+ # Some compilers have problems with a '.al' extension so
+ # convenience libraries should have the same extension an
+ # archive normally would.
+ oldlibs="$output_objdir/$libname.$libext $oldlibs"
+ build_libtool_libs=convenience
+ build_old_libs=yes
+ fi
+
+ test -n "$vinfo" && \
+ func_warning "'-version-info/-version-number' is ignored for convenience libraries"
+
+ test -n "$release" && \
+ func_warning "'-release' is ignored for convenience libraries"
+ else
+
+ # Parse the version information argument.
+ save_ifs=$IFS; IFS=:
+ set dummy $vinfo 0 0 0
+ shift
+ IFS=$save_ifs
+
+ test -n "$7" && \
+ func_fatal_help "too many parameters to '-version-info'"
+
+ # convert absolute version numbers to libtool ages
+ # this retains compatibility with .la files and attempts
+ # to make the code below a bit more comprehensible
+
+ case $vinfo_number in
+ yes)
+ number_major=$1
+ number_minor=$2
+ number_revision=$3
+ #
+ # There are really only two kinds -- those that
+ # use the current revision as the major version
+ # and those that subtract age and use age as
+ # a minor version. But, then there is irix
+ # that has an extra 1 added just for fun
+ #
+ case $version_type in
+ # correct linux to gnu/linux during the next big refactor
+ darwin|freebsd-elf|linux|osf|windows|none)
+ func_arith $number_major + $number_minor
+ current=$func_arith_result
+ age=$number_minor
+ revision=$number_revision
+ ;;
+ freebsd-aout|qnx|sunos)
+ current=$number_major
+ revision=$number_minor
+ age=0
+ ;;
+ irix|nonstopux)
+ func_arith $number_major + $number_minor
+ current=$func_arith_result
+ age=$number_minor
+ revision=$number_minor
+ lt_irix_increment=no
+ ;;
+ esac
+ ;;
+ no)
+ current=$1
+ revision=$2
+ age=$3
+ ;;
+ esac
+
+ # Check that each of the things are valid numbers.
+ case $current in
+ 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;;
+ *)
+ func_error "CURRENT '$current' must be a nonnegative integer"
+ func_fatal_error "'$vinfo' is not valid version information"
+ ;;
+ esac
+
+ case $revision in
+ 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;;
+ *)
+ func_error "REVISION '$revision' must be a nonnegative integer"
+ func_fatal_error "'$vinfo' is not valid version information"
+ ;;
+ esac
+
+ case $age in
+ 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;;
+ *)
+ func_error "AGE '$age' must be a nonnegative integer"
+ func_fatal_error "'$vinfo' is not valid version information"
+ ;;
+ esac
+
+ if test "$age" -gt "$current"; then
+ func_error "AGE '$age' is greater than the current interface number '$current'"
+ func_fatal_error "'$vinfo' is not valid version information"
+ fi
+
+ # Calculate the version variables.
+ major=
+ versuffix=
+ verstring=
+ case $version_type in
+ none) ;;
+
+ darwin)
+ # Like Linux, but with the current version available in
+ # verstring for coding it into the library header
+ func_arith $current - $age
+ major=.$func_arith_result
+ versuffix=$major.$age.$revision
+ # Darwin ld doesn't like 0 for these options...
+ func_arith $current + 1
+ minor_current=$func_arith_result
+ xlcverstring="$wl-compatibility_version $wl$minor_current $wl-current_version $wl$minor_current.$revision"
+ verstring="-compatibility_version $minor_current -current_version $minor_current.$revision"
+ # On Darwin other compilers
+ case $with_nagfor in
+ yes)
+ verstring="$wl-compatibility_version $wl$minor_current $wl-current_version $wl$minor_current.$revision"
+ ;;
+ *)
+ verstring="-compatibility_version $minor_current -current_version $minor_current.$revision"
+ ;;
+ esac
+ ;;
+
+ freebsd-aout)
+ major=.$current
+ versuffix=.$current.$revision
+ ;;
+
+ freebsd-elf)
+ func_arith $current - $age
+ major=.$func_arith_result
+ versuffix=$major.$age.$revision
+ ;;
+
+ irix | nonstopux)
+ if test no = "$lt_irix_increment"; then
+ func_arith $current - $age
+ else
+ func_arith $current - $age + 1
+ fi
+ major=$func_arith_result
+
+ case $version_type in
+ nonstopux) verstring_prefix=nonstopux ;;
+ *) verstring_prefix=sgi ;;
+ esac
+ verstring=$verstring_prefix$major.$revision
+
+ # Add in all the interfaces that we are compatible with.
+ loop=$revision
+ while test 0 -ne "$loop"; do
+ func_arith $revision - $loop
+ iface=$func_arith_result
+ func_arith $loop - 1
+ loop=$func_arith_result
+ verstring=$verstring_prefix$major.$iface:$verstring
+ done
+
+ # Before this point, $major must not contain '.'.
+ major=.$major
+ versuffix=$major.$revision
+ ;;
+
+ linux) # correct to gnu/linux during the next big refactor
+ func_arith $current - $age
+ major=.$func_arith_result
+ versuffix=$major.$age.$revision
+ ;;
+
+ osf)
+ func_arith $current - $age
+ major=.$func_arith_result
+ versuffix=.$current.$age.$revision
+ verstring=$current.$age.$revision
+
+ # Add in all the interfaces that we are compatible with.
+ loop=$age
+ while test 0 -ne "$loop"; do
+ func_arith $current - $loop
+ iface=$func_arith_result
+ func_arith $loop - 1
+ loop=$func_arith_result
+ verstring=$verstring:$iface.0
+ done
+
+ # Make executables depend on our current version.
+ func_append verstring ":$current.0"
+ ;;
+
+ qnx)
+ major=.$current
+ versuffix=.$current
+ ;;
+
+ sco)
+ major=.$current
+ versuffix=.$current
+ ;;
+
+ sunos)
+ major=.$current
+ versuffix=.$current.$revision
+ ;;
+
+ windows)
+ # Use '-' rather than '.', since we only want one
+ # extension on DOS 8.3 file systems.
+ func_arith $current - $age
+ major=$func_arith_result
+ versuffix=-$major
+ ;;
+
+ *)
+ func_fatal_configuration "unknown library version type '$version_type'"
+ ;;
+ esac
+
+ # Clear the version info if we defaulted, and they specified a release.
+ if test -z "$vinfo" && test -n "$release"; then
+ major=
+ case $version_type in
+ darwin)
+ # we can't check for "0.0" in archive_cmds due to quoting
+ # problems, so we reset it completely
+ verstring=
+ ;;
+ *)
+ verstring=0.0
+ ;;
+ esac
+ if test no = "$need_version"; then
+ versuffix=
+ else
+ versuffix=.0.0
+ fi
+ fi
+
+ # Remove version info from name if versioning should be avoided
+ if test yes,no = "$avoid_version,$need_version"; then
+ major=
+ versuffix=
+ verstring=
+ fi
+
+ # Check to see if the archive will have undefined symbols.
+ if test yes = "$allow_undefined"; then
+ if test unsupported = "$allow_undefined_flag"; then
+ if test yes = "$build_old_libs"; then
+ func_warning "undefined symbols not allowed in $host shared libraries; building static only"
+ build_libtool_libs=no
+ else
+ func_fatal_error "can't build $host shared library unless -no-undefined is specified"
+ fi
+ fi
+ else
+ # Don't allow undefined symbols.
+ allow_undefined_flag=$no_undefined_flag
+ fi
+
+ fi
+
+ func_generate_dlsyms "$libname" "$libname" :
+ func_append libobjs " $symfileobj"
+ test " " = "$libobjs" && libobjs=
+
+ if test relink != "$opt_mode"; then
+ # Remove our outputs, but don't remove object files since they
+ # may have been created when compiling PIC objects.
+ removelist=
+ tempremovelist=`$ECHO "$output_objdir/*"`
+ for p in $tempremovelist; do
+ case $p in
+ *.$objext | *.gcno)
+ ;;
+ $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/$libname$release.*)
+ if test -n "$precious_files_regex"; then
+ if $ECHO "$p" | $EGREP -e "$precious_files_regex" >/dev/null 2>&1
+ then
+ continue
+ fi
+ fi
+ func_append removelist " $p"
+ ;;
+ *) ;;
+ esac
+ done
+ test -n "$removelist" && \
+ func_show_eval "${RM}r \$removelist"
+ fi
+
+ # Now set the variables for building old libraries.
+ if test yes = "$build_old_libs" && test convenience != "$build_libtool_libs"; then
+ func_append oldlibs " $output_objdir/$libname.$libext"
+
+ # Transform .lo files to .o files.
+ oldobjs="$objs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.$libext$/d; $lo2o" | $NL2SP`
+ fi
+
+ # Eliminate all temporary directories.
+ #for path in $notinst_path; do
+ # lib_search_path=`$ECHO "$lib_search_path " | $SED "s% $path % %g"`
+ # deplibs=`$ECHO "$deplibs " | $SED "s% -L$path % %g"`
+ # dependency_libs=`$ECHO "$dependency_libs " | $SED "s% -L$path % %g"`
+ #done
+
+ if test -n "$xrpath"; then
+ # If the user specified any rpath flags, then add them.
+ temp_xrpath=
+ for libdir in $xrpath; do
+ func_replace_sysroot "$libdir"
+ func_append temp_xrpath " -R$func_replace_sysroot_result"
+ case "$finalize_rpath " in
+ *" $libdir "*) ;;
+ *) func_append finalize_rpath " $libdir" ;;
+ esac
+ done
+ if test yes != "$hardcode_into_libs" || test yes = "$build_old_libs"; then
+ dependency_libs="$temp_xrpath $dependency_libs"
+ fi
+ fi
+
+ # Make sure dlfiles contains only unique files that won't be dlpreopened
+ old_dlfiles=$dlfiles
+ dlfiles=
+ for lib in $old_dlfiles; do
+ case " $dlprefiles $dlfiles " in
+ *" $lib "*) ;;
+ *) func_append dlfiles " $lib" ;;
+ esac
+ done
+
+ # Make sure dlprefiles contains only unique files
+ old_dlprefiles=$dlprefiles
+ dlprefiles=
+ for lib in $old_dlprefiles; do
+ case "$dlprefiles " in
+ *" $lib "*) ;;
+ *) func_append dlprefiles " $lib" ;;
+ esac
+ done
+
+ if test yes = "$build_libtool_libs"; then
+ if test -n "$rpath"; then
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos* | *-cegcc* | *-*-haiku*)
+ # these systems don't actually have a c library (as such)!
+ ;;
+ *-*-rhapsody* | *-*-darwin1.[012])
+ # Rhapsody C library is in the System framework
+ func_append deplibs " System.ltframework"
+ ;;
+ *-*-netbsd*)
+ # Don't link with libc until the a.out ld.so is fixed.
+ ;;
+ *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*)
+ # Do not include libc due to us having libc/libc_r.
+ ;;
+ *-*-sco3.2v5* | *-*-sco5v6*)
+ # Causes problems with __ctype
+ ;;
+ *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*)
+ # Compiler inserts libc in the correct place for threads to work
+ ;;
+ *)
+ # Add libc to deplibs on all other systems if necessary.
+ if test yes = "$build_libtool_need_lc"; then
+ func_append deplibs " -lc"
+ fi
+ ;;
+ esac
+ fi
+
+ # Transform deplibs into only deplibs that can be linked in shared.
+ name_save=$name
+ libname_save=$libname
+ release_save=$release
+ versuffix_save=$versuffix
+ major_save=$major
+ # I'm not sure if I'm treating the release correctly. I think
+ # release should show up in the -l (ie -lgmp5) so we don't want to
+ # add it in twice. Is that correct?
+ release=
+ versuffix=
+ major=
+ newdeplibs=
+ droppeddeps=no
+ case $deplibs_check_method in
+ pass_all)
+ # Don't check for shared/static. Everything works.
+ # This might be a little naive. We might want to check
+ # whether the library exists or not. But this is on
+ # osf3 & osf4 and I'm not really sure... Just
+ # implementing what was already the behavior.
+ newdeplibs=$deplibs
+ ;;
+ test_compile)
+ # This code stresses the "libraries are programs" paradigm to its
+ # limits. Maybe even breaks it. We compile a program, linking it
+ # against the deplibs as a proxy for the library. Then we can check
+ # whether they linked in statically or dynamically with ldd.
+ $opt_dry_run || $RM conftest.c
+ cat > conftest.c <<EOF
+ int main() { return 0; }
+EOF
+ $opt_dry_run || $RM conftest
+ if $LTCC $LTCFLAGS -o conftest conftest.c $deplibs; then
+ ldd_output=`ldd conftest`
+ for i in $deplibs; do
+ case $i in
+ -l*)
+ func_stripname -l '' "$i"
+ name=$func_stripname_result
+ if test yes = "$allow_libtool_libs_with_static_runtimes"; then
+ case " $predeps $postdeps " in
+ *" $i "*)
+ func_append newdeplibs " $i"
+ i=
+ ;;
+ esac
+ fi
+ if test -n "$i"; then
+ libname=`eval "\\$ECHO \"$libname_spec\""`
+ deplib_matches=`eval "\\$ECHO \"$library_names_spec\""`
+ set dummy $deplib_matches; shift
+ deplib_match=$1
+ if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0; then
+ func_append newdeplibs " $i"
+ else
+ droppeddeps=yes
+ echo
+ $ECHO "*** Warning: dynamic linker does not accept needed library $i."
+ echo "*** I have the capability to make that library automatically link in when"
+ echo "*** you link to this library. But I can only do this if you have a"
+ echo "*** shared version of the library, which I believe you do not have"
+ echo "*** because a test_compile did reveal that the linker did not use it for"
+ echo "*** its dynamic dependency list that programs get resolved with at runtime."
+ fi
+ fi
+ ;;
+ *)
+ func_append newdeplibs " $i"
+ ;;
+ esac
+ done
+ else
+ # Error occurred in the first compile. Let's try to salvage
+ # the situation: Compile a separate program for each library.
+ for i in $deplibs; do
+ case $i in
+ -l*)
+ func_stripname -l '' "$i"
+ name=$func_stripname_result
+ $opt_dry_run || $RM conftest
+ if $LTCC $LTCFLAGS -o conftest conftest.c $i; then
+ ldd_output=`ldd conftest`
+ if test yes = "$allow_libtool_libs_with_static_runtimes"; then
+ case " $predeps $postdeps " in
+ *" $i "*)
+ func_append newdeplibs " $i"
+ i=
+ ;;
+ esac
+ fi
+ if test -n "$i"; then
+ libname=`eval "\\$ECHO \"$libname_spec\""`
+ deplib_matches=`eval "\\$ECHO \"$library_names_spec\""`
+ set dummy $deplib_matches; shift
+ deplib_match=$1
+ if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0; then
+ func_append newdeplibs " $i"
+ else
+ droppeddeps=yes
+ echo
+ $ECHO "*** Warning: dynamic linker does not accept needed library $i."
+ echo "*** I have the capability to make that library automatically link in when"
+ echo "*** you link to this library. But I can only do this if you have a"
+ echo "*** shared version of the library, which you do not appear to have"
+ echo "*** because a test_compile did reveal that the linker did not use this one"
+ echo "*** as a dynamic dependency that programs can get resolved with at runtime."
+ fi
+ fi
+ else
+ droppeddeps=yes
+ echo
+ $ECHO "*** Warning! Library $i is needed by this library but I was not able to"
+ echo "*** make it link in! You will probably need to install it or some"
+ echo "*** library that it depends on before this library will be fully"
+ echo "*** functional. Installing it before continuing would be even better."
+ fi
+ ;;
+ *)
+ func_append newdeplibs " $i"
+ ;;
+ esac
+ done
+ fi
+ ;;
+ file_magic*)
+ set dummy $deplibs_check_method; shift
+ file_magic_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"`
+ for a_deplib in $deplibs; do
+ case $a_deplib in
+ -l*)
+ func_stripname -l '' "$a_deplib"
+ name=$func_stripname_result
+ if test yes = "$allow_libtool_libs_with_static_runtimes"; then
+ case " $predeps $postdeps " in
+ *" $a_deplib "*)
+ func_append newdeplibs " $a_deplib"
+ a_deplib=
+ ;;
+ esac
+ fi
+ if test -n "$a_deplib"; then
+ libname=`eval "\\$ECHO \"$libname_spec\""`
+ if test -n "$file_magic_glob"; then
+ libnameglob=`func_echo_all "$libname" | $SED -e $file_magic_glob`
+ else
+ libnameglob=$libname
+ fi
+ test yes = "$want_nocaseglob" && nocaseglob=`shopt -p nocaseglob`
+ for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do
+ if test yes = "$want_nocaseglob"; then
+ shopt -s nocaseglob
+ potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null`
+ $nocaseglob
+ else
+ potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null`
+ fi
+ for potent_lib in $potential_libs; do
+ # Follow soft links.
+ if ls -lLd "$potent_lib" 2>/dev/null |
+ $GREP " -> " >/dev/null; then
+ continue
+ fi
+ # The statement above tries to avoid entering an
+ # endless loop below, in case of cyclic links.
+ # We might still enter an endless loop, since a link
+ # loop can be closed while we follow links,
+ # but so what?
+ potlib=$potent_lib
+ while test -h "$potlib" 2>/dev/null; do
+ potliblink=`ls -ld $potlib | $SED 's/.* -> //'`
+ case $potliblink in
+ [\\/]* | [A-Za-z]:[\\/]*) potlib=$potliblink;;
+ *) potlib=`$ECHO "$potlib" | $SED 's|[^/]*$||'`"$potliblink";;
+ esac
+ done
+ if eval $file_magic_cmd \"\$potlib\" 2>/dev/null |
+ $SED -e 10q |
+ $EGREP "$file_magic_regex" > /dev/null; then
+ func_append newdeplibs " $a_deplib"
+ a_deplib=
+ break 2
+ fi
+ done
+ done
+ fi
+ if test -n "$a_deplib"; then
+ droppeddeps=yes
+ echo
+ $ECHO "*** Warning: linker path does not have real file for library $a_deplib."
+ echo "*** I have the capability to make that library automatically link in when"
+ echo "*** you link to this library. But I can only do this if you have a"
+ echo "*** shared version of the library, which you do not appear to have"
+ echo "*** because I did check the linker path looking for a file starting"
+ if test -z "$potlib"; then
+ $ECHO "*** with $libname but no candidates were found. (...for file magic test)"
+ else
+ $ECHO "*** with $libname and none of the candidates passed a file format test"
+ $ECHO "*** using a file magic. Last file checked: $potlib"
+ fi
+ fi
+ ;;
+ *)
+ # Add a -L argument.
+ func_append newdeplibs " $a_deplib"
+ ;;
+ esac
+ done # Gone through all deplibs.
+ ;;
+ match_pattern*)
+ set dummy $deplibs_check_method; shift
+ match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"`
+ for a_deplib in $deplibs; do
+ case $a_deplib in
+ -l*)
+ func_stripname -l '' "$a_deplib"
+ name=$func_stripname_result
+ if test yes = "$allow_libtool_libs_with_static_runtimes"; then
+ case " $predeps $postdeps " in
+ *" $a_deplib "*)
+ func_append newdeplibs " $a_deplib"
+ a_deplib=
+ ;;
+ esac
+ fi
+ if test -n "$a_deplib"; then
+ libname=`eval "\\$ECHO \"$libname_spec\""`
+ for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do
+ potential_libs=`ls $i/$libname[.-]* 2>/dev/null`
+ for potent_lib in $potential_libs; do
+ potlib=$potent_lib # see symlink-check above in file_magic test
+ if eval "\$ECHO \"$potent_lib\"" 2>/dev/null | $SED 10q | \
+ $EGREP "$match_pattern_regex" > /dev/null; then
+ func_append newdeplibs " $a_deplib"
+ a_deplib=
+ break 2
+ fi
+ done
+ done
+ fi
+ if test -n "$a_deplib"; then
+ droppeddeps=yes
+ echo
+ $ECHO "*** Warning: linker path does not have real file for library $a_deplib."
+ echo "*** I have the capability to make that library automatically link in when"
+ echo "*** you link to this library. But I can only do this if you have a"
+ echo "*** shared version of the library, which you do not appear to have"
+ echo "*** because I did check the linker path looking for a file starting"
+ if test -z "$potlib"; then
+ $ECHO "*** with $libname but no candidates were found. (...for regex pattern test)"
+ else
+ $ECHO "*** with $libname and none of the candidates passed a file format test"
+ $ECHO "*** using a regex pattern. Last file checked: $potlib"
+ fi
+ fi
+ ;;
+ *)
+ # Add a -L argument.
+ func_append newdeplibs " $a_deplib"
+ ;;
+ esac
+ done # Gone through all deplibs.
+ ;;
+ none | unknown | *)
+ newdeplibs=
+ tmp_deplibs=`$ECHO " $deplibs" | $SED 's/ -lc$//; s/ -[LR][^ ]*//g'`
+ if test yes = "$allow_libtool_libs_with_static_runtimes"; then
+ for i in $predeps $postdeps; do
+ # can't use Xsed below, because $i might contain '/'
+ tmp_deplibs=`$ECHO " $tmp_deplibs" | $SED "s|$i||"`
+ done
+ fi
+ case $tmp_deplibs in
+ *[!\ \ ]*)
+ echo
+ if test none = "$deplibs_check_method"; then
+ echo "*** Warning: inter-library dependencies are not supported in this platform."
+ else
+ echo "*** Warning: inter-library dependencies are not known to be supported."
+ fi
+ echo "*** All declared inter-library dependencies are being dropped."
+ droppeddeps=yes
+ ;;
+ esac
+ ;;
+ esac
+ versuffix=$versuffix_save
+ major=$major_save
+ release=$release_save
+ libname=$libname_save
+ name=$name_save
+
+ case $host in
+ *-*-rhapsody* | *-*-darwin1.[012])
+ # On Rhapsody replace the C library with the System framework
+ newdeplibs=`$ECHO " $newdeplibs" | $SED 's/ -lc / System.ltframework /'`
+ ;;
+ esac
+
+ if test yes = "$droppeddeps"; then
+ if test yes = "$module"; then
+ echo
+ echo "*** Warning: libtool could not satisfy all declared inter-library"
+ $ECHO "*** dependencies of module $libname. Therefore, libtool will create"
+ echo "*** a static module, that should work as long as the dlopening"
+ echo "*** application is linked with the -dlopen flag."
+ if test -z "$global_symbol_pipe"; then
+ echo
+ echo "*** However, this would only work if libtool was able to extract symbol"
+ echo "*** lists from a program, using 'nm' or equivalent, but libtool could"
+ echo "*** not find such a program. So, this module is probably useless."
+ echo "*** 'nm' from GNU binutils and a full rebuild may help."
+ fi
+ if test no = "$build_old_libs"; then
+ oldlibs=$output_objdir/$libname.$libext
+ build_libtool_libs=module
+ build_old_libs=yes
+ else
+ build_libtool_libs=no
+ fi
+ else
+ echo "*** The inter-library dependencies that have been dropped here will be"
+ echo "*** automatically added whenever a program is linked with this library"
+ echo "*** or is declared to -dlopen it."
+
+ if test no = "$allow_undefined"; then
+ echo
+ echo "*** Since this library must not contain undefined symbols,"
+ echo "*** because either the platform does not support them or"
+ echo "*** it was explicitly requested with -no-undefined,"
+ echo "*** libtool will only create a static version of it."
+ if test no = "$build_old_libs"; then
+ oldlibs=$output_objdir/$libname.$libext
+ build_libtool_libs=module
+ build_old_libs=yes
+ else
+ build_libtool_libs=no
+ fi
+ fi
+ fi
+ fi
+ # Done checking deplibs!
+ deplibs=$newdeplibs
+ fi
+ # Time to change all our "foo.ltframework" stuff back to "-framework foo"
+ case $host in
+ *-*-darwin*)
+ newdeplibs=`$ECHO " $newdeplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
+ new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
+ deplibs=`$ECHO " $deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
+ ;;
+ esac
+
+ # Time to revert the changes made for nagfor. This might be required if
+ # we need to make the output '*.la' file to be correctly interpreted for
+ # gcc (e.g. the output library that we are linking now with nagfor needs
+ # to be linked by gcc later). In this case, the libtool script of a
+ # package that will try to link our library will have to make similar
+ # non-standard nagfor-specific modifications of the '-pthread' flag.
+ # Thus, if we are creating a Fortran library for nagfor only, it is
+ # better not to revert the changes, otherwise, uncomment the following
+ # lines.
+
+ if test yes = "$with_nagfor" ; then
+ new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags " | $SED 's/ -Wl,-pthread / -pthread /g;s/^ *//;s/ *$//'`
+ fi
+
+ # move library search paths that coincide with paths to not yet
+ # installed libraries to the beginning of the library search list
+ new_libs=
+ for path in $notinst_path; do
+ case " $new_libs " in
+ *" -L$path/$objdir "*) ;;
+ *)
+ case " $deplibs " in
+ *" -L$path/$objdir "*)
+ func_append new_libs " -L$path/$objdir" ;;
+ esac
+ ;;
+ esac
+ done
+ for deplib in $deplibs; do
+ case $deplib in
+ -L*)
+ case " $new_libs " in
+ *" $deplib "*) ;;
+ *) func_append new_libs " $deplib" ;;
+ esac
+ ;;
+ -Wl,*)
+ func_stripname -Wl, '' "$deplib"
+ func_append new_libs " $wl$func_stripname_result"
+ ;;
+ *) func_append new_libs " $deplib" ;;
+ esac
+ done
+ deplibs=$new_libs
+
+ # All the library-specific variables (install_libdir is set above).
+ library_names=
+ old_library=
+ dlname=
+
+ # Test again, we may have decided not to build it any more
+ if test yes = "$build_libtool_libs"; then
+ # Remove $wl instances when linking with ld.
+ # FIXME: should test the right _cmds variable.
+ case $archive_cmds in
+ *\$LD\ *) wl= ;;
+ esac
+ if test yes = "$hardcode_into_libs"; then
+ # Hardcode the library paths
+ hardcode_libdirs=
+ dep_rpath=
+ rpath=$finalize_rpath
+ test relink = "$opt_mode" || rpath=$compile_rpath$rpath
+ for libdir in $rpath; do
+ if test -n "$hardcode_libdir_flag_spec"; then
+ if test -n "$hardcode_libdir_separator"; then
+ func_replace_sysroot "$libdir"
+ libdir=$func_replace_sysroot_result
+ if test -z "$hardcode_libdirs"; then
+ hardcode_libdirs=$libdir
+ else
+ # Just accumulate the unique libdirs.
+ case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
+ *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
+ ;;
+ *)
+ func_append hardcode_libdirs "$hardcode_libdir_separator$libdir"
+ ;;
+ esac
+ fi
+ else
+ eval flag=\"$hardcode_libdir_flag_spec\"
+ func_append dep_rpath " $flag"
+ fi
+ elif test -n "$runpath_var"; then
+ case "$perm_rpath " in
+ *" $libdir "*) ;;
+ *) func_append perm_rpath " $libdir" ;;
+ esac
+ fi
+ done
+ # Substitute the hardcoded libdirs into the rpath.
+ if test -n "$hardcode_libdir_separator" &&
+ test -n "$hardcode_libdirs"; then
+ libdir=$hardcode_libdirs
+ eval "dep_rpath=\"$hardcode_libdir_flag_spec\""
+ fi
+ if test -n "$runpath_var" && test -n "$perm_rpath"; then
+ # We should set the runpath_var.
+ rpath=
+ for dir in $perm_rpath; do
+ func_append rpath "$dir:"
+ done
+ eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var"
+ fi
+ test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs"
+ fi
+
+ shlibpath=$finalize_shlibpath
+ test relink = "$opt_mode" || shlibpath=$compile_shlibpath$shlibpath
+ if test -n "$shlibpath"; then
+ eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var"
+ fi
+
+ # Get the real and link names of the library.
+ eval shared_ext=\"$shrext_cmds\"
+ eval library_names=\"$library_names_spec\"
+ set dummy $library_names
+ shift
+ realname=$1
+ shift
+
+ if test -n "$soname_spec"; then
+ eval soname=\"$soname_spec\"
+ else
+ soname=$realname
+ fi
+ if test -z "$dlname"; then
+ dlname=$soname
+ fi
+
+ lib=$output_objdir/$realname
+ linknames=
+ for link
+ do
+ func_append linknames " $link"
+ done
+
+ # Use standard objects if they are pic
+ test -z "$pic_flag" && libobjs=`$ECHO "$libobjs" | $SP2NL | $SED "$lo2o" | $NL2SP`
+ test "X$libobjs" = "X " && libobjs=
+
+ delfiles=
+ if test -n "$export_symbols" && test -n "$include_expsyms"; then
+ $opt_dry_run || cp "$export_symbols" "$output_objdir/$libname.uexp"
+ export_symbols=$output_objdir/$libname.uexp
+ func_append delfiles " $export_symbols"
+ fi
+
+ orig_export_symbols=
+ case $host_os in
+ cygwin* | mingw* | cegcc*)
+ if test -n "$export_symbols" && test -z "$export_symbols_regex"; then
+ # exporting using user supplied symfile
+ func_dll_def_p "$export_symbols" || {
+ # and it's NOT already a .def file. Must figure out
+ # which of the given symbols are data symbols and tag
+ # them as such. So, trigger use of export_symbols_cmds.
+ # export_symbols gets reassigned inside the "prepare
+ # the list of exported symbols" if statement, so the
+ # include_expsyms logic still works.
+ orig_export_symbols=$export_symbols
+ export_symbols=
+ always_export_symbols=yes
+ }
+ fi
+ ;;
+ esac
+
+ # Prepare the list of exported symbols
+ if test -z "$export_symbols"; then
+ if test yes = "$always_export_symbols" || test -n "$export_symbols_regex"; then
+ func_verbose "generating symbol list for '$libname.la'"
+ export_symbols=$output_objdir/$libname.exp
+ $opt_dry_run || $RM $export_symbols
+ cmds=$export_symbols_cmds
+ save_ifs=$IFS; IFS='~'
+ for cmd1 in $cmds; do
+ IFS=$save_ifs
+ # Take the normal branch if the nm_file_list_spec branch
+ # doesn't work or if tool conversion is not needed.
+ case $nm_file_list_spec~$to_tool_file_cmd in
+ *~func_convert_file_noop | *~func_convert_file_msys_to_w32 | ~*)
+ try_normal_branch=yes
+ eval cmd=\"$cmd1\"
+ func_len " $cmd"
+ len=$func_len_result
+ ;;
+ *)
+ try_normal_branch=no
+ ;;
+ esac
+ if test yes = "$try_normal_branch" \
+ && { test "$len" -lt "$max_cmd_len" \
+ || test "$max_cmd_len" -le -1; }
+ then
+ func_show_eval "$cmd" 'exit $?'
+ skipped_export=false
+ elif test -n "$nm_file_list_spec"; then
+ func_basename "$output"
+ output_la=$func_basename_result
+ save_libobjs=$libobjs
+ save_output=$output
+ output=$output_objdir/$output_la.nm
+ func_to_tool_file "$output"
+ libobjs=$nm_file_list_spec$func_to_tool_file_result
+ func_append delfiles " $output"
+ func_verbose "creating $NM input file list: $output"
+ for obj in $save_libobjs; do
+ func_to_tool_file "$obj"
+ $ECHO "$func_to_tool_file_result"
+ done > "$output"
+ eval cmd=\"$cmd1\"
+ func_show_eval "$cmd" 'exit $?'
+ output=$save_output
+ libobjs=$save_libobjs
+ skipped_export=false
+ else
+ # The command line is too long to execute in one step.
+ func_verbose "using reloadable object file for export list..."
+ skipped_export=:
+ # Break out early, otherwise skipped_export may be
+ # set to false by a later but shorter cmd.
+ break
+ fi
+ done
+ IFS=$save_ifs
+ if test -n "$export_symbols_regex" && test : != "$skipped_export"; then
+ func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"'
+ func_show_eval '$MV "${export_symbols}T" "$export_symbols"'
+ fi
+ fi
+ fi
+
+ if test -n "$export_symbols" && test -n "$include_expsyms"; then
+ tmp_export_symbols=$export_symbols
+ test -n "$orig_export_symbols" && tmp_export_symbols=$orig_export_symbols
+ $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"'
+ fi
+
+ if test : != "$skipped_export" && test -n "$orig_export_symbols"; then
+ # The given exports_symbols file has to be filtered, so filter it.
+ func_verbose "filter symbol list for '$libname.la' to tag DATA exports"
+ # FIXME: $output_objdir/$libname.filter potentially contains lots of
+ # 's' commands, which not all seds can handle. GNU sed should be fine
+ # though. Also, the filter scales superlinearly with the number of
+ # global variables. join(1) would be nice here, but unfortunately
+ # isn't a blessed tool.
+ $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
+ func_append delfiles " $export_symbols $output_objdir/$libname.filter"
+ export_symbols=$output_objdir/$libname.def
+ $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
+ fi
+
+ tmp_deplibs=
+ for test_deplib in $deplibs; do
+ case " $convenience " in
+ *" $test_deplib "*) ;;
+ *)
+ func_append tmp_deplibs " $test_deplib"
+ ;;
+ esac
+ done
+ deplibs=$tmp_deplibs
+
+ if test -n "$convenience"; then
+ if test -n "$whole_archive_flag_spec" &&
+ test yes = "$compiler_needs_object" &&
+ test -z "$libobjs"; then
+ # extract the archives, so we have objects to list.
+ # TODO: could optimize this to just extract one archive.
+ whole_archive_flag_spec=
+ fi
+ if test -n "$whole_archive_flag_spec"; then
+ save_libobjs=$libobjs
+ eval libobjs=\"\$libobjs $whole_archive_flag_spec\"
+ test "X$libobjs" = "X " && libobjs=
+ else
+ gentop=$output_objdir/${outputname}x
+ func_append generated " $gentop"
+
+ func_extract_archives $gentop $convenience
+ func_append libobjs " $func_extract_archives_result"
+ test "X$libobjs" = "X " && libobjs=
+ fi
+ fi
+
+ if test yes = "$thread_safe" && test -n "$thread_safe_flag_spec"; then
+ eval flag=\"$thread_safe_flag_spec\"
+ func_append linker_flags " $flag"
+ fi
+
+ # Make a backup of the uninstalled library when relinking
+ if test relink = "$opt_mode"; then
+ $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $?
+ fi
+
+ # Do each of the archive commands.
+ if test yes = "$module" && test -n "$module_cmds"; then
+ if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then
+ eval test_cmds=\"$module_expsym_cmds\"
+ cmds=$module_expsym_cmds
+ else
+ eval test_cmds=\"$module_cmds\"
+ cmds=$module_cmds
+ fi
+ else
+ if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then
+ eval test_cmds=\"$archive_expsym_cmds\"
+ cmds=$archive_expsym_cmds
+ else
+ eval test_cmds=\"$archive_cmds\"
+ cmds=$archive_cmds
+ fi
+ fi
+
+ if test : != "$skipped_export" &&
+ func_len " $test_cmds" &&
+ len=$func_len_result &&
+ test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then
+ :
+ else
+ # The command line is too long to link in one step, link piecewise
+ # or, if using GNU ld and skipped_export is not :, use a linker
+ # script.
+
+ # Save the value of $output and $libobjs because we want to
+ # use them later. If we have whole_archive_flag_spec, we
+ # want to use save_libobjs as it was before
+ # whole_archive_flag_spec was expanded, because we can't
+ # assume the linker understands whole_archive_flag_spec.
+ # This may have to be revisited, in case too many
+ # convenience libraries get linked in and end up exceeding
+ # the spec.
+ if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then
+ save_libobjs=$libobjs
+ fi
+ save_output=$output
+ func_basename "$output"
+ output_la=$func_basename_result
+
+ # Clear the reloadable object creation command queue and
+ # initialize k to one.
+ test_cmds=
+ concat_cmds=
+ objlist=
+ last_robj=
+ k=1
+
+ if test -n "$save_libobjs" && test : != "$skipped_export" && test yes = "$with_gnu_ld"; then
+ output=$output_objdir/$output_la.lnkscript
+ func_verbose "creating GNU ld script: $output"
+ echo 'INPUT (' > $output
+ for obj in $save_libobjs
+ do
+ func_to_tool_file "$obj"
+ $ECHO "$func_to_tool_file_result" >> $output
+ done
+ echo ')' >> $output
+ func_append delfiles " $output"
+ func_to_tool_file "$output"
+ output=$func_to_tool_file_result
+ elif test -n "$save_libobjs" && test : != "$skipped_export" && test -n "$file_list_spec"; then
+ output=$output_objdir/$output_la.lnk
+ func_verbose "creating linker input file list: $output"
+ : > $output
+ set x $save_libobjs
+ shift
+ firstobj=
+ if test yes = "$compiler_needs_object"; then
+ firstobj="$1 "
+ shift
+ fi
+ for obj
+ do
+ func_to_tool_file "$obj"
+ $ECHO "$func_to_tool_file_result" >> $output
+ done
+ func_append delfiles " $output"
+ func_to_tool_file "$output"
+ output=$firstobj\"$file_list_spec$func_to_tool_file_result\"
+ else
+ if test -n "$save_libobjs"; then
+ func_verbose "creating reloadable object files..."
+ output=$output_objdir/$output_la-$k.$objext
+ eval test_cmds=\"$reload_cmds\"
+ func_len " $test_cmds"
+ len0=$func_len_result
+ len=$len0
+
+ # Loop over the list of objects to be linked.
+ for obj in $save_libobjs
+ do
+ func_len " $obj"
+ func_arith $len + $func_len_result
+ len=$func_arith_result
+ if test -z "$objlist" ||
+ test "$len" -lt "$max_cmd_len"; then
+ func_append objlist " $obj"
+ else
+ # The command $test_cmds is almost too long, add a
+ # command to the queue.
+ if test 1 -eq "$k"; then
+ # The first file doesn't have a previous command to add.
+ reload_objs=$objlist
+ eval concat_cmds=\"$reload_cmds\"
+ else
+ # All subsequent reloadable object files will link in
+ # the last one created.
+ reload_objs="$objlist $last_robj"
+ eval concat_cmds=\"\$concat_cmds~$reload_cmds~\$RM $last_robj\"
+ fi
+ last_robj=$output_objdir/$output_la-$k.$objext
+ func_arith $k + 1
+ k=$func_arith_result
+ output=$output_objdir/$output_la-$k.$objext
+ objlist=" $obj"
+ func_len " $last_robj"
+ func_arith $len0 + $func_len_result
+ len=$func_arith_result
+ fi
+ done
+ # Handle the remaining objects by creating one last
+ # reloadable object file. All subsequent reloadable object
+ # files will link in the last one created.
+ test -z "$concat_cmds" || concat_cmds=$concat_cmds~
+ reload_objs="$objlist $last_robj"
+ eval concat_cmds=\"\$concat_cmds$reload_cmds\"
+ if test -n "$last_robj"; then
+ eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\"
+ fi
+ func_append delfiles " $output"
+
+ else
+ output=
+ fi
+
+ ${skipped_export-false} && {
+ func_verbose "generating symbol list for '$libname.la'"
+ export_symbols=$output_objdir/$libname.exp
+ $opt_dry_run || $RM $export_symbols
+ libobjs=$output
+ # Append the command to create the export file.
+ test -z "$concat_cmds" || concat_cmds=$concat_cmds~
+ eval concat_cmds=\"\$concat_cmds$export_symbols_cmds\"
+ if test -n "$last_robj"; then
+ eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\"
+ fi
+ }
+
+ test -n "$save_libobjs" &&
+ func_verbose "creating a temporary reloadable object file: $output"
+
+ # Loop through the commands generated above and execute them.
+ save_ifs=$IFS; IFS='~'
+ for cmd in $concat_cmds; do
+ IFS=$save_ifs
+ $opt_quiet || {
+ func_quote_for_expand "$cmd"
+ eval "func_echo $func_quote_for_expand_result"
+ }
+ $opt_dry_run || eval "$cmd" || {
+ lt_exit=$?
+
+ # Restore the uninstalled library and exit
+ if test relink = "$opt_mode"; then
+ ( cd "$output_objdir" && \
+ $RM "${realname}T" && \
+ $MV "${realname}U" "$realname" )
+ fi
+
+ exit $lt_exit
+ }
+ done
+ IFS=$save_ifs
+
+ if test -n "$export_symbols_regex" && ${skipped_export-false}; then
+ func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"'
+ func_show_eval '$MV "${export_symbols}T" "$export_symbols"'
+ fi
+ fi
+
+ ${skipped_export-false} && {
+ if test -n "$export_symbols" && test -n "$include_expsyms"; then
+ tmp_export_symbols=$export_symbols
+ test -n "$orig_export_symbols" && tmp_export_symbols=$orig_export_symbols
+ $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"'
+ fi
+
+ if test -n "$orig_export_symbols"; then
+ # The given exports_symbols file has to be filtered, so filter it.
+ func_verbose "filter symbol list for '$libname.la' to tag DATA exports"
+ # FIXME: $output_objdir/$libname.filter potentially contains lots of
+ # 's' commands, which not all seds can handle. GNU sed should be fine
+ # though. Also, the filter scales superlinearly with the number of
+ # global variables. join(1) would be nice here, but unfortunately
+ # isn't a blessed tool.
+ $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
+ func_append delfiles " $export_symbols $output_objdir/$libname.filter"
+ export_symbols=$output_objdir/$libname.def
+ $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
+ fi
+ }
+
+ libobjs=$output
+ # Restore the value of output.
+ output=$save_output
+
+ if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then
+ eval libobjs=\"\$libobjs $whole_archive_flag_spec\"
+ test "X$libobjs" = "X " && libobjs=
+ fi
+ # Expand the library linking commands again to reset the
+ # value of $libobjs for piecewise linking.
+
+ # Do each of the archive commands.
+ if test yes = "$module" && test -n "$module_cmds"; then
+ if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then
+ cmds=$module_expsym_cmds
+ else
+ cmds=$module_cmds
+ fi
+ else
+ if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then
+ cmds=$archive_expsym_cmds
+ else
+ cmds=$archive_cmds
+ fi
+ fi
+ fi
+
+ if test -n "$delfiles"; then
+ # Append the command to remove temporary files to $cmds.
+ eval cmds=\"\$cmds~\$RM $delfiles\"
+ fi
+
+ # Add any objects from preloaded convenience libraries
+ if test -n "$dlprefiles"; then
+ gentop=$output_objdir/${outputname}x
+ func_append generated " $gentop"
+
+ func_extract_archives $gentop $dlprefiles
+ func_append libobjs " $func_extract_archives_result"
+ test "X$libobjs" = "X " && libobjs=
+ fi
+
+ save_ifs=$IFS; IFS='~'
+ for cmd in $cmds; do
+ IFS=$sp$nl
+ eval cmd=\"$cmd\"
+ IFS=$save_ifs
+ $opt_quiet || {
+ func_quote_for_expand "$cmd"
+ eval "func_echo $func_quote_for_expand_result"
+ }
+ $opt_dry_run || eval "$cmd" || {
+ lt_exit=$?
+
+ # Restore the uninstalled library and exit
+ if test relink = "$opt_mode"; then
+ ( cd "$output_objdir" && \
+ $RM "${realname}T" && \
+ $MV "${realname}U" "$realname" )
+ fi
+
+ exit $lt_exit
+ }
+ done
+ IFS=$save_ifs
+
+ # Restore the uninstalled library and exit
+ if test relink = "$opt_mode"; then
+ $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}T && $MV $realname ${realname}T && $MV ${realname}U $realname)' || exit $?
+
+ if test -n "$convenience"; then
+ if test -z "$whole_archive_flag_spec"; then
+ func_show_eval '${RM}r "$gentop"'
+ fi
+ fi
+
+ exit $EXIT_SUCCESS
+ fi
+
+ # Create links to the real library.
+ for linkname in $linknames; do
+ if test "$realname" != "$linkname"; then
+ func_show_eval '(cd "$output_objdir" && $RM "$linkname" && $LN_S "$realname" "$linkname")' 'exit $?'
+ fi
+ done
+
+ # If -module or -export-dynamic was specified, set the dlname.
+ if test yes = "$module" || test yes = "$export_dynamic"; then
+ # On all known operating systems, these are identical.
+ dlname=$soname
+ fi
+ fi
+ ;;
+
+ obj)
+ if test -n "$dlfiles$dlprefiles" || test no != "$dlself"; then
+ func_warning "'-dlopen' is ignored for objects"
+ fi
+
+ case " $deplibs" in
+ *\ -l* | *\ -L*)
+ func_warning "'-l' and '-L' are ignored for objects" ;;
+ esac
+
+ test -n "$rpath" && \
+ func_warning "'-rpath' is ignored for objects"
+
+ test -n "$xrpath" && \
+ func_warning "'-R' is ignored for objects"
+
+ test -n "$vinfo" && \
+ func_warning "'-version-info' is ignored for objects"
+
+ test -n "$release" && \
+ func_warning "'-release' is ignored for objects"
+
+ case $output in
+ *.lo)
+ test -n "$objs$old_deplibs" && \
+ func_fatal_error "cannot build library object '$output' from non-libtool objects"
+
+ libobj=$output
+ func_lo2o "$libobj"
+ obj=$func_lo2o_result
+ ;;
+ *)
+ libobj=
+ obj=$output
+ ;;
+ esac
+
+ # Delete the old objects.
+ $opt_dry_run || $RM $obj $libobj
+
+ # Objects from convenience libraries. This assumes
+ # single-version convenience libraries. Whenever we create
+ # different ones for PIC/non-PIC, this we'll have to duplicate
+ # the extraction.
+ reload_conv_objs=
+ gentop=
+ # if reload_cmds runs $LD directly, get rid of -Wl from
+ # whole_archive_flag_spec and hope we can get by with turning comma
+ # into space.
+ case $reload_cmds in
+ *\$LD[\ \$]*) wl= ;;
+ esac
+ if test -n "$convenience"; then
+ if test -n "$whole_archive_flag_spec"; then
+ eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\"
+ test -n "$wl" || tmp_whole_archive_flags=`$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'`
+ reload_conv_objs=$reload_objs\ $tmp_whole_archive_flags
+ else
+ gentop=$output_objdir/${obj}x
+ func_append generated " $gentop"
+
+ func_extract_archives $gentop $convenience
+ reload_conv_objs="$reload_objs $func_extract_archives_result"
+ fi
+ fi
+
+ # If we're not building shared, we need to use non_pic_objs
+ test yes = "$build_libtool_libs" || libobjs=$non_pic_objects
+
+ # Create the old-style object.
+ reload_objs=$objs$old_deplibs' '`$ECHO "$libobjs" | $SP2NL | $SED "/\.$libext$/d; /\.lib$/d; $lo2o" | $NL2SP`' '$reload_conv_objs
+
+ output=$obj
+ func_execute_cmds "$reload_cmds" 'exit $?'
+
+ # Exit if we aren't doing a library object file.
+ if test -z "$libobj"; then
+ if test -n "$gentop"; then
+ func_show_eval '${RM}r "$gentop"'
+ fi
+
+ exit $EXIT_SUCCESS
+ fi
+
+ test yes = "$build_libtool_libs" || {
+ if test -n "$gentop"; then
+ func_show_eval '${RM}r "$gentop"'
+ fi
+
+ # Create an invalid libtool object if no PIC, so that we don't
+ # accidentally link it into a program.
+ # $show "echo timestamp > $libobj"
+ # $opt_dry_run || eval "echo timestamp > $libobj" || exit $?
+ exit $EXIT_SUCCESS
+ }
+
+ if test -n "$pic_flag" || test default != "$pic_mode"; then
+ # Only do commands if we really have different PIC objects.
+ reload_objs="$libobjs $reload_conv_objs"
+ output=$libobj
+ func_execute_cmds "$reload_cmds" 'exit $?'
+ fi
+
+ if test -n "$gentop"; then
+ func_show_eval '${RM}r "$gentop"'
+ fi
+
+ exit $EXIT_SUCCESS
+ ;;
+
+ prog)
+ case $host in
+ *cygwin*) func_stripname '' '.exe' "$output"
+ output=$func_stripname_result.exe;;
+ esac
+ test -n "$vinfo" && \
+ func_warning "'-version-info' is ignored for programs"
+
+ test -n "$release" && \
+ func_warning "'-release' is ignored for programs"
+
+ $preload \
+ && test unknown,unknown,unknown = "$dlopen_support,$dlopen_self,$dlopen_self_static" \
+ && func_warning "'LT_INIT([dlopen])' not used. Assuming no dlopen support."
+
+ case $host in
+ *-*-rhapsody* | *-*-darwin1.[012])
+ # On Rhapsody replace the C library is the System framework
+ compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's/ -lc / System.ltframework /'`
+ finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's/ -lc / System.ltframework /'`
+ ;;
+ esac
+
+ case $host in
+ *-*-darwin*)
+ # Don't allow lazy linking, it breaks C++ global constructors
+ # But is supposedly fixed on 10.4 or later (yay!).
+ if test CXX = "$tagname"; then
+ case ${MACOSX_DEPLOYMENT_TARGET-10.0} in
+ 10.[0123])
+ func_append compile_command " $wl-bind_at_load"
+ func_append finalize_command " $wl-bind_at_load"
+ ;;
+ esac
+ fi
+ # Time to change all our "foo.ltframework" stuff back to "-framework foo"
+ compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
+ finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
+ ;;
+ esac
+
+
+ # move library search paths that coincide with paths to not yet
+ # installed libraries to the beginning of the library search list
+ new_libs=
+ for path in $notinst_path; do
+ case " $new_libs " in
+ *" -L$path/$objdir "*) ;;
+ *)
+ case " $compile_deplibs " in
+ *" -L$path/$objdir "*)
+ func_append new_libs " -L$path/$objdir" ;;
+ esac
+ ;;
+ esac
+ done
+ for deplib in $compile_deplibs; do
+ case $deplib in
+ -L*)
+ case " $new_libs " in
+ *" $deplib "*) ;;
+ *) func_append new_libs " $deplib" ;;
+ esac
+ ;;
+ -Wl,-pthread)
+ func_append new_libs " $deplib" ;;
+ -Wl,*)
+ func_stripname -Wl, '' "$deplib"
+ func_append new_libs " $wl$func_stripname_result"
+ ;;
+ *) func_append new_libs " $deplib" ;;
+ esac
+ done
+ compile_deplibs=$new_libs
+
+
+ func_append compile_command " $compile_deplibs"
+ func_append finalize_command " $finalize_deplibs"
+
+ if test -n "$rpath$xrpath"; then
+ # If the user specified any rpath flags, then add them.
+ for libdir in $rpath $xrpath; do
+ # This is the magic to use -rpath.
+ case "$finalize_rpath " in
+ *" $libdir "*) ;;
+ *) func_append finalize_rpath " $libdir" ;;
+ esac
+ done
+ fi
+
+ # Now hardcode the library paths
+ rpath=
+ hardcode_libdirs=
+ for libdir in $compile_rpath $finalize_rpath; do
+ if test -n "$hardcode_libdir_flag_spec"; then
+ if test -n "$hardcode_libdir_separator"; then
+ if test -z "$hardcode_libdirs"; then
+ hardcode_libdirs=$libdir
+ else
+ # Just accumulate the unique libdirs.
+ case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
+ *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
+ ;;
+ *)
+ func_append hardcode_libdirs "$hardcode_libdir_separator$libdir"
+ ;;
+ esac
+ fi
+ else
+ eval flag=\"$hardcode_libdir_flag_spec\"
+ func_append rpath " $flag"
+ fi
+ elif test -n "$runpath_var"; then
+ case "$perm_rpath " in
+ *" $libdir "*) ;;
+ *) func_append perm_rpath " $libdir" ;;
+ esac
+ fi
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*)
+ testbindir=`$ECHO "$libdir" | $SED -e 's*/lib$*/bin*'`
+ case :$dllsearchpath: in
+ *":$libdir:"*) ;;
+ ::) dllsearchpath=$libdir;;
+ *) func_append dllsearchpath ":$libdir";;
+ esac
+ case :$dllsearchpath: in
+ *":$testbindir:"*) ;;
+ ::) dllsearchpath=$testbindir;;
+ *) func_append dllsearchpath ":$testbindir";;
+ esac
+ ;;
+ esac
+ done
+ # Substitute the hardcoded libdirs into the rpath.
+ if test -n "$hardcode_libdir_separator" &&
+ test -n "$hardcode_libdirs"; then
+ libdir=$hardcode_libdirs
+ eval rpath=\" $hardcode_libdir_flag_spec\"
+ fi
+ compile_rpath=$rpath
+
+ rpath=
+ hardcode_libdirs=
+ for libdir in $finalize_rpath; do
+ if test -n "$hardcode_libdir_flag_spec"; then
+ if test -n "$hardcode_libdir_separator"; then
+ if test -z "$hardcode_libdirs"; then
+ hardcode_libdirs=$libdir
+ else
+ # Just accumulate the unique libdirs.
+ case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
+ *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
+ ;;
+ *)
+ func_append hardcode_libdirs "$hardcode_libdir_separator$libdir"
+ ;;
+ esac
+ fi
+ else
+ eval flag=\"$hardcode_libdir_flag_spec\"
+ func_append rpath " $flag"
+ fi
+ elif test -n "$runpath_var"; then
+ case "$finalize_perm_rpath " in
+ *" $libdir "*) ;;
+ *) func_append finalize_perm_rpath " $libdir" ;;
+ esac
+ fi
+ done
+ # Substitute the hardcoded libdirs into the rpath.
+ if test -n "$hardcode_libdir_separator" &&
+ test -n "$hardcode_libdirs"; then
+ libdir=$hardcode_libdirs
+ eval rpath=\" $hardcode_libdir_flag_spec\"
+ fi
+ finalize_rpath=$rpath
+
+ if test -n "$libobjs" && test yes = "$build_old_libs"; then
+ # Transform all the library objects into standard objects.
+ compile_command=`$ECHO "$compile_command" | $SP2NL | $SED "$lo2o" | $NL2SP`
+ finalize_command=`$ECHO "$finalize_command" | $SP2NL | $SED "$lo2o" | $NL2SP`
+ fi
+
+ func_generate_dlsyms "$outputname" "@PROGRAM@" false
+
+ # template prelinking step
+ if test -n "$prelink_cmds"; then
+ func_execute_cmds "$prelink_cmds" 'exit $?'
+ fi
+
+ wrappers_required=:
+ case $host in
+ *cegcc* | *mingw32ce*)
+ # Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway.
+ wrappers_required=false
+ ;;
+ *cygwin* | *mingw* )
+ test yes = "$build_libtool_libs" || wrappers_required=false
+ ;;
+ *)
+ if test no = "$need_relink" || test yes != "$build_libtool_libs"; then
+ wrappers_required=false
+ fi
+ ;;
+ esac
+ $wrappers_required || {
+ # Replace the output file specification.
+ compile_command=`$ECHO "$compile_command" | $SED 's%@OUTPUT@%'"$output"'%g'`
+ link_command=$compile_command$compile_rpath
+
+ # We have no uninstalled library dependencies, so finalize right now.
+ exit_status=0
+ func_show_eval "$link_command" 'exit_status=$?'
+
+ if test -n "$postlink_cmds"; then
+ func_to_tool_file "$output"
+ postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'`
+ func_execute_cmds "$postlink_cmds" 'exit $?'
+ fi
+
+ # Delete the generated files.
+ if test -f "$output_objdir/${outputname}S.$objext"; then
+ func_show_eval '$RM "$output_objdir/${outputname}S.$objext"'
+ fi
+
+ exit $exit_status
+ }
+
+ if test -n "$compile_shlibpath$finalize_shlibpath"; then
+ compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command"
+ fi
+ if test -n "$finalize_shlibpath"; then
+ finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command"
+ fi
+
+ compile_var=
+ finalize_var=
+ if test -n "$runpath_var"; then
+ if test -n "$perm_rpath"; then
+ # We should set the runpath_var.
+ rpath=
+ for dir in $perm_rpath; do
+ func_append rpath "$dir:"
+ done
+ compile_var="$runpath_var=\"$rpath\$$runpath_var\" "
+ fi
+ if test -n "$finalize_perm_rpath"; then
+ # We should set the runpath_var.
+ rpath=
+ for dir in $finalize_perm_rpath; do
+ func_append rpath "$dir:"
+ done
+ finalize_var="$runpath_var=\"$rpath\$$runpath_var\" "
+ fi
+ fi
+
+ if test yes = "$no_install"; then
+ # We don't need to create a wrapper script.
+ link_command=$compile_var$compile_command$compile_rpath
+ # Replace the output file specification.
+ link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output"'%g'`
+ # Delete the old output file.
+ $opt_dry_run || $RM $output
+ # Link the executable and exit
+ func_show_eval "$link_command" 'exit $?'
+
+ if test -n "$postlink_cmds"; then
+ func_to_tool_file "$output"
+ postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'`
+ func_execute_cmds "$postlink_cmds" 'exit $?'
+ fi
+
+ exit $EXIT_SUCCESS
+ fi
+
+ case $hardcode_action,$fast_install in
+ relink,*)
+ # Fast installation is not supported
+ link_command=$compile_var$compile_command$compile_rpath
+ relink_command=$finalize_var$finalize_command$finalize_rpath
+
+ func_warning "this platform does not like uninstalled shared libraries"
+ func_warning "'$output' will be relinked during installation"
+ ;;
+ *,yes)
+ link_command=$finalize_var$compile_command$finalize_rpath
+ relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'`
+ ;;
+ *,no)
+ link_command=$compile_var$compile_command$compile_rpath
+ relink_command=$finalize_var$finalize_command$finalize_rpath
+ ;;
+ *,needless)
+ link_command=$finalize_var$compile_command$finalize_rpath
+ relink_command=
+ ;;
+ esac
+
+ # Replace the output file specification.
+ link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'`
+
+ # Delete the old output files.
+ $opt_dry_run || $RM $output $output_objdir/$outputname $output_objdir/lt-$outputname
+
+ func_show_eval "$link_command" 'exit $?'
+
+ if test -n "$postlink_cmds"; then
+ func_to_tool_file "$output_objdir/$outputname"
+ postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'`
+ func_execute_cmds "$postlink_cmds" 'exit $?'
+ fi
+
+ # Now create the wrapper script.
+ func_verbose "creating $output"
+
+ # Quote the relink command for shipping.
+ if test -n "$relink_command"; then
+ # Preserve any variables that may affect compiler behavior
+ for var in $variables_saved_for_relink; do
+ if eval test -z \"\${$var+set}\"; then
+ relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command"
+ elif eval var_value=\$$var; test -z "$var_value"; then
+ relink_command="$var=; export $var; $relink_command"
+ else
+ func_quote_for_eval "$var_value"
+ relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command"
+ fi
+ done
+ relink_command="(cd `pwd`; $relink_command)"
+ relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"`
+ fi
+
+ # Only actually do things if not in dry run mode.
+ $opt_dry_run || {
+ # win32 will think the script is a binary if it has
+ # a .exe suffix, so we strip it off here.
+ case $output in
+ *.exe) func_stripname '' '.exe' "$output"
+ output=$func_stripname_result ;;
+ esac
+ # test for cygwin because mv fails w/o .exe extensions
+ case $host in
+ *cygwin*)
+ exeext=.exe
+ func_stripname '' '.exe' "$outputname"
+ outputname=$func_stripname_result ;;
+ *) exeext= ;;
+ esac
+ case $host in
+ *cygwin* | *mingw* )
+ func_dirname_and_basename "$output" "" "."
+ output_name=$func_basename_result
+ output_path=$func_dirname_result
+ cwrappersource=$output_path/$objdir/lt-$output_name.c
+ cwrapper=$output_path/$output_name.exe
+ $RM $cwrappersource $cwrapper
+ trap "$RM $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15
+
+ func_emit_cwrapperexe_src > $cwrappersource
+
+ # The wrapper executable is built using the $host compiler,
+ # because it contains $host paths and files. If cross-
+ # compiling, it, like the target executable, must be
+ # executed on the $host or under an emulation environment.
+ $opt_dry_run || {
+ $LTCC $LTCFLAGS -o $cwrapper $cwrappersource
+ $STRIP $cwrapper
+ }
+
+ # Now, create the wrapper script for func_source use:
+ func_ltwrapper_scriptname $cwrapper
+ $RM $func_ltwrapper_scriptname_result
+ trap "$RM $func_ltwrapper_scriptname_result; exit $EXIT_FAILURE" 1 2 15
+ $opt_dry_run || {
+ # note: this script will not be executed, so do not chmod.
+ if test "x$build" = "x$host"; then
+ $cwrapper --lt-dump-script > $func_ltwrapper_scriptname_result
+ else
+ func_emit_wrapper no > $func_ltwrapper_scriptname_result
+ fi
+ }
+ ;;
+ * )
+ $RM $output
+ trap "$RM $output; exit $EXIT_FAILURE" 1 2 15
+
+ func_emit_wrapper no > $output
+ chmod +x $output
+ ;;
+ esac
+ }
+ exit $EXIT_SUCCESS
+ ;;
+ esac
+
+ # See if we need to build an old-fashioned archive.
+ for oldlib in $oldlibs; do
+
+ case $build_libtool_libs in
+ convenience)
+ oldobjs="$libobjs_save $symfileobj"
+ addlibs=$convenience
+ build_libtool_libs=no
+ ;;
+ module)
+ oldobjs=$libobjs_save
+ addlibs=$old_convenience
+ build_libtool_libs=no
+ ;;
+ *)
+ oldobjs="$old_deplibs $non_pic_objects"
+ $preload && test -f "$symfileobj" \
+ && func_append oldobjs " $symfileobj"
+ addlibs=$old_convenience
+ ;;
+ esac
+
+ if test -n "$addlibs"; then
+ gentop=$output_objdir/${outputname}x
+ func_append generated " $gentop"
+
+ func_extract_archives $gentop $addlibs
+ func_append oldobjs " $func_extract_archives_result"
+ fi
+
+ # Do each command in the archive commands.
+ if test -n "$old_archive_from_new_cmds" && test yes = "$build_libtool_libs"; then
+ cmds=$old_archive_from_new_cmds
+ else
+
+ # Add any objects from preloaded convenience libraries
+ if test -n "$dlprefiles"; then
+ gentop=$output_objdir/${outputname}x
+ func_append generated " $gentop"
+
+ func_extract_archives $gentop $dlprefiles
+ func_append oldobjs " $func_extract_archives_result"
+ fi
+
+ # POSIX demands no paths to be encoded in archives. We have
+ # to avoid creating archives with duplicate basenames if we
+ # might have to extract them afterwards, e.g., when creating a
+ # static archive out of a convenience library, or when linking
+ # the entirety of a libtool archive into another (currently
+ # not supported by libtool).
+ if (for obj in $oldobjs
+ do
+ func_basename "$obj"
+ $ECHO "$func_basename_result"
+ done | sort | sort -uc >/dev/null 2>&1); then
+ :
+ else
+ echo "copying selected object files to avoid basename conflicts..."
+ gentop=$output_objdir/${outputname}x
+ func_append generated " $gentop"
+ func_mkdir_p "$gentop"
+ save_oldobjs=$oldobjs
+ oldobjs=
+ counter=1
+ for obj in $save_oldobjs
+ do
+ func_basename "$obj"
+ objbase=$func_basename_result
+ case " $oldobjs " in
+ " ") oldobjs=$obj ;;
+ *[\ /]"$objbase "*)
+ while :; do
+ # Make sure we don't pick an alternate name that also
+ # overlaps.
+ newobj=lt$counter-$objbase
+ func_arith $counter + 1
+ counter=$func_arith_result
+ case " $oldobjs " in
+ *[\ /]"$newobj "*) ;;
+ *) if test ! -f "$gentop/$newobj"; then break; fi ;;
+ esac
+ done
+ func_show_eval "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj"
+ func_append oldobjs " $gentop/$newobj"
+ ;;
+ *) func_append oldobjs " $obj" ;;
+ esac
+ done
+ fi
+ func_to_tool_file "$oldlib" func_convert_file_msys_to_w32
+ tool_oldlib=$func_to_tool_file_result
+ eval cmds=\"$old_archive_cmds\"
+
+ func_len " $cmds"
+ len=$func_len_result
+ if test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then
+ cmds=$old_archive_cmds
+ elif test -n "$archiver_list_spec"; then
+ func_verbose "using command file archive linking..."
+ for obj in $oldobjs
+ do
+ func_to_tool_file "$obj"
+ $ECHO "$func_to_tool_file_result"
+ done > $output_objdir/$libname.libcmd
+ func_to_tool_file "$output_objdir/$libname.libcmd"
+ oldobjs=" $archiver_list_spec$func_to_tool_file_result"
+ cmds=$old_archive_cmds
+ else
+ # the command line is too long to link in one step, link in parts
+ func_verbose "using piecewise archive linking..."
+ save_RANLIB=$RANLIB
+ RANLIB=:
+ objlist=
+ concat_cmds=
+ save_oldobjs=$oldobjs
+ oldobjs=
+ # Is there a better way of finding the last object in the list?
+ for obj in $save_oldobjs
+ do
+ last_oldobj=$obj
+ done
+ eval test_cmds=\"$old_archive_cmds\"
+ func_len " $test_cmds"
+ len0=$func_len_result
+ len=$len0
+ for obj in $save_oldobjs
+ do
+ func_len " $obj"
+ func_arith $len + $func_len_result
+ len=$func_arith_result
+ func_append objlist " $obj"
+ if test "$len" -lt "$max_cmd_len"; then
+ :
+ else
+ # the above command should be used before it gets too long
+ oldobjs=$objlist
+ if test "$obj" = "$last_oldobj"; then
+ RANLIB=$save_RANLIB
+ fi
+ test -z "$concat_cmds" || concat_cmds=$concat_cmds~
+ eval concat_cmds=\"\$concat_cmds$old_archive_cmds\"
+ objlist=
+ len=$len0
+ fi
+ done
+ RANLIB=$save_RANLIB
+ oldobjs=$objlist
+ if test -z "$oldobjs"; then
+ eval cmds=\"\$concat_cmds\"
+ else
+ eval cmds=\"\$concat_cmds~\$old_archive_cmds\"
+ fi
+ fi
+ fi
+ func_execute_cmds "$cmds" 'exit $?'
+ done
+
+ test -n "$generated" && \
+ func_show_eval "${RM}r$generated"
+
+ # Now create the libtool archive.
+ case $output in
+ *.la)
+ old_library=
+ test yes = "$build_old_libs" && old_library=$libname.$libext
+ func_verbose "creating $output"
+
+ # Preserve any variables that may affect compiler behavior
+ for var in $variables_saved_for_relink; do
+ if eval test -z \"\${$var+set}\"; then
+ relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command"
+ elif eval var_value=\$$var; test -z "$var_value"; then
+ relink_command="$var=; export $var; $relink_command"
+ else
+ func_quote_for_eval "$var_value"
+ relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command"
+ fi
+ done
+ # Quote the link command for shipping.
+ relink_command="(cd `pwd`; $SHELL \"$progpath\" $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)"
+ relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"`
+ if test yes = "$hardcode_automatic"; then
+ relink_command=
+ fi
+
+ # Only create the output if not a dry run.
+ $opt_dry_run || {
+ for installed in no yes; do
+ if test yes = "$installed"; then
+ if test -z "$install_libdir"; then
+ break
+ fi
+ output=$output_objdir/${outputname}i
+ # Replace all uninstalled libtool libraries with the installed ones
+ newdependency_libs=
+ for deplib in $dependency_libs; do
+ case $deplib in
+ *.la)
+ func_basename "$deplib"
+ name=$func_basename_result
+ func_resolve_sysroot "$deplib"
+ eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $func_resolve_sysroot_result`
+ test -z "$libdir" && \
+ func_fatal_error "'$deplib' is not a valid libtool archive"
+ func_append newdependency_libs " ${lt_sysroot:+=}$libdir/$name"
+ ;;
+ -L*)
+ func_stripname -L '' "$deplib"
+ func_replace_sysroot "$func_stripname_result"
+ func_append newdependency_libs " -L$func_replace_sysroot_result"
+ ;;
+ -R*)
+ func_stripname -R '' "$deplib"
+ func_replace_sysroot "$func_stripname_result"
+ func_append newdependency_libs " -R$func_replace_sysroot_result"
+ ;;
+ *) func_append newdependency_libs " $deplib" ;;
+ esac
+ done
+ dependency_libs=$newdependency_libs
+ newdlfiles=
+
+ for lib in $dlfiles; do
+ case $lib in
+ *.la)
+ func_basename "$lib"
+ name=$func_basename_result
+ eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $lib`
+ test -z "$libdir" && \
+ func_fatal_error "'$lib' is not a valid libtool archive"
+ func_append newdlfiles " ${lt_sysroot:+=}$libdir/$name"
+ ;;
+ *) func_append newdlfiles " $lib" ;;
+ esac
+ done
+ dlfiles=$newdlfiles
+ newdlprefiles=
+ for lib in $dlprefiles; do
+ case $lib in
+ *.la)
+ # Only pass preopened files to the pseudo-archive (for
+ # eventual linking with the app. that links it) if we
+ # didn't already link the preopened objects directly into
+ # the library:
+ func_basename "$lib"
+ name=$func_basename_result
+ eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $lib`
+ test -z "$libdir" && \
+ func_fatal_error "'$lib' is not a valid libtool archive"
+ func_append newdlprefiles " ${lt_sysroot:+=}$libdir/$name"
+ ;;
+ esac
+ done
+ dlprefiles=$newdlprefiles
+ else
+ newdlfiles=
+ for lib in $dlfiles; do
+ case $lib in
+ [\\/]* | [A-Za-z]:[\\/]*) abs=$lib ;;
+ *) abs=`pwd`"/$lib" ;;
+ esac
+ func_append newdlfiles " $abs"
+ done
+ dlfiles=$newdlfiles
+ newdlprefiles=
+ for lib in $dlprefiles; do
+ case $lib in
+ [\\/]* | [A-Za-z]:[\\/]*) abs=$lib ;;
+ *) abs=`pwd`"/$lib" ;;
+ esac
+ func_append newdlprefiles " $abs"
+ done
+ dlprefiles=$newdlprefiles
+ fi
+ $RM $output
+ # place dlname in correct position for cygwin
+ # In fact, it would be nice if we could use this code for all target
+ # systems that can't hard-code library paths into their executables
+ # and that have no shared library path variable independent of PATH,
+ # but it turns out we can't easily determine that from inspecting
+ # libtool variables, so we have to hard-code the OSs to which it
+ # applies here; at the moment, that means platforms that use the PE
+ # object format with DLL files. See the long comment at the top of
+ # tests/bindir.at for full details.
+ tdlname=$dlname
+ case $host,$output,$installed,$module,$dlname in
+ *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll | *cegcc*,*lai,yes,no,*.dll)
+ # If a -bindir argument was supplied, place the dll there.
+ if test -n "$bindir"; then
+ func_relative_path "$install_libdir" "$bindir"
+ tdlname=$func_relative_path_result/$dlname
+ else
+ # Otherwise fall back on heuristic.
+ tdlname=../bin/$dlname
+ fi
+ ;;
+ esac
+ $ECHO > $output "\
+# $outputname - a libtool library file
+# Generated by $PROGRAM (GNU $PACKAGE) $VERSION
+#
+# Please DO NOT delete this file!
+# It is necessary for linking the library.
+
+# The name that we can dlopen(3).
+dlname='$tdlname'
+
+# Names of this library.
+library_names='$library_names'
+
+# The name of the static archive.
+old_library='$old_library'
+
+# Linker flags that cannot go in dependency_libs.
+inherited_linker_flags='$new_inherited_linker_flags'
+
+# Libraries that this one depends upon.
+dependency_libs='$dependency_libs'
+
+# Names of additional weak libraries provided by this library
+weak_library_names='$weak_libs'
+
+# Version information for $libname.
+current=$current
+age=$age
+revision=$revision
+
+# Is this an already installed library?
+installed=$installed
+
+# Should we warn about portability when linking against -modules?
+shouldnotlink=$module
+
+# Files to dlopen/dlpreopen
+dlopen='$dlfiles'
+dlpreopen='$dlprefiles'
+
+# Directory that this library needs to be installed in:
+libdir='$install_libdir'"
+ if test no,yes = "$installed,$need_relink"; then
+ $ECHO >> $output "\
+relink_command=\"$relink_command\""
+ fi
+ done
+ }
+
+ # Do a symbolic link so that the libtool archive can be found in
+ # LD_LIBRARY_PATH before the program is installed.
+ func_show_eval '( cd "$output_objdir" && $RM "$outputname" && $LN_S "../$outputname" "$outputname" )' 'exit $?'
+ ;;
+ esac
+ exit $EXIT_SUCCESS
+}
+
+if test link = "$opt_mode" || test relink = "$opt_mode"; then
+ func_mode_link ${1+"$@"}
+fi
+
+
+# func_mode_uninstall arg...
+func_mode_uninstall ()
+{
+ $debug_cmd
+
+ RM=$nonopt
+ files=
+ rmforce=false
+ exit_status=0
+
+ # This variable tells wrapper scripts just to set variables rather
+ # than running their programs.
+ libtool_install_magic=$magic
+
+ for arg
+ do
+ case $arg in
+ -f) func_append RM " $arg"; rmforce=: ;;
+ -*) func_append RM " $arg" ;;
+ *) func_append files " $arg" ;;
+ esac
+ done
+
+ test -z "$RM" && \
+ func_fatal_help "you must specify an RM program"
+
+ rmdirs=
+
+ for file in $files; do
+ func_dirname "$file" "" "."
+ dir=$func_dirname_result
+ if test . = "$dir"; then
+ odir=$objdir
+ else
+ odir=$dir/$objdir
+ fi
+ func_basename "$file"
+ name=$func_basename_result
+ test uninstall = "$opt_mode" && odir=$dir
+
+ # Remember odir for removal later, being careful to avoid duplicates
+ if test clean = "$opt_mode"; then
+ case " $rmdirs " in
+ *" $odir "*) ;;
+ *) func_append rmdirs " $odir" ;;
+ esac
+ fi
+
+ # Don't error if the file doesn't exist and rm -f was used.
+ if { test -L "$file"; } >/dev/null 2>&1 ||
+ { test -h "$file"; } >/dev/null 2>&1 ||
+ test -f "$file"; then
+ :
+ elif test -d "$file"; then
+ exit_status=1
+ continue
+ elif $rmforce; then
+ continue
+ fi
+
+ rmfiles=$file
+
+ case $name in
+ *.la)
+ # Possibly a libtool archive, so verify it.
+ if func_lalib_p "$file"; then
+ func_source $dir/$name
+
+ # Delete the libtool libraries and symlinks.
+ for n in $library_names; do
+ func_append rmfiles " $odir/$n"
+ done
+ test -n "$old_library" && func_append rmfiles " $odir/$old_library"
+
+ case $opt_mode in
+ clean)
+ case " $library_names " in
+ *" $dlname "*) ;;
+ *) test -n "$dlname" && func_append rmfiles " $odir/$dlname" ;;
+ esac
+ test -n "$libdir" && func_append rmfiles " $odir/$name $odir/${name}i"
+ ;;
+ uninstall)
+ if test -n "$library_names"; then
+ # Do each command in the postuninstall commands.
+ func_execute_cmds "$postuninstall_cmds" '$rmforce || exit_status=1'
+ fi
+
+ if test -n "$old_library"; then
+ # Do each command in the old_postuninstall commands.
+ func_execute_cmds "$old_postuninstall_cmds" '$rmforce || exit_status=1'
+ fi
+ # FIXME: should reinstall the best remaining shared library.
+ ;;
+ esac
+ fi
+ ;;
+
+ *.lo)
+ # Possibly a libtool object, so verify it.
+ if func_lalib_p "$file"; then
+
+ # Read the .lo file
+ func_source $dir/$name
+
+ # Add PIC object to the list of files to remove.
+ if test -n "$pic_object" && test none != "$pic_object"; then
+ func_append rmfiles " $dir/$pic_object"
+ fi
+
+ # Add non-PIC object to the list of files to remove.
+ if test -n "$non_pic_object" && test none != "$non_pic_object"; then
+ func_append rmfiles " $dir/$non_pic_object"
+ fi
+ fi
+ ;;
+
+ *)
+ if test clean = "$opt_mode"; then
+ noexename=$name
+ case $file in
+ *.exe)
+ func_stripname '' '.exe' "$file"
+ file=$func_stripname_result
+ func_stripname '' '.exe' "$name"
+ noexename=$func_stripname_result
+ # $file with .exe has already been added to rmfiles,
+ # add $file without .exe
+ func_append rmfiles " $file"
+ ;;
+ esac
+ # Do a test to see if this is a libtool program.
+ if func_ltwrapper_p "$file"; then
+ if func_ltwrapper_executable_p "$file"; then
+ func_ltwrapper_scriptname "$file"
+ relink_command=
+ func_source $func_ltwrapper_scriptname_result
+ func_append rmfiles " $func_ltwrapper_scriptname_result"
+ else
+ relink_command=
+ func_source $dir/$noexename
+ fi
+
+ # note $name still contains .exe if it was in $file originally
+ # as does the version of $file that was added into $rmfiles
+ func_append rmfiles " $odir/$name $odir/${name}S.$objext"
+ if test yes = "$fast_install" && test -n "$relink_command"; then
+ func_append rmfiles " $odir/lt-$name"
+ fi
+ if test "X$noexename" != "X$name"; then
+ func_append rmfiles " $odir/lt-$noexename.c"
+ fi
+ fi
+ fi
+ ;;
+ esac
+ func_show_eval "$RM $rmfiles" 'exit_status=1'
+ done
+
+ # Try to remove the $objdir's in the directories where we deleted files
+ for dir in $rmdirs; do
+ if test -d "$dir"; then
+ func_show_eval "rmdir $dir >/dev/null 2>&1"
+ fi
+ done
+
+ exit $exit_status
+}
+
+if test uninstall = "$opt_mode" || test clean = "$opt_mode"; then
+ func_mode_uninstall ${1+"$@"}
+fi
+
+test -z "$opt_mode" && {
+ help=$generic_help
+ func_fatal_help "you must specify a MODE"
+}
+
+test -z "$exec_cmd" && \
+ func_fatal_help "invalid operation mode '$opt_mode'"
+
+if test -n "$exec_cmd"; then
+ eval exec "$exec_cmd"
+ exit $EXIT_FAILURE
+fi
+
+exit $exit_status
+
+
+# The TAGs below are defined such that we never get into a situation
+# where we disable both kinds of libraries. Given conflicting
+# choices, we go for a static library, that is the most portable,
+# since we can't tell whether shared libraries were disabled because
+# the user asked for that or because the platform doesn't support
+# them. This is particularly important on AIX, because we don't
+# support having both static and shared libraries enabled at the same
+# time on that platform, so we default to a shared-only configuration.
+# If a disable-shared tag is given, we'll fallback to a static-only
+# configuration. But we'll never go from static-only to shared-only.
+
+# ### BEGIN LIBTOOL TAG CONFIG: disable-shared
+build_libtool_libs=no
+build_old_libs=yes
+# ### END LIBTOOL TAG CONFIG: disable-shared
+
+# ### BEGIN LIBTOOL TAG CONFIG: disable-static
+build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac`
+# ### END LIBTOOL TAG CONFIG: disable-static
+
+# Local Variables:
+# mode:shell-script
+# sh-indentation:2
+# End:
diff --git a/config/missing b/config/missing
new file mode 100755
index 000000000..1fe1611f1
--- /dev/null
+++ b/config/missing
@@ -0,0 +1,215 @@
+#! /bin/sh
+# Common wrapper for a few potentially missing GNU programs.
+
+scriptversion=2018-03-07.03; # UTC
+
+# Copyright (C) 1996-2021 Free Software Foundation, Inc.
+# Originally written by Fran,cois Pinard <pinard@iro.umontreal.ca>, 1996.
+
+# 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 2, 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 <https://www.gnu.org/licenses/>.
+
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+if test $# -eq 0; then
+ echo 1>&2 "Try '$0 --help' for more information"
+ exit 1
+fi
+
+case $1 in
+
+ --is-lightweight)
+ # Used by our autoconf macros to check whether the available missing
+ # script is modern enough.
+ exit 0
+ ;;
+
+ --run)
+ # Back-compat with the calling convention used by older automake.
+ shift
+ ;;
+
+ -h|--h|--he|--hel|--help)
+ echo "\
+$0 [OPTION]... PROGRAM [ARGUMENT]...
+
+Run 'PROGRAM [ARGUMENT]...', returning a proper advice when this fails due
+to PROGRAM being missing or too old.
+
+Options:
+ -h, --help display this help and exit
+ -v, --version output version information and exit
+
+Supported PROGRAM values:
+ aclocal autoconf autoheader autom4te automake makeinfo
+ bison yacc flex lex help2man
+
+Version suffixes to PROGRAM as well as the prefixes 'gnu-', 'gnu', and
+'g' are ignored when checking the name.
+
+Send bug reports to <bug-automake@gnu.org>."
+ exit $?
+ ;;
+
+ -v|--v|--ve|--ver|--vers|--versi|--versio|--version)
+ echo "missing $scriptversion (GNU Automake)"
+ exit $?
+ ;;
+
+ -*)
+ echo 1>&2 "$0: unknown '$1' option"
+ echo 1>&2 "Try '$0 --help' for more information"
+ exit 1
+ ;;
+
+esac
+
+# Run the given program, remember its exit status.
+"$@"; st=$?
+
+# If it succeeded, we are done.
+test $st -eq 0 && exit 0
+
+# Also exit now if we it failed (or wasn't found), and '--version' was
+# passed; such an option is passed most likely to detect whether the
+# program is present and works.
+case $2 in --version|--help) exit $st;; esac
+
+# Exit code 63 means version mismatch. This often happens when the user
+# tries to use an ancient version of a tool on a file that requires a
+# minimum version.
+if test $st -eq 63; then
+ msg="probably too old"
+elif test $st -eq 127; then
+ # Program was missing.
+ msg="missing on your system"
+else
+ # Program was found and executed, but failed. Give up.
+ exit $st
+fi
+
+perl_URL=https://www.perl.org/
+flex_URL=https://github.com/westes/flex
+gnu_software_URL=https://www.gnu.org/software
+
+program_details ()
+{
+ case $1 in
+ aclocal|automake)
+ echo "The '$1' program is part of the GNU Automake package:"
+ echo "<$gnu_software_URL/automake>"
+ echo "It also requires GNU Autoconf, GNU m4 and Perl in order to run:"
+ echo "<$gnu_software_URL/autoconf>"
+ echo "<$gnu_software_URL/m4/>"
+ echo "<$perl_URL>"
+ ;;
+ autoconf|autom4te|autoheader)
+ echo "The '$1' program is part of the GNU Autoconf package:"
+ echo "<$gnu_software_URL/autoconf/>"
+ echo "It also requires GNU m4 and Perl in order to run:"
+ echo "<$gnu_software_URL/m4/>"
+ echo "<$perl_URL>"
+ ;;
+ esac
+}
+
+give_advice ()
+{
+ # Normalize program name to check for.
+ normalized_program=`echo "$1" | sed '
+ s/^gnu-//; t
+ s/^gnu//; t
+ s/^g//; t'`
+
+ printf '%s\n' "'$1' is $msg."
+
+ configure_deps="'configure.ac' or m4 files included by 'configure.ac'"
+ case $normalized_program in
+ autoconf*)
+ echo "You should only need it if you modified 'configure.ac',"
+ echo "or m4 files included by it."
+ program_details 'autoconf'
+ ;;
+ autoheader*)
+ echo "You should only need it if you modified 'acconfig.h' or"
+ echo "$configure_deps."
+ program_details 'autoheader'
+ ;;
+ automake*)
+ echo "You should only need it if you modified 'Makefile.am' or"
+ echo "$configure_deps."
+ program_details 'automake'
+ ;;
+ aclocal*)
+ echo "You should only need it if you modified 'acinclude.m4' or"
+ echo "$configure_deps."
+ program_details 'aclocal'
+ ;;
+ autom4te*)
+ echo "You might have modified some maintainer files that require"
+ echo "the 'autom4te' program to be rebuilt."
+ program_details 'autom4te'
+ ;;
+ bison*|yacc*)
+ echo "You should only need it if you modified a '.y' file."
+ echo "You may want to install the GNU Bison package:"
+ echo "<$gnu_software_URL/bison/>"
+ ;;
+ lex*|flex*)
+ echo "You should only need it if you modified a '.l' file."
+ echo "You may want to install the Fast Lexical Analyzer package:"
+ echo "<$flex_URL>"
+ ;;
+ help2man*)
+ echo "You should only need it if you modified a dependency" \
+ "of a man page."
+ echo "You may want to install the GNU Help2man package:"
+ echo "<$gnu_software_URL/help2man/>"
+ ;;
+ makeinfo*)
+ echo "You should only need it if you modified a '.texi' file, or"
+ echo "any other file indirectly affecting the aspect of the manual."
+ echo "You might want to install the Texinfo package:"
+ echo "<$gnu_software_URL/texinfo/>"
+ echo "The spurious makeinfo call might also be the consequence of"
+ echo "using a buggy 'make' (AIX, DU, IRIX), in which case you might"
+ echo "want to install GNU make:"
+ echo "<$gnu_software_URL/make/>"
+ ;;
+ *)
+ echo "You might have modified some files without having the proper"
+ echo "tools for further handling them. Check the 'README' file, it"
+ echo "often tells you about the needed prerequisites for installing"
+ echo "this package. You may also peek at any GNU archive site, in"
+ echo "case some other package contains this missing '$1' program."
+ ;;
+ esac
+}
+
+give_advice "$1" | sed -e '1s/^/WARNING: /' \
+ -e '2,$s/^/ /' >&2
+
+# Propagate the correct exit status (expected to be 127 for a program
+# not found, 63 for a program that failed due to version mismatch).
+exit $st
+
+# Local variables:
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-start: "scriptversion="
+# time-stamp-format: "%:y-%02m-%02d.%02H"
+# time-stamp-time-zone: "UTC0"
+# time-stamp-end: "; # UTC"
+# End:
diff --git a/config/py-compile b/config/py-compile
new file mode 100755
index 000000000..81b122b0a
--- /dev/null
+++ b/config/py-compile
@@ -0,0 +1,189 @@
+#!/bin/sh
+# py-compile - Compile a Python program
+
+scriptversion=2021-02-27.01; # UTC
+
+# Copyright (C) 2000-2021 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 2, 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 <https://www.gnu.org/licenses/>.
+
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+# This file is maintained in Automake, please report
+# bugs to <bug-automake@gnu.org> or send patches to
+# <automake-patches@gnu.org>.
+
+if test -z "$PYTHON"; then
+ PYTHON=python
+fi
+
+me=py-compile
+
+usage_error ()
+{
+ echo "$me: $*" >&2
+ echo "Try '$me --help' for more information." >&2
+ exit 1
+}
+
+basedir=
+destdir=
+while test $# -ne 0; do
+ case "$1" in
+ --basedir)
+ if test $# -lt 2; then
+ usage_error "option '--basedir' requires an argument"
+ else
+ basedir=$2
+ fi
+ shift
+ ;;
+ --destdir)
+ if test $# -lt 2; then
+ usage_error "option '--destdir' requires an argument"
+ else
+ destdir=$2
+ fi
+ shift
+ ;;
+ -h|--help)
+ cat <<\EOF
+Usage: py-compile [--help] [--version] [--basedir DIR] [--destdir DIR] FILES..."
+
+Byte compile some python scripts FILES. Use --destdir to specify any
+leading directory path to the FILES that you don't want to include in the
+byte compiled file. Specify --basedir for any additional path information you
+do want to be shown in the byte compiled file.
+
+Example:
+ py-compile --destdir /tmp/pkg-root --basedir /usr/share/test test.py test2.py
+
+Report bugs to <bug-automake@gnu.org>.
+EOF
+ exit $?
+ ;;
+ -v|--version)
+ echo "$me $scriptversion"
+ exit $?
+ ;;
+ --)
+ shift
+ break
+ ;;
+ -*)
+ usage_error "unrecognized option '$1'"
+ ;;
+ *)
+ break
+ ;;
+ esac
+ shift
+done
+
+files=$*
+if test -z "$files"; then
+ usage_error "no files given"
+fi
+
+# if basedir was given, then it should be prepended to filenames before
+# byte compilation.
+if test -z "$basedir"; then
+ pathtrans="path = file"
+else
+ pathtrans="path = os.path.join('$basedir', file)"
+fi
+
+# if destdir was given, then it needs to be prepended to the filename to
+# byte compile but not go into the compiled file.
+if test -z "$destdir"; then
+ filetrans="filepath = path"
+else
+ filetrans="filepath = os.path.normpath('$destdir' + os.sep + path)"
+fi
+
+python_major=`$PYTHON -V 2>&1 | sed -e 's/.* //;s/\..*$//;1q'`
+if test -z "$python_major"; then
+ echo "$me: could not determine $PYTHON major version, guessing 3" >&2
+ python_major=3
+fi
+
+# The old way to import libraries was deprecated.
+if test "$python_major" -le 2; then
+ import_lib=imp
+ import_test="hasattr(imp, 'get_tag')"
+ import_call=imp.cache_from_source
+ import_arg2=', False' # needed in one call and not the other
+else
+ import_lib=importlib
+ import_test="hasattr(sys.implementation, 'cache_tag')"
+ import_call=importlib.util.cache_from_source
+ import_arg2=
+fi
+
+$PYTHON -c "
+import sys, os, py_compile, $import_lib
+
+files = '''$files'''
+
+sys.stdout.write('Byte-compiling python modules...\n')
+for file in files.split():
+ $pathtrans
+ $filetrans
+ if not os.path.exists(filepath) or not (len(filepath) >= 3
+ and filepath[-3:] == '.py'):
+ continue
+ sys.stdout.write(file)
+ sys.stdout.flush()
+ if $import_test:
+ py_compile.compile(filepath, $import_call(filepath), path)
+ else:
+ py_compile.compile(filepath, filepath + 'c', path)
+sys.stdout.write('\n')" || exit $?
+
+# this will fail for python < 1.5, but that doesn't matter ...
+$PYTHON -O -c "
+import sys, os, py_compile, $import_lib
+
+# pypy does not use .pyo optimization
+if hasattr(sys, 'pypy_translation_info'):
+ sys.exit(0)
+
+files = '''$files'''
+sys.stdout.write('Byte-compiling python modules (optimized versions) ...\n')
+for file in files.split():
+ $pathtrans
+ $filetrans
+ if not os.path.exists(filepath) or not (len(filepath) >= 3
+ and filepath[-3:] == '.py'):
+ continue
+ sys.stdout.write(file)
+ sys.stdout.flush()
+ if $import_test:
+ py_compile.compile(filepath, $import_call(filepath$import_arg2), path)
+ else:
+ py_compile.compile(filepath, filepath + 'o', path)
+sys.stdout.write('\n')" 2>/dev/null || exit $?
+
+# Local Variables:
+# mode: shell-script
+# sh-indentation: 2
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-start: "scriptversion="
+# time-stamp-format: "%:y-%02m-%02d.%02H"
+# time-stamp-time-zone: "UTC0"
+# time-stamp-end: "; # UTC"
+# End:
diff --git a/config/test-driver b/config/test-driver
new file mode 100755
index 000000000..be73b80ad
--- /dev/null
+++ b/config/test-driver
@@ -0,0 +1,153 @@
+#! /bin/sh
+# test-driver - basic testsuite driver script.
+
+scriptversion=2018-03-07.03; # UTC
+
+# Copyright (C) 2011-2021 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 2, 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 <https://www.gnu.org/licenses/>.
+
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+# This file is maintained in Automake, please report
+# bugs to <bug-automake@gnu.org> or send patches to
+# <automake-patches@gnu.org>.
+
+# Make unconditional expansion of undefined variables an error. This
+# helps a lot in preventing typo-related bugs.
+set -u
+
+usage_error ()
+{
+ echo "$0: $*" >&2
+ print_usage >&2
+ exit 2
+}
+
+print_usage ()
+{
+ cat <<END
+Usage:
+ test-driver --test-name NAME --log-file PATH --trs-file PATH
+ [--expect-failure {yes|no}] [--color-tests {yes|no}]
+ [--enable-hard-errors {yes|no}] [--]
+ TEST-SCRIPT [TEST-SCRIPT-ARGUMENTS]
+
+The '--test-name', '--log-file' and '--trs-file' options are mandatory.
+See the GNU Automake documentation for information.
+END
+}
+
+test_name= # Used for reporting.
+log_file= # Where to save the output of the test script.
+trs_file= # Where to save the metadata of the test run.
+expect_failure=no
+color_tests=no
+enable_hard_errors=yes
+while test $# -gt 0; do
+ case $1 in
+ --help) print_usage; exit $?;;
+ --version) echo "test-driver $scriptversion"; exit $?;;
+ --test-name) test_name=$2; shift;;
+ --log-file) log_file=$2; shift;;
+ --trs-file) trs_file=$2; shift;;
+ --color-tests) color_tests=$2; shift;;
+ --expect-failure) expect_failure=$2; shift;;
+ --enable-hard-errors) enable_hard_errors=$2; shift;;
+ --) shift; break;;
+ -*) usage_error "invalid option: '$1'";;
+ *) break;;
+ esac
+ shift
+done
+
+missing_opts=
+test x"$test_name" = x && missing_opts="$missing_opts --test-name"
+test x"$log_file" = x && missing_opts="$missing_opts --log-file"
+test x"$trs_file" = x && missing_opts="$missing_opts --trs-file"
+if test x"$missing_opts" != x; then
+ usage_error "the following mandatory options are missing:$missing_opts"
+fi
+
+if test $# -eq 0; then
+ usage_error "missing argument"
+fi
+
+if test $color_tests = yes; then
+ # Keep this in sync with 'lib/am/check.am:$(am__tty_colors)'.
+ red='[0;31m' # Red.
+ grn='[0;32m' # Green.
+ lgn='[1;32m' # Light green.
+ blu='[1;34m' # Blue.
+ mgn='[0;35m' # Magenta.
+ std='[m' # No color.
+else
+ red= grn= lgn= blu= mgn= std=
+fi
+
+do_exit='rm -f $log_file $trs_file; (exit $st); exit $st'
+trap "st=129; $do_exit" 1
+trap "st=130; $do_exit" 2
+trap "st=141; $do_exit" 13
+trap "st=143; $do_exit" 15
+
+# Test script is run here. We create the file first, then append to it,
+# to ameliorate tests themselves also writing to the log file. Our tests
+# don't, but others can (automake bug#35762).
+: >"$log_file"
+"$@" >>"$log_file" 2>&1
+estatus=$?
+
+if test $enable_hard_errors = no && test $estatus -eq 99; then
+ tweaked_estatus=1
+else
+ tweaked_estatus=$estatus
+fi
+
+case $tweaked_estatus:$expect_failure in
+ 0:yes) col=$red res=XPASS recheck=yes gcopy=yes;;
+ 0:*) col=$grn res=PASS recheck=no gcopy=no;;
+ 77:*) col=$blu res=SKIP recheck=no gcopy=yes;;
+ 99:*) col=$mgn res=ERROR recheck=yes gcopy=yes;;
+ *:yes) col=$lgn res=XFAIL recheck=no gcopy=yes;;
+ *:*) col=$red res=FAIL recheck=yes gcopy=yes;;
+esac
+
+# Report the test outcome and exit status in the logs, so that one can
+# know whether the test passed or failed simply by looking at the '.log'
+# file, without the need of also peaking into the corresponding '.trs'
+# file (automake bug#11814).
+echo "$res $test_name (exit status: $estatus)" >>"$log_file"
+
+# Report outcome to console.
+echo "${col}${res}${std}: $test_name"
+
+# Register the test result, and other relevant metadata.
+echo ":test-result: $res" > $trs_file
+echo ":global-test-result: $res" >> $trs_file
+echo ":recheck: $recheck" >> $trs_file
+echo ":copy-in-global-log: $gcopy" >> $trs_file
+
+# Local Variables:
+# mode: shell-script
+# sh-indentation: 2
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-start: "scriptversion="
+# time-stamp-format: "%:y-%02m-%02d.%02H"
+# time-stamp-time-zone: "UTC0"
+# time-stamp-end: "; # UTC"
+# End:
diff --git a/configure b/configure
new file mode 100755
index 000000000..e8295dbe1
--- /dev/null
+++ b/configure
@@ -0,0 +1,38374 @@
+#! /bin/sh
+# Guess values for system-dependent variables and create Makefiles.
+# Generated by GNU Autoconf 2.69 for cdi 2.4.0.
+#
+# Report bugs to <https://mpimet.mpg.de/cdi>.
+#
+#
+# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
+#
+#
+# This configure script is free software; the Free Software Foundation
+# gives unlimited permission to copy, distribute and modify it.
+## -------------------- ##
+## M4sh Initialization. ##
+## -------------------- ##
+
+# Be more Bourne compatible
+DUALCASE=1; export DUALCASE # for MKS sh
+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
+ emulate sh
+ NULLCMD=:
+ # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
+ # is contrary to our usage. Disable this feature.
+ alias -g '${1+"$@"}'='"$@"'
+ setopt NO_GLOB_SUBST
+else
+ case `(set -o) 2>/dev/null` in #(
+ *posix*) :
+ set -o posix ;; #(
+ *) :
+ ;;
+esac
+fi
+
+
+as_nl='
+'
+export as_nl
+# Printing a long string crashes Solaris 7 /usr/bin/printf.
+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
+# Prefer a ksh shell builtin over an external printf program on Solaris,
+# but without wasting forks for bash or zsh.
+if test -z "$BASH_VERSION$ZSH_VERSION" \
+ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
+ as_echo='print -r --'
+ as_echo_n='print -rn --'
+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
+ as_echo='printf %s\n'
+ as_echo_n='printf %s'
+else
+ if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
+ as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
+ as_echo_n='/usr/ucb/echo -n'
+ else
+ as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
+ as_echo_n_body='eval
+ arg=$1;
+ case $arg in #(
+ *"$as_nl"*)
+ expr "X$arg" : "X\\(.*\\)$as_nl";
+ arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
+ esac;
+ expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
+ '
+ export as_echo_n_body
+ as_echo_n='sh -c $as_echo_n_body as_echo'
+ fi
+ export as_echo_body
+ as_echo='sh -c $as_echo_body as_echo'
+fi
+
+# The user is always right.
+if test "${PATH_SEPARATOR+set}" != set; then
+ PATH_SEPARATOR=:
+ (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
+ (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
+ PATH_SEPARATOR=';'
+ }
+fi
+
+
+# IFS
+# We need space, tab and new line, in precisely that order. Quoting is
+# there to prevent editors from complaining about space-tab.
+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
+# splitting by setting IFS to empty value.)
+IFS=" "" $as_nl"
+
+# Find who we are. Look in the path if we contain no directory separator.
+as_myself=
+case $0 in #((
+ *[\\/]* ) as_myself=$0 ;;
+ *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
+ done
+IFS=$as_save_IFS
+
+ ;;
+esac
+# We did not find ourselves, most probably we were run as `sh COMMAND'
+# in which case we are not to be found in the path.
+if test "x$as_myself" = x; then
+ as_myself=$0
+fi
+if test ! -f "$as_myself"; then
+ $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
+ exit 1
+fi
+
+# Unset variables that we do not need and which cause bugs (e.g. in
+# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
+# suppresses any "Segmentation fault" message there. '((' could
+# trigger a bug in pdksh 5.2.14.
+for as_var in BASH_ENV ENV MAIL MAILPATH
+do eval test x\${$as_var+set} = xset \
+ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
+done
+PS1='$ '
+PS2='> '
+PS4='+ '
+
+# NLS nuisances.
+LC_ALL=C
+export LC_ALL
+LANGUAGE=C
+export LANGUAGE
+
+# CDPATH.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+# Use a proper internal environment variable to ensure we don't fall
+ # into an infinite loop, continuously re-executing ourselves.
+ if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
+ _as_can_reexec=no; export _as_can_reexec;
+ # We cannot yet assume a decent shell, so we have to provide a
+# neutralization value for shells without unset; and this also
+# works around shells that cannot unset nonexistent variables.
+# Preserve -v and -x to the replacement shell.
+BASH_ENV=/dev/null
+ENV=/dev/null
+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
+case $- in # ((((
+ *v*x* | *x*v* ) as_opts=-vx ;;
+ *v* ) as_opts=-v ;;
+ *x* ) as_opts=-x ;;
+ * ) as_opts= ;;
+esac
+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
+# Admittedly, this is quite paranoid, since all the known shells bail
+# out after a failed `exec'.
+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
+as_fn_exit 255
+ fi
+ # We don't want this to propagate to other subprocesses.
+ { _as_can_reexec=; unset _as_can_reexec;}
+if test "x$CONFIG_SHELL" = x; then
+ as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
+ emulate sh
+ NULLCMD=:
+ # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
+ # is contrary to our usage. Disable this feature.
+ alias -g '\${1+\"\$@\"}'='\"\$@\"'
+ setopt NO_GLOB_SUBST
+else
+ case \`(set -o) 2>/dev/null\` in #(
+ *posix*) :
+ set -o posix ;; #(
+ *) :
+ ;;
+esac
+fi
+"
+ as_required="as_fn_return () { (exit \$1); }
+as_fn_success () { as_fn_return 0; }
+as_fn_failure () { as_fn_return 1; }
+as_fn_ret_success () { return 0; }
+as_fn_ret_failure () { return 1; }
+
+exitcode=0
+as_fn_success || { exitcode=1; echo as_fn_success failed.; }
+as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
+as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
+as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
+if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
+
+else
+ exitcode=1; echo positional parameters were not saved.
+fi
+test x\$exitcode = x0 || exit 1
+test -x / || exit 1"
+ as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
+ as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
+ eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
+ test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
+
+ test -n \"\${ZSH_VERSION+set}\${BASH_VERSION+set}\" || (
+ ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+ ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO
+ ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO
+ PATH=/empty FPATH=/empty; export PATH FPATH
+ test \"X\`printf %s \$ECHO\`\" = \"X\$ECHO\" \\
+ || test \"X\`print -r -- \$ECHO\`\" = \"X\$ECHO\" ) || exit 1
+test \$(( 1 + 1 )) = 2 || exit 1"
+ if (eval "$as_required") 2>/dev/null; then :
+ as_have_required=yes
+else
+ as_have_required=no
+fi
+ if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then :
+
+else
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+as_found=false
+for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ as_found=:
+ case $as_dir in #(
+ /*)
+ for as_base in sh bash ksh sh5; do
+ # Try only shells that exist, to save several forks.
+ as_shell=$as_dir/$as_base
+ if { test -f "$as_shell" || test -f "$as_shell.exe"; } &&
+ { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then :
+ CONFIG_SHELL=$as_shell as_have_required=yes
+ if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then :
+ break 2
+fi
+fi
+ done;;
+ esac
+ as_found=false
+done
+$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } &&
+ { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then :
+ CONFIG_SHELL=$SHELL as_have_required=yes
+fi; }
+IFS=$as_save_IFS
+
+
+ if test "x$CONFIG_SHELL" != x; then :
+ export CONFIG_SHELL
+ # We cannot yet assume a decent shell, so we have to provide a
+# neutralization value for shells without unset; and this also
+# works around shells that cannot unset nonexistent variables.
+# Preserve -v and -x to the replacement shell.
+BASH_ENV=/dev/null
+ENV=/dev/null
+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
+case $- in # ((((
+ *v*x* | *x*v* ) as_opts=-vx ;;
+ *v* ) as_opts=-v ;;
+ *x* ) as_opts=-x ;;
+ * ) as_opts= ;;
+esac
+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
+# Admittedly, this is quite paranoid, since all the known shells bail
+# out after a failed `exec'.
+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
+exit 255
+fi
+
+ if test x$as_have_required = xno; then :
+ $as_echo "$0: This script requires a shell more modern than all"
+ $as_echo "$0: the shells that I found on your system."
+ if test x${ZSH_VERSION+set} = xset ; then
+ $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should"
+ $as_echo "$0: be upgraded to zsh 4.3.4 or later."
+ else
+ $as_echo "$0: Please tell bug-autoconf@gnu.org and
+$0: https://mpimet.mpg.de/cdi about your system, including
+$0: any error possibly output before this message. Then
+$0: install a modern shell, or manually run the script
+$0: under such a shell if you do have one."
+ fi
+ exit 1
+fi
+fi
+fi
+SHELL=${CONFIG_SHELL-/bin/sh}
+export SHELL
+# Unset more variables known to interfere with behavior of common tools.
+CLICOLOR_FORCE= GREP_OPTIONS=
+unset CLICOLOR_FORCE GREP_OPTIONS
+
+## --------------------- ##
+## M4sh Shell Functions. ##
+## --------------------- ##
+# as_fn_unset VAR
+# ---------------
+# Portably unset VAR.
+as_fn_unset ()
+{
+ { eval $1=; unset $1;}
+}
+as_unset=as_fn_unset
+
+# as_fn_set_status STATUS
+# -----------------------
+# Set $? to STATUS, without forking.
+as_fn_set_status ()
+{
+ return $1
+} # as_fn_set_status
+
+# as_fn_exit STATUS
+# -----------------
+# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
+as_fn_exit ()
+{
+ set +e
+ as_fn_set_status $1
+ exit $1
+} # as_fn_exit
+
+# as_fn_mkdir_p
+# -------------
+# Create "$as_dir" as a directory, including parents if necessary.
+as_fn_mkdir_p ()
+{
+
+ case $as_dir in #(
+ -*) as_dir=./$as_dir;;
+ esac
+ test -d "$as_dir" || eval $as_mkdir_p || {
+ as_dirs=
+ while :; do
+ case $as_dir in #(
+ *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
+ *) as_qdir=$as_dir;;
+ esac
+ as_dirs="'$as_qdir' $as_dirs"
+ as_dir=`$as_dirname -- "$as_dir" ||
+$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
+ X"$as_dir" : 'X\(//\)[^/]' \| \
+ X"$as_dir" : 'X\(//\)$' \| \
+ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X"$as_dir" |
+ sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)[^/].*/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+ test -d "$as_dir" && break
+ done
+ test -z "$as_dirs" || eval "mkdir $as_dirs"
+ } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
+
+
+} # as_fn_mkdir_p
+
+# as_fn_executable_p FILE
+# -----------------------
+# Test if FILE is an executable regular file.
+as_fn_executable_p ()
+{
+ test -f "$1" && test -x "$1"
+} # as_fn_executable_p
+# as_fn_append VAR VALUE
+# ----------------------
+# Append the text in VALUE to the end of the definition contained in VAR. Take
+# advantage of any shell optimizations that allow amortized linear growth over
+# repeated appends, instead of the typical quadratic growth present in naive
+# implementations.
+if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
+ eval 'as_fn_append ()
+ {
+ eval $1+=\$2
+ }'
+else
+ as_fn_append ()
+ {
+ eval $1=\$$1\$2
+ }
+fi # as_fn_append
+
+# as_fn_arith ARG...
+# ------------------
+# Perform arithmetic evaluation on the ARGs, and store the result in the
+# global $as_val. Take advantage of shells that can avoid forks. The arguments
+# must be portable across $(()) and expr.
+if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
+ eval 'as_fn_arith ()
+ {
+ as_val=$(( $* ))
+ }'
+else
+ as_fn_arith ()
+ {
+ as_val=`expr "$@" || test $? -eq 1`
+ }
+fi # as_fn_arith
+
+
+# as_fn_error STATUS ERROR [LINENO LOG_FD]
+# ----------------------------------------
+# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
+# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
+# script with STATUS, using 1 if that was 0.
+as_fn_error ()
+{
+ as_status=$1; test $as_status -eq 0 && as_status=1
+ if test "$4"; then
+ as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
+ fi
+ $as_echo "$as_me: error: $2" >&2
+ as_fn_exit $as_status
+} # as_fn_error
+
+if expr a : '\(a\)' >/dev/null 2>&1 &&
+ test "X`expr 00001 : '.*\(...\)'`" = X001; then
+ as_expr=expr
+else
+ as_expr=false
+fi
+
+if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
+ as_basename=basename
+else
+ as_basename=false
+fi
+
+if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
+ as_dirname=dirname
+else
+ as_dirname=false
+fi
+
+as_me=`$as_basename -- "$0" ||
+$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
+ X"$0" : 'X\(//\)$' \| \
+ X"$0" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X/"$0" |
+ sed '/^.*\/\([^/][^/]*\)\/*$/{
+ s//\1/
+ q
+ }
+ /^X\/\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\/\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+
+# Avoid depending upon Character Ranges.
+as_cr_letters='abcdefghijklmnopqrstuvwxyz'
+as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
+as_cr_Letters=$as_cr_letters$as_cr_LETTERS
+as_cr_digits='0123456789'
+as_cr_alnum=$as_cr_Letters$as_cr_digits
+
+
+ as_lineno_1=$LINENO as_lineno_1a=$LINENO
+ as_lineno_2=$LINENO as_lineno_2a=$LINENO
+ eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
+ test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
+ # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-)
+ sed -n '
+ p
+ /[$]LINENO/=
+ ' <$as_myself |
+ sed '
+ s/[$]LINENO.*/&-/
+ t lineno
+ b
+ :lineno
+ N
+ :loop
+ s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/
+ t loop
+ s/-\n.*//
+ ' >$as_me.lineno &&
+ chmod +x "$as_me.lineno" ||
+ { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }
+
+ # If we had to re-execute with $CONFIG_SHELL, we're ensured to have
+ # already done that, so ensure we don't try to do so again and fall
+ # in an infinite loop. This has already happened in practice.
+ _as_can_reexec=no; export _as_can_reexec
+ # Don't try to exec as it changes $[0], causing all sort of problems
+ # (the dirname of $[0] is not the place where we might find the
+ # original and so on. Autoconf is especially sensitive to this).
+ . "./$as_me.lineno"
+ # Exit status is that of the last command.
+ exit
+}
+
+ECHO_C= ECHO_N= ECHO_T=
+case `echo -n x` in #(((((
+-n*)
+ case `echo 'xy\c'` in
+ *c*) ECHO_T=' ';; # ECHO_T is single tab character.
+ xy) ECHO_C='\c';;
+ *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
+ ECHO_T=' ';;
+ esac;;
+*)
+ ECHO_N='-n';;
+esac
+
+rm -f conf$$ conf$$.exe conf$$.file
+if test -d conf$$.dir; then
+ rm -f conf$$.dir/conf$$.file
+else
+ rm -f conf$$.dir
+ mkdir conf$$.dir 2>/dev/null
+fi
+if (echo >conf$$.file) 2>/dev/null; then
+ if ln -s conf$$.file conf$$ 2>/dev/null; then
+ as_ln_s='ln -s'
+ # ... but there are two gotchas:
+ # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
+ # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
+ # In both cases, we have to default to `cp -pR'.
+ ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
+ as_ln_s='cp -pR'
+ elif ln conf$$.file conf$$ 2>/dev/null; then
+ as_ln_s=ln
+ else
+ as_ln_s='cp -pR'
+ fi
+else
+ as_ln_s='cp -pR'
+fi
+rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
+rmdir conf$$.dir 2>/dev/null
+
+if mkdir -p . 2>/dev/null; then
+ as_mkdir_p='mkdir -p "$as_dir"'
+else
+ test -d ./-p && rmdir ./-p
+ as_mkdir_p=false
+fi
+
+as_test_x='test -x'
+as_executable_p=as_fn_executable_p
+
+# Sed expression to map a string onto a valid CPP name.
+as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
+
+# Sed expression to map a string onto a valid variable name.
+as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
+
+as_awk_strverscmp='
+ # Use only awk features that work with 7th edition Unix awk (1978).
+ # My, what an old awk you have, Mr. Solaris!
+ END {
+ while (length(v1) && length(v2)) {
+ # Set d1 to be the next thing to compare from v1, and likewise for d2.
+ # Normally this is a single character, but if v1 and v2 contain digits,
+ # compare them as integers and fractions as strverscmp does.
+ if (v1 ~ /^[0-9]/ && v2 ~ /^[0-9]/) {
+ # Split v1 and v2 into their leading digit string components d1 and d2,
+ # and advance v1 and v2 past the leading digit strings.
+ for (len1 = 1; substr(v1, len1 + 1) ~ /^[0-9]/; len1++) continue
+ for (len2 = 1; substr(v2, len2 + 1) ~ /^[0-9]/; len2++) continue
+ d1 = substr(v1, 1, len1); v1 = substr(v1, len1 + 1)
+ d2 = substr(v2, 1, len2); v2 = substr(v2, len2 + 1)
+ if (d1 ~ /^0/) {
+ if (d2 ~ /^0/) {
+ # Compare two fractions.
+ while (d1 ~ /^0/ && d2 ~ /^0/) {
+ d1 = substr(d1, 2); len1--
+ d2 = substr(d2, 2); len2--
+ }
+ if (len1 != len2 && ! (len1 && len2 && substr(d1, 1, 1) == substr(d2, 1, 1))) {
+ # The two components differ in length, and the common prefix
+ # contains only leading zeros. Consider the longer to be less.
+ d1 = -len1
+ d2 = -len2
+ } else {
+ # Otherwise, compare as strings.
+ d1 = "x" d1
+ d2 = "x" d2
+ }
+ } else {
+ # A fraction is less than an integer.
+ exit 1
+ }
+ } else {
+ if (d2 ~ /^0/) {
+ # An integer is greater than a fraction.
+ exit 2
+ } else {
+ # Compare two integers.
+ d1 += 0
+ d2 += 0
+ }
+ }
+ } else {
+ # The normal case, without worrying about digits.
+ d1 = substr(v1, 1, 1); v1 = substr(v1, 2)
+ d2 = substr(v2, 1, 1); v2 = substr(v2, 2)
+ }
+ if (d1 < d2) exit 1
+ if (d1 > d2) exit 2
+ }
+ # Beware Solaris /usr/xgp4/bin/awk (at least through Solaris 10),
+ # which mishandles some comparisons of empty strings to integers.
+ if (length(v2)) exit 1
+ if (length(v1)) exit 2
+ }
+'
+SHELL=${CONFIG_SHELL-/bin/sh}
+
+
+test -n "$DJDIR" || exec 7<&0 </dev/null
+exec 6>&1
+
+# Name of the host.
+# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,
+# so uname gets run too.
+ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
+
+#
+# Initializations.
+#
+ac_default_prefix=/usr/local
+ac_clean_files=
+ac_config_libobj_dir=.
+LIBOBJS=
+cross_compiling=no
+subdirs=
+MFLAGS=
+MAKEFLAGS=
+
+# Identity of this package.
+PACKAGE_NAME='cdi'
+PACKAGE_TARNAME='cdi'
+PACKAGE_VERSION='2.4.0'
+PACKAGE_STRING='cdi 2.4.0'
+PACKAGE_BUGREPORT='https://mpimet.mpg.de/cdi'
+PACKAGE_URL=''
+
+# Factoring default headers for most tests.
+ac_includes_default="\
+#include <stdio.h>
+#ifdef HAVE_SYS_TYPES_H
+# include <sys/types.h>
+#endif
+#ifdef HAVE_SYS_STAT_H
+# include <sys/stat.h>
+#endif
+#ifdef STDC_HEADERS
+# include <stdlib.h>
+# include <stddef.h>
+#else
+# ifdef HAVE_STDLIB_H
+# include <stdlib.h>
+# endif
+#endif
+#ifdef HAVE_STRING_H
+# if !defined STDC_HEADERS && defined HAVE_MEMORY_H
+# include <memory.h>
+# endif
+# include <string.h>
+#endif
+#ifdef HAVE_STRINGS_H
+# include <strings.h>
+#endif
+#ifdef HAVE_INTTYPES_H
+# include <inttypes.h>
+#endif
+#ifdef HAVE_STDINT_H
+# include <stdint.h>
+#endif
+#ifdef HAVE_UNISTD_H
+# include <unistd.h>
+#endif"
+
+ac_header_list=
+ac_subst_vars='am__EXEEXT_FALSE
+am__EXEEXT_TRUE
+LTLIBOBJS
+ENABLE_PYTHON_INTERFACE
+ENABLE_RUBY_INTERFACE
+HAVE_PARALLEL_NC4
+ENABLE_MPI
+BUILD_F77
+BUILD_FC
+BUILD_CXX
+BUILD_CC
+BUILD_MPI_FC_LIB
+BUILD_MPI_C_LIB
+BUILD_LIBS
+BUILD_LDFLAGS
+BUILD_FCFLAGS
+BUILD_CFLAGS
+with_example_programs_FALSE
+with_example_programs_TRUE
+with_concurrent_mpi_checks_FALSE
+with_concurrent_mpi_checks_TRUE
+with_on_demand_check_programs_FALSE
+with_on_demand_check_programs_TRUE
+ENABLE_PYTHON_INTERFACE_FALSE
+ENABLE_PYTHON_INTERFACE_TRUE
+PYTHON_EXTRA_LDFLAGS
+PYTHON_EXTRA_LIBS
+PYTHON_PLATFORM_SITE_PKG
+PYTHON_SITE_PKG
+PYTHON_LIBS
+PYTHON_CPPFLAGS
+pkgpyexecdir
+pyexecdir
+pkgpythondir
+pythondir
+PYTHON_EXEC_PREFIX
+PYTHON_PREFIX
+PYTHON_PLATFORM
+PYTHON_VERSION
+PYTHON
+ENABLE_RUBY_INTERFACE_FALSE
+ENABLE_RUBY_INTERFACE_TRUE
+RUBY
+SWIG
+HAVE_PARALLEL_NC4_FALSE
+HAVE_PARALLEL_NC4_TRUE
+ENABLE_MPI_FALSE
+ENABLE_MPI_TRUE
+BUILD_PIO_FC_PROGRAMS_FALSE
+BUILD_PIO_FC_PROGRAMS_TRUE
+LIBRT
+PPM_CORE_C_LIB
+PPM_CORE_C_INCLUDE
+YAXT_FC_LIB
+YAXT_FC_MOD
+YAXT_C_LIB
+YAXT_C_INCLUDE
+PKG_CONFIG_LIBDIR
+PKG_CONFIG_PATH
+PKG_CONFIG
+MPI_FC_LIB
+MPI_FC_MOD
+MPI_LAUNCH
+MPI_C_LIB
+MPI_C_INCLUDE
+MPIROOT
+HAVE_PPM_DIST_ARRAY
+SYSTEM_TYPE
+ENABLE_NETCDF_FALSE
+ENABLE_NETCDF_TRUE
+ENABLE_CDI_APP_FALSE
+ENABLE_CDI_APP_TRUE
+ENABLE_HIRLAM_EXTENSIONS_FALSE
+ENABLE_HIRLAM_EXTENSIONS_TRUE
+ENABLE_ALL_STATIC_FALSE
+ENABLE_ALL_STATIC_TRUE
+ENABLE_CDI_LIB
+ENABLE_CDI_LIB_FALSE
+ENABLE_CDI_LIB_TRUE
+ENABLE_IEG
+ENABLE_EXTRA
+ENABLE_SERVICE
+ENABLE_CGRIBEX
+ENABLE_ACROSS
+ENABLE_GRIB
+HAVE_LIBGRIB_API_FALSE
+HAVE_LIBGRIB_API_TRUE
+GRIB_API_LIBS
+GRIB_API_INCLUDE
+ECCODES_LIBS
+ECCODES_INCLUDE
+NETCDF_LIBS
+NETCDF_INCLUDE
+NETCDF_ROOT
+ENABLE_NC4SZLIB
+ENABLE_NC4HDF5
+ENABLE_NC4
+ENABLE_NC2
+ENABLE_NETCDF
+NC_CONFIG
+SZLIB_LIBS
+SZLIB_INCLUDE
+FDB5_LIBS
+FDB5_INCLUDE
+THREADS_LIBS
+THREADS_INCLUDE
+PTHREAD_CFLAGS
+PTHREAD_LIBS
+PTHREAD_CXX
+PTHREAD_CC
+ax_pthread_config
+UUID_C_LIB
+UUID_C_INCLUDE
+DCE_UUID_C_LIB
+DCE_UUID_C_INCLUDE
+DCE_UUIDROOT
+OSSP_UUID_C_LIB
+OSSP_UUID_C_INCLUDE
+OSSP_UUIDROOT
+UTIL_LINUX_UUID_C_LIB
+UTIL_LINUX_UUID_C_INCLUDE
+UTIL_LINUX_UUIDROOT
+LIBOBJS
+CXXCPP
+CPP
+LT_SYS_LIBRARY_PATH
+OTOOL64
+OTOOL
+LIPO
+NMEDIT
+DSYMUTIL
+MANIFEST_TOOL
+RANLIB
+ac_ct_AR
+AR
+DLLTOOL
+OBJDUMP
+LN_S
+NM
+ac_ct_DUMPBIN
+DUMPBIN
+LD
+FGREP
+EGREP
+GREP
+SED
+LIBTOOL
+OPENMP_CFLAGS
+am__fastdepCXX_FALSE
+am__fastdepCXX_TRUE
+CXXDEPMODE
+ac_ct_CXX
+CXXFLAGS
+CXX
+ENABLE_CF_INTERFACE_FALSE
+ENABLE_CF_INTERFACE_TRUE
+ac_ct_F77
+FFLAGS
+F77
+BUILD_FC_PROGRAMS_FALSE
+BUILD_FC_PROGRAMS_TRUE
+FC_MOD_UPPERCASE_FALSE
+FC_MOD_UPPERCASE_TRUE
+FC_DEFINE
+FCMODCASE
+FCMODEXT
+FC_OPTINC
+FC_MOD_FLAG
+FCFLAGS_f90
+ac_ct_FC
+FCFLAGS
+FC
+ENABLE_ISOC_INTERFACE_FALSE
+ENABLE_ISOC_INTERFACE_TRUE
+am__fastdepCC_FALSE
+am__fastdepCC_TRUE
+CCDEPMODE
+am__nodep
+AMDEPBACKSLASH
+AMDEP_FALSE
+AMDEP_TRUE
+am__include
+DEPDIR
+OBJEXT
+EXEEXT
+ac_ct_CC
+CPPFLAGS
+LDFLAGS
+CFLAGS
+CC
+MAINT
+MAINTAINER_MODE_FALSE
+MAINTAINER_MODE_TRUE
+AM_BACKSLASH
+AM_DEFAULT_VERBOSITY
+AM_DEFAULT_V
+AM_V
+CSCOPE
+ETAGS
+CTAGS
+am__untar
+am__tar
+AMTAR
+am__leading_dot
+SET_MAKE
+AWK
+mkdir_p
+MKDIR_P
+INSTALL_STRIP_PROGRAM
+STRIP
+install_sh
+MAKEINFO
+AUTOHEADER
+AUTOMAKE
+AUTOCONF
+ACLOCAL
+VERSION
+PACKAGE
+CYGPATH_W
+am__isrc
+INSTALL_DATA
+INSTALL_SCRIPT
+INSTALL_PROGRAM
+host_os
+host_vendor
+host_cpu
+host
+build_os
+build_vendor
+build_cpu
+build
+target_alias
+host_alias
+build_alias
+LIBS
+ECHO_T
+ECHO_N
+ECHO_C
+DEFS
+mandir
+localedir
+libdir
+psdir
+pdfdir
+dvidir
+htmldir
+infodir
+docdir
+oldincludedir
+includedir
+localstatedir
+sharedstatedir
+sysconfdir
+datadir
+datarootdir
+libexecdir
+sbindir
+bindir
+program_transform_name
+prefix
+exec_prefix
+PACKAGE_URL
+PACKAGE_BUGREPORT
+PACKAGE_STRING
+PACKAGE_VERSION
+PACKAGE_TARNAME
+PACKAGE_NAME
+PATH_SEPARATOR
+SHELL
+am__quote'
+ac_subst_files=''
+ac_user_opts='
+enable_option_checking
+enable_silent_rules
+enable_maintainer_mode
+enable_dependency_tracking
+enable_mpi
+enable_iso_c_interface
+enable_cf_interface
+enable_ruby_interface
+enable_python_interface
+enable_openmp
+with_pic
+enable_shared
+enable_static
+enable_fast_install
+with_aix_soname
+with_gnu_ld
+with_sysroot
+enable_libtool_lock
+enable_largefile
+enable_util_linux_uuid
+enable_ossp_uuid
+enable_dce_uuid
+with_util_linux_uuid
+with_ossp_uuid
+with_dce_uuid
+with_util_linux_uuid_root
+with_util_linux_uuid_include
+with_util_linux_uuid_lib
+with_ossp_uuid_root
+with_ossp_uuid_include
+with_ossp_uuid_lib
+with_dce_uuid_root
+with_dce_uuid_include
+with_dce_uuid_lib
+with_threads
+with_fdb5
+with_szlib
+with_netcdf
+with_eccodes
+with_grib_api
+enable_grib
+enable_across
+enable_cgribex
+enable_service
+enable_extra
+enable_ieg
+enable_all_static
+enable_hirlam_extensions
+enable_cdi_app
+enable_ppm_dist_array
+with_mpi_root
+with_mpi_include
+with_mpi_lib
+with_mpi_fc_mod
+with_mpi_fc_lib
+with_python_sys_prefix
+with_python_prefix
+with_python_exec_prefix
+with_on_demand_check_programs
+with_concurrent_mpi_checks
+with_example_programs
+'
+ ac_precious_vars='build_alias
+host_alias
+target_alias
+CC
+CFLAGS
+LDFLAGS
+LIBS
+CPPFLAGS
+FC
+FCFLAGS
+FCMODEXT
+F77
+FFLAGS
+CXX
+CXXFLAGS
+CCC
+LT_SYS_LIBRARY_PATH
+CPP
+CXXCPP
+UTIL_LINUX_UUID_C_INCLUDE
+UTIL_LINUX_UUID_C_LIB
+OSSP_UUID_C_INCLUDE
+OSSP_UUID_C_LIB
+DCE_UUID_C_INCLUDE
+DCE_UUID_C_LIB
+MPI_C_INCLUDE
+MPI_C_LIB
+MPI_LAUNCH
+MPI_FC_MOD
+MPI_FC_LIB
+PKG_CONFIG
+PKG_CONFIG_PATH
+PKG_CONFIG_LIBDIR
+YAXT_C_INCLUDE
+YAXT_C_LIB
+YAXT_FC_MOD
+YAXT_FC_LIB
+PPM_CORE_C_INCLUDE
+PPM_CORE_C_LIB
+RUBY
+PYTHON
+PYTHON_VERSION
+BUILD_CFLAGS
+BUILD_FCFLAGS
+BUILD_LDFLAGS
+BUILD_LIBS
+BUILD_MPI_C_LIB
+BUILD_MPI_FC_LIB
+BUILD_CC
+BUILD_CXX
+BUILD_FC
+BUILD_F77'
+
+
+# Initialize some variables set by options.
+ac_init_help=
+ac_init_version=false
+ac_unrecognized_opts=
+ac_unrecognized_sep=
+# The variables have the same names as the options, with
+# dashes changed to underlines.
+cache_file=/dev/null
+exec_prefix=NONE
+no_create=
+no_recursion=
+prefix=NONE
+program_prefix=NONE
+program_suffix=NONE
+program_transform_name=s,x,x,
+silent=
+site=
+srcdir=
+verbose=
+x_includes=NONE
+x_libraries=NONE
+
+# Installation directory options.
+# These are left unexpanded so users can "make install exec_prefix=/foo"
+# and all the variables that are supposed to be based on exec_prefix
+# by default will actually change.
+# Use braces instead of parens because sh, perl, etc. also accept them.
+# (The list follows the same order as the GNU Coding Standards.)
+bindir='${exec_prefix}/bin'
+sbindir='${exec_prefix}/sbin'
+libexecdir='${exec_prefix}/libexec'
+datarootdir='${prefix}/share'
+datadir='${datarootdir}'
+sysconfdir='${prefix}/etc'
+sharedstatedir='${prefix}/com'
+localstatedir='${prefix}/var'
+includedir='${prefix}/include'
+oldincludedir='/usr/include'
+docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
+infodir='${datarootdir}/info'
+htmldir='${docdir}'
+dvidir='${docdir}'
+pdfdir='${docdir}'
+psdir='${docdir}'
+libdir='${exec_prefix}/lib'
+localedir='${datarootdir}/locale'
+mandir='${datarootdir}/man'
+
+ac_prev=
+ac_dashdash=
+for ac_option
+do
+ # If the previous option needs an argument, assign it.
+ if test -n "$ac_prev"; then
+ eval $ac_prev=\$ac_option
+ ac_prev=
+ continue
+ fi
+
+ case $ac_option in
+ *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
+ *=) ac_optarg= ;;
+ *) ac_optarg=yes ;;
+ esac
+
+ # Accept the important Cygnus configure options, so we can diagnose typos.
+
+ case $ac_dashdash$ac_option in
+ --)
+ ac_dashdash=yes ;;
+
+ -bindir | --bindir | --bindi | --bind | --bin | --bi)
+ ac_prev=bindir ;;
+ -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
+ bindir=$ac_optarg ;;
+
+ -build | --build | --buil | --bui | --bu)
+ ac_prev=build_alias ;;
+ -build=* | --build=* | --buil=* | --bui=* | --bu=*)
+ build_alias=$ac_optarg ;;
+
+ -cache-file | --cache-file | --cache-fil | --cache-fi \
+ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
+ ac_prev=cache_file ;;
+ -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
+ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
+ cache_file=$ac_optarg ;;
+
+ --config-cache | -C)
+ cache_file=config.cache ;;
+
+ -datadir | --datadir | --datadi | --datad)
+ ac_prev=datadir ;;
+ -datadir=* | --datadir=* | --datadi=* | --datad=*)
+ datadir=$ac_optarg ;;
+
+ -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \
+ | --dataroo | --dataro | --datar)
+ ac_prev=datarootdir ;;
+ -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \
+ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*)
+ datarootdir=$ac_optarg ;;
+
+ -disable-* | --disable-*)
+ ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
+ # Reject names that are not valid shell variable names.
+ expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
+ as_fn_error $? "invalid feature name: $ac_useropt"
+ ac_useropt_orig=$ac_useropt
+ ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
+ case $ac_user_opts in
+ *"
+"enable_$ac_useropt"
+"*) ;;
+ *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig"
+ ac_unrecognized_sep=', ';;
+ esac
+ eval enable_$ac_useropt=no ;;
+
+ -docdir | --docdir | --docdi | --doc | --do)
+ ac_prev=docdir ;;
+ -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*)
+ docdir=$ac_optarg ;;
+
+ -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv)
+ ac_prev=dvidir ;;
+ -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*)
+ dvidir=$ac_optarg ;;
+
+ -enable-* | --enable-*)
+ ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
+ # Reject names that are not valid shell variable names.
+ expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
+ as_fn_error $? "invalid feature name: $ac_useropt"
+ ac_useropt_orig=$ac_useropt
+ ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
+ case $ac_user_opts in
+ *"
+"enable_$ac_useropt"
+"*) ;;
+ *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig"
+ ac_unrecognized_sep=', ';;
+ esac
+ eval enable_$ac_useropt=\$ac_optarg ;;
+
+ -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
+ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
+ | --exec | --exe | --ex)
+ ac_prev=exec_prefix ;;
+ -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
+ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
+ | --exec=* | --exe=* | --ex=*)
+ exec_prefix=$ac_optarg ;;
+
+ -gas | --gas | --ga | --g)
+ # Obsolete; use --with-gas.
+ with_gas=yes ;;
+
+ -help | --help | --hel | --he | -h)
+ ac_init_help=long ;;
+ -help=r* | --help=r* | --hel=r* | --he=r* | -hr*)
+ ac_init_help=recursive ;;
+ -help=s* | --help=s* | --hel=s* | --he=s* | -hs*)
+ ac_init_help=short ;;
+
+ -host | --host | --hos | --ho)
+ ac_prev=host_alias ;;
+ -host=* | --host=* | --hos=* | --ho=*)
+ host_alias=$ac_optarg ;;
+
+ -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht)
+ ac_prev=htmldir ;;
+ -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \
+ | --ht=*)
+ htmldir=$ac_optarg ;;
+
+ -includedir | --includedir | --includedi | --included | --include \
+ | --includ | --inclu | --incl | --inc)
+ ac_prev=includedir ;;
+ -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
+ | --includ=* | --inclu=* | --incl=* | --inc=*)
+ includedir=$ac_optarg ;;
+
+ -infodir | --infodir | --infodi | --infod | --info | --inf)
+ ac_prev=infodir ;;
+ -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
+ infodir=$ac_optarg ;;
+
+ -libdir | --libdir | --libdi | --libd)
+ ac_prev=libdir ;;
+ -libdir=* | --libdir=* | --libdi=* | --libd=*)
+ libdir=$ac_optarg ;;
+
+ -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
+ | --libexe | --libex | --libe)
+ ac_prev=libexecdir ;;
+ -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
+ | --libexe=* | --libex=* | --libe=*)
+ libexecdir=$ac_optarg ;;
+
+ -localedir | --localedir | --localedi | --localed | --locale)
+ ac_prev=localedir ;;
+ -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*)
+ localedir=$ac_optarg ;;
+
+ -localstatedir | --localstatedir | --localstatedi | --localstated \
+ | --localstate | --localstat | --localsta | --localst | --locals)
+ ac_prev=localstatedir ;;
+ -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
+ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*)
+ localstatedir=$ac_optarg ;;
+
+ -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
+ ac_prev=mandir ;;
+ -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
+ mandir=$ac_optarg ;;
+
+ -nfp | --nfp | --nf)
+ # Obsolete; use --without-fp.
+ with_fp=no ;;
+
+ -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+ | --no-cr | --no-c | -n)
+ no_create=yes ;;
+
+ -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
+ no_recursion=yes ;;
+
+ -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
+ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
+ | --oldin | --oldi | --old | --ol | --o)
+ ac_prev=oldincludedir ;;
+ -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
+ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
+ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
+ oldincludedir=$ac_optarg ;;
+
+ -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
+ ac_prev=prefix ;;
+ -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
+ prefix=$ac_optarg ;;
+
+ -program-prefix | --program-prefix | --program-prefi | --program-pref \
+ | --program-pre | --program-pr | --program-p)
+ ac_prev=program_prefix ;;
+ -program-prefix=* | --program-prefix=* | --program-prefi=* \
+ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
+ program_prefix=$ac_optarg ;;
+
+ -program-suffix | --program-suffix | --program-suffi | --program-suff \
+ | --program-suf | --program-su | --program-s)
+ ac_prev=program_suffix ;;
+ -program-suffix=* | --program-suffix=* | --program-suffi=* \
+ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
+ program_suffix=$ac_optarg ;;
+
+ -program-transform-name | --program-transform-name \
+ | --program-transform-nam | --program-transform-na \
+ | --program-transform-n | --program-transform- \
+ | --program-transform | --program-transfor \
+ | --program-transfo | --program-transf \
+ | --program-trans | --program-tran \
+ | --progr-tra | --program-tr | --program-t)
+ ac_prev=program_transform_name ;;
+ -program-transform-name=* | --program-transform-name=* \
+ | --program-transform-nam=* | --program-transform-na=* \
+ | --program-transform-n=* | --program-transform-=* \
+ | --program-transform=* | --program-transfor=* \
+ | --program-transfo=* | --program-transf=* \
+ | --program-trans=* | --program-tran=* \
+ | --progr-tra=* | --program-tr=* | --program-t=*)
+ program_transform_name=$ac_optarg ;;
+
+ -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd)
+ ac_prev=pdfdir ;;
+ -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*)
+ pdfdir=$ac_optarg ;;
+
+ -psdir | --psdir | --psdi | --psd | --ps)
+ ac_prev=psdir ;;
+ -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*)
+ psdir=$ac_optarg ;;
+
+ -q | -quiet | --quiet | --quie | --qui | --qu | --q \
+ | -silent | --silent | --silen | --sile | --sil)
+ silent=yes ;;
+
+ -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
+ ac_prev=sbindir ;;
+ -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
+ | --sbi=* | --sb=*)
+ sbindir=$ac_optarg ;;
+
+ -sharedstatedir | --sharedstatedir | --sharedstatedi \
+ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
+ | --sharedst | --shareds | --shared | --share | --shar \
+ | --sha | --sh)
+ ac_prev=sharedstatedir ;;
+ -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
+ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
+ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
+ | --sha=* | --sh=*)
+ sharedstatedir=$ac_optarg ;;
+
+ -site | --site | --sit)
+ ac_prev=site ;;
+ -site=* | --site=* | --sit=*)
+ site=$ac_optarg ;;
+
+ -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
+ ac_prev=srcdir ;;
+ -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
+ srcdir=$ac_optarg ;;
+
+ -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
+ | --syscon | --sysco | --sysc | --sys | --sy)
+ ac_prev=sysconfdir ;;
+ -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
+ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
+ sysconfdir=$ac_optarg ;;
+
+ -target | --target | --targe | --targ | --tar | --ta | --t)
+ ac_prev=target_alias ;;
+ -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
+ target_alias=$ac_optarg ;;
+
+ -v | -verbose | --verbose | --verbos | --verbo | --verb)
+ verbose=yes ;;
+
+ -version | --version | --versio | --versi | --vers | -V)
+ ac_init_version=: ;;
+
+ -with-* | --with-*)
+ ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
+ # Reject names that are not valid shell variable names.
+ expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
+ as_fn_error $? "invalid package name: $ac_useropt"
+ ac_useropt_orig=$ac_useropt
+ ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
+ case $ac_user_opts in
+ *"
+"with_$ac_useropt"
+"*) ;;
+ *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig"
+ ac_unrecognized_sep=', ';;
+ esac
+ eval with_$ac_useropt=\$ac_optarg ;;
+
+ -without-* | --without-*)
+ ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
+ # Reject names that are not valid shell variable names.
+ expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
+ as_fn_error $? "invalid package name: $ac_useropt"
+ ac_useropt_orig=$ac_useropt
+ ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
+ case $ac_user_opts in
+ *"
+"with_$ac_useropt"
+"*) ;;
+ *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig"
+ ac_unrecognized_sep=', ';;
+ esac
+ eval with_$ac_useropt=no ;;
+
+ --x)
+ # Obsolete; use --with-x.
+ with_x=yes ;;
+
+ -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
+ | --x-incl | --x-inc | --x-in | --x-i)
+ ac_prev=x_includes ;;
+ -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
+ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
+ x_includes=$ac_optarg ;;
+
+ -x-libraries | --x-libraries | --x-librarie | --x-librari \
+ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
+ ac_prev=x_libraries ;;
+ -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
+ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
+ x_libraries=$ac_optarg ;;
+
+ -*) as_fn_error $? "unrecognized option: \`$ac_option'
+Try \`$0 --help' for more information"
+ ;;
+
+ *=*)
+ ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='`
+ # Reject names that are not valid shell variable names.
+ case $ac_envvar in #(
+ '' | [0-9]* | *[!_$as_cr_alnum]* )
+ as_fn_error $? "invalid variable name: \`$ac_envvar'" ;;
+ esac
+ eval $ac_envvar=\$ac_optarg
+ export $ac_envvar ;;
+
+ *)
+ # FIXME: should be removed in autoconf 3.0.
+ $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2
+ expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null &&
+ $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2
+ : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}"
+ ;;
+
+ esac
+done
+
+if test -n "$ac_prev"; then
+ ac_option=--`echo $ac_prev | sed 's/_/-/g'`
+ as_fn_error $? "missing argument to $ac_option"
+fi
+
+if test -n "$ac_unrecognized_opts"; then
+ case $enable_option_checking in
+ no) ;;
+ fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;;
+ *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;;
+ esac
+fi
+
+# Check all directory arguments for consistency.
+for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \
+ datadir sysconfdir sharedstatedir localstatedir includedir \
+ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \
+ libdir localedir mandir
+do
+ eval ac_val=\$$ac_var
+ # Remove trailing slashes.
+ case $ac_val in
+ */ )
+ ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'`
+ eval $ac_var=\$ac_val;;
+ esac
+ # Be sure to have absolute directory names.
+ case $ac_val in
+ [\\/$]* | ?:[\\/]* ) continue;;
+ NONE | '' ) case $ac_var in *prefix ) continue;; esac;;
+ esac
+ as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val"
+done
+
+# There might be people who depend on the old broken behavior: `$host'
+# used to hold the argument of --host etc.
+# FIXME: To remove some day.
+build=$build_alias
+host=$host_alias
+target=$target_alias
+
+# FIXME: To remove some day.
+if test "x$host_alias" != x; then
+ if test "x$build_alias" = x; then
+ cross_compiling=maybe
+ elif test "x$build_alias" != "x$host_alias"; then
+ cross_compiling=yes
+ fi
+fi
+
+ac_tool_prefix=
+test -n "$host_alias" && ac_tool_prefix=$host_alias-
+
+test "$silent" = yes && exec 6>/dev/null
+
+
+ac_pwd=`pwd` && test -n "$ac_pwd" &&
+ac_ls_di=`ls -di .` &&
+ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
+ as_fn_error $? "working directory cannot be determined"
+test "X$ac_ls_di" = "X$ac_pwd_ls_di" ||
+ as_fn_error $? "pwd does not report name of working directory"
+
+
+# Find the source files, if location was not specified.
+if test -z "$srcdir"; then
+ ac_srcdir_defaulted=yes
+ # Try the directory containing this script, then the parent directory.
+ ac_confdir=`$as_dirname -- "$as_myself" ||
+$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
+ X"$as_myself" : 'X\(//\)[^/]' \| \
+ X"$as_myself" : 'X\(//\)$' \| \
+ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X"$as_myself" |
+ sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)[^/].*/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+ srcdir=$ac_confdir
+ if test ! -r "$srcdir/$ac_unique_file"; then
+ srcdir=..
+ fi
+else
+ ac_srcdir_defaulted=no
+fi
+if test ! -r "$srcdir/$ac_unique_file"; then
+ test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .."
+ as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir"
+fi
+ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work"
+ac_abs_confdir=`(
+ cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg"
+ pwd)`
+# When building in place, set srcdir=.
+if test "$ac_abs_confdir" = "$ac_pwd"; then
+ srcdir=.
+fi
+# Remove unnecessary trailing slashes from srcdir.
+# Double slashes in file names in object file debugging info
+# mess up M-x gdb in Emacs.
+case $srcdir in
+*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;;
+esac
+for ac_var in $ac_precious_vars; do
+ eval ac_env_${ac_var}_set=\${${ac_var}+set}
+ eval ac_env_${ac_var}_value=\$${ac_var}
+ eval ac_cv_env_${ac_var}_set=\${${ac_var}+set}
+ eval ac_cv_env_${ac_var}_value=\$${ac_var}
+done
+
+#
+# Report the --help message.
+#
+if test "$ac_init_help" = "long"; then
+ # Omit some internal or obsolete options to make the list less imposing.
+ # This message is too long to be a string in the A/UX 3.1 sh.
+ cat <<_ACEOF
+\`configure' configures cdi 2.4.0 to adapt to many kinds of systems.
+
+Usage: $0 [OPTION]... [VAR=VALUE]...
+
+To assign environment variables (e.g., CC, CFLAGS...), specify them as
+VAR=VALUE. See below for descriptions of some of the useful variables.
+
+Defaults for the options are specified in brackets.
+
+Configuration:
+ -h, --help display this help and exit
+ --help=short display options specific to this package
+ --help=recursive display the short help of all the included packages
+ -V, --version display version information and exit
+ -q, --quiet, --silent do not print \`checking ...' messages
+ --cache-file=FILE cache test results in FILE [disabled]
+ -C, --config-cache alias for \`--cache-file=config.cache'
+ -n, --no-create do not create output files
+ --srcdir=DIR find the sources in DIR [configure dir or \`..']
+
+Installation directories:
+ --prefix=PREFIX install architecture-independent files in PREFIX
+ [$ac_default_prefix]
+ --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX
+ [PREFIX]
+
+By default, \`make install' will install all the files in
+\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify
+an installation prefix other than \`$ac_default_prefix' using \`--prefix',
+for instance \`--prefix=\$HOME'.
+
+For better control, use the options below.
+
+Fine tuning of the installation directories:
+ --bindir=DIR user executables [EPREFIX/bin]
+ --sbindir=DIR system admin executables [EPREFIX/sbin]
+ --libexecdir=DIR program executables [EPREFIX/libexec]
+ --sysconfdir=DIR read-only single-machine data [PREFIX/etc]
+ --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com]
+ --localstatedir=DIR modifiable single-machine data [PREFIX/var]
+ --libdir=DIR object code libraries [EPREFIX/lib]
+ --includedir=DIR C header files [PREFIX/include]
+ --oldincludedir=DIR C header files for non-gcc [/usr/include]
+ --datarootdir=DIR read-only arch.-independent data root [PREFIX/share]
+ --datadir=DIR read-only architecture-independent data [DATAROOTDIR]
+ --infodir=DIR info documentation [DATAROOTDIR/info]
+ --localedir=DIR locale-dependent data [DATAROOTDIR/locale]
+ --mandir=DIR man documentation [DATAROOTDIR/man]
+ --docdir=DIR documentation root [DATAROOTDIR/doc/cdi]
+ --htmldir=DIR html documentation [DOCDIR]
+ --dvidir=DIR dvi documentation [DOCDIR]
+ --pdfdir=DIR pdf documentation [DOCDIR]
+ --psdir=DIR ps documentation [DOCDIR]
+_ACEOF
+
+ cat <<\_ACEOF
+
+Program names:
+ --program-prefix=PREFIX prepend PREFIX to installed program names
+ --program-suffix=SUFFIX append SUFFIX to installed program names
+ --program-transform-name=PROGRAM run sed PROGRAM on installed program names
+
+System types:
+ --build=BUILD configure for building on BUILD [guessed]
+ --host=HOST cross-compile to build programs to run on HOST [BUILD]
+_ACEOF
+fi
+
+if test -n "$ac_init_help"; then
+ case $ac_init_help in
+ short | recursive ) echo "Configuration of cdi 2.4.0:";;
+ esac
+ cat <<\_ACEOF
+
+Optional Features:
+ --disable-option-checking ignore unrecognized --enable/--with options
+ --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no)
+ --enable-FEATURE[=ARG] include FEATURE [ARG=yes]
+ --enable-silent-rules less verbose build output (undo: "make V=1")
+ --disable-silent-rules verbose build output (undo: "make V=0")
+ --disable-maintainer-mode
+ disable make rules and dependencies not useful (and
+ sometimes confusing) to the casual installer
+ --enable-dependency-tracking
+ do not reject slow dependency extractors
+ --disable-dependency-tracking
+ speeds up one-time build
+ --enable-mpi enable parallel I/O with MPI [default=no]
+ --enable-iso-c-interface
+ create Fortran 90 interface using Fortran 2003
+ ISO_C_BINDING facility [default=no]
+ --enable-cf-interface create Fortran 77 interface using cfortran.h
+ [default=auto]
+ --enable-ruby-interface create Ruby language interface (EXPERIMENTAL)
+ [default=no]
+ --enable-python-interface
+ create Python language interface (EXPERIMENTAL)
+ [default=no]
+ --enable-openmp enable OpenMP support [default=no]
+ --enable-shared[=PKGS] build shared libraries [default=yes]
+ --enable-static[=PKGS] build static libraries [default=yes]
+ --enable-fast-install[=PKGS]
+ optimize for fast installation [default=yes]
+ --disable-libtool-lock avoid locking (might break parallel builds)
+ --disable-largefile omit support for large files
+ --disable-util-linux-uuid
+ Do not test for the util-linux UUID library, use
+ OSSP or DCE versions instead
+ --disable-ossp-uuid Do not test for the OSSP UUID library, use
+ util-linux or DCE versions instead
+ --disable-dce-uuid Do not test for the DCE UUID library, use util-linux
+ or OSSP versions instead
+ --enable-grib GRIB support [default=yes]
+ --enable-across ACROSS support [default=yes]
+ --enable-cgribex Use the CGRIBEX library [default=yes]
+ --enable-service Use the service library [default=yes]
+ --enable-extra Use the extra library [default=yes]
+ --enable-ieg Use the ieg library [default=yes]
+ --enable-all-static build a completely statically linked CDO binary
+ [default=no]
+ --enable-hirlam-extensions
+ HIRLAM extensions [default=no]
+ --enable-cdi-app build and install CDI application [default=yes]
+ --enable-ppm-dist-array enable usage of the PPM distributed array
+ [default=auto]
+
+Optional Packages:
+ --with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
+ --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
+ --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use
+ both]
+ --with-aix-soname=aix|svr4|both
+ shared library versioning (aka "SONAME") variant to
+ provide on AIX, [default=aix].
+ --with-gnu-ld assume the C compiler uses GNU ld [default=no]
+ --with-sysroot[=DIR] Search for dependent libraries within DIR (or the
+ compiler's sysroot if not specified).
+ --with-util-linux-uuid[=yes|no|directory>]
+ Use util-linux UUID library, do not test for OSSP
+ UUID library.
+ --with-ossp-uuid[=yes|no|directory>]
+ Use OSSP UUID library, do not test for the
+ util-linux UUID library.
+ --with-dce-uuid[=yes|no|directory>]
+ Use DCE UUID library, do not test for the util-linux
+ UUID library.
+ --with-util-linux-uuid-root
+ set directory to search for util-linux-uuid headers
+ and library
+ --with-util-linux-uuid-include
+ specifically set directory to search for
+ util-linux-uuid headers,
+ [default=$with_util_linux_uuid_root/include]
+ --with-util-linux-uuid-lib
+ specifically set directory to search for
+ util-linux-uuid library,
+ [default=$with_util_linux_uuid_root/lib]
+ --with-ossp-uuid-root set directory to search for ossp-uuid headers and
+ library
+ --with-ossp-uuid-include
+ specifically set directory to search for ossp-uuid
+ headers, [default=$with_ossp_uuid_root/include]
+ --with-ossp-uuid-lib specifically set directory to search for ossp-uuid
+ library, [default=$with_ossp_uuid_root/lib]
+ --with-dce-uuid-root set directory to search for dce-uuid headers and
+ library
+ --with-dce-uuid-include specifically set directory to search for dce-uuid
+ headers, [default=$with_dce_uuid_root/include]
+ --with-dce-uuid-lib specifically set directory to search for dce-uuid
+ library, [default=$with_dce_uuid_root/lib]
+ --with-threads=<yes/no/directory>
+ Compile + link for multithreading [default=yes]
+ --with-fdb5=<yes|no|directory> (default=no)
+ location of fdb5 library (optional)
+ --with-szlib=<yes|no|directory> (default=no)
+ location of szlib library, optional for GRIB1 and
+ NETCDF4 compression
+ --with-netcdf=<yes|no|directory> (default=no)
+ location of NetCDF library (lib and include subdirs)
+ --with-eccodes=<yes|no|directory>
+ location of ECCODES library for grib2
+ encoding/decoding (lib and include subdirs)
+ --with-grib_api=<yes|no|directory>
+ location of GRIB_API library for grib2
+ encoding/decoding (lib and include subdirs)
+ --with-mpi-root set directory to search for MPI headers and library
+ --with-mpi-include specifically set directory to search for MPI
+ headers, [default=$with_mpi_root/include]
+ --with-mpi-lib specifically set directory to search for MPI
+ library, [default=$with_mpi_root/lib]
+ --with-mpi-fc-mod specifically set directory to search for MPI module,
+ [default=$with_mpi_root/include]
+ --with-mpi-fc-lib specifically set directory to search for MPI
+ library, [default=$with_mpi_root/lib]
+ --with-python-sys-prefix
+ use Python's sys.prefix and sys.exec_prefix values
+ --with-python_prefix override the default PYTHON_PREFIX
+ --with-python_exec_prefix
+ override the default PYTHON_EXEC_PREFIX
+ --with-on-demand-check-programs
+ only build test programs when calling 'make check'
+ [default: build during 'make all']
+ --with-concurrent-mpi-checks
+ allow for simultaneous runs of MPI tests [default:
+ run MPI test programs one after another]
+ --without-example-programs
+ only build example programs when calling 'make
+ examples' [default: build during 'make all']
+
+Some influential environment variables:
+ CC C compiler command
+ CFLAGS C compiler flags
+ LDFLAGS linker flags, e.g. -L<lib dir> if you have libraries in a
+ nonstandard directory <lib dir>
+ LIBS libraries to pass to the linker, e.g. -l<library>
+ CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I<include dir> if
+ you have headers in a nonstandard directory <include dir>
+ FC Fortran compiler command
+ FCFLAGS Fortran compiler flags
+ FCMODEXT file extension of compiled Fortran module files
+ F77 Fortran 77 compiler command
+ FFLAGS Fortran 77 compiler flags
+ CXX C++ compiler command
+ CXXFLAGS C++ compiler flags
+ LT_SYS_LIBRARY_PATH
+ User-defined run-time library search path.
+ CPP C preprocessor
+ CXXCPP C++ preprocessor
+ UTIL_LINUX_UUID_C_INCLUDE
+ specifically set flags to use when compiling sources using
+ util-linux-uuid includes.
+ UTIL_LINUX_UUID_C_LIB
+ specifically set flags to use when linking util-linux-uuid.
+ OSSP_UUID_C_INCLUDE
+ specifically set flags to use when compiling sources using
+ ossp-uuid includes.
+ OSSP_UUID_C_LIB
+ specifically set flags to use when linking ossp-uuid.
+ DCE_UUID_C_INCLUDE
+ specifically set flags to use when compiling sources using
+ dce-uuid includes.
+ DCE_UUID_C_LIB
+ specifically set flags to use when linking dce-uuid.
+ MPI_C_INCLUDE
+ specifically set flags to use when compiling sources using MPI
+ includes.
+ MPI_C_LIB specifically set flags to use when linking MPI.
+ MPI_LAUNCH absolute path to launcher for MPI programs, must be working
+ unless configuring in cross-compilation mode
+ MPI_FC_MOD flags to enable 'USE MPI' in Fortran program.
+ MPI_FC_LIB specifically set flags to use when linking MPI.
+ PKG_CONFIG path to pkg-config utility
+ PKG_CONFIG_PATH
+ directories to add to pkg-config's search path
+ PKG_CONFIG_LIBDIR
+ path overriding pkg-config's built-in search path
+ YAXT_C_INCLUDE
+ specifically set flags to use when compiling sources using YAXT
+ includes.
+ YAXT_C_LIB specifically set flags to use when linking YAXT.
+ YAXT_FC_MOD flags to enable 'USE YAXT' in Fortran program.
+ YAXT_FC_LIB specifically set flags to use when linking YAXT.
+ PPM_CORE_C_INCLUDE
+ specifically set flags to use when compiling sources using
+ PPM_CORE includes.
+ PPM_CORE_C_LIB
+ specifically set flags to use when linking PPM_CODE.
+ RUBY the Ruby interpreter
+ PYTHON the Python interpreter
+ PYTHON_VERSION
+ The installed Python version to use, for example '2.3'. This
+ string will be appended to the Python interpreter canonical
+ name.
+ BUILD_CFLAGS
+ append to CFLAGS during build but not in configure phase
+ BUILD_FCFLAGS
+ append to FCFLAGS during build but not in configure phase
+ BUILD_LDFLAGS
+ append to LDFLAGS during build but not in configure phase
+ BUILD_LIBS append to LIBS during build but not in configure phase
+ BUILD_MPI_C_LIB
+ append to MPI_C_LIB during build but not in configure phase
+ BUILD_MPI_FC_LIB
+ append to MPI_FC_LIB during build but not in configure phase
+ BUILD_CC replace CC with expansion of $BUILD_CC during build but not in
+ configure phase
+ BUILD_CXX replace CXX with expansion of $BUILD_CXX during build but not in
+ configure phase
+ BUILD_FC replace FC with expansion of $BUILD_FC during build but not in
+ configure phase
+ BUILD_F77 replace F77 with expansion of $BUILD_F77 during build but not in
+ configure phase
+
+Use these variables to override the choices made by `configure' or to help
+it to find libraries and programs with nonstandard names/locations.
+
+Report bugs to <https://mpimet.mpg.de/cdi>.
+_ACEOF
+ac_status=$?
+fi
+
+if test "$ac_init_help" = "recursive"; then
+ # If there are subdirs, report their specific --help.
+ for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue
+ test -d "$ac_dir" ||
+ { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } ||
+ continue
+ ac_builddir=.
+
+case "$ac_dir" in
+.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
+*)
+ ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
+ # A ".." for each directory in $ac_dir_suffix.
+ ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
+ case $ac_top_builddir_sub in
+ "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
+ *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
+ esac ;;
+esac
+ac_abs_top_builddir=$ac_pwd
+ac_abs_builddir=$ac_pwd$ac_dir_suffix
+# for backward compatibility:
+ac_top_builddir=$ac_top_build_prefix
+
+case $srcdir in
+ .) # We are building in place.
+ ac_srcdir=.
+ ac_top_srcdir=$ac_top_builddir_sub
+ ac_abs_top_srcdir=$ac_pwd ;;
+ [\\/]* | ?:[\\/]* ) # Absolute name.
+ ac_srcdir=$srcdir$ac_dir_suffix;
+ ac_top_srcdir=$srcdir
+ ac_abs_top_srcdir=$srcdir ;;
+ *) # Relative name.
+ ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
+ ac_top_srcdir=$ac_top_build_prefix$srcdir
+ ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
+esac
+ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
+
+ cd "$ac_dir" || { ac_status=$?; continue; }
+ # Check for guested configure.
+ if test -f "$ac_srcdir/configure.gnu"; then
+ echo &&
+ $SHELL "$ac_srcdir/configure.gnu" --help=recursive
+ elif test -f "$ac_srcdir/configure"; then
+ echo &&
+ $SHELL "$ac_srcdir/configure" --help=recursive
+ else
+ $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2
+ fi || ac_status=$?
+ cd "$ac_pwd" || { ac_status=$?; break; }
+ done
+fi
+
+test -n "$ac_init_help" && exit $ac_status
+if $ac_init_version; then
+ cat <<\_ACEOF
+cdi configure 2.4.0
+generated by GNU Autoconf 2.69
+
+Copyright (C) 2012 Free Software Foundation, Inc.
+This configure script is free software; the Free Software Foundation
+gives unlimited permission to copy, distribute and modify it.
+_ACEOF
+ exit
+fi
+
+## ------------------------ ##
+## Autoconf initialization. ##
+## ------------------------ ##
+
+# ac_fn_c_try_compile LINENO
+# --------------------------
+# Try to compile conftest.$ac_ext, and return whether this succeeded.
+ac_fn_c_try_compile ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ rm -f conftest.$ac_objext
+ if { { ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_compile") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_c_try_compile
+
+# ac_fn_fc_try_compile LINENO
+# ---------------------------
+# Try to compile conftest.$ac_ext, and return whether this succeeded.
+ac_fn_fc_try_compile ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ rm -f conftest.$ac_objext
+ if { { ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_compile") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && {
+ test -z "$ac_fc_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_fc_try_compile
+
+# ac_fn_fc_try_run LINENO
+# -----------------------
+# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes
+# that executables *can* be run.
+ac_fn_fc_try_run ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ if { { ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && { ac_try='./conftest$ac_exeext'
+ { { case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_try") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; }; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: program exited with status $ac_status" >&5
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=$ac_status
+fi
+ rm -rf conftest.dSYM conftest_ipa8_conftest.oo
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_fc_try_run
+
+# ac_fn_fc_try_link LINENO
+# ------------------------
+# Try to link conftest.$ac_ext, and return whether this succeeded.
+ac_fn_fc_try_link ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ rm -f conftest.$ac_objext conftest$ac_exeext
+ if { { ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && {
+ test -z "$ac_fc_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest$ac_exeext && {
+ test "$cross_compiling" = yes ||
+ test -x conftest$ac_exeext
+ }; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
+ # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
+ # interfere with the next link command; also delete a directory that is
+ # left behind by Apple's compiler. We do this before executing the actions.
+ rm -rf conftest.dSYM conftest_ipa8_conftest.oo
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_fc_try_link
+
+# ac_fn_f77_try_compile LINENO
+# ----------------------------
+# Try to compile conftest.$ac_ext, and return whether this succeeded.
+ac_fn_f77_try_compile ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ rm -f conftest.$ac_objext
+ if { { ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_compile") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && {
+ test -z "$ac_f77_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_f77_try_compile
+
+# ac_fn_f77_try_run LINENO
+# ------------------------
+# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes
+# that executables *can* be run.
+ac_fn_f77_try_run ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ if { { ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && { ac_try='./conftest$ac_exeext'
+ { { case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_try") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; }; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: program exited with status $ac_status" >&5
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=$ac_status
+fi
+ rm -rf conftest.dSYM conftest_ipa8_conftest.oo
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_f77_try_run
+
+# ac_fn_mv_obj LINENO FROM TO
+# ---------------------------
+# Rename FROM.$ac_objext to TO.$ac_objext, and return whether this succeeded.
+acx_fn_mv_obj ()
+{
+as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ acx_path_from=`echo "$2" | sed -e 's!/\{0,1\}[^/]*$!!'`
+ test -z "$acx_path_from" && acx_path_from=.
+ acx_fn_from=`echo "$2" | sed -e 's@^.*/@@'`
+ acx_path_to=`echo "$3" | sed -e 's!/\{0,1\}[^/]*$!!'`
+ test -z "$acx_path_to" && acx_path_to=.
+ acx_fn_to=`echo "$3" | sed -e 's@^.*/@@'`
+ if expr "$ac_compile" : '.*/libtool --mode=compile' >/dev/null; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: Renaming object file $2.$ac_objext to $3.$ac_objext." >&5; } >&5
+ (sed 's@\(pic_object='"'\)"'\(\(.libs/\)\{0,1\}\)'"$acx_fn_from"'\.o'"'"'@\1\2'"$acx_fn_to"'.o'"'"'@' "$2.$ac_objext" >"$3.$ac_objext" && rm "$2.$ac_objext" \
+ && if test -f "$2.$OBJEXT" ; then mv "$2.$OBJEXT" "$3.$OBJEXT" ; fi \
+ && if test -f "$acx_path_from/.libs/$acx_fn_from.$OBJEXT" ; then \
+ as_dir="$acx_path_to/.libs" as_fn_mkdir_p ; \
+ mv "$acx_path_from/.libs/$acx_fn_from.$OBJEXT" \
+ "$acx_path_to/.libs/$acx_fn_to.$OBJEXT" ; fi) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+else
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: Renaming object file $2.$ac_objext to $3.$ac_objext." >&5; } >&5
+ (mv "$2.$ac_objext" "$3.$ac_objext") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+fi
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_status
+} # acx_fn_mv_obj
+
+# ac_fn_f77_try_link LINENO
+# -------------------------
+# Try to link conftest.$ac_ext, and return whether this succeeded.
+ac_fn_f77_try_link ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ rm -f conftest.$ac_objext conftest$ac_exeext
+ if { { ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && {
+ test -z "$ac_f77_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest$ac_exeext && {
+ test "$cross_compiling" = yes ||
+ test -x conftest$ac_exeext
+ }; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
+ # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
+ # interfere with the next link command; also delete a directory that is
+ # left behind by Apple's compiler. We do this before executing the actions.
+ rm -rf conftest.dSYM conftest_ipa8_conftest.oo
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_f77_try_link
+
+# ac_fn_cxx_try_compile LINENO
+# ----------------------------
+# Try to compile conftest.$ac_ext, and return whether this succeeded.
+ac_fn_cxx_try_compile ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ rm -f conftest.$ac_objext
+ if { { ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_compile") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && {
+ test -z "$ac_cxx_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_cxx_try_compile
+
+# ac_fn_cxx_try_link LINENO
+# -------------------------
+# Try to link conftest.$ac_ext, and return whether this succeeded.
+ac_fn_cxx_try_link ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ rm -f conftest.$ac_objext conftest$ac_exeext
+ if { { ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && {
+ test -z "$ac_cxx_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest$ac_exeext && {
+ test "$cross_compiling" = yes ||
+ test -x conftest$ac_exeext
+ }; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
+ # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
+ # interfere with the next link command; also delete a directory that is
+ # left behind by Apple's compiler. We do this before executing the actions.
+ rm -rf conftest.dSYM conftest_ipa8_conftest.oo
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_cxx_try_link
+
+# ac_fn_c_try_link LINENO
+# -----------------------
+# Try to link conftest.$ac_ext, and return whether this succeeded.
+ac_fn_c_try_link ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ rm -f conftest.$ac_objext conftest$ac_exeext
+ if { { ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest$ac_exeext && {
+ test "$cross_compiling" = yes ||
+ test -x conftest$ac_exeext
+ }; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
+ # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
+ # interfere with the next link command; also delete a directory that is
+ # left behind by Apple's compiler. We do this before executing the actions.
+ rm -rf conftest.dSYM conftest_ipa8_conftest.oo
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_c_try_link
+
+# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES
+# -------------------------------------------------------
+# Tests whether HEADER exists and can be compiled using the include files in
+# INCLUDES, setting the cache variable VAR accordingly.
+ac_fn_c_check_header_compile ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
+$as_echo_n "checking for $2... " >&6; }
+if eval \${$3+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$4
+#include <$2>
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ eval "$3=yes"
+else
+ eval "$3=no"
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+eval ac_res=\$$3
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
+$as_echo "$ac_res" >&6; }
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+
+} # ac_fn_c_check_header_compile
+
+# ac_fn_c_try_cpp LINENO
+# ----------------------
+# Try to preprocess conftest.$ac_ext, and return whether this succeeded.
+ac_fn_c_try_cpp ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ if { { ac_try="$ac_cpp conftest.$ac_ext"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } > conftest.i && {
+ test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ }; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_c_try_cpp
+
+# ac_fn_c_try_run LINENO
+# ----------------------
+# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes
+# that executables *can* be run.
+ac_fn_c_try_run ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ if { { ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && { ac_try='./conftest$ac_exeext'
+ { { case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_try") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; }; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: program exited with status $ac_status" >&5
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=$ac_status
+fi
+ rm -rf conftest.dSYM conftest_ipa8_conftest.oo
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_c_try_run
+
+# ac_fn_c_check_func LINENO FUNC VAR
+# ----------------------------------
+# Tests whether FUNC exists, setting the cache variable VAR accordingly
+ac_fn_c_check_func ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
+$as_echo_n "checking for $2... " >&6; }
+if eval \${$3+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+/* Define $2 to an innocuous variant, in case <limits.h> declares $2.
+ For example, HP-UX 11i <limits.h> declares gettimeofday. */
+#define $2 innocuous_$2
+
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char $2 (); below.
+ Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
+ <limits.h> exists even on freestanding compilers. */
+
+#ifdef __STDC__
+# include <limits.h>
+#else
+# include <assert.h>
+#endif
+
+#undef $2
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char $2 ();
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined __stub_$2 || defined __stub___$2
+choke me
+#endif
+
+int
+main ()
+{
+return $2 ();
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ eval "$3=yes"
+else
+ eval "$3=no"
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+fi
+eval ac_res=\$$3
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
+$as_echo "$ac_res" >&6; }
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+
+} # ac_fn_c_check_func
+
+# ac_fn_cxx_try_cpp LINENO
+# ------------------------
+# Try to preprocess conftest.$ac_ext, and return whether this succeeded.
+ac_fn_cxx_try_cpp ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ if { { ac_try="$ac_cpp conftest.$ac_ext"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ grep -v '^ *+' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ mv -f conftest.er1 conftest.err
+ fi
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } > conftest.i && {
+ test -z "$ac_cxx_preproc_warn_flag$ac_cxx_werror_flag" ||
+ test ! -s conftest.err
+ }; then :
+ ac_retval=0
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_retval=1
+fi
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_cxx_try_cpp
+
+# ac_fn_c_check_member LINENO AGGR MEMBER VAR INCLUDES
+# ----------------------------------------------------
+# Tries to find if the field MEMBER exists in type AGGR, after including
+# INCLUDES, setting cache variable VAR accordingly.
+ac_fn_c_check_member ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2.$3" >&5
+$as_echo_n "checking for $2.$3... " >&6; }
+if eval \${$4+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$5
+int
+main ()
+{
+static $2 ac_aggr;
+if (ac_aggr.$3)
+return 0;
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ eval "$4=yes"
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$5
+int
+main ()
+{
+static $2 ac_aggr;
+if (sizeof ac_aggr.$3)
+return 0;
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ eval "$4=yes"
+else
+ eval "$4=no"
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+eval ac_res=\$$4
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
+$as_echo "$ac_res" >&6; }
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+
+} # ac_fn_c_check_member
+
+# ac_fn_c_check_decl LINENO SYMBOL VAR INCLUDES
+# ---------------------------------------------
+# Tests whether SYMBOL is declared in INCLUDES, setting cache variable VAR
+# accordingly.
+ac_fn_c_check_decl ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ as_decl_name=`echo $2|sed 's/ *(.*//'`
+ as_decl_use=`echo $2|sed -e 's/(/((/' -e 's/)/) 0&/' -e 's/,/) 0& (/g'`
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $as_decl_name is declared" >&5
+$as_echo_n "checking whether $as_decl_name is declared... " >&6; }
+if eval \${$3+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$4
+int
+main ()
+{
+#ifndef $as_decl_name
+#ifdef __cplusplus
+ (void) $as_decl_use;
+#else
+ (void) $as_decl_name;
+#endif
+#endif
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ eval "$3=yes"
+else
+ eval "$3=no"
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+eval ac_res=\$$3
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
+$as_echo "$ac_res" >&6; }
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+
+} # ac_fn_c_check_decl
+
+# ac_fn_c_compute_int LINENO EXPR VAR INCLUDES
+# --------------------------------------------
+# Tries to find the compile-time value of EXPR in a program that includes
+# INCLUDES, setting VAR accordingly. Returns whether the value could be
+# computed
+ac_fn_c_compute_int ()
+{
+ as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ if test "$cross_compiling" = yes; then
+ # Depending upon the size, compute the lo and hi bounds.
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$4
+int
+main ()
+{
+static int test_array [1 - 2 * !(($2) >= 0)];
+test_array [0] = 0;
+return test_array [0];
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_lo=0 ac_mid=0
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$4
+int
+main ()
+{
+static int test_array [1 - 2 * !(($2) <= $ac_mid)];
+test_array [0] = 0;
+return test_array [0];
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_hi=$ac_mid; break
+else
+ as_fn_arith $ac_mid + 1 && ac_lo=$as_val
+ if test $ac_lo -le $ac_mid; then
+ ac_lo= ac_hi=
+ break
+ fi
+ as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ done
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$4
+int
+main ()
+{
+static int test_array [1 - 2 * !(($2) < 0)];
+test_array [0] = 0;
+return test_array [0];
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_hi=-1 ac_mid=-1
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$4
+int
+main ()
+{
+static int test_array [1 - 2 * !(($2) >= $ac_mid)];
+test_array [0] = 0;
+return test_array [0];
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_lo=$ac_mid; break
+else
+ as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val
+ if test $ac_mid -le $ac_hi; then
+ ac_lo= ac_hi=
+ break
+ fi
+ as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ done
+else
+ ac_lo= ac_hi=
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+# Binary search between lo and hi bounds.
+while test "x$ac_lo" != "x$ac_hi"; do
+ as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$4
+int
+main ()
+{
+static int test_array [1 - 2 * !(($2) <= $ac_mid)];
+test_array [0] = 0;
+return test_array [0];
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_hi=$ac_mid
+else
+ as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+done
+case $ac_lo in #((
+?*) eval "$3=\$ac_lo"; ac_retval=0 ;;
+'') ac_retval=1 ;;
+esac
+ else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$4
+static long int longval () { return $2; }
+static unsigned long int ulongval () { return $2; }
+#include <stdio.h>
+#include <stdlib.h>
+int
+main ()
+{
+
+ FILE *f = fopen ("conftest.val", "w");
+ if (! f)
+ return 1;
+ if (($2) < 0)
+ {
+ long int i = longval ();
+ if (i != ($2))
+ return 1;
+ fprintf (f, "%ld", i);
+ }
+ else
+ {
+ unsigned long int i = ulongval ();
+ if (i != ($2))
+ return 1;
+ fprintf (f, "%lu", i);
+ }
+ /* Do not output a trailing newline, as this causes \r\n confusion
+ on some platforms. */
+ return ferror (f) || fclose (f) != 0;
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_run "$LINENO"; then :
+ echo >>conftest.val; read $3 <conftest.val; ac_retval=0
+else
+ ac_retval=1
+fi
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
+ conftest.$ac_objext conftest.beam conftest.$ac_ext
+rm -f conftest.val
+
+ fi
+ eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+ as_fn_set_status $ac_retval
+
+} # ac_fn_c_compute_int
+cat >config.log <<_ACEOF
+This file contains any messages produced by compilers while
+running configure, to aid debugging if configure makes a mistake.
+
+It was created by cdi $as_me 2.4.0, which was
+generated by GNU Autoconf 2.69. Invocation command line was
+
+ $ $0 $@
+
+_ACEOF
+exec 5>>config.log
+{
+cat <<_ASUNAME
+## --------- ##
+## Platform. ##
+## --------- ##
+
+hostname = `(hostname || uname -n) 2>/dev/null | sed 1q`
+uname -m = `(uname -m) 2>/dev/null || echo unknown`
+uname -r = `(uname -r) 2>/dev/null || echo unknown`
+uname -s = `(uname -s) 2>/dev/null || echo unknown`
+uname -v = `(uname -v) 2>/dev/null || echo unknown`
+
+/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`
+/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown`
+
+/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown`
+/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown`
+/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`
+/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown`
+/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown`
+/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown`
+/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown`
+
+_ASUNAME
+
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ $as_echo "PATH: $as_dir"
+ done
+IFS=$as_save_IFS
+
+} >&5
+
+cat >&5 <<_ACEOF
+
+
+## ----------- ##
+## Core tests. ##
+## ----------- ##
+
+_ACEOF
+
+
+# Keep a trace of the command line.
+# Strip out --no-create and --no-recursion so they do not pile up.
+# Strip out --silent because we don't want to record it for future runs.
+# Also quote any args containing shell meta-characters.
+# Make two passes to allow for proper duplicate-argument suppression.
+ac_configure_args=
+ac_configure_args0=
+ac_configure_args1=
+ac_must_keep_next=false
+for ac_pass in 1 2
+do
+ for ac_arg
+ do
+ case $ac_arg in
+ -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;;
+ -q | -quiet | --quiet | --quie | --qui | --qu | --q \
+ | -silent | --silent | --silen | --sile | --sil)
+ continue ;;
+ *\'*)
+ ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;;
+ esac
+ case $ac_pass in
+ 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;;
+ 2)
+ as_fn_append ac_configure_args1 " '$ac_arg'"
+ if test $ac_must_keep_next = true; then
+ ac_must_keep_next=false # Got value, back to normal.
+ else
+ case $ac_arg in
+ *=* | --config-cache | -C | -disable-* | --disable-* \
+ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \
+ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \
+ | -with-* | --with-* | -without-* | --without-* | --x)
+ case "$ac_configure_args0 " in
+ "$ac_configure_args1"*" '$ac_arg' "* ) continue ;;
+ esac
+ ;;
+ -* ) ac_must_keep_next=true ;;
+ esac
+ fi
+ as_fn_append ac_configure_args " '$ac_arg'"
+ ;;
+ esac
+ done
+done
+{ ac_configure_args0=; unset ac_configure_args0;}
+{ ac_configure_args1=; unset ac_configure_args1;}
+
+# When interrupted or exit'd, cleanup temporary files, and complete
+# config.log. We remove comments because anyway the quotes in there
+# would cause problems or look ugly.
+# WARNING: Use '\'' to represent an apostrophe within the trap.
+# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug.
+trap 'exit_status=$?
+ # Save into config.log some information that might help in debugging.
+ {
+ echo
+
+ $as_echo "## ---------------- ##
+## Cache variables. ##
+## ---------------- ##"
+ echo
+ # The following way of writing the cache mishandles newlines in values,
+(
+ for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do
+ eval ac_val=\$$ac_var
+ case $ac_val in #(
+ *${as_nl}*)
+ case $ac_var in #(
+ *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
+$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
+ esac
+ case $ac_var in #(
+ _ | IFS | as_nl) ;; #(
+ BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
+ *) { eval $ac_var=; unset $ac_var;} ;;
+ esac ;;
+ esac
+ done
+ (set) 2>&1 |
+ case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #(
+ *${as_nl}ac_space=\ *)
+ sed -n \
+ "s/'\''/'\''\\\\'\'''\''/g;
+ s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p"
+ ;; #(
+ *)
+ sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
+ ;;
+ esac |
+ sort
+)
+ echo
+
+ $as_echo "## ----------------- ##
+## Output variables. ##
+## ----------------- ##"
+ echo
+ for ac_var in $ac_subst_vars
+ do
+ eval ac_val=\$$ac_var
+ case $ac_val in
+ *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
+ esac
+ $as_echo "$ac_var='\''$ac_val'\''"
+ done | sort
+ echo
+
+ if test -n "$ac_subst_files"; then
+ $as_echo "## ------------------- ##
+## File substitutions. ##
+## ------------------- ##"
+ echo
+ for ac_var in $ac_subst_files
+ do
+ eval ac_val=\$$ac_var
+ case $ac_val in
+ *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
+ esac
+ $as_echo "$ac_var='\''$ac_val'\''"
+ done | sort
+ echo
+ fi
+
+ if test -s confdefs.h; then
+ $as_echo "## ----------- ##
+## confdefs.h. ##
+## ----------- ##"
+ echo
+ cat confdefs.h
+ echo
+ fi
+ test "$ac_signal" != 0 &&
+ $as_echo "$as_me: caught signal $ac_signal"
+ $as_echo "$as_me: exit $exit_status"
+ } >&5
+ rm -f core *.core core.conftest.* &&
+ rm -f -r conftest* confdefs* conf$$* $ac_clean_files &&
+ exit $exit_status
+' 0
+for ac_signal in 1 2 13 15; do
+ trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal
+done
+ac_signal=0
+
+# confdefs.h avoids OS command line length limits that DEFS can exceed.
+rm -f -r conftest* confdefs.h
+
+$as_echo "/* confdefs.h */" > confdefs.h
+
+# Predefined preprocessor variables.
+
+cat >>confdefs.h <<_ACEOF
+#define PACKAGE_NAME "$PACKAGE_NAME"
+_ACEOF
+
+cat >>confdefs.h <<_ACEOF
+#define PACKAGE_TARNAME "$PACKAGE_TARNAME"
+_ACEOF
+
+cat >>confdefs.h <<_ACEOF
+#define PACKAGE_VERSION "$PACKAGE_VERSION"
+_ACEOF
+
+cat >>confdefs.h <<_ACEOF
+#define PACKAGE_STRING "$PACKAGE_STRING"
+_ACEOF
+
+cat >>confdefs.h <<_ACEOF
+#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT"
+_ACEOF
+
+cat >>confdefs.h <<_ACEOF
+#define PACKAGE_URL "$PACKAGE_URL"
+_ACEOF
+
+
+# Let the site file select an alternate cache file if it wants to.
+# Prefer an explicitly selected file to automatically selected ones.
+ac_site_file1=NONE
+ac_site_file2=NONE
+if test -n "$CONFIG_SITE"; then
+ # We do not want a PATH search for config.site.
+ case $CONFIG_SITE in #((
+ -*) ac_site_file1=./$CONFIG_SITE;;
+ */*) ac_site_file1=$CONFIG_SITE;;
+ *) ac_site_file1=./$CONFIG_SITE;;
+ esac
+elif test "x$prefix" != xNONE; then
+ ac_site_file1=$prefix/share/config.site
+ ac_site_file2=$prefix/etc/config.site
+else
+ ac_site_file1=$ac_default_prefix/share/config.site
+ ac_site_file2=$ac_default_prefix/etc/config.site
+fi
+for ac_site_file in "$ac_site_file1" "$ac_site_file2"
+do
+ test "x$ac_site_file" = xNONE && continue
+ if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5
+$as_echo "$as_me: loading site script $ac_site_file" >&6;}
+ sed 's/^/| /' "$ac_site_file" >&5
+ . "$ac_site_file" \
+ || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "failed to load site script $ac_site_file
+See \`config.log' for more details" "$LINENO" 5; }
+ fi
+done
+
+if test -r "$cache_file"; then
+ # Some versions of bash will fail to source /dev/null (special files
+ # actually), so we avoid doing that. DJGPP emulates it as a regular file.
+ if test /dev/null != "$cache_file" && test -f "$cache_file"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5
+$as_echo "$as_me: loading cache $cache_file" >&6;}
+ case $cache_file in
+ [\\/]* | ?:[\\/]* ) . "$cache_file";;
+ *) . "./$cache_file";;
+ esac
+ fi
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5
+$as_echo "$as_me: creating cache $cache_file" >&6;}
+ >$cache_file
+fi
+
+as_fn_append ac_header_list " stdlib.h"
+as_fn_append ac_header_list " unistd.h"
+as_fn_append ac_header_list " sys/param.h"
+# Check that the precious variables saved in the cache have kept the same
+# value.
+ac_cache_corrupted=false
+for ac_var in $ac_precious_vars; do
+ eval ac_old_set=\$ac_cv_env_${ac_var}_set
+ eval ac_new_set=\$ac_env_${ac_var}_set
+ eval ac_old_val=\$ac_cv_env_${ac_var}_value
+ eval ac_new_val=\$ac_env_${ac_var}_value
+ case $ac_old_set,$ac_new_set in
+ set,)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5
+$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;}
+ ac_cache_corrupted=: ;;
+ ,set)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5
+$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;}
+ ac_cache_corrupted=: ;;
+ ,);;
+ *)
+ if test "x$ac_old_val" != "x$ac_new_val"; then
+ # differences in whitespace do not lead to failure.
+ ac_old_val_w=`echo x $ac_old_val`
+ ac_new_val_w=`echo x $ac_new_val`
+ if test "$ac_old_val_w" != "$ac_new_val_w"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5
+$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;}
+ ac_cache_corrupted=:
+ else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5
+$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;}
+ eval $ac_var=\$ac_old_val
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5
+$as_echo "$as_me: former value: \`$ac_old_val'" >&2;}
+ { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5
+$as_echo "$as_me: current value: \`$ac_new_val'" >&2;}
+ fi;;
+ esac
+ # Pass precious variables to config.status.
+ if test "$ac_new_set" = set; then
+ case $ac_new_val in
+ *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;;
+ *) ac_arg=$ac_var=$ac_new_val ;;
+ esac
+ case " $ac_configure_args " in
+ *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy.
+ *) as_fn_append ac_configure_args " '$ac_arg'" ;;
+ esac
+ fi
+done
+if $ac_cache_corrupted; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+ { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5
+$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;}
+ as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
+fi
+## -------------------- ##
+## Main body of script. ##
+## -------------------- ##
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+
+
+cat >>confdefs.h <<_ACEOF
+#define CDI "$PACKAGE_VERSION"
+_ACEOF
+
+
+ac_aux_dir=
+for ac_dir in config "$srcdir"/config; do
+ if test -f "$ac_dir/install-sh"; then
+ ac_aux_dir=$ac_dir
+ ac_install_sh="$ac_aux_dir/install-sh -c"
+ break
+ elif test -f "$ac_dir/install.sh"; then
+ ac_aux_dir=$ac_dir
+ ac_install_sh="$ac_aux_dir/install.sh -c"
+ break
+ elif test -f "$ac_dir/shtool"; then
+ ac_aux_dir=$ac_dir
+ ac_install_sh="$ac_aux_dir/shtool install -c"
+ break
+ fi
+done
+if test -z "$ac_aux_dir"; then
+ as_fn_error $? "cannot find install-sh, install.sh, or shtool in config \"$srcdir\"/config" "$LINENO" 5
+fi
+
+# These three variables are undocumented and unsupported,
+# and are intended to be withdrawn in a future Autoconf release.
+# They can cause serious problems if a builder's source tree is in a directory
+# whose full name contains unusual characters.
+ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var.
+ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var.
+ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var.
+
+
+
+
+# Make sure we can run config.sub.
+$SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 ||
+ as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5
+$as_echo_n "checking build system type... " >&6; }
+if ${ac_cv_build+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_build_alias=$build_alias
+test "x$ac_build_alias" = x &&
+ ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"`
+test "x$ac_build_alias" = x &&
+ as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5
+ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` ||
+ as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5
+$as_echo "$ac_cv_build" >&6; }
+case $ac_cv_build in
+*-*-*) ;;
+*) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;;
+esac
+build=$ac_cv_build
+ac_save_IFS=$IFS; IFS='-'
+set x $ac_cv_build
+shift
+build_cpu=$1
+build_vendor=$2
+shift; shift
+# Remember, the first character of IFS is used to create $*,
+# except with old shells:
+build_os=$*
+IFS=$ac_save_IFS
+case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5
+$as_echo_n "checking host system type... " >&6; }
+if ${ac_cv_host+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test "x$host_alias" = x; then
+ ac_cv_host=$ac_cv_build
+else
+ ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` ||
+ as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5
+$as_echo "$ac_cv_host" >&6; }
+case $ac_cv_host in
+*-*-*) ;;
+*) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;;
+esac
+host=$ac_cv_host
+ac_save_IFS=$IFS; IFS='-'
+set x $ac_cv_host
+shift
+host_cpu=$1
+host_vendor=$2
+shift; shift
+# Remember, the first character of IFS is used to create $*,
+# except with old shells:
+host_os=$*
+IFS=$ac_save_IFS
+case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac
+
+
+
+
+am__api_version='1.16'
+
+# Find a good install program. We prefer a C program (faster),
+# so one script is as good as another. But avoid the broken or
+# incompatible versions:
+# SysV /etc/install, /usr/sbin/install
+# SunOS /usr/etc/install
+# IRIX /sbin/install
+# AIX /bin/install
+# AmigaOS /C/install, which installs bootblocks on floppy discs
+# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag
+# AFS /usr/afsws/bin/install, which mishandles nonexistent args
+# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
+# OS/2's system install, which has a completely different semantic
+# ./install, which can be erroneously created by make from ./install.sh.
+# Reject install programs that cannot install multiple files.
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5
+$as_echo_n "checking for a BSD-compatible install... " >&6; }
+if test -z "$INSTALL"; then
+if ${ac_cv_path_install+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ # Account for people who put trailing slashes in PATH elements.
+case $as_dir/ in #((
+ ./ | .// | /[cC]/* | \
+ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \
+ ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \
+ /usr/ucb/* ) ;;
+ *)
+ # OSF1 and SCO ODT 3.0 have their own names for install.
+ # Don't use installbsd from OSF since it installs stuff as root
+ # by default.
+ for ac_prog in ginstall scoinst install; do
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then
+ if test $ac_prog = install &&
+ grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
+ # AIX install. It has an incompatible calling convention.
+ :
+ elif test $ac_prog = install &&
+ grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
+ # program-specific install script used by HP pwplus--don't use.
+ :
+ else
+ rm -rf conftest.one conftest.two conftest.dir
+ echo one > conftest.one
+ echo two > conftest.two
+ mkdir conftest.dir
+ if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" &&
+ test -s conftest.one && test -s conftest.two &&
+ test -s conftest.dir/conftest.one &&
+ test -s conftest.dir/conftest.two
+ then
+ ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c"
+ break 3
+ fi
+ fi
+ fi
+ done
+ done
+ ;;
+esac
+
+ done
+IFS=$as_save_IFS
+
+rm -rf conftest.one conftest.two conftest.dir
+
+fi
+ if test "${ac_cv_path_install+set}" = set; then
+ INSTALL=$ac_cv_path_install
+ else
+ # As a last resort, use the slow shell script. Don't cache a
+ # value for INSTALL within a source directory, because that will
+ # break other packages using the cache if that directory is
+ # removed, or if the value is a relative name.
+ INSTALL=$ac_install_sh
+ fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5
+$as_echo "$INSTALL" >&6; }
+
+# Use test -z because SunOS4 sh mishandles braces in ${var-val}.
+# It thinks the first close brace ends the variable substitution.
+test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
+
+test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}'
+
+test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5
+$as_echo_n "checking whether build environment is sane... " >&6; }
+# Reject unsafe characters in $srcdir or the absolute working directory
+# name. Accept space and tab only in the latter.
+am_lf='
+'
+case `pwd` in
+ *[\\\"\#\$\&\'\`$am_lf]*)
+ as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;;
+esac
+case $srcdir in
+ *[\\\"\#\$\&\'\`$am_lf\ \ ]*)
+ as_fn_error $? "unsafe srcdir value: '$srcdir'" "$LINENO" 5;;
+esac
+
+# Do 'set' in a subshell so we don't clobber the current shell's
+# arguments. Must try -L first in case configure is actually a
+# symlink; some systems play weird games with the mod time of symlinks
+# (eg FreeBSD returns the mod time of the symlink's containing
+# directory).
+if (
+ am_has_slept=no
+ for am_try in 1 2; do
+ echo "timestamp, slept: $am_has_slept" > conftest.file
+ set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
+ if test "$*" = "X"; then
+ # -L didn't work.
+ set X `ls -t "$srcdir/configure" conftest.file`
+ fi
+ if test "$*" != "X $srcdir/configure conftest.file" \
+ && test "$*" != "X conftest.file $srcdir/configure"; then
+
+ # If neither matched, then we have a broken ls. This can happen
+ # if, for instance, CONFIG_SHELL is bash and it inherits a
+ # broken ls alias from the environment. This has actually
+ # happened. Such a system could not be considered "sane".
+ as_fn_error $? "ls -t appears to fail. Make sure there is not a broken
+ alias in your environment" "$LINENO" 5
+ fi
+ if test "$2" = conftest.file || test $am_try -eq 2; then
+ break
+ fi
+ # Just in case.
+ sleep 1
+ am_has_slept=yes
+ done
+ test "$2" = conftest.file
+ )
+then
+ # Ok.
+ :
+else
+ as_fn_error $? "newly created file is older than distributed files!
+Check your system clock" "$LINENO" 5
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+# If we didn't sleep, we still need to ensure time stamps of config.status and
+# generated files are strictly newer.
+am_sleep_pid=
+if grep 'slept: no' conftest.file >/dev/null 2>&1; then
+ ( sleep 1 ) &
+ am_sleep_pid=$!
+fi
+
+rm -f conftest.file
+
+test "$program_prefix" != NONE &&
+ program_transform_name="s&^&$program_prefix&;$program_transform_name"
+# Use a double $ so make ignores it.
+test "$program_suffix" != NONE &&
+ program_transform_name="s&\$&$program_suffix&;$program_transform_name"
+# Double any \ or $.
+# By default was `s,x,x', remove it if useless.
+ac_script='s/[\\$]/&&/g;s/;s,x,x,$//'
+program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"`
+
+# Expand $ac_aux_dir to an absolute path.
+am_aux_dir=`cd "$ac_aux_dir" && pwd`
+
+if test x"${MISSING+set}" != xset; then
+ MISSING="\${SHELL} '$am_aux_dir/missing'"
+fi
+# Use eval to expand $SHELL
+if eval "$MISSING --is-lightweight"; then
+ am_missing_run="$MISSING "
+else
+ am_missing_run=
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5
+$as_echo "$as_me: WARNING: 'missing' script is too old or missing" >&2;}
+fi
+
+if test x"${install_sh+set}" != xset; then
+ case $am_aux_dir in
+ *\ * | *\ *)
+ install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
+ *)
+ install_sh="\${SHELL} $am_aux_dir/install-sh"
+ esac
+fi
+
+# Installed binaries are usually stripped using 'strip' when the user
+# run "make install-strip". However 'strip' might not be the right
+# tool to use in cross-compilation environments, therefore Automake
+# will honor the 'STRIP' environment variable to overrule this program.
+if test "$cross_compiling" != no; then
+ if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
+set dummy ${ac_tool_prefix}strip; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_STRIP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$STRIP"; then
+ ac_cv_prog_STRIP="$STRIP" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_STRIP="${ac_tool_prefix}strip"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+STRIP=$ac_cv_prog_STRIP
+if test -n "$STRIP"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
+$as_echo "$STRIP" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_STRIP"; then
+ ac_ct_STRIP=$STRIP
+ # Extract the first word of "strip", so it can be a program name with args.
+set dummy strip; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_STRIP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_STRIP"; then
+ ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_STRIP="strip"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
+if test -n "$ac_ct_STRIP"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
+$as_echo "$ac_ct_STRIP" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_STRIP" = x; then
+ STRIP=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ STRIP=$ac_ct_STRIP
+ fi
+else
+ STRIP="$ac_cv_prog_STRIP"
+fi
+
+fi
+INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5
+$as_echo_n "checking for a thread-safe mkdir -p... " >&6; }
+if test -z "$MKDIR_P"; then
+ if ${ac_cv_path_mkdir+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_prog in mkdir gmkdir; do
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue
+ case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #(
+ 'mkdir (GNU coreutils) '* | \
+ 'mkdir (coreutils) '* | \
+ 'mkdir (fileutils) '4.1*)
+ ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext
+ break 3;;
+ esac
+ done
+ done
+ done
+IFS=$as_save_IFS
+
+fi
+
+ test -d ./--version && rmdir ./--version
+ if test "${ac_cv_path_mkdir+set}" = set; then
+ MKDIR_P="$ac_cv_path_mkdir -p"
+ else
+ # As a last resort, use the slow shell script. Don't cache a
+ # value for MKDIR_P within a source directory, because that will
+ # break other packages using the cache if that directory is
+ # removed, or if the value is a relative name.
+ MKDIR_P="$ac_install_sh -d"
+ fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5
+$as_echo "$MKDIR_P" >&6; }
+
+for ac_prog in gawk mawk nawk awk
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_AWK+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$AWK"; then
+ ac_cv_prog_AWK="$AWK" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_AWK="$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+AWK=$ac_cv_prog_AWK
+if test -n "$AWK"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5
+$as_echo "$AWK" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$AWK" && break
+done
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5
+$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
+set x ${MAKE-make}
+ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
+if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat >conftest.make <<\_ACEOF
+SHELL = /bin/sh
+all:
+ @echo '@@@%%%=$(MAKE)=@@@%%%'
+_ACEOF
+# GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
+case `${MAKE-make} -f conftest.make 2>/dev/null` in
+ *@@@%%%=?*=@@@%%%*)
+ eval ac_cv_prog_make_${ac_make}_set=yes;;
+ *)
+ eval ac_cv_prog_make_${ac_make}_set=no;;
+esac
+rm -f conftest.make
+fi
+if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ SET_MAKE=
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ SET_MAKE="MAKE=${MAKE-make}"
+fi
+
+rm -rf .tst 2>/dev/null
+mkdir .tst 2>/dev/null
+if test -d .tst; then
+ am__leading_dot=.
+else
+ am__leading_dot=_
+fi
+rmdir .tst 2>/dev/null
+
+# Check whether --enable-silent-rules was given.
+if test "${enable_silent_rules+set}" = set; then :
+ enableval=$enable_silent_rules;
+fi
+
+case $enable_silent_rules in # (((
+ yes) AM_DEFAULT_VERBOSITY=0;;
+ no) AM_DEFAULT_VERBOSITY=1;;
+ *) AM_DEFAULT_VERBOSITY=1;;
+esac
+am_make=${MAKE-make}
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5
+$as_echo_n "checking whether $am_make supports nested variables... " >&6; }
+if ${am_cv_make_support_nested_variables+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if $as_echo 'TRUE=$(BAR$(V))
+BAR0=false
+BAR1=true
+V=1
+am__doit:
+ @$(TRUE)
+.PHONY: am__doit' | $am_make -f - >/dev/null 2>&1; then
+ am_cv_make_support_nested_variables=yes
+else
+ am_cv_make_support_nested_variables=no
+fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5
+$as_echo "$am_cv_make_support_nested_variables" >&6; }
+if test $am_cv_make_support_nested_variables = yes; then
+ AM_V='$(V)'
+ AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)'
+else
+ AM_V=$AM_DEFAULT_VERBOSITY
+ AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY
+fi
+AM_BACKSLASH='\'
+
+if test "`cd $srcdir && pwd`" != "`pwd`"; then
+ # Use -I$(srcdir) only when $(srcdir) != ., so that make's output
+ # is not polluted with repeated "-I."
+ am__isrc=' -I$(srcdir)'
+ # test to see if srcdir already configured
+ if test -f $srcdir/config.status; then
+ as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5
+ fi
+fi
+
+# test whether we have cygpath
+if test -z "$CYGPATH_W"; then
+ if (cygpath --version) >/dev/null 2>/dev/null; then
+ CYGPATH_W='cygpath -w'
+ else
+ CYGPATH_W=echo
+ fi
+fi
+
+
+# Define the identity of the package.
+ PACKAGE='cdi'
+ VERSION='2.4.0'
+
+
+cat >>confdefs.h <<_ACEOF
+#define PACKAGE "$PACKAGE"
+_ACEOF
+
+
+cat >>confdefs.h <<_ACEOF
+#define VERSION "$VERSION"
+_ACEOF
+
+# Some tools Automake needs.
+
+ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"}
+
+
+AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"}
+
+
+AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"}
+
+
+AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"}
+
+
+MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"}
+
+# For better backward compatibility. To be removed once Automake 1.9.x
+# dies out for good. For more background, see:
+# <https://lists.gnu.org/archive/html/automake/2012-07/msg00001.html>
+# <https://lists.gnu.org/archive/html/automake/2012-07/msg00014.html>
+mkdir_p='$(MKDIR_P)'
+
+# We need awk for the "check" target (and possibly the TAP driver). The
+# system "awk" is bad on some platforms.
+# Always define AMTAR for backward compatibility. Yes, it's still used
+# in the wild :-( We should find a proper way to deprecate it ...
+AMTAR='$${TAR-tar}'
+
+
+# We'll loop over all known methods to create a tar archive until one works.
+_am_tools='gnutar pax cpio none'
+
+am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'
+
+
+
+
+
+# Variables for tags utilities; see am/tags.am
+if test -z "$CTAGS"; then
+ CTAGS=ctags
+fi
+
+if test -z "$ETAGS"; then
+ ETAGS=etags
+fi
+
+if test -z "$CSCOPE"; then
+ CSCOPE=cscope
+fi
+
+
+
+# POSIX will say in a future version that running "rm -f" with no argument
+# is OK; and we want to be able to make that assumption in our Makefile
+# recipes. So use an aggressive probe to check that the usage we want is
+# actually supported "in the wild" to an acceptable degree.
+# See automake bug#10828.
+# To make any issue more visible, cause the running configure to be aborted
+# by default if the 'rm' program in use doesn't match our expectations; the
+# user can still override this though.
+if rm -f && rm -fr && rm -rf; then : OK; else
+ cat >&2 <<'END'
+Oops!
+
+Your 'rm' program seems unable to run without file operands specified
+on the command line, even when the '-f' option is present. This is contrary
+to the behaviour of most rm programs out there, and not conforming with
+the upcoming POSIX standard: <http://austingroupbugs.net/view.php?id=542>
+
+Please tell bug-automake@gnu.org about your system, including the value
+of your $PATH and any error possibly output before this message. This
+can help us improve future automake versions.
+
+END
+ if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then
+ echo 'Configuration will proceed anyway, since you have set the' >&2
+ echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2
+ echo >&2
+ else
+ cat >&2 <<'END'
+Aborting the configuration process, to ensure you take notice of the issue.
+
+You can download and install GNU coreutils to get an 'rm' implementation
+that behaves properly: <https://www.gnu.org/software/coreutils/>.
+
+If you want to complete the configuration process using your problematic
+'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM
+to "yes", and re-run configure.
+
+END
+ as_fn_error $? "Your 'rm' program is bad, sorry." "$LINENO" 5
+ fi
+fi
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to enable maintainer-specific portions of Makefiles" >&5
+$as_echo_n "checking whether to enable maintainer-specific portions of Makefiles... " >&6; }
+ # Check whether --enable-maintainer-mode was given.
+if test "${enable_maintainer_mode+set}" = set; then :
+ enableval=$enable_maintainer_mode; USE_MAINTAINER_MODE=$enableval
+else
+ USE_MAINTAINER_MODE=yes
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $USE_MAINTAINER_MODE" >&5
+$as_echo "$USE_MAINTAINER_MODE" >&6; }
+ if test $USE_MAINTAINER_MODE = yes; then
+ MAINTAINER_MODE_TRUE=
+ MAINTAINER_MODE_FALSE='#'
+else
+ MAINTAINER_MODE_TRUE='#'
+ MAINTAINER_MODE_FALSE=
+fi
+
+ MAINT=$MAINTAINER_MODE_TRUE
+
+
+
+
+DEPDIR="${am__leading_dot}deps"
+
+ac_config_commands="$ac_config_commands depfiles"
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} supports the include directive" >&5
+$as_echo_n "checking whether ${MAKE-make} supports the include directive... " >&6; }
+cat > confinc.mk << 'END'
+am__doit:
+ @echo this is the am__doit target >confinc.out
+.PHONY: am__doit
+END
+am__include="#"
+am__quote=
+# BSD make does it like this.
+echo '.include "confinc.mk" # ignored' > confmf.BSD
+# Other make implementations (GNU, Solaris 10, AIX) do it like this.
+echo 'include confinc.mk # ignored' > confmf.GNU
+_am_result=no
+for s in GNU BSD; do
+ { echo "$as_me:$LINENO: ${MAKE-make} -f confmf.$s && cat confinc.out" >&5
+ (${MAKE-make} -f confmf.$s && cat confinc.out) >&5 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }
+ case $?:`cat confinc.out 2>/dev/null` in #(
+ '0:this is the am__doit target') :
+ case $s in #(
+ BSD) :
+ am__include='.include' am__quote='"' ;; #(
+ *) :
+ am__include='include' am__quote='' ;;
+esac ;; #(
+ *) :
+ ;;
+esac
+ if test "$am__include" != "#"; then
+ _am_result="yes ($s style)"
+ break
+ fi
+done
+rm -f confinc.* confmf.*
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: ${_am_result}" >&5
+$as_echo "${_am_result}" >&6; }
+
+# Check whether --enable-dependency-tracking was given.
+if test "${enable_dependency_tracking+set}" = set; then :
+ enableval=$enable_dependency_tracking;
+fi
+
+if test "x$enable_dependency_tracking" != xno; then
+ am_depcomp="$ac_aux_dir/depcomp"
+ AMDEPBACKSLASH='\'
+ am__nodep='_no'
+fi
+ if test "x$enable_dependency_tracking" != xno; then
+ AMDEP_TRUE=
+ AMDEP_FALSE='#'
+else
+ AMDEP_TRUE='#'
+ AMDEP_FALSE=
+fi
+
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args.
+set dummy ${ac_tool_prefix}gcc; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_CC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$CC"; then
+ ac_cv_prog_CC="$CC" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_CC="${ac_tool_prefix}gcc"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+CC=$ac_cv_prog_CC
+if test -n "$CC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
+$as_echo "$CC" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_CC"; then
+ ac_ct_CC=$CC
+ # Extract the first word of "gcc", so it can be a program name with args.
+set dummy gcc; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_CC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_CC"; then
+ ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_CC="gcc"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_CC=$ac_cv_prog_ac_ct_CC
+if test -n "$ac_ct_CC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
+$as_echo "$ac_ct_CC" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_CC" = x; then
+ CC=""
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ CC=$ac_ct_CC
+ fi
+else
+ CC="$ac_cv_prog_CC"
+fi
+
+if test -z "$CC"; then
+ if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args.
+set dummy ${ac_tool_prefix}cc; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_CC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$CC"; then
+ ac_cv_prog_CC="$CC" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_CC="${ac_tool_prefix}cc"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+CC=$ac_cv_prog_CC
+if test -n "$CC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
+$as_echo "$CC" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ fi
+fi
+if test -z "$CC"; then
+ # Extract the first word of "cc", so it can be a program name with args.
+set dummy cc; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_CC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$CC"; then
+ ac_cv_prog_CC="$CC" # Let the user override the test.
+else
+ ac_prog_rejected=no
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then
+ ac_prog_rejected=yes
+ continue
+ fi
+ ac_cv_prog_CC="cc"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+if test $ac_prog_rejected = yes; then
+ # We found a bogon in the path, so make sure we never use it.
+ set dummy $ac_cv_prog_CC
+ shift
+ if test $# != 0; then
+ # We chose a different compiler from the bogus one.
+ # However, it has the same basename, so the bogon will be chosen
+ # first if we set CC to just the basename; use the full file name.
+ shift
+ ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@"
+ fi
+fi
+fi
+fi
+CC=$ac_cv_prog_CC
+if test -n "$CC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
+$as_echo "$CC" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$CC"; then
+ if test -n "$ac_tool_prefix"; then
+ for ac_prog in cl.exe
+ do
+ # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
+set dummy $ac_tool_prefix$ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_CC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$CC"; then
+ ac_cv_prog_CC="$CC" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_CC="$ac_tool_prefix$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+CC=$ac_cv_prog_CC
+if test -n "$CC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
+$as_echo "$CC" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$CC" && break
+ done
+fi
+if test -z "$CC"; then
+ ac_ct_CC=$CC
+ for ac_prog in cl.exe
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_CC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_CC"; then
+ ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_CC="$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_CC=$ac_cv_prog_ac_ct_CC
+if test -n "$ac_ct_CC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
+$as_echo "$ac_ct_CC" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$ac_ct_CC" && break
+done
+
+ if test "x$ac_ct_CC" = x; then
+ CC=""
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ CC=$ac_ct_CC
+ fi
+fi
+
+fi
+
+
+test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "no acceptable C compiler found in \$PATH
+See \`config.log' for more details" "$LINENO" 5; }
+
+# Provide some information about the compiler.
+$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
+set X $ac_compile
+ac_compiler=$2
+for ac_option in --version -v -V -qversion; do
+ { { ac_try="$ac_compiler $ac_option >&5"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_compiler $ac_option >&5") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ sed '10a\
+... rest of stderr output deleted ...
+ 10q' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ fi
+ rm -f conftest.er1 conftest.err
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+done
+
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+ac_clean_files_save=$ac_clean_files
+ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out"
+# Try to create an executable without -o first, disregard a.out.
+# It will help us diagnose broken compilers, and finding out an intuition
+# of exeext.
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5
+$as_echo_n "checking whether the C compiler works... " >&6; }
+ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'`
+
+# The possible output files:
+ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*"
+
+ac_rmfiles=
+for ac_file in $ac_files
+do
+ case $ac_file in
+ *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
+ * ) ac_rmfiles="$ac_rmfiles $ac_file";;
+ esac
+done
+rm -f $ac_rmfiles
+
+if { { ac_try="$ac_link_default"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link_default") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then :
+ # Autoconf-2.13 could set the ac_cv_exeext variable to `no'.
+# So ignore a value of `no', otherwise this would lead to `EXEEXT = no'
+# in a Makefile. We should not override ac_cv_exeext if it was cached,
+# so that the user can short-circuit this test for compilers unknown to
+# Autoconf.
+for ac_file in $ac_files ''
+do
+ test -f "$ac_file" || continue
+ case $ac_file in
+ *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj )
+ ;;
+ [ab].out )
+ # We found the default executable, but exeext='' is most
+ # certainly right.
+ break;;
+ *.* )
+ if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no;
+ then :; else
+ ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
+ fi
+ # We set ac_cv_exeext here because the later test for it is not
+ # safe: cross compilers may not add the suffix if given an `-o'
+ # argument, so we may need to know it at that point already.
+ # Even if this section looks crufty: it has the advantage of
+ # actually working.
+ break;;
+ * )
+ break;;
+ esac
+done
+test "$ac_cv_exeext" = no && ac_cv_exeext=
+
+else
+ ac_file=''
+fi
+if test -z "$ac_file"; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+$as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error 77 "C compiler cannot create executables
+See \`config.log' for more details" "$LINENO" 5; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5
+$as_echo_n "checking for C compiler default output file name... " >&6; }
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5
+$as_echo "$ac_file" >&6; }
+ac_exeext=$ac_cv_exeext
+
+rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out
+ac_clean_files=$ac_clean_files_save
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5
+$as_echo_n "checking for suffix of executables... " >&6; }
+if { { ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then :
+ # If both `conftest.exe' and `conftest' are `present' (well, observable)
+# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will
+# work properly (i.e., refer to `conftest.exe'), while it won't with
+# `rm'.
+for ac_file in conftest.exe conftest conftest.*; do
+ test -f "$ac_file" || continue
+ case $ac_file in
+ *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
+ *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
+ break;;
+ * ) break;;
+ esac
+done
+else
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "cannot compute suffix of executables: cannot compile and link
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+rm -f conftest conftest$ac_cv_exeext
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
+$as_echo "$ac_cv_exeext" >&6; }
+
+rm -f conftest.$ac_ext
+EXEEXT=$ac_cv_exeext
+ac_exeext=$EXEEXT
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <stdio.h>
+int
+main ()
+{
+FILE *f = fopen ("conftest.out", "w");
+ return ferror (f) || fclose (f) != 0;
+
+ ;
+ return 0;
+}
+_ACEOF
+ac_clean_files="$ac_clean_files conftest.out"
+# Check that the compiler produces executables we can run. If not, either
+# the compiler is broken, or we cross compile.
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5
+$as_echo_n "checking whether we are cross compiling... " >&6; }
+if test "$cross_compiling" != yes; then
+ { { ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_link") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+ if { ac_try='./conftest$ac_cv_exeext'
+ { { case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_try") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; }; then
+ cross_compiling=no
+ else
+ if test "$cross_compiling" = maybe; then
+ cross_compiling=yes
+ else
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "cannot run C compiled programs.
+If you meant to cross compile, use \`--host'.
+See \`config.log' for more details" "$LINENO" 5; }
+ fi
+ fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5
+$as_echo "$cross_compiling" >&6; }
+
+rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out
+ac_clean_files=$ac_clean_files_save
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5
+$as_echo_n "checking for suffix of object files... " >&6; }
+if ${ac_cv_objext+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.o conftest.obj
+if { { ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_compile") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then :
+ for ac_file in conftest.o conftest.obj conftest.*; do
+ test -f "$ac_file" || continue;
+ case $ac_file in
+ *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;;
+ *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'`
+ break;;
+ esac
+done
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "cannot compute suffix of object files: cannot compile
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+rm -f conftest.$ac_cv_objext conftest.$ac_ext
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5
+$as_echo "$ac_cv_objext" >&6; }
+OBJEXT=$ac_cv_objext
+ac_objext=$OBJEXT
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5
+$as_echo_n "checking whether we are using the GNU C compiler... " >&6; }
+if ${ac_cv_c_compiler_gnu+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+#ifndef __GNUC__
+ choke me
+#endif
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_compiler_gnu=yes
+else
+ ac_compiler_gnu=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ac_cv_c_compiler_gnu=$ac_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5
+$as_echo "$ac_cv_c_compiler_gnu" >&6; }
+if test $ac_compiler_gnu = yes; then
+ GCC=yes
+else
+ GCC=
+fi
+ac_test_CFLAGS=${CFLAGS+set}
+ac_save_CFLAGS=$CFLAGS
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5
+$as_echo_n "checking whether $CC accepts -g... " >&6; }
+if ${ac_cv_prog_cc_g+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_save_c_werror_flag=$ac_c_werror_flag
+ ac_c_werror_flag=yes
+ ac_cv_prog_cc_g=no
+ CFLAGS="-g"
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_prog_cc_g=yes
+else
+ CFLAGS=""
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+
+else
+ ac_c_werror_flag=$ac_save_c_werror_flag
+ CFLAGS="-g"
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_prog_cc_g=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ac_c_werror_flag=$ac_save_c_werror_flag
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5
+$as_echo "$ac_cv_prog_cc_g" >&6; }
+if test "$ac_test_CFLAGS" = set; then
+ CFLAGS=$ac_save_CFLAGS
+elif test $ac_cv_prog_cc_g = yes; then
+ if test "$GCC" = yes; then
+ CFLAGS="-g -O2"
+ else
+ CFLAGS="-g"
+ fi
+else
+ if test "$GCC" = yes; then
+ CFLAGS="-O2"
+ else
+ CFLAGS=
+ fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
+$as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
+if ${ac_cv_prog_cc_c89+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_cv_prog_cc_c89=no
+ac_save_CC=$CC
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <stdarg.h>
+#include <stdio.h>
+struct stat;
+/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */
+struct buf { int x; };
+FILE * (*rcsopen) (struct buf *, struct stat *, int);
+static char *e (p, i)
+ char **p;
+ int i;
+{
+ return p[i];
+}
+static char *f (char * (*g) (char **, int), char **p, ...)
+{
+ char *s;
+ va_list v;
+ va_start (v,p);
+ s = g (p, va_arg (v,int));
+ va_end (v);
+ return s;
+}
+
+/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has
+ function prototypes and stuff, but not '\xHH' hex character constants.
+ These don't provoke an error unfortunately, instead are silently treated
+ as 'x'. The following induces an error, until -std is added to get
+ proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an
+ array size at least. It's necessary to write '\x00'==0 to get something
+ that's true only with -std. */
+int osf4_cc_array ['\x00' == 0 ? 1 : -1];
+
+/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters
+ inside strings and character constants. */
+#define FOO(x) 'x'
+int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1];
+
+int test (int i, double x);
+struct s1 {int (*f) (int a);};
+struct s2 {int (*f) (double a);};
+int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
+int argc;
+char **argv;
+int
+main ()
+{
+return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1];
+ ;
+ return 0;
+}
+_ACEOF
+for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \
+ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
+do
+ CC="$ac_save_CC $ac_arg"
+ if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_prog_cc_c89=$ac_arg
+fi
+rm -f core conftest.err conftest.$ac_objext
+ test "x$ac_cv_prog_cc_c89" != "xno" && break
+done
+rm -f conftest.$ac_ext
+CC=$ac_save_CC
+
+fi
+# AC_CACHE_VAL
+case "x$ac_cv_prog_cc_c89" in
+ x)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
+$as_echo "none needed" >&6; } ;;
+ xno)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
+$as_echo "unsupported" >&6; } ;;
+ *)
+ CC="$CC $ac_cv_prog_cc_c89"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5
+$as_echo "$ac_cv_prog_cc_c89" >&6; } ;;
+esac
+if test "x$ac_cv_prog_cc_c89" != xno; then :
+
+fi
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC understands -c and -o together" >&5
+$as_echo_n "checking whether $CC understands -c and -o together... " >&6; }
+if ${am_cv_prog_cc_c_o+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+ # Make sure it works both with $CC and with simple cc.
+ # Following AC_PROG_CC_C_O, we do the test twice because some
+ # compilers refuse to overwrite an existing .o file with -o,
+ # though they will create one.
+ am_cv_prog_cc_c_o=yes
+ for am_i in 1 2; do
+ if { echo "$as_me:$LINENO: $CC -c conftest.$ac_ext -o conftest2.$ac_objext" >&5
+ ($CC -c conftest.$ac_ext -o conftest2.$ac_objext) >&5 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } \
+ && test -f conftest2.$ac_objext; then
+ : OK
+ else
+ am_cv_prog_cc_c_o=no
+ break
+ fi
+ done
+ rm -rf core conftest*
+ unset am_i
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_prog_cc_c_o" >&5
+$as_echo "$am_cv_prog_cc_c_o" >&6; }
+if test "$am_cv_prog_cc_c_o" != yes; then
+ # Losing compiler, so override with the script.
+ # FIXME: It is wrong to rewrite CC.
+ # But if we don't then we get into trouble of one sort or another.
+ # A longer-term fix would be to have automake use am__CC in this case,
+ # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)"
+ CC="$am_aux_dir/compile $CC"
+fi
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+
+depcc="$CC" am_compiler_list=
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5
+$as_echo_n "checking dependency style of $depcc... " >&6; }
+if ${am_cv_CC_dependencies_compiler_type+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
+ # We make a subdir and do the tests there. Otherwise we can end up
+ # making bogus files that we don't know about and never remove. For
+ # instance it was reported that on HP-UX the gcc test will end up
+ # making a dummy file named 'D' -- because '-MD' means "put the output
+ # in D".
+ rm -rf conftest.dir
+ mkdir conftest.dir
+ # Copy depcomp to subdir because otherwise we won't find it if we're
+ # using a relative directory.
+ cp "$am_depcomp" conftest.dir
+ cd conftest.dir
+ # We will build objects and dependencies in a subdirectory because
+ # it helps to detect inapplicable dependency modes. For instance
+ # both Tru64's cc and ICC support -MD to output dependencies as a
+ # side effect of compilation, but ICC will put the dependencies in
+ # the current directory while Tru64 will put them in the object
+ # directory.
+ mkdir sub
+
+ am_cv_CC_dependencies_compiler_type=none
+ if test "$am_compiler_list" = ""; then
+ am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp`
+ fi
+ am__universal=false
+ case " $depcc " in #(
+ *\ -arch\ *\ -arch\ *) am__universal=true ;;
+ esac
+
+ for depmode in $am_compiler_list; do
+ # Setup a source with many dependencies, because some compilers
+ # like to wrap large dependency lists on column 80 (with \), and
+ # we should not choose a depcomp mode which is confused by this.
+ #
+ # We need to recreate these files for each test, as the compiler may
+ # overwrite some of them when testing with obscure command lines.
+ # This happens at least with the AIX C compiler.
+ : > sub/conftest.c
+ for i in 1 2 3 4 5 6; do
+ echo '#include "conftst'$i'.h"' >> sub/conftest.c
+ # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with
+ # Solaris 10 /bin/sh.
+ echo '/* dummy */' > sub/conftst$i.h
+ done
+ echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
+
+ # We check with '-c' and '-o' for the sake of the "dashmstdout"
+ # mode. It turns out that the SunPro C++ compiler does not properly
+ # handle '-M -o', and we need to detect this. Also, some Intel
+ # versions had trouble with output in subdirs.
+ am__obj=sub/conftest.${OBJEXT-o}
+ am__minus_obj="-o $am__obj"
+ case $depmode in
+ gcc)
+ # This depmode causes a compiler race in universal mode.
+ test "$am__universal" = false || continue
+ ;;
+ nosideeffect)
+ # After this tag, mechanisms are not by side-effect, so they'll
+ # only be used when explicitly requested.
+ if test "x$enable_dependency_tracking" = xyes; then
+ continue
+ else
+ break
+ fi
+ ;;
+ msvc7 | msvc7msys | msvisualcpp | msvcmsys)
+ # This compiler won't grok '-c -o', but also, the minuso test has
+ # not run yet. These depmodes are late enough in the game, and
+ # so weak that their functioning should not be impacted.
+ am__obj=conftest.${OBJEXT-o}
+ am__minus_obj=
+ ;;
+ none) break ;;
+ esac
+ if depmode=$depmode \
+ source=sub/conftest.c object=$am__obj \
+ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
+ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
+ >/dev/null 2>conftest.err &&
+ grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
+ grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
+ grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
+ ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
+ # icc doesn't choke on unknown options, it will just issue warnings
+ # or remarks (even with -Werror). So we grep stderr for any message
+ # that says an option was ignored or not supported.
+ # When given -MP, icc 7.0 and 7.1 complain thusly:
+ # icc: Command line warning: ignoring option '-M'; no argument required
+ # The diagnosis changed in icc 8.0:
+ # icc: Command line remark: option '-MP' not supported
+ if (grep 'ignoring option' conftest.err ||
+ grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
+ am_cv_CC_dependencies_compiler_type=$depmode
+ break
+ fi
+ fi
+ done
+
+ cd ..
+ rm -rf conftest.dir
+else
+ am_cv_CC_dependencies_compiler_type=none
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5
+$as_echo "$am_cv_CC_dependencies_compiler_type" >&6; }
+CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type
+
+ if
+ test "x$enable_dependency_tracking" != xno \
+ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then
+ am__fastdepCC_TRUE=
+ am__fastdepCC_FALSE='#'
+else
+ am__fastdepCC_TRUE='#'
+ am__fastdepCC_FALSE=
+fi
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C99" >&5
+$as_echo_n "checking for $CC option to accept ISO C99... " >&6; }
+if ${ac_cv_prog_cc_c99+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_cv_prog_cc_c99=no
+ac_save_CC=$CC
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <stdarg.h>
+#include <stdbool.h>
+#include <stdlib.h>
+#include <wchar.h>
+#include <stdio.h>
+
+// Check varargs macros. These examples are taken from C99 6.10.3.5.
+#define debug(...) fprintf (stderr, __VA_ARGS__)
+#define showlist(...) puts (#__VA_ARGS__)
+#define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__))
+static void
+test_varargs_macros (void)
+{
+ int x = 1234;
+ int y = 5678;
+ debug ("Flag");
+ debug ("X = %d\n", x);
+ showlist (The first, second, and third items.);
+ report (x>y, "x is %d but y is %d", x, y);
+}
+
+// Check long long types.
+#define BIG64 18446744073709551615ull
+#define BIG32 4294967295ul
+#define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0)
+#if !BIG_OK
+ your preprocessor is broken;
+#endif
+#if BIG_OK
+#else
+ your preprocessor is broken;
+#endif
+static long long int bignum = -9223372036854775807LL;
+static unsigned long long int ubignum = BIG64;
+
+struct incomplete_array
+{
+ int datasize;
+ double data[];
+};
+
+struct named_init {
+ int number;
+ const wchar_t *name;
+ double average;
+};
+
+typedef const char *ccp;
+
+static inline int
+test_restrict (ccp restrict text)
+{
+ // See if C++-style comments work.
+ // Iterate through items via the restricted pointer.
+ // Also check for declarations in for loops.
+ for (unsigned int i = 0; *(text+i) != '\0'; ++i)
+ continue;
+ return 0;
+}
+
+// Check varargs and va_copy.
+static void
+test_varargs (const char *format, ...)
+{
+ va_list args;
+ va_start (args, format);
+ va_list args_copy;
+ va_copy (args_copy, args);
+
+ const char *str;
+ int number;
+ float fnumber;
+
+ while (*format)
+ {
+ switch (*format++)
+ {
+ case 's': // string
+ str = va_arg (args_copy, const char *);
+ break;
+ case 'd': // int
+ number = va_arg (args_copy, int);
+ break;
+ case 'f': // float
+ fnumber = va_arg (args_copy, double);
+ break;
+ default:
+ break;
+ }
+ }
+ va_end (args_copy);
+ va_end (args);
+}
+
+int
+main ()
+{
+
+ // Check bool.
+ _Bool success = false;
+
+ // Check restrict.
+ if (test_restrict ("String literal") == 0)
+ success = true;
+ char *restrict newvar = "Another string";
+
+ // Check varargs.
+ test_varargs ("s, d' f .", "string", 65, 34.234);
+ test_varargs_macros ();
+
+ // Check flexible array members.
+ struct incomplete_array *ia =
+ malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10));
+ ia->datasize = 10;
+ for (int i = 0; i < ia->datasize; ++i)
+ ia->data[i] = i * 1.234;
+
+ // Check named initializers.
+ struct named_init ni = {
+ .number = 34,
+ .name = L"Test wide string",
+ .average = 543.34343,
+ };
+
+ ni.number = 58;
+
+ int dynamic_array[ni.number];
+ dynamic_array[ni.number - 1] = 543;
+
+ // work around unused variable warnings
+ return (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == 'x'
+ || dynamic_array[ni.number - 1] != 543);
+
+ ;
+ return 0;
+}
+_ACEOF
+for ac_arg in '' -std=gnu99 -std=c99 -c99 -AC99 -D_STDC_C99= -qlanglvl=extc99
+do
+ CC="$ac_save_CC $ac_arg"
+ if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_prog_cc_c99=$ac_arg
+fi
+rm -f core conftest.err conftest.$ac_objext
+ test "x$ac_cv_prog_cc_c99" != "xno" && break
+done
+rm -f conftest.$ac_ext
+CC=$ac_save_CC
+
+fi
+# AC_CACHE_VAL
+case "x$ac_cv_prog_cc_c99" in
+ x)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
+$as_echo "none needed" >&6; } ;;
+ xno)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
+$as_echo "unsupported" >&6; } ;;
+ *)
+ CC="$CC $ac_cv_prog_cc_c99"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99" >&5
+$as_echo "$ac_cv_prog_cc_c99" >&6; } ;;
+esac
+if test "x$ac_cv_prog_cc_c99" != xno; then :
+
+fi
+
+
+if test "x$ac_cv_prog_cc_c99" = xno; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "unable to detect C compiler flag needed to accept ISO C99
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+acx_prog_cc_posix_version_value=200112
+ acx_prog_cc_posix_version_print="POSIX.1-2001"
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking For conformance to ${acx_prog_cc_posix_version_print}." >&5
+$as_echo_n "checking For conformance to ${acx_prog_cc_posix_version_print}.... " >&6; }
+if ${acx_cv_cc_posix_support2001+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <unistd.h>
+int
+main ()
+{
+ int n[(_POSIX_VERSION >= ${acx_prog_cc_posix_version_value}L) * 2 - 1];
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ acx_cv_cc_posix_support2001=yes
+else
+ acx_cv_cc_posix_support2001=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_cc_posix_support2001" >&5
+$as_echo "$acx_cv_cc_posix_support2001" >&6; }
+ if test "x$acx_cv_cc_posix_support2001" = xno; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: It seems your system does not define _POSIX_VERSION to a value
+greater-or-equal ${acx_prog_cc_posix_version_value}. This is typically the case when the
+compiler is instructed to make ISO C features available only,
+e.g. when using gcc -std=c99" >&5
+$as_echo "$as_me: It seems your system does not define _POSIX_VERSION to a value
+greater-or-equal ${acx_prog_cc_posix_version_value}. This is typically the case when the
+compiler is instructed to make ISO C features available only,
+e.g. when using gcc -std=c99" >&6;}
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "${acx_prog_cc_posix_version_print} profile required
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C/C++ restrict keyword" >&5
+$as_echo_n "checking for C/C++ restrict keyword... " >&6; }
+if ${ac_cv_c_restrict+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_cv_c_restrict=no
+ # The order here caters to the fact that C++ does not require restrict.
+ for ac_kw in __restrict __restrict__ _Restrict restrict; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+typedef int * int_ptr;
+ int foo (int_ptr $ac_kw ip) {
+ return ip[0];
+ }
+int
+main ()
+{
+int s[1];
+ int * $ac_kw t = s;
+ t[0] = 0;
+ return foo(t)
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_c_restrict=$ac_kw
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ test "$ac_cv_c_restrict" != no && break
+ done
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_restrict" >&5
+$as_echo "$ac_cv_c_restrict" >&6; }
+
+ case $ac_cv_c_restrict in
+ restrict) ;;
+ no) $as_echo "#define restrict /**/" >>confdefs.h
+ ;;
+ *) cat >>confdefs.h <<_ACEOF
+#define restrict $ac_cv_c_restrict
+_ACEOF
+ ;;
+ esac
+
+
+# Check whether --enable-mpi was given.
+if test "${enable_mpi+set}" = set; then :
+ enableval=$enable_mpi; test "x$enableval" != xno && enable_mpi=yes
+else
+ enable_mpi=no
+fi
+
+
+# Check whether --enable-iso-c-interface was given.
+if test "${enable_iso_c_interface+set}" = set; then :
+ enableval=$enable_iso_c_interface; test "x$enableval" != xno && enable_iso_c_interface=yes
+else
+ enable_iso_c_interface=no
+fi
+
+ if test "x$enable_iso_c_interface" = xyes; then
+ ENABLE_ISOC_INTERFACE_TRUE=
+ ENABLE_ISOC_INTERFACE_FALSE='#'
+else
+ ENABLE_ISOC_INTERFACE_TRUE='#'
+ ENABLE_ISOC_INTERFACE_FALSE=
+fi
+
+
+# Check whether --enable-cf-interface was given.
+if test "${enable_cf_interface+set}" = set; then :
+ enableval=$enable_cf_interface; if test "x$enableval" != xno && test "x$enableval" != xauto; then :
+ enable_cf_interface=yes
+fi
+else
+ enable_cf_interface=auto
+fi
+
+if test "x${enable_mpi}${enable_cf_interface}" = xnoauto; then :
+ enable_cf_interface=no
+fi
+
+if test "x$enable_iso_c_interface" = xyes || \
+ test "x$enable_cf_interface" != xno; then
+ if test "x$FC" != xno; then
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+if test -n "$ac_tool_prefix"; then
+ for ac_prog in gfortran g95 xlf95 f95 fort ifort ifc efc pgfortran pgf95 lf95 ftn nagfor xlf90 f90 pgf90 pghpf epcf90 g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77
+ do
+ # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
+set dummy $ac_tool_prefix$ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$FC"; then
+ ac_cv_prog_FC="$FC" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_FC="$ac_tool_prefix$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+FC=$ac_cv_prog_FC
+if test -n "$FC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $FC" >&5
+$as_echo "$FC" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$FC" && break
+ done
+fi
+if test -z "$FC"; then
+ ac_ct_FC=$FC
+ for ac_prog in gfortran g95 xlf95 f95 fort ifort ifc efc pgfortran pgf95 lf95 ftn nagfor xlf90 f90 pgf90 pghpf epcf90 g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_FC"; then
+ ac_cv_prog_ac_ct_FC="$ac_ct_FC" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_FC="$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_FC=$ac_cv_prog_ac_ct_FC
+if test -n "$ac_ct_FC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_FC" >&5
+$as_echo "$ac_ct_FC" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$ac_ct_FC" && break
+done
+
+ if test "x$ac_ct_FC" = x; then
+ FC=""
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ FC=$ac_ct_FC
+ fi
+fi
+
+
+# Provide some information about the compiler.
+$as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran compiler version" >&5
+set X $ac_compile
+ac_compiler=$2
+for ac_option in --version -v -V -qversion; do
+ { { ac_try="$ac_compiler $ac_option >&5"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_compiler $ac_option >&5") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ sed '10a\
+... rest of stderr output deleted ...
+ 10q' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ fi
+ rm -f conftest.er1 conftest.err
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+done
+rm -f a.out
+
+# If we don't use `.F' as extension, the preprocessor is not run on the
+# input file. (Note that this only needs to work for GNU compilers.)
+ac_save_ext=$ac_ext
+ac_ext=F
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU Fortran compiler" >&5
+$as_echo_n "checking whether we are using the GNU Fortran compiler... " >&6; }
+if ${ac_cv_fc_compiler_gnu+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+#ifndef __GNUC__
+ choke me
+#endif
+
+ end
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+ ac_compiler_gnu=yes
+else
+ ac_compiler_gnu=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ac_cv_fc_compiler_gnu=$ac_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_compiler_gnu" >&5
+$as_echo "$ac_cv_fc_compiler_gnu" >&6; }
+ac_ext=$ac_save_ext
+ac_test_FCFLAGS=${FCFLAGS+set}
+ac_save_FCFLAGS=$FCFLAGS
+FCFLAGS=
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $FC accepts -g" >&5
+$as_echo_n "checking whether $FC accepts -g... " >&6; }
+if ${ac_cv_prog_fc_g+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ FCFLAGS=-g
+cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+
+ end
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+ ac_cv_prog_fc_g=yes
+else
+ ac_cv_prog_fc_g=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_fc_g" >&5
+$as_echo "$ac_cv_prog_fc_g" >&6; }
+if test "$ac_test_FCFLAGS" = set; then
+ FCFLAGS=$ac_save_FCFLAGS
+elif test $ac_cv_prog_fc_g = yes; then
+ if test "x$ac_cv_fc_compiler_gnu" = xyes; then
+ FCFLAGS="-g -O2"
+ else
+ FCFLAGS="-g"
+ fi
+else
+ if test "x$ac_cv_fc_compiler_gnu" = xyes; then
+ FCFLAGS="-O2"
+ else
+ FCFLAGS=
+ fi
+fi
+
+if test $ac_compiler_gnu = yes; then
+ GFC=yes
+else
+ GFC=
+fi
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ test -z $FC 2>/dev/null && FC=no
+
+if test "x$FC" != xno; then :
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran flag to compile .f90 files" >&5
+$as_echo_n "checking for Fortran flag to compile .f90 files... " >&6; }
+if ${ac_cv_fc_srcext_f90+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_ext=f90
+ac_fcflags_srcext_save=$ac_fcflags_srcext
+ac_fcflags_srcext=
+ac_cv_fc_srcext_f90=unknown
+case $ac_ext in #(
+ [fF]77) ac_try=f77;; #(
+ *) ac_try=f95;;
+esac
+for ac_flag in none -qsuffix=f=f90 -Tf "-x $ac_try"; do
+ test "x$ac_flag" != xnone && ac_fcflags_srcext="$ac_flag"
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+
+ end
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+ ac_cv_fc_srcext_f90=$ac_flag; break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+done
+rm -f conftest.$ac_objext conftest.f90
+ac_fcflags_srcext=$ac_fcflags_srcext_save
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_srcext_f90" >&5
+$as_echo "$ac_cv_fc_srcext_f90" >&6; }
+if test "x$ac_cv_fc_srcext_f90" = xunknown; then
+ FC=no
+else
+ ac_fc_srcext=f90
+ if test "x$ac_cv_fc_srcext_f90" = xnone; then
+ ac_fcflags_srcext=""
+ FCFLAGS_f90=""
+ else
+ ac_fcflags_srcext=$ac_cv_fc_srcext_f90
+ FCFLAGS_f90=$ac_cv_fc_srcext_f90
+ fi
+
+
+fi
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+ if test "x$FC" != xno; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the Fortran compiler works" >&5
+$as_echo_n "checking whether the Fortran compiler works... " >&6; }
+if ${acx_cv_fc_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_fc_works=no
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+ if test "$cross_compiling" = yes; then :
+ acx_cv_fc_works=yes
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+
+ end
+_ACEOF
+if ac_fn_fc_try_run "$LINENO"; then :
+ acx_cv_fc_works=yes
+fi
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
+ conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_fc_works" >&5
+$as_echo "$acx_cv_fc_works" >&6; }
+ if test "x$acx_cv_fc_works" = xno; then :
+ FC=no
+fi
+fi
+ if test "x$FC" != xno; then :
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+
+
+ unset acx_sl_cv_fc_mod_path_flag_fc
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for flag to alter module search path" >&5
+$as_echo_n "checking for flag to alter module search path... " >&6; }
+if ${acx_sl_cv_fc_mod_path_flag_fc+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ mkdir conftestdir
+ cd conftestdir
+ cat > conftest.$ac_ext <<_ACEOF
+ module cnftst
+ implicit none
+ integer, public :: i
+ end module cnftst
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+
+else
+ as_fn_error $? "Cannot compile fortran modules" "$LINENO" 5
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ cd ..
+ for i in -I -M -module -p; do
+ FCFLAGS_save=$FCFLAGS
+ FCFLAGS="$FCFLAGS ${i}conftestdir"
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+ use cnftst
+ implicit none
+ i = 0
+ end
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+ acx_sl_cv_fc_mod_path_flag_fc=$i ; FCFLAGS=$FCFLAGS_save ; break
+else
+ :
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ FCFLAGS=$FCFLAGS_save
+ done
+ FCFLAGS=$FCFLAGS_save
+ rm -rf conftestdir
+ if ${acx_sl_cv_fc_mod_path_flag_fc+:} false; then :
+ :
+else
+ FC_MOD_FLAG=-I
+fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_sl_cv_fc_mod_path_flag_fc" >&5
+$as_echo "$acx_sl_cv_fc_mod_path_flag_fc" >&6; }
+ FC_MOD_FLAG=$acx_sl_cv_fc_mod_path_flag_fc
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran compiler flag needed to specify search paths for the \"INCLUDE\" statement" >&5
+$as_echo_n "checking for Fortran compiler flag needed to specify search paths for the \"INCLUDE\" statement... " >&6; }
+if ${acx_cv_fc_ftn_include_flag+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_fc_ftn_include_flag=unknown
+ as_dir=conftest.dir; as_fn_mkdir_p
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+
+ end
+_ACEOF
+ mv conftest.$ac_ext conftest.dir/conftest.inc
+ cat > conftest.$ac_ext <<_ACEOF
+ include "conftest.inc"
+_ACEOF
+ acx_save_FCFLAGS=$FCFLAGS
+ for acx_flag in -I '-I '; do
+ FCFLAGS="$acx_save_FCFLAGS ${acx_flag}conftest.dir"
+ if ac_fn_fc_try_link "$LINENO"; then :
+ acx_cv_fc_ftn_include_flag=$acx_flag
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ test "x$acx_cv_fc_ftn_include_flag" != xunknown && break
+ done
+ FCFLAGS=$acx_save_FCFLAGS
+ rm -rf conftest.$ac_ext conftest.dir
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_fc_ftn_include_flag" >&5
+$as_echo "$acx_cv_fc_ftn_include_flag" >&6; }
+ if test "x$acx_cv_fc_ftn_include_flag" = xunknown; then :
+ FC_OPTINC=-I
+else
+ FC_OPTINC=$acx_cv_fc_ftn_include_flag
+
+fi
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for conftest_module module file name" >&5
+$as_echo_n "checking for conftest_module module file name... " >&6; }
+if ${acx_cv_fc_mod_name+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+ cat > conftest.$ac_ext <<_ACEOF
+ module conftest_module
+ implicit none
+ integer :: i
+ end module conftest_module
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ while :; do
+ acx_cv_fc_mod_name=
+ if test -n "conftest_module.$FCMODEXT" -a -f "conftest_module.$FCMODEXT"; then :
+ acx_cv_fc_mod_name="conftest_module.$FCMODEXT" ; break
+fi
+ if test -n "conftest_module.mod" -a -f "conftest_module.mod"; then :
+ acx_cv_fc_mod_name="conftest_module.mod" ; break
+fi
+ if test -n "conftest_module.MOD" -a -f "conftest_module.MOD"; then :
+ acx_cv_fc_mod_name="conftest_module.MOD" ; break
+fi
+ if test -n "conftest_module.M" -a -f "conftest_module.M"; then :
+ acx_cv_fc_mod_name="conftest_module.M" ; break
+fi
+ if test -n "CONFTEST_MODULE.MOD" -a -f "CONFTEST_MODULE.MOD"; then :
+ acx_cv_fc_mod_name="CONFTEST_MODULE.MOD" ; break
+fi
+ if test -n "CONFTEST_MODULE.mod" -a -f "CONFTEST_MODULE.mod"; then :
+ acx_cv_fc_mod_name="CONFTEST_MODULE.mod" ; break
+fi
+
+ break
+ done
+ rm -f conftest_module* CONFTEST_MODULE*
+ if expr "$ac_compile" : '.*/libtool --mode=compile' >/dev/null; then :
+ if test -n "$objdir"; then :
+ rm -f "$objdir"/conftest_module* "$objdir"/CONFTEST_MODULE*
+fi
+fi
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_fc_mod_name" >&5
+$as_echo "$acx_cv_fc_mod_name" >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of module files" >&5
+$as_echo_n "checking for suffix of module files... " >&6; }
+ ac_fc_mod_uppercase=no
+ case $acx_cv_fc_mod_name in #(
+ conftest_module.$FCMODEXT) :
+ : ;; #(
+ CONFTEST_MODULE.$FCMODEXT) :
+ ac_fc_mod_uppercase=yes ;; #(
+ conftest_module.mod) :
+ FCMODEXT=mod ;; #(
+ conftest_module.MOD) :
+ FCMODEXT=MOD ;; #(
+ conftest_module.M) :
+ FCMODEXT=M ;; #(
+ CONFTEST_MODULE.MOD) :
+ FCMODEXT=MOD ; ac_fc_mod_uppercase=yes ;; #(
+ CONFTEST_MODULE.mod) :
+ FCMODEXT=mod ; ac_fc_mod_uppercase=yes ;; #(
+ *) :
+ ;;
+esac
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${FCMODEXT-not found}" >&5
+$as_echo "${FCMODEXT-not found}" >&6; }
+ ${FCMODEXT+:} false
+ if test $ac_fc_mod_uppercase = yes; then :
+ FCMODCASE=uc
+ { $as_echo "$as_me:${as_lineno-$LINENO}: Fortran module filenames are uppercase." >&5
+$as_echo "$as_me: Fortran module filenames are uppercase." >&6;}
+else
+ FCMODCASE=lc
+fi
+
+
+
+ saved_ac_fc_srcext=$ac_fc_srcext
+ ac_fc_srcext='F90'
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+ac_fc_pp_define_srcext_save=$ac_fc_srcext
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to define symbols for preprocessed Fortran" >&5
+$as_echo_n "checking how to define symbols for preprocessed Fortran... " >&6; }
+if ${ac_cv_fc_pp_define+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_fc_pp_define_srcext_save=$ac_fc_srcext
+ac_cv_fc_pp_define=unknown
+ac_fc_pp_define_FCFLAGS_save=$FCFLAGS
+for ac_flag in -D -WF,-D -Wp,-D -Wc,-D
+do
+ FCFLAGS="$ac_fc_pp_define_FCFLAGS_save ${ac_flag}FOOBAR ${ac_flag}ZORK=42"
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+
+#ifndef FOOBAR
+ choke me
+#endif
+#if ZORK != 42
+ choke me
+#endif
+ end
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+ ac_cv_fc_pp_define=$ac_flag
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ test x"$ac_cv_fc_pp_define" != xunknown && break
+done
+FCFLAGS=$ac_fc_pp_define_FCFLAGS_save
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_pp_define" >&5
+$as_echo "$ac_cv_fc_pp_define" >&6; }
+ac_fc_srcext=$ac_fc_pp_define_srcext_save
+if test "x$ac_cv_fc_pp_define" = xunknown; then
+ FC_DEFINE=
+ FC_DEFINE=-D
+else
+ FC_DEFINE=$ac_cv_fc_pp_define
+
+fi
+ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+ ac_fc_srcext=$saved_ac_fc_srcext
+
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+ fi
+else
+ FC=no
+fi
+ if test "x$FCMODCASE" = xuc; then
+ FC_MOD_UPPERCASE_TRUE=
+ FC_MOD_UPPERCASE_FALSE='#'
+else
+ FC_MOD_UPPERCASE_TRUE='#'
+ FC_MOD_UPPERCASE_FALSE=
+fi
+
+if test "x$enable_iso_c_interface" = xyes; then :
+ if test "x$FC" != xno; then :
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if Fortran compiler can handle complex CHARACTER interoperability" >&5
+$as_echo_n "checking if Fortran compiler can handle complex CHARACTER interoperability... " >&6; }
+ cat > conftest.$ac_ext <<_ACEOF
+module conftest_mod
+ use iso_c_binding
+ implicit none
+ private
+ public :: errstr
+contains
+ function errstr(errno)
+ integer, intent(in) :: errno
+ interface
+ function strerror(errno) bind(c, name='strerror')
+ import :: c_int, c_ptr
+ integer(c_int), value, intent(in) :: errno
+ type(c_ptr) :: strerror
+ end function strerror
+ function strlen(s) bind(c, name='strlen')
+ import :: c_ptr, c_size_t
+ type(c_ptr), value, intent(in) :: s
+ integer(c_size_t) :: strlen
+ end function strlen
+ end interface
+ type(c_ptr) :: cptr
+ character(kind=c_char), dimension(:), pointer :: buf
+ character(len=:), pointer :: errstr
+ integer :: i, rv_shape(1)
+
+ cptr = strerror(int(errno, c_int))
+ rv_shape(1) = int(strlen(cptr))
+ call c_f_pointer(cptr, buf, rv_shape)
+ allocate(character(rv_shape(1)) :: errstr)
+ do i = 1, rv_shape(1)
+ errstr(i:i) = buf(i)
+ end do
+ end function errstr
+end module conftest_mod
+
+program conftest
+ use conftest_mod, only: errstr
+ implicit none
+ character(len=:), pointer :: msg
+ msg => errstr(42)
+ write (0, '(a)') msg
+end program conftest
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+FC=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ rm -f conftest_mod* CONFTEST_MOD*
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+ if test "x$FC" = xno; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "the Fortran 2003 interface is requested but the Fortran compiler is disabled, missing or lacks the required features
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+fi
+ if test "x$FC" != xno; then
+ BUILD_FC_PROGRAMS_TRUE=
+ BUILD_FC_PROGRAMS_FALSE='#'
+else
+ BUILD_FC_PROGRAMS_TRUE='#'
+ BUILD_FC_PROGRAMS_FALSE=
+fi
+
+
+if test "x$enable_cf_interface" != xno; then
+ if test -n "$F77" && test "x$F77" != xno; then :
+ requested_F77=yes
+else
+ requested_F77=no
+fi
+ if test "x$FC" = xno || test "x$requested_F77" = xyes; then
+ ac_ext=f
+ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
+ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_f77_compiler_gnu
+if test -n "$ac_tool_prefix"; then
+ for ac_prog in g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77 xlf90 f90 pgf90 pghpf epcf90 gfortran g95 xlf95 f95 fort ifort ifc efc pgfortran pgf95 lf95 ftn nagfor
+ do
+ # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
+set dummy $ac_tool_prefix$ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$F77"; then
+ ac_cv_prog_F77="$F77" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_F77="$ac_tool_prefix$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+F77=$ac_cv_prog_F77
+if test -n "$F77"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $F77" >&5
+$as_echo "$F77" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$F77" && break
+ done
+fi
+if test -z "$F77"; then
+ ac_ct_F77=$F77
+ for ac_prog in g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77 xlf90 f90 pgf90 pghpf epcf90 gfortran g95 xlf95 f95 fort ifort ifc efc pgfortran pgf95 lf95 ftn nagfor
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_F77"; then
+ ac_cv_prog_ac_ct_F77="$ac_ct_F77" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_F77="$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_F77=$ac_cv_prog_ac_ct_F77
+if test -n "$ac_ct_F77"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_F77" >&5
+$as_echo "$ac_ct_F77" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$ac_ct_F77" && break
+done
+
+ if test "x$ac_ct_F77" = x; then
+ F77=""
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ F77=$ac_ct_F77
+ fi
+fi
+
+
+# Provide some information about the compiler.
+$as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran 77 compiler version" >&5
+set X $ac_compile
+ac_compiler=$2
+for ac_option in --version -v -V -qversion; do
+ { { ac_try="$ac_compiler $ac_option >&5"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_compiler $ac_option >&5") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ sed '10a\
+... rest of stderr output deleted ...
+ 10q' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ fi
+ rm -f conftest.er1 conftest.err
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+done
+rm -f a.out
+
+# If we don't use `.F' as extension, the preprocessor is not run on the
+# input file. (Note that this only needs to work for GNU compilers.)
+ac_save_ext=$ac_ext
+ac_ext=F
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU Fortran 77 compiler" >&5
+$as_echo_n "checking whether we are using the GNU Fortran 77 compiler... " >&6; }
+if ${ac_cv_f77_compiler_gnu+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program main
+#ifndef __GNUC__
+ choke me
+#endif
+
+ end
+_ACEOF
+if ac_fn_f77_try_compile "$LINENO"; then :
+ ac_compiler_gnu=yes
+else
+ ac_compiler_gnu=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ac_cv_f77_compiler_gnu=$ac_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_f77_compiler_gnu" >&5
+$as_echo "$ac_cv_f77_compiler_gnu" >&6; }
+ac_ext=$ac_save_ext
+ac_test_FFLAGS=${FFLAGS+set}
+ac_save_FFLAGS=$FFLAGS
+FFLAGS=
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $F77 accepts -g" >&5
+$as_echo_n "checking whether $F77 accepts -g... " >&6; }
+if ${ac_cv_prog_f77_g+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ FFLAGS=-g
+cat > conftest.$ac_ext <<_ACEOF
+ program main
+
+ end
+_ACEOF
+if ac_fn_f77_try_compile "$LINENO"; then :
+ ac_cv_prog_f77_g=yes
+else
+ ac_cv_prog_f77_g=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_f77_g" >&5
+$as_echo "$ac_cv_prog_f77_g" >&6; }
+if test "$ac_test_FFLAGS" = set; then
+ FFLAGS=$ac_save_FFLAGS
+elif test $ac_cv_prog_f77_g = yes; then
+ if test "x$ac_cv_f77_compiler_gnu" = xyes; then
+ FFLAGS="-g -O2"
+ else
+ FFLAGS="-g"
+ fi
+else
+ if test "x$ac_cv_f77_compiler_gnu" = xyes; then
+ FFLAGS="-O2"
+ else
+ FFLAGS=
+ fi
+fi
+
+if test $ac_compiler_gnu = yes; then
+ G77=yes
+else
+ G77=
+fi
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ test -z $F77 2>/dev/null && F77=no
+
+if test "x$F77" != xno; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the Fortran 77 compiler works" >&5
+$as_echo_n "checking whether the Fortran 77 compiler works... " >&6; }
+if ${acx_cv_f77_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_f77_works=no
+ ac_ext=f
+ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
+ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_f77_compiler_gnu
+
+ if test "$cross_compiling" = yes; then :
+ acx_cv_f77_works=yes
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program main
+
+ end
+_ACEOF
+if ac_fn_f77_try_run "$LINENO"; then :
+ acx_cv_f77_works=yes
+fi
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
+ conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_f77_works" >&5
+$as_echo "$acx_cv_f77_works" >&6; }
+ if test "x$acx_cv_f77_works" = xno; then :
+ F77=no
+fi
+fi
+ else
+ F77=no
+ fi
+ if test "x$F77" = xno && test "x$requested_F77" = xyes; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "the explicitly requested Fortran 77 compiler is missing or lacks the required features
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+ { requested_F77=; unset requested_F77;}
+else
+ F77=no
+fi
+if test "x$enable_cf_interface" != xno; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking C preprocessor flags for Fortran calling convention cfortran.h" >&5
+$as_echo_n "checking C preprocessor flags for Fortran calling convention cfortran.h... " >&6; }
+if ${acx_cv_cf_flag+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_cf_flag=''
+ acx_temp=`echo " $CPPFLAGS $CFLAGS " | sed -n '/ -DpgiFortran/{
+x
+s/$/ -DpgiFortran/
+x
+}
+/ -DNAGf90Fortran/{
+x
+s/$/ -DNAGf90Fortran/
+x
+}
+/ -Df2cFortran/{
+x
+s/$/ -Df2cFortran/
+x
+}
+/ -DhpuxFortran/{
+x
+s/$/ -DhpuxFortran/
+x
+}
+/ -DapolloFortran/{
+x
+s/$/ -DapolloFortran/
+x
+}
+/ -DsunFortran/{
+x
+s/$/ -DsunFortran/
+x
+}
+/ -DIBMR2Fortran/{
+x
+s/$/ -DIBMR2Fortran/
+x
+}
+/ -DCRAYFortran/{
+x
+s/$/ -DCRAYFortran/
+x
+}
+/ -DPATHSCALE_COMPILER/{
+x
+s/$/ -DPATHSCALE_COMPILER/
+x
+}
+/ -DgFortran/{
+x
+s/$/ -DgFortran/
+x
+}
+/ -DmipsFortran/{
+x
+s/$/ -DmipsFortran/
+x
+}
+/ -DDECFortran/{
+x
+s/$/ -DDECFortran/
+x
+}
+/ -DvmsFortran/{
+x
+s/$/ -DvmsFortran/
+x
+}
+/ -DCONVEXFortran/{
+x
+s/$/ -DCONVEXFortran/
+x
+}
+/ -DPowerStationFortran/{
+x
+s/$/ -DPowerStationFortran/
+x
+}
+/ -DAbsoftUNIXFortran/{
+x
+s/$/ -DAbsoftUNIXFortran/
+x
+}
+/ -DAbsoftProFortran/{
+x
+s/$/ -DAbsoftProFortran/
+x
+}
+/ -DSXFortran/{
+x
+s/$/ -DSXFortran/
+x
+}
+x
+s/^ //
+p'`
+ case $acx_temp in #(
+ -D*\ -D*) :
+ acx_failure_msg="multiple specification of cfortran.h flags: $acx_temp"
+ acx_cv_cf_flag='error' ;; #(
+ -D*) :
+ acx_cv_cf_flag="$acx_temp (user-specified)" ;; #(
+ *) :
+ if test -n "$FC" -a X"$FC" != Xno; then :
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+
+
+
+ case $host in #(
+ x86_64-*-linux-*|i*86-*-linux-*|*-apple-darwin*|ia64-*-linux-*|x86_64-*-freebsd*|i*86-*-freebsd*) :
+ case `$FC -V 2>&1 | sed -n 1,10p` in #(
+ *NAG\ Fortran\ Compiler\ Release*) :
+ acx_cv_fc_cf_flag=-DNAGf90Fortran ;; #(
+ *Copyright*The\ Portland\ Group*|*Copyright*NVIDIA\ CORPORATION*|*Intel\(R\)\ Fortran*Compiler*|*Cray\ Fortran*) :
+ acx_cv_fc_cf_flag=-DgFortran ;; #(
+ *) :
+ case `$FC --version 2>&1 | sed -n 1,5p` in #(
+ *G95*) :
+ acx_cv_fc_cf_flag=-DNAGf90Fortran ;; #(
+ *GNU\ Fortran*g77*) :
+ acx_cv_fc_cf_flag=-Dg77Fortran ;; #(
+ *GNU\ Fortran*) :
+ case " $FCFLAGS " in #(
+ *\ -ff2c\ *) :
+ acx_cv_fc_cf_flag=-Df2cFortran ;; #(
+ *) :
+ acx_cv_fc_cf_flag=-DgFortran
+ acx_temp=`$FC --version 2>&1 | sed -n -e '/^GNU Fortran/{' \
+ -e 's/^GNU Fortran\( ([^)]*)\)\{0,1\} \([0-9.]*\)\( .*\)\{0,1\}/\2/;p;}'`
+ as_arg_v1=$acx_temp
+as_arg_v2=7
+awk "$as_awk_strverscmp" v1="$as_arg_v1" v2="$as_arg_v2" /dev/null
+case $? in #(
+ 1) :
+ ;; #(
+ 0) :
+ ;; #(
+ 2) :
+ acx_cv_fc_cf_flag="-DgFortran -DgFortran8" ;; #(
+ *) :
+ ;;
+esac ;;
+esac ;; #(
+ *) :
+ case `$FC -v 2>&1 | sed -n 1,5p` in #(
+ *f2c*) :
+ acx_cv_fc_cf_flag=-Df2cFortran ;; #(
+ *) :
+ ;;
+esac ;;
+esac ;;
+esac ;; #(
+ powerpc64-*-linux-*|powerpc-*-linux-*) :
+ if $FC -qversion 2>&1 | sed 5q | grep '^IBM XL Fortran' >/dev/null; then :
+ acx_cv_fc_cf_flag=-DIBMR2Fortran
+fi ;; #(
+ *-ibm-aix*) :
+ if $CC -qversion 2>&1 | grep '^IBM XL C' >/dev/null; then :
+
+else
+ acx_cv_fc_cf_flag=-DIBMR2Fortran
+fi
+ ;; #(
+ *-*-hpux*) :
+ acx_cv_fc_cf_flag=-DhpuxFortran ;; #(
+ sx*-*-*|es*-*-*) :
+ acx_cv_fc_cf_flag=-DSXFortran ;; #(
+ *) :
+ ;;
+esac
+
+
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+ if test -n "$F77" -a X"$F77" != Xno; then :
+ ac_ext=f
+ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
+ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_f77_compiler_gnu
+
+
+
+
+ case $host in #(
+ x86_64-*-linux-*|i*86-*-linux-*|*-apple-darwin*|ia64-*-linux-*|x86_64-*-freebsd*|i*86-*-freebsd*) :
+ case `$F77 -V 2>&1 | sed -n 1,10p` in #(
+ *NAG\ Fortran\ Compiler\ Release*) :
+ acx_cv_f77_cf_flag=-DNAGf90Fortran ;; #(
+ *Copyright*The\ Portland\ Group*|*Copyright*NVIDIA\ CORPORATION*|*Intel\(R\)\ Fortran*Compiler*|*Cray\ Fortran*) :
+ acx_cv_f77_cf_flag=-DgFortran ;; #(
+ *) :
+ case `$F77 --version 2>&1 | sed -n 1,5p` in #(
+ *G95*) :
+ acx_cv_f77_cf_flag=-DNAGf90Fortran ;; #(
+ *GNU\ Fortran*g77*) :
+ acx_cv_f77_cf_flag=-Dg77Fortran ;; #(
+ *GNU\ Fortran*) :
+ case " $FFLAGS " in #(
+ *\ -ff2c\ *) :
+ acx_cv_f77_cf_flag=-Df2cFortran ;; #(
+ *) :
+ acx_cv_f77_cf_flag=-DgFortran
+ acx_temp=`$F77 --version 2>&1 | sed -n -e '/^GNU Fortran/{' \
+ -e 's/^GNU Fortran\( ([^)]*)\)\{0,1\} \([0-9.]*\)\( .*\)\{0,1\}/\2/;p;}'`
+ as_arg_v1=$acx_temp
+as_arg_v2=7
+awk "$as_awk_strverscmp" v1="$as_arg_v1" v2="$as_arg_v2" /dev/null
+case $? in #(
+ 1) :
+ ;; #(
+ 0) :
+ ;; #(
+ 2) :
+ acx_cv_f77_cf_flag="-DgFortran -DgFortran8" ;; #(
+ *) :
+ ;;
+esac ;;
+esac ;; #(
+ *) :
+ case `$F77 -v 2>&1 | sed -n 1,5p` in #(
+ *f2c*) :
+ acx_cv_f77_cf_flag=-Df2cFortran ;; #(
+ *) :
+ ;;
+esac ;;
+esac ;;
+esac ;; #(
+ powerpc64-*-linux-*|powerpc-*-linux-*) :
+ if $F77 -qversion 2>&1 | sed 5q | grep '^IBM XL Fortran' >/dev/null; then :
+ acx_cv_f77_cf_flag=-DIBMR2Fortran
+fi ;; #(
+ *-ibm-aix*) :
+ if $CC -qversion 2>&1 | grep '^IBM XL C' >/dev/null; then :
+
+else
+ acx_cv_f77_cf_flag=-DIBMR2Fortran
+fi
+ ;; #(
+ *-*-hpux*) :
+ acx_cv_f77_cf_flag=-DhpuxFortran ;; #(
+ sx*-*-*|es*-*-*) :
+ acx_cv_f77_cf_flag=-DSXFortran ;; #(
+ *) :
+ ;;
+esac
+
+
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+ if test -z "$FC" -o X"$FC" = Xno; then :
+ acx_cv_cf_flag="$acx_cv_f77_cf_flag (probed)"
+elif test -z "$F77" -o X"$F77" = Xno; then :
+ acx_cv_cf_flag="$acx_cv_fc_cf_flag (probed)"
+else
+ if test x"$acx_cv_f77_cf_flag" = x"$acx_cv_fc_cf_flag"; then :
+ acx_cv_cf_flag="$acx_cv_f77_cf_flag (probed)"
+else
+ acx_failure_msg="cfortran.h flag for $F77 ($acx_cv_f77_cf_flag) does not match the flag for $FC ($acx_cv_fc_cf_flag).
+Did you configure compatible compilers?"
+ acx_cv_cf_flag='error'
+fi
+fi ;;
+esac
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_cf_flag" >&5
+$as_echo "$acx_cv_cf_flag" >&6; }
+ case $acx_cv_cf_flag in #(
+ error) :
+ as_fn_error $? "$acx_failure_msg" "$LINENO" 5 ;; #(
+ *\ \(probed\)) :
+ CPPFLAGS="${CPPFLAGS+$CPPFLAGS }"`echo "$acx_cv_cf_flag" | sed 's/ (probed)$//'` ;; #(
+ *) :
+ ;;
+esac
+
+ case $host in #(
+ *-ibm-aix*|powerpc64-*-linux-*|powerpc-*-linux-*) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if -Dappendus needs to be added to CPPFLAGS for cfortran.h" >&5
+$as_echo_n "checking if -Dappendus needs to be added to CPPFLAGS for cfortran.h... " >&6; }
+ if $CC -qversion 2>&1 | sed 5q | grep '^IBM XL C' >/dev/null; then :
+ acx_temp_qextname_f77flags=`echo "$FFLAGS" | sed -n '/-qextname/{ s/^\(.* \)*-qextname\( .*\)*$/-qextname/;p;}'`
+ acx_temp_qextname_fcflags=`echo "$FCFLAGS" | sed -n '/-qextname/{ s/^\(.* \)*-qextname\( .*\)*$/-qextname/;p;}'`
+
+ if $FC -qversion 2>&1 | grep '^IBM XL Fortran' >/dev/null; then :
+
+else
+ acx_temp_qextname_fcflags=-qextname
+fi
+ case x"$acx_temp_qextname_fcflags$acx_temp_qextname_f77flags" in #(
+ x-qextname) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: error" >&5
+$as_echo "error" >&6; }
+ acx_failure_msg="option -qextname must be provided consistently to F77 and FC"
+ as_fn_error $? "$acx_failure_msg" "$LINENO" 5 ;; #(
+ x-qextname-qextname) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ CPPFLAGS="${CPPFLAGS+$CPPFLAGS }-Dappendus" ;; #(
+ *) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; } ;;
+esac
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi ;; #(
+ *) :
+ ;;
+esac
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if C externals constructed with cfortran.h work" >&5
+$as_echo_n "checking if C externals constructed with cfortran.h work... " >&6; }
+if ${acx_cv_cfortran_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_cfortran_works=no
+ save_CPPFLAGS=$CPPFLAGS
+ CPPFLAGS="-I$srcdir/src $CPPFLAGS"
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include "cfortran.h"
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+PROTOCCALLSFFUN1(FLOAT,CFTSTF,cftstf,FLOAT)
+#define conftest_F(v) \
+ CCALLSFFUN1(CFTSTF,cftstf,FLOAT,(v));
+
+static float
+cftstC(int i, float v, int *p, float *q)
+{
+ float f;
+ *p = (int)roundf(v * i);
+ *q = f = conftest_F(v * i);
+ return f;
+}
+
+FCALLSCFUN4(FLOAT,cftstC,CFTSTC,cftstc,INT,FLOAT,PINT,PFLOAT)
+
+/* test string returns */
+static const char *
+conftest_str_C(void)
+{
+ static const char msg[100] = "AAAAAAAAAAAAAAAAAAAA"
+ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
+ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA";
+ return msg;
+}
+
+FCALLSCFUN0(STRING,conftest_str_C,CHTST,chtst)
+
+/* This function is required simply because some Fortran compilers
+ * won't stop with exit code n when encountering STOP n */
+static void
+errExit(void)
+{
+ exit(1);
+}
+
+FCALLSCSUB0(errExit,ERR_EXIT,err_exit)
+
+
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ acx_fn_mv_obj "$LINENO" conftest conftest_c
+ if test -n "$FC" -a X"$FC" != Xno; then :
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+ cat > conftest.$ac_ext <<_ACEOF
+ MODULE conftest_data
+ IMPLICIT NONE
+ PRIVATE
+ REAL :: ri
+ PUBLIC :: ri
+ END MODULE conftest_data
+
+ FUNCTION cftstf(v) RESULT(r)
+ USE conftest_data, ONLY: ri
+ REAL, INTENT(in) :: v
+ REAL :: r
+ r = v * 100.0
+ ri = 1.0 / v
+ END FUNCTION cftstf
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+ acx_fn_mv_obj "$LINENO" conftest conftest_f
+ save_LIBS=$LIBS
+ LIBS="conftest_c.$ac_objext conftest_f.$ac_objext $LIBS"
+ case $FC_FPP_FLAG in #(
+ -x\ f??-cpp-input) :
+ LIBS="-x none $LIBS" ;; #(
+ *) :
+ ;;
+esac
+ if test "$cross_compiling" = yes; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: Skipping run test for cfortran.h in cross-compilation mode," >&5
+$as_echo "$as_me: Skipping run test for cfortran.h in cross-compilation mode," >&6;}
+ { $as_echo "$as_me:${as_lineno-$LINENO}: cfortran.h link test succeeded for $FC." >&5
+$as_echo "$as_me: cfortran.h link test succeeded for $FC." >&6;}
+ acx_cv_cfortran_works=yes
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+ USE conftest_data, ONLY: ri
+ IMPLICIT NONE
+ INTERFACE
+ FUNCTION cftstc(i, v, p, q) RESULT(f)
+ INTEGER, INTENT(in) :: i
+ REAL, INTENT(in) :: v
+ INTEGER, INTENT(out) :: p
+ REAL, INTENT(out) :: q
+ REAL :: f
+ END FUNCTION cftstc
+ FUNCTION chtst() result(s)
+ CHARACTER(99) :: s
+ END FUNCTION chtst
+ END INTERFACE
+ REAL, PARAMETER :: eps = 10e-6
+ REAL :: foo, boo, too
+ INTEGER :: bar, baz, i
+ CHARACTER(99) :: aaaaaa
+ bar = 5
+ foo = 0.3
+ too = cftstc(bar, foo, baz, boo)
+ IF (ABS(baz - NINT(bar * foo)) /= 0) THEN
+ WRITE (0, '(2(a,i0))') "error checking, when baz, baz=", baz, &
+ ", NINT(bar * foo) =", NINT(bar * foo)
+ FLUSH(0)
+ CALL err_exit
+ END IF
+ IF (ABS((ri - 1.0 / (bar * foo)) / ABS(ri)) > eps) THEN
+ WRITE (0, '(2(a,g24.15))') "error checking ri, ri=", ri, ", 1.0 / &
+ &(bar * foo) = ", 1.0 / (bar * foo)
+ FLUSH(0)
+ CALL err_exit
+ END IF
+ IF (ABS((boo - (bar * foo * 100.0))/ABS(boo)) > eps) THEN
+ WRITE (0, '(2(a,g24.15))') "error checking boo, boo=", boo, &
+ ", bar * foo * 100.0 = ", bar * foo * 100.0
+ FLUSH(0)
+ CALL err_exit
+ END IF
+ IF (too /= boo) THEN
+ WRITE (0, '(2(a,g24.15))') "error checking too vs. boo, too=", too, &
+ ", boo = ", boo
+ FLUSH(0)
+ CALL err_exit
+ END IF
+ aaaaaa = chtst()
+ DO i = 1, 99
+ IF (aaaaaa(i:i) /= 'A') THEN
+ WRITE (0, '(a,i0,a)') "error checking aaaaaa(", i, ")=", &
+ aaaaaa(i:i)
+ FLUSH(0)
+ CALL err_exit
+ END IF
+ END DO
+ end
+_ACEOF
+if ac_fn_fc_try_run "$LINENO"; then :
+ acx_cv_cfortran_works=yes
+else
+ acx_cv_cfortran_works="error"
+fi
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
+ conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+
+ rm -f "conftest_f.$ac_objext" "conftest_f.$OBJEXT"
+ rm -f conftest_data* CONFTEST_DATA* 2>/dev/null
+ LIBS=$save_LIBS
+else
+ acx_cv_cfortran_works="error compiling Fortran subroutine"
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+else
+ acx_cv_cfortran_works=${acx_cv_cfortran_works-yes}
+fi
+ if test -n "$F77" -a X"$F77" != Xno -a \( x"$acx_cv_cfortran_works" = xyes -o -z "$FC" -o X"$FC" = Xno \); then :
+ ac_ext=f
+ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
+ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_f77_compiler_gnu
+
+ cat > conftest.$ac_ext <<_ACEOF
+ REAL FUNCTION CFTSTF(v)
+ REAL RI
+ COMMON /CFTSTD/ RI
+ REAL V
+ REAL R
+ CFTSTF = V * 100.0
+ RI = 1.0 / V
+ END FUNCTION CFTSTF
+_ACEOF
+if ac_fn_f77_try_compile "$LINENO"; then :
+ acx_fn_mv_obj "$LINENO" conftest conftest_f
+ save_LIBS=$LIBS
+ LIBS="conftest_c.$ac_objext conftest_f.$ac_objext $LIBS"
+ case $FC_FPP_FLAG in #(
+ -x\ f??-cpp-input) :
+ LIBS="-x none $LIBS" ;; #(
+ *) :
+ ;;
+esac
+ if test "$cross_compiling" = yes; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: Skipping run test for cfortran.h in cross-compilation mode," >&5
+$as_echo "$as_me: Skipping run test for cfortran.h in cross-compilation mode," >&6;}
+ { $as_echo "$as_me:${as_lineno-$LINENO}: cfortran.h link test succeeded for $F77." >&5
+$as_echo "$as_me: cfortran.h link test succeeded for $F77." >&6;}
+ acx_cv_cfortran_works=yes
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program main
+ REAL RI
+ COMMON /CFTSTD/ RI
+ REAL EPS
+ PARAMETER(EPS=10E-6)
+ REAL FOO, BOO, TOO
+ INTEGER BAR, BAZ, I
+ CHARACTER(99) AAAAAA
+ EXTERNAL CFTSTC, CFTSTF, CHTST, ERR_EXIT
+ REAL CFTSTC, CFTSTF
+ CHARACTER(99) CHTST
+ BAR = 5
+ FOO = 0.3
+ TOO = CFTSTC(BAR, FOO, BAZ, BOO)
+ IF (ABS(BAZ - NINT(BAR * FOO)) /= 0) THEN
+ WRITE (0, '(2(A,I0))') "ERROR CHECKING, WHEN BAZ, BAZ=", BAZ,
+ & ", NINT(BAR * FOO) =", NINT(BAR * FOO)
+ CALL ERR_EXIT
+ END IF
+ IF (ABS((RI - 1.0 / (BAR * FOO)) / ABS(RI)) > EPS) THEN
+ WRITE (0, '(2(A,F24.15))') "ERROR CHECKING RI, RI=", RI, ",
+ & 1.0 / (BAR * FOO) = ", 1.0 / (BAR * FOO)
+ CALL err_exit
+ END IF
+ IF (ABS((BOO - (BAR * FOO * 100.0))/ABS(BOO)) > EPS) THEN
+ WRITE (0, '(2(A,F24.15))') "ERROR CHECKING BOO, BOO=", BOO,
+ & ", BAR * FOO * 100.0 = ", BAR * FOO * 100.0
+ CALL ERR_EXIT
+ END IF
+ IF (TOO /= BOO) THEN
+ WRITE (0, '(2(A,F24.15))') "ERROR CHECKING TOO VS. BOO, TOO=",
+ & TOO, ", BOO = ", BOO
+ CALL ERR_EXIT
+ END IF
+ AAAAAA = CHTST()
+ DO i = 1, 99
+ IF (AAAAAA(I:I) /= 'A') THEN
+ WRITE (0, '(A,I0,2A)') "ERROR CHECKING AAAAAA(", I, ")=",
+ & AAAAAA(I:I)
+ CALL ERR_EXIT
+ END IF
+ END DO
+ end
+_ACEOF
+if ac_fn_f77_try_run "$LINENO"; then :
+ acx_cv_cfortran_works=yes
+else
+ acx_cv_cfortran_works="error"
+fi
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
+ conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+
+ rm -f "conftest_f.$ac_objext" "conftest_f.$OBJEXT"
+ LIBS=$save_LIBS
+else
+ acx_cv_cfortran_works="error compiling Fortran subroutine"
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+ rm -f "conftest_c.$ac_objext" "conftest_c.$OBJEXT"
+
+else
+ acx_cv_cfortran_works="compiling with cfortran.h failed"
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ CPPFLAGS=$save_CPPFLAGS
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_cfortran_works" >&5
+$as_echo "$acx_cv_cfortran_works" >&6; }
+ case x"$acx_cv_cfortran_works" in #(
+ x"error") :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "Linking/Running with C EXTERNAL built with cfortran.h does not work!
+See \`config.log' for more details" "$LINENO" 5; } ;; #(
+ x"compiling with cfortran.h failed") :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "Compilation with cfortran.h is not working!
+See \`config.log' for more details" "$LINENO" 5; } ;; #(
+ x"error compiling Fortran subroutine") :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "compilation of simple Fortran source failed!
+See \`config.log' for more details" "$LINENO" 5; } ;; #(
+ xyes) :
+
+$as_echo "#define HAVE_CF_INTERFACE 1" >>confdefs.h
+ ;; #(
+ *) :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "Unexpected error when linking C and Fortran via cfortran.h!
+See \`config.log' for more details" "$LINENO" 5; } ;;
+esac
+
+ if test "x$F77" != xno; then :
+ ac_ext=f
+ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
+ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_f77_compiler_gnu
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran 77 compiler flag needed to specify search paths for the \"INCLUDE\" statement" >&5
+$as_echo_n "checking for Fortran 77 compiler flag needed to specify search paths for the \"INCLUDE\" statement... " >&6; }
+if ${acx_cv_f77_ftn_include_flag+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_f77_ftn_include_flag=unknown
+ as_dir=conftest.dir; as_fn_mkdir_p
+ cat > conftest.$ac_ext <<_ACEOF
+ program main
+
+ end
+_ACEOF
+ mv conftest.$ac_ext conftest.dir/conftest.inc
+ cat > conftest.$ac_ext <<_ACEOF
+ include "conftest.inc"
+_ACEOF
+ acx_save_FFLAGS=$FFLAGS
+ for acx_flag in -I '-I '; do
+ FFLAGS="$acx_save_FFLAGS ${acx_flag}conftest.dir"
+ if ac_fn_f77_try_link "$LINENO"; then :
+ acx_cv_f77_ftn_include_flag=$acx_flag
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ test "x$acx_cv_f77_ftn_include_flag" != xunknown && break
+ done
+ FFLAGS=$acx_save_FFLAGS
+ rm -rf conftest.$ac_ext conftest.dir
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_f77_ftn_include_flag" >&5
+$as_echo "$acx_cv_f77_ftn_include_flag" >&6; }
+ if test "x$acx_cv_f77_ftn_include_flag" = xunknown; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "unable to detect Fortran 77 compiler flag needed to specify search paths for the \"INCLUDE\" statement
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ if test "x$FC" != xno && test "x$acx_cv_f77_ftn_include_flag" != "x$FC_OPTINC"; then :
+ as_fn_error $? "Fortran and Fortran 77 compilers require different flags needed to specify search paths for the \"INCLUDE\" statements" "$LINENO" 5
+fi
+fi
+ if test "x$FC" = xno && test "x$F77" = xno; then :
+ if test "x$enable_cf_interface" = xauto; then :
+ enable_cf_interface=no
+else
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "the Fortran 77 interface is requested but both Fortran and Fortran 77 compilers are disabled, missing or lack the required features
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+fi
+fi
+if test "x$enable_cf_interface" = xauto; then :
+ enable_cf_interface=yes
+fi
+ if test "x$enable_cf_interface" = xyes; then
+ ENABLE_CF_INTERFACE_TRUE=
+ ENABLE_CF_INTERFACE_FALSE='#'
+else
+ ENABLE_CF_INTERFACE_TRUE='#'
+ ENABLE_CF_INTERFACE_FALSE=
+fi
+
+
+# Check whether --enable-ruby-interface was given.
+if test "${enable_ruby_interface+set}" = set; then :
+ enableval=$enable_ruby_interface; test "x$enableval" != xno && enable_ruby_interface=yes
+else
+ enable_ruby_interface=no
+fi
+
+
+# Check whether --enable-python-interface was given.
+if test "${enable_python_interface+set}" = set; then :
+ enableval=$enable_python_interface; test "x$enableval" != xno && enable_python_interface=yes
+else
+ enable_python_interface=no
+fi
+
+
+if test "x$enable_ruby_interface" = xyes || \
+ test "x$enable_python_interface" = xyes; then
+ if test "x$CXX" != xno; then
+ ac_ext=cpp
+ac_cpp='$CXXCPP $CPPFLAGS'
+ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
+if test -z "$CXX"; then
+ if test -n "$CCC"; then
+ CXX=$CCC
+ else
+ if test -n "$ac_tool_prefix"; then
+ for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC
+ do
+ # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
+set dummy $ac_tool_prefix$ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$CXX"; then
+ ac_cv_prog_CXX="$CXX" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_CXX="$ac_tool_prefix$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+CXX=$ac_cv_prog_CXX
+if test -n "$CXX"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5
+$as_echo "$CXX" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$CXX" && break
+ done
+fi
+if test -z "$CXX"; then
+ ac_ct_CXX=$CXX
+ for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_CXX"; then
+ ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_CXX="$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_CXX=$ac_cv_prog_ac_ct_CXX
+if test -n "$ac_ct_CXX"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5
+$as_echo "$ac_ct_CXX" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$ac_ct_CXX" && break
+done
+
+ if test "x$ac_ct_CXX" = x; then
+ CXX="g++"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ CXX=$ac_ct_CXX
+ fi
+fi
+
+ fi
+fi
+# Provide some information about the compiler.
+$as_echo "$as_me:${as_lineno-$LINENO}: checking for C++ compiler version" >&5
+set X $ac_compile
+ac_compiler=$2
+for ac_option in --version -v -V -qversion; do
+ { { ac_try="$ac_compiler $ac_option >&5"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+ (eval "$ac_compiler $ac_option >&5") 2>conftest.err
+ ac_status=$?
+ if test -s conftest.err; then
+ sed '10a\
+... rest of stderr output deleted ...
+ 10q' conftest.err >conftest.er1
+ cat conftest.er1 >&5
+ fi
+ rm -f conftest.er1 conftest.err
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+done
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C++ compiler" >&5
+$as_echo_n "checking whether we are using the GNU C++ compiler... " >&6; }
+if ${ac_cv_cxx_compiler_gnu+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+#ifndef __GNUC__
+ choke me
+#endif
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_cxx_try_compile "$LINENO"; then :
+ ac_compiler_gnu=yes
+else
+ ac_compiler_gnu=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ac_cv_cxx_compiler_gnu=$ac_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5
+$as_echo "$ac_cv_cxx_compiler_gnu" >&6; }
+if test $ac_compiler_gnu = yes; then
+ GXX=yes
+else
+ GXX=
+fi
+ac_test_CXXFLAGS=${CXXFLAGS+set}
+ac_save_CXXFLAGS=$CXXFLAGS
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5
+$as_echo_n "checking whether $CXX accepts -g... " >&6; }
+if ${ac_cv_prog_cxx_g+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_save_cxx_werror_flag=$ac_cxx_werror_flag
+ ac_cxx_werror_flag=yes
+ ac_cv_prog_cxx_g=no
+ CXXFLAGS="-g"
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_cxx_try_compile "$LINENO"; then :
+ ac_cv_prog_cxx_g=yes
+else
+ CXXFLAGS=""
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_cxx_try_compile "$LINENO"; then :
+
+else
+ ac_cxx_werror_flag=$ac_save_cxx_werror_flag
+ CXXFLAGS="-g"
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_cxx_try_compile "$LINENO"; then :
+ ac_cv_prog_cxx_g=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ac_cxx_werror_flag=$ac_save_cxx_werror_flag
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5
+$as_echo "$ac_cv_prog_cxx_g" >&6; }
+if test "$ac_test_CXXFLAGS" = set; then
+ CXXFLAGS=$ac_save_CXXFLAGS
+elif test $ac_cv_prog_cxx_g = yes; then
+ if test "$GXX" = yes; then
+ CXXFLAGS="-g -O2"
+ else
+ CXXFLAGS="-g"
+ fi
+else
+ if test "$GXX" = yes; then
+ CXXFLAGS="-O2"
+ else
+ CXXFLAGS=
+ fi
+fi
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+depcc="$CXX" am_compiler_list=
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5
+$as_echo_n "checking dependency style of $depcc... " >&6; }
+if ${am_cv_CXX_dependencies_compiler_type+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
+ # We make a subdir and do the tests there. Otherwise we can end up
+ # making bogus files that we don't know about and never remove. For
+ # instance it was reported that on HP-UX the gcc test will end up
+ # making a dummy file named 'D' -- because '-MD' means "put the output
+ # in D".
+ rm -rf conftest.dir
+ mkdir conftest.dir
+ # Copy depcomp to subdir because otherwise we won't find it if we're
+ # using a relative directory.
+ cp "$am_depcomp" conftest.dir
+ cd conftest.dir
+ # We will build objects and dependencies in a subdirectory because
+ # it helps to detect inapplicable dependency modes. For instance
+ # both Tru64's cc and ICC support -MD to output dependencies as a
+ # side effect of compilation, but ICC will put the dependencies in
+ # the current directory while Tru64 will put them in the object
+ # directory.
+ mkdir sub
+
+ am_cv_CXX_dependencies_compiler_type=none
+ if test "$am_compiler_list" = ""; then
+ am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp`
+ fi
+ am__universal=false
+ case " $depcc " in #(
+ *\ -arch\ *\ -arch\ *) am__universal=true ;;
+ esac
+
+ for depmode in $am_compiler_list; do
+ # Setup a source with many dependencies, because some compilers
+ # like to wrap large dependency lists on column 80 (with \), and
+ # we should not choose a depcomp mode which is confused by this.
+ #
+ # We need to recreate these files for each test, as the compiler may
+ # overwrite some of them when testing with obscure command lines.
+ # This happens at least with the AIX C compiler.
+ : > sub/conftest.c
+ for i in 1 2 3 4 5 6; do
+ echo '#include "conftst'$i'.h"' >> sub/conftest.c
+ # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with
+ # Solaris 10 /bin/sh.
+ echo '/* dummy */' > sub/conftst$i.h
+ done
+ echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
+
+ # We check with '-c' and '-o' for the sake of the "dashmstdout"
+ # mode. It turns out that the SunPro C++ compiler does not properly
+ # handle '-M -o', and we need to detect this. Also, some Intel
+ # versions had trouble with output in subdirs.
+ am__obj=sub/conftest.${OBJEXT-o}
+ am__minus_obj="-o $am__obj"
+ case $depmode in
+ gcc)
+ # This depmode causes a compiler race in universal mode.
+ test "$am__universal" = false || continue
+ ;;
+ nosideeffect)
+ # After this tag, mechanisms are not by side-effect, so they'll
+ # only be used when explicitly requested.
+ if test "x$enable_dependency_tracking" = xyes; then
+ continue
+ else
+ break
+ fi
+ ;;
+ msvc7 | msvc7msys | msvisualcpp | msvcmsys)
+ # This compiler won't grok '-c -o', but also, the minuso test has
+ # not run yet. These depmodes are late enough in the game, and
+ # so weak that their functioning should not be impacted.
+ am__obj=conftest.${OBJEXT-o}
+ am__minus_obj=
+ ;;
+ none) break ;;
+ esac
+ if depmode=$depmode \
+ source=sub/conftest.c object=$am__obj \
+ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
+ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
+ >/dev/null 2>conftest.err &&
+ grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
+ grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
+ grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
+ ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
+ # icc doesn't choke on unknown options, it will just issue warnings
+ # or remarks (even with -Werror). So we grep stderr for any message
+ # that says an option was ignored or not supported.
+ # When given -MP, icc 7.0 and 7.1 complain thusly:
+ # icc: Command line warning: ignoring option '-M'; no argument required
+ # The diagnosis changed in icc 8.0:
+ # icc: Command line remark: option '-MP' not supported
+ if (grep 'ignoring option' conftest.err ||
+ grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
+ am_cv_CXX_dependencies_compiler_type=$depmode
+ break
+ fi
+ fi
+ done
+
+ cd ..
+ rm -rf conftest.dir
+else
+ am_cv_CXX_dependencies_compiler_type=none
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5
+$as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; }
+CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type
+
+ if
+ test "x$enable_dependency_tracking" != xno \
+ && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then
+ am__fastdepCXX_TRUE=
+ am__fastdepCXX_FALSE='#'
+else
+ am__fastdepCXX_TRUE='#'
+ am__fastdepCXX_FALSE=
+fi
+
+
+ test -z $CXX 2>/dev/null && CXX=no
+
+if test "x$CXX" != xno; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler works" >&5
+$as_echo_n "checking whether the C++ compiler works... " >&6; }
+if ${acx_cv_cxx_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_cxx_works=no
+ ac_ext=cpp
+ac_cpp='$CXXCPP $CPPFLAGS'
+ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
+
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_cxx_try_link "$LINENO"; then :
+ acx_cv_cxx_works=yes
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_cxx_works" >&5
+$as_echo "$acx_cv_cxx_works" >&6; }
+ if test "x$acx_cv_cxx_works" = xno; then :
+ CXX=no
+fi
+fi
+ fi
+ if test "x$CXX" = xno; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "either the Ruby or the Python interface is requested but the C++ compiler is disabled, missing or lacks the required features
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+else
+ CXX=no
+ if false; then
+ am__fastdepCXX_TRUE=
+ am__fastdepCXX_FALSE='#'
+else
+ am__fastdepCXX_TRUE='#'
+ am__fastdepCXX_FALSE=
+fi
+
+fi
+
+
+
+# Check whether --enable-openmp was given.
+if test "${enable_openmp+set}" = set; then :
+ enableval=$enable_openmp; test "x$enableval" != xno && enable_openmp=yes
+else
+ enable_openmp=no
+fi
+
+
+ OPENMP_CFLAGS=
+
+ if test "$enable_openmp" != no; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to support OpenMP" >&5
+$as_echo_n "checking for $CC option to support OpenMP... " >&6; }
+if ${ac_cv_prog_c_openmp+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+#ifndef _OPENMP
+ choke me
+#endif
+#include <omp.h>
+int main () { return omp_get_num_threads (); }
+
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_prog_c_openmp='none needed'
+else
+ ac_cv_prog_c_openmp='unsupported'
+ for ac_option in -fopenmp -xopenmp -openmp -mp -omp -qsmp=omp -homp \
+ -Popenmp --openmp; do
+ ac_save_CFLAGS=$CFLAGS
+ CFLAGS="$CFLAGS $ac_option"
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+#ifndef _OPENMP
+ choke me
+#endif
+#include <omp.h>
+int main () { return omp_get_num_threads (); }
+
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_prog_c_openmp=$ac_option
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ CFLAGS=$ac_save_CFLAGS
+ if test "$ac_cv_prog_c_openmp" != unsupported; then
+ break
+ fi
+ done
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_c_openmp" >&5
+$as_echo "$ac_cv_prog_c_openmp" >&6; }
+ case $ac_cv_prog_c_openmp in #(
+ "none needed" | unsupported)
+ ;; #(
+ *)
+ OPENMP_CFLAGS=$ac_cv_prog_c_openmp ;;
+ esac
+ fi
+
+
+if test "x$enable_openmp" = xno; then :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+#ifndef _OPENMP
+ choke me
+#endif
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ as_fn_error $? "OpenMP support is disabled but the compiler enables it by default: change CFLAGS to disable it" "$LINENO" 5
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+elif test "x$ac_cv_prog_c_openmp" = xunsupported; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "cannot link C OpenMP programs
+See \`config.log' for more details" "$LINENO" 5; }
+elif test -n "$OPENMP_CFLAGS"; then :
+ as_fn_append CFLAGS " $OPENMP_CFLAGS"
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: setting up libtool" >&5
+$as_echo "$as_me: setting up libtool" >&6;}
+case `pwd` in
+ *\ * | *\ *)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5
+$as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;;
+esac
+
+
+
+macro_version='2.4.6'
+macro_revision='2.4.6'
+
+
+
+
+
+
+
+
+
+
+
+
+
+ltmain=$ac_aux_dir/ltmain.sh
+
+# Backslashify metacharacters that are still active within
+# double-quoted strings.
+sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
+
+# Same as above, but do not quote variable references.
+double_quote_subst='s/\(["`\\]\)/\\\1/g'
+
+# Sed substitution to delay expansion of an escaped shell variable in a
+# double_quote_subst'ed string.
+delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g'
+
+# Sed substitution to delay expansion of an escaped single quote.
+delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g'
+
+# Sed substitution to avoid accidental globbing in evaled expressions
+no_glob_subst='s/\*/\\\*/g'
+
+ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO
+ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5
+$as_echo_n "checking how to print strings... " >&6; }
+# Test print first, because it will be a builtin if present.
+if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \
+ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then
+ ECHO='print -r --'
+elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then
+ ECHO='printf %s\n'
+else
+ # Use this function as a fallback that always works.
+ func_fallback_echo ()
+ {
+ eval 'cat <<_LTECHO_EOF
+$1
+_LTECHO_EOF'
+ }
+ ECHO='func_fallback_echo'
+fi
+
+# func_echo_all arg...
+# Invoke $ECHO with all args, space-separated.
+func_echo_all ()
+{
+ $ECHO ""
+}
+
+case $ECHO in
+ printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5
+$as_echo "printf" >&6; } ;;
+ print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5
+$as_echo "print -r" >&6; } ;;
+ *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5
+$as_echo "cat" >&6; } ;;
+esac
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5
+$as_echo_n "checking for a sed that does not truncate output... " >&6; }
+if ${ac_cv_path_SED+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/
+ for ac_i in 1 2 3 4 5 6 7; do
+ ac_script="$ac_script$as_nl$ac_script"
+ done
+ echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed
+ { ac_script=; unset ac_script;}
+ if test -z "$SED"; then
+ ac_path_SED_found=false
+ # Loop through the user's path and test for each of PROGNAME-LIST
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_prog in sed gsed; do
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ ac_path_SED="$as_dir/$ac_prog$ac_exec_ext"
+ as_fn_executable_p "$ac_path_SED" || continue
+# Check for GNU ac_path_SED and select it if it is found.
+ # Check for GNU $ac_path_SED
+case `"$ac_path_SED" --version 2>&1` in
+*GNU*)
+ ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;;
+*)
+ ac_count=0
+ $as_echo_n 0123456789 >"conftest.in"
+ while :
+ do
+ cat "conftest.in" "conftest.in" >"conftest.tmp"
+ mv "conftest.tmp" "conftest.in"
+ cp "conftest.in" "conftest.nl"
+ $as_echo '' >> "conftest.nl"
+ "$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break
+ diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
+ as_fn_arith $ac_count + 1 && ac_count=$as_val
+ if test $ac_count -gt ${ac_path_SED_max-0}; then
+ # Best one so far, save it but keep looking for a better one
+ ac_cv_path_SED="$ac_path_SED"
+ ac_path_SED_max=$ac_count
+ fi
+ # 10*(2^10) chars as input seems more than enough
+ test $ac_count -gt 10 && break
+ done
+ rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
+esac
+
+ $ac_path_SED_found && break 3
+ done
+ done
+ done
+IFS=$as_save_IFS
+ if test -z "$ac_cv_path_SED"; then
+ as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5
+ fi
+else
+ ac_cv_path_SED=$SED
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5
+$as_echo "$ac_cv_path_SED" >&6; }
+ SED="$ac_cv_path_SED"
+ rm -f conftest.sed
+
+test -z "$SED" && SED=sed
+Xsed="$SED -e 1s/^X//"
+
+
+
+
+
+
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5
+$as_echo_n "checking for grep that handles long lines and -e... " >&6; }
+if ${ac_cv_path_GREP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -z "$GREP"; then
+ ac_path_GREP_found=false
+ # Loop through the user's path and test for each of PROGNAME-LIST
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_prog in grep ggrep; do
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext"
+ as_fn_executable_p "$ac_path_GREP" || continue
+# Check for GNU ac_path_GREP and select it if it is found.
+ # Check for GNU $ac_path_GREP
+case `"$ac_path_GREP" --version 2>&1` in
+*GNU*)
+ ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;;
+*)
+ ac_count=0
+ $as_echo_n 0123456789 >"conftest.in"
+ while :
+ do
+ cat "conftest.in" "conftest.in" >"conftest.tmp"
+ mv "conftest.tmp" "conftest.in"
+ cp "conftest.in" "conftest.nl"
+ $as_echo 'GREP' >> "conftest.nl"
+ "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break
+ diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
+ as_fn_arith $ac_count + 1 && ac_count=$as_val
+ if test $ac_count -gt ${ac_path_GREP_max-0}; then
+ # Best one so far, save it but keep looking for a better one
+ ac_cv_path_GREP="$ac_path_GREP"
+ ac_path_GREP_max=$ac_count
+ fi
+ # 10*(2^10) chars as input seems more than enough
+ test $ac_count -gt 10 && break
+ done
+ rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
+esac
+
+ $ac_path_GREP_found && break 3
+ done
+ done
+ done
+IFS=$as_save_IFS
+ if test -z "$ac_cv_path_GREP"; then
+ as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
+ fi
+else
+ ac_cv_path_GREP=$GREP
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5
+$as_echo "$ac_cv_path_GREP" >&6; }
+ GREP="$ac_cv_path_GREP"
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5
+$as_echo_n "checking for egrep... " >&6; }
+if ${ac_cv_path_EGREP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if echo a | $GREP -E '(a|b)' >/dev/null 2>&1
+ then ac_cv_path_EGREP="$GREP -E"
+ else
+ if test -z "$EGREP"; then
+ ac_path_EGREP_found=false
+ # Loop through the user's path and test for each of PROGNAME-LIST
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_prog in egrep; do
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext"
+ as_fn_executable_p "$ac_path_EGREP" || continue
+# Check for GNU ac_path_EGREP and select it if it is found.
+ # Check for GNU $ac_path_EGREP
+case `"$ac_path_EGREP" --version 2>&1` in
+*GNU*)
+ ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;;
+*)
+ ac_count=0
+ $as_echo_n 0123456789 >"conftest.in"
+ while :
+ do
+ cat "conftest.in" "conftest.in" >"conftest.tmp"
+ mv "conftest.tmp" "conftest.in"
+ cp "conftest.in" "conftest.nl"
+ $as_echo 'EGREP' >> "conftest.nl"
+ "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break
+ diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
+ as_fn_arith $ac_count + 1 && ac_count=$as_val
+ if test $ac_count -gt ${ac_path_EGREP_max-0}; then
+ # Best one so far, save it but keep looking for a better one
+ ac_cv_path_EGREP="$ac_path_EGREP"
+ ac_path_EGREP_max=$ac_count
+ fi
+ # 10*(2^10) chars as input seems more than enough
+ test $ac_count -gt 10 && break
+ done
+ rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
+esac
+
+ $ac_path_EGREP_found && break 3
+ done
+ done
+ done
+IFS=$as_save_IFS
+ if test -z "$ac_cv_path_EGREP"; then
+ as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
+ fi
+else
+ ac_cv_path_EGREP=$EGREP
+fi
+
+ fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5
+$as_echo "$ac_cv_path_EGREP" >&6; }
+ EGREP="$ac_cv_path_EGREP"
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5
+$as_echo_n "checking for fgrep... " >&6; }
+if ${ac_cv_path_FGREP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1
+ then ac_cv_path_FGREP="$GREP -F"
+ else
+ if test -z "$FGREP"; then
+ ac_path_FGREP_found=false
+ # Loop through the user's path and test for each of PROGNAME-LIST
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_prog in fgrep; do
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext"
+ as_fn_executable_p "$ac_path_FGREP" || continue
+# Check for GNU ac_path_FGREP and select it if it is found.
+ # Check for GNU $ac_path_FGREP
+case `"$ac_path_FGREP" --version 2>&1` in
+*GNU*)
+ ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;;
+*)
+ ac_count=0
+ $as_echo_n 0123456789 >"conftest.in"
+ while :
+ do
+ cat "conftest.in" "conftest.in" >"conftest.tmp"
+ mv "conftest.tmp" "conftest.in"
+ cp "conftest.in" "conftest.nl"
+ $as_echo 'FGREP' >> "conftest.nl"
+ "$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break
+ diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
+ as_fn_arith $ac_count + 1 && ac_count=$as_val
+ if test $ac_count -gt ${ac_path_FGREP_max-0}; then
+ # Best one so far, save it but keep looking for a better one
+ ac_cv_path_FGREP="$ac_path_FGREP"
+ ac_path_FGREP_max=$ac_count
+ fi
+ # 10*(2^10) chars as input seems more than enough
+ test $ac_count -gt 10 && break
+ done
+ rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
+esac
+
+ $ac_path_FGREP_found && break 3
+ done
+ done
+ done
+IFS=$as_save_IFS
+ if test -z "$ac_cv_path_FGREP"; then
+ as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
+ fi
+else
+ ac_cv_path_FGREP=$FGREP
+fi
+
+ fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5
+$as_echo "$ac_cv_path_FGREP" >&6; }
+ FGREP="$ac_cv_path_FGREP"
+
+
+test -z "$GREP" && GREP=grep
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# Check whether --with-gnu-ld was given.
+if test "${with_gnu_ld+set}" = set; then :
+ withval=$with_gnu_ld; test no = "$withval" || with_gnu_ld=yes
+else
+ with_gnu_ld=no
+fi
+
+ac_prog=ld
+if test yes = "$GCC"; then
+ # Check if gcc -print-prog-name=ld gives a path.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5
+$as_echo_n "checking for ld used by $CC... " >&6; }
+ case $host in
+ *-*-mingw*)
+ # gcc leaves a trailing carriage return, which upsets mingw
+ ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
+ *)
+ ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
+ esac
+ case $ac_prog in
+ # Accept absolute paths.
+ [\\/]* | ?:[\\/]*)
+ re_direlt='/[^/][^/]*/\.\./'
+ # Canonicalize the pathname of ld
+ ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'`
+ while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do
+ ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"`
+ done
+ test -z "$LD" && LD=$ac_prog
+ ;;
+ "")
+ # If it fails, then pretend we aren't using GCC.
+ ac_prog=ld
+ ;;
+ *)
+ # If it is relative, then search for the first ld in PATH.
+ with_gnu_ld=unknown
+ ;;
+ esac
+elif test yes = "$with_gnu_ld"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5
+$as_echo_n "checking for GNU ld... " >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5
+$as_echo_n "checking for non-GNU ld... " >&6; }
+fi
+if ${lt_cv_path_LD+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -z "$LD"; then
+ lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
+ for ac_dir in $PATH; do
+ IFS=$lt_save_ifs
+ test -z "$ac_dir" && ac_dir=.
+ if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
+ lt_cv_path_LD=$ac_dir/$ac_prog
+ # Check to see if the program is GNU ld. I'd rather use --version,
+ # but apparently some variants of GNU ld only accept -v.
+ # Break only if it was the GNU/non-GNU ld that we prefer.
+ case `"$lt_cv_path_LD" -v 2>&1 </dev/null` in
+ *GNU* | *'with BFD'*)
+ test no != "$with_gnu_ld" && break
+ ;;
+ *)
+ test yes != "$with_gnu_ld" && break
+ ;;
+ esac
+ fi
+ done
+ IFS=$lt_save_ifs
+else
+ lt_cv_path_LD=$LD # Let the user override the test with a path.
+fi
+fi
+
+LD=$lt_cv_path_LD
+if test -n "$LD"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LD" >&5
+$as_echo "$LD" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5
+$as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; }
+if ${lt_cv_prog_gnu_ld+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ # I'd rather use --version here, but apparently some GNU lds only accept -v.
+case `$LD -v 2>&1 </dev/null` in
+*GNU* | *'with BFD'*)
+ lt_cv_prog_gnu_ld=yes
+ ;;
+*)
+ lt_cv_prog_gnu_ld=no
+ ;;
+esac
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_gnu_ld" >&5
+$as_echo "$lt_cv_prog_gnu_ld" >&6; }
+with_gnu_ld=$lt_cv_prog_gnu_ld
+
+
+
+
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5
+$as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; }
+if ${lt_cv_path_NM+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$NM"; then
+ # Let the user override the test.
+ lt_cv_path_NM=$NM
+else
+ lt_nm_to_check=${ac_tool_prefix}nm
+ if test -n "$ac_tool_prefix" && test "$build" = "$host"; then
+ lt_nm_to_check="$lt_nm_to_check nm"
+ fi
+ for lt_tmp_nm in $lt_nm_to_check; do
+ lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
+ for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do
+ IFS=$lt_save_ifs
+ test -z "$ac_dir" && ac_dir=.
+ tmp_nm=$ac_dir/$lt_tmp_nm
+ if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext"; then
+ # Check to see if the nm accepts a BSD-compat flag.
+ # Adding the 'sed 1q' prevents false positives on HP-UX, which says:
+ # nm: unknown option "B" ignored
+ # Tru64's nm complains that /dev/null is an invalid object file
+ # MSYS converts /dev/null to NUL, MinGW nm treats NUL as empty
+ case $build_os in
+ mingw*) lt_bad_file=conftest.nm/nofile ;;
+ *) lt_bad_file=/dev/null ;;
+ esac
+ case `"$tmp_nm" -B $lt_bad_file 2>&1 | sed '1q'` in
+ *$lt_bad_file* | *'Invalid file or object type'*)
+ lt_cv_path_NM="$tmp_nm -B"
+ break 2
+ ;;
+ *)
+ case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in
+ */dev/null*)
+ lt_cv_path_NM="$tmp_nm -p"
+ break 2
+ ;;
+ *)
+ lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but
+ continue # so that we can try to find one that supports BSD flags
+ ;;
+ esac
+ ;;
+ esac
+ fi
+ done
+ IFS=$lt_save_ifs
+ done
+ : ${lt_cv_path_NM=no}
+fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5
+$as_echo "$lt_cv_path_NM" >&6; }
+if test no != "$lt_cv_path_NM"; then
+ NM=$lt_cv_path_NM
+else
+ # Didn't find any BSD compatible name lister, look for dumpbin.
+ if test -n "$DUMPBIN"; then :
+ # Let the user override the test.
+ else
+ if test -n "$ac_tool_prefix"; then
+ for ac_prog in dumpbin "link -dump"
+ do
+ # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
+set dummy $ac_tool_prefix$ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_DUMPBIN+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$DUMPBIN"; then
+ ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+DUMPBIN=$ac_cv_prog_DUMPBIN
+if test -n "$DUMPBIN"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5
+$as_echo "$DUMPBIN" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$DUMPBIN" && break
+ done
+fi
+if test -z "$DUMPBIN"; then
+ ac_ct_DUMPBIN=$DUMPBIN
+ for ac_prog in dumpbin "link -dump"
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_DUMPBIN"; then
+ ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_DUMPBIN="$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN
+if test -n "$ac_ct_DUMPBIN"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5
+$as_echo "$ac_ct_DUMPBIN" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$ac_ct_DUMPBIN" && break
+done
+
+ if test "x$ac_ct_DUMPBIN" = x; then
+ DUMPBIN=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ DUMPBIN=$ac_ct_DUMPBIN
+ fi
+fi
+
+ case `$DUMPBIN -symbols -headers /dev/null 2>&1 | sed '1q'` in
+ *COFF*)
+ DUMPBIN="$DUMPBIN -symbols -headers"
+ ;;
+ *)
+ DUMPBIN=:
+ ;;
+ esac
+ fi
+
+ if test : != "$DUMPBIN"; then
+ NM=$DUMPBIN
+ fi
+fi
+test -z "$NM" && NM=nm
+
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5
+$as_echo_n "checking the name lister ($NM) interface... " >&6; }
+if ${lt_cv_nm_interface+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_nm_interface="BSD nm"
+ echo "int some_variable = 0;" > conftest.$ac_ext
+ (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5)
+ (eval "$ac_compile" 2>conftest.err)
+ cat conftest.err >&5
+ (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5)
+ (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out)
+ cat conftest.err >&5
+ (eval echo "\"\$as_me:$LINENO: output\"" >&5)
+ cat conftest.out >&5
+ if $GREP 'External.*some_variable' conftest.out > /dev/null; then
+ lt_cv_nm_interface="MS dumpbin"
+ fi
+ rm -f conftest*
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5
+$as_echo "$lt_cv_nm_interface" >&6; }
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5
+$as_echo_n "checking whether ln -s works... " >&6; }
+LN_S=$as_ln_s
+if test "$LN_S" = "ln -s"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5
+$as_echo "no, using $LN_S" >&6; }
+fi
+
+# find the maximum length of command line arguments
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5
+$as_echo_n "checking the maximum length of command line arguments... " >&6; }
+if ${lt_cv_sys_max_cmd_len+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ i=0
+ teststring=ABCD
+
+ case $build_os in
+ msdosdjgpp*)
+ # On DJGPP, this test can blow up pretty badly due to problems in libc
+ # (any single argument exceeding 2000 bytes causes a buffer overrun
+ # during glob expansion). Even if it were fixed, the result of this
+ # check would be larger than it should be.
+ lt_cv_sys_max_cmd_len=12288; # 12K is about right
+ ;;
+
+ gnu*)
+ # Under GNU Hurd, this test is not required because there is
+ # no limit to the length of command line arguments.
+ # Libtool will interpret -1 as no limit whatsoever
+ lt_cv_sys_max_cmd_len=-1;
+ ;;
+
+ cygwin* | mingw* | cegcc*)
+ # On Win9x/ME, this test blows up -- it succeeds, but takes
+ # about 5 minutes as the teststring grows exponentially.
+ # Worse, since 9x/ME are not pre-emptively multitasking,
+ # you end up with a "frozen" computer, even though with patience
+ # the test eventually succeeds (with a max line length of 256k).
+ # Instead, let's just punt: use the minimum linelength reported by
+ # all of the supported platforms: 8192 (on NT/2K/XP).
+ lt_cv_sys_max_cmd_len=8192;
+ ;;
+
+ mint*)
+ # On MiNT this can take a long time and run out of memory.
+ lt_cv_sys_max_cmd_len=8192;
+ ;;
+
+ amigaos*)
+ # On AmigaOS with pdksh, this test takes hours, literally.
+ # So we just punt and use a minimum line length of 8192.
+ lt_cv_sys_max_cmd_len=8192;
+ ;;
+
+ bitrig* | darwin* | dragonfly* | freebsd* | netbsd* | openbsd*)
+ # This has been around since 386BSD, at least. Likely further.
+ if test -x /sbin/sysctl; then
+ lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax`
+ elif test -x /usr/sbin/sysctl; then
+ lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax`
+ else
+ lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs
+ fi
+ # And add a safety zone
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
+ ;;
+
+ interix*)
+ # We know the value 262144 and hardcode it with a safety zone (like BSD)
+ lt_cv_sys_max_cmd_len=196608
+ ;;
+
+ os2*)
+ # The test takes a long time on OS/2.
+ lt_cv_sys_max_cmd_len=8192
+ ;;
+
+ osf*)
+ # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure
+ # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not
+ # nice to cause kernel panics so lets avoid the loop below.
+ # First set a reasonable default.
+ lt_cv_sys_max_cmd_len=16384
+ #
+ if test -x /sbin/sysconfig; then
+ case `/sbin/sysconfig -q proc exec_disable_arg_limit` in
+ *1*) lt_cv_sys_max_cmd_len=-1 ;;
+ esac
+ fi
+ ;;
+ sco3.2v5*)
+ lt_cv_sys_max_cmd_len=102400
+ ;;
+ sysv5* | sco5v6* | sysv4.2uw2*)
+ kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null`
+ if test -n "$kargmax"; then
+ lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'`
+ else
+ lt_cv_sys_max_cmd_len=32768
+ fi
+ ;;
+ *)
+ lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null`
+ if test -n "$lt_cv_sys_max_cmd_len" && \
+ test undefined != "$lt_cv_sys_max_cmd_len"; then
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
+ else
+ # Make teststring a little bigger before we do anything with it.
+ # a 1K string should be a reasonable start.
+ for i in 1 2 3 4 5 6 7 8; do
+ teststring=$teststring$teststring
+ done
+ SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}}
+ # If test is not a shell built-in, we'll probably end up computing a
+ # maximum length that is only half of the actual maximum length, but
+ # we can't tell.
+ while { test X`env echo "$teststring$teststring" 2>/dev/null` \
+ = "X$teststring$teststring"; } >/dev/null 2>&1 &&
+ test 17 != "$i" # 1/2 MB should be enough
+ do
+ i=`expr $i + 1`
+ teststring=$teststring$teststring
+ done
+ # Only check the string length outside the loop.
+ lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1`
+ teststring=
+ # Add a significant safety factor because C++ compilers can tack on
+ # massive amounts of additional arguments before passing them to the
+ # linker. It appears as though 1/2 is a usable value.
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2`
+ fi
+ ;;
+ esac
+
+fi
+
+if test -n "$lt_cv_sys_max_cmd_len"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5
+$as_echo "$lt_cv_sys_max_cmd_len" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5
+$as_echo "none" >&6; }
+fi
+max_cmd_len=$lt_cv_sys_max_cmd_len
+
+
+
+
+
+
+: ${CP="cp -f"}
+: ${MV="mv -f"}
+: ${RM="rm -f"}
+
+if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then
+ lt_unset=unset
+else
+ lt_unset=false
+fi
+
+
+
+
+
+# test EBCDIC or ASCII
+case `echo X|tr X '\101'` in
+ A) # ASCII based system
+ # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr
+ lt_SP2NL='tr \040 \012'
+ lt_NL2SP='tr \015\012 \040\040'
+ ;;
+ *) # EBCDIC based system
+ lt_SP2NL='tr \100 \n'
+ lt_NL2SP='tr \r\n \100\100'
+ ;;
+esac
+
+
+
+
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5
+$as_echo_n "checking how to convert $build file names to $host format... " >&6; }
+if ${lt_cv_to_host_file_cmd+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ case $host in
+ *-*-mingw* )
+ case $build in
+ *-*-mingw* ) # actually msys
+ lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32
+ ;;
+ *-*-cygwin* )
+ lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32
+ ;;
+ * ) # otherwise, assume *nix
+ lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32
+ ;;
+ esac
+ ;;
+ *-*-cygwin* )
+ case $build in
+ *-*-mingw* ) # actually msys
+ lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin
+ ;;
+ *-*-cygwin* )
+ lt_cv_to_host_file_cmd=func_convert_file_noop
+ ;;
+ * ) # otherwise, assume *nix
+ lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin
+ ;;
+ esac
+ ;;
+ * ) # unhandled hosts (and "normal" native builds)
+ lt_cv_to_host_file_cmd=func_convert_file_noop
+ ;;
+esac
+
+fi
+
+to_host_file_cmd=$lt_cv_to_host_file_cmd
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5
+$as_echo "$lt_cv_to_host_file_cmd" >&6; }
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5
+$as_echo_n "checking how to convert $build file names to toolchain format... " >&6; }
+if ${lt_cv_to_tool_file_cmd+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ #assume ordinary cross tools, or native build.
+lt_cv_to_tool_file_cmd=func_convert_file_noop
+case $host in
+ *-*-mingw* )
+ case $build in
+ *-*-mingw* ) # actually msys
+ lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32
+ ;;
+ esac
+ ;;
+esac
+
+fi
+
+to_tool_file_cmd=$lt_cv_to_tool_file_cmd
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5
+$as_echo "$lt_cv_to_tool_file_cmd" >&6; }
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5
+$as_echo_n "checking for $LD option to reload object files... " >&6; }
+if ${lt_cv_ld_reload_flag+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_ld_reload_flag='-r'
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5
+$as_echo "$lt_cv_ld_reload_flag" >&6; }
+reload_flag=$lt_cv_ld_reload_flag
+case $reload_flag in
+"" | " "*) ;;
+*) reload_flag=" $reload_flag" ;;
+esac
+reload_cmds='$LD$reload_flag -o $output$reload_objs'
+case $host_os in
+ cygwin* | mingw* | pw32* | cegcc*)
+ if test yes != "$GCC"; then
+ reload_cmds=false
+ fi
+ ;;
+ darwin*)
+ if test yes = "$GCC"; then
+ reload_cmds='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs'
+ else
+ reload_cmds='$LD$reload_flag -o $output$reload_objs'
+ fi
+ ;;
+esac
+
+
+
+
+
+
+
+
+
+if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args.
+set dummy ${ac_tool_prefix}objdump; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_OBJDUMP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$OBJDUMP"; then
+ ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+OBJDUMP=$ac_cv_prog_OBJDUMP
+if test -n "$OBJDUMP"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5
+$as_echo "$OBJDUMP" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_OBJDUMP"; then
+ ac_ct_OBJDUMP=$OBJDUMP
+ # Extract the first word of "objdump", so it can be a program name with args.
+set dummy objdump; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_OBJDUMP"; then
+ ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_OBJDUMP="objdump"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP
+if test -n "$ac_ct_OBJDUMP"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5
+$as_echo "$ac_ct_OBJDUMP" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_OBJDUMP" = x; then
+ OBJDUMP="false"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ OBJDUMP=$ac_ct_OBJDUMP
+ fi
+else
+ OBJDUMP="$ac_cv_prog_OBJDUMP"
+fi
+
+test -z "$OBJDUMP" && OBJDUMP=objdump
+
+
+
+
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5
+$as_echo_n "checking how to recognize dependent libraries... " >&6; }
+if ${lt_cv_deplibs_check_method+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_file_magic_cmd='$MAGIC_CMD'
+lt_cv_file_magic_test_file=
+lt_cv_deplibs_check_method='unknown'
+# Need to set the preceding variable on all platforms that support
+# interlibrary dependencies.
+# 'none' -- dependencies not supported.
+# 'unknown' -- same as none, but documents that we really don't know.
+# 'pass_all' -- all dependencies passed with no checks.
+# 'test_compile' -- check by making test program.
+# 'file_magic [[regex]]' -- check by looking for files in library path
+# that responds to the $file_magic_cmd with a given extended regex.
+# If you have 'file' or equivalent on your system and you're not sure
+# whether 'pass_all' will *always* work, you probably want this one.
+
+case $host_os in
+aix[4-9]*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+beos*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+bsdi[45]*)
+ lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)'
+ lt_cv_file_magic_cmd='/usr/bin/file -L'
+ lt_cv_file_magic_test_file=/shlib/libc.so
+ ;;
+
+cygwin*)
+ # func_win32_libid is a shell function defined in ltmain.sh
+ lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
+ lt_cv_file_magic_cmd='func_win32_libid'
+ ;;
+
+mingw* | pw32*)
+ # Base MSYS/MinGW do not provide the 'file' command needed by
+ # func_win32_libid shell function, so use a weaker test based on 'objdump',
+ # unless we find 'file', for example because we are cross-compiling.
+ if ( file / ) >/dev/null 2>&1; then
+ lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
+ lt_cv_file_magic_cmd='func_win32_libid'
+ else
+ # Keep this pattern in sync with the one in func_win32_libid.
+ lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)'
+ lt_cv_file_magic_cmd='$OBJDUMP -f'
+ fi
+ ;;
+
+cegcc*)
+ # use the weaker test based on 'objdump'. See mingw*.
+ lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?'
+ lt_cv_file_magic_cmd='$OBJDUMP -f'
+ ;;
+
+darwin* | rhapsody*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+freebsd* | dragonfly*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
+ case $host_cpu in
+ i*86 )
+ # Not sure whether the presence of OpenBSD here was a mistake.
+ # Let's accept both of them until this is cleared up.
+ lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library'
+ lt_cv_file_magic_cmd=/usr/bin/file
+ lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*`
+ ;;
+ esac
+ else
+ lt_cv_deplibs_check_method=pass_all
+ fi
+ ;;
+
+haiku*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+hpux10.20* | hpux11*)
+ lt_cv_file_magic_cmd=/usr/bin/file
+ case $host_cpu in
+ ia64*)
+ lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64'
+ lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so
+ ;;
+ hppa*64*)
+ lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]'
+ lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl
+ ;;
+ *)
+ lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library'
+ lt_cv_file_magic_test_file=/usr/lib/libc.sl
+ ;;
+ esac
+ ;;
+
+interix[3-9]*)
+ # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here
+ lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$'
+ ;;
+
+irix5* | irix6* | nonstopux*)
+ case $LD in
+ *-32|*"-32 ") libmagic=32-bit;;
+ *-n32|*"-n32 ") libmagic=N32;;
+ *-64|*"-64 ") libmagic=64-bit;;
+ *) libmagic=never-match;;
+ esac
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+# This must be glibc/ELF.
+linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
+ lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$'
+ else
+ lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$'
+ fi
+ ;;
+
+newos6*)
+ lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)'
+ lt_cv_file_magic_cmd=/usr/bin/file
+ lt_cv_file_magic_test_file=/usr/lib/libnls.so
+ ;;
+
+*nto* | *qnx*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+openbsd* | bitrig*)
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$'
+ else
+ lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$'
+ fi
+ ;;
+
+osf3* | osf4* | osf5*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+rdos*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+solaris*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+sysv4 | sysv4.3*)
+ case $host_vendor in
+ motorola)
+ lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]'
+ lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*`
+ ;;
+ ncr)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+ sequent)
+ lt_cv_file_magic_cmd='/bin/file'
+ lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )'
+ ;;
+ sni)
+ lt_cv_file_magic_cmd='/bin/file'
+ lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib"
+ lt_cv_file_magic_test_file=/lib/libc.so
+ ;;
+ siemens)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+ pc)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+ esac
+ ;;
+
+tpf*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+os2*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+esac
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5
+$as_echo "$lt_cv_deplibs_check_method" >&6; }
+
+file_magic_glob=
+want_nocaseglob=no
+if test "$build" = "$host"; then
+ case $host_os in
+ mingw* | pw32*)
+ if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then
+ want_nocaseglob=yes
+ else
+ file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"`
+ fi
+ ;;
+ esac
+fi
+
+file_magic_cmd=$lt_cv_file_magic_cmd
+deplibs_check_method=$lt_cv_deplibs_check_method
+test -z "$deplibs_check_method" && deplibs_check_method=unknown
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args.
+set dummy ${ac_tool_prefix}dlltool; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_DLLTOOL+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$DLLTOOL"; then
+ ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+DLLTOOL=$ac_cv_prog_DLLTOOL
+if test -n "$DLLTOOL"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5
+$as_echo "$DLLTOOL" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_DLLTOOL"; then
+ ac_ct_DLLTOOL=$DLLTOOL
+ # Extract the first word of "dlltool", so it can be a program name with args.
+set dummy dlltool; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_DLLTOOL"; then
+ ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_DLLTOOL="dlltool"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL
+if test -n "$ac_ct_DLLTOOL"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5
+$as_echo "$ac_ct_DLLTOOL" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_DLLTOOL" = x; then
+ DLLTOOL="false"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ DLLTOOL=$ac_ct_DLLTOOL
+ fi
+else
+ DLLTOOL="$ac_cv_prog_DLLTOOL"
+fi
+
+test -z "$DLLTOOL" && DLLTOOL=dlltool
+
+
+
+
+
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5
+$as_echo_n "checking how to associate runtime and link libraries... " >&6; }
+if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_sharedlib_from_linklib_cmd='unknown'
+
+case $host_os in
+cygwin* | mingw* | pw32* | cegcc*)
+ # two different shell functions defined in ltmain.sh;
+ # decide which one to use based on capabilities of $DLLTOOL
+ case `$DLLTOOL --help 2>&1` in
+ *--identify-strict*)
+ lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib
+ ;;
+ *)
+ lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback
+ ;;
+ esac
+ ;;
+*)
+ # fallback: assume linklib IS sharedlib
+ lt_cv_sharedlib_from_linklib_cmd=$ECHO
+ ;;
+esac
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5
+$as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; }
+sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd
+test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO
+
+
+
+
+
+
+
+if test -n "$ac_tool_prefix"; then
+ for ac_prog in ar
+ do
+ # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
+set dummy $ac_tool_prefix$ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_AR+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$AR"; then
+ ac_cv_prog_AR="$AR" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_AR="$ac_tool_prefix$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+AR=$ac_cv_prog_AR
+if test -n "$AR"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5
+$as_echo "$AR" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$AR" && break
+ done
+fi
+if test -z "$AR"; then
+ ac_ct_AR=$AR
+ for ac_prog in ar
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_AR+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_AR"; then
+ ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_AR="$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_AR=$ac_cv_prog_ac_ct_AR
+if test -n "$ac_ct_AR"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5
+$as_echo "$ac_ct_AR" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$ac_ct_AR" && break
+done
+
+ if test "x$ac_ct_AR" = x; then
+ AR="false"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ AR=$ac_ct_AR
+ fi
+fi
+
+: ${AR=ar}
+: ${AR_FLAGS=cru}
+
+
+
+
+
+
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5
+$as_echo_n "checking for archiver @FILE support... " >&6; }
+if ${lt_cv_ar_at_file+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_ar_at_file=no
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ echo conftest.$ac_objext > conftest.lst
+ lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5'
+ { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5
+ (eval $lt_ar_try) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+ if test 0 -eq "$ac_status"; then
+ # Ensure the archiver fails upon bogus file names.
+ rm -f conftest.$ac_objext libconftest.a
+ { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5
+ (eval $lt_ar_try) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+ if test 0 -ne "$ac_status"; then
+ lt_cv_ar_at_file=@
+ fi
+ fi
+ rm -f conftest.* libconftest.a
+
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5
+$as_echo "$lt_cv_ar_at_file" >&6; }
+
+if test no = "$lt_cv_ar_at_file"; then
+ archiver_list_spec=
+else
+ archiver_list_spec=$lt_cv_ar_at_file
+fi
+
+
+
+
+
+
+
+if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
+set dummy ${ac_tool_prefix}strip; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_STRIP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$STRIP"; then
+ ac_cv_prog_STRIP="$STRIP" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_STRIP="${ac_tool_prefix}strip"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+STRIP=$ac_cv_prog_STRIP
+if test -n "$STRIP"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
+$as_echo "$STRIP" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_STRIP"; then
+ ac_ct_STRIP=$STRIP
+ # Extract the first word of "strip", so it can be a program name with args.
+set dummy strip; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_STRIP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_STRIP"; then
+ ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_STRIP="strip"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
+if test -n "$ac_ct_STRIP"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
+$as_echo "$ac_ct_STRIP" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_STRIP" = x; then
+ STRIP=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ STRIP=$ac_ct_STRIP
+ fi
+else
+ STRIP="$ac_cv_prog_STRIP"
+fi
+
+test -z "$STRIP" && STRIP=:
+
+
+
+
+
+
+if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args.
+set dummy ${ac_tool_prefix}ranlib; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_RANLIB+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$RANLIB"; then
+ ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+RANLIB=$ac_cv_prog_RANLIB
+if test -n "$RANLIB"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5
+$as_echo "$RANLIB" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_RANLIB"; then
+ ac_ct_RANLIB=$RANLIB
+ # Extract the first word of "ranlib", so it can be a program name with args.
+set dummy ranlib; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_RANLIB+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_RANLIB"; then
+ ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_RANLIB="ranlib"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB
+if test -n "$ac_ct_RANLIB"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5
+$as_echo "$ac_ct_RANLIB" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_RANLIB" = x; then
+ RANLIB=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ RANLIB=$ac_ct_RANLIB
+ fi
+else
+ RANLIB="$ac_cv_prog_RANLIB"
+fi
+
+test -z "$RANLIB" && RANLIB=:
+
+
+
+
+
+
+# Determine commands to create old-style static archives.
+old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs'
+old_postinstall_cmds='chmod 644 $oldlib'
+old_postuninstall_cmds=
+
+if test -n "$RANLIB"; then
+ case $host_os in
+ bitrig* | openbsd*)
+ old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib"
+ ;;
+ *)
+ old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib"
+ ;;
+ esac
+ old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib"
+fi
+
+case $host_os in
+ darwin*)
+ lock_old_archive_extraction=yes ;;
+ *)
+ lock_old_archive_extraction=no ;;
+esac
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# If no C compiler was specified, use CC.
+LTCC=${LTCC-"$CC"}
+
+# If no C compiler flags were specified, use CFLAGS.
+LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
+
+# Allow CC to be a program name with arguments.
+compiler=$CC
+
+
+# Check for command to grab the raw symbol name followed by C symbol from nm.
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5
+$as_echo_n "checking command to parse $NM output from $compiler object... " >&6; }
+if ${lt_cv_sys_global_symbol_pipe+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+
+# These are sane defaults that work on at least a few old systems.
+# [They come from Ultrix. What could be older than Ultrix?!! ;)]
+
+# Character class describing NM global symbol codes.
+symcode='[BCDEGRST]'
+
+# Regexp to match symbols that can be accessed directly from C.
+sympat='\([_A-Za-z][_A-Za-z0-9]*\)'
+
+# Define system-specific variables.
+case $host_os in
+aix*)
+ symcode='[BCDT]'
+ ;;
+cygwin* | mingw* | pw32* | cegcc*)
+ symcode='[ABCDGISTW]'
+ ;;
+hpux*)
+ if test ia64 = "$host_cpu"; then
+ symcode='[ABCDEGRST]'
+ fi
+ ;;
+irix* | nonstopux*)
+ symcode='[BCDEGRST]'
+ ;;
+osf*)
+ symcode='[BCDEGQRST]'
+ ;;
+solaris*)
+ symcode='[BDRT]'
+ ;;
+sco3.2v5*)
+ symcode='[DT]'
+ ;;
+sysv4.2uw2*)
+ symcode='[DT]'
+ ;;
+sysv5* | sco5v6* | unixware* | OpenUNIX*)
+ symcode='[ABDT]'
+ ;;
+sysv4)
+ symcode='[DFNSTU]'
+ ;;
+esac
+
+# If we're using GNU nm, then use its standard symbol codes.
+case `$NM -V 2>&1` in
+*GNU* | *'with BFD'*)
+ symcode='[ABCDGIRSTW]' ;;
+esac
+
+if test "$lt_cv_nm_interface" = "MS dumpbin"; then
+ # Gets list of data symbols to import.
+ lt_cv_sys_global_symbol_to_import="sed -n -e 's/^I .* \(.*\)$/\1/p'"
+ # Adjust the below global symbol transforms to fixup imported variables.
+ lt_cdecl_hook=" -e 's/^I .* \(.*\)$/extern __declspec(dllimport) char \1;/p'"
+ lt_c_name_hook=" -e 's/^I .* \(.*\)$/ {\"\1\", (void *) 0},/p'"
+ lt_c_name_lib_hook="\
+ -e 's/^I .* \(lib.*\)$/ {\"\1\", (void *) 0},/p'\
+ -e 's/^I .* \(.*\)$/ {\"lib\1\", (void *) 0},/p'"
+else
+ # Disable hooks by default.
+ lt_cv_sys_global_symbol_to_import=
+ lt_cdecl_hook=
+ lt_c_name_hook=
+ lt_c_name_lib_hook=
+fi
+
+# Transform an extracted symbol line into a proper C declaration.
+# Some systems (esp. on ia64) link data and code symbols differently,
+# so use this general approach.
+lt_cv_sys_global_symbol_to_cdecl="sed -n"\
+$lt_cdecl_hook\
+" -e 's/^T .* \(.*\)$/extern int \1();/p'"\
+" -e 's/^$symcode$symcode* .* \(.*\)$/extern char \1;/p'"
+
+# Transform an extracted symbol line into symbol name and symbol address
+lt_cv_sys_global_symbol_to_c_name_address="sed -n"\
+$lt_c_name_hook\
+" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\
+" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/p'"
+
+# Transform an extracted symbol line into symbol name with lib prefix and
+# symbol address.
+lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n"\
+$lt_c_name_lib_hook\
+" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\
+" -e 's/^$symcode$symcode* .* \(lib.*\)$/ {\"\1\", (void *) \&\1},/p'"\
+" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"lib\1\", (void *) \&\1},/p'"
+
+# Handle CRLF in mingw tool chain
+opt_cr=
+case $build_os in
+mingw*)
+ opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp
+ ;;
+esac
+
+# Try without a prefix underscore, then with it.
+for ac_symprfx in "" "_"; do
+
+ # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol.
+ symxfrm="\\1 $ac_symprfx\\2 \\2"
+
+ # Write the raw and C identifiers.
+ if test "$lt_cv_nm_interface" = "MS dumpbin"; then
+ # Fake it for dumpbin and say T for any non-static function,
+ # D for any global variable and I for any imported variable.
+ # Also find C++ and __fastcall symbols from MSVC++,
+ # which start with @ or ?.
+ lt_cv_sys_global_symbol_pipe="$AWK '"\
+" {last_section=section; section=\$ 3};"\
+" /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\
+" /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\
+" /^ *Symbol name *: /{split(\$ 0,sn,\":\"); si=substr(sn[2],2)};"\
+" /^ *Type *: code/{print \"T\",si,substr(si,length(prfx))};"\
+" /^ *Type *: data/{print \"I\",si,substr(si,length(prfx))};"\
+" \$ 0!~/External *\|/{next};"\
+" / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\
+" {if(hide[section]) next};"\
+" {f=\"D\"}; \$ 0~/\(\).*\|/{f=\"T\"};"\
+" {split(\$ 0,a,/\||\r/); split(a[2],s)};"\
+" s[1]~/^[@?]/{print f,s[1],s[1]; next};"\
+" s[1]~prfx {split(s[1],t,\"@\"); print f,t[1],substr(t[1],length(prfx))}"\
+" ' prfx=^$ac_symprfx"
+ else
+ lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'"
+ fi
+ lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'"
+
+ # Check to see that the pipe works correctly.
+ pipe_works=no
+
+ rm -f conftest*
+ cat > conftest.$ac_ext <<_LT_EOF
+#ifdef __cplusplus
+extern "C" {
+#endif
+char nm_test_var;
+void nm_test_func(void);
+void nm_test_func(void){}
+#ifdef __cplusplus
+}
+#endif
+int main(){nm_test_var='a';nm_test_func();return(0);}
+_LT_EOF
+
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ # Now try to grab the symbols.
+ nlist=conftest.nm
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5
+ (eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && test -s "$nlist"; then
+ # Try sorting and uniquifying the output.
+ if sort "$nlist" | uniq > "$nlist"T; then
+ mv -f "$nlist"T "$nlist"
+ else
+ rm -f "$nlist"T
+ fi
+
+ # Make sure that we snagged all the symbols we need.
+ if $GREP ' nm_test_var$' "$nlist" >/dev/null; then
+ if $GREP ' nm_test_func$' "$nlist" >/dev/null; then
+ cat <<_LT_EOF > conftest.$ac_ext
+/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */
+#if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE
+/* DATA imports from DLLs on WIN32 can't be const, because runtime
+ relocations are performed -- see ld's documentation on pseudo-relocs. */
+# define LT_DLSYM_CONST
+#elif defined __osf__
+/* This system does not cope well with relocations in const data. */
+# define LT_DLSYM_CONST
+#else
+# define LT_DLSYM_CONST const
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+_LT_EOF
+ # Now generate the symbol file.
+ eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext'
+
+ cat <<_LT_EOF >> conftest.$ac_ext
+
+/* The mapping between symbol names and symbols. */
+LT_DLSYM_CONST struct {
+ const char *name;
+ void *address;
+}
+lt__PROGRAM__LTX_preloaded_symbols[] =
+{
+ { "@PROGRAM@", (void *) 0 },
+_LT_EOF
+ $SED "s/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext
+ cat <<\_LT_EOF >> conftest.$ac_ext
+ {0, (void *) 0}
+};
+
+/* This works around a problem in FreeBSD linker */
+#ifdef FREEBSD_WORKAROUND
+static const void *lt_preloaded_setup() {
+ return lt__PROGRAM__LTX_preloaded_symbols;
+}
+#endif
+
+#ifdef __cplusplus
+}
+#endif
+_LT_EOF
+ # Now try linking the two files.
+ mv conftest.$ac_objext conftstm.$ac_objext
+ lt_globsym_save_LIBS=$LIBS
+ lt_globsym_save_CFLAGS=$CFLAGS
+ LIBS=conftstm.$ac_objext
+ CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag"
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
+ (eval $ac_link) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && test -s conftest$ac_exeext; then
+ pipe_works=yes
+ fi
+ LIBS=$lt_globsym_save_LIBS
+ CFLAGS=$lt_globsym_save_CFLAGS
+ else
+ echo "cannot find nm_test_func in $nlist" >&5
+ fi
+ else
+ echo "cannot find nm_test_var in $nlist" >&5
+ fi
+ else
+ echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5
+ fi
+ else
+ echo "$progname: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ fi
+ rm -rf conftest* conftst*
+
+ # Do not use the global_symbol_pipe unless it works.
+ if test yes = "$pipe_works"; then
+ break
+ else
+ lt_cv_sys_global_symbol_pipe=
+ fi
+done
+
+fi
+
+if test -z "$lt_cv_sys_global_symbol_pipe"; then
+ lt_cv_sys_global_symbol_to_cdecl=
+fi
+if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5
+$as_echo "failed" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5
+$as_echo "ok" >&6; }
+fi
+
+# Response file support.
+if test "$lt_cv_nm_interface" = "MS dumpbin"; then
+ nm_file_list_spec='@'
+elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then
+ nm_file_list_spec='@'
+fi
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5
+$as_echo_n "checking for sysroot... " >&6; }
+
+# Check whether --with-sysroot was given.
+if test "${with_sysroot+set}" = set; then :
+ withval=$with_sysroot;
+else
+ with_sysroot=no
+fi
+
+
+lt_sysroot=
+case $with_sysroot in #(
+ yes)
+ if test yes = "$GCC"; then
+ lt_sysroot=`$CC --print-sysroot 2>/dev/null`
+ fi
+ ;; #(
+ /*)
+ lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"`
+ ;; #(
+ no|'')
+ ;; #(
+ *)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_sysroot" >&5
+$as_echo "$with_sysroot" >&6; }
+ as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5
+ ;;
+esac
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5
+$as_echo "${lt_sysroot:-no}" >&6; }
+
+
+
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a working dd" >&5
+$as_echo_n "checking for a working dd... " >&6; }
+if ${ac_cv_path_lt_DD+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ printf 0123456789abcdef0123456789abcdef >conftest.i
+cat conftest.i conftest.i >conftest2.i
+: ${lt_DD:=$DD}
+if test -z "$lt_DD"; then
+ ac_path_lt_DD_found=false
+ # Loop through the user's path and test for each of PROGNAME-LIST
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_prog in dd; do
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ ac_path_lt_DD="$as_dir/$ac_prog$ac_exec_ext"
+ as_fn_executable_p "$ac_path_lt_DD" || continue
+if "$ac_path_lt_DD" bs=32 count=1 <conftest2.i >conftest.out 2>/dev/null; then
+ cmp -s conftest.i conftest.out \
+ && ac_cv_path_lt_DD="$ac_path_lt_DD" ac_path_lt_DD_found=:
+fi
+ $ac_path_lt_DD_found && break 3
+ done
+ done
+ done
+IFS=$as_save_IFS
+ if test -z "$ac_cv_path_lt_DD"; then
+ :
+ fi
+else
+ ac_cv_path_lt_DD=$lt_DD
+fi
+
+rm -f conftest.i conftest2.i conftest.out
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_lt_DD" >&5
+$as_echo "$ac_cv_path_lt_DD" >&6; }
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to truncate binary pipes" >&5
+$as_echo_n "checking how to truncate binary pipes... " >&6; }
+if ${lt_cv_truncate_bin+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ printf 0123456789abcdef0123456789abcdef >conftest.i
+cat conftest.i conftest.i >conftest2.i
+lt_cv_truncate_bin=
+if "$ac_cv_path_lt_DD" bs=32 count=1 <conftest2.i >conftest.out 2>/dev/null; then
+ cmp -s conftest.i conftest.out \
+ && lt_cv_truncate_bin="$ac_cv_path_lt_DD bs=4096 count=1"
+fi
+rm -f conftest.i conftest2.i conftest.out
+test -z "$lt_cv_truncate_bin" && lt_cv_truncate_bin="$SED -e 4q"
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_truncate_bin" >&5
+$as_echo "$lt_cv_truncate_bin" >&6; }
+
+
+
+
+
+
+
+# Calculate cc_basename. Skip known compiler wrappers and cross-prefix.
+func_cc_basename ()
+{
+ for cc_temp in $*""; do
+ case $cc_temp in
+ compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
+ distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
+ \-*) ;;
+ *) break;;
+ esac
+ done
+ func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
+}
+
+# Check whether --enable-libtool-lock was given.
+if test "${enable_libtool_lock+set}" = set; then :
+ enableval=$enable_libtool_lock;
+fi
+
+test no = "$enable_libtool_lock" || enable_libtool_lock=yes
+
+# Some flags need to be propagated to the compiler or linker for good
+# libtool support.
+case $host in
+ia64-*-hpux*)
+ # Find out what ABI is being produced by ac_compile, and set mode
+ # options accordingly.
+ echo 'int i;' > conftest.$ac_ext
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ case `/usr/bin/file conftest.$ac_objext` in
+ *ELF-32*)
+ HPUX_IA64_MODE=32
+ ;;
+ *ELF-64*)
+ HPUX_IA64_MODE=64
+ ;;
+ esac
+ fi
+ rm -rf conftest*
+ ;;
+*-*-irix6*)
+ # Find out what ABI is being produced by ac_compile, and set linker
+ # options accordingly.
+ echo '#line '$LINENO' "configure"' > conftest.$ac_ext
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ if test yes = "$lt_cv_prog_gnu_ld"; then
+ case `/usr/bin/file conftest.$ac_objext` in
+ *32-bit*)
+ LD="${LD-ld} -melf32bsmip"
+ ;;
+ *N32*)
+ LD="${LD-ld} -melf32bmipn32"
+ ;;
+ *64-bit*)
+ LD="${LD-ld} -melf64bmip"
+ ;;
+ esac
+ else
+ case `/usr/bin/file conftest.$ac_objext` in
+ *32-bit*)
+ LD="${LD-ld} -32"
+ ;;
+ *N32*)
+ LD="${LD-ld} -n32"
+ ;;
+ *64-bit*)
+ LD="${LD-ld} -64"
+ ;;
+ esac
+ fi
+ fi
+ rm -rf conftest*
+ ;;
+
+mips64*-*linux*)
+ # Find out what ABI is being produced by ac_compile, and set linker
+ # options accordingly.
+ echo '#line '$LINENO' "configure"' > conftest.$ac_ext
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ emul=elf
+ case `/usr/bin/file conftest.$ac_objext` in
+ *32-bit*)
+ emul="${emul}32"
+ ;;
+ *64-bit*)
+ emul="${emul}64"
+ ;;
+ esac
+ case `/usr/bin/file conftest.$ac_objext` in
+ *MSB*)
+ emul="${emul}btsmip"
+ ;;
+ *LSB*)
+ emul="${emul}ltsmip"
+ ;;
+ esac
+ case `/usr/bin/file conftest.$ac_objext` in
+ *N32*)
+ emul="${emul}n32"
+ ;;
+ esac
+ LD="${LD-ld} -m $emul"
+ fi
+ rm -rf conftest*
+ ;;
+
+x86_64-*kfreebsd*-gnu|x86_64-*linux*|powerpc*-*linux*| \
+s390*-*linux*|s390*-*tpf*|sparc*-*linux*)
+ # Find out what ABI is being produced by ac_compile, and set linker
+ # options accordingly. Note that the listed cases only cover the
+ # situations where additional linker options are needed (such as when
+ # doing 32-bit compilation for a host where ld defaults to 64-bit, or
+ # vice versa); the common cases where no linker options are needed do
+ # not appear in the list.
+ echo 'int i;' > conftest.$ac_ext
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ case `/usr/bin/file conftest.o` in
+ *32-bit*)
+ case $host in
+ x86_64-*kfreebsd*-gnu)
+ LD="${LD-ld} -m elf_i386_fbsd"
+ ;;
+ x86_64-*linux*)
+ case `/usr/bin/file conftest.o` in
+ *x86-64*)
+ LD="${LD-ld} -m elf32_x86_64"
+ ;;
+ *)
+ LD="${LD-ld} -m elf_i386"
+ ;;
+ esac
+ ;;
+ powerpc64le-*linux*)
+ LD="${LD-ld} -m elf32lppclinux"
+ ;;
+ powerpc64-*linux*)
+ LD="${LD-ld} -m elf32ppclinux"
+ ;;
+ s390x-*linux*)
+ LD="${LD-ld} -m elf_s390"
+ ;;
+ sparc64-*linux*)
+ LD="${LD-ld} -m elf32_sparc"
+ ;;
+ esac
+ ;;
+ *64-bit*)
+ case $host in
+ x86_64-*kfreebsd*-gnu)
+ LD="${LD-ld} -m elf_x86_64_fbsd"
+ ;;
+ x86_64-*linux*)
+ LD="${LD-ld} -m elf_x86_64"
+ ;;
+ powerpcle-*linux*)
+ LD="${LD-ld} -m elf64lppc"
+ ;;
+ powerpc-*linux*)
+ LD="${LD-ld} -m elf64ppc"
+ ;;
+ s390*-*linux*|s390*-*tpf*)
+ LD="${LD-ld} -m elf64_s390"
+ ;;
+ sparc*-*linux*)
+ LD="${LD-ld} -m elf64_sparc"
+ ;;
+ esac
+ ;;
+ esac
+ fi
+ rm -rf conftest*
+ ;;
+
+*-*-sco3.2v5*)
+ # On SCO OpenServer 5, we need -belf to get full-featured binaries.
+ SAVE_CFLAGS=$CFLAGS
+ CFLAGS="$CFLAGS -belf"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5
+$as_echo_n "checking whether the C compiler needs -belf... " >&6; }
+if ${lt_cv_cc_needs_belf+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ lt_cv_cc_needs_belf=yes
+else
+ lt_cv_cc_needs_belf=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5
+$as_echo "$lt_cv_cc_needs_belf" >&6; }
+ if test yes != "$lt_cv_cc_needs_belf"; then
+ # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf
+ CFLAGS=$SAVE_CFLAGS
+ fi
+ ;;
+*-*solaris*)
+ # Find out what ABI is being produced by ac_compile, and set linker
+ # options accordingly.
+ echo 'int i;' > conftest.$ac_ext
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ case `/usr/bin/file conftest.o` in
+ *64-bit*)
+ case $lt_cv_prog_gnu_ld in
+ yes*)
+ case $host in
+ i?86-*-solaris*|x86_64-*-solaris*)
+ LD="${LD-ld} -m elf_x86_64"
+ ;;
+ sparc*-*-solaris*)
+ LD="${LD-ld} -m elf64_sparc"
+ ;;
+ esac
+ # GNU ld 2.21 introduced _sol2 emulations. Use them if available.
+ if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then
+ LD=${LD-ld}_sol2
+ fi
+ ;;
+ *)
+ if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then
+ LD="${LD-ld} -64"
+ fi
+ ;;
+ esac
+ ;;
+ esac
+ fi
+ rm -rf conftest*
+ ;;
+esac
+
+need_locks=$enable_libtool_lock
+
+if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args.
+set dummy ${ac_tool_prefix}mt; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_MANIFEST_TOOL+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$MANIFEST_TOOL"; then
+ ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_MANIFEST_TOOL="${ac_tool_prefix}mt"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL
+if test -n "$MANIFEST_TOOL"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5
+$as_echo "$MANIFEST_TOOL" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_MANIFEST_TOOL"; then
+ ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL
+ # Extract the first word of "mt", so it can be a program name with args.
+set dummy mt; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_MANIFEST_TOOL"; then
+ ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_MANIFEST_TOOL="mt"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL
+if test -n "$ac_ct_MANIFEST_TOOL"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5
+$as_echo "$ac_ct_MANIFEST_TOOL" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_MANIFEST_TOOL" = x; then
+ MANIFEST_TOOL=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL
+ fi
+else
+ MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL"
+fi
+
+test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5
+$as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; }
+if ${lt_cv_path_mainfest_tool+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_path_mainfest_tool=no
+ echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5
+ $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out
+ cat conftest.err >&5
+ if $GREP 'Manifest Tool' conftest.out > /dev/null; then
+ lt_cv_path_mainfest_tool=yes
+ fi
+ rm -f conftest*
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5
+$as_echo "$lt_cv_path_mainfest_tool" >&6; }
+if test yes != "$lt_cv_path_mainfest_tool"; then
+ MANIFEST_TOOL=:
+fi
+
+
+
+
+
+
+ case $host_os in
+ rhapsody* | darwin*)
+ if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args.
+set dummy ${ac_tool_prefix}dsymutil; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_DSYMUTIL+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$DSYMUTIL"; then
+ ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+DSYMUTIL=$ac_cv_prog_DSYMUTIL
+if test -n "$DSYMUTIL"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5
+$as_echo "$DSYMUTIL" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_DSYMUTIL"; then
+ ac_ct_DSYMUTIL=$DSYMUTIL
+ # Extract the first word of "dsymutil", so it can be a program name with args.
+set dummy dsymutil; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_DSYMUTIL"; then
+ ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_DSYMUTIL="dsymutil"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL
+if test -n "$ac_ct_DSYMUTIL"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5
+$as_echo "$ac_ct_DSYMUTIL" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_DSYMUTIL" = x; then
+ DSYMUTIL=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ DSYMUTIL=$ac_ct_DSYMUTIL
+ fi
+else
+ DSYMUTIL="$ac_cv_prog_DSYMUTIL"
+fi
+
+ if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args.
+set dummy ${ac_tool_prefix}nmedit; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_NMEDIT+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$NMEDIT"; then
+ ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+NMEDIT=$ac_cv_prog_NMEDIT
+if test -n "$NMEDIT"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5
+$as_echo "$NMEDIT" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_NMEDIT"; then
+ ac_ct_NMEDIT=$NMEDIT
+ # Extract the first word of "nmedit", so it can be a program name with args.
+set dummy nmedit; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_NMEDIT"; then
+ ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_NMEDIT="nmedit"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT
+if test -n "$ac_ct_NMEDIT"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5
+$as_echo "$ac_ct_NMEDIT" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_NMEDIT" = x; then
+ NMEDIT=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ NMEDIT=$ac_ct_NMEDIT
+ fi
+else
+ NMEDIT="$ac_cv_prog_NMEDIT"
+fi
+
+ if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args.
+set dummy ${ac_tool_prefix}lipo; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_LIPO+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$LIPO"; then
+ ac_cv_prog_LIPO="$LIPO" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_LIPO="${ac_tool_prefix}lipo"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+LIPO=$ac_cv_prog_LIPO
+if test -n "$LIPO"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5
+$as_echo "$LIPO" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_LIPO"; then
+ ac_ct_LIPO=$LIPO
+ # Extract the first word of "lipo", so it can be a program name with args.
+set dummy lipo; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_LIPO+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_LIPO"; then
+ ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_LIPO="lipo"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO
+if test -n "$ac_ct_LIPO"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5
+$as_echo "$ac_ct_LIPO" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_LIPO" = x; then
+ LIPO=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ LIPO=$ac_ct_LIPO
+ fi
+else
+ LIPO="$ac_cv_prog_LIPO"
+fi
+
+ if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args.
+set dummy ${ac_tool_prefix}otool; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_OTOOL+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$OTOOL"; then
+ ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_OTOOL="${ac_tool_prefix}otool"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+OTOOL=$ac_cv_prog_OTOOL
+if test -n "$OTOOL"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5
+$as_echo "$OTOOL" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_OTOOL"; then
+ ac_ct_OTOOL=$OTOOL
+ # Extract the first word of "otool", so it can be a program name with args.
+set dummy otool; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_OTOOL+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_OTOOL"; then
+ ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_OTOOL="otool"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL
+if test -n "$ac_ct_OTOOL"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5
+$as_echo "$ac_ct_OTOOL" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_OTOOL" = x; then
+ OTOOL=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ OTOOL=$ac_ct_OTOOL
+ fi
+else
+ OTOOL="$ac_cv_prog_OTOOL"
+fi
+
+ if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args.
+set dummy ${ac_tool_prefix}otool64; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_OTOOL64+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$OTOOL64"; then
+ ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+OTOOL64=$ac_cv_prog_OTOOL64
+if test -n "$OTOOL64"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5
+$as_echo "$OTOOL64" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_prog_OTOOL64"; then
+ ac_ct_OTOOL64=$OTOOL64
+ # Extract the first word of "otool64", so it can be a program name with args.
+set dummy otool64; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ac_ct_OTOOL64"; then
+ ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ac_ct_OTOOL64="otool64"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64
+if test -n "$ac_ct_OTOOL64"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5
+$as_echo "$ac_ct_OTOOL64" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_ct_OTOOL64" = x; then
+ OTOOL64=":"
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ OTOOL64=$ac_ct_OTOOL64
+ fi
+else
+ OTOOL64="$ac_cv_prog_OTOOL64"
+fi
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5
+$as_echo_n "checking for -single_module linker flag... " >&6; }
+if ${lt_cv_apple_cc_single_mod+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_apple_cc_single_mod=no
+ if test -z "$LT_MULTI_MODULE"; then
+ # By default we will add the -single_module flag. You can override
+ # by either setting the environment variable LT_MULTI_MODULE
+ # non-empty at configure time, or by adding -multi_module to the
+ # link flags.
+ rm -rf libconftest.dylib*
+ echo "int foo(void){return 1;}" > conftest.c
+ echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
+-dynamiclib -Wl,-single_module conftest.c" >&5
+ $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
+ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err
+ _lt_result=$?
+ # If there is a non-empty error log, and "single_module"
+ # appears in it, assume the flag caused a linker warning
+ if test -s conftest.err && $GREP single_module conftest.err; then
+ cat conftest.err >&5
+ # Otherwise, if the output was created with a 0 exit code from
+ # the compiler, it worked.
+ elif test -f libconftest.dylib && test 0 = "$_lt_result"; then
+ lt_cv_apple_cc_single_mod=yes
+ else
+ cat conftest.err >&5
+ fi
+ rm -rf libconftest.dylib*
+ rm -f conftest.*
+ fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5
+$as_echo "$lt_cv_apple_cc_single_mod" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5
+$as_echo_n "checking for -exported_symbols_list linker flag... " >&6; }
+if ${lt_cv_ld_exported_symbols_list+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_ld_exported_symbols_list=no
+ save_LDFLAGS=$LDFLAGS
+ echo "_main" > conftest.sym
+ LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym"
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ lt_cv_ld_exported_symbols_list=yes
+else
+ lt_cv_ld_exported_symbols_list=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ LDFLAGS=$save_LDFLAGS
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5
+$as_echo "$lt_cv_ld_exported_symbols_list" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5
+$as_echo_n "checking for -force_load linker flag... " >&6; }
+if ${lt_cv_ld_force_load+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_ld_force_load=no
+ cat > conftest.c << _LT_EOF
+int forced_loaded() { return 2;}
+_LT_EOF
+ echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5
+ $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5
+ echo "$AR cru libconftest.a conftest.o" >&5
+ $AR cru libconftest.a conftest.o 2>&5
+ echo "$RANLIB libconftest.a" >&5
+ $RANLIB libconftest.a 2>&5
+ cat > conftest.c << _LT_EOF
+int main() { return 0;}
+_LT_EOF
+ echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5
+ $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err
+ _lt_result=$?
+ if test -s conftest.err && $GREP force_load conftest.err; then
+ cat conftest.err >&5
+ elif test -f conftest && test 0 = "$_lt_result" && $GREP forced_load conftest >/dev/null 2>&1; then
+ lt_cv_ld_force_load=yes
+ else
+ cat conftest.err >&5
+ fi
+ rm -f conftest.err libconftest.a conftest conftest.c
+ rm -rf conftest.dSYM
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5
+$as_echo "$lt_cv_ld_force_load" >&6; }
+ case $host_os in
+ rhapsody* | darwin1.[012])
+ _lt_dar_allow_undefined='$wl-undefined ${wl}suppress' ;;
+ darwin1.*)
+ _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;;
+ darwin*) # darwin 5.x on
+ # if running on 10.5 or later, the deployment target defaults
+ # to the OS version, if on x86, and 10.4, the deployment
+ # target defaults to 10.4. Don't you love it?
+ case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in
+ 10.0,*86*-darwin8*|10.0,*-darwin[91]*)
+ _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;;
+ 10.[012][,.]*)
+ _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;;
+ 10.*)
+ _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;;
+ esac
+ ;;
+ esac
+ if test yes = "$lt_cv_apple_cc_single_mod"; then
+ _lt_dar_single_mod='$single_module'
+ fi
+ if test yes = "$lt_cv_ld_exported_symbols_list"; then
+ _lt_dar_export_syms=' $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym'
+ else
+ _lt_dar_export_syms='~$NMEDIT -s $output_objdir/$libname-symbols.expsym $lib'
+ fi
+ if test : != "$DSYMUTIL" && test no = "$lt_cv_ld_force_load"; then
+ _lt_dsymutil='~$DSYMUTIL $lib || :'
+ else
+ _lt_dsymutil=
+ fi
+ ;;
+ esac
+
+# func_munge_path_list VARIABLE PATH
+# -----------------------------------
+# VARIABLE is name of variable containing _space_ separated list of
+# directories to be munged by the contents of PATH, which is string
+# having a format:
+# "DIR[:DIR]:"
+# string "DIR[ DIR]" will be prepended to VARIABLE
+# ":DIR[:DIR]"
+# string "DIR[ DIR]" will be appended to VARIABLE
+# "DIRP[:DIRP]::[DIRA:]DIRA"
+# string "DIRP[ DIRP]" will be prepended to VARIABLE and string
+# "DIRA[ DIRA]" will be appended to VARIABLE
+# "DIR[:DIR]"
+# VARIABLE will be replaced by "DIR[ DIR]"
+func_munge_path_list ()
+{
+ case x$2 in
+ x)
+ ;;
+ *:)
+ eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\"
+ ;;
+ x:*)
+ eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\"
+ ;;
+ *::*)
+ eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\"
+ eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\"
+ ;;
+ *)
+ eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\"
+ ;;
+ esac
+}
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5
+$as_echo_n "checking how to run the C preprocessor... " >&6; }
+# On Suns, sometimes $CPP names a directory.
+if test -n "$CPP" && test -d "$CPP"; then
+ CPP=
+fi
+if test -z "$CPP"; then
+ if ${ac_cv_prog_CPP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ # Double quotes because CPP needs to be expanded
+ for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp"
+ do
+ ac_preproc_ok=false
+for ac_c_preproc_warn_flag in '' yes
+do
+ # Use a header file that comes with gcc, so configuring glibc
+ # with a fresh cross-compiler works.
+ # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
+ # <limits.h> exists even on freestanding compilers.
+ # On the NeXT, cc -E runs the code through the compiler's parser,
+ # not just through cpp. "Syntax error" is here to catch this case.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#ifdef __STDC__
+# include <limits.h>
+#else
+# include <assert.h>
+#endif
+ Syntax error
+_ACEOF
+if ac_fn_c_try_cpp "$LINENO"; then :
+
+else
+ # Broken: fails on valid input.
+continue
+fi
+rm -f conftest.err conftest.i conftest.$ac_ext
+
+ # OK, works on sane cases. Now check whether nonexistent headers
+ # can be detected and how.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <ac_nonexistent.h>
+_ACEOF
+if ac_fn_c_try_cpp "$LINENO"; then :
+ # Broken: success on invalid input.
+continue
+else
+ # Passes both tests.
+ac_preproc_ok=:
+break
+fi
+rm -f conftest.err conftest.i conftest.$ac_ext
+
+done
+# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
+rm -f conftest.i conftest.err conftest.$ac_ext
+if $ac_preproc_ok; then :
+ break
+fi
+
+ done
+ ac_cv_prog_CPP=$CPP
+
+fi
+ CPP=$ac_cv_prog_CPP
+else
+ ac_cv_prog_CPP=$CPP
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5
+$as_echo "$CPP" >&6; }
+ac_preproc_ok=false
+for ac_c_preproc_warn_flag in '' yes
+do
+ # Use a header file that comes with gcc, so configuring glibc
+ # with a fresh cross-compiler works.
+ # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
+ # <limits.h> exists even on freestanding compilers.
+ # On the NeXT, cc -E runs the code through the compiler's parser,
+ # not just through cpp. "Syntax error" is here to catch this case.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#ifdef __STDC__
+# include <limits.h>
+#else
+# include <assert.h>
+#endif
+ Syntax error
+_ACEOF
+if ac_fn_c_try_cpp "$LINENO"; then :
+
+else
+ # Broken: fails on valid input.
+continue
+fi
+rm -f conftest.err conftest.i conftest.$ac_ext
+
+ # OK, works on sane cases. Now check whether nonexistent headers
+ # can be detected and how.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <ac_nonexistent.h>
+_ACEOF
+if ac_fn_c_try_cpp "$LINENO"; then :
+ # Broken: success on invalid input.
+continue
+else
+ # Passes both tests.
+ac_preproc_ok=:
+break
+fi
+rm -f conftest.err conftest.i conftest.$ac_ext
+
+done
+# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
+rm -f conftest.i conftest.err conftest.$ac_ext
+if $ac_preproc_ok; then :
+
+else
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5
+$as_echo_n "checking for ANSI C header files... " >&6; }
+if ${ac_cv_header_stdc+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <float.h>
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_header_stdc=yes
+else
+ ac_cv_header_stdc=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+
+if test $ac_cv_header_stdc = yes; then
+ # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <string.h>
+
+_ACEOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ $EGREP "memchr" >/dev/null 2>&1; then :
+
+else
+ ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+ # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <stdlib.h>
+
+_ACEOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ $EGREP "free" >/dev/null 2>&1; then :
+
+else
+ ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+ # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
+ if test "$cross_compiling" = yes; then :
+ :
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <ctype.h>
+#include <stdlib.h>
+#if ((' ' & 0x0FF) == 0x020)
+# define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
+# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
+#else
+# define ISLOWER(c) \
+ (('a' <= (c) && (c) <= 'i') \
+ || ('j' <= (c) && (c) <= 'r') \
+ || ('s' <= (c) && (c) <= 'z'))
+# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c))
+#endif
+
+#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
+int
+main ()
+{
+ int i;
+ for (i = 0; i < 256; i++)
+ if (XOR (islower (i), ISLOWER (i))
+ || toupper (i) != TOUPPER (i))
+ return 2;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_run "$LINENO"; then :
+
+else
+ ac_cv_header_stdc=no
+fi
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
+ conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+
+fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5
+$as_echo "$ac_cv_header_stdc" >&6; }
+if test $ac_cv_header_stdc = yes; then
+
+$as_echo "#define STDC_HEADERS 1" >>confdefs.h
+
+fi
+
+# On IRIX 5.3, sys/types and inttypes.h are conflicting.
+for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \
+ inttypes.h stdint.h unistd.h
+do :
+ as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
+ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
+"
+if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
+ cat >>confdefs.h <<_ACEOF
+#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
+_ACEOF
+
+fi
+
+done
+
+
+for ac_header in dlfcn.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_dlfcn_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_DLFCN_H 1
+_ACEOF
+
+fi
+
+done
+
+
+
+func_stripname_cnf ()
+{
+ case $2 in
+ .*) func_stripname_result=`$ECHO "$3" | $SED "s%^$1%%; s%\\\\$2\$%%"`;;
+ *) func_stripname_result=`$ECHO "$3" | $SED "s%^$1%%; s%$2\$%%"`;;
+ esac
+} # func_stripname_cnf
+
+ if test x"$enable_shared" != xno; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking any compiler has problems building shared objects" >&5
+$as_echo_n "checking any compiler has problems building shared objects... " >&6; }
+if ${acx_cv_disable_shared+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_disable_shared=no
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+ $as_echo "$as_me:${as_lineno-$LINENO}: testing if $FC cannot build working shared objects" >&5
+ case $host in #(
+ *-ibm-aix*) :
+ if $FC -G -v 2>&1 | grep ' -binitfini:poe_remote_main ' >/dev/null; then :
+ acx_cv_disable_shared=yes
+fi ;; #(
+ x86_64-*-linux-*|i*86-*-linux-*|*-apple-darwin*|ia64-*-linux-*|x86_64-*-freebsd*|i*86-*-freebsd*) :
+ if $FC -V 2>&1 | grep '^Intel(R).*Fortran.*Compiler.*Version 15.0.[123]' >/dev/null; then :
+ case " $FCFLAGS $LDFLAGS " in #(
+ *\ -Qlocation,ld,*\ *) :
+ acx_cv_disable_shared=yes ;; #(
+ *) :
+ FCFLAGS="$FCFLAGS -Qlocation,ld,$ac_abs_confdir/util/icomp15" ;;
+esac
+fi ;; #(
+ *) :
+ ;;
+esac
+ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_disable_shared" >&5
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ ac_ext=f
+ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
+ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_f77_compiler_gnu
+
+ $as_echo "$as_me:${as_lineno-$LINENO}: testing if $F77 cannot build working shared objects" >&5
+ case $host in #(
+ *-ibm-aix*) :
+ if $F77 -G -v 2>&1 | grep ' -binitfini:poe_remote_main ' >/dev/null; then :
+ acx_cv_disable_shared=yes
+fi ;; #(
+ x86_64-*-linux-*|i*86-*-linux-*|*-apple-darwin*|ia64-*-linux-*|x86_64-*-freebsd*|i*86-*-freebsd*) :
+ if $F77 -V 2>&1 | grep '^Intel(R).*Fortran.*Compiler.*Version 15.0.[123]' >/dev/null; then :
+ case " $FFLAGS $LDFLAGS " in #(
+ *\ -Qlocation,ld,*\ *) :
+ acx_cv_disable_shared=yes ;; #(
+ *) :
+ FFLAGS="$FFLAGS -Qlocation,ld,$ac_abs_confdir/util/icomp15" ;;
+esac
+fi ;; #(
+ *) :
+ ;;
+esac
+ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_disable_shared" >&5
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+ $as_echo "$as_me:${as_lineno-$LINENO}: testing if $CC cannot build working shared objects" >&5
+ case $host in #(
+ *-ibm-aix*) :
+ if $CC -G -v 2>&1 | grep ' -binitfini:poe_remote_main ' >/dev/null; then :
+ acx_cv_disable_shared=yes
+fi ;; #(
+ x86_64-*-linux-*|i*86-*-linux-*|*-apple-darwin*|ia64-*-linux-*|x86_64-*-freebsd*|i*86-*-freebsd*) :
+ if $CC -V 2>&1 | grep '^Intel(R).*Fortran.*Compiler.*Version 15.0.[123]' >/dev/null; then :
+ case " $CFLAGS $LDFLAGS " in #(
+ *\ -Qlocation,ld,*\ *) :
+ acx_cv_disable_shared=yes ;; #(
+ *) :
+ CFLAGS="$CFLAGS -Qlocation,ld,$ac_abs_confdir/util/icomp15" ;;
+esac
+fi ;; #(
+ *) :
+ ;;
+esac
+ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_disable_shared" >&5
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_disable_shared" >&5
+$as_echo "$acx_cv_disable_shared" >&6; }
+ if test x"$acx_cv_disable_shared" = xyes; then :
+ enable_shared=no
+fi
+fi
+
+
+
+
+
+# Set options
+
+# Check whether --with-pic was given.
+if test "${with_pic+set}" = set; then :
+ withval=$with_pic; lt_p=${PACKAGE-default}
+ case $withval in
+ yes|no) pic_mode=$withval ;;
+ *)
+ pic_mode=default
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
+ for lt_pkg in $withval; do
+ IFS=$lt_save_ifs
+ if test "X$lt_pkg" = "X$lt_p"; then
+ pic_mode=yes
+ fi
+ done
+ IFS=$lt_save_ifs
+ ;;
+ esac
+else
+ pic_mode=yes
+fi
+
+
+
+
+
+
+
+
+
+ enable_dlopen=no
+
+
+ enable_win32_dll=no
+
+
+ # Check whether --enable-shared was given.
+if test "${enable_shared+set}" = set; then :
+ enableval=$enable_shared; p=${PACKAGE-default}
+ case $enableval in
+ yes) enable_shared=yes ;;
+ no) enable_shared=no ;;
+ *)
+ enable_shared=no
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
+ for pkg in $enableval; do
+ IFS=$lt_save_ifs
+ if test "X$pkg" = "X$p"; then
+ enable_shared=yes
+ fi
+ done
+ IFS=$lt_save_ifs
+ ;;
+ esac
+else
+ enable_shared=yes
+fi
+
+
+
+
+
+
+
+
+
+ # Check whether --enable-static was given.
+if test "${enable_static+set}" = set; then :
+ enableval=$enable_static; p=${PACKAGE-default}
+ case $enableval in
+ yes) enable_static=yes ;;
+ no) enable_static=no ;;
+ *)
+ enable_static=no
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
+ for pkg in $enableval; do
+ IFS=$lt_save_ifs
+ if test "X$pkg" = "X$p"; then
+ enable_static=yes
+ fi
+ done
+ IFS=$lt_save_ifs
+ ;;
+ esac
+else
+ enable_static=yes
+fi
+
+
+
+
+
+
+
+
+
+
+ # Check whether --enable-fast-install was given.
+if test "${enable_fast_install+set}" = set; then :
+ enableval=$enable_fast_install; p=${PACKAGE-default}
+ case $enableval in
+ yes) enable_fast_install=yes ;;
+ no) enable_fast_install=no ;;
+ *)
+ enable_fast_install=no
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
+ for pkg in $enableval; do
+ IFS=$lt_save_ifs
+ if test "X$pkg" = "X$p"; then
+ enable_fast_install=yes
+ fi
+ done
+ IFS=$lt_save_ifs
+ ;;
+ esac
+else
+ enable_fast_install=yes
+fi
+
+
+
+
+
+
+
+
+ shared_archive_member_spec=
+case $host,$enable_shared in
+power*-*-aix[5-9]*,yes)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking which variant of shared library versioning to provide" >&5
+$as_echo_n "checking which variant of shared library versioning to provide... " >&6; }
+
+# Check whether --with-aix-soname was given.
+if test "${with_aix_soname+set}" = set; then :
+ withval=$with_aix_soname; case $withval in
+ aix|svr4|both)
+ ;;
+ *)
+ as_fn_error $? "Unknown argument to --with-aix-soname" "$LINENO" 5
+ ;;
+ esac
+ lt_cv_with_aix_soname=$with_aix_soname
+else
+ if ${lt_cv_with_aix_soname+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_with_aix_soname=aix
+fi
+
+ with_aix_soname=$lt_cv_with_aix_soname
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_aix_soname" >&5
+$as_echo "$with_aix_soname" >&6; }
+ if test aix != "$with_aix_soname"; then
+ # For the AIX way of multilib, we name the shared archive member
+ # based on the bitwidth used, traditionally 'shr.o' or 'shr_64.o',
+ # and 'shr.imp' or 'shr_64.imp', respectively, for the Import File.
+ # Even when GNU compilers ignore OBJECT_MODE but need '-maix64' flag,
+ # the AIX toolchain works better with OBJECT_MODE set (default 32).
+ if test 64 = "${OBJECT_MODE-32}"; then
+ shared_archive_member_spec=shr_64
+ else
+ shared_archive_member_spec=shr
+ fi
+ fi
+ ;;
+*)
+ with_aix_soname=aix
+ ;;
+esac
+
+
+
+
+
+
+
+
+
+
+# This can be used to rebuild libtool when needed
+LIBTOOL_DEPS=$ltmain
+
+# Always use our own libtool.
+LIBTOOL='$(SHELL) $(top_builddir)/libtool'
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+test -z "$LN_S" && LN_S="ln -s"
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+if test -n "${ZSH_VERSION+set}"; then
+ setopt NO_GLOB_SUBST
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5
+$as_echo_n "checking for objdir... " >&6; }
+if ${lt_cv_objdir+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ rm -f .libs 2>/dev/null
+mkdir .libs 2>/dev/null
+if test -d .libs; then
+ lt_cv_objdir=.libs
+else
+ # MS-DOS does not allow filenames that begin with a dot.
+ lt_cv_objdir=_libs
+fi
+rmdir .libs 2>/dev/null
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5
+$as_echo "$lt_cv_objdir" >&6; }
+objdir=$lt_cv_objdir
+
+
+
+
+
+cat >>confdefs.h <<_ACEOF
+#define LT_OBJDIR "$lt_cv_objdir/"
+_ACEOF
+
+
+
+
+case $host_os in
+aix3*)
+ # AIX sometimes has problems with the GCC collect2 program. For some
+ # reason, if we set the COLLECT_NAMES environment variable, the problems
+ # vanish in a puff of smoke.
+ if test set != "${COLLECT_NAMES+set}"; then
+ COLLECT_NAMES=
+ export COLLECT_NAMES
+ fi
+ ;;
+esac
+
+# Global variables:
+ofile=libtool
+can_build_shared=yes
+
+# All known linkers require a '.a' archive for static linking (except MSVC,
+# which needs '.lib').
+libext=a
+
+with_gnu_ld=$lt_cv_prog_gnu_ld
+
+old_CC=$CC
+old_CFLAGS=$CFLAGS
+
+# Set sane defaults for various variables
+test -z "$CC" && CC=cc
+test -z "$LTCC" && LTCC=$CC
+test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS
+test -z "$LD" && LD=ld
+test -z "$ac_objext" && ac_objext=o
+
+func_cc_basename $compiler
+cc_basename=$func_cc_basename_result
+
+
+# Only perform the check for file, if the check method requires it
+test -z "$MAGIC_CMD" && MAGIC_CMD=file
+case $deplibs_check_method in
+file_magic*)
+ if test "$file_magic_cmd" = '$MAGIC_CMD'; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5
+$as_echo_n "checking for ${ac_tool_prefix}file... " >&6; }
+if ${lt_cv_path_MAGIC_CMD+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ case $MAGIC_CMD in
+[\\/*] | ?:[\\/]*)
+ lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path.
+ ;;
+*)
+ lt_save_MAGIC_CMD=$MAGIC_CMD
+ lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
+ ac_dummy="/usr/bin$PATH_SEPARATOR$PATH"
+ for ac_dir in $ac_dummy; do
+ IFS=$lt_save_ifs
+ test -z "$ac_dir" && ac_dir=.
+ if test -f "$ac_dir/${ac_tool_prefix}file"; then
+ lt_cv_path_MAGIC_CMD=$ac_dir/"${ac_tool_prefix}file"
+ if test -n "$file_magic_test_file"; then
+ case $deplibs_check_method in
+ "file_magic "*)
+ file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
+ MAGIC_CMD=$lt_cv_path_MAGIC_CMD
+ if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
+ $EGREP "$file_magic_regex" > /dev/null; then
+ :
+ else
+ cat <<_LT_EOF 1>&2
+
+*** Warning: the command libtool uses to detect shared libraries,
+*** $file_magic_cmd, produces output that libtool cannot recognize.
+*** The result is that libtool may fail to recognize shared libraries
+*** as such. This will affect the creation of libtool libraries that
+*** depend on shared libraries, but programs linked with such libtool
+*** libraries will work regardless of this problem. Nevertheless, you
+*** may want to report the problem to your system manager and/or to
+*** bug-libtool@gnu.org
+
+_LT_EOF
+ fi ;;
+ esac
+ fi
+ break
+ fi
+ done
+ IFS=$lt_save_ifs
+ MAGIC_CMD=$lt_save_MAGIC_CMD
+ ;;
+esac
+fi
+
+MAGIC_CMD=$lt_cv_path_MAGIC_CMD
+if test -n "$MAGIC_CMD"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5
+$as_echo "$MAGIC_CMD" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+
+
+
+if test -z "$lt_cv_path_MAGIC_CMD"; then
+ if test -n "$ac_tool_prefix"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5
+$as_echo_n "checking for file... " >&6; }
+if ${lt_cv_path_MAGIC_CMD+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ case $MAGIC_CMD in
+[\\/*] | ?:[\\/]*)
+ lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path.
+ ;;
+*)
+ lt_save_MAGIC_CMD=$MAGIC_CMD
+ lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
+ ac_dummy="/usr/bin$PATH_SEPARATOR$PATH"
+ for ac_dir in $ac_dummy; do
+ IFS=$lt_save_ifs
+ test -z "$ac_dir" && ac_dir=.
+ if test -f "$ac_dir/file"; then
+ lt_cv_path_MAGIC_CMD=$ac_dir/"file"
+ if test -n "$file_magic_test_file"; then
+ case $deplibs_check_method in
+ "file_magic "*)
+ file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
+ MAGIC_CMD=$lt_cv_path_MAGIC_CMD
+ if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
+ $EGREP "$file_magic_regex" > /dev/null; then
+ :
+ else
+ cat <<_LT_EOF 1>&2
+
+*** Warning: the command libtool uses to detect shared libraries,
+*** $file_magic_cmd, produces output that libtool cannot recognize.
+*** The result is that libtool may fail to recognize shared libraries
+*** as such. This will affect the creation of libtool libraries that
+*** depend on shared libraries, but programs linked with such libtool
+*** libraries will work regardless of this problem. Nevertheless, you
+*** may want to report the problem to your system manager and/or to
+*** bug-libtool@gnu.org
+
+_LT_EOF
+ fi ;;
+ esac
+ fi
+ break
+ fi
+ done
+ IFS=$lt_save_ifs
+ MAGIC_CMD=$lt_save_MAGIC_CMD
+ ;;
+esac
+fi
+
+MAGIC_CMD=$lt_cv_path_MAGIC_CMD
+if test -n "$MAGIC_CMD"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5
+$as_echo "$MAGIC_CMD" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ else
+ MAGIC_CMD=:
+ fi
+fi
+
+ fi
+ ;;
+esac
+
+# Use C for the default configuration in the libtool script
+
+lt_save_CC=$CC
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+
+# Source file extension for C test sources.
+ac_ext=c
+
+# Object file extension for compiled C test sources.
+objext=o
+objext=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code="int some_variable = 0;"
+
+# Code to be used in simple link tests
+lt_simple_link_test_code='int main(){return(0);}'
+
+
+
+
+
+
+
+# If no C compiler was specified, use CC.
+LTCC=${LTCC-"$CC"}
+
+# If no C compiler flags were specified, use CFLAGS.
+LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
+
+# Allow CC to be a program name with arguments.
+compiler=$CC
+
+
+
+
+
+# Save the default compiler, since it gets overwritten when the other
+# tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP.
+compiler_DEFAULT=$CC
+
+# save warnings/boilerplate of simple test code
+ac_outfile=conftest.$ac_objext
+echo "$lt_simple_compile_test_code" >conftest.$ac_ext
+eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_compiler_boilerplate=`cat conftest.err`
+$RM conftest*
+
+ac_outfile=conftest.$ac_objext
+echo "$lt_simple_link_test_code" >conftest.$ac_ext
+eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_linker_boilerplate=`cat conftest.err`
+$RM -r conftest*
+
+
+## CAVEAT EMPTOR:
+## There is no encapsulation within the following macros, do not change
+## the running order or otherwise move them around unless you know exactly
+## what you are doing...
+if test -n "$compiler"; then
+
+lt_prog_compiler_no_builtin_flag=
+
+if test yes = "$GCC"; then
+ case $cc_basename in
+ nvcc*)
+ lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;;
+ *)
+ lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;;
+ esac
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5
+$as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; }
+if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_rtti_exceptions=no
+ ac_outfile=conftest.$ac_objext
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+ lt_compiler_flag="-fno-rtti -fno-exceptions" ## exclude from sc_useless_quotes_in_assignment
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ # The option is referenced via a variable to avoid confusing sed.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>conftest.err)
+ ac_status=$?
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s "$ac_outfile"; then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings other than the usual output.
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_rtti_exceptions=yes
+ fi
+ fi
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5
+$as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; }
+
+if test yes = "$lt_cv_prog_compiler_rtti_exceptions"; then
+ lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions"
+else
+ :
+fi
+
+fi
+
+
+
+
+
+
+ lt_prog_compiler_wl=
+lt_prog_compiler_pic=
+lt_prog_compiler_static=
+
+
+ if test yes = "$GCC"; then
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_static='-static'
+
+ case $host_os in
+ aix*)
+ # All AIX code is PIC.
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ lt_prog_compiler_static='-Bstatic'
+ fi
+ lt_prog_compiler_pic='-fPIC'
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ lt_prog_compiler_pic='-fPIC'
+ ;;
+ m68k)
+ # FIXME: we need at least 68020 code to build shared libraries, but
+ # adding the '-m68020' flag to GCC prevents building anything better,
+ # like '-m68040'.
+ lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4'
+ ;;
+ esac
+ ;;
+
+ beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
+ # PIC is the default for these OSes.
+ ;;
+
+ mingw* | cygwin* | pw32* | os2* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ # Although the cygwin gcc ignores -fPIC, still need this for old-style
+ # (--disable-auto-import) libraries
+ lt_prog_compiler_pic='-DDLL_EXPORT'
+ case $host_os in
+ os2*)
+ lt_prog_compiler_static='$wl-static'
+ ;;
+ esac
+ ;;
+
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ lt_prog_compiler_pic='-fno-common'
+ ;;
+
+ haiku*)
+ # PIC is the default for Haiku.
+ # The "-static" flag exists, but is broken.
+ lt_prog_compiler_static=
+ ;;
+
+ hpux*)
+ # PIC is the default for 64-bit PA HP-UX, but not for 32-bit
+ # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
+ # sets the default TLS model and affects inlining.
+ case $host_cpu in
+ hppa*64*)
+ # +Z the default
+ ;;
+ *)
+ lt_prog_compiler_pic='-fPIC'
+ ;;
+ esac
+ ;;
+
+ interix[3-9]*)
+ # Interix 3.x gcc -fpic/-fPIC options generate broken code.
+ # Instead, we relocate shared libraries at runtime.
+ ;;
+
+ msdosdjgpp*)
+ # Just because we use GCC doesn't mean we suddenly get shared libraries
+ # on systems that don't support them.
+ lt_prog_compiler_can_build_shared=no
+ enable_shared=no
+ ;;
+
+ *nto* | *qnx*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ lt_prog_compiler_pic='-fPIC -shared'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ lt_prog_compiler_pic=-Kconform_pic
+ fi
+ ;;
+
+ *)
+ lt_prog_compiler_pic='-fPIC'
+ ;;
+ esac
+
+ case $cc_basename in
+ nvcc*) # Cuda Compiler Driver 2.2
+ lt_prog_compiler_wl='-Xlinker '
+ if test -n "$lt_prog_compiler_pic"; then
+ lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic"
+ fi
+ ;;
+ esac
+ else
+ # PORTME Check for flag to pass linker flags through the system compiler.
+ case $host_os in
+ aix*)
+ lt_prog_compiler_wl='-Wl,'
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ lt_prog_compiler_static='-Bstatic'
+ else
+ lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp'
+ fi
+ ;;
+
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ lt_prog_compiler_pic='-fno-common'
+ case $cc_basename in
+ nagfor*)
+ # NAG Fortran compiler
+ lt_prog_compiler_wl='-Wl,-Wl,,'
+ lt_prog_compiler_pic='-PIC'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+ esac
+ ;;
+
+ mingw* | cygwin* | pw32* | os2* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ lt_prog_compiler_pic='-DDLL_EXPORT'
+ case $host_os in
+ os2*)
+ lt_prog_compiler_static='$wl-static'
+ ;;
+ esac
+ ;;
+
+ hpux9* | hpux10* | hpux11*)
+ lt_prog_compiler_wl='-Wl,'
+ # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
+ # not for PA HP-UX.
+ case $host_cpu in
+ hppa*64*|ia64*)
+ # +Z the default
+ ;;
+ *)
+ lt_prog_compiler_pic='+Z'
+ ;;
+ esac
+ # Is there a better lt_prog_compiler_static that works with the bundled CC?
+ lt_prog_compiler_static='$wl-a ${wl}archive'
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ lt_prog_compiler_wl='-Wl,'
+ # PIC (with -KPIC) is the default.
+ lt_prog_compiler_static='-non_shared'
+ ;;
+
+ linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ case $cc_basename in
+ # old Intel for x86_64, which still supported -KPIC.
+ ecc*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-KPIC'
+ lt_prog_compiler_static='-static'
+ ;;
+ # icc used to be incompatible with GCC.
+ # ICC 10 doesn't accept -KPIC any more.
+ icc* | ifort*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-fPIC'
+ lt_prog_compiler_static='-static'
+ ;;
+ # Lahey Fortran 8.1.
+ lf95*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='--shared'
+ lt_prog_compiler_static='--static'
+ ;;
+ nagfor*)
+ # NAG Fortran compiler
+ lt_prog_compiler_wl='-Wl,-Wl,,'
+ lt_prog_compiler_pic='-PIC'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+ tcc*)
+ # Fabrice Bellard et al's Tiny C Compiler
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-fPIC'
+ lt_prog_compiler_static='-static'
+ ;;
+ pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
+ # Portland Group compilers (*not* the Pentium gcc compiler,
+ # which looks to be a dead project)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-fpic'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+ ccc*)
+ lt_prog_compiler_wl='-Wl,'
+ # All Alpha code is PIC.
+ lt_prog_compiler_static='-non_shared'
+ ;;
+ xl* | bgxl* | bgf* | mpixl*)
+ # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-qpic'
+ lt_prog_compiler_static='-qstaticlink'
+ ;;
+ *)
+ case `$CC -V 2>&1 | sed -n 1,5p` in
+ *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*)
+ # Sun Fortran 8.3 passes all unrecognized flags to the linker
+ lt_prog_compiler_pic='-KPIC'
+ lt_prog_compiler_static='-Bstatic'
+ lt_prog_compiler_wl=''
+ ;;
+ *Sun\ F* | *Sun*Fortran*)
+ lt_prog_compiler_pic='-KPIC'
+ lt_prog_compiler_static='-Bstatic'
+ lt_prog_compiler_wl='-Qoption ld '
+ ;;
+ *Sun\ C*)
+ # Sun C 5.9
+ lt_prog_compiler_pic='-KPIC'
+ lt_prog_compiler_static='-Bstatic'
+ lt_prog_compiler_wl='-Wl,'
+ ;;
+ *Intel*\ [CF]*Compiler*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-fPIC'
+ lt_prog_compiler_static='-static'
+ ;; #(
+ *NAG\ Fortran\ Compiler*)
+ lt_prog_compiler_wl='-Wl,-Wl,,'
+ lt_prog_compiler_pic='-PIC'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+ *PGI\ Compilers\ and\ Tools*|*NVIDIA\ Compilers\ and\ Tools*|*Portland\ Group*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-fpic'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+ esac
+ ;;
+ esac
+ ;;
+
+ newsos6)
+ lt_prog_compiler_pic='-KPIC'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+
+ *nto* | *qnx*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ lt_prog_compiler_pic='-fPIC -shared'
+ ;;
+
+ osf3* | osf4* | osf5*)
+ lt_prog_compiler_wl='-Wl,'
+ # All OSF/1 code is PIC.
+ lt_prog_compiler_static='-non_shared'
+ ;;
+
+ rdos*)
+ lt_prog_compiler_static='-non_shared'
+ ;;
+
+ solaris*)
+ lt_prog_compiler_pic='-KPIC'
+ lt_prog_compiler_static='-Bstatic'
+ case $cc_basename in
+ f77* | f90* | f95* | sunf77* | sunf90* | sunf95*)
+ lt_prog_compiler_wl='-Qoption ld ';;
+ *)
+ lt_prog_compiler_wl='-Wl,';;
+ esac
+ ;;
+
+ sunos4*)
+ lt_prog_compiler_wl='-Qoption ld '
+ lt_prog_compiler_pic='-PIC'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+
+ sysv4 | sysv4.2uw2* | sysv4.3*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-KPIC'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ lt_prog_compiler_pic='-Kconform_pic'
+ lt_prog_compiler_static='-Bstatic'
+ fi
+ ;;
+
+ sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-KPIC'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+
+ unicos*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_can_build_shared=no
+ ;;
+
+ uts4*)
+ lt_prog_compiler_pic='-pic'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
+
+ *)
+ lt_prog_compiler_can_build_shared=no
+ ;;
+ esac
+ fi
+
+case $host_os in
+ # For platforms that do not support PIC, -DPIC is meaningless:
+ *djgpp*)
+ lt_prog_compiler_pic=
+ ;;
+ *)
+ lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC"
+ ;;
+esac
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
+$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
+if ${lt_cv_prog_compiler_pic+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_pic=$lt_prog_compiler_pic
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5
+$as_echo "$lt_cv_prog_compiler_pic" >&6; }
+lt_prog_compiler_pic=$lt_cv_prog_compiler_pic
+
+#
+# Check to make sure the PIC flag actually works.
+#
+if test -n "$lt_prog_compiler_pic"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5
+$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; }
+if ${lt_cv_prog_compiler_pic_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_pic_works=no
+ ac_outfile=conftest.$ac_objext
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+ lt_compiler_flag="$lt_prog_compiler_pic -DPIC" ## exclude from sc_useless_quotes_in_assignment
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ # The option is referenced via a variable to avoid confusing sed.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>conftest.err)
+ ac_status=$?
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s "$ac_outfile"; then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings other than the usual output.
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_pic_works=yes
+ fi
+ fi
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5
+$as_echo "$lt_cv_prog_compiler_pic_works" >&6; }
+
+if test yes = "$lt_cv_prog_compiler_pic_works"; then
+ case $lt_prog_compiler_pic in
+ "" | " "*) ;;
+ *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;;
+ esac
+else
+ lt_prog_compiler_pic=
+ lt_prog_compiler_can_build_shared=no
+fi
+
+fi
+
+
+
+
+
+
+
+
+
+
+
+#
+# Check to make sure the static flag actually works.
+#
+wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\"
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
+$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
+if ${lt_cv_prog_compiler_static_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_static_works=no
+ save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
+ echo "$lt_simple_link_test_code" > conftest.$ac_ext
+ if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
+ # The linker can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ if test -s conftest.err; then
+ # Append any errors to the config.log.
+ cat conftest.err 1>&5
+ $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_static_works=yes
+ fi
+ else
+ lt_cv_prog_compiler_static_works=yes
+ fi
+ fi
+ $RM -r conftest*
+ LDFLAGS=$save_LDFLAGS
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5
+$as_echo "$lt_cv_prog_compiler_static_works" >&6; }
+
+if test yes = "$lt_cv_prog_compiler_static_works"; then
+ :
+else
+ lt_prog_compiler_static=
+fi
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
+$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
+if ${lt_cv_prog_compiler_c_o+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_c_o=no
+ $RM -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
+ $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
+ if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_c_o=yes
+ fi
+ fi
+ chmod u+w . 2>&5
+ $RM conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
+ $RM out/* && rmdir out
+ cd ..
+ $RM -r conftest
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5
+$as_echo "$lt_cv_prog_compiler_c_o" >&6; }
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
+$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
+if ${lt_cv_prog_compiler_c_o+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_c_o=no
+ $RM -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
+ $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
+ if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_c_o=yes
+ fi
+ fi
+ chmod u+w . 2>&5
+ $RM conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
+ $RM out/* && rmdir out
+ cd ..
+ $RM -r conftest
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5
+$as_echo "$lt_cv_prog_compiler_c_o" >&6; }
+
+
+
+
+hard_links=nottested
+if test no = "$lt_cv_prog_compiler_c_o" && test no != "$need_locks"; then
+ # do not overwrite the value of need_locks provided by the user
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
+$as_echo_n "checking if we can lock with hard links... " >&6; }
+ hard_links=yes
+ $RM conftest*
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ touch conftest.a
+ ln conftest.a conftest.b 2>&5 || hard_links=no
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
+$as_echo "$hard_links" >&6; }
+ if test no = "$hard_links"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5
+$as_echo "$as_me: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&2;}
+ need_locks=warn
+ fi
+else
+ need_locks=no
+fi
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
+$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
+
+ runpath_var=
+ allow_undefined_flag=
+ always_export_symbols=no
+ archive_cmds=
+ archive_expsym_cmds=
+ compiler_needs_object=no
+ enable_shared_with_static_runtimes=no
+ export_dynamic_flag_spec=
+ export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ hardcode_automatic=no
+ hardcode_direct=no
+ hardcode_direct_absolute=no
+ hardcode_libdir_flag_spec=
+ hardcode_libdir_separator=
+ hardcode_minus_L=no
+ hardcode_shlibpath_var=unsupported
+ inherit_rpath=no
+ link_all_deplibs=unknown
+ module_cmds=
+ module_expsym_cmds=
+ old_archive_from_new_cmds=
+ old_archive_from_expsyms_cmds=
+ thread_safe_flag_spec=
+ whole_archive_flag_spec=
+ # include_expsyms should be a list of space-separated symbols to be *always*
+ # included in the symbol list
+ include_expsyms=
+ # exclude_expsyms can be an extended regexp of symbols to exclude
+ # it will be wrapped by ' (' and ')$', so one must not match beginning or
+ # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc',
+ # as well as any symbol that contains 'd'.
+ exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
+ # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
+ # platforms (ab)use it in PIC code, but their linkers get confused if
+ # the symbol is explicitly referenced. Since portable code cannot
+ # rely on this symbol name, it's probably fine to never include it in
+ # preloaded symbol tables.
+ # Exclude shared library initialization/finalization symbols.
+ extract_expsyms_cmds=
+
+ case $host_os in
+ cygwin* | mingw* | pw32* | cegcc*)
+ # FIXME: the MSVC++ port hasn't been tested in a loooong time
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ if test yes != "$GCC"; then
+ with_gnu_ld=no
+ fi
+ ;;
+ interix*)
+ # we just hope/assume this is gcc and not c89 (= MSVC++)
+ with_gnu_ld=yes
+ ;;
+ openbsd* | bitrig*)
+ with_gnu_ld=no
+ ;;
+ esac
+
+ ld_shlibs=yes
+
+ # On some targets, GNU ld is compatible enough with the native linker
+ # that we're better off using the native interface for both.
+ lt_use_gnu_ld_interface=no
+ if test yes = "$with_gnu_ld"; then
+ case $host_os in
+ aix*)
+ # The AIX port of GNU ld has always aspired to compatibility
+ # with the native linker. However, as the warning in the GNU ld
+ # block says, versions before 2.19.5* couldn't really create working
+ # shared libraries, regardless of the interface used.
+ case `$LD -v 2>&1` in
+ *\ \(GNU\ Binutils\)\ 2.19.5*) ;;
+ *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;;
+ *\ \(GNU\ Binutils\)\ [3-9]*) ;;
+ *)
+ lt_use_gnu_ld_interface=yes
+ ;;
+ esac
+ ;;
+ *)
+ lt_use_gnu_ld_interface=yes
+ ;;
+ esac
+ fi
+
+ if test yes = "$lt_use_gnu_ld_interface"; then
+ # If archive_cmds runs LD, not CC, wlarc should be empty
+ wlarc='$wl'
+
+ # Set some defaults for GNU ld with shared library support. These
+ # are reset later if shared libraries are not supported. Putting them
+ # here allows them to be overridden if necessary.
+ runpath_var=LD_RUN_PATH
+ hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
+ export_dynamic_flag_spec='$wl--export-dynamic'
+ # ancient GNU ld didn't support --whole-archive et. al.
+ if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
+ whole_archive_flag_spec=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive'
+ else
+ whole_archive_flag_spec=
+ fi
+ supports_anon_versioning=no
+ case `$LD -v | $SED -e 's/(^)\+)\s\+//' 2>&1` in
+ *GNU\ gold*) supports_anon_versioning=yes ;;
+ *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11
+ *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
+ *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
+ *\ 2.11.*) ;; # other 2.11 versions
+ *) supports_anon_versioning=yes ;;
+ esac
+
+ # See if GNU ld supports shared libraries.
+ case $host_os in
+ aix[3-9]*)
+ # On AIX/PPC, the GNU linker is very broken
+ if test ia64 != "$host_cpu"; then
+ ld_shlibs=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: the GNU linker, at least up to release 2.19, is reported
+*** to be unable to reliably create shared libraries on AIX.
+*** Therefore, libtool is disabling shared libraries support. If you
+*** really care for shared libraries, you may want to install binutils
+*** 2.20 or above, or modify your PATH so that a non-GNU linker is found.
+*** You will then need to restart the configuration process.
+
+_LT_EOF
+ fi
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds=''
+ ;;
+ m68k)
+ archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ hardcode_libdir_flag_spec='-L$libdir'
+ hardcode_minus_L=yes
+ ;;
+ esac
+ ;;
+
+ beos*)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ allow_undefined_flag=unsupported
+ # Joseph Beckenbach <jrb3@best.com> says some releases of gcc
+ # support --undefined. This deserves some investigation. FIXME
+ archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ else
+ ld_shlibs=no
+ fi
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless,
+ # as there is no search path for DLLs.
+ hardcode_libdir_flag_spec='-L$libdir'
+ export_dynamic_flag_spec='$wl--export-all-symbols'
+ allow_undefined_flag=unsupported
+ always_export_symbols=no
+ enable_shared_with_static_runtimes=yes
+ export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols'
+ exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'
+
+ if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
+ archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ # If the export-symbols file already is a .def file, use it as
+ # is; otherwise, prepend EXPORTS...
+ archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
+ cp $export_symbols $output_objdir/$soname.def;
+ else
+ echo EXPORTS > $output_objdir/$soname.def;
+ cat $export_symbols >> $output_objdir/$soname.def;
+ fi~
+ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ else
+ ld_shlibs=no
+ fi
+ ;;
+
+ haiku*)
+ archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ link_all_deplibs=yes
+ ;;
+
+ os2*)
+ hardcode_libdir_flag_spec='-L$libdir'
+ hardcode_minus_L=yes
+ allow_undefined_flag=unsupported
+ shrext_cmds=.dll
+ archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ enable_shared_with_static_runtimes=yes
+ ;;
+
+ interix[3-9]*)
+ hardcode_direct=no
+ hardcode_shlibpath_var=no
+ hardcode_libdir_flag_spec='$wl-rpath,$libdir'
+ export_dynamic_flag_spec='$wl-E'
+ # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
+ # Instead, shared libraries are loaded at an image base (0x10000000 by
+ # default) and relocated if they conflict, which is a slow very memory
+ # consuming and fragmenting process. To avoid this, we pick a random,
+ # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
+ # time. Moving up from 0x10000000 also allows more sbrk(2) space.
+ archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ archive_expsym_cmds='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ ;;
+
+ gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
+ tmp_diet=no
+ if test linux-dietlibc = "$host_os"; then
+ case $cc_basename in
+ diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
+ esac
+ fi
+ if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
+ && test no = "$tmp_diet"
+ then
+ tmp_addflag=' $pic_flag'
+ tmp_sharedflag='-shared'
+ tmp_compiler_flags='$compiler_flags'
+ case $cc_basename,$host_cpu in
+ pgcc*) # Portland Group C compiler
+ whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ tmp_addflag=' $pic_flag'
+ ;;
+ pgf77* | pgf90* | pgf95* | pgfortran*)
+ # Portland Group f77 and f90 compilers
+ whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ tmp_addflag=' $pic_flag -Mnomain' ;;
+ ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
+ tmp_addflag=' -i_dynamic' ;;
+ efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
+ tmp_addflag=' -i_dynamic -nofor_main' ;;
+ ifc* | ifort*) # Intel Fortran compiler
+ tmp_addflag=' -nofor_main' ;;
+ lf95*) # Lahey Fortran 8.1
+ whole_archive_flag_spec=
+ tmp_sharedflag='--shared' ;;
+ nagfor*) # NAGFOR 5.3
+ tmp_sharedflag='-Wl,-shared'
+ tmp_compiler_flags='`echo " $compiler_flags " | sed -E -e '"'"': start'"'"' -e '"'"'s/ -W[cl],-no-pie[[:blank:]]/ /g;t start'"'"' -e '"'"'s/^ //;s/ $//'"'"'`' ;;
+ xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below)
+ tmp_sharedflag='-qmkshrobj'
+ tmp_addflag= ;;
+ nvcc*) # Cuda Compiler Driver 2.2
+ whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ compiler_needs_object=yes
+ ;;
+ esac
+ case `$CC -V 2>&1 | sed -n 1,5p` in
+ *Sun\ C*) # Sun C 5.9
+ whole_archive_flag_spec='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ compiler_needs_object=yes
+ tmp_sharedflag='-G' ;;
+ *Sun\ F*) # Sun Fortran 8.3
+ tmp_sharedflag='-G' ;;
+ *NAG\ Fortran\ Compiler*)
+ tmp_sharedflag='-Wl,-shared'
+ tmp_compiler_flags='`echo " $compiler_flags " | sed -E -e '"'"': start'"'"' -e '"'"'s/ -W[cl],-no-pie[[:blank:]]/ /g;t start'"'"' -e '"'"'s/^ //;s/ $//'"'"'`' ;;
+ esac
+ archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs '"$tmp_compiler_flags"' $wl-soname $wl$soname -o $lib'
+
+ if test yes = "$supports_anon_versioning"; then
+ archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs '"$tmp_compiler_flags"' $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib'
+ fi
+
+ case $cc_basename in
+ tcc*)
+ export_dynamic_flag_spec='-rdynamic'
+ ;;
+ xlf* | bgf* | bgxlf* | mpixlf*)
+ # IBM XL Fortran 10.1 on PPC cannot create shared libs itself
+ whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive'
+ hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
+ archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib'
+ if test yes = "$supports_anon_versioning"; then
+ archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
+ fi
+ ;;
+ esac
+ else
+ ld_shlibs=no
+ fi
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
+ wlarc=
+ else
+ archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ fi
+ ;;
+
+ solaris*)
+ if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
+ ld_shlibs=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: The releases 2.8.* of the GNU linker cannot reliably
+*** create shared libraries on Solaris systems. Therefore, libtool
+*** is disabling shared libraries support. We urge you to upgrade GNU
+*** binutils to release 2.9.1 or newer. Another option is to modify
+*** your PATH or compiler configuration so that the native linker is
+*** used, and then restart.
+
+_LT_EOF
+ elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ ld_shlibs=no
+ fi
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
+ case `$LD -v 2>&1` in
+ *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
+ ld_shlibs=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot
+*** reliably create shared libraries on SCO systems. Therefore, libtool
+*** is disabling shared libraries support. We urge you to upgrade GNU
+*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
+*** your PATH or compiler configuration so that the native linker is
+*** used, and then restart.
+
+_LT_EOF
+ ;;
+ *)
+ # For security reasons, it is highly recommended that you always
+ # use absolute paths for naming shared libraries, and exclude the
+ # DT_RUNPATH tag from executables and libraries. But doing so
+ # requires that you compile everything twice, which is a pain.
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
+ archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ ld_shlibs=no
+ fi
+ ;;
+ esac
+ ;;
+
+ sunos4*)
+ archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ wlarc=
+ hardcode_direct=yes
+ hardcode_shlibpath_var=no
+ ;;
+
+ *)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ ld_shlibs=no
+ fi
+ ;;
+ esac
+
+ if test no = "$ld_shlibs"; then
+ runpath_var=
+ hardcode_libdir_flag_spec=
+ export_dynamic_flag_spec=
+ whole_archive_flag_spec=
+ fi
+ else
+ # PORTME fill in a description of your system's linker (not GNU ld)
+ case $host_os in
+ aix3*)
+ allow_undefined_flag=unsupported
+ always_export_symbols=yes
+ archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
+ # Note: this linker hardcodes the directories in LIBPATH if there
+ # are no directories specified by -L.
+ hardcode_minus_L=yes
+ if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then
+ # Neither direct hardcoding nor static linking is supported with a
+ # broken collect2.
+ hardcode_direct=unsupported
+ fi
+ ;;
+
+ aix[4-9]*)
+ if test ia64 = "$host_cpu"; then
+ # On IA64, the linker does run time linking by default, so we don't
+ # have to do anything special.
+ aix_use_runtimelinking=no
+ exp_sym_flag='-Bexport'
+ no_entry_flag=
+ else
+ # If we're using GNU nm, then we don't want the "-C" option.
+ # -C means demangle to GNU nm, but means don't demangle to AIX nm.
+ # Without the "-l" option, or with the "-B" option, AIX nm treats
+ # weak defined symbols like other global defined symbols, whereas
+ # GNU nm marks them as "W".
+ # While the 'weak' keyword is ignored in the Export File, we need
+ # it in the Import File for the 'aix-soname' feature, so we have
+ # to replace the "-B" option with "-P" for AIX nm.
+ if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
+ export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols'
+ else
+ export_symbols_cmds='`func_echo_all $NM | $SED -e '\''s/B\([^B]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && (substr(\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols'
+ fi
+ aix_use_runtimelinking=no
+
+ # Test if we are trying to use run time linking or normal
+ # AIX style linking. If -brtl is somewhere in LDFLAGS, we
+ # have runtime linking enabled, and use it for executables.
+ # For shared libraries, we enable/disable runtime linking
+ # depending on the kind of the shared library created -
+ # when "with_aix_soname,aix_use_runtimelinking" is:
+ # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables
+ # "aix,yes" lib.so shared, rtl:yes, for executables
+ # lib.a static archive
+ # "both,no" lib.so.V(shr.o) shared, rtl:yes
+ # lib.a(lib.so.V) shared, rtl:no, for executables
+ # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a(lib.so.V) shared, rtl:no
+ # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a static archive
+ case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
+ for ld_flag in $LDFLAGS; do
+ if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then
+ aix_use_runtimelinking=yes
+ break
+ fi
+ done
+ if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # With aix-soname=svr4, we create the lib.so.V shared archives only,
+ # so we don't have lib.a shared libs to link our executables.
+ # We have to force runtime linking in this case.
+ aix_use_runtimelinking=yes
+ LDFLAGS="$LDFLAGS -Wl,-brtl"
+ fi
+ ;;
+ esac
+
+ exp_sym_flag='-bexport'
+ no_entry_flag='-bnoentry'
+ fi
+
+ # When large executables or shared objects are built, AIX ld can
+ # have problems creating the table of contents. If linking a library
+ # or program results in "error TOC overflow" add -mminimal-toc to
+ # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
+ # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
+
+ archive_cmds=''
+ hardcode_direct=yes
+ hardcode_direct_absolute=yes
+ hardcode_libdir_separator=':'
+ link_all_deplibs=yes
+ file_list_spec='$wl-f,'
+ case $with_aix_soname,$aix_use_runtimelinking in
+ aix,*) ;; # traditional, no import file
+ svr4,* | *,yes) # use import file
+ # The Import File defines what to hardcode.
+ hardcode_direct=no
+ hardcode_direct_absolute=no
+ ;;
+ esac
+
+ if test yes = "$GCC"; then
+ case $host_os in aix4.[012]|aix4.[012].*)
+ # We only want to do this on AIX 4.2 and lower, the check
+ # below for broken collect2 doesn't work under 4.3+
+ collect2name=`$CC -print-prog-name=collect2`
+ if test -f "$collect2name" &&
+ strings "$collect2name" | $GREP resolve_lib_name >/dev/null
+ then
+ # We have reworked collect2
+ :
+ else
+ # We have old collect2
+ hardcode_direct=unsupported
+ # It fails to find uninstalled libraries when the uninstalled
+ # path is not listed in the libpath. Setting hardcode_minus_L
+ # to unsupported forces relinking
+ hardcode_minus_L=yes
+ hardcode_libdir_flag_spec='-L$libdir'
+ hardcode_libdir_separator=
+ fi
+ ;;
+ esac
+ shared_flag='-shared'
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag="$shared_flag "'$wl-G'
+ fi
+ # Need to ensure runtime linking is disabled for the traditional
+ # shared library, or the linker may eventually find shared libraries
+ # /with/ Import File - we do not want to mix them.
+ shared_flag_aix='-shared'
+ shared_flag_svr4='-shared $wl-G'
+ else
+ # not using gcc
+ if test ia64 = "$host_cpu"; then
+ # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
+ # chokes on -Wl,-G. The following line is correct:
+ shared_flag='-G'
+ else
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag='$wl-G'
+ else
+ shared_flag='$wl-bM:SRE'
+ fi
+ shared_flag_aix='$wl-bM:SRE'
+ shared_flag_svr4='$wl-G'
+ fi
+ fi
+
+ export_dynamic_flag_spec='$wl-bexpall'
+ # It seems that -bexpall does not export symbols beginning with
+ # underscore (_), so it is better to generate a list of symbols to export.
+ always_export_symbols=yes
+ if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # Warning - without using the other runtime loading flags (-brtl),
+ # -berok will link without error, but may produce a broken library.
+ allow_undefined_flag='-berok'
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ if test set = "${lt_cv_aix_libpath+set}"; then
+ aix_libpath=$lt_cv_aix_libpath
+else
+ if ${lt_cv_aix_libpath_+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+
+ lt_aix_libpath_sed='
+ /Import File Strings/,/^$/ {
+ /^0/ {
+ s/^0 *\([^ ]*\) *$/\1/
+ p
+ }
+ }'
+ lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ # Check for a 64-bit object if we didn't find anything.
+ if test -z "$lt_cv_aix_libpath_"; then
+ lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ if test -z "$lt_cv_aix_libpath_"; then
+ lt_cv_aix_libpath_=/usr/lib:/lib
+ fi
+
+fi
+
+ aix_libpath=$lt_cv_aix_libpath_
+fi
+
+ hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath"
+ archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag
+ else
+ if test ia64 = "$host_cpu"; then
+ hardcode_libdir_flag_spec='$wl-R $libdir:/usr/lib:/lib'
+ allow_undefined_flag="-z nodefs"
+ archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols"
+ else
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ if test set = "${lt_cv_aix_libpath+set}"; then
+ aix_libpath=$lt_cv_aix_libpath
+else
+ if ${lt_cv_aix_libpath_+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+
+ lt_aix_libpath_sed='
+ /Import File Strings/,/^$/ {
+ /^0/ {
+ s/^0 *\([^ ]*\) *$/\1/
+ p
+ }
+ }'
+ lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ # Check for a 64-bit object if we didn't find anything.
+ if test -z "$lt_cv_aix_libpath_"; then
+ lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ if test -z "$lt_cv_aix_libpath_"; then
+ lt_cv_aix_libpath_=/usr/lib:/lib
+ fi
+
+fi
+
+ aix_libpath=$lt_cv_aix_libpath_
+fi
+
+ hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath"
+ # Warning - without using the other run time loading flags,
+ # -berok will link without error, but may produce a broken library.
+ no_undefined_flag=' $wl-bernotok'
+ allow_undefined_flag=' $wl-berok'
+ if test yes = "$with_gnu_ld"; then
+ # We only use this code for GNU lds that support --whole-archive.
+ whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive'
+ else
+ # Exported symbols can be pulled into shared objects from archives
+ whole_archive_flag_spec='$convenience'
+ fi
+ archive_cmds_need_lc=yes
+ archive_expsym_cmds='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d'
+ # -brtl affects multiple linker settings, -berok does not and is overridden later
+ compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([, ]\\)%-berok\\1%g"`'
+ if test svr4 != "$with_aix_soname"; then
+ # This is similar to how AIX traditionally builds its shared libraries.
+ archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname'
+ fi
+ if test aix != "$with_aix_soname"; then
+ archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp'
+ else
+ # used by -dlpreopen to get the symbols
+ archive_expsym_cmds="$archive_expsym_cmds"'~$MV $output_objdir/$realname.d/$soname $output_objdir'
+ fi
+ archive_expsym_cmds="$archive_expsym_cmds"'~$RM -r $output_objdir/$realname.d'
+ fi
+ fi
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds=''
+ ;;
+ m68k)
+ archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ hardcode_libdir_flag_spec='-L$libdir'
+ hardcode_minus_L=yes
+ ;;
+ esac
+ ;;
+
+ bsdi[45]*)
+ export_dynamic_flag_spec=-rdynamic
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ # hardcode_libdir_flag_spec is actually meaningless, as there is
+ # no search path for DLLs.
+ case $cc_basename in
+ cl*)
+ # Native MSVC
+ hardcode_libdir_flag_spec=' '
+ allow_undefined_flag=unsupported
+ always_export_symbols=yes
+ file_list_spec='@'
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames='
+ archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
+ cp "$export_symbols" "$output_objdir/$soname.def";
+ echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp";
+ else
+ $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp;
+ fi~
+ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
+ linknames='
+ # The linker will not automatically build a static lib if we build a DLL.
+ # _LT_TAGVAR(old_archive_from_new_cmds, )='true'
+ enable_shared_with_static_runtimes=yes
+ exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
+ export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols'
+ # Don't use ranlib
+ old_postinstall_cmds='chmod 644 $oldlib'
+ postlink_cmds='lt_outputfile="@OUTPUT@"~
+ lt_tool_outputfile="@TOOL_OUTPUT@"~
+ case $lt_outputfile in
+ *.exe|*.EXE) ;;
+ *)
+ lt_outputfile=$lt_outputfile.exe
+ lt_tool_outputfile=$lt_tool_outputfile.exe
+ ;;
+ esac~
+ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then
+ $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
+ $RM "$lt_outputfile.manifest";
+ fi'
+ ;;
+ *)
+ # Assume MSVC wrapper
+ hardcode_libdir_flag_spec=' '
+ allow_undefined_flag=unsupported
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames='
+ # The linker will automatically build a .lib file if we build a DLL.
+ old_archive_from_new_cmds='true'
+ # FIXME: Should let the user specify the lib program.
+ old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs'
+ enable_shared_with_static_runtimes=yes
+ ;;
+ esac
+ ;;
+
+ darwin* | rhapsody*)
+
+
+ archive_cmds_need_lc=no
+ hardcode_direct=no
+ hardcode_automatic=yes
+ hardcode_shlibpath_var=unsupported
+ if test yes = "$lt_cv_ld_force_load"; then
+ whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
+
+ else
+ whole_archive_flag_spec=''
+ fi
+ link_all_deplibs=yes
+ allow_undefined_flag=$_lt_dar_allow_undefined
+ case $cc_basename in
+ ifort*|nagfor*) _lt_dar_can_shared=yes ;;
+ *) _lt_dar_can_shared=$GCC ;;
+ esac
+ if test yes = "$_lt_dar_can_shared"; then
+ output_verbose_link_cmd=func_echo_all
+ archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil"
+ module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil"
+ archive_expsym_cmds="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil"
+ module_expsym_cmds="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil"
+
+ else
+ ld_shlibs=no
+ fi
+
+ ;;
+
+ dgux*)
+ archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_libdir_flag_spec='-L$libdir'
+ hardcode_shlibpath_var=no
+ ;;
+
+ # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
+ # support. Future versions do this automatically, but an explicit c++rt0.o
+ # does not break anything, and helps significantly (at the cost of a little
+ # extra space).
+ freebsd2.2*)
+ archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
+ hardcode_libdir_flag_spec='-R$libdir'
+ hardcode_direct=yes
+ hardcode_shlibpath_var=no
+ ;;
+
+ # Unfortunately, older versions of FreeBSD 2 do not have this feature.
+ freebsd2.*)
+ archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct=yes
+ hardcode_minus_L=yes
+ hardcode_shlibpath_var=no
+ ;;
+
+ # FreeBSD 3 and greater uses gcc -shared to do shared libraries.
+ freebsd* | dragonfly*)
+ archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ hardcode_libdir_flag_spec='-R$libdir'
+ hardcode_direct=yes
+ hardcode_shlibpath_var=no
+ ;;
+
+ hpux9*)
+ if test yes = "$GCC"; then
+ archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ else
+ archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ fi
+ hardcode_libdir_flag_spec='$wl+b $wl$libdir'
+ hardcode_libdir_separator=:
+ hardcode_direct=yes
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ hardcode_minus_L=yes
+ export_dynamic_flag_spec='$wl-E'
+ ;;
+
+ hpux10*)
+ if test yes,no = "$GCC,$with_gnu_ld"; then
+ archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
+ fi
+ if test no = "$with_gnu_ld"; then
+ hardcode_libdir_flag_spec='$wl+b $wl$libdir'
+ hardcode_libdir_separator=:
+ hardcode_direct=yes
+ hardcode_direct_absolute=yes
+ export_dynamic_flag_spec='$wl-E'
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ hardcode_minus_L=yes
+ fi
+ ;;
+
+ hpux11*)
+ if test yes,no = "$GCC,$with_gnu_ld"; then
+ case $host_cpu in
+ hppa*64*)
+ archive_cmds='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ ia64*)
+ archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ else
+ case $host_cpu in
+ hppa*64*)
+ archive_cmds='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ ia64*)
+ archive_cmds='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+
+ # Older versions of the 11.00 compiler do not understand -b yet
+ # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5
+$as_echo_n "checking if $CC understands -b... " >&6; }
+if ${lt_cv_prog_compiler__b+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler__b=no
+ save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS -b"
+ echo "$lt_simple_link_test_code" > conftest.$ac_ext
+ if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
+ # The linker can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ if test -s conftest.err; then
+ # Append any errors to the config.log.
+ cat conftest.err 1>&5
+ $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler__b=yes
+ fi
+ else
+ lt_cv_prog_compiler__b=yes
+ fi
+ fi
+ $RM -r conftest*
+ LDFLAGS=$save_LDFLAGS
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5
+$as_echo "$lt_cv_prog_compiler__b" >&6; }
+
+if test yes = "$lt_cv_prog_compiler__b"; then
+ archive_cmds='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+else
+ archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
+fi
+
+ ;;
+ esac
+ fi
+ if test no = "$with_gnu_ld"; then
+ hardcode_libdir_flag_spec='$wl+b $wl$libdir'
+ hardcode_libdir_separator=:
+
+ case $host_cpu in
+ hppa*64*|ia64*)
+ hardcode_direct=no
+ hardcode_shlibpath_var=no
+ ;;
+ *)
+ hardcode_direct=yes
+ hardcode_direct_absolute=yes
+ export_dynamic_flag_spec='$wl-E'
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ hardcode_minus_L=yes
+ ;;
+ esac
+ fi
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ if test yes = "$GCC"; then
+ archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ # Try to use the -exported_symbol ld option, if it does not
+ # work, assume that -exports_file does not work either and
+ # implicitly export all symbols.
+ # This should be the same for all languages, so no per-tag cache variable.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5
+$as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; }
+if ${lt_cv_irix_exported_symbol+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null"
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+int foo (void) { return 0; }
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ lt_cv_irix_exported_symbol=yes
+else
+ lt_cv_irix_exported_symbol=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ LDFLAGS=$save_LDFLAGS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5
+$as_echo "$lt_cv_irix_exported_symbol" >&6; }
+ if test yes = "$lt_cv_irix_exported_symbol"; then
+ archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib'
+ fi
+ else
+ archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib'
+ fi
+ archive_cmds_need_lc='no'
+ hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator=:
+ inherit_rpath=yes
+ link_all_deplibs=yes
+ ;;
+
+ linux*)
+ case $cc_basename in
+ tcc*)
+ # Fabrice Bellard et al's Tiny C Compiler
+ ld_shlibs=yes
+ archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
+ else
+ archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
+ fi
+ hardcode_libdir_flag_spec='-R$libdir'
+ hardcode_direct=yes
+ hardcode_shlibpath_var=no
+ ;;
+
+ newsos6)
+ archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct=yes
+ hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator=:
+ hardcode_shlibpath_var=no
+ ;;
+
+ *nto* | *qnx*)
+ ;;
+
+ openbsd* | bitrig*)
+ if test -f /usr/libexec/ld.so; then
+ hardcode_direct=yes
+ hardcode_shlibpath_var=no
+ hardcode_direct_absolute=yes
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols'
+ hardcode_libdir_flag_spec='$wl-rpath,$libdir'
+ export_dynamic_flag_spec='$wl-E'
+ else
+ archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ hardcode_libdir_flag_spec='$wl-rpath,$libdir'
+ fi
+ else
+ ld_shlibs=no
+ fi
+ ;;
+
+ os2*)
+ hardcode_libdir_flag_spec='-L$libdir'
+ hardcode_minus_L=yes
+ allow_undefined_flag=unsupported
+ shrext_cmds=.dll
+ archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ enable_shared_with_static_runtimes=yes
+ ;;
+
+ osf3*)
+ if test yes = "$GCC"; then
+ allow_undefined_flag=' $wl-expect_unresolved $wl\*'
+ archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ else
+ allow_undefined_flag=' -expect_unresolved \*'
+ archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ fi
+ archive_cmds_need_lc='no'
+ hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator=:
+ ;;
+
+ osf4* | osf5*) # as osf3* with the addition of -msym flag
+ if test yes = "$GCC"; then
+ allow_undefined_flag=' $wl-expect_unresolved $wl\*'
+ archive_cmds='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
+ else
+ allow_undefined_flag=' -expect_unresolved \*'
+ archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
+ $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp'
+
+ # Both c and cxx compiler support -rpath directly
+ hardcode_libdir_flag_spec='-rpath $libdir'
+ fi
+ archive_cmds_need_lc='no'
+ hardcode_libdir_separator=:
+ ;;
+
+ solaris*)
+ no_undefined_flag=' -z defs'
+ if test yes = "$GCC"; then
+ wlarc='$wl'
+ archive_cmds='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
+ else
+ case `$CC -V 2>&1` in
+ *"Compilers 5.0"*)
+ wlarc=''
+ archive_cmds='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
+ ;;
+ *)
+ wlarc='$wl'
+ archive_cmds='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
+ ;;
+ esac
+ fi
+ hardcode_libdir_flag_spec='-R$libdir'
+ hardcode_shlibpath_var=no
+ case $host_os in
+ solaris2.[0-5] | solaris2.[0-5].*) ;;
+ *)
+ # The compiler driver will combine and reorder linker options,
+ # but understands '-z linker_flag'. GCC discards it without '$wl',
+ # but is careful enough not to reorder.
+ # Supported since Solaris 2.6 (maybe 2.5.1?)
+ if test yes = "$GCC"; then
+ whole_archive_flag_spec='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract'
+ else
+ whole_archive_flag_spec='-z allextract$convenience -z defaultextract'
+ fi
+ ;;
+ esac
+ link_all_deplibs=yes
+ ;;
+
+ sunos4*)
+ if test sequent = "$host_vendor"; then
+ # Use $CC to link under sequent, because it throws in some extra .o
+ # files that make .init and .fini sections work.
+ archive_cmds='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
+ fi
+ hardcode_libdir_flag_spec='-L$libdir'
+ hardcode_direct=yes
+ hardcode_minus_L=yes
+ hardcode_shlibpath_var=no
+ ;;
+
+ sysv4)
+ case $host_vendor in
+ sni)
+ archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct=yes # is this really true???
+ ;;
+ siemens)
+ ## LD is ld it makes a PLAMLIB
+ ## CC just makes a GrossModule.
+ archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags'
+ reload_cmds='$CC -r -o $output$reload_objs'
+ hardcode_direct=no
+ ;;
+ motorola)
+ archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct=no #Motorola manual says yes, but my tests say they lie
+ ;;
+ esac
+ runpath_var='LD_RUN_PATH'
+ hardcode_shlibpath_var=no
+ ;;
+
+ sysv4.3*)
+ archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_shlibpath_var=no
+ export_dynamic_flag_spec='-Bexport'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_shlibpath_var=no
+ runpath_var=LD_RUN_PATH
+ hardcode_runpath_var=yes
+ ld_shlibs=yes
+ fi
+ ;;
+
+ sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
+ no_undefined_flag='$wl-z,text'
+ archive_cmds_need_lc=no
+ hardcode_shlibpath_var=no
+ runpath_var='LD_RUN_PATH'
+
+ if test yes = "$GCC"; then
+ archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ fi
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6*)
+ # Note: We CANNOT use -z defs as we might desire, because we do not
+ # link with -lc, and that would cause any symbols used from libc to
+ # always be unresolved, which means just about no library would
+ # ever link correctly. If we're not using GNU ld we use -z text
+ # though, which does catch some bad symbols but isn't as heavy-handed
+ # as -z defs.
+ no_undefined_flag='$wl-z,text'
+ allow_undefined_flag='$wl-z,nodefs'
+ archive_cmds_need_lc=no
+ hardcode_shlibpath_var=no
+ hardcode_libdir_flag_spec='$wl-R,$libdir'
+ hardcode_libdir_separator=':'
+ link_all_deplibs=yes
+ export_dynamic_flag_spec='$wl-Bexport'
+ runpath_var='LD_RUN_PATH'
+
+ if test yes = "$GCC"; then
+ archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ fi
+ ;;
+
+ uts4*)
+ archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_libdir_flag_spec='-L$libdir'
+ hardcode_shlibpath_var=no
+ ;;
+
+ *)
+ ld_shlibs=no
+ ;;
+ esac
+
+ if test sni = "$host_vendor"; then
+ case $host in
+ sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
+ export_dynamic_flag_spec='$wl-Blargedynsym'
+ ;;
+ esac
+ fi
+ fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5
+$as_echo "$ld_shlibs" >&6; }
+test no = "$ld_shlibs" && can_build_shared=no
+
+with_gnu_ld=$with_gnu_ld
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+#
+# Do we need to explicitly link libc?
+#
+case "x$archive_cmds_need_lc" in
+x|xyes)
+ # Assume -lc should be added
+ archive_cmds_need_lc=yes
+
+ if test yes,yes = "$GCC,$enable_shared"; then
+ case $archive_cmds in
+ *'~'*)
+ # FIXME: we may have to deal with multi-command sequences.
+ ;;
+ '$CC '*)
+ # Test whether the compiler implicitly links with -lc since on some
+ # systems, -lgcc has to come before -lc. If gcc already passes -lc
+ # to ld, don't add -lc before -lgcc.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
+$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
+if ${lt_cv_archive_cmds_need_lc+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ $RM conftest*
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } 2>conftest.err; then
+ soname=conftest
+ lib=conftest
+ libobjs=conftest.$ac_objext
+ deplibs=
+ wl=$lt_prog_compiler_wl
+ pic_flag=$lt_prog_compiler_pic
+ compiler_flags=-v
+ linker_flags=-v
+ verstring=
+ output_objdir=.
+ libname=conftest
+ lt_save_allow_undefined_flag=$allow_undefined_flag
+ allow_undefined_flag=
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
+ (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+ then
+ lt_cv_archive_cmds_need_lc=no
+ else
+ lt_cv_archive_cmds_need_lc=yes
+ fi
+ allow_undefined_flag=$lt_save_allow_undefined_flag
+ else
+ cat conftest.err 1>&5
+ fi
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5
+$as_echo "$lt_cv_archive_cmds_need_lc" >&6; }
+ archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc
+ ;;
+ esac
+ fi
+ ;;
+esac
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
+$as_echo_n "checking dynamic linker characteristics... " >&6; }
+
+if test yes = "$GCC"; then
+ case $host_os in
+ darwin*) lt_awk_arg='/^libraries:/,/LR/' ;;
+ *) lt_awk_arg='/^libraries:/' ;;
+ esac
+ case $host_os in
+ mingw* | cegcc*) lt_sed_strip_eq='s|=\([A-Za-z]:\)|\1|g' ;;
+ *) lt_sed_strip_eq='s|=/|/|g' ;;
+ esac
+ lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq`
+ case $lt_search_path_spec in
+ *\;*)
+ # if the path contains ";" then we assume it to be the separator
+ # otherwise default to the standard path separator (i.e. ":") - it is
+ # assumed that no part of a normal pathname contains ";" but that should
+ # okay in the real world where ";" in dirpaths is itself problematic.
+ lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'`
+ ;;
+ *)
+ lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"`
+ ;;
+ esac
+ # Ok, now we have the path, separated by spaces, we can step through it
+ # and add multilib dir if necessary...
+ lt_tmp_lt_search_path_spec=
+ lt_multi_os_dir=/`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null`
+ # ...but if some path component already ends with the multilib dir we assume
+ # that all is fine and trust -print-search-dirs as is (GCC 4.2? or newer).
+ case "$lt_multi_os_dir; $lt_search_path_spec " in
+ "/; "* | "/.; "* | "/./; "* | *"$lt_multi_os_dir "* | *"$lt_multi_os_dir/ "*)
+ lt_multi_os_dir=
+ ;;
+ esac
+ for lt_sys_path in $lt_search_path_spec; do
+ if test -d "$lt_sys_path$lt_multi_os_dir"; then
+ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path$lt_multi_os_dir"
+ elif test -n "$lt_multi_os_dir"; then
+ test -d "$lt_sys_path" && \
+ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path"
+ fi
+ done
+ lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk '
+BEGIN {RS = " "; FS = "/|\n";} {
+ lt_foo = "";
+ lt_count = 0;
+ for (lt_i = NF; lt_i > 0; lt_i--) {
+ if ($lt_i != "" && $lt_i != ".") {
+ if ($lt_i == "..") {
+ lt_count++;
+ } else {
+ if (lt_count == 0) {
+ lt_foo = "/" $lt_i lt_foo;
+ } else {
+ lt_count--;
+ }
+ }
+ }
+ }
+ if (lt_foo != "") { lt_freq[lt_foo]++; }
+ if (lt_freq[lt_foo] == 1) { print lt_foo; }
+}'`
+ # AWK program above erroneously prepends '/' to C:/dos/paths
+ # for these hosts.
+ case $host_os in
+ mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\
+ $SED 's|/\([A-Za-z]:\)|\1|g'` ;;
+ esac
+ sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP`
+else
+ sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
+fi
+library_names_spec=
+libname_spec='lib$name'
+soname_spec=
+shrext_cmds=.so
+postinstall_cmds=
+postuninstall_cmds=
+finish_cmds=
+finish_eval=
+shlibpath_var=
+shlibpath_overrides_runpath=unknown
+version_type=none
+dynamic_linker="$host_os ld.so"
+sys_lib_dlsearch_path_spec="/lib /usr/lib"
+need_lib_prefix=unknown
+hardcode_into_libs=no
+
+# when you set need_version to no, make sure it does not cause -set_version
+# flags to be left without arguments
+need_version=unknown
+
+
+
+case $host_os in
+aix3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname.a'
+ shlibpath_var=LIBPATH
+
+ # AIX 3 has no versioning support, so we append a major version to the name.
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+
+aix[4-9]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ hardcode_into_libs=yes
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 supports IA64
+ library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ else
+ # With GCC up to 2.95.x, collect2 would create an import file
+ # for dependence libraries. The import file would start with
+ # the line '#! .'. This would cause the generated library to
+ # depend on '.', always an invalid library. This was fixed in
+ # development snapshots of GCC prior to 3.0.
+ case $host_os in
+ aix4 | aix4.[01] | aix4.[01].*)
+ if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
+ echo ' yes '
+ echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then
+ :
+ else
+ can_build_shared=no
+ fi
+ ;;
+ esac
+ # Using Import Files as archive members, it is possible to support
+ # filename-based versioning of shared library archives on AIX. While
+ # this would work for both with and without runtime linking, it will
+ # prevent static linking of such archives. So we do filename-based
+ # shared library versioning with .so extension only, which is used
+ # when both runtime linking and shared linking is enabled.
+ # Unfortunately, runtime linking may impact performance, so we do
+ # not want this to be the default eventually. Also, we use the
+ # versioned .so libs for executables only if there is the -brtl
+ # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only.
+ # To allow for filename-based versioning support, we need to create
+ # libNAME.so.V as an archive file, containing:
+ # *) an Import File, referring to the versioned filename of the
+ # archive as well as the shared archive member, telling the
+ # bitwidth (32 or 64) of that shared object, and providing the
+ # list of exported symbols of that shared object, eventually
+ # decorated with the 'weak' keyword
+ # *) the shared object with the F_LOADONLY flag set, to really avoid
+ # it being seen by the linker.
+ # At run time we better use the real file rather than another symlink,
+ # but for link time we create the symlink libNAME.so -> libNAME.so.V
+
+ case $with_aix_soname,$aix_use_runtimelinking in
+ # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct
+ # soname into executable. Probably we can add versioning support to
+ # collect2, so additional links can be useful in future.
+ aix,yes) # traditional libtool
+ dynamic_linker='AIX unversionable lib.so'
+ # If using run time linking (on AIX 4.2 or later) use lib<name>.so
+ # instead of lib<name>.a to let people know that these are not
+ # typical AIX shared libraries.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ aix,no) # traditional AIX only
+ dynamic_linker='AIX lib.a(lib.so.V)'
+ # We preserve .a as extension for shared libraries through AIX4.2
+ # and later when we are not doing run time linking.
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ svr4,*) # full svr4 only
+ dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o)"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,yes) # both, prefer svr4
+ dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o), lib.a(lib.so.V)"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # unpreferred sharedlib libNAME.a needs extra handling
+ postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"'
+ postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,no) # both, prefer aix
+ dynamic_linker="AIX lib.a(lib.so.V), lib.so.V($shared_archive_member_spec.o)"
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling
+ postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)'
+ postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"'
+ ;;
+ esac
+ shlibpath_var=LIBPATH
+ fi
+ ;;
+
+amigaos*)
+ case $host_cpu in
+ powerpc)
+ # Since July 2007 AmigaOS4 officially supports .so libraries.
+ # When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ m68k)
+ library_names_spec='$libname.ixlibrary $libname.a'
+ # Create ${libname}_ixlibrary.a entries in /sys/libs.
+ finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
+ ;;
+ esac
+ ;;
+
+beos*)
+ library_names_spec='$libname$shared_ext'
+ dynamic_linker="$host_os ld.so"
+ shlibpath_var=LIBRARY_PATH
+ ;;
+
+bsdi[45]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
+ # the default ld.so.conf also contains /usr/contrib/lib and
+ # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
+ # libtool to hard-code these into programs
+ ;;
+
+cygwin* | mingw* | pw32* | cegcc*)
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+
+ case $GCC,$cc_basename in
+ yes,*)
+ # gcc
+ library_names_spec='$libname.dll.a'
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+
+ case $host_os in
+ cygwin*)
+ # Cygwin DLLs use 'cyg' prefix rather than 'lib'
+ soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+
+ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"
+ ;;
+ mingw* | cegcc*)
+ # MinGW DLLs use traditional 'lib' prefix
+ soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ ;;
+ pw32*)
+ # pw32 DLLs use 'pw' prefix rather than 'lib'
+ library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ ;;
+ esac
+ dynamic_linker='Win32 ld.exe'
+ ;;
+
+ *,cl*)
+ # Native MSVC
+ libname_spec='$name'
+ soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ library_names_spec='$libname.dll.lib'
+
+ case $build_os in
+ mingw*)
+ sys_lib_search_path_spec=
+ lt_save_ifs=$IFS
+ IFS=';'
+ for lt_path in $LIB
+ do
+ IFS=$lt_save_ifs
+ # Let DOS variable expansion print the short 8.3 style file name.
+ lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
+ sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
+ done
+ IFS=$lt_save_ifs
+ # Convert to MSYS style.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'`
+ ;;
+ cygwin*)
+ # Convert to unix form, then to dos form, then back to unix form
+ # but this time dos style (no spaces!) so that the unix form looks
+ # like /cygdrive/c/PROGRA~1:/cygdr...
+ sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
+ sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
+ sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ ;;
+ *)
+ sys_lib_search_path_spec=$LIB
+ if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
+ # It is most probably a Windows format PATH.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
+ else
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ fi
+ # FIXME: find the short name or the path components, as spaces are
+ # common. (e.g. "Program Files" -> "PROGRA~1")
+ ;;
+ esac
+
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+ dynamic_linker='Win32 link.exe'
+ ;;
+
+ *)
+ # Assume MSVC wrapper
+ library_names_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext $libname.lib'
+ dynamic_linker='Win32 ld.exe'
+ ;;
+ esac
+ # FIXME: first we should search . and the directory the executable is in
+ shlibpath_var=PATH
+ ;;
+
+darwin* | rhapsody*)
+ dynamic_linker="$host_os dyld"
+ version_type=darwin
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$major$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$major$shared_ext'
+ shlibpath_overrides_runpath=yes
+ shlibpath_var=DYLD_LIBRARY_PATH
+ shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
+
+ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"
+ sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
+ ;;
+
+dgux*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+freebsd* | dragonfly*)
+ # DragonFly does not have aout. When/if they implement a new
+ # versioning mechanism, adjust this.
+ if test -x /usr/bin/objformat; then
+ objformat=`/usr/bin/objformat`
+ else
+ case $host_os in
+ freebsd[23].*) objformat=aout ;;
+ *) objformat=elf ;;
+ esac
+ fi
+ version_type=freebsd-$objformat
+ case $version_type in
+ freebsd-elf*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ need_version=no
+ need_lib_prefix=no
+ ;;
+ freebsd-*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ need_version=yes
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_os in
+ freebsd2.*)
+ shlibpath_overrides_runpath=yes
+ ;;
+ freebsd3.[01]* | freebsdelf3.[01]*)
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
+ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+ *) # from 4.6 on, and DragonFly
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ esac
+ ;;
+
+haiku*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ dynamic_linker="$host_os runtime_loader"
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
+ hardcode_into_libs=yes
+ ;;
+
+hpux9* | hpux10* | hpux11*)
+ # Give a soname corresponding to the major version so that dld.sl refuses to
+ # link against other versions.
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ case $host_cpu in
+ ia64*)
+ shrext_cmds='.so'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.so"
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ if test 32 = "$HPUX_IA64_MODE"; then
+ sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux32
+ else
+ sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux64
+ fi
+ ;;
+ hppa*64*)
+ shrext_cmds='.sl'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+ *)
+ shrext_cmds='.sl'
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=SHLIB_PATH
+ shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ esac
+ # HP-UX runs *really* slowly unless shared libraries are mode 555, ...
+ postinstall_cmds='chmod 555 $lib'
+ # or fails outright, so override atomically:
+ install_override_mode=555
+ ;;
+
+interix[3-9]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+irix5* | irix6* | nonstopux*)
+ case $host_os in
+ nonstopux*) version_type=nonstopux ;;
+ *)
+ if test yes = "$lt_cv_prog_gnu_ld"; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ else
+ version_type=irix
+ fi ;;
+ esac
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext'
+ case $host_os in
+ irix5* | nonstopux*)
+ libsuff= shlibsuff=
+ ;;
+ *)
+ case $LD in # libtool.m4 will add one of these switches to LD
+ *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
+ libsuff= shlibsuff= libmagic=32-bit;;
+ *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
+ libsuff=32 shlibsuff=N32 libmagic=N32;;
+ *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
+ libsuff=64 shlibsuff=64 libmagic=64-bit;;
+ *) libsuff= shlibsuff= libmagic=never-match;;
+ esac
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff"
+ sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff"
+ hardcode_into_libs=yes
+ ;;
+
+# No shared lib support for Linux oldld, aout, or coff.
+linux*oldld* | linux*aout* | linux*coff*)
+ dynamic_linker=no
+ ;;
+
+linux*android*)
+ version_type=none # Android doesn't support versioned libraries.
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext'
+ soname_spec='$libname$release$shared_ext'
+ finish_cmds=
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ dynamic_linker='Android linker'
+ # Don't embed -rpath directories since the linker doesn't support them.
+ hardcode_libdir_flag_spec='-L$libdir'
+ ;;
+
+# This must be glibc/ELF.
+linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+
+ # Some binutils ld are patched to set DT_RUNPATH
+ if ${lt_cv_shlibpath_overrides_runpath+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_shlibpath_overrides_runpath=no
+ save_LDFLAGS=$LDFLAGS
+ save_libdir=$libdir
+ eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \
+ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\""
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
+ lt_cv_shlibpath_overrides_runpath=yes
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ LDFLAGS=$save_LDFLAGS
+ libdir=$save_libdir
+
+fi
+
+ shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ # Ideally, we could use ldconfig to report *all* directores which are
+ # searched for libraries, however this is still not possible. Aside from not
+ # being certain /sbin/ldconfig is available, command
+ # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64,
+ # even though it is searched at run-time. Try to do the best guess by
+ # appending ld.so.conf contents (and includes) to the search path.
+ if test -f /etc/ld.so.conf; then
+ lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
+ sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
+ fi
+
+ # We used to test for /lib/ld.so.1 and disable shared libraries on
+ # powerpc, because MkLinux only supported shared libraries with the
+ # GNU dynamic linker. Since this was broken with cross compilers,
+ # most powerpc-linux boxes support dynamic linking these days and
+ # people can always --disable-shared, the test was removed, and we
+ # assume the GNU/Linux dynamic linker is in use.
+ dynamic_linker='GNU/Linux ld.so'
+ ;;
+
+netbsd*)
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ dynamic_linker='NetBSD (a.out) ld.so'
+ else
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='NetBSD ld.elf_so'
+ fi
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+
+newsos6)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+*nto* | *qnx*)
+ version_type=qnx
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ dynamic_linker='ldqnx.so'
+ ;;
+
+openbsd* | bitrig*)
+ version_type=sunos
+ sys_lib_dlsearch_path_spec=/usr/lib
+ need_lib_prefix=no
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ need_version=no
+ else
+ need_version=yes
+ fi
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+os2*)
+ libname_spec='$name'
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+ # OS/2 can only load a DLL with a base name of 8 characters or less.
+ soname_spec='`test -n "$os2dllname" && libname="$os2dllname";
+ v=$($ECHO $release$versuffix | tr -d .-);
+ n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _);
+ $ECHO $n$v`$shared_ext'
+ library_names_spec='${libname}_dll.$libext'
+ dynamic_linker='OS/2 ld.exe'
+ shlibpath_var=BEGINLIBPATH
+ sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ ;;
+
+osf3* | osf4* | osf5*)
+ version_type=osf
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+
+rdos*)
+ dynamic_linker=no
+ ;;
+
+solaris*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ # ldd complains unless libraries are executable
+ postinstall_cmds='chmod +x $lib'
+ ;;
+
+sunos4*)
+ version_type=sunos
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ if test yes = "$with_gnu_ld"; then
+ need_lib_prefix=no
+ fi
+ need_version=yes
+ ;;
+
+sysv4 | sysv4.3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_vendor in
+ sni)
+ shlibpath_overrides_runpath=no
+ need_lib_prefix=no
+ runpath_var=LD_RUN_PATH
+ ;;
+ siemens)
+ need_lib_prefix=no
+ ;;
+ motorola)
+ need_lib_prefix=no
+ need_version=no
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
+ ;;
+ esac
+ ;;
+
+sysv4*MP*)
+ if test -d /usr/nec; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext'
+ soname_spec='$libname$shared_ext.$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ fi
+ ;;
+
+sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
+ version_type=sco
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ if test yes = "$with_gnu_ld"; then
+ sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
+ else
+ sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
+ case $host_os in
+ sco3.2v5*)
+ sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
+ ;;
+ esac
+ fi
+ sys_lib_dlsearch_path_spec='/usr/lib'
+ ;;
+
+tpf*)
+ # TPF is a cross-target only. Preferred cross-host = GNU/Linux.
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+uts4*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+*)
+ dynamic_linker=no
+ ;;
+esac
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
+$as_echo "$dynamic_linker" >&6; }
+test no = "$dynamic_linker" && can_build_shared=no
+
+variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
+if test yes = "$GCC"; then
+ variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
+fi
+
+if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then
+ sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec
+fi
+
+if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then
+ sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec
+fi
+
+# remember unaugmented sys_lib_dlsearch_path content for libtool script decls...
+configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec
+
+# ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code
+func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH"
+
+# to be used as default LT_SYS_LIBRARY_PATH value in generated libtool
+configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
+$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
+hardcode_action=
+if test -n "$hardcode_libdir_flag_spec" ||
+ test -n "$runpath_var" ||
+ test yes = "$hardcode_automatic"; then
+
+ # We can hardcode non-existent directories.
+ if test no != "$hardcode_direct" &&
+ # If the only mechanism to avoid hardcoding is shlibpath_var, we
+ # have to relink, otherwise we might link with an installed library
+ # when we should be linking with a yet-to-be-installed one
+ ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, )" &&
+ test no != "$hardcode_minus_L"; then
+ # Linking always hardcodes the temporary library directory.
+ hardcode_action=relink
+ else
+ # We can link without hardcoding, and we can hardcode nonexisting dirs.
+ hardcode_action=immediate
+ fi
+else
+ # We cannot hardcode anything, or else we can only hardcode existing
+ # directories.
+ hardcode_action=unsupported
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5
+$as_echo "$hardcode_action" >&6; }
+
+if test relink = "$hardcode_action" ||
+ test yes = "$inherit_rpath"; then
+ # Fast installation is not supported
+ enable_fast_install=no
+elif test yes = "$shlibpath_overrides_runpath" ||
+ test no = "$enable_shared"; then
+ # Fast installation is not necessary
+ enable_fast_install=needless
+fi
+
+
+
+
+
+
+ if test yes != "$enable_dlopen"; then
+ enable_dlopen=unknown
+ enable_dlopen_self=unknown
+ enable_dlopen_self_static=unknown
+else
+ lt_cv_dlopen=no
+ lt_cv_dlopen_libs=
+
+ case $host_os in
+ beos*)
+ lt_cv_dlopen=load_add_on
+ lt_cv_dlopen_libs=
+ lt_cv_dlopen_self=yes
+ ;;
+
+ mingw* | pw32* | cegcc*)
+ lt_cv_dlopen=LoadLibrary
+ lt_cv_dlopen_libs=
+ ;;
+
+ cygwin*)
+ lt_cv_dlopen=dlopen
+ lt_cv_dlopen_libs=
+ ;;
+
+ darwin*)
+ # if libdl is installed we need to link against it
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
+$as_echo_n "checking for dlopen in -ldl... " >&6; }
+if ${ac_cv_lib_dl_dlopen+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_check_lib_save_LIBS=$LIBS
+LIBS="-ldl $LIBS"
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char dlopen ();
+int
+main ()
+{
+return dlopen ();
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_lib_dl_dlopen=yes
+else
+ ac_cv_lib_dl_dlopen=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+LIBS=$ac_check_lib_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
+$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
+if test "x$ac_cv_lib_dl_dlopen" = xyes; then :
+ lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl
+else
+
+ lt_cv_dlopen=dyld
+ lt_cv_dlopen_libs=
+ lt_cv_dlopen_self=yes
+
+fi
+
+ ;;
+
+ tpf*)
+ # Don't try to run any link tests for TPF. We know it's impossible
+ # because TPF is a cross-compiler, and we know how we open DSOs.
+ lt_cv_dlopen=dlopen
+ lt_cv_dlopen_libs=
+ lt_cv_dlopen_self=no
+ ;;
+
+ *)
+ ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load"
+if test "x$ac_cv_func_shl_load" = xyes; then :
+ lt_cv_dlopen=shl_load
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5
+$as_echo_n "checking for shl_load in -ldld... " >&6; }
+if ${ac_cv_lib_dld_shl_load+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_check_lib_save_LIBS=$LIBS
+LIBS="-ldld $LIBS"
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char shl_load ();
+int
+main ()
+{
+return shl_load ();
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_lib_dld_shl_load=yes
+else
+ ac_cv_lib_dld_shl_load=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+LIBS=$ac_check_lib_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5
+$as_echo "$ac_cv_lib_dld_shl_load" >&6; }
+if test "x$ac_cv_lib_dld_shl_load" = xyes; then :
+ lt_cv_dlopen=shl_load lt_cv_dlopen_libs=-ldld
+else
+ ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen"
+if test "x$ac_cv_func_dlopen" = xyes; then :
+ lt_cv_dlopen=dlopen
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
+$as_echo_n "checking for dlopen in -ldl... " >&6; }
+if ${ac_cv_lib_dl_dlopen+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_check_lib_save_LIBS=$LIBS
+LIBS="-ldl $LIBS"
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char dlopen ();
+int
+main ()
+{
+return dlopen ();
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_lib_dl_dlopen=yes
+else
+ ac_cv_lib_dl_dlopen=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+LIBS=$ac_check_lib_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
+$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
+if test "x$ac_cv_lib_dl_dlopen" = xyes; then :
+ lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5
+$as_echo_n "checking for dlopen in -lsvld... " >&6; }
+if ${ac_cv_lib_svld_dlopen+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_check_lib_save_LIBS=$LIBS
+LIBS="-lsvld $LIBS"
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char dlopen ();
+int
+main ()
+{
+return dlopen ();
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_lib_svld_dlopen=yes
+else
+ ac_cv_lib_svld_dlopen=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+LIBS=$ac_check_lib_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5
+$as_echo "$ac_cv_lib_svld_dlopen" >&6; }
+if test "x$ac_cv_lib_svld_dlopen" = xyes; then :
+ lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-lsvld
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5
+$as_echo_n "checking for dld_link in -ldld... " >&6; }
+if ${ac_cv_lib_dld_dld_link+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_check_lib_save_LIBS=$LIBS
+LIBS="-ldld $LIBS"
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char dld_link ();
+int
+main ()
+{
+return dld_link ();
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_lib_dld_dld_link=yes
+else
+ ac_cv_lib_dld_dld_link=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+LIBS=$ac_check_lib_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5
+$as_echo "$ac_cv_lib_dld_dld_link" >&6; }
+if test "x$ac_cv_lib_dld_dld_link" = xyes; then :
+ lt_cv_dlopen=dld_link lt_cv_dlopen_libs=-ldld
+fi
+
+
+fi
+
+
+fi
+
+
+fi
+
+
+fi
+
+
+fi
+
+ ;;
+ esac
+
+ if test no = "$lt_cv_dlopen"; then
+ enable_dlopen=no
+ else
+ enable_dlopen=yes
+ fi
+
+ case $lt_cv_dlopen in
+ dlopen)
+ save_CPPFLAGS=$CPPFLAGS
+ test yes = "$ac_cv_header_dlfcn_h" && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H"
+
+ save_LDFLAGS=$LDFLAGS
+ wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\"
+
+ save_LIBS=$LIBS
+ LIBS="$lt_cv_dlopen_libs $LIBS"
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5
+$as_echo_n "checking whether a program can dlopen itself... " >&6; }
+if ${lt_cv_dlopen_self+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test yes = "$cross_compiling"; then :
+ lt_cv_dlopen_self=cross
+else
+ lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
+ lt_status=$lt_dlunknown
+ cat > conftest.$ac_ext <<_LT_EOF
+#line $LINENO "configure"
+#include "confdefs.h"
+
+#if HAVE_DLFCN_H
+#include <dlfcn.h>
+#endif
+
+#include <stdio.h>
+
+#ifdef RTLD_GLOBAL
+# define LT_DLGLOBAL RTLD_GLOBAL
+#else
+# ifdef DL_GLOBAL
+# define LT_DLGLOBAL DL_GLOBAL
+# else
+# define LT_DLGLOBAL 0
+# endif
+#endif
+
+/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
+ find out it does not work in some platform. */
+#ifndef LT_DLLAZY_OR_NOW
+# ifdef RTLD_LAZY
+# define LT_DLLAZY_OR_NOW RTLD_LAZY
+# else
+# ifdef DL_LAZY
+# define LT_DLLAZY_OR_NOW DL_LAZY
+# else
+# ifdef RTLD_NOW
+# define LT_DLLAZY_OR_NOW RTLD_NOW
+# else
+# ifdef DL_NOW
+# define LT_DLLAZY_OR_NOW DL_NOW
+# else
+# define LT_DLLAZY_OR_NOW 0
+# endif
+# endif
+# endif
+# endif
+#endif
+
+/* When -fvisibility=hidden is used, assume the code has been annotated
+ correspondingly for the symbols needed. */
+#if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3))
+int fnord () __attribute__((visibility("default")));
+#endif
+
+int fnord () { return 42; }
+int main ()
+{
+ void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
+ int status = $lt_dlunknown;
+
+ if (self)
+ {
+ if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
+ else
+ {
+ if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
+ else puts (dlerror ());
+ }
+ /* dlclose (self); */
+ }
+ else
+ puts (dlerror ());
+
+ return status;
+}
+_LT_EOF
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
+ (eval $ac_link) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then
+ (./conftest; exit; ) >&5 2>/dev/null
+ lt_status=$?
+ case x$lt_status in
+ x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;;
+ x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;;
+ x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;;
+ esac
+ else :
+ # compilation failed
+ lt_cv_dlopen_self=no
+ fi
+fi
+rm -fr conftest*
+
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5
+$as_echo "$lt_cv_dlopen_self" >&6; }
+
+ if test yes = "$lt_cv_dlopen_self"; then
+ wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5
+$as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; }
+if ${lt_cv_dlopen_self_static+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test yes = "$cross_compiling"; then :
+ lt_cv_dlopen_self_static=cross
+else
+ lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
+ lt_status=$lt_dlunknown
+ cat > conftest.$ac_ext <<_LT_EOF
+#line $LINENO "configure"
+#include "confdefs.h"
+
+#if HAVE_DLFCN_H
+#include <dlfcn.h>
+#endif
+
+#include <stdio.h>
+
+#ifdef RTLD_GLOBAL
+# define LT_DLGLOBAL RTLD_GLOBAL
+#else
+# ifdef DL_GLOBAL
+# define LT_DLGLOBAL DL_GLOBAL
+# else
+# define LT_DLGLOBAL 0
+# endif
+#endif
+
+/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
+ find out it does not work in some platform. */
+#ifndef LT_DLLAZY_OR_NOW
+# ifdef RTLD_LAZY
+# define LT_DLLAZY_OR_NOW RTLD_LAZY
+# else
+# ifdef DL_LAZY
+# define LT_DLLAZY_OR_NOW DL_LAZY
+# else
+# ifdef RTLD_NOW
+# define LT_DLLAZY_OR_NOW RTLD_NOW
+# else
+# ifdef DL_NOW
+# define LT_DLLAZY_OR_NOW DL_NOW
+# else
+# define LT_DLLAZY_OR_NOW 0
+# endif
+# endif
+# endif
+# endif
+#endif
+
+/* When -fvisibility=hidden is used, assume the code has been annotated
+ correspondingly for the symbols needed. */
+#if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3))
+int fnord () __attribute__((visibility("default")));
+#endif
+
+int fnord () { return 42; }
+int main ()
+{
+ void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
+ int status = $lt_dlunknown;
+
+ if (self)
+ {
+ if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
+ else
+ {
+ if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
+ else puts (dlerror ());
+ }
+ /* dlclose (self); */
+ }
+ else
+ puts (dlerror ());
+
+ return status;
+}
+_LT_EOF
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
+ (eval $ac_link) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then
+ (./conftest; exit; ) >&5 2>/dev/null
+ lt_status=$?
+ case x$lt_status in
+ x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;;
+ x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;;
+ x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;;
+ esac
+ else :
+ # compilation failed
+ lt_cv_dlopen_self_static=no
+ fi
+fi
+rm -fr conftest*
+
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5
+$as_echo "$lt_cv_dlopen_self_static" >&6; }
+ fi
+
+ CPPFLAGS=$save_CPPFLAGS
+ LDFLAGS=$save_LDFLAGS
+ LIBS=$save_LIBS
+ ;;
+ esac
+
+ case $lt_cv_dlopen_self in
+ yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;;
+ *) enable_dlopen_self=unknown ;;
+ esac
+
+ case $lt_cv_dlopen_self_static in
+ yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;;
+ *) enable_dlopen_self_static=unknown ;;
+ esac
+fi
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+striplib=
+old_striplib=
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5
+$as_echo_n "checking whether stripping libraries is possible... " >&6; }
+if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then
+ test -z "$old_striplib" && old_striplib="$STRIP --strip-debug"
+ test -z "$striplib" && striplib="$STRIP --strip-unneeded"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+else
+# FIXME - insert some real tests, host_os isn't really good enough
+ case $host_os in
+ darwin*)
+ if test -n "$STRIP"; then
+ striplib="$STRIP -x"
+ old_striplib="$STRIP -S"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ fi
+ ;;
+ *)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ ;;
+ esac
+fi
+
+
+
+
+
+
+
+
+
+
+
+
+ # Report what library types will actually be built
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5
+$as_echo_n "checking if libtool supports shared libraries... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5
+$as_echo "$can_build_shared" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5
+$as_echo_n "checking whether to build shared libraries... " >&6; }
+ test no = "$can_build_shared" && enable_shared=no
+
+ # On AIX, shared libraries and static libraries use the same namespace, and
+ # are all built from PIC.
+ case $host_os in
+ aix3*)
+ test yes = "$enable_shared" && enable_static=no
+ if test -n "$RANLIB"; then
+ archive_cmds="$archive_cmds~\$RANLIB \$lib"
+ postinstall_cmds='$RANLIB $lib'
+ fi
+ ;;
+
+ aix[4-9]*)
+ if test ia64 != "$host_cpu"; then
+ case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in
+ yes,aix,yes) ;; # shared object as lib.so file only
+ yes,svr4,*) ;; # shared object as lib.so archive member only
+ yes,*) enable_static=no ;; # shared object in lib.a archive as well
+ esac
+ fi
+ ;;
+ esac
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5
+$as_echo "$enable_shared" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5
+$as_echo_n "checking whether to build static libraries... " >&6; }
+ # Make sure either enable_shared or enable_static is yes.
+ test yes = "$enable_shared" || enable_static=yes
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5
+$as_echo "$enable_static" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether this is the NAG Fortran compiler" >&5
+$as_echo_n "checking whether this is the NAG Fortran compiler... " >&6; }
+ $CC -V 2>&1 | grep '^NAG Fortran Compiler Release' >/dev/null 2>&1
+ _lt_result=$?
+ if test $_lt_result -eq 0; then :
+ _lt_result=yes
+else
+ _lt_result=no
+fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_lt_result" >&5
+$as_echo "$_lt_result" >&6; }
+ acx_is_nagfor=$_lt_result
+
+
+
+fi
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+CC=$lt_save_CC
+
+ if test -n "$CXX" && ( test no != "$CXX" &&
+ ( (test g++ = "$CXX" && `g++ -v >/dev/null 2>&1` ) ||
+ (test g++ != "$CXX"))); then
+ ac_ext=cpp
+ac_cpp='$CXXCPP $CPPFLAGS'
+ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C++ preprocessor" >&5
+$as_echo_n "checking how to run the C++ preprocessor... " >&6; }
+if test -z "$CXXCPP"; then
+ if ${ac_cv_prog_CXXCPP+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ # Double quotes because CXXCPP needs to be expanded
+ for CXXCPP in "$CXX -E" "/lib/cpp"
+ do
+ ac_preproc_ok=false
+for ac_cxx_preproc_warn_flag in '' yes
+do
+ # Use a header file that comes with gcc, so configuring glibc
+ # with a fresh cross-compiler works.
+ # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
+ # <limits.h> exists even on freestanding compilers.
+ # On the NeXT, cc -E runs the code through the compiler's parser,
+ # not just through cpp. "Syntax error" is here to catch this case.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#ifdef __STDC__
+# include <limits.h>
+#else
+# include <assert.h>
+#endif
+ Syntax error
+_ACEOF
+if ac_fn_cxx_try_cpp "$LINENO"; then :
+
+else
+ # Broken: fails on valid input.
+continue
+fi
+rm -f conftest.err conftest.i conftest.$ac_ext
+
+ # OK, works on sane cases. Now check whether nonexistent headers
+ # can be detected and how.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <ac_nonexistent.h>
+_ACEOF
+if ac_fn_cxx_try_cpp "$LINENO"; then :
+ # Broken: success on invalid input.
+continue
+else
+ # Passes both tests.
+ac_preproc_ok=:
+break
+fi
+rm -f conftest.err conftest.i conftest.$ac_ext
+
+done
+# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
+rm -f conftest.i conftest.err conftest.$ac_ext
+if $ac_preproc_ok; then :
+ break
+fi
+
+ done
+ ac_cv_prog_CXXCPP=$CXXCPP
+
+fi
+ CXXCPP=$ac_cv_prog_CXXCPP
+else
+ ac_cv_prog_CXXCPP=$CXXCPP
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXXCPP" >&5
+$as_echo "$CXXCPP" >&6; }
+ac_preproc_ok=false
+for ac_cxx_preproc_warn_flag in '' yes
+do
+ # Use a header file that comes with gcc, so configuring glibc
+ # with a fresh cross-compiler works.
+ # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
+ # <limits.h> exists even on freestanding compilers.
+ # On the NeXT, cc -E runs the code through the compiler's parser,
+ # not just through cpp. "Syntax error" is here to catch this case.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#ifdef __STDC__
+# include <limits.h>
+#else
+# include <assert.h>
+#endif
+ Syntax error
+_ACEOF
+if ac_fn_cxx_try_cpp "$LINENO"; then :
+
+else
+ # Broken: fails on valid input.
+continue
+fi
+rm -f conftest.err conftest.i conftest.$ac_ext
+
+ # OK, works on sane cases. Now check whether nonexistent headers
+ # can be detected and how.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <ac_nonexistent.h>
+_ACEOF
+if ac_fn_cxx_try_cpp "$LINENO"; then :
+ # Broken: success on invalid input.
+continue
+else
+ # Passes both tests.
+ac_preproc_ok=:
+break
+fi
+rm -f conftest.err conftest.i conftest.$ac_ext
+
+done
+# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
+rm -f conftest.i conftest.err conftest.$ac_ext
+if $ac_preproc_ok; then :
+
+else
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "C++ preprocessor \"$CXXCPP\" fails sanity check
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+else
+ _lt_caught_CXX_error=yes
+fi
+
+ac_ext=cpp
+ac_cpp='$CXXCPP $CPPFLAGS'
+ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
+
+archive_cmds_need_lc_CXX=no
+allow_undefined_flag_CXX=
+always_export_symbols_CXX=no
+archive_expsym_cmds_CXX=
+compiler_needs_object_CXX=no
+export_dynamic_flag_spec_CXX=
+hardcode_direct_CXX=no
+hardcode_direct_absolute_CXX=no
+hardcode_libdir_flag_spec_CXX=
+hardcode_libdir_separator_CXX=
+hardcode_minus_L_CXX=no
+hardcode_shlibpath_var_CXX=unsupported
+hardcode_automatic_CXX=no
+inherit_rpath_CXX=no
+module_cmds_CXX=
+module_expsym_cmds_CXX=
+link_all_deplibs_CXX=unknown
+old_archive_cmds_CXX=$old_archive_cmds
+reload_flag_CXX=$reload_flag
+reload_cmds_CXX=$reload_cmds
+no_undefined_flag_CXX=
+whole_archive_flag_spec_CXX=
+enable_shared_with_static_runtimes_CXX=no
+
+# Source file extension for C++ test sources.
+ac_ext=cpp
+
+# Object file extension for compiled C++ test sources.
+objext=o
+objext_CXX=$objext
+
+# No sense in running all these tests if we already determined that
+# the CXX compiler isn't working. Some variables (like enable_shared)
+# are currently assumed to apply to all compilers on this platform,
+# and will be corrupted by setting them based on a non-working compiler.
+if test yes != "$_lt_caught_CXX_error"; then
+ # Code to be used in simple compile tests
+ lt_simple_compile_test_code="int some_variable = 0;"
+
+ # Code to be used in simple link tests
+ lt_simple_link_test_code='int main(int, char *[]) { return(0); }'
+
+ # ltmain only uses $CC for tagged configurations so make sure $CC is set.
+
+
+
+
+
+
+# If no C compiler was specified, use CC.
+LTCC=${LTCC-"$CC"}
+
+# If no C compiler flags were specified, use CFLAGS.
+LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
+
+# Allow CC to be a program name with arguments.
+compiler=$CC
+
+
+ # save warnings/boilerplate of simple test code
+ ac_outfile=conftest.$ac_objext
+echo "$lt_simple_compile_test_code" >conftest.$ac_ext
+eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_compiler_boilerplate=`cat conftest.err`
+$RM conftest*
+
+ ac_outfile=conftest.$ac_objext
+echo "$lt_simple_link_test_code" >conftest.$ac_ext
+eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_linker_boilerplate=`cat conftest.err`
+$RM -r conftest*
+
+
+ # Allow CC to be a program name with arguments.
+ lt_save_CC=$CC
+ lt_save_CFLAGS=$CFLAGS
+ lt_save_LD=$LD
+ lt_save_GCC=$GCC
+ GCC=$GXX
+ lt_save_with_gnu_ld=$with_gnu_ld
+ lt_save_path_LD=$lt_cv_path_LD
+ if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then
+ lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx
+ else
+ $as_unset lt_cv_prog_gnu_ld
+ fi
+ if test -n "${lt_cv_path_LDCXX+set}"; then
+ lt_cv_path_LD=$lt_cv_path_LDCXX
+ else
+ $as_unset lt_cv_path_LD
+ fi
+ test -z "${LDCXX+set}" || LD=$LDCXX
+ CC=${CXX-"c++"}
+ CFLAGS=$CXXFLAGS
+ compiler=$CC
+ compiler_CXX=$CC
+ func_cc_basename $compiler
+cc_basename=$func_cc_basename_result
+
+
+ if test -n "$compiler"; then
+ # We don't want -fno-exception when compiling C++ code, so set the
+ # no_builtin_flag separately
+ if test yes = "$GXX"; then
+ lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin'
+ else
+ lt_prog_compiler_no_builtin_flag_CXX=
+ fi
+
+ if test yes = "$GXX"; then
+ # Set up default GNU C++ configuration
+
+
+
+# Check whether --with-gnu-ld was given.
+if test "${with_gnu_ld+set}" = set; then :
+ withval=$with_gnu_ld; test no = "$withval" || with_gnu_ld=yes
+else
+ with_gnu_ld=no
+fi
+
+ac_prog=ld
+if test yes = "$GCC"; then
+ # Check if gcc -print-prog-name=ld gives a path.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5
+$as_echo_n "checking for ld used by $CC... " >&6; }
+ case $host in
+ *-*-mingw*)
+ # gcc leaves a trailing carriage return, which upsets mingw
+ ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
+ *)
+ ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
+ esac
+ case $ac_prog in
+ # Accept absolute paths.
+ [\\/]* | ?:[\\/]*)
+ re_direlt='/[^/][^/]*/\.\./'
+ # Canonicalize the pathname of ld
+ ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'`
+ while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do
+ ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"`
+ done
+ test -z "$LD" && LD=$ac_prog
+ ;;
+ "")
+ # If it fails, then pretend we aren't using GCC.
+ ac_prog=ld
+ ;;
+ *)
+ # If it is relative, then search for the first ld in PATH.
+ with_gnu_ld=unknown
+ ;;
+ esac
+elif test yes = "$with_gnu_ld"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5
+$as_echo_n "checking for GNU ld... " >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5
+$as_echo_n "checking for non-GNU ld... " >&6; }
+fi
+if ${lt_cv_path_LD+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -z "$LD"; then
+ lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
+ for ac_dir in $PATH; do
+ IFS=$lt_save_ifs
+ test -z "$ac_dir" && ac_dir=.
+ if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
+ lt_cv_path_LD=$ac_dir/$ac_prog
+ # Check to see if the program is GNU ld. I'd rather use --version,
+ # but apparently some variants of GNU ld only accept -v.
+ # Break only if it was the GNU/non-GNU ld that we prefer.
+ case `"$lt_cv_path_LD" -v 2>&1 </dev/null` in
+ *GNU* | *'with BFD'*)
+ test no != "$with_gnu_ld" && break
+ ;;
+ *)
+ test yes != "$with_gnu_ld" && break
+ ;;
+ esac
+ fi
+ done
+ IFS=$lt_save_ifs
+else
+ lt_cv_path_LD=$LD # Let the user override the test with a path.
+fi
+fi
+
+LD=$lt_cv_path_LD
+if test -n "$LD"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LD" >&5
+$as_echo "$LD" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5
+$as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; }
+if ${lt_cv_prog_gnu_ld+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ # I'd rather use --version here, but apparently some GNU lds only accept -v.
+case `$LD -v 2>&1 </dev/null` in
+*GNU* | *'with BFD'*)
+ lt_cv_prog_gnu_ld=yes
+ ;;
+*)
+ lt_cv_prog_gnu_ld=no
+ ;;
+esac
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_gnu_ld" >&5
+$as_echo "$lt_cv_prog_gnu_ld" >&6; }
+with_gnu_ld=$lt_cv_prog_gnu_ld
+
+
+
+
+
+
+
+ # Check if GNU C++ uses GNU ld as the underlying linker, since the
+ # archiving commands below assume that GNU ld is being used.
+ if test yes = "$with_gnu_ld"; then
+ archive_cmds_CXX='$CC $pic_flag -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_CXX='$CC $pic_flag -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+
+ hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir'
+ export_dynamic_flag_spec_CXX='$wl--export-dynamic'
+
+ # If archive_cmds runs LD, not CC, wlarc should be empty
+ # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to
+ # investigate it a little bit more. (MM)
+ wlarc='$wl'
+
+ # ancient GNU ld didn't support --whole-archive et. al.
+ if eval "`$CC -print-prog-name=ld` --help 2>&1" |
+ $GREP 'no-whole-archive' > /dev/null; then
+ whole_archive_flag_spec_CXX=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive'
+ else
+ whole_archive_flag_spec_CXX=
+ fi
+ else
+ with_gnu_ld=no
+ wlarc=
+
+ # A generic and very simple default shared library creation
+ # command for GNU C++ for the case where it uses the native
+ # linker, instead of GNU ld. If possible, this setting should
+ # overridden to take advantage of the native linker features on
+ # the platform it is being used on.
+ archive_cmds_CXX='$CC -shared $libobjs $deplibs $compiler_flags -o $lib'
+ fi
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
+
+ else
+ GXX=no
+ with_gnu_ld=no
+ wlarc=
+ fi
+
+ # PORTME: fill in a description of your system's C++ link characteristics
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
+$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
+ ld_shlibs_CXX=yes
+ case $host_os in
+ aix3*)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ aix[4-9]*)
+ if test ia64 = "$host_cpu"; then
+ # On IA64, the linker does run time linking by default, so we don't
+ # have to do anything special.
+ aix_use_runtimelinking=no
+ exp_sym_flag='-Bexport'
+ no_entry_flag=
+ else
+ aix_use_runtimelinking=no
+
+ # Test if we are trying to use run time linking or normal
+ # AIX style linking. If -brtl is somewhere in LDFLAGS, we
+ # have runtime linking enabled, and use it for executables.
+ # For shared libraries, we enable/disable runtime linking
+ # depending on the kind of the shared library created -
+ # when "with_aix_soname,aix_use_runtimelinking" is:
+ # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables
+ # "aix,yes" lib.so shared, rtl:yes, for executables
+ # lib.a static archive
+ # "both,no" lib.so.V(shr.o) shared, rtl:yes
+ # lib.a(lib.so.V) shared, rtl:no, for executables
+ # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a(lib.so.V) shared, rtl:no
+ # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a static archive
+ case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
+ for ld_flag in $LDFLAGS; do
+ case $ld_flag in
+ *-brtl*)
+ aix_use_runtimelinking=yes
+ break
+ ;;
+ esac
+ done
+ if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # With aix-soname=svr4, we create the lib.so.V shared archives only,
+ # so we don't have lib.a shared libs to link our executables.
+ # We have to force runtime linking in this case.
+ aix_use_runtimelinking=yes
+ LDFLAGS="$LDFLAGS -Wl,-brtl"
+ fi
+ ;;
+ esac
+
+ exp_sym_flag='-bexport'
+ no_entry_flag='-bnoentry'
+ fi
+
+ # When large executables or shared objects are built, AIX ld can
+ # have problems creating the table of contents. If linking a library
+ # or program results in "error TOC overflow" add -mminimal-toc to
+ # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
+ # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
+
+ archive_cmds_CXX=''
+ hardcode_direct_CXX=yes
+ hardcode_direct_absolute_CXX=yes
+ hardcode_libdir_separator_CXX=':'
+ link_all_deplibs_CXX=yes
+ file_list_spec_CXX='$wl-f,'
+ case $with_aix_soname,$aix_use_runtimelinking in
+ aix,*) ;; # no import file
+ svr4,* | *,yes) # use import file
+ # The Import File defines what to hardcode.
+ hardcode_direct_CXX=no
+ hardcode_direct_absolute_CXX=no
+ ;;
+ esac
+
+ if test yes = "$GXX"; then
+ case $host_os in aix4.[012]|aix4.[012].*)
+ # We only want to do this on AIX 4.2 and lower, the check
+ # below for broken collect2 doesn't work under 4.3+
+ collect2name=`$CC -print-prog-name=collect2`
+ if test -f "$collect2name" &&
+ strings "$collect2name" | $GREP resolve_lib_name >/dev/null
+ then
+ # We have reworked collect2
+ :
+ else
+ # We have old collect2
+ hardcode_direct_CXX=unsupported
+ # It fails to find uninstalled libraries when the uninstalled
+ # path is not listed in the libpath. Setting hardcode_minus_L
+ # to unsupported forces relinking
+ hardcode_minus_L_CXX=yes
+ hardcode_libdir_flag_spec_CXX='-L$libdir'
+ hardcode_libdir_separator_CXX=
+ fi
+ esac
+ shared_flag='-shared'
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag=$shared_flag' $wl-G'
+ fi
+ # Need to ensure runtime linking is disabled for the traditional
+ # shared library, or the linker may eventually find shared libraries
+ # /with/ Import File - we do not want to mix them.
+ shared_flag_aix='-shared'
+ shared_flag_svr4='-shared $wl-G'
+ else
+ # not using gcc
+ if test ia64 = "$host_cpu"; then
+ # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
+ # chokes on -Wl,-G. The following line is correct:
+ shared_flag='-G'
+ else
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag='$wl-G'
+ else
+ shared_flag='$wl-bM:SRE'
+ fi
+ shared_flag_aix='$wl-bM:SRE'
+ shared_flag_svr4='$wl-G'
+ fi
+ fi
+
+ export_dynamic_flag_spec_CXX='$wl-bexpall'
+ # It seems that -bexpall does not export symbols beginning with
+ # underscore (_), so it is better to generate a list of symbols to
+ # export.
+ always_export_symbols_CXX=yes
+ if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # Warning - without using the other runtime loading flags (-brtl),
+ # -berok will link without error, but may produce a broken library.
+ # The "-G" linker flag allows undefined symbols.
+ no_undefined_flag_CXX='-bernotok'
+ # Determine the default libpath from the value encoded in an empty
+ # executable.
+ if test set = "${lt_cv_aix_libpath+set}"; then
+ aix_libpath=$lt_cv_aix_libpath
+else
+ if ${lt_cv_aix_libpath__CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_cxx_try_link "$LINENO"; then :
+
+ lt_aix_libpath_sed='
+ /Import File Strings/,/^$/ {
+ /^0/ {
+ s/^0 *\([^ ]*\) *$/\1/
+ p
+ }
+ }'
+ lt_cv_aix_libpath__CXX=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ # Check for a 64-bit object if we didn't find anything.
+ if test -z "$lt_cv_aix_libpath__CXX"; then
+ lt_cv_aix_libpath__CXX=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ if test -z "$lt_cv_aix_libpath__CXX"; then
+ lt_cv_aix_libpath__CXX=/usr/lib:/lib
+ fi
+
+fi
+
+ aix_libpath=$lt_cv_aix_libpath__CXX
+fi
+
+ hardcode_libdir_flag_spec_CXX='$wl-blibpath:$libdir:'"$aix_libpath"
+
+ archive_expsym_cmds_CXX='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag
+ else
+ if test ia64 = "$host_cpu"; then
+ hardcode_libdir_flag_spec_CXX='$wl-R $libdir:/usr/lib:/lib'
+ allow_undefined_flag_CXX="-z nodefs"
+ archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols"
+ else
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ if test set = "${lt_cv_aix_libpath+set}"; then
+ aix_libpath=$lt_cv_aix_libpath
+else
+ if ${lt_cv_aix_libpath__CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_cxx_try_link "$LINENO"; then :
+
+ lt_aix_libpath_sed='
+ /Import File Strings/,/^$/ {
+ /^0/ {
+ s/^0 *\([^ ]*\) *$/\1/
+ p
+ }
+ }'
+ lt_cv_aix_libpath__CXX=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ # Check for a 64-bit object if we didn't find anything.
+ if test -z "$lt_cv_aix_libpath__CXX"; then
+ lt_cv_aix_libpath__CXX=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ if test -z "$lt_cv_aix_libpath__CXX"; then
+ lt_cv_aix_libpath__CXX=/usr/lib:/lib
+ fi
+
+fi
+
+ aix_libpath=$lt_cv_aix_libpath__CXX
+fi
+
+ hardcode_libdir_flag_spec_CXX='$wl-blibpath:$libdir:'"$aix_libpath"
+ # Warning - without using the other run time loading flags,
+ # -berok will link without error, but may produce a broken library.
+ no_undefined_flag_CXX=' $wl-bernotok'
+ allow_undefined_flag_CXX=' $wl-berok'
+ if test yes = "$with_gnu_ld"; then
+ # We only use this code for GNU lds that support --whole-archive.
+ whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive'
+ else
+ # Exported symbols can be pulled into shared objects from archives
+ whole_archive_flag_spec_CXX='$convenience'
+ fi
+ archive_cmds_need_lc_CXX=yes
+ archive_expsym_cmds_CXX='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d'
+ # -brtl affects multiple linker settings, -berok does not and is overridden later
+ compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([, ]\\)%-berok\\1%g"`'
+ if test svr4 != "$with_aix_soname"; then
+ # This is similar to how AIX traditionally builds its shared
+ # libraries. Need -bnortl late, we may have -brtl in LDFLAGS.
+ archive_expsym_cmds_CXX="$archive_expsym_cmds_CXX"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname'
+ fi
+ if test aix != "$with_aix_soname"; then
+ archive_expsym_cmds_CXX="$archive_expsym_cmds_CXX"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp'
+ else
+ # used by -dlpreopen to get the symbols
+ archive_expsym_cmds_CXX="$archive_expsym_cmds_CXX"'~$MV $output_objdir/$realname.d/$soname $output_objdir'
+ fi
+ archive_expsym_cmds_CXX="$archive_expsym_cmds_CXX"'~$RM -r $output_objdir/$realname.d'
+ fi
+ fi
+ ;;
+
+ beos*)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ allow_undefined_flag_CXX=unsupported
+ # Joseph Beckenbach <jrb3@best.com> says some releases of gcc
+ # support --undefined. This deserves some investigation. FIXME
+ archive_cmds_CXX='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ else
+ ld_shlibs_CXX=no
+ fi
+ ;;
+
+ chorus*)
+ case $cc_basename in
+ *)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ esac
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ case $GXX,$cc_basename in
+ ,cl* | no,cl*)
+ # Native MSVC
+ # hardcode_libdir_flag_spec is actually meaningless, as there is
+ # no search path for DLLs.
+ hardcode_libdir_flag_spec_CXX=' '
+ allow_undefined_flag_CXX=unsupported
+ always_export_symbols_CXX=yes
+ file_list_spec_CXX='@'
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ archive_cmds_CXX='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames='
+ archive_expsym_cmds_CXX='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
+ cp "$export_symbols" "$output_objdir/$soname.def";
+ echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp";
+ else
+ $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp;
+ fi~
+ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
+ linknames='
+ # The linker will not automatically build a static lib if we build a DLL.
+ # _LT_TAGVAR(old_archive_from_new_cmds, CXX)='true'
+ enable_shared_with_static_runtimes_CXX=yes
+ # Don't use ranlib
+ old_postinstall_cmds_CXX='chmod 644 $oldlib'
+ postlink_cmds_CXX='lt_outputfile="@OUTPUT@"~
+ lt_tool_outputfile="@TOOL_OUTPUT@"~
+ case $lt_outputfile in
+ *.exe|*.EXE) ;;
+ *)
+ lt_outputfile=$lt_outputfile.exe
+ lt_tool_outputfile=$lt_tool_outputfile.exe
+ ;;
+ esac~
+ func_to_tool_file "$lt_outputfile"~
+ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then
+ $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
+ $RM "$lt_outputfile.manifest";
+ fi'
+ ;;
+ *)
+ # g++
+ # _LT_TAGVAR(hardcode_libdir_flag_spec, CXX) is actually meaningless,
+ # as there is no search path for DLLs.
+ hardcode_libdir_flag_spec_CXX='-L$libdir'
+ export_dynamic_flag_spec_CXX='$wl--export-all-symbols'
+ allow_undefined_flag_CXX=unsupported
+ always_export_symbols_CXX=no
+ enable_shared_with_static_runtimes_CXX=yes
+
+ if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
+ archive_cmds_CXX='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ # If the export-symbols file already is a .def file, use it as
+ # is; otherwise, prepend EXPORTS...
+ archive_expsym_cmds_CXX='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
+ cp $export_symbols $output_objdir/$soname.def;
+ else
+ echo EXPORTS > $output_objdir/$soname.def;
+ cat $export_symbols >> $output_objdir/$soname.def;
+ fi~
+ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ else
+ ld_shlibs_CXX=no
+ fi
+ ;;
+ esac
+ ;;
+ darwin* | rhapsody*)
+
+
+ archive_cmds_need_lc_CXX=no
+ hardcode_direct_CXX=no
+ hardcode_automatic_CXX=yes
+ hardcode_shlibpath_var_CXX=unsupported
+ if test yes = "$lt_cv_ld_force_load"; then
+ whole_archive_flag_spec_CXX='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
+
+ else
+ whole_archive_flag_spec_CXX=''
+ fi
+ link_all_deplibs_CXX=yes
+ allow_undefined_flag_CXX=$_lt_dar_allow_undefined
+ case $cc_basename in
+ ifort*|nagfor*) _lt_dar_can_shared=yes ;;
+ *) _lt_dar_can_shared=$GCC ;;
+ esac
+ if test yes = "$_lt_dar_can_shared"; then
+ output_verbose_link_cmd=func_echo_all
+ archive_cmds_CXX="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil"
+ module_cmds_CXX="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil"
+ archive_expsym_cmds_CXX="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil"
+ module_expsym_cmds_CXX="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil"
+ if test yes != "$lt_cv_apple_cc_single_mod"; then
+ archive_cmds_CXX="\$CC -r -keep_private_externs -nostdlib -o \$lib-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$lib-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring$_lt_dsymutil"
+ archive_expsym_cmds_CXX="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \$lib-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$lib-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring$_lt_dar_export_syms$_lt_dsymutil"
+ fi
+
+ else
+ ld_shlibs_CXX=no
+ fi
+
+ ;;
+
+ os2*)
+ hardcode_libdir_flag_spec_CXX='-L$libdir'
+ hardcode_minus_L_CXX=yes
+ allow_undefined_flag_CXX=unsupported
+ shrext_cmds=.dll
+ archive_cmds_CXX='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ archive_expsym_cmds_CXX='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ old_archive_From_new_cmds_CXX='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ enable_shared_with_static_runtimes_CXX=yes
+ ;;
+
+ dgux*)
+ case $cc_basename in
+ ec++*)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ ghcx*)
+ # Green Hills C++ Compiler
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ esac
+ ;;
+
+ freebsd2.*)
+ # C++ shared libraries reported to be fairly broken before
+ # switch to ELF
+ ld_shlibs_CXX=no
+ ;;
+
+ freebsd-elf*)
+ archive_cmds_need_lc_CXX=no
+ ;;
+
+ freebsd* | dragonfly*)
+ # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF
+ # conventions
+ ld_shlibs_CXX=yes
+ ;;
+
+ haiku*)
+ archive_cmds_CXX='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ link_all_deplibs_CXX=yes
+ ;;
+
+ hpux9*)
+ hardcode_libdir_flag_spec_CXX='$wl+b $wl$libdir'
+ hardcode_libdir_separator_CXX=:
+ export_dynamic_flag_spec_CXX='$wl-E'
+ hardcode_direct_CXX=yes
+ hardcode_minus_L_CXX=yes # Not in the search PATH,
+ # but as the default
+ # location of the library.
+
+ case $cc_basename in
+ CC*)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ aCC*)
+ archive_cmds_CXX='$RM $output_objdir/$soname~$CC -b $wl+b $wl$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
+ ;;
+ *)
+ if test yes = "$GXX"; then
+ archive_cmds_CXX='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ else
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ fi
+ ;;
+ esac
+ ;;
+
+ hpux10*|hpux11*)
+ if test no = "$with_gnu_ld"; then
+ hardcode_libdir_flag_spec_CXX='$wl+b $wl$libdir'
+ hardcode_libdir_separator_CXX=:
+
+ case $host_cpu in
+ hppa*64*|ia64*)
+ ;;
+ *)
+ export_dynamic_flag_spec_CXX='$wl-E'
+ ;;
+ esac
+ fi
+ case $host_cpu in
+ hppa*64*|ia64*)
+ hardcode_direct_CXX=no
+ hardcode_shlibpath_var_CXX=no
+ ;;
+ *)
+ hardcode_direct_CXX=yes
+ hardcode_direct_absolute_CXX=yes
+ hardcode_minus_L_CXX=yes # Not in the search PATH,
+ # but as the default
+ # location of the library.
+ ;;
+ esac
+
+ case $cc_basename in
+ CC*)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ aCC*)
+ case $host_cpu in
+ hppa*64*)
+ archive_cmds_CXX='$CC -b $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ ia64*)
+ archive_cmds_CXX='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ *)
+ archive_cmds_CXX='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ esac
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
+ ;;
+ *)
+ if test yes = "$GXX"; then
+ if test no = "$with_gnu_ld"; then
+ case $host_cpu in
+ hppa*64*)
+ archive_cmds_CXX='$CC -shared -nostdlib -fPIC $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ ia64*)
+ archive_cmds_CXX='$CC -shared -nostdlib $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ *)
+ archive_cmds_CXX='$CC -shared -nostdlib $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ esac
+ fi
+ else
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ fi
+ ;;
+ esac
+ ;;
+
+ interix[3-9]*)
+ hardcode_direct_CXX=no
+ hardcode_shlibpath_var_CXX=no
+ hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir'
+ export_dynamic_flag_spec_CXX='$wl-E'
+ # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
+ # Instead, shared libraries are loaded at an image base (0x10000000 by
+ # default) and relocated if they conflict, which is a slow very memory
+ # consuming and fragmenting process. To avoid this, we pick a random,
+ # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
+ # time. Moving up from 0x10000000 also allows more sbrk(2) space.
+ archive_cmds_CXX='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ archive_expsym_cmds_CXX='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ ;;
+ irix5* | irix6*)
+ case $cc_basename in
+ CC*)
+ # SGI C++
+ archive_cmds_CXX='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+
+ # Archives containing C++ object files must be created using
+ # "CC -ar", where "CC" is the IRIX C++ compiler. This is
+ # necessary to make sure instantiated templates are included
+ # in the archive.
+ old_archive_cmds_CXX='$CC -ar -WR,-u -o $oldlib $oldobjs'
+ ;;
+ *)
+ if test yes = "$GXX"; then
+ if test no = "$with_gnu_ld"; then
+ archive_cmds_CXX='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ else
+ archive_cmds_CXX='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` -o $lib'
+ fi
+ fi
+ link_all_deplibs_CXX=yes
+ ;;
+ esac
+ hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator_CXX=:
+ inherit_rpath_CXX=yes
+ ;;
+
+ linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ case $cc_basename in
+ KCC*)
+ # Kuck and Associates, Inc. (KAI) C++ Compiler
+
+ # KCC will only create a shared library if the output file
+ # ends with ".so" (or ".sl" for HP-UX), so rename the library
+ # to its proper name (with version) after linking.
+ archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
+ archive_expsym_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib $wl-retain-symbols-file,$export_symbols; mv \$templib $lib'
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
+
+ hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir'
+ export_dynamic_flag_spec_CXX='$wl--export-dynamic'
+
+ # Archives containing C++ object files must be created using
+ # "CC -Bstatic", where "CC" is the KAI C++ compiler.
+ old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs'
+ ;;
+ icpc* | ecpc* )
+ # Intel C++
+ with_gnu_ld=yes
+ # version 8.0 and above of icpc choke on multiply defined symbols
+ # if we add $predep_objects and $postdep_objects, however 7.1 and
+ # earlier do not add the objects themselves.
+ case `$CC -V 2>&1` in
+ *"Version 7."*)
+ archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ ;;
+ *) # Version 8.0 or newer
+ tmp_idyn=
+ case $host_cpu in
+ ia64*) tmp_idyn=' -i_dynamic';;
+ esac
+ archive_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ ;;
+ esac
+ archive_cmds_need_lc_CXX=no
+ hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir'
+ export_dynamic_flag_spec_CXX='$wl--export-dynamic'
+ whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive'
+ ;;
+ pgCC* | pgcpp* | pgc++* )
+ # Portland Group C++ compiler
+ case `$CC -V` in
+ *pgCC\ [1-5].* | *pgcpp\ [1-5].*)
+ prelink_cmds_CXX='tpldir=Template.dir~
+ rm -rf $tpldir~
+ $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~
+ compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"'
+ old_archive_cmds_CXX='tpldir=Template.dir~
+ rm -rf $tpldir~
+ $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~
+ $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~
+ $RANLIB $oldlib'
+ archive_cmds_CXX='tpldir=Template.dir~
+ rm -rf $tpldir~
+ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~
+ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_CXX='tpldir=Template.dir~
+ rm -rf $tpldir~
+ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~
+ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ ;;
+ *) # Version 6 and above use weak symbols
+ archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ ;;
+ esac
+
+ hardcode_libdir_flag_spec_CXX='$wl--rpath $wl$libdir'
+ export_dynamic_flag_spec_CXX='$wl--export-dynamic'
+ whole_archive_flag_spec_CXX='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ ;;
+ cxx*)
+ # Compaq C++
+ archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib $wl-retain-symbols-file $wl$export_symbols'
+
+ runpath_var=LD_RUN_PATH
+ hardcode_libdir_flag_spec_CXX='-rpath $libdir'
+ hardcode_libdir_separator_CXX=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed'
+ ;;
+ xl* | mpixl* | bgxl*)
+ # IBM XL 8.0 on PPC, with GNU ld
+ hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir'
+ export_dynamic_flag_spec_CXX='$wl--export-dynamic'
+ archive_cmds_CXX='$CC -qmkshrobj $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ if test yes = "$supports_anon_versioning"; then
+ archive_expsym_cmds_CXX='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $CC -qmkshrobj $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib'
+ fi
+ ;;
+ *)
+ case `$CC -V 2>&1 | sed -n 1,5p` in
+ *Sun\ C*)
+ # Sun C++ 5.9
+ no_undefined_flag_CXX=' -zdefs'
+ archive_cmds_CXX='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ archive_expsym_cmds_CXX='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file $wl$export_symbols'
+ hardcode_libdir_flag_spec_CXX='-R$libdir'
+ whole_archive_flag_spec_CXX='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ compiler_needs_object_CXX=yes
+
+ # Not sure whether something based on
+ # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1
+ # would be better.
+ output_verbose_link_cmd='func_echo_all'
+
+ # Archives containing C++ object files must be created using
+ # "CC -xar", where "CC" is the Sun C++ compiler. This is
+ # necessary to make sure instantiated templates are included
+ # in the archive.
+ old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs'
+ ;;
+ esac
+ ;;
+ esac
+ ;;
+
+ lynxos*)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+
+ m88k*)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+
+ mvs*)
+ case $cc_basename in
+ cxx*)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ esac
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ archive_cmds_CXX='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags'
+ wlarc=
+ hardcode_libdir_flag_spec_CXX='-R$libdir'
+ hardcode_direct_CXX=yes
+ hardcode_shlibpath_var_CXX=no
+ fi
+ # Workaround some broken pre-1.5 toolchains
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"'
+ ;;
+
+ *nto* | *qnx*)
+ ld_shlibs_CXX=yes
+ ;;
+
+ openbsd* | bitrig*)
+ if test -f /usr/libexec/ld.so; then
+ hardcode_direct_CXX=yes
+ hardcode_shlibpath_var_CXX=no
+ hardcode_direct_absolute_CXX=yes
+ archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib'
+ hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir'
+ if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`"; then
+ archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file,$export_symbols -o $lib'
+ export_dynamic_flag_spec_CXX='$wl-E'
+ whole_archive_flag_spec_CXX=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive'
+ fi
+ output_verbose_link_cmd=func_echo_all
+ else
+ ld_shlibs_CXX=no
+ fi
+ ;;
+
+ osf3* | osf4* | osf5*)
+ case $cc_basename in
+ KCC*)
+ # Kuck and Associates, Inc. (KAI) C++ Compiler
+
+ # KCC will only create a shared library if the output file
+ # ends with ".so" (or ".sl" for HP-UX), so rename the library
+ # to its proper name (with version) after linking.
+ archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
+
+ hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir'
+ hardcode_libdir_separator_CXX=:
+
+ # Archives containing C++ object files must be created using
+ # the KAI C++ compiler.
+ case $host in
+ osf3*) old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' ;;
+ *) old_archive_cmds_CXX='$CC -o $oldlib $oldobjs' ;;
+ esac
+ ;;
+ RCC*)
+ # Rational C++ 2.4.1
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ cxx*)
+ case $host in
+ osf3*)
+ allow_undefined_flag_CXX=' $wl-expect_unresolved $wl\*'
+ archive_cmds_CXX='$CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $soname `test -n "$verstring" && func_echo_all "$wl-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir'
+ ;;
+ *)
+ allow_undefined_flag_CXX=' -expect_unresolved \*'
+ archive_cmds_CXX='$CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ archive_expsym_cmds_CXX='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~
+ echo "-hidden">> $lib.exp~
+ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname $wl-input $wl$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~
+ $RM $lib.exp'
+ hardcode_libdir_flag_spec_CXX='-rpath $libdir'
+ ;;
+ esac
+
+ hardcode_libdir_separator_CXX=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
+ ;;
+ *)
+ if test yes,no = "$GXX,$with_gnu_ld"; then
+ allow_undefined_flag_CXX=' $wl-expect_unresolved $wl\*'
+ case $host in
+ osf3*)
+ archive_cmds_CXX='$CC -shared -nostdlib $allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ ;;
+ *)
+ archive_cmds_CXX='$CC -shared $pic_flag -nostdlib $allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ ;;
+ esac
+
+ hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator_CXX=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
+
+ else
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ fi
+ ;;
+ esac
+ ;;
+
+ psos*)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+
+ sunos4*)
+ case $cc_basename in
+ CC*)
+ # Sun C++ 4.x
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ lcc*)
+ # Lucid
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ esac
+ ;;
+
+ solaris*)
+ case $cc_basename in
+ CC* | sunCC*)
+ # Sun C++ 4.2, 5.x and Centerline C++
+ archive_cmds_need_lc_CXX=yes
+ no_undefined_flag_CXX=' -zdefs'
+ archive_cmds_CXX='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ archive_expsym_cmds_CXX='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -G$allow_undefined_flag $wl-M $wl$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
+
+ hardcode_libdir_flag_spec_CXX='-R$libdir'
+ hardcode_shlibpath_var_CXX=no
+ case $host_os in
+ solaris2.[0-5] | solaris2.[0-5].*) ;;
+ *)
+ # The compiler driver will combine and reorder linker options,
+ # but understands '-z linker_flag'.
+ # Supported since Solaris 2.6 (maybe 2.5.1?)
+ whole_archive_flag_spec_CXX='-z allextract$convenience -z defaultextract'
+ ;;
+ esac
+ link_all_deplibs_CXX=yes
+
+ output_verbose_link_cmd='func_echo_all'
+
+ # Archives containing C++ object files must be created using
+ # "CC -xar", where "CC" is the Sun C++ compiler. This is
+ # necessary to make sure instantiated templates are included
+ # in the archive.
+ old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs'
+ ;;
+ gcx*)
+ # Green Hills C++ Compiler
+ archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib'
+
+ # The C++ compiler must be used to create the archive.
+ old_archive_cmds_CXX='$CC $LDFLAGS -archive -o $oldlib $oldobjs'
+ ;;
+ *)
+ # GNU C++ compiler with Solaris linker
+ if test yes,no = "$GXX,$with_gnu_ld"; then
+ no_undefined_flag_CXX=' $wl-z ${wl}defs'
+ if $CC --version | $GREP -v '^2\.7' > /dev/null; then
+ archive_cmds_CXX='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib'
+ archive_expsym_cmds_CXX='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -shared $pic_flag -nostdlib $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
+ else
+ # g++ 2.7 appears to require '-G' NOT '-shared' on this
+ # platform.
+ archive_cmds_CXX='$CC -G -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib'
+ archive_expsym_cmds_CXX='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -G -nostdlib $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
+ fi
+
+ hardcode_libdir_flag_spec_CXX='$wl-R $wl$libdir'
+ case $host_os in
+ solaris2.[0-5] | solaris2.[0-5].*) ;;
+ *)
+ whole_archive_flag_spec_CXX='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract'
+ ;;
+ esac
+ fi
+ ;;
+ esac
+ ;;
+
+ sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
+ no_undefined_flag_CXX='$wl-z,text'
+ archive_cmds_need_lc_CXX=no
+ hardcode_shlibpath_var_CXX=no
+ runpath_var='LD_RUN_PATH'
+
+ case $cc_basename in
+ CC*)
+ archive_cmds_CXX='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_CXX='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ archive_cmds_CXX='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_CXX='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6*)
+ # Note: We CANNOT use -z defs as we might desire, because we do not
+ # link with -lc, and that would cause any symbols used from libc to
+ # always be unresolved, which means just about no library would
+ # ever link correctly. If we're not using GNU ld we use -z text
+ # though, which does catch some bad symbols but isn't as heavy-handed
+ # as -z defs.
+ no_undefined_flag_CXX='$wl-z,text'
+ allow_undefined_flag_CXX='$wl-z,nodefs'
+ archive_cmds_need_lc_CXX=no
+ hardcode_shlibpath_var_CXX=no
+ hardcode_libdir_flag_spec_CXX='$wl-R,$libdir'
+ hardcode_libdir_separator_CXX=':'
+ link_all_deplibs_CXX=yes
+ export_dynamic_flag_spec_CXX='$wl-Bexport'
+ runpath_var='LD_RUN_PATH'
+
+ case $cc_basename in
+ CC*)
+ archive_cmds_CXX='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_CXX='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ old_archive_cmds_CXX='$CC -Tprelink_objects $oldobjs~
+ '"$old_archive_cmds_CXX"
+ reload_cmds_CXX='$CC -Tprelink_objects $reload_objs~
+ '"$reload_cmds_CXX"
+ ;;
+ *)
+ archive_cmds_CXX='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_CXX='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ ;;
+
+ tandem*)
+ case $cc_basename in
+ NCC*)
+ # NonStop-UX NCC 3.20
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ esac
+ ;;
+
+ vxworks*)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+
+ *)
+ # FIXME: insert proper C++ library support
+ ld_shlibs_CXX=no
+ ;;
+ esac
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5
+$as_echo "$ld_shlibs_CXX" >&6; }
+ test no = "$ld_shlibs_CXX" && can_build_shared=no
+
+ GCC_CXX=$GXX
+ LD_CXX=$LD
+
+ ## CAVEAT EMPTOR:
+ ## There is no encapsulation within the following macros, do not change
+ ## the running order or otherwise move them around unless you know exactly
+ ## what you are doing...
+ { output_verbose_link_cmd=; unset output_verbose_link_cmd;}
+ # Dependencies to place before and after the object being linked:
+predep_objects_CXX=
+postdep_objects_CXX=
+predeps_CXX=
+postdeps_CXX=
+compiler_lib_search_path_CXX=
+
+cat > conftest.$ac_ext <<_LT_EOF
+class Foo
+{
+public:
+ Foo (void) { a = 0; }
+private:
+ int a;
+};
+_LT_EOF
+
+
+_lt_libdeps_save_CFLAGS=$CFLAGS
+case "$CC $CFLAGS " in #(
+*\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;;
+*\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;;
+*\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;;
+esac
+
+if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ # Parse the compiler output and extract the necessary
+ # objects, libraries and library flags.
+
+ # Sentinel used to keep track of whether or not we are before
+ # the conftest object file.
+ pre_test_object_deps_done=no
+
+ for p in `eval "$output_verbose_link_cmd"`; do
+ case $prev$p in
+
+ -L* | -R* | -l*)
+ # Some compilers place space between "-{L,R}" and the path.
+ # Remove the space.
+ if test x-L = x"$p" ||
+ test x-R = x"$p" ||
+ test x-l = x"$p"; then
+ prev=$p
+ continue
+ fi
+
+ # Expand the sysroot to ease extracting the directories later.
+ if test -z "$prev"; then
+ case $p in
+ -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;;
+ -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;;
+ -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;;
+ esac
+ fi
+ case $p in
+ =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;;
+ esac
+ if test no = "$pre_test_object_deps_done"; then
+ case $prev in
+ -L | -R)
+ # Internal compiler library paths should come after those
+ # provided the user. The postdeps already come after the
+ # user supplied libs so there is no need to process them.
+ if test -z "$compiler_lib_search_path_CXX"; then
+ compiler_lib_search_path_CXX=$prev$p
+ else
+ compiler_lib_search_path_CXX="${compiler_lib_search_path_CXX} $prev$p"
+ fi
+ ;;
+ # The "-l" case would never come before the object being
+ # linked, so don't bother handling this case.
+ esac
+ else
+ if test -z "$postdeps_CXX"; then
+ postdeps_CXX=$prev$p
+ else
+ postdeps_CXX="${postdeps_CXX} $prev$p"
+ fi
+ fi
+ prev=
+ ;;
+
+ *.lto.$objext) ;; # Ignore GCC LTO objects
+ *.$objext)
+ # This assumes that the test object file only shows up
+ # once in the compiler output.
+ if test "$p" = "conftest.$objext"; then
+ pre_test_object_deps_done=yes
+ continue
+ fi
+
+ if test no = "$pre_test_object_deps_done"; then
+ if test -z "$predep_objects_CXX"; then
+ predep_objects_CXX=$p
+ else
+ predep_objects_CXX="$predep_objects_CXX $p"
+ fi
+ else
+ if test -z "$postdep_objects_CXX"; then
+ postdep_objects_CXX=$p
+ else
+ postdep_objects_CXX="$postdep_objects_CXX $p"
+ fi
+ fi
+ ;;
+
+ *) ;; # Ignore the rest.
+
+ esac
+ done
+
+ # Clean up.
+ rm -f a.out a.exe
+else
+ echo "libtool.m4: error: problem compiling CXX test program"
+fi
+
+$RM -f confest.$objext
+CFLAGS=$_lt_libdeps_save_CFLAGS
+
+# PORTME: override above test on systems where it is broken
+case $host_os in
+interix[3-9]*)
+ # Interix 3.5 installs completely hosed .la files for C++, so rather than
+ # hack all around it, let's just trust "g++" to DTRT.
+ predep_objects_CXX=
+ postdep_objects_CXX=
+ postdeps_CXX=
+ ;;
+esac
+
+
+case " $postdeps_CXX " in
+*" -lc "*) archive_cmds_need_lc_CXX=no ;;
+esac
+ compiler_lib_search_dirs_CXX=
+if test -n "${compiler_lib_search_path_CXX}"; then
+ compiler_lib_search_dirs_CXX=`echo " ${compiler_lib_search_path_CXX}" | $SED -e 's! -L! !g' -e 's!^ !!'`
+fi
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ lt_prog_compiler_wl_CXX=
+lt_prog_compiler_pic_CXX=
+lt_prog_compiler_static_CXX=
+
+
+ # C++ specific cases for pic, static, wl, etc.
+ if test yes = "$GXX"; then
+ lt_prog_compiler_wl_CXX='-Wl,'
+ lt_prog_compiler_static_CXX='-static'
+
+ case $host_os in
+ aix*)
+ # All AIX code is PIC.
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ lt_prog_compiler_static_CXX='-Bstatic'
+ fi
+ lt_prog_compiler_pic_CXX='-fPIC'
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ lt_prog_compiler_pic_CXX='-fPIC'
+ ;;
+ m68k)
+ # FIXME: we need at least 68020 code to build shared libraries, but
+ # adding the '-m68020' flag to GCC prevents building anything better,
+ # like '-m68040'.
+ lt_prog_compiler_pic_CXX='-m68020 -resident32 -malways-restore-a4'
+ ;;
+ esac
+ ;;
+
+ beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
+ # PIC is the default for these OSes.
+ ;;
+ mingw* | cygwin* | os2* | pw32* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ # Although the cygwin gcc ignores -fPIC, still need this for old-style
+ # (--disable-auto-import) libraries
+ lt_prog_compiler_pic_CXX='-DDLL_EXPORT'
+ case $host_os in
+ os2*)
+ lt_prog_compiler_static_CXX='$wl-static'
+ ;;
+ esac
+ ;;
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ lt_prog_compiler_pic_CXX='-fno-common'
+ ;;
+ *djgpp*)
+ # DJGPP does not support shared libraries at all
+ lt_prog_compiler_pic_CXX=
+ ;;
+ haiku*)
+ # PIC is the default for Haiku.
+ # The "-static" flag exists, but is broken.
+ lt_prog_compiler_static_CXX=
+ ;;
+ interix[3-9]*)
+ # Interix 3.x gcc -fpic/-fPIC options generate broken code.
+ # Instead, we relocate shared libraries at runtime.
+ ;;
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ lt_prog_compiler_pic_CXX=-Kconform_pic
+ fi
+ ;;
+ hpux*)
+ # PIC is the default for 64-bit PA HP-UX, but not for 32-bit
+ # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
+ # sets the default TLS model and affects inlining.
+ case $host_cpu in
+ hppa*64*)
+ ;;
+ *)
+ lt_prog_compiler_pic_CXX='-fPIC'
+ ;;
+ esac
+ ;;
+ *qnx* | *nto*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ lt_prog_compiler_pic_CXX='-fPIC -shared'
+ ;;
+ *)
+ lt_prog_compiler_pic_CXX='-fPIC'
+ ;;
+ esac
+ else
+ case $host_os in
+ aix[4-9]*)
+ # All AIX code is PIC.
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ lt_prog_compiler_static_CXX='-Bstatic'
+ else
+ lt_prog_compiler_static_CXX='-bnso -bI:/lib/syscalls.exp'
+ fi
+ ;;
+ chorus*)
+ case $cc_basename in
+ cxch68*)
+ # Green Hills C++ Compiler
+ # _LT_TAGVAR(lt_prog_compiler_static, CXX)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a"
+ ;;
+ esac
+ ;;
+ mingw* | cygwin* | os2* | pw32* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ lt_prog_compiler_pic_CXX='-DDLL_EXPORT'
+ ;;
+ dgux*)
+ case $cc_basename in
+ ec++*)
+ lt_prog_compiler_pic_CXX='-KPIC'
+ ;;
+ ghcx*)
+ # Green Hills C++ Compiler
+ lt_prog_compiler_pic_CXX='-pic'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ freebsd* | dragonfly*)
+ # FreeBSD uses GNU C++
+ ;;
+ hpux9* | hpux10* | hpux11*)
+ case $cc_basename in
+ CC*)
+ lt_prog_compiler_wl_CXX='-Wl,'
+ lt_prog_compiler_static_CXX='$wl-a ${wl}archive'
+ if test ia64 != "$host_cpu"; then
+ lt_prog_compiler_pic_CXX='+Z'
+ fi
+ ;;
+ aCC*)
+ lt_prog_compiler_wl_CXX='-Wl,'
+ lt_prog_compiler_static_CXX='$wl-a ${wl}archive'
+ case $host_cpu in
+ hppa*64*|ia64*)
+ # +Z the default
+ ;;
+ *)
+ lt_prog_compiler_pic_CXX='+Z'
+ ;;
+ esac
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ interix*)
+ # This is c89, which is MS Visual C++ (no shared libs)
+ # Anyone wants to do a port?
+ ;;
+ irix5* | irix6* | nonstopux*)
+ case $cc_basename in
+ CC*)
+ lt_prog_compiler_wl_CXX='-Wl,'
+ lt_prog_compiler_static_CXX='-non_shared'
+ # CC pic flag -KPIC is the default.
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ case $cc_basename in
+ KCC*)
+ # KAI C++ Compiler
+ lt_prog_compiler_wl_CXX='--backend -Wl,'
+ lt_prog_compiler_pic_CXX='-fPIC'
+ ;;
+ ecpc* )
+ # old Intel C++ for x86_64, which still supported -KPIC.
+ lt_prog_compiler_wl_CXX='-Wl,'
+ lt_prog_compiler_pic_CXX='-KPIC'
+ lt_prog_compiler_static_CXX='-static'
+ ;;
+ icpc* )
+ # Intel C++, used to be incompatible with GCC.
+ # ICC 10 doesn't accept -KPIC any more.
+ lt_prog_compiler_wl_CXX='-Wl,'
+ lt_prog_compiler_pic_CXX='-fPIC'
+ lt_prog_compiler_static_CXX='-static'
+ ;;
+ pgCC* | pgcpp* | pgc++* )
+ # Portland Group C++ compiler
+ lt_prog_compiler_wl_CXX='-Wl,'
+ lt_prog_compiler_pic_CXX='-fpic'
+ lt_prog_compiler_static_CXX='-Bstatic'
+ ;;
+ cxx*)
+ # Compaq C++
+ # Make sure the PIC flag is empty. It appears that all Alpha
+ # Linux and Compaq Tru64 Unix objects are PIC.
+ lt_prog_compiler_pic_CXX=
+ lt_prog_compiler_static_CXX='-non_shared'
+ ;;
+ xlc* | xlC* | bgxl[cC]* | mpixl[cC]*)
+ # IBM XL 8.0, 9.0 on PPC and BlueGene
+ lt_prog_compiler_wl_CXX='-Wl,'
+ lt_prog_compiler_pic_CXX='-qpic'
+ lt_prog_compiler_static_CXX='-qstaticlink'
+ ;;
+ *)
+ case `$CC -V 2>&1 | sed -n 1,5p` in
+ *Sun\ C*)
+ # Sun C++ 5.9
+ lt_prog_compiler_pic_CXX='-KPIC'
+ lt_prog_compiler_static_CXX='-Bstatic'
+ lt_prog_compiler_wl_CXX='-Qoption ld '
+ ;;
+ esac
+ ;;
+ esac
+ ;;
+ lynxos*)
+ ;;
+ m88k*)
+ ;;
+ mvs*)
+ case $cc_basename in
+ cxx*)
+ lt_prog_compiler_pic_CXX='-W c,exportall'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ netbsd*)
+ ;;
+ *qnx* | *nto*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ lt_prog_compiler_pic_CXX='-fPIC -shared'
+ ;;
+ osf3* | osf4* | osf5*)
+ case $cc_basename in
+ KCC*)
+ lt_prog_compiler_wl_CXX='--backend -Wl,'
+ ;;
+ RCC*)
+ # Rational C++ 2.4.1
+ lt_prog_compiler_pic_CXX='-pic'
+ ;;
+ cxx*)
+ # Digital/Compaq C++
+ lt_prog_compiler_wl_CXX='-Wl,'
+ # Make sure the PIC flag is empty. It appears that all Alpha
+ # Linux and Compaq Tru64 Unix objects are PIC.
+ lt_prog_compiler_pic_CXX=
+ lt_prog_compiler_static_CXX='-non_shared'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ psos*)
+ ;;
+ solaris*)
+ case $cc_basename in
+ CC* | sunCC*)
+ # Sun C++ 4.2, 5.x and Centerline C++
+ lt_prog_compiler_pic_CXX='-KPIC'
+ lt_prog_compiler_static_CXX='-Bstatic'
+ lt_prog_compiler_wl_CXX='-Qoption ld '
+ ;;
+ gcx*)
+ # Green Hills C++ Compiler
+ lt_prog_compiler_pic_CXX='-PIC'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ sunos4*)
+ case $cc_basename in
+ CC*)
+ # Sun C++ 4.x
+ lt_prog_compiler_pic_CXX='-pic'
+ lt_prog_compiler_static_CXX='-Bstatic'
+ ;;
+ lcc*)
+ # Lucid
+ lt_prog_compiler_pic_CXX='-pic'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
+ case $cc_basename in
+ CC*)
+ lt_prog_compiler_wl_CXX='-Wl,'
+ lt_prog_compiler_pic_CXX='-KPIC'
+ lt_prog_compiler_static_CXX='-Bstatic'
+ ;;
+ esac
+ ;;
+ tandem*)
+ case $cc_basename in
+ NCC*)
+ # NonStop-UX NCC 3.20
+ lt_prog_compiler_pic_CXX='-KPIC'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ vxworks*)
+ ;;
+ *)
+ lt_prog_compiler_can_build_shared_CXX=no
+ ;;
+ esac
+ fi
+
+case $host_os in
+ # For platforms that do not support PIC, -DPIC is meaningless:
+ *djgpp*)
+ lt_prog_compiler_pic_CXX=
+ ;;
+ *)
+ lt_prog_compiler_pic_CXX="$lt_prog_compiler_pic_CXX -DPIC"
+ ;;
+esac
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
+$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
+if ${lt_cv_prog_compiler_pic_CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_pic_CXX=$lt_prog_compiler_pic_CXX
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_CXX" >&5
+$as_echo "$lt_cv_prog_compiler_pic_CXX" >&6; }
+lt_prog_compiler_pic_CXX=$lt_cv_prog_compiler_pic_CXX
+
+#
+# Check to make sure the PIC flag actually works.
+#
+if test -n "$lt_prog_compiler_pic_CXX"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works" >&5
+$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works... " >&6; }
+if ${lt_cv_prog_compiler_pic_works_CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_pic_works_CXX=no
+ ac_outfile=conftest.$ac_objext
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+ lt_compiler_flag="$lt_prog_compiler_pic_CXX -DPIC" ## exclude from sc_useless_quotes_in_assignment
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ # The option is referenced via a variable to avoid confusing sed.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>conftest.err)
+ ac_status=$?
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s "$ac_outfile"; then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings other than the usual output.
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_pic_works_CXX=yes
+ fi
+ fi
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works_CXX" >&5
+$as_echo "$lt_cv_prog_compiler_pic_works_CXX" >&6; }
+
+if test yes = "$lt_cv_prog_compiler_pic_works_CXX"; then
+ case $lt_prog_compiler_pic_CXX in
+ "" | " "*) ;;
+ *) lt_prog_compiler_pic_CXX=" $lt_prog_compiler_pic_CXX" ;;
+ esac
+else
+ lt_prog_compiler_pic_CXX=
+ lt_prog_compiler_can_build_shared_CXX=no
+fi
+
+fi
+
+
+
+
+
+#
+# Check to make sure the static flag actually works.
+#
+wl=$lt_prog_compiler_wl_CXX eval lt_tmp_static_flag=\"$lt_prog_compiler_static_CXX\"
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
+$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
+if ${lt_cv_prog_compiler_static_works_CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_static_works_CXX=no
+ save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
+ echo "$lt_simple_link_test_code" > conftest.$ac_ext
+ if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
+ # The linker can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ if test -s conftest.err; then
+ # Append any errors to the config.log.
+ cat conftest.err 1>&5
+ $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_static_works_CXX=yes
+ fi
+ else
+ lt_cv_prog_compiler_static_works_CXX=yes
+ fi
+ fi
+ $RM -r conftest*
+ LDFLAGS=$save_LDFLAGS
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works_CXX" >&5
+$as_echo "$lt_cv_prog_compiler_static_works_CXX" >&6; }
+
+if test yes = "$lt_cv_prog_compiler_static_works_CXX"; then
+ :
+else
+ lt_prog_compiler_static_CXX=
+fi
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
+$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
+if ${lt_cv_prog_compiler_c_o_CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_c_o_CXX=no
+ $RM -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
+ $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
+ if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_c_o_CXX=yes
+ fi
+ fi
+ chmod u+w . 2>&5
+ $RM conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
+ $RM out/* && rmdir out
+ cd ..
+ $RM -r conftest
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_CXX" >&5
+$as_echo "$lt_cv_prog_compiler_c_o_CXX" >&6; }
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
+$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
+if ${lt_cv_prog_compiler_c_o_CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_c_o_CXX=no
+ $RM -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
+ $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
+ if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_c_o_CXX=yes
+ fi
+ fi
+ chmod u+w . 2>&5
+ $RM conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
+ $RM out/* && rmdir out
+ cd ..
+ $RM -r conftest
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_CXX" >&5
+$as_echo "$lt_cv_prog_compiler_c_o_CXX" >&6; }
+
+
+
+
+hard_links=nottested
+if test no = "$lt_cv_prog_compiler_c_o_CXX" && test no != "$need_locks"; then
+ # do not overwrite the value of need_locks provided by the user
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
+$as_echo_n "checking if we can lock with hard links... " >&6; }
+ hard_links=yes
+ $RM conftest*
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ touch conftest.a
+ ln conftest.a conftest.b 2>&5 || hard_links=no
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
+$as_echo "$hard_links" >&6; }
+ if test no = "$hard_links"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5
+$as_echo "$as_me: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&2;}
+ need_locks=warn
+ fi
+else
+ need_locks=no
+fi
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
+$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
+
+ export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
+ case $host_os in
+ aix[4-9]*)
+ # If we're using GNU nm, then we don't want the "-C" option.
+ # -C means demangle to GNU nm, but means don't demangle to AIX nm.
+ # Without the "-l" option, or with the "-B" option, AIX nm treats
+ # weak defined symbols like other global defined symbols, whereas
+ # GNU nm marks them as "W".
+ # While the 'weak' keyword is ignored in the Export File, we need
+ # it in the Import File for the 'aix-soname' feature, so we have
+ # to replace the "-B" option with "-P" for AIX nm.
+ if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
+ export_symbols_cmds_CXX='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols'
+ else
+ export_symbols_cmds_CXX='`func_echo_all $NM | $SED -e '\''s/B\([^B]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && (substr(\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols'
+ fi
+ ;;
+ pw32*)
+ export_symbols_cmds_CXX=$ltdll_cmds
+ ;;
+ cygwin* | mingw* | cegcc*)
+ case $cc_basename in
+ cl*)
+ exclude_expsyms_CXX='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
+ ;;
+ *)
+ export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols'
+ exclude_expsyms_CXX='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'
+ ;;
+ esac
+ ;;
+ *)
+ export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ ;;
+ esac
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5
+$as_echo "$ld_shlibs_CXX" >&6; }
+test no = "$ld_shlibs_CXX" && can_build_shared=no
+
+with_gnu_ld_CXX=$with_gnu_ld
+
+
+
+
+
+
+#
+# Do we need to explicitly link libc?
+#
+case "x$archive_cmds_need_lc_CXX" in
+x|xyes)
+ # Assume -lc should be added
+ archive_cmds_need_lc_CXX=yes
+
+ if test yes,yes = "$GCC,$enable_shared"; then
+ case $archive_cmds_CXX in
+ *'~'*)
+ # FIXME: we may have to deal with multi-command sequences.
+ ;;
+ '$CC '*)
+ # Test whether the compiler implicitly links with -lc since on some
+ # systems, -lgcc has to come before -lc. If gcc already passes -lc
+ # to ld, don't add -lc before -lgcc.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
+$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
+if ${lt_cv_archive_cmds_need_lc_CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ $RM conftest*
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } 2>conftest.err; then
+ soname=conftest
+ lib=conftest
+ libobjs=conftest.$ac_objext
+ deplibs=
+ wl=$lt_prog_compiler_wl_CXX
+ pic_flag=$lt_prog_compiler_pic_CXX
+ compiler_flags=-v
+ linker_flags=-v
+ verstring=
+ output_objdir=.
+ libname=conftest
+ lt_save_allow_undefined_flag=$allow_undefined_flag_CXX
+ allow_undefined_flag_CXX=
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_CXX 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
+ (eval $archive_cmds_CXX 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+ then
+ lt_cv_archive_cmds_need_lc_CXX=no
+ else
+ lt_cv_archive_cmds_need_lc_CXX=yes
+ fi
+ allow_undefined_flag_CXX=$lt_save_allow_undefined_flag
+ else
+ cat conftest.err 1>&5
+ fi
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc_CXX" >&5
+$as_echo "$lt_cv_archive_cmds_need_lc_CXX" >&6; }
+ archive_cmds_need_lc_CXX=$lt_cv_archive_cmds_need_lc_CXX
+ ;;
+ esac
+ fi
+ ;;
+esac
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
+$as_echo_n "checking dynamic linker characteristics... " >&6; }
+
+library_names_spec=
+libname_spec='lib$name'
+soname_spec=
+shrext_cmds=.so
+postinstall_cmds=
+postuninstall_cmds=
+finish_cmds=
+finish_eval=
+shlibpath_var=
+shlibpath_overrides_runpath=unknown
+version_type=none
+dynamic_linker="$host_os ld.so"
+sys_lib_dlsearch_path_spec="/lib /usr/lib"
+need_lib_prefix=unknown
+hardcode_into_libs=no
+
+# when you set need_version to no, make sure it does not cause -set_version
+# flags to be left without arguments
+need_version=unknown
+
+
+
+case $host_os in
+aix3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname.a'
+ shlibpath_var=LIBPATH
+
+ # AIX 3 has no versioning support, so we append a major version to the name.
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+
+aix[4-9]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ hardcode_into_libs=yes
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 supports IA64
+ library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ else
+ # With GCC up to 2.95.x, collect2 would create an import file
+ # for dependence libraries. The import file would start with
+ # the line '#! .'. This would cause the generated library to
+ # depend on '.', always an invalid library. This was fixed in
+ # development snapshots of GCC prior to 3.0.
+ case $host_os in
+ aix4 | aix4.[01] | aix4.[01].*)
+ if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
+ echo ' yes '
+ echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then
+ :
+ else
+ can_build_shared=no
+ fi
+ ;;
+ esac
+ # Using Import Files as archive members, it is possible to support
+ # filename-based versioning of shared library archives on AIX. While
+ # this would work for both with and without runtime linking, it will
+ # prevent static linking of such archives. So we do filename-based
+ # shared library versioning with .so extension only, which is used
+ # when both runtime linking and shared linking is enabled.
+ # Unfortunately, runtime linking may impact performance, so we do
+ # not want this to be the default eventually. Also, we use the
+ # versioned .so libs for executables only if there is the -brtl
+ # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only.
+ # To allow for filename-based versioning support, we need to create
+ # libNAME.so.V as an archive file, containing:
+ # *) an Import File, referring to the versioned filename of the
+ # archive as well as the shared archive member, telling the
+ # bitwidth (32 or 64) of that shared object, and providing the
+ # list of exported symbols of that shared object, eventually
+ # decorated with the 'weak' keyword
+ # *) the shared object with the F_LOADONLY flag set, to really avoid
+ # it being seen by the linker.
+ # At run time we better use the real file rather than another symlink,
+ # but for link time we create the symlink libNAME.so -> libNAME.so.V
+
+ case $with_aix_soname,$aix_use_runtimelinking in
+ # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct
+ # soname into executable. Probably we can add versioning support to
+ # collect2, so additional links can be useful in future.
+ aix,yes) # traditional libtool
+ dynamic_linker='AIX unversionable lib.so'
+ # If using run time linking (on AIX 4.2 or later) use lib<name>.so
+ # instead of lib<name>.a to let people know that these are not
+ # typical AIX shared libraries.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ aix,no) # traditional AIX only
+ dynamic_linker='AIX lib.a(lib.so.V)'
+ # We preserve .a as extension for shared libraries through AIX4.2
+ # and later when we are not doing run time linking.
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ svr4,*) # full svr4 only
+ dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o)"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,yes) # both, prefer svr4
+ dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o), lib.a(lib.so.V)"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # unpreferred sharedlib libNAME.a needs extra handling
+ postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"'
+ postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,no) # both, prefer aix
+ dynamic_linker="AIX lib.a(lib.so.V), lib.so.V($shared_archive_member_spec.o)"
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling
+ postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)'
+ postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"'
+ ;;
+ esac
+ shlibpath_var=LIBPATH
+ fi
+ ;;
+
+amigaos*)
+ case $host_cpu in
+ powerpc)
+ # Since July 2007 AmigaOS4 officially supports .so libraries.
+ # When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ m68k)
+ library_names_spec='$libname.ixlibrary $libname.a'
+ # Create ${libname}_ixlibrary.a entries in /sys/libs.
+ finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
+ ;;
+ esac
+ ;;
+
+beos*)
+ library_names_spec='$libname$shared_ext'
+ dynamic_linker="$host_os ld.so"
+ shlibpath_var=LIBRARY_PATH
+ ;;
+
+bsdi[45]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
+ # the default ld.so.conf also contains /usr/contrib/lib and
+ # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
+ # libtool to hard-code these into programs
+ ;;
+
+cygwin* | mingw* | pw32* | cegcc*)
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+
+ case $GCC,$cc_basename in
+ yes,*)
+ # gcc
+ library_names_spec='$libname.dll.a'
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+
+ case $host_os in
+ cygwin*)
+ # Cygwin DLLs use 'cyg' prefix rather than 'lib'
+ soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+
+ ;;
+ mingw* | cegcc*)
+ # MinGW DLLs use traditional 'lib' prefix
+ soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ ;;
+ pw32*)
+ # pw32 DLLs use 'pw' prefix rather than 'lib'
+ library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ ;;
+ esac
+ dynamic_linker='Win32 ld.exe'
+ ;;
+
+ *,cl*)
+ # Native MSVC
+ libname_spec='$name'
+ soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ library_names_spec='$libname.dll.lib'
+
+ case $build_os in
+ mingw*)
+ sys_lib_search_path_spec=
+ lt_save_ifs=$IFS
+ IFS=';'
+ for lt_path in $LIB
+ do
+ IFS=$lt_save_ifs
+ # Let DOS variable expansion print the short 8.3 style file name.
+ lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
+ sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
+ done
+ IFS=$lt_save_ifs
+ # Convert to MSYS style.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'`
+ ;;
+ cygwin*)
+ # Convert to unix form, then to dos form, then back to unix form
+ # but this time dos style (no spaces!) so that the unix form looks
+ # like /cygdrive/c/PROGRA~1:/cygdr...
+ sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
+ sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
+ sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ ;;
+ *)
+ sys_lib_search_path_spec=$LIB
+ if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
+ # It is most probably a Windows format PATH.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
+ else
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ fi
+ # FIXME: find the short name or the path components, as spaces are
+ # common. (e.g. "Program Files" -> "PROGRA~1")
+ ;;
+ esac
+
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+ dynamic_linker='Win32 link.exe'
+ ;;
+
+ *)
+ # Assume MSVC wrapper
+ library_names_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext $libname.lib'
+ dynamic_linker='Win32 ld.exe'
+ ;;
+ esac
+ # FIXME: first we should search . and the directory the executable is in
+ shlibpath_var=PATH
+ ;;
+
+darwin* | rhapsody*)
+ dynamic_linker="$host_os dyld"
+ version_type=darwin
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$major$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$major$shared_ext'
+ shlibpath_overrides_runpath=yes
+ shlibpath_var=DYLD_LIBRARY_PATH
+ shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
+
+ sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
+ ;;
+
+dgux*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+freebsd* | dragonfly*)
+ # DragonFly does not have aout. When/if they implement a new
+ # versioning mechanism, adjust this.
+ if test -x /usr/bin/objformat; then
+ objformat=`/usr/bin/objformat`
+ else
+ case $host_os in
+ freebsd[23].*) objformat=aout ;;
+ *) objformat=elf ;;
+ esac
+ fi
+ version_type=freebsd-$objformat
+ case $version_type in
+ freebsd-elf*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ need_version=no
+ need_lib_prefix=no
+ ;;
+ freebsd-*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ need_version=yes
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_os in
+ freebsd2.*)
+ shlibpath_overrides_runpath=yes
+ ;;
+ freebsd3.[01]* | freebsdelf3.[01]*)
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
+ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+ *) # from 4.6 on, and DragonFly
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ esac
+ ;;
+
+haiku*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ dynamic_linker="$host_os runtime_loader"
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
+ hardcode_into_libs=yes
+ ;;
+
+hpux9* | hpux10* | hpux11*)
+ # Give a soname corresponding to the major version so that dld.sl refuses to
+ # link against other versions.
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ case $host_cpu in
+ ia64*)
+ shrext_cmds='.so'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.so"
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ if test 32 = "$HPUX_IA64_MODE"; then
+ sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux32
+ else
+ sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux64
+ fi
+ ;;
+ hppa*64*)
+ shrext_cmds='.sl'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+ *)
+ shrext_cmds='.sl'
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=SHLIB_PATH
+ shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ esac
+ # HP-UX runs *really* slowly unless shared libraries are mode 555, ...
+ postinstall_cmds='chmod 555 $lib'
+ # or fails outright, so override atomically:
+ install_override_mode=555
+ ;;
+
+interix[3-9]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+irix5* | irix6* | nonstopux*)
+ case $host_os in
+ nonstopux*) version_type=nonstopux ;;
+ *)
+ if test yes = "$lt_cv_prog_gnu_ld"; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ else
+ version_type=irix
+ fi ;;
+ esac
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext'
+ case $host_os in
+ irix5* | nonstopux*)
+ libsuff= shlibsuff=
+ ;;
+ *)
+ case $LD in # libtool.m4 will add one of these switches to LD
+ *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
+ libsuff= shlibsuff= libmagic=32-bit;;
+ *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
+ libsuff=32 shlibsuff=N32 libmagic=N32;;
+ *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
+ libsuff=64 shlibsuff=64 libmagic=64-bit;;
+ *) libsuff= shlibsuff= libmagic=never-match;;
+ esac
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff"
+ sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff"
+ hardcode_into_libs=yes
+ ;;
+
+# No shared lib support for Linux oldld, aout, or coff.
+linux*oldld* | linux*aout* | linux*coff*)
+ dynamic_linker=no
+ ;;
+
+linux*android*)
+ version_type=none # Android doesn't support versioned libraries.
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext'
+ soname_spec='$libname$release$shared_ext'
+ finish_cmds=
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ dynamic_linker='Android linker'
+ # Don't embed -rpath directories since the linker doesn't support them.
+ hardcode_libdir_flag_spec_CXX='-L$libdir'
+ ;;
+
+# This must be glibc/ELF.
+linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+
+ # Some binutils ld are patched to set DT_RUNPATH
+ if ${lt_cv_shlibpath_overrides_runpath+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_shlibpath_overrides_runpath=no
+ save_LDFLAGS=$LDFLAGS
+ save_libdir=$libdir
+ eval "libdir=/foo; wl=\"$lt_prog_compiler_wl_CXX\"; \
+ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec_CXX\""
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_cxx_try_link "$LINENO"; then :
+ if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
+ lt_cv_shlibpath_overrides_runpath=yes
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ LDFLAGS=$save_LDFLAGS
+ libdir=$save_libdir
+
+fi
+
+ shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ # Ideally, we could use ldconfig to report *all* directores which are
+ # searched for libraries, however this is still not possible. Aside from not
+ # being certain /sbin/ldconfig is available, command
+ # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64,
+ # even though it is searched at run-time. Try to do the best guess by
+ # appending ld.so.conf contents (and includes) to the search path.
+ if test -f /etc/ld.so.conf; then
+ lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
+ sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
+ fi
+
+ # We used to test for /lib/ld.so.1 and disable shared libraries on
+ # powerpc, because MkLinux only supported shared libraries with the
+ # GNU dynamic linker. Since this was broken with cross compilers,
+ # most powerpc-linux boxes support dynamic linking these days and
+ # people can always --disable-shared, the test was removed, and we
+ # assume the GNU/Linux dynamic linker is in use.
+ dynamic_linker='GNU/Linux ld.so'
+ ;;
+
+netbsd*)
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ dynamic_linker='NetBSD (a.out) ld.so'
+ else
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='NetBSD ld.elf_so'
+ fi
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+
+newsos6)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+*nto* | *qnx*)
+ version_type=qnx
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ dynamic_linker='ldqnx.so'
+ ;;
+
+openbsd* | bitrig*)
+ version_type=sunos
+ sys_lib_dlsearch_path_spec=/usr/lib
+ need_lib_prefix=no
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ need_version=no
+ else
+ need_version=yes
+ fi
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+os2*)
+ libname_spec='$name'
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+ # OS/2 can only load a DLL with a base name of 8 characters or less.
+ soname_spec='`test -n "$os2dllname" && libname="$os2dllname";
+ v=$($ECHO $release$versuffix | tr -d .-);
+ n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _);
+ $ECHO $n$v`$shared_ext'
+ library_names_spec='${libname}_dll.$libext'
+ dynamic_linker='OS/2 ld.exe'
+ shlibpath_var=BEGINLIBPATH
+ sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ ;;
+
+osf3* | osf4* | osf5*)
+ version_type=osf
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+
+rdos*)
+ dynamic_linker=no
+ ;;
+
+solaris*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ # ldd complains unless libraries are executable
+ postinstall_cmds='chmod +x $lib'
+ ;;
+
+sunos4*)
+ version_type=sunos
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ if test yes = "$with_gnu_ld"; then
+ need_lib_prefix=no
+ fi
+ need_version=yes
+ ;;
+
+sysv4 | sysv4.3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_vendor in
+ sni)
+ shlibpath_overrides_runpath=no
+ need_lib_prefix=no
+ runpath_var=LD_RUN_PATH
+ ;;
+ siemens)
+ need_lib_prefix=no
+ ;;
+ motorola)
+ need_lib_prefix=no
+ need_version=no
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
+ ;;
+ esac
+ ;;
+
+sysv4*MP*)
+ if test -d /usr/nec; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext'
+ soname_spec='$libname$shared_ext.$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ fi
+ ;;
+
+sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
+ version_type=sco
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ if test yes = "$with_gnu_ld"; then
+ sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
+ else
+ sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
+ case $host_os in
+ sco3.2v5*)
+ sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
+ ;;
+ esac
+ fi
+ sys_lib_dlsearch_path_spec='/usr/lib'
+ ;;
+
+tpf*)
+ # TPF is a cross-target only. Preferred cross-host = GNU/Linux.
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+uts4*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+*)
+ dynamic_linker=no
+ ;;
+esac
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
+$as_echo "$dynamic_linker" >&6; }
+test no = "$dynamic_linker" && can_build_shared=no
+
+variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
+if test yes = "$GCC"; then
+ variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
+fi
+
+if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then
+ sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec
+fi
+
+if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then
+ sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec
+fi
+
+# remember unaugmented sys_lib_dlsearch_path content for libtool script decls...
+configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec
+
+# ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code
+func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH"
+
+# to be used as default LT_SYS_LIBRARY_PATH value in generated libtool
+configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
+$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
+hardcode_action_CXX=
+if test -n "$hardcode_libdir_flag_spec_CXX" ||
+ test -n "$runpath_var_CXX" ||
+ test yes = "$hardcode_automatic_CXX"; then
+
+ # We can hardcode non-existent directories.
+ if test no != "$hardcode_direct_CXX" &&
+ # If the only mechanism to avoid hardcoding is shlibpath_var, we
+ # have to relink, otherwise we might link with an installed library
+ # when we should be linking with a yet-to-be-installed one
+ ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, CXX)" &&
+ test no != "$hardcode_minus_L_CXX"; then
+ # Linking always hardcodes the temporary library directory.
+ hardcode_action_CXX=relink
+ else
+ # We can link without hardcoding, and we can hardcode nonexisting dirs.
+ hardcode_action_CXX=immediate
+ fi
+else
+ # We cannot hardcode anything, or else we can only hardcode existing
+ # directories.
+ hardcode_action_CXX=unsupported
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_CXX" >&5
+$as_echo "$hardcode_action_CXX" >&6; }
+
+if test relink = "$hardcode_action_CXX" ||
+ test yes = "$inherit_rpath_CXX"; then
+ # Fast installation is not supported
+ enable_fast_install=no
+elif test yes = "$shlibpath_overrides_runpath" ||
+ test no = "$enable_shared"; then
+ # Fast installation is not necessary
+ enable_fast_install=needless
+fi
+
+
+
+
+
+
+
+ fi # test -n "$compiler"
+
+ CC=$lt_save_CC
+ CFLAGS=$lt_save_CFLAGS
+ LDCXX=$LD
+ LD=$lt_save_LD
+ GCC=$lt_save_GCC
+ with_gnu_ld=$lt_save_with_gnu_ld
+ lt_cv_path_LDCXX=$lt_cv_path_LD
+ lt_cv_path_LD=$lt_save_path_LD
+ lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld
+ lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld
+fi # test yes != "$_lt_caught_CXX_error"
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+
+
+ ac_ext=f
+ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
+ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_f77_compiler_gnu
+
+if test -z "$F77" || test no = "$F77"; then
+ _lt_disable_F77=yes
+fi
+
+archive_cmds_need_lc_F77=no
+allow_undefined_flag_F77=
+always_export_symbols_F77=no
+archive_expsym_cmds_F77=
+export_dynamic_flag_spec_F77=
+hardcode_direct_F77=no
+hardcode_direct_absolute_F77=no
+hardcode_libdir_flag_spec_F77=
+hardcode_libdir_separator_F77=
+hardcode_minus_L_F77=no
+hardcode_automatic_F77=no
+inherit_rpath_F77=no
+module_cmds_F77=
+module_expsym_cmds_F77=
+link_all_deplibs_F77=unknown
+old_archive_cmds_F77=$old_archive_cmds
+reload_flag_F77=$reload_flag
+reload_cmds_F77=$reload_cmds
+no_undefined_flag_F77=
+whole_archive_flag_spec_F77=
+enable_shared_with_static_runtimes_F77=no
+
+# Source file extension for f77 test sources.
+ac_ext=f
+
+# Object file extension for compiled f77 test sources.
+objext=o
+objext_F77=$objext
+
+# No sense in running all these tests if we already determined that
+# the F77 compiler isn't working. Some variables (like enable_shared)
+# are currently assumed to apply to all compilers on this platform,
+# and will be corrupted by setting them based on a non-working compiler.
+if test yes != "$_lt_disable_F77"; then
+ # Code to be used in simple compile tests
+ lt_simple_compile_test_code="\
+ subroutine t
+ return
+ end
+"
+
+ # Code to be used in simple link tests
+ lt_simple_link_test_code="\
+ program t
+ end
+"
+
+ # ltmain only uses $CC for tagged configurations so make sure $CC is set.
+
+
+
+
+
+
+# If no C compiler was specified, use CC.
+LTCC=${LTCC-"$CC"}
+
+# If no C compiler flags were specified, use CFLAGS.
+LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
+
+# Allow CC to be a program name with arguments.
+compiler=$CC
+
+
+
+ # save warnings/boilerplate of simple test code
+ ac_outfile=conftest.$ac_objext
+echo "$lt_simple_compile_test_code" >conftest.$ac_ext
+eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_compiler_boilerplate=`cat conftest.err`
+$RM conftest*
+
+ ac_outfile=conftest.$ac_objext
+echo "$lt_simple_link_test_code" >conftest.$ac_ext
+eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_linker_boilerplate=`cat conftest.err`
+$RM -r conftest*
+
+
+ # Allow CC to be a program name with arguments.
+ lt_save_CC=$CC
+ lt_save_GCC=$GCC
+ lt_save_CFLAGS=$CFLAGS
+ CC=${F77-"f77"}
+ CFLAGS=$FFLAGS
+ compiler=$CC
+ compiler_F77=$CC
+ func_cc_basename $compiler
+cc_basename=$func_cc_basename_result
+
+ GCC=$G77
+ if test -n "$compiler"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5
+$as_echo_n "checking if libtool supports shared libraries... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5
+$as_echo "$can_build_shared" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5
+$as_echo_n "checking whether to build shared libraries... " >&6; }
+ test no = "$can_build_shared" && enable_shared=no
+
+ # On AIX, shared libraries and static libraries use the same namespace, and
+ # are all built from PIC.
+ case $host_os in
+ aix3*)
+ test yes = "$enable_shared" && enable_static=no
+ if test -n "$RANLIB"; then
+ archive_cmds="$archive_cmds~\$RANLIB \$lib"
+ postinstall_cmds='$RANLIB $lib'
+ fi
+ ;;
+ aix[4-9]*)
+ if test ia64 != "$host_cpu"; then
+ case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in
+ yes,aix,yes) ;; # shared object as lib.so file only
+ yes,svr4,*) ;; # shared object as lib.so archive member only
+ yes,*) enable_static=no ;; # shared object in lib.a archive as well
+ esac
+ fi
+ ;;
+ esac
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5
+$as_echo "$enable_shared" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5
+$as_echo_n "checking whether to build static libraries... " >&6; }
+ # Make sure either enable_shared or enable_static is yes.
+ test yes = "$enable_shared" || enable_static=yes
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5
+$as_echo "$enable_static" >&6; }
+
+ GCC_F77=$G77
+ LD_F77=$LD
+
+ ## CAVEAT EMPTOR:
+ ## There is no encapsulation within the following macros, do not change
+ ## the running order or otherwise move them around unless you know exactly
+ ## what you are doing...
+ lt_prog_compiler_wl_F77=
+lt_prog_compiler_pic_F77=
+lt_prog_compiler_static_F77=
+
+
+ if test yes = "$GCC"; then
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_static_F77='-static'
+
+ case $host_os in
+ aix*)
+ # All AIX code is PIC.
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ lt_prog_compiler_static_F77='-Bstatic'
+ fi
+ lt_prog_compiler_pic_F77='-fPIC'
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ lt_prog_compiler_pic_F77='-fPIC'
+ ;;
+ m68k)
+ # FIXME: we need at least 68020 code to build shared libraries, but
+ # adding the '-m68020' flag to GCC prevents building anything better,
+ # like '-m68040'.
+ lt_prog_compiler_pic_F77='-m68020 -resident32 -malways-restore-a4'
+ ;;
+ esac
+ ;;
+
+ beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
+ # PIC is the default for these OSes.
+ ;;
+
+ mingw* | cygwin* | pw32* | os2* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ # Although the cygwin gcc ignores -fPIC, still need this for old-style
+ # (--disable-auto-import) libraries
+ lt_prog_compiler_pic_F77='-DDLL_EXPORT'
+ case $host_os in
+ os2*)
+ lt_prog_compiler_static_F77='$wl-static'
+ ;;
+ esac
+ ;;
+
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ lt_prog_compiler_pic_F77='-fno-common'
+ ;;
+
+ haiku*)
+ # PIC is the default for Haiku.
+ # The "-static" flag exists, but is broken.
+ lt_prog_compiler_static_F77=
+ ;;
+
+ hpux*)
+ # PIC is the default for 64-bit PA HP-UX, but not for 32-bit
+ # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
+ # sets the default TLS model and affects inlining.
+ case $host_cpu in
+ hppa*64*)
+ # +Z the default
+ ;;
+ *)
+ lt_prog_compiler_pic_F77='-fPIC'
+ ;;
+ esac
+ ;;
+
+ interix[3-9]*)
+ # Interix 3.x gcc -fpic/-fPIC options generate broken code.
+ # Instead, we relocate shared libraries at runtime.
+ ;;
+
+ msdosdjgpp*)
+ # Just because we use GCC doesn't mean we suddenly get shared libraries
+ # on systems that don't support them.
+ lt_prog_compiler_can_build_shared_F77=no
+ enable_shared=no
+ ;;
+
+ *nto* | *qnx*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ lt_prog_compiler_pic_F77='-fPIC -shared'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ lt_prog_compiler_pic_F77=-Kconform_pic
+ fi
+ ;;
+
+ *)
+ lt_prog_compiler_pic_F77='-fPIC'
+ ;;
+ esac
+
+ case $cc_basename in
+ nvcc*) # Cuda Compiler Driver 2.2
+ lt_prog_compiler_wl_F77='-Xlinker '
+ if test -n "$lt_prog_compiler_pic_F77"; then
+ lt_prog_compiler_pic_F77="-Xcompiler $lt_prog_compiler_pic_F77"
+ fi
+ ;;
+ esac
+ else
+ # PORTME Check for flag to pass linker flags through the system compiler.
+ case $host_os in
+ aix*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ lt_prog_compiler_static_F77='-Bstatic'
+ else
+ lt_prog_compiler_static_F77='-bnso -bI:/lib/syscalls.exp'
+ fi
+ ;;
+
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ lt_prog_compiler_pic_F77='-fno-common'
+ case $cc_basename in
+ nagfor*)
+ # NAG Fortran compiler
+ lt_prog_compiler_wl_F77='-Wl,-Wl,,'
+ lt_prog_compiler_pic_F77='-PIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+ esac
+ ;;
+
+ mingw* | cygwin* | pw32* | os2* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ lt_prog_compiler_pic_F77='-DDLL_EXPORT'
+ case $host_os in
+ os2*)
+ lt_prog_compiler_static_F77='$wl-static'
+ ;;
+ esac
+ ;;
+
+ hpux9* | hpux10* | hpux11*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
+ # not for PA HP-UX.
+ case $host_cpu in
+ hppa*64*|ia64*)
+ # +Z the default
+ ;;
+ *)
+ lt_prog_compiler_pic_F77='+Z'
+ ;;
+ esac
+ # Is there a better lt_prog_compiler_static that works with the bundled CC?
+ lt_prog_compiler_static_F77='$wl-a ${wl}archive'
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ # PIC (with -KPIC) is the default.
+ lt_prog_compiler_static_F77='-non_shared'
+ ;;
+
+ linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ case $cc_basename in
+ # old Intel for x86_64, which still supported -KPIC.
+ ecc*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-KPIC'
+ lt_prog_compiler_static_F77='-static'
+ ;;
+ # icc used to be incompatible with GCC.
+ # ICC 10 doesn't accept -KPIC any more.
+ icc* | ifort*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-fPIC'
+ lt_prog_compiler_static_F77='-static'
+ ;;
+ # Lahey Fortran 8.1.
+ lf95*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='--shared'
+ lt_prog_compiler_static_F77='--static'
+ ;;
+ nagfor*)
+ # NAG Fortran compiler
+ lt_prog_compiler_wl_F77='-Wl,-Wl,,'
+ lt_prog_compiler_pic_F77='-PIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+ tcc*)
+ # Fabrice Bellard et al's Tiny C Compiler
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-fPIC'
+ lt_prog_compiler_static_F77='-static'
+ ;;
+ pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
+ # Portland Group compilers (*not* the Pentium gcc compiler,
+ # which looks to be a dead project)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-fpic'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+ ccc*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ # All Alpha code is PIC.
+ lt_prog_compiler_static_F77='-non_shared'
+ ;;
+ xl* | bgxl* | bgf* | mpixl*)
+ # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-qpic'
+ lt_prog_compiler_static_F77='-qstaticlink'
+ ;;
+ *)
+ case `$CC -V 2>&1 | sed -n 1,5p` in
+ *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*)
+ # Sun Fortran 8.3 passes all unrecognized flags to the linker
+ lt_prog_compiler_pic_F77='-KPIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ lt_prog_compiler_wl_F77=''
+ ;;
+ *Sun\ F* | *Sun*Fortran*)
+ lt_prog_compiler_pic_F77='-KPIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ lt_prog_compiler_wl_F77='-Qoption ld '
+ ;;
+ *Sun\ C*)
+ # Sun C 5.9
+ lt_prog_compiler_pic_F77='-KPIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ lt_prog_compiler_wl_F77='-Wl,'
+ ;;
+ *Intel*\ [CF]*Compiler*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-fPIC'
+ lt_prog_compiler_static_F77='-static'
+ ;; #(
+ *NAG\ Fortran\ Compiler*)
+ lt_prog_compiler_wl_F77='-Wl,-Wl,,'
+ lt_prog_compiler_pic_F77='-PIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+ *PGI\ Compilers\ and\ Tools*|*NVIDIA\ Compilers\ and\ Tools*|*Portland\ Group*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-fpic'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+ esac
+ ;;
+ esac
+ ;;
+
+ newsos6)
+ lt_prog_compiler_pic_F77='-KPIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+
+ *nto* | *qnx*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ lt_prog_compiler_pic_F77='-fPIC -shared'
+ ;;
+
+ osf3* | osf4* | osf5*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ # All OSF/1 code is PIC.
+ lt_prog_compiler_static_F77='-non_shared'
+ ;;
+
+ rdos*)
+ lt_prog_compiler_static_F77='-non_shared'
+ ;;
+
+ solaris*)
+ lt_prog_compiler_pic_F77='-KPIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ case $cc_basename in
+ f77* | f90* | f95* | sunf77* | sunf90* | sunf95*)
+ lt_prog_compiler_wl_F77='-Qoption ld ';;
+ *)
+ lt_prog_compiler_wl_F77='-Wl,';;
+ esac
+ ;;
+
+ sunos4*)
+ lt_prog_compiler_wl_F77='-Qoption ld '
+ lt_prog_compiler_pic_F77='-PIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+
+ sysv4 | sysv4.2uw2* | sysv4.3*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-KPIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ lt_prog_compiler_pic_F77='-Kconform_pic'
+ lt_prog_compiler_static_F77='-Bstatic'
+ fi
+ ;;
+
+ sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-KPIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+
+ unicos*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_can_build_shared_F77=no
+ ;;
+
+ uts4*)
+ lt_prog_compiler_pic_F77='-pic'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
+
+ *)
+ lt_prog_compiler_can_build_shared_F77=no
+ ;;
+ esac
+ fi
+
+case $host_os in
+ # For platforms that do not support PIC, -DPIC is meaningless:
+ *djgpp*)
+ lt_prog_compiler_pic_F77=
+ ;;
+ *)
+ lt_prog_compiler_pic_F77="$lt_prog_compiler_pic_F77"
+ ;;
+esac
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
+$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
+if ${lt_cv_prog_compiler_pic_F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_pic_F77=$lt_prog_compiler_pic_F77
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_F77" >&5
+$as_echo "$lt_cv_prog_compiler_pic_F77" >&6; }
+lt_prog_compiler_pic_F77=$lt_cv_prog_compiler_pic_F77
+
+#
+# Check to make sure the PIC flag actually works.
+#
+if test -n "$lt_prog_compiler_pic_F77"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works" >&5
+$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works... " >&6; }
+if ${lt_cv_prog_compiler_pic_works_F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_pic_works_F77=no
+ ac_outfile=conftest.$ac_objext
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+ lt_compiler_flag="$lt_prog_compiler_pic_F77" ## exclude from sc_useless_quotes_in_assignment
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ # The option is referenced via a variable to avoid confusing sed.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>conftest.err)
+ ac_status=$?
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s "$ac_outfile"; then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings other than the usual output.
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_pic_works_F77=yes
+ fi
+ fi
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works_F77" >&5
+$as_echo "$lt_cv_prog_compiler_pic_works_F77" >&6; }
+
+if test yes = "$lt_cv_prog_compiler_pic_works_F77"; then
+ case $lt_prog_compiler_pic_F77 in
+ "" | " "*) ;;
+ *) lt_prog_compiler_pic_F77=" $lt_prog_compiler_pic_F77" ;;
+ esac
+else
+ lt_prog_compiler_pic_F77=
+ lt_prog_compiler_can_build_shared_F77=no
+fi
+
+fi
+
+
+
+
+
+#
+# Check to make sure the static flag actually works.
+#
+wl=$lt_prog_compiler_wl_F77 eval lt_tmp_static_flag=\"$lt_prog_compiler_static_F77\"
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
+$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
+if ${lt_cv_prog_compiler_static_works_F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_static_works_F77=no
+ save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
+ echo "$lt_simple_link_test_code" > conftest.$ac_ext
+ if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
+ # The linker can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ if test -s conftest.err; then
+ # Append any errors to the config.log.
+ cat conftest.err 1>&5
+ $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_static_works_F77=yes
+ fi
+ else
+ lt_cv_prog_compiler_static_works_F77=yes
+ fi
+ fi
+ $RM -r conftest*
+ LDFLAGS=$save_LDFLAGS
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works_F77" >&5
+$as_echo "$lt_cv_prog_compiler_static_works_F77" >&6; }
+
+if test yes = "$lt_cv_prog_compiler_static_works_F77"; then
+ :
+else
+ lt_prog_compiler_static_F77=
+fi
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
+$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
+if ${lt_cv_prog_compiler_c_o_F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_c_o_F77=no
+ $RM -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
+ $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
+ if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_c_o_F77=yes
+ fi
+ fi
+ chmod u+w . 2>&5
+ $RM conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
+ $RM out/* && rmdir out
+ cd ..
+ $RM -r conftest
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_F77" >&5
+$as_echo "$lt_cv_prog_compiler_c_o_F77" >&6; }
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
+$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
+if ${lt_cv_prog_compiler_c_o_F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_c_o_F77=no
+ $RM -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
+ $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
+ if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_c_o_F77=yes
+ fi
+ fi
+ chmod u+w . 2>&5
+ $RM conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
+ $RM out/* && rmdir out
+ cd ..
+ $RM -r conftest
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_F77" >&5
+$as_echo "$lt_cv_prog_compiler_c_o_F77" >&6; }
+
+
+
+
+hard_links=nottested
+if test no = "$lt_cv_prog_compiler_c_o_F77" && test no != "$need_locks"; then
+ # do not overwrite the value of need_locks provided by the user
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
+$as_echo_n "checking if we can lock with hard links... " >&6; }
+ hard_links=yes
+ $RM conftest*
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ touch conftest.a
+ ln conftest.a conftest.b 2>&5 || hard_links=no
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
+$as_echo "$hard_links" >&6; }
+ if test no = "$hard_links"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5
+$as_echo "$as_me: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&2;}
+ need_locks=warn
+ fi
+else
+ need_locks=no
+fi
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
+$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
+
+ runpath_var=
+ allow_undefined_flag_F77=
+ always_export_symbols_F77=no
+ archive_cmds_F77=
+ archive_expsym_cmds_F77=
+ compiler_needs_object_F77=no
+ enable_shared_with_static_runtimes_F77=no
+ export_dynamic_flag_spec_F77=
+ export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ hardcode_automatic_F77=no
+ hardcode_direct_F77=no
+ hardcode_direct_absolute_F77=no
+ hardcode_libdir_flag_spec_F77=
+ hardcode_libdir_separator_F77=
+ hardcode_minus_L_F77=no
+ hardcode_shlibpath_var_F77=unsupported
+ inherit_rpath_F77=no
+ link_all_deplibs_F77=unknown
+ module_cmds_F77=
+ module_expsym_cmds_F77=
+ old_archive_from_new_cmds_F77=
+ old_archive_from_expsyms_cmds_F77=
+ thread_safe_flag_spec_F77=
+ whole_archive_flag_spec_F77=
+ # include_expsyms should be a list of space-separated symbols to be *always*
+ # included in the symbol list
+ include_expsyms_F77=
+ # exclude_expsyms can be an extended regexp of symbols to exclude
+ # it will be wrapped by ' (' and ')$', so one must not match beginning or
+ # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc',
+ # as well as any symbol that contains 'd'.
+ exclude_expsyms_F77='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
+ # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
+ # platforms (ab)use it in PIC code, but their linkers get confused if
+ # the symbol is explicitly referenced. Since portable code cannot
+ # rely on this symbol name, it's probably fine to never include it in
+ # preloaded symbol tables.
+ # Exclude shared library initialization/finalization symbols.
+ extract_expsyms_cmds=
+
+ case $host_os in
+ cygwin* | mingw* | pw32* | cegcc*)
+ # FIXME: the MSVC++ port hasn't been tested in a loooong time
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ if test yes != "$GCC"; then
+ with_gnu_ld=no
+ fi
+ ;;
+ interix*)
+ # we just hope/assume this is gcc and not c89 (= MSVC++)
+ with_gnu_ld=yes
+ ;;
+ openbsd* | bitrig*)
+ with_gnu_ld=no
+ ;;
+ esac
+
+ ld_shlibs_F77=yes
+
+ # On some targets, GNU ld is compatible enough with the native linker
+ # that we're better off using the native interface for both.
+ lt_use_gnu_ld_interface=no
+ if test yes = "$with_gnu_ld"; then
+ case $host_os in
+ aix*)
+ # The AIX port of GNU ld has always aspired to compatibility
+ # with the native linker. However, as the warning in the GNU ld
+ # block says, versions before 2.19.5* couldn't really create working
+ # shared libraries, regardless of the interface used.
+ case `$LD -v 2>&1` in
+ *\ \(GNU\ Binutils\)\ 2.19.5*) ;;
+ *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;;
+ *\ \(GNU\ Binutils\)\ [3-9]*) ;;
+ *)
+ lt_use_gnu_ld_interface=yes
+ ;;
+ esac
+ ;;
+ *)
+ lt_use_gnu_ld_interface=yes
+ ;;
+ esac
+ fi
+
+ if test yes = "$lt_use_gnu_ld_interface"; then
+ # If archive_cmds runs LD, not CC, wlarc should be empty
+ wlarc='$wl'
+
+ # Set some defaults for GNU ld with shared library support. These
+ # are reset later if shared libraries are not supported. Putting them
+ # here allows them to be overridden if necessary.
+ runpath_var=LD_RUN_PATH
+ hardcode_libdir_flag_spec_F77='$wl-rpath $wl$libdir'
+ export_dynamic_flag_spec_F77='$wl--export-dynamic'
+ # ancient GNU ld didn't support --whole-archive et. al.
+ if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
+ whole_archive_flag_spec_F77=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive'
+ else
+ whole_archive_flag_spec_F77=
+ fi
+ supports_anon_versioning=no
+ case `$LD -v | $SED -e 's/(^)\+)\s\+//' 2>&1` in
+ *GNU\ gold*) supports_anon_versioning=yes ;;
+ *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11
+ *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
+ *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
+ *\ 2.11.*) ;; # other 2.11 versions
+ *) supports_anon_versioning=yes ;;
+ esac
+
+ # See if GNU ld supports shared libraries.
+ case $host_os in
+ aix[3-9]*)
+ # On AIX/PPC, the GNU linker is very broken
+ if test ia64 != "$host_cpu"; then
+ ld_shlibs_F77=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: the GNU linker, at least up to release 2.19, is reported
+*** to be unable to reliably create shared libraries on AIX.
+*** Therefore, libtool is disabling shared libraries support. If you
+*** really care for shared libraries, you may want to install binutils
+*** 2.20 or above, or modify your PATH so that a non-GNU linker is found.
+*** You will then need to restart the configuration process.
+
+_LT_EOF
+ fi
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_F77=''
+ ;;
+ m68k)
+ archive_cmds_F77='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ hardcode_minus_L_F77=yes
+ ;;
+ esac
+ ;;
+
+ beos*)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ allow_undefined_flag_F77=unsupported
+ # Joseph Beckenbach <jrb3@best.com> says some releases of gcc
+ # support --undefined. This deserves some investigation. FIXME
+ archive_cmds_F77='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ else
+ ld_shlibs_F77=no
+ fi
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ # _LT_TAGVAR(hardcode_libdir_flag_spec, F77) is actually meaningless,
+ # as there is no search path for DLLs.
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ export_dynamic_flag_spec_F77='$wl--export-all-symbols'
+ allow_undefined_flag_F77=unsupported
+ always_export_symbols_F77=no
+ enable_shared_with_static_runtimes_F77=yes
+ export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols'
+ exclude_expsyms_F77='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'
+
+ if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
+ archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ # If the export-symbols file already is a .def file, use it as
+ # is; otherwise, prepend EXPORTS...
+ archive_expsym_cmds_F77='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
+ cp $export_symbols $output_objdir/$soname.def;
+ else
+ echo EXPORTS > $output_objdir/$soname.def;
+ cat $export_symbols >> $output_objdir/$soname.def;
+ fi~
+ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ else
+ ld_shlibs_F77=no
+ fi
+ ;;
+
+ haiku*)
+ archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ link_all_deplibs_F77=yes
+ ;;
+
+ os2*)
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ hardcode_minus_L_F77=yes
+ allow_undefined_flag_F77=unsupported
+ shrext_cmds=.dll
+ archive_cmds_F77='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ archive_expsym_cmds_F77='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ old_archive_From_new_cmds_F77='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ enable_shared_with_static_runtimes_F77=yes
+ ;;
+
+ interix[3-9]*)
+ hardcode_direct_F77=no
+ hardcode_shlibpath_var_F77=no
+ hardcode_libdir_flag_spec_F77='$wl-rpath,$libdir'
+ export_dynamic_flag_spec_F77='$wl-E'
+ # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
+ # Instead, shared libraries are loaded at an image base (0x10000000 by
+ # default) and relocated if they conflict, which is a slow very memory
+ # consuming and fragmenting process. To avoid this, we pick a random,
+ # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
+ # time. Moving up from 0x10000000 also allows more sbrk(2) space.
+ archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ archive_expsym_cmds_F77='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ ;;
+
+ gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
+ tmp_diet=no
+ if test linux-dietlibc = "$host_os"; then
+ case $cc_basename in
+ diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
+ esac
+ fi
+ if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
+ && test no = "$tmp_diet"
+ then
+ tmp_addflag=' $pic_flag'
+ tmp_sharedflag='-shared'
+ tmp_compiler_flags='$compiler_flags'
+ case $cc_basename,$host_cpu in
+ pgcc*) # Portland Group C compiler
+ whole_archive_flag_spec_F77='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ tmp_addflag=' $pic_flag'
+ ;;
+ pgf77* | pgf90* | pgf95* | pgfortran*)
+ # Portland Group f77 and f90 compilers
+ whole_archive_flag_spec_F77='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ tmp_addflag=' $pic_flag -Mnomain' ;;
+ ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
+ tmp_addflag=' -i_dynamic' ;;
+ efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
+ tmp_addflag=' -i_dynamic -nofor_main' ;;
+ ifc* | ifort*) # Intel Fortran compiler
+ tmp_addflag=' -nofor_main' ;;
+ lf95*) # Lahey Fortran 8.1
+ whole_archive_flag_spec_F77=
+ tmp_sharedflag='--shared' ;;
+ nagfor*) # NAGFOR 5.3
+ tmp_sharedflag='-Wl,-shared'
+ tmp_compiler_flags='`echo " $compiler_flags " | sed -E -e '"'"': start'"'"' -e '"'"'s/ -W[cl],-no-pie[[:blank:]]/ /g;t start'"'"' -e '"'"'s/^ //;s/ $//'"'"'`' ;;
+ xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below)
+ tmp_sharedflag='-qmkshrobj'
+ tmp_addflag= ;;
+ nvcc*) # Cuda Compiler Driver 2.2
+ whole_archive_flag_spec_F77='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ compiler_needs_object_F77=yes
+ ;;
+ esac
+ case `$CC -V 2>&1 | sed -n 1,5p` in
+ *Sun\ C*) # Sun C 5.9
+ whole_archive_flag_spec_F77='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ compiler_needs_object_F77=yes
+ tmp_sharedflag='-G' ;;
+ *Sun\ F*) # Sun Fortran 8.3
+ tmp_sharedflag='-G' ;;
+ *NAG\ Fortran\ Compiler*)
+ tmp_sharedflag='-Wl,-shared'
+ tmp_compiler_flags='`echo " $compiler_flags " | sed -E -e '"'"': start'"'"' -e '"'"'s/ -W[cl],-no-pie[[:blank:]]/ /g;t start'"'"' -e '"'"'s/^ //;s/ $//'"'"'`' ;;
+ esac
+ archive_cmds_F77='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs '"$tmp_compiler_flags"' $wl-soname $wl$soname -o $lib'
+
+ if test yes = "$supports_anon_versioning"; then
+ archive_expsym_cmds_F77='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs '"$tmp_compiler_flags"' $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib'
+ fi
+
+ case $cc_basename in
+ tcc*)
+ export_dynamic_flag_spec_F77='-rdynamic'
+ ;;
+ xlf* | bgf* | bgxlf* | mpixlf*)
+ # IBM XL Fortran 10.1 on PPC cannot create shared libs itself
+ whole_archive_flag_spec_F77='--whole-archive$convenience --no-whole-archive'
+ hardcode_libdir_flag_spec_F77='$wl-rpath $wl$libdir'
+ archive_cmds_F77='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib'
+ if test yes = "$supports_anon_versioning"; then
+ archive_expsym_cmds_F77='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
+ fi
+ ;;
+ esac
+ else
+ ld_shlibs_F77=no
+ fi
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ archive_cmds_F77='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
+ wlarc=
+ else
+ archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ fi
+ ;;
+
+ solaris*)
+ if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
+ ld_shlibs_F77=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: The releases 2.8.* of the GNU linker cannot reliably
+*** create shared libraries on Solaris systems. Therefore, libtool
+*** is disabling shared libraries support. We urge you to upgrade GNU
+*** binutils to release 2.9.1 or newer. Another option is to modify
+*** your PATH or compiler configuration so that the native linker is
+*** used, and then restart.
+
+_LT_EOF
+ elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ ld_shlibs_F77=no
+ fi
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
+ case `$LD -v 2>&1` in
+ *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
+ ld_shlibs_F77=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot
+*** reliably create shared libraries on SCO systems. Therefore, libtool
+*** is disabling shared libraries support. We urge you to upgrade GNU
+*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
+*** your PATH or compiler configuration so that the native linker is
+*** used, and then restart.
+
+_LT_EOF
+ ;;
+ *)
+ # For security reasons, it is highly recommended that you always
+ # use absolute paths for naming shared libraries, and exclude the
+ # DT_RUNPATH tag from executables and libraries. But doing so
+ # requires that you compile everything twice, which is a pain.
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ hardcode_libdir_flag_spec_F77='$wl-rpath $wl$libdir'
+ archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ ld_shlibs_F77=no
+ fi
+ ;;
+ esac
+ ;;
+
+ sunos4*)
+ archive_cmds_F77='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ wlarc=
+ hardcode_direct_F77=yes
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ *)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ ld_shlibs_F77=no
+ fi
+ ;;
+ esac
+
+ if test no = "$ld_shlibs_F77"; then
+ runpath_var=
+ hardcode_libdir_flag_spec_F77=
+ export_dynamic_flag_spec_F77=
+ whole_archive_flag_spec_F77=
+ fi
+ else
+ # PORTME fill in a description of your system's linker (not GNU ld)
+ case $host_os in
+ aix3*)
+ allow_undefined_flag_F77=unsupported
+ always_export_symbols_F77=yes
+ archive_expsym_cmds_F77='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
+ # Note: this linker hardcodes the directories in LIBPATH if there
+ # are no directories specified by -L.
+ hardcode_minus_L_F77=yes
+ if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then
+ # Neither direct hardcoding nor static linking is supported with a
+ # broken collect2.
+ hardcode_direct_F77=unsupported
+ fi
+ ;;
+
+ aix[4-9]*)
+ if test ia64 = "$host_cpu"; then
+ # On IA64, the linker does run time linking by default, so we don't
+ # have to do anything special.
+ aix_use_runtimelinking=no
+ exp_sym_flag='-Bexport'
+ no_entry_flag=
+ else
+ # If we're using GNU nm, then we don't want the "-C" option.
+ # -C means demangle to GNU nm, but means don't demangle to AIX nm.
+ # Without the "-l" option, or with the "-B" option, AIX nm treats
+ # weak defined symbols like other global defined symbols, whereas
+ # GNU nm marks them as "W".
+ # While the 'weak' keyword is ignored in the Export File, we need
+ # it in the Import File for the 'aix-soname' feature, so we have
+ # to replace the "-B" option with "-P" for AIX nm.
+ if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
+ export_symbols_cmds_F77='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols'
+ else
+ export_symbols_cmds_F77='`func_echo_all $NM | $SED -e '\''s/B\([^B]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && (substr(\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols'
+ fi
+ aix_use_runtimelinking=no
+
+ # Test if we are trying to use run time linking or normal
+ # AIX style linking. If -brtl is somewhere in LDFLAGS, we
+ # have runtime linking enabled, and use it for executables.
+ # For shared libraries, we enable/disable runtime linking
+ # depending on the kind of the shared library created -
+ # when "with_aix_soname,aix_use_runtimelinking" is:
+ # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables
+ # "aix,yes" lib.so shared, rtl:yes, for executables
+ # lib.a static archive
+ # "both,no" lib.so.V(shr.o) shared, rtl:yes
+ # lib.a(lib.so.V) shared, rtl:no, for executables
+ # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a(lib.so.V) shared, rtl:no
+ # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a static archive
+ case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
+ for ld_flag in $LDFLAGS; do
+ if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then
+ aix_use_runtimelinking=yes
+ break
+ fi
+ done
+ if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # With aix-soname=svr4, we create the lib.so.V shared archives only,
+ # so we don't have lib.a shared libs to link our executables.
+ # We have to force runtime linking in this case.
+ aix_use_runtimelinking=yes
+ LDFLAGS="$LDFLAGS -Wl,-brtl"
+ fi
+ ;;
+ esac
+
+ exp_sym_flag='-bexport'
+ no_entry_flag='-bnoentry'
+ fi
+
+ # When large executables or shared objects are built, AIX ld can
+ # have problems creating the table of contents. If linking a library
+ # or program results in "error TOC overflow" add -mminimal-toc to
+ # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
+ # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
+
+ archive_cmds_F77=''
+ hardcode_direct_F77=yes
+ hardcode_direct_absolute_F77=yes
+ hardcode_libdir_separator_F77=':'
+ link_all_deplibs_F77=yes
+ file_list_spec_F77='$wl-f,'
+ case $with_aix_soname,$aix_use_runtimelinking in
+ aix,*) ;; # traditional, no import file
+ svr4,* | *,yes) # use import file
+ # The Import File defines what to hardcode.
+ hardcode_direct_F77=no
+ hardcode_direct_absolute_F77=no
+ ;;
+ esac
+
+ if test yes = "$GCC"; then
+ case $host_os in aix4.[012]|aix4.[012].*)
+ # We only want to do this on AIX 4.2 and lower, the check
+ # below for broken collect2 doesn't work under 4.3+
+ collect2name=`$CC -print-prog-name=collect2`
+ if test -f "$collect2name" &&
+ strings "$collect2name" | $GREP resolve_lib_name >/dev/null
+ then
+ # We have reworked collect2
+ :
+ else
+ # We have old collect2
+ hardcode_direct_F77=unsupported
+ # It fails to find uninstalled libraries when the uninstalled
+ # path is not listed in the libpath. Setting hardcode_minus_L
+ # to unsupported forces relinking
+ hardcode_minus_L_F77=yes
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ hardcode_libdir_separator_F77=
+ fi
+ ;;
+ esac
+ shared_flag='-shared'
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag="$shared_flag "'$wl-G'
+ fi
+ # Need to ensure runtime linking is disabled for the traditional
+ # shared library, or the linker may eventually find shared libraries
+ # /with/ Import File - we do not want to mix them.
+ shared_flag_aix='-shared'
+ shared_flag_svr4='-shared $wl-G'
+ else
+ # not using gcc
+ if test ia64 = "$host_cpu"; then
+ # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
+ # chokes on -Wl,-G. The following line is correct:
+ shared_flag='-G'
+ else
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag='$wl-G'
+ else
+ shared_flag='$wl-bM:SRE'
+ fi
+ shared_flag_aix='$wl-bM:SRE'
+ shared_flag_svr4='$wl-G'
+ fi
+ fi
+
+ export_dynamic_flag_spec_F77='$wl-bexpall'
+ # It seems that -bexpall does not export symbols beginning with
+ # underscore (_), so it is better to generate a list of symbols to export.
+ always_export_symbols_F77=yes
+ if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # Warning - without using the other runtime loading flags (-brtl),
+ # -berok will link without error, but may produce a broken library.
+ allow_undefined_flag_F77='-berok'
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ if test set = "${lt_cv_aix_libpath+set}"; then
+ aix_libpath=$lt_cv_aix_libpath
+else
+ if ${lt_cv_aix_libpath__F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program main
+
+ end
+_ACEOF
+if ac_fn_f77_try_link "$LINENO"; then :
+
+ lt_aix_libpath_sed='
+ /Import File Strings/,/^$/ {
+ /^0/ {
+ s/^0 *\([^ ]*\) *$/\1/
+ p
+ }
+ }'
+ lt_cv_aix_libpath__F77=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ # Check for a 64-bit object if we didn't find anything.
+ if test -z "$lt_cv_aix_libpath__F77"; then
+ lt_cv_aix_libpath__F77=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ if test -z "$lt_cv_aix_libpath__F77"; then
+ lt_cv_aix_libpath__F77=/usr/lib:/lib
+ fi
+
+fi
+
+ aix_libpath=$lt_cv_aix_libpath__F77
+fi
+
+ hardcode_libdir_flag_spec_F77='$wl-blibpath:$libdir:'"$aix_libpath"
+ archive_expsym_cmds_F77='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag
+ else
+ if test ia64 = "$host_cpu"; then
+ hardcode_libdir_flag_spec_F77='$wl-R $libdir:/usr/lib:/lib'
+ allow_undefined_flag_F77="-z nodefs"
+ archive_expsym_cmds_F77="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols"
+ else
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ if test set = "${lt_cv_aix_libpath+set}"; then
+ aix_libpath=$lt_cv_aix_libpath
+else
+ if ${lt_cv_aix_libpath__F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program main
+
+ end
+_ACEOF
+if ac_fn_f77_try_link "$LINENO"; then :
+
+ lt_aix_libpath_sed='
+ /Import File Strings/,/^$/ {
+ /^0/ {
+ s/^0 *\([^ ]*\) *$/\1/
+ p
+ }
+ }'
+ lt_cv_aix_libpath__F77=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ # Check for a 64-bit object if we didn't find anything.
+ if test -z "$lt_cv_aix_libpath__F77"; then
+ lt_cv_aix_libpath__F77=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ if test -z "$lt_cv_aix_libpath__F77"; then
+ lt_cv_aix_libpath__F77=/usr/lib:/lib
+ fi
+
+fi
+
+ aix_libpath=$lt_cv_aix_libpath__F77
+fi
+
+ hardcode_libdir_flag_spec_F77='$wl-blibpath:$libdir:'"$aix_libpath"
+ # Warning - without using the other run time loading flags,
+ # -berok will link without error, but may produce a broken library.
+ no_undefined_flag_F77=' $wl-bernotok'
+ allow_undefined_flag_F77=' $wl-berok'
+ if test yes = "$with_gnu_ld"; then
+ # We only use this code for GNU lds that support --whole-archive.
+ whole_archive_flag_spec_F77='$wl--whole-archive$convenience $wl--no-whole-archive'
+ else
+ # Exported symbols can be pulled into shared objects from archives
+ whole_archive_flag_spec_F77='$convenience'
+ fi
+ archive_cmds_need_lc_F77=yes
+ archive_expsym_cmds_F77='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d'
+ # -brtl affects multiple linker settings, -berok does not and is overridden later
+ compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([, ]\\)%-berok\\1%g"`'
+ if test svr4 != "$with_aix_soname"; then
+ # This is similar to how AIX traditionally builds its shared libraries.
+ archive_expsym_cmds_F77="$archive_expsym_cmds_F77"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname'
+ fi
+ if test aix != "$with_aix_soname"; then
+ archive_expsym_cmds_F77="$archive_expsym_cmds_F77"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp'
+ else
+ # used by -dlpreopen to get the symbols
+ archive_expsym_cmds_F77="$archive_expsym_cmds_F77"'~$MV $output_objdir/$realname.d/$soname $output_objdir'
+ fi
+ archive_expsym_cmds_F77="$archive_expsym_cmds_F77"'~$RM -r $output_objdir/$realname.d'
+ fi
+ fi
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_F77=''
+ ;;
+ m68k)
+ archive_cmds_F77='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ hardcode_minus_L_F77=yes
+ ;;
+ esac
+ ;;
+
+ bsdi[45]*)
+ export_dynamic_flag_spec_F77=-rdynamic
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ # hardcode_libdir_flag_spec is actually meaningless, as there is
+ # no search path for DLLs.
+ case $cc_basename in
+ cl*)
+ # Native MSVC
+ hardcode_libdir_flag_spec_F77=' '
+ allow_undefined_flag_F77=unsupported
+ always_export_symbols_F77=yes
+ file_list_spec_F77='@'
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ archive_cmds_F77='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames='
+ archive_expsym_cmds_F77='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
+ cp "$export_symbols" "$output_objdir/$soname.def";
+ echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp";
+ else
+ $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp;
+ fi~
+ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
+ linknames='
+ # The linker will not automatically build a static lib if we build a DLL.
+ # _LT_TAGVAR(old_archive_from_new_cmds, F77)='true'
+ enable_shared_with_static_runtimes_F77=yes
+ exclude_expsyms_F77='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
+ export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols'
+ # Don't use ranlib
+ old_postinstall_cmds_F77='chmod 644 $oldlib'
+ postlink_cmds_F77='lt_outputfile="@OUTPUT@"~
+ lt_tool_outputfile="@TOOL_OUTPUT@"~
+ case $lt_outputfile in
+ *.exe|*.EXE) ;;
+ *)
+ lt_outputfile=$lt_outputfile.exe
+ lt_tool_outputfile=$lt_tool_outputfile.exe
+ ;;
+ esac~
+ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then
+ $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
+ $RM "$lt_outputfile.manifest";
+ fi'
+ ;;
+ *)
+ # Assume MSVC wrapper
+ hardcode_libdir_flag_spec_F77=' '
+ allow_undefined_flag_F77=unsupported
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ archive_cmds_F77='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames='
+ # The linker will automatically build a .lib file if we build a DLL.
+ old_archive_from_new_cmds_F77='true'
+ # FIXME: Should let the user specify the lib program.
+ old_archive_cmds_F77='lib -OUT:$oldlib$oldobjs$old_deplibs'
+ enable_shared_with_static_runtimes_F77=yes
+ ;;
+ esac
+ ;;
+
+ darwin* | rhapsody*)
+
+
+ archive_cmds_need_lc_F77=no
+ hardcode_direct_F77=no
+ hardcode_automatic_F77=yes
+ hardcode_shlibpath_var_F77=unsupported
+ if test yes = "$lt_cv_ld_force_load"; then
+ whole_archive_flag_spec_F77='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
+ compiler_needs_object_F77=yes
+ else
+ whole_archive_flag_spec_F77=''
+ fi
+ link_all_deplibs_F77=yes
+ allow_undefined_flag_F77=$_lt_dar_allow_undefined
+ case $cc_basename in
+ ifort*|nagfor*) _lt_dar_can_shared=yes ;;
+ *) _lt_dar_can_shared=$GCC ;;
+ esac
+ if test yes = "$_lt_dar_can_shared"; then
+ output_verbose_link_cmd=func_echo_all
+ archive_cmds_F77="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil"
+ module_cmds_F77="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil"
+ archive_expsym_cmds_F77="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil"
+ module_expsym_cmds_F77="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil"
+
+ else
+ ld_shlibs_F77=no
+ fi
+
+ ;;
+
+ dgux*)
+ archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
+ # support. Future versions do this automatically, but an explicit c++rt0.o
+ # does not break anything, and helps significantly (at the cost of a little
+ # extra space).
+ freebsd2.2*)
+ archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
+ hardcode_libdir_flag_spec_F77='-R$libdir'
+ hardcode_direct_F77=yes
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ # Unfortunately, older versions of FreeBSD 2 do not have this feature.
+ freebsd2.*)
+ archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct_F77=yes
+ hardcode_minus_L_F77=yes
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ # FreeBSD 3 and greater uses gcc -shared to do shared libraries.
+ freebsd* | dragonfly*)
+ archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ hardcode_libdir_flag_spec_F77='-R$libdir'
+ hardcode_direct_F77=yes
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ hpux9*)
+ if test yes = "$GCC"; then
+ archive_cmds_F77='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ else
+ archive_cmds_F77='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ fi
+ hardcode_libdir_flag_spec_F77='$wl+b $wl$libdir'
+ hardcode_libdir_separator_F77=:
+ hardcode_direct_F77=yes
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ hardcode_minus_L_F77=yes
+ export_dynamic_flag_spec_F77='$wl-E'
+ ;;
+
+ hpux10*)
+ if test yes,no = "$GCC,$with_gnu_ld"; then
+ archive_cmds_F77='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds_F77='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
+ fi
+ if test no = "$with_gnu_ld"; then
+ hardcode_libdir_flag_spec_F77='$wl+b $wl$libdir'
+ hardcode_libdir_separator_F77=:
+ hardcode_direct_F77=yes
+ hardcode_direct_absolute_F77=yes
+ export_dynamic_flag_spec_F77='$wl-E'
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ hardcode_minus_L_F77=yes
+ fi
+ ;;
+
+ hpux11*)
+ if test yes,no = "$GCC,$with_gnu_ld"; then
+ case $host_cpu in
+ hppa*64*)
+ archive_cmds_F77='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ ia64*)
+ archive_cmds_F77='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ archive_cmds_F77='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ else
+ case $host_cpu in
+ hppa*64*)
+ archive_cmds_F77='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ ia64*)
+ archive_cmds_F77='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ archive_cmds_F77='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ fi
+ if test no = "$with_gnu_ld"; then
+ hardcode_libdir_flag_spec_F77='$wl+b $wl$libdir'
+ hardcode_libdir_separator_F77=:
+
+ case $host_cpu in
+ hppa*64*|ia64*)
+ hardcode_direct_F77=no
+ hardcode_shlibpath_var_F77=no
+ ;;
+ *)
+ hardcode_direct_F77=yes
+ hardcode_direct_absolute_F77=yes
+ export_dynamic_flag_spec_F77='$wl-E'
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ hardcode_minus_L_F77=yes
+ ;;
+ esac
+ fi
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ if test yes = "$GCC"; then
+ archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ # Try to use the -exported_symbol ld option, if it does not
+ # work, assume that -exports_file does not work either and
+ # implicitly export all symbols.
+ # This should be the same for all languages, so no per-tag cache variable.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5
+$as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; }
+if ${lt_cv_irix_exported_symbol+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null"
+ cat > conftest.$ac_ext <<_ACEOF
+
+ subroutine foo
+ end
+_ACEOF
+if ac_fn_f77_try_link "$LINENO"; then :
+ lt_cv_irix_exported_symbol=yes
+else
+ lt_cv_irix_exported_symbol=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ LDFLAGS=$save_LDFLAGS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5
+$as_echo "$lt_cv_irix_exported_symbol" >&6; }
+ if test yes = "$lt_cv_irix_exported_symbol"; then
+ archive_expsym_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib'
+ fi
+ else
+ archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib'
+ fi
+ archive_cmds_need_lc_F77='no'
+ hardcode_libdir_flag_spec_F77='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator_F77=:
+ inherit_rpath_F77=yes
+ link_all_deplibs_F77=yes
+ ;;
+
+ linux*)
+ case $cc_basename in
+ tcc*)
+ # Fabrice Bellard et al's Tiny C Compiler
+ ld_shlibs_F77=yes
+ archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
+ else
+ archive_cmds_F77='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
+ fi
+ hardcode_libdir_flag_spec_F77='-R$libdir'
+ hardcode_direct_F77=yes
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ newsos6)
+ archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct_F77=yes
+ hardcode_libdir_flag_spec_F77='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator_F77=:
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ *nto* | *qnx*)
+ ;;
+
+ openbsd* | bitrig*)
+ if test -f /usr/libexec/ld.so; then
+ hardcode_direct_F77=yes
+ hardcode_shlibpath_var_F77=no
+ hardcode_direct_absolute_F77=yes
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols'
+ hardcode_libdir_flag_spec_F77='$wl-rpath,$libdir'
+ export_dynamic_flag_spec_F77='$wl-E'
+ else
+ archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ hardcode_libdir_flag_spec_F77='$wl-rpath,$libdir'
+ fi
+ else
+ ld_shlibs_F77=no
+ fi
+ ;;
+
+ os2*)
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ hardcode_minus_L_F77=yes
+ allow_undefined_flag_F77=unsupported
+ shrext_cmds=.dll
+ archive_cmds_F77='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ archive_expsym_cmds_F77='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ old_archive_From_new_cmds_F77='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ enable_shared_with_static_runtimes_F77=yes
+ ;;
+
+ osf3*)
+ if test yes = "$GCC"; then
+ allow_undefined_flag_F77=' $wl-expect_unresolved $wl\*'
+ archive_cmds_F77='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ else
+ allow_undefined_flag_F77=' -expect_unresolved \*'
+ archive_cmds_F77='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ fi
+ archive_cmds_need_lc_F77='no'
+ hardcode_libdir_flag_spec_F77='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator_F77=:
+ ;;
+
+ osf4* | osf5*) # as osf3* with the addition of -msym flag
+ if test yes = "$GCC"; then
+ allow_undefined_flag_F77=' $wl-expect_unresolved $wl\*'
+ archive_cmds_F77='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ hardcode_libdir_flag_spec_F77='$wl-rpath $wl$libdir'
+ else
+ allow_undefined_flag_F77=' -expect_unresolved \*'
+ archive_cmds_F77='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ archive_expsym_cmds_F77='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
+ $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp'
+
+ # Both c and cxx compiler support -rpath directly
+ hardcode_libdir_flag_spec_F77='-rpath $libdir'
+ fi
+ archive_cmds_need_lc_F77='no'
+ hardcode_libdir_separator_F77=:
+ ;;
+
+ solaris*)
+ no_undefined_flag_F77=' -z defs'
+ if test yes = "$GCC"; then
+ wlarc='$wl'
+ archive_cmds_F77='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_F77='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
+ else
+ case `$CC -V 2>&1` in
+ *"Compilers 5.0"*)
+ wlarc=''
+ archive_cmds_F77='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ archive_expsym_cmds_F77='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
+ ;;
+ *)
+ wlarc='$wl'
+ archive_cmds_F77='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_F77='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
+ ;;
+ esac
+ fi
+ hardcode_libdir_flag_spec_F77='-R$libdir'
+ hardcode_shlibpath_var_F77=no
+ case $host_os in
+ solaris2.[0-5] | solaris2.[0-5].*) ;;
+ *)
+ # The compiler driver will combine and reorder linker options,
+ # but understands '-z linker_flag'. GCC discards it without '$wl',
+ # but is careful enough not to reorder.
+ # Supported since Solaris 2.6 (maybe 2.5.1?)
+ if test yes = "$GCC"; then
+ whole_archive_flag_spec_F77='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract'
+ else
+ whole_archive_flag_spec_F77='-z allextract$convenience -z defaultextract'
+ fi
+ ;;
+ esac
+ link_all_deplibs_F77=yes
+ ;;
+
+ sunos4*)
+ if test sequent = "$host_vendor"; then
+ # Use $CC to link under sequent, because it throws in some extra .o
+ # files that make .init and .fini sections work.
+ archive_cmds_F77='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds_F77='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
+ fi
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ hardcode_direct_F77=yes
+ hardcode_minus_L_F77=yes
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ sysv4)
+ case $host_vendor in
+ sni)
+ archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct_F77=yes # is this really true???
+ ;;
+ siemens)
+ ## LD is ld it makes a PLAMLIB
+ ## CC just makes a GrossModule.
+ archive_cmds_F77='$LD -G -o $lib $libobjs $deplibs $linker_flags'
+ reload_cmds_F77='$CC -r -o $output$reload_objs'
+ hardcode_direct_F77=no
+ ;;
+ motorola)
+ archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct_F77=no #Motorola manual says yes, but my tests say they lie
+ ;;
+ esac
+ runpath_var='LD_RUN_PATH'
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ sysv4.3*)
+ archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_shlibpath_var_F77=no
+ export_dynamic_flag_spec_F77='-Bexport'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_shlibpath_var_F77=no
+ runpath_var=LD_RUN_PATH
+ hardcode_runpath_var=yes
+ ld_shlibs_F77=yes
+ fi
+ ;;
+
+ sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
+ no_undefined_flag_F77='$wl-z,text'
+ archive_cmds_need_lc_F77=no
+ hardcode_shlibpath_var_F77=no
+ runpath_var='LD_RUN_PATH'
+
+ if test yes = "$GCC"; then
+ archive_cmds_F77='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_F77='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds_F77='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_F77='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ fi
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6*)
+ # Note: We CANNOT use -z defs as we might desire, because we do not
+ # link with -lc, and that would cause any symbols used from libc to
+ # always be unresolved, which means just about no library would
+ # ever link correctly. If we're not using GNU ld we use -z text
+ # though, which does catch some bad symbols but isn't as heavy-handed
+ # as -z defs.
+ no_undefined_flag_F77='$wl-z,text'
+ allow_undefined_flag_F77='$wl-z,nodefs'
+ archive_cmds_need_lc_F77=no
+ hardcode_shlibpath_var_F77=no
+ hardcode_libdir_flag_spec_F77='$wl-R,$libdir'
+ hardcode_libdir_separator_F77=':'
+ link_all_deplibs_F77=yes
+ export_dynamic_flag_spec_F77='$wl-Bexport'
+ runpath_var='LD_RUN_PATH'
+
+ if test yes = "$GCC"; then
+ archive_cmds_F77='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_F77='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds_F77='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_F77='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ fi
+ ;;
+
+ uts4*)
+ archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ hardcode_shlibpath_var_F77=no
+ ;;
+
+ *)
+ ld_shlibs_F77=no
+ ;;
+ esac
+
+ if test sni = "$host_vendor"; then
+ case $host in
+ sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
+ export_dynamic_flag_spec_F77='$wl-Blargedynsym'
+ ;;
+ esac
+ fi
+ fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_F77" >&5
+$as_echo "$ld_shlibs_F77" >&6; }
+test no = "$ld_shlibs_F77" && can_build_shared=no
+
+with_gnu_ld_F77=$with_gnu_ld
+
+
+
+
+
+
+#
+# Do we need to explicitly link libc?
+#
+case "x$archive_cmds_need_lc_F77" in
+x|xyes)
+ # Assume -lc should be added
+ archive_cmds_need_lc_F77=yes
+
+ if test yes,yes = "$GCC,$enable_shared"; then
+ case $archive_cmds_F77 in
+ *'~'*)
+ # FIXME: we may have to deal with multi-command sequences.
+ ;;
+ '$CC '*)
+ # Test whether the compiler implicitly links with -lc since on some
+ # systems, -lgcc has to come before -lc. If gcc already passes -lc
+ # to ld, don't add -lc before -lgcc.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
+$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
+if ${lt_cv_archive_cmds_need_lc_F77+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ $RM conftest*
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } 2>conftest.err; then
+ soname=conftest
+ lib=conftest
+ libobjs=conftest.$ac_objext
+ deplibs=
+ wl=$lt_prog_compiler_wl_F77
+ pic_flag=$lt_prog_compiler_pic_F77
+ compiler_flags=-v
+ linker_flags=-v
+ verstring=
+ output_objdir=.
+ libname=conftest
+ lt_save_allow_undefined_flag=$allow_undefined_flag_F77
+ allow_undefined_flag_F77=
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_F77 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
+ (eval $archive_cmds_F77 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+ then
+ lt_cv_archive_cmds_need_lc_F77=no
+ else
+ lt_cv_archive_cmds_need_lc_F77=yes
+ fi
+ allow_undefined_flag_F77=$lt_save_allow_undefined_flag
+ else
+ cat conftest.err 1>&5
+ fi
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc_F77" >&5
+$as_echo "$lt_cv_archive_cmds_need_lc_F77" >&6; }
+ archive_cmds_need_lc_F77=$lt_cv_archive_cmds_need_lc_F77
+ ;;
+ esac
+ fi
+ ;;
+esac
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
+$as_echo_n "checking dynamic linker characteristics... " >&6; }
+
+library_names_spec=
+libname_spec='lib$name'
+soname_spec=
+shrext_cmds=.so
+postinstall_cmds=
+postuninstall_cmds=
+finish_cmds=
+finish_eval=
+shlibpath_var=
+shlibpath_overrides_runpath=unknown
+version_type=none
+dynamic_linker="$host_os ld.so"
+sys_lib_dlsearch_path_spec="/lib /usr/lib"
+need_lib_prefix=unknown
+hardcode_into_libs=no
+
+# when you set need_version to no, make sure it does not cause -set_version
+# flags to be left without arguments
+need_version=unknown
+
+
+
+case $host_os in
+aix3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname.a'
+ shlibpath_var=LIBPATH
+
+ # AIX 3 has no versioning support, so we append a major version to the name.
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+
+aix[4-9]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ hardcode_into_libs=yes
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 supports IA64
+ library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ else
+ # With GCC up to 2.95.x, collect2 would create an import file
+ # for dependence libraries. The import file would start with
+ # the line '#! .'. This would cause the generated library to
+ # depend on '.', always an invalid library. This was fixed in
+ # development snapshots of GCC prior to 3.0.
+ case $host_os in
+ aix4 | aix4.[01] | aix4.[01].*)
+ if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
+ echo ' yes '
+ echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then
+ :
+ else
+ can_build_shared=no
+ fi
+ ;;
+ esac
+ # Using Import Files as archive members, it is possible to support
+ # filename-based versioning of shared library archives on AIX. While
+ # this would work for both with and without runtime linking, it will
+ # prevent static linking of such archives. So we do filename-based
+ # shared library versioning with .so extension only, which is used
+ # when both runtime linking and shared linking is enabled.
+ # Unfortunately, runtime linking may impact performance, so we do
+ # not want this to be the default eventually. Also, we use the
+ # versioned .so libs for executables only if there is the -brtl
+ # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only.
+ # To allow for filename-based versioning support, we need to create
+ # libNAME.so.V as an archive file, containing:
+ # *) an Import File, referring to the versioned filename of the
+ # archive as well as the shared archive member, telling the
+ # bitwidth (32 or 64) of that shared object, and providing the
+ # list of exported symbols of that shared object, eventually
+ # decorated with the 'weak' keyword
+ # *) the shared object with the F_LOADONLY flag set, to really avoid
+ # it being seen by the linker.
+ # At run time we better use the real file rather than another symlink,
+ # but for link time we create the symlink libNAME.so -> libNAME.so.V
+
+ case $with_aix_soname,$aix_use_runtimelinking in
+ # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct
+ # soname into executable. Probably we can add versioning support to
+ # collect2, so additional links can be useful in future.
+ aix,yes) # traditional libtool
+ dynamic_linker='AIX unversionable lib.so'
+ # If using run time linking (on AIX 4.2 or later) use lib<name>.so
+ # instead of lib<name>.a to let people know that these are not
+ # typical AIX shared libraries.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ aix,no) # traditional AIX only
+ dynamic_linker='AIX lib.a(lib.so.V)'
+ # We preserve .a as extension for shared libraries through AIX4.2
+ # and later when we are not doing run time linking.
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ svr4,*) # full svr4 only
+ dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o)"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,yes) # both, prefer svr4
+ dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o), lib.a(lib.so.V)"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # unpreferred sharedlib libNAME.a needs extra handling
+ postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"'
+ postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,no) # both, prefer aix
+ dynamic_linker="AIX lib.a(lib.so.V), lib.so.V($shared_archive_member_spec.o)"
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling
+ postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)'
+ postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"'
+ ;;
+ esac
+ shlibpath_var=LIBPATH
+ fi
+ ;;
+
+amigaos*)
+ case $host_cpu in
+ powerpc)
+ # Since July 2007 AmigaOS4 officially supports .so libraries.
+ # When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ m68k)
+ library_names_spec='$libname.ixlibrary $libname.a'
+ # Create ${libname}_ixlibrary.a entries in /sys/libs.
+ finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
+ ;;
+ esac
+ ;;
+
+beos*)
+ library_names_spec='$libname$shared_ext'
+ dynamic_linker="$host_os ld.so"
+ shlibpath_var=LIBRARY_PATH
+ ;;
+
+bsdi[45]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
+ # the default ld.so.conf also contains /usr/contrib/lib and
+ # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
+ # libtool to hard-code these into programs
+ ;;
+
+cygwin* | mingw* | pw32* | cegcc*)
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+
+ case $GCC,$cc_basename in
+ yes,*)
+ # gcc
+ library_names_spec='$libname.dll.a'
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+
+ case $host_os in
+ cygwin*)
+ # Cygwin DLLs use 'cyg' prefix rather than 'lib'
+ soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+
+ ;;
+ mingw* | cegcc*)
+ # MinGW DLLs use traditional 'lib' prefix
+ soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ ;;
+ pw32*)
+ # pw32 DLLs use 'pw' prefix rather than 'lib'
+ library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ ;;
+ esac
+ dynamic_linker='Win32 ld.exe'
+ ;;
+
+ *,cl*)
+ # Native MSVC
+ libname_spec='$name'
+ soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ library_names_spec='$libname.dll.lib'
+
+ case $build_os in
+ mingw*)
+ sys_lib_search_path_spec=
+ lt_save_ifs=$IFS
+ IFS=';'
+ for lt_path in $LIB
+ do
+ IFS=$lt_save_ifs
+ # Let DOS variable expansion print the short 8.3 style file name.
+ lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
+ sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
+ done
+ IFS=$lt_save_ifs
+ # Convert to MSYS style.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'`
+ ;;
+ cygwin*)
+ # Convert to unix form, then to dos form, then back to unix form
+ # but this time dos style (no spaces!) so that the unix form looks
+ # like /cygdrive/c/PROGRA~1:/cygdr...
+ sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
+ sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
+ sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ ;;
+ *)
+ sys_lib_search_path_spec=$LIB
+ if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
+ # It is most probably a Windows format PATH.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
+ else
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ fi
+ # FIXME: find the short name or the path components, as spaces are
+ # common. (e.g. "Program Files" -> "PROGRA~1")
+ ;;
+ esac
+
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+ dynamic_linker='Win32 link.exe'
+ ;;
+
+ *)
+ # Assume MSVC wrapper
+ library_names_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext $libname.lib'
+ dynamic_linker='Win32 ld.exe'
+ ;;
+ esac
+ # FIXME: first we should search . and the directory the executable is in
+ shlibpath_var=PATH
+ ;;
+
+darwin* | rhapsody*)
+ dynamic_linker="$host_os dyld"
+ version_type=darwin
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$major$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$major$shared_ext'
+ shlibpath_overrides_runpath=yes
+ shlibpath_var=DYLD_LIBRARY_PATH
+ shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
+
+ sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
+ ;;
+
+dgux*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+freebsd* | dragonfly*)
+ # DragonFly does not have aout. When/if they implement a new
+ # versioning mechanism, adjust this.
+ if test -x /usr/bin/objformat; then
+ objformat=`/usr/bin/objformat`
+ else
+ case $host_os in
+ freebsd[23].*) objformat=aout ;;
+ *) objformat=elf ;;
+ esac
+ fi
+ version_type=freebsd-$objformat
+ case $version_type in
+ freebsd-elf*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ need_version=no
+ need_lib_prefix=no
+ ;;
+ freebsd-*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ need_version=yes
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_os in
+ freebsd2.*)
+ shlibpath_overrides_runpath=yes
+ ;;
+ freebsd3.[01]* | freebsdelf3.[01]*)
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
+ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+ *) # from 4.6 on, and DragonFly
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ esac
+ ;;
+
+haiku*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ dynamic_linker="$host_os runtime_loader"
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
+ hardcode_into_libs=yes
+ ;;
+
+hpux9* | hpux10* | hpux11*)
+ # Give a soname corresponding to the major version so that dld.sl refuses to
+ # link against other versions.
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ case $host_cpu in
+ ia64*)
+ shrext_cmds='.so'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.so"
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ if test 32 = "$HPUX_IA64_MODE"; then
+ sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux32
+ else
+ sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux64
+ fi
+ ;;
+ hppa*64*)
+ shrext_cmds='.sl'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+ *)
+ shrext_cmds='.sl'
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=SHLIB_PATH
+ shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ esac
+ # HP-UX runs *really* slowly unless shared libraries are mode 555, ...
+ postinstall_cmds='chmod 555 $lib'
+ # or fails outright, so override atomically:
+ install_override_mode=555
+ ;;
+
+interix[3-9]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+irix5* | irix6* | nonstopux*)
+ case $host_os in
+ nonstopux*) version_type=nonstopux ;;
+ *)
+ if test yes = "$lt_cv_prog_gnu_ld"; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ else
+ version_type=irix
+ fi ;;
+ esac
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext'
+ case $host_os in
+ irix5* | nonstopux*)
+ libsuff= shlibsuff=
+ ;;
+ *)
+ case $LD in # libtool.m4 will add one of these switches to LD
+ *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
+ libsuff= shlibsuff= libmagic=32-bit;;
+ *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
+ libsuff=32 shlibsuff=N32 libmagic=N32;;
+ *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
+ libsuff=64 shlibsuff=64 libmagic=64-bit;;
+ *) libsuff= shlibsuff= libmagic=never-match;;
+ esac
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff"
+ sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff"
+ hardcode_into_libs=yes
+ ;;
+
+# No shared lib support for Linux oldld, aout, or coff.
+linux*oldld* | linux*aout* | linux*coff*)
+ dynamic_linker=no
+ ;;
+
+linux*android*)
+ version_type=none # Android doesn't support versioned libraries.
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext'
+ soname_spec='$libname$release$shared_ext'
+ finish_cmds=
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ dynamic_linker='Android linker'
+ # Don't embed -rpath directories since the linker doesn't support them.
+ hardcode_libdir_flag_spec_F77='-L$libdir'
+ ;;
+
+# This must be glibc/ELF.
+linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+
+ # Some binutils ld are patched to set DT_RUNPATH
+ if ${lt_cv_shlibpath_overrides_runpath+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_shlibpath_overrides_runpath=no
+ save_LDFLAGS=$LDFLAGS
+ save_libdir=$libdir
+ eval "libdir=/foo; wl=\"$lt_prog_compiler_wl_F77\"; \
+ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec_F77\""
+ cat > conftest.$ac_ext <<_ACEOF
+ program main
+
+ end
+_ACEOF
+if ac_fn_f77_try_link "$LINENO"; then :
+ if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
+ lt_cv_shlibpath_overrides_runpath=yes
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ LDFLAGS=$save_LDFLAGS
+ libdir=$save_libdir
+
+fi
+
+ shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ # Ideally, we could use ldconfig to report *all* directores which are
+ # searched for libraries, however this is still not possible. Aside from not
+ # being certain /sbin/ldconfig is available, command
+ # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64,
+ # even though it is searched at run-time. Try to do the best guess by
+ # appending ld.so.conf contents (and includes) to the search path.
+ if test -f /etc/ld.so.conf; then
+ lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
+ sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
+ fi
+
+ # We used to test for /lib/ld.so.1 and disable shared libraries on
+ # powerpc, because MkLinux only supported shared libraries with the
+ # GNU dynamic linker. Since this was broken with cross compilers,
+ # most powerpc-linux boxes support dynamic linking these days and
+ # people can always --disable-shared, the test was removed, and we
+ # assume the GNU/Linux dynamic linker is in use.
+ dynamic_linker='GNU/Linux ld.so'
+ ;;
+
+netbsd*)
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ dynamic_linker='NetBSD (a.out) ld.so'
+ else
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='NetBSD ld.elf_so'
+ fi
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+
+newsos6)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+*nto* | *qnx*)
+ version_type=qnx
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ dynamic_linker='ldqnx.so'
+ ;;
+
+openbsd* | bitrig*)
+ version_type=sunos
+ sys_lib_dlsearch_path_spec=/usr/lib
+ need_lib_prefix=no
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ need_version=no
+ else
+ need_version=yes
+ fi
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+os2*)
+ libname_spec='$name'
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+ # OS/2 can only load a DLL with a base name of 8 characters or less.
+ soname_spec='`test -n "$os2dllname" && libname="$os2dllname";
+ v=$($ECHO $release$versuffix | tr -d .-);
+ n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _);
+ $ECHO $n$v`$shared_ext'
+ library_names_spec='${libname}_dll.$libext'
+ dynamic_linker='OS/2 ld.exe'
+ shlibpath_var=BEGINLIBPATH
+ sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ ;;
+
+osf3* | osf4* | osf5*)
+ version_type=osf
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+
+rdos*)
+ dynamic_linker=no
+ ;;
+
+solaris*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ # ldd complains unless libraries are executable
+ postinstall_cmds='chmod +x $lib'
+ ;;
+
+sunos4*)
+ version_type=sunos
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ if test yes = "$with_gnu_ld"; then
+ need_lib_prefix=no
+ fi
+ need_version=yes
+ ;;
+
+sysv4 | sysv4.3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_vendor in
+ sni)
+ shlibpath_overrides_runpath=no
+ need_lib_prefix=no
+ runpath_var=LD_RUN_PATH
+ ;;
+ siemens)
+ need_lib_prefix=no
+ ;;
+ motorola)
+ need_lib_prefix=no
+ need_version=no
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
+ ;;
+ esac
+ ;;
+
+sysv4*MP*)
+ if test -d /usr/nec; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext'
+ soname_spec='$libname$shared_ext.$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ fi
+ ;;
+
+sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
+ version_type=sco
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ if test yes = "$with_gnu_ld"; then
+ sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
+ else
+ sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
+ case $host_os in
+ sco3.2v5*)
+ sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
+ ;;
+ esac
+ fi
+ sys_lib_dlsearch_path_spec='/usr/lib'
+ ;;
+
+tpf*)
+ # TPF is a cross-target only. Preferred cross-host = GNU/Linux.
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+uts4*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+*)
+ dynamic_linker=no
+ ;;
+esac
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
+$as_echo "$dynamic_linker" >&6; }
+test no = "$dynamic_linker" && can_build_shared=no
+
+variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
+if test yes = "$GCC"; then
+ variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
+fi
+
+if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then
+ sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec
+fi
+
+if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then
+ sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec
+fi
+
+# remember unaugmented sys_lib_dlsearch_path content for libtool script decls...
+configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec
+
+# ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code
+func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH"
+
+# to be used as default LT_SYS_LIBRARY_PATH value in generated libtool
+configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
+$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
+hardcode_action_F77=
+if test -n "$hardcode_libdir_flag_spec_F77" ||
+ test -n "$runpath_var_F77" ||
+ test yes = "$hardcode_automatic_F77"; then
+
+ # We can hardcode non-existent directories.
+ if test no != "$hardcode_direct_F77" &&
+ # If the only mechanism to avoid hardcoding is shlibpath_var, we
+ # have to relink, otherwise we might link with an installed library
+ # when we should be linking with a yet-to-be-installed one
+ ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, F77)" &&
+ test no != "$hardcode_minus_L_F77"; then
+ # Linking always hardcodes the temporary library directory.
+ hardcode_action_F77=relink
+ else
+ # We can link without hardcoding, and we can hardcode nonexisting dirs.
+ hardcode_action_F77=immediate
+ fi
+else
+ # We cannot hardcode anything, or else we can only hardcode existing
+ # directories.
+ hardcode_action_F77=unsupported
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_F77" >&5
+$as_echo "$hardcode_action_F77" >&6; }
+
+if test relink = "$hardcode_action_F77" ||
+ test yes = "$inherit_rpath_F77"; then
+ # Fast installation is not supported
+ enable_fast_install=no
+elif test yes = "$shlibpath_overrides_runpath" ||
+ test no = "$enable_shared"; then
+ # Fast installation is not necessary
+ enable_fast_install=needless
+fi
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether this is the NAG Fortran compiler" >&5
+$as_echo_n "checking whether this is the NAG Fortran compiler... " >&6; }
+ $CC -V 2>&1 | grep '^NAG Fortran Compiler Release' >/dev/null 2>&1
+ _lt_result=$?
+ if test $_lt_result -eq 0; then :
+ _lt_result=yes
+else
+ _lt_result=no
+fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_lt_result" >&5
+$as_echo "$_lt_result" >&6; }
+ acx_is_nagfor_F77=$_lt_result
+
+
+
+ fi # test -n "$compiler"
+
+ GCC=$lt_save_GCC
+ CC=$lt_save_CC
+ CFLAGS=$lt_save_CFLAGS
+fi # test yes != "$_lt_disable_F77"
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+
+
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+
+
+if test -z "$FC" || test no = "$FC"; then
+ _lt_disable_FC=yes
+fi
+
+archive_cmds_need_lc_FC=no
+allow_undefined_flag_FC=
+always_export_symbols_FC=no
+archive_expsym_cmds_FC=
+export_dynamic_flag_spec_FC=
+hardcode_direct_FC=no
+hardcode_direct_absolute_FC=no
+hardcode_libdir_flag_spec_FC=
+hardcode_libdir_separator_FC=
+hardcode_minus_L_FC=no
+hardcode_automatic_FC=no
+inherit_rpath_FC=no
+module_cmds_FC=
+module_expsym_cmds_FC=
+link_all_deplibs_FC=unknown
+old_archive_cmds_FC=$old_archive_cmds
+reload_flag_FC=$reload_flag
+reload_cmds_FC=$reload_cmds
+no_undefined_flag_FC=
+whole_archive_flag_spec_FC=
+enable_shared_with_static_runtimes_FC=no
+
+# Source file extension for fc test sources.
+ac_ext=${ac_fc_srcext-f}
+
+# Object file extension for compiled fc test sources.
+objext=o
+objext_FC=$objext
+
+# No sense in running all these tests if we already determined that
+# the FC compiler isn't working. Some variables (like enable_shared)
+# are currently assumed to apply to all compilers on this platform,
+# and will be corrupted by setting them based on a non-working compiler.
+if test yes != "$_lt_disable_FC"; then
+ # Code to be used in simple compile tests
+ lt_simple_compile_test_code="\
+ subroutine t
+ return
+ end
+"
+
+ # Code to be used in simple link tests
+ lt_simple_link_test_code="\
+ program t
+ end
+"
+
+ # ltmain only uses $CC for tagged configurations so make sure $CC is set.
+
+
+
+
+
+
+# If no C compiler was specified, use CC.
+LTCC=${LTCC-"$CC"}
+
+# If no C compiler flags were specified, use CFLAGS.
+LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
+
+# Allow CC to be a program name with arguments.
+compiler=$CC
+
+
+
+ # save warnings/boilerplate of simple test code
+ ac_outfile=conftest.$ac_objext
+echo "$lt_simple_compile_test_code" >conftest.$ac_ext
+eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_compiler_boilerplate=`cat conftest.err`
+$RM conftest*
+
+ ac_outfile=conftest.$ac_objext
+echo "$lt_simple_link_test_code" >conftest.$ac_ext
+eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_linker_boilerplate=`cat conftest.err`
+$RM -r conftest*
+
+
+ # Allow CC to be a program name with arguments.
+ lt_save_CC=$CC
+ lt_save_GCC=$GCC
+ lt_save_CFLAGS=$CFLAGS
+ CC=${FC-"f95"}
+ CFLAGS=$FCFLAGS
+ compiler=$CC
+ GCC=$ac_cv_fc_compiler_gnu
+
+ compiler_FC=$CC
+ func_cc_basename $compiler
+cc_basename=$func_cc_basename_result
+
+
+ if test -n "$compiler"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5
+$as_echo_n "checking if libtool supports shared libraries... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5
+$as_echo "$can_build_shared" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5
+$as_echo_n "checking whether to build shared libraries... " >&6; }
+ test no = "$can_build_shared" && enable_shared=no
+
+ # On AIX, shared libraries and static libraries use the same namespace, and
+ # are all built from PIC.
+ case $host_os in
+ aix3*)
+ test yes = "$enable_shared" && enable_static=no
+ if test -n "$RANLIB"; then
+ archive_cmds="$archive_cmds~\$RANLIB \$lib"
+ postinstall_cmds='$RANLIB $lib'
+ fi
+ ;;
+ aix[4-9]*)
+ if test ia64 != "$host_cpu"; then
+ case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in
+ yes,aix,yes) ;; # shared object as lib.so file only
+ yes,svr4,*) ;; # shared object as lib.so archive member only
+ yes,*) enable_static=no ;; # shared object in lib.a archive as well
+ esac
+ fi
+ ;;
+ esac
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5
+$as_echo "$enable_shared" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5
+$as_echo_n "checking whether to build static libraries... " >&6; }
+ # Make sure either enable_shared or enable_static is yes.
+ test yes = "$enable_shared" || enable_static=yes
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5
+$as_echo "$enable_static" >&6; }
+
+ GCC_FC=$ac_cv_fc_compiler_gnu
+ LD_FC=$LD
+
+ ## CAVEAT EMPTOR:
+ ## There is no encapsulation within the following macros, do not change
+ ## the running order or otherwise move them around unless you know exactly
+ ## what you are doing...
+ { output_verbose_link_cmd=; unset output_verbose_link_cmd;}
+ # Dependencies to place before and after the object being linked:
+predep_objects_FC=
+postdep_objects_FC=
+predeps_FC=
+postdeps_FC=
+compiler_lib_search_path_FC=
+
+cat > conftest.$ac_ext <<_LT_EOF
+ subroutine foo
+ implicit none
+ integer a
+ a=0
+ return
+ end
+_LT_EOF
+
+
+_lt_libdeps_save_CFLAGS=$CFLAGS
+case "$CC $CFLAGS " in #(
+*\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;;
+*\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;;
+*\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;;
+esac
+
+if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ # Parse the compiler output and extract the necessary
+ # objects, libraries and library flags.
+
+ # Sentinel used to keep track of whether or not we are before
+ # the conftest object file.
+ pre_test_object_deps_done=no
+
+ for p in `eval "$output_verbose_link_cmd"`; do
+ case $prev$p in
+
+ -L* | -R* | -l*)
+ # Some compilers place space between "-{L,R}" and the path.
+ # Remove the space.
+ if test x-L = x"$p" ||
+ test x-R = x"$p" ||
+ test x-l = x"$p"; then
+ prev=$p
+ continue
+ fi
+
+ # Expand the sysroot to ease extracting the directories later.
+ if test -z "$prev"; then
+ case $p in
+ -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;;
+ -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;;
+ -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;;
+ esac
+ fi
+ case $p in
+ =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;;
+ esac
+ if test no = "$pre_test_object_deps_done"; then
+ case $prev in
+ -L | -R)
+ # Internal compiler library paths should come after those
+ # provided the user. The postdeps already come after the
+ # user supplied libs so there is no need to process them.
+ if test -z "$compiler_lib_search_path_FC"; then
+ compiler_lib_search_path_FC=$prev$p
+ else
+ compiler_lib_search_path_FC="${compiler_lib_search_path_FC} $prev$p"
+ fi
+ ;;
+ # The "-l" case would never come before the object being
+ # linked, so don't bother handling this case.
+ esac
+ else
+ if test -z "$postdeps_FC"; then
+ postdeps_FC=$prev$p
+ else
+ postdeps_FC="${postdeps_FC} $prev$p"
+ fi
+ fi
+ prev=
+ ;;
+
+ *.lto.$objext) ;; # Ignore GCC LTO objects
+ *.$objext)
+ # This assumes that the test object file only shows up
+ # once in the compiler output.
+ if test "$p" = "conftest.$objext"; then
+ pre_test_object_deps_done=yes
+ continue
+ fi
+
+ if test no = "$pre_test_object_deps_done"; then
+ if test -z "$predep_objects_FC"; then
+ predep_objects_FC=$p
+ else
+ predep_objects_FC="$predep_objects_FC $p"
+ fi
+ else
+ if test -z "$postdep_objects_FC"; then
+ postdep_objects_FC=$p
+ else
+ postdep_objects_FC="$postdep_objects_FC $p"
+ fi
+ fi
+ ;;
+
+ *) ;; # Ignore the rest.
+
+ esac
+ done
+
+ # Clean up.
+ rm -f a.out a.exe
+else
+ echo "libtool.m4: error: problem compiling FC test program"
+fi
+
+$RM -f confest.$objext
+CFLAGS=$_lt_libdeps_save_CFLAGS
+
+# PORTME: override above test on systems where it is broken
+
+
+case " $postdeps_FC " in
+*" -lc "*) archive_cmds_need_lc_FC=no ;;
+esac
+ compiler_lib_search_dirs_FC=
+if test -n "${compiler_lib_search_path_FC}"; then
+ compiler_lib_search_dirs_FC=`echo " ${compiler_lib_search_path_FC}" | $SED -e 's! -L! !g' -e 's!^ !!'`
+fi
+
+
+
+
+
+
+
+
+
+
+
+
+
+ lt_prog_compiler_wl_FC=
+lt_prog_compiler_pic_FC=
+lt_prog_compiler_static_FC=
+
+
+ if test yes = "$GCC"; then
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_static_FC='-static'
+
+ case $host_os in
+ aix*)
+ # All AIX code is PIC.
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ lt_prog_compiler_static_FC='-Bstatic'
+ fi
+ lt_prog_compiler_pic_FC='-fPIC'
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ lt_prog_compiler_pic_FC='-fPIC'
+ ;;
+ m68k)
+ # FIXME: we need at least 68020 code to build shared libraries, but
+ # adding the '-m68020' flag to GCC prevents building anything better,
+ # like '-m68040'.
+ lt_prog_compiler_pic_FC='-m68020 -resident32 -malways-restore-a4'
+ ;;
+ esac
+ ;;
+
+ beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
+ # PIC is the default for these OSes.
+ ;;
+
+ mingw* | cygwin* | pw32* | os2* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ # Although the cygwin gcc ignores -fPIC, still need this for old-style
+ # (--disable-auto-import) libraries
+ lt_prog_compiler_pic_FC='-DDLL_EXPORT'
+ case $host_os in
+ os2*)
+ lt_prog_compiler_static_FC='$wl-static'
+ ;;
+ esac
+ ;;
+
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ lt_prog_compiler_pic_FC='-fno-common'
+ ;;
+
+ haiku*)
+ # PIC is the default for Haiku.
+ # The "-static" flag exists, but is broken.
+ lt_prog_compiler_static_FC=
+ ;;
+
+ hpux*)
+ # PIC is the default for 64-bit PA HP-UX, but not for 32-bit
+ # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
+ # sets the default TLS model and affects inlining.
+ case $host_cpu in
+ hppa*64*)
+ # +Z the default
+ ;;
+ *)
+ lt_prog_compiler_pic_FC='-fPIC'
+ ;;
+ esac
+ ;;
+
+ interix[3-9]*)
+ # Interix 3.x gcc -fpic/-fPIC options generate broken code.
+ # Instead, we relocate shared libraries at runtime.
+ ;;
+
+ msdosdjgpp*)
+ # Just because we use GCC doesn't mean we suddenly get shared libraries
+ # on systems that don't support them.
+ lt_prog_compiler_can_build_shared_FC=no
+ enable_shared=no
+ ;;
+
+ *nto* | *qnx*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ lt_prog_compiler_pic_FC='-fPIC -shared'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ lt_prog_compiler_pic_FC=-Kconform_pic
+ fi
+ ;;
+
+ *)
+ lt_prog_compiler_pic_FC='-fPIC'
+ ;;
+ esac
+
+ case $cc_basename in
+ nvcc*) # Cuda Compiler Driver 2.2
+ lt_prog_compiler_wl_FC='-Xlinker '
+ if test -n "$lt_prog_compiler_pic_FC"; then
+ lt_prog_compiler_pic_FC="-Xcompiler $lt_prog_compiler_pic_FC"
+ fi
+ ;;
+ esac
+ else
+ # PORTME Check for flag to pass linker flags through the system compiler.
+ case $host_os in
+ aix*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ lt_prog_compiler_static_FC='-Bstatic'
+ else
+ lt_prog_compiler_static_FC='-bnso -bI:/lib/syscalls.exp'
+ fi
+ ;;
+
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ lt_prog_compiler_pic_FC='-fno-common'
+ case $cc_basename in
+ nagfor*)
+ # NAG Fortran compiler
+ lt_prog_compiler_wl_FC='-Wl,-Wl,,'
+ lt_prog_compiler_pic_FC='-PIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+ esac
+ ;;
+
+ mingw* | cygwin* | pw32* | os2* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ lt_prog_compiler_pic_FC='-DDLL_EXPORT'
+ case $host_os in
+ os2*)
+ lt_prog_compiler_static_FC='$wl-static'
+ ;;
+ esac
+ ;;
+
+ hpux9* | hpux10* | hpux11*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
+ # not for PA HP-UX.
+ case $host_cpu in
+ hppa*64*|ia64*)
+ # +Z the default
+ ;;
+ *)
+ lt_prog_compiler_pic_FC='+Z'
+ ;;
+ esac
+ # Is there a better lt_prog_compiler_static that works with the bundled CC?
+ lt_prog_compiler_static_FC='$wl-a ${wl}archive'
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ # PIC (with -KPIC) is the default.
+ lt_prog_compiler_static_FC='-non_shared'
+ ;;
+
+ linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ case $cc_basename in
+ # old Intel for x86_64, which still supported -KPIC.
+ ecc*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-KPIC'
+ lt_prog_compiler_static_FC='-static'
+ ;;
+ # icc used to be incompatible with GCC.
+ # ICC 10 doesn't accept -KPIC any more.
+ icc* | ifort*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-fPIC'
+ lt_prog_compiler_static_FC='-static'
+ ;;
+ # Lahey Fortran 8.1.
+ lf95*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='--shared'
+ lt_prog_compiler_static_FC='--static'
+ ;;
+ nagfor*)
+ # NAG Fortran compiler
+ lt_prog_compiler_wl_FC='-Wl,-Wl,,'
+ lt_prog_compiler_pic_FC='-PIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+ tcc*)
+ # Fabrice Bellard et al's Tiny C Compiler
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-fPIC'
+ lt_prog_compiler_static_FC='-static'
+ ;;
+ pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
+ # Portland Group compilers (*not* the Pentium gcc compiler,
+ # which looks to be a dead project)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-fpic'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+ ccc*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ # All Alpha code is PIC.
+ lt_prog_compiler_static_FC='-non_shared'
+ ;;
+ xl* | bgxl* | bgf* | mpixl*)
+ # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-qpic'
+ lt_prog_compiler_static_FC='-qstaticlink'
+ ;;
+ *)
+ case `$CC -V 2>&1 | sed -n 1,5p` in
+ *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*)
+ # Sun Fortran 8.3 passes all unrecognized flags to the linker
+ lt_prog_compiler_pic_FC='-KPIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ lt_prog_compiler_wl_FC=''
+ ;;
+ *Sun\ F* | *Sun*Fortran*)
+ lt_prog_compiler_pic_FC='-KPIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ lt_prog_compiler_wl_FC='-Qoption ld '
+ ;;
+ *Sun\ C*)
+ # Sun C 5.9
+ lt_prog_compiler_pic_FC='-KPIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ lt_prog_compiler_wl_FC='-Wl,'
+ ;;
+ *Intel*\ [CF]*Compiler*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-fPIC'
+ lt_prog_compiler_static_FC='-static'
+ ;; #(
+ *NAG\ Fortran\ Compiler*)
+ lt_prog_compiler_wl_FC='-Wl,-Wl,,'
+ lt_prog_compiler_pic_FC='-PIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+ *PGI\ Compilers\ and\ Tools*|*NVIDIA\ Compilers\ and\ Tools*|*Portland\ Group*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-fpic'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+ esac
+ ;;
+ esac
+ ;;
+
+ newsos6)
+ lt_prog_compiler_pic_FC='-KPIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+
+ *nto* | *qnx*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ lt_prog_compiler_pic_FC='-fPIC -shared'
+ ;;
+
+ osf3* | osf4* | osf5*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ # All OSF/1 code is PIC.
+ lt_prog_compiler_static_FC='-non_shared'
+ ;;
+
+ rdos*)
+ lt_prog_compiler_static_FC='-non_shared'
+ ;;
+
+ solaris*)
+ lt_prog_compiler_pic_FC='-KPIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ case $cc_basename in
+ f77* | f90* | f95* | sunf77* | sunf90* | sunf95*)
+ lt_prog_compiler_wl_FC='-Qoption ld ';;
+ *)
+ lt_prog_compiler_wl_FC='-Wl,';;
+ esac
+ ;;
+
+ sunos4*)
+ lt_prog_compiler_wl_FC='-Qoption ld '
+ lt_prog_compiler_pic_FC='-PIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+
+ sysv4 | sysv4.2uw2* | sysv4.3*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-KPIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ lt_prog_compiler_pic_FC='-Kconform_pic'
+ lt_prog_compiler_static_FC='-Bstatic'
+ fi
+ ;;
+
+ sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-KPIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+
+ unicos*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_can_build_shared_FC=no
+ ;;
+
+ uts4*)
+ lt_prog_compiler_pic_FC='-pic'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
+
+ *)
+ lt_prog_compiler_can_build_shared_FC=no
+ ;;
+ esac
+ fi
+
+case $host_os in
+ # For platforms that do not support PIC, -DPIC is meaningless:
+ *djgpp*)
+ lt_prog_compiler_pic_FC=
+ ;;
+ *)
+ lt_prog_compiler_pic_FC="$lt_prog_compiler_pic_FC"
+ ;;
+esac
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
+$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
+if ${lt_cv_prog_compiler_pic_FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_pic_FC=$lt_prog_compiler_pic_FC
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_FC" >&5
+$as_echo "$lt_cv_prog_compiler_pic_FC" >&6; }
+lt_prog_compiler_pic_FC=$lt_cv_prog_compiler_pic_FC
+
+#
+# Check to make sure the PIC flag actually works.
+#
+if test -n "$lt_prog_compiler_pic_FC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_FC works" >&5
+$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_FC works... " >&6; }
+if ${lt_cv_prog_compiler_pic_works_FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_pic_works_FC=no
+ ac_outfile=conftest.$ac_objext
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+ lt_compiler_flag="$lt_prog_compiler_pic_FC" ## exclude from sc_useless_quotes_in_assignment
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ # The option is referenced via a variable to avoid confusing sed.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>conftest.err)
+ ac_status=$?
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s "$ac_outfile"; then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings other than the usual output.
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_pic_works_FC=yes
+ fi
+ fi
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works_FC" >&5
+$as_echo "$lt_cv_prog_compiler_pic_works_FC" >&6; }
+
+if test yes = "$lt_cv_prog_compiler_pic_works_FC"; then
+ case $lt_prog_compiler_pic_FC in
+ "" | " "*) ;;
+ *) lt_prog_compiler_pic_FC=" $lt_prog_compiler_pic_FC" ;;
+ esac
+else
+ lt_prog_compiler_pic_FC=
+ lt_prog_compiler_can_build_shared_FC=no
+fi
+
+fi
+
+
+
+
+
+#
+# Check to make sure the static flag actually works.
+#
+wl=$lt_prog_compiler_wl_FC eval lt_tmp_static_flag=\"$lt_prog_compiler_static_FC\"
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
+$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
+if ${lt_cv_prog_compiler_static_works_FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_static_works_FC=no
+ save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
+ echo "$lt_simple_link_test_code" > conftest.$ac_ext
+ if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
+ # The linker can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ if test -s conftest.err; then
+ # Append any errors to the config.log.
+ cat conftest.err 1>&5
+ $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if diff conftest.exp conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_static_works_FC=yes
+ fi
+ else
+ lt_cv_prog_compiler_static_works_FC=yes
+ fi
+ fi
+ $RM -r conftest*
+ LDFLAGS=$save_LDFLAGS
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works_FC" >&5
+$as_echo "$lt_cv_prog_compiler_static_works_FC" >&6; }
+
+if test yes = "$lt_cv_prog_compiler_static_works_FC"; then
+ :
+else
+ lt_prog_compiler_static_FC=
+fi
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
+$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
+if ${lt_cv_prog_compiler_c_o_FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_c_o_FC=no
+ $RM -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
+ $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
+ if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_c_o_FC=yes
+ fi
+ fi
+ chmod u+w . 2>&5
+ $RM conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
+ $RM out/* && rmdir out
+ cd ..
+ $RM -r conftest
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_FC" >&5
+$as_echo "$lt_cv_prog_compiler_c_o_FC" >&6; }
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
+$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
+if ${lt_cv_prog_compiler_c_o_FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_prog_compiler_c_o_FC=no
+ $RM -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
+ $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
+ if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
+ lt_cv_prog_compiler_c_o_FC=yes
+ fi
+ fi
+ chmod u+w . 2>&5
+ $RM conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
+ $RM out/* && rmdir out
+ cd ..
+ $RM -r conftest
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_FC" >&5
+$as_echo "$lt_cv_prog_compiler_c_o_FC" >&6; }
+
+
+
+
+hard_links=nottested
+if test no = "$lt_cv_prog_compiler_c_o_FC" && test no != "$need_locks"; then
+ # do not overwrite the value of need_locks provided by the user
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
+$as_echo_n "checking if we can lock with hard links... " >&6; }
+ hard_links=yes
+ $RM conftest*
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ touch conftest.a
+ ln conftest.a conftest.b 2>&5 || hard_links=no
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
+$as_echo "$hard_links" >&6; }
+ if test no = "$hard_links"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5
+$as_echo "$as_me: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&2;}
+ need_locks=warn
+ fi
+else
+ need_locks=no
+fi
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
+$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
+
+ runpath_var=
+ allow_undefined_flag_FC=
+ always_export_symbols_FC=no
+ archive_cmds_FC=
+ archive_expsym_cmds_FC=
+ compiler_needs_object_FC=no
+ enable_shared_with_static_runtimes_FC=no
+ export_dynamic_flag_spec_FC=
+ export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ hardcode_automatic_FC=no
+ hardcode_direct_FC=no
+ hardcode_direct_absolute_FC=no
+ hardcode_libdir_flag_spec_FC=
+ hardcode_libdir_separator_FC=
+ hardcode_minus_L_FC=no
+ hardcode_shlibpath_var_FC=unsupported
+ inherit_rpath_FC=no
+ link_all_deplibs_FC=unknown
+ module_cmds_FC=
+ module_expsym_cmds_FC=
+ old_archive_from_new_cmds_FC=
+ old_archive_from_expsyms_cmds_FC=
+ thread_safe_flag_spec_FC=
+ whole_archive_flag_spec_FC=
+ # include_expsyms should be a list of space-separated symbols to be *always*
+ # included in the symbol list
+ include_expsyms_FC=
+ # exclude_expsyms can be an extended regexp of symbols to exclude
+ # it will be wrapped by ' (' and ')$', so one must not match beginning or
+ # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc',
+ # as well as any symbol that contains 'd'.
+ exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
+ # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
+ # platforms (ab)use it in PIC code, but their linkers get confused if
+ # the symbol is explicitly referenced. Since portable code cannot
+ # rely on this symbol name, it's probably fine to never include it in
+ # preloaded symbol tables.
+ # Exclude shared library initialization/finalization symbols.
+ extract_expsyms_cmds=
+
+ case $host_os in
+ cygwin* | mingw* | pw32* | cegcc*)
+ # FIXME: the MSVC++ port hasn't been tested in a loooong time
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ if test yes != "$GCC"; then
+ with_gnu_ld=no
+ fi
+ ;;
+ interix*)
+ # we just hope/assume this is gcc and not c89 (= MSVC++)
+ with_gnu_ld=yes
+ ;;
+ openbsd* | bitrig*)
+ with_gnu_ld=no
+ ;;
+ esac
+
+ ld_shlibs_FC=yes
+
+ # On some targets, GNU ld is compatible enough with the native linker
+ # that we're better off using the native interface for both.
+ lt_use_gnu_ld_interface=no
+ if test yes = "$with_gnu_ld"; then
+ case $host_os in
+ aix*)
+ # The AIX port of GNU ld has always aspired to compatibility
+ # with the native linker. However, as the warning in the GNU ld
+ # block says, versions before 2.19.5* couldn't really create working
+ # shared libraries, regardless of the interface used.
+ case `$LD -v 2>&1` in
+ *\ \(GNU\ Binutils\)\ 2.19.5*) ;;
+ *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;;
+ *\ \(GNU\ Binutils\)\ [3-9]*) ;;
+ *)
+ lt_use_gnu_ld_interface=yes
+ ;;
+ esac
+ ;;
+ *)
+ lt_use_gnu_ld_interface=yes
+ ;;
+ esac
+ fi
+
+ if test yes = "$lt_use_gnu_ld_interface"; then
+ # If archive_cmds runs LD, not CC, wlarc should be empty
+ wlarc='$wl'
+
+ # Set some defaults for GNU ld with shared library support. These
+ # are reset later if shared libraries are not supported. Putting them
+ # here allows them to be overridden if necessary.
+ runpath_var=LD_RUN_PATH
+ hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir'
+ export_dynamic_flag_spec_FC='$wl--export-dynamic'
+ # ancient GNU ld didn't support --whole-archive et. al.
+ if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
+ whole_archive_flag_spec_FC=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive'
+ else
+ whole_archive_flag_spec_FC=
+ fi
+ supports_anon_versioning=no
+ case `$LD -v | $SED -e 's/(^)\+)\s\+//' 2>&1` in
+ *GNU\ gold*) supports_anon_versioning=yes ;;
+ *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11
+ *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
+ *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
+ *\ 2.11.*) ;; # other 2.11 versions
+ *) supports_anon_versioning=yes ;;
+ esac
+
+ # See if GNU ld supports shared libraries.
+ case $host_os in
+ aix[3-9]*)
+ # On AIX/PPC, the GNU linker is very broken
+ if test ia64 != "$host_cpu"; then
+ ld_shlibs_FC=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: the GNU linker, at least up to release 2.19, is reported
+*** to be unable to reliably create shared libraries on AIX.
+*** Therefore, libtool is disabling shared libraries support. If you
+*** really care for shared libraries, you may want to install binutils
+*** 2.20 or above, or modify your PATH so that a non-GNU linker is found.
+*** You will then need to restart the configuration process.
+
+_LT_EOF
+ fi
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_FC=''
+ ;;
+ m68k)
+ archive_cmds_FC='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ hardcode_minus_L_FC=yes
+ ;;
+ esac
+ ;;
+
+ beos*)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ allow_undefined_flag_FC=unsupported
+ # Joseph Beckenbach <jrb3@best.com> says some releases of gcc
+ # support --undefined. This deserves some investigation. FIXME
+ archive_cmds_FC='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ else
+ ld_shlibs_FC=no
+ fi
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ # _LT_TAGVAR(hardcode_libdir_flag_spec, FC) is actually meaningless,
+ # as there is no search path for DLLs.
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ export_dynamic_flag_spec_FC='$wl--export-all-symbols'
+ allow_undefined_flag_FC=unsupported
+ always_export_symbols_FC=no
+ enable_shared_with_static_runtimes_FC=yes
+ export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols'
+ exclude_expsyms_FC='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'
+
+ if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
+ archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ # If the export-symbols file already is a .def file, use it as
+ # is; otherwise, prepend EXPORTS...
+ archive_expsym_cmds_FC='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
+ cp $export_symbols $output_objdir/$soname.def;
+ else
+ echo EXPORTS > $output_objdir/$soname.def;
+ cat $export_symbols >> $output_objdir/$soname.def;
+ fi~
+ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ else
+ ld_shlibs_FC=no
+ fi
+ ;;
+
+ haiku*)
+ archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ link_all_deplibs_FC=yes
+ ;;
+
+ os2*)
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ hardcode_minus_L_FC=yes
+ allow_undefined_flag_FC=unsupported
+ shrext_cmds=.dll
+ archive_cmds_FC='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ archive_expsym_cmds_FC='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ old_archive_From_new_cmds_FC='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ enable_shared_with_static_runtimes_FC=yes
+ ;;
+
+ interix[3-9]*)
+ hardcode_direct_FC=no
+ hardcode_shlibpath_var_FC=no
+ hardcode_libdir_flag_spec_FC='$wl-rpath,$libdir'
+ export_dynamic_flag_spec_FC='$wl-E'
+ # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
+ # Instead, shared libraries are loaded at an image base (0x10000000 by
+ # default) and relocated if they conflict, which is a slow very memory
+ # consuming and fragmenting process. To avoid this, we pick a random,
+ # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
+ # time. Moving up from 0x10000000 also allows more sbrk(2) space.
+ archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ archive_expsym_cmds_FC='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ ;;
+
+ gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
+ tmp_diet=no
+ if test linux-dietlibc = "$host_os"; then
+ case $cc_basename in
+ diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
+ esac
+ fi
+ if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
+ && test no = "$tmp_diet"
+ then
+ tmp_addflag=' $pic_flag'
+ tmp_sharedflag='-shared'
+ tmp_compiler_flags='$compiler_flags'
+ case $cc_basename,$host_cpu in
+ pgcc*) # Portland Group C compiler
+ whole_archive_flag_spec_FC='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ tmp_addflag=' $pic_flag'
+ ;;
+ pgf77* | pgf90* | pgf95* | pgfortran*)
+ # Portland Group f77 and f90 compilers
+ whole_archive_flag_spec_FC='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ tmp_addflag=' $pic_flag -Mnomain' ;;
+ ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
+ tmp_addflag=' -i_dynamic' ;;
+ efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
+ tmp_addflag=' -i_dynamic -nofor_main' ;;
+ ifc* | ifort*) # Intel Fortran compiler
+ tmp_addflag=' -nofor_main' ;;
+ lf95*) # Lahey Fortran 8.1
+ whole_archive_flag_spec_FC=
+ tmp_sharedflag='--shared' ;;
+ nagfor*) # NAGFOR 5.3
+ tmp_sharedflag='-Wl,-shared'
+ tmp_compiler_flags='`echo " $compiler_flags " | sed -E -e '"'"': start'"'"' -e '"'"'s/ -W[cl],-no-pie[[:blank:]]/ /g;t start'"'"' -e '"'"'s/^ //;s/ $//'"'"'`' ;;
+ xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below)
+ tmp_sharedflag='-qmkshrobj'
+ tmp_addflag= ;;
+ nvcc*) # Cuda Compiler Driver 2.2
+ whole_archive_flag_spec_FC='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ compiler_needs_object_FC=yes
+ ;;
+ esac
+ case `$CC -V 2>&1 | sed -n 1,5p` in
+ *Sun\ C*) # Sun C 5.9
+ whole_archive_flag_spec_FC='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ compiler_needs_object_FC=yes
+ tmp_sharedflag='-G' ;;
+ *Sun\ F*) # Sun Fortran 8.3
+ tmp_sharedflag='-G' ;;
+ *NAG\ Fortran\ Compiler*)
+ tmp_sharedflag='-Wl,-shared'
+ tmp_compiler_flags='`echo " $compiler_flags " | sed -E -e '"'"': start'"'"' -e '"'"'s/ -W[cl],-no-pie[[:blank:]]/ /g;t start'"'"' -e '"'"'s/^ //;s/ $//'"'"'`' ;;
+ esac
+ archive_cmds_FC='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs '"$tmp_compiler_flags"' $wl-soname $wl$soname -o $lib'
+
+ if test yes = "$supports_anon_versioning"; then
+ archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs '"$tmp_compiler_flags"' $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib'
+ fi
+
+ case $cc_basename in
+ tcc*)
+ export_dynamic_flag_spec_FC='-rdynamic'
+ ;;
+ xlf* | bgf* | bgxlf* | mpixlf*)
+ # IBM XL Fortran 10.1 on PPC cannot create shared libs itself
+ whole_archive_flag_spec_FC='--whole-archive$convenience --no-whole-archive'
+ hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir'
+ archive_cmds_FC='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib'
+ if test yes = "$supports_anon_versioning"; then
+ archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
+ fi
+ ;;
+ esac
+ else
+ ld_shlibs_FC=no
+ fi
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ archive_cmds_FC='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
+ wlarc=
+ else
+ archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ fi
+ ;;
+
+ solaris*)
+ if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
+ ld_shlibs_FC=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: The releases 2.8.* of the GNU linker cannot reliably
+*** create shared libraries on Solaris systems. Therefore, libtool
+*** is disabling shared libraries support. We urge you to upgrade GNU
+*** binutils to release 2.9.1 or newer. Another option is to modify
+*** your PATH or compiler configuration so that the native linker is
+*** used, and then restart.
+
+_LT_EOF
+ elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ ld_shlibs_FC=no
+ fi
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
+ case `$LD -v 2>&1` in
+ *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
+ ld_shlibs_FC=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot
+*** reliably create shared libraries on SCO systems. Therefore, libtool
+*** is disabling shared libraries support. We urge you to upgrade GNU
+*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
+*** your PATH or compiler configuration so that the native linker is
+*** used, and then restart.
+
+_LT_EOF
+ ;;
+ *)
+ # For security reasons, it is highly recommended that you always
+ # use absolute paths for naming shared libraries, and exclude the
+ # DT_RUNPATH tag from executables and libraries. But doing so
+ # requires that you compile everything twice, which is a pain.
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir'
+ archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ ld_shlibs_FC=no
+ fi
+ ;;
+ esac
+ ;;
+
+ sunos4*)
+ archive_cmds_FC='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ wlarc=
+ hardcode_direct_FC=yes
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ *)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ ld_shlibs_FC=no
+ fi
+ ;;
+ esac
+
+ if test no = "$ld_shlibs_FC"; then
+ runpath_var=
+ hardcode_libdir_flag_spec_FC=
+ export_dynamic_flag_spec_FC=
+ whole_archive_flag_spec_FC=
+ fi
+ else
+ # PORTME fill in a description of your system's linker (not GNU ld)
+ case $host_os in
+ aix3*)
+ allow_undefined_flag_FC=unsupported
+ always_export_symbols_FC=yes
+ archive_expsym_cmds_FC='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
+ # Note: this linker hardcodes the directories in LIBPATH if there
+ # are no directories specified by -L.
+ hardcode_minus_L_FC=yes
+ if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then
+ # Neither direct hardcoding nor static linking is supported with a
+ # broken collect2.
+ hardcode_direct_FC=unsupported
+ fi
+ ;;
+
+ aix[4-9]*)
+ if test ia64 = "$host_cpu"; then
+ # On IA64, the linker does run time linking by default, so we don't
+ # have to do anything special.
+ aix_use_runtimelinking=no
+ exp_sym_flag='-Bexport'
+ no_entry_flag=
+ else
+ # If we're using GNU nm, then we don't want the "-C" option.
+ # -C means demangle to GNU nm, but means don't demangle to AIX nm.
+ # Without the "-l" option, or with the "-B" option, AIX nm treats
+ # weak defined symbols like other global defined symbols, whereas
+ # GNU nm marks them as "W".
+ # While the 'weak' keyword is ignored in the Export File, we need
+ # it in the Import File for the 'aix-soname' feature, so we have
+ # to replace the "-B" option with "-P" for AIX nm.
+ if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
+ export_symbols_cmds_FC='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols'
+ else
+ export_symbols_cmds_FC='`func_echo_all $NM | $SED -e '\''s/B\([^B]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && (substr(\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols'
+ fi
+ aix_use_runtimelinking=no
+
+ # Test if we are trying to use run time linking or normal
+ # AIX style linking. If -brtl is somewhere in LDFLAGS, we
+ # have runtime linking enabled, and use it for executables.
+ # For shared libraries, we enable/disable runtime linking
+ # depending on the kind of the shared library created -
+ # when "with_aix_soname,aix_use_runtimelinking" is:
+ # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables
+ # "aix,yes" lib.so shared, rtl:yes, for executables
+ # lib.a static archive
+ # "both,no" lib.so.V(shr.o) shared, rtl:yes
+ # lib.a(lib.so.V) shared, rtl:no, for executables
+ # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a(lib.so.V) shared, rtl:no
+ # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a static archive
+ case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
+ for ld_flag in $LDFLAGS; do
+ if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then
+ aix_use_runtimelinking=yes
+ break
+ fi
+ done
+ if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # With aix-soname=svr4, we create the lib.so.V shared archives only,
+ # so we don't have lib.a shared libs to link our executables.
+ # We have to force runtime linking in this case.
+ aix_use_runtimelinking=yes
+ LDFLAGS="$LDFLAGS -Wl,-brtl"
+ fi
+ ;;
+ esac
+
+ exp_sym_flag='-bexport'
+ no_entry_flag='-bnoentry'
+ fi
+
+ # When large executables or shared objects are built, AIX ld can
+ # have problems creating the table of contents. If linking a library
+ # or program results in "error TOC overflow" add -mminimal-toc to
+ # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
+ # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
+
+ archive_cmds_FC=''
+ hardcode_direct_FC=yes
+ hardcode_direct_absolute_FC=yes
+ hardcode_libdir_separator_FC=':'
+ link_all_deplibs_FC=yes
+ file_list_spec_FC='$wl-f,'
+ case $with_aix_soname,$aix_use_runtimelinking in
+ aix,*) ;; # traditional, no import file
+ svr4,* | *,yes) # use import file
+ # The Import File defines what to hardcode.
+ hardcode_direct_FC=no
+ hardcode_direct_absolute_FC=no
+ ;;
+ esac
+
+ if test yes = "$GCC"; then
+ case $host_os in aix4.[012]|aix4.[012].*)
+ # We only want to do this on AIX 4.2 and lower, the check
+ # below for broken collect2 doesn't work under 4.3+
+ collect2name=`$CC -print-prog-name=collect2`
+ if test -f "$collect2name" &&
+ strings "$collect2name" | $GREP resolve_lib_name >/dev/null
+ then
+ # We have reworked collect2
+ :
+ else
+ # We have old collect2
+ hardcode_direct_FC=unsupported
+ # It fails to find uninstalled libraries when the uninstalled
+ # path is not listed in the libpath. Setting hardcode_minus_L
+ # to unsupported forces relinking
+ hardcode_minus_L_FC=yes
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ hardcode_libdir_separator_FC=
+ fi
+ ;;
+ esac
+ shared_flag='-shared'
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag="$shared_flag "'$wl-G'
+ fi
+ # Need to ensure runtime linking is disabled for the traditional
+ # shared library, or the linker may eventually find shared libraries
+ # /with/ Import File - we do not want to mix them.
+ shared_flag_aix='-shared'
+ shared_flag_svr4='-shared $wl-G'
+ else
+ # not using gcc
+ if test ia64 = "$host_cpu"; then
+ # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
+ # chokes on -Wl,-G. The following line is correct:
+ shared_flag='-G'
+ else
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag='$wl-G'
+ else
+ shared_flag='$wl-bM:SRE'
+ fi
+ shared_flag_aix='$wl-bM:SRE'
+ shared_flag_svr4='$wl-G'
+ fi
+ fi
+
+ export_dynamic_flag_spec_FC='$wl-bexpall'
+ # It seems that -bexpall does not export symbols beginning with
+ # underscore (_), so it is better to generate a list of symbols to export.
+ always_export_symbols_FC=yes
+ if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # Warning - without using the other runtime loading flags (-brtl),
+ # -berok will link without error, but may produce a broken library.
+ allow_undefined_flag_FC='-berok'
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ if test set = "${lt_cv_aix_libpath+set}"; then
+ aix_libpath=$lt_cv_aix_libpath
+else
+ if ${lt_cv_aix_libpath__FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+
+ end
+_ACEOF
+if ac_fn_fc_try_link "$LINENO"; then :
+
+ lt_aix_libpath_sed='
+ /Import File Strings/,/^$/ {
+ /^0/ {
+ s/^0 *\([^ ]*\) *$/\1/
+ p
+ }
+ }'
+ lt_cv_aix_libpath__FC=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ # Check for a 64-bit object if we didn't find anything.
+ if test -z "$lt_cv_aix_libpath__FC"; then
+ lt_cv_aix_libpath__FC=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ if test -z "$lt_cv_aix_libpath__FC"; then
+ lt_cv_aix_libpath__FC=/usr/lib:/lib
+ fi
+
+fi
+
+ aix_libpath=$lt_cv_aix_libpath__FC
+fi
+
+ hardcode_libdir_flag_spec_FC='$wl-blibpath:$libdir:'"$aix_libpath"
+ archive_expsym_cmds_FC='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag
+ else
+ if test ia64 = "$host_cpu"; then
+ hardcode_libdir_flag_spec_FC='$wl-R $libdir:/usr/lib:/lib'
+ allow_undefined_flag_FC="-z nodefs"
+ archive_expsym_cmds_FC="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols"
+ else
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ if test set = "${lt_cv_aix_libpath+set}"; then
+ aix_libpath=$lt_cv_aix_libpath
+else
+ if ${lt_cv_aix_libpath__FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+
+ end
+_ACEOF
+if ac_fn_fc_try_link "$LINENO"; then :
+
+ lt_aix_libpath_sed='
+ /Import File Strings/,/^$/ {
+ /^0/ {
+ s/^0 *\([^ ]*\) *$/\1/
+ p
+ }
+ }'
+ lt_cv_aix_libpath__FC=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ # Check for a 64-bit object if we didn't find anything.
+ if test -z "$lt_cv_aix_libpath__FC"; then
+ lt_cv_aix_libpath__FC=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ if test -z "$lt_cv_aix_libpath__FC"; then
+ lt_cv_aix_libpath__FC=/usr/lib:/lib
+ fi
+
+fi
+
+ aix_libpath=$lt_cv_aix_libpath__FC
+fi
+
+ hardcode_libdir_flag_spec_FC='$wl-blibpath:$libdir:'"$aix_libpath"
+ # Warning - without using the other run time loading flags,
+ # -berok will link without error, but may produce a broken library.
+ no_undefined_flag_FC=' $wl-bernotok'
+ allow_undefined_flag_FC=' $wl-berok'
+ if test yes = "$with_gnu_ld"; then
+ # We only use this code for GNU lds that support --whole-archive.
+ whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive'
+ else
+ # Exported symbols can be pulled into shared objects from archives
+ whole_archive_flag_spec_FC='$convenience'
+ fi
+ archive_cmds_need_lc_FC=yes
+ archive_expsym_cmds_FC='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d'
+ # -brtl affects multiple linker settings, -berok does not and is overridden later
+ compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([, ]\\)%-berok\\1%g"`'
+ if test svr4 != "$with_aix_soname"; then
+ # This is similar to how AIX traditionally builds its shared libraries.
+ archive_expsym_cmds_FC="$archive_expsym_cmds_FC"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname'
+ fi
+ if test aix != "$with_aix_soname"; then
+ archive_expsym_cmds_FC="$archive_expsym_cmds_FC"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp'
+ else
+ # used by -dlpreopen to get the symbols
+ archive_expsym_cmds_FC="$archive_expsym_cmds_FC"'~$MV $output_objdir/$realname.d/$soname $output_objdir'
+ fi
+ archive_expsym_cmds_FC="$archive_expsym_cmds_FC"'~$RM -r $output_objdir/$realname.d'
+ fi
+ fi
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ archive_expsym_cmds_FC=''
+ ;;
+ m68k)
+ archive_cmds_FC='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ hardcode_minus_L_FC=yes
+ ;;
+ esac
+ ;;
+
+ bsdi[45]*)
+ export_dynamic_flag_spec_FC=-rdynamic
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ # hardcode_libdir_flag_spec is actually meaningless, as there is
+ # no search path for DLLs.
+ case $cc_basename in
+ cl*)
+ # Native MSVC
+ hardcode_libdir_flag_spec_FC=' '
+ allow_undefined_flag_FC=unsupported
+ always_export_symbols_FC=yes
+ file_list_spec_FC='@'
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ archive_cmds_FC='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames='
+ archive_expsym_cmds_FC='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
+ cp "$export_symbols" "$output_objdir/$soname.def";
+ echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp";
+ else
+ $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp;
+ fi~
+ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
+ linknames='
+ # The linker will not automatically build a static lib if we build a DLL.
+ # _LT_TAGVAR(old_archive_from_new_cmds, FC)='true'
+ enable_shared_with_static_runtimes_FC=yes
+ exclude_expsyms_FC='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
+ export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols'
+ # Don't use ranlib
+ old_postinstall_cmds_FC='chmod 644 $oldlib'
+ postlink_cmds_FC='lt_outputfile="@OUTPUT@"~
+ lt_tool_outputfile="@TOOL_OUTPUT@"~
+ case $lt_outputfile in
+ *.exe|*.EXE) ;;
+ *)
+ lt_outputfile=$lt_outputfile.exe
+ lt_tool_outputfile=$lt_tool_outputfile.exe
+ ;;
+ esac~
+ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then
+ $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
+ $RM "$lt_outputfile.manifest";
+ fi'
+ ;;
+ *)
+ # Assume MSVC wrapper
+ hardcode_libdir_flag_spec_FC=' '
+ allow_undefined_flag_FC=unsupported
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ archive_cmds_FC='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames='
+ # The linker will automatically build a .lib file if we build a DLL.
+ old_archive_from_new_cmds_FC='true'
+ # FIXME: Should let the user specify the lib program.
+ old_archive_cmds_FC='lib -OUT:$oldlib$oldobjs$old_deplibs'
+ enable_shared_with_static_runtimes_FC=yes
+ ;;
+ esac
+ ;;
+
+ darwin* | rhapsody*)
+
+
+ archive_cmds_need_lc_FC=no
+ hardcode_direct_FC=no
+ hardcode_automatic_FC=yes
+ hardcode_shlibpath_var_FC=unsupported
+ if test yes = "$lt_cv_ld_force_load"; then
+ whole_archive_flag_spec_FC='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
+ compiler_needs_object_FC=yes
+ else
+ whole_archive_flag_spec_FC=''
+ fi
+ link_all_deplibs_FC=yes
+ allow_undefined_flag_FC=$_lt_dar_allow_undefined
+ case $cc_basename in
+ ifort*|nagfor*) _lt_dar_can_shared=yes ;;
+ *) _lt_dar_can_shared=$GCC ;;
+ esac
+ if test yes = "$_lt_dar_can_shared"; then
+ output_verbose_link_cmd=func_echo_all
+ archive_cmds_FC="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil"
+ module_cmds_FC="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil"
+ archive_expsym_cmds_FC="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil"
+ module_expsym_cmds_FC="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil"
+
+ else
+ ld_shlibs_FC=no
+ fi
+
+ ;;
+
+ dgux*)
+ archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
+ # support. Future versions do this automatically, but an explicit c++rt0.o
+ # does not break anything, and helps significantly (at the cost of a little
+ # extra space).
+ freebsd2.2*)
+ archive_cmds_FC='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
+ hardcode_libdir_flag_spec_FC='-R$libdir'
+ hardcode_direct_FC=yes
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ # Unfortunately, older versions of FreeBSD 2 do not have this feature.
+ freebsd2.*)
+ archive_cmds_FC='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct_FC=yes
+ hardcode_minus_L_FC=yes
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ # FreeBSD 3 and greater uses gcc -shared to do shared libraries.
+ freebsd* | dragonfly*)
+ archive_cmds_FC='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ hardcode_libdir_flag_spec_FC='-R$libdir'
+ hardcode_direct_FC=yes
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ hpux9*)
+ if test yes = "$GCC"; then
+ archive_cmds_FC='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ else
+ archive_cmds_FC='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ fi
+ hardcode_libdir_flag_spec_FC='$wl+b $wl$libdir'
+ hardcode_libdir_separator_FC=:
+ hardcode_direct_FC=yes
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ hardcode_minus_L_FC=yes
+ export_dynamic_flag_spec_FC='$wl-E'
+ ;;
+
+ hpux10*)
+ if test yes,no = "$GCC,$with_gnu_ld"; then
+ archive_cmds_FC='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds_FC='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
+ fi
+ if test no = "$with_gnu_ld"; then
+ hardcode_libdir_flag_spec_FC='$wl+b $wl$libdir'
+ hardcode_libdir_separator_FC=:
+ hardcode_direct_FC=yes
+ hardcode_direct_absolute_FC=yes
+ export_dynamic_flag_spec_FC='$wl-E'
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ hardcode_minus_L_FC=yes
+ fi
+ ;;
+
+ hpux11*)
+ if test yes,no = "$GCC,$with_gnu_ld"; then
+ case $host_cpu in
+ hppa*64*)
+ archive_cmds_FC='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ ia64*)
+ archive_cmds_FC='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ archive_cmds_FC='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ else
+ case $host_cpu in
+ hppa*64*)
+ archive_cmds_FC='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ ia64*)
+ archive_cmds_FC='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ archive_cmds_FC='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ fi
+ if test no = "$with_gnu_ld"; then
+ hardcode_libdir_flag_spec_FC='$wl+b $wl$libdir'
+ hardcode_libdir_separator_FC=:
+
+ case $host_cpu in
+ hppa*64*|ia64*)
+ hardcode_direct_FC=no
+ hardcode_shlibpath_var_FC=no
+ ;;
+ *)
+ hardcode_direct_FC=yes
+ hardcode_direct_absolute_FC=yes
+ export_dynamic_flag_spec_FC='$wl-E'
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ hardcode_minus_L_FC=yes
+ ;;
+ esac
+ fi
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ if test yes = "$GCC"; then
+ archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ # Try to use the -exported_symbol ld option, if it does not
+ # work, assume that -exports_file does not work either and
+ # implicitly export all symbols.
+ # This should be the same for all languages, so no per-tag cache variable.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5
+$as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; }
+if ${lt_cv_irix_exported_symbol+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null"
+ cat > conftest.$ac_ext <<_ACEOF
+
+ subroutine foo
+ end
+_ACEOF
+if ac_fn_fc_try_link "$LINENO"; then :
+ lt_cv_irix_exported_symbol=yes
+else
+ lt_cv_irix_exported_symbol=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ LDFLAGS=$save_LDFLAGS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5
+$as_echo "$lt_cv_irix_exported_symbol" >&6; }
+ if test yes = "$lt_cv_irix_exported_symbol"; then
+ archive_expsym_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib'
+ fi
+ else
+ archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ archive_expsym_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib'
+ fi
+ archive_cmds_need_lc_FC='no'
+ hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator_FC=:
+ inherit_rpath_FC=yes
+ link_all_deplibs_FC=yes
+ ;;
+
+ linux*)
+ case $cc_basename in
+ tcc*)
+ # Fabrice Bellard et al's Tiny C Compiler
+ ld_shlibs_FC=yes
+ archive_cmds_FC='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ archive_cmds_FC='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
+ else
+ archive_cmds_FC='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
+ fi
+ hardcode_libdir_flag_spec_FC='-R$libdir'
+ hardcode_direct_FC=yes
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ newsos6)
+ archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct_FC=yes
+ hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator_FC=:
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ *nto* | *qnx*)
+ ;;
+
+ openbsd* | bitrig*)
+ if test -f /usr/libexec/ld.so; then
+ hardcode_direct_FC=yes
+ hardcode_shlibpath_var_FC=no
+ hardcode_direct_absolute_FC=yes
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ archive_cmds_FC='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_FC='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols'
+ hardcode_libdir_flag_spec_FC='$wl-rpath,$libdir'
+ export_dynamic_flag_spec_FC='$wl-E'
+ else
+ archive_cmds_FC='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ hardcode_libdir_flag_spec_FC='$wl-rpath,$libdir'
+ fi
+ else
+ ld_shlibs_FC=no
+ fi
+ ;;
+
+ os2*)
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ hardcode_minus_L_FC=yes
+ allow_undefined_flag_FC=unsupported
+ shrext_cmds=.dll
+ archive_cmds_FC='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ archive_expsym_cmds_FC='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ old_archive_From_new_cmds_FC='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ enable_shared_with_static_runtimes_FC=yes
+ ;;
+
+ osf3*)
+ if test yes = "$GCC"; then
+ allow_undefined_flag_FC=' $wl-expect_unresolved $wl\*'
+ archive_cmds_FC='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ else
+ allow_undefined_flag_FC=' -expect_unresolved \*'
+ archive_cmds_FC='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ fi
+ archive_cmds_need_lc_FC='no'
+ hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir'
+ hardcode_libdir_separator_FC=:
+ ;;
+
+ osf4* | osf5*) # as osf3* with the addition of -msym flag
+ if test yes = "$GCC"; then
+ allow_undefined_flag_FC=' $wl-expect_unresolved $wl\*'
+ archive_cmds_FC='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir'
+ else
+ allow_undefined_flag_FC=' -expect_unresolved \*'
+ archive_cmds_FC='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ archive_expsym_cmds_FC='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
+ $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp'
+
+ # Both c and cxx compiler support -rpath directly
+ hardcode_libdir_flag_spec_FC='-rpath $libdir'
+ fi
+ archive_cmds_need_lc_FC='no'
+ hardcode_libdir_separator_FC=:
+ ;;
+
+ solaris*)
+ no_undefined_flag_FC=' -z defs'
+ if test yes = "$GCC"; then
+ wlarc='$wl'
+ archive_cmds_FC='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_FC='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
+ else
+ case `$CC -V 2>&1` in
+ *"Compilers 5.0"*)
+ wlarc=''
+ archive_cmds_FC='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ archive_expsym_cmds_FC='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
+ ;;
+ *)
+ wlarc='$wl'
+ archive_cmds_FC='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_FC='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
+ ;;
+ esac
+ fi
+ hardcode_libdir_flag_spec_FC='-R$libdir'
+ hardcode_shlibpath_var_FC=no
+ case $host_os in
+ solaris2.[0-5] | solaris2.[0-5].*) ;;
+ *)
+ # The compiler driver will combine and reorder linker options,
+ # but understands '-z linker_flag'. GCC discards it without '$wl',
+ # but is careful enough not to reorder.
+ # Supported since Solaris 2.6 (maybe 2.5.1?)
+ if test yes = "$GCC"; then
+ whole_archive_flag_spec_FC='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract'
+ else
+ whole_archive_flag_spec_FC='-z allextract$convenience -z defaultextract'
+ fi
+ ;;
+ esac
+ link_all_deplibs_FC=yes
+ ;;
+
+ sunos4*)
+ if test sequent = "$host_vendor"; then
+ # Use $CC to link under sequent, because it throws in some extra .o
+ # files that make .init and .fini sections work.
+ archive_cmds_FC='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds_FC='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
+ fi
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ hardcode_direct_FC=yes
+ hardcode_minus_L_FC=yes
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ sysv4)
+ case $host_vendor in
+ sni)
+ archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct_FC=yes # is this really true???
+ ;;
+ siemens)
+ ## LD is ld it makes a PLAMLIB
+ ## CC just makes a GrossModule.
+ archive_cmds_FC='$LD -G -o $lib $libobjs $deplibs $linker_flags'
+ reload_cmds_FC='$CC -r -o $output$reload_objs'
+ hardcode_direct_FC=no
+ ;;
+ motorola)
+ archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_direct_FC=no #Motorola manual says yes, but my tests say they lie
+ ;;
+ esac
+ runpath_var='LD_RUN_PATH'
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ sysv4.3*)
+ archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_shlibpath_var_FC=no
+ export_dynamic_flag_spec_FC='-Bexport'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_shlibpath_var_FC=no
+ runpath_var=LD_RUN_PATH
+ hardcode_runpath_var=yes
+ ld_shlibs_FC=yes
+ fi
+ ;;
+
+ sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
+ no_undefined_flag_FC='$wl-z,text'
+ archive_cmds_need_lc_FC=no
+ hardcode_shlibpath_var_FC=no
+ runpath_var='LD_RUN_PATH'
+
+ if test yes = "$GCC"; then
+ archive_cmds_FC='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_FC='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds_FC='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_FC='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ fi
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6*)
+ # Note: We CANNOT use -z defs as we might desire, because we do not
+ # link with -lc, and that would cause any symbols used from libc to
+ # always be unresolved, which means just about no library would
+ # ever link correctly. If we're not using GNU ld we use -z text
+ # though, which does catch some bad symbols but isn't as heavy-handed
+ # as -z defs.
+ no_undefined_flag_FC='$wl-z,text'
+ allow_undefined_flag_FC='$wl-z,nodefs'
+ archive_cmds_need_lc_FC=no
+ hardcode_shlibpath_var_FC=no
+ hardcode_libdir_flag_spec_FC='$wl-R,$libdir'
+ hardcode_libdir_separator_FC=':'
+ link_all_deplibs_FC=yes
+ export_dynamic_flag_spec_FC='$wl-Bexport'
+ runpath_var='LD_RUN_PATH'
+
+ if test yes = "$GCC"; then
+ archive_cmds_FC='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_FC='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ archive_cmds_FC='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ archive_expsym_cmds_FC='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ fi
+ ;;
+
+ uts4*)
+ archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ hardcode_shlibpath_var_FC=no
+ ;;
+
+ *)
+ ld_shlibs_FC=no
+ ;;
+ esac
+
+ if test sni = "$host_vendor"; then
+ case $host in
+ sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
+ export_dynamic_flag_spec_FC='$wl-Blargedynsym'
+ ;;
+ esac
+ fi
+ fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_FC" >&5
+$as_echo "$ld_shlibs_FC" >&6; }
+test no = "$ld_shlibs_FC" && can_build_shared=no
+
+with_gnu_ld_FC=$with_gnu_ld
+
+
+
+
+
+
+#
+# Do we need to explicitly link libc?
+#
+case "x$archive_cmds_need_lc_FC" in
+x|xyes)
+ # Assume -lc should be added
+ archive_cmds_need_lc_FC=yes
+
+ if test yes,yes = "$GCC,$enable_shared"; then
+ case $archive_cmds_FC in
+ *'~'*)
+ # FIXME: we may have to deal with multi-command sequences.
+ ;;
+ '$CC '*)
+ # Test whether the compiler implicitly links with -lc since on some
+ # systems, -lgcc has to come before -lc. If gcc already passes -lc
+ # to ld, don't add -lc before -lgcc.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
+$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
+if ${lt_cv_archive_cmds_need_lc_FC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ $RM conftest*
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
+ (eval $ac_compile) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; } 2>conftest.err; then
+ soname=conftest
+ lib=conftest
+ libobjs=conftest.$ac_objext
+ deplibs=
+ wl=$lt_prog_compiler_wl_FC
+ pic_flag=$lt_prog_compiler_pic_FC
+ compiler_flags=-v
+ linker_flags=-v
+ verstring=
+ output_objdir=.
+ libname=conftest
+ lt_save_allow_undefined_flag=$allow_undefined_flag_FC
+ allow_undefined_flag_FC=
+ if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_FC 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
+ (eval $archive_cmds_FC 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+ then
+ lt_cv_archive_cmds_need_lc_FC=no
+ else
+ lt_cv_archive_cmds_need_lc_FC=yes
+ fi
+ allow_undefined_flag_FC=$lt_save_allow_undefined_flag
+ else
+ cat conftest.err 1>&5
+ fi
+ $RM conftest*
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc_FC" >&5
+$as_echo "$lt_cv_archive_cmds_need_lc_FC" >&6; }
+ archive_cmds_need_lc_FC=$lt_cv_archive_cmds_need_lc_FC
+ ;;
+ esac
+ fi
+ ;;
+esac
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
+$as_echo_n "checking dynamic linker characteristics... " >&6; }
+
+library_names_spec=
+libname_spec='lib$name'
+soname_spec=
+shrext_cmds=.so
+postinstall_cmds=
+postuninstall_cmds=
+finish_cmds=
+finish_eval=
+shlibpath_var=
+shlibpath_overrides_runpath=unknown
+version_type=none
+dynamic_linker="$host_os ld.so"
+sys_lib_dlsearch_path_spec="/lib /usr/lib"
+need_lib_prefix=unknown
+hardcode_into_libs=no
+
+# when you set need_version to no, make sure it does not cause -set_version
+# flags to be left without arguments
+need_version=unknown
+
+
+
+case $host_os in
+aix3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname.a'
+ shlibpath_var=LIBPATH
+
+ # AIX 3 has no versioning support, so we append a major version to the name.
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+
+aix[4-9]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ hardcode_into_libs=yes
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 supports IA64
+ library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ else
+ # With GCC up to 2.95.x, collect2 would create an import file
+ # for dependence libraries. The import file would start with
+ # the line '#! .'. This would cause the generated library to
+ # depend on '.', always an invalid library. This was fixed in
+ # development snapshots of GCC prior to 3.0.
+ case $host_os in
+ aix4 | aix4.[01] | aix4.[01].*)
+ if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
+ echo ' yes '
+ echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then
+ :
+ else
+ can_build_shared=no
+ fi
+ ;;
+ esac
+ # Using Import Files as archive members, it is possible to support
+ # filename-based versioning of shared library archives on AIX. While
+ # this would work for both with and without runtime linking, it will
+ # prevent static linking of such archives. So we do filename-based
+ # shared library versioning with .so extension only, which is used
+ # when both runtime linking and shared linking is enabled.
+ # Unfortunately, runtime linking may impact performance, so we do
+ # not want this to be the default eventually. Also, we use the
+ # versioned .so libs for executables only if there is the -brtl
+ # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only.
+ # To allow for filename-based versioning support, we need to create
+ # libNAME.so.V as an archive file, containing:
+ # *) an Import File, referring to the versioned filename of the
+ # archive as well as the shared archive member, telling the
+ # bitwidth (32 or 64) of that shared object, and providing the
+ # list of exported symbols of that shared object, eventually
+ # decorated with the 'weak' keyword
+ # *) the shared object with the F_LOADONLY flag set, to really avoid
+ # it being seen by the linker.
+ # At run time we better use the real file rather than another symlink,
+ # but for link time we create the symlink libNAME.so -> libNAME.so.V
+
+ case $with_aix_soname,$aix_use_runtimelinking in
+ # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct
+ # soname into executable. Probably we can add versioning support to
+ # collect2, so additional links can be useful in future.
+ aix,yes) # traditional libtool
+ dynamic_linker='AIX unversionable lib.so'
+ # If using run time linking (on AIX 4.2 or later) use lib<name>.so
+ # instead of lib<name>.a to let people know that these are not
+ # typical AIX shared libraries.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ aix,no) # traditional AIX only
+ dynamic_linker='AIX lib.a(lib.so.V)'
+ # We preserve .a as extension for shared libraries through AIX4.2
+ # and later when we are not doing run time linking.
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ svr4,*) # full svr4 only
+ dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o)"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,yes) # both, prefer svr4
+ dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o), lib.a(lib.so.V)"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # unpreferred sharedlib libNAME.a needs extra handling
+ postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"'
+ postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,no) # both, prefer aix
+ dynamic_linker="AIX lib.a(lib.so.V), lib.so.V($shared_archive_member_spec.o)"
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling
+ postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)'
+ postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"'
+ ;;
+ esac
+ shlibpath_var=LIBPATH
+ fi
+ ;;
+
+amigaos*)
+ case $host_cpu in
+ powerpc)
+ # Since July 2007 AmigaOS4 officially supports .so libraries.
+ # When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ m68k)
+ library_names_spec='$libname.ixlibrary $libname.a'
+ # Create ${libname}_ixlibrary.a entries in /sys/libs.
+ finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
+ ;;
+ esac
+ ;;
+
+beos*)
+ library_names_spec='$libname$shared_ext'
+ dynamic_linker="$host_os ld.so"
+ shlibpath_var=LIBRARY_PATH
+ ;;
+
+bsdi[45]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
+ # the default ld.so.conf also contains /usr/contrib/lib and
+ # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
+ # libtool to hard-code these into programs
+ ;;
+
+cygwin* | mingw* | pw32* | cegcc*)
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+
+ case $GCC,$cc_basename in
+ yes,*)
+ # gcc
+ library_names_spec='$libname.dll.a'
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+
+ case $host_os in
+ cygwin*)
+ # Cygwin DLLs use 'cyg' prefix rather than 'lib'
+ soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+
+ ;;
+ mingw* | cegcc*)
+ # MinGW DLLs use traditional 'lib' prefix
+ soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ ;;
+ pw32*)
+ # pw32 DLLs use 'pw' prefix rather than 'lib'
+ library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ ;;
+ esac
+ dynamic_linker='Win32 ld.exe'
+ ;;
+
+ *,cl*)
+ # Native MSVC
+ libname_spec='$name'
+ soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
+ library_names_spec='$libname.dll.lib'
+
+ case $build_os in
+ mingw*)
+ sys_lib_search_path_spec=
+ lt_save_ifs=$IFS
+ IFS=';'
+ for lt_path in $LIB
+ do
+ IFS=$lt_save_ifs
+ # Let DOS variable expansion print the short 8.3 style file name.
+ lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
+ sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
+ done
+ IFS=$lt_save_ifs
+ # Convert to MSYS style.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'`
+ ;;
+ cygwin*)
+ # Convert to unix form, then to dos form, then back to unix form
+ # but this time dos style (no spaces!) so that the unix form looks
+ # like /cygdrive/c/PROGRA~1:/cygdr...
+ sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
+ sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
+ sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ ;;
+ *)
+ sys_lib_search_path_spec=$LIB
+ if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
+ # It is most probably a Windows format PATH.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
+ else
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ fi
+ # FIXME: find the short name or the path components, as spaces are
+ # common. (e.g. "Program Files" -> "PROGRA~1")
+ ;;
+ esac
+
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+ dynamic_linker='Win32 link.exe'
+ ;;
+
+ *)
+ # Assume MSVC wrapper
+ library_names_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext $libname.lib'
+ dynamic_linker='Win32 ld.exe'
+ ;;
+ esac
+ # FIXME: first we should search . and the directory the executable is in
+ shlibpath_var=PATH
+ ;;
+
+darwin* | rhapsody*)
+ dynamic_linker="$host_os dyld"
+ version_type=darwin
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$major$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$major$shared_ext'
+ shlibpath_overrides_runpath=yes
+ shlibpath_var=DYLD_LIBRARY_PATH
+ shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
+
+ sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
+ ;;
+
+dgux*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+freebsd* | dragonfly*)
+ # DragonFly does not have aout. When/if they implement a new
+ # versioning mechanism, adjust this.
+ if test -x /usr/bin/objformat; then
+ objformat=`/usr/bin/objformat`
+ else
+ case $host_os in
+ freebsd[23].*) objformat=aout ;;
+ *) objformat=elf ;;
+ esac
+ fi
+ version_type=freebsd-$objformat
+ case $version_type in
+ freebsd-elf*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ need_version=no
+ need_lib_prefix=no
+ ;;
+ freebsd-*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ need_version=yes
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_os in
+ freebsd2.*)
+ shlibpath_overrides_runpath=yes
+ ;;
+ freebsd3.[01]* | freebsdelf3.[01]*)
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
+ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+ *) # from 4.6 on, and DragonFly
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ esac
+ ;;
+
+haiku*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ dynamic_linker="$host_os runtime_loader"
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
+ hardcode_into_libs=yes
+ ;;
+
+hpux9* | hpux10* | hpux11*)
+ # Give a soname corresponding to the major version so that dld.sl refuses to
+ # link against other versions.
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ case $host_cpu in
+ ia64*)
+ shrext_cmds='.so'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.so"
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ if test 32 = "$HPUX_IA64_MODE"; then
+ sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux32
+ else
+ sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux64
+ fi
+ ;;
+ hppa*64*)
+ shrext_cmds='.sl'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+ *)
+ shrext_cmds='.sl'
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=SHLIB_PATH
+ shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ esac
+ # HP-UX runs *really* slowly unless shared libraries are mode 555, ...
+ postinstall_cmds='chmod 555 $lib'
+ # or fails outright, so override atomically:
+ install_override_mode=555
+ ;;
+
+interix[3-9]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+irix5* | irix6* | nonstopux*)
+ case $host_os in
+ nonstopux*) version_type=nonstopux ;;
+ *)
+ if test yes = "$lt_cv_prog_gnu_ld"; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ else
+ version_type=irix
+ fi ;;
+ esac
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext'
+ case $host_os in
+ irix5* | nonstopux*)
+ libsuff= shlibsuff=
+ ;;
+ *)
+ case $LD in # libtool.m4 will add one of these switches to LD
+ *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
+ libsuff= shlibsuff= libmagic=32-bit;;
+ *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
+ libsuff=32 shlibsuff=N32 libmagic=N32;;
+ *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
+ libsuff=64 shlibsuff=64 libmagic=64-bit;;
+ *) libsuff= shlibsuff= libmagic=never-match;;
+ esac
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff"
+ sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff"
+ hardcode_into_libs=yes
+ ;;
+
+# No shared lib support for Linux oldld, aout, or coff.
+linux*oldld* | linux*aout* | linux*coff*)
+ dynamic_linker=no
+ ;;
+
+linux*android*)
+ version_type=none # Android doesn't support versioned libraries.
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext'
+ soname_spec='$libname$release$shared_ext'
+ finish_cmds=
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ dynamic_linker='Android linker'
+ # Don't embed -rpath directories since the linker doesn't support them.
+ hardcode_libdir_flag_spec_FC='-L$libdir'
+ ;;
+
+# This must be glibc/ELF.
+linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+
+ # Some binutils ld are patched to set DT_RUNPATH
+ if ${lt_cv_shlibpath_overrides_runpath+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ lt_cv_shlibpath_overrides_runpath=no
+ save_LDFLAGS=$LDFLAGS
+ save_libdir=$libdir
+ eval "libdir=/foo; wl=\"$lt_prog_compiler_wl_FC\"; \
+ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec_FC\""
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+
+ end
+_ACEOF
+if ac_fn_fc_try_link "$LINENO"; then :
+ if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
+ lt_cv_shlibpath_overrides_runpath=yes
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ LDFLAGS=$save_LDFLAGS
+ libdir=$save_libdir
+
+fi
+
+ shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ # Ideally, we could use ldconfig to report *all* directores which are
+ # searched for libraries, however this is still not possible. Aside from not
+ # being certain /sbin/ldconfig is available, command
+ # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64,
+ # even though it is searched at run-time. Try to do the best guess by
+ # appending ld.so.conf contents (and includes) to the search path.
+ if test -f /etc/ld.so.conf; then
+ lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
+ sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
+ fi
+
+ # We used to test for /lib/ld.so.1 and disable shared libraries on
+ # powerpc, because MkLinux only supported shared libraries with the
+ # GNU dynamic linker. Since this was broken with cross compilers,
+ # most powerpc-linux boxes support dynamic linking these days and
+ # people can always --disable-shared, the test was removed, and we
+ # assume the GNU/Linux dynamic linker is in use.
+ dynamic_linker='GNU/Linux ld.so'
+ ;;
+
+netbsd*)
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ dynamic_linker='NetBSD (a.out) ld.so'
+ else
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='NetBSD ld.elf_so'
+ fi
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+
+newsos6)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+*nto* | *qnx*)
+ version_type=qnx
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ dynamic_linker='ldqnx.so'
+ ;;
+
+openbsd* | bitrig*)
+ version_type=sunos
+ sys_lib_dlsearch_path_spec=/usr/lib
+ need_lib_prefix=no
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ need_version=no
+ else
+ need_version=yes
+ fi
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+os2*)
+ libname_spec='$name'
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+ # OS/2 can only load a DLL with a base name of 8 characters or less.
+ soname_spec='`test -n "$os2dllname" && libname="$os2dllname";
+ v=$($ECHO $release$versuffix | tr -d .-);
+ n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _);
+ $ECHO $n$v`$shared_ext'
+ library_names_spec='${libname}_dll.$libext'
+ dynamic_linker='OS/2 ld.exe'
+ shlibpath_var=BEGINLIBPATH
+ sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ ;;
+
+osf3* | osf4* | osf5*)
+ version_type=osf
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+
+rdos*)
+ dynamic_linker=no
+ ;;
+
+solaris*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ # ldd complains unless libraries are executable
+ postinstall_cmds='chmod +x $lib'
+ ;;
+
+sunos4*)
+ version_type=sunos
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ if test yes = "$with_gnu_ld"; then
+ need_lib_prefix=no
+ fi
+ need_version=yes
+ ;;
+
+sysv4 | sysv4.3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_vendor in
+ sni)
+ shlibpath_overrides_runpath=no
+ need_lib_prefix=no
+ runpath_var=LD_RUN_PATH
+ ;;
+ siemens)
+ need_lib_prefix=no
+ ;;
+ motorola)
+ need_lib_prefix=no
+ need_version=no
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
+ ;;
+ esac
+ ;;
+
+sysv4*MP*)
+ if test -d /usr/nec; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext'
+ soname_spec='$libname$shared_ext.$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ fi
+ ;;
+
+sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
+ version_type=sco
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ if test yes = "$with_gnu_ld"; then
+ sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
+ else
+ sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
+ case $host_os in
+ sco3.2v5*)
+ sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
+ ;;
+ esac
+ fi
+ sys_lib_dlsearch_path_spec='/usr/lib'
+ ;;
+
+tpf*)
+ # TPF is a cross-target only. Preferred cross-host = GNU/Linux.
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+uts4*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+*)
+ dynamic_linker=no
+ ;;
+esac
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
+$as_echo "$dynamic_linker" >&6; }
+test no = "$dynamic_linker" && can_build_shared=no
+
+variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
+if test yes = "$GCC"; then
+ variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
+fi
+
+if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then
+ sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec
+fi
+
+if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then
+ sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec
+fi
+
+# remember unaugmented sys_lib_dlsearch_path content for libtool script decls...
+configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec
+
+# ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code
+func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH"
+
+# to be used as default LT_SYS_LIBRARY_PATH value in generated libtool
+configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
+$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
+hardcode_action_FC=
+if test -n "$hardcode_libdir_flag_spec_FC" ||
+ test -n "$runpath_var_FC" ||
+ test yes = "$hardcode_automatic_FC"; then
+
+ # We can hardcode non-existent directories.
+ if test no != "$hardcode_direct_FC" &&
+ # If the only mechanism to avoid hardcoding is shlibpath_var, we
+ # have to relink, otherwise we might link with an installed library
+ # when we should be linking with a yet-to-be-installed one
+ ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, FC)" &&
+ test no != "$hardcode_minus_L_FC"; then
+ # Linking always hardcodes the temporary library directory.
+ hardcode_action_FC=relink
+ else
+ # We can link without hardcoding, and we can hardcode nonexisting dirs.
+ hardcode_action_FC=immediate
+ fi
+else
+ # We cannot hardcode anything, or else we can only hardcode existing
+ # directories.
+ hardcode_action_FC=unsupported
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_FC" >&5
+$as_echo "$hardcode_action_FC" >&6; }
+
+if test relink = "$hardcode_action_FC" ||
+ test yes = "$inherit_rpath_FC"; then
+ # Fast installation is not supported
+ enable_fast_install=no
+elif test yes = "$shlibpath_overrides_runpath" ||
+ test no = "$enable_shared"; then
+ # Fast installation is not necessary
+ enable_fast_install=needless
+fi
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether this is the NAG Fortran compiler" >&5
+$as_echo_n "checking whether this is the NAG Fortran compiler... " >&6; }
+ $CC -V 2>&1 | grep '^NAG Fortran Compiler Release' >/dev/null 2>&1
+ _lt_result=$?
+ if test $_lt_result -eq 0; then :
+ _lt_result=yes
+else
+ _lt_result=no
+fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_lt_result" >&5
+$as_echo "$_lt_result" >&6; }
+ acx_is_nagfor_FC=$_lt_result
+
+
+
+ fi # test -n "$compiler"
+
+ GCC=$lt_save_GCC
+ CC=$lt_save_CC
+ CFLAGS=$lt_save_CFLAGS
+fi # test yes != "$_lt_disable_FC"
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+
+
+
+
+
+
+
+
+
+
+ ac_config_commands="$ac_config_commands libtool"
+
+
+
+
+# Only expand once:
+
+
+ ## _KPSE_USE_LIBTOOL: Generate a libtool script for use in configure tests
+: ${CONFIG_LT=./config.lt}
+{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_LT" >&5
+$as_echo "$as_me: creating $CONFIG_LT" >&6;}
+as_write_fail=0
+cat >"$CONFIG_LT" <<_ASEOF || as_write_fail=1
+#! $SHELL
+# Generated by $as_me.
+# Run this file to recreate a libtool stub with the current configuration.
+SHELL=\${CONFIG_SHELL-$SHELL}
+export SHELL
+_ASEOF
+cat >>"$CONFIG_LT" <<\_ASEOF || as_write_fail=1
+## -------------------- ##
+## M4sh Initialization. ##
+## -------------------- ##
+
+# Be more Bourne compatible
+DUALCASE=1; export DUALCASE # for MKS sh
+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
+ emulate sh
+ NULLCMD=:
+ # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
+ # is contrary to our usage. Disable this feature.
+ alias -g '${1+"$@"}'='"$@"'
+ setopt NO_GLOB_SUBST
+else
+ case `(set -o) 2>/dev/null` in #(
+ *posix*) :
+ set -o posix ;; #(
+ *) :
+ ;;
+esac
+fi
+
+
+as_nl='
+'
+export as_nl
+# Printing a long string crashes Solaris 7 /usr/bin/printf.
+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
+# Prefer a ksh shell builtin over an external printf program on Solaris,
+# but without wasting forks for bash or zsh.
+if test -z "$BASH_VERSION$ZSH_VERSION" \
+ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
+ as_echo='print -r --'
+ as_echo_n='print -rn --'
+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
+ as_echo='printf %s\n'
+ as_echo_n='printf %s'
+else
+ if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
+ as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
+ as_echo_n='/usr/ucb/echo -n'
+ else
+ as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
+ as_echo_n_body='eval
+ arg=$1;
+ case $arg in #(
+ *"$as_nl"*)
+ expr "X$arg" : "X\\(.*\\)$as_nl";
+ arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
+ esac;
+ expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
+ '
+ export as_echo_n_body
+ as_echo_n='sh -c $as_echo_n_body as_echo'
+ fi
+ export as_echo_body
+ as_echo='sh -c $as_echo_body as_echo'
+fi
+
+# The user is always right.
+if test "${PATH_SEPARATOR+set}" != set; then
+ PATH_SEPARATOR=:
+ (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
+ (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
+ PATH_SEPARATOR=';'
+ }
+fi
+
+
+# IFS
+# We need space, tab and new line, in precisely that order. Quoting is
+# there to prevent editors from complaining about space-tab.
+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
+# splitting by setting IFS to empty value.)
+IFS=" "" $as_nl"
+
+# Find who we are. Look in the path if we contain no directory separator.
+as_myself=
+case $0 in #((
+ *[\\/]* ) as_myself=$0 ;;
+ *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
+ done
+IFS=$as_save_IFS
+
+ ;;
+esac
+# We did not find ourselves, most probably we were run as `sh COMMAND'
+# in which case we are not to be found in the path.
+if test "x$as_myself" = x; then
+ as_myself=$0
+fi
+if test ! -f "$as_myself"; then
+ $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
+ exit 1
+fi
+
+# Unset variables that we do not need and which cause bugs (e.g. in
+# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
+# suppresses any "Segmentation fault" message there. '((' could
+# trigger a bug in pdksh 5.2.14.
+for as_var in BASH_ENV ENV MAIL MAILPATH
+do eval test x\${$as_var+set} = xset \
+ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
+done
+PS1='$ '
+PS2='> '
+PS4='+ '
+
+# NLS nuisances.
+LC_ALL=C
+export LC_ALL
+LANGUAGE=C
+export LANGUAGE
+
+# CDPATH.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+
+# as_fn_error STATUS ERROR [LINENO LOG_FD]
+# ----------------------------------------
+# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
+# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
+# script with STATUS, using 1 if that was 0.
+as_fn_error ()
+{
+ as_status=$1; test $as_status -eq 0 && as_status=1
+ if test "$4"; then
+ as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
+ fi
+ $as_echo "$as_me: error: $2" >&2
+ as_fn_exit $as_status
+} # as_fn_error
+
+
+# as_fn_set_status STATUS
+# -----------------------
+# Set $? to STATUS, without forking.
+as_fn_set_status ()
+{
+ return $1
+} # as_fn_set_status
+
+# as_fn_exit STATUS
+# -----------------
+# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
+as_fn_exit ()
+{
+ set +e
+ as_fn_set_status $1
+ exit $1
+} # as_fn_exit
+
+# as_fn_unset VAR
+# ---------------
+# Portably unset VAR.
+as_fn_unset ()
+{
+ { eval $1=; unset $1;}
+}
+as_unset=as_fn_unset
+# as_fn_append VAR VALUE
+# ----------------------
+# Append the text in VALUE to the end of the definition contained in VAR. Take
+# advantage of any shell optimizations that allow amortized linear growth over
+# repeated appends, instead of the typical quadratic growth present in naive
+# implementations.
+if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
+ eval 'as_fn_append ()
+ {
+ eval $1+=\$2
+ }'
+else
+ as_fn_append ()
+ {
+ eval $1=\$$1\$2
+ }
+fi # as_fn_append
+
+# as_fn_arith ARG...
+# ------------------
+# Perform arithmetic evaluation on the ARGs, and store the result in the
+# global $as_val. Take advantage of shells that can avoid forks. The arguments
+# must be portable across $(()) and expr.
+if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
+ eval 'as_fn_arith ()
+ {
+ as_val=$(( $* ))
+ }'
+else
+ as_fn_arith ()
+ {
+ as_val=`expr "$@" || test $? -eq 1`
+ }
+fi # as_fn_arith
+
+
+if expr a : '\(a\)' >/dev/null 2>&1 &&
+ test "X`expr 00001 : '.*\(...\)'`" = X001; then
+ as_expr=expr
+else
+ as_expr=false
+fi
+
+if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
+ as_basename=basename
+else
+ as_basename=false
+fi
+
+if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
+ as_dirname=dirname
+else
+ as_dirname=false
+fi
+
+as_me=`$as_basename -- "$0" ||
+$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
+ X"$0" : 'X\(//\)$' \| \
+ X"$0" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X/"$0" |
+ sed '/^.*\/\([^/][^/]*\)\/*$/{
+ s//\1/
+ q
+ }
+ /^X\/\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\/\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+
+# Avoid depending upon Character Ranges.
+as_cr_letters='abcdefghijklmnopqrstuvwxyz'
+as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
+as_cr_Letters=$as_cr_letters$as_cr_LETTERS
+as_cr_digits='0123456789'
+as_cr_alnum=$as_cr_Letters$as_cr_digits
+
+ECHO_C= ECHO_N= ECHO_T=
+case `echo -n x` in #(((((
+-n*)
+ case `echo 'xy\c'` in
+ *c*) ECHO_T=' ';; # ECHO_T is single tab character.
+ xy) ECHO_C='\c';;
+ *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
+ ECHO_T=' ';;
+ esac;;
+*)
+ ECHO_N='-n';;
+esac
+
+rm -f conf$$ conf$$.exe conf$$.file
+if test -d conf$$.dir; then
+ rm -f conf$$.dir/conf$$.file
+else
+ rm -f conf$$.dir
+ mkdir conf$$.dir 2>/dev/null
+fi
+if (echo >conf$$.file) 2>/dev/null; then
+ if ln -s conf$$.file conf$$ 2>/dev/null; then
+ as_ln_s='ln -s'
+ # ... but there are two gotchas:
+ # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
+ # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
+ # In both cases, we have to default to `cp -pR'.
+ ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
+ as_ln_s='cp -pR'
+ elif ln conf$$.file conf$$ 2>/dev/null; then
+ as_ln_s=ln
+ else
+ as_ln_s='cp -pR'
+ fi
+else
+ as_ln_s='cp -pR'
+fi
+rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
+rmdir conf$$.dir 2>/dev/null
+
+
+# as_fn_mkdir_p
+# -------------
+# Create "$as_dir" as a directory, including parents if necessary.
+as_fn_mkdir_p ()
+{
+
+ case $as_dir in #(
+ -*) as_dir=./$as_dir;;
+ esac
+ test -d "$as_dir" || eval $as_mkdir_p || {
+ as_dirs=
+ while :; do
+ case $as_dir in #(
+ *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
+ *) as_qdir=$as_dir;;
+ esac
+ as_dirs="'$as_qdir' $as_dirs"
+ as_dir=`$as_dirname -- "$as_dir" ||
+$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
+ X"$as_dir" : 'X\(//\)[^/]' \| \
+ X"$as_dir" : 'X\(//\)$' \| \
+ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X"$as_dir" |
+ sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)[^/].*/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+ test -d "$as_dir" && break
+ done
+ test -z "$as_dirs" || eval "mkdir $as_dirs"
+ } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
+
+
+} # as_fn_mkdir_p
+if mkdir -p . 2>/dev/null; then
+ as_mkdir_p='mkdir -p "$as_dir"'
+else
+ test -d ./-p && rmdir ./-p
+ as_mkdir_p=false
+fi
+
+
+# as_fn_executable_p FILE
+# -----------------------
+# Test if FILE is an executable regular file.
+as_fn_executable_p ()
+{
+ test -f "$1" && test -x "$1"
+} # as_fn_executable_p
+as_test_x='test -x'
+as_executable_p=as_fn_executable_p
+
+# Sed expression to map a string onto a valid CPP name.
+as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
+
+# Sed expression to map a string onto a valid variable name.
+as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
+
+
+exec 6>&1
+## --------------------------------- ##
+## Main body of "$CONFIG_LT" script. ##
+## --------------------------------- ##
+_ASEOF
+test $as_write_fail = 0 && chmod +x "$CONFIG_LT"
+
+cat >>"$CONFIG_LT" <<\_LTEOF
+lt_cl_silent=false
+exec 5>>config.log
+{
+ echo
+ sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
+## Running $as_me. ##
+_ASBOX
+} >&5
+
+lt_cl_help="\
+'$as_me' creates a local libtool stub from the current configuration,
+for use in further configure time tests before the real libtool is
+generated.
+
+Usage: $0 [OPTIONS]
+
+ -h, --help print this help, then exit
+ -V, --version print version number, then exit
+ -q, --quiet do not print progress messages
+ -d, --debug don't remove temporary files
+
+Report bugs to <bug-libtool@gnu.org>."
+
+lt_cl_version="\
+cdi config.lt 2.4.0
+configured by $0, generated by GNU Autoconf 2.69.
+
+Copyright (C) 2011 Free Software Foundation, Inc.
+This config.lt script is free software; the Free Software Foundation
+gives unlimited permision to copy, distribute and modify it."
+
+while test 0 != $#
+do
+ case $1 in
+ --version | --v* | -V )
+ echo "$lt_cl_version"; exit 0 ;;
+ --help | --h* | -h )
+ echo "$lt_cl_help"; exit 0 ;;
+ --debug | --d* | -d )
+ debug=: ;;
+ --quiet | --q* | --silent | --s* | -q )
+ lt_cl_silent=: ;;
+
+ -*) as_fn_error $? "unrecognized option: $1
+Try '$0 --help' for more information." "$LINENO" 5 ;;
+
+ *) as_fn_error $? "unrecognized argument: $1
+Try '$0 --help' for more information." "$LINENO" 5 ;;
+ esac
+ shift
+done
+
+if $lt_cl_silent; then
+ exec 6>/dev/null
+fi
+_LTEOF
+
+cat >>"$CONFIG_LT" <<_LTEOF
+
+
+# The HP-UX ksh and POSIX shell print the target directory to stdout
+# if CDPATH is set.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+sed_quote_subst='$sed_quote_subst'
+double_quote_subst='$double_quote_subst'
+delay_variable_subst='$delay_variable_subst'
+macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`'
+macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`'
+pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`'
+enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`'
+enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`'
+enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`'
+shared_archive_member_spec='`$ECHO "$shared_archive_member_spec" | $SED "$delay_single_quote_subst"`'
+SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`'
+ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`'
+PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`'
+host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`'
+host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`'
+host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`'
+build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`'
+build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`'
+build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`'
+SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`'
+Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`'
+GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`'
+EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`'
+FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`'
+LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`'
+NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`'
+LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`'
+max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`'
+ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`'
+exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`'
+lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`'
+lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`'
+lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`'
+lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`'
+lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`'
+reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`'
+reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`'
+OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`'
+deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`'
+file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`'
+file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`'
+want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`'
+DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`'
+sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`'
+AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`'
+AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`'
+archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`'
+STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`'
+RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`'
+old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`'
+old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`'
+old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`'
+lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`'
+CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`'
+CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`'
+compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`'
+GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_to_import='`$ECHO "$lt_cv_sys_global_symbol_to_import" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`'
+lt_cv_nm_interface='`$ECHO "$lt_cv_nm_interface" | $SED "$delay_single_quote_subst"`'
+nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`'
+lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`'
+lt_cv_truncate_bin='`$ECHO "$lt_cv_truncate_bin" | $SED "$delay_single_quote_subst"`'
+objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`'
+MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`'
+acx_is_nagfor='`$ECHO "$acx_is_nagfor" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`'
+lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`'
+need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`'
+MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`'
+DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`'
+NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`'
+LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`'
+OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`'
+OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`'
+libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`'
+shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`'
+extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`'
+archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`'
+enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`'
+export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`'
+whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`'
+compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`'
+old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`'
+old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`'
+archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`'
+archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`'
+module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`'
+module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`'
+with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`'
+allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`'
+no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`'
+hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`'
+hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`'
+hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`'
+hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`'
+inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`'
+link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`'
+always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`'
+export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`'
+exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`'
+include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`'
+prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`'
+postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`'
+file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`'
+variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`'
+need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`'
+need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`'
+version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`'
+runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`'
+shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`'
+shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`'
+libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`'
+library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`'
+soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`'
+install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`'
+postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`'
+postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`'
+finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`'
+finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`'
+hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`'
+sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`'
+configure_time_dlsearch_path='`$ECHO "$configure_time_dlsearch_path" | $SED "$delay_single_quote_subst"`'
+configure_time_lt_sys_library_path='`$ECHO "$configure_time_lt_sys_library_path" | $SED "$delay_single_quote_subst"`'
+hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`'
+enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`'
+enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`'
+enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`'
+old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`'
+striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_dirs='`$ECHO "$compiler_lib_search_dirs" | $SED "$delay_single_quote_subst"`'
+predep_objects='`$ECHO "$predep_objects" | $SED "$delay_single_quote_subst"`'
+postdep_objects='`$ECHO "$postdep_objects" | $SED "$delay_single_quote_subst"`'
+predeps='`$ECHO "$predeps" | $SED "$delay_single_quote_subst"`'
+postdeps='`$ECHO "$postdeps" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_path='`$ECHO "$compiler_lib_search_path" | $SED "$delay_single_quote_subst"`'
+LD_CXX='`$ECHO "$LD_CXX" | $SED "$delay_single_quote_subst"`'
+LD_F77='`$ECHO "$LD_F77" | $SED "$delay_single_quote_subst"`'
+LD_FC='`$ECHO "$LD_FC" | $SED "$delay_single_quote_subst"`'
+reload_flag_CXX='`$ECHO "$reload_flag_CXX" | $SED "$delay_single_quote_subst"`'
+reload_flag_F77='`$ECHO "$reload_flag_F77" | $SED "$delay_single_quote_subst"`'
+reload_flag_FC='`$ECHO "$reload_flag_FC" | $SED "$delay_single_quote_subst"`'
+reload_cmds_CXX='`$ECHO "$reload_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+reload_cmds_F77='`$ECHO "$reload_cmds_F77" | $SED "$delay_single_quote_subst"`'
+reload_cmds_FC='`$ECHO "$reload_cmds_FC" | $SED "$delay_single_quote_subst"`'
+old_archive_cmds_CXX='`$ECHO "$old_archive_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+old_archive_cmds_F77='`$ECHO "$old_archive_cmds_F77" | $SED "$delay_single_quote_subst"`'
+old_archive_cmds_FC='`$ECHO "$old_archive_cmds_FC" | $SED "$delay_single_quote_subst"`'
+compiler_CXX='`$ECHO "$compiler_CXX" | $SED "$delay_single_quote_subst"`'
+compiler_F77='`$ECHO "$compiler_F77" | $SED "$delay_single_quote_subst"`'
+compiler_FC='`$ECHO "$compiler_FC" | $SED "$delay_single_quote_subst"`'
+GCC_CXX='`$ECHO "$GCC_CXX" | $SED "$delay_single_quote_subst"`'
+GCC_F77='`$ECHO "$GCC_F77" | $SED "$delay_single_quote_subst"`'
+GCC_FC='`$ECHO "$GCC_FC" | $SED "$delay_single_quote_subst"`'
+acx_is_nagfor_CXX='`$ECHO "$acx_is_nagfor_CXX" | $SED "$delay_single_quote_subst"`'
+acx_is_nagfor_F77='`$ECHO "$acx_is_nagfor_F77" | $SED "$delay_single_quote_subst"`'
+acx_is_nagfor_FC='`$ECHO "$acx_is_nagfor_FC" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_no_builtin_flag_CXX='`$ECHO "$lt_prog_compiler_no_builtin_flag_CXX" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_no_builtin_flag_F77='`$ECHO "$lt_prog_compiler_no_builtin_flag_F77" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_no_builtin_flag_FC='`$ECHO "$lt_prog_compiler_no_builtin_flag_FC" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_pic_CXX='`$ECHO "$lt_prog_compiler_pic_CXX" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_pic_F77='`$ECHO "$lt_prog_compiler_pic_F77" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_pic_FC='`$ECHO "$lt_prog_compiler_pic_FC" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_wl_CXX='`$ECHO "$lt_prog_compiler_wl_CXX" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_wl_F77='`$ECHO "$lt_prog_compiler_wl_F77" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_wl_FC='`$ECHO "$lt_prog_compiler_wl_FC" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_static_CXX='`$ECHO "$lt_prog_compiler_static_CXX" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_static_F77='`$ECHO "$lt_prog_compiler_static_F77" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_static_FC='`$ECHO "$lt_prog_compiler_static_FC" | $SED "$delay_single_quote_subst"`'
+lt_cv_prog_compiler_c_o_CXX='`$ECHO "$lt_cv_prog_compiler_c_o_CXX" | $SED "$delay_single_quote_subst"`'
+lt_cv_prog_compiler_c_o_F77='`$ECHO "$lt_cv_prog_compiler_c_o_F77" | $SED "$delay_single_quote_subst"`'
+lt_cv_prog_compiler_c_o_FC='`$ECHO "$lt_cv_prog_compiler_c_o_FC" | $SED "$delay_single_quote_subst"`'
+archive_cmds_need_lc_CXX='`$ECHO "$archive_cmds_need_lc_CXX" | $SED "$delay_single_quote_subst"`'
+archive_cmds_need_lc_F77='`$ECHO "$archive_cmds_need_lc_F77" | $SED "$delay_single_quote_subst"`'
+archive_cmds_need_lc_FC='`$ECHO "$archive_cmds_need_lc_FC" | $SED "$delay_single_quote_subst"`'
+enable_shared_with_static_runtimes_CXX='`$ECHO "$enable_shared_with_static_runtimes_CXX" | $SED "$delay_single_quote_subst"`'
+enable_shared_with_static_runtimes_F77='`$ECHO "$enable_shared_with_static_runtimes_F77" | $SED "$delay_single_quote_subst"`'
+enable_shared_with_static_runtimes_FC='`$ECHO "$enable_shared_with_static_runtimes_FC" | $SED "$delay_single_quote_subst"`'
+export_dynamic_flag_spec_CXX='`$ECHO "$export_dynamic_flag_spec_CXX" | $SED "$delay_single_quote_subst"`'
+export_dynamic_flag_spec_F77='`$ECHO "$export_dynamic_flag_spec_F77" | $SED "$delay_single_quote_subst"`'
+export_dynamic_flag_spec_FC='`$ECHO "$export_dynamic_flag_spec_FC" | $SED "$delay_single_quote_subst"`'
+whole_archive_flag_spec_CXX='`$ECHO "$whole_archive_flag_spec_CXX" | $SED "$delay_single_quote_subst"`'
+whole_archive_flag_spec_F77='`$ECHO "$whole_archive_flag_spec_F77" | $SED "$delay_single_quote_subst"`'
+whole_archive_flag_spec_FC='`$ECHO "$whole_archive_flag_spec_FC" | $SED "$delay_single_quote_subst"`'
+compiler_needs_object_CXX='`$ECHO "$compiler_needs_object_CXX" | $SED "$delay_single_quote_subst"`'
+compiler_needs_object_F77='`$ECHO "$compiler_needs_object_F77" | $SED "$delay_single_quote_subst"`'
+compiler_needs_object_FC='`$ECHO "$compiler_needs_object_FC" | $SED "$delay_single_quote_subst"`'
+old_archive_from_new_cmds_CXX='`$ECHO "$old_archive_from_new_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+old_archive_from_new_cmds_F77='`$ECHO "$old_archive_from_new_cmds_F77" | $SED "$delay_single_quote_subst"`'
+old_archive_from_new_cmds_FC='`$ECHO "$old_archive_from_new_cmds_FC" | $SED "$delay_single_quote_subst"`'
+old_archive_from_expsyms_cmds_CXX='`$ECHO "$old_archive_from_expsyms_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+old_archive_from_expsyms_cmds_F77='`$ECHO "$old_archive_from_expsyms_cmds_F77" | $SED "$delay_single_quote_subst"`'
+old_archive_from_expsyms_cmds_FC='`$ECHO "$old_archive_from_expsyms_cmds_FC" | $SED "$delay_single_quote_subst"`'
+archive_cmds_CXX='`$ECHO "$archive_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+archive_cmds_F77='`$ECHO "$archive_cmds_F77" | $SED "$delay_single_quote_subst"`'
+archive_cmds_FC='`$ECHO "$archive_cmds_FC" | $SED "$delay_single_quote_subst"`'
+archive_expsym_cmds_CXX='`$ECHO "$archive_expsym_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+archive_expsym_cmds_F77='`$ECHO "$archive_expsym_cmds_F77" | $SED "$delay_single_quote_subst"`'
+archive_expsym_cmds_FC='`$ECHO "$archive_expsym_cmds_FC" | $SED "$delay_single_quote_subst"`'
+module_cmds_CXX='`$ECHO "$module_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+module_cmds_F77='`$ECHO "$module_cmds_F77" | $SED "$delay_single_quote_subst"`'
+module_cmds_FC='`$ECHO "$module_cmds_FC" | $SED "$delay_single_quote_subst"`'
+module_expsym_cmds_CXX='`$ECHO "$module_expsym_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+module_expsym_cmds_F77='`$ECHO "$module_expsym_cmds_F77" | $SED "$delay_single_quote_subst"`'
+module_expsym_cmds_FC='`$ECHO "$module_expsym_cmds_FC" | $SED "$delay_single_quote_subst"`'
+with_gnu_ld_CXX='`$ECHO "$with_gnu_ld_CXX" | $SED "$delay_single_quote_subst"`'
+with_gnu_ld_F77='`$ECHO "$with_gnu_ld_F77" | $SED "$delay_single_quote_subst"`'
+with_gnu_ld_FC='`$ECHO "$with_gnu_ld_FC" | $SED "$delay_single_quote_subst"`'
+allow_undefined_flag_CXX='`$ECHO "$allow_undefined_flag_CXX" | $SED "$delay_single_quote_subst"`'
+allow_undefined_flag_F77='`$ECHO "$allow_undefined_flag_F77" | $SED "$delay_single_quote_subst"`'
+allow_undefined_flag_FC='`$ECHO "$allow_undefined_flag_FC" | $SED "$delay_single_quote_subst"`'
+no_undefined_flag_CXX='`$ECHO "$no_undefined_flag_CXX" | $SED "$delay_single_quote_subst"`'
+no_undefined_flag_F77='`$ECHO "$no_undefined_flag_F77" | $SED "$delay_single_quote_subst"`'
+no_undefined_flag_FC='`$ECHO "$no_undefined_flag_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_flag_spec_CXX='`$ECHO "$hardcode_libdir_flag_spec_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_flag_spec_F77='`$ECHO "$hardcode_libdir_flag_spec_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_flag_spec_FC='`$ECHO "$hardcode_libdir_flag_spec_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_separator_CXX='`$ECHO "$hardcode_libdir_separator_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_separator_F77='`$ECHO "$hardcode_libdir_separator_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_separator_FC='`$ECHO "$hardcode_libdir_separator_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_CXX='`$ECHO "$hardcode_direct_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_F77='`$ECHO "$hardcode_direct_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_FC='`$ECHO "$hardcode_direct_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_absolute_CXX='`$ECHO "$hardcode_direct_absolute_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_absolute_F77='`$ECHO "$hardcode_direct_absolute_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_absolute_FC='`$ECHO "$hardcode_direct_absolute_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_minus_L_CXX='`$ECHO "$hardcode_minus_L_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_minus_L_F77='`$ECHO "$hardcode_minus_L_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_minus_L_FC='`$ECHO "$hardcode_minus_L_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_shlibpath_var_CXX='`$ECHO "$hardcode_shlibpath_var_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_shlibpath_var_F77='`$ECHO "$hardcode_shlibpath_var_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_shlibpath_var_FC='`$ECHO "$hardcode_shlibpath_var_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_automatic_CXX='`$ECHO "$hardcode_automatic_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_automatic_F77='`$ECHO "$hardcode_automatic_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_automatic_FC='`$ECHO "$hardcode_automatic_FC" | $SED "$delay_single_quote_subst"`'
+inherit_rpath_CXX='`$ECHO "$inherit_rpath_CXX" | $SED "$delay_single_quote_subst"`'
+inherit_rpath_F77='`$ECHO "$inherit_rpath_F77" | $SED "$delay_single_quote_subst"`'
+inherit_rpath_FC='`$ECHO "$inherit_rpath_FC" | $SED "$delay_single_quote_subst"`'
+link_all_deplibs_CXX='`$ECHO "$link_all_deplibs_CXX" | $SED "$delay_single_quote_subst"`'
+link_all_deplibs_F77='`$ECHO "$link_all_deplibs_F77" | $SED "$delay_single_quote_subst"`'
+link_all_deplibs_FC='`$ECHO "$link_all_deplibs_FC" | $SED "$delay_single_quote_subst"`'
+always_export_symbols_CXX='`$ECHO "$always_export_symbols_CXX" | $SED "$delay_single_quote_subst"`'
+always_export_symbols_F77='`$ECHO "$always_export_symbols_F77" | $SED "$delay_single_quote_subst"`'
+always_export_symbols_FC='`$ECHO "$always_export_symbols_FC" | $SED "$delay_single_quote_subst"`'
+export_symbols_cmds_CXX='`$ECHO "$export_symbols_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+export_symbols_cmds_F77='`$ECHO "$export_symbols_cmds_F77" | $SED "$delay_single_quote_subst"`'
+export_symbols_cmds_FC='`$ECHO "$export_symbols_cmds_FC" | $SED "$delay_single_quote_subst"`'
+exclude_expsyms_CXX='`$ECHO "$exclude_expsyms_CXX" | $SED "$delay_single_quote_subst"`'
+exclude_expsyms_F77='`$ECHO "$exclude_expsyms_F77" | $SED "$delay_single_quote_subst"`'
+exclude_expsyms_FC='`$ECHO "$exclude_expsyms_FC" | $SED "$delay_single_quote_subst"`'
+include_expsyms_CXX='`$ECHO "$include_expsyms_CXX" | $SED "$delay_single_quote_subst"`'
+include_expsyms_F77='`$ECHO "$include_expsyms_F77" | $SED "$delay_single_quote_subst"`'
+include_expsyms_FC='`$ECHO "$include_expsyms_FC" | $SED "$delay_single_quote_subst"`'
+prelink_cmds_CXX='`$ECHO "$prelink_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+prelink_cmds_F77='`$ECHO "$prelink_cmds_F77" | $SED "$delay_single_quote_subst"`'
+prelink_cmds_FC='`$ECHO "$prelink_cmds_FC" | $SED "$delay_single_quote_subst"`'
+postlink_cmds_CXX='`$ECHO "$postlink_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+postlink_cmds_F77='`$ECHO "$postlink_cmds_F77" | $SED "$delay_single_quote_subst"`'
+postlink_cmds_FC='`$ECHO "$postlink_cmds_FC" | $SED "$delay_single_quote_subst"`'
+file_list_spec_CXX='`$ECHO "$file_list_spec_CXX" | $SED "$delay_single_quote_subst"`'
+file_list_spec_F77='`$ECHO "$file_list_spec_F77" | $SED "$delay_single_quote_subst"`'
+file_list_spec_FC='`$ECHO "$file_list_spec_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_action_CXX='`$ECHO "$hardcode_action_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_action_F77='`$ECHO "$hardcode_action_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_action_FC='`$ECHO "$hardcode_action_FC" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_dirs_CXX='`$ECHO "$compiler_lib_search_dirs_CXX" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_dirs_F77='`$ECHO "$compiler_lib_search_dirs_F77" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_dirs_FC='`$ECHO "$compiler_lib_search_dirs_FC" | $SED "$delay_single_quote_subst"`'
+predep_objects_CXX='`$ECHO "$predep_objects_CXX" | $SED "$delay_single_quote_subst"`'
+predep_objects_F77='`$ECHO "$predep_objects_F77" | $SED "$delay_single_quote_subst"`'
+predep_objects_FC='`$ECHO "$predep_objects_FC" | $SED "$delay_single_quote_subst"`'
+postdep_objects_CXX='`$ECHO "$postdep_objects_CXX" | $SED "$delay_single_quote_subst"`'
+postdep_objects_F77='`$ECHO "$postdep_objects_F77" | $SED "$delay_single_quote_subst"`'
+postdep_objects_FC='`$ECHO "$postdep_objects_FC" | $SED "$delay_single_quote_subst"`'
+predeps_CXX='`$ECHO "$predeps_CXX" | $SED "$delay_single_quote_subst"`'
+predeps_F77='`$ECHO "$predeps_F77" | $SED "$delay_single_quote_subst"`'
+predeps_FC='`$ECHO "$predeps_FC" | $SED "$delay_single_quote_subst"`'
+postdeps_CXX='`$ECHO "$postdeps_CXX" | $SED "$delay_single_quote_subst"`'
+postdeps_F77='`$ECHO "$postdeps_F77" | $SED "$delay_single_quote_subst"`'
+postdeps_FC='`$ECHO "$postdeps_FC" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_path_CXX='`$ECHO "$compiler_lib_search_path_CXX" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_path_F77='`$ECHO "$compiler_lib_search_path_F77" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_path_FC='`$ECHO "$compiler_lib_search_path_FC" | $SED "$delay_single_quote_subst"`'
+
+LTCC='$LTCC'
+LTCFLAGS='$LTCFLAGS'
+compiler='$compiler_DEFAULT'
+
+# A function that is used when there is no print builtin or printf.
+func_fallback_echo ()
+{
+ eval 'cat <<_LTECHO_EOF
+\$1
+_LTECHO_EOF'
+}
+
+# Quote evaled strings.
+for var in SHELL \
+ECHO \
+PATH_SEPARATOR \
+SED \
+GREP \
+EGREP \
+FGREP \
+LD \
+NM \
+LN_S \
+lt_SP2NL \
+lt_NL2SP \
+reload_flag \
+OBJDUMP \
+deplibs_check_method \
+file_magic_cmd \
+file_magic_glob \
+want_nocaseglob \
+DLLTOOL \
+sharedlib_from_linklib_cmd \
+AR \
+AR_FLAGS \
+archiver_list_spec \
+STRIP \
+RANLIB \
+CC \
+CFLAGS \
+compiler \
+lt_cv_sys_global_symbol_pipe \
+lt_cv_sys_global_symbol_to_cdecl \
+lt_cv_sys_global_symbol_to_import \
+lt_cv_sys_global_symbol_to_c_name_address \
+lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \
+lt_cv_nm_interface \
+nm_file_list_spec \
+lt_cv_truncate_bin \
+lt_prog_compiler_no_builtin_flag \
+lt_prog_compiler_pic \
+lt_prog_compiler_wl \
+lt_prog_compiler_static \
+lt_cv_prog_compiler_c_o \
+need_locks \
+MANIFEST_TOOL \
+DSYMUTIL \
+NMEDIT \
+LIPO \
+OTOOL \
+OTOOL64 \
+shrext_cmds \
+export_dynamic_flag_spec \
+whole_archive_flag_spec \
+compiler_needs_object \
+with_gnu_ld \
+allow_undefined_flag \
+no_undefined_flag \
+hardcode_libdir_flag_spec \
+hardcode_libdir_separator \
+exclude_expsyms \
+include_expsyms \
+file_list_spec \
+variables_saved_for_relink \
+libname_spec \
+library_names_spec \
+soname_spec \
+install_override_mode \
+finish_eval \
+old_striplib \
+striplib \
+compiler_lib_search_dirs \
+predep_objects \
+postdep_objects \
+predeps \
+postdeps \
+compiler_lib_search_path \
+LD_CXX \
+LD_F77 \
+LD_FC \
+reload_flag_CXX \
+reload_flag_F77 \
+reload_flag_FC \
+compiler_CXX \
+compiler_F77 \
+compiler_FC \
+lt_prog_compiler_no_builtin_flag_CXX \
+lt_prog_compiler_no_builtin_flag_F77 \
+lt_prog_compiler_no_builtin_flag_FC \
+lt_prog_compiler_pic_CXX \
+lt_prog_compiler_pic_F77 \
+lt_prog_compiler_pic_FC \
+lt_prog_compiler_wl_CXX \
+lt_prog_compiler_wl_F77 \
+lt_prog_compiler_wl_FC \
+lt_prog_compiler_static_CXX \
+lt_prog_compiler_static_F77 \
+lt_prog_compiler_static_FC \
+lt_cv_prog_compiler_c_o_CXX \
+lt_cv_prog_compiler_c_o_F77 \
+lt_cv_prog_compiler_c_o_FC \
+export_dynamic_flag_spec_CXX \
+export_dynamic_flag_spec_F77 \
+export_dynamic_flag_spec_FC \
+whole_archive_flag_spec_CXX \
+whole_archive_flag_spec_F77 \
+whole_archive_flag_spec_FC \
+compiler_needs_object_CXX \
+compiler_needs_object_F77 \
+compiler_needs_object_FC \
+with_gnu_ld_CXX \
+with_gnu_ld_F77 \
+with_gnu_ld_FC \
+allow_undefined_flag_CXX \
+allow_undefined_flag_F77 \
+allow_undefined_flag_FC \
+no_undefined_flag_CXX \
+no_undefined_flag_F77 \
+no_undefined_flag_FC \
+hardcode_libdir_flag_spec_CXX \
+hardcode_libdir_flag_spec_F77 \
+hardcode_libdir_flag_spec_FC \
+hardcode_libdir_separator_CXX \
+hardcode_libdir_separator_F77 \
+hardcode_libdir_separator_FC \
+exclude_expsyms_CXX \
+exclude_expsyms_F77 \
+exclude_expsyms_FC \
+include_expsyms_CXX \
+include_expsyms_F77 \
+include_expsyms_FC \
+file_list_spec_CXX \
+file_list_spec_F77 \
+file_list_spec_FC \
+compiler_lib_search_dirs_CXX \
+compiler_lib_search_dirs_F77 \
+compiler_lib_search_dirs_FC \
+predep_objects_CXX \
+predep_objects_F77 \
+predep_objects_FC \
+postdep_objects_CXX \
+postdep_objects_F77 \
+postdep_objects_FC \
+predeps_CXX \
+predeps_F77 \
+predeps_FC \
+postdeps_CXX \
+postdeps_F77 \
+postdeps_FC \
+compiler_lib_search_path_CXX \
+compiler_lib_search_path_F77 \
+compiler_lib_search_path_FC; do
+ case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
+ *[\\\\\\\`\\"\\\$]*)
+ eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes
+ ;;
+ *)
+ eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
+ ;;
+ esac
+done
+
+# Double-quote double-evaled strings.
+for var in reload_cmds \
+old_postinstall_cmds \
+old_postuninstall_cmds \
+old_archive_cmds \
+extract_expsyms_cmds \
+old_archive_from_new_cmds \
+old_archive_from_expsyms_cmds \
+archive_cmds \
+archive_expsym_cmds \
+module_cmds \
+module_expsym_cmds \
+export_symbols_cmds \
+prelink_cmds \
+postlink_cmds \
+postinstall_cmds \
+postuninstall_cmds \
+finish_cmds \
+sys_lib_search_path_spec \
+configure_time_dlsearch_path \
+configure_time_lt_sys_library_path \
+reload_cmds_CXX \
+reload_cmds_F77 \
+reload_cmds_FC \
+old_archive_cmds_CXX \
+old_archive_cmds_F77 \
+old_archive_cmds_FC \
+old_archive_from_new_cmds_CXX \
+old_archive_from_new_cmds_F77 \
+old_archive_from_new_cmds_FC \
+old_archive_from_expsyms_cmds_CXX \
+old_archive_from_expsyms_cmds_F77 \
+old_archive_from_expsyms_cmds_FC \
+archive_cmds_CXX \
+archive_cmds_F77 \
+archive_cmds_FC \
+archive_expsym_cmds_CXX \
+archive_expsym_cmds_F77 \
+archive_expsym_cmds_FC \
+module_cmds_CXX \
+module_cmds_F77 \
+module_cmds_FC \
+module_expsym_cmds_CXX \
+module_expsym_cmds_F77 \
+module_expsym_cmds_FC \
+export_symbols_cmds_CXX \
+export_symbols_cmds_F77 \
+export_symbols_cmds_FC \
+prelink_cmds_CXX \
+prelink_cmds_F77 \
+prelink_cmds_FC \
+postlink_cmds_CXX \
+postlink_cmds_F77 \
+postlink_cmds_FC; do
+ case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
+ *[\\\\\\\`\\"\\\$]*)
+ eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes
+ ;;
+ *)
+ eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
+ ;;
+ esac
+done
+
+ac_aux_dir='$ac_aux_dir'
+
+# See if we are running on zsh, and set the options that allow our
+# commands through without removal of \ escapes INIT.
+if test -n "\${ZSH_VERSION+set}"; then
+ setopt NO_GLOB_SUBST
+fi
+
+
+ PACKAGE='$PACKAGE'
+ VERSION='$VERSION'
+ RM='$RM'
+ ofile='$ofile'
+
+
+
+
+
+
+
+
+
+_LTEOF
+
+cat >>"$CONFIG_LT" <<\_LTEOF
+{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $ofile" >&5
+$as_echo "$as_me: creating $ofile" >&6;}
+
+
+ # See if we are running on zsh, and set the options that allow our
+ # commands through without removal of \ escapes.
+ if test -n "${ZSH_VERSION+set}"; then
+ setopt NO_GLOB_SUBST
+ fi
+
+ cfgfile=${ofile}T
+ trap "$RM \"$cfgfile\"; exit 1" 1 2 15
+ $RM "$cfgfile"
+
+ cat <<_LT_EOF >> "$cfgfile"
+#! $SHELL
+# Generated automatically by $as_me ($PACKAGE) $VERSION
+# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
+# NOTE: Changes made to this file will be lost: look at ltmain.sh.
+
+# Provide generalized library-building support services.
+# Written by Gordon Matzigkeit, 1996
+
+# Copyright (C) 2014 Free Software Foundation, Inc.
+# This is free software; see the source for copying conditions. There is NO
+# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+# GNU Libtool 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 2 of of the License, or
+# (at your option) any later version.
+#
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program or library that is built
+# using GNU Libtool, you may include this file under the same
+# distribution terms that you use for the rest of that program.
+#
+# GNU Libtool 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/>.
+
+
+# The names of the tagged configurations supported by this script.
+available_tags='CXX F77 FC '
+
+# Configured defaults for sys_lib_dlsearch_path munging.
+: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"}
+
+# ### BEGIN LIBTOOL CONFIG
+
+# Which release of libtool.m4 was used?
+macro_version=$macro_version
+macro_revision=$macro_revision
+
+# What type of objects to build.
+pic_mode=$pic_mode
+
+# Whether or not to build shared libraries.
+build_libtool_libs=$enable_shared
+
+# Whether or not to build static libraries.
+build_old_libs=$enable_static
+
+# Whether or not to optimize for fast installation.
+fast_install=$enable_fast_install
+
+# Shared archive member basename,for filename based shared library versioning on AIX.
+shared_archive_member_spec=$shared_archive_member_spec
+
+# Shell to use when invoking shell scripts.
+SHELL=$lt_SHELL
+
+# An echo program that protects backslashes.
+ECHO=$lt_ECHO
+
+# The PATH separator for the build system.
+PATH_SEPARATOR=$lt_PATH_SEPARATOR
+
+# The host system.
+host_alias=$host_alias
+host=$host
+host_os=$host_os
+
+# The build system.
+build_alias=$build_alias
+build=$build
+build_os=$build_os
+
+# A sed program that does not truncate output.
+SED=$lt_SED
+
+# Sed that helps us avoid accidentally triggering echo(1) options like -n.
+Xsed="\$SED -e 1s/^X//"
+
+# A grep program that handles long lines.
+GREP=$lt_GREP
+
+# An ERE matcher.
+EGREP=$lt_EGREP
+
+# A literal string matcher.
+FGREP=$lt_FGREP
+
+# A BSD- or MS-compatible name lister.
+NM=$lt_NM
+
+# Whether we need soft or hard links.
+LN_S=$lt_LN_S
+
+# What is the maximum length of a command?
+max_cmd_len=$max_cmd_len
+
+# Object file suffix (normally "o").
+objext=$ac_objext
+
+# Executable file suffix (normally "").
+exeext=$exeext
+
+# whether the shell understands "unset".
+lt_unset=$lt_unset
+
+# turn spaces into newlines.
+SP2NL=$lt_lt_SP2NL
+
+# turn newlines into spaces.
+NL2SP=$lt_lt_NL2SP
+
+# convert \$build file names to \$host format.
+to_host_file_cmd=$lt_cv_to_host_file_cmd
+
+# convert \$build files to toolchain format.
+to_tool_file_cmd=$lt_cv_to_tool_file_cmd
+
+# An object symbol dumper.
+OBJDUMP=$lt_OBJDUMP
+
+# Method to check whether dependent libraries are shared objects.
+deplibs_check_method=$lt_deplibs_check_method
+
+# Command to use when deplibs_check_method = "file_magic".
+file_magic_cmd=$lt_file_magic_cmd
+
+# How to find potential files when deplibs_check_method = "file_magic".
+file_magic_glob=$lt_file_magic_glob
+
+# Find potential files using nocaseglob when deplibs_check_method = "file_magic".
+want_nocaseglob=$lt_want_nocaseglob
+
+# DLL creation program.
+DLLTOOL=$lt_DLLTOOL
+
+# Command to associate shared and link libraries.
+sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd
+
+# The archiver.
+AR=$lt_AR
+
+# Flags to create an archive.
+AR_FLAGS=$lt_AR_FLAGS
+
+# How to feed a file listing to the archiver.
+archiver_list_spec=$lt_archiver_list_spec
+
+# A symbol stripping program.
+STRIP=$lt_STRIP
+
+# Commands used to install an old-style archive.
+RANLIB=$lt_RANLIB
+old_postinstall_cmds=$lt_old_postinstall_cmds
+old_postuninstall_cmds=$lt_old_postuninstall_cmds
+
+# Whether to use a lock for old archive extraction.
+lock_old_archive_extraction=$lock_old_archive_extraction
+
+# A C compiler.
+LTCC=$lt_CC
+
+# LTCC compiler flags.
+LTCFLAGS=$lt_CFLAGS
+
+# Take the output of nm and produce a listing of raw symbols and C names.
+global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe
+
+# Transform the output of nm in a proper C declaration.
+global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl
+
+# Transform the output of nm into a list of symbols to manually relocate.
+global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import
+
+# Transform the output of nm in a C name address pair.
+global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address
+
+# Transform the output of nm in a C name address pair when lib prefix is needed.
+global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix
+
+# The name lister interface.
+nm_interface=$lt_lt_cv_nm_interface
+
+# Specify filename containing input files for \$NM.
+nm_file_list_spec=$lt_nm_file_list_spec
+
+# The root where to search for dependent libraries,and where our libraries should be installed.
+lt_sysroot=$lt_sysroot
+
+# Command to truncate a binary pipe.
+lt_truncate_bin=$lt_lt_cv_truncate_bin
+
+# The name of the directory that contains temporary libtool files.
+objdir=$objdir
+
+# Used to examine libraries when file_magic_cmd begins with "file".
+MAGIC_CMD=$MAGIC_CMD
+
+# Must we lock files when doing compilation?
+need_locks=$lt_need_locks
+
+# Manifest tool.
+MANIFEST_TOOL=$lt_MANIFEST_TOOL
+
+# Tool to manipulate archived DWARF debug symbol files on Mac OS X.
+DSYMUTIL=$lt_DSYMUTIL
+
+# Tool to change global to local symbols on Mac OS X.
+NMEDIT=$lt_NMEDIT
+
+# Tool to manipulate fat objects and archives on Mac OS X.
+LIPO=$lt_LIPO
+
+# ldd/readelf like tool for Mach-O binaries on Mac OS X.
+OTOOL=$lt_OTOOL
+
+# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4.
+OTOOL64=$lt_OTOOL64
+
+# Old archive suffix (normally "a").
+libext=$libext
+
+# Shared library suffix (normally ".so").
+shrext_cmds=$lt_shrext_cmds
+
+# The commands to extract the exported symbol list from a shared archive.
+extract_expsyms_cmds=$lt_extract_expsyms_cmds
+
+# Variables whose values should be saved in libtool wrapper scripts and
+# restored at link time.
+variables_saved_for_relink=$lt_variables_saved_for_relink
+
+# Do we need the "lib" prefix for modules?
+need_lib_prefix=$need_lib_prefix
+
+# Do we need a version for libraries?
+need_version=$need_version
+
+# Library versioning type.
+version_type=$version_type
+
+# Shared library runtime path variable.
+runpath_var=$runpath_var
+
+# Shared library path variable.
+shlibpath_var=$shlibpath_var
+
+# Is shlibpath searched before the hard-coded library search path?
+shlibpath_overrides_runpath=$shlibpath_overrides_runpath
+
+# Format of library name prefix.
+libname_spec=$lt_libname_spec
+
+# List of archive names. First name is the real one, the rest are links.
+# The last name is the one that the linker finds with -lNAME
+library_names_spec=$lt_library_names_spec
+
+# The coded name of the library, if different from the real name.
+soname_spec=$lt_soname_spec
+
+# Permission mode override for installation of shared libraries.
+install_override_mode=$lt_install_override_mode
+
+# Command to use after installation of a shared archive.
+postinstall_cmds=$lt_postinstall_cmds
+
+# Command to use after uninstallation of a shared archive.
+postuninstall_cmds=$lt_postuninstall_cmds
+
+# Commands used to finish a libtool library installation in a directory.
+finish_cmds=$lt_finish_cmds
+
+# As "finish_cmds", except a single script fragment to be evaled but
+# not shown.
+finish_eval=$lt_finish_eval
+
+# Whether we should hardcode library paths into libraries.
+hardcode_into_libs=$hardcode_into_libs
+
+# Compile-time system search path for libraries.
+sys_lib_search_path_spec=$lt_sys_lib_search_path_spec
+
+# Detected run-time system search path for libraries.
+sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path
+
+# Explicit LT_SYS_LIBRARY_PATH set during ./configure time.
+configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path
+
+# Whether dlopen is supported.
+dlopen_support=$enable_dlopen
+
+# Whether dlopen of programs is supported.
+dlopen_self=$enable_dlopen_self
+
+# Whether dlopen of statically linked programs is supported.
+dlopen_self_static=$enable_dlopen_self_static
+
+# Commands to strip libraries.
+old_striplib=$lt_old_striplib
+striplib=$lt_striplib
+
+
+# The linker used to build libraries.
+LD=$lt_LD
+
+# How to create reloadable object files.
+reload_flag=$lt_reload_flag
+reload_cmds=$lt_reload_cmds
+
+# Commands used to build an old-style archive.
+old_archive_cmds=$lt_old_archive_cmds
+
+# A language specific compiler.
+CC=$lt_compiler
+
+# Is the compiler the GNU compiler?
+with_gcc=$GCC
+
+# Is the compiler the NAG Fortran compiler?
+with_nagfor=$acx_is_nagfor
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag
+
+# Additional compiler flags for building library objects.
+pic_flag=$lt_lt_prog_compiler_pic
+
+# How to pass a linker flag through the compiler.
+wl=$lt_lt_prog_compiler_wl
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag=$lt_lt_prog_compiler_static
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o=$lt_lt_cv_prog_compiler_c_o
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=$archive_cmds_need_lc
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec=$lt_export_dynamic_flag_spec
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec=$lt_whole_archive_flag_spec
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object=$lt_compiler_needs_object
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=$lt_old_archive_from_new_cmds
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds
+
+# Commands used to build a shared archive.
+archive_cmds=$lt_archive_cmds
+archive_expsym_cmds=$lt_archive_expsym_cmds
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=$lt_module_cmds
+module_expsym_cmds=$lt_module_expsym_cmds
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld=$lt_with_gnu_ld
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=$lt_allow_undefined_flag
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=$lt_no_undefined_flag
+
+# Flag to hardcode \$libdir into a binary during linking.
+# This must work even if \$libdir does not exist
+hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=$lt_hardcode_libdir_separator
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=$hardcode_direct
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting \$shlibpath_var if the
+# library is relocated.
+hardcode_direct_absolute=$hardcode_direct_absolute
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=$hardcode_minus_L
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=$hardcode_shlibpath_var
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=$hardcode_automatic
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=$inherit_rpath
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=$link_all_deplibs
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=$always_export_symbols
+
+# The commands to list exported symbols.
+export_symbols_cmds=$lt_export_symbols_cmds
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms=$lt_exclude_expsyms
+
+# Symbols that must always be exported.
+include_expsyms=$lt_include_expsyms
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=$lt_prelink_cmds
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=$lt_postlink_cmds
+
+# Specify filename containing input files.
+file_list_spec=$lt_file_list_spec
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=$hardcode_action
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=$lt_compiler_lib_search_dirs
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=$lt_predep_objects
+postdep_objects=$lt_postdep_objects
+predeps=$lt_predeps
+postdeps=$lt_postdeps
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=$lt_compiler_lib_search_path
+
+# ### END LIBTOOL CONFIG
+
+_LT_EOF
+
+ cat <<'_LT_EOF' >> "$cfgfile"
+
+# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE
+
+# func_munge_path_list VARIABLE PATH
+# -----------------------------------
+# VARIABLE is name of variable containing _space_ separated list of
+# directories to be munged by the contents of PATH, which is string
+# having a format:
+# "DIR[:DIR]:"
+# string "DIR[ DIR]" will be prepended to VARIABLE
+# ":DIR[:DIR]"
+# string "DIR[ DIR]" will be appended to VARIABLE
+# "DIRP[:DIRP]::[DIRA:]DIRA"
+# string "DIRP[ DIRP]" will be prepended to VARIABLE and string
+# "DIRA[ DIRA]" will be appended to VARIABLE
+# "DIR[:DIR]"
+# VARIABLE will be replaced by "DIR[ DIR]"
+func_munge_path_list ()
+{
+ case x$2 in
+ x)
+ ;;
+ *:)
+ eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\"
+ ;;
+ x:*)
+ eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\"
+ ;;
+ *::*)
+ eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\"
+ eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\"
+ ;;
+ *)
+ eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\"
+ ;;
+ esac
+}
+
+
+# Calculate cc_basename. Skip known compiler wrappers and cross-prefix.
+func_cc_basename ()
+{
+ for cc_temp in $*""; do
+ case $cc_temp in
+ compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
+ distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
+ \-*) ;;
+ *) break;;
+ esac
+ done
+ func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
+}
+
+
+# ### END FUNCTIONS SHARED WITH CONFIGURE
+
+_LT_EOF
+
+ case $host_os in
+ aix3*)
+ cat <<\_LT_EOF >> "$cfgfile"
+# AIX sometimes has problems with the GCC collect2 program. For some
+# reason, if we set the COLLECT_NAMES environment variable, the problems
+# vanish in a puff of smoke.
+if test set != "${COLLECT_NAMES+set}"; then
+ COLLECT_NAMES=
+ export COLLECT_NAMES
+fi
+_LT_EOF
+ ;;
+ esac
+
+
+ltmain=$ac_aux_dir/ltmain.sh
+
+
+ # We use sed instead of cat because bash on DJGPP gets confused if
+ # if finds mixed CR/LF and LF-only lines. Since sed operates in
+ # text mode, it properly converts lines to CR/LF. This bash problem
+ # is reportedly fixed, but why not run on old versions too?
+ sed '$q' "$ltmain" >> "$cfgfile" \
+ || (rm -f "$cfgfile"; exit 1)
+
+ mv -f "$cfgfile" "$ofile" ||
+ (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile")
+ chmod +x "$ofile"
+
+
+ cat <<_LT_EOF >> "$ofile"
+
+# ### BEGIN LIBTOOL TAG CONFIG: CXX
+
+# The linker used to build libraries.
+LD=$lt_LD_CXX
+
+# How to create reloadable object files.
+reload_flag=$lt_reload_flag_CXX
+reload_cmds=$lt_reload_cmds_CXX
+
+# Commands used to build an old-style archive.
+old_archive_cmds=$lt_old_archive_cmds_CXX
+
+# A language specific compiler.
+CC=$lt_compiler_CXX
+
+# Is the compiler the GNU compiler?
+with_gcc=$GCC_CXX
+
+# Is the compiler the NAG Fortran compiler?
+with_nagfor=$acx_is_nagfor_CXX
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX
+
+# Additional compiler flags for building library objects.
+pic_flag=$lt_lt_prog_compiler_pic_CXX
+
+# How to pass a linker flag through the compiler.
+wl=$lt_lt_prog_compiler_wl_CXX
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag=$lt_lt_prog_compiler_static_CXX
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=$archive_cmds_need_lc_CXX
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object=$lt_compiler_needs_object_CXX
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX
+
+# Commands used to build a shared archive.
+archive_cmds=$lt_archive_cmds_CXX
+archive_expsym_cmds=$lt_archive_expsym_cmds_CXX
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=$lt_module_cmds_CXX
+module_expsym_cmds=$lt_module_expsym_cmds_CXX
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld=$lt_with_gnu_ld_CXX
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=$lt_allow_undefined_flag_CXX
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=$lt_no_undefined_flag_CXX
+
+# Flag to hardcode \$libdir into a binary during linking.
+# This must work even if \$libdir does not exist
+hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=$hardcode_direct_CXX
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting \$shlibpath_var if the
+# library is relocated.
+hardcode_direct_absolute=$hardcode_direct_absolute_CXX
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=$hardcode_minus_L_CXX
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=$hardcode_automatic_CXX
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=$inherit_rpath_CXX
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=$link_all_deplibs_CXX
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=$always_export_symbols_CXX
+
+# The commands to list exported symbols.
+export_symbols_cmds=$lt_export_symbols_cmds_CXX
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms=$lt_exclude_expsyms_CXX
+
+# Symbols that must always be exported.
+include_expsyms=$lt_include_expsyms_CXX
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=$lt_prelink_cmds_CXX
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=$lt_postlink_cmds_CXX
+
+# Specify filename containing input files.
+file_list_spec=$lt_file_list_spec_CXX
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=$hardcode_action_CXX
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=$lt_predep_objects_CXX
+postdep_objects=$lt_postdep_objects_CXX
+predeps=$lt_predeps_CXX
+postdeps=$lt_postdeps_CXX
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=$lt_compiler_lib_search_path_CXX
+
+# ### END LIBTOOL TAG CONFIG: CXX
+_LT_EOF
+
+
+ cat <<_LT_EOF >> "$ofile"
+
+# ### BEGIN LIBTOOL TAG CONFIG: F77
+
+# The linker used to build libraries.
+LD=$lt_LD_F77
+
+# How to create reloadable object files.
+reload_flag=$lt_reload_flag_F77
+reload_cmds=$lt_reload_cmds_F77
+
+# Commands used to build an old-style archive.
+old_archive_cmds=$lt_old_archive_cmds_F77
+
+# A language specific compiler.
+CC=$lt_compiler_F77
+
+# Is the compiler the GNU compiler?
+with_gcc=$GCC_F77
+
+# Is the compiler the NAG Fortran compiler?
+with_nagfor=$acx_is_nagfor_F77
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_F77
+
+# Additional compiler flags for building library objects.
+pic_flag=$lt_lt_prog_compiler_pic_F77
+
+# How to pass a linker flag through the compiler.
+wl=$lt_lt_prog_compiler_wl_F77
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag=$lt_lt_prog_compiler_static_F77
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o=$lt_lt_cv_prog_compiler_c_o_F77
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=$archive_cmds_need_lc_F77
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_F77
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_F77
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec=$lt_whole_archive_flag_spec_F77
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object=$lt_compiler_needs_object_F77
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_F77
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_F77
+
+# Commands used to build a shared archive.
+archive_cmds=$lt_archive_cmds_F77
+archive_expsym_cmds=$lt_archive_expsym_cmds_F77
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=$lt_module_cmds_F77
+module_expsym_cmds=$lt_module_expsym_cmds_F77
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld=$lt_with_gnu_ld_F77
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=$lt_allow_undefined_flag_F77
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=$lt_no_undefined_flag_F77
+
+# Flag to hardcode \$libdir into a binary during linking.
+# This must work even if \$libdir does not exist
+hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_F77
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=$lt_hardcode_libdir_separator_F77
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=$hardcode_direct_F77
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting \$shlibpath_var if the
+# library is relocated.
+hardcode_direct_absolute=$hardcode_direct_absolute_F77
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=$hardcode_minus_L_F77
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=$hardcode_shlibpath_var_F77
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=$hardcode_automatic_F77
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=$inherit_rpath_F77
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=$link_all_deplibs_F77
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=$always_export_symbols_F77
+
+# The commands to list exported symbols.
+export_symbols_cmds=$lt_export_symbols_cmds_F77
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms=$lt_exclude_expsyms_F77
+
+# Symbols that must always be exported.
+include_expsyms=$lt_include_expsyms_F77
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=$lt_prelink_cmds_F77
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=$lt_postlink_cmds_F77
+
+# Specify filename containing input files.
+file_list_spec=$lt_file_list_spec_F77
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=$hardcode_action_F77
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_F77
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=$lt_predep_objects_F77
+postdep_objects=$lt_postdep_objects_F77
+predeps=$lt_predeps_F77
+postdeps=$lt_postdeps_F77
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=$lt_compiler_lib_search_path_F77
+
+# ### END LIBTOOL TAG CONFIG: F77
+_LT_EOF
+
+
+ cat <<_LT_EOF >> "$ofile"
+
+# ### BEGIN LIBTOOL TAG CONFIG: FC
+
+# The linker used to build libraries.
+LD=$lt_LD_FC
+
+# How to create reloadable object files.
+reload_flag=$lt_reload_flag_FC
+reload_cmds=$lt_reload_cmds_FC
+
+# Commands used to build an old-style archive.
+old_archive_cmds=$lt_old_archive_cmds_FC
+
+# A language specific compiler.
+CC=$lt_compiler_FC
+
+# Is the compiler the GNU compiler?
+with_gcc=$GCC_FC
+
+# Is the compiler the NAG Fortran compiler?
+with_nagfor=$acx_is_nagfor_FC
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC
+
+# Additional compiler flags for building library objects.
+pic_flag=$lt_lt_prog_compiler_pic_FC
+
+# How to pass a linker flag through the compiler.
+wl=$lt_lt_prog_compiler_wl_FC
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag=$lt_lt_prog_compiler_static_FC
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=$archive_cmds_need_lc_FC
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object=$lt_compiler_needs_object_FC
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC
+
+# Commands used to build a shared archive.
+archive_cmds=$lt_archive_cmds_FC
+archive_expsym_cmds=$lt_archive_expsym_cmds_FC
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=$lt_module_cmds_FC
+module_expsym_cmds=$lt_module_expsym_cmds_FC
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld=$lt_with_gnu_ld_FC
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=$lt_allow_undefined_flag_FC
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=$lt_no_undefined_flag_FC
+
+# Flag to hardcode \$libdir into a binary during linking.
+# This must work even if \$libdir does not exist
+hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=$hardcode_direct_FC
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting \$shlibpath_var if the
+# library is relocated.
+hardcode_direct_absolute=$hardcode_direct_absolute_FC
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=$hardcode_minus_L_FC
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=$hardcode_shlibpath_var_FC
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=$hardcode_automatic_FC
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=$inherit_rpath_FC
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=$link_all_deplibs_FC
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=$always_export_symbols_FC
+
+# The commands to list exported symbols.
+export_symbols_cmds=$lt_export_symbols_cmds_FC
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms=$lt_exclude_expsyms_FC
+
+# Symbols that must always be exported.
+include_expsyms=$lt_include_expsyms_FC
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=$lt_prelink_cmds_FC
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=$lt_postlink_cmds_FC
+
+# Specify filename containing input files.
+file_list_spec=$lt_file_list_spec_FC
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=$hardcode_action_FC
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=$lt_predep_objects_FC
+postdep_objects=$lt_postdep_objects_FC
+predeps=$lt_predeps_FC
+postdeps=$lt_postdeps_FC
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=$lt_compiler_lib_search_path_FC
+
+# ### END LIBTOOL TAG CONFIG: FC
+_LT_EOF
+
+
+as_fn_exit 0
+_LTEOF
+chmod +x "$CONFIG_LT"
+
+# configure is writing to config.log, but config.lt does its own redirection,
+# appending to config.log, which fails on DOS, as config.log is still kept
+# open by configure. Here we exec the FD to /dev/null, effectively closing
+# config.log, so it can be properly (re)opened and appended to by config.lt.
+lt_cl_success=:
+test yes = "$silent" &&
+ lt_config_lt_args="$lt_config_lt_args --quiet"
+exec 5>/dev/null
+$SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false
+exec 5>>config.log
+$lt_cl_success || as_fn_exit 1
+
+
+acx_lt_saved_ac_objext=$ac_objext
+ac_objext=lo
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+ac_clean_files_save="$ac_clean_files_save $ac_pwd/$objdir"
+ac_clean_files="$ac_clean_files $ac_pwd/$objdir"
+
+ for acx_flag_var_ in CFLAGS CXXFLAGS FCFLAGS F77FLAGS LDFLAGS FCLDFLAGS
+do :
+ if eval test x\$\{$acx_flag_var_+set\} = xset; then :
+ eval acx_temp="\" \$$acx_flag_var_ \""
+ case $acx_temp in #(
+ *\ -shared-intel\ *|*\ -static-intel\ *) :
+ acx_temp=`echo "$acx_temp" | sed -E -e 's/ (-shared-intel|-static-intel) / -Xcompiler \1 -XCClinker \1 /g'` ;; #(
+ *) :
+ ;;
+esac
+ case $acx_temp in #(
+ *\ -Qlocation,*\ *) :
+ acx_temp=`echo "$acx_temp" | sed -E -e 's/ (-Qlocation,[^, ]*,[^[:blank:]]*)/ -Xcompiler \1 -XCClinker \1/g'` ;; #(
+ *) :
+ ;;
+esac
+ eval $acx_flag_var_=\"`echo "$acx_temp" | sed -E -e 's/ -(align|allow|assume|ccdefault|check|convert|debug|debug-parameters|diag-type|diag-enable|diag-disable|double-size|dynamic-linker|dyncom|export-dir|extend-source|fp-model|fpscomp|gen-interfaces|heap-arrays|imacros|integer-size|iprefix|iquote|iwithprefixbefore|module|names|opt-report|opt-streaming-stores|pch-dir|pch-use|prof-dir|prof-file|real-size|reentrancy|stand|tcollect-filter|tune|warn|watch) ([^-][^[:blank:]]*)/ -Xcompiler -\1 -Xcompiler \2/g' -e 's/^ //;s/ $//'`\"
+fi
+done
+ if test -n "$CC" -a X"$CC" != Xno; then :
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether libtool can link C programs" >&5
+$as_echo_n "checking whether libtool can link C programs... " >&6; }
+if ${acx_cv_libtool_c_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_libtool_c_works=no
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ acx_cv_libtool_c_works=yes
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_libtool_c_works" >&5
+$as_echo "$acx_cv_libtool_c_works" >&6; }
+ if test "x$acx_cv_libtool_c_works" = xno; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "unable to link a C program using libtool
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+ if test x"$acx_is_nagfor" = xyes; then :
+ case " $CFLAGS $LDFLAGS " in #(
+ *\ -B*\ *) :
+ extrasub="${extrasub+$extrasub$as_nl}/^\# skip internal symbols for stubs created by xlf/i \\\\${as_nl}\# ignore symbols nagfor injects into our shared objects\\\\${as_nl}/"'^${exp_sym_prefix}'"${acx_symprfx}"'(__NAGf90_|f90_)/b'
+ ;; #(
+ *) :
+ CFLAGS="$CFLAGS -XCClinker -Wl,-B${ac_abs_confdir}/util/nagdynlib" ;;
+esac
+fi
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+fi
+ if test -n "$FC" -a X"$FC" != Xno; then :
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=FC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=FC $ac_compile"
+
+
+
+ acx_temp=`$FC -V 2>&1 | sed -n 1,5p`
+ case "$acx_temp" in #(
+ *NAG\ Fortran\ Compiler\ Release*) :
+ if test x${FCFLAGS+set} = xset; then :
+ FCFLAGS=`echo "$FCFLAGS" | tr ' ' '\n' | sed -e '/^-W[lc]/{' \
+-e 's/^\(-Wl\)/-XCClinker \1/;s/^\(-Wc,\)/-Xcompiler \1/' \
+-e 's/^\(-Wc=.*\)/-Xcompiler \1 -XCClinker \1/' -e '}' \
+ | tr '\n' ' ' | sed -e 's/ $//'`
+fi
+ if test x${FCLDFLAGS+set} = xset; then :
+ FCLDFLAGS=`echo "$FCLDFLAGS" | tr ' ' '\n' | sed -e '/^-W[lc]/{' \
+-e 's/^\(-Wl\)/-XCClinker \1/;s/^\(-Wc,\)/-Xcompiler \1/' \
+-e 's/^\(-Wc=.*\)/-Xcompiler \1 -XCClinker \1/' -e '}' \
+ | tr '\n' ' ' | sed -e 's/ $//'`
+fi ;; #(
+ *) :
+ ;;
+esac
+ case "x${FC_MODOUT}x" in #(
+ x'-module 'x|x'-mod 'x) :
+ FC_MODOUT="-Xcompiler ${FC_MODOUT}-Xcompiler " ;; #(
+ *) :
+ ;;
+esac
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether libtool can link Fortran programs" >&5
+$as_echo_n "checking whether libtool can link Fortran programs... " >&6; }
+if ${acx_cv_libtool_fc_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_libtool_fc_works=no
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+
+ end
+_ACEOF
+if ac_fn_fc_try_link "$LINENO"; then :
+ acx_cv_libtool_fc_works=yes
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_libtool_fc_works" >&5
+$as_echo "$acx_cv_libtool_fc_works" >&6; }
+ if test "x$acx_cv_libtool_fc_works" = xno; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "unable to link a Fortran program using libtool
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+ if test x"$acx_is_nagfor_FC" = xyes; then :
+ case " $FCFLAGS $LDFLAGS " in #(
+ *\ -B*\ *) :
+ extrasub="${extrasub+$extrasub$as_nl}/^\# skip internal symbols for stubs created by xlf/i \\\\${as_nl}\# ignore symbols nagfor injects into our shared objects\\\\${as_nl}/"'^${exp_sym_prefix}'"${acx_symprfx}"'(__NAGf90_|f90_)/b'
+ ;; #(
+ *) :
+ FCFLAGS="$FCFLAGS -XCClinker -Wl,-B${ac_abs_confdir}/util/nagdynlib" ;;
+esac
+fi
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+fi
+ if test -n "$F77" -a X"$F77" != Xno; then :
+ ac_ext=f
+ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
+ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_f77_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=F77 $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=F77 $ac_compile"
+
+
+
+ acx_temp=`$F77 -V 2>&1 | sed -n 1,5p`
+ case "$acx_temp" in #(
+ *NAG\ Fortran\ Compiler\ Release*) :
+ if test x${FFLAGS+set} = xset; then :
+ FFLAGS=`echo "$FFLAGS" | tr ' ' '\n' | sed -e '/^-W[lc]/{' \
+-e 's/^\(-Wl\)/-XCClinker \1/;s/^\(-Wc,\)/-Xcompiler \1/' \
+-e 's/^\(-Wc=.*\)/-Xcompiler \1 -XCClinker \1/' -e '}' \
+ | tr '\n' ' ' | sed -e 's/ $//'`
+fi
+ if test x${F77LDFLAGS+set} = xset; then :
+ F77LDFLAGS=`echo "$F77LDFLAGS" | tr ' ' '\n' | sed -e '/^-W[lc]/{' \
+-e 's/^\(-Wl\)/-XCClinker \1/;s/^\(-Wc,\)/-Xcompiler \1/' \
+-e 's/^\(-Wc=.*\)/-Xcompiler \1 -XCClinker \1/' -e '}' \
+ | tr '\n' ' ' | sed -e 's/ $//'`
+fi ;; #(
+ *) :
+ ;;
+esac
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether libtool can link Fortran 77 programs" >&5
+$as_echo_n "checking whether libtool can link Fortran 77 programs... " >&6; }
+if ${acx_cv_libtool_f77_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_libtool_f77_works=no
+ cat > conftest.$ac_ext <<_ACEOF
+ program main
+
+ end
+_ACEOF
+if ac_fn_f77_try_link "$LINENO"; then :
+ acx_cv_libtool_f77_works=yes
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_libtool_f77_works" >&5
+$as_echo "$acx_cv_libtool_f77_works" >&6; }
+ if test "x$acx_cv_libtool_f77_works" = xno; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "unable to link a Fortran 77 program using libtool
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+ if test x"$acx_is_nagfor_F77" = xyes; then :
+ case " $FFLAGS $LDFLAGS " in #(
+ *\ -B*\ *) :
+ extrasub="${extrasub+$extrasub$as_nl}/^\# skip internal symbols for stubs created by xlf/i \\\\${as_nl}\# ignore symbols nagfor injects into our shared objects\\\\${as_nl}/"'^${exp_sym_prefix}'"${acx_symprfx}"'(__NAGf90_|f90_)/b'
+ ;; #(
+ *) :
+ FFLAGS="$FFLAGS -XCClinker -Wl,-B${ac_abs_confdir}/util/nagdynlib" ;;
+esac
+fi
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+fi
+ if test -n "$CXX" -a X"$CXX" != Xno; then :
+ ac_ext=cpp
+ac_cpp='$CXXCPP $CPPFLAGS'
+ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CXX $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CXX $ac_compile"
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether libtool can link C++ programs" >&5
+$as_echo_n "checking whether libtool can link C++ programs... " >&6; }
+if ${acx_cv_libtool_cxx_works+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_libtool_cxx_works=no
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_cxx_try_link "$LINENO"; then :
+ acx_cv_libtool_cxx_works=yes
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_libtool_cxx_works" >&5
+$as_echo "$acx_cv_libtool_cxx_works" >&6; }
+ if test "x$acx_cv_libtool_cxx_works" = xno; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "unable to link a C++ program using libtool
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+ if test x"$acx_is_nagfor_F77" = xyes; then :
+ case " $FFLAGS $LDFLAGS " in #(
+ *\ -B*\ *) :
+ extrasub="${extrasub+$extrasub$as_nl}/^\# skip internal symbols for stubs created by xlf/i \\\\${as_nl}\# ignore symbols nagfor injects into our shared objects\\\\${as_nl}/"'^${exp_sym_prefix}'"${acx_symprfx}"'(__NAGf90_|f90_)/b'
+ ;; #(
+ *) :
+ FFLAGS="$FFLAGS -XCClinker -Wl,-B${ac_abs_confdir}/util/nagdynlib" ;;
+esac
+fi
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+fi
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether byte ordering is bigendian" >&5
+$as_echo_n "checking whether byte ordering is bigendian... " >&6; }
+if ${ac_cv_c_bigendian+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_cv_c_bigendian=unknown
+ # See if we're dealing with a universal compiler.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#ifndef __APPLE_CC__
+ not a universal capable compiler
+ #endif
+ typedef int dummy;
+
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+
+ # Check for potential -arch flags. It is not universal unless
+ # there are at least two -arch flags with different values.
+ ac_arch=
+ ac_prev=
+ for ac_word in $CC $CFLAGS $CPPFLAGS $LDFLAGS; do
+ if test -n "$ac_prev"; then
+ case $ac_word in
+ i?86 | x86_64 | ppc | ppc64)
+ if test -z "$ac_arch" || test "$ac_arch" = "$ac_word"; then
+ ac_arch=$ac_word
+ else
+ ac_cv_c_bigendian=universal
+ break
+ fi
+ ;;
+ esac
+ ac_prev=
+ elif test "x$ac_word" = "x-arch"; then
+ ac_prev=arch
+ fi
+ done
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ if test $ac_cv_c_bigendian = unknown; then
+ # See if sys/param.h defines the BYTE_ORDER macro.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <sys/types.h>
+ #include <sys/param.h>
+
+int
+main ()
+{
+#if ! (defined BYTE_ORDER && defined BIG_ENDIAN \
+ && defined LITTLE_ENDIAN && BYTE_ORDER && BIG_ENDIAN \
+ && LITTLE_ENDIAN)
+ bogus endian macros
+ #endif
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ # It does; now see whether it defined to BIG_ENDIAN or not.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <sys/types.h>
+ #include <sys/param.h>
+
+int
+main ()
+{
+#if BYTE_ORDER != BIG_ENDIAN
+ not big endian
+ #endif
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_c_bigendian=yes
+else
+ ac_cv_c_bigendian=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ fi
+ if test $ac_cv_c_bigendian = unknown; then
+ # See if <limits.h> defines _LITTLE_ENDIAN or _BIG_ENDIAN (e.g., Solaris).
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <limits.h>
+
+int
+main ()
+{
+#if ! (defined _LITTLE_ENDIAN || defined _BIG_ENDIAN)
+ bogus endian macros
+ #endif
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ # It does; now see whether it defined to _BIG_ENDIAN or not.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <limits.h>
+
+int
+main ()
+{
+#ifndef _BIG_ENDIAN
+ not big endian
+ #endif
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_c_bigendian=yes
+else
+ ac_cv_c_bigendian=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ fi
+ if test $ac_cv_c_bigendian = unknown; then
+ # Compile a test program.
+ if test "$cross_compiling" = yes; then :
+ # Try to guess by grepping values from an object file.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+short int ascii_mm[] =
+ { 0x4249, 0x4765, 0x6E44, 0x6961, 0x6E53, 0x7953, 0 };
+ short int ascii_ii[] =
+ { 0x694C, 0x5454, 0x656C, 0x6E45, 0x6944, 0x6E61, 0 };
+ int use_ascii (int i) {
+ return ascii_mm[i] + ascii_ii[i];
+ }
+ short int ebcdic_ii[] =
+ { 0x89D3, 0xE3E3, 0x8593, 0x95C5, 0x89C4, 0x9581, 0 };
+ short int ebcdic_mm[] =
+ { 0xC2C9, 0xC785, 0x95C4, 0x8981, 0x95E2, 0xA8E2, 0 };
+ int use_ebcdic (int i) {
+ return ebcdic_mm[i] + ebcdic_ii[i];
+ }
+ extern int foo;
+
+int
+main ()
+{
+return use_ascii (foo) == use_ebcdic (foo);
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ if grep BIGenDianSyS conftest.$ac_objext >/dev/null; then
+ ac_cv_c_bigendian=yes
+ fi
+ if grep LiTTleEnDian conftest.$ac_objext >/dev/null ; then
+ if test "$ac_cv_c_bigendian" = unknown; then
+ ac_cv_c_bigendian=no
+ else
+ # finding both strings is unlikely to happen, but who knows?
+ ac_cv_c_bigendian=unknown
+ fi
+ fi
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$ac_includes_default
+int
+main ()
+{
+
+ /* Are we little or big endian? From Harbison&Steele. */
+ union
+ {
+ long int l;
+ char c[sizeof (long int)];
+ } u;
+ u.l = 1;
+ return u.c[sizeof (long int) - 1] == 1;
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_run "$LINENO"; then :
+ ac_cv_c_bigendian=no
+else
+ ac_cv_c_bigendian=yes
+fi
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
+ conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+
+ fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_bigendian" >&5
+$as_echo "$ac_cv_c_bigendian" >&6; }
+ case $ac_cv_c_bigendian in #(
+ yes)
+ $as_echo "#define WORDS_BIGENDIAN 1" >>confdefs.h
+;; #(
+ no)
+ ;; #(
+ universal)
+
+$as_echo "#define AC_APPLE_UNIVERSAL_BUILD 1" >>confdefs.h
+
+ ;; #(
+ *)
+ as_fn_error $? "unknown endianness
+ presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5 ;;
+ esac
+
+# Check whether --enable-largefile was given.
+if test "${enable_largefile+set}" = set; then :
+ enableval=$enable_largefile;
+fi
+
+if test "$enable_largefile" != no; then
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for special C compiler options needed for large files" >&5
+$as_echo_n "checking for special C compiler options needed for large files... " >&6; }
+if ${ac_cv_sys_largefile_CC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_cv_sys_largefile_CC=no
+ if test "$GCC" != yes; then
+ ac_save_CC=$CC
+ while :; do
+ # IRIX 6.2 and later do not support large files by default,
+ # so use the C compiler's -n32 option if that helps.
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply define LARGE_OFF_T to be 9223372036854775807,
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+ if ac_fn_c_try_compile "$LINENO"; then :
+ break
+fi
+rm -f core conftest.err conftest.$ac_objext
+ CC="$CC -n32"
+ if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_sys_largefile_CC=' -n32'; break
+fi
+rm -f core conftest.err conftest.$ac_objext
+ break
+ done
+ CC=$ac_save_CC
+ rm -f conftest.$ac_ext
+ fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_largefile_CC" >&5
+$as_echo "$ac_cv_sys_largefile_CC" >&6; }
+ if test "$ac_cv_sys_largefile_CC" != no; then
+ CC=$CC$ac_cv_sys_largefile_CC
+ fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for _FILE_OFFSET_BITS value needed for large files" >&5
+$as_echo_n "checking for _FILE_OFFSET_BITS value needed for large files... " >&6; }
+if ${ac_cv_sys_file_offset_bits+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply define LARGE_OFF_T to be 9223372036854775807,
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_sys_file_offset_bits=no; break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#define _FILE_OFFSET_BITS 64
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply define LARGE_OFF_T to be 9223372036854775807,
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_sys_file_offset_bits=64; break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ac_cv_sys_file_offset_bits=unknown
+ break
+done
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_file_offset_bits" >&5
+$as_echo "$ac_cv_sys_file_offset_bits" >&6; }
+case $ac_cv_sys_file_offset_bits in #(
+ no | unknown) ;;
+ *)
+cat >>confdefs.h <<_ACEOF
+#define _FILE_OFFSET_BITS $ac_cv_sys_file_offset_bits
+_ACEOF
+;;
+esac
+rm -rf conftest*
+ if test $ac_cv_sys_file_offset_bits = unknown; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for _LARGE_FILES value needed for large files" >&5
+$as_echo_n "checking for _LARGE_FILES value needed for large files... " >&6; }
+if ${ac_cv_sys_large_files+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply define LARGE_OFF_T to be 9223372036854775807,
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_sys_large_files=no; break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#define _LARGE_FILES 1
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply define LARGE_OFF_T to be 9223372036854775807,
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_sys_large_files=1; break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ac_cv_sys_large_files=unknown
+ break
+done
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_large_files" >&5
+$as_echo "$ac_cv_sys_large_files" >&6; }
+case $ac_cv_sys_large_files in #(
+ no | unknown) ;;
+ *)
+cat >>confdefs.h <<_ACEOF
+#define _LARGE_FILES $ac_cv_sys_large_files
+_ACEOF
+;;
+esac
+rm -rf conftest*
+ fi
+
+
+fi
+
+
+
+
+ for ac_header in $ac_header_list
+do :
+ as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
+ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
+"
+if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
+ cat >>confdefs.h <<_ACEOF
+#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
+_ACEOF
+
+fi
+
+done
+
+
+
+
+
+
+
+
+for ac_func in getpagesize
+do :
+ ac_fn_c_check_func "$LINENO" "getpagesize" "ac_cv_func_getpagesize"
+if test "x$ac_cv_func_getpagesize" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_GETPAGESIZE 1
+_ACEOF
+
+fi
+done
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for working mmap" >&5
+$as_echo_n "checking for working mmap... " >&6; }
+if ${ac_cv_func_mmap_fixed_mapped+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test "$cross_compiling" = yes; then :
+ ac_cv_func_mmap_fixed_mapped=no
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$ac_includes_default
+/* malloc might have been renamed as rpl_malloc. */
+#undef malloc
+
+/* Thanks to Mike Haertel and Jim Avera for this test.
+ Here is a matrix of mmap possibilities:
+ mmap private not fixed
+ mmap private fixed at somewhere currently unmapped
+ mmap private fixed at somewhere already mapped
+ mmap shared not fixed
+ mmap shared fixed at somewhere currently unmapped
+ mmap shared fixed at somewhere already mapped
+ For private mappings, we should verify that changes cannot be read()
+ back from the file, nor mmap's back from the file at a different
+ address. (There have been systems where private was not correctly
+ implemented like the infamous i386 svr4.0, and systems where the
+ VM page cache was not coherent with the file system buffer cache
+ like early versions of FreeBSD and possibly contemporary NetBSD.)
+ For shared mappings, we should conversely verify that changes get
+ propagated back to all the places they're supposed to be.
+
+ Grep wants private fixed already mapped.
+ The main things grep needs to know about mmap are:
+ * does it exist and is it safe to write into the mmap'd area
+ * how to use it (BSD variants) */
+
+#include <fcntl.h>
+#include <sys/mman.h>
+
+#if !defined STDC_HEADERS && !defined HAVE_STDLIB_H
+char *malloc ();
+#endif
+
+/* This mess was copied from the GNU getpagesize.h. */
+#ifndef HAVE_GETPAGESIZE
+# ifdef _SC_PAGESIZE
+# define getpagesize() sysconf(_SC_PAGESIZE)
+# else /* no _SC_PAGESIZE */
+# ifdef HAVE_SYS_PARAM_H
+# include <sys/param.h>
+# ifdef EXEC_PAGESIZE
+# define getpagesize() EXEC_PAGESIZE
+# else /* no EXEC_PAGESIZE */
+# ifdef NBPG
+# define getpagesize() NBPG * CLSIZE
+# ifndef CLSIZE
+# define CLSIZE 1
+# endif /* no CLSIZE */
+# else /* no NBPG */
+# ifdef NBPC
+# define getpagesize() NBPC
+# else /* no NBPC */
+# ifdef PAGESIZE
+# define getpagesize() PAGESIZE
+# endif /* PAGESIZE */
+# endif /* no NBPC */
+# endif /* no NBPG */
+# endif /* no EXEC_PAGESIZE */
+# else /* no HAVE_SYS_PARAM_H */
+# define getpagesize() 8192 /* punt totally */
+# endif /* no HAVE_SYS_PARAM_H */
+# endif /* no _SC_PAGESIZE */
+
+#endif /* no HAVE_GETPAGESIZE */
+
+int
+main ()
+{
+ char *data, *data2, *data3;
+ const char *cdata2;
+ int i, pagesize;
+ int fd, fd2;
+
+ pagesize = getpagesize ();
+
+ /* First, make a file with some known garbage in it. */
+ data = (char *) malloc (pagesize);
+ if (!data)
+ return 1;
+ for (i = 0; i < pagesize; ++i)
+ *(data + i) = rand ();
+ umask (0);
+ fd = creat ("conftest.mmap", 0600);
+ if (fd < 0)
+ return 2;
+ if (write (fd, data, pagesize) != pagesize)
+ return 3;
+ close (fd);
+
+ /* Next, check that the tail of a page is zero-filled. File must have
+ non-zero length, otherwise we risk SIGBUS for entire page. */
+ fd2 = open ("conftest.txt", O_RDWR | O_CREAT | O_TRUNC, 0600);
+ if (fd2 < 0)
+ return 4;
+ cdata2 = "";
+ if (write (fd2, cdata2, 1) != 1)
+ return 5;
+ data2 = (char *) mmap (0, pagesize, PROT_READ | PROT_WRITE, MAP_SHARED, fd2, 0L);
+ if (data2 == MAP_FAILED)
+ return 6;
+ for (i = 0; i < pagesize; ++i)
+ if (*(data2 + i))
+ return 7;
+ close (fd2);
+ if (munmap (data2, pagesize))
+ return 8;
+
+ /* Next, try to mmap the file at a fixed address which already has
+ something else allocated at it. If we can, also make sure that
+ we see the same garbage. */
+ fd = open ("conftest.mmap", O_RDWR);
+ if (fd < 0)
+ return 9;
+ if (data2 != mmap (data2, pagesize, PROT_READ | PROT_WRITE,
+ MAP_PRIVATE | MAP_FIXED, fd, 0L))
+ return 10;
+ for (i = 0; i < pagesize; ++i)
+ if (*(data + i) != *(data2 + i))
+ return 11;
+
+ /* Finally, make sure that changes to the mapped area do not
+ percolate back to the file as seen by read(). (This is a bug on
+ some variants of i386 svr4.0.) */
+ for (i = 0; i < pagesize; ++i)
+ *(data2 + i) = *(data2 + i) + 1;
+ data3 = (char *) malloc (pagesize);
+ if (!data3)
+ return 12;
+ if (read (fd, data3, pagesize) != pagesize)
+ return 13;
+ for (i = 0; i < pagesize; ++i)
+ if (*(data + i) != *(data3 + i))
+ return 14;
+ close (fd);
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_run "$LINENO"; then :
+ ac_cv_func_mmap_fixed_mapped=yes
+else
+ ac_cv_func_mmap_fixed_mapped=no
+fi
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
+ conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_mmap_fixed_mapped" >&5
+$as_echo "$ac_cv_func_mmap_fixed_mapped" >&6; }
+if test $ac_cv_func_mmap_fixed_mapped = yes; then
+
+$as_echo "#define HAVE_MMAP 1" >>confdefs.h
+
+fi
+rm -f conftest.mmap conftest.txt
+
+ac_fn_c_check_member "$LINENO" "struct stat" "st_blksize" "ac_cv_member_struct_stat_st_blksize" "$ac_includes_default"
+if test "x$ac_cv_member_struct_stat_st_blksize" = xyes; then :
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_STRUCT_STAT_ST_BLKSIZE 1
+_ACEOF
+
+
+fi
+
+for ac_header in malloc.h sys/time.h
+do :
+ as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
+ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
+"
+if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
+ cat >>confdefs.h <<_ACEOF
+#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
+_ACEOF
+
+fi
+
+done
+
+for ac_header in execinfo.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "execinfo.h" "ac_cv_header_execinfo_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_execinfo_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_EXECINFO_H 1
+_ACEOF
+
+fi
+
+done
+
+ if test x"$ac_cv_header_execinfo_h" = xyes; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking size parameter type for backtrace()" >&5
+$as_echo_n "checking size parameter type for backtrace()... " >&6; }
+if ${ax_cv_proto_backtrace_type+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+ for ax_cv_proto_backtrace_type in size_t int none; do
+ if test "${ax_cv_proto_backtrace_type}" = none; then :
+ ax_cv_proto_backtrace_type= ; break
+fi
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+#include <execinfo.h>
+extern
+${ax_cv_proto_backtrace_type} backtrace(void **addrlist, ${ax_cv_proto_backtrace_type} len);
+char **backtrace_symbols(void *const *buffer, ${ax_cv_proto_backtrace_type} size);
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ done
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_proto_backtrace_type" >&5
+$as_echo "$ax_cv_proto_backtrace_type" >&6; }
+fi
+ if test x${ax_cv_proto_backtrace_type} != x; then :
+
+cat >>confdefs.h <<_ACEOF
+#define backtrace_size_t $ax_cv_proto_backtrace_type
+_ACEOF
+
+fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing backtrace" >&5
+$as_echo_n "checking for library containing backtrace... " >&6; }
+if ${ac_cv_search_backtrace+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char backtrace ();
+int
+main ()
+{
+return backtrace ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' execinfo; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_backtrace=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_backtrace+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_backtrace+:} false; then :
+
+else
+ ac_cv_search_backtrace=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_backtrace" >&5
+$as_echo "$ac_cv_search_backtrace" >&6; }
+ac_res=$ac_cv_search_backtrace
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+fi
+
+ if test x"${ax_cv_proto_backtrace_type}" != x -a x"$ac_cv_header_execinfo_h" = xyes -a x"$ac_cv_search_backtrace" != xno; then :
+
+$as_echo "#define HAVE_BACKTRACE 1" >>confdefs.h
+
+
+fi
+for ac_func in mallinfo pwrite
+do :
+ as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
+ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
+if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
+ cat >>confdefs.h <<_ACEOF
+#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
+_ACEOF
+
+fi
+done
+
+ac_fn_c_check_func "$LINENO" "getline" "ac_cv_func_getline"
+if test "x$ac_cv_func_getline" = xyes; then :
+ $as_echo "#define HAVE_GETLINE 1" >>confdefs.h
+
+else
+ case " $LIBOBJS " in
+ *" getline.$ac_objext "* ) ;;
+ *) LIBOBJS="$LIBOBJS getline.$ac_objext"
+ ;;
+esac
+
+fi
+
+
+# Sed expression to map a string onto a valid argument string part.
+asx_tr_arg="eval sed 'y%*+%pp%;s%[^-$as_cr_alnum]%-%g'"
+
+have_dce_uuid_c_bindings=no
+ have_util_linux_uuid_c_bindings=no
+ have_ossp_uuid_c_bindings=no
+ # Check whether --enable-util-linux-uuid was given.
+if test "${enable_util_linux_uuid+set}" = set; then :
+ enableval=$enable_util_linux_uuid;
+else
+ enable_util_linux_uuid=auto
+fi
+
+ # Check whether --enable-ossp-uuid was given.
+if test "${enable_ossp_uuid+set}" = set; then :
+ enableval=$enable_ossp_uuid;
+else
+ enable_ossp_uuid=auto
+fi
+
+ # Check whether --enable-dce-uuid was given.
+if test "${enable_dce_uuid+set}" = set; then :
+ enableval=$enable_dce_uuid;
+else
+ enable_dce_uuid=auto
+fi
+
+
+
+# Check whether --with-util-linux-uuid was given.
+if test "${with_util_linux_uuid+set}" = set; then :
+ withval=$with_util_linux_uuid; case $with_util_linux_uuid in #(
+ yes) :
+ enable_ossp_uuid=no enable_dce_uuid=no ;; #(
+ no) :
+ enable_util_linux_uuid=no ;; #(
+ /*) :
+ if test x${with_util_linux_uuid_root+set} != xset; then :
+ with_util_linux_uuid_root=$with_util_linux_uuid
+elif test x"${with_util_linux_uuid_root}" != x"${with_util_linux_uuid}"; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "inconsistent directories specified for --with-util-linux-uuid and --with-util-linux-uuid-root
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+ enable_ossp_uuid=no enable_dce_uuid=no ;; #(
+ *) :
+ ;;
+esac
+fi
+
+
+# Check whether --with-ossp-uuid was given.
+if test "${with_ossp_uuid+set}" = set; then :
+ withval=$with_ossp_uuid; case $with_ossp_uuid in #(
+ yes) :
+ enable_util_linux_uuid=no enable_dce_uuid=no ;; #(
+ no) :
+ enable_ossp_uuid=no ;; #(
+ /*) :
+ if test x${with_ossp_uuid_root+set} != xset; then :
+ with_ossp_uuid_root=$with_ossp_uuid
+elif test x"${with_ossp_uuid_root}" != x"${with_ossp_uuid}"; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "inconsistent directories specified for --with-ossp-uuid and --with-ossp-uuid-root
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+ enable_util_linux_uuid=no enable_dce_uuid=no ;; #(
+ *) :
+ ;;
+esac
+fi
+
+
+# Check whether --with-dce-uuid was given.
+if test "${with_dce_uuid+set}" = set; then :
+ withval=$with_dce_uuid; case $with_dce_uuid in #(
+ yes) :
+ enable_util_linux_uuid=no enable_ossp_uuid=no ;; #(
+ no) :
+ enable_dce_uuid=no ;; #(
+ /*) :
+ if test x${with_dce_uuid_root+set} != xset; then :
+ with_dce_uuid_root=$with_dce_uuid
+elif test x"${with_dce_uuid_root}" != x"${with_dce_uuid}"; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "inconsistent directories specified for --with-dce-uuid and --with-dce-uuid-root
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+ enable_util_linux_uuid=no enable_ossp_uuid=no ;; #(
+ *) :
+ ;;
+esac
+fi
+
+
+ if test x"$enable_util_linux_uuid" != xno; then :
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+
+ have_util_linux_uuid_c_bindings=yes
+
+# Check whether --with-util-linux-uuid-root was given.
+if test "${with_util_linux_uuid_root+set}" = set; then :
+ withval=$with_util_linux_uuid_root; UTIL_LINUX_UUIDROOT=$withval
+fi
+
+ if ${UTIL_LINUX_UUIDROOT+:} false; then :
+ if ${UTIL_LINUX_UUID_C_LIB+:} false; then :
+
+else
+ UTIL_LINUX_UUID_C_LIB="-L$UTIL_LINUX_UUIDROOT/lib"
+fi
+ if ${UTIL_LINUX_UUID_C_INCLUDE+:} false; then :
+
+else
+ UTIL_LINUX_UUID_C_INCLUDE="-I$UTIL_LINUX_UUIDROOT/include"
+fi
+fi
+
+# Check whether --with-util-linux-uuid-include was given.
+if test "${with_util_linux_uuid_include+set}" = set; then :
+ withval=$with_util_linux_uuid_include; UTIL_LINUX_UUID_C_INCLUDE="-I$withval"
+fi
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for uuid/uuid.h extra include path" >&5
+$as_echo_n "checking for uuid/uuid.h extra include path... " >&6; }
+ if ${acx_cv_c_include_uuid_uuid_h+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_include_search_uuid_uuid_h_SAVE="$CPPFLAGS"
+ while :; do
+ for ac_incdir in ''
+do :
+ if test -z "$ac_incdir"; then :
+ ac_res="none required"
+ CPPFLAGS="$UTIL_LINUX_UUID_C_INCLUDE $ac_include_search_uuid_uuid_h_SAVE"
+else
+ ac_res="-I$ac_incdir"
+ CPPFLAGS="$UTIL_LINUX_UUID_C_INCLUDE $ac_res $ac_include_search_uuid_uuid_h_SAVE"
+fi
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$ac_includes_default
+#include <uuid/uuid.h>
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ acx_cv_c_include_uuid_uuid_h=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ if ${acx_cv_c_include_uuid_uuid_h+:} false; then :
+ if test -z "$ac_incdir"; then :
+ acx_cv_c_include_uuid_uuid_h="$UTIL_LINUX_UUID_C_INCLUDE"
+else
+ acx_cv_c_include_uuid_uuid_h="$UTIL_LINUX_UUID_C_INCLUDE -I$ac_incdir"
+fi
+fi
+ if ${acx_cv_c_include_uuid_uuid_h+:} false; then :
+ break
+fi
+done
+ if ${acx_cv_c_include_uuid_uuid_h+:} false; then :
+ break
+fi
+
+ break
+ done
+ CPPFLAGS=$ac_include_search_uuid_uuid_h_SAVE
+fi
+
+ if ${acx_cv_c_include_uuid_uuid_h+:} false; then :
+ if test x"$acx_cv_c_include_uuid_uuid_h" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_c_include_uuid_uuid_h" >&5
+$as_echo "$acx_cv_c_include_uuid_uuid_h" >&6; }
+fi
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+fi
+ if ${acx_cv_c_include_uuid_uuid_h+:} false; then :
+ UTIL_LINUX_UUID_C_INCLUDE=`echo "$acx_cv_c_include_uuid_uuid_h" | sed -e 's/^ *//;s/ *$//'`
+else
+ have_util_linux_uuid_c_bindings=no;
+fi
+
+
+# Check whether --with-util-linux-uuid-lib was given.
+if test "${with_util_linux_uuid_lib+set}" = set; then :
+ withval=$with_util_linux_uuid_lib; UTIL_LINUX_UUID_C_LIB="-L$withval"
+fi
+
+ if test "x$have_util_linux_uuid_c_bindings" = xyes; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing uuid_generate" >&5
+$as_echo_n "checking for library containing uuid_generate... " >&6; }
+ if ${acx_cv_option_search_uuid_generate_c+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_option_func_search_save_LIBS=$LIBS
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char uuid_generate ();
+int
+main ()
+{
+return uuid_generate ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' uuid
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$UTIL_LINUX_UUID_C_LIB $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$UTIL_LINUX_UUID_C_LIB $ac_res $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_uuid_generate_c="$UTIL_LINUX_UUID_C_LIB"
+else
+ acx_cv_option_search_uuid_generate_c="$UTIL_LINUX_UUID_C_LIB -l$ac_lib"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_uuid_generate_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_uuid_generate_c+:} false; then :
+ break
+fi
+ for acx_libset in ""
+do :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char uuid_generate ();
+int
+main ()
+{
+return uuid_generate ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' uuid
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$UTIL_LINUX_UUID_C_LIB $acx_libset $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$UTIL_LINUX_UUID_C_LIB $ac_res $acx_libset $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_uuid_generate_c="$UTIL_LINUX_UUID_C_LIB $acx_libset"
+else
+ acx_cv_option_search_uuid_generate_c="$UTIL_LINUX_UUID_C_LIB -l$ac_lib $acx_libset"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_uuid_generate_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_uuid_generate_c+:} false; then :
+ break
+fi
+
+done
+ break
+ done
+ LIBS=$acx_option_func_search_save_LIBS
+fi
+
+ if ${acx_cv_option_search_uuid_generate_c+:} false; then :
+ if test x"$acx_cv_option_search_uuid_generate_c" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_option_search_uuid_generate_c" >&5
+$as_echo "$acx_cv_option_search_uuid_generate_c" >&6; }
+fi
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ have_util_linux_uuid_c_bindings=no
+
+fi
+
+ UTIL_LINUX_UUID_C_LIB=`echo "$acx_cv_option_search_uuid_generate_c" | sed -e 's/^ *//;s/ *$//'`
+
+fi
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+ if test x"$have_util_linux_uuid_c_bindings" = xyes; then :
+ acx_save_CPPFLAGS=$CPPFLAGS
+ CPPFLAGS="$CPPFLAGS $UTIL_LINUX_UUID_C_INCLUDE"
+ for ac_header in uuid/uuid.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "uuid/uuid.h" "ac_cv_header_uuid_uuid_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_uuid_uuid_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_UUID_UUID_H 1
+_ACEOF
+ ac_fn_c_check_decl "$LINENO" "uuid_generate" "ac_cv_have_decl_uuid_generate" "$ac_includes_default
+#include <uuid/uuid.h>
+"
+if test "x$ac_cv_have_decl_uuid_generate" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_UUID_GENERATE $ac_have_decl
+_ACEOF
+if test $ac_have_decl = 1; then :
+
+else
+ have_util_linux_uuid_c_bindings=no
+fi
+
+else
+ have_util_linux_uuid_c_bindings=no
+fi
+
+done
+
+ CPPFLAGS=$acx_save_CPPFLAGS
+fi
+else
+ have_util_linux_uuid_c_bindings=no
+fi
+ if test x"$enable_ossp_uuid" != xno -a x"$have_util_linux_uuid_c_bindings" = xno; then :
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+
+ have_ossp_uuid_c_bindings=yes
+
+# Check whether --with-ossp-uuid-root was given.
+if test "${with_ossp_uuid_root+set}" = set; then :
+ withval=$with_ossp_uuid_root; OSSP_UUIDROOT=$withval
+fi
+
+ if ${OSSP_UUIDROOT+:} false; then :
+ if ${OSSP_UUID_C_LIB+:} false; then :
+
+else
+ OSSP_UUID_C_LIB="-L$OSSP_UUIDROOT/lib"
+fi
+ if ${OSSP_UUID_C_INCLUDE+:} false; then :
+
+else
+ OSSP_UUID_C_INCLUDE="-I$OSSP_UUIDROOT/include"
+fi
+fi
+
+# Check whether --with-ossp-uuid-include was given.
+if test "${with_ossp_uuid_include+set}" = set; then :
+ withval=$with_ossp_uuid_include; OSSP_UUID_C_INCLUDE="-I$withval"
+fi
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for uuid.h extra include path" >&5
+$as_echo_n "checking for uuid.h extra include path... " >&6; }
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_include_search_uuid_h_SAVE="$CPPFLAGS"
+ while :; do
+ for ac_incdir in ''
+do :
+ if test -z "$ac_incdir"; then :
+ ac_res="none required"
+ CPPFLAGS="$OSSP_UUID_C_INCLUDE $ac_include_search_uuid_h_SAVE"
+else
+ ac_res="-I$ac_incdir"
+ CPPFLAGS="$OSSP_UUID_C_INCLUDE $ac_res $ac_include_search_uuid_h_SAVE"
+fi
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <uuid.h>
+$ac_includes_default
+
+#include <uuid.h>
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ acx_cv_c_include_uuid_h=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ if test -z "$ac_incdir"; then :
+ acx_cv_c_include_uuid_h="$OSSP_UUID_C_INCLUDE"
+else
+ acx_cv_c_include_uuid_h="$OSSP_UUID_C_INCLUDE -I$ac_incdir"
+fi
+fi
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ break
+fi
+done
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ break
+fi
+
+ break
+ done
+ CPPFLAGS=$ac_include_search_uuid_h_SAVE
+fi
+
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ if test x"$acx_cv_c_include_uuid_h" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_c_include_uuid_h" >&5
+$as_echo "$acx_cv_c_include_uuid_h" >&6; }
+fi
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+fi
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ OSSP_UUID_C_INCLUDE=`echo "$acx_cv_c_include_uuid_h" | sed -e 's/^ *//;s/ *$//'`
+else
+ have_ossp_uuid_c_bindings=no;
+fi
+
+
+# Check whether --with-ossp-uuid-lib was given.
+if test "${with_ossp_uuid_lib+set}" = set; then :
+ withval=$with_ossp_uuid_lib; OSSP_UUID_C_LIB="-L$withval"
+fi
+
+ if test "x$have_ossp_uuid_c_bindings" = xyes; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing uuid_create" >&5
+$as_echo_n "checking for library containing uuid_create... " >&6; }
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_option_func_search_save_LIBS=$LIBS
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char uuid_create ();
+int
+main ()
+{
+return uuid_create ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' ossp-uuid uuid
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$OSSP_UUID_C_LIB $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$OSSP_UUID_C_LIB $ac_res $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_uuid_create_c="$OSSP_UUID_C_LIB"
+else
+ acx_cv_option_search_uuid_create_c="$OSSP_UUID_C_LIB -l$ac_lib"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ break
+fi
+ for acx_libset in ""
+do :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char uuid_create ();
+int
+main ()
+{
+return uuid_create ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' ossp-uuid uuid
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$OSSP_UUID_C_LIB $acx_libset $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$OSSP_UUID_C_LIB $ac_res $acx_libset $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_uuid_create_c="$OSSP_UUID_C_LIB $acx_libset"
+else
+ acx_cv_option_search_uuid_create_c="$OSSP_UUID_C_LIB -l$ac_lib $acx_libset"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ break
+fi
+
+done
+ break
+ done
+ LIBS=$acx_option_func_search_save_LIBS
+fi
+
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ if test x"$acx_cv_option_search_uuid_create_c" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_option_search_uuid_create_c" >&5
+$as_echo "$acx_cv_option_search_uuid_create_c" >&6; }
+fi
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ have_ossp_uuid_c_bindings=no
+
+fi
+
+ OSSP_UUID_C_LIB=`echo "$acx_cv_option_search_uuid_create_c" | sed -e 's/^ *//;s/ *$//'`
+
+fi
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+ if test x"$have_ossp_uuid_c_bindings" = xyes; then :
+ acx_save_CPPFLAGS=$CPPFLAGS
+ CPPFLAGS="${CPPFLAGS+$CPPFLAGS }$OSSP_UUID_C_INCLUDE"
+ for ac_header in uuid.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "uuid.h" "ac_cv_header_uuid_h" "#include <uuid.h>
+$ac_includes_default
+"
+if test "x$ac_cv_header_uuid_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_UUID_H 1
+_ACEOF
+ ac_fn_c_check_decl "$LINENO" "uuid_create" "ac_cv_have_decl_uuid_create" "#include <uuid.h>
+$ac_includes_default
+"
+if test "x$ac_cv_have_decl_uuid_create" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_UUID_CREATE $ac_have_decl
+_ACEOF
+if test $ac_have_decl = 1; then :
+ ac_fn_c_check_decl "$LINENO" "UUID_MAKE_V5" "ac_cv_have_decl_UUID_MAKE_V5" "#include <uuid.h>
+$ac_includes_default
+"
+if test "x$ac_cv_have_decl_UUID_MAKE_V5" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_UUID_MAKE_V5 $ac_have_decl
+_ACEOF
+if test $ac_have_decl = 1; then :
+
+else
+ have_ossp_uuid_c_bindings=no
+fi
+
+else
+ have_ossp_uuid_c_bindings=no
+fi
+
+else
+ have_ossp_uuid_c_bindings=no
+fi
+
+done
+
+ CPPFLAGS=$acx_save_CPPFLAGS
+fi
+else
+ have_ossp_uuid_c_bindings=no
+fi
+ # check for DCE uuid_create if util-linux and OSSP variants cannot be found
+ if test x"$enable_dce_uuid" != xno -a x"$have_util_linux_uuid_c_bindings$have_ossp_uuid_c_bindings" = xnono; then :
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+
+ have_dce_uuid_c_bindings=yes
+
+# Check whether --with-dce-uuid-root was given.
+if test "${with_dce_uuid_root+set}" = set; then :
+ withval=$with_dce_uuid_root; DCE_UUIDROOT=$withval
+fi
+
+ if ${DCE_UUIDROOT+:} false; then :
+ if ${DCE_UUID_C_LIB+:} false; then :
+
+else
+ DCE_UUID_C_LIB="-L$DCE_UUIDROOT/lib"
+fi
+ if ${DCE_UUID_C_INCLUDE+:} false; then :
+
+else
+ DCE_UUID_C_INCLUDE="-I$DCE_UUIDROOT/include"
+fi
+fi
+
+# Check whether --with-dce-uuid-include was given.
+if test "${with_dce_uuid_include+set}" = set; then :
+ withval=$with_dce_uuid_include; DCE_UUID_C_INCLUDE="-I$withval"
+fi
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for uuid.h extra include path" >&5
+$as_echo_n "checking for uuid.h extra include path... " >&6; }
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_include_search_uuid_h_SAVE="$CPPFLAGS"
+ while :; do
+ for ac_incdir in ''
+do :
+ if test -z "$ac_incdir"; then :
+ ac_res="none required"
+ CPPFLAGS="$DCE_UUID_C_INCLUDE $ac_include_search_uuid_h_SAVE"
+else
+ ac_res="-I$ac_incdir"
+ CPPFLAGS="$DCE_UUID_C_INCLUDE $ac_res $ac_include_search_uuid_h_SAVE"
+fi
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$ac_includes_default
+#include <uuid.h>
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ acx_cv_c_include_uuid_h=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ if test -z "$ac_incdir"; then :
+ acx_cv_c_include_uuid_h="$DCE_UUID_C_INCLUDE"
+else
+ acx_cv_c_include_uuid_h="$DCE_UUID_C_INCLUDE -I$ac_incdir"
+fi
+fi
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ break
+fi
+done
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ break
+fi
+
+ break
+ done
+ CPPFLAGS=$ac_include_search_uuid_h_SAVE
+fi
+
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ if test x"$acx_cv_c_include_uuid_h" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_c_include_uuid_h" >&5
+$as_echo "$acx_cv_c_include_uuid_h" >&6; }
+fi
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+fi
+ if ${acx_cv_c_include_uuid_h+:} false; then :
+ DCE_UUID_C_INCLUDE=`echo "$acx_cv_c_include_uuid_h" | sed -e 's/^ *//;s/ *$//'`
+else
+ have_dce_uuid_c_bindings=no;
+fi
+
+
+# Check whether --with-dce-uuid-lib was given.
+if test "${with_dce_uuid_lib+set}" = set; then :
+ withval=$with_dce_uuid_lib; DCE_UUID_C_LIB="-L$withval"
+fi
+
+ if test "x$have_dce_uuid_c_bindings" = xyes; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing uuid_create" >&5
+$as_echo_n "checking for library containing uuid_create... " >&6; }
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_option_func_search_save_LIBS=$LIBS
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char uuid_create ();
+int
+main ()
+{
+return uuid_create ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in ''
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$DCE_UUID_C_LIB $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$DCE_UUID_C_LIB $ac_res $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_uuid_create_c="$DCE_UUID_C_LIB"
+else
+ acx_cv_option_search_uuid_create_c="$DCE_UUID_C_LIB -l$ac_lib"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ break
+fi
+ for acx_libset in ""
+do :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char uuid_create ();
+int
+main ()
+{
+return uuid_create ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in ''
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$DCE_UUID_C_LIB $acx_libset $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$DCE_UUID_C_LIB $ac_res $acx_libset $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_uuid_create_c="$DCE_UUID_C_LIB $acx_libset"
+else
+ acx_cv_option_search_uuid_create_c="$DCE_UUID_C_LIB -l$ac_lib $acx_libset"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ break
+fi
+
+done
+ break
+ done
+ LIBS=$acx_option_func_search_save_LIBS
+fi
+
+ if ${acx_cv_option_search_uuid_create_c+:} false; then :
+ if test x"$acx_cv_option_search_uuid_create_c" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_option_search_uuid_create_c" >&5
+$as_echo "$acx_cv_option_search_uuid_create_c" >&6; }
+fi
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ have_dce_uuid_c_bindings=no
+
+fi
+
+ DCE_UUID_C_LIB=`echo "$acx_cv_option_search_uuid_create_c" | sed -e 's/^ *//;s/ *$//'`
+
+fi
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+ if test x"$have_dce_uuid_c_bindings" = xyes; then :
+ acx_save_CPPFLAGS=$CPPFLAGS
+ CPPFLAGS="$CPPFLAGS $DCE_UUID_C_INCLUDE"
+ for ac_header in uuid.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "uuid.h" "ac_cv_header_uuid_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_uuid_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_UUID_H 1
+_ACEOF
+ ac_fn_c_check_decl "$LINENO" "uuid_create" "ac_cv_have_decl_uuid_create" "$ac_includes_default
+#include <uuid.h>
+"
+if test "x$ac_cv_have_decl_uuid_create" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_UUID_CREATE $ac_have_decl
+_ACEOF
+if test $ac_have_decl = 1; then :
+ have_dce_uuid_c_bindings=yes
+else
+ have_dce_uuid_c_bindings=no
+fi
+
+else
+ have_dce_uuid_c_bindings=yes
+fi
+
+done
+
+ CPPFLAGS=$acx_save_CPPFLAGS
+fi
+fi
+
+if test x"$have_util_linux_uuid_c_bindings" = xyes; then :
+ UUID_C_INCLUDE=$UTIL_LINUX_UUID_C_INCLUDE
+ UUID_C_LIB=$UTIL_LINUX_UUID_C_LIB
+elif test x"$have_ossp_uuid_c_bindings" = xyes; then :
+ UUID_C_INCLUDE=$OSSP_UUID_C_INCLUDE
+ UUID_C_LIB=$OSSP_UUID_C_LIB
+elif test x"$have_dce_uuid_c_bindings" = xyes; then :
+ UUID_C_INCLUDE=$DCE_UUID_C_INCLUDE
+ UUID_C_LIB=$DCE_UUID_C_LIB
+fi
+
+
+as_fn_append CPPFLAGS " $UUID_C_INCLUDE"
+LIBS="$UUID_C_LIB $LIBS"
+ac_fn_c_check_decl "$LINENO" "isnan" "ac_cv_have_decl_isnan" "$ac_includes_default
+#include <math.h>
+"
+if test "x$ac_cv_have_decl_isnan" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_ISNAN $ac_have_decl
+_ACEOF
+
+ac_fn_c_check_decl "$LINENO" "_SC_LARGE_PAGESIZE" "ac_cv_have_decl__SC_LARGE_PAGESIZE" "$ac_includes_default
+#include <limits.h>
+#include <unistd.h>
+"
+if test "x$ac_cv_have_decl__SC_LARGE_PAGESIZE" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL__SC_LARGE_PAGESIZE $ac_have_decl
+_ACEOF
+ac_fn_c_check_decl "$LINENO" "PAGESIZE" "ac_cv_have_decl_PAGESIZE" "$ac_includes_default
+#include <limits.h>
+#include <unistd.h>
+"
+if test "x$ac_cv_have_decl_PAGESIZE" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_PAGESIZE $ac_have_decl
+_ACEOF
+ac_fn_c_check_decl "$LINENO" "PAGE_SIZE" "ac_cv_have_decl_PAGE_SIZE" "$ac_includes_default
+#include <limits.h>
+#include <unistd.h>
+"
+if test "x$ac_cv_have_decl_PAGE_SIZE" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_PAGE_SIZE $ac_have_decl
+_ACEOF
+ac_fn_c_check_decl "$LINENO" "_SC_PAGE_SIZE" "ac_cv_have_decl__SC_PAGE_SIZE" "$ac_includes_default
+#include <limits.h>
+#include <unistd.h>
+"
+if test "x$ac_cv_have_decl__SC_PAGE_SIZE" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL__SC_PAGE_SIZE $ac_have_decl
+_ACEOF
+ac_fn_c_check_decl "$LINENO" "_SC_PAGESIZE" "ac_cv_have_decl__SC_PAGESIZE" "$ac_includes_default
+#include <limits.h>
+#include <unistd.h>
+"
+if test "x$ac_cv_have_decl__SC_PAGESIZE" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL__SC_PAGESIZE $ac_have_decl
+_ACEOF
+ac_fn_c_check_decl "$LINENO" "_PC_REC_XFER_ALIGN" "ac_cv_have_decl__PC_REC_XFER_ALIGN" "$ac_includes_default
+#include <limits.h>
+#include <unistd.h>
+"
+if test "x$ac_cv_have_decl__PC_REC_XFER_ALIGN" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL__PC_REC_XFER_ALIGN $ac_have_decl
+_ACEOF
+ac_fn_c_check_decl "$LINENO" "POSIX_REC_XFER_ALIGN" "ac_cv_have_decl_POSIX_REC_XFER_ALIGN" "$ac_includes_default
+#include <limits.h>
+#include <unistd.h>
+"
+if test "x$ac_cv_have_decl_POSIX_REC_XFER_ALIGN" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_POSIX_REC_XFER_ALIGN $ac_have_decl
+_ACEOF
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing floor" >&5
+$as_echo_n "checking for library containing floor... " >&6; }
+if ${ac_cv_search_floor+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char floor ();
+int
+main ()
+{
+return floor ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' m; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_floor=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_floor+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_floor+:} false; then :
+
+else
+ ac_cv_search_floor=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_floor" >&5
+$as_echo "$ac_cv_search_floor" >&6; }
+ac_res=$ac_cv_search_floor
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+fi
+
+
+for builtin in __builtin_ctz
+do :
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether __builtin_ctz is declared" >&5
+$as_echo_n "checking whether __builtin_ctz is declared... " >&6; }
+if ${acx_cv_have_decl___builtin_ctz+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+int
+main ()
+{
+ unsigned lbz = __builtin_ctz(56U)
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ acx_cv_have_decl___builtin_ctz=yes
+else
+ acx_cv_have_decl___builtin_ctz=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_have_decl___builtin_ctz" >&5
+$as_echo "$acx_cv_have_decl___builtin_ctz" >&6; }
+ if test "x$acx_cv_have_decl___builtin_ctz" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL___BUILTIN_CTZ 1
+_ACEOF
+
+ break
+else
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL___BUILTIN_CTZ 0
+_ACEOF
+
+fi
+done
+
+
+
+# ----------------------------------------------------------------------
+# Checks for multithreaded compiling + linking
+
+# Check whether --with-threads was given.
+if test "${with_threads+set}" = set; then :
+ withval=$with_threads;
+else
+ with_threads=yes
+fi
+
+THREADS_INCLUDE=''
+THREADS_LIBS=''
+case $with_threads in #(
+ no) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking multithreading" >&5
+$as_echo_n "checking multithreading... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; } ;; #(
+ yes) :
+
+
+
+
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+ax_pthread_ok=no
+
+# We used to check for pthread.h first, but this fails if pthread.h
+# requires special compiler flags (e.g. on Tru64 or Sequent).
+# It gets checked for in the link test anyway.
+
+# First of all, check if the user has set any of the PTHREAD_LIBS,
+# etcetera environment variables, and if threads linking works using
+# them:
+if test "x$PTHREAD_CFLAGS$PTHREAD_LIBS" != "x"; then
+ ax_pthread_save_CC="$CC"
+ ax_pthread_save_CFLAGS="$CFLAGS"
+ ax_pthread_save_LIBS="$LIBS"
+ if test "x$PTHREAD_CC" != "x"; then :
+ CC="$PTHREAD_CC"
+fi
+ if test "x$PTHREAD_CXX" != "x"; then :
+ CXX="$PTHREAD_CXX"
+fi
+ CFLAGS="$CFLAGS $PTHREAD_CFLAGS"
+ LIBS="$PTHREAD_LIBS $LIBS"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_join using $CC $PTHREAD_CFLAGS $PTHREAD_LIBS" >&5
+$as_echo_n "checking for pthread_join using $CC $PTHREAD_CFLAGS $PTHREAD_LIBS... " >&6; }
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char pthread_join ();
+int
+main ()
+{
+return pthread_join ();
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ax_pthread_ok=yes
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_pthread_ok" >&5
+$as_echo "$ax_pthread_ok" >&6; }
+ if test "x$ax_pthread_ok" = "xno"; then
+ PTHREAD_LIBS=""
+ PTHREAD_CFLAGS=""
+ fi
+ CC="$ax_pthread_save_CC"
+ CFLAGS="$ax_pthread_save_CFLAGS"
+ LIBS="$ax_pthread_save_LIBS"
+fi
+
+# We must check for the threads library under a number of different
+# names; the ordering is very important because some systems
+# (e.g. DEC) have both -lpthread and -lpthreads, where one of the
+# libraries is broken (non-POSIX).
+
+# Create a list of thread flags to try. Items with a "," contain both
+# C compiler flags (before ",") and linker flags (after ","). Other items
+# starting with a "-" are C compiler flags, and remaining items are
+# library names, except for "none" which indicates that we try without
+# any flags at all, and "pthread-config" which is a program returning
+# the flags for the Pth emulation library.
+
+ax_pthread_flags="pthreads none -Kthread -pthread -pthreads -mthreads pthread --thread-safe -mt pthread-config"
+
+# The ordering *is* (sometimes) important. Some notes on the
+# individual items follow:
+
+# pthreads: AIX (must check this before -lpthread)
+# none: in case threads are in libc; should be tried before -Kthread and
+# other compiler flags to prevent continual compiler warnings
+# -Kthread: Sequent (threads in libc, but -Kthread needed for pthread.h)
+# -pthread: Linux/gcc (kernel threads), BSD/gcc (userland threads), Tru64
+# (Note: HP C rejects this with "bad form for `-t' option")
+# -pthreads: Solaris/gcc (Note: HP C also rejects)
+# -mt: Sun Workshop C (may only link SunOS threads [-lthread], but it
+# doesn't hurt to check since this sometimes defines pthreads and
+# -D_REENTRANT too), HP C (must be checked before -lpthread, which
+# is present but should not be used directly; and before -mthreads,
+# because the compiler interprets this as "-mt" + "-hreads")
+# -mthreads: Mingw32/gcc, Lynx/gcc
+# pthread: Linux, etcetera
+# --thread-safe: KAI C++
+# pthread-config: use pthread-config program (for GNU Pth library)
+
+case $host_os in
+
+ freebsd*)
+
+ # -kthread: FreeBSD kernel threads (preferred to -pthread since SMP-able)
+ # lthread: LinuxThreads port on FreeBSD (also preferred to -pthread)
+
+ ax_pthread_flags="-kthread lthread $ax_pthread_flags"
+ ;;
+
+ hpux*)
+
+ # From the cc(1) man page: "[-mt] Sets various -D flags to enable
+ # multi-threading and also sets -lpthread."
+
+ ax_pthread_flags="-mt -pthread pthread $ax_pthread_flags"
+ ;;
+
+ openedition*)
+
+ # IBM z/OS requires a feature-test macro to be defined in order to
+ # enable POSIX threads at all, so give the user a hint if this is
+ # not set. (We don't define these ourselves, as they can affect
+ # other portions of the system API in unpredictable ways.)
+
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+# if !defined(_OPEN_THREADS) && !defined(_UNIX03_THREADS)
+ AX_PTHREAD_ZOS_MISSING
+# endif
+
+_ACEOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ $EGREP "AX_PTHREAD_ZOS_MISSING" >/dev/null 2>&1; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: IBM z/OS requires -D_OPEN_THREADS or -D_UNIX03_THREADS to enable pthreads support." >&5
+$as_echo "$as_me: WARNING: IBM z/OS requires -D_OPEN_THREADS or -D_UNIX03_THREADS to enable pthreads support." >&2;}
+fi
+rm -f conftest*
+
+ ;;
+
+ solaris*)
+
+ # On Solaris (at least, for some versions), libc contains stubbed
+ # (non-functional) versions of the pthreads routines, so link-based
+ # tests will erroneously succeed. (N.B.: The stubs are missing
+ # pthread_cleanup_push, or rather a function called by this macro,
+ # so we could check for that, but who knows whether they'll stub
+ # that too in a future libc.) So we'll check first for the
+ # standard Solaris way of linking pthreads (-mt -lpthread).
+
+ ax_pthread_flags="-mt,-lpthread pthread $ax_pthread_flags"
+ ;;
+esac
+
+# Are we compiling with Clang?
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC is Clang" >&5
+$as_echo_n "checking whether $CC is Clang... " >&6; }
+if ${ax_cv_PTHREAD_CLANG+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ax_cv_PTHREAD_CLANG=no
+ # Note that Autoconf sets GCC=yes for Clang as well as GCC
+ if test "x$GCC" = "xyes"; then
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+/* Note: Clang 2.7 lacks __clang_[a-z]+__ */
+# if defined(__clang__) && defined(__llvm__)
+ AX_PTHREAD_CC_IS_CLANG
+# endif
+
+_ACEOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ $EGREP "AX_PTHREAD_CC_IS_CLANG" >/dev/null 2>&1; then :
+ ax_cv_PTHREAD_CLANG=yes
+fi
+rm -f conftest*
+
+ fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_PTHREAD_CLANG" >&5
+$as_echo "$ax_cv_PTHREAD_CLANG" >&6; }
+ax_pthread_clang="$ax_cv_PTHREAD_CLANG"
+
+
+# GCC generally uses -pthread, or -pthreads on some platforms (e.g. SPARC)
+
+# Note that for GCC and Clang -pthread generally implies -lpthread,
+# except when -nostdlib is passed.
+# This is problematic using libtool to build C++ shared libraries with pthread:
+# [1] https://gcc.gnu.org/bugzilla/show_bug.cgi?id=25460
+# [2] https://bugzilla.redhat.com/show_bug.cgi?id=661333
+# [3] https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=468555
+# To solve this, first try -pthread together with -lpthread for GCC
+
+if test "x$GCC" = "xyes"; then :
+ ax_pthread_flags="-pthread,-lpthread -pthread -pthreads $ax_pthread_flags"
+fi
+
+# Clang takes -pthread (never supported any other flag), but we'll try with -lpthread first
+
+if test "x$ax_pthread_clang" = "xyes"; then :
+ ax_pthread_flags="-pthread,-lpthread -pthread"
+fi
+
+
+# The presence of a feature test macro requesting re-entrant function
+# definitions is, on some systems, a strong hint that pthreads support is
+# correctly enabled
+
+case $host_os in
+ darwin* | hpux* | linux* | osf* | solaris*)
+ ax_pthread_check_macro="_REENTRANT"
+ ;;
+
+ aix*)
+ ax_pthread_check_macro="_THREAD_SAFE"
+ ;;
+
+ *)
+ ax_pthread_check_macro="--"
+ ;;
+esac
+if test "x$ax_pthread_check_macro" = "x--"; then :
+ ax_pthread_check_cond=0
+else
+ ax_pthread_check_cond="!defined($ax_pthread_check_macro)"
+fi
+
+
+if test "x$ax_pthread_ok" = "xno"; then
+for ax_pthread_try_flag in $ax_pthread_flags; do
+
+ case $ax_pthread_try_flag in
+ none)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pthreads work without any flags" >&5
+$as_echo_n "checking whether pthreads work without any flags... " >&6; }
+ ;;
+
+ *,*)
+ PTHREAD_CFLAGS=`echo $ax_pthread_try_flag | sed "s/^\(.*\),\(.*\)$/\1/"`
+ PTHREAD_LIBS=`echo $ax_pthread_try_flag | sed "s/^\(.*\),\(.*\)$/\2/"`
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pthreads work with \"$PTHREAD_CFLAGS\" and \"$PTHREAD_LIBS\"" >&5
+$as_echo_n "checking whether pthreads work with \"$PTHREAD_CFLAGS\" and \"$PTHREAD_LIBS\"... " >&6; }
+ ;;
+
+ -*)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pthreads work with $ax_pthread_try_flag" >&5
+$as_echo_n "checking whether pthreads work with $ax_pthread_try_flag... " >&6; }
+ PTHREAD_CFLAGS="$ax_pthread_try_flag"
+ ;;
+
+ pthread-config)
+ # Extract the first word of "pthread-config", so it can be a program name with args.
+set dummy pthread-config; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_ax_pthread_config+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$ax_pthread_config"; then
+ ac_cv_prog_ax_pthread_config="$ax_pthread_config" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_ax_pthread_config="yes"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+ test -z "$ac_cv_prog_ax_pthread_config" && ac_cv_prog_ax_pthread_config="no"
+fi
+fi
+ax_pthread_config=$ac_cv_prog_ax_pthread_config
+if test -n "$ax_pthread_config"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_pthread_config" >&5
+$as_echo "$ax_pthread_config" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ if test "x$ax_pthread_config" = "xno"; then :
+ continue
+fi
+ PTHREAD_CFLAGS="`pthread-config --cflags`"
+ PTHREAD_LIBS="`pthread-config --ldflags` `pthread-config --libs`"
+ ;;
+
+ *)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for the pthreads library -l$ax_pthread_try_flag" >&5
+$as_echo_n "checking for the pthreads library -l$ax_pthread_try_flag... " >&6; }
+ PTHREAD_LIBS="-l$ax_pthread_try_flag"
+ ;;
+ esac
+
+ ax_pthread_save_CFLAGS="$CFLAGS"
+ ax_pthread_save_LIBS="$LIBS"
+ CFLAGS="$CFLAGS $PTHREAD_CFLAGS"
+ LIBS="$PTHREAD_LIBS $LIBS"
+
+ # Check for various functions. We must include pthread.h,
+ # since some functions may be macros. (On the Sequent, we
+ # need a special flag -Kthread to make this header compile.)
+ # We check for pthread_join because it is in -lpthread on IRIX
+ # while pthread_create is in libc. We check for pthread_attr_init
+ # due to DEC craziness with -lpthreads. We check for
+ # pthread_cleanup_push because it is one of the few pthread
+ # functions on Solaris that doesn't have a non-functional libc stub.
+ # We try pthread_create on general principles.
+
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <pthread.h>
+# if $ax_pthread_check_cond
+# error "$ax_pthread_check_macro must be defined"
+# endif
+ static void *some_global = NULL;
+ static void routine(void *a)
+ {
+ /* To avoid any unused-parameter or
+ unused-but-set-parameter warning. */
+ some_global = a;
+ }
+ static void *start_routine(void *a) { return a; }
+int
+main ()
+{
+pthread_t th; pthread_attr_t attr;
+ pthread_create(&th, 0, start_routine, 0);
+ pthread_join(th, 0);
+ pthread_attr_init(&attr);
+ pthread_cleanup_push(routine, 0);
+ pthread_cleanup_pop(0) /* ; */
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ax_pthread_ok=yes
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+
+ CFLAGS="$ax_pthread_save_CFLAGS"
+ LIBS="$ax_pthread_save_LIBS"
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_pthread_ok" >&5
+$as_echo "$ax_pthread_ok" >&6; }
+ if test "x$ax_pthread_ok" = "xyes"; then :
+ break
+fi
+
+ PTHREAD_LIBS=""
+ PTHREAD_CFLAGS=""
+done
+fi
+
+
+# Clang needs special handling, because older versions handle the -pthread
+# option in a rather... idiosyncratic way
+
+if test "x$ax_pthread_clang" = "xyes"; then
+
+ # Clang takes -pthread; it has never supported any other flag
+
+ # (Note 1: This will need to be revisited if a system that Clang
+ # supports has POSIX threads in a separate library. This tends not
+ # to be the way of modern systems, but it's conceivable.)
+
+ # (Note 2: On some systems, notably Darwin, -pthread is not needed
+ # to get POSIX threads support; the API is always present and
+ # active. We could reasonably leave PTHREAD_CFLAGS empty. But
+ # -pthread does define _REENTRANT, and while the Darwin headers
+ # ignore this macro, third-party headers might not.)
+
+ # However, older versions of Clang make a point of warning the user
+ # that, in an invocation where only linking and no compilation is
+ # taking place, the -pthread option has no effect ("argument unused
+ # during compilation"). They expect -pthread to be passed in only
+ # when source code is being compiled.
+ #
+ # Problem is, this is at odds with the way Automake and most other
+ # C build frameworks function, which is that the same flags used in
+ # compilation (CFLAGS) are also used in linking. Many systems
+ # supported by AX_PTHREAD require exactly this for POSIX threads
+ # support, and in fact it is often not straightforward to specify a
+ # flag that is used only in the compilation phase and not in
+ # linking. Such a scenario is extremely rare in practice.
+ #
+ # Even though use of the -pthread flag in linking would only print
+ # a warning, this can be a nuisance for well-run software projects
+ # that build with -Werror. So if the active version of Clang has
+ # this misfeature, we search for an option to squash it.
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether Clang needs flag to prevent \"argument unused\" warning when linking with -pthread" >&5
+$as_echo_n "checking whether Clang needs flag to prevent \"argument unused\" warning when linking with -pthread... " >&6; }
+if ${ax_cv_PTHREAD_CLANG_NO_WARN_FLAG+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ax_cv_PTHREAD_CLANG_NO_WARN_FLAG=unknown
+ # Create an alternate version of $ac_link that compiles and
+ # links in two steps (.c -> .o, .o -> exe) instead of one
+ # (.c -> exe), because the warning occurs only in the second
+ # step
+ ax_pthread_save_ac_link="$ac_link"
+ ax_pthread_sed='s/conftest\.\$ac_ext/conftest.$ac_objext/g'
+ ax_pthread_link_step=`$as_echo "$ac_link" | sed "$ax_pthread_sed"`
+ ax_pthread_2step_ac_link="($ac_compile) && (echo ==== >&5) && ($ax_pthread_link_step)"
+ ax_pthread_save_CFLAGS="$CFLAGS"
+ for ax_pthread_try in '' -Qunused-arguments -Wno-unused-command-line-argument unknown; do
+ if test "x$ax_pthread_try" = "xunknown"; then :
+ break
+fi
+ CFLAGS="-Werror -Wunknown-warning-option $ax_pthread_try -pthread $ax_pthread_save_CFLAGS"
+ ac_link="$ax_pthread_save_ac_link"
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+int main(void){return 0;}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ac_link="$ax_pthread_2step_ac_link"
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+int main(void){return 0;}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ break
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ done
+ ac_link="$ax_pthread_save_ac_link"
+ CFLAGS="$ax_pthread_save_CFLAGS"
+ if test "x$ax_pthread_try" = "x"; then :
+ ax_pthread_try=no
+fi
+ ax_cv_PTHREAD_CLANG_NO_WARN_FLAG="$ax_pthread_try"
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_PTHREAD_CLANG_NO_WARN_FLAG" >&5
+$as_echo "$ax_cv_PTHREAD_CLANG_NO_WARN_FLAG" >&6; }
+
+ case "$ax_cv_PTHREAD_CLANG_NO_WARN_FLAG" in
+ no | unknown) ;;
+ *) PTHREAD_CFLAGS="$ax_cv_PTHREAD_CLANG_NO_WARN_FLAG $PTHREAD_CFLAGS" ;;
+ esac
+
+fi # $ax_pthread_clang = yes
+
+
+
+# Various other checks:
+if test "x$ax_pthread_ok" = "xyes"; then
+ ax_pthread_save_CFLAGS="$CFLAGS"
+ ax_pthread_save_LIBS="$LIBS"
+ CFLAGS="$CFLAGS $PTHREAD_CFLAGS"
+ LIBS="$PTHREAD_LIBS $LIBS"
+
+ # Detect AIX lossage: JOINABLE attribute is called UNDETACHED.
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for joinable pthread attribute" >&5
+$as_echo_n "checking for joinable pthread attribute... " >&6; }
+if ${ax_cv_PTHREAD_JOINABLE_ATTR+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ax_cv_PTHREAD_JOINABLE_ATTR=unknown
+ for ax_pthread_attr in PTHREAD_CREATE_JOINABLE PTHREAD_CREATE_UNDETACHED; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <pthread.h>
+int
+main ()
+{
+int attr = $ax_pthread_attr; return attr /* ; */
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ax_cv_PTHREAD_JOINABLE_ATTR=$ax_pthread_attr; break
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ done
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_PTHREAD_JOINABLE_ATTR" >&5
+$as_echo "$ax_cv_PTHREAD_JOINABLE_ATTR" >&6; }
+ if test "x$ax_cv_PTHREAD_JOINABLE_ATTR" != "xunknown" && \
+ test "x$ax_cv_PTHREAD_JOINABLE_ATTR" != "xPTHREAD_CREATE_JOINABLE" && \
+ test "x$ax_pthread_joinable_attr_defined" != "xyes"; then :
+
+cat >>confdefs.h <<_ACEOF
+#define PTHREAD_CREATE_JOINABLE $ax_cv_PTHREAD_JOINABLE_ATTR
+_ACEOF
+
+ ax_pthread_joinable_attr_defined=yes
+
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether more special flags are required for pthreads" >&5
+$as_echo_n "checking whether more special flags are required for pthreads... " >&6; }
+if ${ax_cv_PTHREAD_SPECIAL_FLAGS+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ax_cv_PTHREAD_SPECIAL_FLAGS=no
+ case $host_os in
+ solaris*)
+ ax_cv_PTHREAD_SPECIAL_FLAGS="-D_POSIX_PTHREAD_SEMANTICS"
+ ;;
+ esac
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_PTHREAD_SPECIAL_FLAGS" >&5
+$as_echo "$ax_cv_PTHREAD_SPECIAL_FLAGS" >&6; }
+ if test "x$ax_cv_PTHREAD_SPECIAL_FLAGS" != "xno" && \
+ test "x$ax_pthread_special_flags_added" != "xyes"; then :
+ PTHREAD_CFLAGS="$ax_cv_PTHREAD_SPECIAL_FLAGS $PTHREAD_CFLAGS"
+ ax_pthread_special_flags_added=yes
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for PTHREAD_PRIO_INHERIT" >&5
+$as_echo_n "checking for PTHREAD_PRIO_INHERIT... " >&6; }
+if ${ax_cv_PTHREAD_PRIO_INHERIT+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <pthread.h>
+int
+main ()
+{
+int i = PTHREAD_PRIO_INHERIT;
+ return i;
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ax_cv_PTHREAD_PRIO_INHERIT=yes
+else
+ ax_cv_PTHREAD_PRIO_INHERIT=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_PTHREAD_PRIO_INHERIT" >&5
+$as_echo "$ax_cv_PTHREAD_PRIO_INHERIT" >&6; }
+ if test "x$ax_cv_PTHREAD_PRIO_INHERIT" = "xyes" && \
+ test "x$ax_pthread_prio_inherit_defined" != "xyes"; then :
+
+$as_echo "#define HAVE_PTHREAD_PRIO_INHERIT 1" >>confdefs.h
+
+ ax_pthread_prio_inherit_defined=yes
+
+fi
+
+ CFLAGS="$ax_pthread_save_CFLAGS"
+ LIBS="$ax_pthread_save_LIBS"
+
+ # More AIX lossage: compile with *_r variant
+ if test "x$GCC" != "xyes"; then
+ case $host_os in
+ aix*)
+ case "x/$CC" in #(
+ x*/c89|x*/c89_128|x*/c99|x*/c99_128|x*/cc|x*/cc128|x*/xlc|x*/xlc_v6|x*/xlc128|x*/xlc128_v6) :
+ #handle absolute path differently from PATH based program lookup
+ case "x$CC" in #(
+ x/*) :
+
+ if as_fn_executable_p ${CC}_r; then :
+ PTHREAD_CC="${CC}_r"
+fi
+ if test "x${CXX}" != "x"; then :
+ if as_fn_executable_p ${CXX}_r; then :
+ PTHREAD_CXX="${CXX}_r"
+fi
+fi
+ ;; #(
+ *) :
+
+ for ac_prog in ${CC}_r
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_PTHREAD_CC+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$PTHREAD_CC"; then
+ ac_cv_prog_PTHREAD_CC="$PTHREAD_CC" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_PTHREAD_CC="$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+PTHREAD_CC=$ac_cv_prog_PTHREAD_CC
+if test -n "$PTHREAD_CC"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PTHREAD_CC" >&5
+$as_echo "$PTHREAD_CC" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$PTHREAD_CC" && break
+done
+test -n "$PTHREAD_CC" || PTHREAD_CC="$CC"
+
+ if test "x${CXX}" != "x"; then :
+ for ac_prog in ${CXX}_r
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_PTHREAD_CXX+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$PTHREAD_CXX"; then
+ ac_cv_prog_PTHREAD_CXX="$PTHREAD_CXX" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_PTHREAD_CXX="$ac_prog"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+PTHREAD_CXX=$ac_cv_prog_PTHREAD_CXX
+if test -n "$PTHREAD_CXX"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PTHREAD_CXX" >&5
+$as_echo "$PTHREAD_CXX" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$PTHREAD_CXX" && break
+done
+test -n "$PTHREAD_CXX" || PTHREAD_CXX="$CXX"
+
+fi
+
+ ;;
+esac
+ ;; #(
+ *) :
+ ;;
+esac
+ ;;
+ esac
+ fi
+fi
+
+test -n "$PTHREAD_CC" || PTHREAD_CC="$CC"
+test -n "$PTHREAD_CXX" || PTHREAD_CXX="$CXX"
+
+
+
+
+
+
+# Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND:
+if test "x$ax_pthread_ok" = "xyes"; then
+
+$as_echo "#define HAVE_LIBPTHREAD 1" >>confdefs.h
+
+ :
+else
+ ax_pthread_ok=no
+ as_fn_error $? "multithreaded settings NOT found" "$LINENO" 5
+fi
+ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+
+ LIBS="$PTHREAD_LIBS $LIBS"
+ CFLAGS="$CFLAGS $PTHREAD_CFLAGS"
+ CC="$PTHREAD_CC"
+ $as_echo "CC:$CC CFLAGS:$CFLAGS LIBS:$LIBS" >&6 ;; #(
+ *) :
+ THREADS_ROOT=$with_threads
+ LDFLAGS="-L$THREADS_ROOT/lib $LDFLAGS"
+ CPPFLAGS="-I$THREADS_ROOT/include $CPPFLAGS "
+ for ac_header in pthread.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "pthread.h" "ac_cv_header_pthread_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_pthread_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_PTHREAD_H 1
+_ACEOF
+
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_create in -lpthread" >&5
+$as_echo_n "checking for pthread_create in -lpthread... " >&6; }
+if ${ac_cv_lib_pthread_pthread_create+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_check_lib_save_LIBS=$LIBS
+LIBS="-lpthread $LIBS"
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char pthread_create ();
+int
+main ()
+{
+return pthread_create ();
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_lib_pthread_pthread_create=yes
+else
+ ac_cv_lib_pthread_pthread_create=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+LIBS=$ac_check_lib_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_create" >&5
+$as_echo "$ac_cv_lib_pthread_pthread_create" >&6; }
+if test "x$ac_cv_lib_pthread_pthread_create" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_LIBPTHREAD 1
+_ACEOF
+
+ LIBS="-lpthread $LIBS"
+
+fi
+
+ THREADS_LIBS=" -L$THREADS_ROOT/lib -lpthread"
+ THREADS_INCLUDE=" -I$THREADS_ROOT/include" ;; #(
+ *) :
+ ;;
+esac
+
+
+# ----------------------------------------------------------------------
+# Compile application with FDB5 library
+FDB5_INCLUDE=''
+FDB5_LIBS=''
+
+# Check whether --with-fdb5 was given.
+if test "${with_fdb5+set}" = set; then :
+ withval=$with_fdb5; case "$with_fdb5" in #(
+ no) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for fdb5 library" >&5
+$as_echo_n "checking for fdb5 library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; } ;; #(
+ yes) :
+ for ac_header in fdb5/api/fdb_c.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "fdb5/api/fdb_c.h" "ac_cv_header_fdb5_api_fdb_c_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_fdb5_api_fdb_c_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_FDB5_API_FDB_C_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find fdb5/api/fdb_c.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing fdb_initialise" >&5
+$as_echo_n "checking for library containing fdb_initialise... " >&6; }
+if ${ac_cv_search_fdb_initialise+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char fdb_initialise ();
+int
+main ()
+{
+return fdb_initialise ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' fdb5; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_fdb_initialise=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_fdb_initialise+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_fdb_initialise+:} false; then :
+
+else
+ ac_cv_search_fdb_initialise=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_fdb_initialise" >&5
+$as_echo "$ac_cv_search_fdb_initialise" >&6; }
+ac_res=$ac_cv_search_fdb_initialise
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBFDB5 1" >>confdefs.h
+
+else
+ as_fn_error $? "Could not link to fdb5" "$LINENO" 5
+fi
+
+ FDB5_LIBS=" -lfdb5" ;; #(
+ *) :
+ FDB5_ROOT=$with_fdb5
+ if test -d "$FDB5_ROOT"; then :
+ LDFLAGS="-L$FDB5_ROOT/lib $LDFLAGS"
+ CPPFLAGS="-I$FDB5_ROOT/include $CPPFLAGS"
+ for ac_header in fdb5/api/fdb_c.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "fdb5/api/fdb_c.h" "ac_cv_header_fdb5_api_fdb_c_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_fdb5_api_fdb_c_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_FDB5_API_FDB_C_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find fdb5/api/fdb_c.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing fdb_initialise" >&5
+$as_echo_n "checking for library containing fdb_initialise... " >&6; }
+if ${ac_cv_search_fdb_initialise+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char fdb_initialise ();
+int
+main ()
+{
+return fdb_initialise ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' fdb5; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_fdb_initialise=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_fdb_initialise+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_fdb_initialise+:} false; then :
+
+else
+ ac_cv_search_fdb_initialise=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_fdb_initialise" >&5
+$as_echo "$ac_cv_search_fdb_initialise" >&6; }
+ac_res=$ac_cv_search_fdb_initialise
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBFDB5 1" >>confdefs.h
+
+else
+ as_fn_error $? "Could not link to fdb5" "$LINENO" 5
+fi
+
+ FDB5_LIBS=" -L$FDB5_ROOT/lib -lfdb5"
+ FDB5_INCLUDE=" -I$FDB5_ROOT/include"
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: $FDB5_ROOT is not a directory! FDB5 suppressed" >&5
+$as_echo "$as_me: $FDB5_ROOT is not a directory! FDB5 suppressed" >&6;}
+fi ;; #(
+ *) :
+ ;;
+esac
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for fdb5 library" >&5
+$as_echo_n "checking for fdb5 library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; }
+fi
+
+
+
+# ----------------------------------------------------------------------
+# Compile application with SZLIB library, needed for GRIB1
+SZLIB_INCLUDE=''
+SZLIB_LIBS=''
+
+# Check whether --with-szlib was given.
+if test "${with_szlib+set}" = set; then :
+ withval=$with_szlib; case "$with_szlib" in #(
+ no) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for szlib library" >&5
+$as_echo_n "checking for szlib library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; } ;; #(
+ yes) :
+ for ac_header in szlib.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "szlib.h" "ac_cv_header_szlib_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_szlib_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_SZLIB_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find szlib.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing SZ_BufftoBuffCompress" >&5
+$as_echo_n "checking for library containing SZ_BufftoBuffCompress... " >&6; }
+if ${ac_cv_search_SZ_BufftoBuffCompress+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char SZ_BufftoBuffCompress ();
+int
+main ()
+{
+return SZ_BufftoBuffCompress ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' sz; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_SZ_BufftoBuffCompress=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_SZ_BufftoBuffCompress+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_SZ_BufftoBuffCompress+:} false; then :
+
+else
+ ac_cv_search_SZ_BufftoBuffCompress=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_SZ_BufftoBuffCompress" >&5
+$as_echo "$ac_cv_search_SZ_BufftoBuffCompress" >&6; }
+ac_res=$ac_cv_search_SZ_BufftoBuffCompress
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBSZ 1" >>confdefs.h
+
+else
+ as_fn_error $? "Could not link to szlib" "$LINENO" 5
+fi
+
+ SZLIB_LIBS=" -lsz" ;; #(
+ *) :
+ SZLIB_ROOT=$with_szlib
+ if test -d "$SZLIB_ROOT"; then :
+ LDFLAGS="-L$SZLIB_ROOT/lib $LDFLAGS"
+ CPPFLAGS="-I$SZLIB_ROOT/include $CPPFLAGS"
+ for ac_header in szlib.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "szlib.h" "ac_cv_header_szlib_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_szlib_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_SZLIB_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find szlib.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing SZ_BufftoBuffCompress" >&5
+$as_echo_n "checking for library containing SZ_BufftoBuffCompress... " >&6; }
+if ${ac_cv_search_SZ_BufftoBuffCompress+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char SZ_BufftoBuffCompress ();
+int
+main ()
+{
+return SZ_BufftoBuffCompress ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' sz; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_SZ_BufftoBuffCompress=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_SZ_BufftoBuffCompress+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_SZ_BufftoBuffCompress+:} false; then :
+
+else
+ ac_cv_search_SZ_BufftoBuffCompress=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_SZ_BufftoBuffCompress" >&5
+$as_echo "$ac_cv_search_SZ_BufftoBuffCompress" >&6; }
+ac_res=$ac_cv_search_SZ_BufftoBuffCompress
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBSZ 1" >>confdefs.h
+
+else
+ as_fn_error $? "Could not link to szlib" "$LINENO" 5
+fi
+
+ SZLIB_LIBS=" -L$SZLIB_ROOT/lib -lsz"
+ SZLIB_INCLUDE=" -I$SZLIB_ROOT/include"
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: $SZLIB_ROOT is not a directory! SZLIB suppressed" >&5
+$as_echo "$as_me: $SZLIB_ROOT is not a directory! SZLIB suppressed" >&6;}
+fi ;; #(
+ *) :
+ ;;
+esac
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for szlib library" >&5
+$as_echo_n "checking for szlib library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; }
+fi
+
+
+
+# ----------------------------------------------------------------------
+# Compile application with netcdf
+NETCDF_ROOT=''
+NETCDF_INCLUDE=''
+NETCDF_LIBS=''
+ENABLE_NETCDF=no
+ENABLE_NC2=no
+ENABLE_NC4=no
+ENABLE_NC4HDF5=no
+ENABLE_NC4SZLIB=no
+
+# Check whether --with-netcdf was given.
+if test "${with_netcdf+set}" = set; then :
+ withval=$with_netcdf; case "$with_netcdf" in #(
+ no) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for NetCDF library" >&5
+$as_echo_n "checking for NetCDF library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; } ;; #(
+ yes) :
+ for ac_header in netcdf.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "netcdf.h" "ac_cv_header_netcdf_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_netcdf_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_NETCDF_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find netcdf.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing nc_open" >&5
+$as_echo_n "checking for library containing nc_open... " >&6; }
+if ${ac_cv_search_nc_open+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char nc_open ();
+int
+main ()
+{
+return nc_open ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' netcdf; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_nc_open=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_nc_open+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_nc_open+:} false; then :
+
+else
+ ac_cv_search_nc_open=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_nc_open" >&5
+$as_echo "$ac_cv_search_nc_open" >&6; }
+ac_res=$ac_cv_search_nc_open
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBNETCDF 1" >>confdefs.h
+
+ ENABLE_NETCDF=yes
+else
+ as_fn_error $? "Could not link to NetCDF library" "$LINENO" 5
+fi
+
+ NETCDF_LIBS=" -lnetcdf"
+ # Extract the first word of "nc-config", so it can be a program name with args.
+set dummy nc-config; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_NC_CONFIG+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$NC_CONFIG"; then
+ ac_cv_prog_NC_CONFIG="$NC_CONFIG" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_NC_CONFIG="nc-config"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+NC_CONFIG=$ac_cv_prog_NC_CONFIG
+if test -n "$NC_CONFIG"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NC_CONFIG" >&5
+$as_echo "$NC_CONFIG" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ ;; #(
+ *) :
+ if test -d "$with_netcdf"; then :
+ NETCDF_ROOT=$with_netcdf
+ LDFLAGS="-L$NETCDF_ROOT/lib $LDFLAGS"
+ CPPFLAGS="-I$NETCDF_ROOT/include $CPPFLAGS"
+ for ac_header in netcdf.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "netcdf.h" "ac_cv_header_netcdf_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_netcdf_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_NETCDF_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find netcdf.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing nc_open" >&5
+$as_echo_n "checking for library containing nc_open... " >&6; }
+if ${ac_cv_search_nc_open+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char nc_open ();
+int
+main ()
+{
+return nc_open ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' netcdf; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_nc_open=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_nc_open+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_nc_open+:} false; then :
+
+else
+ ac_cv_search_nc_open=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_nc_open" >&5
+$as_echo "$ac_cv_search_nc_open" >&6; }
+ac_res=$ac_cv_search_nc_open
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBNETCDF 1" >>confdefs.h
+
+ ENABLE_NETCDF=yes
+else
+ as_fn_error $? "Could not link to NetCDF library" "$LINENO" 5
+fi
+
+ NETCDF_LIBS=" -L$NETCDF_ROOT/lib -lnetcdf"
+ NETCDF_INCLUDE=" -I$NETCDF_ROOT/include"
+ # Extract the first word of "nc-config", so it can be a program name with args.
+set dummy nc-config; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_NC_CONFIG+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test -n "$NC_CONFIG"; then
+ ac_cv_prog_NC_CONFIG="$NC_CONFIG" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in "$NETCDF_ROOT/bin"
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_prog_NC_CONFIG="$NETCDF_ROOT/bin/nc-config"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+fi
+fi
+NC_CONFIG=$ac_cv_prog_NC_CONFIG
+if test -n "$NC_CONFIG"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NC_CONFIG" >&5
+$as_echo "$NC_CONFIG" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: $with_netcdf is not a directory! NetCDF suppressed" >&5
+$as_echo "$as_me: $with_netcdf is not a directory! NetCDF suppressed" >&6;}
+fi ;; #(
+ *) :
+ ;;
+esac
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for NetCDF library" >&5
+$as_echo_n "checking for NetCDF library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; }
+fi
+
+
+if test "x$ENABLE_NETCDF" = xyes; then :
+ if ${NC_CONFIG:+false} :; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Could not find nc-config! go on with default configuration" >&5
+$as_echo "$as_me: WARNING: Could not find nc-config! go on with default configuration" >&2;}
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking netcdf's OpenDAP support" >&5
+$as_echo_n "checking netcdf's OpenDAP support... " >&6; }
+if ${acx_cv_have_libnc_dap+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_have_libnc_dap=no
+ test "x$NC_CONFIG" != "x" && \
+ test "x$($NC_CONFIG --has-dap)" = "xyes" && \
+ acx_cv_have_libnc_dap=yes
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_have_libnc_dap" >&5
+$as_echo "$acx_cv_have_libnc_dap" >&6; }
+ if test "x$acx_cv_have_libnc_dap" = xyes; then :
+
+$as_echo "#define HAVE_LIBNC_DAP 1" >>confdefs.h
+
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking netcdf's Zarr support" >&5
+$as_echo_n "checking netcdf's Zarr support... " >&6; }
+if ${acx_cv_have_nczarr+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_have_nczarr=no
+ test "x$NC_CONFIG" != "x" && \
+ test "x$($NC_CONFIG --has-nczarr)" = "xyes" && \
+ acx_cv_have_nczarr=yes
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_have_nczarr" >&5
+$as_echo "$acx_cv_have_nczarr" >&6; }
+ if test "x$acx_cv_have_nczarr" = xyes; then :
+
+$as_echo "#define HAVE_NCZARR 1" >>confdefs.h
+
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking netcdf's nc2 support" >&5
+$as_echo_n "checking netcdf's nc2 support... " >&6; }
+if ${acx_cv_have_netcdf2+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_have_netcdf2=no
+ test "x$NC_CONFIG" != "x" && \
+ test "x$($NC_CONFIG --has-nc2)" = "xyes" && \
+ acx_cv_have_netcdf2=yes
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_have_netcdf2" >&5
+$as_echo "$acx_cv_have_netcdf2" >&6; }
+ if test "x$acx_cv_have_netcdf2" = xyes; then :
+
+$as_echo "#define HAVE_NETCDF2 1" >>confdefs.h
+
+ ENABLE_NC2=yes
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking netcdf's nc4 support" >&5
+$as_echo_n "checking netcdf's nc4 support... " >&6; }
+if ${acx_cv_have_netcdf4+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_have_netcdf4=no
+ test "x$NC_CONFIG" != "x" && \
+ test "x$($NC_CONFIG --has-nc4)" = "xyes" && \
+ acx_cv_have_netcdf4=yes
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_have_netcdf4" >&5
+$as_echo "$acx_cv_have_netcdf4" >&6; }
+ if test "x$acx_cv_have_netcdf4" = xyes; then :
+
+$as_echo "#define HAVE_NETCDF4 1" >>confdefs.h
+
+ ENABLE_NC4=yes
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking netcdf's nc4/hdf5 support" >&5
+$as_echo_n "checking netcdf's nc4/hdf5 support... " >&6; }
+if ${acx_cv_have_nc4hdf5+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_have_nc4hdf5=no
+ test "x$NC_CONFIG" != "x" && \
+ test "x$($NC_CONFIG --has-hdf5)" = "xyes" && \
+ acx_cv_have_nc4hdf5=yes
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_have_nc4hdf5" >&5
+$as_echo "$acx_cv_have_nc4hdf5" >&6; }
+ if test "x$acx_cv_have_nc4hdf5" = xyes; then :
+
+$as_echo "#define HAVE_NC4HDF5 1" >>confdefs.h
+
+ ENABLE_NC4HDF5=yes
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking netcdf's nc4/szlib support" >&5
+$as_echo_n "checking netcdf's nc4/szlib support... " >&6; }
+if ${acx_cv_have_nc4szlib+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_have_nc4szlib=no
+ test "x$NC_CONFIG" != "x" && \
+ test "x$($NC_CONFIG --has-szlib)" = "xyes" && \
+ acx_cv_have_nc4szlib=yes
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_have_nc4szlib" >&5
+$as_echo "$acx_cv_have_nc4szlib" >&6; }
+ if test "x$acx_cv_have_nc4szlib" = xyes; then :
+
+$as_echo "#define HAVE_NC4SZLIB 1" >>confdefs.h
+
+ ENABLE_NC4SZLIB=yes
+fi
+fi
+
+if test "x$ENABLE_NC4SZLIB" = "xyes"; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing nc_def_var_szip" >&5
+$as_echo_n "checking for library containing nc_def_var_szip... " >&6; }
+if ${ac_cv_search_nc_def_var_szip+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char nc_def_var_szip ();
+int
+main ()
+{
+return nc_def_var_szip ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' netcdf; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_nc_def_var_szip=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_nc_def_var_szip+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_nc_def_var_szip+:} false; then :
+
+else
+ ac_cv_search_nc_def_var_szip=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_nc_def_var_szip" >&5
+$as_echo "$ac_cv_search_nc_def_var_szip" >&6; }
+ac_res=$ac_cv_search_nc_def_var_szip
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_NC_DEF_VAR_SZIP 1" >>confdefs.h
+
+fi
+
+fi
+
+if test "x$ENABLE_NC4HDF5" = "xyes"; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing H5get_libversion" >&5
+$as_echo_n "checking for library containing H5get_libversion... " >&6; }
+if ${ac_cv_search_H5get_libversion+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char H5get_libversion ();
+int
+main ()
+{
+return H5get_libversion ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' netcdf; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib -lhdf5 $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_H5get_libversion=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_H5get_libversion+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_H5get_libversion+:} false; then :
+
+else
+ ac_cv_search_H5get_libversion=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_H5get_libversion" >&5
+$as_echo "$ac_cv_search_H5get_libversion" >&6; }
+ac_res=$ac_cv_search_H5get_libversion
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_H5GET_LIBVERSION 1" >>confdefs.h
+
+fi
+
+fi
+
+
+
+
+
+
+
+
+
+# ----------------------------------------------------------------------
+# Compile application with ECCODES library (for GRIB2 support)
+ECCODES_INCLUDE=''
+ECCODES_LIBS=''
+
+# Check whether --with-eccodes was given.
+if test "${with_eccodes+set}" = set; then :
+ withval=$with_eccodes; case "$with_eccodes" in #(
+ no) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ECCODES library" >&5
+$as_echo_n "checking for ECCODES library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; } ;; #(
+ yes) :
+ for ac_header in grib_api.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "grib_api.h" "ac_cv_header_grib_api_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_grib_api_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_GRIB_API_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find grib_api.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing grib_get_message" >&5
+$as_echo_n "checking for library containing grib_get_message... " >&6; }
+if ${ac_cv_search_grib_get_message+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char grib_get_message ();
+int
+main ()
+{
+return grib_get_message ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' eccodes; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_grib_get_message=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_grib_get_message+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_grib_get_message+:} false; then :
+
+else
+ ac_cv_search_grib_get_message=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_grib_get_message" >&5
+$as_echo "$ac_cv_search_grib_get_message" >&6; }
+ac_res=$ac_cv_search_grib_get_message
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBGRIB_API 1" >>confdefs.h
+
+else
+ as_fn_error $? "Could not link to eccodes library" "$LINENO" 5
+fi
+ ;; #(
+ *) :
+ ECCODES_ROOT=$with_eccodes
+ if test -d "$ECCODES_ROOT"; then :
+ LDFLAGS="-L$ECCODES_ROOT/lib $LDFLAGS"
+ CPPFLAGS="-I$ECCODES_ROOT/include $CPPFLAGS"
+ for ac_header in grib_api.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "grib_api.h" "ac_cv_header_grib_api_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_grib_api_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_GRIB_API_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find grib_api.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing grib_get_message" >&5
+$as_echo_n "checking for library containing grib_get_message... " >&6; }
+if ${ac_cv_search_grib_get_message+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char grib_get_message ();
+int
+main ()
+{
+return grib_get_message ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' eccodes; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_grib_get_message=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_grib_get_message+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_grib_get_message+:} false; then :
+
+else
+ ac_cv_search_grib_get_message=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_grib_get_message" >&5
+$as_echo "$ac_cv_search_grib_get_message" >&6; }
+ac_res=$ac_cv_search_grib_get_message
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBGRIB_API 1" >>confdefs.h
+
+else
+ as_fn_error $? "Could not link to eccodes library" "$LINENO" 5
+fi
+
+ ECCODES_LIBS=" -L$ECCODES_ROOT/lib -leccodes"
+ ECCODES_INCLUDE=" -I$ECCODES_ROOT/include"
+else
+ as_fn_error $? "$ECCODES_ROOT is not a directory! ECCODES suppressed" "$LINENO" 5
+fi ;; #(
+ *) :
+ ;;
+esac
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for the ECCODES library" >&5
+$as_echo_n "checking for the ECCODES library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; }
+fi
+
+
+
+# AM_CONDITIONAL([HAVE_LIBGRIB_API],[test "x$with_eccodes" != 'x' -a "x$with_eccodes" != 'xno' ])
+# ----------------------------------------------------------------------
+# Compile application with GRIB_API library (for GRIB2 support)
+GRIB_API_INCLUDE=''
+GRIB_API_LIBS=''
+
+# Check whether --with-grib_api was given.
+if test "${with_grib_api+set}" = set; then :
+ withval=$with_grib_api; case "$with_grib_api" in #(
+ no) :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GRIB_API library" >&5
+$as_echo_n "checking for GRIB_API library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; } ;; #(
+ yes) :
+ for ac_header in grib_api.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "grib_api.h" "ac_cv_header_grib_api_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_grib_api_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_GRIB_API_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find grib_api.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing grib_get_message" >&5
+$as_echo_n "checking for library containing grib_get_message... " >&6; }
+if ${ac_cv_search_grib_get_message+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char grib_get_message ();
+int
+main ()
+{
+return grib_get_message ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' grib_api; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_grib_get_message=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_grib_get_message+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_grib_get_message+:} false; then :
+
+else
+ ac_cv_search_grib_get_message=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_grib_get_message" >&5
+$as_echo "$ac_cv_search_grib_get_message" >&6; }
+ac_res=$ac_cv_search_grib_get_message
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBGRIB_API 1" >>confdefs.h
+
+else
+ as_fn_error $? "Could not link to grib_api library" "$LINENO" 5
+fi
+ ;; #(
+ *) :
+ GRIB_API_ROOT=$with_grib_api
+ if test -d "$GRIB_API_ROOT"; then :
+ LDFLAGS="-L$GRIB_API_ROOT/lib $LDFLAGS"
+ CPPFLAGS="-I$GRIB_API_ROOT/include $CPPFLAGS"
+ for ac_header in grib_api.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "grib_api.h" "ac_cv_header_grib_api_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_grib_api_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_GRIB_API_H 1
+_ACEOF
+
+else
+ as_fn_error $? "Could not find grib_api.h" "$LINENO" 5
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing grib_get_message" >&5
+$as_echo_n "checking for library containing grib_get_message... " >&6; }
+if ${ac_cv_search_grib_get_message+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char grib_get_message ();
+int
+main ()
+{
+return grib_get_message ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' grib_api; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_grib_get_message=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_grib_get_message+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_grib_get_message+:} false; then :
+
+else
+ ac_cv_search_grib_get_message=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_grib_get_message" >&5
+$as_echo "$ac_cv_search_grib_get_message" >&6; }
+ac_res=$ac_cv_search_grib_get_message
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+
+$as_echo "#define HAVE_LIBGRIB_API 1" >>confdefs.h
+
+else
+ as_fn_error $? "Could not link to grib_api library" "$LINENO" 5
+fi
+
+ GRIB_API_LIBS=" -L$GRIB_API_ROOT/lib -lgrib_api"
+ GRIB_API_INCLUDE=" -I$GRIB_API_ROOT/include"
+else
+ as_fn_error $? "$GRIB_API_ROOT is not a directory! GRIB_API suppressed" "$LINENO" 5
+fi ;; #(
+ *) :
+ ;;
+esac
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for the GRIB_API library" >&5
+$as_echo_n "checking for the GRIB_API library... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5
+$as_echo "suppressed" >&6; }
+fi
+
+
+
+ if test \( "x$with_grib_api" != 'x' -a "x$with_grib_api" != 'xno' \) -o \( "x$with_eccodes" != 'x' -a "x$with_eccodes" != 'xno' \) ; then
+ HAVE_LIBGRIB_API_TRUE=
+ HAVE_LIBGRIB_API_FALSE='#'
+else
+ HAVE_LIBGRIB_API_TRUE='#'
+ HAVE_LIBGRIB_API_FALSE=
+fi
+
+# ----------------------------------------------------------------------
+# Enable GRIB support
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for GRIB support" >&5
+$as_echo_n "checking for GRIB support... " >&6; }
+# Check whether --enable-grib was given.
+if test "${enable_grib+set}" = set; then :
+ enableval=$enable_grib; if test "x$enable_grib" != 'xno'; then :
+
+$as_echo "#define HAVE_LIBGRIB 1" >>confdefs.h
+
+ enable_grib=yes
+fi
+else
+
+$as_echo "#define HAVE_LIBGRIB 1" >>confdefs.h
+
+ enable_grib=yes
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_grib" >&5
+$as_echo "$enable_grib" >&6; }
+ENABLE_GRIB=$enable_grib
+
+# ----------------------------------------------------------------------
+# Enable ACROSS support
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ACROSS support" >&5
+$as_echo_n "checking for ACROSS support... " >&6; }
+# Check whether --enable-across was given.
+if test "${enable_across+set}" = set; then :
+ enableval=$enable_across; if test "x$enable_across" != 'xno'; then :
+
+$as_echo "#define HAVE_ACROSS 1" >>confdefs.h
+
+ enable_across=yes
+fi
+else
+
+$as_echo "#define HAVE_ACROSS 1" >>confdefs.h
+
+ enable_across=yes
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_across" >&5
+$as_echo "$enable_across" >&6; }
+ENABLE_ACROSS=$enable_across
+
+# ----------------------------------------------------------------------
+# Compile interface with internal CGRIBEX library
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for CGRIBEX support" >&5
+$as_echo_n "checking for CGRIBEX support... " >&6; }
+# Check whether --enable-cgribex was given.
+if test "${enable_cgribex+set}" = set; then :
+ enableval=$enable_cgribex; if test "x$enable_cgribex" != 'xno'; then :
+
+$as_echo "#define HAVE_LIBCGRIBEX 1" >>confdefs.h
+
+ enable_cgribex=yes
+fi
+else
+
+$as_echo "#define HAVE_LIBCGRIBEX 1" >>confdefs.h
+
+ enable_cgribex=yes
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_cgribex" >&5
+$as_echo "$enable_cgribex" >&6; }
+ENABLE_CGRIBEX=$enable_cgribex
+
+# ----------------------------------------------------------------------
+# Compile interface with internal SERVICE library
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for SERVICE support" >&5
+$as_echo_n "checking for SERVICE support... " >&6; }
+# Check whether --enable-service was given.
+if test "${enable_service+set}" = set; then :
+ enableval=$enable_service; if test "x$enable_service" != 'xno'; then :
+
+$as_echo "#define HAVE_LIBSERVICE 1" >>confdefs.h
+
+ enable_service=yes
+fi
+else
+
+$as_echo "#define HAVE_LIBSERVICE 1" >>confdefs.h
+
+ enable_service=yes
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_service" >&5
+$as_echo "$enable_service" >&6; }
+ENABLE_SERVICE=$enable_service
+
+# ----------------------------------------------------------------------
+# Compile interface with internal EXTRA library
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for EXTRA support" >&5
+$as_echo_n "checking for EXTRA support... " >&6; }
+# Check whether --enable-extra was given.
+if test "${enable_extra+set}" = set; then :
+ enableval=$enable_extra; if test "x$enable_extra" != 'xno'; then :
+
+$as_echo "#define HAVE_LIBEXTRA 1" >>confdefs.h
+
+ enable_extra=yes
+fi
+else
+
+$as_echo "#define HAVE_LIBEXTRA 1" >>confdefs.h
+
+ enable_extra=yes
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_extra" >&5
+$as_echo "$enable_extra" >&6; }
+ENABLE_EXTRA=$enable_extra
+
+# ----------------------------------------------------------------------
+# Compile interface with internal IEG library
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for IEG support" >&5
+$as_echo_n "checking for IEG support... " >&6; }
+# Check whether --enable-ieg was given.
+if test "${enable_ieg+set}" = set; then :
+ enableval=$enable_ieg; if test "x$enable_ieg" != 'xno'; then :
+
+$as_echo "#define HAVE_LIBIEG 1" >>confdefs.h
+
+ enable_ieg=yes
+fi
+else
+
+$as_echo "#define HAVE_LIBIEG 1" >>confdefs.h
+
+ enable_ieg=yes
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_ieg" >&5
+$as_echo "$enable_ieg" >&6; }
+ENABLE_IEG=$enable_ieg
+
+# ----------------------------------------------------------------------
+# At the moment, there are two possible CDI bindings
+# (default for CDO) linking directly to CDI convenience library with libtool
+# (default for CDI) build and link to a shared CDI library
+if test "x$CDO_DISABLE_CDILIB" = "x1"; then :
+ enable_cdi_lib=no
+else
+ enable_cdi_lib=yes
+fi
+# save CDI binding mode for later automake use
+ if test x$enable_cdi_lib = 'xyes'; then
+ ENABLE_CDI_LIB_TRUE=
+ ENABLE_CDI_LIB_FALSE='#'
+else
+ ENABLE_CDI_LIB_TRUE='#'
+ ENABLE_CDI_LIB_FALSE=
+fi
+
+# create shell variables for the representation of configure results
+if test x$enable_cdi_lib = 'xno'; then :
+ ENABLE_CDI_LIB=false
+
+else
+ ENABLE_CDI_LIB=true
+
+fi
+# ----------------------------------------------------------------------
+# Build a static CDI
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for building an additional static CDI binary" >&5
+$as_echo_n "checking for building an additional static CDI binary... " >&6; }
+# Check whether --enable-all-static was given.
+if test "${enable_all_static+set}" = set; then :
+ enableval=$enable_all_static; if test "x$enable_all_static" != "xno"; then :
+ enable_all_static=yes
+else
+ enable_all_static=no
+fi
+else
+ enable_all_static=no
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_all_static" >&5
+$as_echo "$enable_all_static" >&6; }
+ if test x$enable_all_static = 'xyes'; then
+ ENABLE_ALL_STATIC_TRUE=
+ ENABLE_ALL_STATIC_FALSE='#'
+else
+ ENABLE_ALL_STATIC_TRUE='#'
+ ENABLE_ALL_STATIC_FALSE=
+fi
+
+# ----------------------------------------------------------------------
+# Build CDO with HIRLAM extensions
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for HIRLAM extensions" >&5
+$as_echo_n "checking for HIRLAM extensions... " >&6; }
+# Check whether --enable-hirlam-extensions was given.
+if test "${enable_hirlam_extensions+set}" = set; then :
+ enableval=$enable_hirlam_extensions; if test "x$enable_hirlam_extensions" != "xno"; then :
+
+$as_echo "#define HIRLAM_EXTENSIONS 1" >>confdefs.h
+
+ enable_hirlam_extensions=yes
+else
+ enable_hirlam_extensions=no
+fi
+else
+ enable_hirlam_extensions=no
+fi
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_hirlam_extensions" >&5
+$as_echo "$enable_hirlam_extensions" >&6; }
+ if test x$enable_hirlam_extensions = 'xyes'; then
+ ENABLE_HIRLAM_EXTENSIONS_TRUE=
+ ENABLE_HIRLAM_EXTENSIONS_FALSE='#'
+else
+ ENABLE_HIRLAM_EXTENSIONS_TRUE='#'
+ ENABLE_HIRLAM_EXTENSIONS_FALSE=
+fi
+
+# ----------------------------------------------------------------------
+# Build CDI application
+# Check whether --enable-cdi-app was given.
+if test "${enable_cdi_app+set}" = set; then :
+ enableval=$enable_cdi_app;
+else
+ enable_cdi_app=yes
+fi
+
+ if test x$enable_cdi_app = 'xyes'; then
+ ENABLE_CDI_APP_TRUE=
+ ENABLE_CDI_APP_FALSE='#'
+else
+ ENABLE_CDI_APP_TRUE='#'
+ ENABLE_CDI_APP_FALSE=
+fi
+
+#
+
+ if test "x$ENABLE_NETCDF" = xyes; then
+ ENABLE_NETCDF_TRUE=
+ ENABLE_NETCDF_FALSE='#'
+else
+ ENABLE_NETCDF_TRUE='#'
+ ENABLE_NETCDF_FALSE=
+fi
+
+for ac_func in grib_get_length
+do :
+ ac_fn_c_check_func "$LINENO" "grib_get_length" "ac_cv_func_grib_get_length"
+if test "x$ac_cv_func_grib_get_length" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_GRIB_GET_LENGTH 1
+_ACEOF
+
+fi
+done
+
+
+
+cat >>confdefs.h <<_ACEOF
+#define COMPILER "$CC $CFLAGS"
+_ACEOF
+
+COMP_VERSION=
+case $CC in #(
+ pgcc*) :
+ COMP_VERSION=`$CC -V | head -2 | tail -n 1` ;; #(
+ *gcc*) :
+ COMP_VERSION=`$CC --version | head -n 1` ;; #(
+ g++*) :
+ COMP_VERSION=`$CC --version | head -n 1` ;; #(
+ clang*) :
+ COMP_VERSION=`$CC --version | head -n 1` ;; #(
+ sxc*) :
+ COMP_VERSION=`$CC -V 2>&1 | tail -n 1` ;; #(
+ xlc*) :
+ COMP_VERSION=`$CC -qversion 2>&1 | head -n 1` ;; #(
+ *) :
+ COMP_VERSION=`$CC -V 2>&1 | sed -n 1p` ;;
+esac
+test -z "$COMP_VERSION" && COMP_VERSION=unknown
+
+cat >>confdefs.h <<_ACEOF
+#define COMP_VERSION "$COMP_VERSION"
+_ACEOF
+
+
+cat >>confdefs.h <<_ACEOF
+#define SYSTEM_TYPE "$ac_cv_build"
+_ACEOF
+
+SYSTEM_TYPE="$ac_cv_build"
+
+
+# Check whether --enable-ppm-dist-array was given.
+if test "${enable_ppm_dist_array+set}" = set; then :
+ enableval=$enable_ppm_dist_array; case $enableval in #(
+ no|auto) :
+ ;; #(
+ *) :
+ if test "x$enable_mpi" = xno; then :
+ as_fn_error $? "usage of the PPM distributed array can be enabled (--enable-ppm-dist-array) only if the parallel I/O with MPI is enabled (--enable-mpi)" "$LINENO" 5
+fi
+ enable_ppm_dist_array=yes ;;
+esac
+else
+ enable_ppm_dist_array=auto
+fi
+
+
+build_pio_fc_programs=no
+have_ppm=no
+HAVE_PPM_DIST_ARRAY=no
+
+
+have_parallel_nc4=no
+if test "x$enable_mpi" = xyes; then :
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+
+ have_MPI_c_bindings=yes
+
+# Check whether --with-mpi-root was given.
+if test "${with_mpi_root+set}" = set; then :
+ withval=$with_mpi_root; MPIROOT=$withval
+fi
+
+ if ${MPIROOT+:} false; then :
+ if ${MPI_C_LIB+:} false; then :
+
+else
+ MPI_C_LIB="-L$MPIROOT/lib"
+fi
+ if ${MPI_C_INCLUDE+:} false; then :
+
+else
+ MPI_C_INCLUDE="-I$MPIROOT/include"
+fi
+fi
+
+# Check whether --with-mpi-include was given.
+if test "${with_mpi_include+set}" = set; then :
+ withval=$with_mpi_include; MPI_C_INCLUDE="-I$withval"
+fi
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for mpi.h extra include path" >&5
+$as_echo_n "checking for mpi.h extra include path... " >&6; }
+ if ${acx_cv_c_include_mpi_h+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_include_search_mpi_h_SAVE="$CPPFLAGS"
+ while :; do
+ for ac_incdir in ''
+do :
+ if test -z "$ac_incdir"; then :
+ ac_res="none required"
+ CPPFLAGS="$MPI_C_INCLUDE $ac_include_search_mpi_h_SAVE"
+else
+ ac_res="-I$ac_incdir"
+ CPPFLAGS="$MPI_C_INCLUDE $ac_res $ac_include_search_mpi_h_SAVE"
+fi
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$ac_includes_default
+#include <mpi.h>
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ acx_cv_c_include_mpi_h=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ if ${acx_cv_c_include_mpi_h+:} false; then :
+ if test -z "$ac_incdir"; then :
+ acx_cv_c_include_mpi_h="$MPI_C_INCLUDE"
+else
+ acx_cv_c_include_mpi_h="$MPI_C_INCLUDE -I$ac_incdir"
+fi
+fi
+ if ${acx_cv_c_include_mpi_h+:} false; then :
+ break
+fi
+done
+ if ${acx_cv_c_include_mpi_h+:} false; then :
+ break
+fi
+
+ break
+ done
+ CPPFLAGS=$ac_include_search_mpi_h_SAVE
+fi
+
+ if ${acx_cv_c_include_mpi_h+:} false; then :
+ if test x"$acx_cv_c_include_mpi_h" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_c_include_mpi_h" >&5
+$as_echo "$acx_cv_c_include_mpi_h" >&6; }
+fi
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+fi
+ if ${acx_cv_c_include_mpi_h+:} false; then :
+ MPI_C_INCLUDE=`echo "$acx_cv_c_include_mpi_h" | sed -e 's/^ *//;s/ *$//'`
+else
+ have_MPI_c_bindings=no; { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "required header mpi.h not found or not compilable
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+
+# Check whether --with-mpi-lib was given.
+if test "${with_mpi_lib+set}" = set; then :
+ withval=$with_mpi_lib; MPI_C_LIB="-L$withval"
+fi
+
+ if test "x$have_MPI_c_bindings" = xyes; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing MPI_Waitall" >&5
+$as_echo_n "checking for library containing MPI_Waitall... " >&6; }
+ if ${acx_cv_option_search_MPI_Waitall_c+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_option_func_search_save_LIBS=$LIBS
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char MPI_Waitall ();
+int
+main ()
+{
+return MPI_Waitall ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' mpi mpich
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$MPI_C_LIB $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$MPI_C_LIB $ac_res $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_MPI_Waitall_c="$MPI_C_LIB"
+else
+ acx_cv_option_search_MPI_Waitall_c="$MPI_C_LIB -l$ac_lib"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_MPI_Waitall_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_MPI_Waitall_c+:} false; then :
+ break
+fi
+ for acx_libset in ""
+do :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char MPI_Waitall ();
+int
+main ()
+{
+return MPI_Waitall ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' mpi mpich
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$MPI_C_LIB $acx_libset $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$MPI_C_LIB $ac_res $acx_libset $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_MPI_Waitall_c="$MPI_C_LIB $acx_libset"
+else
+ acx_cv_option_search_MPI_Waitall_c="$MPI_C_LIB -l$ac_lib $acx_libset"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_MPI_Waitall_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_MPI_Waitall_c+:} false; then :
+ break
+fi
+
+done
+ break
+ done
+ LIBS=$acx_option_func_search_save_LIBS
+fi
+
+ if ${acx_cv_option_search_MPI_Waitall_c+:} false; then :
+ if test x"$acx_cv_option_search_MPI_Waitall_c" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_option_search_MPI_Waitall_c" >&5
+$as_echo "$acx_cv_option_search_MPI_Waitall_c" >&6; }
+fi
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ have_MPI_c_bindings=no
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "cannot link C MPI programs
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+ MPI_C_LIB=`echo "$acx_cv_option_search_MPI_Waitall_c" | sed -e 's/^ *//;s/ *$//'`
+
+fi
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+
+ saved_CPPFLAGS=$CPPFLAGS
+ saved_LIBS=$LIBS
+ as_fn_append CPPFLAGS " $MPI_C_INCLUDE"
+ LIBS="$MPI_C_LIB $LIBS"
+ for ac_prog in mpirun mpiexec
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_path_MPI_LAUNCH+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ case $MPI_LAUNCH in
+ [\\/]* | ?:[\\/]*)
+ ac_cv_path_MPI_LAUNCH="$MPI_LAUNCH" # Let the user override the test with a path.
+ ;;
+ *)
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_path_MPI_LAUNCH="$as_dir/$ac_word$ac_exec_ext"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+ ;;
+esac
+fi
+MPI_LAUNCH=$ac_cv_path_MPI_LAUNCH
+if test -n "$MPI_LAUNCH"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MPI_LAUNCH" >&5
+$as_echo "$MPI_LAUNCH" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$MPI_LAUNCH" && break
+done
+test -n "$MPI_LAUNCH" || MPI_LAUNCH="true"
+
+
+ if test x"$MPI_LAUNCH" = xtrue; then :
+ MPI_LAUNCH_failMsg="Failed to find MPI launcher"
+else
+ if test x"$cross_compiling" = xno; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MPI_LAUNCH works" >&5
+$as_echo_n "checking if $MPI_LAUNCH works... " >&6; }
+ if test -x `echo "$MPI_LAUNCH" | sed -e 's/[ ].*//'`; then :
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include <mpi.h>
+
+#define xmpi(ret) \\
+ do { \\
+ if (ret != MPI_SUCCESS) \\
+ exit(EXIT_FAILURE); \\
+ } while (0)
+
+int
+main(int argc, char **argv)
+{
+ xmpi(MPI_Init(&argc, &argv));
+ char *numarg = argv[1];
+ int cmdnum = atoi(numarg);
+ int procnum = 1;
+ xmpi(MPI_Allreduce(MPI_IN_PLACE, &procnum, 1, MPI_INT, MPI_SUM,
+ MPI_COMM_WORLD));
+ xmpi(MPI_Finalize());
+ return (procnum == cmdnum)?EXIT_SUCCESS:EXIT_FAILURE;
+}
+
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ acx_mpirun_test="$MPI_LAUNCH -n 4 ./conftest$EXEEXT 4"
+ if expr "$ac_link" : '.*/libtool --mode=link' >/dev/null; then :
+ acx_mpirun_test=`echo "$ac_link" | sed -e 's@\(.*/libtool --mode=\)link.*@\1@'`"execute $acx_mpirun_test"
+fi
+ { { echo "running $acx_mpirun_test"; } >&5
+ (LIBC_FATAL_STDERR_=1 $acx_mpirun_test >&2) 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }
+ if test $ac_status -eq 0; then :
+
+else
+ MPI_LAUNCH=true ; MPI_LAUNCH_failMsg="Failed to run MPI programs"
+fi
+else
+ MPI_LAUNCH=true ; MPI_LAUNCH_failMsg="Cannot compile or link simple MPI program"
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+else
+ MPI_LAUNCH_failMsg="Cannot execute $MPI_LAUNCH" ; MPI_LAUNCH=true
+fi
+ if test x"$MPI_LAUNCH" = xtrue; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+fi
+fi
+fi
+ if test x"$MPI_LAUNCH" = xtrue; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: MPI launch command not found or not compilable" >&5
+$as_echo "$as_me: WARNING: MPI launch command not found or not compilable" >&2;}
+else
+ :
+fi
+
+ CPPFLAGS=$saved_CPPFLAGS
+ LIBS=$saved_LIBS
+
+ build_pio_fc_programs=$enable_cf_interface
+ test "x$FC" = xno && build_pio_fc_programs=no
+ if test "x$build_pio_fc_programs" = xyes; then :
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=FC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=FC $ac_compile"
+ have_MPI_fc_bindings=yes
+
+# Check whether --with-mpi-root was given.
+if test "${with_mpi_root+set}" = set; then :
+ withval=$with_mpi_root; MPIROOT=$withval
+fi
+
+ if ${MPIROOT+:} false; then :
+ if ${MPI_FC_LIB+:} false; then :
+
+else
+ MPI_FC_LIB="-L$MPIROOT/lib"
+fi
+ if ${MPI_FC_MOD+:} false; then :
+
+else
+ MPI_FC_MOD="$FC_MOD_FLAG$MPIROOT/include"
+fi
+fi
+
+# Check whether --with-mpi-fc-mod was given.
+if test "${with_mpi_fc_mod+set}" = set; then :
+ withval=$with_mpi_fc_mod; MPI_FC_MOD="$FC_MOD_FLAG$withval"
+fi
+
+
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for mpi extra module path" >&5
+$as_echo_n "checking for mpi extra module path... " >&6; }
+ if ${acx_cv_fortran_mod_mpi+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_mod_search_FCFLAGS_SAVE=$FCFLAGS
+ for ac_moddir in '' "$MPIROOT/include" "$MPIROOT/lib"
+do :
+ if test -z "$ac_moddir"; then :
+ ac_res="none required"
+ FCFLAGS="$MPI_FC_MOD $ac_mod_search_FCFLAGS_SAVE"
+else
+ ac_res="$FC_MOD_FLAG$ac_moddir"
+ FCFLAGS="$MPI_FC_MOD $ac_res $ac_mod_search_FCFLAGS_SAVE"
+fi
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=FC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=FC $ac_compile"
+
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+ use mpi
+ end
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+ acx_cv_fortran_mod_mpi=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=FC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=FC $ac_compile"
+
+ if ${acx_cv_fortran_mod_mpi+:} false; then :
+ if test -z "$ac_moddir"; then :
+ acx_cv_fortran_mod_mpi="$MPI_FC_MOD"
+else
+ acx_cv_fortran_mod_mpi="$MPI_FC_MOD $FC_MOD_FLAG$ac_moddir"
+fi
+ break
+fi
+done
+ FCFLAGS=$ac_mod_search_FCFLAGS_SAVE
+fi
+
+ if ${acx_cv_fortran_mod_mpi+:} false; then :
+ if test x"$acx_cv_fortran_mod_mpi" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_fortran_mod_mpi" >&5
+$as_echo "$acx_cv_fortran_mod_mpi" >&6; }
+fi
+ MPI_FC_MOD=$acx_cv_fortran_mod_mpi
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ have_MPI_fc_bindings=no; { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: required Fortran module mpi not found or not compilable" >&5
+$as_echo "$as_me: WARNING: required Fortran module mpi not found or not compilable" >&2;}
+ build_pio_fc_programs=no
+fi
+
+
+# Check whether --with-mpi-fc-lib was given.
+if test "${with_mpi_fc_lib+set}" = set; then :
+ withval=$with_mpi_fc_lib; MPI_FC_LIB="-L$withval"
+fi
+
+ if test "x$have_MPI_fc_bindings" = xyes; then :
+ acx_save_FCFLAGS=$FCFLAGS
+ FCFLAGS="$MPI_FC_MOD $FCFLAGS"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing mpi_waitall" >&5
+$as_echo_n "checking for library containing mpi_waitall... " >&6; }
+ if ${acx_cv_option_search_mpi_waitall_fc+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_option_func_search_save_LIBS=$LIBS
+ while :; do
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+ use mpi
+ INTEGER :: req(1), stat(mpi_status_size, 1), ierror
+ call mpi_waitall(1, req, stat, ierror)
+ end
+_ACEOF
+ for ac_lib in '' mpi mpi_f90 mpi_f77 mpich
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$MPI_FC_LIB $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$MPI_FC_LIB $ac_res $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_fc_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_mpi_waitall_fc="$MPI_FC_LIB"
+else
+ acx_cv_option_search_mpi_waitall_fc="$MPI_FC_LIB -l$ac_lib"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_mpi_waitall_fc+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_mpi_waitall_fc+:} false; then :
+ break
+fi
+ for acx_libset in "-lmpi_f77 -lmpi" "-lmpi"
+do :
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+ use mpi
+ INTEGER :: req(1), stat(mpi_status_size, 1), ierror
+ call mpi_waitall(1, req, stat, ierror)
+ end
+_ACEOF
+ for ac_lib in '' mpi mpi_f90 mpi_f77 mpich
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$MPI_FC_LIB $acx_libset $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$MPI_FC_LIB $ac_res $acx_libset $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_fc_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_mpi_waitall_fc="$MPI_FC_LIB $acx_libset"
+else
+ acx_cv_option_search_mpi_waitall_fc="$MPI_FC_LIB -l$ac_lib $acx_libset"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_mpi_waitall_fc+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_mpi_waitall_fc+:} false; then :
+ break
+fi
+
+done
+ break
+ done
+ LIBS=$acx_option_func_search_save_LIBS
+fi
+
+ if ${acx_cv_option_search_mpi_waitall_fc+:} false; then :
+ if test x"$acx_cv_option_search_mpi_waitall_fc" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_option_search_mpi_waitall_fc" >&5
+$as_echo "$acx_cv_option_search_mpi_waitall_fc" >&6; }
+fi
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ have_MPI_fc_bindings=no ; { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cannot link Fortran MPI programs" >&5
+$as_echo "$as_me: WARNING: cannot link Fortran MPI programs" >&2;}
+ build_pio_fc_programs=no
+fi
+
+ FCFLAGS=$acx_save_FCFLAGS
+ MPI_FC_LIB=`echo "$acx_cv_option_search_mpi_waitall_fc" | sed -e 's/^ *//;s/ *$//'`
+
+fi
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+fi
+
+
+
+
+
+
+
+
+if test "x$ac_cv_env_PKG_CONFIG_set" != "xset"; then
+ if test -n "$ac_tool_prefix"; then
+ # Extract the first word of "${ac_tool_prefix}pkg-config", so it can be a program name with args.
+set dummy ${ac_tool_prefix}pkg-config; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_path_PKG_CONFIG+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ case $PKG_CONFIG in
+ [\\/]* | ?:[\\/]*)
+ ac_cv_path_PKG_CONFIG="$PKG_CONFIG" # Let the user override the test with a path.
+ ;;
+ *)
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_path_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+ ;;
+esac
+fi
+PKG_CONFIG=$ac_cv_path_PKG_CONFIG
+if test -n "$PKG_CONFIG"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PKG_CONFIG" >&5
+$as_echo "$PKG_CONFIG" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+fi
+if test -z "$ac_cv_path_PKG_CONFIG"; then
+ ac_pt_PKG_CONFIG=$PKG_CONFIG
+ # Extract the first word of "pkg-config", so it can be a program name with args.
+set dummy pkg-config; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_path_ac_pt_PKG_CONFIG+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ case $ac_pt_PKG_CONFIG in
+ [\\/]* | ?:[\\/]*)
+ ac_cv_path_ac_pt_PKG_CONFIG="$ac_pt_PKG_CONFIG" # Let the user override the test with a path.
+ ;;
+ *)
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_path_ac_pt_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+ ;;
+esac
+fi
+ac_pt_PKG_CONFIG=$ac_cv_path_ac_pt_PKG_CONFIG
+if test -n "$ac_pt_PKG_CONFIG"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_PKG_CONFIG" >&5
+$as_echo "$ac_pt_PKG_CONFIG" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+ if test "x$ac_pt_PKG_CONFIG" = x; then
+ PKG_CONFIG=""
+ else
+ case $cross_compiling:$ac_tool_warned in
+yes:)
+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
+ac_tool_warned=yes ;;
+esac
+ PKG_CONFIG=$ac_pt_PKG_CONFIG
+ fi
+else
+ PKG_CONFIG="$ac_cv_path_PKG_CONFIG"
+fi
+
+fi
+if test -n "$PKG_CONFIG"; then
+ _pkg_min_version=0.9.0
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking pkg-config is at least version $_pkg_min_version" >&5
+$as_echo_n "checking pkg-config is at least version $_pkg_min_version... " >&6; }
+ if $PKG_CONFIG --atleast-pkgconfig-version $_pkg_min_version; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ PKG_CONFIG=""
+ fi
+fi
+ yaxt_c_CFLAGS=$YAXT_C_INCLUDE
+ yaxt_c_LIBS=$YAXT_C_LIB
+
+pkg_failed=no
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for yaxt_c" >&5
+$as_echo_n "checking for yaxt_c... " >&6; }
+
+if test -n "$yaxt_c_CFLAGS"; then
+ pkg_cv_yaxt_c_CFLAGS="$yaxt_c_CFLAGS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"yaxt_c\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "yaxt_c") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_yaxt_c_CFLAGS=`$PKG_CONFIG --cflags "yaxt_c" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+if test -n "$yaxt_c_LIBS"; then
+ pkg_cv_yaxt_c_LIBS="$yaxt_c_LIBS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"yaxt_c\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "yaxt_c") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_yaxt_c_LIBS=`$PKG_CONFIG --libs "yaxt_c" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+
+
+
+if test $pkg_failed = yes; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+
+if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
+ _pkg_short_errors_supported=yes
+else
+ _pkg_short_errors_supported=no
+fi
+ if test $_pkg_short_errors_supported = yes; then
+ yaxt_c_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "yaxt_c" 2>&1`
+ else
+ yaxt_c_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "yaxt_c" 2>&1`
+ fi
+ # Put the nasty error message in config.log where it belongs
+ echo "$yaxt_c_PKG_ERRORS" >&5
+
+ yaxt_CFLAGS=$YAXT_C_INCLUDE
+ yaxt_LIBS=$YAXT_C_LIB
+
+pkg_failed=no
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for yaxt" >&5
+$as_echo_n "checking for yaxt... " >&6; }
+
+if test -n "$yaxt_CFLAGS"; then
+ pkg_cv_yaxt_CFLAGS="$yaxt_CFLAGS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"yaxt\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "yaxt") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_yaxt_CFLAGS=`$PKG_CONFIG --cflags "yaxt" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+if test -n "$yaxt_LIBS"; then
+ pkg_cv_yaxt_LIBS="$yaxt_LIBS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"yaxt\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "yaxt") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_yaxt_LIBS=`$PKG_CONFIG --libs "yaxt" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+
+
+
+if test $pkg_failed = yes; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+
+if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
+ _pkg_short_errors_supported=yes
+else
+ _pkg_short_errors_supported=no
+fi
+ if test $_pkg_short_errors_supported = yes; then
+ yaxt_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "yaxt" 2>&1`
+ else
+ yaxt_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "yaxt" 2>&1`
+ fi
+ # Put the nasty error message in config.log where it belongs
+ echo "$yaxt_PKG_ERRORS" >&5
+
+ :
+elif test $pkg_failed = untried; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ :
+else
+ yaxt_CFLAGS=$pkg_cv_yaxt_CFLAGS
+ yaxt_LIBS=$pkg_cv_yaxt_LIBS
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ YAXT_VERSION=`$PKG_CONFIG --modversion yaxt`
+ YAXT_MAJOR_VERSION=`expr X"$YAXT_VERSION" : "X\([0-9]*\)"`
+ YAXT_MINOR_VERSION=`echo "$YAXT_VERSION" | sed -e 's/^[0-9]*\.\([0-9]*\).*/\1/'`
+ if test "$YAXT_MAJOR_VERSION" -gt 0 -o "$YAXT_MINOR_VERSION" -gt 4; then :
+ YAXT_C_INCLUDE=$yaxt_CFLAGS
+ YAXT_C_LIB=`echo "$yaxt_LIBS" | sed -e 's/-lyaxt *$/-lyaxt_c/'`
+fi
+fi
+elif test $pkg_failed = untried; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ yaxt_CFLAGS=$YAXT_C_INCLUDE
+ yaxt_LIBS=$YAXT_C_LIB
+
+pkg_failed=no
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for yaxt" >&5
+$as_echo_n "checking for yaxt... " >&6; }
+
+if test -n "$yaxt_CFLAGS"; then
+ pkg_cv_yaxt_CFLAGS="$yaxt_CFLAGS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"yaxt\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "yaxt") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_yaxt_CFLAGS=`$PKG_CONFIG --cflags "yaxt" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+if test -n "$yaxt_LIBS"; then
+ pkg_cv_yaxt_LIBS="$yaxt_LIBS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"yaxt\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "yaxt") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_yaxt_LIBS=`$PKG_CONFIG --libs "yaxt" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+
+
+
+if test $pkg_failed = yes; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+
+if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
+ _pkg_short_errors_supported=yes
+else
+ _pkg_short_errors_supported=no
+fi
+ if test $_pkg_short_errors_supported = yes; then
+ yaxt_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "yaxt" 2>&1`
+ else
+ yaxt_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "yaxt" 2>&1`
+ fi
+ # Put the nasty error message in config.log where it belongs
+ echo "$yaxt_PKG_ERRORS" >&5
+
+ :
+elif test $pkg_failed = untried; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ :
+else
+ yaxt_CFLAGS=$pkg_cv_yaxt_CFLAGS
+ yaxt_LIBS=$pkg_cv_yaxt_LIBS
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ YAXT_VERSION=`$PKG_CONFIG --modversion yaxt`
+ YAXT_MAJOR_VERSION=`expr X"$YAXT_VERSION" : "X\([0-9]*\)"`
+ YAXT_MINOR_VERSION=`echo "$YAXT_VERSION" | sed -e 's/^[0-9]*\.\([0-9]*\).*/\1/'`
+ if test "$YAXT_MAJOR_VERSION" -gt 0 -o "$YAXT_MINOR_VERSION" -gt 4; then :
+ YAXT_C_INCLUDE=$yaxt_CFLAGS
+ YAXT_C_LIB=`echo "$yaxt_LIBS" | sed -e 's/-lyaxt *$/-lyaxt_c/'`
+fi
+fi
+else
+ yaxt_c_CFLAGS=$pkg_cv_yaxt_c_CFLAGS
+ yaxt_c_LIBS=$pkg_cv_yaxt_c_LIBS
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ YAXT_C_INCLUDE=$yaxt_c_CFLAGS
+ YAXT_C_LIB=$yaxt_c_LIBS
+fi
+ saved_CPPFLAGS=$CPPFLAGS
+ saved_LIBS=$LIBS
+ as_fn_append CPPFLAGS " $MPI_C_INCLUDE"
+ LIBS="$MPI_C_LIB $LIBS"
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for yaxt.h extra include path" >&5
+$as_echo_n "checking for yaxt.h extra include path... " >&6; }
+ if ${acx_cv_c_include_yaxt_h+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_include_search_yaxt_h_SAVE="$CPPFLAGS"
+ while :; do
+ for ac_incdir in ''
+do :
+ if test -z "$ac_incdir"; then :
+ ac_res="none required"
+ CPPFLAGS="$YAXT_C_INCLUDE $ac_include_search_yaxt_h_SAVE"
+else
+ ac_res="-I$ac_incdir"
+ CPPFLAGS="$YAXT_C_INCLUDE $ac_res $ac_include_search_yaxt_h_SAVE"
+fi
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$ac_includes_default
+#include <yaxt.h>
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ acx_cv_c_include_yaxt_h=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ if ${acx_cv_c_include_yaxt_h+:} false; then :
+ if test -z "$ac_incdir"; then :
+ acx_cv_c_include_yaxt_h="$YAXT_C_INCLUDE"
+else
+ acx_cv_c_include_yaxt_h="$YAXT_C_INCLUDE -I$ac_incdir"
+fi
+fi
+ if ${acx_cv_c_include_yaxt_h+:} false; then :
+ break
+fi
+done
+ if ${acx_cv_c_include_yaxt_h+:} false; then :
+ break
+fi
+
+ break
+ done
+ CPPFLAGS=$ac_include_search_yaxt_h_SAVE
+fi
+
+ if ${acx_cv_c_include_yaxt_h+:} false; then :
+ if test x"$acx_cv_c_include_yaxt_h" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_c_include_yaxt_h" >&5
+$as_echo "$acx_cv_c_include_yaxt_h" >&6; }
+fi
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+fi
+ if ${acx_cv_c_include_yaxt_h+:} false; then :
+ YAXT_C_INCLUDE=$acx_cv_c_include_yaxt_h
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing xt_initialized" >&5
+$as_echo_n "checking for library containing xt_initialized... " >&6; }
+ if ${acx_cv_option_search_xt_initialized_c+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_option_func_search_save_LIBS=$LIBS
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char xt_initialized ();
+int
+main ()
+{
+return xt_initialized ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' yaxt_c yaxt
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$YAXT_C_LIB $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$YAXT_C_LIB $ac_res $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_xt_initialized_c="$YAXT_C_LIB"
+else
+ acx_cv_option_search_xt_initialized_c="$YAXT_C_LIB -l$ac_lib"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_xt_initialized_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_xt_initialized_c+:} false; then :
+ break
+fi
+ for acx_libset in ""
+do :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char xt_initialized ();
+int
+main ()
+{
+return xt_initialized ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' yaxt_c yaxt
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$YAXT_C_LIB $acx_libset $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$YAXT_C_LIB $ac_res $acx_libset $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_xt_initialized_c="$YAXT_C_LIB $acx_libset"
+else
+ acx_cv_option_search_xt_initialized_c="$YAXT_C_LIB -l$ac_lib $acx_libset"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_xt_initialized_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_xt_initialized_c+:} false; then :
+ break
+fi
+
+done
+ break
+ done
+ LIBS=$acx_option_func_search_save_LIBS
+fi
+
+ if ${acx_cv_option_search_xt_initialized_c+:} false; then :
+ if test x"$acx_cv_option_search_xt_initialized_c" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_option_search_xt_initialized_c" >&5
+$as_echo "$acx_cv_option_search_xt_initialized_c" >&6; }
+fi
+ YAXT_C_LIB=$acx_cv_option_search_xt_initialized_c
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "cannot link C YAXT programs
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+else
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "required header yaxt.h not found or not compilable
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+ defined_Xt_uid=no
+ ac_fn_c_check_decl "$LINENO" "MPI_UINT64_T" "ac_cv_have_decl_MPI_UINT64_T" "$ac_includes_default
+#include <mpi.h>
+"
+if test "x$ac_cv_have_decl_MPI_UINT64_T" = xyes; then :
+ $as_echo "#define YAXT_UID_DT MPI_UINT64_T" >>confdefs.h
+
+ defined_Xt_uid=yes
+else
+ as_fn_append CPPFLAGS " $YAXT_C_INCLUDE"
+ LIBS="$YAXT_C_LIB $LIBS"
+ # The cast to long int works around a bug in the HP C Compiler
+# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects
+# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'.
+# This bug is HP SR number 8606223364.
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of Xt_uid" >&5
+$as_echo_n "checking size of Xt_uid... " >&6; }
+if ${ac_cv_sizeof_Xt_uid+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (Xt_uid))" "ac_cv_sizeof_Xt_uid" "$ac_includes_default
+#include <yaxt.h>
+"; then :
+
+else
+ if test "$ac_cv_type_Xt_uid" = yes; then
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error 77 "cannot compute sizeof (Xt_uid)
+See \`config.log' for more details" "$LINENO" 5; }
+ else
+ ac_cv_sizeof_Xt_uid=0
+ fi
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_Xt_uid" >&5
+$as_echo "$ac_cv_sizeof_Xt_uid" >&6; }
+
+
+
+cat >>confdefs.h <<_ACEOF
+#define SIZEOF_XT_UID $ac_cv_sizeof_Xt_uid
+_ACEOF
+
+
+ # The cast to long int works around a bug in the HP C Compiler
+# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects
+# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'.
+# This bug is HP SR number 8606223364.
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of unsigned long" >&5
+$as_echo_n "checking size of unsigned long... " >&6; }
+if ${ac_cv_sizeof_unsigned_long+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (unsigned long))" "ac_cv_sizeof_unsigned_long" "$ac_includes_default"; then :
+
+else
+ if test "$ac_cv_type_unsigned_long" = yes; then
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error 77 "cannot compute sizeof (unsigned long)
+See \`config.log' for more details" "$LINENO" 5; }
+ else
+ ac_cv_sizeof_unsigned_long=0
+ fi
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_unsigned_long" >&5
+$as_echo "$ac_cv_sizeof_unsigned_long" >&6; }
+
+
+
+cat >>confdefs.h <<_ACEOF
+#define SIZEOF_UNSIGNED_LONG $ac_cv_sizeof_unsigned_long
+_ACEOF
+
+
+ if test "$ac_cv_sizeof_unsigned_long" -eq "$ac_cv_sizeof_Xt_uid"; then :
+ $as_echo "#define YAXT_UID_DT MPI_UNSIGNED_LONG" >>confdefs.h
+
+ defined_Xt_uid=yes
+else
+ ac_fn_c_check_decl "$LINENO" "MPI_UNSIGNED_LONG_LONG" "ac_cv_have_decl_MPI_UNSIGNED_LONG_LONG" "$ac_includes_default
+#include <mpi.h>
+"
+if test "x$ac_cv_have_decl_MPI_UNSIGNED_LONG_LONG" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_MPI_UNSIGNED_LONG_LONG $ac_have_decl
+_ACEOF
+if test $ac_have_decl = 1; then :
+ # The cast to long int works around a bug in the HP C Compiler
+# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects
+# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'.
+# This bug is HP SR number 8606223364.
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of unsigned long long" >&5
+$as_echo_n "checking size of unsigned long long... " >&6; }
+if ${ac_cv_sizeof_unsigned_long_long+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (unsigned long long))" "ac_cv_sizeof_unsigned_long_long" "$ac_includes_default"; then :
+
+else
+ if test "$ac_cv_type_unsigned_long_long" = yes; then
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error 77 "cannot compute sizeof (unsigned long long)
+See \`config.log' for more details" "$LINENO" 5; }
+ else
+ ac_cv_sizeof_unsigned_long_long=0
+ fi
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_unsigned_long_long" >&5
+$as_echo "$ac_cv_sizeof_unsigned_long_long" >&6; }
+
+
+
+cat >>confdefs.h <<_ACEOF
+#define SIZEOF_UNSIGNED_LONG_LONG $ac_cv_sizeof_unsigned_long_long
+_ACEOF
+
+
+ if test "$ac_cv_sizeof_unsigned_long_long" -eq "$ac_cv_sizeof_Xt_uid"; then :
+ $as_echo "#define YAXT_UID_DT MPI_UNSIGNED_LONG_LONG" >>confdefs.h
+
+ defined_Xt_uid=yes
+fi
+fi
+
+fi
+fi
+
+ if test "x$defined_Xt_uid" = xno; then :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "no way to communicate Xt_uid found
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+ { defined_Xt_uid=; unset defined_Xt_uid;}
+ CPPFLAGS=$saved_CPPFLAGS
+ LIBS=$saved_LIBS
+
+ if test "x$build_pio_fc_programs" = xyes; then :
+ yaxt_CFLAGS=$YAXT_FC_MOD
+ yaxt_LIBS=$YAXT_FC_LIB
+
+pkg_failed=no
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for yaxt" >&5
+$as_echo_n "checking for yaxt... " >&6; }
+
+if test -n "$yaxt_CFLAGS"; then
+ pkg_cv_yaxt_CFLAGS="$yaxt_CFLAGS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"yaxt\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "yaxt") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_yaxt_CFLAGS=`$PKG_CONFIG --cflags "yaxt" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+if test -n "$yaxt_LIBS"; then
+ pkg_cv_yaxt_LIBS="$yaxt_LIBS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"yaxt\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "yaxt") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_yaxt_LIBS=`$PKG_CONFIG --libs "yaxt" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+
+
+
+if test $pkg_failed = yes; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+
+if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
+ _pkg_short_errors_supported=yes
+else
+ _pkg_short_errors_supported=no
+fi
+ if test $_pkg_short_errors_supported = yes; then
+ yaxt_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "yaxt" 2>&1`
+ else
+ yaxt_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "yaxt" 2>&1`
+ fi
+ # Put the nasty error message in config.log where it belongs
+ echo "$yaxt_PKG_ERRORS" >&5
+
+ :
+elif test $pkg_failed = untried; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ :
+else
+ yaxt_CFLAGS=$pkg_cv_yaxt_CFLAGS
+ yaxt_LIBS=$pkg_cv_yaxt_LIBS
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ YAXT_FC_MOD=$yaxt_CFLAGS
+ YAXT_FC_LIB=$yaxt_LIBS
+fi
+ saved_FCFLAGS=$FCFLAGS
+ saved_LIBS=$LIBS
+ as_fn_append FCFLAGS " $MPI_FC_MOD"
+ LIBS="$MPI_FC_LIB $LIBS"
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=FC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=FC $ac_compile"
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for yaxt extra module path" >&5
+$as_echo_n "checking for yaxt extra module path... " >&6; }
+ if ${acx_cv_fortran_mod_yaxt+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_mod_search_FCFLAGS_SAVE=$FCFLAGS
+ for ac_moddir in ''
+do :
+ if test -z "$ac_moddir"; then :
+ ac_res="none required"
+ FCFLAGS="$YAXT_FC_MOD $ac_mod_search_FCFLAGS_SAVE"
+else
+ ac_res="$FC_MOD_FLAG$ac_moddir"
+ FCFLAGS="$YAXT_FC_MOD $ac_res $ac_mod_search_FCFLAGS_SAVE"
+fi
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=FC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=FC $ac_compile"
+
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+ use yaxt
+ end
+_ACEOF
+if ac_fn_fc_try_compile "$LINENO"; then :
+ acx_cv_fortran_mod_yaxt=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ac_ext=${ac_fc_srcext-f}
+ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
+ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=FC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=FC $ac_compile"
+
+ if ${acx_cv_fortran_mod_yaxt+:} false; then :
+ if test -z "$ac_moddir"; then :
+ acx_cv_fortran_mod_yaxt="$YAXT_FC_MOD"
+else
+ acx_cv_fortran_mod_yaxt="$YAXT_FC_MOD $FC_MOD_FLAG$ac_moddir"
+fi
+ break
+fi
+done
+ FCFLAGS=$ac_mod_search_FCFLAGS_SAVE
+fi
+
+ if ${acx_cv_fortran_mod_yaxt+:} false; then :
+ if test x"$acx_cv_fortran_mod_yaxt" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_fortran_mod_yaxt" >&5
+$as_echo "$acx_cv_fortran_mod_yaxt" >&6; }
+fi
+ YAXT_FC_MOD=$acx_cv_fortran_mod_yaxt
+ as_fn_append FCFLAGS " $YAXT_FC_MOD"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing xt_initialized" >&5
+$as_echo_n "checking for library containing xt_initialized... " >&6; }
+ if ${acx_cv_option_search_xt_initialized_fc+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_option_func_search_save_LIBS=$LIBS
+ while :; do
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+ use yaxt
+ logical is_initialized
+ is_initialized = xt_initialized()
+ call xt_finalize()
+ end
+_ACEOF
+ for ac_lib in '' yaxt
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$YAXT_FC_LIB $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$YAXT_FC_LIB $ac_res $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_fc_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_xt_initialized_fc="$YAXT_FC_LIB"
+else
+ acx_cv_option_search_xt_initialized_fc="$YAXT_FC_LIB -l$ac_lib"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_xt_initialized_fc+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_xt_initialized_fc+:} false; then :
+ break
+fi
+ for acx_libset in "-lyaxt_c"
+do :
+ cat > conftest.$ac_ext <<_ACEOF
+ program conftest
+ use yaxt
+ logical is_initialized
+ is_initialized = xt_initialized()
+ call xt_finalize()
+ end
+_ACEOF
+ for ac_lib in '' yaxt
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$YAXT_FC_LIB $acx_libset $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$YAXT_FC_LIB $ac_res $acx_libset $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_fc_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_xt_initialized_fc="$YAXT_FC_LIB $acx_libset"
+else
+ acx_cv_option_search_xt_initialized_fc="$YAXT_FC_LIB -l$ac_lib $acx_libset"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_xt_initialized_fc+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_xt_initialized_fc+:} false; then :
+ break
+fi
+
+done
+ break
+ done
+ LIBS=$acx_option_func_search_save_LIBS
+fi
+
+ if ${acx_cv_option_search_xt_initialized_fc+:} false; then :
+ if test x"$acx_cv_option_search_xt_initialized_fc" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_option_search_xt_initialized_fc" >&5
+$as_echo "$acx_cv_option_search_xt_initialized_fc" >&6; }
+fi
+ YAXT_FC_LIB=$acx_cv_option_search_xt_initialized_fc
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cannot link Fortran YAXT programs" >&5
+$as_echo "$as_me: WARNING: cannot link Fortran YAXT programs" >&2;}
+ build_pio_fc_programs=no
+fi
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: required Fortran module yaxt not found or not compilable" >&5
+$as_echo "$as_me: WARNING: required Fortran module yaxt not found or not compilable" >&2;}
+ build_pio_fc_programs=no
+fi
+
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+ FCFLAGS=$saved_FCFLAGS
+ LIBS=$saved_LIBS
+fi
+
+ ppm_core_CFLAGS=$PPM_CORE_C_INCLUDE
+ ppm_core_LIBS=$PPM_CORE_C_LIB
+
+pkg_failed=no
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ppm_core" >&5
+$as_echo_n "checking for ppm_core... " >&6; }
+
+if test -n "$ppm_core_CFLAGS"; then
+ pkg_cv_ppm_core_CFLAGS="$ppm_core_CFLAGS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"scales-ppm-core\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "scales-ppm-core") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_ppm_core_CFLAGS=`$PKG_CONFIG --cflags "scales-ppm-core" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+if test -n "$ppm_core_LIBS"; then
+ pkg_cv_ppm_core_LIBS="$ppm_core_LIBS"
+ elif test -n "$PKG_CONFIG"; then
+ if test -n "$PKG_CONFIG" && \
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"scales-ppm-core\""; } >&5
+ ($PKG_CONFIG --exists --print-errors "scales-ppm-core") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+ test $ac_status = 0; }; then
+ pkg_cv_ppm_core_LIBS=`$PKG_CONFIG --libs "scales-ppm-core" 2>/dev/null`
+ test "x$?" != "x0" && pkg_failed=yes
+else
+ pkg_failed=yes
+fi
+ else
+ pkg_failed=untried
+fi
+
+
+
+if test $pkg_failed = yes; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+
+if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
+ _pkg_short_errors_supported=yes
+else
+ _pkg_short_errors_supported=no
+fi
+ if test $_pkg_short_errors_supported = yes; then
+ ppm_core_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "scales-ppm-core" 2>&1`
+ else
+ ppm_core_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "scales-ppm-core" 2>&1`
+ fi
+ # Put the nasty error message in config.log where it belongs
+ echo "$ppm_core_PKG_ERRORS" >&5
+
+ :
+elif test $pkg_failed = untried; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ :
+else
+ ppm_core_CFLAGS=$pkg_cv_ppm_core_CFLAGS
+ ppm_core_LIBS=$pkg_cv_ppm_core_LIBS
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ PPM_CORE_C_INCLUDE=$ppm_core_CFLAGS
+ PPM_CORE_C_LIB=$ppm_core_LIBS
+fi
+ saved_CPPFLAGS=$CPPFLAGS
+ saved_LIBS=$LIBS
+ as_fn_append CPPFLAGS " $MPI_C_INCLUDE"
+ LIBS="$MPI_C_LIB $LIBS"
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ppm/ppm.h extra include path" >&5
+$as_echo_n "checking for ppm/ppm.h extra include path... " >&6; }
+ if ${acx_cv_c_include_ppm_ppm_h+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_include_search_ppm_ppm_h_SAVE="$CPPFLAGS"
+ while :; do
+ for ac_incdir in ''
+do :
+ if test -z "$ac_incdir"; then :
+ ac_res="none required"
+ CPPFLAGS="$PPM_CORE_C_INCLUDE $ac_include_search_ppm_ppm_h_SAVE"
+else
+ ac_res="-I$ac_incdir"
+ CPPFLAGS="$PPM_CORE_C_INCLUDE $ac_res $ac_include_search_ppm_ppm_h_SAVE"
+fi
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+$ac_includes_default
+#include <ppm/ppm.h>
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ acx_cv_c_include_ppm_ppm_h=yes
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ if ${acx_cv_c_include_ppm_ppm_h+:} false; then :
+ if test -z "$ac_incdir"; then :
+ acx_cv_c_include_ppm_ppm_h="$PPM_CORE_C_INCLUDE"
+else
+ acx_cv_c_include_ppm_ppm_h="$PPM_CORE_C_INCLUDE -I$ac_incdir"
+fi
+fi
+ if ${acx_cv_c_include_ppm_ppm_h+:} false; then :
+ break
+fi
+done
+ if ${acx_cv_c_include_ppm_ppm_h+:} false; then :
+ break
+fi
+
+ break
+ done
+ CPPFLAGS=$ac_include_search_ppm_ppm_h_SAVE
+fi
+
+ if ${acx_cv_c_include_ppm_ppm_h+:} false; then :
+ if test x"$acx_cv_c_include_ppm_ppm_h" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_c_include_ppm_ppm_h" >&5
+$as_echo "$acx_cv_c_include_ppm_ppm_h" >&6; }
+fi
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+fi
+ if ${acx_cv_c_include_ppm_ppm_h+:} false; then :
+ PPM_CORE_C_INCLUDE=$acx_cv_c_include_ppm_ppm_h
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing PPM_initialize" >&5
+$as_echo_n "checking for library containing PPM_initialize... " >&6; }
+ if ${acx_cv_option_search_PPM_initialize_c+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_option_func_search_save_LIBS=$LIBS
+ while :; do
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char PPM_initialize ();
+int
+main ()
+{
+return PPM_initialize ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' scalesppmcore
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$PPM_CORE_C_LIB $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$PPM_CORE_C_LIB $ac_res $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_PPM_initialize_c="$PPM_CORE_C_LIB"
+else
+ acx_cv_option_search_PPM_initialize_c="$PPM_CORE_C_LIB -l$ac_lib"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_PPM_initialize_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_PPM_initialize_c+:} false; then :
+ break
+fi
+ for acx_libset in ""
+do :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char PPM_initialize ();
+int
+main ()
+{
+return PPM_initialize ();
+ ;
+ return 0;
+}
+_ACEOF
+ for ac_lib in '' scalesppmcore
+do :
+ if test -z "$ac_lib"; then :
+ ac_res="none required"
+ LIBS="$PPM_CORE_C_LIB $acx_libset $acx_option_func_search_save_LIBS"
+else
+ ac_res="-l$ac_lib"
+ LIBS="$PPM_CORE_C_LIB $ac_res $acx_libset $acx_option_func_search_save_LIBS"
+fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ if test x"$ac_res" = x"none required"; then :
+ acx_cv_option_search_PPM_initialize_c="$PPM_CORE_C_LIB $acx_libset"
+else
+ acx_cv_option_search_PPM_initialize_c="$PPM_CORE_C_LIB -l$ac_lib $acx_libset"
+fi
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${acx_cv_option_search_PPM_initialize_c+:} false; then :
+ break
+fi
+done
+ rm conftest.$ac_ext
+ if ${acx_cv_option_search_PPM_initialize_c+:} false; then :
+ break
+fi
+
+done
+ break
+ done
+ LIBS=$acx_option_func_search_save_LIBS
+fi
+
+ if ${acx_cv_option_search_PPM_initialize_c+:} false; then :
+ if test x"$acx_cv_option_search_PPM_initialize_c" = x; then :
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: (none required)" >&5
+$as_echo "(none required)" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_option_search_PPM_initialize_c" >&5
+$as_echo "$acx_cv_option_search_PPM_initialize_c" >&6; }
+fi
+ PPM_CORE_C_LIB=$acx_cv_option_search_PPM_initialize_c
+ have_ppm=yes
+
+$as_echo "#define HAVE_PPM_CORE /**/" >>confdefs.h
+
+ as_fn_append CPPFLAGS " $PPM_CORE_C_INCLUDE"
+ if test "x$enable_ppm_dist_array" != xno; then :
+ for ac_header in ppm/dist_array.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "ppm/dist_array.h" "ac_cv_header_ppm_dist_array_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_ppm_dist_array_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_PPM_DIST_ARRAY_H 1
+_ACEOF
+ HAVE_PPM_DIST_ARRAY=yes
+fi
+
+done
+
+fi
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: not found" >&5
+$as_echo "not found" >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cannot link C SCALES-PPM-CORE programs" >&5
+$as_echo "$as_me: WARNING: cannot link C SCALES-PPM-CORE programs" >&2;}
+fi
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: required header ppm/ppm.h not found or not compilable" >&5
+$as_echo "$as_me: WARNING: required header ppm/ppm.h not found or not compilable" >&2;}
+fi
+
+ CPPFLAGS=$saved_CPPFLAGS
+ LIBS=$saved_LIBS
+
+ if test "x$ENABLE_NETCDF" = xyes; then :
+ for ac_header in netcdf_meta.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "netcdf_meta.h" "ac_cv_header_netcdf_meta_h" "$ac_includes_default
+#include <netcdf.h>
+"
+if test "x$ac_cv_header_netcdf_meta_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_NETCDF_META_H 1
+_ACEOF
+
+fi
+
+done
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking parallel netcdf's pnetcdf support" >&5
+$as_echo_n "checking parallel netcdf's pnetcdf support... " >&6; }
+if ${acx_cv_have_pnetcdf+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ acx_cv_have_pnetcdf=no
+ test "x$NC_CONFIG" != "x" && \
+ test "x$($NC_CONFIG --has-pnetcdf)" = "xyes" && \
+ acx_cv_have_pnetcdf=yes
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acx_cv_have_pnetcdf" >&5
+$as_echo "$acx_cv_have_pnetcdf" >&6; }
+ if test "x$acx_cv_have_pnetcdf" = xyes; then :
+
+$as_echo "#define HAVE_NETCDF_PAR_PNETCDF 1" >>confdefs.h
+
+fi
+fi
+
+ if test "x$ENABLE_NC4" = xyes && test "x$have_ppm" = xyes; then :
+ saved_CPPFLAGS=$CPPFLAGS
+ as_fn_append CPPFLAGS " $MPI_C_INCLUDE"
+ for ac_header in netcdf_par.h
+do :
+ ac_fn_c_check_header_compile "$LINENO" "netcdf_par.h" "ac_cv_header_netcdf_par_h" "$ac_includes_default
+#include <netcdf.h>
+"
+if test "x$ac_cv_header_netcdf_par_h" = xyes; then :
+ cat >>confdefs.h <<_ACEOF
+#define HAVE_NETCDF_PAR_H 1
+_ACEOF
+
+fi
+
+done
+
+ ac_fn_c_check_decl "$LINENO" "MPI_Bcast" "ac_cv_have_decl_MPI_Bcast" "$ac_includes_default
+#include <netcdf.h>
+#ifdef HAVE_NETCDF_PAR_H
+#include <netcdf_par.h>
+#endif
+"
+if test "x$ac_cv_have_decl_MPI_Bcast" = xyes; then :
+ have_parallel_nc4=yes
+ ac_fn_c_check_decl "$LINENO" "nc_inq_format_extended" "ac_cv_have_decl_nc_inq_format_extended" "$ac_includes_default
+#include <netcdf.h>
+"
+if test "x$ac_cv_have_decl_nc_inq_format_extended" = xyes; then :
+ ac_have_decl=1
+else
+ ac_have_decl=0
+fi
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_DECL_NC_INQ_FORMAT_EXTENDED $ac_have_decl
+_ACEOF
+if test $ac_have_decl = 1; then :
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: The supplied netCDF library does not support nc_inq_format_extended." >&5
+$as_echo "$as_me: The supplied netCDF library does not support nc_inq_format_extended." >&6;}
+fi
+
+
+$as_echo "#define HAVE_PARALLEL_NC4 1" >>confdefs.h
+
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: the supplied netCDF library does not support MPI parallel invocations" >&5
+$as_echo "$as_me: WARNING: the supplied netCDF library does not support MPI parallel invocations" >&2;}
+fi
+
+ CPPFLAGS=$saved_CPPFLAGS
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for thread local storage (TLS) class" >&5
+$as_echo_n "checking for thread local storage (TLS) class... " >&6; }
+ if ${ac_cv_tls+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ for ax_tls_keyword in thread_local _Thread_local __thread '__declspec(thread)' none; do
+ case $ax_tls_keyword in #(
+ none) :
+ ac_cv_tls=none ; break ;; #(
+ *) :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <stdlib.h>
+int
+main ()
+{
+static $ax_tls_keyword int bar;
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_tls=$ax_tls_keyword ; break
+else
+ ac_cv_tls=none
+
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ;;
+esac
+ done
+
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_tls" >&5
+$as_echo "$ac_cv_tls" >&6; }
+
+ if test "$ac_cv_tls" != "none"; then :
+
+cat >>confdefs.h <<_ACEOF
+#define TLS $ac_cv_tls
+_ACEOF
+
+ :
+else
+ ac_cv_tls=`$CC -qversion 2>&1 | sed -n '/^IBM XL C/{
+n
+s/^Version: \([0-9]*\).*/\1/
+t print
+b
+: print
+p
+}'`
+ if test x"$ac_cv_tls" = x; then :
+ ac_cv_tls=`$CC -V | sed -n '/^pgcc /{
+s/^pgcc \(0-90-9.*\).*/\1/
+p
+}'`
+# pgcc 18.1 and newer support TLS if switched to C11 mode
+ as_arg_v1=$ac_cv_tls
+as_arg_v2=18.9
+awk "$as_awk_strverscmp" v1="$as_arg_v1" v2="$as_arg_v2" /dev/null
+case $? in #(
+ 1) :
+ ac_cv_tls=none ;; #(
+ 0) :
+ ac_cv_tls=none ;; #(
+ 2) :
+ saved_CFLAGS=$CFLAGS
+ case " $CFLAGS " in #(
+ -c11 ) :
+ ;; #(
+ *) :
+ CFLAGS="$CFLAGS -c11" ;;
+esac
+ if test x"$CFLAGS" = x"$saved_CFLAGS"; then :
+ ac_cv_tls=none
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: retrying with -c11 added to CFLAGS" >&5
+$as_echo "$as_me: retrying with -c11 added to CFLAGS" >&6;}
+ { ac_cv_tls=; unset ac_cv_tls;}
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for thread local storage (TLS) class" >&5
+$as_echo_n "checking for thread local storage (TLS) class... " >&6; }
+ if ${ac_cv_tls+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ for ax_tls_keyword in thread_local _Thread_local __thread '__declspec(thread)' none; do
+ case $ax_tls_keyword in #(
+ none) :
+ ac_cv_tls=none ; break ;; #(
+ *) :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <stdlib.h>
+int
+main ()
+{
+static $ax_tls_keyword int bar;
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_tls=$ax_tls_keyword ; break
+else
+ ac_cv_tls=none
+
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ;;
+esac
+ done
+
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_tls" >&5
+$as_echo "$ac_cv_tls" >&6; }
+
+ if test "$ac_cv_tls" != "none"; then :
+
+cat >>confdefs.h <<_ACEOF
+#define TLS $ac_cv_tls
+_ACEOF
+
+ :
+else
+ CFLAGS=$saved_CFLAGS
+fi
+
+fi ;; #(
+ *) :
+ ;;
+esac
+elif test "$ac_cv_tls" -gt 7; then :
+ # unless the user already set the -qtls option, add it and retry test
+ saved_CFLAGS=$CFLAGS
+ CFLAGS=`echo "$CFLAGS" | sed -n '/.*-qtls\(=[^ ]*\)\{0,1\}/{
+p
+q
+}
+s/$/ -qtls=initial-exec/
+p
+q
+'`
+ if test x"$CFLAGS" = x"$saved_CFLAGS"; then :
+ ac_cv_tls=none
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: retrying with -qtls=initial-exec added to CFLAGS" >&5
+$as_echo "$as_me: retrying with -qtls=initial-exec added to CFLAGS" >&6;}
+ { ac_cv_tls=; unset ac_cv_tls;}
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for thread local storage (TLS) class" >&5
+$as_echo_n "checking for thread local storage (TLS) class... " >&6; }
+ if ${ac_cv_tls+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ for ax_tls_keyword in thread_local _Thread_local __thread '__declspec(thread)' none; do
+ case $ax_tls_keyword in #(
+ none) :
+ ac_cv_tls=none ; break ;; #(
+ *) :
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+#include <stdlib.h>
+int
+main ()
+{
+static $ax_tls_keyword int bar;
+
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ ac_cv_tls=$ax_tls_keyword ; break
+else
+ ac_cv_tls=none
+
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ ;;
+esac
+ done
+
+fi
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_tls" >&5
+$as_echo "$ac_cv_tls" >&6; }
+
+ if test "$ac_cv_tls" != "none"; then :
+
+cat >>confdefs.h <<_ACEOF
+#define TLS $ac_cv_tls
+_ACEOF
+
+ :
+else
+ CFLAGS=$saved_CFLAGS
+fi
+
+fi
+
+else
+ ac_cv_tls=none
+fi
+fi
+
+
+
+fi
+
+ LIBRT=''
+
+ ac_fn_c_check_decl "$LINENO" "_POSIX_ASYNCHRONOUS_IO" "ac_cv_have_decl__POSIX_ASYNCHRONOUS_IO" "$ac_includes_default"
+if test "x$ac_cv_have_decl__POSIX_ASYNCHRONOUS_IO" = xyes; then :
+ saved_LIBS=$LIBS
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing aio_suspend" >&5
+$as_echo_n "checking for library containing aio_suspend... " >&6; }
+if ${ac_cv_search_aio_suspend+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_func_search_save_LIBS=$LIBS
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char aio_suspend ();
+int
+main ()
+{
+return aio_suspend ();
+ ;
+ return 0;
+}
+_ACEOF
+for ac_lib in '' rt; do
+ if test -z "$ac_lib"; then
+ ac_res="none required"
+ else
+ ac_res=-l$ac_lib
+ LIBS="-l$ac_lib $ac_func_search_save_LIBS"
+ fi
+ if ac_fn_c_try_link "$LINENO"; then :
+ ac_cv_search_aio_suspend=$ac_res
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext
+ if ${ac_cv_search_aio_suspend+:} false; then :
+ break
+fi
+done
+if ${ac_cv_search_aio_suspend+:} false; then :
+
+else
+ ac_cv_search_aio_suspend=no
+fi
+rm conftest.$ac_ext
+LIBS=$ac_func_search_save_LIBS
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_aio_suspend" >&5
+$as_echo "$ac_cv_search_aio_suspend" >&6; }
+ac_res=$ac_cv_search_aio_suspend
+if test "$ac_res" != no; then :
+ test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
+ test "$ac_res" = "none required" || LIBRT=$ac_res
+fi
+
+ LIBS=$saved_LIBS
+fi
+
+else
+ YAXT_C_INCLUDE=; YAXT_C_LIB=
+ MPI_C_INCLUDE=; MPI_C_LIB=
+fi
+case "$enable_ppm_dist_array$HAVE_PPM_DIST_ARRAY" in #(
+ yesyes|no*) :
+ ;; #(
+ auto*) :
+ enable_ppm_dist_array=$HAVE_PPM_DIST_ARRAY ;; #(
+ *) :
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "usage of the PPM distributed array is requested but the required headers and libraries are not found
+See \`config.log' for more details" "$LINENO" 5; } ;;
+esac
+if test "x$have_ppm" = xno; then :
+ PPM_CORE_C_INCLUDE=; PPM_CORE_C_LIB=
+fi
+if test "x$build_pio_fc_programs" = xno; then :
+ YAXT_FC_MOD=; YAXT_FC_LIB=
+ MPI_FC_MOD=; MPI_FC_LIB=
+fi
+ if test "x$build_pio_fc_programs" = xyes; then
+ BUILD_PIO_FC_PROGRAMS_TRUE=
+ BUILD_PIO_FC_PROGRAMS_FALSE='#'
+else
+ BUILD_PIO_FC_PROGRAMS_TRUE='#'
+ BUILD_PIO_FC_PROGRAMS_FALSE=
+fi
+
+ if test "x$enable_mpi" = xyes; then
+ ENABLE_MPI_TRUE=
+ ENABLE_MPI_FALSE='#'
+else
+ ENABLE_MPI_TRUE='#'
+ ENABLE_MPI_FALSE=
+fi
+
+ if test "x$have_parallel_nc4" = xyes; then
+ HAVE_PARALLEL_NC4_TRUE=
+ HAVE_PARALLEL_NC4_FALSE='#'
+else
+ HAVE_PARALLEL_NC4_TRUE='#'
+ HAVE_PARALLEL_NC4_FALSE=
+fi
+
+
+
+SWIG=${SWIG-"${am_missing_run}swig"}
+
+
+if test "x$enable_ruby_interface" = xyes; then :
+
+ for ac_prog in ruby
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_path_RUBY+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ case $RUBY in
+ [\\/]* | ?:[\\/]*)
+ ac_cv_path_RUBY="$RUBY" # Let the user override the test with a path.
+ ;;
+ *)
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_path_RUBY="$as_dir/$ac_word$ac_exec_ext"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+ ;;
+esac
+fi
+RUBY=$ac_cv_path_RUBY
+if test -n "$RUBY"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RUBY" >&5
+$as_echo "$RUBY" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$RUBY" && break
+done
+
+ ruby_CPPFLAGS=`$RUBY $srcdir/config/interface.rb 2>/dev/null`
+ if test $? -ne 0; then :
+ as_fn_error $? "Ruby interface is requested but the Ruby interpreter is not found" "$LINENO" 5
+fi
+ saved_CPPFLAGS=$CPPFLAGS
+ as_fn_append CPPFLAGS " $ruby_CPPFLAGS"
+ ac_fn_c_check_header_compile "$LINENO" "ruby.h" "ac_cv_header_ruby_h" "$ac_includes_default
+"
+if test "x$ac_cv_header_ruby_h" = xyes; then :
+
+else
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "Ruby interface is requested but the required header ruby.h not found or not compilable
+See \`config.log' for more details" "$LINENO" 5; }
+fi
+
+
+ CPPFLAGS=$saved_CPPFLAGS
+else
+
+RUBY=${RUBY-"${am_missing_run}ruby"}
+
+fi
+ if test "x$enable_ruby_interface" = xyes; then
+ ENABLE_RUBY_INTERFACE_TRUE=
+ ENABLE_RUBY_INTERFACE_FALSE='#'
+else
+ ENABLE_RUBY_INTERFACE_TRUE='#'
+ ENABLE_RUBY_INTERFACE_FALSE=
+fi
+
+
+if test "x$enable_python_interface" = xyes; then :
+ if ${PYTHON+:} false; then :
+ case $PYTHON in #(
+ [\\/]* | ?:[\\/]*) :
+ ;; #(
+ *) :
+ PYTHON= ;;
+esac
+fi
+
+
+
+
+
+
+ # Find any Python interpreter.
+ if test -z "$PYTHON"; then
+ for ac_prog in python python2 python3 python3.9 python3.8 python3.7 python3.6 python3.5 python3.4 python3.3 python3.2 python3.1 python3.0 python2.7 python2.6 python2.5 python2.4 python2.3 python2.2 python2.1 python2.0
+do
+ # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_path_PYTHON+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ case $PYTHON in
+ [\\/]* | ?:[\\/]*)
+ ac_cv_path_PYTHON="$PYTHON" # Let the user override the test with a path.
+ ;;
+ *)
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_path_PYTHON="$as_dir/$ac_word$ac_exec_ext"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+ ;;
+esac
+fi
+PYTHON=$ac_cv_path_PYTHON
+if test -n "$PYTHON"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PYTHON" >&5
+$as_echo "$PYTHON" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ test -n "$PYTHON" && break
+done
+test -n "$PYTHON" || PYTHON=":"
+
+ fi
+ am_display_PYTHON=python
+
+
+ if test "$PYTHON" = :; then
+ :
+ else
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $am_display_PYTHON version" >&5
+$as_echo_n "checking for $am_display_PYTHON version... " >&6; }
+if ${am_cv_python_version+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ am_cv_python_version=`$PYTHON -c "import sys; print ('%u.%u' % sys.version_info[:2])"`
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_python_version" >&5
+$as_echo "$am_cv_python_version" >&6; }
+ PYTHON_VERSION=$am_cv_python_version
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $am_display_PYTHON platform" >&5
+$as_echo_n "checking for $am_display_PYTHON platform... " >&6; }
+if ${am_cv_python_platform+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ am_cv_python_platform=`$PYTHON -c "import sys; sys.stdout.write(sys.platform)"`
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_python_platform" >&5
+$as_echo "$am_cv_python_platform" >&6; }
+ PYTHON_PLATFORM=$am_cv_python_platform
+
+
+ if test "x$prefix" = xNONE; then
+ am__usable_prefix=$ac_default_prefix
+ else
+ am__usable_prefix=$prefix
+ fi
+
+ # Allow user to request using sys.* values from Python,
+ # instead of the GNU $prefix values.
+
+# Check whether --with-python-sys-prefix was given.
+if test "${with_python_sys_prefix+set}" = set; then :
+ withval=$with_python_sys_prefix; am_use_python_sys=:
+else
+ am_use_python_sys=false
+fi
+
+
+ # Allow user to override whatever the default Python prefix is.
+
+# Check whether --with-python_prefix was given.
+if test "${with_python_prefix+set}" = set; then :
+ withval=$with_python_prefix; am_python_prefix_subst=$withval
+ am_cv_python_prefix=$withval
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for explicit $am_display_PYTHON prefix" >&5
+$as_echo_n "checking for explicit $am_display_PYTHON prefix... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_python_prefix" >&5
+$as_echo "$am_cv_python_prefix" >&6; }
+else
+
+ if $am_use_python_sys; then
+ # using python sys.prefix value, not GNU
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for python default $am_display_PYTHON prefix" >&5
+$as_echo_n "checking for python default $am_display_PYTHON prefix... " >&6; }
+if ${am_cv_python_prefix+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ am_cv_python_prefix=`$PYTHON -c "import sys; sys.stdout.write(sys.prefix)"`
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_python_prefix" >&5
+$as_echo "$am_cv_python_prefix" >&6; }
+
+ case $am_cv_python_prefix in
+ $am__usable_prefix*)
+ am__strip_prefix=`echo "$am__usable_prefix" | sed 's|.|.|g'`
+ am_python_prefix_subst=`echo "$am_cv_python_prefix" | sed "s,^$am__strip_prefix,\\${prefix},"`
+ ;;
+ *)
+ am_python_prefix_subst=$am_cv_python_prefix
+ ;;
+ esac
+ else # using GNU prefix value, not python sys.prefix
+ am_python_prefix_subst='${prefix}'
+ am_python_prefix=$am_python_prefix_subst
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU default $am_display_PYTHON prefix" >&5
+$as_echo_n "checking for GNU default $am_display_PYTHON prefix... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_python_prefix" >&5
+$as_echo "$am_python_prefix" >&6; }
+ fi
+fi
+
+ # Substituting python_prefix_subst value.
+ PYTHON_PREFIX=$am_python_prefix_subst
+
+
+ # emacs-page Now do it all over again for Python exec_prefix, but with yet
+ # another conditional: fall back to regular prefix if that was specified.
+
+# Check whether --with-python_exec_prefix was given.
+if test "${with_python_exec_prefix+set}" = set; then :
+ withval=$with_python_exec_prefix; am_python_exec_prefix_subst=$withval
+ am_cv_python_exec_prefix=$withval
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for explicit $am_display_PYTHON exec_prefix" >&5
+$as_echo_n "checking for explicit $am_display_PYTHON exec_prefix... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_python_exec_prefix" >&5
+$as_echo "$am_cv_python_exec_prefix" >&6; }
+else
+
+ # no explicit --with-python_exec_prefix, but if
+ # --with-python_prefix was given, use its value for python_exec_prefix too.
+ if test -n "$with_python_prefix"; then :
+ am_python_exec_prefix_subst=$with_python_prefix
+ am_cv_python_exec_prefix=$with_python_prefix
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for python_prefix-given $am_display_PYTHON exec_prefix" >&5
+$as_echo_n "checking for python_prefix-given $am_display_PYTHON exec_prefix... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_python_exec_prefix" >&5
+$as_echo "$am_cv_python_exec_prefix" >&6; }
+else
+
+ # Set am__usable_exec_prefix whether using GNU or Python values,
+ # since we use that variable for pyexecdir.
+ if test "x$exec_prefix" = xNONE; then
+ am__usable_exec_prefix=$am__usable_prefix
+ else
+ am__usable_exec_prefix=$exec_prefix
+ fi
+ #
+ if $am_use_python_sys; then # using python sys.exec_prefix, not GNU
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for python default $am_display_PYTHON exec_prefix" >&5
+$as_echo_n "checking for python default $am_display_PYTHON exec_prefix... " >&6; }
+if ${am_cv_python_exec_prefix+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ am_cv_python_exec_prefix=`$PYTHON -c "import sys; sys.stdout.write(sys.exec_prefix)"`
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_python_exec_prefix" >&5
+$as_echo "$am_cv_python_exec_prefix" >&6; }
+ case $am_cv_python_exec_prefix in
+ $am__usable_exec_prefix*)
+ am__strip_prefix=`echo "$am__usable_exec_prefix" | sed 's|.|.|g'`
+ am_python_exec_prefix_subst=`echo "$am_cv_python_exec_prefix" | sed "s,^$am__strip_prefix,\\${exec_prefix},"`
+ ;;
+ *)
+ am_python_exec_prefix_subst=$am_cv_python_exec_prefix
+ ;;
+ esac
+ else # using GNU $exec_prefix, not python sys.exec_prefix
+ am_python_exec_prefix_subst='${exec_prefix}'
+ am_python_exec_prefix=$am_python_exec_prefix_subst
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU default $am_display_PYTHON exec_prefix" >&5
+$as_echo_n "checking for GNU default $am_display_PYTHON exec_prefix... " >&6; }
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_python_exec_prefix" >&5
+$as_echo "$am_python_exec_prefix" >&6; }
+ fi
+fi
+fi
+
+ # Substituting python_exec_prefix_subst.
+ PYTHON_EXEC_PREFIX=$am_python_exec_prefix_subst
+
+
+ # Factor out some code duplication into this shell variable.
+ am_python_setup_sysconfig="\
+import sys
+# Prefer sysconfig over distutils.sysconfig, for better compatibility
+# with python 3.x. See automake bug#10227.
+try:
+ import sysconfig
+except ImportError:
+ can_use_sysconfig = 0
+else:
+ can_use_sysconfig = 1
+# Can't use sysconfig in CPython 2.7, since it's broken in virtualenvs:
+# <https://github.com/pypa/virtualenv/issues/118>
+try:
+ from platform import python_implementation
+ if python_implementation() == 'CPython' and sys.version[:3] == '2.7':
+ can_use_sysconfig = 0
+except ImportError:
+ pass"
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $am_display_PYTHON script directory (pythondir)" >&5
+$as_echo_n "checking for $am_display_PYTHON script directory (pythondir)... " >&6; }
+if ${am_cv_python_pythondir+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test "x$am_cv_python_prefix" = x; then
+ am_py_prefix=$am__usable_prefix
+ else
+ am_py_prefix=$am_cv_python_prefix
+ fi
+ am_cv_python_pythondir=`$PYTHON -c "
+$am_python_setup_sysconfig
+if can_use_sysconfig:
+ sitedir = sysconfig.get_path('purelib', vars={'base':'$am_py_prefix'})
+else:
+ from distutils import sysconfig
+ sitedir = sysconfig.get_python_lib(0, 0, prefix='$am_py_prefix')
+sys.stdout.write(sitedir)"`
+ #
+ case $am_cv_python_pythondir in
+ $am_py_prefix*)
+ am__strip_prefix=`echo "$am_py_prefix" | sed 's|.|.|g'`
+ am_cv_python_pythondir=`echo "$am_cv_python_pythondir" | sed "s,^$am__strip_prefix,\\${PYTHON_PREFIX},"`
+ ;;
+ *)
+ case $am_py_prefix in
+ /usr|/System*) ;;
+ *) am_cv_python_pythondir="\${PYTHON_PREFIX}/lib/python$PYTHON_VERSION/site-packages"
+ ;;
+ esac
+ ;;
+ esac
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_python_pythondir" >&5
+$as_echo "$am_cv_python_pythondir" >&6; }
+ pythondir=$am_cv_python_pythondir
+
+
+ pkgpythondir=\${pythondir}/$PACKAGE
+
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $am_display_PYTHON extension module directory (pyexecdir)" >&5
+$as_echo_n "checking for $am_display_PYTHON extension module directory (pyexecdir)... " >&6; }
+if ${am_cv_python_pyexecdir+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test "x$am_cv_python_exec_prefix" = x; then
+ am_py_exec_prefix=$am__usable_exec_prefix
+ else
+ am_py_exec_prefix=$am_cv_python_exec_prefix
+ fi
+ am_cv_python_pyexecdir=`$PYTHON -c "
+$am_python_setup_sysconfig
+if can_use_sysconfig:
+ sitedir = sysconfig.get_path('platlib', vars={'platbase':'$am_py_exec_prefix'})
+else:
+ from distutils import sysconfig
+ sitedir = sysconfig.get_python_lib(1, 0, prefix='$am_py_exec_prefix')
+sys.stdout.write(sitedir)"`
+ #
+ case $am_cv_python_pyexecdir in
+ $am_py_exec_prefix*)
+ am__strip_prefix=`echo "$am_py_exec_prefix" | sed 's|.|.|g'`
+ am_cv_python_pyexecdir=`echo "$am_cv_python_pyexecdir" | sed "s,^$am__strip_prefix,\\${PYTHON_EXEC_PREFIX},"`
+ ;;
+ *)
+ case $am_py_exec_prefix in
+ /usr|/System*) ;;
+ *) am_cv_python_pyexecdir="\${PYTHON_EXEC_PREFIX}/lib/python$PYTHON_VERSION/site-packages"
+ ;;
+ esac
+ ;;
+ esac
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_python_pyexecdir" >&5
+$as_echo "$am_cv_python_pyexecdir" >&6; }
+ pyexecdir=$am_cv_python_pyexecdir
+
+
+ pkgpyexecdir=\${pyexecdir}/$PACKAGE
+
+
+
+ fi
+
+ if $PYTHON -c 'import sys' >/dev/null 2>&1; then :
+
+else
+ as_fn_error $? "Python interface is requested but the Python interpreter is not found" "$LINENO" 5
+fi
+ PYTHON_EXTRA_LDFLAGS=${PYTHON_EXTRA_LDFLAGS-' '}
+ PYTHON_EXTRA_LIBS=${PYTHON_EXTRA_LIBS-' '}
+
+ #
+ # Allow the use of a (user set) custom python version
+ #
+
+
+ # Extract the first word of "python[$PYTHON_VERSION]", so it can be a program name with args.
+set dummy python$PYTHON_VERSION; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_path_PYTHON+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ case $PYTHON in
+ [\\/]* | ?:[\\/]*)
+ ac_cv_path_PYTHON="$PYTHON" # Let the user override the test with a path.
+ ;;
+ *)
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+ ac_cv_path_PYTHON="$as_dir/$ac_word$ac_exec_ext"
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+ done
+IFS=$as_save_IFS
+
+ ;;
+esac
+fi
+PYTHON=$ac_cv_path_PYTHON
+if test -n "$PYTHON"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PYTHON" >&5
+$as_echo "$PYTHON" >&6; }
+else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+ if test -z "$PYTHON"; then
+ as_fn_error $? "Cannot find python$PYTHON_VERSION in your system path" "$LINENO" 5
+ PYTHON_VERSION=""
+ fi
+
+ #
+ # Check for a version of Python >= 2.1.0
+ #
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a version of Python >= '2.1.0'" >&5
+$as_echo_n "checking for a version of Python >= '2.1.0'... " >&6; }
+ ac_supports_python_ver=`$PYTHON -c "import sys; \
+ ver = sys.version.split ()[0]; \
+ print (ver >= '2.1.0')"`
+ if test "$ac_supports_python_ver" != "True"; then
+ if test -z "$PYTHON_NOVERSIONCHECK"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "
+This version of the AC_PYTHON_DEVEL macro
+doesn't work properly with versions of Python before
+2.1.0. You may need to re-run configure, setting the
+variables PYTHON_CPPFLAGS, PYTHON_LIBS, PYTHON_SITE_PKG,
+PYTHON_EXTRA_LIBS and PYTHON_EXTRA_LDFLAGS by hand.
+Moreover, to disable this check, set PYTHON_NOVERSIONCHECK
+to something else than an empty string.
+
+See \`config.log' for more details" "$LINENO" 5; }
+ else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: skip at user request" >&5
+$as_echo "skip at user request" >&6; }
+ fi
+ else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ fi
+
+ #
+ # If the macro parameter ``version'' is set, honour it.
+ # A Python shim class, VPy, is used to implement correct version comparisons via
+ # string expressions, since e.g. a naive textual ">= 2.7.3" won't work for
+ # Python 2.7.10 (the ".1" being evaluated as less than ".3").
+ #
+ if test -n ""; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a version of Python " >&5
+$as_echo_n "checking for a version of Python ... " >&6; }
+ cat << EOF > ax_python_devel_vpy.py
+class VPy:
+ def vtup(self, s):
+ return tuple(map(int, s.strip().replace("rc", ".").split(".")))
+ def __init__(self):
+ import sys
+ self.vpy = tuple(sys.version_info)
+ def __eq__(self, s):
+ return self.vpy == self.vtup(s)
+ def __ne__(self, s):
+ return self.vpy != self.vtup(s)
+ def __lt__(self, s):
+ return self.vpy < self.vtup(s)
+ def __gt__(self, s):
+ return self.vpy > self.vtup(s)
+ def __le__(self, s):
+ return self.vpy <= self.vtup(s)
+ def __ge__(self, s):
+ return self.vpy >= self.vtup(s)
+EOF
+ ac_supports_python_ver=`$PYTHON -c "import ax_python_devel_vpy; \
+ ver = ax_python_devel_vpy.VPy(); \
+ print (ver )"`
+ rm -rf ax_python_devel_vpy*.py* __pycache__/ax_python_devel_vpy*.py*
+ if test "$ac_supports_python_ver" = "True"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+ as_fn_error $? "this package requires Python .
+If you have it installed, but it isn't the default Python
+interpreter in your system path, please pass the PYTHON_VERSION
+variable to configure. See \`\`configure --help'' for reference.
+" "$LINENO" 5
+ PYTHON_VERSION=""
+ fi
+ fi
+
+ #
+ # Check if you have distutils, else fail
+ #
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for the sysconfig Python package" >&5
+$as_echo_n "checking for the sysconfig Python package... " >&6; }
+ ac_sysconfig_result=`$PYTHON -c "import sysconfig" 2>&1`
+ if test $? -eq 0; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ IMPORT_SYSCONFIG="import sysconfig"
+ else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for the distutils Python package" >&5
+$as_echo_n "checking for the distutils Python package... " >&6; }
+ ac_sysconfig_result=`$PYTHON -c "from distutils import sysconfig" 2>&1`
+ if test $? -eq 0; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
+$as_echo "yes" >&6; }
+ IMPORT_SYSCONFIG="from distutils import sysconfig"
+ else
+ as_fn_error $? "cannot import Python module \"distutils\".
+Please check your Python installation. The error was:
+$ac_sysconfig_result" "$LINENO" 5
+ PYTHON_VERSION=""
+ fi
+ fi
+
+ #
+ # Check for Python include path
+ #
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Python include path" >&5
+$as_echo_n "checking for Python include path... " >&6; }
+ if test -z "$PYTHON_CPPFLAGS"; then
+ if test "$IMPORT_SYSCONFIG" = "import sysconfig"; then
+ # sysconfig module has different functions
+ python_path=`$PYTHON -c "$IMPORT_SYSCONFIG; \
+ print (sysconfig.get_path ('include'));"`
+ plat_python_path=`$PYTHON -c "$IMPORT_SYSCONFIG; \
+ print (sysconfig.get_path ('platinclude'));"`
+ else
+ # old distutils way
+ python_path=`$PYTHON -c "$IMPORT_SYSCONFIG; \
+ print (sysconfig.get_python_inc ());"`
+ plat_python_path=`$PYTHON -c "$IMPORT_SYSCONFIG; \
+ print (sysconfig.get_python_inc (plat_specific=1));"`
+ fi
+ if test -n "${python_path}"; then
+ if test "${plat_python_path}" != "${python_path}"; then
+ python_path="-I$python_path -I$plat_python_path"
+ else
+ python_path="-I$python_path"
+ fi
+ fi
+ PYTHON_CPPFLAGS=$python_path
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PYTHON_CPPFLAGS" >&5
+$as_echo "$PYTHON_CPPFLAGS" >&6; }
+
+
+ #
+ # Check for Python library path
+ #
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Python library path" >&5
+$as_echo_n "checking for Python library path... " >&6; }
+ if test -z "$PYTHON_LIBS"; then
+ # (makes two attempts to ensure we've got a version number
+ # from the interpreter)
+ ac_python_version=`cat<<EOD | $PYTHON -
+
+# join all versioning strings, on some systems
+# major/minor numbers could be in different list elements
+from sysconfig import *
+e = get_config_var('VERSION')
+if e is not None:
+ print(e)
+EOD`
+
+ if test -z "$ac_python_version"; then
+ if test -n "$PYTHON_VERSION"; then
+ ac_python_version=$PYTHON_VERSION
+ else
+ ac_python_version=`$PYTHON -c "import sys; \
+ print ("%d.%d" % sys.version_info[:2])"`
+ fi
+ fi
+
+ # Make the versioning information available to the compiler
+
+cat >>confdefs.h <<_ACEOF
+#define HAVE_PYTHON "$ac_python_version"
+_ACEOF
+
+
+ # First, the library directory:
+ ac_python_libdir=`cat<<EOD | $PYTHON -
+
+# There should be only one
+$IMPORT_SYSCONFIG
+e = sysconfig.get_config_var('LIBDIR')
+if e is not None:
+ print (e)
+EOD`
+
+ # Now, for the library:
+ ac_python_library=`cat<<EOD | $PYTHON -
+
+$IMPORT_SYSCONFIG
+c = sysconfig.get_config_vars()
+if 'LDVERSION' in c:
+ print ('python'+c['LDVERSION'])
+else:
+ print ('python'+c['VERSION'])
+EOD`
+
+ # This small piece shamelessly adapted from PostgreSQL python macro;
+ # credits goes to momjian, I think. I'd like to put the right name
+ # in the credits, if someone can point me in the right direction... ?
+ #
+ if test -n "$ac_python_libdir" -a -n "$ac_python_library"
+ then
+ # use the official shared library
+ ac_python_library=`echo "$ac_python_library" | sed "s/^lib//"`
+ PYTHON_LIBS="-L$ac_python_libdir -l$ac_python_library"
+ else
+ # old way: use libpython from python_configdir
+ ac_python_libdir=`$PYTHON -c \
+ "from sysconfig import get_python_lib as f; \
+ import os; \
+ print (os.path.join(f(plat_specific=1, standard_lib=1), 'config'));"`
+ PYTHON_LIBS="-L$ac_python_libdir -lpython$ac_python_version"
+ fi
+
+ if test -z "PYTHON_LIBS"; then
+ as_fn_error $? "
+ Cannot determine location of your Python DSO. Please check it was installed with
+ dynamic libraries enabled, or try setting PYTHON_LIBS by hand.
+ " "$LINENO" 5
+ fi
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PYTHON_LIBS" >&5
+$as_echo "$PYTHON_LIBS" >&6; }
+
+
+ #
+ # Check for site packages
+ #
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Python site-packages path" >&5
+$as_echo_n "checking for Python site-packages path... " >&6; }
+ if test -z "$PYTHON_SITE_PKG"; then
+ if test "$IMPORT_SYSCONFIG" = "import sysconfig"; then
+ PYTHON_SITE_PKG=`$PYTHON -c "
+$IMPORT_SYSCONFIG;
+if hasattr(sysconfig, 'get_default_scheme'):
+ scheme = sysconfig.get_default_scheme()
+else:
+ scheme = sysconfig._get_default_scheme()
+if scheme == 'posix_local':
+ # Debian's default scheme installs to /usr/local/ but we want to find headers in /usr/
+ scheme = 'posix_prefix'
+prefix = '$prefix'
+if prefix == 'NONE':
+ prefix = '$ac_default_prefix'
+sitedir = sysconfig.get_path('purelib', scheme, vars={'base': prefix})
+print(sitedir)"`
+ else
+ # distutils.sysconfig way
+ PYTHON_SITE_PKG=`$PYTHON -c "$IMPORT_SYSCONFIG; \
+ print (sysconfig.get_python_lib(0,0));"`
+ fi
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PYTHON_SITE_PKG" >&5
+$as_echo "$PYTHON_SITE_PKG" >&6; }
+
+
+ #
+ # Check for platform-specific site packages
+ #
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Python platform specific site-packages path" >&5
+$as_echo_n "checking for Python platform specific site-packages path... " >&6; }
+ if test -z "$PYTHON_PLATFORM_SITE_PKG"; then
+ if test "$IMPORT_SYSCONFIG" = "import sysconfig"; then
+ PYTHON_PLATFORM_SITE_PKG=`$PYTHON -c "
+$IMPORT_SYSCONFIG;
+if hasattr(sysconfig, 'get_default_scheme'):
+ scheme = sysconfig.get_default_scheme()
+else:
+ scheme = sysconfig._get_default_scheme()
+if scheme == 'posix_local':
+ # Debian's default scheme installs to /usr/local/ but we want to find headers in /usr/
+ scheme = 'posix_prefix'
+prefix = '$prefix'
+if prefix == 'NONE':
+ prefix = '$ac_default_prefix'
+sitedir = sysconfig.get_path('platlib', scheme, vars={'platbase': prefix})
+print(sitedir)"`
+ else
+ # distutils.sysconfig way
+ PYTHON_PLATFORM_SITE_PKG=`$PYTHON -c "$IMPORT_SYSCONFIG; \
+ print (sysconfig.get_python_lib(1,0));"`
+ fi
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PYTHON_PLATFORM_SITE_PKG" >&5
+$as_echo "$PYTHON_PLATFORM_SITE_PKG" >&6; }
+
+
+ #
+ # libraries which must be linked in when embedding
+ #
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking python extra libraries" >&5
+$as_echo_n "checking python extra libraries... " >&6; }
+ if test -z "$PYTHON_EXTRA_LIBS"; then
+ PYTHON_EXTRA_LIBS=`$PYTHON -c "$IMPORT_SYSCONFIG; \
+ conf = sysconfig.get_config_var; \
+ print (conf('LIBS') + ' ' + conf('SYSLIBS'))"`
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PYTHON_EXTRA_LIBS" >&5
+$as_echo "$PYTHON_EXTRA_LIBS" >&6; }
+
+
+ #
+ # linking flags needed when embedding
+ #
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking python extra linking flags" >&5
+$as_echo_n "checking python extra linking flags... " >&6; }
+ if test -z "$PYTHON_EXTRA_LDFLAGS"; then
+ PYTHON_EXTRA_LDFLAGS=`$PYTHON -c "$IMPORT_SYSCONFIG; \
+ conf = sysconfig.get_config_var; \
+ print (conf('LINKFORSHARED'))"`
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PYTHON_EXTRA_LDFLAGS" >&5
+$as_echo "$PYTHON_EXTRA_LDFLAGS" >&6; }
+
+
+ #
+ # final check to see if everything compiles alright
+ #
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking consistency of all components of python development environment" >&5
+$as_echo_n "checking consistency of all components of python development environment... " >&6; }
+ # save current global flags
+ ac_save_LIBS="$LIBS"
+ ac_save_LDFLAGS="$LDFLAGS"
+ ac_save_CPPFLAGS="$CPPFLAGS"
+ LIBS="$ac_save_LIBS $PYTHON_LIBS $PYTHON_EXTRA_LIBS"
+ LDFLAGS="$ac_save_LDFLAGS $PYTHON_EXTRA_LDFLAGS"
+ CPPFLAGS="$ac_save_CPPFLAGS $PYTHON_CPPFLAGS"
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+ #include <Python.h>
+int
+main ()
+{
+Py_Initialize();
+ ;
+ return 0;
+}
+
+_ACEOF
+if ac_fn_c_try_link "$LINENO"; then :
+ pythonexists=yes
+else
+ pythonexists=no
+fi
+rm -f core conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ ac_ext=c
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
+ac_compiler_gnu=$ac_cv_c_compiler_gnu
+ac_link="$ac_pwd/libtool --mode=link --tag=CC $ac_link"
+ac_compile="$ac_pwd/libtool --mode=compile --tag=CC $ac_compile"
+
+ # turn back to default flags
+ CPPFLAGS="$ac_save_CPPFLAGS"
+ LIBS="$ac_save_LIBS"
+ LDFLAGS="$ac_save_LDFLAGS"
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pythonexists" >&5
+$as_echo "$pythonexists" >&6; }
+
+ if test ! "x$pythonexists" = "xyes"; then
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "
+ Could not link test program to Python. Maybe the main Python library has been
+ installed in some non-standard library path. If so, pass it to configure,
+ via the LIBS environment variable.
+ Example: ./configure LIBS=\"-L/usr/non-standard-path/python/lib\"
+ ============================================================================
+ ERROR!
+ You probably have to install the development version of the Python package
+ for your distribution. The exact name of this package varies among them.
+ ============================================================================
+
+See \`config.log' for more details" "$LINENO" 5; }
+ PYTHON_VERSION=""
+ fi
+
+ #
+ # all done!
+ #
+
+fi
+ if test "x$enable_python_interface" = xyes; then
+ ENABLE_PYTHON_INTERFACE_TRUE=
+ ENABLE_PYTHON_INTERFACE_FALSE='#'
+else
+ ENABLE_PYTHON_INTERFACE_TRUE='#'
+ ENABLE_PYTHON_INTERFACE_FALSE=
+fi
+
+
+
+# Check whether --with-on-demand-check-programs was given.
+if test "${with_on_demand_check_programs+set}" = set; then :
+ withval=$with_on_demand_check_programs; test "x$withval" != xno && with_on_demand_check_programs=yes
+else
+ with_on_demand_check_programs=no
+fi
+
+ if test "x$with_on_demand_check_programs" = xyes; then
+ with_on_demand_check_programs_TRUE=
+ with_on_demand_check_programs_FALSE='#'
+else
+ with_on_demand_check_programs_TRUE='#'
+ with_on_demand_check_programs_FALSE=
+fi
+
+
+
+# Check whether --with-concurrent-mpi-checks was given.
+if test "${with_concurrent_mpi_checks+set}" = set; then :
+ withval=$with_concurrent_mpi_checks; test "x$withval" != xno && with_concurrent_mpi_checks=yes
+else
+ with_concurrent_mpi_checks=no
+fi
+
+ if test "x$with_concurrent_mpi_checks" = xyes; then
+ with_concurrent_mpi_checks_TRUE=
+ with_concurrent_mpi_checks_FALSE='#'
+else
+ with_concurrent_mpi_checks_TRUE='#'
+ with_concurrent_mpi_checks_FALSE=
+fi
+
+
+
+# Check whether --with-example-programs was given.
+if test "${with_example_programs+set}" = set; then :
+ withval=$with_example_programs; test "x$withval" != xno && with_example_programs=yes
+else
+ with_example_programs=yes
+fi
+
+ if test "x$with_example_programs" = xyes; then
+ with_example_programs_TRUE=
+ with_example_programs_FALSE='#'
+else
+ with_example_programs_TRUE='#'
+ with_example_programs_FALSE=
+fi
+
+
+
+
+if test "x$enable_mpi" = xyes; then :
+ ENABLE_MPI=true
+else
+ ENABLE_MPI=false
+fi
+
+
+if test "x$have_parallel_nc4" = xyes; then :
+ HAVE_PARALLEL_NC4=1
+else
+ HAVE_PARALLEL_NC4=0
+fi
+
+
+if test "x$enable_ruby_interface" = xyes; then :
+ ENABLE_RUBY_INTERFACE=true
+else
+ ENABLE_RUBY_INTERFACE=false
+fi
+
+
+if test "x$enable_python_interface" = xyes; then :
+ ENABLE_PYTHON_INTERFACE=true
+else
+ ENABLE_PYTHON_INTERFACE=false
+fi
+
+
+
+ac_config_headers="$ac_config_headers src/config.h"
+
+ac_config_files="$ac_config_files Makefile app/Makefile cdi.settings examples/Makefile examples/pio/Makefile interfaces/Makefile src/Makefile src/cmake/cdi/cdi-config-version.cmake src/cmake/cdi/cdi-config.cmake src/pkgconfig/cdi.pc src/pkgconfig/cdi_f2003.pc src/pkgconfig/cdipio.pc tests/Makefile tests/test_cksum_base"
+
+ac_config_files="$ac_config_files interfaces/test_cpp_nc.run interfaces/test_python_grb.run interfaces/test_python_nc.run interfaces/test_ruby_grb.run interfaces/test_ruby_nc.run tables/gen_tableheaderfile tests/pio_cksum_asynch.run tests/pio_cksum_fpguard.run tests/pio_cksum_grb2.run tests/pio_cksum_mpi_fw_at_all.run tests/pio_cksum_mpi_fw_at_reblock.run tests/pio_cksum_mpi_fw_ordered.run tests/pio_cksum_mpinonb.run tests/pio_cksum_nc.run tests/pio_cksum_nc2.run tests/pio_cksum_nc4.run tests/pio_cksum_writer.run tests/pio_write.parallel.run tests/pio_write.run tests/pio_write_deco2d.parallel.run tests/pio_write_deco2d.run tests/pio_write_dist_array.run tests/test_byteswap.run tests/test_cdf_const.run tests/test_cdf_transformation.run tests/test_cksum_ext.run tests/test_cksum_grb.run tests/test_cksum_grb2.run tests/test_cksum_ieg.run tests/test_cksum_nc.run tests/test_cksum_nc2.run tests/test_cksum_nc4.run tests/test_cksum_nc_chunk.run tests/test_cksum_srv.run tests/test_f2003.run tests/test_grib.run tests/test_resource_copy.parallel.run tests/test_resource_copy.run tests/test_table.run"
+
+
+cat >confcache <<\_ACEOF
+# This file is a shell script that caches the results of configure
+# tests run on this system so they can be shared between configure
+# scripts and configure runs, see configure's option --config-cache.
+# It is not useful on other systems. If it contains results you don't
+# want to keep, you may remove or edit it.
+#
+# config.status only pays attention to the cache file if you give it
+# the --recheck option to rerun configure.
+#
+# `ac_cv_env_foo' variables (set or unset) will be overridden when
+# loading this file, other *unset* `ac_cv_foo' will be assigned the
+# following values.
+
+_ACEOF
+
+# The following way of writing the cache mishandles newlines in values,
+# but we know of no workaround that is simple, portable, and efficient.
+# So, we kill variables containing newlines.
+# Ultrix sh set writes to stderr and can't be redirected directly,
+# and sets the high bit in the cache file unless we assign to the vars.
+(
+ for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
+ eval ac_val=\$$ac_var
+ case $ac_val in #(
+ *${as_nl}*)
+ case $ac_var in #(
+ *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
+$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
+ esac
+ case $ac_var in #(
+ _ | IFS | as_nl) ;; #(
+ BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
+ *) { eval $ac_var=; unset $ac_var;} ;;
+ esac ;;
+ esac
+ done
+
+ (set) 2>&1 |
+ case $as_nl`(ac_space=' '; set) 2>&1` in #(
+ *${as_nl}ac_space=\ *)
+ # `set' does not quote correctly, so add quotes: double-quote
+ # substitution turns \\\\ into \\, and sed turns \\ into \.
+ sed -n \
+ "s/'/'\\\\''/g;
+ s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
+ ;; #(
+ *)
+ # `set' quotes correctly as required by POSIX, so do not add quotes.
+ sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
+ ;;
+ esac |
+ sort
+) |
+ sed '
+ /^ac_cv_env_/b end
+ t clear
+ :clear
+ s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
+ t end
+ s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
+ :end' >>confcache
+if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
+ if test -w "$cache_file"; then
+ if test "x$cache_file" != "x/dev/null"; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
+$as_echo "$as_me: updating cache $cache_file" >&6;}
+ if test ! -f "$cache_file" || test -h "$cache_file"; then
+ cat confcache >"$cache_file"
+ else
+ case $cache_file in #(
+ */* | ?:*)
+ mv -f confcache "$cache_file"$$ &&
+ mv -f "$cache_file"$$ "$cache_file" ;; #(
+ *)
+ mv -f confcache "$cache_file" ;;
+ esac
+ fi
+ fi
+ else
+ { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
+$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
+ fi
+fi
+rm -f confcache
+
+test "x$prefix" = xNONE && prefix=$ac_default_prefix
+# Let make expand exec_prefix.
+test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
+
+DEFS=-DHAVE_CONFIG_H
+
+ac_libobjs=
+ac_ltlibobjs=
+U=
+for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue
+ # 1. Remove the extension, and $U if already installed.
+ ac_script='s/\$U\././;s/\.o$//;s/.lo$//;s/\.obj$//'
+ ac_i=`$as_echo "$ac_i" | sed "$ac_script"`
+ # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR
+ # will be set to the directory where LIBOBJS objects are built.
+ as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext"
+ as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo'
+done
+LIBOBJS=$ac_libobjs
+
+LTLIBOBJS=$ac_ltlibobjs
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5
+$as_echo_n "checking that generated files are newer than configure... " >&6; }
+ if test -n "$am_sleep_pid"; then
+ # Hide warnings about reused PIDs.
+ wait $am_sleep_pid 2>/dev/null
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5
+$as_echo "done" >&6; }
+ if test -n "$EXEEXT"; then
+ am__EXEEXT_TRUE=
+ am__EXEEXT_FALSE='#'
+else
+ am__EXEEXT_TRUE='#'
+ am__EXEEXT_FALSE=
+fi
+
+if test -z "${MAINTAINER_MODE_TRUE}" && test -z "${MAINTAINER_MODE_FALSE}"; then
+ as_fn_error $? "conditional \"MAINTAINER_MODE\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then
+ as_fn_error $? "conditional \"AMDEP\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then
+ as_fn_error $? "conditional \"am__fastdepCC\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_ISOC_INTERFACE_TRUE}" && test -z "${ENABLE_ISOC_INTERFACE_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_ISOC_INTERFACE\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${FC_MOD_UPPERCASE_TRUE}" && test -z "${FC_MOD_UPPERCASE_FALSE}"; then
+ as_fn_error $? "conditional \"FC_MOD_UPPERCASE\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${BUILD_FC_PROGRAMS_TRUE}" && test -z "${BUILD_FC_PROGRAMS_FALSE}"; then
+ as_fn_error $? "conditional \"BUILD_FC_PROGRAMS\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_CF_INTERFACE_TRUE}" && test -z "${ENABLE_CF_INTERFACE_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_CF_INTERFACE\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then
+ as_fn_error $? "conditional \"am__fastdepCXX\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then
+ as_fn_error $? "conditional \"am__fastdepCXX\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+ac_objext=${acx_lt_saved_ac_objext}
+
+if test -z "${HAVE_LIBGRIB_API_TRUE}" && test -z "${HAVE_LIBGRIB_API_FALSE}"; then
+ as_fn_error $? "conditional \"HAVE_LIBGRIB_API\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_CDI_LIB_TRUE}" && test -z "${ENABLE_CDI_LIB_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_CDI_LIB\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_ALL_STATIC_TRUE}" && test -z "${ENABLE_ALL_STATIC_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_ALL_STATIC\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_HIRLAM_EXTENSIONS_TRUE}" && test -z "${ENABLE_HIRLAM_EXTENSIONS_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_HIRLAM_EXTENSIONS\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_CDI_APP_TRUE}" && test -z "${ENABLE_CDI_APP_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_CDI_APP\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_NETCDF_TRUE}" && test -z "${ENABLE_NETCDF_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_NETCDF\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${BUILD_PIO_FC_PROGRAMS_TRUE}" && test -z "${BUILD_PIO_FC_PROGRAMS_FALSE}"; then
+ as_fn_error $? "conditional \"BUILD_PIO_FC_PROGRAMS\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_MPI_TRUE}" && test -z "${ENABLE_MPI_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_MPI\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${HAVE_PARALLEL_NC4_TRUE}" && test -z "${HAVE_PARALLEL_NC4_FALSE}"; then
+ as_fn_error $? "conditional \"HAVE_PARALLEL_NC4\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_RUBY_INTERFACE_TRUE}" && test -z "${ENABLE_RUBY_INTERFACE_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_RUBY_INTERFACE\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${ENABLE_PYTHON_INTERFACE_TRUE}" && test -z "${ENABLE_PYTHON_INTERFACE_FALSE}"; then
+ as_fn_error $? "conditional \"ENABLE_PYTHON_INTERFACE\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${with_on_demand_check_programs_TRUE}" && test -z "${with_on_demand_check_programs_FALSE}"; then
+ as_fn_error $? "conditional \"with_on_demand_check_programs\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${with_concurrent_mpi_checks_TRUE}" && test -z "${with_concurrent_mpi_checks_FALSE}"; then
+ as_fn_error $? "conditional \"with_concurrent_mpi_checks\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+if test -z "${with_example_programs_TRUE}" && test -z "${with_example_programs_FALSE}"; then
+ as_fn_error $? "conditional \"with_example_programs\" was never defined.
+Usually this means the macro was only invoked conditionally." "$LINENO" 5
+fi
+CFLAGS="$CFLAGS${BUILD_CFLAGS:+ $BUILD_CFLAGS}"
+FCFLAGS="$FCFLAGS${BUILD_FCFLAGS:+ $BUILD_FCFLAGS}"
+LDFLAGS="$LDFLAGS${BUILD_LDFLAGS:+ $BUILD_LDFLAGS}"
+LIBS="$LIBS${BUILD_LIBS:+ $BUILD_LIBS}"
+MPI_C_LIB="$MPI_C_LIB${BUILD_MPI_C_LIB:+ $BUILD_MPI_C_LIB}"
+MPI_FC_LIB="$MPI_FC_LIB${BUILD_MPI_FC_LIB:+ $BUILD_MPI_FC_LIB}"
+CC="${BUILD_CC:-$CC}"
+CXX="${BUILD_CXX:-$CXX}"
+FC="${BUILD_FC:-$FC}"
+F77="${BUILD_F77:-$F77}"
+
+: "${CONFIG_STATUS=./config.status}"
+ac_write_fail=0
+ac_clean_files_save=$ac_clean_files
+ac_clean_files="$ac_clean_files $CONFIG_STATUS"
+{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5
+$as_echo "$as_me: creating $CONFIG_STATUS" >&6;}
+as_write_fail=0
+cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1
+#! $SHELL
+# Generated by $as_me.
+# Run this file to recreate the current configuration.
+# Compiler output produced by configure, useful for debugging
+# configure, is in config.log if it exists.
+
+debug=false
+ac_cs_recheck=false
+ac_cs_silent=false
+
+SHELL=\${CONFIG_SHELL-$SHELL}
+export SHELL
+_ASEOF
+cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1
+## -------------------- ##
+## M4sh Initialization. ##
+## -------------------- ##
+
+# Be more Bourne compatible
+DUALCASE=1; export DUALCASE # for MKS sh
+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
+ emulate sh
+ NULLCMD=:
+ # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
+ # is contrary to our usage. Disable this feature.
+ alias -g '${1+"$@"}'='"$@"'
+ setopt NO_GLOB_SUBST
+else
+ case `(set -o) 2>/dev/null` in #(
+ *posix*) :
+ set -o posix ;; #(
+ *) :
+ ;;
+esac
+fi
+
+
+as_nl='
+'
+export as_nl
+# Printing a long string crashes Solaris 7 /usr/bin/printf.
+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
+# Prefer a ksh shell builtin over an external printf program on Solaris,
+# but without wasting forks for bash or zsh.
+if test -z "$BASH_VERSION$ZSH_VERSION" \
+ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
+ as_echo='print -r --'
+ as_echo_n='print -rn --'
+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
+ as_echo='printf %s\n'
+ as_echo_n='printf %s'
+else
+ if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
+ as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
+ as_echo_n='/usr/ucb/echo -n'
+ else
+ as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
+ as_echo_n_body='eval
+ arg=$1;
+ case $arg in #(
+ *"$as_nl"*)
+ expr "X$arg" : "X\\(.*\\)$as_nl";
+ arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
+ esac;
+ expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
+ '
+ export as_echo_n_body
+ as_echo_n='sh -c $as_echo_n_body as_echo'
+ fi
+ export as_echo_body
+ as_echo='sh -c $as_echo_body as_echo'
+fi
+
+# The user is always right.
+if test "${PATH_SEPARATOR+set}" != set; then
+ PATH_SEPARATOR=:
+ (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
+ (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
+ PATH_SEPARATOR=';'
+ }
+fi
+
+
+# IFS
+# We need space, tab and new line, in precisely that order. Quoting is
+# there to prevent editors from complaining about space-tab.
+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
+# splitting by setting IFS to empty value.)
+IFS=" "" $as_nl"
+
+# Find who we are. Look in the path if we contain no directory separator.
+as_myself=
+case $0 in #((
+ *[\\/]* ) as_myself=$0 ;;
+ *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
+ done
+IFS=$as_save_IFS
+
+ ;;
+esac
+# We did not find ourselves, most probably we were run as `sh COMMAND'
+# in which case we are not to be found in the path.
+if test "x$as_myself" = x; then
+ as_myself=$0
+fi
+if test ! -f "$as_myself"; then
+ $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
+ exit 1
+fi
+
+# Unset variables that we do not need and which cause bugs (e.g. in
+# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
+# suppresses any "Segmentation fault" message there. '((' could
+# trigger a bug in pdksh 5.2.14.
+for as_var in BASH_ENV ENV MAIL MAILPATH
+do eval test x\${$as_var+set} = xset \
+ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
+done
+PS1='$ '
+PS2='> '
+PS4='+ '
+
+# NLS nuisances.
+LC_ALL=C
+export LC_ALL
+LANGUAGE=C
+export LANGUAGE
+
+# CDPATH.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+
+# as_fn_error STATUS ERROR [LINENO LOG_FD]
+# ----------------------------------------
+# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
+# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
+# script with STATUS, using 1 if that was 0.
+as_fn_error ()
+{
+ as_status=$1; test $as_status -eq 0 && as_status=1
+ if test "$4"; then
+ as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+ $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
+ fi
+ $as_echo "$as_me: error: $2" >&2
+ as_fn_exit $as_status
+} # as_fn_error
+
+
+# as_fn_set_status STATUS
+# -----------------------
+# Set $? to STATUS, without forking.
+as_fn_set_status ()
+{
+ return $1
+} # as_fn_set_status
+
+# as_fn_exit STATUS
+# -----------------
+# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
+as_fn_exit ()
+{
+ set +e
+ as_fn_set_status $1
+ exit $1
+} # as_fn_exit
+
+# as_fn_unset VAR
+# ---------------
+# Portably unset VAR.
+as_fn_unset ()
+{
+ { eval $1=; unset $1;}
+}
+as_unset=as_fn_unset
+# as_fn_append VAR VALUE
+# ----------------------
+# Append the text in VALUE to the end of the definition contained in VAR. Take
+# advantage of any shell optimizations that allow amortized linear growth over
+# repeated appends, instead of the typical quadratic growth present in naive
+# implementations.
+if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
+ eval 'as_fn_append ()
+ {
+ eval $1+=\$2
+ }'
+else
+ as_fn_append ()
+ {
+ eval $1=\$$1\$2
+ }
+fi # as_fn_append
+
+# as_fn_arith ARG...
+# ------------------
+# Perform arithmetic evaluation on the ARGs, and store the result in the
+# global $as_val. Take advantage of shells that can avoid forks. The arguments
+# must be portable across $(()) and expr.
+if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
+ eval 'as_fn_arith ()
+ {
+ as_val=$(( $* ))
+ }'
+else
+ as_fn_arith ()
+ {
+ as_val=`expr "$@" || test $? -eq 1`
+ }
+fi # as_fn_arith
+
+
+if expr a : '\(a\)' >/dev/null 2>&1 &&
+ test "X`expr 00001 : '.*\(...\)'`" = X001; then
+ as_expr=expr
+else
+ as_expr=false
+fi
+
+if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
+ as_basename=basename
+else
+ as_basename=false
+fi
+
+if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
+ as_dirname=dirname
+else
+ as_dirname=false
+fi
+
+as_me=`$as_basename -- "$0" ||
+$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
+ X"$0" : 'X\(//\)$' \| \
+ X"$0" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X/"$0" |
+ sed '/^.*\/\([^/][^/]*\)\/*$/{
+ s//\1/
+ q
+ }
+ /^X\/\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\/\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+
+# Avoid depending upon Character Ranges.
+as_cr_letters='abcdefghijklmnopqrstuvwxyz'
+as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
+as_cr_Letters=$as_cr_letters$as_cr_LETTERS
+as_cr_digits='0123456789'
+as_cr_alnum=$as_cr_Letters$as_cr_digits
+
+ECHO_C= ECHO_N= ECHO_T=
+case `echo -n x` in #(((((
+-n*)
+ case `echo 'xy\c'` in
+ *c*) ECHO_T=' ';; # ECHO_T is single tab character.
+ xy) ECHO_C='\c';;
+ *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
+ ECHO_T=' ';;
+ esac;;
+*)
+ ECHO_N='-n';;
+esac
+
+rm -f conf$$ conf$$.exe conf$$.file
+if test -d conf$$.dir; then
+ rm -f conf$$.dir/conf$$.file
+else
+ rm -f conf$$.dir
+ mkdir conf$$.dir 2>/dev/null
+fi
+if (echo >conf$$.file) 2>/dev/null; then
+ if ln -s conf$$.file conf$$ 2>/dev/null; then
+ as_ln_s='ln -s'
+ # ... but there are two gotchas:
+ # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
+ # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
+ # In both cases, we have to default to `cp -pR'.
+ ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
+ as_ln_s='cp -pR'
+ elif ln conf$$.file conf$$ 2>/dev/null; then
+ as_ln_s=ln
+ else
+ as_ln_s='cp -pR'
+ fi
+else
+ as_ln_s='cp -pR'
+fi
+rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
+rmdir conf$$.dir 2>/dev/null
+
+
+# as_fn_mkdir_p
+# -------------
+# Create "$as_dir" as a directory, including parents if necessary.
+as_fn_mkdir_p ()
+{
+
+ case $as_dir in #(
+ -*) as_dir=./$as_dir;;
+ esac
+ test -d "$as_dir" || eval $as_mkdir_p || {
+ as_dirs=
+ while :; do
+ case $as_dir in #(
+ *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
+ *) as_qdir=$as_dir;;
+ esac
+ as_dirs="'$as_qdir' $as_dirs"
+ as_dir=`$as_dirname -- "$as_dir" ||
+$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
+ X"$as_dir" : 'X\(//\)[^/]' \| \
+ X"$as_dir" : 'X\(//\)$' \| \
+ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X"$as_dir" |
+ sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)[^/].*/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+ test -d "$as_dir" && break
+ done
+ test -z "$as_dirs" || eval "mkdir $as_dirs"
+ } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
+
+
+} # as_fn_mkdir_p
+if mkdir -p . 2>/dev/null; then
+ as_mkdir_p='mkdir -p "$as_dir"'
+else
+ test -d ./-p && rmdir ./-p
+ as_mkdir_p=false
+fi
+
+
+# as_fn_executable_p FILE
+# -----------------------
+# Test if FILE is an executable regular file.
+as_fn_executable_p ()
+{
+ test -f "$1" && test -x "$1"
+} # as_fn_executable_p
+as_test_x='test -x'
+as_executable_p=as_fn_executable_p
+
+# Sed expression to map a string onto a valid CPP name.
+as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
+
+# Sed expression to map a string onto a valid variable name.
+as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
+
+
+exec 6>&1
+## ----------------------------------- ##
+## Main body of $CONFIG_STATUS script. ##
+## ----------------------------------- ##
+_ASEOF
+test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1
+
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+# Save the log message, to keep $0 and so on meaningful, and to
+# report actual input values of CONFIG_FILES etc. instead of their
+# values after options handling.
+ac_log="
+This file was extended by cdi $as_me 2.4.0, which was
+generated by GNU Autoconf 2.69. Invocation command line was
+
+ CONFIG_FILES = $CONFIG_FILES
+ CONFIG_HEADERS = $CONFIG_HEADERS
+ CONFIG_LINKS = $CONFIG_LINKS
+ CONFIG_COMMANDS = $CONFIG_COMMANDS
+ $ $0 $@
+
+on `(hostname || uname -n) 2>/dev/null | sed 1q`
+"
+
+_ACEOF
+
+case $ac_config_files in *"
+"*) set x $ac_config_files; shift; ac_config_files=$*;;
+esac
+
+case $ac_config_headers in *"
+"*) set x $ac_config_headers; shift; ac_config_headers=$*;;
+esac
+
+
+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
+# Files that config.status was made for.
+config_files="$ac_config_files"
+config_headers="$ac_config_headers"
+config_commands="$ac_config_commands"
+
+_ACEOF
+
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+ac_cs_usage="\
+\`$as_me' instantiates files and other configuration actions
+from templates according to the current configuration. Unless the files
+and actions are specified as TAGs, all are instantiated by default.
+
+Usage: $0 [OPTION]... [TAG]...
+
+ -h, --help print this help, then exit
+ -V, --version print version number and configuration settings, then exit
+ --config print configuration, then exit
+ -q, --quiet, --silent
+ do not print progress messages
+ -d, --debug don't remove temporary files
+ --recheck update $as_me by reconfiguring in the same conditions
+ --file=FILE[:TEMPLATE]
+ instantiate the configuration file FILE
+ --header=FILE[:TEMPLATE]
+ instantiate the configuration header FILE
+
+Configuration files:
+$config_files
+
+Configuration headers:
+$config_headers
+
+Configuration commands:
+$config_commands
+
+Report bugs to <https://mpimet.mpg.de/cdi>."
+
+_ACEOF
+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
+ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
+ac_cs_version="\\
+cdi config.status 2.4.0
+configured by $0, generated by GNU Autoconf 2.69,
+ with options \\"\$ac_cs_config\\"
+
+Copyright (C) 2012 Free Software Foundation, Inc.
+This config.status script is free software; the Free Software Foundation
+gives unlimited permission to copy, distribute and modify it."
+
+ac_pwd='$ac_pwd'
+srcdir='$srcdir'
+INSTALL='$INSTALL'
+MKDIR_P='$MKDIR_P'
+AWK='$AWK'
+test -n "\$AWK" || AWK=awk
+_ACEOF
+
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+# The default lists apply if the user does not specify any file.
+ac_need_defaults=:
+while test $# != 0
+do
+ case $1 in
+ --*=?*)
+ ac_option=`expr "X$1" : 'X\([^=]*\)='`
+ ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
+ ac_shift=:
+ ;;
+ --*=)
+ ac_option=`expr "X$1" : 'X\([^=]*\)='`
+ ac_optarg=
+ ac_shift=:
+ ;;
+ *)
+ ac_option=$1
+ ac_optarg=$2
+ ac_shift=shift
+ ;;
+ esac
+
+ case $ac_option in
+ # Handling of the options.
+ -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
+ ac_cs_recheck=: ;;
+ --version | --versio | --versi | --vers | --ver | --ve | --v | -V )
+ $as_echo "$ac_cs_version"; exit ;;
+ --config | --confi | --conf | --con | --co | --c )
+ $as_echo "$ac_cs_config"; exit ;;
+ --debug | --debu | --deb | --de | --d | -d )
+ debug=: ;;
+ --file | --fil | --fi | --f )
+ $ac_shift
+ case $ac_optarg in
+ *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
+ '') as_fn_error $? "missing file argument" ;;
+ esac
+ as_fn_append CONFIG_FILES " '$ac_optarg'"
+ ac_need_defaults=false;;
+ --header | --heade | --head | --hea )
+ $ac_shift
+ case $ac_optarg in
+ *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
+ esac
+ as_fn_append CONFIG_HEADERS " '$ac_optarg'"
+ ac_need_defaults=false;;
+ --he | --h)
+ # Conflict between --help and --header
+ as_fn_error $? "ambiguous option: \`$1'
+Try \`$0 --help' for more information.";;
+ --help | --hel | -h )
+ $as_echo "$ac_cs_usage"; exit ;;
+ -q | -quiet | --quiet | --quie | --qui | --qu | --q \
+ | -silent | --silent | --silen | --sile | --sil | --si | --s)
+ ac_cs_silent=: ;;
+
+ # This is an error.
+ -*) as_fn_error $? "unrecognized option: \`$1'
+Try \`$0 --help' for more information." ;;
+
+ *) as_fn_append ac_config_targets " $1"
+ ac_need_defaults=false ;;
+
+ esac
+ shift
+done
+
+ac_configure_extra_args=
+
+if $ac_cs_silent; then
+ exec 6>/dev/null
+ ac_configure_extra_args="$ac_configure_extra_args --silent"
+fi
+
+_ACEOF
+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
+if \$ac_cs_recheck; then
+ set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion
+ shift
+ \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6
+ CONFIG_SHELL='$SHELL'
+ export CONFIG_SHELL
+ exec "\$@"
+fi
+
+_ACEOF
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+exec 5>>config.log
+{
+ echo
+ sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
+## Running $as_me. ##
+_ASBOX
+ $as_echo "$ac_log"
+} >&5
+
+_ACEOF
+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
+#
+# INIT-COMMANDS
+#
+AMDEP_TRUE="$AMDEP_TRUE" MAKE="${MAKE-make}"
+
+
+# The HP-UX ksh and POSIX shell print the target directory to stdout
+# if CDPATH is set.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+sed_quote_subst='$sed_quote_subst'
+double_quote_subst='$double_quote_subst'
+delay_variable_subst='$delay_variable_subst'
+macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`'
+macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`'
+pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`'
+enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`'
+enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`'
+enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`'
+shared_archive_member_spec='`$ECHO "$shared_archive_member_spec" | $SED "$delay_single_quote_subst"`'
+SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`'
+ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`'
+PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`'
+host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`'
+host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`'
+host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`'
+build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`'
+build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`'
+build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`'
+SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`'
+Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`'
+GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`'
+EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`'
+FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`'
+LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`'
+NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`'
+LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`'
+max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`'
+ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`'
+exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`'
+lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`'
+lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`'
+lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`'
+lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`'
+lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`'
+reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`'
+reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`'
+OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`'
+deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`'
+file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`'
+file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`'
+want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`'
+DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`'
+sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`'
+AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`'
+AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`'
+archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`'
+STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`'
+RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`'
+old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`'
+old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`'
+old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`'
+lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`'
+CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`'
+CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`'
+compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`'
+GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_to_import='`$ECHO "$lt_cv_sys_global_symbol_to_import" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`'
+lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`'
+lt_cv_nm_interface='`$ECHO "$lt_cv_nm_interface" | $SED "$delay_single_quote_subst"`'
+nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`'
+lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`'
+lt_cv_truncate_bin='`$ECHO "$lt_cv_truncate_bin" | $SED "$delay_single_quote_subst"`'
+objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`'
+MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`'
+acx_is_nagfor='`$ECHO "$acx_is_nagfor" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`'
+lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`'
+need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`'
+MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`'
+DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`'
+NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`'
+LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`'
+OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`'
+OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`'
+libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`'
+shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`'
+extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`'
+archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`'
+enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`'
+export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`'
+whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`'
+compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`'
+old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`'
+old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`'
+archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`'
+archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`'
+module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`'
+module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`'
+with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`'
+allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`'
+no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`'
+hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`'
+hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`'
+hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`'
+hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`'
+inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`'
+link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`'
+always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`'
+export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`'
+exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`'
+include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`'
+prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`'
+postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`'
+file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`'
+variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`'
+need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`'
+need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`'
+version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`'
+runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`'
+shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`'
+shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`'
+libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`'
+library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`'
+soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`'
+install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`'
+postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`'
+postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`'
+finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`'
+finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`'
+hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`'
+sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`'
+configure_time_dlsearch_path='`$ECHO "$configure_time_dlsearch_path" | $SED "$delay_single_quote_subst"`'
+configure_time_lt_sys_library_path='`$ECHO "$configure_time_lt_sys_library_path" | $SED "$delay_single_quote_subst"`'
+hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`'
+enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`'
+enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`'
+enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`'
+old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`'
+striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_dirs='`$ECHO "$compiler_lib_search_dirs" | $SED "$delay_single_quote_subst"`'
+predep_objects='`$ECHO "$predep_objects" | $SED "$delay_single_quote_subst"`'
+postdep_objects='`$ECHO "$postdep_objects" | $SED "$delay_single_quote_subst"`'
+predeps='`$ECHO "$predeps" | $SED "$delay_single_quote_subst"`'
+postdeps='`$ECHO "$postdeps" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_path='`$ECHO "$compiler_lib_search_path" | $SED "$delay_single_quote_subst"`'
+LD_CXX='`$ECHO "$LD_CXX" | $SED "$delay_single_quote_subst"`'
+LD_F77='`$ECHO "$LD_F77" | $SED "$delay_single_quote_subst"`'
+LD_FC='`$ECHO "$LD_FC" | $SED "$delay_single_quote_subst"`'
+reload_flag_CXX='`$ECHO "$reload_flag_CXX" | $SED "$delay_single_quote_subst"`'
+reload_flag_F77='`$ECHO "$reload_flag_F77" | $SED "$delay_single_quote_subst"`'
+reload_flag_FC='`$ECHO "$reload_flag_FC" | $SED "$delay_single_quote_subst"`'
+reload_cmds_CXX='`$ECHO "$reload_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+reload_cmds_F77='`$ECHO "$reload_cmds_F77" | $SED "$delay_single_quote_subst"`'
+reload_cmds_FC='`$ECHO "$reload_cmds_FC" | $SED "$delay_single_quote_subst"`'
+old_archive_cmds_CXX='`$ECHO "$old_archive_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+old_archive_cmds_F77='`$ECHO "$old_archive_cmds_F77" | $SED "$delay_single_quote_subst"`'
+old_archive_cmds_FC='`$ECHO "$old_archive_cmds_FC" | $SED "$delay_single_quote_subst"`'
+compiler_CXX='`$ECHO "$compiler_CXX" | $SED "$delay_single_quote_subst"`'
+compiler_F77='`$ECHO "$compiler_F77" | $SED "$delay_single_quote_subst"`'
+compiler_FC='`$ECHO "$compiler_FC" | $SED "$delay_single_quote_subst"`'
+GCC_CXX='`$ECHO "$GCC_CXX" | $SED "$delay_single_quote_subst"`'
+GCC_F77='`$ECHO "$GCC_F77" | $SED "$delay_single_quote_subst"`'
+GCC_FC='`$ECHO "$GCC_FC" | $SED "$delay_single_quote_subst"`'
+acx_is_nagfor_CXX='`$ECHO "$acx_is_nagfor_CXX" | $SED "$delay_single_quote_subst"`'
+acx_is_nagfor_F77='`$ECHO "$acx_is_nagfor_F77" | $SED "$delay_single_quote_subst"`'
+acx_is_nagfor_FC='`$ECHO "$acx_is_nagfor_FC" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_no_builtin_flag_CXX='`$ECHO "$lt_prog_compiler_no_builtin_flag_CXX" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_no_builtin_flag_F77='`$ECHO "$lt_prog_compiler_no_builtin_flag_F77" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_no_builtin_flag_FC='`$ECHO "$lt_prog_compiler_no_builtin_flag_FC" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_pic_CXX='`$ECHO "$lt_prog_compiler_pic_CXX" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_pic_F77='`$ECHO "$lt_prog_compiler_pic_F77" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_pic_FC='`$ECHO "$lt_prog_compiler_pic_FC" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_wl_CXX='`$ECHO "$lt_prog_compiler_wl_CXX" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_wl_F77='`$ECHO "$lt_prog_compiler_wl_F77" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_wl_FC='`$ECHO "$lt_prog_compiler_wl_FC" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_static_CXX='`$ECHO "$lt_prog_compiler_static_CXX" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_static_F77='`$ECHO "$lt_prog_compiler_static_F77" | $SED "$delay_single_quote_subst"`'
+lt_prog_compiler_static_FC='`$ECHO "$lt_prog_compiler_static_FC" | $SED "$delay_single_quote_subst"`'
+lt_cv_prog_compiler_c_o_CXX='`$ECHO "$lt_cv_prog_compiler_c_o_CXX" | $SED "$delay_single_quote_subst"`'
+lt_cv_prog_compiler_c_o_F77='`$ECHO "$lt_cv_prog_compiler_c_o_F77" | $SED "$delay_single_quote_subst"`'
+lt_cv_prog_compiler_c_o_FC='`$ECHO "$lt_cv_prog_compiler_c_o_FC" | $SED "$delay_single_quote_subst"`'
+archive_cmds_need_lc_CXX='`$ECHO "$archive_cmds_need_lc_CXX" | $SED "$delay_single_quote_subst"`'
+archive_cmds_need_lc_F77='`$ECHO "$archive_cmds_need_lc_F77" | $SED "$delay_single_quote_subst"`'
+archive_cmds_need_lc_FC='`$ECHO "$archive_cmds_need_lc_FC" | $SED "$delay_single_quote_subst"`'
+enable_shared_with_static_runtimes_CXX='`$ECHO "$enable_shared_with_static_runtimes_CXX" | $SED "$delay_single_quote_subst"`'
+enable_shared_with_static_runtimes_F77='`$ECHO "$enable_shared_with_static_runtimes_F77" | $SED "$delay_single_quote_subst"`'
+enable_shared_with_static_runtimes_FC='`$ECHO "$enable_shared_with_static_runtimes_FC" | $SED "$delay_single_quote_subst"`'
+export_dynamic_flag_spec_CXX='`$ECHO "$export_dynamic_flag_spec_CXX" | $SED "$delay_single_quote_subst"`'
+export_dynamic_flag_spec_F77='`$ECHO "$export_dynamic_flag_spec_F77" | $SED "$delay_single_quote_subst"`'
+export_dynamic_flag_spec_FC='`$ECHO "$export_dynamic_flag_spec_FC" | $SED "$delay_single_quote_subst"`'
+whole_archive_flag_spec_CXX='`$ECHO "$whole_archive_flag_spec_CXX" | $SED "$delay_single_quote_subst"`'
+whole_archive_flag_spec_F77='`$ECHO "$whole_archive_flag_spec_F77" | $SED "$delay_single_quote_subst"`'
+whole_archive_flag_spec_FC='`$ECHO "$whole_archive_flag_spec_FC" | $SED "$delay_single_quote_subst"`'
+compiler_needs_object_CXX='`$ECHO "$compiler_needs_object_CXX" | $SED "$delay_single_quote_subst"`'
+compiler_needs_object_F77='`$ECHO "$compiler_needs_object_F77" | $SED "$delay_single_quote_subst"`'
+compiler_needs_object_FC='`$ECHO "$compiler_needs_object_FC" | $SED "$delay_single_quote_subst"`'
+old_archive_from_new_cmds_CXX='`$ECHO "$old_archive_from_new_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+old_archive_from_new_cmds_F77='`$ECHO "$old_archive_from_new_cmds_F77" | $SED "$delay_single_quote_subst"`'
+old_archive_from_new_cmds_FC='`$ECHO "$old_archive_from_new_cmds_FC" | $SED "$delay_single_quote_subst"`'
+old_archive_from_expsyms_cmds_CXX='`$ECHO "$old_archive_from_expsyms_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+old_archive_from_expsyms_cmds_F77='`$ECHO "$old_archive_from_expsyms_cmds_F77" | $SED "$delay_single_quote_subst"`'
+old_archive_from_expsyms_cmds_FC='`$ECHO "$old_archive_from_expsyms_cmds_FC" | $SED "$delay_single_quote_subst"`'
+archive_cmds_CXX='`$ECHO "$archive_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+archive_cmds_F77='`$ECHO "$archive_cmds_F77" | $SED "$delay_single_quote_subst"`'
+archive_cmds_FC='`$ECHO "$archive_cmds_FC" | $SED "$delay_single_quote_subst"`'
+archive_expsym_cmds_CXX='`$ECHO "$archive_expsym_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+archive_expsym_cmds_F77='`$ECHO "$archive_expsym_cmds_F77" | $SED "$delay_single_quote_subst"`'
+archive_expsym_cmds_FC='`$ECHO "$archive_expsym_cmds_FC" | $SED "$delay_single_quote_subst"`'
+module_cmds_CXX='`$ECHO "$module_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+module_cmds_F77='`$ECHO "$module_cmds_F77" | $SED "$delay_single_quote_subst"`'
+module_cmds_FC='`$ECHO "$module_cmds_FC" | $SED "$delay_single_quote_subst"`'
+module_expsym_cmds_CXX='`$ECHO "$module_expsym_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+module_expsym_cmds_F77='`$ECHO "$module_expsym_cmds_F77" | $SED "$delay_single_quote_subst"`'
+module_expsym_cmds_FC='`$ECHO "$module_expsym_cmds_FC" | $SED "$delay_single_quote_subst"`'
+with_gnu_ld_CXX='`$ECHO "$with_gnu_ld_CXX" | $SED "$delay_single_quote_subst"`'
+with_gnu_ld_F77='`$ECHO "$with_gnu_ld_F77" | $SED "$delay_single_quote_subst"`'
+with_gnu_ld_FC='`$ECHO "$with_gnu_ld_FC" | $SED "$delay_single_quote_subst"`'
+allow_undefined_flag_CXX='`$ECHO "$allow_undefined_flag_CXX" | $SED "$delay_single_quote_subst"`'
+allow_undefined_flag_F77='`$ECHO "$allow_undefined_flag_F77" | $SED "$delay_single_quote_subst"`'
+allow_undefined_flag_FC='`$ECHO "$allow_undefined_flag_FC" | $SED "$delay_single_quote_subst"`'
+no_undefined_flag_CXX='`$ECHO "$no_undefined_flag_CXX" | $SED "$delay_single_quote_subst"`'
+no_undefined_flag_F77='`$ECHO "$no_undefined_flag_F77" | $SED "$delay_single_quote_subst"`'
+no_undefined_flag_FC='`$ECHO "$no_undefined_flag_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_flag_spec_CXX='`$ECHO "$hardcode_libdir_flag_spec_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_flag_spec_F77='`$ECHO "$hardcode_libdir_flag_spec_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_flag_spec_FC='`$ECHO "$hardcode_libdir_flag_spec_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_separator_CXX='`$ECHO "$hardcode_libdir_separator_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_separator_F77='`$ECHO "$hardcode_libdir_separator_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_libdir_separator_FC='`$ECHO "$hardcode_libdir_separator_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_CXX='`$ECHO "$hardcode_direct_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_F77='`$ECHO "$hardcode_direct_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_FC='`$ECHO "$hardcode_direct_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_absolute_CXX='`$ECHO "$hardcode_direct_absolute_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_absolute_F77='`$ECHO "$hardcode_direct_absolute_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_direct_absolute_FC='`$ECHO "$hardcode_direct_absolute_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_minus_L_CXX='`$ECHO "$hardcode_minus_L_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_minus_L_F77='`$ECHO "$hardcode_minus_L_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_minus_L_FC='`$ECHO "$hardcode_minus_L_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_shlibpath_var_CXX='`$ECHO "$hardcode_shlibpath_var_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_shlibpath_var_F77='`$ECHO "$hardcode_shlibpath_var_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_shlibpath_var_FC='`$ECHO "$hardcode_shlibpath_var_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_automatic_CXX='`$ECHO "$hardcode_automatic_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_automatic_F77='`$ECHO "$hardcode_automatic_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_automatic_FC='`$ECHO "$hardcode_automatic_FC" | $SED "$delay_single_quote_subst"`'
+inherit_rpath_CXX='`$ECHO "$inherit_rpath_CXX" | $SED "$delay_single_quote_subst"`'
+inherit_rpath_F77='`$ECHO "$inherit_rpath_F77" | $SED "$delay_single_quote_subst"`'
+inherit_rpath_FC='`$ECHO "$inherit_rpath_FC" | $SED "$delay_single_quote_subst"`'
+link_all_deplibs_CXX='`$ECHO "$link_all_deplibs_CXX" | $SED "$delay_single_quote_subst"`'
+link_all_deplibs_F77='`$ECHO "$link_all_deplibs_F77" | $SED "$delay_single_quote_subst"`'
+link_all_deplibs_FC='`$ECHO "$link_all_deplibs_FC" | $SED "$delay_single_quote_subst"`'
+always_export_symbols_CXX='`$ECHO "$always_export_symbols_CXX" | $SED "$delay_single_quote_subst"`'
+always_export_symbols_F77='`$ECHO "$always_export_symbols_F77" | $SED "$delay_single_quote_subst"`'
+always_export_symbols_FC='`$ECHO "$always_export_symbols_FC" | $SED "$delay_single_quote_subst"`'
+export_symbols_cmds_CXX='`$ECHO "$export_symbols_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+export_symbols_cmds_F77='`$ECHO "$export_symbols_cmds_F77" | $SED "$delay_single_quote_subst"`'
+export_symbols_cmds_FC='`$ECHO "$export_symbols_cmds_FC" | $SED "$delay_single_quote_subst"`'
+exclude_expsyms_CXX='`$ECHO "$exclude_expsyms_CXX" | $SED "$delay_single_quote_subst"`'
+exclude_expsyms_F77='`$ECHO "$exclude_expsyms_F77" | $SED "$delay_single_quote_subst"`'
+exclude_expsyms_FC='`$ECHO "$exclude_expsyms_FC" | $SED "$delay_single_quote_subst"`'
+include_expsyms_CXX='`$ECHO "$include_expsyms_CXX" | $SED "$delay_single_quote_subst"`'
+include_expsyms_F77='`$ECHO "$include_expsyms_F77" | $SED "$delay_single_quote_subst"`'
+include_expsyms_FC='`$ECHO "$include_expsyms_FC" | $SED "$delay_single_quote_subst"`'
+prelink_cmds_CXX='`$ECHO "$prelink_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+prelink_cmds_F77='`$ECHO "$prelink_cmds_F77" | $SED "$delay_single_quote_subst"`'
+prelink_cmds_FC='`$ECHO "$prelink_cmds_FC" | $SED "$delay_single_quote_subst"`'
+postlink_cmds_CXX='`$ECHO "$postlink_cmds_CXX" | $SED "$delay_single_quote_subst"`'
+postlink_cmds_F77='`$ECHO "$postlink_cmds_F77" | $SED "$delay_single_quote_subst"`'
+postlink_cmds_FC='`$ECHO "$postlink_cmds_FC" | $SED "$delay_single_quote_subst"`'
+file_list_spec_CXX='`$ECHO "$file_list_spec_CXX" | $SED "$delay_single_quote_subst"`'
+file_list_spec_F77='`$ECHO "$file_list_spec_F77" | $SED "$delay_single_quote_subst"`'
+file_list_spec_FC='`$ECHO "$file_list_spec_FC" | $SED "$delay_single_quote_subst"`'
+hardcode_action_CXX='`$ECHO "$hardcode_action_CXX" | $SED "$delay_single_quote_subst"`'
+hardcode_action_F77='`$ECHO "$hardcode_action_F77" | $SED "$delay_single_quote_subst"`'
+hardcode_action_FC='`$ECHO "$hardcode_action_FC" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_dirs_CXX='`$ECHO "$compiler_lib_search_dirs_CXX" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_dirs_F77='`$ECHO "$compiler_lib_search_dirs_F77" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_dirs_FC='`$ECHO "$compiler_lib_search_dirs_FC" | $SED "$delay_single_quote_subst"`'
+predep_objects_CXX='`$ECHO "$predep_objects_CXX" | $SED "$delay_single_quote_subst"`'
+predep_objects_F77='`$ECHO "$predep_objects_F77" | $SED "$delay_single_quote_subst"`'
+predep_objects_FC='`$ECHO "$predep_objects_FC" | $SED "$delay_single_quote_subst"`'
+postdep_objects_CXX='`$ECHO "$postdep_objects_CXX" | $SED "$delay_single_quote_subst"`'
+postdep_objects_F77='`$ECHO "$postdep_objects_F77" | $SED "$delay_single_quote_subst"`'
+postdep_objects_FC='`$ECHO "$postdep_objects_FC" | $SED "$delay_single_quote_subst"`'
+predeps_CXX='`$ECHO "$predeps_CXX" | $SED "$delay_single_quote_subst"`'
+predeps_F77='`$ECHO "$predeps_F77" | $SED "$delay_single_quote_subst"`'
+predeps_FC='`$ECHO "$predeps_FC" | $SED "$delay_single_quote_subst"`'
+postdeps_CXX='`$ECHO "$postdeps_CXX" | $SED "$delay_single_quote_subst"`'
+postdeps_F77='`$ECHO "$postdeps_F77" | $SED "$delay_single_quote_subst"`'
+postdeps_FC='`$ECHO "$postdeps_FC" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_path_CXX='`$ECHO "$compiler_lib_search_path_CXX" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_path_F77='`$ECHO "$compiler_lib_search_path_F77" | $SED "$delay_single_quote_subst"`'
+compiler_lib_search_path_FC='`$ECHO "$compiler_lib_search_path_FC" | $SED "$delay_single_quote_subst"`'
+
+LTCC='$LTCC'
+LTCFLAGS='$LTCFLAGS'
+compiler='$compiler_DEFAULT'
+
+# A function that is used when there is no print builtin or printf.
+func_fallback_echo ()
+{
+ eval 'cat <<_LTECHO_EOF
+\$1
+_LTECHO_EOF'
+}
+
+# Quote evaled strings.
+for var in SHELL \
+ECHO \
+PATH_SEPARATOR \
+SED \
+GREP \
+EGREP \
+FGREP \
+LD \
+NM \
+LN_S \
+lt_SP2NL \
+lt_NL2SP \
+reload_flag \
+OBJDUMP \
+deplibs_check_method \
+file_magic_cmd \
+file_magic_glob \
+want_nocaseglob \
+DLLTOOL \
+sharedlib_from_linklib_cmd \
+AR \
+AR_FLAGS \
+archiver_list_spec \
+STRIP \
+RANLIB \
+CC \
+CFLAGS \
+compiler \
+lt_cv_sys_global_symbol_pipe \
+lt_cv_sys_global_symbol_to_cdecl \
+lt_cv_sys_global_symbol_to_import \
+lt_cv_sys_global_symbol_to_c_name_address \
+lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \
+lt_cv_nm_interface \
+nm_file_list_spec \
+lt_cv_truncate_bin \
+lt_prog_compiler_no_builtin_flag \
+lt_prog_compiler_pic \
+lt_prog_compiler_wl \
+lt_prog_compiler_static \
+lt_cv_prog_compiler_c_o \
+need_locks \
+MANIFEST_TOOL \
+DSYMUTIL \
+NMEDIT \
+LIPO \
+OTOOL \
+OTOOL64 \
+shrext_cmds \
+export_dynamic_flag_spec \
+whole_archive_flag_spec \
+compiler_needs_object \
+with_gnu_ld \
+allow_undefined_flag \
+no_undefined_flag \
+hardcode_libdir_flag_spec \
+hardcode_libdir_separator \
+exclude_expsyms \
+include_expsyms \
+file_list_spec \
+variables_saved_for_relink \
+libname_spec \
+library_names_spec \
+soname_spec \
+install_override_mode \
+finish_eval \
+old_striplib \
+striplib \
+compiler_lib_search_dirs \
+predep_objects \
+postdep_objects \
+predeps \
+postdeps \
+compiler_lib_search_path \
+LD_CXX \
+LD_F77 \
+LD_FC \
+reload_flag_CXX \
+reload_flag_F77 \
+reload_flag_FC \
+compiler_CXX \
+compiler_F77 \
+compiler_FC \
+lt_prog_compiler_no_builtin_flag_CXX \
+lt_prog_compiler_no_builtin_flag_F77 \
+lt_prog_compiler_no_builtin_flag_FC \
+lt_prog_compiler_pic_CXX \
+lt_prog_compiler_pic_F77 \
+lt_prog_compiler_pic_FC \
+lt_prog_compiler_wl_CXX \
+lt_prog_compiler_wl_F77 \
+lt_prog_compiler_wl_FC \
+lt_prog_compiler_static_CXX \
+lt_prog_compiler_static_F77 \
+lt_prog_compiler_static_FC \
+lt_cv_prog_compiler_c_o_CXX \
+lt_cv_prog_compiler_c_o_F77 \
+lt_cv_prog_compiler_c_o_FC \
+export_dynamic_flag_spec_CXX \
+export_dynamic_flag_spec_F77 \
+export_dynamic_flag_spec_FC \
+whole_archive_flag_spec_CXX \
+whole_archive_flag_spec_F77 \
+whole_archive_flag_spec_FC \
+compiler_needs_object_CXX \
+compiler_needs_object_F77 \
+compiler_needs_object_FC \
+with_gnu_ld_CXX \
+with_gnu_ld_F77 \
+with_gnu_ld_FC \
+allow_undefined_flag_CXX \
+allow_undefined_flag_F77 \
+allow_undefined_flag_FC \
+no_undefined_flag_CXX \
+no_undefined_flag_F77 \
+no_undefined_flag_FC \
+hardcode_libdir_flag_spec_CXX \
+hardcode_libdir_flag_spec_F77 \
+hardcode_libdir_flag_spec_FC \
+hardcode_libdir_separator_CXX \
+hardcode_libdir_separator_F77 \
+hardcode_libdir_separator_FC \
+exclude_expsyms_CXX \
+exclude_expsyms_F77 \
+exclude_expsyms_FC \
+include_expsyms_CXX \
+include_expsyms_F77 \
+include_expsyms_FC \
+file_list_spec_CXX \
+file_list_spec_F77 \
+file_list_spec_FC \
+compiler_lib_search_dirs_CXX \
+compiler_lib_search_dirs_F77 \
+compiler_lib_search_dirs_FC \
+predep_objects_CXX \
+predep_objects_F77 \
+predep_objects_FC \
+postdep_objects_CXX \
+postdep_objects_F77 \
+postdep_objects_FC \
+predeps_CXX \
+predeps_F77 \
+predeps_FC \
+postdeps_CXX \
+postdeps_F77 \
+postdeps_FC \
+compiler_lib_search_path_CXX \
+compiler_lib_search_path_F77 \
+compiler_lib_search_path_FC; do
+ case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
+ *[\\\\\\\`\\"\\\$]*)
+ eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes
+ ;;
+ *)
+ eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
+ ;;
+ esac
+done
+
+# Double-quote double-evaled strings.
+for var in reload_cmds \
+old_postinstall_cmds \
+old_postuninstall_cmds \
+old_archive_cmds \
+extract_expsyms_cmds \
+old_archive_from_new_cmds \
+old_archive_from_expsyms_cmds \
+archive_cmds \
+archive_expsym_cmds \
+module_cmds \
+module_expsym_cmds \
+export_symbols_cmds \
+prelink_cmds \
+postlink_cmds \
+postinstall_cmds \
+postuninstall_cmds \
+finish_cmds \
+sys_lib_search_path_spec \
+configure_time_dlsearch_path \
+configure_time_lt_sys_library_path \
+reload_cmds_CXX \
+reload_cmds_F77 \
+reload_cmds_FC \
+old_archive_cmds_CXX \
+old_archive_cmds_F77 \
+old_archive_cmds_FC \
+old_archive_from_new_cmds_CXX \
+old_archive_from_new_cmds_F77 \
+old_archive_from_new_cmds_FC \
+old_archive_from_expsyms_cmds_CXX \
+old_archive_from_expsyms_cmds_F77 \
+old_archive_from_expsyms_cmds_FC \
+archive_cmds_CXX \
+archive_cmds_F77 \
+archive_cmds_FC \
+archive_expsym_cmds_CXX \
+archive_expsym_cmds_F77 \
+archive_expsym_cmds_FC \
+module_cmds_CXX \
+module_cmds_F77 \
+module_cmds_FC \
+module_expsym_cmds_CXX \
+module_expsym_cmds_F77 \
+module_expsym_cmds_FC \
+export_symbols_cmds_CXX \
+export_symbols_cmds_F77 \
+export_symbols_cmds_FC \
+prelink_cmds_CXX \
+prelink_cmds_F77 \
+prelink_cmds_FC \
+postlink_cmds_CXX \
+postlink_cmds_F77 \
+postlink_cmds_FC; do
+ case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
+ *[\\\\\\\`\\"\\\$]*)
+ eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes
+ ;;
+ *)
+ eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
+ ;;
+ esac
+done
+
+ac_aux_dir='$ac_aux_dir'
+
+# See if we are running on zsh, and set the options that allow our
+# commands through without removal of \ escapes INIT.
+if test -n "\${ZSH_VERSION+set}"; then
+ setopt NO_GLOB_SUBST
+fi
+
+
+ PACKAGE='$PACKAGE'
+ VERSION='$VERSION'
+ RM='$RM'
+ ofile='$ofile'
+
+
+
+
+
+
+
+ac_aux_dir='$ac_aux_dir'
+
+
+
+_ACEOF
+
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+
+# Handling of arguments.
+for ac_config_target in $ac_config_targets
+do
+ case $ac_config_target in
+ "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;;
+ "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;;
+ "src/config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/config.h" ;;
+ "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;;
+ "app/Makefile") CONFIG_FILES="$CONFIG_FILES app/Makefile" ;;
+ "cdi.settings") CONFIG_FILES="$CONFIG_FILES cdi.settings" ;;
+ "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;;
+ "examples/pio/Makefile") CONFIG_FILES="$CONFIG_FILES examples/pio/Makefile" ;;
+ "interfaces/Makefile") CONFIG_FILES="$CONFIG_FILES interfaces/Makefile" ;;
+ "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;;
+ "src/cmake/cdi/cdi-config-version.cmake") CONFIG_FILES="$CONFIG_FILES src/cmake/cdi/cdi-config-version.cmake" ;;
+ "src/cmake/cdi/cdi-config.cmake") CONFIG_FILES="$CONFIG_FILES src/cmake/cdi/cdi-config.cmake" ;;
+ "src/pkgconfig/cdi.pc") CONFIG_FILES="$CONFIG_FILES src/pkgconfig/cdi.pc" ;;
+ "src/pkgconfig/cdi_f2003.pc") CONFIG_FILES="$CONFIG_FILES src/pkgconfig/cdi_f2003.pc" ;;
+ "src/pkgconfig/cdipio.pc") CONFIG_FILES="$CONFIG_FILES src/pkgconfig/cdipio.pc" ;;
+ "tests/Makefile") CONFIG_FILES="$CONFIG_FILES tests/Makefile" ;;
+ "tests/test_cksum_base") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_base" ;;
+ "interfaces/test_cpp_nc.run") CONFIG_FILES="$CONFIG_FILES interfaces/test_cpp_nc.run" ;;
+ "interfaces/test_python_grb.run") CONFIG_FILES="$CONFIG_FILES interfaces/test_python_grb.run" ;;
+ "interfaces/test_python_nc.run") CONFIG_FILES="$CONFIG_FILES interfaces/test_python_nc.run" ;;
+ "interfaces/test_ruby_grb.run") CONFIG_FILES="$CONFIG_FILES interfaces/test_ruby_grb.run" ;;
+ "interfaces/test_ruby_nc.run") CONFIG_FILES="$CONFIG_FILES interfaces/test_ruby_nc.run" ;;
+ "tables/gen_tableheaderfile") CONFIG_FILES="$CONFIG_FILES tables/gen_tableheaderfile" ;;
+ "tests/pio_cksum_asynch.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_asynch.run" ;;
+ "tests/pio_cksum_fpguard.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_fpguard.run" ;;
+ "tests/pio_cksum_grb2.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_grb2.run" ;;
+ "tests/pio_cksum_mpi_fw_at_all.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_mpi_fw_at_all.run" ;;
+ "tests/pio_cksum_mpi_fw_at_reblock.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_mpi_fw_at_reblock.run" ;;
+ "tests/pio_cksum_mpi_fw_ordered.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_mpi_fw_ordered.run" ;;
+ "tests/pio_cksum_mpinonb.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_mpinonb.run" ;;
+ "tests/pio_cksum_nc.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_nc.run" ;;
+ "tests/pio_cksum_nc2.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_nc2.run" ;;
+ "tests/pio_cksum_nc4.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_nc4.run" ;;
+ "tests/pio_cksum_writer.run") CONFIG_FILES="$CONFIG_FILES tests/pio_cksum_writer.run" ;;
+ "tests/pio_write.parallel.run") CONFIG_FILES="$CONFIG_FILES tests/pio_write.parallel.run" ;;
+ "tests/pio_write.run") CONFIG_FILES="$CONFIG_FILES tests/pio_write.run" ;;
+ "tests/pio_write_deco2d.parallel.run") CONFIG_FILES="$CONFIG_FILES tests/pio_write_deco2d.parallel.run" ;;
+ "tests/pio_write_deco2d.run") CONFIG_FILES="$CONFIG_FILES tests/pio_write_deco2d.run" ;;
+ "tests/pio_write_dist_array.run") CONFIG_FILES="$CONFIG_FILES tests/pio_write_dist_array.run" ;;
+ "tests/test_byteswap.run") CONFIG_FILES="$CONFIG_FILES tests/test_byteswap.run" ;;
+ "tests/test_cdf_const.run") CONFIG_FILES="$CONFIG_FILES tests/test_cdf_const.run" ;;
+ "tests/test_cdf_transformation.run") CONFIG_FILES="$CONFIG_FILES tests/test_cdf_transformation.run" ;;
+ "tests/test_cksum_ext.run") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_ext.run" ;;
+ "tests/test_cksum_grb.run") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_grb.run" ;;
+ "tests/test_cksum_grb2.run") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_grb2.run" ;;
+ "tests/test_cksum_ieg.run") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_ieg.run" ;;
+ "tests/test_cksum_nc.run") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_nc.run" ;;
+ "tests/test_cksum_nc2.run") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_nc2.run" ;;
+ "tests/test_cksum_nc4.run") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_nc4.run" ;;
+ "tests/test_cksum_nc_chunk.run") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_nc_chunk.run" ;;
+ "tests/test_cksum_srv.run") CONFIG_FILES="$CONFIG_FILES tests/test_cksum_srv.run" ;;
+ "tests/test_f2003.run") CONFIG_FILES="$CONFIG_FILES tests/test_f2003.run" ;;
+ "tests/test_grib.run") CONFIG_FILES="$CONFIG_FILES tests/test_grib.run" ;;
+ "tests/test_resource_copy.parallel.run") CONFIG_FILES="$CONFIG_FILES tests/test_resource_copy.parallel.run" ;;
+ "tests/test_resource_copy.run") CONFIG_FILES="$CONFIG_FILES tests/test_resource_copy.run" ;;
+ "tests/test_table.run") CONFIG_FILES="$CONFIG_FILES tests/test_table.run" ;;
+
+ *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
+ esac
+done
+
+
+# If the user did not use the arguments to specify the items to instantiate,
+# then the envvar interface is used. Set only those that are not.
+# We use the long form for the default assignment because of an extremely
+# bizarre bug on SunOS 4.1.3.
+if $ac_need_defaults; then
+ test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files
+ test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers
+ test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands
+fi
+
+# Have a temporary directory for convenience. Make it in the build tree
+# simply because there is no reason against having it here, and in addition,
+# creating and moving files from /tmp can sometimes cause problems.
+# Hook for its removal unless debugging.
+# Note that there is a small window in which the directory will not be cleaned:
+# after its creation but before its name has been assigned to `$tmp'.
+$debug ||
+{
+ tmp= ac_tmp=
+ trap 'exit_status=$?
+ : "${ac_tmp:=$tmp}"
+ { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status
+' 0
+ trap 'as_fn_exit 1' 1 2 13 15
+}
+# Create a (secure) tmp directory for tmp files.
+
+{
+ tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
+ test -d "$tmp"
+} ||
+{
+ tmp=./conf$$-$RANDOM
+ (umask 077 && mkdir "$tmp")
+} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
+ac_tmp=$tmp
+
+# Set up the scripts for CONFIG_FILES section.
+# No need to generate them if there are no CONFIG_FILES.
+# This happens for instance with `./config.status config.h'.
+if test -n "$CONFIG_FILES"; then
+
+
+ac_cr=`echo X | tr X '\015'`
+# On cygwin, bash can eat \r inside `` if the user requested igncr.
+# But we know of no other shell where ac_cr would be empty at this
+# point, so we can use a bashism as a fallback.
+if test "x$ac_cr" = x; then
+ eval ac_cr=\$\'\\r\'
+fi
+ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
+if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
+ ac_cs_awk_cr='\\r'
+else
+ ac_cs_awk_cr=$ac_cr
+fi
+
+echo 'BEGIN {' >"$ac_tmp/subs1.awk" &&
+_ACEOF
+
+
+{
+ echo "cat >conf$$subs.awk <<_ACEOF" &&
+ echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' &&
+ echo "_ACEOF"
+} >conf$$subs.sh ||
+ as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
+ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'`
+ac_delim='%!_!# '
+for ac_last_try in false false false false false :; do
+ . ./conf$$subs.sh ||
+ as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
+
+ ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
+ if test $ac_delim_n = $ac_delim_num; then
+ break
+ elif $ac_last_try; then
+ as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
+ else
+ ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
+ fi
+done
+rm -f conf$$subs.sh
+
+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
+cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK &&
+_ACEOF
+sed -n '
+h
+s/^/S["/; s/!.*/"]=/
+p
+g
+s/^[^!]*!//
+:repl
+t repl
+s/'"$ac_delim"'$//
+t delim
+:nl
+h
+s/\(.\{148\}\)..*/\1/
+t more1
+s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/
+p
+n
+b repl
+:more1
+s/["\\]/\\&/g; s/^/"/; s/$/"\\/
+p
+g
+s/.\{148\}//
+t nl
+:delim
+h
+s/\(.\{148\}\)..*/\1/
+t more2
+s/["\\]/\\&/g; s/^/"/; s/$/"/
+p
+b
+:more2
+s/["\\]/\\&/g; s/^/"/; s/$/"\\/
+p
+g
+s/.\{148\}//
+t delim
+' <conf$$subs.awk | sed '
+/^[^""]/{
+ N
+ s/\n//
+}
+' >>$CONFIG_STATUS || ac_write_fail=1
+rm -f conf$$subs.awk
+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
+_ACAWK
+cat >>"\$ac_tmp/subs1.awk" <<_ACAWK &&
+ for (key in S) S_is_set[key] = 1
+ FS = ""
+
+}
+{
+ line = $ 0
+ nfields = split(line, field, "@")
+ substed = 0
+ len = length(field[1])
+ for (i = 2; i < nfields; i++) {
+ key = field[i]
+ keylen = length(key)
+ if (S_is_set[key]) {
+ value = S[key]
+ line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3)
+ len += length(value) + length(field[++i])
+ substed = 1
+ } else
+ len += 1 + keylen
+ }
+
+ print line
+}
+
+_ACAWK
+_ACEOF
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
+ sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
+else
+ cat
+fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \
+ || as_fn_error $? "could not setup config files machinery" "$LINENO" 5
+_ACEOF
+
+# VPATH may cause trouble with some makes, so we remove sole $(srcdir),
+# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and
+# trailing colons and then remove the whole line if VPATH becomes empty
+# (actually we leave an empty line to preserve line numbers).
+if test "x$srcdir" = x.; then
+ ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{
+h
+s///
+s/^/:/
+s/[ ]*$/:/
+s/:\$(srcdir):/:/g
+s/:\${srcdir}:/:/g
+s/:@srcdir@:/:/g
+s/^:*//
+s/:*$//
+x
+s/\(=[ ]*\).*/\1/
+G
+s/\n//
+s/^[^=]*=[ ]*$//
+}'
+fi
+
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+fi # test -n "$CONFIG_FILES"
+
+# Set up the scripts for CONFIG_HEADERS section.
+# No need to generate them if there are no CONFIG_HEADERS.
+# This happens for instance with `./config.status Makefile'.
+if test -n "$CONFIG_HEADERS"; then
+cat >"$ac_tmp/defines.awk" <<\_ACAWK ||
+BEGIN {
+_ACEOF
+
+# Transform confdefs.h into an awk script `defines.awk', embedded as
+# here-document in config.status, that substitutes the proper values into
+# config.h.in to produce config.h.
+
+# Create a delimiter string that does not exist in confdefs.h, to ease
+# handling of long lines.
+ac_delim='%!_!# '
+for ac_last_try in false false :; do
+ ac_tt=`sed -n "/$ac_delim/p" confdefs.h`
+ if test -z "$ac_tt"; then
+ break
+ elif $ac_last_try; then
+ as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5
+ else
+ ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
+ fi
+done
+
+# For the awk script, D is an array of macro values keyed by name,
+# likewise P contains macro parameters if any. Preserve backslash
+# newline sequences.
+
+ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]*
+sed -n '
+s/.\{148\}/&'"$ac_delim"'/g
+t rset
+:rset
+s/^[ ]*#[ ]*define[ ][ ]*/ /
+t def
+d
+:def
+s/\\$//
+t bsnl
+s/["\\]/\\&/g
+s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\
+D["\1"]=" \3"/p
+s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p
+d
+:bsnl
+s/["\\]/\\&/g
+s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\
+D["\1"]=" \3\\\\\\n"\\/p
+t cont
+s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p
+t cont
+d
+:cont
+n
+s/.\{148\}/&'"$ac_delim"'/g
+t clear
+:clear
+s/\\$//
+t bsnlc
+s/["\\]/\\&/g; s/^/"/; s/$/"/p
+d
+:bsnlc
+s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p
+b cont
+' <confdefs.h | sed '
+s/'"$ac_delim"'/"\\\
+"/g' >>$CONFIG_STATUS || ac_write_fail=1
+
+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
+ for (key in D) D_is_set[key] = 1
+ FS = ""
+}
+/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ {
+ line = \$ 0
+ split(line, arg, " ")
+ if (arg[1] == "#") {
+ defundef = arg[2]
+ mac1 = arg[3]
+ } else {
+ defundef = substr(arg[1], 2)
+ mac1 = arg[2]
+ }
+ split(mac1, mac2, "(") #)
+ macro = mac2[1]
+ prefix = substr(line, 1, index(line, defundef) - 1)
+ if (D_is_set[macro]) {
+ # Preserve the white space surrounding the "#".
+ print prefix "define", macro P[macro] D[macro]
+ next
+ } else {
+ # Replace #undef with comments. This is necessary, for example,
+ # in the case of _POSIX_SOURCE, which is predefined and required
+ # on some systems where configure will not decide to define it.
+ if (defundef == "undef") {
+ print "/*", prefix defundef, macro, "*/"
+ next
+ }
+ }
+}
+{ print }
+_ACAWK
+_ACEOF
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+ as_fn_error $? "could not setup config headers machinery" "$LINENO" 5
+fi # test -n "$CONFIG_HEADERS"
+
+
+eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS"
+shift
+for ac_tag
+do
+ case $ac_tag in
+ :[FHLC]) ac_mode=$ac_tag; continue;;
+ esac
+ case $ac_mode$ac_tag in
+ :[FHL]*:*);;
+ :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;;
+ :[FH]-) ac_tag=-:-;;
+ :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
+ esac
+ ac_save_IFS=$IFS
+ IFS=:
+ set x $ac_tag
+ IFS=$ac_save_IFS
+ shift
+ ac_file=$1
+ shift
+
+ case $ac_mode in
+ :L) ac_source=$1;;
+ :[FH])
+ ac_file_inputs=
+ for ac_f
+ do
+ case $ac_f in
+ -) ac_f="$ac_tmp/stdin";;
+ *) # Look for the file first in the build tree, then in the source tree
+ # (if the path is not absolute). The absolute path cannot be DOS-style,
+ # because $ac_f cannot contain `:'.
+ test -f "$ac_f" ||
+ case $ac_f in
+ [\\/$]*) false;;
+ *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
+ esac ||
+ as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;;
+ esac
+ case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
+ as_fn_append ac_file_inputs " '$ac_f'"
+ done
+
+ # Let's still pretend it is `configure' which instantiates (i.e., don't
+ # use $as_me), people would be surprised to read:
+ # /* config.h. Generated by config.status. */
+ configure_input='Generated from '`
+ $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'
+ `' by configure.'
+ if test x"$ac_file" != x-; then
+ configure_input="$ac_file. $configure_input"
+ { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5
+$as_echo "$as_me: creating $ac_file" >&6;}
+ fi
+ # Neutralize special characters interpreted by sed in replacement strings.
+ case $configure_input in #(
+ *\&* | *\|* | *\\* )
+ ac_sed_conf_input=`$as_echo "$configure_input" |
+ sed 's/[\\\\&|]/\\\\&/g'`;; #(
+ *) ac_sed_conf_input=$configure_input;;
+ esac
+
+ case $ac_tag in
+ *:-:* | *:-) cat >"$ac_tmp/stdin" \
+ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;;
+ esac
+ ;;
+ esac
+
+ ac_dir=`$as_dirname -- "$ac_file" ||
+$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
+ X"$ac_file" : 'X\(//\)[^/]' \| \
+ X"$ac_file" : 'X\(//\)$' \| \
+ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X"$ac_file" |
+ sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)[^/].*/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+ as_dir="$ac_dir"; as_fn_mkdir_p
+ ac_builddir=.
+
+case "$ac_dir" in
+.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
+*)
+ ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
+ # A ".." for each directory in $ac_dir_suffix.
+ ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
+ case $ac_top_builddir_sub in
+ "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
+ *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
+ esac ;;
+esac
+ac_abs_top_builddir=$ac_pwd
+ac_abs_builddir=$ac_pwd$ac_dir_suffix
+# for backward compatibility:
+ac_top_builddir=$ac_top_build_prefix
+
+case $srcdir in
+ .) # We are building in place.
+ ac_srcdir=.
+ ac_top_srcdir=$ac_top_builddir_sub
+ ac_abs_top_srcdir=$ac_pwd ;;
+ [\\/]* | ?:[\\/]* ) # Absolute name.
+ ac_srcdir=$srcdir$ac_dir_suffix;
+ ac_top_srcdir=$srcdir
+ ac_abs_top_srcdir=$srcdir ;;
+ *) # Relative name.
+ ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
+ ac_top_srcdir=$ac_top_build_prefix$srcdir
+ ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
+esac
+ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
+
+
+ case $ac_mode in
+ :F)
+ #
+ # CONFIG_FILE
+ #
+
+ case $INSTALL in
+ [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;;
+ *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;;
+ esac
+ ac_MKDIR_P=$MKDIR_P
+ case $MKDIR_P in
+ [\\/$]* | ?:[\\/]* ) ;;
+ */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;;
+ esac
+_ACEOF
+
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+# If the template does not know about datarootdir, expand it.
+# FIXME: This hack should be removed a few years after 2.60.
+ac_datarootdir_hack=; ac_datarootdir_seen=
+ac_sed_dataroot='
+/datarootdir/ {
+ p
+ q
+}
+/@datadir@/p
+/@docdir@/p
+/@infodir@/p
+/@localedir@/p
+/@mandir@/p'
+case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
+*datarootdir*) ac_datarootdir_seen=yes;;
+*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5
+$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;}
+_ACEOF
+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
+ ac_datarootdir_hack='
+ s&@datadir@&$datadir&g
+ s&@docdir@&$docdir&g
+ s&@infodir@&$infodir&g
+ s&@localedir@&$localedir&g
+ s&@mandir@&$mandir&g
+ s&\\\${datarootdir}&$datarootdir&g' ;;
+esac
+_ACEOF
+
+# Neutralize VPATH when `$srcdir' = `.'.
+# Shell code in configure.ac might set extrasub.
+# FIXME: do we really want to maintain this feature?
+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
+ac_sed_extra="$ac_vpsub
+$extrasub
+_ACEOF
+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
+:t
+/@[a-zA-Z_][a-zA-Z_0-9]*@/!b
+s|@configure_input@|$ac_sed_conf_input|;t t
+s&@top_builddir@&$ac_top_builddir_sub&;t t
+s&@top_build_prefix@&$ac_top_build_prefix&;t t
+s&@srcdir@&$ac_srcdir&;t t
+s&@abs_srcdir@&$ac_abs_srcdir&;t t
+s&@top_srcdir@&$ac_top_srcdir&;t t
+s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t
+s&@builddir@&$ac_builddir&;t t
+s&@abs_builddir@&$ac_abs_builddir&;t t
+s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
+s&@INSTALL@&$ac_INSTALL&;t t
+s&@MKDIR_P@&$ac_MKDIR_P&;t t
+$ac_datarootdir_hack
+"
+eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \
+ >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5
+
+test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
+ { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } &&
+ { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \
+ "$ac_tmp/out"`; test -z "$ac_out"; } &&
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
+which seems to be undefined. Please make sure it is defined" >&5
+$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
+which seems to be undefined. Please make sure it is defined" >&2;}
+
+ rm -f "$ac_tmp/stdin"
+ case $ac_file in
+ -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";;
+ *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";;
+ esac \
+ || as_fn_error $? "could not create $ac_file" "$LINENO" 5
+ ;;
+ :H)
+ #
+ # CONFIG_HEADER
+ #
+ if test x"$ac_file" != x-; then
+ {
+ $as_echo "/* $configure_input */" \
+ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs"
+ } >"$ac_tmp/config.h" \
+ || as_fn_error $? "could not create $ac_file" "$LINENO" 5
+ if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5
+$as_echo "$as_me: $ac_file is unchanged" >&6;}
+ else
+ rm -f "$ac_file"
+ mv "$ac_tmp/config.h" "$ac_file" \
+ || as_fn_error $? "could not create $ac_file" "$LINENO" 5
+ fi
+ else
+ $as_echo "/* $configure_input */" \
+ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \
+ || as_fn_error $? "could not create -" "$LINENO" 5
+ fi
+# Compute "$ac_file"'s index in $config_headers.
+_am_arg="$ac_file"
+_am_stamp_count=1
+for _am_header in $config_headers :; do
+ case $_am_header in
+ $_am_arg | $_am_arg:* )
+ break ;;
+ * )
+ _am_stamp_count=`expr $_am_stamp_count + 1` ;;
+ esac
+done
+echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" ||
+$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
+ X"$_am_arg" : 'X\(//\)[^/]' \| \
+ X"$_am_arg" : 'X\(//\)$' \| \
+ X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X"$_am_arg" |
+ sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)[^/].*/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`/stamp-h$_am_stamp_count
+ ;;
+
+ :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5
+$as_echo "$as_me: executing $ac_file commands" >&6;}
+ ;;
+ esac
+
+
+ case $ac_file$ac_mode in
+ "depfiles":C) test x"$AMDEP_TRUE" != x"" || {
+ # Older Autoconf quotes --file arguments for eval, but not when files
+ # are listed without --file. Let's play safe and only enable the eval
+ # if we detect the quoting.
+ # TODO: see whether this extra hack can be removed once we start
+ # requiring Autoconf 2.70 or later.
+ case $CONFIG_FILES in #(
+ *\'*) :
+ eval set x "$CONFIG_FILES" ;; #(
+ *) :
+ set x $CONFIG_FILES ;; #(
+ *) :
+ ;;
+esac
+ shift
+ # Used to flag and report bootstrapping failures.
+ am_rc=0
+ for am_mf
+ do
+ # Strip MF so we end up with the name of the file.
+ am_mf=`$as_echo "$am_mf" | sed -e 's/:.*$//'`
+ # Check whether this is an Automake generated Makefile which includes
+ # dependency-tracking related rules and includes.
+ # Grep'ing the whole file directly is not great: AIX grep has a line
+ # limit of 2048, but all sed's we know have understand at least 4000.
+ sed -n 's,^am--depfiles:.*,X,p' "$am_mf" | grep X >/dev/null 2>&1 \
+ || continue
+ am_dirpart=`$as_dirname -- "$am_mf" ||
+$as_expr X"$am_mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
+ X"$am_mf" : 'X\(//\)[^/]' \| \
+ X"$am_mf" : 'X\(//\)$' \| \
+ X"$am_mf" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X"$am_mf" |
+ sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)[^/].*/{
+ s//\1/
+ q
+ }
+ /^X\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+ am_filepart=`$as_basename -- "$am_mf" ||
+$as_expr X/"$am_mf" : '.*/\([^/][^/]*\)/*$' \| \
+ X"$am_mf" : 'X\(//\)$' \| \
+ X"$am_mf" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X/"$am_mf" |
+ sed '/^.*\/\([^/][^/]*\)\/*$/{
+ s//\1/
+ q
+ }
+ /^X\/\(\/\/\)$/{
+ s//\1/
+ q
+ }
+ /^X\/\(\/\).*/{
+ s//\1/
+ q
+ }
+ s/.*/./; q'`
+ { echo "$as_me:$LINENO: cd "$am_dirpart" \
+ && sed -e '/# am--include-marker/d' "$am_filepart" \
+ | $MAKE -f - am--depfiles" >&5
+ (cd "$am_dirpart" \
+ && sed -e '/# am--include-marker/d' "$am_filepart" \
+ | $MAKE -f - am--depfiles) >&5 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } || am_rc=$?
+ done
+ if test $am_rc -ne 0; then
+ { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "Something went wrong bootstrapping makefile fragments
+ for automatic dependency tracking. If GNU make was not used, consider
+ re-running the configure script with MAKE=\"gmake\" (or whatever is
+ necessary). You can also try re-running configure with the
+ '--disable-dependency-tracking' option to at least be able to build
+ the package (albeit without support for automatic dependency tracking).
+See \`config.log' for more details" "$LINENO" 5; }
+ fi
+ { am_dirpart=; unset am_dirpart;}
+ { am_filepart=; unset am_filepart;}
+ { am_mf=; unset am_mf;}
+ { am_rc=; unset am_rc;}
+ rm -f conftest-deps.mk
+}
+ ;;
+ "libtool":C)
+
+ # See if we are running on zsh, and set the options that allow our
+ # commands through without removal of \ escapes.
+ if test -n "${ZSH_VERSION+set}"; then
+ setopt NO_GLOB_SUBST
+ fi
+
+ cfgfile=${ofile}T
+ trap "$RM \"$cfgfile\"; exit 1" 1 2 15
+ $RM "$cfgfile"
+
+ cat <<_LT_EOF >> "$cfgfile"
+#! $SHELL
+# Generated automatically by $as_me ($PACKAGE) $VERSION
+# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
+# NOTE: Changes made to this file will be lost: look at ltmain.sh.
+
+# Provide generalized library-building support services.
+# Written by Gordon Matzigkeit, 1996
+
+# Copyright (C) 2014 Free Software Foundation, Inc.
+# This is free software; see the source for copying conditions. There is NO
+# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+# GNU Libtool 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 2 of of the License, or
+# (at your option) any later version.
+#
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program or library that is built
+# using GNU Libtool, you may include this file under the same
+# distribution terms that you use for the rest of that program.
+#
+# GNU Libtool 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/>.
+
+
+# The names of the tagged configurations supported by this script.
+available_tags='CXX F77 FC '
+
+# Configured defaults for sys_lib_dlsearch_path munging.
+: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"}
+
+# ### BEGIN LIBTOOL CONFIG
+
+# Which release of libtool.m4 was used?
+macro_version=$macro_version
+macro_revision=$macro_revision
+
+# What type of objects to build.
+pic_mode=$pic_mode
+
+# Whether or not to build shared libraries.
+build_libtool_libs=$enable_shared
+
+# Whether or not to build static libraries.
+build_old_libs=$enable_static
+
+# Whether or not to optimize for fast installation.
+fast_install=$enable_fast_install
+
+# Shared archive member basename,for filename based shared library versioning on AIX.
+shared_archive_member_spec=$shared_archive_member_spec
+
+# Shell to use when invoking shell scripts.
+SHELL=$lt_SHELL
+
+# An echo program that protects backslashes.
+ECHO=$lt_ECHO
+
+# The PATH separator for the build system.
+PATH_SEPARATOR=$lt_PATH_SEPARATOR
+
+# The host system.
+host_alias=$host_alias
+host=$host
+host_os=$host_os
+
+# The build system.
+build_alias=$build_alias
+build=$build
+build_os=$build_os
+
+# A sed program that does not truncate output.
+SED=$lt_SED
+
+# Sed that helps us avoid accidentally triggering echo(1) options like -n.
+Xsed="\$SED -e 1s/^X//"
+
+# A grep program that handles long lines.
+GREP=$lt_GREP
+
+# An ERE matcher.
+EGREP=$lt_EGREP
+
+# A literal string matcher.
+FGREP=$lt_FGREP
+
+# A BSD- or MS-compatible name lister.
+NM=$lt_NM
+
+# Whether we need soft or hard links.
+LN_S=$lt_LN_S
+
+# What is the maximum length of a command?
+max_cmd_len=$max_cmd_len
+
+# Object file suffix (normally "o").
+objext=$ac_objext
+
+# Executable file suffix (normally "").
+exeext=$exeext
+
+# whether the shell understands "unset".
+lt_unset=$lt_unset
+
+# turn spaces into newlines.
+SP2NL=$lt_lt_SP2NL
+
+# turn newlines into spaces.
+NL2SP=$lt_lt_NL2SP
+
+# convert \$build file names to \$host format.
+to_host_file_cmd=$lt_cv_to_host_file_cmd
+
+# convert \$build files to toolchain format.
+to_tool_file_cmd=$lt_cv_to_tool_file_cmd
+
+# An object symbol dumper.
+OBJDUMP=$lt_OBJDUMP
+
+# Method to check whether dependent libraries are shared objects.
+deplibs_check_method=$lt_deplibs_check_method
+
+# Command to use when deplibs_check_method = "file_magic".
+file_magic_cmd=$lt_file_magic_cmd
+
+# How to find potential files when deplibs_check_method = "file_magic".
+file_magic_glob=$lt_file_magic_glob
+
+# Find potential files using nocaseglob when deplibs_check_method = "file_magic".
+want_nocaseglob=$lt_want_nocaseglob
+
+# DLL creation program.
+DLLTOOL=$lt_DLLTOOL
+
+# Command to associate shared and link libraries.
+sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd
+
+# The archiver.
+AR=$lt_AR
+
+# Flags to create an archive.
+AR_FLAGS=$lt_AR_FLAGS
+
+# How to feed a file listing to the archiver.
+archiver_list_spec=$lt_archiver_list_spec
+
+# A symbol stripping program.
+STRIP=$lt_STRIP
+
+# Commands used to install an old-style archive.
+RANLIB=$lt_RANLIB
+old_postinstall_cmds=$lt_old_postinstall_cmds
+old_postuninstall_cmds=$lt_old_postuninstall_cmds
+
+# Whether to use a lock for old archive extraction.
+lock_old_archive_extraction=$lock_old_archive_extraction
+
+# A C compiler.
+LTCC=$lt_CC
+
+# LTCC compiler flags.
+LTCFLAGS=$lt_CFLAGS
+
+# Take the output of nm and produce a listing of raw symbols and C names.
+global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe
+
+# Transform the output of nm in a proper C declaration.
+global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl
+
+# Transform the output of nm into a list of symbols to manually relocate.
+global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import
+
+# Transform the output of nm in a C name address pair.
+global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address
+
+# Transform the output of nm in a C name address pair when lib prefix is needed.
+global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix
+
+# The name lister interface.
+nm_interface=$lt_lt_cv_nm_interface
+
+# Specify filename containing input files for \$NM.
+nm_file_list_spec=$lt_nm_file_list_spec
+
+# The root where to search for dependent libraries,and where our libraries should be installed.
+lt_sysroot=$lt_sysroot
+
+# Command to truncate a binary pipe.
+lt_truncate_bin=$lt_lt_cv_truncate_bin
+
+# The name of the directory that contains temporary libtool files.
+objdir=$objdir
+
+# Used to examine libraries when file_magic_cmd begins with "file".
+MAGIC_CMD=$MAGIC_CMD
+
+# Must we lock files when doing compilation?
+need_locks=$lt_need_locks
+
+# Manifest tool.
+MANIFEST_TOOL=$lt_MANIFEST_TOOL
+
+# Tool to manipulate archived DWARF debug symbol files on Mac OS X.
+DSYMUTIL=$lt_DSYMUTIL
+
+# Tool to change global to local symbols on Mac OS X.
+NMEDIT=$lt_NMEDIT
+
+# Tool to manipulate fat objects and archives on Mac OS X.
+LIPO=$lt_LIPO
+
+# ldd/readelf like tool for Mach-O binaries on Mac OS X.
+OTOOL=$lt_OTOOL
+
+# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4.
+OTOOL64=$lt_OTOOL64
+
+# Old archive suffix (normally "a").
+libext=$libext
+
+# Shared library suffix (normally ".so").
+shrext_cmds=$lt_shrext_cmds
+
+# The commands to extract the exported symbol list from a shared archive.
+extract_expsyms_cmds=$lt_extract_expsyms_cmds
+
+# Variables whose values should be saved in libtool wrapper scripts and
+# restored at link time.
+variables_saved_for_relink=$lt_variables_saved_for_relink
+
+# Do we need the "lib" prefix for modules?
+need_lib_prefix=$need_lib_prefix
+
+# Do we need a version for libraries?
+need_version=$need_version
+
+# Library versioning type.
+version_type=$version_type
+
+# Shared library runtime path variable.
+runpath_var=$runpath_var
+
+# Shared library path variable.
+shlibpath_var=$shlibpath_var
+
+# Is shlibpath searched before the hard-coded library search path?
+shlibpath_overrides_runpath=$shlibpath_overrides_runpath
+
+# Format of library name prefix.
+libname_spec=$lt_libname_spec
+
+# List of archive names. First name is the real one, the rest are links.
+# The last name is the one that the linker finds with -lNAME
+library_names_spec=$lt_library_names_spec
+
+# The coded name of the library, if different from the real name.
+soname_spec=$lt_soname_spec
+
+# Permission mode override for installation of shared libraries.
+install_override_mode=$lt_install_override_mode
+
+# Command to use after installation of a shared archive.
+postinstall_cmds=$lt_postinstall_cmds
+
+# Command to use after uninstallation of a shared archive.
+postuninstall_cmds=$lt_postuninstall_cmds
+
+# Commands used to finish a libtool library installation in a directory.
+finish_cmds=$lt_finish_cmds
+
+# As "finish_cmds", except a single script fragment to be evaled but
+# not shown.
+finish_eval=$lt_finish_eval
+
+# Whether we should hardcode library paths into libraries.
+hardcode_into_libs=$hardcode_into_libs
+
+# Compile-time system search path for libraries.
+sys_lib_search_path_spec=$lt_sys_lib_search_path_spec
+
+# Detected run-time system search path for libraries.
+sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path
+
+# Explicit LT_SYS_LIBRARY_PATH set during ./configure time.
+configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path
+
+# Whether dlopen is supported.
+dlopen_support=$enable_dlopen
+
+# Whether dlopen of programs is supported.
+dlopen_self=$enable_dlopen_self
+
+# Whether dlopen of statically linked programs is supported.
+dlopen_self_static=$enable_dlopen_self_static
+
+# Commands to strip libraries.
+old_striplib=$lt_old_striplib
+striplib=$lt_striplib
+
+
+# The linker used to build libraries.
+LD=$lt_LD
+
+# How to create reloadable object files.
+reload_flag=$lt_reload_flag
+reload_cmds=$lt_reload_cmds
+
+# Commands used to build an old-style archive.
+old_archive_cmds=$lt_old_archive_cmds
+
+# A language specific compiler.
+CC=$lt_compiler
+
+# Is the compiler the GNU compiler?
+with_gcc=$GCC
+
+# Is the compiler the NAG Fortran compiler?
+with_nagfor=$acx_is_nagfor
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag
+
+# Additional compiler flags for building library objects.
+pic_flag=$lt_lt_prog_compiler_pic
+
+# How to pass a linker flag through the compiler.
+wl=$lt_lt_prog_compiler_wl
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag=$lt_lt_prog_compiler_static
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o=$lt_lt_cv_prog_compiler_c_o
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=$archive_cmds_need_lc
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec=$lt_export_dynamic_flag_spec
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec=$lt_whole_archive_flag_spec
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object=$lt_compiler_needs_object
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=$lt_old_archive_from_new_cmds
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds
+
+# Commands used to build a shared archive.
+archive_cmds=$lt_archive_cmds
+archive_expsym_cmds=$lt_archive_expsym_cmds
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=$lt_module_cmds
+module_expsym_cmds=$lt_module_expsym_cmds
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld=$lt_with_gnu_ld
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=$lt_allow_undefined_flag
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=$lt_no_undefined_flag
+
+# Flag to hardcode \$libdir into a binary during linking.
+# This must work even if \$libdir does not exist
+hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=$lt_hardcode_libdir_separator
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=$hardcode_direct
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting \$shlibpath_var if the
+# library is relocated.
+hardcode_direct_absolute=$hardcode_direct_absolute
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=$hardcode_minus_L
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=$hardcode_shlibpath_var
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=$hardcode_automatic
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=$inherit_rpath
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=$link_all_deplibs
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=$always_export_symbols
+
+# The commands to list exported symbols.
+export_symbols_cmds=$lt_export_symbols_cmds
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms=$lt_exclude_expsyms
+
+# Symbols that must always be exported.
+include_expsyms=$lt_include_expsyms
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=$lt_prelink_cmds
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=$lt_postlink_cmds
+
+# Specify filename containing input files.
+file_list_spec=$lt_file_list_spec
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=$hardcode_action
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=$lt_compiler_lib_search_dirs
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=$lt_predep_objects
+postdep_objects=$lt_postdep_objects
+predeps=$lt_predeps
+postdeps=$lt_postdeps
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=$lt_compiler_lib_search_path
+
+# ### END LIBTOOL CONFIG
+
+_LT_EOF
+
+ cat <<'_LT_EOF' >> "$cfgfile"
+
+# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE
+
+# func_munge_path_list VARIABLE PATH
+# -----------------------------------
+# VARIABLE is name of variable containing _space_ separated list of
+# directories to be munged by the contents of PATH, which is string
+# having a format:
+# "DIR[:DIR]:"
+# string "DIR[ DIR]" will be prepended to VARIABLE
+# ":DIR[:DIR]"
+# string "DIR[ DIR]" will be appended to VARIABLE
+# "DIRP[:DIRP]::[DIRA:]DIRA"
+# string "DIRP[ DIRP]" will be prepended to VARIABLE and string
+# "DIRA[ DIRA]" will be appended to VARIABLE
+# "DIR[:DIR]"
+# VARIABLE will be replaced by "DIR[ DIR]"
+func_munge_path_list ()
+{
+ case x$2 in
+ x)
+ ;;
+ *:)
+ eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\"
+ ;;
+ x:*)
+ eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\"
+ ;;
+ *::*)
+ eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\"
+ eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\"
+ ;;
+ *)
+ eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\"
+ ;;
+ esac
+}
+
+
+# Calculate cc_basename. Skip known compiler wrappers and cross-prefix.
+func_cc_basename ()
+{
+ for cc_temp in $*""; do
+ case $cc_temp in
+ compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
+ distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
+ \-*) ;;
+ *) break;;
+ esac
+ done
+ func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
+}
+
+
+# ### END FUNCTIONS SHARED WITH CONFIGURE
+
+_LT_EOF
+
+ case $host_os in
+ aix3*)
+ cat <<\_LT_EOF >> "$cfgfile"
+# AIX sometimes has problems with the GCC collect2 program. For some
+# reason, if we set the COLLECT_NAMES environment variable, the problems
+# vanish in a puff of smoke.
+if test set != "${COLLECT_NAMES+set}"; then
+ COLLECT_NAMES=
+ export COLLECT_NAMES
+fi
+_LT_EOF
+ ;;
+ esac
+
+
+ltmain=$ac_aux_dir/ltmain.sh
+
+
+ # We use sed instead of cat because bash on DJGPP gets confused if
+ # if finds mixed CR/LF and LF-only lines. Since sed operates in
+ # text mode, it properly converts lines to CR/LF. This bash problem
+ # is reportedly fixed, but why not run on old versions too?
+ sed '$q' "$ltmain" >> "$cfgfile" \
+ || (rm -f "$cfgfile"; exit 1)
+
+ mv -f "$cfgfile" "$ofile" ||
+ (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile")
+ chmod +x "$ofile"
+
+
+ cat <<_LT_EOF >> "$ofile"
+
+# ### BEGIN LIBTOOL TAG CONFIG: CXX
+
+# The linker used to build libraries.
+LD=$lt_LD_CXX
+
+# How to create reloadable object files.
+reload_flag=$lt_reload_flag_CXX
+reload_cmds=$lt_reload_cmds_CXX
+
+# Commands used to build an old-style archive.
+old_archive_cmds=$lt_old_archive_cmds_CXX
+
+# A language specific compiler.
+CC=$lt_compiler_CXX
+
+# Is the compiler the GNU compiler?
+with_gcc=$GCC_CXX
+
+# Is the compiler the NAG Fortran compiler?
+with_nagfor=$acx_is_nagfor_CXX
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX
+
+# Additional compiler flags for building library objects.
+pic_flag=$lt_lt_prog_compiler_pic_CXX
+
+# How to pass a linker flag through the compiler.
+wl=$lt_lt_prog_compiler_wl_CXX
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag=$lt_lt_prog_compiler_static_CXX
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=$archive_cmds_need_lc_CXX
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object=$lt_compiler_needs_object_CXX
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX
+
+# Commands used to build a shared archive.
+archive_cmds=$lt_archive_cmds_CXX
+archive_expsym_cmds=$lt_archive_expsym_cmds_CXX
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=$lt_module_cmds_CXX
+module_expsym_cmds=$lt_module_expsym_cmds_CXX
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld=$lt_with_gnu_ld_CXX
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=$lt_allow_undefined_flag_CXX
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=$lt_no_undefined_flag_CXX
+
+# Flag to hardcode \$libdir into a binary during linking.
+# This must work even if \$libdir does not exist
+hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=$hardcode_direct_CXX
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting \$shlibpath_var if the
+# library is relocated.
+hardcode_direct_absolute=$hardcode_direct_absolute_CXX
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=$hardcode_minus_L_CXX
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=$hardcode_automatic_CXX
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=$inherit_rpath_CXX
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=$link_all_deplibs_CXX
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=$always_export_symbols_CXX
+
+# The commands to list exported symbols.
+export_symbols_cmds=$lt_export_symbols_cmds_CXX
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms=$lt_exclude_expsyms_CXX
+
+# Symbols that must always be exported.
+include_expsyms=$lt_include_expsyms_CXX
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=$lt_prelink_cmds_CXX
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=$lt_postlink_cmds_CXX
+
+# Specify filename containing input files.
+file_list_spec=$lt_file_list_spec_CXX
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=$hardcode_action_CXX
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=$lt_predep_objects_CXX
+postdep_objects=$lt_postdep_objects_CXX
+predeps=$lt_predeps_CXX
+postdeps=$lt_postdeps_CXX
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=$lt_compiler_lib_search_path_CXX
+
+# ### END LIBTOOL TAG CONFIG: CXX
+_LT_EOF
+
+
+ cat <<_LT_EOF >> "$ofile"
+
+# ### BEGIN LIBTOOL TAG CONFIG: F77
+
+# The linker used to build libraries.
+LD=$lt_LD_F77
+
+# How to create reloadable object files.
+reload_flag=$lt_reload_flag_F77
+reload_cmds=$lt_reload_cmds_F77
+
+# Commands used to build an old-style archive.
+old_archive_cmds=$lt_old_archive_cmds_F77
+
+# A language specific compiler.
+CC=$lt_compiler_F77
+
+# Is the compiler the GNU compiler?
+with_gcc=$GCC_F77
+
+# Is the compiler the NAG Fortran compiler?
+with_nagfor=$acx_is_nagfor_F77
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_F77
+
+# Additional compiler flags for building library objects.
+pic_flag=$lt_lt_prog_compiler_pic_F77
+
+# How to pass a linker flag through the compiler.
+wl=$lt_lt_prog_compiler_wl_F77
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag=$lt_lt_prog_compiler_static_F77
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o=$lt_lt_cv_prog_compiler_c_o_F77
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=$archive_cmds_need_lc_F77
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_F77
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_F77
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec=$lt_whole_archive_flag_spec_F77
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object=$lt_compiler_needs_object_F77
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_F77
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_F77
+
+# Commands used to build a shared archive.
+archive_cmds=$lt_archive_cmds_F77
+archive_expsym_cmds=$lt_archive_expsym_cmds_F77
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=$lt_module_cmds_F77
+module_expsym_cmds=$lt_module_expsym_cmds_F77
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld=$lt_with_gnu_ld_F77
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=$lt_allow_undefined_flag_F77
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=$lt_no_undefined_flag_F77
+
+# Flag to hardcode \$libdir into a binary during linking.
+# This must work even if \$libdir does not exist
+hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_F77
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=$lt_hardcode_libdir_separator_F77
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=$hardcode_direct_F77
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting \$shlibpath_var if the
+# library is relocated.
+hardcode_direct_absolute=$hardcode_direct_absolute_F77
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=$hardcode_minus_L_F77
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=$hardcode_shlibpath_var_F77
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=$hardcode_automatic_F77
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=$inherit_rpath_F77
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=$link_all_deplibs_F77
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=$always_export_symbols_F77
+
+# The commands to list exported symbols.
+export_symbols_cmds=$lt_export_symbols_cmds_F77
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms=$lt_exclude_expsyms_F77
+
+# Symbols that must always be exported.
+include_expsyms=$lt_include_expsyms_F77
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=$lt_prelink_cmds_F77
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=$lt_postlink_cmds_F77
+
+# Specify filename containing input files.
+file_list_spec=$lt_file_list_spec_F77
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=$hardcode_action_F77
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_F77
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=$lt_predep_objects_F77
+postdep_objects=$lt_postdep_objects_F77
+predeps=$lt_predeps_F77
+postdeps=$lt_postdeps_F77
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=$lt_compiler_lib_search_path_F77
+
+# ### END LIBTOOL TAG CONFIG: F77
+_LT_EOF
+
+
+ cat <<_LT_EOF >> "$ofile"
+
+# ### BEGIN LIBTOOL TAG CONFIG: FC
+
+# The linker used to build libraries.
+LD=$lt_LD_FC
+
+# How to create reloadable object files.
+reload_flag=$lt_reload_flag_FC
+reload_cmds=$lt_reload_cmds_FC
+
+# Commands used to build an old-style archive.
+old_archive_cmds=$lt_old_archive_cmds_FC
+
+# A language specific compiler.
+CC=$lt_compiler_FC
+
+# Is the compiler the GNU compiler?
+with_gcc=$GCC_FC
+
+# Is the compiler the NAG Fortran compiler?
+with_nagfor=$acx_is_nagfor_FC
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC
+
+# Additional compiler flags for building library objects.
+pic_flag=$lt_lt_prog_compiler_pic_FC
+
+# How to pass a linker flag through the compiler.
+wl=$lt_lt_prog_compiler_wl_FC
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag=$lt_lt_prog_compiler_static_FC
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=$archive_cmds_need_lc_FC
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object=$lt_compiler_needs_object_FC
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC
+
+# Commands used to build a shared archive.
+archive_cmds=$lt_archive_cmds_FC
+archive_expsym_cmds=$lt_archive_expsym_cmds_FC
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=$lt_module_cmds_FC
+module_expsym_cmds=$lt_module_expsym_cmds_FC
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld=$lt_with_gnu_ld_FC
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=$lt_allow_undefined_flag_FC
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=$lt_no_undefined_flag_FC
+
+# Flag to hardcode \$libdir into a binary during linking.
+# This must work even if \$libdir does not exist
+hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=$hardcode_direct_FC
+
+# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting \$shlibpath_var if the
+# library is relocated.
+hardcode_direct_absolute=$hardcode_direct_absolute_FC
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=$hardcode_minus_L_FC
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=$hardcode_shlibpath_var_FC
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=$hardcode_automatic_FC
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=$inherit_rpath_FC
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=$link_all_deplibs_FC
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=$always_export_symbols_FC
+
+# The commands to list exported symbols.
+export_symbols_cmds=$lt_export_symbols_cmds_FC
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms=$lt_exclude_expsyms_FC
+
+# Symbols that must always be exported.
+include_expsyms=$lt_include_expsyms_FC
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=$lt_prelink_cmds_FC
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=$lt_postlink_cmds_FC
+
+# Specify filename containing input files.
+file_list_spec=$lt_file_list_spec_FC
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=$hardcode_action_FC
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=$lt_predep_objects_FC
+postdep_objects=$lt_postdep_objects_FC
+predeps=$lt_predeps_FC
+postdeps=$lt_postdeps_FC
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=$lt_compiler_lib_search_path_FC
+
+# ### END LIBTOOL TAG CONFIG: FC
+_LT_EOF
+
+ ;;
+ "interfaces/test_cpp_nc.run":F) chmod a+x "$ac_file" ;;
+ "interfaces/test_python_grb.run":F) chmod a+x "$ac_file" ;;
+ "interfaces/test_python_nc.run":F) chmod a+x "$ac_file" ;;
+ "interfaces/test_ruby_grb.run":F) chmod a+x "$ac_file" ;;
+ "interfaces/test_ruby_nc.run":F) chmod a+x "$ac_file" ;;
+ "tables/gen_tableheaderfile":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_asynch.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_fpguard.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_grb2.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_mpi_fw_at_all.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_mpi_fw_at_reblock.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_mpi_fw_ordered.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_mpinonb.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_nc.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_nc2.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_nc4.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_cksum_writer.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_write.parallel.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_write.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_write_deco2d.parallel.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_write_deco2d.run":F) chmod a+x "$ac_file" ;;
+ "tests/pio_write_dist_array.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_byteswap.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cdf_const.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cdf_transformation.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cksum_ext.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cksum_grb.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cksum_grb2.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cksum_ieg.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cksum_nc.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cksum_nc2.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cksum_nc4.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cksum_nc_chunk.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_cksum_srv.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_f2003.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_grib.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_resource_copy.parallel.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_resource_copy.run":F) chmod a+x "$ac_file" ;;
+ "tests/test_table.run":F) chmod a+x "$ac_file" ;;
+
+ esac
+done # for ac_tag
+
+
+as_fn_exit 0
+_ACEOF
+ac_clean_files=$ac_clean_files_save
+
+test $ac_write_fail = 0 ||
+ as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5
+
+
+# configure is writing to config.log, and then calls config.status.
+# config.status does its own redirection, appending to config.log.
+# Unfortunately, on DOS this fails, as config.log is still kept open
+# by configure, so config.status won't be able to write to it; its
+# output is simply discarded. So we exec the FD to /dev/null,
+# effectively closing config.log, so it can be properly (re)opened and
+# appended to by config.status. When coming back to configure, we
+# need to make the FD available again.
+if test "$no_create" != yes; then
+ ac_cs_success=:
+ ac_config_status_args=
+ test "$silent" = yes &&
+ ac_config_status_args="$ac_config_status_args --quiet"
+ exec 5>/dev/null
+ $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false
+ exec 5>>config.log
+ # Use ||, not &&, to avoid exiting from the if with $? = 1, which
+ # would make configure fail if this is the last instruction.
+ $ac_cs_success || as_fn_exit 1
+fi
+if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5
+$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;}
+fi
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: CDI is configured with the following options:" >&5
+$as_echo "$as_me: CDI is configured with the following options:" >&6;}
+cat cdi.settings >&6
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}:
+
+ Configuration completed.
+
+ You can now run 'make' to compile the CDI package and 'make install' to install it afterwards.
+" >&5
+$as_echo "$as_me:
+
+ Configuration completed.
+
+ You can now run 'make' to compile the CDI package and 'make install' to install it afterwards.
+" >&6;}
diff --git a/doc/cdi_cman.pdf b/doc/cdi_cman.pdf
new file mode 100644
index 0000000000000000000000000000000000000000..b30245897a7fc8590a44946ccfa4852ea28d0ef8
GIT binary patch
literal 326789
zcma&Mb8u$Sw=EjmwrwY0*s*Qfw(X8>8y#C6+qOFSl8$Y>zW1G~cW<3v)jR8-J!|bX
zYtKE$s=dY>dr~TiNiec9al%o~FORIlagwl*IGWhN@$<tm%b7b^x>=F1v$2r;zXOh0
z!rIQw+=YZ$!p_*uT+H0m(aao9P!P`5&Bff<9?omiJ!wW^hy^9=I^d@ORV2fgd@g-z
zF^M`DY6l4tmAs5tHVijrYQ>nswv71M1pRe;{w-2CqEZJrNA4PBrw$yHo=G`7lsR~n
z6J@Df$qlxxSDXWu_=m<WUvhpDMrVyx(4m+aolce@7Q<%FY(nBzvLEW4lF?X2mB=wi
z4dd+^+p&~66k6w@k*(GEpNYLr#b>A?J-~Do{4eFuNe&<bGFF#|?Whk|6H7@}jfo4#
zY8$KirGD_FvN<k=oDtI_{|DL$TlHlf;hT4Ci5Txe^j3JjGiB(i%i!MS?z-qcZAJwr
zYxLmfG`{-`1|U>SC0Yl%^Tg4S&da~rWS}I$+Ii=C+j`9ct>UDM{yv4@t-PN9Aq(Tv
z!EWsHc4@{)6yZ?|+2b@~=0F80_LxcNQwTa<r&1R10h&G&Q4448VD?|B{Ac|y7&!j}
z9;{p(JpWTXE_0?_a-=XKo&(_08<Z-pIhyeek5uS5tDHGz)x4Yfu@owkehBl>&MnP>
z;^7L%#F&h!T*N_Yam;use4l^~u3EzDo=A2)dGibSuv-il<48+~bN06C#ipjF%fh1N
zYA<EEn->f#<B9#9eC6=p!T}#LG@;y3XmfTpK#*p+YmjUrZR9k8>lDK(K|PA4IC-Lw
zNm<8bHJQ6|SY(Nh9n#fvqQJE~p^n*gEv)8^M2)0X>S#nYmZGcAmEpq0rgHVep0zZ7
zzy%I<_~-Bp$77Go()GzYgv{i$*GUlF+VN-`^;8gV`}V-DUgg0w=<Hy)qid-Z#s-9X
zjp|8bZ`(8?oCFL#IDtlt7~FdeCQ#XI$Khe8(kE6$@JDM@3301NP<ngSy||?w$G>qM
zLO7GwqVn*gRyTmI&~YQ3fS$r=nOyW2M-z4^HQlsFS<7E;ORDpAX>{MmOgIw;C;!g0
z_%yqA_DmAhNgCRwL2=F`oF4S+1oD*za9%ZLn9`{3D+{bNz-6_Gme(gniV$UeX4yo)
zl1nKnj6D`XrZcOv2gvC!Hy{L&m0#W*Tnv(it!Jd9G{23bU3{2SBJ~L^Ro_6#BCmPy
zy!-mx`kDf0t~KlM@*MyO?V<A?nYnq~Y{X24x8IraEbC$W`uCP(s40Hzffl@hU$$jS
zCogR;a=(wDOZ{DVY2$m~>zkK(Z|}F?c5}51<0>Uf8(=qBE10OY-RawAD;1MLWNMoN
z_p!A{rWHTc6S*dto?AP9y&>XuWNz?IbijOQE1u^2{BrjU?z1qU!Vq5r2K#W(cl?Gg
z34Bzx2t;0D9?@vjJBS%^2`9h5;k~t;;wZp!M+PPEmrMJjbG)k4M#EQpZ=@R;R3j4^
z)Ucxq(Xv6dZ!65VGF5pRxhw7+*|q?2och}$nv<ARzU1Ky^2WxN1D;yA(V(SHeBgNy
zM`u4^s_xc;;YK3yke^t~cZ@FF8S6Sj_<<GHxaX|)45_I9S5K?qCG7dmX*|tKTa8zW
z;|7%1Z#M}NZecS7!q-{*T#RqIJCZ*r@6EWKvMBdn=-yblo6)kRJb{9T65f9V&H}<|
zRPhf;O{Zk`^2TZw-Q9gDXPxNda@@TdM6_1<J8+uf%G{FZ1DK|Yf_G1+it)KorBD|h
z%njOFWD-`2(l@@122Y$Y_&<m~G={kUP=UnH%WtQg+OD=KTxVR)!=_8oJmYejR=Pd(
z%L9t@*M=E6u9irK@F6*YYe+18itbJ5)XgLt)$?G}ouD5a9Rd-q_syHpL$!L7Pjc+T
zEHjlVX}WnG+)DF4deCr0+vqe;D426(g9(3I2t;x?cz$hNwd@g)+6lpao_i}%ozyUP
zG2C57>={^Cwvaus9QFDlYF!~|*+1@)+GUCK%wp+v<opU*-zQA`nlygX1----(57~<
z?tsy-Zs1rdQ}SY6z1gl3tYRN_7DggvOz*B3aT*eTecd0W%=KfACBZj1x<<)Fm5oR}
zLWI7G&LpGEABu?^sD+lGy(ifomf{#qh!5!^WeCmqtpTA;H<)fVZ3~3*KKA(A9?5zP
z1RUl^UF<WgUs}ZLYYjskJ-{X<Z2iF-pFF@MxVnObHvU!ndszC#kigtp_iQf4w8q;@
z)xxPAKUp6!L1M~m=|->FSnz15je1f$<3iGHiw0@uVP7L@xO^39kKX6cNq<GeLCqq1
zw!yACZWtN8vvu$AOvGOdbsEL>KKEfL<`)Oxu&R{vQb>j(nE$pqQ_wS^9gS*tB%3Gx
zWjWUkw7pTzW`DOS(M%nKeu@1X4ZV1-kVuz>8ce+|DM=pn@XdBerT+o<u453GjrPSV
zX!@KQGvP?K`#I2+Byv4YQdp)T;~p#A`mbuwmMZb))3T)$cCac;-nqh5`$de;Fqfwr
zu2*RLnol?W<&0QcNKTzDY|RBWjdqT64Tu|?C%v^sd=JiJUmhS8=^^Ni%ik#H9r$q2
zsMJ$iLbOhSz5-=-uzTA?*s?#j-RnKPTpWoiwP0(%Ug)Rh=F^@V>JiC38?_z)mlNmG
z87QR1#ZN4O?AY}nff>*=_Gx4jkaTJ1^Y9pDwS7Ey6vSP!I&*k>hTdjzQ{Rpy0hSzk
z{fdo^mC@m)Z|dOB^QQWJ7$53HGD`XD<4}QRxag41Kyy12MDHcAS-|%{oL{W}=>TJ6
z;{g1R53pQW&n+>GvFBF|olSV;`+$bfuqO;8fgj+JN?MiC$!GgoRi&l!LIR!?+N-7y
z4JKnu4OY3O@f=?>d(XSy+qkCJqeHt>DUNfBeLkd7k}PcNDAymGDG0Qe)`N+uyRT`_
z9v*nVfNFD#B!N=Ez`Ve~yPemGNOUml0V3^hM6M{*GyUECo=<pR%^Sl#UmVz~o`el_
zM*$|*WQ0C_A4i1%!GRH$yP9F{k>dbbC<%9WBM5jg+~?FqC;aq;IP#wm*~~3!9=REU
zv1ng2*s+b;He>G#0nr!CFBis4N7D(S-#blSlWcPPkc{IOw(r$JkaasMvSMk3jvmd>
z?-!~<Ga$8Ny9DL?<2apP=s4N^FWST%tT_eM<d3^dFcxMK(wA%YFS{WwA(b4vU}hv8
z8x84{=X_I-tQDDJ?ZOHj^HKy*(qD!P?q8?RGePKr;n$Su?k@{Fe`3l4m-xW5Ns7h;
zEDL8a6Ao=?$YhT7Mxbiw8v6Qvw|?x-VBc^?ox=p@X*JWIM%4UuLu9LldVUNgrtUSn
ze9vvNTzFFJ$2&|nwm&#y4Rbuasg_7TF_V3AWurg1BkIT`sT0q02)GsOIeWbkOlk^I
zignLv!WDgO{-%|43E}))#Xu?@Q_>JwqdmbUE}S08K)^MCPXwK`94N@VS>fI4H4H?r
zD`_-8P_UD0pU;C_I|;pM32K}dHEY+=!Joi&AtVIK0bC#uMBpZwL*2lP;L=3FZ)#Q|
zQG;Lye-g>QHXv`uk|{`&L$Y<$9{N3P={5U6b@v(Smm9apWOH*Y5`@gL%7vi|;EO0i
zHj&xV<dLdCT>9|PinzFo@TTS)wxP-dgqi_T&mn{gXFbWDg@N!U9E*vLI?L9=y@Un^
zB1MUj8Jd=}WO%@^=Q-H0zvYg>r{J#1`rX`LKeWe@3W#2pAI6)M4x!%1%5O3iG(w9g
zk(vS#B0R`Zj31m<*b8(7L<g29mVtv5h*vHFS$_h0rl$I=!)QS>Xe&c+I(rr0ys#fs
zs8UJ5O$*|^$@sn8_caM`)p`EdO5d<eI_YByg#>Ff_uYAONP!4*xI+M!POA%wlDZj^
z^7uzs6pItXo@JYr67zKUcd(@^Au*k$T@oq6;G65Mc+==drDQf&tIpQ`rWL%+cy{XK
zwBRkGs)LV!k;S=0-6J@#e^5o@ZkT6phKtqExK~K%V^ELDm=yZhDouw2l8e_vd8wxs
zNe0z(%Kl~?+h<Z7oRxQhwDr{A9{o|5F7jj9E}A4hU_$<KQA)+A(YGW52;8UAL)sHw
zVc`4K<FC8m#t%kNs>oeG_ws|0RcxH;3hdkrW_+RWW63RYAnol`3><u%T1~kWLZ3iX
zT3@9;cP~LunKB-p1F}XI?B%-xw{Y<JyFx3}R=x(0)nOdnGf%i*IepK`bHhJFv(~J`
zu+^-@vK-hQyp^$cLm2T#G=kQu8pFL<k{O5D>X7>ePg~x7#Qsd1o#QbMPc!~e->@I&
zt>yNP-uyYfwgr<T@?%HrkIGuT#%G)?q_Gx3L#Ju^rs{56g?(My7=DI+1fnjz9Sp(N
zFrpI838OXgVHwP5Ac($VIAa+*@y|Xlgx_dM1z5tNGk0fPbmhj-ixwC?F*erkBW!q9
zQ?~K3+s(!-s)*o@IXcuzf>ZKqNWm(xQixV{K-3=t8)qjsNC=9LNIgS~SbDqWPz?I*
zE{E&&cGl}Z$rj4b@MW|E-q&l<2|qdHUy3qxB}uNd9FFa4x{GQ+sIo30SSYCNH-$YR
zj6yj$CDA;_oVX}d#X_5D{Ko4ix<pR7$c)OrTnQT&81W_AS;<U>3OL;J!}qU_N6rx3
zUy$KY)s{Iw@xH8#kdZJlM+vk;z3~3lV%N5aUNDNH)zy`}thUGPlT98?m%K}iXo_6h
zG5wJE#r{o2xV=!(AefFK(q6M&t)^|rB^Rn_t=^8(*-e8MoV44bb>{|+F(*_u)_M<&
z2D2!6idQn-tn9|OcqO8)T>TmbqrM5}SqoTOVy(4`g&=1XPsoIa`2p?fYr5XGlYi<$
zqOZ|aK&;%cNypsEZ*_ujm`!lZHiFZ(V*XPmIc3Sbo6hq={T6vL1J6v1k0haA5y2np
zeV}3!dBIU=)aw}Z5^rPiGUk|s=dEYLj%*oeh}6f&mR$6l<wbY}&a1{w=e*1Y`XJPj
zs(Uw^MWS%<2aP==-}s=K9T$PSLmPQ!<+r@J<uK+_7k-l)W`(m7kuL4w&^ry15VoY_
zhq<7TM>+2_L@BFI-JkVd;0UE}FNDyI#gaWe8*3|BN?92Xd@@Ho9XzVInwO(yF#Ms7
zeC{J^q>Nef^#a-)^XGbkp75cGVTgaq)&_T@u>M=@J70H#P)|$DwPH&9A>+E!?Tw4n
zL0iPpSqHDX>3A2Pdy^x%LEG+XJ8ead!_J&`mq-2E{8JM1%<RP90Z}&-#lg9)MPQT5
zU3Jjss6jcm!_ih$!rlG|dJ%dz6w~Is`S)mn%cs2gxuZ=RmtWewi?<<#v%>s!%<K|=
zDr#w3)!5VdUP_U)3Y_vQzdR~nC2f2$t!0ECs_Iw6<)#w#3d4F}lk@L)qhA94<7(`O
zu^<SrW2YxVn-j~!C3#IP^u8*$BW-kjJXDx9f9bg1)ow@7)%<Sjm7QlQ5eRq*!U9gl
zzFcq_Qrvx6Y_n<;PKWM8-?Zlk)0n4@dk2ftJrM-A->otDEF(7V&vVp!Mc(QIZF;`q
z)!+{|Q%}hYoe@^DQ<1E8EMXF2u~(#4yf-YC6+it^yB(W9rJ)s$5wCMio~&p+mJPz5
z=<D?!odXYlC}vYnlBjdfaLow4Oqp5XN}{-!m5Vr9($V4mY$%rz_ENN<*IsJeKoFYN
zAgy{}4fGquS-eV^16lr%*6CZ<n8N->VmwKRPsmlqVQrhCo;53=AL7Ym8SW_6#vzAe
zWfTDQNKYa=U4sJQ{(?@IG~oX4l|9@4A+)G@JDHO(E1KA-y4k}qE0D0Vu>3En#l_W)
zgoo>&`Cmc|8#l}Um^ZcRZp0I`WBOm$@0;EY0`)sUBS4vz&`3ZLbXk&Nd>W30$%Zpo
zOHubf{AWpP%)OJcqjH#4SJaPwiSABy-#Af}8Vzuyl5C11s;J%+l9B#VaqZWyifAvQ
z<Y<}~fV?HC`YU~7fGPAs)y!?+-s0e8=CyHKxmtL-xS$Eyz8gyCfG-#%8Igfflz&+Y
zuyXJ+ys;M)ThqAdgS;fn^I;i42DgD!NijmQ!U-}5;fgJL2#FlXUO^|(sy|f&%Pw+8
ztb>fxbyBoi4z(N;Md)(-NZLmf(F=Y4sesjFgmOh{o0MWHCp-9#cGF2P&zS*b%y<OV
zgQIf=$*f9~N#ceieoLOARBNhWOM~RJ;q(jh{-nsvV_r#hh=FRGMuO%=W<<;BPZ1b|
zgG(i(0HjZ4t12Ytay;v;Dx*5rRZ-Q8G)1_@OKqX$kd_lTA{JK!k&d~kRipd#&mVCD
zm{Ji$-BfhF5e~DXh;WW}+oH@+X`=d>cs(L>ySL_AAcDCpa>~W%G%{8g6R{B~04SYg
z7r$_>;$c1Z;rOB_ilL7nJQ;K=?1t!hm{}N9JSYQ`mf#c;)+8(7&{Gt~Pm~f;YMBPm
z#^M6h64a{On5$0;4wD(BXrABtv@6lws8#oT(W{6v;E?iLui{#yS1;nkQ-yb1h@ZKO
z^kZkkJ2C?P56V1&n6rUCUT-L~1(B8!txx7WLf)@0kM}pXV_t#0LZ8>jo(CTz+}~Y%
zc|yJ&fj!-UeuQlJ`Ll+*y#ZeLXCphd4CA-^j-GqHAHbzZ;-TiSe^OUv!vYXZH!vV1
zRr56dFTt+_<d27)-`{@<SVpys>2yp-!*+kae!ZVuTU*&_>5fqcEZo2vLB(Ifwk*Z7
z8V|mAh?m@B*Ap4|xj*CN8=Dmf!Jbrj3JFHEe+K%F|HgA|`!=0FQM|e)Cb`1h!8+(a
z9WzIg_cOTbN%gL}XNx3r#mNSm%Pi1}S779+xcz@dBkf2zMvjV|%>Qi^sQAg;(vDPM
z{9nd|s!YC0Kv5j4eZ{?|W1m04@9(#}FQJP23gr5}ZeLEIfPm2V>qo}D<(%0^VX?uF
zfwD2EjMYK}CiUya`D6F!)v7$jL1wH0VuO$O9Actt1MydK`C}>)o#>w%3}wT^9V#Vg
zYQGvM9ZmiTn9RgiCEI9_{2CnVViR~XI43r8B3ejV*PwU6Ezbr!;Xkw*Uh?vI?6plt
zVs7+S4<1%X>`4TXdr(l~i4tb9Dwm-a#qHcF6pieL!O#;okKyd<7oicwd}=AWF_RFI
zpfL1;o;Y@MYicFF2$Y(Va$eB#_fbZ@A;2fzNy?GYsBA_LuN^&W*4Ll$T>Ce8;o34u
znVH}~FnA_Sr}azcO!0EOOr);V3pn&TO{14fV<}0EezWOfGJ=7k{*Wz9g4fl6VZJab
zTtP&25HftZ)+y-E@k{r^){%$@5p;IcR0sjkv;ZeIJJI!fFy_gg?q?X)M;(x<y8ez&
zm0O0Sv^eYNcs2YgUSs_MWA1iDdno~+3hJsO=Towf6<)g`H4_p26rz`#c);nIoQ@C=
zcHdByu44l%%?RsCE>dt@o6k(udp?RO3@zd9ULtDI6$EdljU&C48+i85mjt`LLV}vK
zcSz+WG`y`KsuGG&=4RvHllln7y25|(=lc!tl0ifXu6Um`ZhRr-c0oo}%)IS)i_sB^
ziIdwgIn2TFg0~!@Fpz|}F@f5e^UH`<C}7sz5v6fPr(ToE#haG{R_Cmw0xYJ-p|m1q
za_+G5dqL&E&g9H>GEY%?oP*$WKf_HBXoZ9=11c^m$(j)tfh}Sut``$=M4;XQ%gIkQ
zg~r9DN4LQKjs4gaI3p6<2CUA5Dg%^;Rj?H($67c_)-1dLr4C8L7^V@Zjs18|_b{4T
z>fyOj`G-+7d)OJMKn6l{{tQ5J^dtj+369oJwWa}L+0f^HHczo=wLA{dX<Lt;e>1`_
zR6<5DncK^CnA(3;YLh+g`PG`n$d-(>xZ(Vjmgv1tBaRto`3EE0jRociNv`3OjHgCp
zNdDN8kvA67WAPNEr_Wzx;upz^=gMd)r0GG>Vc%kM;PVsHVG*0*VW>fIhUU`O2fb$P
zz4P-=eIexpZPunf-yvOd{j%oxN9|L6)yD*~+5(IzI#!;2X<%PDsY!pQq>e-5Co!#s
zrb|IHCn1@T5l)NoRz|xyp<5#<l<yB*&YY88i@54}#ltT+8}l-$jfJ1{j3WWokrv>s
zUB>xfkO4Tz02*Wf4>CXs8K8v>utElSAp@e28{y$y$N4&t0prMkb!5OPGT;Rn0D}U+
zK>^U90C-St;eY+RZ-oNzLIFgf05VYkl_-D?lukxmFwVitHl>4yq@MoYBsfMg^xMw1
zvN5OW2X7(eM&_o)2*F7RLU#(yO<?7AAVa?bwTNTv$L{K~_<qV-ok4L#)VR_IWyv9}
z;BueCWw(JM68=VF=|v^rnBRoU>;pw02&|L4Ljh^nrmNG6mqq2<AyW8@<!TA1XF^Rt
zk>`y#gNPpW6X3L%#~Z83%b5zQV0uTdoo1hz%GOMKDfl5*g{ZwE(&W8lf7))vhLB_n
ziwiNG*+R|H3MRoF#G1+2BPaX>7H)pG&=z7InT^p3LKc@YtV{$UBER1kGRj?efQ9;8
zI#Ryi<k-brw1JZA;@C)5b!TQ84`(YgM{mU?R<WHpMvCo9NCQPq-&<R_fs(f$U@B~L
zQ58p%hRPnZ_7C)8)mi&HUKrUl0*XO3osFJ$!UNjwvD~To)JY19`$?*>9S(j%P*VI4
z_?S=r#VFyqzLS?JMJcY@ONN_Xnuu6!Oh$<VNNlW>>nLbk+3X7NnR5=qi5JFykB5M0
zYR<$8gGjeJid7b@x7%`z-cBhcq(GjKakRGwH;GwEtXc_q3BzDk4++Jdmi-qngy%Zb
z9kgV5Ml{s1tbAXHg{YVly|R}<hl>#M*Qjo4PfO{)MVf@~-cWJ43xxr+^f^xfQ&CPl
z0@%^B=<VaYn7ec8CX<gp*S3sUSC!#myhX$r#v5|+Ty>&Syd$?tLJwe_>Ml1MN0mDt
zwl(JMoO~Ima=^nC-dodAM&9AF5gq2(Ah3bQ-kI^3!!;`ZR^0dk$Ln8&K;x^%iYNKW
zN$HI|a2n&Qf^LiL4w-_;4bmvdclV#h$t`DLpUGSZBYo7|AZMW3$MT$~M+&`^))C><
zr;<_kb}y5TfPn!l8|WC{oA2-K=X+!uh2&`Cop*+YO8z)b158sQW^{Z#yM+nXEKyQ%
z-$$yPRN5lV1LsKsPiKGD;l9JAwYzIyvYLj@llX~_GRl(-tKQ!g9lr=>pz13`n6gf^
zSRVUFhvw`dr=Th%&pMo$!8#3^+2XI-(?k``$3hN0^6yv>+n1su=BCiH5fu`w)mNT8
z93UX&Rxnxce+C}lE^Y2AAX?jN7qw2s9~!cOdrHbjhK!5_;vGIOZeOhDVA&?&lgH_z
z*gI{>R^(6GBR}cQ)6CsYjkn6&3p-fqhu*JZej`798$<mE4$SeNes6Jbvj30O!E9O2
z9EpGG;2Q?RLdZl9@y<wnF3=5Kk~;3tBAD{Xg^pZOq%Kc!k1xplR)Qzatd$-mB<p}X
z@al69^kSQ5-J6>S7jah)<`5+ofom9dhM*2{FpMXgg`$i-n^*JdFBzW7<*0C%HsbI2
zUF2EGP)BgE8KX!ZIC4ZwTRRl;<*aR_x;_(2xbI$17Bm$=AhqQ#ubv47?!|0gLMSqL
zZXAWZg?CD;XI5O?*<~ZD2x`fE&f+|xEc95Cm{?)aSgFe%B<lqW@a^8a%T)*iEZ|qD
z`kOE7ltKgkRlLAAsotl_HH_50o?|kp@dY8(=QhL8-};62+g>3>P=3T-9+|R4wYR@)
zIGOz~Cw3jIWuaT-?sfbjxXxJ<giOtz{FAW7i#$Z*Kb)Gwbu239LWEcjloJnQzo$Lw
zB8jZb8sp0W`}~lz+jEHhtv|$;?Ds7PF7Dkowa{HcQOoZv$(T(?@*3!ZX;x`98pYKy
zAwNWe=zf|J(a?0jD`mox9tm=Mu=R+LPr8NMJWi?c?W(u_DN(mas`<;fbz9d&_*-Se
zWqVeWecZOp$ksIEaQid4Q0DK<>H-B4_CobK_R__kJVm{^Dge6F9;xz&hG-cs$$TAD
zZ~+sz5K>!hs5_Qg=KvcLbpVjFkHbpmhpn1`^nJGgt8KIN{31!w=@&$AO|upBrSc>y
zXL%wRW-;#HW+O~y>{Tm4VD4tGz%nj(hup`-4%)W$P{PbEB3Xj5@6iq}hduNRjY@U~
z=M3B8aUr3uw9u~bDU^A|x@$nE_#qtah|4soLjuutHYd`=2o}NEOzs++VfdbJp@kH_
zf!OB)*GiPmkh!FSj@_YD*-{R)H3_cIa2|4WceRD%w}T4}fwei@f%%iJ6LAYhB-awW
zs}WN8Bj>8pUo7`t+8*?I6bax;xMxWhr%Dfo6z@EznPCw{#f6NtXV5gFO0mddHH<eZ
zB;<HEJ6DvA{zQj%KLoBklDB&ayfrOq3M70nd$+)uNqbfCH^6d7pztQZLzjEwQrRo#
zc)~}Sz3=kvFrG@6HOf9R9gA;}iqOaxBlNGS`KEpPJ1oFf!~rGJ(hA?3x+IT32pUbi
zs~PLEHu^_)6r0`Zg>3o&gBH{R#nKCgn6Byu%8fu5h@S_*UL7E}91QKS;Hj;{{c=8Q
z<jq7rsx4s$4WAy5|B9#Ax;~@sXfDy1;$<3z&v{rDC9uYbf4d2<1CLD^uin#C<8?j|
z;^huni|I(OC2uG#PV=S_=3`o5JN&MP%v3~#a0x))%kFCnD*7?qL;+O1Ou}hu1Wc2O
zKQXGfnH1EB=Q5^JnFZer7en<oY|Y|KVlc{fIanf?!;Kv(h3(|H%lES|tGM}NfQsX*
zqq+H_pt8vM8^z$cw2R06GK2Qic-E-VpG53LCa;r`afpmbVgqWW$w}SEY(xto7gznR
zr4<xQ%j21;vo@gH)I{0kyq)-pPMFsr<#sJ=nUr@sl)336zpe{X2X!Jm<;G@sE=!dx
zlTsx;RsuhNh}he#qjVOk9hxwt{hW%6t~nd;>n;l${2@2<!^V=xQr}WFAlcpjYkzNd
zCRE+sGxz)fy!HrBns?7XAYTBfx<m!2?wMS>4@0%H7m0UatEDv@+;ds~BQ`u5C4?|j
z1<8t2{>jJN-g0m@90L!cLuYPko^tQoo|yL?iMg2WVCjOj1L4EkLH-vIR;hD>r%V0t
zs@VXu*!=vbAk&>C?)TEjj)i_oyBMkX-)}{c%as22a%r*@Hb6$TLJEHQmA4x)6ZV2V
zigqYj*}FB2|Ep-`gZZi98dW2G0$zCsz4=~lR@piH)(UTvU;x^d3GMA|V#|;f9>3dU
zVYM@idV%y%M5BIRvO-_D#WpDcE0c9oR3aB8&S5`at6yjEkFjqMr<`o#|M2za;r>4~
zkpI#+SOGl$<K~7uE&GHmF0`+{-y;2lO1RidWRC`V@D%Z$=ip5<_PGYZrNk|0_U9Vu
z1V4Xve?I1+O6pA1?DY68MwLd~-`!*t5!hM+R#(DZpZr=owe-5S(U9Q54s>&VVRkUY
z)+)hJ@vm)~twQHCZ)`sk`s&-L&j9O8E#<54t8+gaUlr?X)Q1VN_*f;y<2gMAu-+ub
z?jG?pnVG~n^eFUzPN241;@$!|F;eT&(TYg;vtm}ZRc+FAGl_Lp(%F;Q>C7=7iB=o_
zIk?8Uv{_WGTziC@*B5eF7EkWQ=uT7MpE&~l*+U)+PJ9cxsi7JULnQ49ENGie)1}%9
z-Bo8nNII@A*0cIR-$rMK;7aczePUg5v+O{(j*RR91O{PRk(dEw_RX%~LBXmShQC_z
zK=OANEN_ppmchb<>8W;G3lV|Y$Qx0pd;Qu11u2?ChXq)H3xx3_OTRR6afifkBd!fG
zhZbRCfU}g!hg(5LatMYqFl>NF2E|OeI&vZIPo!PwHW^61Cil4}$5uH(m~B-?J#$>F
z@vpM-1clDsr4!#2snqkMAl$Nc0;-50QLhfB0dQbU^^9LOMwsu|VY<joiIc0lvA@+?
zuXlI;Z*6;tNN~lWd371yN^a>fl<xdb2S~2%X`YiO$MfT}a9sV*zD{pzjhv{E1_S-9
z2{Gwxy0b|scUKN$2(9s0`CJv`M3ktj)DV5;Wx~g+hTk@KWK&awl?Wo>j)`F1b$E~y
zJgU4<s5F=j;ff!P8z;X4lk{bW@GoVl&ee|FsSa9<42@S6f#RA#@0jxWc>@LGoH3Ga
z!w3%&pAYQUUoy+R%Cc7rP@`&h&HjJo6sG@tKE8SCxEtDfX9_xQTjmC)DGvmJZ2dWS
zWkSE*xV5rLK{8BCBhl0U%`KvnHcs0uu@EZ^2c!S+gJU)MXZ8Dy(=@zy`I^_>FOoAc
zGoE+=3XgKyNN-Z=$MTU3(VJ*Y=uzx_CLCx9HNRC_7kCeTJ;)?;{ob#c3%2;UAFH%n
zWoK-fjJ;!nyXwHI?uvnlVN!j)w^<fYQcHt*YLXfSb7jhn=9?!IAdkOE!h}M$yby1n
zsSE$E$gq;^r^Bbgx#{O0lOzok<(n%KPJR!Dl$et0FJ$UcgHr9j^^m<s3bUYb(S`F+
z{nz!^yyX%ako??4ZwG!PLr~6UbDJpF^fkO$lhBI$aNNmuD*ETl#p)t=F;?@k=m0p%
zl#AWiD|9{E>aeWYM>8N-^LVRtn!*(nu^s*oG3CU&i~DKh2Erd|t<IwdHhdGH^G#ug
zvX60NKQR3L-;1cw(xW3%L>c4=g0}TAA`)Rr`kS=VO%u`BP^}>t6x4S8^{;EnNz$oY
zN`lf`6@H3X2;~<|Jx5^8cEV)B6om%WO`j|a`D1K*W2KTv%y%T2UQhKfvd&@9?WRpB
z=MCbX1QR%Ks5SumZx6sdN$WsYE0&@;Ej(9CqfOXsvBoHRLmyURRL(fI6pA-R>*s`L
zVCAbFrl62InpefFcy+A0Nl$qyCjI-i$gQUZ=FX=QEKgFeR3_zAe##}?+J)U7mb%Dq
zocX|}CTYho{kErP9eEZW?qKc%3p8kt5I}}Nm1IEDB@ioo@pWp@>3iKfW~V^`>sm0E
zym=&N=>Gu63iE=37rY;mB+%5<^$$S`pLlTEZ0cE#Q4Ppo4swVWcloWwm;t{{-1fD`
zydtb1J`MRSdJvarEQN@QUXZj2!<5N1P)N*eZTGHLT4n8qzzgOHMn@z(5`NXf933O~
z)RZ;criO!hMVvO-2ZBErY%>_@Sp2IhJ-&JUc`F^M3mPW&$G+G!`mLzt+M~x*TQwEB
zX2+O6ffEYI>N?kp9SQ|<weVi6aWswjSb)+W+Wh4;dOJ^FHvep^V2M@;m^e__=!g|l
zlcNiQmi3Yz<^<rRGxsL!mU&k+PN7m{+^=u7&U1J?gO`AL{SpBh@4WUPr1?h0hxMa@
z4Wc}3ZlfgZR(m$&@f3a4uQbtIzk{uLkm>K&tux@x+nQ~8u()TSFbKfw3AwqDwvkii
z@)yjWF0?WT^Z)>$?k=35eShNNlhL;JOx*Tklgp(p5^iFj!?zZw%|BDIjg<o1V?EhC
z{Yc0(ti6C^KoY-)eiwv<=4O1%<=733R)tQDynD$pj25ph`3nvw64Gf>tUk2J+7siS
zmscY2Ip)zuS}^C_-AP*^^x3_ITA>!+iz|cMa#U5f{5fZMxoy6cS#{MUoi9iL_6W#u
zo2_9KAQe4h5QmcjTU>T-fW>6BQJr#35WO)YcxvJa;5*%xo@adTo=5STPrFugIR!AD
z@yK(UZ``j0Z?0cMlUrp<6kW3rMc<m-Yl4A7QLZ*He^o2*&~O$F5^mo>6t&p2c!SP4
z#9aMeE#jJ**~5VAKMJI%r8A_{N)%xB^V=9j%s(UDj)Dx}e}V7{r&OI3C=lo8J;$8u
zxzcsaCBYl(hQMgp3aJx!*k|YF{f2!^{GufXq~`Cw;#E(i-p|hWec>R@#jSluiFkW`
z;*q<ycD}d`R9Tk<HY2GC8<$1KAP4ejK(YUro<<fqU#{cRGT3hbVXh2+ygK~-kg<mU
z^>phElMkJKJ=mLw&-ZyB_YDQEmBRHONCDtKl!RRWn8N?GBpgwfPsm|G>Ak1-gQ(*9
zf*@B<+pN}gcT{)X+5rbmE=0@al-T-wCTx%<5&89`^k`;hvD@R#PK56E1HvCs&^~k~
zuQUoRHz~IGk|;X$kYggTn1C8~GyRnGV^u;feD#zjqV)n^_ngaTa~ImMZNT*hXbj0u
zl@QDhnq*@ITsnn;A#`ENk8VkbDGG7sl4IEDu>G(h%g_LbJ@CW7i2z2V7Mj^oGjPU)
zymGjP&JuCf5d_J`R0tXmF30STLA$}tZC1{?gu+bFEIHoT1Yg}O8Xz0|WupsmxL}?w
zG9)zJ@;iQv!gG0tRw$jd)|-9RPBt>b4?Q;IS)4J17ZmJ|)Ncsp2{SFew^>VR9%UZ$
ziK9EDd34<TF`3i48qb*;<n_)KF%Gxz#nrs!_J^tJW_RBOIE)FXGRU7rrz&PlsWHk~
zs))vJeEqIO*=L>g^2c0HnYulR?{x3>z#(d}WG%GYh=)Jn74@4Q(_-evs@Ej?DLI<$
z_0Z`u@<Hl<6ZFAt+nXhCZb2xIRJ0JkOzj#w;A3H?Nz2#1K6RuqvCd4KxmNnVTA@Zj
ztuI~{u7(VgxI``JUA#DZFgXH6CMY7|gt|-b+T7l|rEZn*ZSOo5%dFlOPrjrot?25t
zkT~6YK{Vxlx^2L_3Y6uZ(~c}_-p!e)%(9ey{Eh;Y^^#R4YAL&8x=|9GCY683J|`oY
z<51+uP1+PZ$6e<36h6z?(Ha>TqOCvVZE$pruUW#z$_-F$={piSv9>|0xt!GX*g^<n
zAVBung_+QNusR}}(mSE{Ej#6XuvBWaCh??U2RQR*oRnkWVy$gIZXg>45kWT~vq~_!
z@wr_W6;LT_X1@8c$E*@jYw-k5Z5{2B1=B1mP~5jmxiIV};Z0Dr2M2;HgUm4e_x;b#
z!usDyG28!|{omvNzXSW1j%-Sa1X|y7{eBeLHs^Ba+OEZFe!TNVZSQ6LjWIv8j+$&3
z>UfaF_EUkUg*he|>_Uk>le}`;QAXCIxkd=@4VS_G&JG0inkO>1<F4#gbdY!wOm8GL
zb25WM4-X0hM%8noZ-L){M!PZ2%XN%Oy@NT%`?Y5BJLi|RhxS^XpwNd``4$cEr!*$4
z8i7|kt)(;$Z`pQrZ}<0&L+QbcZ;}_kk#(ZWyBUSnQ9j3AJDtpj;!|V)AA``j!~L(T
zQCP&Z!EH;Qvvv{$Bfy-y0{Zn&I@^5X>?Qw&Mb07Fvvz%rV{Oy$0vori(N2dL`Qv5&
zI<Z5crH(BdypJxKQbX>twAV^LeQtMc$Di&R#lfe98PkAg)#i!n!}?nKGdPnOQ`4(@
z;y|){iiD54^6;mIy?O`GW(VGE)=HlF-;n$|*j*wi+a@XMmvvTK2J9W;cmsw=HaVEj
z&2j3=LJRIo7#OrY8~PlE+I2_T8LaIjl;}yt;q53Oq&q;^V{RY)oWjA2uDZ?QOC23y
ztK6B>wiWpz-Rxq@V@LP&^9Z0$@2FMl-oUS)Mxm2U62E`fL5K~KJ>-BRTY6NVZq_Yq
zIK+0%t<t=|-&jA`Om0bB<L_*;V6Q;6gFlrl@<@H!?_dP3w7?y(#o#E?KZ&UTA_yOH
za+qsa?waokb;pq?!M}}bq_;a`O;6YaQaCkANoe%55QlJ&;C}LhjutT#Fcv$k$=||o
z?;oZbruU%&93;eBnUJ~6Z{q8Ejfmy8!!eR0Dy!B;mYQJ^1jIK?aiY*K2ZnuQJ+*y{
z-3mByRq7gLkTDC_S(7~nUDgxajcJ)gOd1>LoWTg+kRorL<J%xcHc#4?__E6`f+kb~
zg~{Ee@AHh4-4iGXHrMPAJ^<ilsOeaGo7@q_hHz1poMVUKC1X^ckrZVRlb1?rbhR=Z
zoE)H(Z5sXAAgU3JJRsG<8Rkif!1KWKv(@>(4WS>pL*!NDvqUnGZ%I@dxV5JSSh2I#
zNYWu9`cGOm&5ry8c7UI5y0v9IlTzt>D&-y;*PAFfLDpGnPm4^{PLsf4w`@V{7OjzO
zGYA9rE|9V>o*yn&UE<J<I3~0ZLc+wQ#%QCd5j3D>nNXpOc9L|^Cy={;<Dts?`X4z|
zBr?d~hNG1R;3RYbGIYm(0Mno3j4O%hiA&{$<n?M7LPWgu#vLHwwj>>yy1nMQ-ATXl
zu#&vo{cxhfEMr2%N(ofC#`bj<H3kNP+@Z{of3?B%hF+SB41we8hhn7r)&@9V{QhOP
zGrEGn^&-3Q$ZnNZmFL#HkQQxiTb8#-pnz5B5g8CZOG2=KYgXZDVYul)fSx%QV7Q?d
z$p<60AO~<h6r{*ROl#Y)F($>OCAH(lL(5WQkjZV2)?LCBS#L>!eQQ{$@JYDpf9NOF
zav9m(ZkcE0so5T|x@dYlg85$00C246RJ@tfym%X0d9*-L1rg@K53Yf6!A@6r+^jE8
zsIg&&s*Yv_27U*Jjph+6YSXDw50^juPzDtjwh1M-e1x5#a4XR;RN%Al2%-O7Enh(~
zhev;mM_<|O6qTG9$2;BW#|`aa@(gMIE-_3H#A9B=GB$4f^D4Lx(Y(f<>}^!B>q#yS
ziG;(#3q)CPM`tX;y`=tr#KG{4@GO#D@#LG${uUXTJ8;`+i%oTonZgndtYde_?~T9<
zzySIeXIcBY26fx}r(|peX{_vZM$UJfda3gnEKzf2q$}@_?4}5{1`Is67guhzavaIf
z_(>;0gsh_~->!vSbbdjf6kJD-+$M@B0aBirKMyZg{d3^`!B)z6jAnv1vLrGUPok-&
zua{4*)}}sZL77e@=?u}yWdu=}@Wn67!D>N-3y{$9iZL`6!O8F&A)8@n6>Ts~IBGfA
zamxK*9B)3Rvz>$>j3rj24#a7nhTBLu$OAPb#)IknTO%fnMDCRt6Ma!a0vn11UFjEO
zX0ZG$4=_5n{?@+x@NR~qkdn`h@Xc-oE~KzQ&j;h-U+lx<eyLJJ>v}781L5R|A%~Nf
z5H!GGoXE?|IpQejb$~)p_k$jVhrds}DR)7>YCwNH9P8asuibiiz=e3hnx?OF`Wio?
z)^NQtYwN3#7fN`cTqDiFk+2isH63(>0e%EWt!dw7kOAB_S}?@^0jOj#1F^?rrb!p)
zmfVwk!P){?!0BLMcJ)K`WaN}Ad|uT}u{77W|9O>o&aL!oItVB)-Z#E|ZqH}wK#()o
zir|Vq+kufT#y+hN!7<o`nIQa~e{e}w7~d{B&&JLy^CS+9_cdjvGYBPFUIhCM;2dbM
z)L&X_N;ar5AX!>z%S(Z+BUQvALmy_4vm@1HH`9So8z@Q|HC6JX%{^Em>xfqr-Oe~C
zks6EEDn~&|;?BXnVmhe*bA{rj26Npcx`m}J9@}b;D#RW~|0l+*Z*$$1ttPchxeFyr
zbRAG-Kz08wmTA#>?C~C$I`Vsz_JvpDU-z_ZWBV>PrQv?&@bpFmF|2nCSs6ELN!~C%
zjyt__z+6F0*F6+GhrX;O%`LxKYg|@J16gZOd1x(kmNc#USG}Ari1Krl$in1XToLBr
zvlo6b`?Fa;w}O3F7!Jz6Fr|i?x#%p6xa4ylRq!3>r~Jb`?Yn*D(!HxKuB&jM%uiDd
z8e$A-Pxlr)W1EyL`h-LwgY2&EUa(q{Tcmc~d8Bh-h4K8N(}qvFA3F(~ihmuOEi^TO
zo<A<+8zEL7QU-4g5l!~K=*KzI>Np>AWrQb7_v`OD<7P70kzClK?I7hw5VF#L9K+>~
z?cfcHAR+)yTVNXgETOzy<MJ|sp1p7ke>Bu>+11=r(L1)k&Dp7H#_M_#2fmb(KiDkI
z;-p3tN;52Bmeb1aBR(DG)RfJUC8i6AN>R*Bqjtg69?!z(^PVw)T4%9~^{@+_>r@j|
zx7i|{U(L^VM&u3@oLO4AwrW@WjtLH7={vJ*ye}Z#4qRcSos)w-=<Qv@5dL;v)Ze#U
z{_}ew{N)T<8d5$j`N>v||4orQYEWqGnZo8ju_?fRXH)DPEdNzb{14bvuD0tRF0`?|
zPuf)OcVV1dej@uhFSe=)3VdIB-JGM~bgLXp=?9euf;8seaV4blsU)tk+102s;NK4W
zkx)^gZXQA<&Ck@>+|-VB7&)vmGCEBgGdps?)FX2MeI|)ESGV@;7f-K^#^Z(_jI)os
zM$}T9uIA^{MSV_z!tPG)$90&nj@zikjTvYHMhivA?S_f}-I$?UTbQlT42`n3;Je9{
z-rT<?aH@SL&ThfiHCT6GZ1QAG^1L3uqD-oIVk*Q|nj*baC~9_<c0N5>M{F6WCw#Hl
z-((WXb@1<AVye-|=)d=L)ByAsH_f>#Fh@Dy9oe*=QzSNIDHuR4mCJSS`{^Jgjy>fz
zxq)BNtWQDyXv6l>k`4OU<pN~y&yOTN%M>1vstK~dD-csi+DiWYfh%WWcCsn4w$tIJ
zyH46%Yzq2eWz|$AvEvIqJKT~yR<H>Q5#NmU=fWgWYgwc!8Wkz{(dsY1(U>KlGSf)@
z%SYlpqB-E39>fcUg7?1R31;XZnoQsHFTZ+SEyTr+@D-y|jUK#<`x*?fY>~a!vh&;Z
zfLVZ9sm3%6rulS$uvZ`anXei^^C;`|wVv2+s;O$#*9H09K6!e`hi|&ut9R!QWQ+Yg
z8xWj3{n2BAGr@n!VN~G-PiP~?IW7b8fIla3xNp!BuniJTtIz>|*oZ|FZBZ8^C{!KY
zN*PThLS*Go(A8~&O3E1CKuv+t=P?N7fk0~M>e2NRgnc8El|>{O0ge@srI@7CY?YLV
zlq#AA%~cK~Nt*2Ecvx|a`g==HWgDuEij}X8$ffKr`=ZVjtV}A)H84U6%O-JCHy-lX
z3K3`#A^J{t8L|0)UZ(`;;%>=NWV}U{!Y89W90Ek;)Zsl9)T!S*7u7AE>7^q`)qVck
z5;WO%8<}KqAV=b4KXJ&jFjfJ$MKsYgDsFNZv@&ErF~W;y+AfLD96tBDY>`z{MRrv&
zCW#B9Y*csk{+f`QD_oumOJJzZqcf!0K7W-mG;<63Vp4&<ncVNs%H}Ze;upCzRglv)
ztDsFzaj03C3tRp52^le_TZ-bPOZdtAzpv26IUYN9)hmss>BAsLE=K(oZR}VtQd~#P
zXKR;Fs7lqyB^)~)tTK?{noVL9n2R5H&yz6Hv>d3Vrr9tmaPmhq%iF6f;#<#`Z!99P
zr2@i55AOP%eQCI9JVxP>=GC~S8vB%87#FP#PQ}R01hZ+g=n~{D6v~jC3a{{LNf{K?
zFmjbTj&82Y-1`0wNJyHlN7Ui8M1}LIp1Y|ez|;1wF?J6hiU&C^o7faIF^u{d69GCh
zHYo;b6$`Bf*8Jpg3$$IAyNq!%C22F%N+ql=f_C*a20=TbfR$ryLMqyD#Qf6v2;|ua
zqaYGbeWp`%`-^Mgf6X>2m-wQTGAc0nFm$w1%0R8IB-T)lCYTi^F1Gnp39KSG^ELO@
zh07`7R23TERFUHX;f=ed*2}FJ354=3c8N&K#40jWUa<Ty;A)z&*)&NULos`590E^S
zlDM15Mr2oKAPeGD=XvI-kR7Z<l8kYZBwfp?-wOBV5}Iyjl6rd6<8v_g#u=-Zkt>rK
z*^QQkML!`Z9hd={HiRP$K5m^1dCY!z6YI^c=jD=xcV;h!g!hw3Nx*}IfFvE<pHEO<
z0gn_!BI62~{X(VahLRAczf(d&vHE!0!w&!4_x`!Bhc|5j1N?caDHk5i!n@Wap0y*-
zNm!OHalln+R9B^gl*Og}u&LR!5+#-o*ih6_wUVQFwZN3oVfuDFW)7rM#qhjgO9NY)
zLScJwm{MkN{v;3O1SG*_@RQ4RT2o@-GfR=j^dp#+j8i0un~7`?auCzIT20pR$tl6f
z@(UMHiux}pYyfMxrlk5Z;akte9(l>KRDbz?ZVmj)3ArlIl0U9#C0wysKFkn8Q@G18
zOVicAG@9@vmT5x_Q8Yyv({$GozemRSn0L_`3Th<ns-cnd2N$6_wxS*sQg8lAT-4ZL
z`Y1|6%def_il0bMP8CmzV$epbhDgT5wfz^I8KPN<8D)}qlgI|Ew&48H!jFtWvIK3b
zg>$gHTg#k?#R;Z(TFh7}WvXJeEpbW}JlxfPUa3fC&wctNWzuFzi%M;QmG4sALg96m
ztjnJb?(9(d?^e)S$A1gdl%qnY>juu~UvheTY`Hg<SydUR#fx7pM{sG=T%QVHlxR7U
zDwI+h*KJMV)QA5@RYa+PNh_+*c=v9Ilgj_JIN@Pb{e?RuLMhGJRc0kjG4k5Y@PwBr
zg6RyX``J;dB(5j2VvLWAFClLnGDgjDAhl<!tI3QktZGjnOex#DK)rBO#6U@lF?(p9
z)TfE39k~K;MyO$JMyLtCF=R{=O%=j1|Dp9s80*%SHv()2-q-!6RA7#0u*`JW%_MC<
zCr1>8Bo8^<SHb#=`)|`m#7~il{(I#jC9XjwIQcoH%D*=(l^-sa(p_~KGn?+|7ir|z
zsQG0R7V+AX5EGMPDUobb(sfQ)%rOj@^5iiLgc;)L$>U_QMRs9j7}@z{O0LAR+&-w5
ztvdeA6?54B=n8XI%Z2Z~tNN9n!=0a~tY=hw9OVkigJ#8jX==$%XE8!-u9*^8ReVe_
z%l|+-6WM@qr{xfEF9JS`vA9mw7FTh*@2UG=LZLDBiSy)K3}&(?p{fV$9VJBqIju=R
z>!rZq-CWQb!O~LAI>5HW5p+p@pSzE!v()%@co`g^V<BUQO^UI1CZB{I#7d@%7ym$0
zj|G!dM-8T^#(@A^kwTCn{hI_!5$MpzmGf?`pEl7JYh6U?m1bq2aE8ymy@!>PAxnOq
z?vHHt9X+2chG7jW?pec>z|bXU5>oLGA@LZdgkPPx4!fs(*u1a?K-E51*7ZV$!k!0~
zv_lK}K6y2ad7ER0%}8{p?^&RXa`%ES6PuI!#zPnOs>8*e2NzOGKz_Iz*GcYt4~&o=
zYlb+Kcvay2lEr67b>r&_V@+pA<9i?k{#ETsm?b2I4fl7?XM<w~isp?D=}ozft?F{k
zbZjpA*)$c3zxm3xhx#+3qwePWnY??qi0d{q4Db6|Q(sNKhQN`Wbhty%Qz?SS3{dV^
zOn5!3JDI=?R5O_E!}tz70DJzMv&+e^$}!-X*yOv*yWjVweNku=T<_wjLfT`h;K4tA
z!J(!-I|tq8cg)vi+^y5i)!oTn{YBA=82rg7Chx;QHlqEn@=z=*YLKE@XOW2|X8omS
zi!O-*x8ElPbwcY?8BfC*qX>?)e_{n4@4GI2^1h!YSG0>H84Ax^WoIl}^T(XIGF|4e
zu`hv&lSiMbCkibA37<Li;sp!1U7Q8XIlt2Ln6J8lZC_o;%o2|}Uudsyi?w<?o^xHy
z{QMp636B;FcnRtAr#;%M!20bE&TXHgj`>K!?G?uMr>-dyo=a;SjSge+{1X2gm@vH7
zn#m6<b)aeuTja^)b~?|8243@=C0w;~vx~PfFp`d)aoXVzc^dB96<{bwkULF&(Sn(P
z$Klbqx5Evf&*%H)^mSUfvD1C?y7i9UOH9!Nc)+XsG%pz4v}T<P+bl5>V3u=Z<?<t3
z4vf+)V~9w6m6^L=jKKGAu=e%6(Q?0n>0i&WM|o2BpxDxqmN~$s<Pz>apCuCd>woap
zk69wfQF@scHX2OGNPE+o=#@fCl6T57_mCwFRqHMuuxXP4ZzIw1h^;(bX3>19&#)ZW
zwQ$|N>W~PEgGnQTZ{wl~*%Y!s0;5)bHzaLQgQvIbd3m2gD<T^(ttbrf{CZ8A#G6qz
zuJ~>5u^qZeq`RG_as2?mNXevwQSG|`y6Q9B`!re+R+s2EcDWwnkMy+`w|zGGeA&vP
zV7P%J3v7TUZ&gSVyGJKHFZw0H8#e8Cjpt{S!)&tncW!L%+5A6@y;F=QQQP+0wr$(i
zv~3&Hwr$(CZT{P~IX!LLw!g_vzPx+qeX{c;b+D=qR;mtGtsB?%TP?O%rn@$lb5FH0
zgOI~KP~i-|m|#zZh(Q#4zp{1X!$K%FWZb<ZH=y?TR%yWDGrZIxuZ|6IEz%XKV%H+n
zwg!m<%4JlIx~lDas;jrtNH*(9%f0{p{SBZg-0oZehDO*FsNE%?BvbeT`IqJb?S3W8
zfU=+0uWsB1qb!|=`<6OgqXd?LW#hw5I(X^Xw=MPj>gyMK?k|!<@vgGQ2NZHH^6tN^
zvsFJ?b+B*C-1NZpU~cQ4bPl6TxJDXaT*iMUoz0f{2thr(d^VKNEGBDZ+CG#N9P5ZX
ze__KBH_i-U+^B5n_xA9tw^J)aacb@70a2>fpsyu2SPSfO_vr4b;Mb^}eYavVY&@-p
zka79xJf-pt&K>SmfvhA3?M!a{I(<4-Sv$+M>-pua>zeDEo!h2|`dI!{EW@Zmj{!8=
zE1x@(d{Ra_D)#|d+2u9pnyvHneA)=0J;B{TIG5mfcAw828?Vl6A7Z<_hjzXZH;;9b
z&`1i!{>wh?xRM@R-HR8)=dg1%OMq(<5=oG?HUmiW*>Q*1lZc?s$8N5dW+|B=FWr4o
zZE#@pCHnMde_81I5Bb?Yw8;PBjj(Vsv;4Q!?k#OC=gm=Mzmxh^37aU`IRl4I8bmh4
zPzD+K5;+>`HAEt}c2RKHc_8(0f8X9b0$mwJHm!yA$f}a7vyM)0FRxAkNxD|pMi1Bf
zt@p$1YC(n)2h_yzk#{#_8qO%pMpZj3hUM%L?-LrvN2k&hr@FL8r>cLA#hLq)rx(if
zi)4LyGIbQ#H954%>XNo`H_97-jA;1IUVSJ|sNxX`R)@A*k-ab&lSU8s`!-bOw2^4S
zNfa^WG*vp;PTe<Uo-Q^WuSVzebg$HOT;D$3!b+jkVSCTNwTVlAWS|!^>z;gTadB|C
zZGRV;PvOg@xo_r&JhJY?m?yVZcIk#H9oEExw|4d{K2dw6Itbn$=Cmz8*=AX8XdQC8
zYWtUIm7B0wbOu?13N)Ul;Bwef(k#q4k>~Q2begwRt-EE^rrhV&EL&!498o_k(k;q4
zPx^i(&FE>L9Hrqd)tU;6Xy=(;HJ1=9qp<inmr@WIiXmw3KSWy-u<_B%xgX4rX|h((
zM9(n^?sCs;Qz0j!zynqd0$o^8N&@mK7uqLSkCVxGT{N&kZCnQUO2F@SPM<&bqddj+
zjmlhelhpIC_&>Y}=G8Z!ug>4()8S)Qc4du;bDr>h2JmJlt(dus40$inD448U7&&AC
zd7@hlphd{g&Tiu5J!f803}tUfLYr!?-_|47X&BQ7L!ftoW~ZGqfI4fPlkB?!NjRC7
z1mtzFd8e(rn%Lu<I@^m+vz_xYXSC|XyP={A$&&cssRgx@U%&0IO#MI3P42egJX{-F
z<J`YVCw!it_j6r4vi#@jZTwAh;@AP-66!}s+)#o%?(&D<{UV!yF#p9QKRyZn!Ccx2
z+2Jd@9Q-E3q8e?A>&4C^%iB_H^B2`aFUP;!_oUklsGLetoa0BO+#F0j_G~vS7@x-5
z+cQ_xriWp@Kf`&qGbQQKH%QBPx%blKk+_5&_Vx%aJil1pdx=5&Z|tXg{%(#>LC9-j
zh0A%li>v;bHqZb~R3itEz3Syaj>x3wTvc)wj}=}?Keq($DQO#|a#Fs0;ybySIcU<P
zukt2M*5XAv7}1c1;zU^>ORH6PA*)tyTRV1>C+p@d5-^J*J)G;5wTHot=sI9uvGB*L
z_eTk|ctpiK?edMAa(94cQt3pc*!b&?-aSb*+*FIES;%KIr$zw-b+UD|;jf#oPf)|8
zCZFL^4iZmkJgK~o&H8}!+hKt#26=)4(lI&xQoi7c(l2Du$=drv18!jAb=bpd{krOy
z0FiRU)5ylP(i(Mpe*B(i12b2_@SE#-F<|PUFQ+Fj8vcf`<%Y@JW+VTscmJ|ZN^wu<
zJ1p{Vt83>1`(o^Dji^P&hjm4Ue<!B@2K-M090(=-^Lm{{v1N>f^or%s<~KXiGqWnl
z9Ai(g?Ie6xEqaQ`JJDLPrzqaW)BZ4j(J+n+&<6v)5tH*JT#R+2w6=XltnM78LY>O5
zhq4OU{_#`SS58Wd3|H$x-lya)&6A8v{fn9^&d2pI$+FpY?|oa+(94-a?i3AbO4dMv
zVO6(%7e2`Vr1++}O%^Q>Ki`d-H_l_i)?Uv~59qGgnS(H3B*7I(5;$hmSQ7gUVFk{P
zi8fgx%o!D)0VL$h&QD>ZrQAJZLu9E2D9S+nw*g60QLtW{-RG?y)Z*k^P+4z^0*HLU
zpIbV`m4peni%|LGEV!ZgP*;gtS?R4(*h{1gqiC=TE(4P-u~u%33sxmPe`)s@y;Q>(
zxq%i=4))ukb+ppxq47XYjw91iAuv{v)mV#!o}Q?l(XyFb=nuFx%KAdH8;YH*S7OWx
zqoj=QSP>Xj6^KDOOv5|^ZWRu28VBDJe5&jSTNyIyEilfa<>(Ei!p9A<y?X{-A|2?S
zd0vZgyKb-z^128gj_;@Jrz6^oIQ<z5HXcPuXRnnHm7CllsQl-auVn{M|Lt-ryth`2
za&8|)IB8XdDUei|NKHh$?Nv^dINWU|8w3To6nD04??l>C*VndmbAf3rT`A6(zpU``
z)Cmk6DK?kmO}{kL?!${$k&a=C>i64FTTqX@BvnDM+gY0ZE;_H7RUZ@8!nf}>MFrKE
z+b2e1P^q}=R=a@lyPrz$ye4Cd3vdC94{m0}3PhfGjAZ$~;Y!D&2!;5O!LXa?y{*S%
zPE>Xk*?t7ighzR#b)AMD&8z2>D7{sFJD?@xZ}x<^PCSj9qYycgM2<$_M?g}$pITX{
zSDl0N6K^)f86V=rrGS28*Abc^;L|{b&HiLM>=QValBC#s*<?;m=TL31*w5djFcttQ
zrHH{&P6To;RvFJf=y^D4(i`RJI7h+>ZsVczt0<>tPBd&ZAJzVA*)R|$(ZUw;aA%Np
zQC_K&jFo8L7^&Tcl@hA=5qLwWG}v(l<%>xGc1u(VY?stu=MzMZq(4LgB6|O-5wn%I
zwl=eB7xsvgQ=m$G-KMJc5|Zq6DKYI$3;J}@B6G3b+c0#jM<KolmK>bl08Vq$_=@i$
zI@+#F>A~?vUjeG7!gilPHVQHlR{FfgN_Z%WuwD}d)_8h*!!G~5xr-G{Ovd>f;a8au
zrUwe)&8;gpxd$KQPMup_XgFOjhkMij+zY!0x4s2Nl&G6UfBlN)&>4NQ<cTQSH@HR{
zV2(GFf(pN?tECoCj_sY%VTOj&Ko6CcFGU@zBY<nQXiS{xJzdP>z{Q=QXLlx5;3xN0
z&kyERp(z?kaO$yZOlVf<_TaF=CRossD#i_+b{+lYPlRr-%Te+;yHy@p(ig398#6ky
z?S}6l4R#tT>8Ho%ULdjJ2lu|8gQtt_qitt-JWp*P$=6=+Fjg&lYXWi88&MuVd%Q@y
zbgW#b_8yT`6nfmVNZ#3+3Q|F`-|Sd7l?~fbhtFqEI<KgMJ)y@R;_+Rb`3LA`bsAMW
z8vbEx-{_U!-_HLEy4)7@3jIUZcP|O@q9hPR@twbh)4ZyDy%h+{we6mFBy1~+_P%I7
z_s!M?_0M;8@ZR-*p5Dj)=?lQY(j;bx8WL}?!P3%5z@CXABzJ)L7D%;3UmDQavF3><
zPx7JhWMY`{WUj&;=p27>rCBU*qi%6ZZYR^EVVD_9a-abJdMb2*Bj?vNg{Z^d<$ME5
zO2sFGHTsu!9|CEKtc@htTw-Bu3pZhn$<rnS*QE0iz*_YiQ`7STlr_U~Aed$hHVab#
zP;66dAWQT6k1WiJ;Oy4lv9+I|XfnZE-Qx(u1n>=tbd6qt5H3jYFkBe1rDkpMLdKD&
z3!2KF1hHy`H{y{#Jbv%W@(ZinwcP1(#((d(|0;4M#q_dLE%`RTbQ&ukC?K8^rjomq
zel(dx$o@uLc>hkwgd?#3p$u@}6*G`^vbM*F&b2waL*+gIWgV|c?R%*EA(u@%=Wyhe
zRexuODXR~eU~yuNK2MSRuI7*8y9<~)*sE0zwR>#2Q*YX8Y*3Hf*C#-<PL<>=Qp88M
zP9+&w!=Do?2`A(I&TU*47~GOINMPd4+Dc3t^M{LY36SWjmNj5^k}~!zg8I(UeGvI{
z9?bzWsyg|klr*L}ikAr!6t4&tfqCt1VzOdE2EzS;EL3_Q_z!_D+kcRCFtf6<{kMT`
zt%i*A1_x5_g~qKUegp_uzl6OUy?0Jzxr#=(n=T;{avFE3WN64GSzm9LW<nYocP#5t
zXg>qS#})4W0>%Eq(&d)Z^I|DR;%?1hX+#=g;w1Of6bns=i53QZ^(jMd4el?6l9aon
z?gYmb`&iuLm#G)Ph|{wp#V!LuBorAe61B%fiDdDUo16PwF^tCz>8wkd#N78GhcdQ#
zW{4^37xRbjC@7vE6fHf1VQAMwcR&~UfHpsb>O~!Xj^&9Z!LJZ-jysV(I%66&hZf8Y
zgeOdyu{hW9l+uozxS2(gZA1jM3J-RLT{oF*Ir~@uAN9@Pir;2-*y}ZNf6f50>S*(P
zao96EktOi<#Hg`N9#yHhwOV&eS?z}0{I{S!r&InhPqdtVwwf{Ie&+V~Wik8v3z|lf
z)qp5Nk!Xr+3inwpEz`Z|HI{i=6Yq>fjtW<I4x}+iP~Wb*v$Nx!E!tkEsEI5FO@OBR
z5@MjHJ5nP_9Z1r$#NwFC5jIk9Td?J2vaKH&Jd}}}ANeP~bUB@8wLIfVtbh~>_Rmac
zlU!(<xKv^0K1|AS%t_%srayzde_%JNmhPMwZ^)6`%4+RXuS+Y;aKib0MJ!Zh=6IRv
z&(r?9O%ZL`y$i2N5Dpc=t5x?J?YRye-67jk73Y_^Q8our13iVe*xxNIy}7E(;5AMJ
zX)0Rq4hTe{Awf)==N@uGC_Ukc!V~hvDl*=!*`=*D;k2Yw6#=QFDgq=SBY}?X8~}i7
zZ&_-$!!ApanvBaWmf7J0Uu)qhjtbE@Ide7ysBkm*X6%woj0rDFDz%g!AWD-Nlp;-r
zG;l;9ImzZBZcU)iSl63rgy#hYbxss9hB~s?PH=kRxCin~GWwgY0R9mRm7#DS3@jN0
za>EYMyKUpwdXXc@Iz1GQM4Q1Nf!@Xje8^xq@MWv9ZTQ#K{xPTa7C5Z~-cvSHx?R0l
zz#1V>GqS}?2A1~l%Jpi_fO)3^yk8D#Mm9^ZdJx9-G*0z9p{&ZZK<3fi5<QO7SDagG
zl`n!Pwoo(k??`pe3U!0)cZ0uvSEo61_9nLPJi5Qv47XOg(rF>PMrV-7-W}Hdeg<ti
zUlAbIE||oC)D4C~nG1a6)lOEPbNKZG<5Iw&=>T31z@9^3F;ZfPK;U<fsCNrz)<Z^$
zg*f><Ig!N@4KP*FP6BipF<^^CYR_l6aJ(82myi<(ibEPSWBLP(0aQJ~bHjHFS(BWR
zDdFNtQ3-Z}#K8${*dZp(pzI4WK-9@#y#m66!Dzh6XzKPiI@n0+awmjHDU91lDfh0i
z(My^Hl^H3{<L|C38WvKsfEBvC7OFr6&roZ4Nk|f$cY`+2IiLHw%2U}4#QvuT;NBo-
zBc(oIm{2S#6PKIw7XL#BzGEyPuuF!`!-m|#lTwIoQXHQ~Fy0o}oj^@nOeo^AA;tPx
zjXY4_CP4*v{u#rLT=nmfBaN*1?sS4cZ-GGKpRB;=Ua}w?d<)3jN0+?PTO<0#n+)^r
z3<Uh=yMjXN?78Nu<JIeF$+DZ&wO~+j6(+_n7imLLXUEGpM7@uJkh=hQql~bDiIRfP
z0%8_z_dk$>$YM%?^S<n-d=H-mm_g`OuZ&{>O(X(%kKdlF5Uvuz1l)@S<;Li_*${ln
z`Vf5Azae_EI;(gI9v{)XT+1k5O#-|5+#aSJ>aUJ-OmD+O(tl1&`bJUo1l@Fd__yc2
zu7cuI?B7<7eoUoYUuB^*EInuiQ+lL=@~yrx^+{vE{?l*xKUhv!I9dMde(;u#jy>)e
zy5CFvYOj(Yd*%nZAR$hr8|uHcQGuXHiiqoIN-xZCc0|+qaN#}c1Nf_4bVOF0ZlUk-
zJpFZ_%etdWRn3`N^P4vr@lZo!uGhm(wY2p1ch~uO*}Zs(CU|Y=a%HEsdOfCiPVO&C
z%%4qm^OMo=k>jvZeYiIA-TixOAD@kH7qh=b^$$1U0K)p-HI3&HXM9?6u_P%+xuzmI
zl8y-NI=hXnwT>q@N8hrc{nl*+x%dFvKJG=wJDDyUCzLj<tS2`$M7fCp`2F3B8Lyr*
zq*m+gZT79FjNl|iV<&q`+xZ391H2aUw!n`>75rA!U&N(^sCp~aYShiYRA6yH-nBSn
zRJ{SzvB#|re^>Lm^Z=;3Jgz#_hTT=OsmQ9H3{P)bY_PM|Mf$q+=e_vtbA(6@XX;0=
z#`1)EJ;%LAtGMHS&YaC#SlTb-<V)Qp)Q^AY7;qUn3D)H}%g)nYE#Cd~`Br>3OzxaF
zdW24Y<)xX?xd80K1E-D%q+CWY`h5iE|JG#3Js@@v$X(Szek&Vy{WaPJ5wNj@+ps36
z^b*TIE&tuj{lfSOc+2$9CMQ|0*{lt7>%y6`oRYM#GsfGH9C4Ge6D4Y=liAXHLkbeY
zUo6@p4uGs|b_q`CU3;FXd)(LLy!bA6JH5!$v6)757zIkk>n_B;kcs+gS4^&`|8>pY
zGNc{-)~8dO;3SjWY!}9SP_+eLsu@ENnn<tvVq$l4u&Rg!kMn1RyqexQGuG0bNoyNp
z+I~Exg67a>d!;6Ak|l%t6@Q@djkWiq>~~tLOX>E-j2jrOCA(4jlj2QQA=*4b8zE~y
z)}L~?gmv7_9^f>)v{{jkwN2MjJvKN8-X>+Wx$SU)-@P8{J+o3jom(X4Z8kfkFB<<+
z0~%yRA56{-7~`H}h(u@^!`xCtnLjac%IF%NLcwhPPUE!84(SI0K7-U&Rb{WkeVhk2
zZ3mAcq4uk-htWv<LG=dL6#x|qXxk@y?2GW(I9PfN;Z#%DJ<F5d9FWP|>^CsH3u}zd
z_G)TM;EDdlC)nI@9-e(9zC1@eb$LCdCK)O<>TLUi$=$zCxZCnnRT7is4)s3DIz6A`
zca#PO_9cyzMeo-i=7*`0*j01Uz1Rq|j7le-njE4r)=~ENiRuE?Mc|OoPL1KB1#)vK
zD={x2YbUws(lBV95vrXKz`{znn8^Ctj|8<7wF)Ru=!ff(aLLXJ;E~wD3MrKre=8a$
zIxpI1`&UA)myD#N*>48vYBg|gJ2?&{VDcjpw^4()dRt9$_&Yz?j8dPM=+n^Br1#{`
z9RXg^i!#9pDWVEy%*Vo$lq8$D&0Cn7YETZ5$4`k=9clBs`qra&hv=S>P~q#zP}D91
zPnLiHqQE;M*2Hd5-2uxYY*00Y@E?Np$$o=$2}6@(X2>lR+YWU>v(!?LNT8yyj_^t%
z3B+JQ2YtK9dKr((8<H}rczpZ%&+^VJNWv;<Nd?Upe4?-e{Hj&)YssN}6OnwOHVWU3
zd?TRVFqDmy+R(*+9@dhh21`)almC)*Vqa1#x#O#yfGY{RaN>ppdvdL!reTAECA0^e
z5@!X&4e=*jPW%*_jzYGz?=Ku%SvG2(*vGwGL#<jajT@|}G-Qt%2=sbPGi7ryuVo_k
za3G7tl#A5E%j%d3)vH%FDZ!e<keUfx!g*^PvG{3j2;mm!30@Sk&s$l5vWeFd$EPn;
z=V`*nC6y%T7=k8=9tQ8=fr8qTYt|%$G*PB&F48b!X&;#ZIHp<5x1&?c`YYTXZJ|k%
zH2rz;#dAq@?pRmJVrc^xJE^+!0#dM`=6Znnm{zlK9U%TN6r$HTfnF_zbeJR=UP)@P
zoT*`KubL6IQywFz@{Wz5N#If^FuKjlgV>6nScs2^vk=5KDX74d$2)%%Y>7l&N1Eal
z3#dZEr@kwk&EXL>iH}ztv*KKYzEHB^6oXw6pA@{QLsrd36-52BRSkzhpRy>;5Ma&&
zqHpeR+)y@-b_gjt)_u9LS17WI$;ABr%z&;)Q`$6;a;$pWLe{R0oss3U;S)BRhQS}h
z*AGe`vZ@uS?fbc3@L>v96D~(JIUSxSIZ0@J;k_zKRTLbP@@Plz%3C0^Ac1C%5Ll>N
zdQel}jV}<SKo~AK?Bm2~g9_q6kvMuHxr5%p7=bScZ>C$?HZ#HcH#B(A(Os_&8X;IH
za24>~VO>p_b4JedmGXJ1uNx<!uFr*QCR<o5{C!o8Aa|#Xad9SEPBz5iw^4YBki*uc
zK43SMEQ?uA8OUN$PiENTe0!n!X-#H}$W04F;x~G^ei>X2(T$i?tI!p5dq~W&Z-xA|
zt_f=UYl;_~JSIC<Gs7UVG!H3_0h(n*Yn4kY|1OJVbBN^_o%I+s7E05k73X0M^y`}`
z(w6cp@qUTScaEqzQ&|+`&##66f}&8Y=f6Z@w;_w0_C$m{Gu&pw5QbMiKrYgfzQRB_
zlr}jdjA4R)3uMHRR96~K(5jMxVnLkJ2~sH55wH>H!w^PobGxpJYaf*f9W|gPcy=a|
z8$!mro;k*-7e}!8mb<X*RJNbCDQ<C|ds72%*Ge%6!V8_QELh4bx(&`bIn*?(R1(Tt
zgwhH1)R4-dEmylv5EkhlLsh=Icn4k)@L;xlx<sl?xMcP1Il7Xa!KO>G>8ZG2e!CZF
zXwn7U;G%%+RAX3yYiih@7!@z>ysAu<d6`_4y8<>szfxrFJcK?Th`pX%Q;`%n_<EG}
z%88y(9yi2_QSW}4h~r(ShQkYD4x||UctDFl+)kxEJkQ~;*l9wS?c3u1-79E?1{a5*
zOBarS^Mnw2N-!!|PDDZcC5(_vU6l(a{!tIa+V1UDp{~uoc>`Nc&sJdj^2US<Adh`y
ziI{JoJkynZgk8(T1>n5B{vI=r_mnt&F<R1+4}Gp^aseXYEaZt<Xw<E<1X(l|ZC2PM
za-lUG!<j>H6asDwUHwyGJa(oSZ`fL3u}#ZO^Ho6~gF&1bf5ai;s$zG<#T9$RqhfQn
zX2L?ADrefzrvuVodIW1dHs?n_U$|X&Ek{G<sQ})ZV!fyY^?wdB{0ajGe;-$Q(*1jm
zX;ZL{?nTE;`_69g;+vcM7Y={Ux2~xjM#9pQl{NJ#IC~OYT>jmY7y_M^9Oivy>J}1j
z*?-X0a6bI?K}Yh2V2`0^6hscIBT2*hs{(f8O*~Zd+yv(7W538FSi;MR&3YDbDppuU
z)T{ZFJCX`E?)P}eX`;BALYt)(Bz@9`;Af0=S_|3;w?Pgg?stWQ*j0GD9_<JOqYeo+
z^6sg=H=db0OU$cIy9dS{P19$TsW0Ji-te3Jsi*}<d_nh&GcF-Za#bh*zV$*Cc@Ss0
zNM*^0(1q5l+FOo3HGNUc3nUB=-jEj7*AiMj@M}!JxzIhqHY0`h-i!w;-2`S+JUJ9I
zqmt)Jy=vHRPsXt9MT_}}3}4o0h@xODB54$HzocSy<>&Ten(1J8!LTt2bcMTwIo=&=
zsH-oZ+q9HrKH!_i2vRwCWvth^6@f`BDdru;nc47jJ^40*e?ot?Cq8yOe|&&S>v6;$
z*1OBJ+!S+wGNSc2=ft;n^Z$-}S^g;=|EJIP|A(97V*el992@6<U7ncHwzbFQMES1M
zABdm9?<Y4OC-!85;gbIY#-$%j2HA{x7))!ct%owvaLDuZ@-iJIZ~R8?(gTZ^kkM7W
zwl|cy*X^(@VV-lhfJ=x~j5Uc&id$ww1%~P~z?XR$M0_I)4NZEg$Iwo65Xr}I%R!l!
zh&aix5B)0nH-Gq56$*3Wbub3D!A;7tU)Z10DU8dkhZPO~8j4Y}pKuVC`Uo2t2#vhN
zVm0!cETFQT3j4Ugr)e)CRe_oARpb(`9IQ@o0-Pyw0t}P+SAl`+?zAQaWN9Qt2wWH)
zMa1BtiSXckBmmghS6S9&lA8;)QCQalb#2eJKQ{0wG6O3)A2|d^tTgeCOb94NC<on#
zf>geI+-A7ihpDll0;VZ3LTbdAZXrMy3<xYGX`q#h)G`5*Dv1m|W`NO7G2aASx4%}j
z6gk<Y2Zad(h|wmgDx3I3l;$Z(ZvWEka=Ziz-AD_Xw%>&!vI_Ku9D5tsG6-WekW8Wn
zNDkO!^l?puyFa-HZI=l<jCshEg2_0XP*oAG=LD#SwQLf3%6Ocryh3*PFovBqL@mb(
zkwQsz7J5`7BhL^gv?!lhw)m6>I}B)O5RNG%C=_m42c!}kQ}>jmpPWY%Tr&--%Ve4I
zodd2Yq8C1xs>monD5b<+B$GT61iY`NUgV+_ZW!CUU(7c|ZkLyfyhl;S5DU7lz^Fy~
z2CK@{hT^6ud2L{z#`|H+(!O(O$*L#UwSLZj4dLZSw~l|hbL;{j=KrkjUgo{Rck|mt
z!v4#F_2T!_L#^k9UIS13%PdB2C?FR2MYOd9s8ht*!Ju=c?8ETO%(j#AxNGK(5x2Wr
zx8A0~h);lJ$6sKm?`}861T<s<8P!D3wlUBMHS3l=i_!pk%Jn$)%<uh8pus=;Z(35U
zK_Ac0>)jUl8Q{t47n6S(Kb$y6_aoeSIP+DVVe$N*Yn&)_PThmA>!UTV@6It0*_ZnX
z*2SJP0sEP*Y8Fq=duxG<I3~Hib-RX^;@&#iotnA1;~xI~t>Oc}MqbbEZyN|L!vk&U
zqA)w>K&0P!If39MO~nKuJp-HPdg#bke%Rd?cHKU+u5hj~t|>faJjXoO>eceDoa%n6
zZ%RiJsf23(Gthl=JQ_<S)bRWN3@~Z>6yHMe``k&fOJC9&n^Qmz>wht88@g&6Iokmy
zx%LS<LP)We63b%bKwNAxOQB<B11QL{|3bpNg38gYTH0Ft0kgpJ1H-*k<`CLdS4Pd^
z1;%kwN8)8P9RgGAfR@8XlvBrsOWYs{Wa7tcSaAqToSL!d70eWrNQiJ{3sJZT0*U5G
zvzH;)5&+J)1QK@U4`M^Z+v^2~lLLZqLy0oO8ZrBqz@vxn>&)MRS&%3PR$#}_XYoik
zNJeP)hd}pR!2NC3YZBu?aQH`Z0-ph6(4<<g!6p(d8G!7_pDCQMp>P=3pRn4VaTv*x
zhZ%rQqhPai;S7!f%hS7HGY56D6$;7}{tU~`?0*}DGh9?u1(Foz06!}UtH>?CWxefI
zFT%hf(9w35X-zEoH+>vM)X=522N6ZTkx>vPUC00PC=3V<D!Ch=uUm{kO>aSQ%a(}E
z9&v4J-eM6G0awaanAyK5is)XYMsGqI6{d*Hj(rCf2T@wSgpzK^k3&~1Vd2pGZyrz4
zfbhLSFL@Dd0{l&b5)3xf_Uweo-5*sBXkua$*@Jd)xlEwg2J$<v6n3zR1V!ml3bt)I
zAWADYa<AvWKjdc<8FKWN7`w8&F`(A;qF$@P4Y`lQ2&vjS7FY|ouuZ(O*H6RXz$(5D
zAY4Xh@SH1jl;!1LR*j!Fh-2ad5oxy_qX09{c1Ek&H#@X=i8%r;A=VNxX&ksvR_SXW
z_r!aTD32N8iZm$gi6OURFxc<10g%ZI1BTEbsw*f>A~^aCE|R~S>KHyk!UqR}CLzK2
z4sfQ@ioB2Tc)XpJ!ea6Y!}uK23ChHo6FzN~1hKI}L}+|F&qzUT0u>cU+nFcd@C>Ur
zxyn|-hjS{@4j9-c8Go{Q*CS2kSLErOedZ%eIheyxyL1(RocVyK_u^2yvt170hVR5U
ziJ3_tszm;t+*TsHYC9D1A?k?wS}i>nTwdSq8e|mw!h2lox&Hn-5B>hRZo7JRd5Ev;
zYHx4Imru`srw`M=D!L)qG7{ezEvtKC*$9>Qp|}WRK>Q=uA<+EhwQytji%;hVQ^mIP
z&1kJh-|vzWQ79Ve3R){|wP=<SJUTa=4pv;+N1$6R>7@E--^AN!?u633RX@kQobmy&
zp+&CkyzOD+BfMbb`eEHEctgE`MO7#38La37)*ay2*AsBH?)QDR-=kO8x;1h?)TBel
zSx%_%eVRvr@A~x#MYH<(_4bdKe|lav`{%D$yZEGZ7K^aG6$!d3sJt|+r9lJ;Zbx8>
z%(BWNg)+?Th#Zhl5ZI@!{1vUgYqrdyya_=)yh>f0;iSIhkWb6$pVO%q%fvV8tJtW%
zksHo&nT-YVSaQaz&fm!z9r4|(cYbJ8Z-!qut|0ypW+gRV_h?U8vV3W2lPO^bAw--f
z2@glDZ35k1cOHy%*2Z0qkox33&X7BTG*o=e0=|8=%t0Jey&NrV-$b@n0{X<3zx+jO
zSq9DifXTpGud-TGSL??atTc>YS=D~O5l8N*k!_b3+C1ik*9=<M!-};&Pe0I)JOv!;
ze?6a00IVs}vU^6**U#zO+lguI3qt{*gR7z!je1Re{?C<qZR_s6Ms39$bD5j$U0dw6
zga&Obw6p*B`qpq(if1}Uf^31+Y}S>|x(%&g4|tg>*tS=wH&;xLl%6T*9Px^KwC{Px
zw+2s-{j&WyJ1B0HCKRQoeV0?B@v5jN{IgoIgN9B=UGj@|08)Kaqphev?}?N&o^SW_
z`d1>G4>&lUd;5F2#2jM$STJ%>Fio;wzroW~ea%|A-;?-xm0h^w=lw|h*vEH)pUVP@
zQ(eOKegqMpdt)dY$swA}C&r%$<!otGYEpE$!br5K``*}U30HbsUHl=8tacQu%rDhP
zGwFH>dfTS^2!%fsw21JM*)`1#QvdG9M^HJ8VJjtu*Y(wd<NHQxt#8WwU_x-eA{gS1
zZ--i%liva@DIY2<%?o(Bh6dgQmw|PZn#K6g%-zYT>hlPG+Hb&utQBB-%W4O7*rcS7
zevVHi=Nw*^F!w>1Fb6aAJ;7hw1?ScO%;D}jB2_%HYEvcq9=yH$07;O7ZU67kko7-N
zc>WoV|Lc<Il9r6~CI`yD&XfZHQ(g@MB!aTd3Q>!DmgZ=3*((+Ao=cJSpIItAMJmqp
z>*Eph5N@nE^@{BNT4>P%2@EH;zRymP#WQvMFdN{no0}`pMx&&B$f7Z^M8QmhIY2IC
zxu@&YBJU^NcQZAjY@OSRn?iwaXEZhfkg@BosOu`~(*JaNx>{S&Ft?vYn`T5!^?(Kp
zxUgVqn@(7HKQA(}Xbl1EQK@SlCh%i7DMqFC*w`)(1<Zf=lNUr&``dYU88eo8q>u3#
z``#iFZ!(X1kolc0FrFn)Q&2iuq%<h96<9*LvqH%*JAx+$Dy6ZBeGx9e9fHl;diDO9
zu`FXrO3<zOtU;~QYuIag4DUeQF=||EzQ(mLeO|V6DCQRX=+XwlAJHo&OUYs4X+6#F
z#6)1hJ%D#$Jv+?;L7k<<12`HYL^xP$O@Jvvbr&Tq|6s74X)d0@!(yHF7ZD;e1qk}@
zR!^G`Rs-dcF@EKSPj6z2Levifx0{k$P7%>y@Dbm|56@DodPA0ZJ)I0mSQFFJorJUo
zw$WouO`Fi6MNqEQgIDHJ=mG(6;~1K>#$yOliANiT1T6!w+8>fy!df_M^ctz!AMmaJ
zeMwS!4rJI#zXK%*X$}+|5+Z~+!;g%C1p=G^Y)lNukY&TWivics4<m>OWP$=F76t0)
z>l_wVW-!?M38c7PC}%@e+TbBG6VNbsAyv6a0xIAn1!mV>rZ4^Pj^YRW*Y5>;u`k}R
z9iE)plJd4)N%Ns#ArvxjgE|WiF#vL0Fbi4%HYq>rBZ@_vf-{96Nrx{BR25OpcMeiY
z=6JqQpCT5H<_t9MGnC7)e;n1UjQmZ6;Omz1oQxIWbA9Dccrby7hPgJ%p8(LVNMt3V
zY^hLtaBFH@O}X4OiJ%Hi-D0K`YC3fsg+1SNTH+a%z?mcQ_Dj~FnK#{WgZ!WyAm~Wg
zgtvlOoP{#7a-B?8Nv?s(93kNZ5yycdvxTP9a?Ji<n8q~F+*%|$-Dn*N5&D&xv{N>&
z30N~oaGQBBiPXDJ>=k0~TJu`G{Jnt~9lo@aIrh!LnE6rDc1JFm2(x^;*pS{F_qxz9
zl~(mK%&X_ts%nUF&0pylGdQ>eb%rw+s~3x1R_%KyKKj87z4b!Hb#<5qej4+Pni<=3
zm&MLp?dZ}?k{eiebCZP?R;xrAGHt>soL3;vo@0~qO}dGt<g_M~9Q}_gjnN~vE4}AY
zwmvUqSnVwrQ+}7U9oq|ljjA+llMZYdg3TRGbo>}$^Y=4xN937nO@4{$pC>2ef^)C8
zCHGb6${H<`1c)g+l^W@)Oq5*;s(PQa{#<FGY0Em-CxB|_WpBtzL8o?l20igF4r?BW
zcG+^<V3u2AgW?fpV)`zlh+rVvmoG)T1G>d=5IOHIpk7dW%oW$mIR2}5uDmT6#B00B
zy3KmGL49$YMBqGvr}WUyUkFt%?%w^RTmw2I@>qcrufY{nS!z8xq^ku~Kyw*5bBOt9
zdfW(S;YD>*?1F0+>E8gnd|8o6_mO8euVj9nfSlb>m_gW;j9oF*7&E4BHdGLV>|L=N
zl<o$x+d<ojH$MUgf)bC^>M<Wk%heC#9bhUDV&VrAw5XeGaG)!E+BR2an{@=@gaNri
z`;Khek!8N?-mN>?YNH&huZuducGQ|tME2F57b3Yo_dvV}Z#MV>5#}HsHn_-hTF^&>
zoAmm9dPsIRZ--2A&9P(CddyCROR2bAs}vA(-g$pJpfdgN!t8EtX6m#G1Nj&Q_h6^$
zwb^=wrovt=qG39~*|7u>qpSAfiuO38bpl3gHPA(PZE4M`btuV73fn)Su29{C6(w)~
zY-$;xiMmW!KbQmlou$Nee1G~2=e^+qQvH1kX5u8QWg^l4SEgWGtvZ3-Y`;=wC{i5R
z(+V}6t=S@@`i1nSkE0VQpiS=ceFZ21NowE*)VQ}|Cgcw)^x|iE*^0CWCp@lW@Pj&A
z-$t^?rJW|mC)%8+p3B`{=lSH)ys|?eP6y(cp2M7EvSZvkLVOU_6Te-#U1a3O%6JL(
zrt7m1#wUR|8j?_S0wMTt9DfYWQ-VHQ`(oUOUfwX*;imybr-eQ89xtU0Rclq)15oDV
z8DE`LtYf}@(Rl_=VOPARnVRi&N4bIHZhO1D`?^=f9pDytEK4XymKr=hDK<_*%4`iy
zk#NxhfqX^@B+}>U3`xHhYjaBJcizqWb+?^{m@h(F{+zIZHz8_}rmq8*kD3VkJdhX*
z^zw@))9yBrD&^`a9JHlIeTSzD*nIG&$bF~%#g<}|n~q{BL~YsXXfI8i50JLjb!a2u
zpuD(<EkCi1xXi-m#THX7x<>9jC?U29Xy(OR=9M!|!(V(B3=hH5X7}CJvRIc^g@sqb
zkg$A=+gAt?)L&zpnC0sSj(Kb>kRGb>6!1(78`wC8e?W}}jwU*?uH&gjY3xRq6Y<o;
zwUCtox5U%Z{gH%U!D>}%B;&Whp}}mFFyS$03)R?sM(#sR211Wel>Knf_~CHS=i><r
z@>z*A<g(KE7sE;40px~E+=KCS*l<BZW6EFxF99r#WZwc}rsbL_o1aWFJbc8SZ~J6&
z+QcuVK-UkdvQ+(Js;vwcW0Xd{u~@|W!@&~yRNq`STt>(p2|ar(ue2U6`G5;cb1_l)
z9Zj<?KH<g?5FS{<(0ydMelAURT+nn3i#BGze>$7OTlR$1zd2hJ-!}1B_ZdtF4@c3Y
zej~8t0+mAe*&90w^$mS|Jwd?|UL(Sm^7UAA#=19W=)WT$VZIW77q(#MVp=n?^1LCA
z3-t|!zrIL)cMa<#sUYqo?`2&QLh9XK^Fa(+MoQ#@d5q1$(%?hmWgY$E>CR&JYotkJ
zxYZdF#pD_g#bj$1?A4A>dmw>C9d60~TDFKI(5w1Wfscd%35A>pp72o|<4R*;G`puj
z9!~z|e&ld>$=&utS>VXhU2(^Xw$p5VRM6}s@%SsdnmT;R%b5%RW!lZ{{h?|8-T2#I
zf$(8h+2K}+R^GIQiN|kRW$kXV54c95I{1IbRBZnd;=<1SUvq7HbpEM*xKMgOG%W1@
zsD})EFndRtQeM=in6E5M^P3&_OEwSDXgwyV>VCg$cr1|3NXiCHPasJ?uDo_GSg={}
zc4hCaZLspbdiU~w?7@?=MkS`GPA|8yP9*$c6{99enO@#lt9OpWkRiVHadm9bWT`xU
zA^#kCxH3#%iQZZH@gQD-CjZBBtVEA8myu7f_4Xu_>>kgmnZ;#%`iDzl8wr}8^3^{_
zw6DlR{zuLwlPt!AJ}9jfz+i_$nywUUQJHeLnfwZ>@=QkmxQ!a4I+z=k7rpgNHP_im
zz7jcTq{-S8u;mX@F6;r1t-a5fTY;T9HWdVczI&Sf=Oh_BA@)ncxHF!w<z+(*ADvyC
z4QC?r$e6d)+A@E3g;4odKtO2u7&#%_{B-)M@Vo8f7_rZ|^||mSgq>e*ne@GuNNwvK
z5)nCQ-Mo^feQjLbd2=VI^2yfW{-7HFUTpy_5*G}^e>G`LT?(1LAcP!6F`x^IL7IKs
zl~ktAC={Yw-FZ*Mck1B(IEd+|;sv!I0Fe?hOJWh_&a}Or^ZUY|YrRFn5}rO?EB1c!
z8%<zyTeW-szSQ3i|HuFX#VVJ_I0k;2S?Zd4^8fMV2BC*55-$r(L&L6ppSQQ4jpt!o
zkwk)z?=BKM>}lNo0GoZewedjsQ#bqdps<YLsTM5qA#qqiofZP4C@msFQuc;sZ4lY4
zXjuc?M8=zC6^k~%fTL&80P*EKEu@kyf)&%gFEwpwsx(rbMGEc0B!T$ul{$~L;tA;V
zNX~H^LFTa3)PS>O&3pvwPkcbQeTphO@v(ts(geBA-D&7gViZ6#)TcG{Hf*34{=pof
z;~3EvCJr^laSo&lTr%-44Tyud5Z15vaEhk)+&lyS{usf%D{akab|ShmPAO{yA16tX
zYZZezwTNb5TQz#xifLRkb=9*;+5ko|8*;(<6+kyqHrDX(r4jT_FH&CtMHyJ}MjU`2
zhH8l5bCLxP#HI|S<l0ma9_?ya-=6oKi|p(h6DFiQH8m?%2hebX)MKha_(y7%B{->q
zU~I4X8+$(~i{O`ZPFUg7&-CggQ>W)tLFsaCFHJ3Bh3(N~L5b(C`Sc$xN)y78t#0{T
zKF8ev<FqihDat&bVM!2t%Nt>Ry<Ry<?*xePc3KlDE;4`B90pg5AhOjE=a>e5X1&=%
zgHAq0_~Rv`(M%!je2Oe&9S#{_Su7%zHHkRN3*tW2K_`|(ef_%R2d6&orhi~Ty19Ie
z`E>NI%V5Tx2~Woh!i~YyWUJ^XeDwaQloTbKf_HEZJa5V99$J1?t*65yfpuGc*max9
z4@joZWsxuzoX3-FH7eTU7Jv1Ps+9q+Q1|F2tIz6IH;W5TnMvJ7fX334TUUcd%Lm2{
z`dS{W^{!>h%~X}<(1Y$8!v~H7c+Hx&WeMyyHIHjAawipd=`C1iND|{&Q|U+=1JK3%
zQZ<j8xdtJDPc9PHyNp2?tY~w&cvXX>5pk+Ak9(-{hQpHd#_KMIA*x^M5=Xu8!}8C}
zp!djjrPYS*MCzXkT?MnltyW{l#h%>;BS&YGL{_*xF?g;^MwZpBgb<5CXff?S_S&Yh
z)*-~fO-&`do{xJmq{PWY&SeSAP4Re1;e~TZM>aT;p6sL9f_O=j#?6l4LRiUclOiE4
z5^<5u&{fE78)_gHz%u%@i{S_x-wAEx=?1@z-vf(kMxnqQMH7nQa3Wk-%?uuhcQ7_$
zh0(SfilDfADjmYmD5VmvFr-tiMcO{D`Y+%@0L$eFu5d^nn~Wb=1nXh~?avK*U)G2l
z0O}Xl<TvZ$b$9fSz=GK5qq=H1&rtHBPS}{uZeM0*n6$JqIp*`SNx(<+=QAEiHlpR&
zJ!%lP&FU3}+vlL^1o$gVAp>Hfi}dUmT6bnyuceqHDgy3_hCO3FW8H6k!d(3JY$H1P
z>&;Lv4bsQLZ9N}!_g=;wd)S8A$Q;ZrAl|Qv0WuM|a&9Y4EwZ$$ZN1u+8-_)P2HGr&
zW0+#L)vI0^&>9&lBK%NUxv|Om9<SK+`f3kz>eMbk3d^R};7vo|H<s`M(Fg=}(xdNN
zdAQGyy}PNGP1Y2b8#KosW~tw8n8|x?ZgfD>3-AG?1tN5|L}gK2{rdBx&6BL><`)-S
zOj>M%<{GZRA3T>4GB80>6;_|R=I(E&=pJKyABjLHP&J^yhK?BC;{sslLzZh^$*_{&
zXUE3sZ_E0GO~(hcJ9dye!u-p;e5*=__I$a5o|2!ba<aq%P_%<lTvl`o8_hbTSAdT>
zJvvC?4cZ&x;$Tn}pwrq#u1Ln^m~lUdtFD|VQ84tv;+gisE7m@Z=WytiqbnrraH#ww
zxBN%9*hX1gpHx;~o<+0Hr@3@5@R2TT%UEFyc+0}D@$D&GUU-P`p@BNACAt2E8}4}@
zd3Mc`IW4<toN+rf*2AMf@VpJsDa~gPO8{?P4-*a2(z6O$l)N5m-eeYWzKSTfQc!+P
z2Q&D13WZP@nff4fS2&*Cj|9NXiOo8U_tJBPa4w5D25X)v@EWgXHZx-qM}sLPlWaVS
z6e4_<*!rLa3|C-AY5h_i0)a`B@BkaAty17KbSnt!-gct8p|TG|3&+Oky&AQc7-*hs
z9t~CF=v3$<`U%rcqO;LCMPN5X%JJ_FRf*^GKi<kcj_l-{>NeJ8UrsjJe9S;3V$f{>
z=X*=JZp5$h<!Tr9L9|KdFyizg70(0d!AQ2)iFOE!>9Fp*`ok-03_38|3Ck>S*d{LX
zWK0{7Q?~)P!h?}}i}6JX><~PC7H6XgE3V~ew(|{?RuYv=04_@)P(Dc3+B!|4$nmg7
zCqWzVu7}xRBcIeQ+4@EkQnx@Nr#o@cVn)nHG_rJ9_lV3Iu`67w$wYF!wju~_n%R={
ztM%)lS~gIpUW?wTvDm`FS#JE8#0p)`9{6dBs3$|Bk_(Of-vChwXAld}`CTf$(>XM;
ztB%(<1_s^AZX`)0^2=9GVM(Nv(Q8>F(T+@M{ILcGqA_XUnL@tD_BnJ>?}cko_Mx;&
zu**#unytu@*p7*dp*rrjE8lXbJLh%~XL4mO8bXfj?mBzKI{tIUrCr{i%%r%kxX+}h
zxEUFpm5Tdg#Vc#XoGU(q#+jFA&Gpy#ecGR9>aRt`0rUr!9PJ^h_*e{?xTjA_k7_Tv
z^G`J{8`R)tJhU@_=56~_*8bw4KkSXyCgjI8;On-<Z>f*uVD2cXyK3^b*{<mrsctz+
zvGg8wy3JSSnV0?(0P%|E-S`VCf_`C!i>txJSHQUYgAfPA!)zXHnREy_rh)kW2N+sF
z;^#j_i2ngh!_3Ld{@?1skNz1S|LMW~R_b@#8I>u88`>8Rh{LyN4tQ)yD3hh``z2Fm
zup?chXym{DS!1b^TlbA=Sf3t8LL?31?GZ1pGsG#8WBqV>a}fv#B_je*Wavc~#mG{K
zmCwh4D5b>~Js<sEFW*eqj&l$--Yll49eRIL9GxCKju`m!ym|vkMvEg^O2ZK_|3yKd
z%c_OA5%^;fxAR*xMY6Q`!RrJjQ?ZDPA${RuKpzxmxX`xIL!w4d$2z#V1Jk;X>K-}V
zaL=?u7M#7<76mB888=o4#ZV_pZvm8wTs2yfR-US2D$2o{Bg%oKef@NA?~<i7hp1nh
z*+>wwL%+|PZ|kR+^zi`HZ2cr<uyjD-DKg!h{aOlH!_sZvR>_aP+T>_u!XkzVjTGw`
zyhF5&c5W4G5UHP;YB07P9!9vZc2!<cP&tTmIUBFX)5!x8iDC_k`IR@x35#*DV}+MN
ze!05jTlq@YSsohIj53Rqn#N}S^VPtqUBLI{<Qu<PV0Q8;(>=JmBB|gT62>U=)s@}I
z>lNLXh-+$guRq2hWfdCF)hQ7;ZfIh$n9@E^_Ie*K{H&aWp*Kv?g7{#^#8Y!x*W|Do
zfaa*RY>1K|1DJYsL7iRIo(`tNVU<F&C3%tQ<`H38nUK1JGW&(w{J}?^P|IYKk@k&k
z{+$VC^csw~QVMHR;tkG>AX;z&)-zQlxxX|8AoJEKQQKE=0dEi#v<;|onzIc%sUniP
zB-C=c&LkvX0-Qj8n_ekFsVC4zYn)nd9I~J+S`L{eo{(kRCWq-1X<F;=aflfcvkmB&
z#l#V1w{uCvBK_kmdJqfm2(Lux?#D+ZSA6U*iRJZqp0w&nJIV*F3|wu8<3is+(VD7~
zEfl#jUMZ(-+;r2hh)m)18Yf;*iDhdUp{vZAWMDV9jLRe8<NbuQWz(-bBv?M1J*4DZ
zKN(ZjP++mX)UhcF!5JrlxT}Qkl7~DNl{9BD`7)-ZT1A^O7vo|VG0ceP>>Vu(+rgs9
z(f$6+oo4m?b{2?ee+2o;)FWX_i^`j+<KC-k3rNGMpQl*kIDSO_s`ieUx!Q+~xV##V
zDC{!hSCo3e=zVpM^t(wEXl?mzAa2;R+q?)?$C!^rW6<>^Ea6~ASExzpLUx0ufIq8C
zL?Y=2nbWb`F5=Ej$R|QnP!6Q%abvvYc=PXYR*(*8QHFN^&eb$HETx8yv0RaM5MYMS
z3VxCTSJC~%=%}l7TTx)X(lx>CB=w+|(M7K8kEW}t_&urqVr40iv>#eRP@xJnJt!0#
zdf0N4;@|OMm}yWG?^8Y~UAlH%nKw?1TeV5nTAF&~#^|OC`J<b`nyAQNP^86;Db3fq
zjbdX6w$rIjsgxRCT=CWIvNS&k4>09JgZ@IzCvxx+c~<Mw{V+AvGfT>^=medu6oi}-
zzLo?rynOIa(?+>7Rcv#uOC7TVWFH)JQ#Ek)xL*wd_R5yn>q~TOm->I2ERV!s5h!JU
zzlsIyhjD;E;AQ<SG7E!3XZyu)kbDRs;<jWmP2W{3lT|30G$Eti)sS(dh0Q-Je=u0@
z#~WR}7%gb2Ss0_Z@(xF9cP!PFyP_S#dI@U+dN8V7hkuuG6g~gMk*`e@)p_B_DB$_Z
z2-E{CH~kKgZ3tOr71ggH)$v>1{p>AHgfnW?Oxw_#C!5@~LzD6AM(g^$*Pa`%eH0Ad
z6EhyPE3itk%5`sZ#xW`w>})eu^07f$&pRFMyB4(4j|XbY=%7~UI;-U(lQ{z%=au}L
zZg!Ey^Dvw1*bMTITUR@mCJlFF^&{Y5eRUSza+&spGlQJ#-7{)-cV-z2FxywyQNM4c
z_kLr!rum0DbJIX>9X{%V0Mn^oUE|t_cb^K{hri#FSOPv{ePa4=Vv)2!ie(|KckEu*
z{AQwZn82we@sN|a!D1sUR{|Q~*`JNR<gWrO^{XZEcW(y9z6>Y5C~_Mj9Cnr6jf1a&
zDOu-%u*pg%%%%b(c=I{NiyJHFu<L=2-AY?{m^!Nb9)^m@r6%{LmDOq;)=du=q)qzc
zEF}924?CDmm>gnq3X=)Y!Mplh&sbQ1YnRfOt5SgtU)hbTAJ}T=8owFXK(n&3H0IAy
zBQaFDPrMmslH_*V8a9lPt37foe5B3w=SB>CHpPMhTuVOIGp8UhQwYrR;vpOsQfLET
z^F(Iy1`{B9LJKnJhKn1t3W~k6Z?}B)*3z$QVvQs4Zs1MtTWR#i7>*~GNSA8)eGKa?
z>TI4l=u|Q&=Lh()_0;=6?15}-|1VL}|2^Z9iR-^c-Ck+y{M!RD{)zE-i+NEC+x6Y@
zaW?KMlBL}7uUf7^jTa)#Y^YODUG8sQK!K&n#FT16-Q3OJ$r8bCbDcdH2oZz;@z^tV
zjKAj?dp(OaN2whDHrjkASPI3=(4mT6*z}J3W$5b7F_a5OOf0@TO<tMYeQMe;`e*sO
zJF@n@z6BYQXEl0}xQa66Z3*ao-lEQ6cs%NfNB*JsD8+eAk&=tVc>T!e>3h8Zk8PSS
zlLcX6-cQ;0&Wvf))CMagGZamjs#JDydTQUsKvKGp>b>tXYx<7S=b%>KdnRFguvPk=
zkbw{VKa_oAkSJ}FW!t{Z+s19%wr$(Caoe_S+qP}nw%xrw6SKP$@x3woZAH|dil=^6
zROZRdljm4D*cDODZdk}sbx^SgeIX}3urKL*-3P4~WfnblkQEQeq8d;0p!6!kPnW;j
zw`vOsuF=;LNMZwD?3uzEoVwq1;x@q|Bv$b&x7jlQ(xzAR<(JT$n&PQy0Qdgvk;7u?
zX@UlHTir)nO}2MyIk67wU|t|Bz0_$_-<Y?UlRpzGIku9gKbtJKjDBtK`>RHf(j@q~
zDa{MlpZBulA;*d@CAsTJK^~=Obwd@ouT<<;a(;MjA?qZaA6vP4X8(9Qz8|vlyG?I-
zMo|BCDd~6yGIo16`up9gx{30tFRMurVpNpXvK0Y}ENJQ$@*F)`hxMddUiOS^^7J~y
zO<EME#_zlDC4kup&yL}L)kG>#l9;W3@hO_>IiSTyqT}^4D>jR3>-Wn_N+a;cGnqwV
z;_K~Iab<87)&&#S(G#H|e30~uLuGmu`S9Kt#h=C$HoLS@SpTC9dVrh~S3RrgaaYZn
zS`A|1<5ba>;KnOS6fvVJv!G3`rMVB6?u`dG9~RAQh?Ip6{VMG8-e5I#1vQ%4-^7r}
z7HA(=&`**5=Qj64r;S9vnf8Qf7z!|jWWilZFYXx7NJb@887{IccO~l=`b6fgCH>GZ
z*GB}gUKgenDcI;_lhJcu*o$k?!j8(*L#L#WbGn6C4I(}5^TDIh7q}bc-nuMUA^1aY
zZYnA$UN@R7F_OkZ?O}9plw7BfN2dRLw`_brGdu{f@>+B<?hP{#!LaOWrND|0OQ&f(
z2g$!1gpEX!u^G$CXE-Ph6b#K-7f6CkC}}_@-2(}HlD@j0{@VRzKkt75^HL=4M@bf=
zw}bj{xp}TV%se@9Q#Ngz#5xK#NnA*<5X#smA%W~-a7m1vBb3HMocYJLwQAM1+9Rlr
z-jHRW6d&ra9*TfTmuEaAi8&sOu6#p{9nV|7ysWT=-HZ!26g?3r1rpC;Q~0mT;<-bG
z8nB1eae2Y-2eu;YtvE@-cEo`3T44bseBm;pkqqbo+;jEFZd%1&;S3B$%wgrZTgK`P
z3x9f^wbdG@KRcCVF`$<CC8udpI82xv^OpR+W<SRF#Ec)?k&S5uU|5`y&0@H2ez+-@
zKb|2~gGTQZ{&z-Hk()#pLqlm&y_RW3bm@MpC7iVB?zzoUg-JWcc~Vti(7;dDDd~CC
zx_|nIk^=AbT$FNs->=TLx3@MQF=Rv!e$kn7&d76Nl})_D6vv5Pd-@p=Ru28SOJ5@M
zX?=K&Z1&mS{`?G7+HII@aU%NBgkT%_^+ZA_MGP`x#CVh1!>=D4M7agh^?KaFQZHv|
z?&2}=!|Gu8ZL&gjvwILEh3_J!-BJ*v9ujLD57k2;rVTJjur`8vb8+<4P@HL=t@mSP
zRMm6@wPC)@tx)UbjO|jLiL(}5=Ak@P-q^iH88#U^#Dv;VwrSi#jiYVwwKmPZ*bO(|
z9?94-w=4X+E@7v?B={3pYM?7t-e$8Iu(CprM{#|XUR$rRO{3}7rSEE+XLSGOkbK({
zHkyB!!x`!$QYY!Kc<Szvx^0g3BCmXtn*rHrs1aJ;!eSE>AIV=P#<65Fqk<r?7jasA
z=!O&-yt~z@FN0DKYJ|U#Px(f#e{H7Qj2#R?-X3X}Epgz*o^{Gv6HvW?PZ=rgjQOr4
zp=0ZT*;ZX@@NXKNHv>dH@*ebuiFrdmBx{E7UvZ#HvRtJV#vGlDL`<@2o8E$Q9@kT3
zuE#HU?Mcs-bp>w}YL{moMqym5CWB<{<T$xW=We}~_}g#i`p=Cc7ZWu66oQQxR4VcC
zNS#2Q2y!p0c10l>`Lz=6uQDyK0EgV?2okrJh;3D`@3hpJZtJK!rQ+(>^NzSPM}xF$
z9?s2bm34X@x7#r*9rKv1F1TYw$ZKC$2n%T#l;c?9s!$=jTMM$^Tz8KbPe+@N7waxw
zZ=}@?oP2D>{N|Q0GSAQ$^b{K~hM0O0*e`B_RF(;?z$hwm$<6hzAD5GMPCI)+=dp@0
zW~!xcF(jc(u;eB1T?Ku++(N=H<smr@f@l6R=>~4POzqcLz|Eov(+K7<F!Gf_x$h&o
zgaQ}b#CDiG<?b6`C<98W<-g_Zcr^~o%{3<hFRvB^ToGP%944{9`zNWt`;+efe8@!a
zd28n7gd#sgLyMdlx}<#;_Cy|3Lw<PJc7x<CFW6*E65LDpVutGcdVb#Zf()oO+h)yQ
zte^q4CGwKmdC0hC;TEBjeEVV*z4f+>;s0LqM{eYapz;nvw{uMZib9&=wB<U*BKeVW
z*KWnl_Y7o=t=cQ|1J0%8#1Xi0=+Y$jdO!yXu3KoGmsCvM%mEXsqH6~V_J{bojrE6^
zKLd{8p=E9Qo|gSpvPZ@Z@It7i9BP-)SS#l0mYjeg0x}{5^#{RY0FSMy;UsP`v-v4w
z3Uv0iv;8*Mp<hoEG7Rz$BYd`h4a65YjrD_PQQOEjpqwjS*S{hT2G;+MIQ}OZG&95h
zp+VCzGW^?)RD-JH*4QjCo7>ehb(^MwxA=&(KnH-$pz3&{b)puAvBN@$j5kyt0CU~f
zyDQR`&qaE_(bU8k99%_X6GUOhDJx;9`;0_Wl~p@rpZnIJBBNr(NqSc#mVINPn}ZOq
z@dnERi>*{EM}D-4D(rt2d(++JCRWvJh0#k>c$eI3A-VmH!Lr3LXal6iiEdI8A=R4X
zI((;%?EtggZXvq>-+%ktA`sJN<tB#kLjEQ=G3Y4V;$=tv1$a&?iHAeunuwE9F;^c`
zF=y)&@DKn7dkP6lelr;WmPu>Q?@w3ZCuAtVVhgxov<rPBi9XpA`%974m2=}@$1b>~
zKbb1yI6};|7gQV0Lz4~zuxXCtHONaBNxKi)nh!=aKnMYh63Y2i&@xALrvztfpv>L%
zSNPeDac`QttHSSxo=i+LyxS1qi&MB?1-+%P!q9q`HCVq^fTdD&3%v$NRw7hVc<K2G
z5%*#c!ZzeqE4Y!PWf<y+TnVUj8y`X#;so7^fG*Mzi6BISgM1faaK5a41B1wXVT;*q
z3WmkmdUk6tcAQ4rh_e_CgKSm#W2bXj>=EVsv^nX($$BX9F_3Okdn05+@F0m$F;~eV
zEOA0g1GwS2B0Q}{+4YDVgGB_@XIH@dn9A_9ft;BD^wQS~CVP90-4vtHTj$5(>o~t3
zoAo;h$m^raXfIzrHrvtCJ)WNg*m4ZqF9|`J&Xnvc%;hofh(R0I916%A4G2wg<|tTX
z_*xfl9Kgiug@sLWCd)*_lr+mGkjp2cTI`|N)fZ#Kd`>Es94hn|DTl}8!4FkA>XaQS
z7S1e79eatZ6ojGJE2XDv;Y#f!4Rcl^xE(6Q8y~SKJgiE@F-W5T6UvYi8sZLBF_*XG
zD>h4=rE2p47OvQoF%uOu%FCBXO)*G)6BLS&nv&3ub5?2?j40H@elJo0qgbxQ8W{Cc
zPt-bFt{l|KLK?R>>cP7Vn;h=sPzKxXcOb9{TFsZcJ-Cn-qrpSqwdJG;c)EGkd3-v0
zC`XOmz0B&VWm#=!C&Eumf4w<`!_#<gTPFq2)Nyfh3}#{Dcd2Dr%D5bpR5uq}T-SBI
z8NDA}j)S*9ACfATP>5sw=ElFcLz{WJ13``*q4-#nKYlE9&zvRxTb86fOh5?4(UHqP
ziRGM=a>0T7tS3jP7XQ<VnTvbMlN{?Jw8uqtlII)^=P%7T5Gq_q-DgS=KWEdP=PEoi
zh%$HF+^<)Aql;%kI<1ORnW5j3)_$fD(`GC{yLlfT=Agx?^m0#el(>KMs^{eLc534O
z{&;$cp1jj_xij{tGdHD4!cERj3KnVL4v?y@O)1%?-$%_|w2hZtz<w~FT~<y9+xT3J
zml?n7zgn%rgWJx`>ShnTS>Lov6j$no|MrAY&?Jk?Jd--<b}sYC37V@m#~{7JSX^O{
z)wC)rco+ucvc`SS=E2?X>iw2!d%biFKOglLZ9X5*I<3D0d+Jw%giRV?E?W|YvM`lX
z;tCbQ&tx-2o~vTBRGcelloKNpTc;&f33_*bBxbv)Ig2|O9Gv1BUB^zY!9pdGLXp-F
zCI91wfr#3S+_aCg5NNN;*n5yMkOwU_gr1QYPgf+S6!#bJLRM@D-3gIf;x0^on8Yph
znYrJi7Mr8%xa^rE>>)BAC3WWT4iNu}`w6>E$9pF1V?Re|^rfr~r#rH*;Kjm`E^6FP
zI|_{=iboiYaMK7EK&3L-L7<zR=*x_qx+j3Jd$Bj}6!`6td*{4DFZ#UMyN38HWWsey
zL%_vkGSNoSZa&&OF}X`kW|X-r)~2eW^==YP)gibmbQ{DE8Y9hYBWXXIeDP#H)vm3?
zJ708=YJGqB+o)jA?@D}|R9<CCQ|Ju3B6q#B(YCF*3vhE=;~VxUX%72e(*Ywh{l6BV
zbj<Ys_L%-swKwXg3ETNj;h5l?f-fYWx2Ax^(t9M&Xg4nq=f9NKX>MgkIGaAXZ4y*q
zD7LhQX(*S&3m;U9&&Gf?)xm-U`{N(IHKAQ)Jgp;vN-Hj(R;SwtDOeGbAeMtpVuw|6
zw`1^P?#85JJJs*Sq$5Z^0nf2H!Bf38^;cuEYXbcw4-gtj9NAKi@lS?OuRG8CODY)K
zL?<k1tR0ePBgM0BKwL_{Em}wRCtdy)_L@t$zeYrXyzoiVawZX!qr-6$UIdY0S4>=x
z#AhhIocRrdG{1uZxSebABpd8GLHm~5XqD*%%?SsV<|7p?Eq*=(R?Qfu!ntMlLOOg)
zKTea=_3OFlqd=2sGc|#*;n`Dl1vEnaWUgj<9(kwK+BSwn-vLIvfkfD^!8m8HtLY6^
zfvXwK02c?0U^N%hl)ASI%|^SpiBGn85UXCg00Og&J)arYyW<oJoW4ef*dVE<*>wTs
z<Cl^?%XE}NB^Zacs`56w{c|>=Q5F_!g`yQtim}T0pDOC6F{q_xCj7c1owlNCSAGA+
zrjvP^m*Cd1rsf8$ErtEpDvzlw3*lw6+Wg5zR%Bl;Yiys6v_+_!#GJalpMJN96}bPd
z{{<2!tj>kAwY@_LpI0P&S+!B5hIO62MJ7P6R8Snpd2)Qp*d;q-WzQSig2SFv<zz0k
z)0Hy6?k`ML^!9QMN$l&g4}FD`Ux~<nBO>OK;mL8B9Y~3GX+EZj*Ux%`ZogT>^C5!$
zFS^U2Y}JJA6BbV7<kG$t7VlC$E)JM+R3sigmVF6r#c5-G{_yFKy(>91a%$wsBjF2a
zuwGxHssJu=D*sU3pZwQaDj&7vuz$03PFcd~W-4tV>uYyD?mS;HQp4mVl*+k%|1BTy
zKI=QF|00JJSiHj8-kzE81KttG$78446@QTb2+q3$r0_yw29xuncl1S4@ZHnO8Gr{N
zHxm3~b{^vNi2`!YAEQ6g&gexdD)6OhJ2J(p7sEjos^(~jaENgb$;`utBOgN~6{ND6
zv<rH7qmdoJ`9?e)9}JvSoErt6dnigK6Gdx)e9E^4*^?m<7f>MiVG?_gIdyl>OW*QP
z_P2sh+Lba3r&ahAKgCa4VC6x!6#T)ZjqPGWZ6x1c@uhTOTHJ*~s7k`nLP1x-h-_<f
z#sKO7=*jiohc5uqIUvii&TSHFDMh~;GvB88Ru}@Q^q{~&^HmBBZ}^(q7b|zcZA31f
z%6|K71w9`z6easaZC3T@Yps4yLEpECW%cEEzumgpnpEZRj5+N^ohoY^pQ3SE`5(LU
zn~<tmDfG}1EM}=<NQA)+YZt-`u1b)}HNNA9Olk+O>!8R{bAxm(&#{R2;wu}4MM5sq
zD(eYZvNo*Ro5G;Szu0@i#fuvaUk}$78xZW6ke8@T@y+BR2wK#s7hR?`I^$g5Q8tWX
zAvxI0hDO|l41Fwl3Yo4Q<Lv3_XEo!Q$IDNTy*U1Q*B67TDWs$AbG36%9ZPUTAew_;
zOTj&0Th!#glfe;X#DHqpBh;?J0s@wB<1AbRuZrMdfVOm@Qdn@XCCAqhIHErrw^(Tr
zxoFAMsisif-J#9DKDoUF6Fb%aDi%jA+C^#piM{w{_NtS5)~kKFdx>!rwTM2!qd3Jo
z2U;JZV@$)U5<)E8%O+S4&yjhre08ign|;#NY4VEon6tu^^71}EurSc^(UaLE_-re?
zH*V=ru)LAz#Zh_X=a!hNtd7cz{-JtfbffE*y4-^E$yt-Xht*71OqOL3Tex=WMPxdj
zMH5+czXwzxelhDlVd*&ZG}k*9Tf_0xG<r0cWfa1xOL*CIoQV2x30|Q}BalmTa1ViQ
zk`*b>RWa7+g5;*OhRn|qqP-P<xZqz7iv%Ya9WZOeq$n+r7`xUDRAABd=kJ3rA~A?Y
z4O9pZWCYMK3%@_6YFx$)Q&(mTI5eEuH6))a!@y<XAJL@~hU=%l<1zG)qlQz{IS7)X
z0UHZv!qeaL9{*l9;#1J5g#<&x#iH7Wh^8*_3!7FSjnp{+GCf7drE{R$vxWsbYZ(z{
z3qtO>w(c^J2=y!bJz(G$mAQ%Y8>>_mt28BBw)RBrN@aiH+3IEgLxkI=eR>rr&ACr#
z<2!?j4RNCzp~ltnm4kZht@|JH)XyH~|J~mF-$uC%EdTbfa8p(6r%{UhpW;zYk{}df
zjm=9=B&lZeYh@0i_Blc;M+pSjadGD#Z(YGc#AM2ZH1Pt|U@te!9hVG({^>qo-IIT{
zr?xW4esUD5W3S(#69RNx0pA!%=)P_$IBvg=^!5}XzF<q$F``Vrr^1=@m)ooL)4BbV
z(Gc%1*c7w^XaaP2<@43yX~vP=6D{7*u=t%V+A3fS1tjQ|q~5`cY7D2YnJyXqzG5OV
zzQ!8q&rM^NHCDQ$X9~@Tr$k%0b;b}|qtZor#Z69m%|NT=6U)!0w>rwDw#$c2lCqPR
zhlhc`S0`HUPsr%2GQc8!A#{02H3@Nn4$Btkv|VibX4?XVA&N**5hH<!wXrNkfib&I
z3LNsr$?d{6;qLQm`%215Nn49k$VEl1c5Lk1@X+B3eeze8>LT0Qr)QcbuY4{FeDX=I
zy=`nuId}v~?@!!}LdEcyip2iXaS^V;$^>EtakikNA)%s$iM;___@G_rmZIUBDh^oz
zTDPI}rRlZ6{b`Z<HSnj=Ai;@hfyZr|37dSwrR6h*vaHd8p?wC`7)FAW0WR&cn?<EH
zM0-Ljo8~J-j3C?dw)I2ZDn-#w25e^*?ab~>(dfi+fo>LoAFI+5&*(_VPUNIXCUp?u
zfE<>Ni85q<utPPD;?NAzcuH3|hzlX|U-YX`UR{f?iai)=q=Q;Jf|4bU_Hnd8#WN*g
zLAXbLfkj<DBy^p?<IMF37i9}PYb|9B)p26tL<=)H%2Juy#*@A5VI3#B8<dlWYDn5P
zWlAawiJ$iF$ECE~+EWS`#*tj@BH|X$nP}TniBR?S`|y&sc9nQeQQ*G<+Zi2C*KP-o
zzBrhkzNAZ<ERHzK`4Gsp+ow6t>y%xH;n8g*<24_y!K~<Q;lP#hH*L$LAgzy!p4c<5
zi4)nbI)FZHiqpv*{9&xv!H_*|an#~k5zf$mH><GQS)IF*cg|Ubqhv9`qwn>9h94G)
zQpTh0PU@=ythbH4$Lv|0k~XXwPewu1T4J+Rvk-f?d;{h?>Cg421RRv;#ZiY<yT95V
zx0Fx5J?B}`)YoMS(%}ezmlp4<_5p71AMd9?Oyao<QF<6zB4XA4!O;&FoBp+DANu*V
z;>F=3_Kl`1tj+2KOd{Egb={wBT18!<Gyt5shVNrxoLoNlwQf>$!;=)`6<l7;wIKke
zB4iQt`)?nLVx|*qOxW3w9Xi)m#=PztrpruQZ8oMC3zn+XBo<awW>pqqvGyqszNYs@
zFNxvg6dpzuUv_I*y1*5EFdv1VcOGhJK%Ae2+XTzZpbl``0i$Ckw!fA=P`fMAa}9L&
zQ!RA(+XRmLO`q5C;k(;WXyu=R<wS#;5u?O&4i{Ie)cP*CZ4Tj|Z=uXq89fqc7_P~x
zlohPqm#1P6(24cX_xE=X2$1TXJ^;hcpDsw(!eQU#Rf(DNwgLQFaP17Ftea$?WL=`f
zk9Gg$bMC$_?;WISU`;=U_3#>fW!6n#YEJr3Fca3&$Y<VjK(xP6KI66#KG0@Wm3+y#
z7|sASHI0VXk;60s1EJ`T;4vOQo-U-saCs|MR--!SWeodBrdDdacq&n|+?dh9Tvh0D
z2~z!ALTVLoED8sQBw1E@@Lv26SypxMUP~c*-NWWR%MBiVklz8nZXrzc(Y!t6UOFnJ
z6eT;=@aST1(?m7|SQ(woJ>uAOaCdEiKAfl9M8!{SD8P9mw*^SCcn%8c$%=68?L+*p
z@J-(JRsM3Qv9-(rfFI&xWxVjw=L&`tf8dyTdnerBA|ui>D;4Glf><Wv$+u+NtI{`p
z;M#yoPy9o?X8i{bQ#yJEwttu0ajE)$#QsQ)2m)MVbv-N;T;j~;iIsoA6fh+pYBBO@
zT!QBDvI`pYT0uo@KJgVJcJ__>#ou<-3vl`<>b##Z=0m^b!-e2|$S`F%1I}bptT@a(
zdn8OUrC8o7fjiIF?Q8g`qBxtjN_;8p{$P>q<iY;M;Yso8$uuIkmfb);qcK=h3add}
zxM>$o=Qp|tw5kWjpd^Wz<KdrWT_WSq0Bgj|DDCJy0FtZzIAB#im$ctARFF&SL)xtH
z1}c2Zehzjz;Rq{{MKi>ZBvk9<I+8`|CwB8oQ&roGZs${$Ug`%9&-hDr+D)I2Xw%tq
zH^zT0&fDVy*W31t-L(^?R8<wz@B8GwNBf$d$l4I>{$Q}oBKK7(3C~F1%UC;mVFZj%
zzAbl{O<B$YP=0;(IINVQNHDz^r-=Ib!QJvctcKG1&+yY01pTQyZJx37c#$u=t*h!w
zC_JijUhi0AY~XAb;=8v(k<{Z}K*Oio+TenOGaHILsX&_9rq(*`_eQ9monhLPZX)Dh
zWJn~?EA^?l2@uQgi{1CdMvSiy1)M(Lc=H$FxeufuvHi97Auy3xe$9ut0LvQy!Ui-%
zV;#<{#V7X-g--h!1#rWWR&HN+b~dV*iX6SsoRoI&XFh-x_?6RYE@qYdwh|1Jb}Xfx
z$OwYwXrwVSIgG~FcYZnn3JbCF-1Mt*xC!7Eb|DWi&Y^pj1Q8E+ql99lYANv>PqA~|
zMQ}jdYAJ*puZ+x%7R%MgVkS8mjS=#TXa}CP9vTiB-z0UZ&z~XAsI+gw*o<H#LO;W9
zFh}~t^~0Lrb!9uRRPv)$x4z8uO+l%tDW?@o0?YYVpCd(QBT*#AH};+{dMY<eF5CR=
z)F*brRJ^}lnlltwqiYioD?$AJVNpgiH=8YTgG|KT-@tS93Rg%@6-nTW=FGVDm^pN>
zfhGC+GEYWNXFb7=KVc&{X7Wpm05-)?K!8R<kkHBYGJAS^%vFJe^5U`CDL`H!tW8d&
zv<^VRXkFHueoM1O)%E3g$6tQos%x@HC+@C*8?M+0u=7<~y@ePnB-Q+t(|SyzN!C|s
zLrcr(H(q9L9$7n8iW7!=I{8QO;5$b~fJ~<FOqe}Me<4}=Jwyu0VjbQ_Cf{4sxb5#%
z4vooJ6QND%7z90o)9pr8Kve~Z?+^o8aai_kgVQ?);8^xGNx5?<Y#Ef8&|PS!Y{n2J
z^+&U=C=$O_{x11uZ?m?a#9Hl*GII+yX%<P|TDs!P!7lXmQ?6fjjMs@9awQESVxbyJ
zN*w^O382O}T1g=>QBm@OWNQMfp`mG-b7X$j57&CX>uIpB%^jWNtu<WLkp!GsJ3h3a
z{xCtH&oh#te4df2wszO2@u|LI3Q(p_O`F#4Gf&<H_T21o?|UfD(~q&e4dCXaVK84!
z=HX!I?{Nz<X}+)&{J8y);n9%TwI-W)i~1E;kcg_4TS)>Ib@NZU8g<LQ#RqG>3-d;-
zYJc1{AE~4yNoi`r$ac=W{%oOb!gjTN<Tu}-D-57-6;2jr2Dea`yWboI+5jwDpT%Vj
z1Vi1kjQ_41{ypknGc-zQwQ--h6g}P5oiQWoHX$SZR$97a;U|_DvLz!$l^TaXvT>pQ
zh3VC-^-lx<wtv92Y;6A(Ch`8??rfK;Qqlj}e^EIhML`h=!_8aMNVks7$*yfrCITPI
zTLv;5O*8}_t-g*CV7nVy5xmSZg~}#^W9uJg>32&qb3~gx86I>gAB@KwB@h<lgGQ}n
zj@=_#jy298MX4M+G5YwNHxV0Si*~V!GiIlTZ@i3OE<X;(RSxGtgCUp=iHvH%%P^XC
zZ+3l66aFK~6-^pT9=-Jz*e*&cjvTzqu1@_|XT~Q`n(h`l<xW$;G%DxoWHR#+@9I5T
zh7~;%Y?R)0Q7#QIjbA^(KqFC%oB`umz-00&km<1UR9jB0+&E>5)8mZ^PUb29RC-8i
zGfnrajL{$R$mnsaYU|P}#SE@JyS%HL$qAmL#%6j)gv>zj$Oqn*U!1ec?z%ov#+sgs
zOEn8H6RN0Ve6C%$kCS^!sN-}^m;PnN<w><M7^ir-sA`tGL60JN_KLdTX>iz*z7TSL
zwS@xc)5!)?WY^!82~>ocJ<h{o+C_}bu$&YMPXw__Xe7<xFW8^v&>(-8L^lNuPGhAt
zVqbZjGL;0#buS<x2p6!vLN~CW?G0zE!1gt2u|VA@D_7&&nnu%-+n~xx*+$qjKZ)@C
z=5_PSp>+fRYzD!7sbRsgl?CvYyuX%h2$)EUaYU1eQ7ZZA5}ZE11^`pYR~^Wpdz-CV
zaGyS)K;u|-8~F96XV1piD;o`3C0SM}7Z<iCzcun+feX5O?+@lCa^92ud3rEqieYco
zVDr}bI?7t#ky)4h(Km!r-E7n13D9hLP~_Mj;Q7$?*lNiCM0y<-YaV{Zk)hbE2h6vW
zZ#7Tqnm0T;9h&(o;lQQ9z(s?pw3B}h@d3I&AoCG3A_lT|+vgfkd94J$h>5sZ`uJ+;
zKx*=Vb1+&^va_TO47Jx|=}G8_aCPag`y}hZ09%gLzHOjSlio%kq2F4*gfaJ`Df91=
z$evm}8`H4sCrPWU01hP`y;xAA*tQREu%sBf@VRqnj@^Ps;RzOn8sEt=3UijwWzDYg
zJJ2sZnV!eDTEb_ggaWXMqfdv%V1+^kr<IE3;W6&3D82D3k|hknp!2Neug@=uzVY<-
zd@qlYR`<PN^pO(xm3&k5xiW}g94cbePmmFY#4i`+`mt2U>ULMevRKDu3L-7(p^fuX
zwU08y2GsIYYlKEut`nUY;y5BHM}qW*F$B|Pk&yBMI@Q#+wkbtdMephS?7A`IO5pK)
z@!r3Ywp_oN3``)4l8M6gg#e{$f!_J?-j(zIJ<X1)dgt@4d3ghUUFCP%-LB0*nmYbq
z3-bQaT~iEzK3tRrGK8y+`_<b|W3Rli{Yry=ed+VB_=<`4pYRnU8|}Y~uMX8D{v&Su
ztXDyt3IXW{UH@p2&RNE>^FlM)0VA8imHqJmb*+q~w5fZ2#12cK9MirA!#tl07m_=e
zV3C=cVO1Amb!T{W;&yvdj|tH=tihl4#IP%kMIfIGz$eRhL-mT#(VmDSGob7uk0)ES
zYtlGgKbZfxJXrL+bL00xjS?-OovRTt@JG*`-7~+t{S`(3^2FRHDvIJ|rmPM4D}u;>
zm))J`)xnPoYa@6N097PH!d%a7P24PJ5{oj5RJ@3P=S84TG=mssSSj|aeG0HL;kIpM
z$+=+f(7L`P+<u?8*)prMsEvj_swja_FMyDzo3hE-1FtDvH6cBqtVKFJU?ANX<(kfH
zX`#?VyC}V4Gr291iWW6l;<-aCAVdKg2SWW&TFlbOfb;KcWsG$o;ZpJ3o+KB0d%Gq}
z!bJ@q%ALfrML84&{fe6HzTg!@Eu*hjy+7O9&Bz@4<`L6x(z)N^c!VHUC}uIa<~AgI
zRF8FI^Xx9lVwtJdQNOQD#sM=Fo*{qf#elu*!Y@-lAiulvYkC07tbZy%T@5tk-z_t1
zVQ+UA6WV6O6*`}ky5fh!q6^5*f<MBez7$c?yT%=hFfIu!#WIS@!e1;dKb*N|ZlBk4
zsr?<Nn87b>xP=t&wZ?qT^3b0gx7M&!*6#H+3?LOmX&2}fIFiScc57c@@A%VoL)^5#
z;0uwt{MUABopRL>$1LfQdDdTw@=Japd018<FIJD3*DIEWr(jWTA=7m#TnuD&)bzdF
zNU<`{c5ibF{z}J<5*LaP(L{>7;hy`MtvafVQ~im4Cwk!SCNVgMNkp?07p7J0To+mt
zHcs3Esxp=yY{e{~aQch~C4JC6`H*^>Q_T>x&67SV7ddbz-y}IrH;VBFQJlcf>wthU
zjz!!9dE5bl>;Q3IJSs%jDoPSP@|>E~gWPv90R)h<-KSn6?4^_o%*ca(iaIMgpSUWP
z$dFS9!B#k}*2`CnD3H@Tr9Za_<ph~<Y_(^|FYN^l?c&nTAUvrd=xs16CF+u`jYnX*
z3WXF1g*g8YPZ{DOIcZOYw&m^OayZuv66~<yVggF#n=XnV#4>@llF$+eteG)UXm_Db
zcx7f@U8+2J*7RR*C)HL4QXcdK3smT3bJaEmgc7RFT<O`O@(uVxeMR0tYJpmAA`sb5
zSCiXsuJ`@PkRc*uGV0-Q0|G?<{=XZnL+F}joYA0asdq)2OR`s5YR3&YW?J);6VzEx
z8O@LnuAKD_K4q!slNTGZq=6#L9KmmV=W=x{&E$h25-15Px@YvhQ!l7>a7j{GO@#9t
zy^&b+7qV99?0Kt~MvxdOpI6lM7jgLPx|F++MmY%Y+O3_7H*ZD*XU!HVO7pbw+Wi&M
zj1x0?W}+f5J(kVz7b#r6Im=##!x!aP>ln}K#_;2BvMUnP)Nt=60Kze{ya<jWQmXP9
zXUVO;{0fb4H{j;wVk635@}R=pzPGNBfuc&<t!Un`_F9K5Lapm<&4HcLX50es7cCma
z70O#2+t}m*=za}z&zpuD%k5j28iIKJue(Ap7Bu=}=fiGEco6Y5hTv(<B)c-}TD}~U
zG@W<rm<<M8+%Ncu52Wq*Xn+z<!IpB`Xss-YCdHlx^U7LII!T#<ooI+G+Z%hAGIU|m
zI{OGQ&`H71tR|3X6d$#!xiXvQwpkfa1YqzOAc$OMA~UpTn}gFELbK%0u?#I`hMXZ~
zxnKgL#aRyvOLA%8DI+er?mAaxLR-6tE+Vg7zC?c(IG1vO<O-kd2G)r>+qKcchd0c~
zM`~PS@;LH}^G9ty@n?~5u<GVu%;pLwE40r1i@P42an%1-n{5fHqDdTdsrsRAh&n{6
zLiy*%e|Sveh}MdKdQag%4klQ-BrXcH(hV4*C3mr{cv`Oo#((5&T@>EVs70Z8L$PEo
z_kTOvdo$b;dNV)<vAP=cr|jV$e*^H@k~RH9ieUIBy?t7i|F04}UGzWn_H6^oXj55Y
zHkPz)*uYi($k~h8_aG&e#_{grlf0id9|P(^AUR)HQg=as%+GV_JU>gpudKVSyqnxE
z+uz>tBSh;a>;$-uW6IDY4{A%I$IWR}b;^9Lz8WFW4}EB11Ta1=Uow~b(~Pr(cPEEe
zLjy7BMLPzu@<qtnG-`Oh`E@dNxbN!`86Iq&`f@}|{N#r9%ICkg&c0TZuIRtgL&(DP
zQ_@m%wv3$GtsIdv@hd>!D{Ii?Z!#bZ>{gDP9Ja2SU&*cLjb88kh6Mama#I9#i-%Rz
z=9Pu4lCn_G#y&l<5qO~a_s{@&XAiRJcGZl)m<l_$jEx`KHv4VQ5iFOEKJgLeWXd^z
z9v+24!A7Fy<KdAa`jxHlV`32j{0R+>Aq)e7;>WM?Rz@9@$mOCV`y|#~>4rwXRZ^tC
zgD-tkC}p(|8DkGd8*}>{10dMTRe;(NtN<1Sc1?=nbD@K&j0En)+(5`RBfa2o@^F*3
z1WSuGQ&wdi$Am7&kSX?YEGGz>DS^Bc$h4*(*7d|rMk%z#j5aS1=z{=7;S$ZR?Qxrh
z!QnTgnb^K{0P-KTAc3F>U<?uUh-Jhe0w`ij1;9r@>lk094*_g5k7t@M9QNo)^>&Mr
zz9VZ;2o@wjbs!<W^GVrCwrU)Ea~*K}D&E78;}=Kf!x0!m+&=&(F`N$VB!9gwnmD&N
zf##-2BcC?!|E0xsL+hj($MFEr#yAh62T9=90z>w^P1AI097Mb{N0xtB3A$TEr7We5
zx>OtwMkd{c<pDH1AjaaZbT!$BlH0T%C8|DF_BE-swUMS$>IOhSqU-!iUFiy|3z4DW
zSND4@El~#k*l2uQtW5l@-@Rc(0CadZhFe1H1by6>uAw1@+u~J~9{CDCMY5N`+TxL%
zHcSZFBLpX2(Sn^+eVo9gfD#Ouy_0CUdr;ic1X<C$LY(wFW_#?LbKU4kGqco)bMfD5
zr}0H6^iO3L(Kx0hTP|CR%ze^Ci1FfG(>?M`30Bx8WFDE>nB0I?%>B`aI}o7;n=9_$
zs5qr}XkdluPyyQ|S~P+0<QxY^7JNF71W<P-9p%a`Yb#kVo71K-0XeMVnx9ql>v1@+
zxG8^9Pb$XFy0*~u>yF(veeySrZXfftFUh>=go&<PQd9YNcY<Vdq5tfC$YH<X5=y&=
zF*~#cTZOhyx^a?tq?7Bo*rSy&3|dmy3*MRrl-P1SQZT%ljn+GNuLRBz!jXilaML?s
zE1w}BnP<i;J8(NZ&w7ku6WUHhe1o^nOSmnyn{>VtR*1<kx!=QPg_%)0j%Lh!rvDwk
z^ri4l7_&P~noCS|Q$9@CoG;P5zG*%v2R0Wz{7Z0KFd*fb9Zsu%fuDUmam;#!_+!qN
z2@V);Y)gT@H<8s&hT-uAPm2Rg^sjM<k?Frv4E{&P8RP$DoH73p6aMr1f0w|MYCrIX
z1!41?qQ#O0*(9hRACQn2$5tZ;)Q>2<K^WByLTILk{686IsUAimO&P{m<#wn*Zf@|w
z!ToNxWlKroXBlM$>Qs+GMI?J!ZAA2a`=XLek7=q@N>pOvd=g?sVi^U^LRJY409A2m
z<ZEe`uH|MS(-xs&u#PZ$7$ZTT1$Jj?C8(4e<m@r<NQ%L{#9JjY*66d+r3TgpqE=gG
zF-vXr2@9P{X!1x-B&G;FBNz_@g=|b00pa69BIMd?VwzslMWL7;#ku=_lSr7p*fl|u
zivH-BNnl40XV5!R!AW3$a9~i-^Y<NcDabaDdBrAXtb><8-pf}4N^DTe^?Nvi-~!-C
z=LYbxu`8HC(u}kfWqrbOMMAI#5BDd1@^TA6CY>U5VV!Fc6hTQ;gK@Q<qsk>{IW;+E
z!r;+;X_);Z4e(8NO;|MLK?8RadSxXBt6yf53WyBY4GymeGaB@5x-gZnhzHClntYJ0
z&LD7m%++c2=M6t#E)wyo7`A@dVw=mCsDHN9K(Vuu2hKLiV^y3eYLGHH2KiGlA%VL%
zPV^Eo8T+*60N=}|sQwDUbtSCf2VEw1CAcVDJX2jEf9S@uEF*I)h+tauoOfNs+Z0LP
z%|JF@W=GDa{YAk_3hGS=-mf9aD;*f$T38OjZa@hKhdNGjI-){xs;1uc@d+O@!m3rC
z5#HeF`L)|$KIjkr4QN$qT!fzRI|s2~Db7wEk@SKz8P%^(y1oGc@G6et0oj)x82}fC
z7g96*PU&R#?S&E>tKblSA`Zc)NG#aTr|z^5+I$s)W5Dk05E^~3rKg=w+G|9Mn@g?R
ztBYMi#O(E9R8PH2)r(UiS)%LZ_!>pK<IAB@m3!!}e7|0y1^4}7@NV_Y(d+M>vlIJZ
zx!FncV*7J7ZY56<A+8U&p)loHqCIYP&D!~|5L=t<UHIte<rr5+P|e~4Ko@JL`6ek2
zo9Ey4W?%ZRA0Lye4<G06``xJHBIofg<?*3>ZjB#quj6;Oh*I!VuT;zwg~srRQnp02
zxEL9FcQ=ISII{30Ts$)4*-JD_kiifAr?2S>l3v~1Q%nj)xLO|XyM0_1f#>qmAk_)@
zt6bH$BbjT-t2f%KmW&GR#(dnd)~zw%y8aRmA=a+mmgan}x00=T{zP%XBrUAz-+U|;
zH&Zgg{Xysp);7#nZ;?%!xW|!5fRKMYAhsZXt*cU=s`_)U=&u~H*P}PcKE;vxDFxc(
zw}t7-l^&GQwI(8P#Ml$6Dw42<rf4Q1DFKVujuLiHlUh2FKw)k(K|M<~WSY5$vNb9{
zVR&IAouH)G9sq$O`Kt){5{K#cb=gJ4%GJKL82Xblx_C#`ubM>Urox74{YXP;2=<hM
zsgO9y7;c!1#P>)B$vq%?DRtCe$_IBYyjr%@Z|Xbr_-H_cm4`4y;*Bam3FVwE0*Zl<
zXT~fT$nI$xXqNsK_j5n@X+UwQ8pyxob$a$$a3aBTYBk`kV<Uf`bg(w7Hp268^JNqt
zkvM3UZ3f*4riG*5?m);`&FPu~9_!Hc7tIb{<*L<7$USheN9KW9F4i2n9OrF5*4}TN
zVt&e7dd+y=_OZGlYb_;h1uSpe15*)D?ZtK;Aa#wSC=9H*T1GLtdOlq?Xr4iDreGXu
zxmwON@y5aI#(94{m)fGoPw~|$g@GLBF&0fyMLqm9kuw@IXtSKMv>hFP9t;#22c<jm
z3s1-jUsZX13^{&4oIY)zDPn5I;cLT(gNCeZ@p5T|P~53}$Yd`~$~-6+x;iTOYFr?D
z9iD4F^dixrF)rAxBeQy&n?a-<1Zk%JT-xShw%ma~!|h@*gkV!8{9CI+uaNl}3L_5&
z1r#3NJF4v<{|$m8)umFS^D<*gm}G%kMn~z)&KP7hCMy!Hms?gv*A<D7Of{05aO$86
z0$tV07^+v9I|el-gvkFp0XlOQVyyCy1MHa4%7HZ<C6nRiikdEE_~1bv)aci;6vVpR
zZgbAYS@T8;j%?$P*)&ABILH+y2Xr+K$6(GN{RCIQp8@q&>F05_i+VQ;j@DA|;BpTM
zQ+^J}$YJbXzo)&)U%Yi3EYh2<o8J~J5y&dvsgPO=4D;z4ky<$}S!!WT43aI&)Ve^E
zElLe}((o0t^RgNHOStW{+DRrgYf_nh9oY-SB_dS@RP)<Z1$=|z+g1bpYr11%{D-w>
z7Uuub68v{Mx+)Sj8MFvp_Y|HWWUPM;)->v+8rT%g#T~@#@zj|4_GSUvE8osJbQJ(s
zh1#vCy)=7PvX)u)qv`mfLvo;xwGJ|}B*I90@gd2=mPAP-3t?i4uqXoaP}=OKQ6;92
zGuquwUnSeirIHr5v>Z=6qBBf_{iyv&p&*v<^29>ej85=ftgj%{d)NLDsFneET{<7>
z2IvmzrR2&?i3F><jLcAR+mD~Y0l~Jl+MPRK^AKlZDu8}s`Vk6HMKlT=FxZkL2ur9l
zX3?ZNHmj+#;C2mf&%Gsy(r4*V>qd29s|j!yqUYSD4rr<uUtG-&%{vr{pa-++0#Z65
zEoU8BYZl&mC84Kipcpr3W;6irR&kvv8(DMf*S{2sH<`7TPA&^%7#X*cRX#G4E#^;7
zElRMOiq^t8UW*>TsU;3b(Vut8$8au6BrfJIu^x#(=sN)i-5K3_ZVGXj$o!IIx&*y7
zyl#>91T-d%k3o(UFmmurTu8SxH@v{cP#MfYSFd%0C@WZ144f3WPe@@z#=%OI+Ty-$
zH;7j>7HMU+$?sfGM>QTZc0Lz-ts`<4lC~rLb579A{Yp7d!9xJV0AnqHFR@1*r@=2Y
zYp&?~s6f^%=D@M|c0UwA@hHoplw&GS8g7XFcyl3@xh)aZ6PabHcrJB2Q(&ZL6@`>X
zRHW;bJzDw)4~%uy`FTv3T`Cl|5p<1z+e82+M@8UdQ2QiU4k{{DS8LXcTsttUBFQSX
z3XF3>pe8(5dSZF{v}lu6Mib`OEj%LHwg`d2BR2^U1;P5=pys-yDr+<Vsk@wY9ypl!
zcAh?b=ZZfR4-kq}J2?@sH#{F`88yuDi4!k<Mo)KCLm{x`JmGvTOe3X3EMqq>ZQdpO
z0BP=x4QqgI#X&j3#LNL@?}hOPPpG!DGmqED_j`7C!MB{qGtXXgw1DPHmT{sZm27+y
z&wkgd@4*Cinw?{N723_-N6LC&s}#fz`b40<|9ZfIDuAaJM1&O8H^2f1mHI#YPt5;N
z#?sR>{M!uGNp%gE{U*f!SdkRdDRCeNK?4F=CmG&yN?e*6Qua(EcH0R{m{j-?3NWYn
zd`t!84NEXgRd<;062)Up>GfnlhXE_t@)zkWufIMr+3rf5Fh~$&)Zg+vCFA42G$Rg?
z-{QRedrL!Y5?_kYr-K$xw*0qFt#I+6`Ssbv=E&rm&7ddLy#hm&kO2J|^}Jr^Z@xBA
zb=ULHoaBM~cV8nKsd$3V(O5gj`)x#9>&#UK$OIW4fvhJ-G3`Q+`ifYu1bwQw*ynqw
z?q5#C1)BPoPx8Q4@<SSy*Sx8)4e5s6&r6M}_Az;zG2i%uq|*<&a^iWPU@ax9;k*%&
z8<k<TE72yT2?MR2?x%gCT5PwsS!Qm@f(HYRRvbHsd1eD2ekSCnLGp6*VH%k?100`#
z*G8|AJ0rO&gA8!;Feu-{f`+$&>qyi=uo59&4}0?UM#}I;t3fK*Dd)ZqFsYM)Q-BTM
zxG&GVK%Ex+5(?&ss%g=ZaDfj7gc&5dVwx@*dy;z9w%h0`1GNg}L6C>nltXweEB}!)
z4U_YRviToHFQ&C~2F{*rL_#3%$bJ@KWLZ^5`FB~a)ncJ13M0O>52Il_B33xU*n}ZM
zHWG3eK2JeaWcKUU^lrE2ZfbOByA-s!7*mvsDj395XQQ69aMgC&i@l3bqYOk8(tZgt
zlf!Ua>#L(<mizoH9H_n)Kb5K3%q20+VbtFit&2nae?Ep?^*vp}Wwn1|kTD0bud=r9
zb!@(_6vkj8MQ(1$OfOyw03?zrGnD2?I4}*N%Tu7K*=9~*I@9Hh-*Jm0k<puCky09=
zHB-enDzB>v=kKpd8PwEB(kNig)Z|5l4$~8f_c1^?u5Nj;dQbO}*B>1s{`-a%Mc&b_
zASGnrSa+;)02;uKh>iR3@a!s?Cb5y<>AdA8zg(M`eTV9qAzK?Ek=DD->ziQxxt?fH
zF)^8xna9?e*Bj+<A_OPj)C<ZNmudY0AXZsxLEJzm2IKDE%YQ}KW)8J3{=#O+N~whD
zx5D6I1z4-`gL_5s(T%gElTQH9R%{`)^ZJ@r@Co5DT9Q~QJ|P7=B_)({M2N~Gypx|y
zYtP!u$TLXt4vp%+AY~!}Bnr$wf#_(lx4)*Ak-dfUGeJrYUB{e<UuCZMdxY&LfQyWo
zk#*`vfc167uu)D?opH|gxza|`*U=9Ptxl<%zOG+$rj(lS%_?7Cb!i$W@?QDVa%nrz
zh7T6EIQE2$;HZgfOk3_KF@ksNn?YB#E@s9-7NUc4<iu}v&yJ^x*K3f$!-|7G1t-`_
z?1tbK#mutevjA1t#;beJZb?bS_sOaUYsb^bV2Dr`kBl-pKY+vswPkI;xbq-6uj>)9
z`piQf>IWQyjJ4F|nfbjtOS01wj!31++sT=oJ?;JX`N+o<0}-dxPLM*H0Q*U(o1^=s
zo%`&Q9w6oS@iN@At1tJvO?_)?qHgC@;46WSmvx2mnziE!;4L=s@O$iai&V-d?jUgw
zg=v%<uqA!a$q=#Dtm!Y+7yn3ozX4q1M0|=rApis@QTiwcLWwx$iE@G*<qv}SO0KjU
z<h<|S#waWI4XFF7psuCDX8`39_-(b~Di7=46ME~ImdN!&*02aW)TGcWJ$mW2>Eb)<
z*k!a@M>kA$C<z2Rs{5*duA#lm=mNF|{*}5lKJ0pGB|F|WfMSpa=2*}mh@mOJE&b^P
zS(s14vNk7Vwudw@4Vm@CaWBN21WN+(a(DK5VLR~Pf5SYY=V6w#=K-G4tY+$fKgDR0
z`UnKOT5T2rV!GB62jc=f{T!(IIdGve_<Y<uwC+#6B99O`3|O^ugJeyEkkZcI;s_4g
z!A>jW*1^{@Oc97qgJ#LLp27Nr4BZoD+h^<W;p22M?&yY_EP|5GykC@ogaOK-w0dOT
zD^}3?jv<y}I1RCp2%M`K`s9j95=wE^mR3!*-mH}N^aUbgQng|MGC@5G7|?#^!x8)&
zaY>gBt@&?R4b%d5^LuwWCe}JZ88+z^a{QsL^{A1Gk_Oo2(=_$BW%k-tFulZ+$2X?;
zSlOp_Ma@!nwq)#Cbtjp>b%f{wjI@~^_`~XLpWi@1_hYyRr>4sd%48sT!-S<|SO~b2
z112!Mod?uc3<{=6Qy|-5wU6bZ`lvJzn&s<`^3^4G9i^YY9{S_PQJ&;JJ69Pf^?C_*
zqsqudXbO}og1!lKtuZTL83lR`c!ZEpL{yk!KqzzHjwZMdfk2-CHv)1M<E;1tpPjZV
z5czl7UW|e*<VPSCte%@OEuMH!X-Ootah5?l<Z?}p>WoN%nhy!@9q^Dvl_g|0#Vl$<
zjaH%4^PlVFc*%l`VA=>>cg&GZ;|>mB2%t9n)h%X%?=LIDr3Kb{K<w?d^3aPKQ#gzf
z)Gn2<ra^H&j9kTsb0=4PdtDK|G~1=OdrxOCQVa+-^znTl)Cl)nWt0@`;&kYT!N53E
zR3I9$yeCZmDeR-FqZnwHiKsubz~Z(~bx52A2>tnT4LkS%<Ayrn@AvE3CM+u8i2$>R
z9@e23mc>|#OPYMZ3=}E_Em9Pew741?4c$&~VsM5Gh4hsyMq3BqtrE3JE*8c#gX7E@
zE8oKpqBysHQPS=-2CnyH+B}tWXgsSYCoj#&Hm|J5MO9JXtS(c5+3dze4hpR{U{4*f
zk9n_CLoMJKf_PhP1baRcXh~b5kya`^xqUe8yO?oUdy0E&VtdA3t{FEx#t6%B>>b2%
zw2bha2sx?X-0)MN-RiqlGuJJfMP@V#I4=kgHU_GuVNNTT+;6p|^(sYMb@!*!DGC_U
ztt<wtxW2H$S+$|qy0EM>6smK&Fe~5u5K0kzg2mQ$-(=%x<x+cb{Whp#!Z_WpgcHcV
z?-Y-VPGEHS70$xGifzC&_@4-Ny3V<iq`}^j#ymLCZMe~5k`gG|<GhkC&Fz{O;$PT^
z(^mxlfP`3B|A7O|#Qbj~p-VL}g?(Y<pPBCosnTxI^Pf^I2(U2)&_thLae4-DQ0O70
zA!EbdfY(R2PE}F<Cbft-VDOj?^GA*DYc8k#6Y{=Ux$9*)n`hbon)sg3@5vM5D;7Ws
z$P4G&J&<kT!o+j`OnkFQyvp`(FBvt6bcAu;!SlD8aeNzX1qlLUgH#xqLlA#!X+Cp%
z_0FPad4<p-$qQ|7PFNuL#TwdjL{7PPKikR%3(`)TzUz#Wc88q-|7g^wyoyp4vdSx}
zH(t2P`XU$xgxpcKdBzfK`P0*nh^k^?l`zQ<`LM!j>u&kRtM!>`swQ9J$ZMra=`uH_
zwYj;>kLIDn#c}_<Aok`r`a+FJAbr2PV{&|J^;SaVE-qhy>;}!U2s?~rCeD{7C~0cL
z!(W0)2&x(C=|I@X$4`MUj5yqYXuv1+5k8!VxjxMR;hBL78G4C5e``WX`w<((Kh3DQ
z&HW$|U>nA&(n}E<Lp@$8;5td;e{sh-3zMbpl5pj(=7Ufr<e4Zl1jjfKDT?$h`khL7
zfskk|TI$Nk$?Yns79l@SV&5h@Q`oBp1EX$_3VJRnrWRePuL!VXv{`W<;G^tOto+Rr
zOd^5}7B9ZzxQZQxA-pjYWhcqHGOyMLqy~*j&`x?s+1b=;_G`|#2p0p+nY{Jf7RLqM
z3C3*AS7fZj01{@|ZlMq#;$C_rUBe7Ztc?7CYXooM9^`kf2Oc&hw$wU@0@;qRGrDsr
zOkZ1jjRdSCq!d5Z#rSgC@}_{WAN2w?(20)+q>66{Oky@+5Gha%1QxClD6eQ)%S+lS
zCI&8G|2zKhhi#_L8%gQ6TNZ6e24ue-x7c@<G0&?q^jlb%ZWu~jR6j+a>(eFY<mQ_a
zX2xb>RZF)gnsp3-Pb-SBG*8dl;pIhM%7h6YdDZ`-?45%{>$)!A*tTukwsm6Lc5-6d
zwr$(aiEZ1~Npkaj_jdPttDow6x@zyLUA6aryK2t0<{INSdZ_xP;(9gBf2B-v_jnP`
zL~MAq+&Xp%=iTdgg!aYNrv2dtsVUC|Kur`LcAgf1T~M#yyFoscEAn?&p!nt>c^?(^
zOtyir+L9|Pve$B(HCA2a6K9!f@w4D*Y_jm>h1sy(1r(C5&!ZQ-^`3XTckV9LL>IEn
zTTqp54T%|e8|9v+t9L$&aoZ<#{+Yt9e@lE0X8yos|JVr&(9NGM^3xp)b_ARFpx%1C
zugZh0N>l4dLzsWg6KPfQHH{~XA89@OEua4x_{)?i6cE5oue;o{h>4`)lTD#iK%Y6u
z!~xy=-JlJzz^AmkUb7OWM>VDwuNmHBBIg`oBWVa}#IeO<&hHIguxM?{MK(_ycuw%4
z=Is{)(3V;Um<KZk4)L*u8Q%4!S(6%lnQ-sYDv%w*vlRq)clkYKVd`!ZnWZRY4nzqk
z$3HQ?A$r|YP>{9_s*NS8BU{pxR#7iIhx9HSbK87<TR8EGokcQg(xe+9OHmJDitrK1
z^(1gaj<YtstjS`uka*bnw((+e_b-%r;zc{QnN<YOim9qP_$J!q&DZszl{b;KQ^xg`
z(#>56tK22wy6y<G+xl`?k*-)4*b=G1z8bN_Rc=GI-!C0%cI@*LtH1FCz+O(M)>UqZ
zJ;F@pOx7J|8?cWalEP58jMic2Ywcwqb>e_uI?7P5x(vEpt`kP;u-{o>lyUXjmMh`R
zm>ID0r}N6_s%uvB`Geq^Evq%sG%d;wfmeUTp$BA!I+db9_eTe%c)aUFu|7uyQ`tpC
zG=kRgfP1=%NKQ34%8*xcAz1bXN>_L_+tV{mHL_{4VHixLOh!$Mf%i6F$_eiyND>z1
zVUk_AmgX06BB;8SUH}1F$4QS=tK^8n$WM#?CNE^;=A=;1XkXCOKq$tB*{y>z*<kc@
z`c1ILpl|2<ec)h~=A4|YThZGGWl_^w(Chau;2&`Qo{QgXs17(f*S!AHt{|~|*DwGT
zKx-0k;s;ZoSKAQqlZ&EIsPijQz;yJtZ&g!(b(nvWr7%KRoCIbw?o+X>#I}O3`+SDb
zb5z}>|NL6p6abVUY36(w)BZGIs{x=1P+Flu|5{!*5&@n2?_z6y9(&o9g_)~t&*jWn
zC8sm4t-7Q-*Pu^>iOhs=P*G8P<o~_burV<IL$6`x{MUY)D~%1uAAOPcirTGWMmPdM
zq}9ivl*5QcX<|u*8J8rUd3XzJVWhC)_2Eq?2th=VMnnsyJl9p^RHUCy)|OKp^!zDV
z!Q4i_d}IHG(~mMSyf{U)@j?P{j*JN=Oli&<(Hlpu1ig?E0A^)lE-iD<uvf~paHi2M
zkiD@#6>u=!d<YJ>oV3rKMGv0Or(_ODuRD?=UP|1z9lwS+pF+_uwes|(-wqhdE8ip+
zz}s+0YCM+D!p7e6Rt^$KBw<cniYtpOmjXExq+8iDZL0&CHLI|*FC@~w6Ek|vz89~4
zFZp*)(GPjr>YMMmHI+EeJ(^!4^=^skjZlv=z<2`A0dhz)@QcgrT5VE?O}2*qz_~&6
zHz!-@Q5WAyNz~0NgX<s6xruj7(`k#LSI^#bv&kzm_2T4Ni2)KTM$J|ens^~RFd85k
zZoBaVkb%9S=21vHcH$_;{UG03?Jisejy}L({;<!hPYEJ(JQ5`>CS@hdKScx+73MHm
z_E+6+M(8`r@fF{-^tn!5ReP?zI&=(>ZB>JJ;Zhx&#>H;v3u<52uN-ptd|4m;m!lDO
zZD3+W(}m)v{ul=9%l6RHEOeYfyN<@Ye(B<jxdVEfYK~sDzy8c!bpSo<WNgy6ejs#s
zbZNe=tg)%jV5V(@Q2Dq+;59~J*ier%OD1wy&8P;aZ5S%^{!u|T%EK_FLZlY$3)80r
zf73vqMGv1Gw@yE?OUSt;k~ztSuw>*Po~VFNByjHc4?tXJ6oSWpS6Hg7H%udi0AUYe
z`mIcZigIC-09rqwumiT2vG{1&%SWnAgHE+hr5u0+tTNTM>UBn@Y+y|<q{6yRr)-gM
zwJ`Ny48`L#^g{THm6WRPv`XnJ!npbG4MoDhz96oc%|gwxpC2{XW}Qw*$g&5{rsc*Z
zrc{~%E~<h8Oot+UwO=z2-J&?MZF}ycaKlDzgX)cijn$Qe)*QJFqpvOFN`mbsEv2nJ
zX=#npaamhOx0v>jhL?h2(n779u0t+i8$nn}LB2$0LHXsy7Udl5fewW;{;<KC?G}zv
z76hf7N*G}AUq!q&oMIlwnPshN@9wyZE5fTD108pP{qg3#eGWlAOBxeS0NkZjX~w^S
zC@0=>T|#KysjNiX0Jo!5hm>h}8pI)IRB|*Ow~goG1SPZ(hK>Q|@(8>z^!V>=Xc4&J
zzelPV3~+@jNenU&#h{%Zbi4dVaipa=*gX5OwTdsMe`AzNCi<Aml_|1vFTv?Cgu5U{
zwh1ofRcs#sv;8Pz@x$yho9ymB8HI<l^ub)@I@>v5VV54QUD-Y!J~P1<DD1NCd}OGF
zlj>9!Zf3~%GsVnh+qd19Ky-Q}5vBkhAnnl`Xc3qU!Vn+`-}Mh4mi--LotJFsNS`Pn
z(pl3kyU-VKE^q>)Wrv;N2!F|9?B}Rb^<Xg$X$~u_W%z6|oVe3NGt4iE;noB9bq}BG
z$^hqCAi&oj>~9#TDYS-yqAXs8=m>7{$>5i1v3Y+@!n{H&p}zq19lZ$YWJM}2q<8S9
z(fz!NMxeSAfvCSkT5MugGYACceXI3nsJi7A0{??loR7ZXw?Sj1GKt<hozV)bmy`oC
z-2wzISE9_njr|KGAJ~3iJn4G43E<~BO8dc<Fo@d_wrwa=l-YrFlxH@UutorJ)V3OZ
ze_vZ^eR}As-&t_8!2+Z{@;Tc)N5iMA0DGERcEiI&`ld?grV4+B`v?E`QMNyW&($*R
z;~qPjT&iVe&j0sxmV^K7cZ5~eFf^_*U&l{BuDjQBSBIo`QeV3rSN}lvzt)TTL^t#w
zkQ1OF$7SMI?UPQQq<E-t&}jY3&b`a>{0}vpk?kL9I1|&qM!77h>)8ExCcR&3XA5DK
zX*}Kt9e+>klS#C~>70OKtn-=ICt%)+Q%zF7-?&js#28b@Xj*~3lZ2yq(9In2cBS%k
zM7le3zM3$(d*q9fa5!y-n>%7t8l^8w8V4JXh$LD(`ndD;U=1rx>>08~jKh^?dbHqq
zXLaFqWx(*kf*kM1hapYVgs5Mqp`dKh`~X((%_DkN5Y5&}=1%TsKm|CMk!l}KXZrDh
zb<+ngOvghsmNq2~8CzjYyC;`3JrvjLal?NkZVY(CAm*imVWDr<I@+}SI;C$MwDbFu
z-p8T6T?AVAq#%srv|_1+_f@NhldKd3d@`wfoSCMRh;0-<A<GIHc$$$aPk-5=>3{Vp
z%YNO^zmWQ?oSeIEkcMmk!V_1ATJTAKr<+-$P!ESDYUW~=Jgl)`Y#B>9a#))+x@k;K
zNHCGMekZl;l~SnAGm=`P44!GW&u%ebRFV^6s3I;GX;8K?uMOJT!V!`tLb5@ACD%FG
zxk;G0bq;QryJiw!&Vgmcg=oBv&XCHOT)$d7vb}v=Ric?wPs%PpH?h(H3d5eZnw|8n
zt9H=3GivGTHYt{-JB+3iTcj_1GKfQQZ;<Jv6I-RbEW$Sdvotf1%V4|A6Hg$QCuT6u
zx1fI%i+OP_C36jPB2Pa7RePCBdrRP!lb8P@S1OJ2Gp_u}jLUGK>rg5M&1*jc)r20-
zDj<6twnLWO!Kkg53M1v%#?oAqA`BqE(@o^)4C1!H48z?UM*fBAsd__zLB`k(01Xjx
zyRIP&<}Kz;><uOv%;}@RF*Ww%e|NJ7bUBJfi7Ut7mhgubSdOpt$!*F-I@FUdiq0|!
zcrosBT3v4-wo$?yNxlNrpdukkez0odbr3-)3~H$=nzX=nBEf*<qH~czq@7RYL(7xs
zr&x;T3T|SP)aD<9j0@f_t%;ni@5WgtPXXc#Ey;67!dE3ub`>Z~u#;eRl2B+q9&|W%
z+AW?@l2tnD8G%7>eDZARg06-?^ZM1CYC)edf7^y9>F+ikN_g>E?pRojEx3O1N+&TP
z;*+&S6z>a+BGc0vbnJL=bt}e-aBrE!+M0PJ%cw=GMJ&&pf5vew_}LdvG9R;TAv(jA
z2kKK)aTmBu)w-kXO)73K=hod^u{*2PT)dy9&n8F*kFS*<0O?!3&{@T3`|W|iE|`>Y
zv;b8sUM1Ojd+Tq-r-jyhU3nLI`?Q*M+&OY)8Q2{3GHeTV=QJo$1y(KqL=Ax?{6u8y
zwYV1-ALI%-{WLZ~``cfhU(}r%_C9K-0Af-t@>X%qC)W(VajC>{Q<f_?)HcZja0}eQ
zM@{shb20^(f}^m<d-{QfwxRHtpRDK7+yh%WW+IZ9C0I~bkF&Grjl}aga>J~uti%eV
z{uCiamU;U!IFN2|57R~{Wx|1JBna6N`l=X`LNJrAasNAsv<OD_CS)Vnwm=!~S~LMp
zAveBglsXz;Gwz(oaZK1ul8cU~=lM%8c+|W3HmzZ{O04?6#=Jq-p#~a&wu^dV32(5G
zBBA<}!ZiXqMg5_B*w&8w21PtY^5Bd;euvmHvbu%`x79|i-Cg31mA!rMST*0;m;$=Y
z)v3}ONDCAx-TUwxfHRomAHXN9EDZlq9RE+MBo4;^P$jYdYk~d$UzHS^1rCV;c<;9X
zM2kS8QN-FXCQK0krnCnh_vJmKy;V8(Ec<7%VGEUVdvI^>kG-ix{9;@H3Y<2OB(%z{
zG>{2&5oO$)8f-e0CbY(_Eajo<U1!KZP)o4VWB?2JG!{u~-+BN8L-L#w!wAQT0`-Vj
zxiUc-CxV6;xKboNAO_<yf~4Fi8c`6aH|qGQvL4<7tW}u%s27GKl>z7-oO$Ge_4vvN
zUj}l&xm+4mz}BHiT+|iHb37K)$4I?@)!;NJu5~twzLQ~EI_xh{D-$dAEk;x=q|rqK
zE|3;&^a6xcn5_KZ1PGQPZgqt}LYOTuXT<_HK-va_&QWMjI_i+a0#Z@J7LXhLW^ypo
zU`tBFj~RJZYObWtn^G7@`<<G1e|KSvXN=muO`Xa!z%iu9eW2{f4L`gJGuNolkY-
zfHAbJD_mR(Ei6?gu$|`Wl?_^8y9PI~k!<Wzg9WhM2!UZDEed7;h5Lygs`qEtFqisH
zOMbDP3;MrStb?UcHkLuAsH@6Y(y)kw$}>pJ>1+gJCRba@qEey^BvycWY7E_@C(BRU
z^!yS7FvT<#_5^vj__7&(eJ0A6iK0ni*c=m+Vj!Bvfll6f6=T7)1PO?Re*O|J<rMZW
zJV-K^J5@FVUqL4a8|?F5-#<04_d=7)1JCM2H+Xx0;qT+X3UZ9V-0taleLS1mpDVNz
zXig5(c_c_2Sr0}jUd=0oqre`8ay$1wM$=l!i7*d>?aUh|8qDX))1X<VD^cd`V15*k
zj`8WD7mQ`Uc(8XyNg2hfw_gmE91Rx2?cDd_dv3&^vB0sEG8q`$XoVKKzJEJA{+wL$
z;DDSwnTZ*^UpjyASfzbC&+S!vy?vfpGJHdstX)1a<4_;Oiad&3T07o<{5-dY2pF8T
ztAxkj;al^9Bkuv3Hu}R+%rSNw&#r!TMJclT8iRyayMisjgGto(>mH)VW^(m@bz=2=
zR@Z=IOoK*Gw~HI!=lk8^bH(t@*y-KCg^NMbE`^`oSA&l?e=pR@H&!+^%jhXE(aKuA
zKp6vBd`n)68f^1G@PK~szI3Wm*00@%qto3jWE`LUVvJGzeeTH}fi0{kb(H{MB!pvq
z3QUs^CsUGLLKiXAx)l2`Swi_ngFTpFIuPO{ZBxng^$L@VNMu{41TX1N8CD4zETfMS
zY=e==p%+1G`l^iW!qjoZhP%Xm2YLb)5DuI}3x(636F&5geHH82q8trnSGS9SO27X{
zp7CuIA5=hfx&?ZQRZLEPXPpFb%AqgTNODcEgGDRMK?CdzldZJaH8}JNO1J9_!J$T(
zvS>yNp-!Q8=ZRBlrHC+QYBk)nF2>1pmr&@FsI6%sxXHq9s*mq{6cmuPLTa8fD0hst
zGc$JQpAj9+7ieVkk0*k>mCC90T~?jhd4)mJ^8hGAkE?)Vny|=aVA2H&r>A3>ro0F%
zZ>7iqK}~d)L4Y>EXMuP~tBM_L<sK}F=fbJ0z=$O)!Qsag!Qqyqzj&QCqgZnz|9u_O
zSqdX!QN`+f0yEDFCx;-XQ;xnQv?op=tmto&_bP`J!@W#`D@_fVD#@~Ea?imMa_+Lo
zR^*%3C;b(uz#Ny!I3r{Jg^}@u9`doOV*pWTel<u``<|$SuFCozsf><BIfP%`QP*bc
z9y}LJOX+x#B+dG6Wrogn_P4ViMiqM^Vv}4gG!^=K5a}9e9`wnuBbl#}@t&@juOmvU
z9`$?xE#<VffOmBhLC7li!uUC%U<M^9g0i`1AK%1joF}pT#SYXhrOAcbmEYoH^2m+E
zrr4R)qV=x7B$_>dZ5u)pcZ1g3H<;IWo^0_@A+O+Elmai|$E6>UDMZxqA|6SLP1xId
zIVM2|LG_XiBjv=z7H=@fcvb4SOVZvwimFg<sCVt4AIS9Aze)u1tz>mtCJEWAj5jWw
zj7^K%#i>1~;d3W`T5Hqfl-<t3X*R$sK^k6}St-LDUYSSKJXN{YF6tvsg6ykS3B1Wq
zK=s1^c#p*ek%0P+zYFH-#7~;NBk&k_-s;Wo)%C6K`xR@S_o$xM%|YYAw~)!Vyz>(k
zVR+0tckj$w9brZR>W3(=Qef;|_Ocg0b?x1jIwd1Rc-8}^J+OVt#}iqM<g`au^`2rn
z@x)mLL8Ns)gfz<XAjTVNq78h%<oKC`@BIzRdbI-g4|@WpfAE_!G5(w^{7bQI^N*S$
zlMBsfruLRN$EB(OJ9YZkJO^fO$+V2MS$0b){16#rB?yz>?~J#n##Ryr1$=O~a{3mM
zBJY*fR*>scgToj)`RNpLJ310v#nd2M3GvB~_|b6uD4>b(ljxMpIkS_kH*21~EN=NX
z_W>ZYM%e?$zb0=V<IW!UJIGK;n~2ru9fW&H(aZAWxxH<LusrYHhe&5{g}sYIrSZ4g
z`wr$Mg~Q{%a@xd^8!6#|G6D8`_1Q8#_y86)!AK%;cOp_N9{9a}?m0IiDk>yK=bJX8
z$mhzlOoq!zJKA-5)fL<s47qLjvn2APc{uZJKbgl!%FkJ4VJ-)hH3hQDq8+WY2hp}F
z?O!`XM_8%>{$8UrZ)_<@5F~Rtnu(Lpe?t`;%Lvs+P|Ju(Dyw1P6C0!<!}zmM3qL
zJ`bQkKcRj1F;u2l=4y=&KLe-=Eq4Veg{n0d6(hM7TjpRDKqyg6+tNb@Aoi*z)OnGn
z!KT80eLI)?xt72Z_>ff7j%c9)a>90!EJRj_GgC(Ps&zDro#7XrP|-;g1`y;!3SF73
z9fW!h!_#j4R^Sy=v4g4;M;{$_LR6C?bN3823gN)WJuNRy#|!Tjm!Gky;+8DOx4bhT
zh|H0Z_GtMu&m>i8pFw}?W=vuO6$w`pAK#&-Yx2>56%)nK6i>Ik+=t`J#PBY{1=;$o
zUQ{$F&b6DjWNKA*mIqK<`@}aBDVrdwQU(4oS5+unyD0Tib{@aho&$~4WK9@N$%G8H
zPFCI4HnYH@W&o$vH#AMQd@Zfe-A3`0@UaPE*Vsbt^VR|mge2gXpdb}Y8-+OY0tl&1
z1mqj)&cBQ8LV5>4&Fe>h9nLp!$6$^CSI1lg+h-AX#ZVlU5J0K9$o%>+dWPRPEZ7&Y
z2559EF_SB@gWP!0_a`(d3&byv&Rmjr0GLlix*yWqSX9#gR+e=kR-EeX&MX;4I0@u6
zwQjD;9J0yX9O(4^{QdIr9D<d8;V+$3b4G5{M4JxT;!=kU1}RQS<#;5HqBsLOA%5Re
z@erQNyvWNFbF}QL5;itAR-*DRL2x!0flNrMS_5et>ShjE)+aba0IByH=Nf|rRQ`y4
z%dz1R_T;1p^eyUK)>ap!V(ztPKjXJFy9HRe6hEZ1NL$thL-EN7T2gAZWd}vkG^4tO
zRJFQU4Zdr%OjZo-SNvj=8ZA-lp+AjGiUP|9N=qy(X%&RYLOC1rgat09*dI~A*O!4F
z$<M)ga_!!1o6twpH~~W`ynn%P>CGKig|*WV{e;uSlYykNY*RABJ!L}u^vN~|%PRK@
z!erhDZE^XU@J>-c_->WJhRAvSwyW_}eNTx1m6&Vha-@_VlYp#NjdW`jew8p`G$=d+
z0O?QG8ci#&!VbC5z=8n;8Ux-1;l2uM3SrdTl;XeG2V*Auc5QPM!+7Y_J}Jd70q+kB
z2yV+`#o97Vx}N7)wtyf5?@#pv%umAe?@0(KOF^QXcf9xsfgfXQTNbl*>h8$V!?QZA
z?5eSqA%)Z`sDaP)EYb16JqRSU&<#oeaoxv}^l-`GKLx^;i3aDAL7#ju!o9r~+Hh9{
z6cQUgPUSQj3qkOa2r702v8eCB;k<;!*0yqMYOgtNJle-Ft8(^ecoCT8)L3ol95n!K
zG;)iLuj?t|uy*_Tth2R!TZX=bec`S1?A+8f>dkKdqb;nlxt^nDnQ!c=PdGm9(;uAS
zD#WKGXLdH&kl#;xlJFZN+!WK)LZ$KVL=~+$guTqwYdjdq?J5HQ`mW|j{gg}3yFFWX
zdrw<edUh?^!h?|)q}6m9Aahk;tGv2-`g?m@Pp>k&NoI1-*P8l{V$E|lsyqPg9(;Lj
zm3=ku-0}MJkoERu?I0W?9%TL(?kU3UNO4bip<F|{N#~UNDk~u|A8f2WEIf~&IkyV>
zyk(6%e8&is+Cc`~$~tRnuVLz@A$kkcbz=0@eB^IJ{T5t)0LolA%5H0h>aAH*uHKC8
zud1Vk*G!wgdq{A(f8<Dmn>etQBsKOlwOXg1wt7_`UM6F|`D&WHhfcRl^-`}k!duh)
z20xb%cnJ86*9AQpa^0Rzp@0M881jBUt`4&IRRS4=()$Su{C@sr=c+n+!Tx&*O$h0X
ziTZMHOx8;ePDx9k9E7ZOkUeOufY*tb<XTOmAWd7-0M=hx8=1AXoJLUQY=f~GrhkFV
z601k8@y*!*LzZNAx1VukDC;8#iu(k3x}FBZk*{u`SuBxF?I?5ja$zQaoak-GD%tm<
z;+?44j;#I?944Rx-;V5#!_R1ctPlW)s*8}$NCDl!f*g>5mMWA4fLc3xl1rQa4_f5L
ziY|p;q_^V7g|Je}R3)>wMZE3zh=Vp#KS4KB)!d)xtMm@y<8!>auvu|>{sVd`4BSI{
z!bQ`Tefqqka6*-G)S4eCxwcy6nqqKS2ERd+;zN!<WB$y>qQ`?p0C?ajcMgoyL)B{b
zQvOW#45{^G>qpJ@OGfrvf;|M<$k~O-8#Tutude22R9f~VUSMbB?u$eOrX1LoEJN!#
zIxUfAdfvf<QWDx%vjK9T5i)ze2cedajG&Ag$?2&Jrw2vIFOOr?D7+5(`_gIQRU|s=
z@b@KAb{+&&L7s!tA2w?2&CV$OG44n{M*5-^;xj-$Yp}^fgjZ&DCCLnoT5BLEQe7aP
z{`v`O5CUU#(i1v}$%%Au#hYqjJy=A3b^i8Ing3U0O%C<?yW}cUK06R`LLQ%0?Zj#R
z@6)UAm*n7Tln%iaDM_#bDYB1_?=z{^Pixn&Ok4KAor3+*{@S}pOwAJw4SL@wsI7N#
z4dl}A%dnmkU`qVR9;2Sv`5oc#=NE;FAb&DtK8y(|qvIFOZ~VR1O38m%(lGz$PX2$O
z;n*4f^^)f5f8|JV&?}ex<VdB<;U}y*WDlluS(-9Q;$c9hXk6G+OoV@2bOH!UC3%U&
zOv!M2BSHH0;jM1j{S3Yf!^A$aOFyRzPmqZ6Nb(^?J`W@)go_sA0p*e+-Um;G|60G~
zZ5(8cCTg^f%J67MU3Gnwe-|{a+<2V<T#FKiv5<oCGqMoksI#Ow^LZ7_A)NfbK~l9o
zM<DR|A`V_S;&$A=&gKZAY(oW=hL~a)$?<Fg=1Nkm7(e@C-H7u}@tJgs(*el@5{{)s
z!{_#mM5?bzxClpp)_y%i-=c(^*hUYBx({hi=7~mw&wICb+D!b*eJTR06Sm;1;K1K`
z5bOm!Up!N-NH01ow;WTAj}NOUCuYLjR|Rj8m&Bk34|%e>P&bPk_K?Vs22tXgkUU~F
zA3@|L&yeIY^g8=Gvna8WVj@JJx)~vr_21`H3*@!74B)#{`c}sr&FESfg}zAE_Uk5G
zBl4fpjMTpTA6l5Ie{3?~H!G02yMi;1MRR1uTM=n-;hea0Q@7J_L;DGo+beV5Jq;gj
zB^AB7Wg=Prm>%4bY96s|&4#c8wUU$WZHn-ggasfFi@Ww<ps#59@1rM~&$=jItskU5
z@7vh?P&{RYisF*L+G)|=oOL5S-bg`&kr3jU0x+QXT_G`v^^<m_6;&hbUrldLDTc-z
zEJoPr?ds6<5u8Fg$U$x;dS|v<ogG8wT(cjjoq|8Ue_u_~xbtPF+^|_6>!CfYr^sFa
zADpr(Vm|z?*7H>e?wjq%VrVXgdFsw6NxWr&4uM3!?~24^FisuSH3*wUKaChOxud`r
zo$@a<@$B(9GBFV}5X_(8xaqu800NL8GD+GvbuUKPET-A%b^K)v1>(0;KekjYCsB}g
zPsb`^B&3LfY<0E_zUIuJ3ln(bdaD_in60`=a_8gE@>0W`*AP-KK^A3>m_SchgiG2i
z#^FF8lWe(AKd(Q+KuBt~KxgKl82TI`Y0nx+)c}leX6TZ@NQ5w+9I1)PjpKh4z(_-F
zQQy}EEHl#EV#G-biA<{tA5<99>di~CoFBC1yJ<wljurcB=+t=XDuMLQj!>hs-mGR;
zAPY^$J`bSn&V4C=E=8NZ&d_m7m2HSf97)yxq(NInz<Y^KogP^EM_0>1uRRMv3>+dJ
z>5s3d0O&EKHUV#e`vR|fV?%@<V;;!-7#9aZ{p2zhobNgg=BQygj5)xpAltm{0$A+n
zczEdRYu~n0z>N4}Ke!%g6a%ItIq3kC0a3CMW)vz(I(UrYz9gPhu93zSwbHj`+S;D6
zT`RWGqc7!)6^P%FNE0t&<Y)u&<#_W+>hISKN!k%9%<0sJoe_%1=h2Oxv`u+=SY_?)
z$YNmYrWplA6+TNV1}Y07TDKGy;lft5HsG$2W@o_hoDae7sf|=DEQTn8AXeuofpw!b
zYDaO!*sC;2h7ua{uvWzAv3`VteKDFZ$yiD5pAuxLZlMHMqK73rk$k08``$9gy2Sf%
zXUIj-u=d!n3=t2u`=*BP>21c+Fzi(fK3X#7L%rPTpo?j^hMCP3F|6B`<YfdM&TC$f
z!F!nd;B0JnYxGOLit%;za-h*-55Z4cZR03vBug6gx*d-P{;iPF-I9J_c9&#ovNW_9
zbvcy}XXC7lLt{jnl<gc^#4;(7SkwQTv(1K+qlUpj51yzeGtlX`<cQs5|J^qc_-K=+
zqy6=;BA(Ce=PB3umcs7trjeqzmZQDTvXlLF`SL{fA(~s=2_Ju+=Bj`B(RiRUkLyZ5
zul#1ha2LdA>?o-Xp9FL+CQc{_j+2U?@I#}s!qMP4*%FMLWbN9X<#9)_<YZY7YIQr6
z4}#I9Ry?IEk?jK5o(6P}l*cp>d5Y`|+Atam*+#~&@`g&JR$Uq$2rAlZr#_=M2evn9
zq{dPKS^p{6WC+F2^u&2arnHB?#HrI$moy_@oOLBJ>nTZk{;kWr?*ffeo}o?b-WT}<
z5~|i?UNaRQ3tA(&$OrENQVE%A9r$Y(PM@}QkN_bf^I4nvPXoP2-8(oGUhfrt_c}LC
zV6x;=%=;=mpxxZ4w!yRY#^|a_;Ia+lMjyyr#Lk$tRl;pYvaqrK!g#_{83p$hB-gmU
z<cmj6<~K+Vb{X(h6)QIoaY)A1B?beo=9n_dFHE(oG>W+(%B7583cBRI64)$%ZSqbF
zA~(X|8kxhq{?K`f+@H@)u=e0jHvS$&q@ppxLJS1oYfBE3I1ss;C!}lezu{MrFR=eZ
z8)W?l-w`7-$G>lb8vm2Hx0ug`7{K1=>S=E|dcaX#8k3POmjG-d#Pnl%rJN}LX@l-@
zXrvkqI2z1nhlUCSep{c<ceLg>u*5jHZn{t0^m@=ph*3ycab^5rB*IeS84M&Qi!%lA
zceSD9TX;q^c=8>*6$jRAObgegUzyX2y-o{+_DC@j-H7D>B@T??#^>9k2voBpiV9Mm
zLvOXmaR`q$zU7G6cKJHp&4Uit*D1Ktqb+pAXeOVIZB=hCOIE_6q^eeR<uVt5kO~Tu
zLWa#L3Kfn$rw|Me8U*YTAshw?TL1uhxFrn2QSWTB1HJuk&7UhWt02_h%A)^L{OvbU
z$#U^=J{sId;<~5td|Voipq!9R@frF9!eNZf{O$)Cvbg_iyMh8KBY-20^DB1ziXvAP
z4M`9g9uhjv`8Nq4Wd})*huw<0LWyflK>7SCdF0WTfFYJ{LiZ6^X_!;<&SoCcdFG~;
zEkl&M(x{-?7zeGl<1H7`t&g@eM_OC#?WiQsJPVS{5-DM|DZ;Wg`<!q35&7^`dHZj*
zWDmwB2mFM?U_Af@NN|-`n{cym(=xD3KiMjl;X|T128DJqEU0&K*cqA&*=8ULW39V|
z!rqi%CISh<SGph|dV+opt<xLuUR=<^NM~!^SM@go;|K$n=3Xg3!8hI^X&uNq5upWF
z(lR&N7<xTsB<1{P7=W?zB_kYAw1E9cjDP@YdoOc7!vW~B5}67P+DnRquChO~Nj~>%
zxKjfkf}EHisO7nB*Gx#6ow-#~vjk@z<4Kev0Hl}2Ldy6VfFe(lip@0kVl%9&-JV9V
zLJa+<EibiEFCY4<+Ny6w5JV1@<j7$V_i;m_f)PZ=@6@ea&=NA;7~r5os=ChpDOMaA
zhYxY;E<7Zzp*!|AE18`&$BdeFiOpDJc!1oXd-|nfNRIvGcPA{k8L)V^*s_Ee^|pne
za7{r}ni#7>Oy2`b@E@Bp+aU$>8C`5{lNWtoAI_Dmz=;q@P|E&j((@zG3JWWoIPS?*
znjiUR1?1=iG9$j3lN0ibi*?!vp(Z)3{9m%)<3FWF-B|#;O&4L4_=lB(XFjGld$8oa
zv$XrpBu_6!NOb?_HErBRV99`)virW$iZyW-fi&K4dl7A&)g;m1zD1esWYC`!L3Sv+
zSfng-)NV!>w`&UkJRav7zbYEs-4~iAgC>|pfem^y)^dLodS^cbZ>H#|SjWYrf&6W}
zWcPrTn<BtXh;QS$e*BDHtpvtWWg7_3%py6Y_07C#0Ki<a5f*d0A2mpT528q;?Kms*
z%v!mc6{9uLqmxTD!%`J(fi)XYk|RM|L>oBsE#!H8PRy?msbEV3X!@SU+tt|zZx_#<
zWkya-kX8H_$ZI%*)(BEibB7rfUfTJpax5VwCVZ7uD-o3x0?YbK)m~@q6wlGim0yV_
z&`PJ9dBr!bFzfM6Ouo-wImH=a#VBYBJWp~IlbL;<H#Q1Oc$}rO6jKe0l3zD5<NAC%
ztwwcp<%wT{NP*lX?JlSWcGfMT?Z0_46(IqsR^?Xz<cNa$#!a0=os(a9S`!cZ4v&em
zt+W_+wRfhgd$T`yf&DT}Q1xJZT*x)(yBk97sqLs<yGcr;+sf9B6<7zugVAzx)w43D
ziwGbSMt+)&p1Lsyr#;!7ee3AnSB9#Nw7f2-_1jbb)^SB@u$2xm$;3!OIx29bcM}M`
zP;;_oOXnnd^Fj3DOCd#oi@FIizETWIv<on9y+!)H&pHcTZM4dGfaKC}d_TIP^QHMi
zPbCwHvU$MgI}x?#-rMy$n`i)##^8Yp;eeJa8ZY=cjU1m1&H9Jp&Hhg~FJ@-8e>;}_
z4_vB*>3`u;1%6jlt|kuslGkbe;Q&en885RO#U<fBt+?IgiOe@xk2`WNoQ0G4d3#50
z!Rwz+b<c8RXGMYE$Z<Z~hZ$4Uv*&owAcZ}wBBvEl+>eyMtbKbt5@IMxeP)U>kPOJD
zwpRqy9>fN|9Q3yWg6ZUkc5{dTiHJ}j4i9B+!|?gScB35gc@pj`UT$S3v+I+HAO^2&
ze%Rbz5IA24*|eIE(w1_^fS#5tS4*qVKCHjaNeHnRXwf`|fXGPOl9pJoDK*Mlx@6EJ
z5x-q0g|+zQN$g@A{&`ngnrtYuzQqa#XGHdcj9iWMh$4Y_4k%Ho3M>g5%1o1u(%AqJ
z4|A|^9#&UJ_i1<c^{~JlGkqWb8!2Cg-ZTP5JkB}i8ItA@mM(M&1eUHcgdmIv6_OSD
zm0lsJg7OjWBl4As-~>QIeeC**hL_(v2Gx2=H=a7tGd(dJjVg87=OR#FtIDs=(r*4+
zh{F#*5=_qTTllUT)|Wbj4sB3u@pxvKp+^ZVVyz)<d9A=+jGHr-V?h5)F|+d*pIY;z
zo8jEGKJZ{`2?#(Y0A4e0Cp5<kuGl(v<eb=Ovu>rTzy4RtV)MWVj1rn;BG<Ie=cg{I
z(^C8e{|5#_fnI0kj&UOLcHp7(*x>ZyX|=Z={5I*)V82zfqwtv_=XkQWuaPTM*$}_$
z-{3xmB4nI^DgQe%*23&gKd7>F7pfH-b4Ea``0vsTuD^oOlc?}F_f-|qy`HAJrf2U5
zwTHh|y)i6aW~W;iokKzu;+5N`%=A|WxA=hovGe{Q1;$YBDzE7z_Lmq|IL{?5zg>L>
zD-IC^A{r|pJvV#}5TS?<oJNF4o?rgmKP-Lt@mC=Re#zqE)qD=XtpZ28oC(nmb)fwb
z@2;B(r=)5vP?F?as;p7=RLF5A#M{+KC@HR>%8VYaQt5Z@9)DW=Os2|~*cvO5yt4e{
zn|z=Z1WZm!@Axt7dlx`5gcDID5auf|JK8lEg}U^dB;tn3QW{|61YS1Pv`KEEHCSnu
z;yRB@J`%9#5aiRWJh@O1j>I5{OQ{*>b5(Ib`hlo5Tb{!8Ofbzkx1KxhY3^&*dPG4p
zVp#vm=MB&D^FN2AYD&m9^}#@Xmbu=BFCQ$D4n>CT1{H<36nON@zC^@#S%VJ2YVaP9
z?L~WQR&Zzh30@FA0!tN5o`O#92(K)1&f=I$**-_;lQtm06C!mW``vR?k+!0ywT5h%
zZ)o?m=t6bW+m}0ioAY<g<wfEzB_iQsA(H!J@Z)%RzF~C)Ll?aFz*X?$ta}7+r+OFM
zZ`;ZF!*QR-Ftg58r-IM5ZI;szxiw*~Vk<5avWZnUYUyMgr0nWC-U04bAlJevPhH!K
zV1$!vvQf?gWw!^2U_y^O+2{1Bzi)?f#!*BH4ls@@9cd)B_KB#mo5rz|YwA!agS1t?
zsa{|f>;>ZbS2<I>H?_Z!UA@L+lY6gapE!&^QH0%&wlDJzgy|Z;6CH#{)W5$1eH>xf
zmOIi=LK_%A=^N@vXxT#Gg|(3~u|j85#b>FtZ~^(S*+SGNod`}=)n_!>*rYNj4Eo<4
zu`?&H7zP{<CRoOu8hLj=#k4e4L(W->n`8Uy{(R}?kjb`I*d~?}|6MD%)M=+JKC|3*
z8S=CFkk3M98_jb?nQq<O^os!axTdM+Bxs&Nip7ujqli*g-J}zg-ikKgkau@i=$PSm
z|Cq`4uwN;nA*%Mh#*v#|bm7E$ru~L}{~l}mheG^M+-hdV|IcFcFWmdd@sqX#3<#nx
zUlAH)(0^8u`5TIZp{Savrr_!&B+C?lQEOHIdXqCI39LDrOy+REY+?qv3AiJ4%Q%CJ
z`3t2RRuE(clAiIni_U9~L8Xbfy$rSqi_G0KUz_8jepGCZELfAgr>jE`XCo|1hLw{P
z8?>M#QVR9!5eryU1>Tg{Lxzi5gx8{WMWFkOqggZ0!IGWuw3Yy{(zSkAt|(*$Wr1u^
z1;v=2EP@PIsl%vUjNZ?3Ujq5M<#}uEN_rlt|777!Z22^<hnzmae32}h7Xz7P$!NGH
zrzw4BrWLuK^vU)~o9W0$OP}k?y#d@lZsNxVej4iLN<Jb!{GA-UyBkXxT^H4>uUG6T
zyKk*XLN{u!CmD5r%*74PCdosR3}0exF!0*1Buu|;!7@}@ndVQy3#a>sKf%fV9|E2K
z5sk~t`tKF!n$n3IY)CybwY%|B8V~{iUY9v!cpK?e2UBG0$}I^v97y7Z!9*qr_r_nJ
zu7!YnBw~g2Dh_b%VFVD)>^(j}2rtWcFWcJQ&28`Z&1gBhG<)H<XfHWXMkOwX!$J)V
zk7(34X5U9sSJrgJkF87Actc;7dd5?iE5qz+wP<QLwIH+mKMLn*!!)FaAW1~`$*ZNA
zUPn97ot`_61%pH0w0JH30S$_L4R?O+&yxr(hgSs}NJC086^uOf6jzjC0j&h}2n)7M
ztEta#HVs&$koepdo9vw{E$ZCD*P{ypyqbjH4+4P_0Tenj`YN9?>Q<+vE@II(%O#af
zvS&6s#?+S0sJv<#jX~*tGKU+K_@<h`{yg2(IPDcJ#&`LjIr@psbx_5?-$&MTUIAEO
zhq9Te7v9^}IN{vDKFbAl@UMw`K~+VNy;E`D#B|uH;O7fe`A5Zt#ghEAQ%Fg@xsbh#
zB9<S;*x^i+N8ivC8TqfEVlT!?!V+)@0O_iWsi`bwTYXhg>!RyTk1pZ+cJn%!OI3;L
zjEEY+aYBJ{z*l;03Zx0cD|<=-3Vtvm+f8bfT~n1zv?U{s2&6Vwsa%C(8f$n6=)1rU
zt|@tbKj%7d!QMq|Z9s*~K#%(v$b~=a-1I30$o2C+KU9idD(D~<0ARrmeJXtv5C0OO
zt(OsH{lm^GZ;ywJb#r=s%A%CMZ!V|9by?GK+RBdUjO_Zs33Cjt==g!UCJJjKb7+n}
zKf@l51Td7prq<pAIXDDm3v_Hn%WXc)DV%j!KlBL8o)AUF053~R*e2S-wp=+q_7HFu
zB~Jv`L(@g06zG{ySvfMXS`VvSTc3qPtKEAbUF7Sr<TEzx7Yw!EoACy*{HPl3w(K=C
zeKsJOewE|fH;s<rL?hvPTL;Wws3t9n3!yeD8+e*(^)pd+0TaSGdEIjy0H8G0YKBpL
zag>TOeR#kiaSd{k^uo^Zv)%RTlRaCHn@<2Lr;K&|P8wzw+%`yTMG~X8J&yhUrvbDu
z%_cU*W0V9Gh6Yt-`8bV#V5t}0;##q-<QM0f2*zEll>i|fBSGf!<MTp9(IgOlOGKlV
z<)DQi<`)R!`k?f?Fu5kuxk{jO+e5TNKI4qTWUHEzsBpRYUlT&4b@gpo6JXBi2K34S
zchgmH!`L%%-I{ojGdtJ7M0+J;UfaZE%v_#K`{sAs5lku|>%38vOXJm(#B?)Aq$!AN
z=#V+2E|EeP@Reth@J)9pL4e&MnGe$_vPJfKeB9L5>}a-c37tBe?o8~kuKB1;+1X)q
z_hRNVvinT|2RoiI+Ja-&wTQLbJp()uKP_v_VdECR_<yb=@I<+03-Vc0EuM&kG2bbQ
z#-TiOV`pBp<kw_5CssFN0fis0gVUZ-*+fg(2Q_PO$Gu0TsDQAge_nTlSa2^Rf<og6
zyMV=D4l_~v`2%88r#{Zg<k=X4_}G^iQUJ^y47uu|ike6vF_8!ushJHb05i~5Hdu@!
zt{>xr7pH>}Bht*RD|-s|4Nw4~K}L$s2f7=l3xUui#Fyq99{q$Z|6xEhn#5s7B{GJJ
zLXA*Hvl7*|t3h9h{Pupa3~<3<!URt>fGws4@5QX|@oq)f8;4Q_l@SvBW6=e1;^wiT
zqB~NdkbO}&a82^;L}-XcPRL^Ke~$Cm4B)K;=0#9k&{*FKU<Cf@$4EdQX!di@gmf*^
zgbhv#z&E*j@ja*NU-jWP_<TMe%;As7MRBsNyVg4?$LeZhG7#_en<N1?5z)=4j*zNz
zo4{xUG6_Awm;{~I7Qo;!sE_~G+oDNfGl~PGs%)l^Ds+C@ocxGknv@<&c)4H#9z#r^
zYLJCKbSe-s96cUm#OJi5=yIQdG5Qy+vIo+at@_Bd#k2$TO{G=Mp~JVr;o*pK28RGT
zwKto$FI)-t_de6><0;^NL$mxQ@&MHBn@LjJPg-%lEUW<_zZaH4VZOW(1xt4K?B*#!
zRC5^j-eJAYrFw^Lfm?8JQrAuob@k(^yXi35Q*($w6q*2Y$PcGkw|zP3`6u<(&>3Nw
zys>~|j6Yr04#EYY2%iJ2_)j}sd9EvOgw?U!y%Y}jaHf&IF^58SVA#MTga-z*m50Yo
z4$>(k*;A{;;MdqAN>JZDH7$$D^T1TI@E*-}rw<8o{6%ZGi1?3do;KMpA4YybAy~R2
zF-PE=<vlDLJBa}q!m`W<!|73d+exRF)zfMx_IorjTza+VPAepsd3z;ucvvW(g=@jN
z`{+(&`?mY}!7=H7P*>4J1|8biRPSL>zr*e-cis$aShvTQ>8n<je$ml$ERsvX!5&i>
zf<wiY3(H$hC7gzbRU5k_)Q?^l5#9+z32G`PMX|LY3zoD}b6pG~$i@S>y&&-XNpVdh
z%<bdZWxRAQWIR3$oB{akT+^?WG>~<ftEdylDTi!Can8PVS-!rot$h&*N(v1P@Xd+?
zkcCtiEbw0f_2z?udr;KfR%5n*^t>1v)E1$vSl<vVKZF1MocKl=2S6G-a<<>Wdqv>H
z9tl+OK6GikhU*B(0cN{;LZ<EA>&SxL5tWyG@Y@66?=ML*fREIBc?qVv`B)joI<zt&
z>l??!Wu0Tj(6$5TMZW8XEk(Qd<Xl?Oy*aqmiye*g8yXkY6eP&)w1`M!%A(?;*FPFk
zu5O9DqcZ^B&T7(z>7AYBQGxZtoH>tg9EItBInXfxbC}SOb_qId8|BBV1&N|aj>E%&
zu)!tSBsdKCu@=p=ys&NA%fLwot%M**pn1X@(Cc2uwW-xT!D@K7doh?qXSg%FhSrPS
z1B=^GA+g0stRIQ?uwSiX%*L#`+LhLi`$+&(2;|<mBRZR@n2|5{{5sS7Ypy+I!^bvB
zjY_*&YZgcaR?}h$RZ&Mn=c}c=DI&Q8?cHQ9vTP@$+>Ai~;EQi`mB!SSc5xy=N-s*9
zrQ{oGOF%eeiROQin1w`yP%6O9&*$qrx32KZ+DGR{A>Em@jW7lwupYl(zi+7h0vtO2
zegJBKK`O~Z!3G6SZ2kTVwG6^ir-W{>_<DaxTmYJa<s0lGvv_>4B=eb1K45vv`F)cA
zeNz_xePh06mJ=ALyZhHSMtuJt(2eYj|A}t=pGT`K{}*d8EvI!c6rU3{^G)<Q#>{TL
zjI%&w?iyx`^%555Y!Y}Th$>8k7zEpOy`9E&9YR1x1S7KS<KaH3&J&+$w`nZ#0|@cd
zY_relMDzd=5aK}C@b^LqrXuJ6ww!+&Jkt62_$*y9j_jXRZ4`3h(UF~XedK>PIL+O7
zT_SKmij!CmfiVgd_BTCT1IL8io|**3$5FjkdOBeJ_ej|V>2v$7I*^yXZ5$am2ZBjx
zmQ-HKf+K^ogaauo-&P(1C%5#5anA!vTMCu@S$M?cz5Ef{M8kL`lIgRb3HJW{cufRR
zBne=CsXfrZH790zq5*!RI?BJAoW9KVyd0hFnL;q2bL%s6vD~t04BUiml2>$dzD__S
zZU#}ixRAmyxuv2tRClqR*vQ0$XUq~kpvpYhLu~yIb1=xBVl3dph|~8d4`yk#cV%v6
zfdZ7Ci!`VPTonYBW<d8S5Ieqhc5cVb)4q<<Vq~BOAN<WWN$|(BcaF@$l1?H^ubaFF
zbkg`jiVOjdeWjnpEy0u}wRZN7m0by<3d?GKOn8KaRiGkcCR^0N{svL^q-o^O=uLtQ
zxm9<X2N#=VcvXBR)8z=MzyFaZt}D~{;oc*j%*2zvP}+=hD?TnrA=O}^Z7ifyp}Z$V
zw$V^6U40?*TawS@p<6`L<>L8_*AylVZ8JlnuKHzcqWQV*YNG~>7)`^G_iio=cA*P8
zz4njwWASjgma9^2co=9w7Avm_t(p>9d>>0f0#VhNWs9-c%31>9v~f0#&VcPG0rMCG
ztQlgFU_`|EQKeo^cK3Rc{I2ZG8pNxeY5bkBYqm_wVLWQ^FPZof8}AK)E#WP*WK&*F
z@ouhs@fOXE>;)n?Oau7!TJ&GiKXH9l<!YnWhmQ^`s7!KXk#W{`ks7HLuXNb1lG=Cd
zkK=q44KQcEYEL!^d0kt=etNVYjek5!k^MGc4nW2i))gzk7c}<Nz+8b3$Bh+kG$T5T
zUF`!&2=#vlGLXl_M#_℞pl*IaJF1O#;(p$|XwN{FM9DSc)CynH<F)j1r<U_&Yga
zK09k4j#IV0{O80c2WH_dZ_L(4kiT321cWJwQiSsF(!6Qc^FXG__~zF!7z!yt38@+z
z{i;c98jfXn1Pd0c{Q{xJ+UFE&Ou5kfEU=SyF*gH=F^6Pvb0L`oU>Ay?RvFWD#*WFG
zegg)Wl|OY}W@2GlI7CsJr*nQZ5EIZCU`q*JJwZ?m5m5_%tf3kq`zk7R*e~2X<J38K
z%<0M2aIuI4G^PL~cnjqrG<YV9#`G}WlEb8t2PR5dG-3egTs&ciO#x0Y+t?xwTaf*H
zPAv6q4V11L&WZSdA*6f#B@T0(-VgnykOO=jGHcT=*i%rWvA?Y2zx$xOqRUkAx|-zk
zu0h(jY1ribz=SigzF6b|^hKV&WU9ndd8GnuG^s!k>gd?>TO8cOHthqH;1jTwVh}^)
zu@%6FD`;D*{jqncUI~-lLnYuKvHAb(M-h7xL^7NAKSd1VenHmhjlULcBpynP3t{$M
zAF2ljSwZ0C$7)KnDUTt%y#fFlq6Ah_`DLV4qd*8oOFL98$-O`<)MqQwl!C@q!vY%6
zjMwiXq0gc_Z8<tu!e?G&z5_s9b?Q|{YuenV&=zVcFZfr?Cs=~+7oP83AvKA)LIRcg
zK0OS3A{h)l4;Sr=a$0w4L8+%k2!56>HVu1jkoGODVNZVNs@2lRnn_P1j@+B~Pog4)
z;IX@7isnrlfzY$*tBuVd*}IS$3fO9|)L&%svUA)Xh~89{PMNmc_Ub^Jal1lW=KZea
zYA>1W>2SA!uXi7NkKQ@jMI64n^9l!QV%j(F0g-K5r0#iq+q3&k1y5D6+VBfz5ZlS)
z`s6;fJhv}3?;e{!r?-(9tn#8=r9!Kcj83Uzu6y0XS)S8YZv7I5{kv`Ql+W7h^|VLy
z_A7mmgZ8AFQPJseUKxVNp19023Fr6&2gR`ag&ON_1<Jh&@w<uf;G1przb-qN=kmoc
zY?rwH9^Oc-Pk#JMd3cVs(70@sC0_tIu1%J!lloxDr#}8qDe_N2n97BsKYm9V*Nv*X
zO%ju$@!)_N$wN$V++7Y>SY?rOB~S}x-+M%UfToI*_w;OflP5JJ!iMsrsNWm4$FKk}
z&3ya46RkQ^AJKZMJ7*^l*KVvgu!uBlaB^)ssNEbApKMw+r-FT>6+1^et(mn~f)LQc
z)nJ0E`qT0c*y1bLJu_^JAF#I?f)OSke;>j>%#iUA%f_@-b;$)hWY(#{Bxb)nBkNTr
zzJYc;KmVaavN8SVl;ZznBVy<LUp69Erhh%yAJ!PR#bHP2o>99^)8?oOra?l0araLE
zfYe{*BSG}KWrB#p$Pj?u{p+pUT#_8WC`Gl*!3Sad(pBSG6)jp(UzC8gA`*<OAzhS~
zNqUZZqh&}Km9>g;AOWR4*r|C-lT`sko^Zaag6z9;tM=={Bm<j;rQUdo;dybgk3*@}
zy_WRJ|3%7Tx0bSW?yfrG0kg6sB7AS$lZYrZ0FQMvfEpb<kcPS_0P@bho;aQ(R+GVj
zD7lUStTRHz@}d&#Ng2|rTtTrikgy#UT)4r?7RG<-N`dhVL?*CL&>a|zB}**OB4VQe
zlFYJl86^>rvziPHUPfQ6)g}-&4f4`jKR{mVqOPvCU@!U=N+8ulpuwQPR*_idk7{0A
z8xsk3k}8EYDv*}Hv3qFrC-v#Mt<!7VZzu8phq7}FuC(hGZJczHj&0lSc*pA4>Daby
z+qP}HW81cE-F&yssf+X0J>RX`KUS?@PwicMu4k?}=NKT|!`^;XzDjIMybvZ1;_`~h
zmo${Phk?+9Ey-<qdY7WoyBXN)1m_YT<i0hF8X$((y~*;Lr7#t$R@l#_t(k9Pv)~x2
zLJ%SB6~9Aks(Qs&XyLO<VWDu+8p{0L<(H&FAXozk0q7Rne1s5Oloh%uJ<Jf<C)YJN
zK=5E8u|wn@hTzB|_gG$4Ah*g0WvCGB&lPUx7<grl$#Vz;^2#Er;*4FRz(nX!ZToH4
z(-`s-`M!uGhk%i7Jr+`sgtl6+MJDIOxFeq-bKLU${Ds$rY;TL%*O&Ayw(^I$i<5!F
z``vY6LU`?pMS8ZQwXu5V^gGIvA{9Q%O>dVwgEz`dl#Y^oqoDY9`OCcr=(tG&ko!?E
z?|YNkTbj%U%4Y3?hpFy&Xj4qQGmBOtQyF?bFAq<8MI19vei<l<93d3{FhfDq7GRzr
z)Y%z1b$s_UqJrY+D8xWdc44AL*QijmRD1*@m7+Vy=E-+P95zf6z{u;%%Hzh^gfOS?
zPBw1wL-|B;xI?A)3bFj9TLIrZvHlbRv9rPG2i;1)dTI?6V+2ot@a=)G5WH@yp-c@%
zlkt2fLW25Z8CD<K1e$<e{z%YY7+rV3{6K`PZVervwebLt#Y$<y-`_6q&IHgZ)tVzO
zT(e60gam^l9F~;hS=(z+Ub}7RJE0yy|8ru%Z#qftUVpi2xG}|bgkuRWVNK%kiLipm
zn}!0N>~4c3z>q|CzT>ZR|4tTFhqmI=*tM2pms-Hn*j<15b>bzq(sS4<XxVi~P*0Z&
zs9Pg_RGe!m1U-MHvD)Y~xQV%%nUvYW`EM7nvJ53!utYzWF!2F8MN$$}+COAJ)qsq_
z6TVr(5++0vk^GGd+#+ISdTLFIIF|y22{eqQ=O>$j@-xatsL+N7o~bVR?3^ZC0r@=_
zLM*O2L}`O-xt{0ia6e5<02M@*?(n*{cq0vp66iGxu<h<rR)#XSDSucSwj?!1L6igP
z@EeI$MMM?-*z~VNtjJ%x+0ULXFd#QEUpIWtzi0{EyK!SQ`?>mm9$Oi!LJdu^FZI*1
zoJR$UeBi)T;%8@B5#ErvQrb&+rFCPOvfo-IY`7R^X~2^IDt{OoYet{Di^iAs)~?L9
znA)_SBqKX`czt_-KPx6@;o*34R%Ic^7W$9?X2p67%_&C1As%>hFYV#Uig;(L>|X0y
zC387WzZ+{ldVcPIWHBFPyRTfkA+P{r^}O$1F*!-y*<?s}5@Q=JQD%4=FG@;djIQ^c
zf*&$^L_zOGQ>*3~08`%RiYqo^t1s@e=nDCdg_Y~**tE$Ftph%nb@<c9EsYLpF}Yrt
zt}s*6AcAto4bu<Z8CT<^eocJbI$@^WwTDF~o+;xcjqV-?2`_I~)={hZ4OM4-E|X46
zuc|Ar%8d5;(*Bf7Kihz#Pj7NYX^6Rv4=ISnJ5P%7!y0iZj<aZ|36XE~HU~BrN&1T1
z`j2AyG~9t>oz_zoyLr~s%=~{nTmJV$elM(kL8Fd*RU@3kTMK;Mh<N^>q6md44g)vA
z4e}R&RR{0%Mo?#_#nDL4fp(``Pp1PQW?C?o2Jrfkg3+>B<}Xcm10jFqX#UsBaCVk|
zO2n91|AQ+0-!t+r)HVJ!%Kr^PozB<%OLIlkT-+e-hXPn?-1N!4@Yfru0@9E${AKxc
z=1d_UMM7P>Zem&UGQwnfyFT@FLb9ykvfPf*kph>M4YP|F!Ls-_eUgU`6{+tDMORG1
z8q4h}n4Ua2pHbhUMM6}+ENI6Fvr-hlxEjKEuJ;Jox4lM`8=n|l6lF04@pMAj{|Ubq
zy>F8mo|w?{O7dn56{=T^$>opR6+}0DjRNG-e4kPyiZBYylnR*m#e7=e%|U@|KKJu`
zM%gK45yAtd#ll2OMn(!GZ-(*7C>{9Y9$C26o<n`pTD?wd!<p;pJ_c8PAoKIZKvb5H
z&0i9F;Z3?d$4{nkKW;Z!Iq}%VHg3mRxs(8?mxEkkv|vq=R8b{7iTWz1+A=k7NbS9c
zUZdPW>ocT5DRUB!!^lt}DchqS0xpU{?<f>7=5YTrLjytdU^yngf{8u&lxqsE+Ofr3
zT;^K-gnF~V^MYUJ#JLGalD=Ss6Wqq?mUkJ1llyEF8nbD3__|bK?NSpc^7K_+?zV1*
z3+BtGDj&Zfu`lD2;nBzLIc<Jm@4KRDTi=>Q&rueMA!<6iAywpodU&a~EREFfPW*i9
zv%D(#G1<L=L-c%Zj%O%tYKO636?TXC5WHoTqw>-}{CWtA)<V0ju5{PNvnfS{--ew(
zeDof>GZ<o{wockoBS2m}H+Q0KJ*iGYU1Bp6ZxV^9?4@~sa7Gzh847W+X#7Aovx<aA
zhf0>C$Z|0NL?%^wT-CLQA;i2HZW2X0+g_#LFyW{O+%Pgr8{=%CP3RNPLG~b_Dlm7d
z1y#*Xt>C`|&M8_&U0|R7+DuFs+-rwiDH$R8+jBiC<Rmgzu&*w8KRd6VQ%nPQh#ivR
zYp^71ut{9wpcVL!xe$`&n`3RQM15UtJ97B#cxLYJL`+#6zXpT`*;I3qTw6hRpIf`%
z$;7@SSdoD}{oxeB*o9Xagrq$Pf6U#6SHb43&^`k@32L|Y3g*GPEIOaUsd1GSd?bPx
zw%mFUQupsnv$V-x{G+~W8M)Six~+;CNrdUvacX$Q;u?)0JqWhde~SpRmCfA|56;w`
z6g@Q`pe>dw^cSfu<?OP2&zW@qL6)^;s!~9AV2C=kAUSp~4?~=)^S*g6t#h9xt`%=T
zK_G65@(zFMOI!Ba2;X&R(olqIWE76Hy<Zd))XPl4zOu?x=H#WDPwiswwP>3s`HX<M
zAe2B;3EuI^ZxAnhtSG8roFyCwo~E^XkbYe$Ixi6S30@R|uVey}g5dMLe!NuB4;y;|
zJ~Mwp^qp3agx~&7N=VxZrZg05YO<~^<s!^UTSo-hLi7_ifG*1+f>@*dR?~_BRt$8L
zcRc+OYoKFjN4RQ%pmnOmz~jkhaAc1?TBE^R{CR48(*6dk@gHZ@R4M6Az>rOa!P4rt
zlUIAeEm~WCHrH%+46-djKSNS;U!Y5a>+cu}wDYfP;ufXnWuqqtU%UfR7hrNR1rQ6m
zFu?-LV{I0`>OvjT(e2w}JURsHM(7qKY>hFDuago6a>DhyAzlROvd$c-JV`mY;RQYD
z^8bQ8J8rkbSPV8{hc$1LzTIP}=#1*eXM{Zy=<jj5DS1hG?RrW1SQSaGovFcASwu+-
z+)UNJI2ygoG4y}GL9Unn^U_Xcq)B|T=}cgl4OhJRdI&i_)h4^Y2X!G9ll?6$j3WRE
z*?<I)k<pxU0N$ddrrq{_Y>=B|0*u~*)6zsQQ_CAa*bzJ!oQC;8QC;ExB=Vc@*8zDu
zC*}r?JK7I^!?J*P6e<k=DLVf{>m?J@e=^_y`{+EO{@r>xjQDL@%3(uiFpN6-7+%Cf
zQ7cazi^UC-AU${hCL@H_K*<5xU)|Ks&Vq#U0~4Q-%(aUR>IcYlznwwYvV_|>I6gkz
ztej<oheC-!U?W9d5s$>o#*)E`V@4Lw3_b5oJm?H#gyV<z#+<seWfU)L&pltP96X<Q
z8-r2ogv`V1{Y%BSe{;S^j`Mq`yctnMpzJuD>lx!;7iBdWqRqx%-2J}j9h2V|WgL2c
zW`oEJSz?T`D5FTQU;}$@lv02D@|Ets8S<(b2!DT-C!L?Er;fn3ECnFCW!$+pg32pH
zFKsSPf`8+Q@OuV{Ms95iT6=L-QM}yKKEr-Y_3MXjjnC14-U-SXdCwOdevYM?a%9SU
zB$1Qts<mBXt9fZBM2B|LuWO-2KL{!dQA00_+w2L8cN;AbjTzenVL5}BgxF(cvvYYV
zc{H_!drOkTbniF-ecd_4DJ#i)-QnZPD3eF})TBRqcf$un#4}0qPANDef*J-9KMi<j
zsfKn}Jg35mWdLJBh>HCw(jv_A>R;)*^m4aLy4F&br0j?hPj$1Ff=~p<t7|>jvBow+
z*KzWTK$r}s5SFJTC`2gk4XqMcvTnjn?NPw07t@V|<v0zZX3kfsf(7UekH&klG+L1g
z5m>e47m~m)X>I<As-k~%E0q&t#3uO+Wsw=P*ag>CHZ@g=-1_~2&Rjm=$%%nP6|3MU
zBz1R00l*3iU?P|ED;#L(e%N?RcRt!9R%DPc9&?p<6F(B>9YY&4eRYGo(M6{(0VYLc
zyk)_X1;IqVJzaR&xVU(DnRuewp;A*;O4{E<=O<Oh+$sz<4)jNXIJp@A^mGGKuaiE&
z7rENf(u%0w!p{$dCoLcg`Pd>TZwX*ho7ZKyaqXZeR?DK9J>7@v#VkPZ#1aOgl@R>w
z`T#P+$n544_}MH2&&JqN2a?A}a-bjkCe+(Wq-YTzkYT{KQ|4mp<|rG;a8xV@xnAWu
ze6RA=!YzQj6rU%7H*1<Y9t?l7WT3p?s7ymx9D^<n-xJF%=L97GC(ftsQsk@6%h}W3
zm6uZh27T=I$s+5(G?PS2z(AKH@05i}LtPb|#>v^93vWX+;z}ghItt;Ht{UyYu1+<{
zohny2;Y{A%p98YC6yndcjs%kIfpDt8<#o#}Fy{{rs~(&4nm;|Zv%u)VTuu9+HD<$M
z!eg=otuj@*AImXFLWQM-W)#+}@382*XjbSUP_v#}hpe--XZ6U=Rb_IC;R&?kX8ps!
zqn4Fb_3&K*hAajcft=ndr1eeX>0j*Nz&S=WR^|j_xivqi7WZFKVb)i*JlrL;U!t2=
z@J}#!Uu94|{O0zD(6D=GfDJ&Od{!Dw=Z#LzS>u4FP&*d0n4_+Tm0b7BEQFD^sRult
z%XsxqH1JRpianNcN7;bRwzz$@t7Ed5jWsS5k%S1$cZ;;o7&uvYphut5{41Wd1lPAe
z!I-1>X`h2M#YU86&N737H|{FpaYYcwAX{f-pH$PaNpHwL@u_ri_OGs8ej2J)BG?%Z
z=0T(cOMyQMJOjlYNm-FpELy_qFD={k#uypEj95btGxiywMpw6i0YMrFT_yVf>lp}T
z3V{sMO4Kxg{e;^>@d13%uIK`fdjWGS^>F+O1p0$e5^dHGW=`QY1_6RlzDeyjv5SCS
zak0g9iXXyX01=xbZGKy9Kqx>M8kjH4dLhuK;VKGPDEvN7FN77qoc@A|^-}VMqM*3U
z#x)eG2G?ey$pstcK<4%J8o452Vk84?n`i|2@UX9tLnD41{qA7|#XAvSKEja4S+IO$
z@7XKDXo4Z7#=8J3V`c&acUBP<hM4#6KQ<-m-<2P1i`_xX^PLwlq@5v?SV4fbLCT}s
zUm~a${vn$1k$#Y0shI7V3$3$;cCM5S(9<3W8}BbU1#+r$h4KK|24%`v`0#4XpnsI`
z=aHA68uTppP%ZLFxx;!2Wc1TtXPwV7=c?Un^svG)`EutU%?AC^pNWP<g`9DGYkvF8
zA_E^~irwlZepZ{EuGqJbrHfYVtBeu3VymyBC?CQx809lW&AK2Ua~jp7b=f=`nX1U+
zv-4XUh!6xA=o8+%F=AA0eiMV0|M_|(%C$Y%xT<RPf<facQcSUE=3_PBBcX!(YaeYW
zjM(x%^p{g8*tkhdYz!0)HwoO8JU>qd+-<kPi$PZ!+9yM*(eX~O);LLN_-XQYuks*B
zRlL}|K52j~JrT6K(1Vc*#V>&cCrd3^u^*-8R@$j10(t`Oh?$r@O%3cbzl7sbXlGCd
z3EF-G0!)#|w1k@H_zK<ZEsTmSJG6%*w7RaJ)J&X9VTI3i?<25#><DCH+~A%Lrt
zS)t!MUrjnc<EJe60?GfbBKLvJq2700<&5~wpi=#<=B6}4$7!<(-EasT9K68z*?XWI
zHYik~+@>X0r*7M=$Efsx*D&V<-aCqMxt+uW3}HQp8oc~bi!KASZiQ&8odq<#$#yR4
zDo|JR-SOhn$JpXeV3f>-V9B-){H`DD<$c<MDNu*mLvd5)4?$o-lO+>yMRsd}B?LD0
z6Xvp{4VSbHB^QzK_G@e=q!w4gnlcyzZu`$t{UUJwO`ah9^hX+7P>_}llu{FZCWU`V
zjHeRT@m*}yTTK?#&waGN3@0$62;icPR_Sxe(GP5oeIHu+Rxtg?o<kNtkpGqxN+CR|
z+AQG!UDrtRncMrIMWfjNg)(J6DM|#L*tHEY3BGS)hUn4Wg#G+%BQ83-vTU=^Lg;9S
zB)nmwbFXJCU{{cls{m{jJbl4g3)M8YDiy+&;Ru*s%Al@C^}gCW)5Xe_6^4CTl=^}8
z{UA^u#&hfq!H#$+gfa345nZ!F+&opZTtcvFkXtFrlkr4Qh!%05fi#2~`?+;I4~a42
zThSXMzn;%q;}@lMul(V|MA)GD;ndlCp@SaBra$x!J^ytYU;TBefIt8usVh3TV+oH;
zE4_XA1-#^GpYspzN*w>7^Y|W9Vf?o{oz*n$S2<8Tk5ry##!-~E;+kdDaxj@z3dTf>
znJw`<dc}D_IU0Yrom6j8kFlX)h{+pqwy&XE1QfVOU$%;>fVey3Jx+3U%Wze1L4W76
zAUFutZfE~87mv<;n~OV7*58hwAoH!F84u~>t)k7myR?MVp6>4Rm@}NZoS?=7d3Gry
zSYT&3_#<Smj8<NrG2QK-FZ%k$#11^E-ROFuMB;kS`qCXf&$nlB*B!!rHNe0HWcQSR
zHOpfi8ZFXBk>r)EA%nd6Q;f|OjD>tbRY@EKKi(9YNbX&YP{E@&U2sPpbz?pOw_9Nm
zrV-P^X6Su#9UC8c()3uhn|iL(XjWrw<!{r<IVGu~Z3<WJvEM<hX9UaNsZYuWZ4-tb
z`6PrDsbtsm+)!;bL_<sqZE`I3(E1VN@KDL}zd)>-Y~Q<oB$)+6!GZ&1D+AS-$9!kD
z6J2*cEz@W$6-@A-Oz#oM&&IvlPaZ??>ChfEvJwVi<!0OC822=<g~WtX%m#C^MRf6S
z9hARa!j%xYm0fg+ZYUI092HRgP%64i270Kei%;RtgUjo(;%JI}aEbfCRN(yJr}Cv)
z4+wEutg}D9?j;SDZk#&XM)nMpRvnV0p@qOU%<a~Y3XrPyxT@WZB4g}&{%l_e%xa8Z
z$M>!`_5FtB#~Y>8fkH?w77wsP3%+9QLN@?;vo`W$scyqcD3D<tM2PRedaMbl_h@*1
z<&}bI35GSBVQ~q-kU}I0qzEAt*BOe)x9A*hhG@IgWyj4Lx?mYyIw>Q1937;|5=~mX
zA(wJVSnREpNw@A84yU`($L{A&!=LmG8dXJymDRk+7twbqWjvCzS{O(Jp&g0r;NI*<
zKTjTwU+08w(6%)20Ym&<#(!TF{WR22gyRfdX^OGFQxLGB)ew}gb-WJNpA#%<+RfiR
zljj$@kI@fBEN1E`e-cYOtI+q+2>yi~D9WedGOrLy*Ro2=Y15Ci(cw^9C!_*CQ`#V8
z{m5t}6_P7iN44g}X&C4?-z|px?rJb^0d9(vx;#}Gf2l58Qure&F}bM4+E)N`cXfyV
z;*(5<8G(7yloIp$Oi)Ek=g+zs1`8~WeSCh6RIlzGib?OEyM$TVyCzzxd>*7irHSY}
z+f<9m*g%solta8d6!D6tDH@vThg9%I|B=^WJsD}b_(qoFaYdYDST206pF{ax*aA`5
z8uR6BKp?h+aBnh!{EG4M&obZ%1N;t<JqHg92P+K|-h=6(?dU*!us(nsK%EQ-5EN9g
zR41x${fYq-XS>-?Ukau-Nc|p0I&Lm-uqe!!q&9@j$ZGnakCWpz)ByK;SH=(^d1i!S
zU_^%Ht56udTR4J<DY~aY0DizU^(85b{Xjl03{Fl<04rGOkSzHJR02QYPcDXhEV#$S
z8NMJ(f)D|rcz=Q%*tpXWf?jooN$FkgotSB}vA0i)cQ1!uZCF{6Pf2DEn+R2hmK+p-
zglXbYFm;&|Qy*Eib>UweMk?_qE{oZdgZ%(%gdXXGcx$j6-u(7~wq=b9<C`brrDG82
zIh}HYtQ6O%`D3T`P_z5dZAr6xBnNlX&%0AQ(9)9Ow1HOBccqN4D=Y9Q#y@yQF1DmK
zT4__=7LloK0rW7s$7a;eBu&jwsg@46yW&e=g(}K!e?{C3JZm)-?`M)eD;6bfVi3=C
zXa#4zq0rBEk*rnHc<=kV_bQY!C|Z0`ovpj9`3yuCO0kYJ;<Vf}R%%-8bN4bJNA;!e
z&#!x5gq|0mFHTc53EA~5y={B^YmeUhb-!k|Ye@Sq>C(SUpz7ZcVZui&$G(70$RP6n
zA!`5nhYXjIf%*T#B|P?xgGTvwbk>j<Q-Kj^8PuDvyJQ5C|DKOx6-TQOZq3N0NQM73
zx%9LPNH3rev0HGPy%{9(fmyf5=inv-u!rQ_jnLPRlsEekNqnmW!i*$IFqH|RDf{K~
zRzN&&H#0P!6$Vq9)!*g_?$I2R5<Zhx+DEGEM=k>T#KC5ah(j6jf!nlx^Li4R083sW
z^a@Zp7{jWBNcxfb55an7yt934@l5sgKvNQ+cT9``A6kR#p};d+Tkiro1)gFEJ^CR<
zz&W7-JcjMk=%0#UeeIO918Q|0RCCrN#zbOiD$y|L#(XQiqN<r2)<|5hrx7P-a0o1g
zC@|nz6mUKHHwMus%bjl60hT@){SAz~^ei-)c6+Iem$aUzsAq||f1PX<NY)%QlbsxJ
zjZ-zN7AK?WByIOj?{wKo6~&}dE!NE<tiwpE;^Z;}cKE?3$kyvG+)^NPCLC8w|I+L`
zMT@WdwzgEL@Um=V7d^!F4Yp~miZyq|Xk{#juVgy^XiFQ^o~w(NeL@?EMeqesfEh_W
zfe!%;Jnd+{smca`j&B2iulRwItZz5cTgDPK(BBepl0rvVm^BDk?zLa0Jw4NYFKYh2
zG=Y||z62>ZC7QwE?~kYLYH4iPT)%mkDG1*UGqqJtIGyRZ0%JiG08g&xT=Kw1hoe|$
zM5U)h&Xm;^?3V{^Qg7h{4z+)+YEx*@@F|t4bw*Lp5(Ik)(cTjjr#n|K0$`_mmkS|x
z3%=U9=qL2+O*L^&BO2d~(hCj2)jo*nq#E?$1a&1Ef(_g>dr=1Dm#bprbe=rKMmftx
zRzh3Qwnf+dwp*<L;dM9&xK@AFGf+7vIsLN=xt$FRYk?6TRL^2_MO4js`_$$2@>JX7
zw|{c-`82K%D%2>i?QxjX{*jl~tbMt=U5pAy#V6LigpXyI2@hC_WqA6E{obL`ZGZ+^
znT0Z#fSid6dTB1<KSP*NK)wTg2zQ}E1bf5b4fgou2N94D{2J{-aN5-Y@i6u--2Kk+
zD$K3c9fH4ub^idfwm|RmU<zV{{1)K??w}Bt=roF{%=_LsS1umsd~Bf)yO_$wHHnUE
zJt}E+hOvqi5eAsmmkUW$<YBdY@yfVO)65(*=ZLmvoOJEM)#W(0I{JXHE~CJa<y{qB
z;J~hE)S5P3=uUqoEOa}Lpz7R_{$iwDpsuZFhaf97QZ8=Tn<;A86J`b#0(u7>M-G&a
zCqb*qpW17qnd4}tEfU1*7T-q!p?;0(Y4hmT*5nyKOizXv94asKu!j~0w}cUQB>+vq
zyj(}KWX*(m!$DN%btw>8WU*$i@|DSfX8Fl=2vhR0JA!zSVr$wW%s>CC&E3mjeCar@
zxOKO6W5#dw5Ao&yV0iq$%IF+S|ErA7_V3d;2h=64aoAzIuByL*uqLFjD3m==F_7zM
zCcZ=?xs|bkc;Q4Q+qB<~VDGKyz0}GxQAu+1H<F2Q@>67SxdNxgM#VTb2`Li}HBsWy
zCf}ywvY(Yj$~TiDW_m77LWM<~5=2Ja(LzPkmEiIOk>*H4sJ~Y`8(FS@kBK!xfgwRG
z`Nq!6llCPDmDYhsW|&z6A(PE-Du+#_jP&NnE%!q39_k?EnTkk60ve;B!%#7<&1PXX
z8|K^KjRC<wt${8<;|R-JT@L)BT5-gh2*tsz2fyumr8Q%S4zLn&X(a-zVTrOA)A6!-
z%C&UBEuj^PKvtlzh2%uXg2FS5(>{73xpJr`k*M*0q~d}5a3kN4bwXJP5@)D$*b!Wi
zc7R<lKf8|;lwxIk&<GWYGdt*^98{qk0cN&oi!SE&PSF5SYn``QO(M3it{a+(;IG;i
zIYlHHvze^rb&4|aFl=!6X}V`sNsvx{T3p<c-?>=1J7hp9o*c^57KVjn*TIK6u;@=v
zvay#~%s%Zcfucx`lQrcn5A*Lov#>V9dKDCJ2Kgm4CovoguY0s|*#bAXP%BViIT!um
z3hBBGXi8<U{K4B>`+C(RD@Q!KpwBQn)I2FCxFQEf!`^t5P3aQ&yI!#U7A@__N~&JS
zvx4+_2W_Y?(Jm7W>l)ync&0O=o!ctm;FQnMPsA9##p&l>leN7;A7CeLW5%!j_wHn}
zH!HHZU+7EZj9lcw%2*{s#S>$7YY`GyVH|LM<MyLEv3-zOfM9}iXj=8U!E<cdEo|bT
z5=0Me!QEPTcqJhrO+7;@wQGBe0KrgtY|gqrg2L$Ww$19^fR=D2@ww2wSm1*cl1ih+
z7x}U+wz^j{3iBI2Uj}s5yEi>}CEH)LzaEYt@HaoZ)GD+6#}1#*Q9ciS-ww<^?Cjfk
z_*}bxW%e!KpB7I9M_XrG@)Z+%6Uv(PS20$t3}TNzK7tX|pr3<$-aos*go-NkI7#5u
z(67Q=;#JeHvNf|bb2l?Jds-R)Vj0VY`K6-FGSRNy&FSsT#`E=j^BleKy7IW+e`uhm
zwOP@v{Z-@TrC1E9edbQ_gOMxU+Lo0@io43_&WBmTYQx8!GxbbK-MiVd^LNbyd-2hg
zG~@H$BZs|JtJj&^77VuDD2R;uvW@AAph?Q_EpqItG#-?z<z?KJW8M{-B&5U$pw@bn
zM~<vDVl^|}dR40NLoJ#{eSK#Gd-^1z3l9I!T9nkCms*;}8Z{bJqwmet+FGu<R&+@v
z>)3soq%yLV3ck2PG`8@<K8wo%c`i05Q8pEt191>-X(R}w9~lKdN8mSN-v11mrPko0
zgsH(w;sVqKRAtaQnV@tF4cOpx(|2-mu=<gVMWPT!lIV;Dl9>zE>PmP>#P;0$3bf-0
zG?o1{?Sc+5_b$40RN^HSSyITs9t3lt0&^<+n^{2~?%hHHa+a5t84)Q?_t)Jcfbu}a
z{ucBZn+D_zJ6btiolS4nH>4=;L<q2e9VEF&iWh<y4iqSlWrd376dFgiO5%pt5tB3$
zIbaSIxCzyyDAsaQkR`g~Vck}Q5!E+LZ<a;cwVqagY43fMSG41lT2<b3oL*VJ<ax0+
zG;bR{sN2llBrar6E@b{+pH;1L&hpfbGU~Jsi5Ltn@Zj*p*is$`+{PM2KDdulYa`<P
z10(o}Ah2N11zhZ`I=aaE-1Wz5?5T$!ZN|yAol#c@FOm%!3$%@ZmGy9|_et@N-Au<h
zvtE1m|J?pF6A7tEedF=W<TQzC{oBu~&uqeL2fx?pI}JhWXF8H62}rCOuGhyY*o<r3
z@G&$X+AxEX91biQ*hiA$3K3imLTMU-((MeuA{}f-GNgJ{YA$JBgwghNh&prZZBfwF
zIar<fMMv>6g@AtHkr4GlfqN&%d6@5T|DhF<SN4Rzp7W&V<?3&_S%go1{XPva)+H{1
z346p%*Q!m&e-}u=$c=U~z#wJoKk74hbmtr|+hMycu`I?43XbfHHYj1EV2<ky{E0fU
z{$LB+7^4P@N@h<VR2EV+H&s_}W+pg8@64V6If~fLg|T!62cah$4alu^oBLsdyUKMd
z9!l_`oMy$jYUPuMa_58YQ-=xHivZjQfd-98pm>=n3U+#u_7#Qin`igb4F{If$feSC
z_u@Pj`y~9N=MB27a?|r)k39~?|Gj(cKl`hhe*OE*4pnjMwQr->naZ^o+Kz!T-9@FG
zK1VRy?}R>)I8fS1OAr)F`<q$qttSq_(1J!)wm&(-bh|dscw3(nqH;&0xsxONODp>q
z?gKa?;!^sD<8-)~LPDj}p(zA_?Qyh8m8XsS`MW@b%ere1yw-5Cxx^>WN8Q^s3p-}r
zYr0bg@&Xc&#E?NDhRgBf`0B0FdLLta90^4PPUp&fqzG9gC{?4$qmgW6vyEKOX0Vn4
zu?iH?=JWP`20v$*y(AJ~V8khvur~5G2z>wP%4$|R5O(V%^cuY?x(N|mQxfG+@)8X)
zwW9h_?mE9l$ZqFn#j|y8@d{~bS%b$7@h%Ki7){SP5=Y<HgQ*m(Ve@%-ejz{E5yGy;
zr*bCEj6?QrZ;QEQ@Xtq{=+}X3F4}BnA_EHtV-p4F6D_xK%Ujn>v{qK}w^e{x093O&
z4z@h-PVTXgq$azeRxYA0k&t;SWTAD^v-?aF@F6NGLp4Q>#Nw|3OKQdZzRV%Pcm<C*
zRaXS4-_kct6DK`+BPYWWexF>td(+vlRemLOjO5}9N~Uq?Mgu-06rFn0XDCSHP^eAW
zU5X=#coY%Ud$9IVW4eyBI9PJFjpEPjWydzo&>H8-zLX&Wh$&oRKXz)57cAPEg$oF5
zahwymfWeVJPVRrw<%o~!nKmKWt0lg&(WZ^APw-^7%Cgx*;#x%Pa3`xc)$s8|WdMe1
zbnQE-9p%qDCm~uQI7v&+kt2T)fvl8nd~*o}^}ZxV+15QFh!@yfy0JYFnUE+J*ucXR
zW?l-)$;w5;1fNPQeU2&pi?$ceXL3TTE(WRq$WCCZ&{hyX59n8a^#NdPr-@*+GzTF4
z$=U#CYA72ymSa;8y&h*=MWWD~{W?~RE@j<vWcEBDyK5xo4u))8u+roC%zUjf<&{1o
zy10S<aOtOG%r0t;_{>}b068PglH@laWDrG<<bm4U7(taPMtfcT=79!e(hUunURzz{
znyTFO{mp`He)GN(#DRJ9?FCEUm>GZq`Ze0Po4(bdu-3|l@XQ|_g`L-8_wpv>C6Z9R
z&#%9%;3>GbnheYh+x9U@KoYz#At41bt$fQ%{Q(&-{eyAlHmdB4Rd?1LGXg&3+#t-J
z%A|u8qXu?o4AsA8vviFZubV0GY-7n`?TepNfN=T7J;UFEU46#BeC3)5o_>93OyMcJ
z_3*((+}$w0`=`HSuN#12fvh9bxL}%i2-(RN&~}%^Dqi#Js!yP{W1y$L45yP{7&K}q
z4@hik7Tb4p<54!H6tw;5%`9k$Ciw6X?%E%RrN5kr?N=pF8rH;m&M2+fXSI^3cwbFy
zavE-U_2^b7y@UG^X2%j?6x3+h8fgqUSPvNrEB4n4jzj7`1k_8dF{=3mhPc`6&|b5#
zwsFe>(`v{jfleiL6I@3Ms!#ac08F1GfPSCRFV|Ipkf9|}Z5K3vDFFus;Zmb41mqD_
zKNLd(7I<YzrHAmL&m-Hm461MxManT-L}PECWdF>xa|;z8g#@A3=#K|w;Tz<$(q>^|
zlaIjf#<{XH-=@r(+BRi|d*^g)CL)$Y$Pa`L??vaNd%K0(D@gjdOJ9X#!D5}iL1Oir
zwba?a3#Ot;XOD)EPM!;eUf&Z#?_X|;>AjVRJU_XKKCb=6x_!j>a9qi<_=3f(-`0@n
z1aR)Ei(irzK(6`W!9TozB`$CKg$yQr0lSro)BHn-W&Q`?F(Wh6zkT0)pgLl=CW6p;
zM{NV9u;cOw9H&vCYN(C0<{&|{1{nfIs^|+ADU5XYaH0kTvQ0O7plH{3-r032s&_Tn
zzxlA;e6ziP4dC{Z3lZFnJjyZ<1J~lmh?~Wp>X`aGD{t;c)F0P2=tundu9i4BaDDc?
zvHf(jz2?&+xlH^Zj6)<+!mjzv(-_!<ZQ69j_)*#+YHzdiuaZ22ROdH-1N7XX*D@31
zSV)!vY~#2<5lDu)97Plf(Km>gu*MrVIVV@qD*-Mvd-X;zK{=-w)7bta(aWGXUhX~t
zrP~C%=RJouEC2%>0F;Ko=<Lem-u}+!J5({!m{h$vopaG7=V>dnBN^Dq+ZA1TcDP`t
zPPQ@|`WH7ErY7J#ei^-hLT}Lh&;c)5sf(r}hGL<J`H~M7eED=d_@_Q^MRFtOB5;W@
zBC%$8ih!R@4TTVQ!!0lBjOKdl;@4wkK1xudMvLcx{;e~&Ry98+KzL}EUUl0*t%<G5
zt0`Vhd86oZP{!Oj>3wwu+<{Dt0%0&_yW(KF+`o6P<MD_Ur-_cquW{}$M&7llCVtqe
z>h_s%gz9M1bnltT-j0RfmMb^{eoc!IWHx!kX<GZpR&fyWA;Cyhd-PTzu-0jmyFgsd
zulp;^PXB_?*O#H!p8f4*HW6gF&qwA5ASMKyZvHHPc!lF@icm3`M(tDv^GMdBV4AK`
zJG0#_W|fL15;ki*u6<XUcavO!r~67XBLWCLZ!l0R)UFx4DjPt%lb||$%8I+79vbLX
zO(o$>yK$@o0s#S}PH=!D5vIga=?gD+sy8LT=49F=cLIeK$R80Hvx*c}Y=0TtQZjp+
z<80eZ;Hi!|5V@zgjlSSemI-**(^{DoS2~udAE1hSTA=R3$fMzI)j=#MSf^4|mv)6`
z(&u6$tcb|Bj*J?7s>uycUTj3>P7xhb`;h236FTlIpP;GdW=pN=Bt#he_V^k!=b})q
z8hp8B`?C0i4F41p$*})|pQiGb3R_k}wCK-7SrhMxq-@{613KAZ1ji6ooOxBHCDN)G
zB~<!!!?5vIv9nCu43URIQYxB<1T34?&NeQWKf{oDV6H)!#baVo1%x5;l_%A2WIh^s
z7Z-x9!Wdq#w1pk9H$T?;cQ$pcno<=%skdn#Dgzr(5R~!q*-IZkX=K)v-GI<62aU1i
zbpI;d5$F)a>=Nq#*<Ry4?4VKZemc1Sap9Ck8*V3h<Y`8Sciwq_zlohT&Nc0APl5Cm
z^+~OWZ6dl#2)-zha@^Ekj6B<Z7MmVR8~od;*2~E@{}VAl(vLw=cUWN?qyXGz;b{7;
zh8DMJfpU3JR;G_PocHJ2<*B4jJM|qy6PHxm&ABsx%@xrEe|J`N=L1Ko{)?o@8@3ou
z=5QWKS7#U<Etb}3qR_VD<5Y1GwBJmrzv5vwNbO85T+Ny8(F`Sd+>XBUsKl|SK)6<`
zytEOIeclZ+`Vz@99{p$IA#0-%y24ozTNg^BkssIhSUG3ooqmQoLEsDKK)9e*%*8J0
zsWukFvUur35T#z8_C^3{-UfSG4~R~>g6nw;i!aR{58cIZQ(-$-<N=5@JBR10HOWv(
zWWroX<0q?vUz73OnP6BATUypYO`^abo1q$iWl%Ue{pEOj%*TC?AX+-Z<@l?q8gjl6
z-8&vw_uD@~ou7Qpdt;c7ujhvxu4w(6H(SkpA+`3OuT9>L_7p<ja2*C}{@)OSy$Hrp
z6m>Q9FZkrx3xED0^0NGcev0Ee9RItOzC<Mrg$#y&4G&&JWg;Ql5jI#aoGvFfwK)ye
z^47#C8L6tanlyKJk^eXcIaSsc6SKSZJmN~$d72!!OuaMQ!O67SMT*eFL3XaSON|M+
z8%_)$B3u_f+;kZtKl0+Id{|7x511Wm6JY(k*iFB4+~MW`yX>R0C5|9T5yK&t5MbBj
zVsBoa(78$vM?{Z(Gmx$V1|tUOs<$Lh%0NCjT&JLctAh<>1g9x`JEMrVq^qmL{t(jJ
zhs@Bwl4|Uc6Vh_8z87+l#0XJwG+bN`G&7VTacY5!<8!?ee*-2OW>gRP5vKRU0Crk4
z)A;D1|6x|E2p7KuFEhxFMw=m}59}so4F)X;8LH)Uv|*yW4st+Wp%)SOS%vXPHjYR<
zZ^xr@wTccKMxQlD${az2>!(hyNev&s9d&w~l5-@~haprC(O&_HAyv4;ERKt{Ha*%N
zzF$_Rc=pes_kvzKFdO$ibG5gA)Lk8}Wu`|1pV|U#_~v21lXIF!)-~`h7=R8E3uD%U
z{(PjDpbkTLM|y>sp++6krE+(aTuZa^LPn3Bz0qyFyegVM4JB~HsvJ);S<G{3X>`Ee
z5h~cBNG}6us8K@QF{YehuD7IY3t9w`71d-MFTBGP@T4tn*}(%w@k`3NkWnUsGK`KZ
z05gyuO2{yqV~u@&h6Rkz<Cs%P>oixX5uZUfpfO+CkcW~g{=!s`YMkbQ>|><(jeFti
ziMjtw$MiL=2t3yE+)Vyy4Iu!wEux?gtxjw1rco$|`qgKZwbBU+12Tu!xYiJE$YM&$
zk>Ix(OFD_t8@FG~3O6Rzta9C{{pHLNj@8Nhmzg3$K&~JJ;a|wMR6w`vZ<Pkfz`;4Y
zj#X7se!kJvB?r^8G@}L7N50C%bb-#rUZ?|#zI$BS2!K<-lm-U=zE5bVPV=HRHYsiU
zCPQV!lsgU$i6L9NJ{0|MC!bP!AIQ_r&rpo)!AjF|Hz>eoUVTLWiDsjfwsV|r1HJ4p
z@nFgmZpng-YyNAHpL@ZfE3~S&mOOS^T~?PbFfRHWP~Kv?vhn3&vW4;xJ<l0~>}!_F
zM%ON^3(@G`XVfDU#?@y1prhe0peb1F@96?71A7NMLtV>%t*rITpgCCop^cpB7vsM@
z&)cb?p|Zz;^!=CIXUt$OaZF}?Lm}A6RI`#?FE(~F!jsbLX(!aho#Pp=-ijmTO0u;g
zcpM46m{(y>ER#T8Z$I1FEcV}f-tHF#xPcKzvYrey^NhrVxgqL`jcRdUd~EXl!o|g7
z9DIcj?<dB3D3+;raD6s@AM0h{eZB$)mS_<z!`F+%$n6~I@4fQg-9*9rnEkH2FTBZh
zJx}i;5sz%|Rj~6uF9ADsY?H~ry6lG7imPx_q5_*5rS6L5_7fA@e67jdsx*PY6`pVL
z;^M`AddTC%c{QbI&{6l{^Ujt~QeNW9^&rg4M_m0xl@{|(m4<$9eDQlje&$!|7OQ)i
z-E8$tOP<<T8|c$2KEY49{zXvyD56JycOU$5{eh5>d??H&ZuBTU(3YDvUd-Fs-cTb`
z_i{nxEk>0j_Qj^n%@NWXJ1qwCh|~ui2QopFzU3>S7$|ot@c=pD{&=?wfj9Em4KQ-g
zcVmztKe0>QpL#6U9s84+Qu>j!JoY3=5WBBt$1I7f=y9dhsyS{1L;M<@R%{BvqMBB0
zZ{K~LVm930h+4v6&BK>8nM_wnPu5B}#bE>FOzXwQ{LI%JLDzE(W=bfbl7}K*=+h-4
zL@oKXw!Jj-TquZ~H$LSCO^qVH>10}zzgnnUYa;L7ps9pMlM5zJC#f#aDd>r%1zRmj
zj-8pn;77q-%O`eZn)SN^A}h(%N=Y`=zzqNWA_4{<X0NUAo5XuS)`^2ii5TAS0;JLv
zZ^Uo%ml#QiIp{lRl3qTKJq-1Z*f>u_WZ$kC#Hp7Wmui}kp^a|>%t#R+wtf&b?oyP!
zU*A~|E#=Q`1b)7I#2YJUA9n5=wvSK~6%brP#G;%0*uCe*^W?-o*WEk6Bs3K(e@t)^
zJ+lkLSkNs1S6>KnbmYPD*SOl5%Rks9D@}gWhnsmW4RfQmPlm5=?esLXB9pA|4N!qa
z6|+YaVdR&zP1g3ni{kZ+da`+AX>YG)gR2K!Pq?wvW%py6O_XRILzlTTRRF~FrKH55
znRa<Vf&)&84RTCOW+_gX;%8i35Vf_nF6xyclC10}(4!XvUB2LHY;3KOQI@BXpQSeu
zc%0_KreP6>Hw8?DO~P2Fsca#QZzw+P+J^kF#=|OH(m0<eHpt30$WGe}A7aQR)sjr>
zbQ^t{eTgxDALh(DUz6vO$a6|<>YDtxu$c<>55KXA9(L~%C+&U027UmBuaAJGl=vf$
zsC`Lz3tq6k!flI2j~1<bK2T|&wX0j}(GiUDh<iTyt4}dV4#=1ykFLAK;xgYZ!l#xX
zhhLEY;LsOOd+_Gq#pwH_Sq^o}mf4`YLNk%$Z$;J`Lt(O&?l-|SvAyhYN66NWs^*1%
zS~(47Q#N*8wV_8=$0Ka$h))IvrUDr-YzYo5UzDDt>&|f6hF*r`fcK{+2}`-QjfUKt
zz*<7m6`)GY9!Ha*`_&?zbb_6?YV~@E#pH=f=E>BM1HB@?1+dBN;#q&bHG_BjHe^gI
z;bc}+05Lw|vdL8u{dG*)_&c4~COt~0ueyJPI~~@eRo>4pSSh}P3jexx{c4wgnkXO;
zLR&Tz^fx#<X2!n=h0c4JP|}Bg9B9i>&0B})BAgdY$l^zmNr&rhT>e3xPe>!Fo`Ni;
zk_DfFL`jiNN?W>QOEB)yUietGdqS@L+JxJaM1nm<oJmUC+BDMqPS(%QU*{5FB(vLk
z03C1<q*)$#r(!7}sXvcFwD}|6SfMXO%~ai!f5;cSc)W_id=)5qRZ~QKa+REUf{OF)
zDUR8|q7a6awoM4Gbb$EmI2Mx3x;h$_F^cETbr)I!$&C$R9$WuFyl^f1PTykvh2xj}
z(OOR^z^@WyBEU|w1FQf#?7uB9TWc^s6v?i_FD20UmtBpIEte;CBJ1L!w_rG}@vg;;
zPHF;pT=1oKPU(;HBkp=2V3SZWrDJniFYNM^4v>@C?lP^hP6}pqK!<1b{(yQ(L_xbT
z@aIEE_YwnMb`sRiz1%{*=&oTnzAr;J#eHb%@$|j&O!4?k_ix!;_H1@vdmIbrk9trH
z^^B8=7CJ+CzcYC!_$QBh^W-OiJZVP^#X>^oYrqsl_s?o}Yfb{TM8|r{w=q1FE<^K`
z%DKM;zjJ+?&;(&rY#$w5P`x*Gwh>wqebZZp`k9kQUt16h&LRSP7f{v%-&)q%LXq-A
z7BTNlUsc!HHMmbK66Np8hKAppsGnA=u4cL+S7j-KDN%pYss+wiZX$p*-v*IgvROm<
zYPbp_KUvt=Vol;2i93eWTj1R)Z!(yYV5$|Hr+gy^&4sXZDRUuEZR#1N1=jgT#IwkX
zYNraQj<5^Py{m`V#(#5_Uf0uxuK^=a0QT+k5=C#KHpv2Ul)Aa{Fyuqa`t7a^D#@gA
zh#nm%5fBZ2Zo>?uBWR1Rioa;F%IY>=z?Y^#E&z>47P7qrL#qixKSv`}<y|Ek+8vE;
zbTtL$HdKsOqOF%r92%Yyq}8Ry(|mc|yr+B`bT7dtt!y3szJ-s5)IpnNWd_kxr>e_k
z7u2ucLK4bTUn+DJ`&FlJk2P1tV^>OBuwhs{z+1i5FbXCT8X@M*Sbgc-(biDxaDk3@
z=fHX;m$u9<OfAXOuYnt-BhRkB<hsC(u#?tYWU2F;;kO}a1sfib5MQcc=CP0<kglV2
z%a6<}pGzyUZ;JV=sG@)+GNbmcqZ}SuSOF}DK@Fspc#><YSeo1vD4Be+r}6i1NLau)
zF_)CwudFr{kliNaYnX4k@uW%&k_i2b0uai9)~l)2R0tSc{#^`Z&<^Vm4hyR&S^!N1
zI!`I4cR5yrmFK$Sh*PU%eeytLb4^mx;TO_l2=*c{7Ju5B(gfC{MeN}$0fdd>5n8~G
z*kUQ3Qh{5~APHjfW1aEtwl5bfOsqi;jfmgRWGxTjn_ur$j-V(YVuYru5VGJhN{v&7
z0<hLV&LA2F6%^}<P*1!iy*?6Mm4^x}$+Kn$JF0m|4?*IGrGwh7BNegV-b3Boua3}k
zh8a#Fkb$pfDG=w-p42(-)<B44$<;s?QB2|`6v~Nt5t>i#iB#w?*%2hdow+!Vw+sjI
z!!@LWdV{S~C{3C2K4Jme+qTIF0-!pnj|gfu-g4&u@NVDrp%$|?L_lo05uTOL;M=|q
zv$<_cq&PRiHy{O}jcU%wHm~<ELHHA<`x1j@#aex>7vIb}O$P24UG-{c9xpsyx$;Bc
z8a~wc1cK{0G7W+$2F9;kms*bY54-a;rt@(6!XVf=30X0053m1xfL-?6gFfgrwEQ11
zz@cjL>UB<et*><Oob@73aF_ryZjd*4udI0X*J;Wp>U%fcE(0>HP)bNY5sK2rEbGw~
z);)v`Kxg9mr^mg{R>OnPfyrG{3@BkdB%%)$2(|VrNCls-eo?aiI}Z>`KG5&^FEwXa
zXntBlj2{htN`lTxct=2yN(d&Cs4YMm#T{riLcVSo!8?e5FVL*kGjjw?Yq4yhFz6^0
z#Z|vm3H;%@jT3hBC`Q{JggKO^y;VF8XgDq;y8MJ1`?0sad)4L>O|F@#Rl7}iSp6L$
z9@I}gwkzL(?uuLA@bHT+EeKE;qcojVdn&l7(hw1`dJMM{8eH3&$`Il*c4!_o%n^u1
z7EwD+kN}3&744iIV@r|gn1X5<gqE6cfx5A=3A$S5q+@@+fSKOHvXSTc>V5#62#uWT
zlZ2FBshlhgY;!hS8rnW+fimjR2fEYOMJIK$`L_~|jomosBEK%_BV^^lz+AQ$N9n@$
z-r?q6XHtCKwiG+y&w5kPvPQ5I?$@HqVS`aN-`N`9(cNM89k`9@XBk<9^oF)2hbi$F
zJSrRiKj=+3*#7CAotfc3^63A5xadMd!+uu;?R)f7)=*nW>G=MmPQz6PRzJQm5}hUe
zZ@jBc<asW1KUfWWymoi-0+KR}Z_S3FrR7C9V&1}$$I<P>uMMWCOJbbN%nnIuFBf_-
zAqJ-97>d^LmU%HKRMWng1UaTq-ofGxukwlS0VA|ZwuPI0+oUS>?6_=cw~>)6a<Icb
z#84CwEWDXz0ud93H=ElV<S4T1HJSf8WVE$142j?uYhd#$T!j3Kqqmi_r2_44e)LFL
zqJMq7lvPS4y56x!^oAs-_h86ozDQZ|^KbSZUs3s-A*WXHV=exsf+ij<DQx1kESpPe
z6@Kzvq9AY9nhc%{IW1CgC0pnbZOvb|S8OtF&F@l$@aM}f$9(HmWrDJjV`B3o`QDmg
z*&TzYPYgbf)WSqaPfP0M$vMN*zcMP)ZF8vuro3v82ez!4TU^&&rBH@YSya>bdQ@_-
zbUs^cH_~nG4~D5#%F%&l_4lR1N*R;uD#qE}MhxO$0KJBfa>Is>=y&Y?qiYj9HS{ET
z$q;~5|Lo?JU<`smKuD6Qg9`NDm^K_<I}O8u*uP{oqiRmR>_3^}B+jHNW0@fSnhHtb
z`Ff{LS{p~luUl_zNEaR7IS<(;6o^4TPRJpT#}=XNiwm_1Mj~*+i2OxJQ#bL6#M
zpOZ8eutF|L{NOgSult>_Q_BJ81R-%l{F<zw7_&d~E=el?n*OXZjP=D7kus|9Qs?r%
zbe`If4arQvUkEb^(Ok`|e&lV|_{;Dn`UN@fJ^&%)cmmm()!t4v0Sy$240i7d*RV%D
zN&8N<-_UkT3vFp$YiXF&57<Fz+<lAW*?P#9%GXEl+(eob%T^Dk@1$eEq@#)vOm3Lr
zly>cdF2VFxRk;_%v@kk(Qk94<dVHy`2SXxyV5!fBq^7iG-e^3UE>~h<#aeYceUkoT
z#t9&u%Zn0bFh^NYj`|BUGb}8_&(BC9#+q6rmlI`H<=kx<JCYaH-IYm$4%l$mwht}^
zHbFu3E~IE0?IupN?PMdc(uh^DUe+dknKN%;Q48A7GyvhI!UQWzhr~DWF~lhjT2~-C
zDGOvDTL1mNg3ZN?KH)^5UMqyLB}gme$6pTHc>Z&uunI!k_1`LI2YCZx@2Gy#WffyS
z(Zvp}S({Oo8ia<el|W_-hChTry$ZS89OAty7aYnpsL8I~s^QCTJXd|@ubL<tlV51&
zCvF>jF6(GZuIKA?Su?98`R?1Nb`-|p!w`oZQ)Kza_&pDomxS&7Q8t$Q)g}+@yVI*T
zoyP_QH^Hsl+KNwh8LgRn&+C7Goe8ZxYiu6*a;%HUkO-<?ny@;TrCngOw3MBcNXiK{
z3Iwbstr93FJhDZo;)xiatPVt;%@Z0d(gy8SYj49uDLk$1R-x#<`AhiX(7dy{e7fI0
zjCt{2>;mXh;-*~Z9G^J4HD%E6+N?AM49Sk^LX`l}RNKa9uGrY=oneiIOy<CA+3gys
z;8`19b4@4^c|H>~(E~rRu>&YcLav?JHdCl7D1tizY=*V7DF3`$lZ7=$H>%=MMF0{k
z*nF~#<`%GM-llGD{|9C7;9LpcZ3)M=Z6_Vuwr$(CZFY=~ZQHi(bZmD#d8XdE_kJ~9
zQ_pwm`~jy<?Y)0%W35Ft&@PuxczBr`+Nv)~Kq`@vgF!WtYI`&X9E9fyk=GoULwym*
z+fm!0Fe5O7Iu^K%eV}cl=18+Y#NDHX35IFFQS=VY-gDAOF3YzAw}>(LNJf20W(5ls
zu1F)pa?$MUmKnX=Jj=Xl4QK{sD;eD%@SLM5A02JBpy>k=z^cJk23*0tqbjzG<i{`a
za|fGlf%9%2!F(pYvA`8I-cDN-WmzkC$ES%}h&$>@@lw+OVU!4HD?dAme=2Q^=UnG8
z^kacD9*5W~nfi|pE{J(MyM=$RJ{}+%EMR~`X>{(uGXekYN4L}Z24o&0pbdX7<sb-)
z0D?UPE@?>I?)!?H&`5_0Ky>QZ$rA6bXkZ2n43N0`6cz2sFCAA)WRX;kR#iW7#E?QM
zl{$3LJ_4jyCaB5k2v20FK+JlUj%+EU!xqP;JQBwAxA@g$WoGw4^H>T}1A6`d@;tD6
z`mE<yv*WR8bwfK*{*Xz}J_HDg2LlvUX?Ov@#SY2PpmR^vK>fVPZcI>Q<_&1LfIvv~
zF{fX)^3Jr0zIS;YTqzHk4E~zo0i6gK>_H)-^!NiNHBKyNF1l^(>JXiPfdn}7@n8W2
z;i9b>aAUcuKKb=U_Iz{_IX2{8BErZlkfEiE2Bi|K<!p2?PHf7B{r!V65X7ixWCP)J
zk6Q#1V5vLt(&2mZ@ALE!FwC0jZxEbghx*Pw+ZE)G(bB7#1!<PRR;h4-fmr4bj^95k
zOBaUM*-9KHLr}DT)I{Epn*Z#rhpD_tYdg9-Jva~KC@XkQ4>*XzC4P%NA$*_Sk%K{g
zU->s#(79UuG~phY4;qqah=QJg*-%=IuOG8GfeEeEA1n-V>LcKAv=j$r(tTUcfj(+t
zxOIV!u?k($Ro5-z00`_Oq#=c+6U&=>Y{e2vuyB&Ka}j}uun<{?gLA*R7q6OX@1<}D
zMA1q@af|&Z8+C_28*Q5HOqB=_rBw*RL-qx_Eq;)w*05WMUjDs7;imHJb?E7_AqD3M
zujtM`X{YQ);ivSv4JHj_rm45hZK@OW+y-qadr)#DkB^j;VRscg&3Wel>vkuv^l^~%
zIBEtk<S5}}`}A=V)^P{M2z^MZNU;_}Mts)~X{$Z_km{!}+CAn0`ACQs{WS9O2kH4O
z=U??Dc@Tt+<`j~Gbeug;p*5T2fyJ`r!&|6HUCr3SUzG@EIiFkGE{?j-p@1$i?f`Yn
z6$3tX*PiIrX{A?#{FlYX7<Ga|!Ec6cjh`r~Zgj)<64@;T@e~&8>L!cECHI5?^c{k$
z$~La(4K=Fs{Dwur`^k9wv|hUd&S}5v!Ev5=fce_0+ow>?2J#q?n?(^f!iK$%^KLC)
zkEy34L6OFl<!r@V%R?IspY=-{_67H?rX!tp?I*a1cyB`7zO>aty+aJowO8}szuIp6
z4%_UvHY9KQR;4~&20tnw;;fZ=Nq>A)gx4x7b_xntBz^%4U9w62WeCdt*IV{)W8DA!
z`4@mnT`Flo6ruY~?Sw*Mj@~Y2lyaB<#}FZ47;s!r?QlnVVvz{E(Czs`0j33Mm73Lx
zph~V|9Uc?U)`!dUijBeb{J?h9(!$i)t<yhy;b^0M8`m6T3dI~E7>QFG#p|vwYahhm
zXa+w$FhUjI^`mw;UR&Mj&&^8S8i=f5o_Xkf3<kljOW(&&;wMFQ&r<^u<KI4~tXDj=
z42dwdPS;as*Ql<|yLB=b;W7$^yXK}bo>k|pcAV6n0yiLWMYZUPvpCSyw?AGome7Ze
z+1A)>e&g|#Sa$N{hf6>yZe2;T*{Cco-yTV3Vqc*H{@J;jx-Nl()>*?noYr;nfiVAl
z-kH-aSNYyCixFUIifslN8In63JBx`lk1@Bc6H7!Qj{p_$(e&vLNf#}_=-4b_p{&((
zQ?CTQGDxe@Bv-j27}KN>tw17v?Fv4xd9AxPQ0yvu3+1H{#n=LFO`|-y(=^mPHr`K}
zEi4KpoZ>vKLK%t@@%mAA?}wKK=fyITqjj+c^hEp%LX9E?%3Cpa-ej83#j%Xs@&0^M
zKypu2CV}Ip1{7eS;n58^jlC*!K~dDB-IIkDT9cOe#FJ9><wrp$I!TY*B+wfq65>e_
zgcIlV+oK_kM>G*9fOSHBsY^2kiknIs{vqRi4Ykkccysf_2FZ*Lw`9q9yr9eJ>fWPG
zJj73ylm%vY)ziYcsAkDt)>tpfMsYyG7!Y}I0znePaS@^(zP1wo_qjJ$H4k_Wcf|lH
zAYW+uSYW!lOrX^2UcHmyWIH?rzLw{f39a?J*p%^1;azdDW@I?-qE4^5YsGEk?1@7j
z1Km^=J}n3MD_WH2HB{Uvy{3H9N#OicstTnhhLfaDbgthTTL4#fNoP987m34Z(Jb2o
zguU3|O0WEIFB64!=`P5^Mk8Pb@l7jvVQYw1na)j1RUC*d_Y*43EHi3OeUMB7I?C%;
z0DqKrQKt{O-3c27#BtipowU|gwzL;AVvRru--8%*-Y5A%)1dLR;?B;EHyQ*^W6eE%
zYgH<h-kc$VIck@llTY|#faZ00oEN#09nS{cZ6S+C>;zxVz|^rJTn|oN6iK~o1U-YH
zBK))ZfWMC1um;&lm^!G5&0vE?;}asc@DK|;z$v3{o!woZ<v|qLdB=Z0GsBa==wyz}
zmFW=T;M?FXKRTSVJCXcyh6|-2=gW7B-sm0N2w7(6yvp~i`|PoMe|`hQX6V&maA%R#
zgR7GZXyID_v@~FiP$V5H@-;Nid2^Rk9*X}WWQcI20+zy%9a@8##Mf?V`I^brZV~Gi
z6UJb0oj!(mdkOFYfk>Z-1p{5R`AmQgWzRKPOPON%f({vFFaN&_3J3jPD2<E^|K544
zOH<2fgB8tprDnI0Zc#d9SGG3WN8YIAT-r6WX({`%(MMl+be~qFj3jyR%NO1jNun-t
zYxOP&GO)LgW2en1xZn*!j8C>(Pg?hb;JZ7Mbdby+qS{v^Buo@X3@waC^LVg&e?2qh
zG>RU|ymS^-$-0)>lJ?W<OxLC(^OJ^{{qD|?qEW0B*hQje&D+x7U%6r(|2&cPi;t4L
znycCFB1Dq}8DMV7e6sZA;BJ~k0czne(3TlYEXX2(Hl`az5r-5r5!!dAnf!_bbN?yP
zxvn<RoR;XWC1Xb7>J2tt<C|Mf{Ug>?nTUvIXlPwNk1`4yRu~5KzCIW*e9Khikgr3i
zd9R73wUBxG(Jt*qvSV$Mhw5Vv7Hx>k`vqlstbEhPg+$%EMvIN2e5rZcSd3Qn(G{7s
zjR$MAQN+bgm^t5n97L{*0u3n$UUr{@pZE_V8HU}?06FFt`fq3CJ)xr1c8mJgzAmip
z$$JVcWFp%Y0DBCry2%W<$K+qPnGLK~jeMh#)?k^GGW$LUB|BORP(L$@TUTBJLSp^<
z$5J_>-swT%>f1-RQ`e_{h7>^*_#D)wv%ghdcjawk2_dvvL6iwcQv9)u@S_*5ey}tk
z<uv1m6w|(`h2K5GvDekob?;nHIb2Sg78{5#p`rs2E4I3n9<OprG2r!rFj&NL#&h+T
zL^>a?nmDVSw05mWFG~2>089mHC80p=_ne8gzd2L(Z!!`#r%!nCv%QktN|O(uXS<@&
zzl^|dP{w`75EPb#v%ScdxYid$mBawm#3|zcc9;12yeetoqpO|)p4hd=^v~|GYd-9L
zocD?{+TNd*ij^4z82gqtx)qc7cB9keiTWLy0-*V{xpCfdKQz_zi|D0_mJrN4&2tAJ
zeWSY$V+CNu|AR6lKoEl*uW_6P82QxSZIc$RdHBF(xwXvovggOM%Z_l|hPAMN$#lxm
z+xiTi^L(SH87^Ur-TRTrkp>4R$K)0E`5yg8o%zZ}m)?8Ncw2PDb`dla$+Urejo7|_
z4D&Eq;LMK(MKurAf&oK&1rcr%GO^Ous~{+*93PA}?tJdP?UDo=t>?+jf#6X&Rf-Nz
zlTGh6LZf~LHD2CcZT!PNjj3*H9y;0w@M_U~pJy6bAWV!l{fRnsa8v%!Y+yWHD7V&X
z!jw^V>X>bUFitRo)Pw%2smE!HnsID4BSxjTr%(PrrJw{9KA?d2Q@+Qg*5|Hg4fpaG
zHIlAaym9M1gW`vVB(+OfaREPx(n(l>$Y@Yl?^{;BIx}`+gMp?I<dVb-H_`C)P@voc
z!xd9fU|5#63~gn*Iq{(sg_DF-U&Z#Up+UatmY=moJ(nuj-s<hQhhB^Q$VeEW`qEzF
zNAX}m7j?Dgjst+q=j<OkHhyjE_GoQ(`U0U{pV^eT+0^0e&NU&`(wX^d{~4dAfn~VX
zH)+!~(f=(66vKzbEP*Jybnj0FsaWQQM0UIMp4vgq&q^mneiH<*4~BOh^sx>^(UHEX
ziU}`6q0NipQOk$V)@(~S;2W{AOUBl1uFFOjOoRSS=<<jM)eH>xuXHD>*EyF`W)meX
zPukcmT3nls$wI1ce*xQ8!9o`&=9{d{Z@1d4SU`aBAE;|xTSAYM>cw|Ff)0=a@D?wh
z0pguSiUhkkME9RLArQd0+3Iw)*l1?CdDSnsx=fjqPx(V5q~jzI)C@<Pw6xO-FQ8Ej
z25b^@l3&r@?KGBCgOlu%Pq_f##zG2`I0y3(0?EPJJJ`}&W0k#z1V7(WC2D*^H3_2Z
z$;y>;!jB*|ZM2pVk~7Z%JK5ijX{-_}a*`vo{j^obSGQs=VNSJsaSI%FEFM9EY;ZeY
z4ISQI@S44V5v)^<30M(=<?kTe3VwS`)^RPx<qanSkZ!P=+Ev;+0E(&;;X45Ie7q5s
zold&*I1M}ufmF;a5l_+>6s_T>iWrX=&RKe$>u;p<bI^BuY3w2G3CMAg=(x&5>toGv
zrF%e{qSXyS#}c<1)Ul+ScXyG3i|1qpC4gA6c$f8V_PUY0iXQi;M|Eu&1GD-!jN<|7
zsAi*$Qs~abl>O-mqBVxu{Kx;tSJSeQDtt1&Y@8>S9UrC?Vgk1zP=+&oZ9`u&69+_f
z7cgd+Bl>3v1!;-Sv%ISMa@!C+&p<fLPXftRGvi(RYVltpAk(D%jda2-0lbKU&NcSD
z$WZK!fRrQ&n86@eciUCxu3(VJ@N_US8xtcVH9@dT?OQ7<^eB4eXddPcI&H?)VXbf<
zQ?9d{yp)?S3p$NXG}?aStR0GePqK~3YoFCZS5U6_>#&y*k8~TM;fVGmtB<KfzVUvT
zi5m<zE9B2aVH;Dj+h(?HZ9hk)RpR4VBuRi4KqjImaU0r5FXT4ynEH;@Vs*lmN~_E*
zqez*q>3Vd~Vl8p2IMsG%#wHHba_XZwC}en<CYHwpc6MiwaIhC`4B4HTQOKL2nk2v4
zOH&ScpIsl980ltTE21bO3sEBV@Aegu`PCGljv>?TTU;P?hOr|0!xzvMs^Uw^Nud<=
zC@gbr8c(^|eZi6F0hZ~Y?W!kjG~TyN<P)H7e>-N#<wm2YE_cQ^PjtmAAzN4iaL!UF
zF@9#wSbivaFsRVr)lg9wTS3JdiZgmQUk0yh7k$*{kKlwj3x`}dnT<m^wNw6xeSC>J
z4{|E?rYnXk^~^iGDm{>_(R~v(zj>y*%l7X8rayJL!28xJ`$?2Sac~!f0z`@LS&!%C
zHjUQ*qK3W*`LKedH!YSH3>Wc~?3n2lcVZP>D5)Pf2HFSEl9W0S=qQ|yqrVrqKLv@$
z4R*DA9cZo}VoXJwN(>RQ9Q@!k_-jicngIs>B<I%+7tC`9H1Aypv_X55{rR9*R`1vs
zc;C{=U!3XK8ULp<-T#Z3$HDO5%sjSlV#B}erlvGx?6AKDZoerEtGX14_YwpU@$iK|
zW`RT!g|vvnydgwpd#S9!#lL)ZDqUf<RI!Rxv$Tb;&K#Z`LbKR5AIr-~=y+6Y#;hci
zF>GWeBb!Mb#H7X`S|h(`>~k#pM5qH}L4eRKEvW54aieWS=1wsdEz4toq7|k9Y=5Zq
z$FT{D0Y~p?15cia%ln&L0U*<BLZ%qZO8eI-bA@}|>my|6XkLQZOT<u!E-kJa#FMbt
zIGCJJ&>-iSk@mJ4DXIeGFF?A@rhl4YIG?u$$-<YzOyCY=2FDq)t2vY4&CN#a(L@-g
zOt%7KQJYB)8i31@huCH4FA4+0lV<kf;zo$kbK)*QN{hj0Q#b_NV}Bl{S!7;4bUXeD
zr_MRh?_DyGM`SK{5F_$55JR@&7Nn^IRSAyl0xu?~w6CHjEkhgNkf_+L43w<|OG6OE
z(1FdysE(C|rw?U%KUSS}kZ;NmUbpoL2l%$j#cJ?(QAkK8cF)J%rdMbEGYp$Dg$OP!
zMr0oQNC;@17V?0l&s`BzOq_+4W0#hS#y)nd{{uG#)lX$`yiT)8WV4IZq>|H3lFB`I
zK+ICT?JAL3wAHF!kzR>LslvYJIdXb%B$0)x!ajv13W5EJzp@=K6Y$fCy&q!$n>HHJ
z`#Mn88bf%Fq!?H$w5(Y72I3I|lxtPL!s}V}{P^p=OX6Hl@3T##3g1SKj<p2+Sp7AW
z=f%0nx1D3Bo6oC@<Cp7z^Lgr2W(ys@Eni_$Aoe_IOB&Y7#m5j-%CtVv+nU=Acu9$t
zI(ND&`;|18_sVjcjgyqqgwmU#%hxArXj1k!+3igYec^G&PVP&y3g32S+xj0>)1lXq
zN4aw`a+h|9s~Wm_iTe!5ScM<y2vYlri1dSbd+mVF1X~@c%QN$@VVCzdntZZ5**$(P
zv3+(eCFu=EuRcJ@1+|0;mG)Qtq3QL5j}+MBm+sbRJGC0k;)D%$wR{aMZALpZ*741b
zg@+-qS0<I+H7I2vQ%Ge7ta>Dh2(8wm^-*?~R%^k08*Fh45pwNs%vFAGA8~~|V$~tl
zCVhhJK3`W`QE>)U(&__57OdemiCm6z5UQBkglEL+#>bVTc0%f{mBf2-`Uw(Dg~kw4
zTaE%L_<e#SeQwc0K{HT_gAmPFhu!#5<fBIm`R+j3<%S&!a)L-lw&D(XFZm&7Km3FZ
z^=@V>b%sN?9&5}tR%Te$6K11F<i1shj|PT(%eT>y_puEHFH;QXU1h@styf+*r-_6b
zM&)_R(=d+Z4IUE}W<_ifeuIgqYvpxJ%U`TkLZg#Sm39rc;jr;(%;1W^Qj<m8MM8`b
z28%doTx*J(GA=TUZ80Yauw-R!cf}4S)=4o={!pXI`{z%QP35e2nzAttK8cL(jrP+P
zsTQEj#Yas5mL~x<zz(o1H7Y`+fI67u1``2+mNf;I7d5QqW&Ys^yn<-#WKEVtXdXmM
zU;)QZO*J$Bft?Juj6L7yEp@v4(%I*{=>#?oP-!euv`l#>JQci@k2~*uJfEvTdq;|C
zYTdvN0-Lxt!BOX^K3p+Wu_~t$6;>;rK*Jn71c<GY=vy$MwjOgxefUMQLoFN6nPpca
z@Wr*W9jrJMSj`F)GDP#?WMn^esdj*9*86hUTL+xa2AqGG@*?b7!KmwUx!y*SO@7Su
zVRV?j+Rw9HK33g|7?%I0Z0Ul#y5YL0Xl06gJQpam(H{yDQSye{kjD<@(q=pWWfQ{&
zSzt}EaO)FvpU1A(UYwFMbV1!_O4i_Rnl_nZMg(t;s}@|bN;+|Hf%oPB0WA_<14OKj
z!?%0PP?_xdM`u8w12p6fW08A>H(VtP8q5q$3=*Fi8?S(YB3YVMJkRq;h>jG_;M=H_
z(^QSqjMB(;D36uVJe8FC1*4hJlJ!V8CD9A_o-X*u2zWUnjRCL+{y=k}`a>P8GAcPy
z{S0kVb@(+)8(eYcJK>mXdpq6lmKCdOwukl0hKKfzZrwNSuebNEJ`Y<nTsNMpHh^}V
z9c+7&!ao$~n#xqHrMt{)SDH0utkEPI2R|7b5;UD`KB`3|Y8nhG6$Q8^k6Jx>-a;kE
zE}T!X%h_Yoyh*?F32g_afg^YIYCtT^YIbXG&&bmU0P9ihoOsq<r>s(Fwx5F+3yxpJ
zQx$U`%hx8%`2zq2GSz#Os?YLT2rt}iyk2i(lZXYM1#skbN3OSPhY`??&or=Vl>(|o
zGs+D&3kx|Bl3b`?B;xHf28ndHUg;AwS&2B}FC&0&L3etBe@-m9x&P}GWdA?%82`dH
z@KRmIZk-;Z`&-orqj3LqW7<_qgPQ8GmX=G}1|C8%3dC4Ou;ufuD<V5F7$8qbNu?<j
zYvj7**Rc-)$QE%RZ6{rxn<p)0J_tBTE=3m6P#x>2d~CAd9>~@ovmk?-8IEUkhnksa
zK8>k@MmKa_Pd%aQxq{sY0!^$$0H^U;_r0x6MCJgo)NuVW=2smYZGt=qRh$&3hpo3G
z#8l|Aqd`LQNMOn}PVy?))+1KR09e!3mDI#PK@?Mots`Y$FcDOjaTh)I&Ea>+cVd2~
zrzPAbrOV1ZN@ey0Fd(#@rY{2LS8b)W=~+|OTUEZNxih(={F-ch^K(9nmOW3z5=-z#
zwKQE2=ZBOzGP(R@Ru)@G5~dTCclzx9Jg;qN@JI#fmi83%sP&3l_VQfrp3~ASh=}@A
z&TH^10<CYG%zBW1?Cf<~3naR&VNYW<B%T>V6^pj9V)t!2CUsUmRmPSSrh!YEeksBQ
zG?palBS6Z7^yD5EVBi9^p}>9t13&T%F*Oj3;o*QKm}3&nIb7e6Ar|2v3u^Z|0V7Ty
zjhPxe&tHp7V4?Sd&Uc-gaLgLq*OsA48Iql?MomcwfFQ>gkkzWKI;zlZ3pD92(7Pj5
zxSPO5pNu|Y9i;9nNTGDKHMhM*PWbwGR)O8L{IIv>E=p1_2XQwgfiT!Zdq9!gT~*1R
zZOwJ<o{EX-mPHuhhN0ReP>+UPnAV_IJQG$f%@KXKzkc1gxv)?iP1-tAMM9p4{<4s6
z)OAu~x78J1v$80oEOv>6NsZG{w}91?kZfkzmsKQFXqHU*`jsd~SZJjf<Wl`0^cXe}
z?`yVbbySJs{Y#-pCCfQxm_aR{*(+ma9wq|^E!p+;s!yXjxVY6LyI~NCLuaZ%wEMBQ
z(067lUIsptb(@DOYXufF6@1Jc3}TJw0E?-Jm6?TYmHc4&jsm#=>kfl4r;C1HW;z-T
zafa!NWdCY6EWAd<n@-&=(meu|dLJG>N+hFOw_imKaz|D|-jI@&r4yJm`*2RU6Pc7t
zrkzc8R0eTpcmy8N51q(Y+jzxb<E~o_dGdv@#_Qr7H=wjvyVQ_YTs&z&(UGS0O@`8#
z=}yn}CPnBkdCB}2_7^+zf5>0|GA}dv|6zYUK`5?Wpij(iW3eR=AI|<1El<Ru$s`eP
zwgBjOdC4|eVb#apC@W~T@L{Os;$pHpno3H^1s9%eyJv8fod$}e=tGR4h`dgShXNM}
zM>$lNM2VY?@mfFk;yvEXHqM#($(0e4)ZY<BmnBzs|686tiXc)j5H*bg$v_qpOExQ$
zD^Rr7H2?z6INVp6i+nd&e{9box|{tMuHgXTV=epln~DM=9cD5ECj@Hdgq+d~6}EaG
z<lox$J4K#BhCmjx{m|%<V9O)1#M6MCV!_%HO)QAfqoyEiQDqA}h9tC+F!=0`<4qP?
z*Y8hFY~?lDeJ&28^4RpA+6T-boMo!FRwy9(j$bli$zBIZi!vtul<qr6^_P(I<a374
zqet2pY-AR+n{D7MmgI2Q<w6xD7uy#&X)Em6tDu+oEslqc=@q+akfGji_(I5ID~30-
z!KEKN)0qq(=70?)lMT)wOU44oVOmJ>&YH`ruU&3OHZLBwZ1eCj6a<=)dFejG4uknv
zqaV6vA|k;;5EDRKgCqQEL-HzYGi0uFmEJQ+9vM^CDxpEQtIOmKv@B|O;8GbCF4m>_
zsQr({>{Cgu=+%kF?I=jIg-A}MG#OkQ&FR0JO5EL6P6WM!b`DKyO6s;}$*CD%5)FZ(
zA2otQ;;DzJCRXnY-%0C%#Dzs*<6jp_d`2yQ#0f69Psr9ENpMV*`0=Rx(Eh=ziNMOx
z6!nwP^gSk_9=G8qfwQAQ^5L83LE1zS($t8B0??>K@@esURdSBd5<6f#$Iwp&r)d?%
z$zc=f?P8<(%6qG4_NyGiBj;@3R7)1Y`~i`kVB0mK*VzyvbtQe9TB(Pa@9gl~yDQDt
zqqV3vN$d?Xi)+siT>P*BHVJw<AAO$p?Wj|FTk0wL;OcPWyVPTeqa8drFjhpNQ}ea=
z3xBXHshkgvx8m#sH>o<DEA*oq$74lvLwbr!`m_=Lp!={BeAO!((Ifk)EmC^R>l|}t
zzF~K`pBfNCnq2<<xtMmyH5^vQld`*#-RvU*XiB(6`Z_QK+2m1o@mB3oce)Ms$<FtC
zeOP+|LKyT&aJj|;C>FFOo7{NgUe4Svs`f9L$?}&Mli{0~`LFv%b*X>)#(${qt>6A<
zV|xueZHdV25bKMo@FIyp`c*oBo+K4b8=r4*V_QqzG-Ju~55^gB>DLD^X5Fa7alr}C
z1;0!STCP#ZvlK>f$Q!`(1F)oMz{^?Ee~ca*Gj?H?0K`|e94N0E-!_iB9@I3z7o4x1
zyoDE#in_bRb3kdwzdfGZtBInuJ_OL0Hxl}V##j-t6kyr661f%ViB%5vXQb%^Br%}L
z2!T9q*nXygB5d6+>5&X)hz9rOk(Ti@%ZgCXY#bV9QRO8Xey%vOP2rK<t2Ap&-qT6f
z9TuC@Y)kJ9ex04ZedvA~K|@P$l#J&x38bUUX;>6B-ClATWD+EQn`mo8k(*Aqpw(>S
zKN6>dVECR9?o>|<wch=h$w}QP(a93FuVANYE|S78dar|7vH1#ZJyaGi?F8>k;?6`L
zK##fLSGtTRTS2Le9x2!IfSuusFaF6$Ih>~F=Lc<pR!p$Q`%`KuXPj3zh?#rMcKoFk
z@d?{aV@?|qy>Yago|bK`zu>$$ojyx*h+3KVdZ3!snXrtZdR@8U@?b~7565oI;@34L
zFD0o?5Cecz&WI%W{gNX>eB&a$3k-Y)=-S9Z)%7jLAoB5%2ijC)(DjW%J?B$WMcfLX
zT#fD93{J1Y2(Ezs;@GwjxY>CaoN{3Gjz=ZSk6#1<f%APS35OHinK~Xb3xw5*3KKG*
zcT))PomP3V3-OBb{N1U!ghgRHrnje0sc|d6OxcnMv7n-Yl))_ub6HqAlUV8Q_lD(7
zVdmgGIM}1$Thxi>np%c*UMd9|PM5CTf)orE<6?zHG7l6G!Kk|w&<zN0L_u8h;h-Oh
zpq+nMM&C~vhKKF;9o?!K{#Z&|OC<m@4{F0h^wDHDFM)f58Yoke{ApoYHs}@)1(Wb&
zBfl`kQJ`*uGNtp`1f{Xhus=z@*<L#(onblYJ?t*udVxMQvHU|Qy36j~$5GNrykekA
zS0_c<+FLI3&9H3?<|sYiTdyyy(>0qzB&3Wu!)!>Yn^Mahk!M_0AqKb1wqrN*f&EaT
zKmlIIBMJ8mpYlCftJ3r?(X+Tf{b@4n_axz3el2Z}V6*s&H`kZk+Wb(Zk6JadbLOuz
zSgn-mjmvw>HtL%kvw&0iKc0Kwdt7mldv3|Y-BYe|75PCemuXExK8ChjCne3)ODJe$
zH3-sG2>Y6&*GD;CzjpdyRsAVC)1vyV?EMgQr;?5Op)tB4<VQkMF%UQfjK=I)s<(c0
zSi%@&s*48u4~$Q+duqEI;IKS|q$1=Wa87p-bXHoVoC9~w<zY3(QiS?kYVQq!psMS4
z{cx?nsR!5cmYTyy(8aJC9uzUxKj{C_EOVfJc<7NuK!CbHfwM=%jS}0}${KeMqDEEq
z#mc3@yRQ(SXFtE^_SJTm;6*wV^y5Vjnr_l^yr~@mF#uJw0WZOiv=hviiU9&#_g+fk
z-9$LQIiH}ZlnFd+JZZ1UlSyah3jp?+<S#dw9BhAq6>Mz(9#&+l$~djl{{t(W8_f*G
znvH?Q1pQ|*!6iq3^E=7M*mF1ipvr81d0x^aVu520mde+;KHgXo!XSkxkN|J_+@axG
zG1@1@?=Uz4H*XWrxp?YFaPirBq!gH7(bQl&eWpQ;Fy2U2d-HfX)X6%p+Y!QZeQUiI
zK#0acYWLY$`J~2!54rrqV>LB#tO^p%O(NhwU^p+p>rhudb{md8+Z{`vCTA1&0Bl8E
z$SaMufbFAsj}hor<)TTl(itv8MT%RfXi#k(=DE5qo?x|e7IHpdPCnH9bWk~4PDp1>
zs+QQIDCV7g<!IIyIq2<K@1@L9ZjPiV_%(Gl;u@zec$b!}QpOEY*S!ajdA1E$TQB-8
z#=J?Z+vXm|X$GH+rMepeb}@Hji=Y#HhcuguqE$IA(x$RiSf@(TxtnOB8LotR&8S+G
zKO4EZI};<IBVZ5nUTf70&IIs<0@5Tf_-Q`jF&v2zdMh-skY71(sg~|&z$m64=ROpI
zk}j_3>ue(j08!zB=xa*8<nFfy1y4JHMI`SoHVe?DA>uM$AzrFWM%d7VhOIM54_KQ$
z7L00PA$oJm%Olb-W2>a!+uDH(jvkPQvr{YIGVaPPwVtEWPpAT}!_gFYpWp$_kzm-u
zb4<H=Z|Tm}UFv&Te&?ZcE?`Y{vd{Kzz(PoI*_kq_3l=bh<XegU6=VN%#?K882JgD0
z1;GJ8s}^J*qcQMo6Y0+?$QBc7swP^d4`WCJ<x`z_9BjVr`BE^Vqn4gAVY<_W;D;95
zR0v3<(vwUxz+qr&))-b=s#7t_R7nGxQT7qJcrGUIvU1gL98ZgQc^^B1(zAQXsIYTq
zPmuB4V%!^xc{p$LSy^BZPlh=f(YXsI8>yU9Ncsi+tRjw$mBed5Jy;?BlVy>7GdEey
z>;>fPq&P18A6$G~ITDS2TKcI7_(L9MkI{3QK8l$~U<T+P)v!*&LXQN5XK8t1(`xt9
zd7}lid3ihT#UO)4P}Nvu>s+P$CZEt4iWF{t0R(>&24<uG&m8$*K=mQj3D-<|gsnH~
z#^9{nlK}U|3X*EC`Re(4sd@lnBU$=Z_14=Rw_0QLgFzX?W9K1yES;Du+!$f`P>5Gf
zg05>7=2i@cNQ}Om5s*l-(Sud^_!){Pk??$!EsfMw*I<HWo1{2=n=r5LM<H3`9}{(r
z`1y8Ptx<^32&C*Jgf?{$j_&?tVl1-EQ|R>BPSiOwHesMCGz;$%9Y-!EL1yVC^)9Wd
zl^+t>6A`RY-g$S73j@gx<z<V*O^}fjl@Uz9iN9+F)6-2loCvNTm$^<IQw^yo3cF;V
zJ>3fmT-k=$(Yjk8sqPA6&y$C%D!`C_M#=H0f&jFpb>LY6;?R2kLDc_~<|qdov*1lZ
zo+=pw)x^~G1<F1@6$V9<7KTGc4-LEEQO3_m<|=<3L9i8&x!2a*GHs%5mwiyKZEaZM
zP*v5ym^1cC)0A=j0;Q4D(!oz?y>u{|*PB7l^%0e&Dx)YKls!!-^!mavjSGc3?hV!P
z;4qp7hBfXbxHW%*Z#C3MT8?2{TV^6DvZ4t}`-cL#N;#W6CK0?S@HeojGZIg>?KrWs
zA>AoR>6Z>U+a|Il*B*^uljOJdg=AF(qL67lZ!*E$f*1r)DL(0F#yhanB49ZtFqiv~
zhy2~?7HQ8yM)$<hlH}M>S>^)Rvki@1cAR6AoS_o!UFFYHydsH?#A<g*ARKwW5*C-D
zvBd}eBBxgTz5aK$FA1&V+H!|wmrmD{J_(&E&bdubYw*J}A2Wb79Msu2Ssy6YRx#>D
zo9BsE^WTtXUK`g;_p$E9Yjiey8ke4Q4OcxOkDqOS{44ki@TT0!uhiT1EI0Y9&BwkC
zSAV?wMu7EzU1~w6t#NZg9%bd-TH8PK%R>?GAoTU$&t1E0!nEOWD|4iQzH+pFU){7&
zC;96*(1VW9vcZnPzEOVx&J^|1{Us;9*C_uzR{DP}U)b3GYwX0p!TzsL*@iT2zCkq7
zXSH5m+z+^sLwj*J4|*t)={87vktmWdFNQ$Dgyk3nEhHL9*{=_t2F({z-Ikw+QNZfI
zuXsuDr(upw*oHg~qUEN8{X?avi`iKR@oeZxAZ?hpxf&tk{Z(POhD-(&9ER*A3IsW!
z?S;vVcSkc%0*F}^{0sDv40t2SNQX#?)rnILNdS%u#@g{rgkqV<XhJD~BbNFgl-wCn
z6op5yB?%O{M<ppv!t=DbDfSf%hV*lYFx^(&!}5mEofR=oS-DT`hp#9NA<3Mfd=sxy
zFx}`=(X~l0G6l+atIZ(F=tIHf>2$dO??JdD$Ksp~=vs9!3hEV2P|=OmFz$$o#u3u!
z)KTX5d)FfniYPq%xd=moWfiydQ3jc*)I+&AK)V(chPXA{uo{V1v%U{3BqG-Pj7bGC
z;jnJ=vrF~k;EZ+c5xGw%-4`v8{0LESr^!gNIU*r}FjLa<lxyw*l9pf$83b(dN*_-G
zNx__*Tlo)u=L$ejyXFTe8agB3IwK}khfo@-@)D78tjY$|*1Eui_13jcM~fjIsSyPK
zY!@3UoZOAhE(UTzzmO6i0#bpjP}CRdry{|~<;MxlgNFPwH-bR8+@C@sC<Alwvy?G3
zgCqf8fbc}P6o3oW0l>(A7oW4WA(@HZGKkbltO+J)MpjNF6qQT7>vym$;4d07<cX6L
z^Tkfa5>O@1`(@^@&l$fu@XWfciy={rO>ZaPPlJa6_#kx$Tvf-q@(?VVCrh8o!N8ya
z%*sASFDb>aA<TM6@*1e~DAe+UC?*T0SYy-_0<)7&sPn-y%<?|P2-T`asLUXjWG~{|
z<)Lwpq=w&A$FOUPrCF&-MT#6X@MzVyv`@widYJ{p3t7AD2(Ak;oB<_MKInLySFiR2
zHxxej(_jjvJ^pQbg-=0<Ld_FK2}h|DL%(%8SWAju4woV<wp;X;k32t~d+4;dF}{{#
zGmPvlj?YoGUFY`-j%+$Kt!c?G%kTHMs(!7XTE9Eq4rQGoA+|r>kaF}+kAqjTb`PS2
ztJR0}q|KnG-8M$4OG*H%u6VArEVgvpwRpWo8nDfjdbGT>UR8fFWcuN;(4nU;Jk=ZR
z^D@_DvQ6Dmx}cBy1j;l-Efc~G?$aFS8}xIs7yj1g&X3k}-uE-hz(>DE2OEF0ZF*_#
z-(54b4GQ_;UE}Dj$V%v$iD=|%E!Z!J)5DVKohl;^0#5yCy}R=X-+y}pcyXx7-c9l+
z_(8f{kjg~F7ADMaxXF)9<#P2xS!L?TN~J7L5T_%eZoB`H55w@9Un37*bQQ2P{!s{U
zmzTNkmvL%&uKfaxni^nCojRP0JXA9j#_sJ|c>m>U`w)kF1&2B4qF6KUia<70x#as`
zUkcG%XlX~@iE4B^ZU<bPB;jV1WFJ08vO6_!m2h*_gAIOFYn*BykA*Uk46MNb5vz*>
zzkN(4uIu<im5-DhSv_!iEitk|bVN_v#t%u+>apOT2^da1ndGq&UDoU<*aiw+*7Cmn
z1w&?vC}+;`V_b|Bat<%jp6d>4r)4RV^4w6`diPtypBhta!6qk6AyhPzvt(*vF{3IJ
zD*}{j@@FSt!N+}x-&?L=k8^f<cH!y)PxG`=S(u*<u)IqKh)$a;3Dz@d_wq5$?voME
z)Oqgaq$sbE<WHz_-s_QJ1Zu0f^s=VPbOArVcT15zqccB6MuIz&?V#{lVW>abpmK0C
zb<lLCOh>JTUTHYD<zk>KNmT@r__1WmbGr%LQ?SgV0rOYiiUx%wwzHKy{+uSgVgAC&
zxGnm8`2Lb!ZCsus`z*D0T`>(TnuS`p^~}I1{lb*|!V@}ym%WX*;RN2(-5}eyV1VRZ
z7I45b!9C~Nxv*B~xRB{;csLrGQ(*JD&u^GG(z%~$v3t1gkUM{Ld~7M!_%Xe#7VmFE
zj;?0r%Bshv)-cmx%Bl5ZW~7JBkB`@OeeBk7z54Uc(_zl{s~7UkX&t16=!O;26-APv
z@LB_*Oc4ni=TZ!JvZlJ)R-7+qSv5nMK!y>An46HDumojWFJt`FkfXzV#oV`Hp_wBy
zyXD|?$a<TG4S&Y$*9d2Qw$bh3zGIgq?XaG&j*MyQ<(=9TPU=F#h#hIJcNB-tHCRs3
z1a^)!TbLv!t?mm#Vb<Ow5+U`}!}}l+T#|1L;qSx??ktqPi8rzI-%CUNvb-#6mttMk
zpN|VOTYDD1o0IKFmzk+s@E<P6ofjpKLoWwzy&(n-pPtBl1AQSStAlxpCe4+<;F0SM
zf1@%G6c2wu`efv+y%@7JXRetVZk!f-e4LT6g4aWfREEtw=g?4d;p8M9D(tUMnl0R7
zfsh|e#O^wBzeEExSsq<_I*ukhjRr!T-p2m$vU{w!QmW_i*O`A-(MJctGDTi&Vlu9<
zo6A`{Fo&Fcl|d7M!!aZm_=v{juADzCIV{FZx==_O$74AKU`54w%xm!zQWr+$d$^Pe
zwN#t}YlDlbq=)kX#_2D|DYe}uFns*_RvcmpdwU(al97DvEvXwwnv#A_nyQzp*SJIT
zwenh1K?irs^?Q%}_)b}DrwEqWG@N~x@_^7ZYaGvHd;D>VGI`x)ejbp%mWre=K<=YV
z*}nh=4yOMB82%$D$;$fg8`G}T3B>|_l+b5x5xPD`8@+(V%3(*t(@LBMC3KQg;qh7F
zdG@2rV`kV4tz=>njmJIbd#692-2ehi!m~|o91pZ$iQn?<zaA*DWE0|nko)ANIpBnt
zvvR?|s-;H&qdrn|M>w9pN^`|NEcidDC^Gnk=$iweazb0SYx17Y6x`tiP((mR2+)&w
zkACJk9Pw~}Z>74mgll1lA6l@|2@#QS93hTRwma^{b*R=TI7F58X$4KCVhtySqlwHp
z4y%9Pl5{C9>{z<kMJmsf2R0XFpgoLo0#Vf&Bc3rtP$tRJEs>o_khO&1N06NRu&Eu>
zeu{UK4%yy`RGlrduS^_09T(cqt<@uz@L8Xt1EbZbtr|@Z&x)!)oU3&!#sx!FWl2QX
z1YZYhTWbDZ6FrV%QK@3xz33g{HZ2_y!hw3}dlK#WWIoDO&Ni0HiC}1-oOWYBBT?Eg
znwhlBL*rU&n~%B%>`@)wlYV5Ts~;?EbJb5$03iP8WPWU_Zo{rMQpQ@sdeQfVIm><J
zxp_0Y<Xy+KuX0N2#F<jzah*qN_E3d8(;^V!OHUn7>29>N<>#%+>yT1MVFb6!P^ks5
zGUStM%6^aG+l98)-KuPx8>t0TmeZd)W)%NgL7!Vk->S?Q2V_wiDuF(Q@IKk^zxlwR
z^*@8uR>!uGZQ_phWCLHz+7<8A#%$td{t#`sm(V&h;asq+AMi9je9i`Ey5F1+dG*I#
z!-P9?si#P!+T(1AHL{I6DE$^yO#^dUJ&yJ7nZJzoGkW%`AU6eX*1JC6tOnGm3NZ2p
z08A&gevxfrx}5RYgmn4FlT9iuz#Z3q09eyK_gwNmpH6iK@kxm|(6U?5;`JZD{VJ82
zH~#M^XP~G5pGQgm73Tk$9si47u`5O4d)<mKvU5-Qo|Ze*bifX|zOme-Nv?7}E>uws
zABqu<g_FVF_^_}N3rkF2h<KuV^J2Y|?e~cf1%&M1TXb)-o24TULm%j~IHFGvh8W-g
zge0wx5+DGDx0%U_?IEzw>%mJn_%XzT-(dvb5u;EIlNX)9+WO4i>evmNWd>eB1F@?j
zzZeDruFvd*hleP>G>^(3FUsI<!8*;4L5P89a<seL<`7?n+;k=b07nQ}z`ufR6rPMa
z5)mmQJygK_Mw{bzb67>g#9(o@2G@k8!rkcMCrt=Tv<r^1@1NnG9-kuz+>ZN)Ex)wM
z^>b|1>NqgDW176Xv3l-j^6;68%;05JS5{O+R=Mz>hVJ1tk$7v>bMSzAWR_w2i;Z(V
zM~j@uQ$lAM^8>8Zp~|K|g}+khw4z-xgc3n|$q}Ok+avyDNN8kZ*&#O)ujkB$9pidH
z(uHqnp1K#u<dwKq32#@T8%4=d<qv4yoyl8&`|b6lWJ&mPTKX9_=UTLAPq&FUXLj8N
zWMpU*nT83}tJq1JY5rW(B5d?0nV6a{8eaz;=fKzd;?5Y$mtR|Hu`|4)Uqg-gqt+En
zHqj;+CS+hRO3B8Kh43i-WqDd!y`DIgl}t0^p_~4ps;6jmS#&B$tLc3_6-v}{n=Y<}
z88Pw8iY%(0_`1VDA*zv+#~It5??r)->Rc|$Gfhk3Np}St9^oiwh2D7z7JH=KW6J)x
zVWsjcQucWU+`qx54P2`uL=XOYuex8y{bxH(jYrcXpZPR?m}B2v+-xq~hCsm6>a9F#
zgL$fkJJQRRpYrjx+vVn=-^J#ej<es(YBVCr?|8eZqm9JiOgjE0*l<S50K&dv^T-ya
z9$>|*QTxBe`TwW?`%j#+u>bp+NK?v$V<!DS<vb*1mNK&1zoa7?S+4$snI+12o~AYd
zxfsKmR(5njO?<G)(99r+ZC-%$)#bs#Szs5FfWD4a=zKrJ$R80W4-sq+h<=*D5CkMm
za0b`_2Jf<iGo6d1_KTCYXz}w04*CW(_{KN|Z?rVl{W8L|lDm~o$ntu>BOVC-4I)gT
zw!dh+A<&W3`7LCC`qLH=NZWCc+F={Wq|j`^yma4UdxJbW6{8>=fN4BqTqEHdAPEgX
zcO_*p=kH^ph!MkEd9rKHj2TY+CKREL^AQ}!ec)94aL5(IOzsHWRAk%HPXQcKjmMq?
z({~*|X%oBE%HU5+PP6v{*x&mZARYH@!Hvz8KBJ;K4@ReP8f47ZXCj!=Kq-8Ay3L1^
z4knaPmkD&vT@LIm1&wG$Yj~%(@U{;rKfz*oQsTitS{H-x4#>u3ex{i5uZ{c0IOdp{
ztl%9#(p;wbTD2Q|<Vl)t^D-5u&*@H%myc%lB~UH_55^YFoi&y%Vx0SoMg8VcOIH;s
zv&|I$NP<|bVE(on{=zk<aiR9&1X&hX1#9h)2^F?as`C59a($7kfByOvezv+`f{Ln;
z5!tx-nXR-0=WYW{$QX1W$@#}M$MsbK4Vy_(tMa^bJPNr@HjI6Js=!n11;&3#$N5D2
zDnXm-DQ}?ym1p2prI?vIn^h>N_1B>bTI#Vxxa|A6)p%>>cJp?Z{nW#gLWLqM7>(u5
z^^SB{j&^<iLmGOjr-6d0{)%FjplDreYSIkT7jR;9i1*)ulkqP+Iu@4yXjlKMA}r(d
zJ+KSCeuu)%Q$q0xB5zrgDQ+X(Ly$`ZW_27#5dvCmdOPnR;0Q8uBU>d!Z`4dt>zKJ<
zBs#%FbUxG;o?a^|3`gQ7B96@GP{aZMHiH?F%%c#1znWsq_Mmb0^Y~t^cP-_}ZMBJQ
zEmO3J!VOn4G(Mx~aP1HuFXh=o2{=<ril!-rnnEA%MdX6$>JSGOLCs#X+6M#^sXNd!
zIUjGb4<1Rl-oYZGra=#7cmqdLstX_lva(_FrCQt(`*qdK^O2=Lb8esxinq9bgAAw_
zX~XeC#17yD^Lro`Niw&>Z=7MF>!ussCo+>sJVUFos`B(b&<bYhH8j5OoNqGF{9245
z1R(O)rOh~Ayx%L6LROfZYQHOVKCmvUsMc$(TibrS<*ahG+y)Ny7>%DnRTaFt(;U)Z
zL8uXZ1*oYpO+uNlFzxwM-&{B1AKfr{10ZWjA)91TH<=V5u5k-rzuqbGYtdDv2DG}Y
z+{JohYCj_@*s7HwD~mPMu#|y2X2sr!{gfdzQx0R`fL+C<>|m&+vQ*ZtLM4H$csKS8
zj_~06&5CX9n?sRZmg+j*xJBlGs|IjUx<BISTUX|yKsKBHl_{Y1P5`w*YxikE-VR>C
z;9pF%;>Aad!7ks3+n{EMFW%w_1|)>QIF8@n5INyvR;<Q(zM=9(kaFIH+v(V|4UAsr
zuRr~^Ik4`9j;?ct<anqr84FrM#xu6_>mA+hJ(2To@%Mek@!!L-|5F@U{-b60FXFE$
zMMi1kpZNPk^=jm5nk~76VG|z+h6Z+D2ezlL6J(Y_F{&{5^PF5&$S!*lU$aoHmf`01
zD`C0+1_-0NGis3w8v+QV0PhM>e54mtEKNxqLP!C`0uKK35}yUieE$nha5&A6JShIp
zf&ZTvrD`0TY=z6wUCOQ}-@@$*F>5>+5W{FB>eO94!{C1NZ>(!Ddb!S`Pm+(ZosrG7
ziztfNaD{T!r3FtXHDpCf&d+Yho$oT{5J(|M(42yJBv~y@*`T2ptHhF&oFJm4sAg?a
zMPw`VeT#%8Bo0cX%q~(Sg8)UvT7+NMo4sW4)$#U@&bCx*$Ch~C9^U{cv;HC|X|=PC
zal2g~((OGMY;~Gz*0k5Xwmc1nFo*<27$rX_5;ihZRzBHBkLHx@X3pHNCs<eNh9^28
zU3gFjA^h8{XgsH6qA2FGTiUEtk8V3AE47U#&PRKFU5oHi^guELF8ug4a2<xWb8UbY
z1<aCa%8O7Az<|^T0{9a%=rvgVB~%zOczLu7Gt1Jpu~3egjkmRx`%#!yTln<0Gs{GD
z>Tz2?mWiLW%$t`Ft_y1<3z02k(T#B;4pzTN3m9X{rAZq{rheXICvsBSmDr)76S(~m
z+`u;{z0xtd)h;e5Y8}h5Nbl*JKCLX86DUdi?nkr5#q^26$hF(vh&lDTqdL*zVt)DA
z++|m3V4Zp_bDw444cm}}1mhs8Z4v0k^aZ*-Z)^Ow;A8nqqs7AZ?~C75ikw|0J;w00
zHx#}BR<+*OfO(6Bk!BI@dhXNg<1XOZtoW+Gu_oUK3>>A6`a-nv*%%$G=f|Jt)f$;u
zHQ`zCW1EXC5g-HvoJ0h9Zn4BYenL<fsfc})tyc63?%Ptw9xq;_$*xIm{O_Y2TXbcg
zT4sTHuyi-<UtHHl$0fj~Xo0zMl7f@|`Nn&jn@B%1@|=Wg;{jinK3e&;k!aE(p_!d%
zaq8zJ@J>`9*iE(PRqX&Uq)|Y|f19d0Y$>PfYMXL)&8w6gIplY<tc}_~64d4*y(sHT
z2xZ#n9F-kIQ{f$bNP~=}PTBuH=vaAj+UQwcYG(SOrWZLmT%)*kBJ)MlGqJzJ_nL5M
zc}rPyPOY<O3gy0V#urtJHU2=!QpZ@;FCbnut(w{--U92kk`rHD?YJe&RaiTKz$B6|
zg964hL)(8cM4yFTWGm~B5F0^{Bfw65N5X|VO#9MD(~>RHJRMomT$T{y|IJ(t^;W_R
zu66tb<w`@ICb`)Atg5{0a9m5t7Dab0y+Uv`;ArWwc(c$(s*)-OlG#4Toj56!6&b0w
zd}el*bqE#cL(ED{E4?}7aM3xGVJ)g}aEN>D1m8&dInnO%`jF-VNn1(Ijl*>4k@HYu
ze=^oolD1)qkKq*O$$5ODoLfLy_*MTx*~gr_AmA2u^5vN0Dt2Muv&glNiS4T%T>OV#
zHF!8?wMy8#1?jS9O$@I(psjwD@Ot?wd;HI=58!2&Sb~09!xU$*JNG?)X~09r-(r&W
zZ(R}N{~xqC^$%JM`QK<U0u@q%K+Y}ZT$X7;#Bf-nP@`0xIm6IAV3te{AJPCEo6E@B
zt;kA(ck}-ACa71=zZd;j>9@8lCKyH^1C|j2sXrqW;v?V)2pC{E+U|Cjhhp8a({m~t
zQE+R^JhlPbZS4liQ2D4cVy2)c{9MyLhvO%^x*j+nj37u`%7Hly<dZ<B^A$dV`bm?O
zKLNDhP0Lyv2s1xDLA!L{WSfKh2GzQGI<PchUVxn@9LEDCcpe@kS@U5%RiXMeYI&lQ
z!lWYVgvG))UDR?hzjOkSY4jZ-+8c_aA;YB_Z9DwMy5!YuFn+xJDzqjE`pt<)FDjoe
zeO$Bn{FHrW+?7zmX)XmHEguPeIKXw<CAFQ!M=(0p#*XQcsNi^K{%SfWWk*?KT14}#
z`9|!%XQFJT15Av4F#dpF3r2smY^m*@-64j~Yq1|L&LdCvZqhgxsVu#~)<S#Zko)wa
z*!Hrn7c~TlPqD49)6G8K9zPl)D627=`c^Jk4NI3aj<*^$iDftTWSElWKDoFVKk+)#
zGf81Xcg3+Vr2_JY$IsIU>1tuBh7bx_*Uywio73(uU%Z2sF5psWW)bNIG@(a|AL;I?
zC4kbl=*QuL_~Hd#5Ha~%?wpZ=WcBfDXVs^e*n&lj0dMfi(N_Y>>oH;S212C|(OqI8
zwu<S$exf%2FV5a7s*Whw77Y?SxVyVM!Gc=|?(Xgy+}#p9Sa5fDcX!Js5ZnnG*vM^i
z&U@#KaWn2c?|tyY*j-&UYu2pQYpw2uGWIxAvS1M{Ye(Ezr)bWGojf<av6a4B<f3eT
zJI}|-eiJZ4C}pAO&V5e%)Hjtg?Jvev*S?9gYZwx9Y$5mEm!<n^ZT04+5LPtI$A^nV
z=e?9(h<X&7G<*}N)(|{ay?L23{Vx*p{P!iV|EH_7{ePIjN|968ekJiemOk~|z@IGD
z`V4l78mK(`fKVEzUUGR-wztoM?wQiQJ<@jY<v(;ahWCAztz&uwKWsAoNqkGg5eFgZ
z7(|V0ibzWPQ8~dFA@q$Fgni#QPL>qqJCgh~Wqkco+MzA-J|hiIF{M><kI<;Iy68;@
zYysGnv!FM`;<M1oA3t;<*`J}(p3J@dkPr>s;V!HTNsWrRkV4gh%nY>v7ANpi3BW7(
zh`P_yi@HuPqg*cEX+rVS)mvXs!K}1QlshZeu5!!j?d<zE6J#`y10iA`TW}VVBaJ`(
ziMwR_Woh$!;r7Czd3Q9X;CPIUtm)G!N1*MTx1h?93m3{57UP7lOD6`wTv9+90xj;(
zkG^Ws`CY=!H2jhql1!@kWxDszabVv(f=)t;w#28v1OBtS2q6-SqbrKysjjFlXMeh~
z*=D$UU3@)_;dp<csXzNBu`diT;hDi|r8*qRdk25YwQ+=YNn6o6ZL)K|8a%tT$KRQ-
zS27Ujs@We1d5M3$Sad4&HNkQs9+MpRzXdDbZvN0eH3~T@zH^W=<&rYH-tp}4CU)k1
zuj|QZrZ8ni5@V`924<__1(Ar&x2;Qco_sDDV@j7SU!o|-v4MVZsp01JagLQiEpW}z
z`RHMjYwL^sgF3%y2a`R@7dPAX{1IX++JNR?g!<R#KDc-}{$rov|7@7}|30P|712IG
zfA*5Id_VdT#VTEQju5jau4ttNx82R(mx_{qXv#FEmgVFqSfd>!ni87&O<?tg+mRl~
z8JH=e;OrwMf*QgTk9iYF7ek(~w>j#sS;k1(_ktCYr2OKI7P3MDyW)`LwLQ_0h*u1k
zJ@0)kcl2~yqYsFpF?47Oh9xu|HED*I!Zh5D*9kG{NIvePmBlBBXw;Yzce#sx?~4RP
zEH_c?HyqMh;vYw9147_YZRFS*$*N@=E$xp)xw+GP(_<I4EqQzaQnA6oho?D~7n;kX
zI`?@<_>;$}CyzA_=1d}JG>e}ggofZ6tmD>wi5`2qpqw<s>W_6XlG^x{rI3I%+SOQS
z1V>rqgER#$TUVmJa*WEo1``a8E&BSXXTFW|SzU{q(CSiCI~&INS3gbkSd9Ag@$Sz|
zjNc^Xc`9z}j{<j;mMp5?FnA%w%2ZzVZ}_LoLcGtiug}I2TWQVnLV{k$UOfC^U)Is`
zfsJq1<V}^S?@Ib=YJA{;5MxaR!ZoL`$7K5Ic8bcC&n#3Qi#1r3s|lmP&bn=3ZjoSv
zv?tQG;C?4HutP~0&-Iy__0fUbxN00#f12qR3cO7hl-!>TZASIF4kSaGjZ_DHruE5<
zKl7CXj(w7HlhjSi*$lgLv06RXH6aQ`?UqN@zJ67eC*I;<a&}R>TsL}~mliXqxb@u*
z)zy0zTpbXH;!4=c)!6S1kUW7bSQoTbj&DYkq8_C(LfgdVT-$x=zo?kU@V^t2kB{}g
zJ-+-O*7o_h`TlEdpN;!JiTi*5OwD9kuRU<&Vc5AJf?%L}o^&K+4B=W&Go;8j;Jr#%
z3O&rXknJ@@q`u(io%gY)UuxKIQ4QRA*Bqpy9wa91HQv!(FNq!IdLX28R1roXR-sE1
zRB<I4Z!;xPw^(o5`k?5_jnEa6mS**ih)}M=y$#IRa4C_n3lKA5&xhHymPB03TAV@5
zfXJELwCy)_o%&OPRmEXn@BamjJ$i7`lb(V>AWFwLn8ODLyM8mOH6s+|3_ED^LsTr9
zp^_h*YAFRwubiDwSbR!WaQR+6rRUPlz0pTOs6IQK@$Us6O0{8Vv35=IFoSmSk|4`*
z26{e5MhORAetp2;QY7=w>n+2EQtJ<?fC*v4X27EeQ!R&(m1)#2(xkN>HD(pyF&gN(
zE_EXbwlLe@lvo_zyjOHAkPMG9nT=8q&gG^03?rJmV~z(GE;{Lq9f(Ow5tc?<wi|PZ
zbBiQy^jQyDzeQ(Cx*1MqiuMzqs;;3LgI*t|EW=JTVU(91{bMP*F=_1F=<vtfY&p3=
z-!CfTH66eH1oft=8Ais}MlNvltcVa)!U$PHC7P#%;LZq<G~`||GOIHpL~C>UI5vhV
zAh0y93b4MlU(G?)?0P_${w4r3v|wWB&|7<0w*HLj4G9+cT8+e=VQP@BZ+JgO`i{&1
z&sMM({hL}a=4CC+xCRV?;!2Z9-z{c=m%E=|lQ#h~|6W2LxCVTBCtUM8uaYUs<!Se7
zKi<M&gV){31z203?mvSRU4-%r987TFMjG<-Y7sel>XkIV*(9lQKeu-fdTQ%NNj17V
zJC#`RUGeWkd6BxmI2ZQzak^Q4w!PyZKdU}JpF#d{x_b8Xe6}}!TKtsd0Y~y+_Oky|
zLm1@qE)`p}P275k-g)5}ZMMpOi`@0bv`eCvE<fRC@sE5_X<4Q`ONITXOuNz5B^yfH
zL@MsZ6}L%;NhWPrEu&D*HDm*$*6WB*bpytTLlQ~WQCR#Ap%NA`F=0YqlI?_TqbQ8M
zDq0dlL!mxoGmN8zCKl`#FL~H~u`5n*$gb_WF`vV)!?227NpFxm`KV3dPF;z{|78g-
zOU7oPOVVn$DOo*5r7)Djw$V;7H2%7hO+an=P4>9Wo9P>_fPF}U9+l8{E3E@C7d8vH
zH<d#rS!HZ<H@7#y=a{-+PE-wb+^edY_*0itvdV47KMgiY?60lWRV!&{HqX&NsaiRC
ziGaP3NbC$KJj<#e1X2Oh$AIa#+yTW11T`*^?>3i9*ywa(N2B#mesjcflVfO~8z`($
zJlXUVq1!mf*-rAAKSt;q{jO*EwdnemNzWv;u~ezp(*Hw6jh2lqd9^Hy+eMT9_^4Ou
zV^GmGuFzT%jAP@3G|pB?QNw{Itpwu*{={2ZQvF~=ImWs)7@6oYyLVG9msdsLV2LG|
z^Hcdx*jnYs@`v!=1$6IL4r`mu_KP=CvPisi-2L|KRu8{4OYGBZr1-|dW+QJbH)d5Z
zE#h$23}4K`a0eA%;`g}tzT0f=fw|B%f&%8jAo!P8-aH$TgHgVeSNvnI9~;}hKAFSC
z`9E*Uohkn{clg?rKZt&Gh$T>9pPwi&bGG~j#l2#NumW+y{nEt%U0R#?Q8|Xiyb=BU
zOlXN5tw9`GzEUCA&7F+)Ki-$qB^|A;PRJvai|oS%t@32Jp0S#}I0GvbPh3vA)+~h9
zJd&$;Z*g7hD5rcq&3ut7VWUMcgDh!eAt&g>u70$&)6j;MG60XyLJuIui7zzpDTEV9
zzV-Hub9*vg_w?d|6N00zT|$GHj6XHLPs$IiGgcmr|00WdE>KIH>{7gg=Bm>X#L{Gq
z)TL%M>nkagIBf}v>^eaqAK93I_PNfF^KkE7sHzypT|vkex((tUw^Am^yO|az$kr?V
zY^)0#Ns<)XYCN)wE~ju^-W5A`rItz9eWw1Wbxb&IR@g%odDyAT*)Wu-xnI<wPrl0E
zf;IP~fRm*H+g!vntT_%czzl!VP|AGtO-y1*+|lq2FD?J?#H|=I!{a$5l4Y1*<w${s
zoCE`o+C{%<9~&-eS3k4V+LT%9rY3&j0i`ySH7RkYX?3g}_}i1{F!<N$rHXYlXyTtQ
zq0PnB$@5#_UW$bUzX?;zs*ti-r@2W)TPO}fe%RO`iueuY4Yw%vVfQJDYrZ-2hiupH
z+uvHLh&i~h8M?8N+N--C7*573l&B`j)fvP{9m?On8}r#q*$3VQ^Je}$Ss3Tt{{1cH
zU@s=2cjmYE;x#1qEJMqs$Nzh?Wn*Le$Bu1oHrD@Nqrlh6YRK#jWga|>_vteIrB=uT
zDJn&{Gyx#qZlQ-ak{^aJ2=<McwC@*>X0559i6J0Ur#_!#>Nx_VKn%`aQhmtRQD6X^
z3NCOEdI0~OdE%5Hdh3foj`GnndUiahFkH_LGxm#|Nfpu-Xjo$^e&w@!P3GT6V+uN)
zT=;^tfcvr5b}2(LUyU~+#37sA#I2BwA6UQ7P4rZ{Y=3{Rx&Y4ynI<v@nJ0=&A*~55
zx~lw9eq^1Isr=YZIq7{$m+ZVOooO|(%ZLn|5BVY=o3fSuXCay&bC1EiNAA-_btwKS
ziCKCHBTLutN=>$AKPlPsmNSycA2#nVH85dLyh^qA>;;KiWWG?Nq|?SSOvW;><=nz;
zD~h<Ly#EeuB_2S?(44%Qpr4p}y_3{%Kx4ulsN-4E+YjS;pyb)`d?!ko%u7Tp*AOgq
zr_oOHd(o#k4*33mxJbF!8RYC^nQOM`(C>8;Td)x2f+#!Ic#bhc9h%I1=A2twP0CLM
zl+lSIuGIVYEH=Z&owMNb6Bezj;rIZA$!isO?D`H#wI{o{udFR~br}w$N;{h2x>{Jr
zpaWZc$N9Q*C4NSim;~*|Dh>Ov!+ZqaOLDpAFO25*^&2O%tS6iYwCAIFO*+MsxoON2
zY8H|k3h62qAL~;t7x?B8&T}~*0vf-6WdxtpQ{lKW$n73{TQD(Fl_IPZifWoD>9ZHJ
zjK1N8tL+f`<fFG(wtYN~Dq0vlnb`VMSa!QJwa}JUaL1^W<ZF^!2|nE?viucs!tc)$
z4#jc(I{)G<Fm?04O>lE?^8L?GYthq5TyMhjy{n!nU{M`L+(vd>bEW>hR>dE;zP8R8
zxedGeYwg>tKD`xBs=-f`H}D7yv+XUrz0`x_5T2e>;qjyqgY^m=0^Yyjerox7-yV#*
zNSb3((3PfTWld9x$xdSyMxYAu>r8EM{mi?ML~Z$ed;IH{7szh^eENBdEL))1OOn;v
zNp9la)4dNfFR0aJTBy3|3WNT0eM?su7RWVqe6iYoez<&`&vunbJ$2nEn$Bps)c~aU
z{i(6tdE9`zT<;EdDcPPIWW3sMzziE<1NETOy~>ml4KiLo^$J)#b3wUp<-jrFTWN=h
z!<&O<9@OufpHDseejyr2Ccn1z{pP6Oy!PI%N-Oy6!lZ`JSXbF)4Zav%W(`svl9n23
zuz=>i+eH%JCG-k|I=Qr43+bji{PWnCfhRq%cQYGqCeI#n+U~D8CU5OYl-VD)8mT#P
zUp~;%ih#x;#p=xZMfR}M(ftlt0@eu(v8&rb^Yi;v(*7JLxwqzNTu0c=E@T;l=8b<0
z&pTFK-3~vQp6%Pa%?3MofNroOwq*n7PC7HQP^(Z=3Dt4YJKVUyco<!)qUo7o5-m(&
z<ex%IEAM3#Ky#Ukm8oaprJ-8(4&3|E@lTP*XG<lOI_){?q2`0M<3ymqvD7YIrwU!6
zr137*D#z$!`Q}jimgvDPwTCrL<$zj;YR2{$qM5PpiVUbL7Wbirl?|))db-!`OB$&P
zOVL^2-&Xb7@7)qtkvP9kzGzQz=a_GW@vsmJ@_S!*OGygi-pa&i%2|l^XF)vqba<LJ
zxxfq8rm+n)e6wp?z0ddecKd12=V+=J^G53o>*`D}o5_fT^)1&-y}`*BoQr9!w(QPO
zb`*v+(GQfDa&TupJ`sl7`%rIqlc-kFpdpy|D2tJU=t)I~F`R@CA=JhaDxrTxy}L{5
zn>~#|T|hwdmqT&bjS%vE>uYs}UZjTh4ol6zV_l5>K__#1h&1xOu6HXYDL>Kp9=Yh0
z_JS<^u&Q_ow$b6Q^&It7l4YLpu2~q#q2N|YXWPo>qxG`iaG{uYr#J4+x_Y_OQUR8T
zjfBWx9pi@jselK>JR3d}@o9HSPSqd|QT8bQeB@>Q$+sh)hQGPOG~__9O;aqvg^*}(
zm&cD|Jv^$#)w~sP#A*x?%(Fn`$EO!rA;TLC)eE;_8G<w|HYqG1s0fwHv=(s_pI*`j
zOx^+}ZK?s2EPqWRm1UC6-A>N{1&}|<OrtLPw(xu7_4_=FV=ll}HDK#TJKUza_SKeF
z=Z4)9S0brz5bZJln}Np=!<dZd!J|tH#+q>$$aEJZ6p+sdjD2iRwfZ=P6%-X*JS-&s
z=x+!#>87$26v=B_5^*uAKctlTEhtBhr;R!RC$5b9P)@kbGSMYx+qa+Nl-V|aTcdf4
zPpex4o+^v6M=>-4p6b1N`hJ2H^DSJ&iYA#PI0CeaxxGg&R@*`4SZzJHBzUbmI3za6
zaEpvrh@}&GEMi9WdPPiSr}1Y7RF$_u3>r+7OpQUu#9mFR`MKx?_+OQD%iLOSFX=zH
zzh5$XUm<cDBC0;I`KvMUXm_n^?Q6mPT4yi$b?vw-)ds&>&uKv3!^gW(3|{qvy_?Cw
z@K#d!X0~oM7q_z}sJ-IFGxODMI0eoiRq1kTHo$#uQNVpP0BC|-!2OQD?qBMTBw!N?
zNT8-Zu_6Uct{^T2QA~{MR;~A<U8a$J-%Utp6<9!x*6Sh(`M^Zg_{f@P0Vczz??nMp
z@T3T&VCyvn@;pd+5|H4q+;%Ps%9eTv2k}7n-1gHYE#f!(P0CA`JrUWbftDrEC?Tep
zcOQtVI_(h?vf|tppqRo0vY~cZIj3VgIiM0SiM64)jiC74p*Jjo{amptR%f;N{0uRT
zlq=<NXX~F(-z9H`C&c{nE9q}sc7&*#uZ<H}W*;!*vFH=kHu8Uedqh|@-p%(S7nedO
zsi_)$O5xR%0sz}U2mm_{0Q<o37g$@82g?aX-HqYf=JKEI9Q;UaB(A4@{2@MzKXiSX
zza_#z3P0XG>0X)Fo=Jt=R=$~1e!mp4X|4210WSc<xmOBw0vKlfC97XuXn%qFQ(`6W
zWn7|lfzJDZ)7`~bJV#$#P`bG2{iC0+TdVKgMl9z`o3K~+WK9m&pYUH-6rT8OCvt=F
zWc6P=jLanz*G7yA8{4%PQLUFTgUcOl8pymf^9QP(x{Ja%aNXY~gt7S)G$r+K3*RhO
zuC>&vllR$h*?S+fro@LwH9r!u%j$HYF9*xZ0l;$IkHs`HDaQ=me>Nhv$F+(nZKX!x
zX;f4xdiFBbt;I)H6a(I>6QOLl+z~=Gc$W?F%SQCgz|H4&EPJC<Y^pd`GBSPEo8bY(
zNi-{)P(+k$A|~T6=s^-a;=eVOLM<H5eex1>i=aYbFle!GXdg9Ht`bw$9LabE@tIr1
zljdOe-y~eLxUaQT73LZ2$A&E$wQCVAm1+qqGovA(fu7mUpy}x_8c+BDE^z={`VMf3
z2q@?C^1oclP=znB(zV&}@0Q+J^=J#Pq!1u*+|`*8R^Xi{80dt>X!x9ChNU^D9Xu;_
zVVgfdPW6Y<Ft0_v?BXOjOTm?Wp+PD@gGnt)%2FntFi#PQ)($%A^P(j0Xahd1s&=Is
z{%rjuHo&ANfJyG<{f#^_uS}wDPfiQym;Onwl$ozqLsibzWC0BnJfm`uA{2GhaRb7%
zzV^L1jhNOK7#5>&^T1wevVM(P1)f`p6T-Rl!7BfIYxAVdHoV(}z4=M6S~g%TH53;`
z(GobXGu!g9B-!07oN#eHLzzi5{$RB&K1>$XPg>GxcX?~=xbe;Eq2@dv+9I5Z^M&0;
zmggr->vVq@o-)7BN5s|OULo`Od3jiUwx80So>1+vCs0Z%#_W7{<Bz|3REGt#ZS`o4
zBIvQypBIG<x*vu<V!JL0|4}ftopbeWQo_r)S7czACC7A9s`RiIpKfvj_!|rGcfAF9
zdBf{3e|=OYKPqsi<_jvcUy(GG|Ewg)(u-wqJ&(eW$gov1nL*lX6bEEH`aK}M3qY<U
zUS)jXZ?2;8T}=1I*D-G5Ve|HqZuJzPi5Fee-km09fy?8{?q*!nh)}SqkN8cK)ZM76
zV5w4oZe(+rp4NnkwiIq{-No#{cFVSY!&BL8^aI;{iI<}z0xO~AtD}4)<Q<@j13>Xo
z5(CBi3n<<?#@FIC-7LbV$UBEV%OBhOZoyL$pqyE4JGynIhPVM#dmV5=5)p90DsX}I
z>jmn4jIyeVlx~eBK=-g=0YdNwLTJ<gq$~Ar2)8QAWN2zA$3+AEnQi7MwyCl$@uh~z
zTYJUNiAhf~`0%0M%G&$u`l5RDuFu=ByQ`eL#B&K#7WJ>saxK7A0DoCtwNM!_`1`Lx
zcRS@NGz#)6n=22B<J4lxgC7k9!yA)1UH4nN>lC02NBB%Oohnk`dt!-319b2#Tc`dT
z0y!9>-y9}p%8IAMY9m&)FcziNGVDE31lJ>H72!W2jnbYC0NwoVwVT^Kd`VT}6!=}2
z+1!&PT~I#x(jK18v<S#+X_zTyD)1r2&JKiE705D8&*klh?zuD7swkXnTsM363E<xo
zmv#3qD?|-!`;ll}s$7b_SJSK=Kr&mehXK^YH=rh}O8Xl%yk2XfNQJ2aO<}yj@>9{<
z!7-M*F(Kahwe}$Y&d;~lUn?!11)V)IGEBZ;(<|G>?E>8n5$JY07eKdT(u_Rr<$mpU
z-%ebpfW_N1)77<u27dp>7d%N5i)z7H?<tB&lX+RCyUs9Y*g18xy8-lf!x7r@Q$W@?
zfFxeOX8jyUB0ke=5=9jlzu-46?n!Kj{d2tFlTC%{GRVrtjv+O7cVTl6_OjWE+;Xo?
zPb_-jFvstw7_iRZkm<T_d#91%{27218i17=Zj{zO2!M49`xRF9eVVXAqp@8U$|rof
zBPo>)e65V!{Gf+J^i%HCs|*O_wLQ93csLw5jf@_^gw6|K;sIrpw(12iG5KnOfeOM1
z>5DZ7`+4rasiurh{e|2vO)t}Z&mmKPt=m}+L_&<UW{z!cUl#g#4P29*F*TOiA`4Hx
zNUil6syk4vO+dBUv;*BH{%^HTF>L-?WF5T}<HrC`yMl3=1*DliwO^f2dXPoO$}sxC
z%yGNd(VTRflNB5m`{Nrxs<gv@y{%9EDad~kVLCJywfer<;7qo&nqtmpT9Wb|%ZvA2
z*IjJsb3BVd_sCR~qYce^$<79v;Cd$z;MqHXdK*B1!&rZ*H=Cwd5KfoN*X2RpY8gBq
z1XGN{!)pX*qBgJzMoQ-PEJv;62Hn7A+nie#czT3?Oyc$+%7zujCT$~4+E(e+3Lh;`
zus*7;)`4Y>fFoo>ZsV!f$9NN{2ArAubm4gT485Vq81e9e_I97|Uk`pf|M)fr2M^zW
z?k@SiPyH`u>A7q-VTGMPG4S%w<CPIm{DE0%z!~*QbfT7DtH@|b+!56pk9+@IM%gao
z=Zo?O0{yEc3vxiTIfqT9cqgTS@ILCBKrwASjfRI`JN40t@xmGv#z~wFMvH@LRF&jW
z$7Adw4OPs{<s?VV-OLUo_Uh|{3OEMY9i6=Q)9}I7^HFMH=!iO6YpA`RH_x{_;W?IW
z@HxI(N_h>X&+GP|b!6ltu`e!*ygV-NFxE&Q$_?9x+PW*NxR=%b3^f~kbT4{WJES@!
zZM+F*WO3$;tiyw4QlM0}R#C>#(Z=mwCM1XjVSxWB6xkb5fht&a;`i;+dF$+YrhPbi
z%!p*FvktsWL$cP%kWJ&GjW$=o?1e<nPtE}ZWM%9CY@%lp{|;WPu_cRg61qeWhCiu$
zH)lAWxtoLY&h`4wKHJZQAAOrUPN8<q_=6Pj50)}<`(<YZ%V_3_m_l>;T`7b?W<PGl
z&1(p%7w0BV(b^iR-?&QM0qwAzUq{ckxh7BFz6-|BzaXl~At%Qdx&~26m?<d?WqMi@
z99Cg)bI$u?mEjL0nDVXH+nhRMI$u?VFd=OODBlA~zk~6XQ;|tS9(@~PFRI7_LMTCD
zNI`{gea$}&nnfgwiMjD9eIH2LzK}ey+j}c=ti&$A4<Y_l^u@4hM_hJZghdUZQdf*5
zS2K!uG0`eErEdnm?Mu!Q@Y_Ci;J4o#+z=5gru)_JGA2c9y>_3q&ve%b@K?vr@}qA~
z%e)&O-Le)A%+cejG1v74@J=<UkX8e+?t7VkHCV8LtQ%B$Qu5*zCmEIUrhAXuLj$_<
zP25;aIK=R`V5HYh-Qy0fIKHnRJ+SC`7x<n}n!h#L#Am>%I=ws;p8iRMJnp!GifnAZ
zEGa;c0jds|(wA=847uv8|8rgM@zdufKDv2So)n>-1;;br%Xvpa&PbHSmBRld*=b$s
zBTV~m-~<wJ5UZ#e*&oT@s<(N`s0X3yrZm+t^H7X<6~M|}lbI`2)Q=FmbcN>in;X5m
zHX>onwo(@C3S<Iy(EeTGY0^TXlcb#5saF|%x<<c|vJU;#r-j5r0MShV(VQ0mCF@s2
zzn%J6k8f#=w4o}xI*s91KF-Lk`y4ttxSry3)<D=D`60nP=ej+ieP_8|!LO_PWanb}
zXH=Z-qSKT8u2vTJ1d8EO#bCe+#ky_LlJ2947+v4T+7SLSnqVBJP%<DSVc>(+w>_o+
zeYk$^Db9fAPx^-x@Kp?$J;qP1VfnD}F=sdglM|fJ)!TV2ay-`cKo0h)GLuMja2E1_
zVBeS?<rlIpgxl{Fcg3t{FCe*ZH<}M?G%O4#6Y+G_f$Y@B*WCjoBJ2YsZXNutYIt{>
z^g+Je0eeH{pxCAkZMQ_j5fE78>GV5~#eTRL3viG^GSnEVtlHR2^kxH52g;|5tE=h_
z{l{Ymhxn6KNAk;)6<SEaM8{!+ZW;T}5JkE;$BywwqobtS2#H9dJeM@V?DpU{Qvhj?
zS@AS^4Yvy@Ys<Q!tE%I6Ar6vQg?0j~ev+-Ep{_Z6I5&F?YY1`T^4Xpq=ETc2UkPaA
zm4U}tLKTVD<B+=9VU0}b3z0dHd}gKFZj#~;26<NASMlu+aQm8Tlu2p7U49cm!O!ZO
z+{eKsUSe$Jud1-er;X6>0#r^mP&s%LuTCWF7m-P}%{c1bRS4OB$AV*O0bz0Oc+T&8
z9-P~Hq?S*bJB=mbN~Y*P8F@qdm2VYJ|M8Gw?}E-r`?;wmY;y3l`v5||^?P!!Z~fWw
zgq(`yAunwwTnh8eOuiJcUtEwY;TJHjXxNv${XoBS`^Fy`;AZ$~@enH1Ncm7-V0ql}
zr1f13pJcaUh)B!LpJEZax312zdPLMmql!{;M&FS^BPeco&4LklfIhitgp<bW7?Uz5
zg)%z{r@y=pRfA&I)`?nF5=;l^gH)bNaIeL*-L%gDfWb6C1YL-qCtk|0fpKH{kXOih
z9SYE(8lXYiUmAczWfA)x;M2ajYdmj$f@+>|xPJF@_4B*A62q>bvpt4P{HpcHcTvcQ
zC25z<Wa#MioZ{)mk)Kr+kYfR=T87x~pu_@YkomU^^n~*;DL$4To<cPT3^)m%9^Bl)
zWZN$xsypOXYc(h0&FwSMTDsckGd=-qhyfzQMFEXWdjgTAzD8z*Px6BamL<gqVC+9!
zEoPy$htpuU)%Mw?X8zIaFX)<xewL%2afm7F>2&7_cHtk-ec602TX)^xSF`sh4^P4(
zNBGo>nZeDiq_8IpWZfUg`ZJLA^uK!PP7c)&3h(gE4-@R?aw3^erJJ_7XV$JnN(0X^
zSu+XC!h5KmAuUwFotx8gI9dVTyeOjG94fru%*X=;JYsVe=2h+;FGt?V6cT_niWH?k
zEvSgG>m#6j^|m)f85OlhF-q#U?^yEjPeUL#^_Q75J5Q8F6sBVtyei3_aB08{+n<Sj
z6i9Vi=Kz-7JC=+v%DX!$2qZ)7`ly%qdETl<71=1@4cb^5Rq9n{+<_`)Z=SLU+G_0!
zhTff7t|I@EHnCY+5u(4oKI&;8O#w&G7{tX;Ldc1N`8ZC};HW0XaAR*>_3vW)pW8xX
zCG#Va2dkI?o#d31Gs<HFbdoa#&`HHtos=?Xx}Jr5Crr0vI#^Ah)ONCbcN?w$Q2Lg6
zhSmlTr_St0CESKP2cq&&aslFE(TbUcssfB4(15%EKxY6zw_eN0=D7~4TeL;nkcHou
zXX84RsM2QWMV#(2r>`?e3}+Di5eVBC2pbH9{R0TQ{@ZKVK0z8)X+<k?7s&e*@YyPV
zSoks!dEs;zGXRRH0u(6$$gl89{>WE~Ou9!EVu~LM0i$b=NKhLZ^W8Z*Nofu|1iPun
zdP8sn-HD5wWo=&#K=xZe^G*QGv*-rMzWhq|J&yO8ox}+J5A8iwsL8>1Be9!|@~%bj
zOzIf!dD%$r4Zu1D;F}@fTmNfHuzxL87ksTT9@L^a8odVE%K;+bivi#Z+h1QiQ0X2E
z61~=yxo_@4YnAe;c9Exkjt-waRyzZlJw;`)-qBQO{$7mqqF?x}3|DgZV+7fatQi*7
z<+Ww#$&ukpOep%?1fTC`J69c_KHM#CAvjPQx=`qB?cI}&q^5Xs9H#t;y1)fN%l96+
zHFH`!lW58!o)d3Cham^1-1a*_{`_%QE|Zi#MfY|%v|Hn1n1Vh9?tN8Ln^s?-wMu`W
z)fi|?Tcz8t)9{qA-S1gXqcr`g<{2J2r~K9yvl36nIuc$Eo<;qwM_zU&H=qqx6aX#O
zXt$eCZvKix`*I(GaTtAzBvHmDnrn5vIrfUj)nnQ@tVPP9)gy^n3I%;dR?2OKY(C9!
zomWs2<=W$bRYs00NWmi=J7pg{8i|pel*##su2#!ES(2TZ3EX3p4!DOi{dSWA?JJ06
zZIPl@ebI}TStT^{K)cI*ZFjyvyBql1?$+fo%gC0_up(YIk}WT@L@nR$ozct6h?l+{
z%lBko0-9$T&^*QT2CSxyfaY1c`rDN3omCinFKFiXT@`DY$pgQJzilgDQ=8?B(?>Cn
z;_lRysV3i!r(>`7(`-kVdU>K?>^?OdhLjDUneaxW^g)XP%|sf&V4vr2GciPs;tVqh
z4h(m=2<qLWze?6dVvnK;7p*|2Mu%j$gcU_A7HmIM&oA5qzv!ZmJ*?@bbn)&B6y}9~
zPZ=>*iv*}c3(#2eRl{8X>ID5q)G-~i;>q92Iirf}a4JJSur!eKe>Te`HXJqN(zbTz
zD*c{Rlj~W@66WjDt#@<0)^;yd*X931P~c2g!uANC$fWUPJ!D|4lCn&*ay`<E{l}~_
zZkrg-<+k3C9g5j&P1j@5wKRsjYqW2dbQ-_&1NA1QF!N*{7!O(k9uWc_@d6%AI{_Yf
zzj|bZ4>z@GTxjxdrn@({q=bwMML!J2uq=1H*SU!e1^;|7#?TXFQ2F`tc-{o@+b>nw
zDM(Jvwbr`&pT&o~+MGl?ud3_R7j9ks6x<qc<jrGzo8e8E>d%Uke={Gn_`IqMqG+G{
zhArCMn1Ki(R7L|u%oGYC01#pmAcW%U@R{qUc*;em<5Tj!cOA5ill3>(>{iMlY`K+u
zFZO8wgKPkUE8QWxX~S0xt^~w%#M6X~Ui_dBe)4}$w3&1nG72xWclx-HXcU*y*Fy-5
zi}!%`_2zH;3QxBpzmI0TGEJfL(XM!ZA}*M|3pCX6*M`ar5Q60|A@nJe#gP|{GH$h+
zla`h<Zgz<m&ML2s_{^ECqOgLqN{Y#eSVBK|O~;-{<2ZZwu!g^O;Tl4YvwPk`^drD#
z7huyDuzAR^-9$tEYID^%ZQ`90(x73EKWePMB8I$dsWzH+Mc=WwAl?!1>jmJ~xqt_-
zY_GrWhn@A*U{Vqb)i~)Ovg)CmjMz&|r@!D<OD666=J}E>GI?(PywINIZsB+R;q(dt
zbaxmSbax^Vnmr{J`GxyhDF#zqn=P&Fr9M=wCL33%5Grm-u(i2xo1<@Y`j;x5wtxGY
z(1z>uFs|yFzyYzB6u};)rP~;p5%*Iwi=UQ5`)WK$VRa+xAccGO@D4K*WO_IU9v@zZ
zU7^#sIb;#~`KdWPgkR{-ltNYjQ6pEgo_t#qEzgP5Jn_xLS)2FE@mA}vi?zkTRz5F*
z2{_}HoONy?*ZYHB+`d@<BnFvCnq>^dJWqkx_TC|kYmO3Ay5HAzedE7Fgb_#-YSjt9
ztpVroigm!MgkdTQx(Mk(_mQ>8JbK{=%A(Re=mdU)g@9dnL>V1$*!tIVGO#W9zZOXU
zPh05z`{!}k|K|&+lbYk!L{g}rpVbE}2kSRSuy8Es`FcIH`jlw;xclgkk_dH3Q$P1r
zV^2orbZNI4>t@sxCJ$9WH%CWg)|CyS3oVKqB+_JhLNlUrK8B%Yf4<{n?*uD_KnX-&
zzp2iHMu>^h7XDBZ#brTF2WpL|h}kndGSifn#ABeW|M+f{-lZ)>N9z}QQJti;PiO^f
zOidZKHQ(MqJVSHBO^~nw@3iQg#TG;eOFS%g?Cw4Phvpl2KgJ})TXPrD;DAan1$;!C
z0)@dO=`yJ&VXnvru8j4ecbrV-AC7f}#4>bdENJyB4mmK(Ed{=dz0Kd^_?`)RkK4Pj
z&Wzc#hs^;adGsDrXA6r1Tld#^5AhE^A*eAe5U1%(F31hn755%#C1cVU##K|3C~UKe
z4eI@aE79IwRF(%Tuw8-X4t$N4X5pb?0`B-GA_aRD6>(^&&#-YzJ{b$OZo~<iatyIW
z4n7_r*?I~4fUpc4N=cW)))En7foe>CL_Ews@U7Z9pt`x|^GWDnt*?0Q_;=|rf(+DR
zcJq-Q9uq0YfC)5qraE3zLwzC$xi>b5I=!fC#!N2c6=LVtZ!}Vw#Cbz;E}(+LW7wh=
zJ`9yOj$r0*fj_X8d|gL~R(<!vd{84D{g$Z6{vGdImMxT_+eU9vwj`Szvf#L0;Ezod
zhG+{<^6Sxwb4v>^p~1`3aw(xf=hL<;@3W`3i+@||%O;=f$aQ)D@1yIj+ig%ghG}*o
z8TjxToa5l%@}yeTNw`us#=4+d=F-U*aEwfu?MC<qhedRD+*w`+qLqHw!0)NjwaRgP
zN9i4%>(%ckFwcJNua#OaiJHBd%4IH>jx5O=+eyP%i<`29-m;3LPg8~x8uFs8&1+v6
z@EDy7=>=Y}Zqfaiad37$59tDZ;$%{#EhJh51X?UehTteW)`v=Ledi(Tw#(bsJ%n@4
z#<@ffcFp*@gnZjr46ZXHnHDySYj>&cy-lKbX7@C*N*MNokJ&sM-sHqr39^cY)lZB}
zjg53*uGp&i9o4!RW>tDwjRq2^RY%g*uxhaUpkpmp6}C_|B!pZ<>3>m?zVsyi%B$2x
zMQJrspCE3hklJ2dqXVB25%Q(~*1qu^rq87!uz8D7&Io5wQs(51!?XyvWP_oo#@r&v
z2KG3xg)<yW6oKY5d{vsv26vfboCcb_rKs}?otj7a2=dbSv;FOvp^{?-)n}|N8yWpt
zYlhKr<<9nxMv-NAId~NnYEtZ=nX^T<uO0nIJCrQXli535Wzk<d4wzGRFXd+%8&Vih
zESqiSDIMn5zM6&O2v>vmYy7GvDIJCn$6B?6bf9Fdk;}BHwC-o%7fz;Ha>?Z8xX-y%
z6n|isQ6rMrbMgi|zeV7wupaG`+DHZdb5`6)gGdsz_tCp6*sPL5>kn!9mDLuw8LgMg
z@ywNAuk(wLz~;lqu}ggrE}@P=R5)=CqEItKlP~mVPl@&Y@Rtg2yr<81?APt>sYX9%
z6op~@tx9wxoT+<F$U&6wXPr@I>GEHkR=F572%TkWNK-XZ(y2eDnhl*UntyF&k=US0
z2b)q7Q}zB4E}`k={^F%&emc_0SZ{fAZpO#T%<N*8Ub+Y>YYmoQQCYTM?|_x$nEg6y
zYe~H}f}ZcL#LkKY3h}ob4;(ztVt|(<G91T`Q*>2NX_di}XJ@ddVNaZhI*yc0!Nb8M
zil?6tE^LP}`-cFtbNu6tBMxq!|M3o$#w;5Lie{{^Zm<R%Gd3;`TR*ta3Xya2E&R6v
z`5(X$FeqcP?F>CB&0jm@ACA3wai$c%{bnBRXF0BA?8NT`cZBaC$;>VuW9j*RzBvRf
z4ja%m87J``tsI>#$|4${yiQZ<15+Zx+&M38exBalf*X%McQ=ds9vUyL#uvtI#{Dj(
z6hXfi$HU7>{EN!pJsuuoQORa3`mfUnRTLD7Bl30_JUQOPGpuzB>hxY^-n?jczVFZ<
zMDcmqz3!xCa|{C}DO+wG_DJ?GY@3Z^cnj6TPmk2P+M*VVNhErr!{SB5J)(sXf>h`3
zo2GKoXWMnp!hU@nvDRm>?;(pecJES;26!Qr8HVG&qhtMH400;Z#J^jx^G8QpYqBio
zIy0;g%!Mr1=fXe_c7%;w-^p@r+H()eIOX`}y#ZWx#B-%i+;h`Xqz)5~ncr30ZXeKl
zPkbunItr=OEfeO%Y1ebd9PIH58&*$<o50&=PX3Q#@Er)xV`Ynbz?B=om7c(rTb0{x
zZ;=09>6sOLc~-dDud>nW{nBz5y2=g69hN9}3^*t6z5v<?f^K&4=)6Qf#<5Nnrmq(7
z0B-sBd&6);_pT+XK1IvOpgtQ)8s%@<TQ`S$>M|Q_jQH<_3+TksYz`(g%KP%Y*!o75
z@!*Edzf<TA9|sTxt=?;2!Ew-$A}2}nByFAYf53f@CfGMdVLOg$jy{!--7C_8yQx};
z<VQg>^Sknw3u)Dl1KZM7;*b=CBw!}8x{K!E)_vwyFT&ps++5vte{^;=9hNN)-rkOH
z?|v4?!UBo0<RFKiK8LOExxNqxOvzdnZ~6%Skh(G6NGxOzh@bpG(-pTIr~+Mo)tEBu
zql#e$_Odga7*4a>0MUXfP}*-;p4T>*ip%Km9<7Gql9Ne^2j%cSsmn_7x<h7cz86B7
zA;ZmLYSgT6OccNBGIt=(d9zZ5&`j}RcF7FI?WNsjEy$<5f%z!ZavQF(@#s>#Gwl$-
zy#&C$6v&t%+AHqqaSe*!snpk;^WJ6XPCKHPT~sbUH!r7p=%#InD=v1;2>FZDTqQ8)
z0K*4<yqtbN-zAE++x=R8LA$2qT@8%}?vP0BK!jg|pMjaY2$daZuWx042q6{iU7Hp-
zl-PT4fzz&xb-5J4Aow=kxi+H&ug=vjAzKKyrHLQQJ3mB&`*q~+9+SuK3S$r@IisiT
z+l8`yz7aCWB`QOU>N0%F_j1bqTF4HGl@XX-@?JljkTfl;`sQOv5|!k1lY&%E*1VU0
z|F_A9nslo&LQb`hP54!`ViR<h*PcGy$vX7F<Ykq5ljO}WTPis-QwDA*K^?aa<j)^i
z`3-E$KQc$Cp(2(>7Wx9OQRxL%x)Opus4Q*}1Qgu#6HK*BJ@&Hp(6y_4&$av2wwC6r
z$`U4^MGtkkg5)}K>`Bxk{%WKOVpiPQ@<Ryp+Ukxu4##c3B<~EgQYd>*dUpTE`dXpf
zM*NB1Rt+02z=scj576|04~l>fWUoFPr+;w5{lo8zS7I^DHy!KLLb^Z~!!~uja2p>!
zPY@%mBo<P(BpG`&_(e8lEJD>5#;f4SlgK#WmGvB7F6(o4Z86+JAf~(}c`m3w=Ec}k
z7b`U;D?h)}t5mnn)5kA$Exne`N)IF|mDNXK>v?tfci6j;-pKNL0`56i7m0$SaLyEW
z6wNT#VM#5Kf{I1Wj|<VGpHjw1`MII8PTuRo;-gJWEo&1tGT6YKF2k@w9XKzFAytmT
z#@cj1?jxHRatNl6V{e}tc?$>;DQYA2M>I64R{_E50>SRQ2CD%CtMwP~E)2=i<)E!D
zr9`?=-|yH%T>f`1)l17n#}c*-Qb{FlD$aTO6YfBHuLI?63zYXo#A~3=4sac2kIuJI
zIlc${qE8A3FL1kKnkkN#McP@!i_uzuw}yOxx4VG1won{kAoc527R_5|c}poq
z*2;!s@hxXGvdnk8byUZL@>!mrer*kgb$Eu(as<xLb!guJh9VV!u!R6ae*i<WuVH`F
zIoVX=`MwKRTqX8QGq#Z5Em=^CYd-T(#Y2E_FGaL{$5Ww|vxzerZWV=nSe5n5&&scn
zT(}H}B8M?K(8m_${Us258aY7OMuCyHGF1<9Uw-`j#x2X3H%)OJdfw6eV|>fF%wFiy
z<_D%b@@9XUbv-=I(IB66%GihqkZoij+ba^UX>+HESW@v%FJyVlxUmA=xm|uq_QR`Z
zPfo}xNhQx<PL4ZC$6Fauzx3)s>Icd?Cf22ZYd~2)x>Kn$trMvFTVsxy)$(n(&9{H6
z-q|WL0iV@eT$87p59+29$^w521#>@^7&%io;euvpouZ#$>652T*w2#-UW+a1FbWPr
z_%&iHUi1quna@fuknaTt#;gauR9TQe)~QMw0>+_KhL7Lyy~--z;M%#wZW-3`KW{zA
zmc0-r&0!0*y9^E1lYTgr##KFaPvtmBim6tGJTdNPws_(ow-ZC6%=ZscBAJX}l{dV;
z>m_&A+6m@LJCZ7T3ba*Qmx`h9hNi>9WiD&P03<>kP}DknKq3|aiSQu<@J^op1ZTLR
zZbKt^V|)t;$V&9&2a9SzZ*gAr)|~&wuQEC0R@92Wdl4nS;@B0OchqteFJZFf$a@>!
z@6sYHN!$7ZUE2<0CDM!S7HAzSK<h9u09ptA-x#TuJ%q|mXWlEZn6qfn2X_LZa0?{M
zQ{**SO*_st3hYwXHDbqu*lH6ZPB(YdV%1IF0Xf2N+}eHIlYj|9Yn`@F3(-~p=e`R9
zoVx`$C;GS4h$ED7E8f*>zRg+HBlxwsSwb?|IaQ$5)1syP{hI<cxE~i6=4%j~%^Z_o
z*x&{C_?fH2S~`b!UYxKuN3*wJr|N-{Z*|XV_9F+cc}{<XOdeWr;l8jAaF!$6VKwK~
zZ{n;AlD-=qF<)8Uz~|Du$-DI%n5Z1?$+ef6)6@3t+l4xgh$ewgUH1W1_O0YGcl8-(
z8z*skB1GJN4&{ds1>j)?hljbx)7$Ii=`LJucvI&UO8wbVA&zgF=CBFgYIXj2%!VJk
z!+J@=_PgE-2wm@=JqdQ4#lj$H2sag9q&7P^*tgm>fhW(F&nkqd7#}*miy`z;Xfvvw
zUVPl3<`959m{;8i--m+Uz{w7B!R<@56_>P7XZ=)A)`)4Fr@z)wELX^LZeec7bDrFR
z-16EG7Ja|Obft-r`7~?Z+64JGuXlI&uU!wKF-CHiU3(|o?4HFVrn-VILbk2yy(t~c
zLt2983A1nagR-kH*4;GLX8`3Pj5RHdu^ce}E|nj*3}Nv~6YP8l--D*wZeXhyaaE$F
zZugIqk&I)=n$||~QEe{&JbeWBHr4klfGfdzqsI`ENUzs46YRxdP(S3c$SQ^s*E=^_
zUx;_&E&?T}3N&6NV8GLZ_*#O6_!CT26SrKR&E04ne90GORF65T43)q@r5a#c$B_B=
zEA8Rq9^6;9$*Fv8?G_i%{qCuGetRm30BQ`Q1L>mSRi$-aX$qflbNC`o!G%sC5n(rD
z`o=?OWLoM}YR4Z9Uem~#&5&dSe)1=(hN^`#-?wqQE|+^qrtasypfac%p|b0iuRt#W
z?pXrd^E+_QVBnr_a9;133PR|Q3>+ITqzt-o^IE@U$R?JJ*iFGzv8kK~MiMJPK*m5o
zkw8G-kzNDZWy{z!#jRUS&v4X59cJy?N~u3%mZnMq20TeXc`C+DevoPfkQIJKmRYIE
zZ<i!ob>?<TwV6e^`9QUv)gtzeBZ@0_pPK;3zPZuhPoeGA>3ly6PZZaB@C%4DzPfF=
z|I_yHS5ifI|4Q|FsheM<lt4oz19}V`AhQ>*GRuVl{i(!-)GQK-??MGk!%uq{iu<wX
zPd5+DQ+5&+-38e4fdJ&D%&Np9FVd#!g)lYI^GSrN8rGTZwQtxWr_GCp#j3Rv(H0UG
z&C`V}8G`M-4U!-br<EGDgCf10U;rs$M+Jl?5U5xCzdd3y;APIhoJuLr;M=;dUFpx#
z(U9~<V=@@8j`x4MaIZPkwhlbkx|qg-n+9678Oo@S20y>byBHwv#DHSpO1>(F(_HD#
z7`4?dc|&9Sj^l_t#&51(%x_5q1#(T}xKzRvwQSIq0UF%_sQ&;^cd7<P+?cPZ%l!b4
zf0<|>0bjoKpZTx1yX$oM4OuQjekeEmRvhl&&Qk%luioyqudrRZ8zyfmBwtWx*aZ^4
z4kX+bkhFR|fMgV}36D-))8ZGFm0T~^$F|8`Ct~d<nsvWpzcul8J8<^pYe1h10T*}Y
z%+`y?REqI5sdwDB($b5fQkQW-0Sc@N0F#HF5lEa20MqeT$l?$RdRS92u;TEN<*@t*
zms+5c-Gd!R5io}FjEc0kIm>Wpn6>CBoPcH@33MiD_*XCR7+7%KLawYA{Z#*@te<1X
zd21UCBqvTLZiwvHK_OFB=RS8$oo)5!RcEd?KQ^}x5!yPOkCC?8mXv=fbzuH6Ep**5
zp{W57yZS&IG`p%iE=YhtQ!y|ouo2BNMfT~!32oM>-S5v)z2#@$yG@UNW7+P6h3VQ3
zVhtO8u+`TbaRvsHwe=TcD3YDJ<)Q{HZP67br{sC6s;EFX!iRR}yqtoH!F&D}l5gam
zssDOd<zxSEvxWcpWdRO8*8lN|Gp`S;>yp^7538v9rXsmFre~?A?tzn7%x&wS0ooc%
zut@EWcmNaM*UY9DKZ}vA1d7PG&*pn#j1qbJUs-ZE1YD@9gw$KSyl;OUo!k?M&<B0#
z4O7+N!CHodr)QAI{aV+it=hd%{gU<*^pn}6{%4gRueYz;?S0Hj&UTb40)<`k+zP3r
zrJJwE?YKjW_R6_m2`jp?S~ri*hMKN1WxB7oPNy*V9Pd`@1ATke>{)fn;;jjm|Hav<
zp@lM8rD`Fj)EIFtC>@*$EO1G{v5Ts%o4G-0q{^Z!h8Opp#J8#Rf;N7sjFNKgdUoEx
z+IwcqpQ6T)+MCifzulI$&K|UHQ6KNFKw_VJp7~XM3c)~A$TU+i=<l}O<Nq9X)EgE;
zZWTFvO5JT7Xn_;6(EjAk*WK>3_#Bkj%hDnl5_N{-FI*^tst$r#vHnW^tLw}LGf^*1
zIx300u&+Qv0XcD0Ie|42G(tjc_5<0{qK2SqF(gvL1C<(|&ZHtq{Nn-kN(QE8=u-+N
z!@T#6sV0q_h+!<S6k~(e3}uLS5@yp_gB-19lJM(O6h&NV_>Et?_H;?r9Zx-?Y%EJ}
zY#r4f;2f1H<_N=^=6b|lQ{QLXeYs;=m;zsdv8$WN%S@eo>6OhNWo$!7$Ad>t8)r}3
z$EWV~Zs1dU{Hg(umoB+T%A(We!Kf#FLB6llaw6n(?iBu%$xi$;IlcBROHP!lhMe5R
zN}1$SYU5mHO!rFogH&@#9tRGo;PBJZH%5?X7~FE(*=vpigJ-0jUhH>?g`_`*?RWNp
zog9ISNbdcOL-Ryor>kK8kzq{D$WE>Z<qDYJrmDsCBGR!HBPiBr#ZWqj>cNGiOf)O_
zigE4wf_NRH%BYvdJeT<zL#J<mjWS!>@_2N=zsIP;SV>kUiHm~SFYjG4E)n#)_0HCL
zzzXB5Z*j_=*?(5;k=UQUB+cHOT3hfaPAm{)#37Qey#r+o`UwAA&FM$fv4ZRCK)vqt
zq`yi`els!*?6&EOnI|g1tALRs;=%O#QCJ(bP~6ufIcnJ{yjW*}0f(=R*v-4aVxZMy
zH+ThZQeRnuuxqUE(w&xmy0>VS*Why{@xU5LqSRW;A8K28XZSsv5D7qF7PbA0FyUAW
z5h<{VMAxRlnU<?DHQ~=#?x)<vE_8K-CDQDPBULK6vM*ToGEBc*0~kQoH4B#6<dyYN
zBfJWq&o43U=M%V}W;_#$;W8R^yVeRX7@^6_G!NIyX)pw}5Q1D!B>jrUTZp8Am2F)c
z0TMLs`GlSF`v}pn+JyLtkc$2FagBjp@(wu}N9D3!yu5*=piT{iFyA^%=-ZXp$C^|p
z{x`t-cFPj)NmV+Y9O(&XkRVfaQ)=LtvD*ZY17KW=x?;j}*{=`e!16T*0p@}-NX9Li
zN`MRVJX#2%27n6>K#UQiuP$_`OVP~@;WSQo+)I4sT67PdS@&(*jb9~vuy$*<75?^8
zyViJa-^3wuG^y7v(Ow#Z4_{m5U{T<H8UjDasU8t&Jm^}TO-Ku%7l;m^rwCZy{EMCd
zjgyJheM6GzIeBj*EIU)XPk|kUu7B4zt38TP1Yy}w!wq2P2gUJ%yNFSU;Ht7mLZFwm
z;m1@+=%GM@RjB-gb)pGAppqaiadPo~b*R<~C@K^=)M18n0YF>>R7XvG1;WxLX9mFt
zd!JgETSn??ziU!}+aP6~R&Vy^Ve2e-y#U<jrpPTLD{bNq-u0EO|E_r3XQ_wq0$}w5
zVD$)KwQVqT8esd1RlZiFBBT-3<I3{ntt$?d8U42zM`K+Q@-f$S0lrQv7lKc)@1nW8
zX-;v5F{l{rlgeonk}Si2pLMxFAv)&YPx3^%(1fr`*C^{LK;7&lWHP>m9|fEx(;7NO
zm3&o&*rk$C(}+J#>>qP*4W<~QMLm*=C#q0&$#SDWMqW3jnShQs#(_rSfhAoiU`aR3
zhKNQ}l8h=e7AYtKGZ;y(bZyCiL|uM8j^Ng;gyf~rGgZiHzCeM_mLrgoNnQ2sXw+6A
zC8&m|{Y%a%yFDy1$I83q_iQdB^^-_>D-E{b(f7yGRb=zM{F%L1cI(AEUlVq?@s6ks
zaTpo^8LI(q-vitp#T~eP%<Jt%)=Vn`=(+z`f6xB-)07U*xAyM>qdO_E!01@{J1G!O
zJoa-%zqGQ7zm~m5w{c&!MbMH952kzfw=Z7x*?P3Hpf^sbDy&M=%ZM*3sk%LK`e)QJ
z2x<{efnN0B`NIFj*jqr=u{GPmAwY0<cXxujYk&a3-CctP3-0d0o#5{7?(XhvT!a0c
zbD#a=p7GvC4>neG?XERzR;}(;wLY8?HN|GUirBig9RMWDuKU~z&vO18`nXv1Rp5t{
zEFNM-;=V^#I9rD7>7-z*op!~JN1D<NS_O!%upk#;>Zmw?sj2@mH3h)b#($aGdCmIx
z0(lMD_%sAfv}=(;A;9OE(hQo~myO9K?`S?=RKEtD90DM!U?Jc#8~$EqhIai&WhxV7
zvo{GA?K(f`c_v;b+tRG?-TmeeeJL7TF+xE?vHI&^G+AtMT$m@fQ8N$mOBk5I5a!wF
zoh5Xtea!Sw?d9jN$Iu&2#@;>YLpzEl1K_o;z|WZbCtU%O{QL5b-JqF#Xq||(+J>}!
zhSNSxwO}IUG4*c-iM4WKIT6`RC(;Bmdi5yTqx|35SL{yB%MX+CV$6w{f<sY8FvqUY
z{9YE-yB1K}JftRZ0qv9eOkn&-{m2D;qb7Aq={37?LwW=L6Zp1vf?j45vsiG~UPT<C
zPXp1)4|;5&9d@=aJ2$Cy#uBXga@C$4Y6|kEK-h@;1;BIo3r?fx$2h>5FtgiZ;pn=;
z3TA+i;03t!ZU29*>hc9vb@kRutl~A>%dQf_fAm<qmtPUQ5$CNr9rcub`EXYuJnb!}
z9Hwd-EsjN}2|%d{fYR1qD7gYQj`;`s9Mp~zF)`jW@)bJoyaOGz*BRybZ)*``n}p7)
ztehnBb+v-eNNe!iJGJ4R94ZsRtv}0McuRXupFoV<%h@XnwzB059A6cpLVytu2?0hN
z1sHMkza!4RVl@d`9<@a{l=c<c70Ql=@H>r?LHwjOJ<zXeN%)%zs@IrCin$M1RTczz
zh0kBFz}0DqX-!J8EjUOhfa5+0LDwq&k(~*D3V^%}0J#CfuFD5{0OSlp?6EjuQq}X3
zP$$K=a>*a3T(=}#{=hb`qr~?D{B!h;#1ukl{bWFg{c0a%+IU-wxxx-F-mbYRc($qm
z#SwpW8tV$vPdAG_Z8(aJG#3x-aRCX&=km|$1H`|p4=UI-Rg6=Y)4LS-k;mjn5LNnv
zZhF~|mE*K1*>iK%L)S~Gz=7ED@o((N24V;C-`D{c#{?Z}UX2kA1*{>GOY)n-0$jcW
zxHv=BzZaLGH5}jtQswi0QH0vIAd!|WWtl*sW7p}xQjl;jK@B(>3VRX4a^PW3v1M03
zY04qyDv3G9WDDXzw>K$^IlU%~_|-^cr1-b6@_d6VA#gn+%e{5BclyJ&5De+gw8Z26
z!{9EApP8Ntm)pxW&0Lq{v?%j**u-4#;wMB2+MVn;Cn=}~WSUO+Ik>(UEi8;hCeDY?
z5+{PICTRztQTzRS`DPk)D224XdC2{9R8Bv&tW?OH{NiK~8daKZggdX*0TKtlQ~pLh
z(I4^LFRvH-Z~LX3AP-KtEtg{`<=yS55Qef)`0oSl0-Ackx$aff<kS(A?aQ|3FEm`0
zjYRFoNy8_}rbX{<omo0xb(j{z=ZQcLZ9?QcHk~G`S>~HB9Xg=oV5%COb3)q((DQ4d
zR|YT6A&LZtPYGO4%$7Ib*{W+Y(~8T<#BpKbAAhU-w^=6Ij%&u1NzkX~`9FC?s@KEO
zG3$J1X)<LV7wcBRV;r<^eL#bsq6p`_@R0Ikw^rSb7CyqhJ_ym&R$-xr9g_Xsi0_o(
zyC8nf6(TfPMZ5?3QGUI;<<qoLB0as=3&F~0*YWE00#gl_@oG!eiU^n2`}J^TXq3PZ
zM7WN;0LKK_6*1RsN2e-0eQue+s$*#x?mrNLl}ULplGBNK@#P=BebE-91D5$53h}dt
zr!hiG?INxXWe#FE@_zUyRECC0AC|QLL=&WVXDYqB1N9pI_|sjdG(EVWr6_g9?B>v@
zSH^KP3qxXg=HQa{N|qBOS}Y-xnCis?cwH3Wbw_`_jsWmFv46adkRXDT5)NVzbkaL~
zRQ0SJU<`vq8cW%4OW5x2==LSaFF^84;_Z@p*F}iupKx)R-8B4Jp-+;}nm;W1=CmKy
zi$}o#ul0|9b#AAcf~f}(+(7^#Sp!+lC9qPiX(1Gm*%!V*Rfg<*`T(X3)d-=tU}PJJ
z9Hl_yC?f<S$2<@@Joo?cAw)DX&@vGdHG;URWO+?<?7V`xuP12@z+yuu{v0Q3LrD(2
z`bmG!>Trdty)VVQDf5F<uUrxnt>B}>vS3nwT)PH?d_HypaYVnq$xK24f9Tv$iV|An
zr;}kYW(`=>4*)HIXGg4pt^7lV&r>0}Qs$W*_C;yuQ9p`9MZy1V9uSG>N<JasUIn|T
z@Gx#aP_K8o=G@^tX?K-JxUPCUX-cV0To#@<0PyV=@J@Yz6dbAzP%-k43M-F%i`>hC
zYVO2f<~hNpqvBF{=Up=Cx|y%f#|k>ZRcUs6aalJVolktuLKFt@D5__fQ>9eFV*uF=
z{Uy6!03VF~lLAyYwaEB5DxuQMl(#y6r^Tj@3y@HNvp+??Q*>B+V>sL1u4FuA5`{vQ
zAHTI}_x)}7kOa&uz5*fQBLy(C$WCzJ?aKITyQ4ZD5pJb8lcC#c;RH;&`G1}KWN6FC
zJJ6ZH*+jnLPo-^ZIws)i1>x<tFek5;Yw1VLZ%!~m#NR#Du7|Qm*45ed-?B$mV3j_2
zv_3>vHm=ICp`<mD3bG5c!YXQ5eo|q|#FYZ_eg|}|SpJ9+uJzcgZXoME3d@IB1;;$2
z@qg`IY0o@3za%w%4Xj~0<8uD)4=?$tqh8eMDU_t8C(`H^$tU^6e)1iPzLcK&-{#|=
z|Krs=EdRR!)@PtL=AV!McNI)IutRJ*Cw$vQ<y3XMy?E#xIP=FnutrEtVku8^tGyV?
za8mOsttG@5V2fCbL3<@H$nXP0tLEMuvCtj!=Dj4xoj4EF`gbz9cRn<=&&&b{wai6I
zYf4JTw#CIYTIBNwm~wH>!NTAfT3x&ZpX0)`OlJ&|;*?8GY0@=aWu@Dj3JN#YNG+<g
z*bp$7lamJ0O^+>P>cI;6f)Mm4=1muwj|eDt2eBS!A%CW>GM5;lch$J<!A1{2zF@=@
zj$3b?E&HkYw04y*!L~r5N$5soL%+epX;|~jV(D)!uZb!TFZ1I{ShD0Bv8@}C8&C36
zO7!x@G#ZBY3@L3e1R1I%j*HSsSk|gZr$n0wp@{Z%io^fHVL@l9`_mYblZnuj7-apu
z+cxn4$JV;l!gHLp=wKQ-PvNEubp-iAC}R700of=i6kE#d*E+vM366&ja?!y7B3cpI
zs-L|&Z8*d4&l0nk0V*n!?!G@6ynCv|>oFg`Myv=y@72S$LZyh?d?e`Zn-r3SuYbW4
zo;UCWXGtXpWJS(<y8UG6)Bs7+TmSr0mBjN>)l-frhz!m$;DpqdG9L}+dB_|+Ed7Yd
z8ILZ=^<fnBQmCJQ;CmC*d%-~mejLJ5-r>3bo!nv~f<mg7ym==<deC<On#J8!OPY1b
zCWIw*71_wNv3Nca_&U+S%exB7Dv(Wg5*P23dd~X!#D4cBZ<#y+UEKNQ^6j;BJx}r-
zF-ay2A<~yld6)XLf+eoWM20&e>tgYoqAJVf@40F$7JD;X_K~vqfe=>NB8}WJ6^nc7
z?<gZp42JrQ#u#|uhhNhD$EZmS5m@tPVAM>J*8<KyMfujpsCdBB|FXQC+Kww+$?IE_
z@_SaRiK!!IIady&#K}lU_agg*IlzycA<oG57=D+L6~%dcMh}`~5gu4S(mkZaz~;ZZ
zN8=%=2w1KDv)umd^IC6pgIMqtVjm4`NnH@dr!lD&CqqsC!I*p9XzB)KejsJ#?P>ma
ze6&}t<;(No<izaT&gB*5`sAOTN<pN@ox6+R^*0(-d#(*_Euu^0*4OafyW`&ZwB9=#
zJNs3I;KmDGL2j=v$(UjeI2yYmyZJ17Bpau6F)7f^y@CRS3dHSg^TZtGOu4-JjX$5Z
z8}Z&>c3XFeT3_R5=U00Z2Zt)}H!prJ3AP)*>(9FTL(b0(@xcH2ovfQ75+++0h8+Ik
zVTp6kWaX!83m3)NA?M<yrz_74+KwFqKa$Hz-OQ_eqsUQPp3_VV*H9MFdHZ?nn`(w}
zAc(q9g-pXhE3ZUYSDayg%d;S+tYrvR>+>-D^|jE1Ut4o*6t-ROc?0Th;8gYkcaXT^
zgUY+Qf%8{8VO<M0$CyS~1cYl$ZGq22qrVCRvU#A!Rd&@4B#ZEQ+gB1Dk!E&?1`+*f
z(He<uGK>}4kTD_k*iu*q#yS1lno%nXkX0$s0)D`+Qb{9RH^|QzVGS1s=^8YW-@>*Q
zWUDPPfVFpt{Q4SR(A^>dQasB}H*yZeqB9Adr`X^~FpI#NRM^4Y?H`SCgZQyZ{9Hg1
zpyIT$G#}o`y^KUbLXYd}WCBS*4P|jd94buGGreRO><hIg9yw3pdNhZ!XY=a}fv9Ih
z$O!IwA!q<|ub-@>QC)|1<11No%pb4cu7b+-C<LtxF@jk0dcqeI*9z^tH}4CrM&2sz
z;Rq@Xi$(>eoejnm`Cuy1qjnMRWv*0$ODo4rX*S)@$es`IE2?dDmxX&ezMSkAux&K%
zYFl#itsm`1HZa_jA1b=idR)OaR678XTR^1#uZXwW7SsI2=5;a|?!PelXEv^XyTkfF
zw*>fqGj_Yqsw3VYir1kUafu9U$k^3{7u8~zn5KBLAr-0(mB}+0rZA2Qxs-1<{`2W<
zZSpd~M_G4w_ZQOb8m?9kH+hB0^2XHmER|X{Nv4Ttf!8lLIF%`-_*ofx6A{J@ne*DL
zMy7{YwRVR^?^?Q>y5;AXn^`}-o!q@|w?lfPOK~ou%kks2$2N3`yq>+-TYV}8vQ)m{
z@je%GU%D55>5m9VR;z84d>1HbnZ3cmKeT+evoT$LsD1S3tQ<HjNeQH@Q)Qux0Lpl@
zyQXaixW8*oHk2+?5b6vb?P|qd=Dn$wyjfqBBMVXJ*!8}Ev+^X}EKiBBs6<#X&@+FF
zkBJ<#%x60JWi-)+Bn)f>p-JacB0NzuFQBG-XP-?-K+S-!4zB-w=y?E30S%eANVyhe
zOjB289NfJjH9iN~GHRGu?K@6||3{di0V4y_;-E^mYAK#<phg!5Hm5xW-Vv0z&2tp!
zW6h_ECN0Mf8-ux53NO?>u9k}spXJ@cmDG~isR>%aY9&$&H!1+V>^ipUzS%=wl$9Q;
zo$_*Z$#8ZyYvWs0tb)IWhwt0|fD)VxX{-sd3-4bA<JY<w{t7)lXdGkJ0lz3*1Yx{e
zz0$XgKh=i%g=W>#yIn(yWz(6ak85#@U0L;(rcaXTPc0fEYvtTa<rWgnp=&G1vYG4P
z=CpP^7&7Z80@PC@uiL9mLFxTC=0^ET=|201uEUo}?l<I5JRkd40>JoJi2#K^`;23r
z^8kgje-$!6L92cED&r2ur}d*)3VK`oOU!8n^rSHDlUQC(VXG6eZT*=atE&xPRBofs
zr>;P^7pb*|v0?i)Q<9UX*Sp1V&57jIRt{UvZLNBi*YIdKn-?_!{Rc$>UMaOpNxH)X
zKr1bvwGz;pRsd+-`KuLKc!g_%Rz=Dk+^ym|E_Nmm>$7lqD=XiF5(zOb0{bs+yrL8o
z4u+4eS9cKZL3WFsWh+yw6jLhlG3*P~C5#xxl1Ix*3PB>~{FMIMXC_UEs1(F_(d^|9
zn#@K&N_WH4JOn?^P*S?^Em)^C7?eFlL&4{~fG$=^YI?Br+PyROKN;a97mOiy)waik
z1yqUjK{TU<UE=qpDX`&Mu6)8IA80Ke7)=9hccX$WdlWfj$q)@~VeBpxP+kIlAy3GG
zKmLAMZrf>Nzjg7s<xi?Kokw~nJ`WmOgiCJGRL0iRjXmrp%@E7)1^f5@)Kb6(xquC#
z2LKz?!7p}e{<Q(+^OVHmSZYNxs)9ne?!j-I37RIlf&%~+<A5wX0E^OQz+S$8W$(2J
zpw8IyaaGk0)Zk~~#);}MZ6rnKNpVlOS3P}>DuOOngHF_2r!NK6=3merzoh0I4-+7=
z#(g#jyBmhOwXP)>B^g7F7q(4e)rRs#1H5Jh>9t)W-*0Fl>)gS0d2AIjtMcbnyizIn
zFSN=J&dl?hnKBuOnU@#SFx#HJYCpp|EPsB2s#}aVVLMML3#*p_9B4W&2U#L~n3z)&
za3F4Iz=7%|@QUQwg9Tzza7ffaU*1|+l{F}xt2qpWCX*~#(M3vFaQ2iKdYxmiz?R+0
zUO93u8lEY7Pp%Y;PWR{M$9J&ZJ1#sK=jb&r4czSrSQ^7Djta54IDg(=Yr2#Um+oSo
zqiePU_byU9?y5^3b+u{)H%#e`J&^`ibKy~W-c-!nUtZU=3C(+a91P~sj4-EaaiegM
zz$Ct+*68vRz71sx&&h+A7HHO>xZAo(1<N2IAq{0CA_X>`Gsp>Z5L!9bec0OSapu&t
zHy_YZEsHbwVB<9;s?BQhv?SW;Pad^e9r<~1+zH|EYXR;EihBbZU;+7%VPaPizyj`n
zDMaqTsilGV_JxJThFjTLN2VCClM+BQGLZn$SOQWlf9)jaazg^{Z|e%sYFe93{rZOW
zcH-%$+O7Ut*U|9<Q&-~9*(3)#@UdOBJ~5kCxG)l9sO{P!y$t9m;x<?Wh0ZYW=6u)8
zPzxN^mHqRtq;L%81=n03pmW49p{5=U8FxNF`WOd<b1#)wXaTnvlUK7Iq>*KOZ*34^
zM7k9she?E~1zk$1)i1wVLd;iPo*yhs9>2D2v<V6cGi+fohJWnj%l7Y5`f8<0Co3Xs
zBeaAxcG>&tijiCjsy%xParrW;bP6YNv}~irik@o&Ai!>Q#GYV<>|@Q9di)JPZqxp{
zd_Kt1wR0W+#N6uBbmN6x`rF~z%U8O=Uk5E<3DJ|{{M@QJ7_*6C6`)$kL(jM9+C{x~
z?s3P2n(>w#ktp1$T7pFQK>KfBJ~ih7r`8q{0!F7r4_snP;xJmpswxAe-|yWAXl-Fk
z9q`SFb*Mly=#-f0ul`wo#TgdGX4Mj<eRGw^8tnd_6Q9iTzjCU8Ts<I{{f}I{M<IXy
zMT3|}VP~6;xqzO{3-9WA@IBGy+J)^!>-ya5#?gV?s>b1sn%#tMU6%HSb!BqvTDQ`<
z=+9~?{%o^SK_Ec90RiGJd7Fni2?!7idxrW$WxwnhZBXoL761G>6BB#BSW)Oa8>r^k
ze5}`4y|dkKzp|cBVl%vG6y$r(=YQKDUiNN4!VxIV*}q&Y(9Vbl$$~W=S$l?OWwZ<M
zzh899Bc(56)y0xiHDJE+F$!Fjaxyvcf=0Ma>lx4yB#xS=i3w==arub-d2rEpT3neS
z0k;C5{&3xZTc#vTq*Xj<3Jv*LTcY-CFfN+3=k5A4LI!B$<s|S~#Wbzh5)MTy!Ex9p
z6BGxSN7j&aNJj}UkM%#pNZ_!~6<<G^W$>+mfRT}W9-yTXfR>5@3X`n|Xi4`U3gg`w
z;VCr6nkw*D*Wu;tY+L^W*^&knxsOxqSsAoUYe4T~m4YyNK5O379cBS7ZoAIW7};wJ
z2|2V0HfXr#Y|YUGxqrG=d$+Dua9$|98k^NhmD>qWFKE(C#WOJ|4ygd{Qwlg)MHt{@
zDuDZ-{o_6pHq=JH{N9f#Ir(y{+57h-oE*N@;=xwT4jVGe1J_dwTu%{jJ^U&`r(59v
zz(P84;S1a^!PcC7E6ofMC4#Bif>ijx7)t<Q-$v~T_QU~%!6}wWhNi0YTbe{q)z&A&
z2Tth%f4&C*cq{T3fR1gz;#~MH{Suw9oRxx-6(ogoyUK;}5uPI)Codn($cM?5!g~{4
zkqLy-u=zE@9J5wZ9N6tJ03>P&07!oQ1&I@9GOwvq@=Zzllc@^LK=}L-AZNu6fN36(
zD^CKljqrcKBp{%oVfy?E1L_(aKABm>-4GWgS=W~)YW?nC<>Yr|7}z9v)Z8N<EQ56q
z&iXr0C*)K&0{w4jwWuzmqYT4n{(Ij4mc=aWkrHZvH=cL<Bk4Y~^Kp&~HiASl)1pg3
zM;g#?{qD16M~cXnuBTRd5<zOnNotL*+}#UxCf2Yp-a?a@o&bkm0vztg)a#5)^OwVi
zy|e4m=UJ;=PR}cfTZ<s1yH$%3(E3XZ0Sk&}!UrP%04z8J7&t)suLWzgsOpWJ*TtRh
zoG_lUytRqS4vFz+7b39Aoiy$bdb#^Ni9mzJoEMnCf3)7B#c>NLh7Bv>Z9rXGC+Cxr
zd_iRqK942kgVH!eiwsIlXN!g1@zCq$HKPbi@EbPlZv?UeTDc&RAvPc@C<3yA6H*{6
zsL#rA{eGZid2r?r|7v`v(?35@v?FmlNj2Nc>Y?T=-Tc$J@iN-*ntk8)djcbEr%G$g
z6u4W%gmNr0Yjg^++7FaWf99J|2~oME?=kj=DthX?5oZJ=%zggwWON9XFWL&#Qve~z
z@&IFa42+>7KnPN?z!+j0>ML;dIu#dS{(F|Q{!m(Cx+;YBrJm>Z1+3Q+CG6={0*N)I
zbKW05;<-H2nAmdun?3#B4v;<!0KP{Aqy%_CO3>~7PfE~QJi(I3CNv-MuwVAQrML&y
zGz=pE7<5?xOeBB7R1AP==pQio?$5?B;hfv8GH<8_+*4RhrsXQHS1fScbKp^(SH3rQ
zv|42e**ho4cf-9W)2Z^h2V|C?06tU#P^O9wzzJf1edyVrNqAm@CC82L&vjw3!`8co
zZrx2DQSvH20Ueh{HR&MPtu+CaD2Wq(yl}-XkZ6EVfJDQcoX4tLOmDx5K<-Darmj=-
z)f@Q)H5$>zLt;d$aEhQ4%sp57A>s(MMGAxJzFR=1O(38d1MuGRuK=m*{liADMmbxq
z>$D>4a*+}_M5G-AVM`Az?|6E#d0xM8&U`(!u;A_is^|eCEo?LpY25&-p#2+<`BBdT
ziD*LoUO5G(JYZZE-gwx46H1uwJdo^+{=mPaknTG4o9~A$iJGbf#lQzvi2`sX034qD
z%U`&<BM0IYioLx_DRwvZ!zKbki2!MQ{Yx530H){ul7^Kd;kR%0H(oh2hm)`5X7c9y
z&g0tEjs;}5+TDes1#tIZICFjsea=j*uz$nj=<g=9GNQ~0nDRATA4UvK0J1UwWU1K!
z$QJ)k$g(e=?y|ptJsTEKn&pvk0+b{Z4k)h&lu!Ltt_mo>{V(MTh@9*~Ex?nF{rPd7
z+O_D1(bv?ToL;G0=ZOxy3W`#v>JNO`K!Yv-6DR)zoX~&4xv+PxQ-N?hFz5CqH`a;m
zHk~)63&X5U9cC2BYa#$UvI0}1WCy^GxBpP?s5*`5AJil?)`<<ri9n+^^&kH(NTOQk
zXp6(73gHM~s2v!|dtfB%)c_1({lmjLEMPLVI?(J2cJiKW^7-z$^7#p07HhbRN6XM?
z5N1{T7T@nnlbIAYJI2HA6Kxk(Fdf$bMsEVnv<sYx065bY>OW}gb>c7DDq4e$MTH-x
zn;2MqrdLkPl%}*wo7f;@J)LCr+5~YE35c_57wRXvJJHs^zP^2@_UOrkI0|TvMh*z-
z2onBa!FL-#NZim&ce==bCT?$YHYdmK9*11@TA@XjDv4_U!8dt|>01rnBYR8ix1XBG
z6YpRIoWj}vI*<Q9%X<E=b(O6D`_3#Y>wnyzC{kU{N=FhNXhSl_G?g|jm5RfxQP<rn
zB2{Z{Rl_`-hwi6i4K?#~ldOG!+{AW@a(bTk54LokM}<~p-rS6PhWOmOp2^eqo1cAw
zsw?V@_6FySw>=y>F*};jnk|S}Wm5Ze(0L&NpS;!dRj1E!E5wVenlN^!?5j~ybtT{;
z6AW^uS*^^=zBo@-rO>g}(!;<jWmX&yHM`_<$LJ8`h}=gKKzdnW^5FZus;?srSu*x7
z)4jO<j8GD5n2p}pR>;LAh(_H<hER6N=t|T)Lhk+h$>!vSKM(#xCz!tPa-<BmNu^13
z&>}EjSI;J9CnT(v&2{q%yzyA0I2!>U6V@Ui5aV2t%gMKuy>CiG-BO)6C`1d}aL5r(
zG(wj5tLefq%h>aXtwD%^1F2}lbk9c?i8)yDJ)HU;^vi@t3>H&11LA>e`CDIXt4EsY
zHQlsm_!$s853i?N$unL`W}$&WjH-HspG8WDuWs(VLAA^Sw~#Vz{x+r*{+%nF&=f~B
z3yNr|)|bAoFmPE@*k_^GnC)UMT;YQ$AuNV6Q?|z2m>+suwdng&PB5{JiTOT-Eiugo
zJ3Xfw<Y2#XJzZNNQ%T|#)cayHqrnHCs-oPV%a+IV1($M2K|_Rw_i^=Lk!P`ksrOxE
za(?S8Qvb>`onq)9eRuNb&&h4e8pnh3=&Iu%U@wA^-)s(q=_!<-PTy{d6fP=t+yAhn
z{GyzQ0dJJ~Eeu;~H6udjxWx@kF=P;|M4&Oa0AocLJTK8SByF!3kd_8<L%d+Uor+pn
zcDORUC=W|t8mr)i$cOnvIOb~;vvq&aRg#~6)*wYyUv{`Lq`B~2%Q*E;8!GZFz>s&U
zYh%*atf)GUER0{a){Or&m%BDIZF<O$WpoKV2@=nN)ugR;2uA{O?Uy?TOvN4?J5)tH
zd8o~(R1I&n90`3Cxf}EGn0tfFfW{>2u*AamLH)WiGfdp1HcDbEw$pdUt?}O1@68>I
zMR?97?2M|M#ANd5Oi23vO^sL@er}$x!u~S4ghD>Jx?S)5zWCnkV6RhH_2^sL5-+o9
zgTY9hnOUPY-0eTSl;tlb^fE_fEic}lo+F6P-}v-0yd_c(pAV^iQUq_7&aU3f_8tx*
z9TtsR@i=v+3%)r&%=RWbo(iLT_;z~~ZednFgt$IHQ%RwH8@}2^AN#Q@+a2M+IohWs
z_IwcL9Sw>iC`G+kI6&m3yjx#bGZ_DEHN(^ppq!4bnqu6@>bexw+7{=%N)D3loR>12
zsAM47P1j3{I9+g5UyGck51tPlO}eEEYE8QJ=p%AnBKy<SOIS6Ca2vySUIn%00L7mh
z#d`+!eN8wzWEat+4-XJo0Ys_?2<}7JY^#FP9fJ9DBY4kHjMfaIq5q0t0U|AbMfw2|
zdO$?`uSggmq6~<H>>$$lt2$n7&n7KM{ek@cd$@m57~j(I>Q1wm0*h!;nxXmelCUUA
z+tXTvUb=InZ+LuAsrYap0_Wm!@4(0tR;t2E`zlPqwxglT?7O&mZ5$<*-siUM`0&bY
z<-WN8^(t#jj-}U|JcLcx@7_t#BDmGC8EbUcS$G^pVAg!zdBZYh^Dpel#{4h)qOx$X
z|Hsd*+EeAUR=JP|FP_i^c%Z(uukwh%1TxA|Lu9TOfx5{*T?4KAck5PPZ+XKAw8H$m
zA~~?E6RO`+r(eoqt?~IjaXn6TGvO-)Ww@F}K>Tgj4IP9e9H2;Vf~*)uZPsm%?+LS+
zcOHw(bvFL<OHIFL(!|X<O1z@mq6ztz7Wm-hd^od*buv`>ZF(J-P6R<!o{I@{eB=mp
zRk84`4~&vwGdpj+Md;^)>W@_^@>n{!fr3=un@00&_YE@F6lDD!TJTNKVsfe%)EoEv
z=lQ-I>X>ghDP|o8_D5GB8^p=odI6QW*Moa>l=KAqExo7u*ssROkX~V<T<N;#stufC
zB>kKm<{&q_rKi@s%3iSLfNv5I#UT)R8i%8t_z~NU(O?o^`nxCV_vyD_Z%JVfXSWJ(
zmfN6&)x(6suoXwNA3j(GL8$FBWT%CF($6z2LvkSZJ7Zaz_k7I(r*(Vn^t1L6g?RV9
zt1zu<Xpsb+m#@|zP8SMl;PTa-$0Qbuq#8t%4t>QH+9Aaq6bG7N%GgTa25}y2^ZhCq
zC-H?t$se=p1DamuV+5A}{)s#Vdu|<gWKu*E9ZTGI|A);>N_EyVI8BCF0_lX38usgo
zWBdrT0qN#BRWAh0+NJXBd%6PVO=0Cnda^?A-bKn{dpLN5)$nf<D1rEIol-V6YH%H6
znK<^(Bn>$**Kjp+o@>hns>ry6l^_VQ)onum^D0^)UUHZSmb|_N{M!rn#r2fH-a-x(
z6jHWpGDeo2hFg&I#lcCN>-u*-CZPHN(E|4~IYw<?D7Y?BDuzN~Z@6L4+|L<$Cd%n)
znaK*pl#^ml`1s3M0Sy7cV-1}w)Bex~0;(TM@<ri0O{q*b*6br{8a#~Fgtf!i+~zhQ
z?Rd6NlO(iAQko1+NEQ)!QjKk4xY)D``5LK*jjw_(LZ6BW2YbTllc7`A<M<bz?%&qL
zHBM2S6-~p8piBkC=*GTGr?G98e0#Qdd%FduOJoGmRIg_2@46x>=#eJ#t?4gmE!dXp
zH<Y3fnPrMjLP3_@Uf8+DUY;2w%zNpNzC);9kfcN{cwzMG$uy+ZV(RvSE7c#f8tViJ
z-jDSgohh4_*iCfK{vekxv5V8Wm<<cY|I$sZFzu+aSwE(1z}|t-#YbG#v?sE5s3Y81
ztcL8x<~e}WQoilI>mQDa3upE<K9f%Fmy*_US$cMI{?S%pt23*2s<<8)vnRDvuKs{^
zGbbF2v>ryP{2*f#yQg4UJ=9y{LO+nZbS!N)IZMv;^b`h@rOGR+VNzZ?6<>&_E!|g~
z)x9gzz2Y(&zFP{1HBp|o*rh=YA1>p}m5$KOZ;u&9*0bqT%VC`Uqk9>3o<>Y>U^(2@
zx0d3WBYicx1l&w^GqM(I9bqEryp&5hn(G<64fr0*HhopHGW0unY<6&8Gv*r9AvPKG
z9G?BBUMUAbuC!dN*H+!1T<Uh<ul3+o#WBcz(cTb&EkXTr?`&MoS8ML-I(%s@m6vCt
zjXTS8<ygNdMxKn5R`7U7FX9g!XU(cxvKBmq1Y3I694d8t_m;_ZS{^Mya`8+}i9GsO
zTBjh<<PDg^9Rw$7FJG#bFVmBa?O4M*`b1B$2Qgc#Z-iO!x+|;YN0z+5qxSO(KuZR9
zIU2quPg-ro+Qt-m@xeQf547Xn%XKfb-oKcx$Kjh(qX{1CK#uW*7070LK96&L&zEG_
zeluGLFVGnfJxGFuN6r_IPHN@DF@6pYq@!JGsCG{)t!-=USTg8nCz6;F5QB!YF81pe
zI-6WRHW`wPhH@5I)d1v-%ctey9fY&Jzbl@f=FeI*AJ+~YSRAA;YCe=nQ_^egq!7l8
z0f=Dz^@d354*m;Y6oc_K#v*JZeKRvdr$wf5A=Y`nga)*feoLykU$TEuXsabq?n;?M
z>o2aFkM+&usexKINvj~;`zc#azPrs03QSxF7Aq{DgOI^=Qlmv%#Gh_it99XvOG$7L
z0rRp|w^v-oh%=F%f(tV`?RETF;Sm8}BGac=9lK$gwXaW#n7QhfzeccLKkL-O<EPgX
ze#0^=Y_O8QB++y*4dYmlT%xq((^weI+F94-4*Y`kAkFPe&P^YBu9mirJcNU#4l1Tr
zZn$EB!^gHFhBdK#WeD$+vMm6EC!Ky~jKd{@Joyoq$i!Yy*KrBX^ac*5kwEZok&OFa
zHo0YCXa66&ru@I3=Yh1flvgFty@3rVc2BxTHkhIjig9KvR{REGdiR9;Ve@c|{27#n
zDlasoIch9{%B?WfJ;)zB;(N~%AYL=Io^BN%|6MTKrVb*cjYw=5>ZtsDQtY2_<lza3
z=q$15^w<jiaBQ$R!mc-?^g3g`B=N8XHx`aW-UL5iCJDA(xQO|H4Ieys{k9hZK8aS4
zmP<SIl0BDRNPO#E1S&6<5_`v$dPs|nt8X1sy`?%{QI#TVtl36;NQzL!w_~JQoDEvv
zs;y*U2Yj;iEskr5<fEaw`@h2YV{aOwd!v5|A^4I$c0*Uyt%9^Xh0W5C7OCUS($V<E
z{3-qY={-180+!7=f2(nC`&BfltS6^$Kml0FjM9rZfut^3D{dXhAYD{_erHdH%x-(I
z-q*4<2Q{@So64`<tZbjeF#CkT?6V&(>V|@~I7VD@@5}#dGYMzho$H=DQIKX8FA94d
z>n(Z>oi>{t%qbMhg&1vZU6xSA=YEkt)hH;$e`!d?Cp%vO9r`@`qmQ2?Mi<QuZVl>)
zFg$w9qTz?I;ziZMLKMgKk!V99ns->yS_lYGiyk~Wx^>@&!46uYsNXL3R|*bE%Q2<{
zosJjgZUyG;j~BQk`gwjN7_s^L(A!N80WnPFJQMS*8H5b+T(Z_V#v8EIY8RxaEYr9$
zNhrt*S#J;`0Vkau0jiqyL0Zy7$(_9<#*6*yp17!WH8c`V?uAovhHQod{V*M6GejKB
z0cQq|(_hsK(BL*jiHS3pt!2dqTSg93IPEW?Ks|j=X(7I#Ccz62cxtNA_XuCVP?ZL4
z^~Be&G|_MJ1}mqzYeYn@oVB+#-xP8sV{<}XiV;<VwQ`I@E=WCp647dZgn;HAy(x(4
z(Ryl2hBLy?FiI~9OKY>#RH6pum_cvH(fUM227J0=&eD9!uFle83u4BCv0+KR?v8oG
z80Vv+royDX7T$V`%u6(lTE1#iW9h1vUCVlp02}Sm3IVG%)08A7vz%?I4YJT_t~*g6
z?udW<W8R>?Y*=FQF2&YIJR^`zC*_klW_v=PG;3_peB_jiJdrYR%wDHH9JxNRxPF1k
zB_VdsciJE<(;SA*>HBqSy>ISP-t?FjE;!D<GP(@A;zVrDN*E01TEE|hB6giW$$(gz
zx0yj7x1g51)WWN{o!cm|`16d6&-FRktPIB=69NsKu=EpMYwNB>d6Xx~<LaAP@=QOK
zK+n5@=PvTH9Aif)Ji8cgM0Uwhwk%DUo%OLKvL5^`O%HhyWRq$PXfY4a1n!yGt-)`}
zulm?m<#968(BIfT@TV0dhn5$%^s*1&PT`w&;V%yHFdgSV?%IY3Xt8muf3e=Eo~Hg)
z2?`BxFTroCjat@>m6<eDlwAvHnC~$Wf}Poq7}-bbT3-7@dvEO^r>&6QiU?;>(m05;
zJJ2igG*e<_cIDNgnT1(GL<yQ_A?Zf3Oa8`<HPuDfUu!HdP9dS@I;53ImMqV#P!u>F
zcyA6~WC9*e%(&)rC@GV3T#G<-F<47cg3`A1Nl-&8<F@A{rh{PJOGz`mM(yG`(<E4l
z=VN8&Ide^P>*LDsgTg^$VxMh@*?MlyM~C{&tq<QbmgEE*kc8r!$z9;u;+7JRMZG@<
zwD{>!xiIjpgjuh%?aa`WEQYpA@<^P|zeFrH;8R7W3hHUzrChksdZHhCuzCGhnYnAm
zV??GXzxq~H+q69Q<whb?c0Ph+#rx49JZ+l3qvku&Mq;mxLfS_f&OvG|li@!ej58Bf
zG#itF>#Gw*sWHKHabb74mws!xPCuEK1`KOSx{EKkb6-J_W5ZN30#TUTF|=&s!9gRl
z8zTB*{UpBy`!uvy*$*|HpUSYfk+(07Ema7gYbq&_JH+bzMC1!(#ngCALsdB8mg6l6
z25p~SucSkQXfIah$SbcAhi;6{(?%%uP7$=3W;LX>E3HpYD|fp=J_)6xSb4(lUFP;b
z_?sTX{AoOISh`|kXdkKcTnX$$$%eOf>ACP;R5}bJ)t)iH2w?o9{lwD~L1AlzCS7`O
zSVIY3MgJ0C*jfH1zOZxskM1%5!Pczn>cR@E%;+75YL6-ShSq|s)s_DBxGOOnxdgwt
z#K^zJ%D_o4uz0^_#z)nwe54_k@+dA{a(MB&c;4_}B~$JhT6#wJkR<DeF`Hu@mG+d&
zH%;&-4g#M~?W6hinAhd=Zso1AAN~XRqfgf4?3qAQghKmdwd<k7S|o}*sRTlYaY{iK
zWOK_EWpYG5m#Yl63J+=LX(H#H8Qaz-4);TchxMyaPZ^PUy%{>r8d@qigV_%auV0(5
zPEfL8yW+@ULkhLT-(()ypqn@Fvq1*Y&768W)K*Qjg>*CC5&Wz$k%}E(OP_+^Utm~Z
zWmZ(@sH79W`7*y{t>SiwGHqadIo0MAnGgM1{}CVS2X27U6;jCTge;GNBx99ha+mk$
zs3Q(Fi0U&ujS-RmEhN}LAMq`t)Naj)?Yq^|9PWZ;$bFs5AkfV0;m0xka4^l1t_#Tb
z(K?JnJo{Sj9H&7+&%^}d$xkq?djj_cQ!32#dP=%_N_wPFo)A~meCs*5g9$68wV{a%
z7i>ZnRtau#!hWFGFe%_8Ob=l(<xx+2&H7_NwCrMYnFb$YO@5CyO*x;s4vw|O-fT-r
zGuLoMr>U%(XpP3Q2GfI_bVZWPk$*>7n7EFxBH{`>!7bbg@@@zE<Y(W+2Sq4q@QDYy
zO1^b3spW!C^TNKhABS?p9#lR~DKgO!|G9bTc8-bNScRR{(M$nZ`MZ_o1o_j#sT(%B
z9pSE4P}+Z3+BePZi2cy4+oPsMla1;o+73J}=wW(?{1WG-^e@n4`%hcT0XrFT{jYnV
ztgLMRaqFY@G}&nUMwG#eXBxK%Cj5mo2ncX*A!#27W^#f!Xr85OQf9+5T=x$XjS3j9
zB_0b6?)Yx4Or@zB=UJVUr6r}MG+PU@bX{A5spxfzLObE6kU>o>Rr*NaQ^8}EKCr}=
z>e|4Ab7#WSq<0ZT+cigoc*4!6=#3(FSPqEBDh!D2s%&BxxKXNby(V!;acX+T-~6Vc
zP-o187TqM{heC97fAAOKNX8uUkR84%()ID1l2PaTjs^rqhz9=tdclI{u#K7APu^ci
z`%Nmm6e-KUjJfyQabRH42z41I?OK=u3N3sfR4}YjtZB{;5u{etV;0O6K9%^=0T)BA
zoEIV#Y94n5)-fjCadLKff6t#J>aSyzU(p%9L4-TPVdzm}ge`k=tFV6)3%kdp%@v30
z_YT3Z;u*X%WIkw8jG(TN(_&d@;s`WkHRR|w3}TTlR$rXDA>kOnrz!xSaM0wjJPX!5
zX7iKrIA(3{^KFqAw7;|^GyP2MrT_b}Ac`_)N0wE;uO25^7@L;Tq>rMhz(ndoAeia7
z>R5DP^k`Og&0#P_7Zq>i!$%&MjvNSQq>F;%p=}1a9*SmOA!V52N0r(~KhZ)2<}BK_
z87L^_CZ;Z@`X={msN`g3FASE0z+i+>x^yjAR7G%+@4Av7@w&0GV2l{8%RY06XIVeO
zyG8N5W5l)AN#;fOFQIY1LdlFVR@a+zjYAI-T9J<n?jC&((Fx-F(tE2HE2*3!fY&^`
z$>-tn-TiJe%XaiQ&F<aH<NKeJxAR`mdhi3vpI+sj@U+?R)rSY7&GvS$_ZY+j*PorQ
zZ^3q*ZST!(wr_#(#YfLGIF>|qw%Vr|;e94E`0r1L-*YQRt=xv#m`09?-d~b=jX|?!
zWnqK6>w`o;J#U7)7Y_7Kd#RrLw+^FpGWqF>4$pfJJAXu>2%D`Y2YMzF3b>_Mr8T@i
z9jCcI*y(L}Q&)N+ba?B^SK9u3`--`*KtGYK#}sAv@LtPx#>hPQ)4|pCBDaz#&PsoL
z&7Fe_L0WXSip?E&*IHi|d`8OT%m43?G5PO@yvct*q)q<&A!qX64_TA{cI;=4@F#lE
zK72bbUQ=!^a#YxV%YF%$`ZeMC-TmpR73t<?)4S<;a{PGo*>!WXBkgKxBmK?s&*^dL
zBD0_vbo<?w=)R>xBWkHGREkO@Z<3`7NZ=$KXM<_<c=Dn0Jlrf;@O6(xBUCV)*jp2#
zkY_Y90J+R)>JtR$gKu7{$K^-iJk+IbWFcp_GJ0fc6&w!Y6-4CnaflY74|6$xETHif
zkVw`E9E4-0y^{Q4#@d->HjR(8+vC=KfUTSR>^iV?X}pyQ>oBsKz#(MsNPh%gCiuz>
zQo`gkWvs$(OZT4M`IB_LA}>CoE8v1}Es<}}n__f8BTj{p142v%R-H?cK`OWU5Lvt>
z_r{la#-NPoaa3KGZ@%n8?QFl7I6k63BO;$U^H+kM%*QT1I9Vs@o1Z6@%DO?G**5Q^
zUEd<J&8<6@o4xp&t}?j}Ezcdt>dojsjFvyHbu$eU-7&t#@igh#u8Byy`XD=WYQym=
zweBSILO`*oUb_GEMJ~}f+X8jzn#nSeG^rf9RT=s5l9q8Iij>dXZh_3dzIOiz{7{w=
zbtikKx_iuwV;=!a3MGoIa%vS|n0$g1Ie7l5<e8)lCG0>2c+$(OZgoqA34M$)g&0I!
zR%jJK`rV}4XcnU9cX=gB*j&kS_XCslc}SH6wcnz~U<(EOZwV~071Q9YS>!fRFPH_Z
zcy^(jNyP5zG_bcyEOfd63mb{SmI5dv^m;mo;|8rB!~%j3e2%h0OtrZ9a4ci5j*$xH
zy|0eD17Hd%#eEkESB1hhl#o9kZ@Fx6FVbENl97UtD|!cD9m*XZ6I!c<m>=UQ%8?gw
zgIk5%?9JQ$NI_p48Xk48I@sbf{@1V5@q*#{>IX<JXGQtg5Yb3*gR}9t@ywwh;#VF&
z?r0t&|3O4PsWzYkD#f=M;m>kd+ya5B<bY~$2nU-g(~{E2UL9g)$J^B6T!$u=Q-4s`
z6sfpg6NLHP+n~s!XjPH9I!Of^qN_obTYc@o;rzfhVRiQ!VYA8Yr5l~bHR5obVxE&a
ziPVWtWH8~zc0>1DWile&-#2t&k44p~7*V|;RLKtf|IzgjQzZxD!x92($cVw;_pk=J
zv&N-OJlA$V=-;^e_uC3~#2>-hiIKgKJDR)p$%$N?h*%*~K%IFrR9~}0laRIr{`q$D
zGS`<Nb9@dST#>dhT|0d0-gU>*NVK!AEpe6fVNGK7#&y(HL}cA>{mpZbemfq#ZWJpa
zsV;#Zm?)v6bYQSi*+H<=#;rM#P2d5WG@r`AaOK*@gE-DF&-P(>b%QFAP3s%WlY4mc
zX_3<rK#(HMAMgE1UgWn`K(N~uMzuMSynD2l!>fTtx*+^>RD#2a?T-%S-<yDU_`Qi)
z`xIXwYU&4<>sG(CZrK7S;<W%S9#g9KGyVnDfTimXzfFgOWKEn-hnI)wtVfK;yHGt}
zLGPW$!|JivK~_n^D*PW#-_r;Ca4u`XEc9^`J{6HznByi%D3B%Q@E;pYxY-=m$Nu8O
z=ReYpJp4(p<n8A+(pM{F&L?~XYw*qD^oK1L^m%>1Lv_F<?Xa2=xSy*}Hdpby8gx{=
zrpp&tUE($wT%$5%T?&f}s7kS$o?lGF`roo0=mQW-u%LCxhPevWwW0Yc2b!;qr+l4j
zxt9IA>GDzD$AK22natbzAzb6dSa2+xd)Cf4_db_O8C!-FFSaYs12W8@57T`3Pr#2F
zc#TmBtOEQ2ZZ=Z`{W5h2%W>Y5GA~H-vNcKnk~gul{Kt=u+5T7B#KOkR`JWc`)F-Xm
zu1X*WUc91z|Fsq}`f6qX5yCLaj-2lcYO#pao>~~8q>ZH&?{~=TFjLJZTTY@TW<VzI
zUH@e_F*Z>Vhr2EP)ly8NSczFlct(?ht(e}3jG~+!FDW7{h{`B0HrC;cOu6RLp9JW>
z`$06`IZh2;V^ZjNNLrqRpL^ecT6jW&jN<SI9IB_~($pSBFrDm%J?#DvFI>$Cwd}G6
z+z5L3VjSz}gr?$wdeA4)kfVS(!~Li)ew-1X6tHza+hYRV>vzPH{OrDJ(Ec*4iUm6J
zL5)^_^Y5Hl!U~^Ls?O@yn-PQiibJ>kMm>zOCTEfh8Rm$}P5(jD9*%%oQvwc_Eib~z
zCq(rOa*!tpWthHKrXo$tP9ycoz5z#>k6PXVF<N0T6dvoy2#GJfeOnzVY?4bdXp)|G
ze^TY0Ra_~gsnFoqTtmHD?HAcEnMi!|fG^E=s`|F%lIkP|4vX}NLL=02*dnFs6(7VM
zj2O}jL`c=MkD7vT;&>_wva$Vd8nDHNS@nGlStP3P6)Yk?^k4t5m(5ph3-66*497%w
z>-RRVzQrkx`-*&Ok}w8;QiTf3%D8Emoe(pojEYH=+5fHNo7iaAOc~PmVx>WDdp?=M
zGNkxo@~pafnzD!+LyklxLT>xu1V;x1bb{~ZP;>`E;fbLHJy+SnZ9%b090&bXw0Jj$
zJc*G6e&LRMKlwhwQhC|Cxy5J;On_5djMi8p#)a?8p>+zP?{7j4E2>0`dNJ7V_9yQx
z?$L910G*439SLpmT9OzE+(HJo5F!qej(tUS;U|P>Av+(O+@yvfDT?Mz#D`-x#%@}f
zr%o8!JzRYR-*ceT5Lwx-qyv<}*Qy9e_uh#`o_z<{1VgI~iIv(bLr8RXe<cWIDPKQL
zb`F_>M}t4iAiz_WY0DSs@f<3uaG>ynMTcsMM>3ZVG;$1lKK;^GMY;m5ATU1<68Eu}
z5kQbk&<?UgsNa)IY<zfXgSjJ)<k?J5l+%e!Zj@6@wA15a5?RB}&v>4$Nr?)-j-qsC
z&l9gNv+LbSY}y~!G{^GP9zW=3+l;gPEaq~JDJQUwIXgeY6CGxet*A12ZCc%qxjf9x
zFUY%6EczBR(SbeyS*g5&N1+!Q*GgUwMkM;34<F>Hty9N|MRllVHb~XVcQ<mgceDTW
ztm9n>x*a~g|J11QQxBqqa&8TZhcI(Gc&BjUbP!~J=XCAdg<@#!h<hm40X<%k-GFmQ
zLUcipw;)L`k!ZBDI&m*Ly(U<kX{)@BvC0wUW!8i{TV<5uq_%BO5lcDBdVbb{?haD2
zxB3`H-z%zi#8hWq#rJGOI3jqG3)5cJV1j>{r^i-oS)!(+E$L|F5vn6vgn`J<RBU+r
z*~_6edG7uO-R}{evZ>$&+cl>4I!m#2F5J@08JkiZhZJ;xG9EtpW3cxC1#?%EY0B2p
zL)yRP)#5y`t@4M?9;aJUVSlcMvRnUVJ6~t<xe7MKIn*de-~JqWZIyYCr`)_r>zrV#
zp_~Sum^gQ+9aH*3A868=NetiZ=(Gf+?(j-`AsG1W918a?evb0Eqa^&|F>#`(E(Npk
zie+u0Q$P6)|4-5PGsTdntNad;-TihRtB3A0l0h5$d%EU=i)EGfcpQn=jTe`$iiL~a
z4W>@dt82m5MZKr2c~d4Cmt<UwZ_!%nAX}!hV@{`z$Ud$16qoGaQEuGk_MW0w-Rxth
z#4}yinjgP8a>C^eHg2!aG&902F{!r%yT#S5<@;}1BxheLuz)>n2KUb>=f+OW;rODp
zwuq{i1liuWpDGv!T7NrqVx{p9dQWy@v{pHE{_N`y&k}jdAV%~~9U0#DE}Qpy!tz8W
zIQtjE=ip%eKWcvduWN<=k19@9uFwA|;U^|<+O2XR4{qM5tr=ZciR~c8!iRm-^83_X
zWhhjWL-U7p(2;g5R!R1J=k4y95Tm)lI&>{u?j|bhdE<(D+M<wvBEeKcM(L(8f9$f6
z)ar>h@0%OAX?>PM0#7Cj3`~I=vD8umR9rqf6}EZYS@N%lgiCPQFpXah`GH*@=;}=4
zF%k;AB@_!^A}HglV6BE8k*5sP!IvqFDZXpVEL2Cw@3lD<4Q)exs-n_m<0TJUMqGoa
zR*omu$%>QKm-^gIMvoRM&<*`5=LO$vf-j!fh6argj5t=tQfaSLsj$k)1U>pPXIXzK
zyV;P^Bs8?q@v2S?z8lhY4DD>}7`xk-l@iXS!5fii0S|(j<A$t4ph#amM!8Ky#J9Fg
zTn2RrpXDn`?Bkjb7R@O0jA1?w6M;n3Vo5^4)-?_}Lx2$-En~j11uVM7>yUn}a_2{M
z6K<r)Pg5PAaM8zEBZ5ATYuO=78Ef<8<q#`xASH|)24!H`N&C;3WI7OCeZtPCE!)Ay
zL02Dr%Jm4if!(4{zxR$Z-l4Od>I|*?)S_4znx%{_Eg0<m#mjae23>&DI!_F_?*pOD
z=t*oz!W!E^Zen63T#M34pHmuX{Uo>-O}$ZApkD-MzrH915oAPmSAH1|h%8pXaH~&h
z7bBauAaShslay6T@OeU1sR4;L557bML~%gcRIb;zo<X1RJk%`~)_f&fuy9nmxtqP)
zLi6HR&97PlSP7j;;}l+cNpc=qUaf~&W>gm&)BOZGYjY3mI@+@q%6ttbIvJ(ke@I+x
zW~IMnRE~Hy(3@9Rv>h+y-dUTi|5zz+W5hHGtePX+@G~O(EF5-3?FGwO>L}m12(;G>
zm4f<whLS(xbz)Z0!*+iom2=;0nKcS&x3UwsGA_#k)@ep{5A$itLwp}Q`mQb8@|BNH
zRg%ofxx-HlITKXc2^+%;QZ)Wf?2*~{<fg$hy?7Z~61I*dFn(?<S-b9gdst&JauV8c
zIC_`xBDe*Wbtx=;zaRXh1H1de@KR3nlZhjt5mb_1zDhdRf3mg5p$@|zuJRh8_l}+>
z>z<y>?C)`CBfK}kLbyv(?3THftgfh0-;ah{Pq(62+^B-LcaFb>TsMmcKJV|&nB=_S
z2&ro+mJ;{k%kTeU-Ppu(DesQI2H!Wy!O)>v>iJ#!+Ab{xv$i#EFg9a~WiRPLb*mHi
zOvNedv}01EZ^Fp7wL|R^McH6UJ~(+kSC{|LI@eRR(u>Kang4#V0YL=HM&9OX1yQQX
z*XbQM2tilA<8wzkhu%bs*%*pT5o=KS;KVLV_4eny;EP<}B^GZgt{}U@$vu{3q9lW|
zjEXDc1o@XM>Q!Vfokv1+53JEY@|~I(+(hhuG%H7loaYZ@f9AF1Q+c{95X;^s_8PTq
zM09VA3IBhLy<>21!P71p8#}g>9ox2T+qTV}9ox2T+qP|6JIU|n-1mKNom=&<I%hs~
zt(i~V)3au+>F#+Rt=;|0RMU43BD>39qzJbLo8Eo$nEF10x8GH_7x>Fb{4x1A40s}@
zkgMUjvADZrvf|%Q((Zz{R&8%fLw(adGYnW2hhuC?FM~Z-e<<1_<G<?Yxns8U%VRG5
z#?{}QG-+@$(5`z$1I?Ld4igBpoo}^#v`=ljH_RUIXC3-nXi@<f(faI2^FxAO%DiCO
zLnKD0{77K(EpoUDvJtp$GPugIk+^J9xOaCt2cf#t;#BMF155pZxWZ1f#_?`SXLT9%
zD(rMF8ncQ=DXXSm1YFUphW}yH<=|xd-!|R<hO+w^`|tLDPRuehuP`$!Gbk{ys4y@o
zFfgkzFeyne9#I`Jv4TZlQ(y|3COEfe@w7h;qRGIwKk=eQwLS6rqDe(aDYrjmgJhuv
z1ku6F3((f<<j}zY`uBj74xFBkV2(h5rrQXb|AWSy4F4h2&&c-QUxELNP(L%{5;LpP
zkH)GDY7A`Z3@s}Er7s&;1QrEmW+2)Br*PE&QaGSM=Od>FhD@}$T<1d$cm_s55hK(h
zFGYh+9s?ZW1Ofu$1(d@P+&Orf;3TZWe+nLOk(mitBd`PX1KI$<kGEg&Z~y=!!y3TA
zV9y_@pO8%fjucV}R0(zgbODwL)C8TcQ^0Qjzm0wq75VcYjb`}|ZesbrcN6X3dISLm
zRMFReXs@tcEtWXW@n?jFOySUlfp@RS*jvX(S(mmaPE=gjqO}%q=F#voC23FGC1^xK
zUR<!{mW1{D^|`R5P2j9WM|tI9LkX{)myi|V2#8fi1Zn?C-~V6G`@fgfPrm>EepxXt
zGyj*5lo=R-@==9rgy@V>^3no9;y@%xPn|eDozDM&zUzG88!RlU=NFZ+Bunp7_G$LV
zN$-jhZ7B2;rc5r11_lBUK|zDR{0Z*?0APp{0DzyN4gdfI2mT0txQ8DJD)kLOB)SL`
z0Sy8=06<C*&%p_#!L>lykgYk@G4~+^alju*(5cJU2+#qEV*J_pPsTF+@9-1<Wh^5h
z;}0I>|C~#i2pL&eIT-$@`?G-m=aG<+m7SIG|DBfq^Sc)P2JVnK*$@VsnVwF|{L>nZ
zQ_|Dd8HZws%udp<jLm*p6p>kvp7(9zD%UBX@`hGba+i5=`|(BQHHj1k*_0ImNg2|Z
zSrXD)9Rgj<OfMiUsEiGkIUqefIzBxeEhb24dt!Oz%70{^f@L~Ow+i>l6JSVmVgupw
zg^L2&;fGDdu?A|gZ39eW1B5Q8hfb$wW(Gvf%sdOg<l=Y)84A2nD**x*3#bb2PKU(}
zO$#neZA=a=zC7guJVNEM<pbB<-8swyCh-W3%uj4gL7E^bfOKi6ulUqifHy#vaAm5d
zbh^LQp{)F*)z!uIe*gZtizt?t4O<x87)l7w+c!9|jGSk6Vsvt4X9n{|Z5lv4H*>{b
z&N!e5v_xC2^Ua%oVsLW-?7{}>gRrKRp0?iU)6uq`nZXIlrw&;*J_eeEJADPPr2*K3
zdiD9ULG}%dJ?uIF?!T$ylD~Sh0)PKTaElS}rl<CX4QNlU#uAWJ%9&qYOvVRlV*i@_
zWpR0McaG=+skIIg%@6-gh6fdgst63k&-^LxNB4V1EvAMpicYP?|9I?4J#E%DrH&oV
zxvr79(cLxhpLA|pa%1}VX^%JK*Xd79Js!`M@Asdn>MPl4fYjj9biCx?&cyh%jM(Q7
z#e}eff2?L&I|xTwdU`uYJFuA?5VJgrbV)C|!mAU@zg5yn{lQ$$w|5RM4v;DSMTW;l
zCiZ`y0gsNr9hty7+1pc}KHr@8z0fhC;09Kv2QUn5jdcxw{&9bt)}_DqzCV6uSMvaO
zOywSrf*5>XKJSu$&B8Fd*0nx=Y<}vCPmz|Fl@u2WzUC$YxGAYF_Mq<!_x8XT>YNxr
zH8eQZfpu~b{Q%rCOmi3fT;KcD#`ZTrd+)7Vv%Vh$<2QhE;0pi?6#Sn5sFKTDl@2q|
z^KNL(=v2SW!~4hspnVH)`~aw(07N_hw9WwP@kN={*S#m@0NXnNGh$O?!}CY%u=#OE
zyPsQN(4aZ}8bDu}w$Z<}rYyMn9FU#p2=4b16y6<r?cX{-A-XWJIHj^au{`v!d;D<g
z7~P9Ky)v;Qv)(^^QCkV#*EcZr>3_o4IXQIl_~GzgHSRB)?#ng{&{G=N8R~zkr8EBG
zG0baZo`b!4jN|_cx;OZ+9#dkL1E??pLMiMHzAS~^W9H-!Xb)!I(kGu72R1-{w?5k)
zf;K?@%4`FcIq*k843IqN9UA`Bbnr)k4UoLBHv(lC|CG&TJO-4^rbPhA?9_k~FLs~K
zOJCUQLDQCgMkz7?WcYMID0lWBQI?<Vz85U-^k2=TG9`dM`C_vl0etc!z|nsMbPAwv
zw!7g2(l4U!9n!C&?hDdyqV69KKX=0TckkE>*7(l!%v&vALmlAHaw*pz|GiSK(I0_(
z>c40HE7gDR6ruealz+MX>wgKrkMR7AuFAdi`suGee`9>tYB4)HyM1>#0$g!?&<_B2
zy*2L4%<{}AZONjLC_TR}JK|nOv5|Zb!-6FPIU_);Rj?s)(M}Os%}LKlGcKlTwP#+5
zB}uv|F1?YL+y^R$?D@=T;pcX>P*gVbeDvWDRm>4K_EJjgAxdFpM1FX$452ZXLJ@s;
zvwT>CZThqYI!!2@vbWmelOE>@ct47HE+HpYMh4LlRS+sUkN5N^&9Dks3!Z`^PAMOv
z8qpmj@^!GF3@zqsc;ZiQZ%*f&O8CM}56|{KXA0M0d|g^JjdReu*r}E@bvqo#9bFxu
z`fuk(%qe_DViQg4Q+=c&3R=KY8rq5d;A+F3M(M{a4-!784>|rMF+rJtO}OVLx}SQa
znQ&}cWyny1P?U#X8u|!PN)=6^RE&v9!8Jlvf#mFrK`kFN3(B5zd4+e((zA3}_#XQ2
z-8G01$ZjBQ!{*((nY}yr@Ch;|gPIo|5hYFuvW=^uCD)meFFkycs)*|p;K2B}K=M6c
zM&e^u^;h@4qqlFI+djMudOI0Y%lBYXv*VKMeEU&fMKt5i+gA0r4Z`J!F<u=(?`FE0
z`kG6>4ZGqA(GNz@Mm%-$M0#tmxkh>d56*-NfXY~F9j~kW%L*|t6M(Y3p{;y$PoK+}
z0N>#JXV1JWac<%9)qWdg83P=)hyo^*F8FT?W4#N3yh|3_!w&oanybUj5<+IMZ>0Ts
z@Q3slHBD?&`(^(Pyb4s^)6ZYZsQPIR2GNr+7CeJVCN}XnM#|vBgifus*?SpI_N=%^
zx;l~SeADGwfnwddYF(7wP<deyrzl1zpy5e1tI-4k5FBFTw=K;@@cjZ;SOCzp%sbJE
zMv3a8$=-*Hde#}F%ewrB;ohF?bAZ6i%bv#aPK{QI={N0x6+f)dwMdR{z}>X}8|}Ef
z$O9!7HQh{mKe4WJ`W0!_Obi-C|Mr0{+ouw)$7WayjEvLh_l>#E0(BZzl9FY-YR!x&
zk>J9^Rj%e*&FMG^zE2Y~<bDh8o$g&iLU@7Jzge1mD-qILPy_I)rs&f*g+~;zH^r^4
zjrwXq|DU4e`@BqHlLz}y7v72fJGW6;14`GJs0c@MDQ7Nr>t8xD#nYsbN@aB!mbwVB
zNam%%OR}CPqJf*>@f7;P>aNBkfsRMx=&m%jwI^e9UZaw8Q{;6zy?+BLlp)HN&TAjm
zR?19_N!{=>t87hdUyNtCk9y(>m@h1PkMmJbo=SZunj@q6a@HX+ixYU}{8g`N->LW;
zB675<*gdu|H(jJxOa=!bDb-LjwI7GmVB&{25*8eDQc+&C0`R`?JUfJoeK)$^vV*um
zW94c~8e)gEmQnypf|9C6`hP3URZ44-v5=>{qnbMB7bYzut!HhfP|Qkq{aj`JN1C*h
z%3edWP~=nTB!myR*A1MLgmM-*Sr1h33g0ece4g#FVs`MZW9|ysaa0|Vj$M$=701x5
zC%Beg>0l(dE{Zl?G6f2`aPO<#OF9heNO7#1;@{E;*vctlmL+P$ULnW}d}ntZ+%T-3
zi-JGpd-HI1Qe%eMyNn0A@-h`%Nd74s$5joCchI*J68$SixaXkt!j-fCcXjL(maqB)
zP4qjDDx|2NPpN|8iPP`rR!81vPKki#=yJeDP{vh7<1<M9sSM`cWPFjr*3Xd+klfOU
z-5z=8^PJTC+lon&=XXU;kL>rzRt6p8jZaf!p*7soH;p-I<Wge$YkvY<m(QfEy2rBp
zsYj>_Bc|Pu%5S+K^b~x9ZPzk?j=h<+!;5v0U`-frEPImq$6>bKj<MM%9FpL4noq^A
zxoiy^WEX*WAjk48e6>Q3f@a@lxN?lJ7j~Zz*L(e**raREeP4IBpiwo=>u%~(3PQ}Y
z99Bj15n8)$p*K-O=H~lBppPc$Y4lW@+nb_QP$ZP005%cI0?v?6K|hquh5pHMeUTk2
zqXpTLz2=8`vaDa4<A*h%+e2OkmmiB8?Sn1ok9&o9Z1*4f7U)D->NkY#<#gKMtu5_E
z&Q6<A0{@KjHbKii{O9wy2AglbGos69<FPfXAgHGxSMO(kaZ3e8E*XRfB!#0|ZyHVp
zK4~|xG|J!5?<5PvRuX!`AbT%A<L2H~HQb^(6I+uiw_2Hsv^RS#X&H62aOJ_HCopT_
zjn7<)YkCd>?zrpsGOr>kg=-{!(Vc}O>m=16RGo2pdv?(1Ha4DOnM-<`y}dZZ{R`5p
zh(tz&(7N{qsz=-(Th4&R53?089JF5Tq&SN66PGxxkbJw-L=)CrlDaeV|ERiq@R{b-
zQFaoPA6h6`A$nFvJ7Sai%?`$hs)0RpOh&7+N@y5T0GAWt&4|dI=DsNo_HQ9r_ZL%N
zPG*<_&!x+xhQ9?F&POo7Nho;ZV9)N|GO?pi;x8*%!*Ml``SfNQe1a#U-&G8-xNhS}
zX*c%Eyut?)+rnO^T`5*a_1WAFosksWKDBq!fh&bU?>|o5N>PP6={}m$G+8pk45I9a
zb!)RrcS<=qxb<wBDD(g<GiwsuT<Kdf)amDlLMyyfS}w%^jvr8DJok1qkWR36_jz@7
zR^L*!I1-89*t|tFlkMjS{V2l?6AO_hvtrINwrvrYnQ)(l9mfm`y!!~ogZnn5XGEl7
z9Wa8EOQOOjihD``Pda$fes=^W-Win_#arogDy8-$bwVeUPD<8^l!I8_ATt6bnoaWV
zTOi-eeJVTIwkGkpN$PlM;J|Y6Q|^G19>G4|>%i<&yykUb@O}c|?*4h~gwoe7zIpxi
zk*&Z*TIP-LNK2SvRy=scWQ)n+P75`M7{<-=coyNA)MBXi?|(Qn?B{pg()<hg@9!Wo
z=auj$9I%K}jc3W7c;wPPwG}oSs_okC*!F+Hs`m!-2mF^afZ;lXE|?op%^#sdHmzvp
zV;Z9>Tt&%xUF{Yom8Ui>f0?up6tahBfVV6rtp3{M_PD7V2UfW8vS%6Rc71g9F4z%L
zo@RY>Sl=Znylik(&8yP3JIEEjIP4MDZ1N>(kyv+H(-9}lCtT_qJhN+!qM)(WF3p(*
zsoTM8r8!=5UxqlvSOj&$Zdv3?a&RdfJS2yI4l!!d8GZXBoc^X&fP^iHs0vMW&E{3<
z#AH!%BhAP}YV?%#r&;5d*NNEy9x`m{ykOT0I*FQv$Y`(rxhqVq7Ff23>^RIiFlknn
z8nUom`#L<jxtM!=r`eFR9}<whXWOqAn2gR+Un=nk=D7)132eA%%q(?Vb-y{i7S2Gw
z>AvwDat%w}@0`;JAR>AQD@NE+YkL}4oNt=ljoT+sddIQ%v5djIT*xjNMb$<<^!Kua
zNjT?!@>RZg!|yXH@E@uDq^*Xl!vQ7*tl<teFa0NDynf_LwCakyJv{LV;u2r0x%@<b
zFK+Ip9mROMx_pWmAAIBnSw8FEY&%B+Z(&wL;>w{2vjfX8=&Yq_CpX8!n6JO+6JdiA
z663!pcef8!d!jW+PP+;Z0*Cq4O&yJtOftcO64Bt^*+&LSeF&7fLPWsWK{KPn|A~R?
zC>l!wm`z{c9oDF!Z^O=v3`8TGov<&K_mHG>*D$XTsohjDZ+k1bFzuJ*VgY8d*fOn5
zIz;9u(PaaHc=4Q6C^}}mFH}fwwpDV@fjZGy(%5)v^lN914g23py@%2<(_?-a0@OUG
z#7z+9&zOA2Pzwe;b(N=ZIMczTN;|F9gMcGBbv77PTKbmV6c$N!p|%nD7f_P)y>aS<
zd1V_nQ-(he)~RBW3A+(FQ^0y{%#JH(j}$Fc;Cw=AuL!sM8EwB1^v)>=@iVv%5%H}M
zjUPCP#G6{Ef{+$BoW=hlvcxK)y|Vp&h#lMhR+VINlzOi{><NRtjUqv7zrX2Qv~3PX
z<)ed-aKz!e<MjknR4jy5&jjJu_`3soG$PRLV5vIP53Mxbw79!L!Mf|S+Fe4o{fVfe
zKs#yMv9->ce+uIy$S6N|)TBk;*j6iz4C=K$XDpzvfYH;1O*6{)siu?vB2D%btS@2E
z^>?v>Y7`88Dr^rnzzYlm7AfiQJ=Xjppiv!&jt-k1P4PDv?>k$(*j~ifAhT?mQ*mtR
z#Cf>U2&KrioFAiuEQx_>WpSfkPw2cJq68@dCkN8KYbbq_EF)gQNRv~}MGE0qA&p)h
z2g~aodpXIc<{!%G#3+d>6jTfGcD<9HkLPS2Htx|U!i0pVbdQmJ#`$I0Rzo>cqfb#G
z<M0q5a|4-J59Sr{ZQ+B%lllU$<E+MJ9cxN#J~-V_9Q1p4UVf0!Qd-krevDfOwqz5b
zy=BKWeJv)!-{_Q;dXaozetkOCb&XiA&<WK?NY{O@^g6ZF^Ocig;CIb2Rzj%LYCXpB
z@-;n#9Sn#XBcJkbIxrye>5V#TbR>%}(H{Dxihk2co^=iO1vH^<nM_#v;r}idRQLt8
z>o891@p^3~6oVKzsUTjJ2+5IZ?o?Ykf8!DdmD~l1?Q`Jg5@#9lJb!pn6d4yV1-|v6
z%c+8Wo0zfC$*wp4o?nkdI*Fy>5c%{1+*~(XaLYg5i)le>bao_83g>RX-t5fPIj6~X
z251`60x<$h-xoqpZE!!xt(^=Xi&y)$b!o%K`w)jsyPkDpLy1vN@9?K2h`(T~>K}g$
z($~AS|J%7n%|E7Ji36Ctg1?IGjoHM`Cmmqz$7$XbhTFq-Uy3WEyni?MlWNouex=HY
z35};d4}r`*;lj*`l=EGw!ClIENyWj^z)wgvM=+TkEwX%;J*YHKKu5}Tcc1K}-ddXD
zF#mE%*^1g_kPwT&2|3_f`yxDt7!kL7RHBz19>I8gyO|9y`rx+qgFuHvIE(wsGIV&9
zyrMr-kj5$51VtR|T0W85@8^q{q>cXjRTpWsLMAe+(^N^V>JL+zoKc}^O6Mjb*SWto
zfla}ECTMK}uVNixHrc7iNe|mq69tB|A)573LF(j$pxzjIP`XWKR>3&042=1%h=-V#
zIT7f!s|BsRo#ntt6446VxRRg7ORR+v@F!0o@b`O%y#hzycNph@BuA=*v22-26U-3U
z6DSfqZr4r$ywjvPrRQ9$67h{eOxOhFL+9H&ubVWOO$ai1|LRV4D0PxAw9QRD$eO=Y
zPwt=gw|T4HXWB_LO^nj*G>!|%w^GMPci7wEm!gKR56f+*zKrK<YEfhg#MFZ$wDwm2
zDna{McLqW3cRtTy-W<r<@Wv1PtvYASUqB9jA*>=a4wJ>Q6fKO9OyWy<D>t%qpL3e8
zn9RgFi%oHnMuMZD))kg<2*k{{qDL&vHzDt${9;`o2hG|`-FlK8i=x`2sra~l-9n2F
z!ZW+?ASMdbr!9E@sw|l0zn$Z^<HI}ewa6jbOIn`~A==c}Ba$m<TxlmHkKt#sUU+nn
z^6ks5jb=uT987bS;i2_i2panxjm8IttVQ+jum(dX{gRRIuT9k1A1d9(zaw&-`5hk!
z6s~OW_qFQKoS=)W5n*-<{I^!|QBI(yoJl=8a=Sd}MLQ0u%sGwYt*j(wsE=H!ySCS6
zoY@-BCIcWX$^}}hg1<XvU?m1a18rEo9NO>lB6LO@be@NPJ#y3N6hlTj!S6I7`*3K>
z7ou>Ki6NlUiJXyC2qmFvtm*Nt?VE0BQNm<Uv-%koqsR}T7;B>Ij{cy$KMi_KMy9fF
zetOA#od#ONZ@i}^3uWCSC}a3?D}~)=2DaBmx~W5lyf)jOMzoMFIa6znr&iEE9>89&
zf57bu5WFPYPg$1DZ0oQ0$|t`{j9Ed*Ts*j}qdf$M=5mh`a|XwYWM<1}J+gXWPw9cx
zQbUx+lxC|8X*ye?Wha;}&5j693zE}Cuf)PNM_5TILfU9w8(-c`qFVpGgJmbUHHBJo
z*nw3o%+(0U6N@LQh?Ppt$v*~Xr0y7V-l`6e$r&0)*=_SR4+lQhX<~5khX_vOccDls
zv%{ZyP0hEABQad;$$2^x2!@PT_v8?G^gNSv&1R7{8R})nS~3oxL?1_zyv_$PR2IM&
zeBCbF++?7paP6vg?H6I+OEH%8y)S4skm|ak*F3J^Pz5Et(>6TQLL|?4>a}d2L>o9j
zs8#i{vPMh@9Onpe5*-+I*{v<4yXs3F%eZ=onJY(f1#cBp1XYT`3mn$|RdhN?_mM=o
zY~A^h&c@#By^MWC-#x<)zgtZ(s-&9gcdvf~{2kRw)5pQgn*3^Dt|9PR<&AV>JMmRC
z8g=d3x2KROMw&P&II>bKqEXSu*~N+_Fg6_eIXIeYxFHk;GOym+%uUfC<SHcIM|*W#
zT;O)X7U7l7QGETCW9!~9aMJFAV@M{Btb2Zd&WUG_t=UVw7e%60N$X;~iJ!$%gOz7`
z(Of@56p5?N?`+fPH{!$g2vxhXVOHKkwAw%*yBGzHC4t)Zq!We_zhtp#({<<+s{eQc
z>NP@rxM&~(t>EmVpC(=gIxQbv`O#ph2uC-j{K3ErETHM0!$1yw^3@)4UT+&K(lzmC
zD*=oH3EeX#SQeup{5(`4${B`RHqZdF{7@|a9FVWa0nBXxvJl;(m{3u%!bHZ-)$eUK
z`27fBtPB5p-99unn&0!<r70f30-jf52*if<KG=VcUc5h;l_ab|ip&PM+gO7>L{-V%
z>ru9jS5rQRj29}tydeGolno_{%J(y-b3S|hi4>G8UWba`ei(C6?s}y0I1hT5`$Ctu
zHPhxTYMDie+SKD+1^E>Qea*(AV!B^o-*c6OZK`@6IxPhxj*%^HPogbL^{|%15fSCt
z<d$$f%yg#q-)kL<Cl1SV1Fl^Px$suX4ztf4b|uCvbA6FC6H(EYM?t{Iy_GLykD6s_
zoA_m45e`tqE=(JY_z73+i+VjPL00YmoIoY(U+(zPkrmKni$!@Mm_<Ohc8ilyaL7Ge
zeutaoAX9lV;~ao4D)M)K31VnfRAkyeS}-!G;(i4NV(|oLLxsRy6Vo~iF_p3Ebyb{i
zX<>yGZ+pY{`SQE_ap<?dR39AM3eAV8M4_o(%-@M&Yo@aGfJmuEN|UGpexH(>yC>V*
zi<GCZLfD2_r?x93^&@FdxmbZQO%&%ZAgU2VK|~CD_pkr%cThClOegPCX5)xzfV)b1
z2*cOvo()SWz;8oZA=-GhNu!hl4>~Cdgl@b877^8-VWj_bDSJGrzfYcD?+^r^CV4T8
zny|a((d+6<rM_tSLE-v5N;k~Hbu&rzLj+#1Q>SZnTz_R}85R)@mO75r<0043fs>|o
zD1X)ve|34`cEvnh*)IygXLGv`mYcq7D8SzG`#Rtg6fxU$lkqziLvt^X$Gj@?*%DYW
zRTgO5b_~35*EJE!rMk3K6W`<R2={*vr5X8?UPe!+cRA7p4Dp3xm@jaws@}(a=i8*f
z8LK8IGf27f8-tY5Bi05+_-w4C7y>_D4EW{aH4-(DN^v?a1&)}p`~st<(y02i<ykYX
zeQ~%yqcME4iPwy4fBXad8D8|6C|~=kET}n>&>+*My)@Mymi?wK)7ZF&-l+1|s44sn
zWIJ8-WM%=SKf0#O^V7>;vGxHT)>jr{#f*B9)QNPK4Pev=YU5hYQ>2}DBfVURk+<L4
zST#U*rGnN0{4g<VIp3Spev*WYmo#kUyl`b2<2i<JIYl(DQ`)<mZ%~!9w(9XU&@fce
z4yY%;syNGDBt&2(khQ*J<kgSsr>rP4OuiYeET9`z)Xd!9X6hGawM0F3%nn0W;`YQO
zby}XU3T%X}Zfx}QNaX2d@ti)h+At`>qi@j@9(!X}n0xeaq$|(VjAT-gbrY93!R$=>
z5`z>PH+4yfj327EaiJ;%sw92jm$^=YIofgZjEN`MYNuX~Pvv|3Ns5|bnm2>-xqr)#
zo;@lO#OY5}6fKiLix~=<q}4sv?m=XLn;syPbN8g3u__{oX<YsMrm5`wL2*x$caCo|
zJAgD&6iIrJ)vA)G=-^TOL&mYWWH)R2tXsAfpmba}#CZ$efRY4XJh2_2j+w;oj+-or
zP9AjS1??@phZ4qlRD5KGo2k~_cjtrTif*O02z01tZ)gQNZVk2gx+_XGBTV}%QE`jU
zO=epzmo<W`jWGXxZ^e_=y5o*!{28WGHV+1$0eViK-fwSN$XgztlRAX}MGWv$ifgKC
zQkN?J$lJhpd)Jy%A&6yIrLbLmI)%uFvzF5Ld@vlNv$!`3A3nOq@Q);L#<oo4vFpPV
zLNK#roBcY7LcSj_kdjx-Dbx^t+WRqoR}g6cNw%7<hu)Pq19MqLk_ZFi#6I$;X6bZ3
zO-1KwIVVa%k7lmHO*wQC?KfTQQW)srJ}GO=KU`P~D91kgpmY1H%a?gEf%z}4d*Mq3
zMt^}w?>hrEq^`HjvvxumG-s$qRDy&8Ra?^<9-qcX^|Cs@rkZ>TMF6J6XA_EVz|6#_
zCc+&u-Mh4ez|jZKIwGz2+DIF`No8E8QUu=1;TM^A|LN!E)kXB5rsO7m{T33J;ai1b
z*L3M31EORPbc#A2Xl4f0k8nkcFL0ZUSb2*L20l3i<(=uk0qW9SNRsvTEJIXMt)rfX
zL|C&YKVez|f?%%2eI7wVxq=qKIeWR9Uvp5~JcnN;a5}9#$E_D><gJbA5B~H#VY-Ji
zGzs?RH@A9Mn|g_XFdJ|-WPbNuvxW)c%q8VGYF#)1crNJWzvV1fHF+e-rbA`QvTfG2
z9t$6c36B@n`oBT%)pU4W843Q7XmuUNX21CU$#AR$e^wV*yOT`rRs}VBfm=e#lvzvm
zXWM;_>Gz_KDD18M4E&+IE%9AI4P5s#fdhvAFp@M|Wdr5E3$je%z_VrrVQ$k1J_To=
zZlkeGTuahZ(q#d+^&hVDas$)aA~Qw+h`=UXh@YqzaT-&S#}Kv{=$Q(W9$T}3VRt#r
zs}N*)*(-j{ToIGAS}4hp?_-IE2`#P=@0v_H5W{Wk^^p`?fRjDQG!X)GqVCL38#8AS
zI=NGB`SwBG5SlWJMxg~mDtMN|t}FxOr#z)i#i!MNpA5yooh#6?K;xAve3<yULyqq(
zra4Qe)I4T~<O#w#z>}}=3|k2K{B4_lpZpV0$+QXWfywVl_p-UVajk!gAp)YV#y(v{
zR|6SJ%`sK-Rn$UHm&Vm`6Jw6pj}a!nG%ZCc&Bl0wjhVg3AWpb3Rv)KyKG~j$lwmG6
z)TEny^fe95<3YHtGmFU|SL*SgqL=JXFzd6bQ}Pgr-!+p1kz=gVwraI!b}K4M9Eoe(
z(tsiV*NQ0|`Qnev@M|neu36Nq&G_Jq&J4dw%iVf#fcT&?t#4_h$W?|w;MphR*$j)D
z1e@xgNj~T>DopC4tSwbW<&TBOV#nVW4Psg++4NyTR%$@6MqY|XXQ%J62*_naD<J`P
zJ4}n&AFmOW(yl?RZ*56PZkUTPf!*+`6<OoZexbjrR#)NqZ)-S;eChd9ZlA0jNY5u8
zeCiTA+@2z~eGKx&c5W>)hd3yLu7TDljGL+>s@`RDs_WE0xneq`wq=`kPra;(rec^#
zb)fxZlo`sGg|Mssgxsy18E>0+eL#Ql38PjxPA@pPeE1<bt1iA)f6wpg>f^t1YHg~D
zVRH$@H}%pre7A5#6y!U&2iGuObi!_Lb}Ok@p0NYRVIe_&;RhBq+)r~@xN2z7DWC{?
zNZ=tu{A1>dC-jiKJFQIS)n`M9K!HJu`Jt{@$7IcXmkDN!-IRL$Y&AuF6?$KlDlZv*
z6(YhZ6j31>(a|KT#S;;-)>qfiV!P#5hu4c#g&?`?cqx7eNg(ejai59|PgFQOz?z=|
zYCY^)w_Ubg6yp^~hsWFB1Sf)0#pEI2v^f@u{sn$ylo9gS{Vpyk#m7)$zoVOs>K}A+
zmQ=smDdG>)?>-o?35e2=tx(JsX36mUPWzNg%2Z2z6%)Lq3SRSM=#_BM_MKDA0AgV$
z4lKhX&7mWNLLes;aAjWurYnhEQE-6l)X^bklC;{i03g>m+3FGP#@?%E-;3REHUr89
z@1!wx*i#R>%`c!@jXbSf%8eexmF7}%f=~ILNl;rZC9&hA>P-C`SWbn#lXgIw{O#zc
zVWZ9;s4P`8)DSf1VFR{Y(%Qab<miPerRKnxR5NZ(X~)RVutm&PUD14F2{=N@*Og4&
zW<%?#JFRUP$jZ?KaQ1X_Rtii}L!=N-h2SCcBPM72p%bZ99iB|51pRpb-gk*=P<W-O
zjm1eg2NW`}VVD=}|NfY9tbOs>pZ|r^?g@s@hZSz^?+1FUCl;&kTA910o@b|KX2R7K
zpGkb359l~qk$gT<8d+HHlZM5tggZ{ZXykXlO!z)=({NNQRsV}PucT>Ak<HwiLhaF;
z`@Ol79@^SLXxvhq)fLomty@0~4+TkP;0|n?;k8;PC{5njI{Q0I)U=2cHK>)`T6?g|
zD91-*u%7+PrdLCE`m8g`J;*_rOoRbtC^6~||CaZ@O>D=meV)VMvJm|+SQpol$6Z?x
zs@@B~HJlHNqzwC3o0dy>4E&!o`FC&z_h09eSkqtpJ>;P0QkCdM94psXm%!Ier4tX{
zBNi`)!o}pa#Ww+%s-7s)!>upv7iz8Ndnc?l*N=X-5?6S9e$J+0>*}qNP6MY7sFl=j
z#BpQM*g}Tieqh2KC?CgpZT3+FJcSaXFAA8q!$`N9nOcqk$Z(Ih<@5$KcMb~s1uak^
zI!4F>^P&%NqeE~XiDtc1u;JC>9oASWTo6oOOz%_-3EMemPvdsRFfGu&p}W#h2EoS=
zjB8X_+M)g*hK#y})&HVnY1c3^PpY<MJ(4f@{7zIw8`M=KEF-C-h}2%c7IHip3J>6G
z+qXqE!pYicROyu(a|s&_x{>nfejy#Pq73AqmeqErJM2`E>2s_ArzC9a7U;IbDTCo`
zW<Lhq)x33<ayAqRq*(biZUi6?#a*F343ZvGwZ;L(`<VeOU>xwKLA0sdOXKDb?rps>
z-x6uD_KC3roZ4l#de;EOdHbT;V_J;4?Y&M#Ym5)iEx8x};uthPfBvkHX?KV_nPT|w
zP6$QgW8W*<T!RTh3dy>nFPbzgl)zv*&YA3EhrJW1*(X7K`&}@5#;((;JG#uoHk}B-
z@T!kO6tzbNQDNp1A@;ZVv$z~tSk=|r5D1!~b>XbE#8n8QaF4Lmq1hcMh&0|xI+RX}
zP5%{3lODswmy{i4`?mEm$0rVx()LhAqJJzEhe*7$?m_pIwr>~-)t}(e$ODC#$hktD
zAzn=%-S)y1t(Ej(l~ef1@{Zzc#^9==cKoB-t&hlN6`_gMq8iwr$s)3esZ>CJ?0Mm+
z{$$CP(gbIPe*<POpUDz?AWe)zZ<;7p5hjd~BE2CkQVgRtx7RpW2rgB?M|aC$rPZWD
zf$*qCzBc2q`>W$25S-(v6zQa*to%B@agtUvtHPwM!J=%)9JA(3B|&(&)uE_!C`UG2
zf6?-0Nu=d*C|j8!^vtCLDhkcxY@+mWVL;us!vNAhmu?q1yNx6>=n!~lR0|SHCUk0C
z;J;TsO=du~ai5`3YwARO*o>APn3JaOldgwz>~>dy$DinJsWB$}T;Dkvu$%{a@l*gh
z{$Nd^As{OF($b-0_{+zz_}M_TG*c7JLRT2M4WvyqECZQ;M9KqiN{iCg`V5MuH9+4#
z(0IWT>lY!gd{?L$cy-kFar_v~y})JdE>gs)!)HH=p7{*DSoR3-cvc+*tlmpAr3L~y
z0Fi#*bjYWG>e-4c)#Cv3`>CMvvVFPpvm?ZDdVfpTkCW-}E!=?>>mvBEqgu=$t)xX+
zUe0RAv+m$2B@Hey?}w}Nhi{XxH)VYD2K<RM-|e2p#pcXlwrg);z+xl$C=zmLC53#~
z^JrGTF@wE8S2&2nuum!JIGX;olz{KsC0HXP1e~KuD^7mP>?Jk)2U4BYRmK{Kpp$pz
z*6?PRYP?7MVsOx$MIUlWGCQO6`LHJEQMID+Qr0PC=4$tb0nA)!4v)LfwyEolPQUW%
zSXe?@tRygG^M0+*%!D<sD2K|WYU4d+C4dzNc@wYZu=^WCs)5V)Xe`Z-OzyeC9inea
zaPX=316wO;fySVE_5@m*FXcht->DN!_+p$QWh0-j;pmorUKGmid%)Vg>lcW(Z*%sr
z?&}h4Pv~8E+UNCa5*}u{j}l+ULn?fGe!J<v-0bYew3u#|Od*%sW5LpWI%!7e<*mdd
z>6Z)S@fDcC+RC>z=ChF;h}ubf6EZ0nVi	Y;^rfF1+i=Fn8qp_GS8MEOCWm-|7#%
z*Cmbx50lgLhNnA)^G(mD+uo+4f#L@qZnP4{d{$c(E|YYTzu1<uHf?K>=$qnPji>S!
zVi;sLmd4z~p?|Xbs|UB{q=umdGbqlrcqTUS<DqBc5;0OAI?GfBFK(PHH?3XHw8-x&
zxxky5krmyB-o;D(#y!Da=$x}wGqKEp38<8ZeYnm^!{;ekz#t_R9`iE%b695l3Asv-
zoT&nrakcbNXM8B#Sp!rjOHG*{%*Zg^4;wn=6QiZm%Z~c28F_!x<4Y!XsyPv9O$Anv
z?5uVmlGCdvLL$D#1C-^xXQu<a7WOoiyUQhg>aby_|5OZeYJY06F``&H5n*!5Oanz=
zRi5)`$)95?+A>Ig6;~v4S+hJTmHYVRV+G@4Ln78nab@Z9o@w;_o0{Yz?Hs+mL@nF}
zBE;qztR-|wWgeymC$~&~ebqCFQidJ*46c>WR#rDIiv2{^jn9*wDid{Z`N_NAYTq4q
zQb!V>NJx4%)Fgp@EGSBC87jSES;IqJ93TBck|j$il1+|T=_##cgbgeAR>_NlZkU57
zvgh~Ds*N;wt*~Cai36Ql#2-X82|`YO_Aocl3hDZ2L0AL)YR_Cggicv*Fy?*hmEfL_
zO?tudQ>5<T?uLF0o)s^DKOu1f9WQNM{<C*uP$XQitQ`1+k27sHXW=n>%B%>1fh2>O
z@9vn=Ig!SL%uH3OtiQyhr%N3`4jz^$m0Q-9e?L6HNSSW&ig;k7$PpTbr_+N|9zCmy
zBI<P4Cw??V<0{K3K^WCS503SG#CAK20aHtYl=wn(m9G~4RG=onK74b*Q8j&&zw=d&
zwjWCDrl+x_eYDxdTe2gkcN=sF73+V(Os`hNwIPqy@Sr%lRF^O%y<bA$tE)|sUJ5fN
z8TxMr*w9%zkMINX$V_8&@N(5=!8RqKx9o`sWzNrdekZd&<Sa+`^K5SxC$P+Aob}HL
z|3pICPf9g=xUI3OGT(bm@0h6Q3a*LQ(q%cNj7Iy8E|t5erG5vqjV?epg%L3v!i;iL
zr&6g925a{3zi_^x-}^=B+%9O@bzP<bd7ef?;jD_@#{K?07EP@t2fq$f6E48>RV)N0
zCPoZju(WWsqV@5356#}#vG@#%gmUOB=4er>^+w>z-(hF?<IF#+c8I(EMZ;<jZ{4@(
z&EU8W|3;Fj0pF^k>Th8<yX11a>bTHW^Jt<78v*O0X-Z`Zz7;%iO{SrUZ=jWH&D{tT
zlKXiP#;Ty>Qv*XECjg;8C32sGnqD>#C45DuBP;G4J&(@j%32T97C=$!CDVKE6ZR`l
z=6%l^oU2SU<>ad=da?=Y@_w8Rbp?OS(?D}@k=b;!EGL(fBp1)FqLY1T3oT{4@LI9C
zN*w2@s$$+yGQ+pgHTD+usIu>ryMq&%(FLl2Y}c*ZIDAQ8RX~BiPG}@d7(4kD){^7s
zh-r7d!ORyG*BUcFQ;!di(-da7>&@w<c~vAj)4#h7*nL^iZa=a(F-B*NYOljv3{}6@
zn1oba@b!>Mw>OOI6S%kI1(2I)!t=#Wsu;P>&daiXJZ4_3++1D|_3P%%Wbe2l$3KLO
z#8oa0{c_|r4kRhZ)wM1{STJsBF@SY5n}XWj8W@IJWZa9iw<6+5x?#56AL2%_a_l(b
zEQd&m+MO$>hY{XAO$}sz6@X=JNGRML`%L<qVH$IlnnSW+ofNzMg@~lYY@%-sx<a;N
zy^2N5;+-!h%#?720*gw_`-sz5w(98XqqoN9NElD=;~L#d*o*q4cjFnpk#}>P);$qc
z)fuO79oEYXkyF++kv_e#Cy8RPzw71IW~V_xm%iyWSeF4ob)yBhg?oN6&Q6op_WZ;_
z+jhsNj2dIiHt@i+6zie==00!&_jUmJ!GEg3+r1lW)wCVj*4^4L!&`iQ-;;qyGLNMq
zX-0jcHIs;nY*F*lV<3zpM!X0K$EuI4oO1a(Ub%@APP8X1d@I%q&2fD=tx{=Z^f%hR
zu<&g#St#Ew2<J#u^4)-eeFk`^lQKIztBf^fID2<HDB1fVws*BwyF-th+7Zu%g)75@
znG4hX^ypPv7eM95HgY%HShV>@MP@Q)*sc{>3t%HYvrXhR{IphnLf~HJ&w4UtGYk0Z
zoTBSxxl&Y9bW561-PmP}XnsJ%x4tyqEB(TmR+WSNuY1O>`qVL`KyP!7l^nA1CS!%;
zeC1XF*L7`sf|Zn-{Ub=1jElPX1-t~tDFYln^7yGfSA<n<?6resI30RSgL`n9Coy*{
zU!XR9bQ`q_$6vWMro!kuaqf5m8)l^e?(#j^9N<<S)dBCznxX!9M|Q>X{aJDE(8*zr
zzDD~-Lh-#~L4e}_deuUhLySY)Q?6%`%3F2)C$|yWC0Uu~`H#4spJDYMP}gz02P7Fu
zMNTAspP<;{IUE-ne<iAh;LsOY3`k1ZVXvykHjRzhot=0=x|@o9atpW^6Gh-(8?7yv
z`sqp&`5y1cF}XzgS&#jp9r-KA-4+G^J|$p+IHS|@%Myn!kw#W~%$sq4N9zPfcjudH
z-2Yv29rRhPkn%!wyQkV$Ycj;BE%48FTMDR2`t+c0()(Wf)sybZfvcGKI30&#T<SD&
zbd2h*Ghw1HNkfQhPm*Z(XHttCc}6<h$#3%<D_3|K=wAs)YxC)dh=)F{dXnzrbi9m2
za_*kcU6o#P6T+a&(3|M<JCr|2x5z@9W_73v?v>X_Q9Fn4rOUpL8>sQNI7zr9(FtfP
zg*{{TRn9Bp9H|L7G9Ix#C3ORx%z4nfjHAp+5xrEar}|Acc$lVbKL~iIFO7xvRt?&8
z*^QWm!53Welm@Qz$JW8ww~YpmX=N~|V9~ySe>mnzx!o*SEEvsUV3oijd9MeGYI6rd
zu2!fMTYWL#u!@<mnMP9$t<7e%Loyk)pi=l$@Vt|p8|h_#`x^^eO6V8Nm_Z0pzw30Q
ze<5fSvEASMkp3e7a1<DGE31{H^kX8PG}>sie!ZKK;eHyHUoS$*a~6@4#{%#g>eYBM
z72}Bp<t;$Krn0XnUVO{XUzfbHf26nYf>vA%>Pg0w!$l#kIcRurP-YK9&-w?Uw-C?h
z!6EDwChC!#1_Pm7CcN9A)&7M?fN)Srt{U?(`JFL2?HR|CM-td_h)7efHD=NlfJB}S
z*+98=bG_TajzcLuM4={1fO(9y(Ph%VaQb#x&n6Lol-K%LX{hrk8e2_c$(`@HNNarF
z%qAc6`}JOv@MEY_`YO8tLBJ+Z>^3YptQy|a76sbUsHbdIR2F^jQEIk`q?^i_EW37p
zD$^I6$jUKH$qAFNuJD4_13iTyzvo0;fe?JWMQ4`!s2QTR_6iaSd;+VdM%eFa`O=&}
z1#+vfK8eHH66Is79?FxD?0v0kCL*)9@rDFCIM_)bj9?`Y1Q?dm9$8(WpC->47`bc?
z?9c62CzpZgA&d-#4mUXE>*YFn09)E1P@>+q(lUcx+nFlrfM9Z*EokTDl6Z8fs9`s}
zcNT!1<=aeIMm#z$>8;6yqXZg9aw~vtCh0wr4~hPeFWUw<hzcwj#ZII+3sUjgvU6-R
zk%J2rzLtgc;yE$WJ3<K2y!KUs?ouDbmTsd$4ZBkcN$(RUjZbo6!1~mD!ktq)`#h<;
z!GPYOkL`UOWs(}#w%K#jyKe6iJi?ix**!qN58J|*x<$;VzURtQ?!2TAySXA5OtHg*
zsXpkxcwCg-pxfhDRVG?|qFa<MboUabc0J-2)AzfiC=7#pU)hfVhJ*tD=;NOI?tNez
z#dO>clZ<Lf@3ue@``d{2d{Zyt-Nt$(|K4+oIft3q3fwt^e6p3odo2*oxmhhQwHTwf
zm*~o53eu^IN3OFxnr&X9)#>~Vc`N;3$l>a~-J*%^Df1z6AkIJXL9Kvpf8<kj+B<-}
zL%mi0ZHVD7?-87_AB;07oQ#c!#sdG4noBOnfZ2HRh0YgtyAAsXc0N_f5F_9{8V^*m
zHpi8ue?6iF=C}h0c>SvHS%$LZK3!inY{xEqDIVMU)T*d!VTF`!t`3_mV8U=3Ipe5c
zFmF_uChD+lOO0h~>xmRa(7(*ODcLz?@_Y4X(!SjRCkieApFhkN0xk>@2DW^iY#S|^
z0SlB93XnFjZ;}~~B$w!QovbA(j`xl>np|i<htQQ<Y-FU}#)auWUlcH!Qw~Qhns^bL
z<Qf+1%k<Q=GR`C`b$euc-55;jkKQX>Y@YsRHmfMg{BpZ<xuM)K6=2e0a<jkPK}$M8
zpwT%A7%?*DR!w5S+%=$&x}Q67MbGn4p-aae9rY<KtFcv9H$rhzua{Q8Xl3D84z#}(
z=yfo)Qa^3Q$_8fbo44@Bv3=yv*P{Fl{B0OutRpubp(Kk?qx$(Paw|2ty8wE!*dX>$
zp#dop(kGNi(~`vPU+^&lQP>n!FQ-m8IiMxe3&8_B;w`CwrMYS;A`H1c`R?|dDU%}A
zgsy?C!cL{Gjyx%f-ff2Ok9usY&@X9Si6X62ALTD6;F)DVvw<&XgytoOQj0%@VlQhX
zhM4?Dqx048%YOrAMy&+aVzjHoZ48UzD3bd#2d%F!<lO9*!;McvJ3=P`pYYc5U2ek+
zqrGiC?~x3WCSS<}H0h=1;)Njgp^kkGbswa(B!3Pub3_jfn78-(zpH}mRrqHLxz*aH
zM8WOt3Pl8|xePrwb8fyVF_j0|m`7lodTlc+j{Fc3wa8VN+#glFJ7D1%#85nfmu@ko
zOC=i<c+FX-A<|EWlFo1>vnr=;n&BMyD_w(jq_SEO@R{P9h_49DjJ)3qgWXt+1y(E7
zXekRHJ;+6Fp5vvalo{!k-DHxdvT=A6LG2WEn*7bu6-1UQxcg9)E5B0UmKR04EV`r&
zLdSmSVGrA)m`Hhm<|7gDEs1&?jE+_XZtRr;r7;&vUBqWI)jaUyW0s5-9w2@LyX$DM
z#P}VJPnzRjb3>jB?$h79-6lWK;^3~3vU}703Z>z>KD^kB>sP89I-#dq4pLyK?a`qf
z6?Yp^7>Icl_uLD(fbX9o5vhYws#Z!;=^rYb#2Mk3j7E1U7w&Oh8oq@bq_2P#@YxYj
zN`750#_}>NIc6}8U}QQ+#OSWHbG|jUxk3QxUFQqGPZP%D<tnBK;yz!UajQiMwLQ1@
z&$^enD1iX+3#D~Dn@xWbFc>#4SF1_RO;`%w2r82@zZb+jQ8yxFC}29v^u7xmV4<-K
zDuJU>)8du4rieNmS2`5TLgaHzeF{xiopEY=3BTm(ZKn{a8V-kJwCk(%lc#Y{ubEJI
zxaH=bskNQz^)Rtrk|ozZ!i%Vq#Ln8!-kQLjr{qf@W!Eprx~+(tJAcE6H+LE;WKDC%
z{fig&4pA=bH6L5YD{MH-A~L^2CKJ;$H<b6VjcwI-mELD)7xV_Nu7|h_P^oa6SF7iB
zDX+-xevm{pjiiYY{@Zk05z1SU?uG8ZX%aB!&DGvCv=Bc!6W_cjBI-3bEyCgTbnQZV
zNF|ljcgw<YdvETDFLY}d&%kt$WF1i!<TiYT<w;zRh+Dm85qy1XboE3m$Dt2UE{)#1
z)-hGvIoX+V2Ae!e7vc%~Xv5-r`!vNvVn7r2p-7_Iv=_Jd9vji*5uYqxow6u5D)HOZ
zYOQwZNobF>eO9PdW#H2<frz15AeFxrb$pK;ty=b(?osu^SA(aAn04(a#oHKk(1Dhv
z%ZUQP(vklC@|NsDA8S5Cyq}U8|4yhHq)%0rW#rPZxYZHg^fcCtTireWrx<kj!m?x@
zUoo$8LTnUbG+wW5dPAt|)LMfw_Uuw5)(-e^F3>>SVh!qdM^E_}7;HG&m>sf*_6H?@
zoa-uMd?Fy9#mymS+*rX7LxK`a|C7&0v4NPeP0ri&^4a@099(1lXeYbvNV_9WeLls-
z*QG;(iiZSJjagx$8k8#qHloA#=A9u@chN}WezUxFfvYxJEwxQaifSXhb`HH}h>9V-
znq1Bpgg^Op;r{#N$&RAmQr9Z7Z9}A!pJgmVlo-_Yty5<;I(5RN&381DofSH8+BhXC
z@sEE3Sk7|2Z5E<23k)AvrI*R0F*f~K^3R`1oQg!{uj0rYsx^6%<gQvGe-8~nNRcp*
zOyhaWRR^1WB=j_hNazY4i&8At>2}ovHTH9a9JA&pV6ome6Yl|zXpU-CL=8_8l8Uob
zu&z1@U!4nwTyQbE%kJ6!hEx(-wF{ReZYPQv0GMWf6B;3(l6l~nOc%j1#X0>1fTPkK
zEQRROw&n$R3t9gnRJbip_@u0yu%`^bB0A|iR;1W_MIVAG4=ApU;qju!Nxr?&BKy8|
z$-!I$KD57~2MdIFUehhi-Dc_1UH$O?YJm{9Q<>uhMr)MSNngEAlh#+Iph*OXBX(zG
zG>0s<zjCEC%^a1@=}tt|cjVkE>}sh6!vjnx%Vtb@y84>#AM!~K+6@VbpGEvP^1y9F
zm41)DvkhAmFblV$2&?0c#W#T1za)fA)9xiKG$X`-UhD<Q^1Watn`Z6LN_&^NJmYY8
zmdf(>uU-BSOlIo-`l~(x6R_M$ZG9!kV?p|BNd^K*)Ut`ohQ)>c7e;$AP(qTSPlS6C
z0s+uD{y}c>K`l?}diPVjpQcRSFmY{`YxZ6QdOEAnz|iW*xo@@!oY=J0C5P)oM!}m;
z)A4pRL0!GuLT~l-D|?{eWgP6}{1%-<BM7Tqkm77Ht?qkWxMS1?d|8nPA{OEZ=g)Pc
zuNX%fLuYxzR^6t#RBQ<3EeAIyuKe>F2>uXQq{|}MWAxL<Ph))dezZPz_N{PN%PS$u
z7|n~h>|P;cB2g>;OBUDiw((r8m(!IA=6JkWqh9~5Rt5EG%h&bb1F)tq6Bv7Yp5cKT
zz7ne;UB@RkCI|-1Z7F|SF&-oWCRBgsPK}Dy0PxbvX#x9HW_)gvseg@X&tw|<`_dC<
zalr|Ua&x@9v;dl=rnLZ}wEf1b;Yh3p0kuD;s2fE={R8TQikkw*M|cNVY*pBY$QXuj
z|2B49UZr9l@cIP0!Yy=*-x#85Y_{JS{p|;&66?PUnRct6aNf0rf)hMxP-j0;V`Mq;
zobYGo{eEi<9pY=IeoA9J|38e~L$F{`lqJw_+qP}nwr%9MZQHhO+qP}yw~fk*j;`pA
zszFU}ytu<RIQOi*<G|%xjG}+Rv%V&O{zm}*-y;eB6M!@SSDx!X0M5k5^k3@x{{!I6
z9E?o=TL9hys*t^fL>t`&>IUZK27hyt3kZg>y~D}@(nb)le}lx*-W9wr7rzhUh0{TP
zw)<P>Sy%e!RC}kYOZ~Ra3!b&3609k`BZyLBb6__mBPT=_fS`b+c4`*T!1&0-(D+E8
zuyhrqYcuf2SiEo*jI+xh_X_l9B;FnjP*>k3QD9BIFfoW%V0Q+se-_f<4AI~W)xa3o
zzP{o9H|%_$1|S}!GiU}-iUz;~+$$a$sU`TI|7KoaoP2JX^}_>nHhTha_4U;&<sSkx
zawRaY$DGH@2XSrz+UQYZ0p0{+!I|zSP_O%y5+pY{xwxR{pS(CY7yxQ^GIX$SMJX@`
za`)G*0k|MQk8k20$GH=q0x-?TJ-=Pmh%X1sR5M8H!@+_>tHl#AN7!F6fMx^U=;{vr
zhrffe0qa%(u^b}-P{rfF^-V_lAY}ae;KBQ62Y=){`-*-gKw5v9F)YkZ4bC8%UxBu?
zfoS?$3H&3QiK42?sF49I?0&!z|C4@W{iEN3HUXt|!Tcq_fQv?d0QRlI{9ezDPGMY~
zT?`!nw|*9gFYzt);xs3Bbp{7!;Y@BX0-wV8B<q>Sub#JiG=6<M*k0i9Uif|m(G0wt
zqWCu%+?-5S8o{|c0**<3PrEbYeYa=?YXNN8*x2;&d;!KG0UlVIjJ}KfOVfzY<;g$s
zPuK9iym4@G0MY7f{J;9q^4IW5@X_<RA@(n>z#bmo+m8AWk+`}0ajZ|F7(g`xuM>RD
z{aAx&eg^Aq_b{&@84SE|`CS3F@bmm~qxHzAw+D7tFWJB6)Tb*6OH1i0M&I0~emO=)
zaCrdvrnj>J%;0QY0l2xz`Tf(fVE145JX8Yq`&{b3V^f;i>;dk6Nnf9{e~34}Z!z;f
zy#&tze{-Za4qO}s0Xp}BY{y4u%w9f5etvmw{6fEeW#92Nf9isM`XY;WtZjaumcB*b
ze%}II4Ycd}Fzb>oPd_?ArQqti41W7maOd@_sBa9ce){-0)%P#y!Z)-xf1IKX&@Jo9
z$8}Jz{+K<lwSSqeeHbrT54;elf}`Kzt3&%|<iuS2dDm^3nmu~{+o+#C&ZC>ZeE4#c
zr1WA2f8=kC4$1-taCQarBy8x3MFMAM?+^QS!JQGz^^;@tPZ`-AcxDB;+swxA9~{8^
z8^=C51Z|M=HuQvk2wX4q6Xd=DP`%iP$nCFs%6<q^Klv?Ir<wdC=w0Vf*|$Kge8heT
zRR8BkY#TtWW-lDPzw#UY&~K*j7rRFd;76>EOV*Fr7oci`|2$6Fg!LEQdj<9b{TQHL
z>kGK!R{+j-_V=N0vgPaFxz#iLvFD1_$%)0YC-sk6_h$cZV4aZ752$|1<_~nQRLdvq
zhJMKp^~&W;|HWO``lSO$uWk5HU#6j7$|HTlRb7kjzi)|k{9a!&w^xP^^l#KHZU0@N
z#p5d+tKNCmw_k-;=Qpqx^zcJ_-9l{_|ES;bYlSznot>j^cfxNMy=M3g|MN%>0P+Bm
zK}bu_kq#NEwHD&Ky%LV-!Eh@FF{gBUQM|<bNyF{u@EHP@C#0W)+kN9roXWHv)zC>R
z>h|p#ay4<*-U7&1NGn<MJ@C3fqUht<hHGgF<z~=$r%~OT2a=Gk`FNdso0L@N8V~DC
zZIZ_0lADB$pZN!HHD^p6bME7((a!h)y6cbE3J=tHoGJ5kgBD|`;E2=mdnxDR8;X7H
zGzkPu`dRL|(;EA~|5_5g$wNf6gfG7lXO#C7JICS8Sx=w3g=4!jvI64yQIdeZajfjp
zTR494<Pq&hvUhA6eB6(<pi%cc%>yXz`LL?=ZVQbH8&?Nsq@M*6iDGCkFD{;4X{#tL
zpSML-!d66FhWeZ~&*SjFalwRWjngmW8h587-4>^abN}eGND47g(QOc|<vD8(h0dAa
zu;2yJ9FpLG0Ds>vjLlG3ntxk_G*0PzEf_DKfc$cj9K~)|o^MhT(+dPXY%R;PoCr%9
zL3kKt0P&UDaYvy2tsLJ446KS_?|QfZQp%{DFr`M^O6`=JM^Vocr5_I)G@>pe+Gdwu
z6i`dUd2z=jTBnJg89-+2R5M!qZ9^EQs(X0h@jOL2qXgg093uM&3T~A`AdD+S%~1^<
zAP}@NF|-AwHW5u-q@AiH2pLwXwD~SEex`a<mfu}YDs>hYY!d5>dtI=eDj#HFax#zc
z9Oc=v<i|4Z1QVOf2I*YjRFej)I8kz~WIoGRP@y8pGG<<Ez7VH7!kIDEq#A^2szg(-
z%Uq1=fIYEs=W3Jq^VFP8@fcWTa87Rp?T{?4DOv;(*EQx4^GOfyVK;pbZMNOK!P&3~
zy|pZZj;B=0plX)gR6O@lHw{a-6dQV{4Et{MYtNAzu|qU=yW$R(RJo$7lU}|$ifa>9
zOcs1DW@5I+tlgzzP81v6%aENdVbJwWuJEQIUB=z25yr3Bq-MjdUlXnNaRB;ZPZb#e
zD?iMhTxe@O=WHTRjPdD)TIlBlE`LpQJRLKJvV=ZGq&a1h_QBRac6Llt^m>GyLH}+Y
z|Fi=*>xn9<2o$xlK4b<O-+owL^4{&Z`6wt~58dU#MPH+NAyyu<@uhG0{M;mQ<vnwU
zBSicMIWRQn1m=1$g>dlunmIAfRbIjN0b(5nGM5HLu`$~)70p12D^R7k_l>yP8=pU7
zs`5%KEEp{qrUbh{cY_#O>aw96R?x?UmT5^6Iza~Cn~35d2nO@LgipXcTn}lJEkG6E
z(Z!>b`Y~bh9)~)@J2KGZIkAsV43}WK%I`ouvnSJF*!>C?YG^H#eH=rOB)G}S<i<o}
z?`C)ZBU-j4yPCFQPA6wmIfb#TsWARxT_eU(Yko2Lw(hU1wsUX3qt0Axl7^r!zQ`5)
zbm74X70gCh45v=c--|GFBwJ$~+NIP{=B=ZvvuaFIjN_)i;;kQsKwd!RTd_^_W^wWL
zaMRm1Ft)vlH+UjBmq;9Q^lan#SaYoC=|EWrG$tDSk~|a+SKZi0uC+?heJF3ieaiYA
zPgX^ZPTPJ*8#M4vihps9Cd5e4Izam(!Y>qC@B^I<|H_s?TrKKxsYxkwebE7_D}h7i
zu|r5f2PoqGg1qGRpTYu0#zQ1k`=vO%BNV4fwESXEv-){r_;#yg=$Kh2DU42ZK(w>O
zcEy5p$=vOJi@<RQJK0G6jjQrS{C-$!U|pDKcj%>6^^xcb0^yM2jxWAgaW<Rq%4I7Y
zKKA;VyBSnd+9B(72G)Z-m~{Jl=lm5s^67rM4J`y})v04zf4!}7e1AsKiKJ=Is#N^I
z?r@SbgApq2B-Z)9{$^8A46CXcH`NM5>trkf<T)HOO*9-k)Xh#w8)*X%8zlXK4^H}Z
z32sw&TSr~Uur<TH4m}2{5#$R<Gm%jbp3qzUF>+c|A<K|E^yu{G6M##3*~kVx*0d5U
zt5v~+a2#|ZpP(ljgZ*{VuW)vpy%;1McW99Creja5iA#Q_&Lr$SsoZGZX+?vEp_1bw
zv)k<%+`bHJxav|FQu9Qz+N0Qy@bkUDgeo-U%FuKZmB4EbGW7u()|N$pzVY+GC#x{l
zNnDia6T*fdW$Yvf^<`y2J4f~G2O$QtfwvsQf(X28E#1UCMFp&}J^$JQa+}?L@(-Pu
z!GvbK!N1WSRXgeXeMqVGD|XU4OCdNjD6u;4idMq7%)fec22<4Y8lWIJl`s{P7V78;
zhNiEyV?h(;#0YuBJi6zZqdDmsA|>RD!lS-OcdEQ(v}#V<u`U6>S<4hf7#%grMx>7E
z9GCE(Ox{`Q3Bs#TjRbU_G;@|_;Y<SJRC4$I0sOx$g#D4)_0Wf9{>oy2-AUPh8Q&b?
zIO-4Y?+}IAk&*PO9ABrfgw;dhDYV4X4Z|N?5Vd7K4GS3h-Bl;#@Ki9hvx^P=^w;~Y
z<uS1h9zqGX!;g)N2;Z`C&h&h7vUv|#GHuD>70SUiyeGVFNAexuBTn6rAyXGl?*Z6^
z4{ek-RzkX<4c#xR5HYD|Z<{FbE4WQ}<Nb{Hab1;F{-z_a!D77f`>?#z#l4Xr(vVXP
ze>Xv(X(Eqom9!rW&&l5FRxT<TXp)28iigZ<nw&3feZNHI+}(QXQTbcsMMVV*?eV<2
zJr(!RBpwV8XTMK*Q9`Luf~@DkAuw|R$YcY$WK=Nk>3%qp+;6g*t>_aaMS8L-W&w>&
z|2dfA^d$*Z0O$3T#G+#DUf565<x-EjPM>pVZBL|R^JO_cjg=_a)^i<WgjmY5&L7(t
zQ(a%6U?Q`<YqOgvS0P&VF*q!GABGmeWhnEM`^*irzM8BI!fZZf-9VjxM(x8mXbh|p
zl^qE4)pW-pk`Zql(kb2vKyYp@%sXk%7J`5?1uN)N{my?g`nRa(Ap93XdSIypA*xiO
zw355?#wPNGQ=Na?`gHY{^gK8hOWr|pKqv(G+e>wR70h4GqgIf*AhQGT>0yMEfc<n3
zR<x&kg<5QB6ivN2#<fW9#RSbX#*ZtVGvlZCa-asSVk-u5t99VZGpy>qexz$zW`UFl
z@>Nb5Z&m=Hb<ij9j?tQ4Ood$OolXlftN^w}3=_@UwbH`Dl8|>yizf05(uigQ(Aa1i
zghMX3EwYo;_xO+VHLmp=C_Qwm5v^tp>rh73-P=Bf`d@WPsv91W)xu`+{&~#sEVkKm
zqI|(VZI|q22M8uxhlamRPA%v0e}EXAF?@s=BT_Ll%keE2Va{YVpDt+2qV*HVNCx<9
zPNjUieb`Up8z5A^WOjjU@SN13W%jl9E1z`B!V)9Rgj$NDyg$mZ6t#!yauM*|hr{ye
zGp%xF)NxcdK_XNq=`NWa;L*<kbCwSYsnr<K_sYZ3GuY@w9bbtc=yBmt7u6_CoXDyc
zPUjy1XispE4>3r!j=Gy4TAXFguStS5m(Wwpt|}e(klE}stsj?932MShDr%ghRj}jN
z<+pldIYX=dxB#ssV_c(T3TuOd(WX<VX>xw^`_!O$w@aST8k}5Lpy0U}?5dZ+MQ?7^
z%af*}+Y$L%^?|<+5|6sBTdl;@(9P&4Rdx6uCJCquB>Bp<;H4rEFnF4-h`N6|;?_MG
z?exIwCq^}jJOyzHVnNAsKbfBNOs~d!IWc6PbHfJ27z2957k%_=EHQlO_M`c!af-<7
zp1TqDXaj#1G?z|R4X~EC8-rYJ#LUiwAoLPf>gy(>5Cl^iPJ3V@nIz_+S)moYSKKpp
z6pgE<mkhvCRN{#!#e9vdC8<na7f=g<%9GOHQdYYdZn@~@=Ot%Dro|RlV*4IXQ}Zd|
z#Qz%9_nS`>g)JjR$z<aM2pJ-s3}5ZO9Ls)B2um(M1CjJaBl-5pat1%&1@mMxU8x15
z+i1-XW;W9;srE@h#;f+Q(y)4)cXsf~yByJMOY+lY_J3sDrSi*BOaV&kKp&mEXS79<
z#&tPk>vvmf>%zq=>JP&g_pgzSZI%+=dk@)msC(-iB-<ttWn=vihhpZ>?IPl7@7(LI
z?pISeiDN<Rlpg%Jo+7{1PZ;}+Mm<dMJc3rbJ<;F<ZJL_w@J}INIpce<TZy2%wFZ*Z
zdjTF>P^09GYUw^hPHpX^PUyac-?hpa5bU)cs`o+L$K4uqD3{uZaZeV0Oa1(d!2EOO
zu#k>ZJm0mt#9_9uWJN4^I%TZGfyoa`rIb%Ud0h%TX_OR$eVrkWHmdBBsg4l*r098`
zX{-+nPU&j3sLszB+5*Po5Fv?3zaWE}WGJx?SIaUj9#E64rCjmNV^gH?Qi^%~=%rkW
z5D5VaZpr4f1VUiA1s|B!u+0ihhk4Whl?Ct2_vv#4R3!m{88c@kHcjw;N~%1Vtk{(A
zp_sk7J;qpdpp7mz9TDhXt`AHWL#K%k&T?_*2q%&5UrVZIFus|$WIQ`pvkZ&Am<<w_
ziXqw|YPG-uD&;G^Cl$)!L~0XSy*q++%GH$-RsD<74cZoonBkl&c1XY}ktJiEzM(^H
zJ|nu9u+c~TcG4TpEI*f!@j!bt1c!P8Nj3M~Jokt>X#D=8rkYgH{MoV!kBf9%E3l<Z
z@<(0+cq)`LI*Gvw@0Umh@|ZJQH4+{_+QypnVzzsJORXXzZ{obH{5s3|w4_N@gRnk@
zfvKAcIJDvH<(vLFr#CyfHa_44YA~>z?@TKCj~SzTX!0{QZ}N57qJBbv6Ct5)$5WG1
z3*l+>l`C;jvpFG>x(Z%mAW&5;_c<+L|6Gj(`tr2GgBGv{7#eG4XSY)|O|YREV*7$1
zgcieXhHZ`e+*>kKJ6T*fVh{WqXzSPodrjVT_D)@sO5GuaqA1@nVLF(nUb9`+cB>zr
z>Xp@dX4I7`o?a@7k`wDh3}4Mp>dM%mhU{UPe#g56`{4Xx%<p2W(>I|9D~tN4@{RML
zi&u2W1$o$MQa@dZrkJr-sdKY39`dRk7oVE+(UAF2b;44Hxbf=eGnOy&9Qgy{?)Vbj
zf#Rbqw_+Cbs(U!8)$`A;W+b1SQ7FO%vzp4&0?_Ux)<fi8Pk2oXzppIbm%t)K27`c%
z6n_!t34cjGJZ<QsbP6mRABLPB>RO)MaGqaOX`RJPkNMPF2oNDiYtoN&Fx@L(LOp8p
zgA9WLrg24WGFK|DtJMH*tk24#t}}mpR9P;�weXYx>uFqvHET#aO3-bVyY3G4zXL
z+27Z+oxxQNi8b%P&~;HgA3K+MEarS^cz?j6KNKJEp|Z8&F|^tDi1KW<HkfO)sW+rG
z#|zd8)5@pfRjdY7*v<=7AD_*3DZ>s@ygerr`@@k4m_D>9<n&hK%4o1C;*ech<+~_G
z9gUZ+iHo_Gv&cH7NB(Hl%i5IgBB1nI?g_#TAvF3VWX#3I%%F?5Rz}~L6=pakPwWN@
zi8)OIKvSu(l~TGUJ@)j%n|f;+P}>v>pb3P^FpMqv^ViYbo>VM8w5t`wYk5NuWN`Iy
zpryv%B4ZK!i!xx#hj=s@3UzP#4$gL{xjjP0*>Y<U8%2tYa~x#nlGrMaTc2mP1uAZ3
z5r4LWmtff8Q<%@7=3kwBgzNL~rVPhZoQ0%sH%tVU36L8I|5Rutl8yUJ$uir@8|*T~
z)U+9SEd6dM=ozxjczuZHPBCn9v9EWY-pn~FtA`sRx;GL5_H4<R1}2290O40}N3yDP
zQ#Pi)f0p=xu*guFc3F6gNVd*D7V3pgcmhnt(t>7F-at1@k2_wBjiZ(*C|=|uyDkJU
zm$XxpCE48<Y@|;wD&URf0V*k;SL>kY<b%e<fmMGScmR7)qHi(10^h869B17SSyV&w
z63Bvzi6}GJeS?F#upuQ<ciC{2{-jA^JlHn5MZG6BTwsa_UdKcBTXb{u)P96xN5a=8
z>O4(`j0rOsc@>J<&!6=-u3tW@HMMq|JDV)d<+yNZw{hZv>HJ%}q+UYRI)v0{iG?z*
zxvm5MmpT%Ofo8Vu?2OJsdH>M5?3y`+$JHgIF~KKHvFqkRdv=ZIj+5eFsFAmL8JGL&
z1A2$atyScyb++HfREUto2<nFJ%=ff&U34{@=>_Zf6Ad)nCeGkIwAWU4?}1Ep_}aGY
zXH>M4%D!#_Mx97^A6?Oeo@W_X$#iV`i@JId#RRL<@+_F+FlcK(Z74yT%evjJdMUR%
z>%d=Dk+G9m&n5D_%jBXzj#=gOWso$81azSgEzXwJqkE4eG!@P_`ahfLOBwtBWbZ(q
zw7<w>Y6YJMh=0nX8QElBZZ}PDx<$7FO%zYPMsF7(%2~pOxF;4DnmnNo4$~U1ti^C|
ztkp`&Ls0n)A0+e^@Lz-0ES%%b&B_#`d!B&+Tq&U-J_+a*as<bJuQC_H{C;~%rK7sa
zLCi1d{l9ofJ7-Cv#HyIY3I@b50&zSf9~qJ~dP-X~XWGeu$(Q_niK;dQ3Q(>0G(f|7
zp0DeytpM@noPM-xpIbTW1QmWpbWj$%uC{44ysnbE5jq~r^t&|_#sQ3;H;jYS2t;;+
z4Tbo?Pw!@$7~_Y@8?~WMzR*~V8gX}c0+;5X{it~%=e($GWlXr~^5PhJuJ;_nrFklI
zv@ZC~NK(%ag5%TJ2Ga%wnk*<@J+Q|stmDE1;i19&EMv<BCzfgG)E@C2sph=Gr4MNY
z5yW=u4^zTBaKVa7<>F{otLW_$#OGInvNFzhLwHq*YE$~i;j7^TvVYWC7X8O^*0mk%
zd?uGaKx)H|smJs=t^OsP_sa66VP9UBOF%gY!yAvQpkHYAt^X<HKsE^Ad&wJb7tXKn
zhS0ZN7Lf^6AW=H4OS?xm1CjFvJZ<{Xg0U;J67Uqf2*k_qaX6)K`jdgPNxbo4@@pE3
zr8%H);j+x^Gc^NUF7vKD0~2RA`IAev(tqq^Z)dvIB<^0EDj1je{xi{_Wj^|tDJo3z
zrBW2u|9YETWWgc^E@cy_2{XeJu@<L2D%HcR2hVg`vlcl#!gK7hTnuFuiya}8vGo$m
z+g=>`!<87_OGkXl#l)lPqIY#yda{1ksZ$TdB<hl^FYi(I%6XQN<G{#()Io8jNItA|
zLZ8MMv9H87VGpADMR-JtdP*p+jvM&QFAwSa!0_CC#W4y?=m&GXV%Q@67xym~fmG7w
zxq%z+&`4^(6T8r1v|1*=Im>B>Zf1AO$NHY+ZayMGTS588119|&dYC#x6Dkmz_l6Fu
zH1D(*@e-Ar`2c;^c7l3~w$1K6q=-!z757F=jVlJO@>q6<oO3i43C=jFI%5H5l={<{
zrr0`s0$q8<!uDT=`17a8(pJF?sZp?24%&bt{J{@@?)Dr86Z^d0kA@qcrI8@~m-e<D
zvl4{3>W3iFQfb>od$%3wj&t@^v?gk9fEy+C98A?VCT48PFjzzSY*y0zi#u+u7t9UH
z(*+(?mTUnOS#Z3bPm}DaD$y)r#J?DX$j5$OcBuUmzAT-bUUEe@QDT6!>yM3R+_EoC
z>oHeV$gULKzN9JXjtckD>;X+Aa)XS|D-Th<Y{?6MoE7c)FjH*tTq>2CMcWCj$bQ14
zLOq|`{TYndqgn}cIK8XN{S}CP|Hj%*R7{O(e8joJq2u|KRM&bS8>4Q9w#Nwdjs^p$
z!8S>djh&gPC5Rtfe)0jUWNF@<O?b0s+NXfdI1?u#f6SalYJI*ech8OQznk*~ZbloV
z5g&CaTcC0DX06}`a^&fMXH;FvcDtxrE=ONrh`?pD3$dTRU5o2W@nqUBQ<XQ=-a$GJ
z_OuTl<pO1rYW8bwJqt*T3un32(t<V*m^loatJvdl4HGz7$XfuW>I>`B>I$gK8huep
zN}W+kN{dEwz{;W9(nA`f%V>cj-6*5D!{2IdkMxph2q+At!fRae96?afGg>V1ZO%oZ
zy%I)rEP%y%UjujgT@pb*y9lvP?HPvw_LX%;f0V$z&w81n%{_&)94@cE+lsnbzKznM
zk%|zoXa-_`8s547E%B;D_Gl_l-0(}oB#h9l4q7Kt*+auzA9l?0Zx2Q8JEsKcm2p<7
zbN>v89cB6Zb^rr@pONy5fhYvU!zb)tSJLhn6}rO7<&o&uT%4yM=&6tm#@l(pCL>5i
zwQ^u{XL(4vQ(1NEc{YM;YGECbmop-`d%^)Zao(Z*&ZmWv(O@}LA{YIGA!b54*qrs&
zV<KNpPd=$JqWh%zT!|`G$;j`{yd=mf97*)FIKpy;Mi87z4eUjWzz3mcXFGCngQ~eh
zhK*daN4J-|<C(p*t=)#&Cv@}N5u=IcaPQKB6$EwfLCEXqCtX5<&1hFpD&Pp}gJp+8
zC`j@LT__w>QZ*yD3P_d$?HLAKX#A7rsecZR|D0TixjC$0j7bO27OSaN%-9%d&k2R5
zzCZhVrG!Iml4c)w^%A=_ZJSzLA9i5vh0J8=RGLT=w-qU+YNSAZr>7?2S9~^)`Ujg`
zT|^}H%3%PMk}CcKW;CXH(dv%3=X8-DWIBS8_?|qS7i*6p_x9Kwy3c26ZkyD*3mE^d
zA>*}>WYajE`@~#pGYqi#4dyi>jroV6Zw}7w*6``>wZrvVSs^zq2i;(*nTZM+tJb@E
z<6_r({R_*p5S@}N2cHT&{tl6oh{#4g`EKnV7wz*|IjxlQHk&QatFWTJ#%-`Y7Gin5
z*at}}wowzdvq3cEz$GATcfJ#L=K7h?2a7(qm!3OJk?aB@t-^XE!;fPDv02jBw-3Qu
zNA!tOFNcYaOP*YA6_PqYK4!(8kxu5W@X&Zfo{^xz%<M62b~7gQHD;AY%CxALplj3>
zy78pke0NTytib`|NF7@D`vQwZ?g}4s*yR1r7wicY`|dqeAZ-{4C_$wberksjxjvRa
z4=NJE{t>3}{u*K4t+r$X7CGETEpqxM^ieDTh9Nf#0jc8M*p`4$j3?@WT!y^zj)tbd
z@<%GZyMMT?p=~R@@pMFcn3?)@q$8yyVT9j{Lid)AHcI;x=(Q#Z@+0a~`CPM@d79&Z
z@K82Rwt<tjk3<9CZ@B~PNKHSu{@@-|n8;;l)RuR0DPuc-6u-caAh@tVEk1|#K(l%9
zTBpT_E<Fu(31Kegp66DHB}6%=p-_`}rs(+Np@V2mr)mr;w9BO@H21fi9lIhqScv&_
z{>P&Ck|829p`8$ob&hW4Q$vR>2zi4oQw|?dp2UyP>1!-2+#R2wD1SJ6g(AtAXw&lI
zhHTMOD{N)i9Blbkz;Rhi4VJ5DQ+Rjg(r~loz%(VnOtu#t*UUO*5sXt8+jn(o^F5cb
zFwJTU3QIe(9_3=ILew{4%onCV#2XUcW2&~+Fqvbm=qSC`{>QcO@wvLXK7?9@znws9
zt~<j_nb720yUI-go)54t`0K?aGL1RSZ!0X_$0tZ-LyU^q^-c+5R$gD0OS9c(<oIwq
zWH$#(ua<U(^F!Keim}cBTt|YI#=!7}Q!ZWM8!`P(3+C~XI|<)b1atM;#DxnpgLG?;
z$tnz^M4i%V>;3}8+zPhEdNUsreoJWr@SX(OlB$d)$XhITH;sTSV?cQ^mzhve5)<f|
zof%iJt6KUyF05kyfLW_%^uvQT6g1>ZRT-8~w|D3!eo2HjSgHn_j4h&cXIr7hW;Ll3
z95gS5ERDWo#t5!1g*W57P^o@bNN2}-m^!hRjl!3LcJO)LKGp1(@?U$P6^kJq1CrSe
zVe_voO<lxej}wxP-u=W61QE~?wx+<Z?V|V?B!%qj>BQvUtnK@;xx+=VahTvIYrsK1
zc@O?PuWB<miKDmP_q+|7gwo=A{}E9@_E#@wSTy@W@B_f!8hb(MVp81oW`y$S?L-H&
zLWe);FuoHAV)&WJ-vNBnO+Gd#aZ9LwL=p;d-TsI^$77BeAgVWVm37N=GJjwoo9ckr
zAp&K6N|bG_s>%l{as#(PC<-g)+suT21d2mOXrcxk+67`OJKSxMenN>ks}@&pVpACm
zhkNaZ$Q|iy?pdrUJH!iStZ)ocHtU`@!=QBJwoo>g@O4^>_oq@*V?j0GNjm~c3-?+H
zWq+vmpodX44F-pKsUz9anmC|zF%YlCId9V;YEtm>K5W-VzzY2dmac33LGVpcLuKIS
zulNDh^FWG;v7r*AVBJXbB5&({+lO|=yNSW$zx;rph7u4wa?q~eBj-6N)jOzWF;Ccr
z7c6dB(~Rq{=K+@AcM@shbCWc<uV9H-E72pUexw^KX2N<92gfZk0(zZ^J#MPs4banL
zZ9XdM@sS#}76j->6!mknfbmfy(Q|TUz~%9~ubmSwK0GmBO>51eJ;r)qS_6Av3&c9C
z8_bZn6*)ZLH|9iMVte}2dTB@0JnY!1#PagJtG^t(udKeKeA7Yfxa4>JrnR~;j%Cue
z{9xF6R|s?Jbs%<E3Il<jYnro{VAqa+u(3B<fmyJ(Z9&<EB+1fOI>@i?fiBiVu6RDe
z2lsBtjerLnVj@{1<`Q(di495gFXpG8#8Dxb$icfiHU!`@YHK|`3_6#6#KAH0X+Z~+
z_&$IJ4~L6s3aW#Zfj}T@ui}SCzeg4P<Vtilyz9Iy4=kwr22gByYwY%2W=$`|yMs|P
zU=;_^M{77gVQLVIAwrgVvaV&bgf*iX(3;p^GI##d2XoA}PudjbG0T)^)QJp5$qqdx
zWWyV!&C>oTVbAQ*+)$?N#>IhR!UXcsvB1;J&|X`y6jA=ypZx6OY8lt<nuVL&2sO7y
zMtmRMoiXc4%E2PEPUUtj5eDo42eHn%n5M}h+@+Zhk8M4&Q3MKtwdV~gMD4g)QW<)D
zoB0W#KZJhW=5dF#%6gz_)19>JF_dG6Q5FAuuOrL{&D>_}-{8K%l6ILB!KV5HqcV>I
z9<qhE0+>#nH{3T2`snYVwM(luUZbeh+Yru=kF18l#9Lif^+S;YLRKXx_^OEFL}sG_
zho%TkYq`^w?eF_27OD^VSfp&Y5bmiL$sA+TI0n3}X`FoxOUjWdf9-M482h{I=+;nb
zL=s-uQH;@M^>Ij+kfM1X6GkqQh%!c$8mz;p23^zmQ(Q<MD5^bmDf51mf#=9|$@x`0
z+%qwGKE9O88pQr%E-vb%W)!_$<!fAf89h4;VyhF*3{iSw0dz8jl9Z4*9Gv;)kP-Pc
zRRl@QPAF}~$q<J>5!$tLGUtF`n7Gn$P{DvcZc0ft53|~$G^XEZBEpqOB2oy7InlE&
zlz#6)-)z(9fFNf%Z-<R0%B)>dj9M4&xEzMpvdW=FzCRsF|8N1?O~%*1RTOu60UQ0!
ztI(@|lrG@znI#~4o6;c+H?6DZbx0R=PXRw$aW8>o#RaHH2@xn%a<yh&2rOUUeHJ<+
zhQ%vx;jvfJ%ln^}RLuod^?0mzl0-W;<Gb1Azu=Ufko+_Mlmp-&cI5jr-YT9IJbQK*
z{_wmgs(eil6ObBh|J3tsTfFavKWlLTycg7xoRe*6{vbJVH&7rVYp3b)Q*!0mw(c&+
z*x>Nf4GYO;F^XG4pF$?0Mqlp>GO#=v$pgpaaqFxc&!h@E-Ae{j&5F&UF{#@M-nXEF
z@vOAO(D2vAZ779$tJ&&vBCMvI)pYLIUBS^ed?5dh%{b6qlOyVc*luyoCTim_1W8rm
zmC>31l;H~ok4!Y>r^ObU1W=R3lV%K6)e;}DcQYMwPl7FqQ1k-<(}QYr>(f$#8F`L!
zYLv2&_!kFj_K7a`D8ZZT+rP)VHzwmYPOD5Vntu*m&YrK5X)T6hspRM#dqBt8FnNsB
z_t$sygfJ&js2WxdTf!xUJ=7*A+tQ<!PDBl9k(@K}7ZJd^jXa5j!CHRk-(#_!@vov!
z-WTuPNK<JK3U@8)9x2CRry$&Z9t{z<u^!_4`=miBBDN-;V69g0IIh5&VNPk1wFK;g
zzu31>iRQOe*kA2#lu<TQ_Y%E3a3aziH0ja#UcO9YUayI{cnPdeun{B(5@?Ywue~fF
zR@7kmTGpHm{!zQETrma7sNSw`69|Q!-box|rw@klG-~gVbnUe+)-)T=#LQ1s0gqI_
zDR!;yow>Y9wg!^5AaVd<f|XUrAjnU-S^iRVL))KYvdHy0W3;fbl|P}z_0)BIcf&UK
z7@tBvObqv5MdLQ2?Za(fW8k&;d!^^Z=vj#u`@$%JMVT$JXU-0&KKZyQtCd2REOp=o
z23{J@C#(V)beCo3^mAYwz?>BhFDkqr)<lRz=UiK1Fx$IQIuP?%QY*b72GO^eKZODI
z^7s4_VnP9JE*bc5ZiHzKd&lRp7An;WM|8)?{2OxZpf65X34YqFJyU+*BR;r0TBVII
z(j(8~ke1OtFX*or7r9!Q=9s*1|MJ3eS(1|m$}&_mH-e2E{4hHhZNKkYMVWF%^H!_}
zSUPT;V2J>Kk=79%QRa*BvMQH-9OBor^5o2s@3d65FPn42mh;kuS$6zYPQyc*b&Z$`
z2QId#N=UmK6kKg@Jt%HfQf9Pvipkqd(i9vc<-Ebu3q%uTXOFzqR3pY5El&_XWjEQJ
z5D8JKznAc@b1)SC@RU3`+YGgcm4MBH32TcUl<uv=&R8(fiXo9dlg;A9GV!eYOcQz-
zGUQ#N*jb=YZ0+jSr^Z7r3BdI51k(+EG4>W;M!qeV1Vp1yeC6I_Ua@@E65BnL#3pN&
z`EB?%izlBE)j{%VAi^Pmbrr9m(nA?;Bg+5F_2iDO&usHJlC2?Q=Sk+GS%nN6xY;!-
z*XR;T3U&rWyPq)fJ4_udT4rJ<JDmq_lCb(a+a7c6R<I}w+qUe#>dYJQwL2R2{!*gc
zYvnb6Hj;3Tl*Ynq-PtjHhe5)vMr6?=(=|9k3d_HrE%6TQbo%IiI%2>-BCf?Ay3MMB
z)1fh)rUQ!TC^8Sl)^yT5n8uR;9mhesbmh<9PFVFm&}RSVZXJGQ?*k%vO7iJX*%Ss9
z&L{yaqS^@{k$4_sH95Jv#F&M;d1&sp<>D1F8n0MYDmjjg1z8RIn@-5S5$HhIYgbBZ
zIc22SEWVorruRQ4%&J&E9kj;9O8RZjU!3>8rXWDrR!?~f@Rk-o>{f=2cF1i@rrNmK
z+!r(dbhcJdOa<d>lejKFYg>p<xoLM;`O72$kvX+q(x7dMorM8Sp-PW}0Ke~|;h9!A
z2sB>GN-x4FJOsBTVtT_TW#d_dN`%??wzFk^J`?vm;TGTbw1ULD%OCktKR;Yeo|W3-
z$8sRFqny6vu|H&Uc$CJde7GNMQh_ly9Y@QmL!E#hz{LZN^zbSZeLrrncq&>v(vJ;u
zms|^_6q1Qon>56sHj!hgbFIPQf9J?d6J&~AChRv9&2#S?+GH@M_|0cJTKk|Cj^~?e
z|JfjF2OJ-S-l}RoSLOp-bs|3MW@4O*VeQSe^&4!|)1W2c*4RuZq?7*n#OsvZ_LTgA
zj5(@1WfGG<hm_&$0jULOK2(|xl8jaAS<VxX>UsCG7_ur7Yx$VtDU)?@QzU5kQvlst
zta?kAcrGc2VfGynBQzQ5tJ$@F_ZL-j6#^1w7SERf?F`7zX~>r09>e#+H0ivH<n4kK
zmj=kYgEFIDiHN9l|M4Y@^3QpHRIz*lQ=l|sUgBNcbD{ndnimU4=sLO2xX%mhfh-y!
z?)t9A3m~`YT+zjO3V|4n6Lx^KuUn+D{GW}V+F%S-u<BtW_o6#`n56aqN2%4Chr(_8
z6Kvjx8V~)5WsaRlEgipc7+b_7xOpX!ft4i!(+`pg6R20HBoll-e=GOA7o0L7VnK^y
z-9(rM-rKnpW=2G<-ZYrx<yuG;uBpVO{Qyoj>%H2MVC!6_qG`Zp9BQHYATzg?FGX6a
z5JLi7+v14wv!dKfTXP-ubgzym=!V$jh0}qhd-aL!s0=k=eJ=;RLS|nP_@$0~6KfH7
zM@lByeaCaX&j$uqK112V1^S`*NHB2c0Si=>*+$}K@SVFS?@6CGwFlZvNhTv$19kaR
zgUH<jP3dS3*%o{GExa4Ku8)0-gFvzTJtY*mO#DiknBkB;CE+=zsWhVV3EXeVLguTk
zwu@rwkEA8Z5EA911v92RBXd~NsPqTHd5uwERfrHHV-U%|oY%HZe3BCzAwyTBt^Hw@
z#Lw?70gTu$rVi1)0vU*(!$;Wcmov_3#L|Ta13kRXGoN?<DfX78pO+f5AzdqWz|;ZB
z>wyI-N*$T&jrUk=nFziw;OXxPk6%Fd_Om-H%q_Dusd%(?$?udtd~D)U(`g3g6~%=K
z2x3w_RNKq=c44I6Vo&EM&d#=Z#)pkQuv8=vM#L)X!eRL;7vaUtRG<;zYktXmrxWc}
z>H}VJL)@?J1}3>G+B4cQ=nP`en=Mi|IM3p79QruMl}SG3s{$;yQX`VjMHEfvOD7Oz
z17dnwBCNAM6&J+0Vb;Z=Bm4|}3@X06+^&#W1KL!|D9%ON_<|S&)kE44QL#fD_}g<{
z9^mkRj|_K;#MfIl;$_AZhF#$hZ}&8Z-=~FKS4A+tEABmi1z9RpS$zAFV(|+{9D?-^
z5C8N!;0!@@5Wf-FYwr%=b>geh{#7qn6Uu>1#1U-HV6*gTjCqXClM1ujt#y;NwA-aN
z`cfq<J7j`1pGvnWMka$7b}_vjtB&`<M5th^lE(|Lr7SOTW@fA?bzb63+vwuXE*4z!
zj(VUSuW+dzc--%$=GLJhtj~hJS7Q#Mq%a8R4mB<8{|jE<w-7uC)3sui2qtF#*|U(V
z%TOUNeE&*GhaA1+p;+uc@%<bPUHV?JkeT83o>Y1^Nn~_V86<7)LM2WAQPM9X%5iJ5
zt7I8^5|oB7w^35OGd-;qrDgHW2%D{A_j%YUrn{HK#6M8}l6=W(Q}g~Uq6Ba~6T|Jt
ztR0U<#vokU(}vQ4wM>>BmieJIliri5B|K?QbKNETY;*lSb%jjVJleu*UShGO+I$2?
zIzIP3Y<vBor6nYd-}Yi#n>a|EZe#Vcp8X!Pc$RFx2DlE#FY)!-%yTPSOZEsvfoO{T
zrFlNB;+fRrth1*_d1EG9299>w_l`wU0WW64VeG*sDYg{E;86Gdg7$hm;Z6;B!qUi4
z9W}eb=Fz~(6#4FTKidX0)<z#ZM$`QEpkNF@eeXK35-{9LLIBnY>3SR2V0A+QdKX%E
zt(}<{T4mp5)Ei(!T_#(cWG$KsE*N5&Nd9zL|FjJOI3vqA1$O><7qGuf(KSX2Q)Y8G
zo|0_M=>taXNT(Qeb34V*XG`E+kIK#>fx@ZT*M)9PUE(=(DDKcfo)P;w93}*mM7=Xx
zs}{B-n~@t*#SnNROE}xAE?RZ8TDk0GV&KSEc7Skr<&;dr?h~a8P%r;7F;G!5UUs==
zgKNW#$REP%d3nL15Q{z~Ce28W-Fa`p5_T=KaYQ4K|CAjQ>&x2v?bz7lYNj_(g>+8&
zC%J8vK3G)vVp&|t!WT+_t9{EMs|$3bNW=QJEwWOOYN|)pmN6V7rHrp)Iu2}Z9njO%
zKuqUp&EYJAZPC*TTW=O^6+|P={+-fGS#hE7SH!i^zDn2imA4p}bkld#*tIl$nB;1u
zZOzSKsEQDC;L_kk4QaP)X+jM*jieve#Y8gQg(57T3eQH?!XR%FF%y|_DO>(HnBJ7L
zVlFSWBMPMSqCOs?0*+PZvgQ3n#Ex+Fu6`#3$?~~UmfHRx?3TfkB5~TC4a9*40xp@@
zfm4wew!dAG3f+NzKNHuyH3csU(2KPzDIee2SC=-%>AmU1VV!CZk2|WM><+Kj9e0+D
zp|wME(qy=)`^nU<s<IeqzwY2kshZF$6Qze8_nF60f@KIC_yJR6&*Ik8#~R0Q%QZ*x
zC<X>bUg|7{?x{GAC(E}ps(zQSPs>h&L;!ug0g95V5OcZGeRJkVr-L1>*o5?5NP=>k
z$rU&q4cDd`3UcyY<jY;y%zGG|*lTvWK-#DKOisW5ACTwcT5C-6wlVXo8v;o2jhEss
z56Y4jmVh^<g7O_4;i6Wvc+^#l4mM3}8i;UHN*8aHI&MhZ339M;;oaF-dhW<8w6{{B
zeaooRqYqEnN|%uKq{n>^Cy??VL`l0x3HmumO4u!J1Xsq(7&vL_XD=!a7_$Ofs>oYE
z8N#vBYimh7>+MQn>dds44ndc4*~L?ZVO0TC(i%s=%;-~!<VT`PpU>IaxbT4~Q-ks=
z;zRId$xrM^Wsb7O^Pg!)%PK$K!%stkwi+^V+VIL395;WSkG%RzetU`OHov<B)>C)o
z_Cx)}yNo`}7)m0iR|#0`n+mz-l7*F48`vGB-3;MCdM?ihN6c{)t|(%E-D%t`m!#gk
zh%NvqT=LM2fw#$pXg1YDdDMQ!HAYB9IxW_68hcSgFAzQFQG!CNO6E*UoIzslNxz?i
zx5&#kE##gz_|kP5h8lr`;-n0HIbl^A7GYJ_MlOLZp*EP{@?o*4pZLd6@KM>YK_B#z
zCXaHHU$$>Y=Am6X$pa!#BK<iemt$ufw$+we5r3i;g1DmTe%(_r)|bnxN_Nm_=`SC4
zXAC8Wjx9r7fY}0zPNzPV4l-gKPjT1ds$#u@$uNMPCnvW(j=A<ObK6IQ&BJLAz(kvk
zOp5rA*vijk$?KI>RdA0iN(Cm|s!4SYPdeaLBREL649Lw5c^X`7wy#TrIkgq>(0~|z
zT?oJ5%iH;I?w~kyb39(Js86!RunrCM!=0t+-P^bj2!9@=oA9^cA(K>B6|Tn+yn1+*
z1RYO0Tni(kLQGJ$7<1d^s^FzPuS*?9cQpb~(c97u?Ri8F9Wd5sc?}B4-Uq|}Fm<ss
zx^B?uK%}azWyr@=B@Wr--e4bL_Hns>es>I_JZA={Gw{dVF8~(*CF1|6%~=0i7wkW6
z#=^+<e@jJ~2-p}{|EqlT|HWqP42+!rr-Su>(KhM^u9CF1$hH`quO!N)7$A%&ao+Pv
zg<BGeK#)vAl7JLR&?9-PT0zwlB#}TxAc0sCghELrMGvH}FxT_C{i}cZskSP$o8e*h
zGQB(3w1z#K<redXdY$0Pz)Au%1&;<G37F#I!a6`e06{_n00arh!5MR)p}xN73s6Q0
z6B9s;sPr44AT~sx(Jc=eI0EdF0Fl26tWKbT0fCkT6eS%XAV7#9@nA=QL<_1C;NE{7
z&<P|!O9B)MXir6~xNFf~gpAfVyB8;5O978SLrLj-rp~3X02>-AObC%r2XYDGG*kx>
z(hd|8ufPFw`5lL}%_OHmBPFFUzqF(ba2SdxP>6ftegnXJph2Eb2m>ta)qfR$P7M4^
zU|Y{$1PQ<qFe+z1ed~|72zUu8IOOjhMvVg{Y;Z>jkMP34g3!k`FQE)x9v4XH8|2~(
zd;{=n4TnGj@T1<rzkwdIAFe-vK!Nf%G?1YC075(;cpDXLS$zqy-_!6GfDqynnqU|;
zX!uN+hrnJv92f7d$^}9}b^!olK>p2~4+aHR+>j9nqy2IuIuPCTZmT-7UR|uSV*o(|
zX1|ahl>-ZG<hHAAKX1rIkboDF&rci9KDcLS1mgu>A&?BB{S!F7bP^wC7xb-d4lxuo
zGLU3Agj6Je!Hr-V`hvv0!M}kW>V+Dj*Z#=-?op6XQ2_i4gMq&t80HuFZa{#?K!D~0
zaC+{HANaQ!z<^;M4{ikL+91{*WPfkv-Zp*64%_d?q8)u6D7XwC1ETZo>v95Wj=_s$
zaOHFFPG6kH!dd>hHj#2KFX0zeMM=mL(B~~A#Q#gEkbnS#ga{C2jQ{PsX;v5FOCJ9>
zp(?^&0Ej+P_bF<xywB_9O&I8gAL;<`rzsr|NnRHt{&P>J4J0Bk|Be3cH{-TX>Bo<y
zul%8p>AR0x$!q`OgL?KG`|fv`(AHl4mLG!01>fMFX<qbj#Q)8%9P_Hp)y44T4&3$^
zcV$@U&QU>x<B)O&9t{y7;_GFI@sB-y`nN6z+Qm~ATi-VsdZ1GXv4L9x#@h&L&>T>}
z4|S+I<}#>XjKSUZ7jB@zUE<IW*ElqGDEbQjr-G<J!VCHZG7>7V(7Z)BJAmJtyEMu<
z@aWVs-syAHj({K_2vU?h;Gy{oFc-mse^d|}G7uD(-nQwRO+UErr+|RqS`--_&aVdS
z2SChd+hY{jo7zvSA0$55W1t{l60$_ObG?&`{ghz|Q4{&^WIW7-+Garq!mmOAD`u;<
z%d#2c00p;|)Mv-03A)D2W{0faTa%~0%|Bdk|V+c+P8*JdVhm+toP`%lTeNFH#i
zHga+di2Srt@_KRP!VZX=W>NX(#K|>oR}2TG&u`_;SNi#csCpq;E$U+7+NPdnVu|n^
zk>$rp5@G8^?VP))bJ{`Ow!CeFp!7m2VudGWTeGQF8~|i4stR<^w-58OZZ)oAfEHey
zTCY>EQH5&Br-q6MoqGB#PtOZ;+qyAx(CC<4j@rK(jL#7s`ANf;-PWatm(ms4n_^c7
z@-31ui#zmfL~7PQp>mY4Ica@Zmi#%$qjJmh)M@VijMp+@R^7SOpTif0sAz@PysW#N
zjdza$u9c-D_VNs`xH}*lO^YY=zAo8yMm#t|kXgT#G6i~SCq;9I8+T3+o|{7lnY>MN
zxJ<TWCWHy6%SJTnEX0`GI0kaGG~O$~xoWnKvh_Dkw<m*MpL`q%O=a9QHBvgtH>ir?
z7?~E^LNn2JVgpG>wDtR0S{9zF%}ldPHV%7jgH{VtWoxjS=jx$W4#?k~cL5&`EJ{%0
zxsTRGv`ieKg87_>Y8y{V>Th`3l!n>7f)RSVQAaxhA8owjXh4Sk;*thW_hdKDNesZ{
z-~ua$61jUlbT(X@rxdH7%~^r}7}4xIe8;KEHvlanyXgFWMS=ad2r|8Ho;>xQ^2ezu
zmgL0<!dp;^;ZCus52zG5zwf5y&6qm=0_GEF4f(KG8wK4J+lknHv?^nqU(ccv5w-*w
z!TXid>S=8~G4qmK>J_VNlp6MnQ<qcm%=4`jO)2Q(7;hXH-I`t2j?wR=M7vI2&budI
zV^3^%UFbsG8KfN5{&pk!rtL%Ys+T5PDPddLVcTntH5Yg9r`|(LYF&$}!P)1DU@YmH
z#8$s+jjX2D9AR&3jU3~ME4&96&n>8pAZ@$AtmIzR4CHVRJT73frChWaETMdd1m4F&
z{_LALI}TZOKztG;wg7um6~wHwk2$Pid(-^rA7o(V^6~@H;rG&E@~i<+ED~@Jyw_55
zst_#R+%X9FvC+=sorc&}>G8K%Yzv|w1(@LQb&3Q!oB71~>Fg&M+@Q8MvC{G}Iz?Z`
zsw%V#al$4Qxkfz^gci?<XKwHLa?VzRHYT;5Tl-mttEeaRW9|YCz0y4Zvtq@WPAQtB
zX>%lnm9CDA4J>w9cr&2uOS@HYiLEG}8FsqjY?PGFCg&?bH|$E>DQ;%MnK0~L-wmG5
zKrpuzQ1_yK1MA%;ZMef-WAav@*aaS2ti{qpsD!W{FFyo&?B0WU75c{=&CjzVMz}Pw
zwQo+jEM0au>PqJc(x2M=?i6e~gq(md8D??I(IK}1zFQ#6jB^AJ#JIh)a@qHF%swn@
z2LjmdC)T=Yav^i)B<k)S+<CiP+Ky%YW_$0u8e2U%zIfL^9jhF-#`q6e1?Hpcg(w8k
zw8*Q?pa|P!aTa>Urhg6cU-{lQ-Dl`I=wZ6JOn+F)-&5WDTe;cX2M*Tja?D&vBFdOl
z0@ugwr+GF$!D3|4O4Y_WHTODA8Ot*wo4%#0C0(7y1LL;cqYd;dN0?37kH4TS!kd<F
zA^&`Yew*Wydm?s7WR6d*=2D67p&Ed7y{vVHvk};TdJ(TeL)o}In3Pl78(OAb2$bBA
ziK?wnKx*IK?4lMXXq#@%KdWK`7^vTzW#x^IBW?icp>2+`1CQ;30w%R7HW%akB@?EJ
zFZ93gw^jr$_#9M%*?^t)VR~H__wElnQ&5&2l_Fxa#csZ-8G^75_Yn}7zjErCQ6QwI
zz-er!Z*-#T8u>uW`B@zD>KvTNY!eptYMfkid_C%ckl*AY+nMn`;O=(OO~5Pk1)75<
zjj~la-9-v&URKf%+R>i7iy}tyB0Da_1^F;D){^9ZV)}S^$~S1x==v1^vDgx&B<wz$
ze$L7^AIyFaohFa*Voc#3*280|v-k!|U3ueVvNPRW*g38p>L|y+*fcD$@~o@jMrUy~
z?NXq*WW0$=j!B5bDY>0po6hE@elXkQiVel&sjDPAqx+!YMbNOcUkT>bz%*@pQ4{>A
zSI!VXYMm`H8^8s1|6o3*xG9(L4JQPXMR;eeDcLY<<2hz}E)U|%*x2SCEJ@r>1Q*ZW
z2ztXn9|(4=g<9yLwiA<%z1a05fv-ON55~@+O|Y$9wrSf&rES}`ZQHi(%u3s~ZQHhO
zpW3b4`5Lzye_+jLMZ9C=uC|+b{<d$UBR=9p3Cslvn0az6JEUFsUu2$aUvoNCKZnVA
z9?B?Ey)vcwcNo-+j$l#ygwHeGPSO6Akehv%lMerLFRe<<DE!xFY&8;B-5{l>Ya-eT
zDr=eQRMJ#Z(a#P@wG0{+A(=S&26w)ziJ>Y~>VVu5mj0c*Oh)|ZqhDZZ(uXiEWeZ#W
z`dsZ<Tu7)cH0{xSgLa*y{@}Em(ynN=)ARJfu3YzhS+sT`oVxqc9f9pA(@A<2&tjRW
z0XN~H{*|GVU+{tY%z-Hg&O!x{xf~yd*~5$m2g3x?#o{bv)SX?+mz%0o(%DZ}w{})$
z!F1g3*OZw^Yo<h%j6Wz0)TRz!ZPb#WBlmaiZ@=v5zq?NHrH~Wo!GNlOQ>AYv2haK3
z{nqs2M7}K#OGBYrCpF%ln%3XY9LM*Hgqt6)x0TOICCBmAGOtkh0kxW{FNBltJ@3sb
zCM^>oLz+k<uPHaKQ_~>LBkx~*<3r5Fk7U_`rfDJnZh^>DQZXMV$<uD$n>d&!+t3@U
zCh&JnG#JPqIAmqvL^nm<@MZ4~17O}6{Kr=i#jY*y5ku!NVLTivd|}agrhN7tp4;n*
zZ*z&$f6d>E2_Dycsszq-E1lKRbu`@;im1oA+(Gm?@nMNdCIs~K6YhJdA}MD91r^JR
zLM6;90alT9>ln2IXlZRZh}h^_ph~ukgm*(fBG+C&!C{55Qud;Pf*q5Mo_62ajN*mc
zZn@{xF_0O_=QD!Ry5m;SopR@W@V_doLd3;td)>=mQz@>C2?Yq(*imG4>B{4zr_XG|
z>uas~sp)y5!IDt><rDwDKLo@80F#J;x^1S}YUQO^XT*|Nz?LcCg!CJt5?1cz`zhN2
z8zbd{h3INo5V`Cut#u*_N+B+OyFj^Hmy^<N6J_zwC4P?UC2D;S6EX0Gu+OyP*}W#J
z;=Zg0bNE<gPR3Y9=<E<TKAs0!O#24MIui2JxjF!kn5x83OQGd`bZ*&G)Bfa6b8}uI
z|5jykin=og<nhP=xmf;!6BMps|5)3sVvOXIS6@Usyf)y)6i1=Z9=IU^RkRHOfdSh(
zTOmh6XQVE%ThCvw?@q;M3chBk$;pze9F(+y;q9cf4eMiDg+?eRR?tYlYG3o-UG5cG
zA=j`$1koGT8bbkPv_-t22mCkPAD+O#C2vxNd*uNcM7H)<j;OUB6}gWU#|}Q=b8$fl
zD$5=dzGqLO!UoUzW`E)Ce@5-N&J&;FfQ_`?2!&><8T{zijSbpXPAN!5gdKu5J!EWq
zUsJ`QaWCo->vxAzT?-cm2TI)%Kciz?X7I?dcIv!tv+YJ?>;Z7P^q@3!a~}Lzi#HB9
zZxh8eo;%z|*IJHEj-gwMz6TanA&<ic)n7!d4g!7?2hg{M+%0gpOU;f%S!K${qQG_+
zqqn8kW`8-#CdR2}geP{stj@o_7x|1DSi7yQ)G^dauh_HlIQ%vE%JGI1nsCdfkd{~s
zwjkV(Y$s5`5|Z_gp;UL$YH$dpX_M1R$Ij&d<Il6KLSJ;>+FvfBD7=0&K0Yq|IxUkQ
zA&aB1cxjPSr0ng%+v;EWKqDU``Dq{R{NCi4$D~0&0_G#%Wp*>DQkKpmOf<JOJNy3D
zpbVI@YIsICiI$JhyqX=L{5pMOls(H~#s)!^k3)dC71#!@S_*E-liO~b?SgXC7Hlk!
zOkN|4;q$fBrI&hqo=!jKLkOWw&*JLVqMN(?<9?WUbhTrS?zP;`*-aPg!bzCpyp+z~
zqajZgbMm={cwDHjMJYFohv1fyj+7nW>Fk$%4GFIw<0>_cgSTBK8m>}R4h0qS0nzNS
zjbgxawN80}=!N3SS5(8d!Lq~VFd}1>_F72Qtr2Fl3N$i77Zv};Mph52L4yA8P0+_v
zE#vD_P>Bj`i}9&YoDm3z%2Yzs!|0OQTElwMUAW++3;ACaMAB4*5o2j1uDPb0!f8}k
z8@@eAl9nl6_ad8<I&F>i`!TRBf19bDcy6+9!`H!Q?B##*t|~0M1Vx+@`%>edfjUa$
zDbq4lglbS)SY6!gTTHb(4)%<0!^rx5ZA~>UzxXbk(NV+fF|?wy^|WQ5jx5MZ6ar>Q
z5f}f6|IKJDLfb);F3-*T_z<bMY%Sv;lXB7Ol=?(qjR=eegS%<J=CwjL*noPC-nj3s
zF2*%U)S{c=*(ktz&6+KPG(1{#j57m6(HO;26#<o`SFBd;o?5^XJSMEIIM&&;tju?2
zo-_k-gNApt8yI^iWqYgN8^s4r2k|<*HWo}mHj~wn1yS=pkysT=j87NxXzH)G^9oPx
zL6IzTQWVPz)!eauVLtnb$CBa|&FVSv#{#uxjN0+eiC=_~jQwIRMsQ>*-tp52@xE#a
zeo6_GYq9#LfE=o7U%^gkh@IHY9a#mNnZU2M@$J(|jjgYjv=;b0`~|cmRuzUY^iy=c
zsfwWBLsoP1-b!|T3e|{w5SLI*G`f9=+mQi_mEHlXf9pQvC1XC`nI>>_RWE<q=xg>@
zXtWJL^7;jSW{S7mI6&YK=+6RjZ||WWf!4*e_}KcE{L(iXjw)iTfLt;g1?rZ{*-?E&
zPSs$-AarZBGkf3w!iR3YjC(Eid3lM>6vk5sX*unQrCIUnV3BR+-?(UKpEK#*Th2c(
zqTIw*#?duT(GLN`B5V58vH2-^KRdE2nWHv(zpe~17&<q@-bOo0DffScoC7c2ks%EY
zpoJE8cw<ZK_<=Y<w*%f34D!*Mx{W<e@3}b99i5J`ZhLp{^4uy9JD$e<N&qbWBQH^l
zWh|LjmoU;1J$r9vY8PJTh=#tJRF;BcQ_Q5xk@c-P?HnPlz?as^jq*5>ADQHJ0>V<n
zSnVJc9z`63k1CPheXNIR(Aq@ht@ILb@y~grNQwDc5*h6r<7A@dH+cV5bTW~E5E}bz
z@%<HHSZ!41d7#BpxFc>JH}^Js0&k8LFt<)}|2h#@os#l^R=7fWZfrL1K-5C9>8w$6
zW3nZv+Gum`Nq=H}-ApVGdx`#jpn$@DyayiQBE9j#(s8-e;`SXgvu@ICHhZiRr`nv(
z#MEy2=KAMhJ{3ps2nP+n0JNJ_exMp8GxsK)o5BVDPx&Fqzt1;tE-txZGD(K`(~~RF
zp}WFgDrzw`73fzToycnx1Tb%|poP%;`S7e@2*TU_IjE1laZkRMG^>qE{AQV$Alu$}
zea+|@3DI)NX3rP1)9ATMK?`yuCoU;26PDK%qR3`Xo8Ddt##4r;jSMOEIHHS(Kj^rK
ze;p~?Wmc*R`r8t?ATNl5SKi&2=dDn6HK1&^ps14_$x3d|ogP+ls(F->Qrq2fK536i
z{Yr0NqC!0$94t3<j0BuFEfBqiQw`I$MWyU~ug4p#C`zep(USr1N4;g0+bgTc3T!m^
zI=d-rJwL+;4W9_!S4IjZuh+M>K|l+;jPz)ravpVHr3_6KIeWPz3h_uEC>gl{fhn|9
zLDNe?cN6t|<;cI8TWfx5(mIF|g7XLm{~F0Cx%tg=MG^=F>I%!JEw?u0U%S>+Rbwc@
zLlR1GzffMs2TSo`f1P8MM{g@Qs@g7+^eNH`vEyepT`fx+KA(rdJ0K|^h?=9QnX`xm
zPwqTug^)CK6f}{C+w#9%CSyCdepVXvkXdxPqUNqGP}JzV3=oS}@Rxt@_Y4|gSASS@
zKi=G`mMtaLA5na?2fsJyE{9BS6DugG@u96(xlZPgDP}(ut43c))dW+1z%p{z7pXtB
zlynhYnjmlA4+I~XSbu&YGx#*nn-!OnK)xfq@6A$C64Mz$9B5GE-Fj9M%e3gYGEp_O
zXX~Sba>(63ALXw!>Euyg1`84N#N$m-`2tp38!gf7^NN7hsMv+5>7Db%@E{SBz!F-^
z2|(S98jAfT?;=lhdwByp_ZYrxWe&B0gEe-=?8C$O_Aenglww(=z5TZ#n`RiLz>2F3
zywaJHKcKqV2`yyowvN(8Y3TgYz}p|<TMj$_qP%7C85CF?b)yP>_t*>O+ma?bX_s<g
zR7{=1Da_H~6oMazQdMYi2w0B(R<8DKg5XQ1V?8k5U$A+K9q%pGju*CdYg$rA85FBI
z^U&eKx4(lLQ$))Z$*HAmnYyqHg-aqt<=|SnZZ&9Ngp+&yrJ61bd=}p6!`|ycc%UuS
zXE-+i7s;UWBT){EWOr{}`TLji6?>*PE+d2fGE3w1FNLyqSDkeB?Z4k+HHyy5-o~4u
z)<l?etNMBMZ_tpxVFnJZi=ybB8`?>FQgwQ@X0<oI%V$L{3-U_|qYufO94A}0A!)iR
z=-AWV;G7u{1?OPxtkx<kJ;P&vS-p^wUjoIF;Bx978%8S_z-&q%(wt>iaTNH52t|TE
zpv-ia*3ys^%6X-^&rdIkyq*%8O567C@@13!xyxKrf4>)!6RICj1H}$*=ntcTJ`6EC
z1))%&w6^KlG$UA87h7RXFu!U4<lPSMr|dnae~caqJ&KNWEdYu^+PH9L+T~?r1|W~=
zXeVgQz4imPDbtl}K<~0TRJh7WZO%d(8P3km(%%@26j#f}4b3TGZ*oRxE1JIk>C{{}
z43LVQg}!jUIxZj@fM}*O(^X+d^tF4R7MGJekl_8+iygWYc{C<{aN?dk40X*SB2yYW
z3-xbeX&0}rl+x+`;kG#Xfb>V7^_=Dr*@fD{Qh#!hpxX~+aD-r-vgkHfDK*y?H@@7y
z95Vnszag~a$`_4Z<>+itqrJyIahODXfWu9SOZ7fSMuK&-)Y!CqSw=zdnKQ7mXZzJZ
zK#aSNGb;xJ>wdo6;-kY4Cyrz!UR6g2p9bYCSj?{F4{c10sCe9%=w(q}q-pP%!?b_#
zopU(92dmgNu*^Xaa2B1T+yE|VqN6d7{H@q-mN3c(zO!{Et5vbAJv~!?i(=@~v;Hnw
zKLOGwzfpho^ocWFOkLa0MwU5*i>>?HNO(InUS}7P#;hoRSF-G+RHhV*8br1F^o86!
zqfuV6s{8?ZiPQS|XWX_zJOx2m0Xf+I0YSGUh@RTy!jmND<$0%JUV<mp%)>@*(2E+C
z6>tNo0qOPNXMsAffV`J#eqizs{}tgxMi6FQ(z=(nQLzyM)W!i%)#^{iS3s?R032x_
zUx+s^TBmEtl=_UgMAkzQSzmLmWu@8BLhgM0EoYb*8KX!sz0U-LbI#Qi*PS_$9qa&}
z?{Q-!9#Hp4Crg`N>?D;NCrk!+6T}ha#R-%ZpC0b-Ijub2vftPS>t_x9mFTMczG<yh
zVtLwKj>F3%)n^u`D?6zo7txk_HH;$VP4_%iu-_eQTj{M1;Pxw-!fHx7fl0cy-M$OH
zXyqU`?dAKMwWI94mN4D%UFrQX>pTPjs(Oi3R<c2b0)9JCjh@cVSfc%<13&+f3wmLw
z3TkK-Zc%)LRrnfFG;#WJuzsofYu8&jpple4qO+&Rd2}*pD&p}Qq=1Cr=S+(;6YBvO
zFeX8pcZ0~e)_3FG&1^PrzU$3#R{b}Nm@o|hpSJRZOG_7&CUN@spWJN+$IK1j(>Ur6
zc1!7@Nu287hnnFKDNHUn}jEXVEE&am<}ZA>TM>f*IYq;ePo-{JWNV$O0SS!qe2
z<b>2gXv@Yp7eDuOY2K1%$myuYgIo`U>*-k<-sA+!^0VOp4_lm{BDlUHBi?;n55>?c
z^*niTi#KDuWHhf!<Rh^t7?RxK4xG2D>1zedcy~_%@Mi}p^oj1bn(tz_u+-1dT#ywm
zRbEi<M$v?Xy^nQIU`&0nqMBa_gPhuswzfF!#xwVtvXhhnn~1ZT`$-8_+B?V3fj58z
z*RyBH5G&6?w)N=4ZE}h6_aE>L@=V?T+3~UckB*O#jg|TTb$pD>tZe_Y<oidOWMujO
zBuYlNfGVeGEzwH5xiu!F-rOYL*sd{W-lQhOfu5%(f&rd`o!^LdBqX<OI?cE}dH?c_
zbO$l)`J80jPiaD1LZP~lGC+$l<uwtF#YDuUr{ELhmyL`->6;wuo0^!2{i8|NIW&U*
z5Q!G70Clu&um`^V%E#LSW^@FYB$n9f^N5Hc@Xu`H^^E}PAD);U?wgr_)-^Ufe8&|O
zLi6!2EDeqT<&D9_JAnY|B$SchWOwOUS5<BI8T_0g^P9=S>mME-8hlOS5S#!w*E6tz
z0;0%lR|UZBg`bqX0Jw-bVdrJO`f1NWYIe4B+&9*_dwMcva<(yYb*MuwG68YhY*hhT
z@~h=VfzJWmQ5pCrmIL42PW??N1H@Wkt?`>&#--WjmeKJCsO#Gq!GUlD)oKf(_NN7~
zxA*_R2K8@1MtEv%7}$l1_V=>{);BW!T;1kd>BU+1|6ychVRLh~X9V@w^sfR)WqslI
zZ)gH)%uK^3>O(QUmzrPNSw^(ByD+dcva<wJeT!<R;MbH!)rXS3%YD+G*0Ijo(oWa0
zx$-L>dzgf6n@}Wxh7<z_Cm5SXJxAx0z(&vGXuH~>_H$c-J351W_y$+s@TaEsBQe;&
z87hEmaBv0hN%#^2r5604X$0y3Y*W|J@OWbf;5P%9o7~DcPV<7bBiqvpv+f<*gZc8w
z#>oaq-6Qt@VNK<~!zb2LQ-UYxn;!nh*8Du}_d`U&#_k&!*@D#vYia-_{C<H$1E%>M
z**oc6a|e9V=x-ba)Bk>cyiFr?@1n*Lc-iS){=J}!3at6UrosHDIr({&*4~<j-kTg6
zhtfAZH3Y5u#$v>~3;XrkF8jOjC3FbC$wnY02C%zp-EZ=NKZ5rQ1Mm+;A^`tZOGhGh
zw*&;}+#9y#pAxl<^A&ad>#_99`2L%Dr>Fa4C-l<`DbcyP`RgM6y88Zmy0+9mvh#@#
zdN<e68Gz0|kJts4_gh^7`{iYU8i2-n1NZy+6q8BejyS}x`tqAPKcccR0&SjecxY<-
z{o3?Jv-;I+^1@1x7g<<2U26r}2Vy(@%L!bY+K&5nVGkO2q$kFIck;zngfg}@f3O-^
z@8ke1t)ng7ozN!(MnvmRhwY9|<FD%n%ite^d2|NG3h2N12(HfALGXP+&W7$Ua+P*w
zHw3GX_#5L6K#kOkNaru|!1j+UDgGVht`123k1UDpFLJ_W2wpe#BZ>o%%GQfW<}Y%?
z2IQ3R8`Gza;!8x2KD-MtC35~RQusl?4{R^{64j@z=tcY+wP6QxQt*Qv&~E-;l<{A*
z@?Z4*FFN}#>iGS`OOM{Y3t?^cL3aSKna;@`pmx6M@>UC{Zux>8u%6leH)9j9-!7?m
z(~e`b_o4Uoau?X%{m~B*eJ#DckjK5{M{HpHUFu-(E_0+d->Ci#I8X@4&kKMI?n@4Y
z)z#km4kM#O^A|5vk9Fo|@A#XoT~AW?<fR18&m9bX_kj&$Q~d{!!%rY{_wOZo%P$c%
z#xL*5!5b)#FS5xe$y@czv()zd_Ho>qK4>K$0sGD^2z&p0Rd;q(Kpr1+UjyG;T_Bag
zCpgIK!VNq`%@e+He;W2AetJ-?QR;3^dtV8`o#QVp8avY1cK_9CwdFH-kRFNS*EHhQ
z;ypZ7iyn!?hYw8bK8Wvxz%M3>Y>QvfFD^11J?Pz0K<*Wva{F)MI{ObEn5_MD*44Jo
zZ#ZNs`|r&s-4UGg_vOdOD%&Ytej)bUz|@bQ$nodtQLkZ(UiWXIQm^JO7cu(U80wk+
z<1WX^M=|izTcMt|K3UBk*`wag9*WNOZ<Zn}t9@wiVBqc_G&U>rJ^Vp9+WgGYLwqoO
z{2M=h`y`$pe|^&&KN#}0jZ1h4*V}J!5VpxvHjX+n{JhEC{2!;>%+5~#&f}NWDCnJr
z-+sUEUl0&a!080EQ=Dl~K^rR}t=o#>aGvy@I7k^Kzttb{*`v<0g_9qDu-||l%E#-D
z$(XgUeB0<08;TCAd6EaR-NF;kxA5BW3L3s|ycpzV(%x1A8tJ{~ICQ*-<>!PyiS!oX
zHy=D4pBA8-0&GIAV+yC7osR|OM@G9IFB9&|&nYx<!LvSU+tmlDV!qUwhLOwB3=p(A
z`7=zD86@tY|BNz`cUYHO&^{+0rdU*FUm@DG34r6j?5TxgYIZ?9H@+)o&y8T6R%C>z
z`FMa7Pb@2A#4)vRzL7XTU3L=llD~m!jrxclaFj+DP{?49yk4RyF`CR}^`#?5#`W1Y
zWUs&k$*FDlUS#bhO^Bmw$0>}qDp3y1En2W)xbe=t+lt=J&!Ux+3#=)|5q1?fp!7i%
zRz4_8OUIv$J031)T6~K(?iZ__`6G6lIzJo3e|-KBtL9kO7FRtNs;0g(i7OdQZi(h|
zHV4?*(_^G@^WO0eWQ0O~^mHTm5g2Y#8k;O1hFk~W5ON$(Ja>ja)|#`cS?>Pr&uV=g
zVubO4+*kEvxD@B%qa$uQiDw*#DV>~*zwk_JMU$(fl!vzd3rS(bv0K(>luG?fswTd1
zpxK6zM|t2)wD{=L<48WSSKWHeqX+m{t{P%01*8^0IXvUQym;m-beHEYu1>cbGyJn6
z<I&!RcoR^#^6e2~R`e#nRRShwzSHU2oR=l5cFc@fZ(b(Xy4lDRZkkMnb%2Kg7ju8M
zfh7pPS(u%R$AdY!Bd)lJMnm~Bjt?RFMuSBwj`ob83LbIL-DwMBSZkxyQy9cQKBOK~
zIJ2b_TEc9LZMoFpPKrdPy4p5b`n2wUmY$2XU4oIbRr1hWOHY1sWdj6ZKU^fRNwy$A
zWd~lYR}DQsEX<=N%2I9N8M#cCuw*>-1iTstE~Y<3vA@Z#?hrg0YXTTj+>~wwB?7}v
z=QO_FqQ$FG0Dp8ZBbZVH)@;ST8fb7V2$tOuuY8&KCm|y&9Jw=Y3*WJ%%lJWA0Qh+5
zTp^f?Rb|QPA4l(mECFSW@XqR~ago8#8Xa^&X-GZvyi0_BcQjhme+@0Gco?%PMy_3c
zP<20kq7cI5ptiqgc*{KpK`2S6)-Y7(syZbeJ1E|XDk$&#{y0EtuSTE%W+me+{fs*!
zJ1Lt)wkOh*;yaX-$L{!DGUM{!pfJRfI7M$+s;;nN@849OlJTKPq7S{Fnvr!ykuSIj
zy+0K=tnp*yGi0in@ba;FYwkHRh#)vL^x^_0flv@Rfhs4Nh}-xuL0kPB{#va|mohNR
zy0J)2(Du-+0YU1l3~0+@TIPrL;l>&qhi{REgh1bB;r_y8o6?f3^xLira_l4rcxt>1
zb|rf@5T?g>`&jwpDQ|9;zQ^a0rT3$%<^r+RZ<RYE+$Fo|OHtuQmq9G;`BA(pjP8}Q
z|C1xA6AvI+D)v$Sg9=VCU+e5u152snVT$SjBuwZ@C;E+X_sB<vh~#O=q+v6DOuReo
ze6HZgV$f?XMWeJ?k*a;SOkQFAm)reqYbZIoH-A^co*5ViH?jwtK#(9AKfTnTw8hg-
z^%&WKicRqE$k`1>-dlQiTA$f84+RaIVd$re=j5eana_6FaT1+3t`W)QpKj2H+xw|=
z$k0(cHrSbJ$1O^8Vae9R5ih?lkbVmsj~0^K7R6&ta!he%6O>pQiruN0C^U;kuY}u2
zP9<`6X%$;!E<DhyI*a-tm`Lb|l`nVpe0`aVg=wd!_EOIF+%{Z@f}85Izc>TWTiTn(
zY|hk|8sN%Ud=Xvsc%p8*v&e4jDWQX>cKSj>>f-hM<hV~KJwBW5O<)8mqBM{s@&FFy
zdY%i(jJPstY9^C!TPb(AND#0Kq}OvX+|4~6O{$({xsTfl|6Z*=#zCrg^tmp5A<Y(V
zOA<_PlJ{?O`D#rHUaVb#d36H@!_gTo_e58h;7LzJZ#!K_&&FtzmpRm*td^)0FWkP2
zGz^|D4xp(z{fu2ov{#G~*7bqUo77$blDqq|#+(zi(42Jy7Hvgp5c3H5gn}ME%V;=B
z^qrn8cjvCr&9nJaLpi|5-#DlVG4-b<O3e(bxe`d5^4)GIuX=4k6HZpq8@4jr4daNy
zDeJKh>J0=%bYr`I`*);;(wnSeYRXx;@#l+Pn#*CXZ(k3~X56Bj2ylp#Jy$(nDy>=e
zBnYMgQrx;)SwntuQM`brB0l!(q45m2)b7=9(y-9AkhNviBAl)O9aS<UQ69ZAfToON
zmvAS@0rfwBV^xVsfBKf;m$xXDVN=qq;^Mcwi1*k=h)YjN3J}uxFOR}XjNQ7Tg6A-h
z!MybT1Z(A8Tx$o`myz(YfhSybM3#>h!RMcl*EqP$kjwV!a$v7tHe?5=S5>%+gaR^^
z=Gg=8E;k?!?Ln!)b@|ZH1cY?0%#T?xD_2RHm>yrjVvnfm?mTcb#2@C|(O2RS0_Vfd
zt1V!|KP<Rmd6@F?k+xWYj;=4RYpJ-J(4@<#4Am$yU#Cr%Ou=DW^KNH4Ry6FZ#eo1!
zytiaEM`lEdMFL3Fh`N%!*PuCI5-{fu(Sp2126hYna3F<P;|mV5PdzfCAC(n+H6Xx~
zjK7$RVB+ysutBlTGLIWVs}5xnc-h*GL2wMYTO5Z<33v?MicuDZOgI=Cg6wh+Bmu9M
zTs>O6VBI+P&aN)f#tN9z$#}!(pHG>=rh;=LACxq%5o}P)wi9KTAiGEr+`~P6gpZ?5
zpV;&N@nF)sIQ3+)tL~_eXje-%$!Cv<VY+leE2FE+^yo382X9M3%b^5}fT)rn7PC}K
z_|z>{hzGq&hNiz`$3*e;L^M3N9Vfu7c9c+wt+^sQG)y?csAVo4W8SjO!3UX7h{#`K
zGnC6|NUyr<VA5-6%Ce>F@oYmvV>g3&!mP+G5_PmL*PMM0#54Xr`#^KDjYp8ml-aQQ
zayI32!PS4hipSX8D?awwt_$W!f1Ze6AoC|^UK>AbfM$te=4QAy&94n!7s<NCMWrp1
zP%97&yv|>(o)S!cXbDC)9FV0jB-QM}Vsz8Y%X_pZUFTK*2!Mn0AQU~Pyg)AM8!=57
zemuR&C5x9p#fZDC)hYz}<U96RyBUNVrVVnv{u&}%BS4O$Bs4)Paf!F<o@ZT>imA-t
zCe=AATUhC2iNHh>S4o|Fu}lmqd{zyy%ehsjTS=h<N?bAS41{@JGm-er(L48<zt6jT
zdhYuabyQ%VL`aq<QoLTK$8wdGt5WpBKhmkdbiHP}(wtqc`!O=%ZA=Titxe`T*7w6+
zzVV=mF=?B47$54S7HtM&a6Ib{xCpZ~JYO}TV#RVtum2R4^v8xi1QJP#AFy|^jNvS<
zec--Vfq=2Ja2oxf6~T-P>R9zzBkP#q|6R!dMM^F>+XUT)ND0FiH(H3#P<$U%n`Jm%
zd?3tjJZoTRYK9$%_pB%|I<rG#+bV;0)m3EVdX_r#@U+;#cd8!c*C1yJ2JdKMnk?DY
zWA>yqchLqiTUk`+AIXECbA<A6AA@kFC=hS<Y9B;C7e|GaEb4h!fW4eN6?Mflwc5@b
z1n5FW4ygbV3N~33oaP=o;oTh-r;e*;3VBYc?R?J~=Ud}d1U2kr5AV+E@a;Rl>FoeH
zuNLZ+wL+xq{yy>ax%nGlM0$~V#uFCJPe>?$cO7LH+gF8K_ImslZJmaSAKYbdf?|4H
z@h~44X|b?ZVrfkpBq}gh4h&Waxs8WCT+2aFnB(>v;8DhQ3>|d5<{#%4AqMeY;!xct
zcibADb%%fT2al;5!d^a1t$Otlk%u$B1Qew!xG@AyoMI9YL^UT0<xU*JjeEBk(M6<t
z85Wp!z%g%u^5z<M_!N$pj3}|x*h9W<=ax-WqSr5~q2tG1ld{>i0{?yGL3TKbNt~4$
zef1VW_p@GCUnA5S4qOQR6E*A&zGk>`bh}eVBS>xW_`}}Kn!?C}>_l7A&D%tF;ELOk
z=0HvjwuXAHR6(!m%s1I{zk;!#9r9Am_CA($vh9Th^f9SY;U3fRa88()-Cb>AlNmwO
z0|s}^b=N#inCht_0z081B6GtH$731ubmr3Ze$|lzO|8G`Hiz~wOQhduv{^Zi4FNp$
z%ebBfX7fyIs_;&a$-~c+SfWq{iCMjcskCBI8kDS4w=0bI;H9Ll0F}YsKGj1Z?MToW
zFj(s*G0@=a5TglcE5?7L=Bw?Rv;<_b$RA2FLKZcEMR$;i5l*XRK*ADYY~(TyJ)DKG
zGKZZa0X<Hg>lEz8_gs^(R?=GVAMey|H~%6TLsmHlpIv4b^M~ZJC;u#wL=`|cJ05Mg
z>^;M86jromMD+<_w6cp<I5Jk{B(rZ#ZOcT(tgLMz;MEnYY5H^>186-Ea%Lzm1ou^+
z%?lK=#W-6RV3k~fGSTV4yY^98p>9m}DHuL8m{W*MA^=KD4gk|0LNeP2CB0CaR>a|4
z>kQnhBkCNC5~QKFk8t^x8ctSH`++-tL#~gU?<40pgk_O@JvkD#`{bNb_ElZxH@0V|
zI|rY{o;|}~B61&P8-6ql;T44`-VVXkxi?Mv6k$T?HWOV!g#|b1dkO(b568nu9H$6w
z)D=3fE8{29B8Ih~7OO^Ir)2W!+s40Rvayu{onJvjt;E??&_5cUG<67}#2HBs9f*!o
zI+=>x!o?>s7UG<iNdbeSlB~!<Tycf<55CbR>MH1K^{OP)0<BZ)-NKNzipox#j^%Np
zPc49qBx>>Aj-ux?34Oqhqoddc*<g`Fo&vGoXADPhSqHUD<Q}xO)dB^~956_K6mAyD
zcj}P7R%J<a;q63|VD!Ldr%UFqVFn=CW>!JpB@XLx^?KXE<5s5(nv`Gcb8>Xyz8vso
zt+AvMJ=Kdj4XO^=zS)>d6HD$Fz8w};rn48eVN86G=}Ebb7&y7{=4?TVi5^0z=;2t*
zZLcu&mDp0O4j8HJIE%+o{xTSLjr<=4nt`-@x<yI#C=jP&$j}O8?u3>s7&SMYa8fk{
zW5SY5-x_$s0SRPi<~S(6I=7|JDz&1{=rE@MbLtXp*7RI}^N$VMO#8QWA&+>~4DVte
zqufuFHU**k?jMF*PtD@b&HCF<Z}#$vI5R;b*^*Duv3}?ku?g2XQjM5W%uQK0cyiRP
zn;j};+BAwvHT<mv>hI}nFO0U1E@1K;Ramn|yzpDjxOrwwDuT^z$8$HEHxoLi&6GjU
zv~$XsfQf$aq6N+C*%@Se_krB)S2oXd<2NEUI!_<LhCxQ-XPB}>7CCM-PQo#HGVhic
z2-eVHqweycWagHP9(xEx<qI5}@Fvc^F_P_l1{tT|ox~06*~!QnVi2v^Fz$7hat3@8
zZ9b1VFj#haqxskhJ2$D8XzC3wzC`3Z;=|*@Gu>H<C6y-*9A*rk@<fMI#?*2DUMqFu
z&nM*V7!p&kcMl?0<4YWipnnak7AX0`TWL{UFEY+xjY&FcE(_|pkOY2F{#p7#_jusE
za%1#Y41gMkcK&If0`$}jHu@=3JrbN$ed}e%U)G!4pbj-RPufk=+1S!LXB~PtagtiQ
zw?m^e>ao4$$UHT`aYNg`<YLk$kkRZ<T6!{*P+>iqb}^6VvnZXt1ZB5~cjIJ;p@uJ(
zV`&)|^4IQ~uq1v8aPzx?50Rv<cn}nKp&mkM4-1x2{l)UyFC~jz{kyXnRY{cdVvf*S
zPF-C6jUsHR`Pb)-c)x4wy0`8IdZb#TCP6-Xf9jIl0Tzb7Wl<u>;7=YIIBvEik9>VR
zd*_kZ?kS{NUXSFE7azH+<bui+K2(epFi4fIi4@mCw{wJb>PAb9hsZs6J6Y49O7h>-
ze_D1cUPFcb(1d+nZ=s(AcX<|nfS_|<a8dTLUK3ECu%^+gCv=5tmrf}^2HC32_e*$o
zkR8cLLnJc#19Ruh9!LiOl0J|wY?G3|7MEiQR~Zv(@djzWMZw~3b;<T;c*_5Yd=wZP
zVT{ymZS<h0UA;pvI@PNp)-ISlOkB)aEIW|X_H^m8xzb73f~p_)x;K<xJb*6tU8t7w
zmZzah!{Is&+<?p?tUt_sN4`ut6jp;9f#&L29}7>$RRAVz6ciUg;_euH{PtBcsL2Vj
zFRUa&FlH-(^~UX41khYt$%cCZ@Ly|o`9Qy$4!sH=iN+i9n4OS3FHOGA$$(!D$Z*RK
z4^W~7P6lNnXCiXcYL8QwJ?1#moX0B=#9s_%t<w}FEK1OZUykK5Cfta)GPDrtQtN_i
zl#(BMlpMU4Dv&MC40{T-Nz0VQefDvvc(;+q{V__rIeM<!;gd&N=MokE8X2z*It_nQ
zKWeub3@s>MXzv0uIRjhZE{6TQ|LDeDHOiG4muHegjnW`c@erBmIS44PrRvIWZWxQz
zvnalq@cNyR=p(l|6p&D`U8a3JSHgAt8rKI)EfM(kj^wTF@ivh3BQK2x7QIsb0M#kf
zmS`Q@l~9Z#u{dJS7un&%yoBf2#+WANOGM-)fG!|#eZwsSB!YF@DVS`VwdpB;=8*C(
zn3g-jWI(zruns3UX(v?1-KDK(801hZv9*tr3^YRcO)B|vOcT4zYeL_UJ~39=hFYPP
z>~c<?ThhZc%yxvGI9iX+?M`OKqxI=47f|F6w@}0|mMJJ+dpc2YF?|>Xb}0!5{R%q^
ze8Bk0or7ZP>XcfgG>hIb`9wX3zTjxvW0#sVHW?SXd@()>W`m)0CvaX7Bmd)yF8)R!
zawy7`OF+2^0zHT=(=^aJR$)=s^_O~`oMaWcOaPou25yc&Hr|k?NpSZ#`#XfHsaZob
znYQRLSIa66@(Y(mlXslpfW2ZH13xs)b*EtOi~SJN9OlXk4K(Jy>Gm2tk7nA^yB~M@
zN7;|$w;wI~F&y;}Wm`b<G^k^^RyXKA#OP8ICZc~|7n&-Z1d;h1x1+i)(bqh}{Dy|m
zm?$_cL)jLwbUgw%DwtMQ5>YBOnj<B0H^In#y;MT+Ek{6<Z8wD70(48^tM%5k{(yEv
zH9lXgDTsUtq?$CsRS$0);+Wk#onDMxbqfYZIDNRF#Xyh8Ii`bAxwspn5~sPJj7otB
z#J!&R+7H@Zw^%2AV;XwV&MLH}WGAJ}1`|2rZAU*G`NoH*JsTY2H?1HcF(&ZxnwEvG
zT-H`WTDqR!CG~abXreKgwdL=W32-Y|Y9Oke9zgd(pH~D$(@gp<Gp%N7m^Ifr%yo1a
z8LL)ohXJ%ot9@obAsj-!zT4*Fu~CwGa7{soMGO=dh^>~2*O6y|?UJbQPaVX7)I&-c
z*YP1G(EucFj_R-dAo(0oP%7mlojse^aU<`4Rk$X6xTT!UOV%@DZp7<$?WBNzbwrdS
zmNUJCKx&}o(0)-iAaCPd6P9S66H-$Q4|xne3EaDBaVV=JgrZ+91y)RVY5{i6t%znC
zZ-NtzE(d@DCrbhMpyg(9lL<)>TH{&6jpHJ|X(x)Y_z3V0{%l=@stHn#Y?8V6-(oQX
zR99fhR)|Piehe$LPQ-@DZA@&LOrd>eq6!zFcs-VX8j1?1ym>v0rBETo04>>45jh#q
zP}g-{z{qUqlzqsoc>pXCp>#56I7l{Hs1iQ_q<a}t1hg?W^fO}=FHxMUZq49xp~bqr
zuJ|NE@5Cd;G~iU^Ro{ve32;RdnXi1fBQckS>wP#9SUY~@<ktFwKiggs-jZ{q|633f
zv5i;!X`MJ3GK!I7I@U}KB6*QeGAt7}wwZmHmBTg_Bek0=P4nDS3@>D95wXdHN|(M;
zF;aGK<`Ul@0^>Hs;uAby?#8pQvU(fJ(e#PbS??vwhdv5Q=O&(6u=4m3XfE64Ka7xg
zZDCMnCarhD1d^$_-{{m)=EWZxUQ0-kYCK>9j>mt`2=erD!q?*LXr!dQalXN#@?NqY
z5{r0%dkz|L=S;qGA`5(5y{@$ycf!y<MgTs6t&HR+{N(S#kKBIuqKQMQjR^sRN8qvX
z(az$}hm&6o0NFRrzBee}swvA`I=VhxOo6gI>?`R$3kxDgqC~tA$1Obu*<B58i`R}x
zSG0`C7=Xu6`ga8*yMiP=if~~Bj7#Pn&~g1NuGS!S#0EtZT7o3R^)-s&qWtE9c}_Tr
z9jg6`G3+UPy(TbKE!qlMUqWT8+}`k-i!AFsjbhq^52(R?*gbr&4E#WukHx+4*DSC&
z?~1$*`hKyg#m3X&s(3&$rzh<`V8a<jY)1dIJ0!nCd>~f*o2V(&Y=5M>Dc%{b{A!TG
z_V$_(J&d}J09y<XELj2C-#*5Bvz9i>s`myKL1vNF+kQwJ;<_!!G)`1*1Lxl8hxeGm
z^dmqb15BPJLxi}lTb!i_fawO}a`+=)s8waS<w`0h{P%Lmg>hWEJA5)Xw<Pdg&o{%u
zfgz7s8Z}+qRJoT6?X><qJWnlfsrHS*O)%LUYc-Y5P1-aTUTUDYGi6UdQqaT)n+PLn
zAzR11k{}Os266;eR5#N-l7FT)!cEY>LhK*p8tReglsYlgn0TDoUnKxqcF9?%{14Dd
z<qfUJ7J)^xqq%K$9K0}cuCbc9n3Q-`9oi$x*&r*&(kYGhVkO5@EMzE1=gOYuK{>Qi
z0nLwZ#935DzHwD#y%l0#fPI^3#fmt+@cK0M#$@E%{U6hfwmKL3(I{)8U_jcsLDHEY
zW%smMhcWy*@M>Y+Nyb(n>t^=s2`N}F{TSYF%y0nzS!O-AntQY7=L|`8RRn}1nG+3x
z6UZM;v*m;COrO7f4a!AFF+*tWN*Zn&Blh&BGyHX6mYq@vE$^!B^?J^@ta1i9-yhdT
zZQ0Ek;nV-b$X*Ny-{o({Bf4Gg=3m9CNK7MWq;FBZZ6<YTnt^{i)RHAIUz${L78##C
z*Aal9-5?o%AgICR6XkLX3I@XLXH}6OiWVG#u4_>#Xgwq;ok&_bJ_vV$aGfm}uc~Px
z;w)l0a&3V(k(vGHgTO(kVi1u$dv0I;vYwjp%qO(#V%KC14#PcT^M4Ao1rzqtp5hAp
zLv{Z<e}7sNvLO>F@Sb>#w1<}{1TLY1_t^nI<hFFl!Y$}x^OgZGr4Wv4!bPTn0q+dX
zZPv`QO8+EoF(Ik7C#<6zc*FKrwe(a6`Z#M+v&$M=4O`9x8;|ibBNc2Ed><cBEk_`@
zXI7t=oSkQ>Upj`@yB#dDqBpPvLvLWeT)#e%d;cl-cH~5VL^wHfofl_S{p_|q*%U-+
zSTKp0f)m4}&A#skYIpuoPFAdX=Qh<B{9IWM^ol|_Iqr!JUYT@oFc`q?M9ZR<vi*+Y
zXiA9=IE$E>T!KQcUk4Z6Jd6fwE2tPAwk;a~5|L@R-L5HcsbPAHUwQjh+985i-v38{
zcSqq1I;oZ79Ms{!yH+8837K<3ZF{|m%oAob1YKOdOiBCl(3xf*zi8`mJxkS596(xB
zj2ywun@&QBmBPXR-&e(E&K<o|P~VF!7iPI^XZe#^Ks!a-Hdl3IQ12yn(@2ra8140#
zO8JL3S$yMqr&&_12)Uc&YcG5nyYU_~UvL1*6e=XWqpR}f$!E6GoeQ78SmJ3NKuUnh
zFk7BZ%2dit$l7vr5vU9O7A+r+#;W6TRgz-o-r3OR5(bZq%|~uH94Be?b*Xy^>{gh2
z_o*bE@#1Vh_0mVG%j00iZVBpl9QL1yR{KgtK?*|$QbWMF#GE8$sfAYO$<+x@R$+~#
zIYlFS4dpZ>LGf(0aB6<8-@*hzKPP60*HU{w;uFV0ntDL*MnllUHaL!H%NZ=f&PSzb
zeh}ZSw;}l{@Zo0UEPHlTqjtKz?azVtxdtZMOtfpnsQ+J?kSwRkC*L&dH{&JELSRi2
zF^r&E23`i+{Uux<un{L6P?jLi#C~v1_gU*JW~oj>M30izXvB@b)V!JM=X~zjFo>Fd
z1mH__Lvs5PO1%>+O9`hUMsjW_QZ#e(?>iF@LIH9IlUf2Kgr;Kykf#@rN3VB0$Q*J1
z#G&Cca3aFu3&-7ft-&GCct-%Zu0O?EPSc#C8d3$fVD{BnHo=q>Lb>#y-hZ0ltgyvQ
z#!)o}SkI`VMK5M{?%F0Mb?QLNlZbP7TX`~@Y4=~T9*&Bjrg&ITqO8^QWyICsF^tuD
zi<*~f&=GXZ$<N2hY(fh}xNUS*(-$paR$pB%d=MT3v>6&Hcpg$PGyO7~;T|4rh66go
zS~g%Nkexcdt?|Ypz2d^OBKt&3;&_DejZ0U&ZD?BmT9m#ZQj``T=TP4}xdekvdc7jl
zDAMGh$gCsqcsU-TaLS&4HO4pWNW_+!sO*!Ovp848FI1NiHV|k@+!H+i__j5ma1xt^
zu`dj+w=t$4Pp0Hc?i1jL{^N4Y>VlsbxgCN=rh+HcW(h8dHDXTP7AuST<ks_x(BjCC
zL^>we%71mTAJlf(0>j`_@z=5W4%duVZUwLH*FFY!5nnP4Q}2S$g40r`n8s${Ml#e+
z#7t_mdsq>7@Uu-P3NI$|hfOe{EHB>lb`|JqHymV7XzM(TQb3hK-t3$YK-_xHxsnSM
z-MkKcpG+xI!0o{Wz#9)I?has&N7Nv`1uI_&frf*34^^-YLCJRwL4p<x9KF-XE+IEk
zP9#|@?P|G0#qP^YZW*qX-i<R#rFw4djlYW!o~tcAK9Db4AYsC4o$?jh?HC`ZUfW^=
zp*^5|Pi-6M$GV6KVO_3HHQ|7HJRGvvjGEL!$T;SKr%e-zZN>{Lb=c|Gq6g)`HCN+2
zCM(Q(_<WJpU^PJkBhuS_E+tD?CLQOb8SsI&Q$u%Y#Iclt*0abD(>{iCTBQDE_hEL#
zMPeTpi$>e{vMuFNhr>^NzgdB3<bT?fqqV~KswMZYx+O$rrLO_zD~L}>Pqwr{0$~u~
zOMM8MaWP-HMf;<qmgar4)U%bc##I}9f3Giekk#Z{66)e*TxD*v_Dr#wQ~zkzsQU6O
zM2Hpm+0u*!X?ftm;50Idy9N)a+I_WH$m#mMK`fRK%|*%8M<OHGjl<mz6h*zj=pjmU
zy$l@+38=Qhw4Y%vC^Za{Pzn<9`k+Rx(^Jr=6OrPBd+|y<4>-hr$LO85LvKJ)GZ9XI
z`3_ntg)cXTC8G~BFpFZk=y4Xde@}??b{IzpDHjfIsNNyM7n)NkLmQ=b^dfxRebgIw
zY&A!?P2X3gzNhQq7<@b!bG%`3{`uxuHAtUBjnmg4F)sr3yMlbIrLXUuf*Kf+AczRZ
zaDGL*S%(u=1syjEdS3U4VAXA1C-@{MU5;t2Az&3&pxJv@P(bc%0U}%Gp)*<I@uMHn
z|AiRf*q!~YGv<FCA+g}g{HOj78XX{u#@zL&NhrPDf}t6M@%@B?6WLdu@HhnE{)h;n
z&oNe3wdw>F+&ja(`N#6`(BV?H@Rjl@=1j3pcCXo-Kh;@9{Q!I&{{RDpEvE9iS&ibs
zLhRsrVdH)!pTOYxj$1P}FtPk6V$npP6X3wh0ptajXfeCFa^12qZ3Hr--c*B3W8qB@
z4!u<V*E1WOi23h|M%=z2*a_y+*I_U|Hpde5jf_LHYZ8W$Ispl6Ew`b=P-)dG;(7Z|
z!Gj=3nq(QfRm~2X*c(KcT>+KTxU__x8J2LlMyKDc7<T7KM0v*eAIDKNZV_w;J+->|
zTElK0W1Pviw((91vq(DK{o?l~n8Z-Snb94KypjdKOth>(vU9!WhS9&m-EjIL#tdfP
z-uEOx5VaFpG6B(o4h=#p7o8-LCK}gyG|M3q<n&%k@0t|{yj+{~<znYdWv;D&^%4yV
z>Z63q#o2o8@oU>k6T3Z~7(X!|orc+qO0xgn*2IVPYt2*Vd2P|B-jXyZ&)K$q4zeNv
zW}k7T{`zDgZ>-+XPFwZV=^5I6)cDotgL|KVC~)^SSzsWqVYykxh^3o)Jxd{aVK3)3
z<XZ&Vo86u^CSMf(ZG^lWBT@d3^159#M%hOk&o<w$Vc8v*kl!p+ThrpI;s#wFM0TGM
zEEZhHEj|_((T4G{*sO7bNWVozyk)bk??2mSlacls81lAQ%MjNN{?!<Gmd&mp0^-9Q
z6yQK8v3PpM5cP>4&SW#XC1Y$5D-(tdO4@!aToINlL?0xj!wUlS&Ci?(f~DY*d;F#(
zZb822GJ)6e<x-;L#BJ6?8h>q)KvFY_5(wK41(`3c8dr_N;^ROb64MJoQX|8TDTu4R
z(Wg(fh7V`Y6|^9W5;b^$A_E@0Piuv(2&y~q#g$0{>9vo!;BR)*`7GCOh?IePR65T8
zK+E($qkCWYcagNh#2w)5+JlQP40%U>ws(vU7QV_Zs*nURtMNLsj$9s<U_<m?y?;k+
zhfQbr<X*#io`<_Wqx%%6M^AxWnVjW@Zm(sT#;>{K%C=i0YK-P`&h2`hHSvh<<`$M3
z<DpfTyE5*%BU$@ZRR?;mjr2gG7c9e1q}6R&RlBRp*dkwr>Jez6!owKhIxLLyPwmdf
z<EAy%O%8J=2vuwoei<YYA9GSk%6DMMo;e!h!xpAl9Cz9q88<dS;t7u@j!&)}azf
zlyh=v_wznnD>gqhxM?Fq=2M}I1S+F|sa(~)l~g`O{dPmgG2k`!eZq6_;41r%MmI+h
z@3VmCDFIIrRq2(q|CTvm)#uY@hXa<gB6@ju0P9jy1Ex`Hyjhq)r5QhAI$yY3F(QPD
zy{RXEM_#{B>AD?#E$+mt?=$i0fHB&}5p20s8*Z6-y&p+a;5VNE&cM$aOcm^q@}+_0
zU&1(l=p?YQ4rbjFXpr{4>|Vk&H{tDHxKt04npX?}){EO)Wm?&dwo3tdD?B%q9bzW$
z)@LV_EaSq2J=4jFm<qSXY>2+Bg!jp`g;;kfZfktVPSA~LO5<kc?W>q83R|s98i8f}
zfe99?q(gS6V4-Q~Ay4l}jCX$RhWfY=(-(QK!~L0yH3r;`#3iKb(TTAnZJQ{?fTd_=
zWw^-<Tp-Cfv%K^a#;H#Wg)t~*<GqHLqV(M6P|q}fg#stR55VzhTL)U+jv0w15v-2p
za{rn0RW+H(PGk!fCEDbxJ%#wGS|0R%uw<#2fh-Yju{B@+LxtLUx?pQ*?Xgs-(sCtq
z%nqh-Q9@sM!!0`oz(q=AP6~+44EKIln6o|XbgU%)`?|=<p-u@i9K<nr0H4Lt@QU=w
zI+lctk^ubtcL1TZPbgzma_}Z#XVLS}81O^T3qF<F#^Bh4(w0Q5xRJFvn^xF#tkHpM
zqHbOF5?RmZxNXDe+2u|^A`&Y|F@k54FqWR(op0+bsmJONw4t_q0<Se=d3m51v$n3X
zt}8<T+3Wbdz-L6L@sabzxnx5<k4Nb0nFa6C!>HVT1`-V}&U+OQjudbptTcHg_9lJX
zx}IT;*daY#0p<;2BT;P#M{>j0Djioamobsjj+LuvTEgA^GF1`8KtYTn41Iyf`&e1J
z>x_c8@8ob|n;ScdElIdU$4W4DREeOcoWdpLD{mLsDieoRpWWf_lsnWsN|(dwZtq}*
z{)BP~@(y@KpeD@d8;%^`Je|c1PE7-gOQf40u5bsKKJiZa@sMR7dX7)0Xd7_@Y517q
z-Hl+&`<<ZY%jC=7B@m!&4CA`Fp1p93E*+heE&7Q72Qg_8D58egM0He-u4@G5u$#GL
z|FHt<WGx_{4}qY}cru%M)s@6+*{6<(C?V$~79;dbdsNL1>`!pM%56J7KIwL+IJveW
zRv4MtC}e5T;Bj6BVuZ1_*4`wXz^v_*1;c!^?7?cwL*kEM8pqC_9P04o9Ct7)ze1}n
z_9-ccm!ysn$JcX~NIRz;Ce3yY-Oko~NMyoxS1bJ|@C;VMu-Ef@dRUW8du)(~*yUTq
z^$za9&Q0^)vn^C@2Yt!NY-fVTniTRPzxS{7&5Wc;{cj78&>gahp6P2D&_v}3*o;^7
zr$#c0b;+R_Db{E@l(CcN8DMV8=HP*Kvzn*NIX$goI_YUu@jV+5FB~Lyx_Mp&rqRt>
zo+FRq<Tcom-=YKayKHL2xBp}79)gAI!7TwF+qP}nwr$(CZQHi>9ox2T+vvZ$>Q+zg
zY-h5kNxjKh4;5y2(u+yW8nSxHjm=CKM+v<2{-pafLK1#dZ}>e5c;PqJYSx&J4qxSy
zZI||;l5&BGpZFG;=UX>=)B*hU?oN@Z&iNwh_B1N#X&dl@x*EDBQ<sg-b)&ljR982M
zyjCwc>(VG~BL?G@z5=Z0_RP;F)ss*Z{t}xhDR+m7Kqs_pPr<~ek@HfU-sbE|9&~k*
znQifMQCW=qh{CYCLXqkw91)<-DH?Snq*W-SoQIe<r0g5mLpHTsO2a{uPwuCjp!q2F
zU_um<c@b!@tZ3;Ty&IyN8KL-b@+}GjSdj9yBlCJY--!X!!btLQuUGox_$EyKUE7->
zOgd<B=pnc_uXcl(gdR^(eqq?nwu$iujICE)=W0!i?g8`ObDB|yxz)fq&U{sZhfp8#
znQcrqAV_qtYU7X)`I8-K)Xan;+nm{V)9oxn_OxhJDjA4&JEjD_{&D!L=4ANt$ZqX_
zJyk30XE}t+cYB&T`4SpV#>rZh2U8}xW*SvnE6*4IpcHmq_`BW*G03;UrA<LmOLUjL
zJPQ{aq$ypiQ-5m)U_;gBvk+Ivj8R)`s>1_iP!tIU69iSY;$OyAMe5vznx0tH<6Jjm
zThl_ena&@C`^=}H<!ilVZPH`NZ3b7}nQziIn^&44tgV%q@6K9yQFU;`5OwoEwd~QQ
zfF|Eq(hUy0q5N0Zyn$eU@gB_c4P9t-M$U0-(>PfI&ts32dwXkZ?sI(x%{OkE$$-J3
zO2`uEK1UxKlz?95u$zJ3nwT#J4M}|ir@yX~pC64{Rt16h@a=ibULE8pP`oJhF5tw?
zG(dxyBrN&>heOrkmZ<A@Pro<lGah<Mj}lAo;mazaAIzb$v%JS>P6mT~h`)%81#3eO
zs{j*2^4AV2gu@H(B8MQG;X*|a7<)$|KNCIH8hkS4Z9fqNgz{?vD|bdpDnLF0JCt4T
zsi_xr#EqjT67VPvcfBQ>Z{vUf+tb=?W3E}XgICe}NZkfq1>{hdXYtxSY&mF9)`;^i
z<J(#@KVc0sR-v%;Tg(@_p*;ST(3$lgKP7Vj=}F>>#QpBL4B=UixyN;;1xrkhYQUwc
zd6)I~TVQ;}j<MIqC8nm^3#dKoPpPwoGI@+?J8WGj5BUa@JcszI4d(Z`Ip>v|^q%IS
zb{Hg>kapPFDjHovOkXn#tje(T+$q0i3nO`1n7TtVXTllA>ca99n+xX8TOA=;(!wSW
z8>DcNI)iw~4Qf9~E;H_Cm@g+BqFVwZ>VZEGY9`gMZYo1HWeBh7Y9+J-${AfJHF<Wp
z1ZznSb9!%=x3!upqxkb>B=&WC6;SxqjwW^0V<S?<{X@Cvvt=s(^sQ=d<{HaE<(obU
zglOIKpb!J9u9~-D77f^aQkjtGxi%!X*{oBPI+Bb~!SyrRSpRe?B*c!|5p9(vk|HwF
z6nZBDwe@(SWXTWY)Z@>3NGzQg(_GUB?U}L6k10~Tm6L=0iM?Y_Xbqy3`L?^>o~`Pp
zsWTfRI0)vw%1+56PS+b>nq<LD%Q!7>ahRLVubtZ}C%L6j;2j={U%%GYb~S#8vDf&A
zoTkXPCF{_c;HBFbKEIW0(&*D#Jn}ZnW=Lt?;W*cw_(S=8;}vX;^Tp^z_TET?mkY=)
zu)#p6^}f|HZfbDwLUuW?ro)fCY9X@;Qks_vab5AYV|TaH4F&d`3Q(iPJ^3-swoSJ^
z>A3`dMHL?oZncw6VB_ODseP=96eeHU_>te65Vz|4-5K^#D7aAU^n5mfF}#cN^)^Wu
zO8J<-<_!!*WsFPxj!~0)j${f%no-EW|4*N^Nu8xyT?^s^HDAGJm)C2m5H}QB)&ICo
z{^;+u5K`0s)OohBp`^0B6ERmL)%nEi=Io6RZ|)r{b%l?&$Fc;$TdtRg2He-=po_mf
z9T?*n4H}2As@UKnhum;v{VNZP(p3^m!L1CnInc7{f}N%2sjX(5sX7+<jwu@##zLnj
z`Z4G}N^XV*ZlVw_CYdQ#niQ(-r0|Uq!ftd9ZwgNmktz%8Hctp_PLdXZW-3}*zPpId
zqb=n>Wp4DjS|;nZZL;}&y5rxV!wYz5n})R_3Pq9s(b^wRaV(RzG>&1h-xqH*`WWC>
z$MO2|&F)I0n9u?*S7p@6`~g=6NNCpH62QtApDnE%kNdJF?1-3qh+|RZk?7)~3SjM!
z#0b5)AU+3E>@y|4VEZ~jhoP*+NA&$Zxk_jJ<7DBT3Mb^LDo3+c-6h!IKcCiMjJWj`
zF;QS}ji4gPZW^EkiSDE`%(iRKuJ~f%U?xE~t6*6<;viV72~0Jr4Qi8YB0dB&n&m-I
z(Hja@XbtG>_q=6p5jR73aqRBWxt9)aiE&2-yhCH$F!Ekfzy^8Z+c9LhB1CX$Im^%T
zz#NM-b}ErB9kwXhF45fpsuZ^iZ8pM%!J2CaNmw|qo>|XrdGa55SlWZnTR_G2mQ%Nv
z9{QFgK*>PpQ?crW>f=a(aIm^Am6ZE|jwjLFK;Ql^E6oIbLfectbG+a;O)yw5i0{Gi
zxs`wTCMQ_mq}ckQIZt^+IOQb4U}TRQBTsDR&iF})%Ew2`FX^UwHe4=W@8obaWaCf<
z`du_phZU|pN!|9@q->LAqcrC2t3R(B_+<mUZ-**5zH&s2++M6OdmxG44(W)8jTtIp
ztdF<?J$Hu@f;G=E%pbWxF(n<`6zoo9E)_{7H%_Haz%%u4G=o;gsTuR!-=43HO5laT
zm}nwS!<Y#R>ISVTpsj~uZ#ze<#i<(%%^X7Z1TGmKKH*Xqc|VJ*X}>lN+Wh-j7S^y(
zd`^MoD#+ll`Kve6>!Ijld}Nk7WxH9fQ#(F?TU{o{8pZ!`jWq>hS>;orvN;m26x>;e
z>Ks{cvsUrec1o8J^4#%vmj!Lpw^9|<#zNZEu?`L<b)O!Zo`_;O!#CN<mPQ-a)qR+!
zR)nZP;u0Pgzk5ZrwBD=R5glVq6O$X#U>2uJ@1mrDC3;Oq05yJ2*Q%-%=5cN3%_(5l
z(=pL5_dZbi{4qX@0x{5?C0QnJPi)1qB3>XMv_BY);hVl|O6vU*t`C`~**UJR^?}zM
zoY;%)xs1MGi|}rtpV|y7*_Lw9CVY^sbr9P9jHq<{yS4Y&oO8}euau79yz-8(hjbO<
z))WGIeTLvoT8b~RA0B{5n}y&&tOlJVkJHukum{1=h3blh_SnX=t1s3SbgdV466W5K
z+xN`ph2y0wY_`IY%2>E=EkRq1qQTE#ukF|lVFsj?U;f+cVLHe(18eIS@=(=fH?<Je
zm&1%WL`p0(x~ioX<ZeW>sW`63HuqNfXZcE#e4hv*^nGWNgKwV-8~&jGxSbKReK@z}
z;mj^M+J_)h3AN8g>4a&ZLR=96h)=JoQPO}4C1;;C<J;d$Jcubf7Y`FuUD0APVPJj5
zog|}+{Q}H7<*{^L*y<~?1P^*?LUNQ}=LnKZ(Wo<ZDg$aKPUNMbGFv6e=x$$bOwfm-
zU{TaXI6Uy#A@73R*z8igIrPTjJm*1_dXF(@wL*&F9{_ITT4bUy9Ig2##htKJsVm%(
zAIG{2SV-SCpYGErQ{QKy(`Ju7+M{mKC*`djxc;tF*#A@HtuJBGx_Am7U<kO;sB$W{
zXy|24j8Mi}cZ8DO2QGn?<j7-+oB7LRprF+{Uh+5pN_hUvaDThY88vNCZV5n?M{I~|
z8XNz`-yJ_89hJ?4h!%>E?xw@E1}~`j5YOGTeC&kCJ%tSO>iQeIC4wPQdd4Zv@RBiu
zf0>}CD^)y}hTK&YR&Om>U2H+lPRs8?j=m)<vwF%puR5jQjicE>)s9ki8)vBT?(rMt
zJrr?DgO-CmOUnQe-zz*=6kRY@QLyAG`zy@Gn#xNNtl+R9!1>S!O8L5Hj`aPPv)Ofg
zu<7&CB)CWwW*}d`v5H@=!fjg#9Z*|#(m>f*HEgYY8Xbe*WJL@*MtV$2ifd`b)I|uj
zgQ0W}pwVq-x@M{<@v8e|OJF=Xq)jVxyhMMnSG4$K9CHBcnhBibG;6<yt$sJ8wt&qb
zUcP^a`JNYO3Yt53U{@S{gj>x;!|CA9Dp-iYvTwDv0ZeiiDFR}s=N!7SvPgW?`{&1j
zI89lq9yowSAjyi+?=hDt$cL23mhuDEGZDIhX7s70ra0rj@SqTTK7PIBEB6oO7U@Sc
zBD5)rga|LT5b0ldlS7wY;1@U&s`JkFCZYHE#x0et@V~kIaqrEKPIGB%RQ0B^WyXt%
z1qDScm*MtYZ5DWZjSjc9Dwuq$B4%u$iNaJ_mJSs3&7a|O2Mk#ylnLpv<&;86+D126
zlnAyxk@`uJb1vMY$}I&(j}!GWvFI%1S>QJCru0}H%`x5}3<H`x2jBgdC<MWEyNHVU
zCkG9Mh~B%YwKmpo<kB;xuJm2h_3aMtye0jOvf|s5OrazThkwWK(Dtd@mA3Wci2EPX
zotH8rhnXq+<z*>fZ#BwZ&XT2=yFQxobn6C9JKs8Z%&u!npIPcj@RK$k(F^KtI`)$*
zgTc~!yW81ApG9aM5`TCi|M=PTecAAhyPD&^e@`YSTcQyk$E1UF6H(Fx>u1wamT{(f
z8738Hf#+za0^uFB*r2#fo!gImUfnqB@+t(ZQ{eGisj}}=yesN2%aze5UV6IfD5235
zO*y*{B0tbSV>4W#?R7?khkn^s)lSc_9W{Rn1ecAeI$q{3CjD%~YnfipFcdUshIIY(
zwWzFid~#pk>bM1ec?sAa57MCGh<+2yq|!s9HXA?R$dehl-A23j!jHHkC2S&`ZT9fG
zE|l)g=wwxXx;dwNxnW-*W7&^S`J21S=*Sm3ac)dYv)x+-Zr%xyjx#V^!Vkm$O}=^h
zemG?;Kttf@$S{wfG_QItk!61Oa)mnv{6Z)1IB$l9t!{aE2+w{R8b=Uo&f%l?6MLku
z#Q3Ig>DDP+;fu6@njNtWUrmfBE%B2T##}%Y#mWw%tNNcd3p1GdcI=cxSk-hkr?Ai@
z*eglQK;F_)tY+XPK*D@`YT!Z*;jox645(hSE8u#V#KL-jOMWn1GCN$yHMQgr9$R`3
zJ$^@O*n<x)j=5lvxh{D{3>;`r+Z1y+hs^YdaR+_*I-Cs(niGnuCrE}COAfC7_UK%l
zd7kPqGDY2FpS4|`hJRA<&U6q-v8{*-SU!s>>&L8KdjHOc0-xs~>+#W(meRkG&GHRW
zq0Ld1r^ZOHWW7R>0N&&sv}yj|2ONqW5^r-ftb3od9eTcSNefX{JCQrX29wYGZKH7;
zmy5KO5KEl?!b1q}#6eTi#SsaY$9Wy*bRdS$hslkp3o_)SFPy6kxY*4t`ailP3ZITZ
z2T&)w(&9#Ijz$nuW_U(*Z;(vo)zL6$w*J?`QCd+8NJ|J(Sa&)dTHEc;KRDbeL!jn`
zOuk2Vep>c@)H$8U#)H~^C_CP|Ub2pqP0_0;DCy<5bXr$tO(#ouxA=;*)(oF^s*9tR
zeobatCDIUtevPKV-vy_`TbdJoT~XD6gtSIwlRDh@zh1lxFo)6$SK6thjL-*7N4jLp
z<hSPz<Zx6jhj-wRveL6$&T*Ag_qYY(fwAI#TbBrdEf=*m7q^Q_<6`X-L?sQFv)*3h
z&hvJRT8CSx#4{d6yklMec8EjOP4V0(%Lj<B)rHm$2*^C)#KN;GyEd)`;dsPPr`_S`
zL>Ywv3-=V!g_G*#op8p*Zjz#o%Y>LS&R=h!3?tdM9;S2_vdx8&g~3ovxT9tvwbaq2
zFAJ?IWPmqntipeu6gj#mL$3Wc6JA^T$VW7_Z1BS`9T?4gY!CVtLCmu>CK;bax4~WN
zPYdT`a0a{3CER@3R*xyqq(H~NpCdJB1v%Cue$xPUE%EHKCZi@5)i*b``TA$b)5>P*
zdQcdXjOli|Q_^!87JCAjtE$BvZ|0R|kYGQO%-yvoJ71Y3dn@e3VNF;LFi;4_!xi}H
zwW|*vUz5GSLkXUeWTmj~t>l#el_JQdpR$D-x9s#Yu^ln2nu^ZXQ;!sutHECbQud?i
zFS)gvn*vADt|uSE!-OHJF-Ybt7l}2TGu+A~i!bwj5ATBNhp2+fr%3g8{}9OVa#+#h
zcH-hL6nf`e?d~88@(D&tEk<5Cg3SrdrFJ<HE}$&q^uAca9Jq`mp_65)CHo!Ryz^l)
zR{3$r&^228=H3>0;gGEy;z^RY-fF~ETN@q@y@n~!G9e=Weg8KyetwNCR1dzA?0BxW
zUwCX$uzOM$yhwA9=b8TLaCc?SI~c;ACLV)}(1kllph@hgAtF6dVRt|;q>`L$)(w$j
z0Hfj8Z53U#@0+dMfJVVAOFz{^7)>Jh?QkbXUVn8yDza3}aLOt}d>?$6*SrcY`Ar0}
zeEkE7C2`uKr)_*n%}v#(Hw{OH98topd!^XuzI$=6Gh`r+MqPDNaR`8kdCD4ZPN_4e
zt8&lIT#vZJ_<HLgTr|NwkpIVpX^CbMZl4ml>S@gTysp=)SH}SM=n5Ss**i-13>=kz
z>TqSU@EWP_wcZ+yXO;Rs^l$u}B8V&3`=?-55pL}hFzxbj!Rh^_uNKa)odw|}&&Ee;
z3Jb}Vb4(VQ>?pOS5pZR-*f+<|#qQB!RI`keb6y0*ONOQ~YH);dW`)F2GgDbtJBhjX
zbVBzo3}^Csic=M)0a)gR0`(Mi&p!>7S|apVCW7*w|053f=3H$5hAL;NuD#C;nK(O2
z57G)wfVk1S>8K+*R{YMs3{xwPDnOQ+IrpwI1LUQAbdGi60Bsd8WuLuXbL=PL9FW|a
zXqp+NQNM!dMIXUl#bsd!D!lu($4fU7ZwZQ2k=g&eTStAvNzV5|2@H*A3NwZh17|};
zL`d&1fFji51mt?jd)&QaaPmoy@6S}W0=%-%s8D!?o>7Z_wdgAjA&8FF%5^LLxV<vs
z1-VP*`Nk1GpP`KZvwJ8F+)H*1`*|G>Y=sN~DLR=p&knr!MbX%NnB|y|qmft<2-SjW
zzttHv_OrUt2~D=b=6iNOH@_F%9qr~BymVs3@u@@mq#@c;TR?e_1|KQ_n~Gw4vyfk{
z{+tz6;ZT3}r$j1J9GSh#p{!bxzWvw@j0(&z{q=6UiG&DLX90`|C0-2Xpa_;yf_w=%
zbEnOXMvsvqr~GdJy<&T)tdUGgEWc-LElxyJVt#bgU<3|4tF)hoi9e?d<itvo;cmEu
z<nlC19RJjcW&JMWHxQq!(NsqN5amD0O$O8dzuNDd7E9RF1x{9z$y``ANBZ++pGE8i
zTdKJUD7-~3lH{jSK%3$L0AO$c@aUZ~mJUrBc{X#D7BoVHR~+3XmlD9YIr>iXdpU5l
z%r~HDr-5*M@V_N-tYTmgUEfpA-pnU1bg%<^M80PfQ4_I*A5>`2g-_++8mZu7s*K}0
zH>*G#j=iI0ue{zY!u<A#n%I!@BIJSYIeM1%rr=hdKt(3{mk?u5rp3^!FOu~{M3N=;
z_GGO^8=MgkrNT$k6Qqm_N0Wg+62K3=35~p=&0hY0txab_6KvWEEPX<qC&tga-mmih
zy7}*UC5@p(#W@5^+CY|^u)`Xg_Zl%`E4Yqyfwj?bois8gQKvfR(w_rsWy9Ksu~u}g
zafxiv5siln+(zP#u)w<#)Aszh6i}~))RG0(LG?;d|NR71W>{T=G6qjyF+HP%prs$J
zTc2z4;^R8ooVK%Iw99Z65=D5jLaYUUIQIARJ%l5!ow^pe*P~Yu#>IUY={?{ns2nGg
zw;4Pq9QoytdC-E&<1G4)7ve4?j}b&9)X!J&2|ywh<MeAKw{MN{T&yQg^eF{Ql3Tdo
z9#mCPZU&3DXW~*NsR9V7BLdcW2kS;eHDRYh-&VWj?^Rnvc<O|SCU<gJ|5z4j5(3YY
zBUmY5!qr6ToevFomBxmvChtHRH1v`Z3viP`9A=6rc=v8}th6$;hi`hIfK_zrUuJ;T
zFIk8YAS;6%eguf=*@!|-Q)a#@S@`i&!&G3k^LAI|qvvQxgZo&ux6E}uaPvli;C5gi
z)GzIyiXAhGfZ=aaI}UmAego{iOD(4SL%e8gtdUh5j^_no6H;&^y~`zMtOcuYl3Vq~
z?4%m~VXrSRjq6GYOh)edR(9&<(8r}V0_iPuxC8&7>-FyQw0CW?wV61`<t(DJ?O_1L
zgi!Vy3S?yJ2GdM}Mi<F{VbYz{0!Nw3KKEx&iq72y1DTN8XLBx8J#j$mqgV&%EA{E!
z)F~0bBK9-($qTU~pUvG6)5A(2nhb((AyCgvNlK<u=tkQFJ5AFUrFv%NBy%Zs<u<&>
zX(|@TiW+U-F5GQmf6zAqviwu(rd9Du`^I8NB6F|3SB1=M2nTUF06gKBpb(vrSrCqm
z#L=t}FRVbRu-E4m8bDB=PhCq!&+v*>K+VJ+o7UQ6b@*B*sB*ry^57sQKDNiSG-TW8
zhWPUz0|~v=#EHZ7qq>Jq%D$ZizAl)8VC`C`kr~P{h@)?Eo&9`jjAH1`nZ^ar<WUj%
z`)S;xx1y)B4L--(_{ErQl>&NR)TK|t<|4p2V95~KdNm_iq*r0Nz#qEwoM27dq<moz
z$_gs!Xz)ikCu?)>$LahshFW69r4Qyk)utd@CXV%Zjxx1qmWT4ig7#}aiF)%zb8+-3
z$+*wbbgH|+zI2*JNFv#l3_r7J4Yc+mHQ~11f^}UTH-aus{z~~oiQLh<o&${IEFB^%
zyMq&KZu}$2#lLar<f7*${7eOQyJ<&kPB<DQ&Sj_!1N=YItdHZm--ZW6bPKRqce#Lb
zLn9lZ7pnv^TX}DZy^M4U<zb<QzTi}T!5HlozNsoKNupaPOux81cp+|#z_5H&=fsYM
zp5)-8ha9Mq&EJ}JFDlL;M}a7K8g=Q2hZ_vX@U{D1Ie_cQCF|<Yu~Q#o^=*0U>QuHq
z+!=PWS6aUGh>F*O;Mq!RTFr#5)mPEAId^*L{~oCF2|){%9nJYOzM#!?tyMZ%V9d;#
zz>`~<VHwD(6|qKhxs8hb!;c-`g6s2b>L}hW)BwOm=FrTcHr>r6K@&anK5sWv%HRQ2
zX>dDN*P6Pg^%Ny@!tXkVZt)hf+aP*fb%?Y4qg32|toCm!^u=DKI@a>iM7WGAPs`jj
zOU1KTwdv~^?ksj)Quh+{I8ebc*y;{&@Jkk5xCAKBt7(Rtq?+7NTpA-fZ9fZsQ9!b|
zJ`>stXWK#Y5(05}q1nifTZ3mUDTq?04h*!ZyAE^?8FglblH>1Gz|#2=;vt{HKgv(!
z4NwQTB8?%naaB1)RekIu*~#jk!6uc8*MvXGPr2SQqLI&+bpOL|(0p*QBDQ@W;l?}d
z!I>vg;uiO((bvmatX36$rSrkgBZh7FRwiwvrT@=!$-9WfgSL<-&r=y}g6HWnwYpMW
z1*N5zS!n-{l*5L`De21jG>0XjGkdU$c|zm|$hRaniXoy&B{}CI))2kY9~(zIhri4Q
z7cWsLzhyg2&FfM*0FmPt-86msTZbsKi@tKakq^tsJY)L+ySaV+H_#^YM81T!+`jzK
zseKj*cLJz5U=~SLbiBfGtC4^yNoHO)7tIcybSEnHRs$e-un}a44+81R85N82>?l%;
zM6C+&Eu(};EVMje34$nFW+2%95HDBo%PI8;Tx+`NPDznsMDE7C4ZpARDg_KwhicNw
z7B%?80f`=W8#IHDR+G_GNExpj-6VQUgSAToS}$1Wn@3)NQ#@4wc&I^J?Nyi+9a7^{
z*#=QtpPb^S$qnb5&McA$5;1D4#&jd25Jr~p+dFQp;`CtQE5J?@CCRg)Q=UW~WIX{$
z1B9SYAr0%Wx#4kJo>!xD1(D32RIdljmgEGFZT{aeJ$=VaV6yDVaR6{mPIa9Lmw@zV
zas4*_<LRBQ-d~~N9Ej35Qeyu@8#$|QmH&0WLr1<cRAk};%cFB^$50E5-Q$_9(q+mN
zp6qn9->S)e{*T;&^e8(%MhDYlN~~_CQ3uoQYzK`kh&5k0mFW!lc5Y8E{>R8E5TfTC
z$HdHZE2-Ix`oGqVCQqAhds_>X=Cb10IK3R5;sLarb_2VoD=egPh5g30ibC4xSVPk@
zhijUsmk;1C<_~w)*5HAcrzOikN@_voW$)nSiJHLm@HF_-{y@1pr+2{@;V<R6j#}>$
zKSm6+O2SWKK=hirZ`5>Cx6|;B+85WF>~=C@X_XMfM5E2eX1;*GmNxYj8+?~L^c0Hs
z@rWDA>9eB|=pj;47P#|YXZ##l5LAiW`~nq}sEG5lQd6AUI_9%`{^b=>ZB(#2E$>;4
zI<z^3B5|Y9YA?-Xk%=g8thRRpm2fQRk)#jVDE9qR66RW5T#z3Ka(SPKiBky^?ON~u
z5_pxwI&R+#2y~G@1=a!y0iwHFZ%ed1@?P1dxVQ*Y3OMiWq1`Ks+`ILG=IJN{=Tq}5
zx%hvw2(CQ#^(BI~^l?`a`Tu@kk?zeP0H6~Ugxn%8(nWu1@QjGoNZc3_O{Y>ZG5qyy
zA1b^MWnyL`H=%3E(K8lrOIaM<uW0L)n^-fL`s*y-HY-5F7~543m$kt+gbSZSn=yQ#
z^8GT103#p1fbp<%OT?I`#&WPj;}G}2w(fE85QYet{)zrP;neLZ2iu<8aFYN4Sf`4F
zg70vyV!oL6$Bne?@^HXWOz*OfEz<>5bI}(?cltDL8hc|L&Bg>MDsEGj>o%U3UDzk5
zrjO}=Lk%W@f*)<~r!8bxQekY>sKE=DEvkBLZxc9ysO|__E_LM+<Jy)LyjCCWLo1X4
zRCne+kgH(F_CiDrR^JJc9gv-xh$C2{AW|uLm5{bbc0>S^GrDHxq1A3!K@hKE@v$$a
zfMr1Ngn73y3^@|qVONs`LFFnRM`5bUE6=mrs*Oo~0VeUQ{pVte##RohYDHiX=i=!z
zH}agf5g%MS2PbIQ56%u17kxp2f%B6CkFV)5?6ZLoE_Q_~WpCd-enbKz@$?yY)r(6!
z=RkUvE}{T8YAB3DP`}71o#9WCTt3=m?cPAW+}SnP*G?4)Ks)_6T5NqWbFX=cdn>v~
z9tSw;ypzPT)IlFU3~ZQ(`5>)I-<K0*TnLhzB7ogJ8a^Y!y(nqfLRiTB0Z>Z|?^$YM
z_&A5wclYO`cjMcdSBn&2A%T|wX$}$ZfEDlG1IeX)tIA!F?Zq71Hv9{QFlD`I)rdOw
z99r6?ne+_~2BcI-H*||uG(4}0byR*+vGZ_=kUAlH-M&+1=KG+o&z^_YTMC-q#_2;E
zF|whEA5fd>a(JWx#0gp@Z~!RD7;Wp@Cmah#NI&mo6e8%7%-27>3#>y;U?jc1)(~%j
zp8(|dD^46w3VSGN_0SN~HB%RC?C)Q0z?Xq*mC8SK8LZQIAi~;)DvYuAt+Fi;E0x4+
zKx_b5&D@=R=C<;g7l>CTR87yc^#d|&@n}7Id06Xxui!UJ(QUoEmph^j>%F>w<mAKB
znAvd3k0p4yP+`*Z{eqbUG3rv6fmFuhTC4H}F@vo_2z$LJ@F6-qr`!^FnL#q$9S+%q
z@6h4<ggm<AJ)UL3<Df!83c*}Df6`3akRu0##%@BkTCowbAF&kK&Aaf^+_-|1^K&BJ
z@5M;}7V6XF{Uw56`InR8W0S)aR3~6z!b@#23hCY^&m+3^DVNT}b8mJAk!E2L$}Js}
zASPyK1%EOF*#8(q9hZm-qBxy_cQG4k2lg*~b0hql$%CiZ-7XJVr0EACaU-0k9!mOk
z!N$C$$&kzpnco*jA(t3~;WmA5xE0D9^c1PURxW<oea}U>aaOi)6XUFENnp+uYp~Yz
z!m~IyA=1~1M7XlV_oHoc^CAfZo!t!};z(|gq@958y9r0_F!>~CQJh}MT+x+&hEp^^
zfUlWW__loN2v2f+CaVuOqq|!Y3d0UQD&d8Va}WWG;m(`bg$(c_&jR%-U)E8BXwFDM
zi>`Y6HScaEkwg=8XGBs^A-G6Klvffi2X4FZ-sOo`KkmLq@RE}QUf7Lmu*9VJxx;Q>
zipe?X$1F>BWsdrtUkwlr3NAf?TWPFwBxVZFQ5Qb*$U41c|6z!nyYB`OW(50C9$~b`
zC2J-vSw&qgVa=n8FR$X=B|t7m4iq_M`XiwL>@&xNYL7u@q<?6UX9uAis4HAnD1c_Q
zlseKRqV=9y6aO+2=?LYpRXrWPHqNYwGM3z^$ZbDU^NAcHl}grrxze}tUgKiGUcyqp
z=sK3C%XyzuZM7S&@CW`^3Xs(2(K(&n!oz}d58^!~)xdALEEe~Ycs-`rwDWCf<9e}T
z&?sLc3m5!kWtRSlo`RZZeB7+vpGZ%}*3Du%ew3hbQ+y+`F%_=rjrZHyNsA*8z^akd
zVG2s}^c-wT4nE&4tPvtMMZ)Gi4zz|R7KdTPe&ZPr7+eA)N0pnk35D5i0M!tO1nrLY
zo3J=gY6xVx4wFZ<YC}!Df4CiAHFe#}3-UOMx9-1-#TdF}bx!y6#+QS=nT#3jTdAzP
zQ5^yH!(p>3ZsX+7-6D)x*`e05L(yk$zpRIf9gE5SDV`L8eb<k4@#cRHNjz1HRf%e*
z^2xPRym2Ihjk=9sx9<2PKoX{YhQYRHkOW2RvN1kPejMqs488mHH+|zIyJe)lL(!0l
zd$Gs>H0E0=aXyAB*oZ{nlXp(16Ih&iVM;I<cR%?TLPHegq_td|uE!sj#6KFk!w4v3
zdOt~EJC5)fXg&$*{`)Tl0LbTV&nDo>6kEZ{O*Y?cpqBuLz*APQWO@dfuUgmv4wVZG
zNgFaPJfP3VblunKa=w_qV|SnmBhk?o0lV26Ix7<@haE7s84ojG(p$Z9e4A}OXw+qO
zqClUk<Y23NVET2-!jJ00h?!R>%f!%9HwT`{l)TQD@=O5MvKpb5>_~^>;tC%T%)(@O
zQ8TuVFI=pWBT9JPTya8WH)g=)s3`c88Pc(52hOjxHJrbB?9(n>yYp+-6Iy9e6EA_X
z@Npy#nexp=g-F(Ob$(IoyVFvl8}M;$^PYtgLA~2fdX758ncer9t7IuG)BjzgFb&sd
z>>cD{_ZUr@)T7{1`61^BJ8nJORwn(@6;fp}j))Kv=Ow#k!)%U0@s^uwCdQh0{-@!#
zX!5(+b26{9ZnUCayVzf65*57HJ2+P-cV=BhW|&Z$ypUn#r?LED%63_2XNgiMNrq9A
zTL78Rw%ry4^vIONrYP;(yl%GjTE{b0_KN|67rqLJ)2cjB()6V8d+9DY6lce$T*G?-
zW!ZZys$wzC#qA}6%vDr8OIf!R%j0B%j*^OcXq%+J;}%C!^$K07(5RnER%HBOy31a%
zOo7KrvV@SW3sLj5E8qleQBl8jh|lg%1u3ywo6hqstF5-hm$P<>HkLJfl_QlZUDA{A
zfQw)DT(X7xdPpC_k9xw%H7@Ie&40JSL04v}ATG`%!A&=SC<huvt!l}y1C3?(JEmh7
zHr(AAY<LyXbZPi2n=&EP+Qr|K{VnVlWb`f~r)f`Rg%&OWPGcSyO^&HMs_^ps9aIMe
z{N|YHV9q^wLZfZHv{KpG6--=EmH|i#o{X0`lS2*463?oXz#J5q?<dsx1bxtwcOhDz
ziy+|M$Yyg3eHFt&pPA-><>+$CqV${*^|zHX7+a^tJ@oWgT?*QS6Y@B*+m?MF{fwtx
zD6lOuMvvl0<=KdzBLC9Pl4wiMMNg|%Tj)=$RAwbQ^87asBgV;7`H;BlP8RLkK}#Ni
zuvx(Jt*Sjv3YmIq<_!G3iW>g28`cjodj?)V3=i|;l;EPRd+M7}aGLc)#9RyPWPiq5
zIoP)K74;+eCCMt^5(|2yfrke{DfuhGh8Ut@XzI^sQE)*Q`lbYo7yx_hPY5bWh=X=l
zPM6an_6S_CT;Naw_Hyaq9pfjudt{OP79NBLB@hjjp!Q4j{bq~=B~~Ttpq%wxu)fs$
zK}pS{@=R)abk|ipzhA_I7_K6xhiXdyR+4T<b~1&!>qaH1Oy;)R^p<$P1$luWBGugN
z1MgwXE|X%5fu_-il5z6sv<6w^eO&p~Gh-?h-tyKip|cbYY&J?c=0;Q~Y(a4Cl*vlG
z!X$EH*)B968^V%j*`ieDB`mC>7P)%uS22JC2l_jsvqQ5dmQ4}tmP}||blUFBm%&|0
zD%%{AX1hQPKdc$--j;PH?D@O`IQZ^truS3))7BB%1d&=ERl>Pd{>&w6kJBk90L2|>
zv%#f-;N5<8Q=&${TU0yGer5pZ3xcSl=hI+p3nQ#ae@ZA;Y&`_sQoVd!H|!wg6YQD~
zEC?t;GKE(-_HTO67zT%hQn1pG;@*Dt5DYwCAte$pXC8}yXovi{_k-<J-WWc#Dp5yt
zRY$K#y*x<zCrCOTcFAcI`6Wogpkk@}6u1pJ_^ui?mOMH3I%VT!9=E~thm6%gn*rFO
zpR5Vi$49TRe}UzQf>a<<Z(=_Mo0eyH#0Lw60_cC1F>K6VY+<P}+M}7K>EE7W+OvOt
zO&2-ir+t-o!+?3G6qVnGY(`RF#}}ePH{~u>3eCLi1TO&im1lD@ps-;)*EngXIzQZ`
z`r%uiByphW>d4airSQuULnRxV@9ZSFK;#JSD*QS>ioIDa1zLx^v<u$u-@2>~D)$I-
zBVH2Sm4S!29m-Hpioq`}m$p%+X~aE$m2fP3!@wZIqOU-2_QZOYFXucU4S9SKUL0v~
zL25H(jgnA{=36vzJA<FepE>LTnACA1Wh(}u(x>DnIDQ@d2PS{MW#=z4#W!%sp4Ink
z<aCKw)!WtjJs+&Au1}7NkQQ-(iaErrQae!ybP-V|EKz)OptfOE&^wdx99>P*h30J0
z1;-Zrbr}E^u78xPe|_L_Aw>s$RPNg4pby{G4zU%IBBa;mN$(LHE5J9VF~kXpr+8GR
z(kk3<l~xb{t_orC6C#PB^zi4EjF;lP6(;iw(&KYlUQuy9hBmT5dY3PP4?hjT(B;AD
zH$Y=jma2gB@*Y5Q>ndXBP(z3R3mb|K55AnHr8Pur#x5Yi1&2iwyM7!kC@zws>*0>~
zU#aV<q2?th4emU>Pq`QcW?A%Q41;UFi)Tz1vRUu-qhxGY>&<3+66Vg-Ea)0!{g~=)
zF*VrgR`r^u-H1XwCew3ef%nagWA4v7kgs)4!wX+ApELuqfPZNOYAY0eaZKZ5%S?Iz
zD<ya8nerff{mybIZx4OMsjESqAAg#<F?k%;c@<;GJ*e!#Z3Yc68-j7kpaq`;3OzF$
zUKbw|pCwERBuOeemesrGoOvhS8w?Qm?;e|<WsSO5R?*CH8ZnpEceKZxhp;)0h=GVc
z?a?QcQ&i<4SuWIvV%L23no_7eo<~erP9Sn3^w0Sl4_^%v48B~&$O9wVHrqg)pWj|Z
zccCgQio8xBW}qy2D@HX*&6ZCC5FAPl^NqtNT1(tcT2M@Q>i*f?6&#+EZ4duqE%wTZ
zr#=7R+zDD^F%C8Dz>Tt@Fr<re|J!_#5m8CvywVB|h=RBrT>KBa+uw@@%)M+mOd^yG
z*(;??%lPYgWHKjz`fx!;_$9TiGf7n!o*T?Ht?n?}s7KxJh-VWlY0j$M>kj^D{2Yj1
z186p6$zbyJ6$OhXf9tTKv;pgN!FQwSsTzwb33<$D?r(IOp?$b?74;`dXr1*Q{%!*_
zy_lHh9!dM(Zb0eBJ~B;?9a-kH8thuo3eR=b>A^Tf_Z46qtd2P?o32A6zDq=BI~@nN
zsBv$7-)Llf4v*>B+#NQ%n*lrA!Q}%ncxir^gj6TJ1R5Nv_pQN~)^=N9=p(ExvpXd)
zBzw$W=Ato0ooMBYIq)rN*+J;p17PiiXe+;ED-SciDU8rdngIE>&Pc)zHe8x8fwq`|
zitjsyJUOvp%Fus_p@=@#3i7>>)MRMMdF$jG!>kg5+FS^3b>1k{^C|E~`yJ8EWNCCp
znspnImMz5uyvay->l>2B2i-TM7jfoht4<593_c1*qVUruigby#59lQOD30aXV#So6
z;19O+EQW;LyECQE3(7o){Ke>)EQ&CbXK(82%!I2qb^O!XwQZFMNMRcadHE}e0pPm?
z{TiUdPnB)bTXG+6ESpw-5CrwZ@F!WRMS+^tgSyqeTfdI457{?4S5KmOp_H&}TjDEd
z(Ln0+vhGXyS{BUROw+=Evsf3eCTvaPaDdJ{971!+#!1XS9nK>r(K@w{`(c6s9Z@}j
z=gOpBw9`%OjTP4glgY<oD}|hyS5A1nd~H1v{uq~jV69DU1UTb_C;4suT)OCg+0;4M
zU>?5bQd>TAxDgz9La<PBK@yTpaWUhSHq3ugh*Kh+%+fuEP<6x<^nKTE=yNt`_RS)I
z*ALHyoy>U;lWitB2uTadzZ9B7s~m-ao1?n+2%|%A)UBj!MU~oS21m|B4Knd9ewzj3
zU&?vIb0Oj*usj`K4o~S6XM-#E7jLlY<B@M=n)to^+8DmUgat*NkRY|ewtK2@rlN@K
z!Em;jl(2@2MHhj>_AlI9f@d>NU5O?UHP~au5&Bf`kF)wXD7nS*08*LWITQ*LjYA&x
zxw%kGiyG;_1&8&`jctghrN4k59GC#_0Y{8Cm4QM0N~szjpFEI#e!l}Tm%OReE?PYQ
zR78^}cHLRY#p#6|ydR~+VEN?miJsVHcqe(=Orl$7*YHJtmZ<SDuqex6)})Uy{qlAA
zklGygt>;Vw?j_sj-v$9BBCvA7y&@si;PjZo5s6;<Z&&l5zoMWb4qp76+BQmOJKdc#
zw2riPY|~5N%1i4rHUP|c0jRPS?p5&p&*<6g=nos}q5}jT>t#^(MZ^oZey4V!bhH^Q
zF@$lbPHB*Nqu1>`S24?t=_YZAyAEn@{rG{#U@9yEIqgFCGLEIUM|357Nqz6fdev4a
z8^zw6oFw){iYzd3M>qB38?NVx(>uQI?Z0`n%+Eg`hSoh&-BT5}zqqJd<2P%F@!w_1
z0*=Xoo(okBB4`b}7G)qojKy$1?3wnsoo*)vn&XA=vt*h^PTHc1*v2<{6cDN*O35nH
z-T$dV{+Jqqm>wsBk&Ug1-Da$R8{DMgyeJ0r4k@A(!7e{%8bdXw{fJ`JluUQ8jPFy6
zl{%d6fYWZEoNo|AAg>oA+j2GIYlC4m=?WK(|L2u*lED<9hG&rpmVX44(wfhP@>R`y
zzda4zHn75A^uBzIvT(S2hCOR#75Hw9J~)q0g$WF3omJoNrbl~7(YygSqUGoH@H+<=
zNc24xbloQTrAb=W2=Z)Gh`~Z9!VD#MCVjsFr@0x4-&LwB1PF!fPHyE2lS4YzV{mwz
zNi1~gg_VhP`KOb_dhMVbt@gaWbM1-a_Z)-3ULxEt{ho<{*#BFBGu~vqLx_$4*WFj;
z^9Mw~=!6}otNFx276!Kwl^sq6s1AIy#_blndbSX9o`>8T7IMOoi|qHQwLet`%<Aza
z$O=it%JeY@$R9l@x`&|_k5hF6!;LSS&X$D2ih-?9f4jatmt~qlq<*KLFRoRPq}!M$
z#7XiOkMN-njh_k=#<H3<{w4Lu9_D)c4D*-o-sKw7z;ovk;c5eBH10$_YOb+)Y#$#a
zWcZG?NHFY@fOBBG!HVEC*8mSEe}S2&jQDzksG>nAs6mp!2KHU-A?~N-T}*%8=+D5R
z5`B@5+ak-F@bs~@h`8O&y$A25j#Zaqv7clwVXW>N;`qI5k%#BBuR)uC=dQv)d(k=f
zygw<4N-6qOqMgQWmQvm`l(A87`0-!&ArfZ)8mso!K_EtYL>y1RTDS6Pezqn#P>h<D
z%2KzhlevA6SA{FG>d;*BiJfZ^7it`4q&Bu?kMTbz;0Ex1wFz@+%U(vdjc#3f!h3o%
z5^j4L_f*zIwDE)ZZ-lX9=Wj;p0=o?cdX~{lP+~o?r1cV*i1vXH_2HZw!59s4GBRp*
zb44e%I!_TxFS_j@g5}i|UO!p)j6W-a0g6B$pyzDRF)Sb;4nxi$W1op|zR6;Ri&>8n
z3$NiK7CXJ{>UusT3kh7*3$47b05FW};XFIoV&4<J6lGBOz9cU1IZwlyD)0^UY{6R7
zcJ@e2H`}wE9Yg-^^>O(Q3pP_*Jc`9<tt3%r2lX}qUb-WR<*&&uTPqI@I3GB(cmSy_
zQtoE{G2OC)ZhF32X7bID#<;v_YYxJM%Ne{rXoC5YP>+7pT|Vbld(yY00QCIH5g5DG
z*V;_w55A}hl7o14B#ah>GuFg2OUl&}-3P~762y9?t(e|BCS?gr+$lS_!#eI?w*lio
zu`n~`)uABsvnop4c8vHn^Q@S-adpJx2|KAEBzni9;Bu-$%v?Kxzvpvox<uJ`xi*4+
zxcsU7b8m-GxVG~HEhm|FwGM?@ArTPzdig@Sics<7j<JDc_v7y3p+%GbKqEj4lu@xt
z&)v#(iy<)rt7KzPPiXhX2xZ{vjS>ifO|Pt=UaGRS!GpWHS`8PqoK<Q!H>t6_7o_%-
z#Ak?jk*qp~T!@?MT0zL<;(ufH0JM<QIM*W%&IEs*u1vqTnjS9bDhy;2(6I1b6e;)C
zxKQXir(K%`KIU+bARX}vaZsUwu{&qJ@iq6|bQktSG_bVfEoaeK|D5NQ*O$o3c~jD9
zx$D>Dtrv*nD=f|Vit@-OW55?<*rn_=JLD8jtwUm0#VGyXTi*c0v9-PDC1Si!LF0D+
zX0;3)nteiTzCLwI2E<_%IOuX(DYH9SXm4lSOXRu&j0;$(%U<RWm{x-5^JZqD4>ADE
ztS(p*OCGbpj@&%_QU6!!hVy@+ZWvh^IsQL&!_LCW_&+OV0*3$jB;a6SXZU~64FMFr
zn5B)2sS^Rcn2n)}sfekuy@@FlA0L#ni<7CLEtJP*YzsIG&LtXK4ah>|u8|0N#)9~>
zT+2D>Fhj86^f*TDc@J_AGGWB7w1^9#7d(-aL<C*LF!{v4vu)=;|Jpn4=GEzI^K^Iq
zFW=Xxi86D70szsCeicQD7yt<b3Q&c`Rd7h)00Bfn0)>o-<RyeS!T#T%NRC)T3v~`C
z$`^e=DGLk`=U7T%hBe1c3KD@OSU`YC0D(g#0!T^%1Ogb4pg-gYA!)!A!dnLl0d0hW
zNTETUNRCtmIz5Yy9^li@jK6Qt`}Id40fUC&oxKYHP;(3{J7__m7D5d0jHj2#HUyA<
z08{92!|q?zAn{GWV8=uxq{sVvgb<D{sG|ATrfzpYJck%y0sK=a;jW>A0R0d^E(G&+
ze6t{t8~|bPjw}3a0Mqb?fC9q+YXHFZP(s~$=IsOp3@is<j(!1Q=z=RC;a|wrPh<!5
z`!yQ?0>Sycli$f-RfxFnT$sjIQO+)b1U-im-hQ~a06-VjRuIO#j4l8Oq)%#uAO}(1
zGvRGQ2aw@Yu6_42gn+6+V1VPSef?)0+XV;onCb#*oQLS5`Ff@`Wi>&eRE61D29nX#
zb9Mho2bSqquWLOaf4f!4$VY+CZ`1XGM1?MWk^(zAAu)+}WA==&M}5LIga!T#UKn5m
zV4y%G14V#qMu1bxD}v|h?!t8F>vrU4=w7q^v!fs<z;)f^fRBM2gEf8;zB&YV41i#_
z;E#{*_M<&CL<o?8L0d)u><nHU$!GZ&YYeluvEE)EmThDM!0uH%2!QXGkFWfb*6sod
zlEJI|`@J{nlB(*GKY{!|_@h4Gs3;2gfcSt23IPEP7!UwyDIk*J0DwM!^@ZU6ze}KZ
z`6{qQI8cB;%U3U{Kg;!>`meJOYjzL7zq-=kPBdDW{-^j+e4vqlwl)2NKl9Q*xsN~O
z_j;;7_Sipr;VL_bVSDyD`@g?2SjRBp?q8^m)f((mt-sBRD_VhH`wGbGxml~B0tfc9
zzZWY5f;I1gfEMv@Ua^j9s%>Pjm0)8V+~0^3c)Mro2?Pfc8Tb>Zzn3Zi5CMVxzxO)!
zsnv_m6NetPV|(;#FUMcs5~xKq(4SVrL8C(e2rSqKA|O3zNevm8ec(<#QHtrO_Ao%9
zAPJOHE>H*AIe3F`A>^OVg)5Rm{*<}{{s;(xaX3HPqdvd`Yk-rmU+@F~2*UcVFKh%*
z;1GpBQ~i9}V<_i7KlWcSk@`ey-ap%503i%;mg_#JfVBwl%lxb)0783=PxyQK$^X*k
z&o7IAXeTc`zs7%lh6W7s8MF)EFq5x(5yrL>Uz)8z$>IH@+?kTIu*oiZfcc&-;ai}X
zf>8FVZvWYtDukx@up?irsCmdApsV<N`dXKegWAdXExvC(J}DLay$fP2>|$H&pV!es
zy7bV5%>jkqWq0voy`zD09klDYSveo^J0ug&P?fVhUdudJUQ=k{LuPDvHfoW3<h?Z6
z2obDNo){WTBbo-u%(DLA_{9BA$#<*0<R8lu7ss{T3)E^eB7Q`Dxf+Q^_)qYIj%Q1|
z(x_pBb@iAW7}FP;4)S)e@y;I<cBNK}GoLAF^#$QeWtQAxYPtDA2--Zm*j%6H=QqOC
zbhC<-cwk<HI##jg8L4V7Bxgu%Bt8o{KW|yod062{v}|?muF3oAoe+^+jJ`(qVr!y$
zxo>EI@Upd(`W?N%vQoIzP1-a$pxpIw(KJOCL%n}YX?7omeK(8qNUp-n8Pi&!rKQCC
z#lCK};`^^jgj@UGbAYjxz_NFd5N|iEd>}8sjkai2_0G=2sF%|Qp}B(_^9Ur(sykUp
z<ucQAD6-n=Lx*lqc7}t-F{bhpv(xs7mh;57{wA7T51|?C)mGKDYr*F<MQ=}7u9=D(
zsX{ALJ`*;R<{_6L4~}QD90%3Jb}d%M)k>37?Sty9#D{*5A*gtn-9FANkCzs6O%ebU
zv>Imi1rl;a!5&hkdDYnkt?Zfz<fA5_b$4aIl&VgBsqk}e)l`ZK<EirQBnE^$1vX+Q
zw@|{jZ(}zcE={;`0@W;Y^p&mfUj9zmZuWPd_Tge}Lzog^cZ?pH@Rzv;S@t!khx3zq
zE7LvhA1>G^76v-8H|TrxFW)atn8y%MF6Wsq4{zyiqxopB>$tPhJrKo^t>{<YLD(r=
z4dJ3Lc+=A$YS2y)5uQw)-Yg^3v_=ea@>ozeG-C_bqgjPZoj)1$pC!r3lrFNH!PqHx
zSRN*&#n*bv7|GI!v=yt$_5n6;EPG#{G?A;`Ojlh7ae^*QuZ-08>qXB7%G2s^_+H6y
zfY*xzux>lz*mcr#n_gfleH&e>?)Cpw%lJ6x9FOgX=jxJ@qh9-y&p5AApS>LSYDAwQ
zp}jS_HD)^!#Fu=rc}WT)K=(Zi{RW73`8*qD!wHTcZVcRDaUM-CLUPST(kQR1Ym=eB
zKNWtF=wcpkSt8x-jq^&J70n=xTrl2c9?E`w#N;zBeh9*|qiXoL$_WGYArSo=sLhFG
z_6uJ@(Qsi{&hec6^F--1sqDy=;uWM?%Qw*nda&A7_R!<DYu!~bi^cZ`Dw{z;-VQ6j
z2OsNR9Db@HO1z}n^x^L`KP~^WT<-M;{w}ey!ETOa=qz|Jqi#Ni6QA-;KWaAC<$RLO
z;KMzmRN+*+y1YsmvnDPS;WFiY*bTa&6L~?q$eVPdueUrMU8X#KIPI0Dhi^Y89Ja46
zm^ERHx=#BDJZnXlrgsxMdUWa2<exj&ej-Fw=Wpm~O`#%;;8xuiUX9k0tV(f=8BGl$
z-*Z45quTQJR`b>IdI12YIeqm0)E(9662k{_J6=baGj2Vj9u2*zbZJKetrUj!CP})W
z$Kn-B{_#A~a)?f~t2-{o+ES3#@O7D-^mQ!qtRGBEkvMx%?j>IQ&|p3NKa8D2j4n*L
zZriqP+qUi9wyoW^vD>z7+qP}H`)gbG&rMEp2WN1HZz`!-4XWx{>sg!2^G$!9k;%O5
z#W#Aoo^&gAE^&;qtw&=%>C2=OIEbf?wGgJ_>sw?>O>@jz`3mk@a5|L~>&j)MtaI{b
z&3N>?vh_rms?lN5y+JBeL~kC;blR!CAdb`g7iN>ha@T$Mb%yQh`xFdgGU9#tH+&Io
z>5v?cy_XpUY%vrPt{AqA`KLTsNm4)6F;TZ<N;U#z%D`yB2jfKA_`g=)fgczwqn6nm
z$9=bobj_nzIVVEqXV|KgD1uV8EaU<;^8^{#M(bz?s`P2u{Ud8+e#Z<^|EK64UG(6C
z-PyP{XQDahL_sDGHoUfh%8>fTLBbauOEeF-R0n*6Ks|cY$+hNhABFh6W89Pf=wOA`
z5{SC<g}drA8D8mDWVIbx>ZEfGOc@4i6!|3sr7{Op?`LNgAb<0r@<8*KTAHR?sJ+kq
zbR^x%e^gLcVX|b{zV)%d6Y1c%YqETmV5c$q2>yE)4zt-@jbZpj3M*BdZ434VE9MWI
z<K+}>?i8!p&e6w+WLmNO%VO7BAbz_xlwlZ0oPCmT1yGV$IwAh?WVkg1Iqf|dzv;DX
zs52AmHs&6KHU4-@bLU)vDdCyG4VG!d-_3rbk0v*ivKK$LNI0!O6og+^EDkL8!4OgA
zO3mE0y}C&ebYcl)ULFBO+i)y;H438T@#hYR#Va0n$p=zi?*x9E?(PN`dQL&qE$^<L
za@QtH^;jD#10I<0ooU%Cd~Nb^JE~zE<X=M1hPGlIA}imalR&oW_r{Z16&0xydT3u6
zn1t3ykz;YgR<Z4>*uBw_-ED4%tYlWl6+T88Tk;GHrGk`(3nN7j&XU4O^22{%5J$_D
z-rju|n4ojt=Nf_0*SvD>vCh1<8X7@`2S)yCCEjr&Cxve`BJvD%Xs4@u^3!tm!nJvj
zE=}-|4rV9IRNW9{K~0x^L1FmgMUw2xx*uTjwYZC=pA|Xq8m1raO+-pTW15^Ip7yk-
ztFf;06)O@p0TOQ1+bUqJ6%*g*`!svfDuBfF*UA1&cDyQOTy!6;$zADG6<(sBO`fe!
zeB=_zU%OthcEP^4Em-T4ncOv)wB#Rn!7#5%bA4lIaGSLskE-Rm%R9v4(13h-d0fV#
z?@T=c`Tny|%RT5lwN>vquH#c9YI0*oHGs_8pVioCC@ho{;Yi`p;N6bKE^B|q+>5Yv
zQ6j*zUjs|M;)%AVd9pBFZJE+e*#_x4lc(^wXGV6k;WEjjq%Fzkx%Rda7FTSc$lxIU
z$bH|jEl5*pMesGgF4Ou!&VcuUe18kfx!Rxc;R&A9H={~f(&aQsgqM5{y%+Y^%s{93
zvpgpZm)c%kiy8<}_ODR((P)bl%Kj8(9=fC=FRYJcr;DOGrje6;W&H-}q6CX_lv-nY
zExivD!c|1gG8avHr)6A1AB<Jun4-DecztLJiUDSvwUQckBW;iXKTJw#xf~%VI9uUt
zH4tb;q^UsZjQLSR5o<6LR4EzDz`KDi5AXxX`QBs*mfQ`!$U1x|U0Dhrlwi9=Qidqf
zyuzWww!~7=sm=G!H$g{2qY4Sg!tK=#Zc8<qI#9)4i?08LR~VF8(ob|K*^Cgb7=3s7
z12uvoWfKjD&w!PR1jyOvD3$D9KU0Mp!efxp%J4PNq<RbY%xpP=D%-+*>cy3$yy!%O
zdp5C6sn#ib6a;BH^s)w}As?ZcM)UCMXiFjy%FGz<CX4=~rbuZP7Vk{M;N(;lKb9P-
zj94`*`1i5bmyBobVe+<DOBmfB)J0--(rtrFyZaVHX`~zRulqhEJ36QX_!k=HDdN0Y
zjW>4&WmvJ#ELfTv+UG>u24>>vJMaea+-AuGzNFTzOe;I#sBn!_W4p;pbhbY{F$Zl@
z2{$d3i}A101@YR+Vvn{zd*b%D3HnmJ=v3od<_$8`yub#i_}T}WfrxbCDu6<9oKX8=
zj-A3yjG8{tyDgiD+SlIpKeuW$4eu@CFw@>iCW7v|xp9r(`1&i$!S{zIv6O5>r_U2c
z*Qpo1+tANdQQi*Z3>|}ui%=#q5c?|clG2P$a^x%dbW8HB&_9*f8xD4%l4)nv*mQe<
zurxJsE>?_gOHemBh);C^#C`b>F5JOI@#4T2cnjlvSwNHR+&1@Ee;W((^Uoi<{aN^1
z`xp&d&fHh_LTV#xo}5x12AG73!Z(T9RF2nc)CPw!7)xp2fA17xstroq*COB<vOUra
zEgTRJe7F8yT=n)j5e{EGCjqkJ;FOF?wF{|1xwfa#nPOJVHG-ldh3fsC{<%jIE3$U4
z=s|OIc~-txA|1Nk#=8k>|FRmN*PBQSiViR)2$HXe1Eq42&V6)otYJnzYL1o9XH}D#
zHZq@7bg+pP#Nhu5T48d}-Z(1WfW;`#7RDZ>Vc;p54b7dhqMebU?!@xT69y$7^mYd2
zsr3_ZKycO6_WT3eg|1@F0DZQF&lr69<eD>Qs2Gu@7NCn=M_Mmj($Yb|M3u)9HvNHd
zSC20Z9fHh<xaL?;GBw`!O=Zv{2iC?9#jIj6<nd<C&_ku2OE4nfo9q9`tqRpe|J_>A
zgT<2Off3B<KEjUSIw^=RlfFpEImsBQ&an-IehTKA@&I<H`>x0RQ^D(PKsj55r2>t}
zbv0B1o!2KEC1e@+ZQ!+GzvU};xi@GN#WH@%QgF{~o;grCY~bS}t}XFWP*yBVML#s0
zN)_({n#@O;dX_?^HAW`3$P?_a-KqY^na^Nx(H9FVS#-dn<Z^6$l0mX?tQmU^k0`*u
z<CQFBq2n|1=x6D=II9vcJ?aazI{x|jHwX<3v10~C@$)ctCb;mS+*pf*)ZB;DA+Q6g
zk=JV?^=2OBxGDx1aWju73k*oxI04b#?ixl*?7)R-Nrwy){QR<OK<1pmjC0vbA~LF{
zfuR!bc~^bMmF*qvEm_^aU{SvChxtNbE2D@th>DIzl`QV&TL2U*2kjx08AG96-sonP
zbV8kWbU@R>yXa|qoa#u${d^a-Z$#z6e3G@?R%#jOXok4)VEM0#`sb<!n8!L)k!-T}
zeOx)8-()8*B3F-@7ne*-ef>^xmL=QB^U9(^_~jmAco#2Y-P(dvZnk^d$%?#^j{5jH
z^?RspuRqyWum9x57&JTjTABdf;f;4a4twMVS+{Y_a#K3OK4=$1!RoN;VEJt|9Idxj
z2NOqdT<@UMM5W2Au?0#z8!(9qrFAUy!JbDRSBWXYoXuZau{65NDH`UsT1%aGJ<TxT
z7POsAPrgM+uMVIk>r9_xZ`C?D<G|i!9hqF;@>%0{1-X7-PyF|%bjIb2z3WP^)wJ2*
z(6p+&p1`?$ShCUkL9Ptg3cjLINwFyMLU-~#j+-#B<q$-)f86{TsUI5&Mb`(;WnZ~R
z!YzX_QE4H!)$mV*9GN>rRmj<Q^Y22hq7@ViRzp#hUlWa4Jf9qKWE<tNV)*?zKH^fr
z0FH+5o*L8qR{Wwl-9`65$QXmi>xQ6+uEkM#&hU<D`-f8vYZE-f04+x$tJa{1>`ANa
zd;#%X66_b4T?s>++?(=*I)D+ie-tvTB)^xgxd0zaK_Ya<UC~cc`m>|V!VY4Ui0Y^M
zxwo-%^nO8yuk!}v22YdqsbkRozZ8d!$QLUk1{MLMq_}ZNmH^dD(ndaqs~tHWil`pn
zCb;mcwP^O{waV)^^?xG6d-F(eTYi<g^@$2otC+Y>n0MvJTk{loQE^;?GT`9Ym;#i6
z;Zrr35LPssp{K0JK1K`vv7$h)S{fF0n65;p&?B=Jjkmsw3S{pxh7|TMe=WzLTE4L3
z_7pI_&5kK*j5vCU8{D+rB6g=TiLUt5Dk4B^Zn5(6wzW2pbIB6C*}gKQ#T+h*`(#Ya
zllplw9`%N3q2OIpzsT3J?KAi_usomd#tv{@%6{gAGH)mK??z_T-FxR7$1N`-T~C@?
z1QYVS53fzn^ef3a*p?O1Q6ywwI9!<1;@S$~2mnL$&=cXZ?QAKqoTXs=^E7oy<-Vs6
znaz<HG{2D=dyQ9<!uA7$+{@yzzGF>P@E)&WW2JbLT>z%4i*NauID4Ldm&e<@>#m<p
zE<K|ZW^By1rH88Za!akG#QuV7taS<5(|Wn$f=pD-ZJ=*nJFWu!g^<5lxcbMZ%sXY)
zYd<9HDs>UzbLYtj><tf|pdIS^yf%`~EIXQ0gaEQ}9}m%jCL7x~r9trul0K=bWA%no
zW7xan<Oed@-wDrz$CS68{r0pFfES@>#d0OX8pqQ)_k_(29ruwdbKuWCJ+93YRF@k#
zWl$V=n<=ElgNO#M<~Pm>DM1X!O0C{O4;M?p>4(~6)R^CoJx4wdtNAIfKQR87VbC4L
zm+~m=2%f_$uJ`J6s?64RYU`H{aNrSh4e_&w&w%I|d<yQSTz~3Iy#sg?q9lahVbO;s
zX53+HwoXi>{x&^Fv!&o5V`g4p$hFgJ;Sq-Z3};W$!5rrHD4%tD`xO4&R}8`J;DV+!
zL#9Kb^Pgq1WwTV$y!4InaB-s21{Xdl=EMuAcudsMHxFXLqIf9d8s6(q4|<f$SdIGb
z4+YaKWcS9d6qDzs`Gnh$)*tbt09UxBaGFHS*I~{UMj!9T&YL_u2p?9^_7tsUA_PyR
zn@5c|)xei%Y$)^x{J7)N)7lKAp8zcXG?R0Y9O@t*{f*_Alujm%nD&#_n0gL`Yw`;T
zGD2Io7hCY!KFdq$jl%kr(jd0>ln14}QXs)ST6r_)6h5Xac>B>TLyEBlSy844KSjn4
zFufHne_N~bEmi=;^xcnPA->t2bSV!p_AAsxNY5}9-$Al#?sF663xzGs3qaj=?g_g}
zWFgvmHe0nPer71CrAFI5ro<sDm`i@R9URe~evfBzK)p8O!{=$|Vw$~WUbvNciHD6D
z5#>{)F7qssv`pVj^RYjlj$1i66PiSv)=?LMl9bY?$LRO#{UWAh7*khI8Nr@XQy0Gt
zy?%&`$~efljEnKGzZLOW3Q&H(twnM1t?Bl2R7`B^3h8j?is?ED2A=AE4u6{7&Gy4P
zaRn?lvkW^kU^Ys)QpA#|fPsZ$ENl(yxwp(;B#@cV=775zE0>ID+(iN9(uFm=pXN@z
zvT`bzN&+(o9?Wml`j+~UB(N*P-hNQytlwD!!5WnHMF_W1!&q}W4GaSPnT^tv6N27o
z%GsVCTw|TqiuKepW_C?Q+NSC`ca4vpn%KcVWQX>gzxc;yL><-1opNKm3wFDVGy5!p
zeFMejt(ev(1kTzCVt0Ss5;6E&PKyrXSzMhFE#%!bsK5Z=<1(g#PN~K%-MEfQ#^}Lm
zRa=BwJU!g_a*A37$}caMz<5>j{h4PvLQx1l;sL1BpO>3_Kn($ZjB53ipGsS#J31MT
zp;qv3VKT9^_xBRf93V0DmBvm&d1t#fBul7i7wdl=iR^9Q(9TAh6u!Xvtl2I?8BJgN
zU~x+eSDn|sdx}SU<jEM%{4wkoByqoL79fD$bOeeg?HR)~`rsx6Sx@+{@@;vlbA?Or
zZ0MYS*W<kN{^BVwf!oM)Q{u!_7aLRFHIR0Bk1w?vgTRMFhT2)_4RGhU>d$l4&ZNmS
zPlTH1AE1yM)lEusZ#36_a)pPRlmgN!l5=95=7}Tqs$rO@=fg|l2fe`|U0jGKt8yz+
zUlNkaQ!Zd!u${i?DdZ$tYKc$l6!mfB7%L5m%1~20cOzy&Uer<QEsw|~n6c_iM^iMd
zF=?;N^J2F8nRy_9WQM=4mRQOh9y9A(B3k31O9i=ox<4mFGgGYIU#D?nn@3E;U*U^B
z#Gy0v7#MF#=`~aKT6Vl+e4%cSn#Xd#it3yi5kffA)1@^lyv3K@EDt<f!i)dY7CLDX
zQ=G@SXGB=kh_M&@0K(?<uQs}9swH0*^fk$$v>s}5zgFQ8e|q!;MwbF#+691j9;LLc
zIv<mW76HRvPk8N1qxduAaEWXe>j9FgqWB|n95iB*ye(2!HHZrcpa1Mce3RE5gMznq
z!2k;aS3(omi|fnt!H#QK$MJRHQvMB$UNxZ3fF>+rw|1`bm#*~~c08m9AeVYirwYVu
z=J9KQ{!)Zl7#OgFaF#QBp2>?7AshP`k&5g|`M&J#j%1jxoRbuvNQaX=4urS9+GBQl
z-Am{)0LO?)E_g#lk~#nKmI40S9u!NQJ8s?K@?>Z+u%VvR9q;DTWYdYD;VOf#`prJp
z%r>hywA6ox1Np>x6k(6cG!F@xmtAiQ!g9-OZNv6{to1Rf$d!AejQj>GluHIG74^dW
zEu})bH7%FKtGeU(_cn&lK>ZWj4`}8s_=`OD2O$rex-UV(?QA4(3=iNtZi4@WGN4Xv
zr4FyCjQ?qy4poYVLbF|g*qIG5q=rGN*5E3O+to?aSLB_}s~oAH@?rKy&YuaU;X%u4
zV=hgKZpRjftVR^*6pYB0;NS4=6Nd+s#n-%GW-ap+*1}-g()q{euKNOp6_oQ$xgL$<
z$chtRUxb3(2Gk2A*s40r4VAiAttwYHB>oxK%K}IFm9_i_@ONaG>>lmQPhY==U*TK8
zxP(r6tcEWL+)#ugKDPx(V@ivn1!bu4pwCw>JV9ADXVAE!(_8DwV!kdpQ$H7<zTx`S
zoV{b{9B0YORTYa;WU$h-Vtek%Uc}MB!&{C?cJ*e*!s3)qy{Ccq#z-u9KBv<6s{H5b
z{;#N9o5ccs?Wr5j5w5HG#9W?B2YEPWw&Zm~vF4xJz_v1Q)<8SS4)=$OEXGCJ>naXn
z44RM&@wVcKzFUF%CYr;^MiLS((pY2S2(oLKU+`=rhMi<JtDrFF-(^}o-`QCqCvh1{
zt`y1&-mUKPx{Nyi+ChwG6-;(;uV4ArDk?6tDvn}%sR)<iB}z%;f%l5JZ{Ckt%dSQB
zot(5D_Z@WHI4CSh1UX%AA@dHtMZoLo-wfd8E7ybX>eK1cX^7%2JqiVDO<YnZE9+g=
zHm~|f*jtDebIT~{^SF|!AjgUt>OjUx*8sE;5WW~v2F&+wV%zsxR+?1AaoAi3u2q{E
zYkDCFlfrmNb8t(tbp354&TXYBmyZU!sa}s%J=(#5dibE2(idftH)=}&*Lg08lh6sX
zgD;wy@v~G7Q0`&5?_qZL-s?JrP8=V*i3<O{YR=T<KTbRIv%{ZETWK5aDL~Z8Ai12;
zRlj*ru3e@}vb+qlJRTm5zG;Sm&7&u2my_Z5#&G4AV;BAus2Bkw$J;;LY`5W#U=&ZW
zx69?ohaV<Ayf!!3yKZFw6U>71YI%{3zS|vr-gT-rZ*0NcJ?DQ=RGM+huadd9gXu
zv|2erYVhP-(BqT2YY#uB3OHvC_B?baM`&4-8o#lB{c#tbWgFLdFzZZW_jL%-Q3Pi+
zF)APOZHCC9$)6i=V6q=yM1{T0n{i7vcp7$02VUxZZJD`Jt+Rf8<!ezbRV8VmG&Ue=
zrm-cuFFz3)BEH{{JEz$r2$&6|8d;~KwW0uL9i}rn9p5Qv#-{?fovpc<(MgNg8?R^*
zl|2thOz))R7od<yrQ~Ec$SVuZU{hlfz}nD*_d<L0<9F5^qV_gPFA~t6{|2|kwy}9r
zIj^}k7QF7Lrl3~VDc#205C<0TWZkJ}+N)PME1%b-aa`iZv3{|$%b-3-y0@X(s?Bof
z5m{FaZE!gdH2d@WtY*ZMeMiUMZ|Vj)$PIpVeqEyU!SvzpfpBnk>W&rb;PLUz_$cOZ
z0QN1>&`<m2)ioxZa6flS4jT&MB>5E5Gv?|K*B;?N<ONn=SpBCw6ezeYY-JpZ)^kl%
zs?%WeAb=eRjyAi*f||$<iygVRpkJ6ymoIi4EQA&CcPiY>QBS4M!#RG6bN*_#`%bPC
zV+6rOkZk4++oprQ6D=-tVda>ccZFadY2%jHWl{huh0<8*l;Ja)h^(#&_^1()3HsYh
z30tPcJ^p99!|J@|)V2LO!|S#LiqVanxlLsc-5WqMwjR}ZehW_COB<Qr2q2r&0`_j-
z){0!)S#I7SwpdPfC2>T$|JZO)n-!=NeT4mq)ntbIF+f%n$!Z7o&ee1$0(?ge;Z2rW
z@Hcyu|4m84w3Ns<D~#va<{H<7@_Sq<y)DBHN9`X`bIe+{5Il8m3TCUyITr@`h#oU8
zs#V|<l#3LN7KD@Y2^-O(xNSInPiaPH*D<+O%WWL0pd3jC;wZC3bjCm7cWp3iYjION
z_17;Ez<*M@Hk|uOG&(?uBrw?(^aPFfzMGQRM3>Z}M|TkKh2(8&Fzsnz87TOXST|!<
z`XCq}81ksO<UzWKl}c_P?&J6u@xP14!v7Y>U}gT_;uxG<Z2yzGU?E~==H}r3pYi|A
zV=%KaadH3OK*s+^9^(~UDSPW79M)uDCkHqP+}+)MZJ(*%Fql_37|i{3A7fiD7~CBZ
zfC1&V;XJ#0_UrrSbyaPqThYDlr$)c(vj&I88QoPv`ENb75{&Kb;P~Y5AS9B8nuehn
zaD9C}YeRiKv5K-)fUa%eZv&}{6>v_ru%UOazjy>Mu)OZBEeZvLL*PF{?||$o`hXPt
z{>hQC$(gZ15JMBAgKtHm^+-e_qeBQ5NGcZK<Ng;R3o#m}`rtCu@x{p#`7^;dAZ=D2
zAX-L7&Y`?1;6gVc%J_^(exZfo5g5zYQcH7VSS84;zyOBa-=rY*|MngUjLX>A*~yt0
zp3Q*1Hl-FD19F7y&;(u%m=&Vr%;(;ZO9YmoaO>}rH4!NWvD6IA{&g-7rq|t;&khLS
z45lB4v%LLk9bVbRI|uVng)E<<0ZPUXc<~3P{X*{tdi!()s+Oz%m4AJ`6hsNU{?)ZL
zHiu~a%hd1+wxI(;C)6qw(3lL86cr8&+CRMe6(@wMV{y0Th02K<UlVzu)1Rlq2`m*^
z2_m;k^VKC_!Acn)9L1W%I{p%elkqF{=r*1Ba(ZaU%bVX5#d=8inFPcQJhMBylk|Q&
z)zSdjwdMUAPABwois7GZ1i0+4wnB7v0iTrl!hbXu`5H5ab^&&5tgm-`d;kiF1<DW4
zKz}3z!O2DF7tE>lPv5h?dv*ij1)|%X1o{Y~3vdvO*qx=Y7Yc|<qMcv++>8As7gJXc
z;2xg_H-u>h+aUc(`ksMnev8@z>_Hy`zl}ev`c(s^3JU!CvUprE{jKk*ITJka*Jo}@
zjx8<Er25_?|6QY|fOrA&V0CT)#@gW00;;aIy#@lbLGJy|6d8kjcoY6=)7m%yL)`te
z?6m#;m`mOH0RaC;uY@4n^>rloJLJHE&HpT&f6!&qnL8L%|K@Fd&yoNBc7Dat{no|&
z_`8#xSlfJ-<-ODe{1Wy>;*YOB-bS>|y1II1fr#I2(XIdPDcS8C6jed7L3V6@8`M=t
zO>D76Z0hv7vXL^PLarH@$2XykgId;tI5RhWR9XEr+Wauvw-R~h!>nUJjln|nk53Lh
z`1?4pnwvkqpg8$mO$+Mvw;_KRXi0ms*1r=rjgC%$GdVf4+>7~iU2-0Rc{KIHmvGM?
z&FMohv2FzG?f$3bl6eBx49G$HZP#G12WomFEbWVc?5Dd&ya!1q|CQaQbBK9CYyeF+
z`z2-oY8v#93`g&;{y=O1PG9*URsd=`^^bg&-#I4qQsw*(-(8;hk@e4pZ+h>$lLvic
z^g(TS!*m8pulWgeD9rai$f}(AZ(;St;H}i=6|ol{t?B!}8S{(LXUX*qv-g7M8+Okn
z=Qq@$?D&DvXDjSVaQubh`2N3r9==e2&w6KcbFz1Lef?)obXdQ_e|;7}0ttjzhf6%`
zvHj~^?HoUE9SX$&|DhAMcvQg}2KM_c?qty0FMmKszyWm|up}7bT^6q-08Zw(4H^9`
zTNg(yTR2XiMUpqiw9BnMt@Iz$yNqEpA1*g_N3*S@+sj2(^ES@5VSWd7T(>^tjDjH(
z$L{T%|F}queEZtYs%D<>A}c;4k+95&e*r^h2S$=%FaV^P>vEJT<eZF~WZzpKau%md
zAre=QJPxMG(GLE0-BBRuO&L-i9ucSbz6m}Q8UFJVl4Q<YuxX{6Cz(UR(M5>eW=P2S
zOrE&^8s{D?CIE8!6S_HO7t2L`3L_!Av`qP=E02p<n{#a!R8uDIO}A7C!_=E%*?R|Y
z6OPU671(nF{j_`5m#q^2s_(T3!}Pka*n~gp{Uv!EZZJoemf$MQOBN7pv-K;KGSYLA
z{#4Tem-ravT2O>Yyz5SPrdQA^z4xg7wvYHh;pw<uL7$g<&ixfOHWhl<G{LQn2EGjk
zu_pVH2})G2UQR~~3K~Fo-lbEqz8eivIA!&mD^D7g+}|FIw=l^O#$-8?h$ZK7l<8~k
zO@T`#nFa-K^1oBn$yZ)VUh*lVU0+D`RB9$vv-zk&XYv0#qJ7hXc~gFTMx>ObpI5i5
zxAv@hOCPA6R3h1Yb=&l(bKx+rXid8*wM=M%FKUN~tzmbX@1(0yfndZJ9Kd*CP4fm^
z(|SFITzOLJhexthgFuxHyp0fg3haY-$<YcwyR^~k=L0gQP`Gp!;?j6r)Mql8FHU1;
zy|lCtj1>ORX1FRkp4G^k8<MZ?&&(&4C3%?9FRLx}Y5j$=S;I>d&TEL6g{!5fCAqs6
z-(~FTG<8?IP51`nPA`Wt!g<u<ru{DSVXJ?pcf%dPON#zpd`p&{@D7V*+I;MUAKpst
zC|Dc*=oC|%R**?U3PBz0NpV8-p*3@9+1I27oiB-N|FLmI$GpkU!uE1~ob?tMTj6AI
z!Bi~oJS{M&?#s5-6}7g4RItiUvOAWJ;;yY7pJ*K-OIH{|?=o(~OHr*$d7vQlQoC8T
zL-|F=NNwv*mJn8;F;wDG1h#O}^P<8%7@<V&qdZ#UDBMbkAo_)%r^v8mOWq-jEEdBg
zT5IvFo4XxAwT%@M@gO}sCo+qW0JUir4Lz3Bz_+#`e110DZeWiY5`IVWNe*wkoswGv
znUj?+_^+*hy2nqVQ*xWSxh@QYGw!v%yy^qNgjiWE8C;PUv=pa9kPy0x><n6Q$P$S_
ze@Qk=7;K@8d&bI?K68#7zC_wAr$We|AAvSOo4d(jdXzIhA}{8WSviIKKfh+Mr2d&t
zK}s<fj4bJu-Q@>2F7~qFtTL1?0t3v7ULn})cvx;|+3g7N2}ZJTf*bYUYuGcQ8c5%C
z{qxTT=~IV+x#6-NY^uBk&tDZv^HjIo0fT>P94&6r^C&YTJ$?MVJ^0r}{5EZ9E)Td<
zt-F{tCZ8*8ixSeJuLzJ-sbNpcPZ6!|!UHeMo(y0I1wJCI(7mk`LWSF_@kN0u1VOgE
zpYT1Z%GOi$#P3eMj75%N^$L+EI#k91z&J+>!S}*zLsSGR<wqJ_0z0N4f2Yoi--~Zn
zN-@C{ocq>MZ=R&f0XHFvT;f-2#8cRnbGYROeF0Y{G$C@!`$SZ;;1`JIh`~tCys#x>
zdrdt=;2u`=ttM=Fgf7riZT}jE*j<m9`WCy17Ib$;y7!d&3|l@=ynw#+g|HB=7YrLC
z$VTX9umg}zB8R_YhpKnX<*C6(tH#3+y8N=C^iOY~Znzk7%u9xYN~}eyW>d0U`7%4?
zRk#vc9Y406BnaK*ROTi4RKs1Z)I(Pu)qtT6DT+^EVANn~2gVZXgfHyhlp45bZY<=Z
z1iR?jpJ(mL{|rga=J)m}c!!~~77Um~cM0E?N$zx!=oezp7_0!pSul9McD5%=S|mw9
z2T6uV7Q>2PNGT&~GhK6M+u2k~?D#+~2Wp!Y38t=+i1tm}1PN(CL^pj?$aK=gQZJpH
zG~wH@McX$w5NxpHW7^*)_AGoqA=b=VNMus?ZGtiGO5?^pjZuG(QG>Ycd@VVXJxHT*
zTMFAPTVS5~G6kUyV9q_KAU52Dp}nemh+x7mW6pb(*%YddS}*xXcUj;8WHZ#${zQ*v
zz(%WD=x>%u{2_#||6?mbDV?Pbu3sRyvM-V%nUJv@L8+~XCIRl_R7X^dWMu}H*Hp-$
zk-j>gzOzHgklhjGJ$$LV%`&Zv-~rpukSs5+14KUFi66n*75_&9l=d8US%!HsE+ro|
zG+%J|>P`46H3HxuF7Y+#8^i_{>6ecBeGmOQQq8m!DpgrzVspzS4xQnYV!Wp!0Mpac
zA)+KlBn|}#Y?OKN`vwgx>PNn-N<{r(iTRXe!U*O(GI>%|$u@VHN1jF|h2b!U&1^|0
z=<OzGY}&2&8Di8Kd*xE9h+h|r0;!pNMi4Y+FH$;P9Fq6P*dyd&obRbNC2JbI|0J5!
zU$=&1E|3}Ce5N3(#vzOKMwCiMJztUxZQ!jm_rvdwn63|X*upQ3QYaZlU<8ERUzpu<
zQRv`_g4F%-#d6rl$0q_ZmiUj|pHn{2C_kA<&eO7--TYSKoi1GbbhWCroPzgHdzS&9
z018zqmKO`=q8SE-@YSI(^cL7Kf;1WYaoZC$L*73ar<Yl1I%r!i&K05u>{zQtdg3j7
z@kRhNa-`6ZcvULm(z0nn1MWX@_EVT5y;u)%Cx%jtoPq6kdQ=l%G`th37Lj&NS;#cz
z@&nJRg7i>#{m8!!?eHj-Kp??<xQUbWlKz8Tn~3pfca8%>O6X`3GldV82Y~bKgE(59
z`obuC=35;K=sBT<>Q3rpnyt>|l^040d`ohZx)OS~`I-GQ>{pjPcB?kqS%ISL5VEHc
zgbgegCb_yX^X=d<?hoYY(l@2xi?k(OE+s%G@h@FyP@>~y))DVB<>yQ^Zcv(=NzY&W
znFO?c7gn+#eqQg$7@eOJSEhAg|G+Yr=*VNf=7Rw)ChT4!otZFuT)l5d-h;$0#{WLN
z-A*aC6sqbBFLVa`{ddmP9)Mn&O~g%?*>7$(G_=WgsxXIGFKnN)1ZaF;)`A1ddkTi*
zsxl1L@f0q&JvJWPz<3BB!e*4khOb&bTkAn5XW(m8lDwQ|JVQDx)w>_^Rd4Htfe>gt
z6j8%4Mqq_~R+h?E@(`E0@Hyoqr*ng#aiTPW@7E(>I{Bue5h6qcZ1`6y=-y-6_5639
z$f+pL4=*$hP$6C<94etY4G2fm;=Fv6?e-9zsF4*1?$)8r++!GZ_BYSEX@v97px9}8
zXZSkUsL6Q&bc(1<V16w05CA>090?z-f9=C7&k29UQ^zFSo`&Prou2L2LU|iNbcNZx
zq^RML_2)M<d2|R?iOdV|qE!<#1sZ$s%7&99_4H*QSR7fY#*r|tH*v;j=#ldVPOonM
zjd+WRF<_lz?)psUxWjaJ`GO#+{4<6cJ;qQb%N#1k(1qb9=HUo?cFQZMV9Qc`$!bbp
zWkRj{OP2qo-M4h!%z7foyM-CMvZ!VC#kU$HKCv}Chi(5m+y!aS&8}G<H?#KAqtTB#
zZSTawoL|j6aL>>VTJpGKWbr_AQ0~>VsES#+0+$vkl#1CK4zHGW$61K#!38T{(a%OJ
zYBj;95F{cIY1n8RGsBhwf4K?huY^MmxnC34`#XmGMyeySC@c+lmsH*lz*$M37jT0R
z`MAa`6&bi>S-_~tBvYzrobs_bLNJ+SQ<wE6a(T3RyR7jqcdbnktb{AZ_cwfBN;;(L
zkA||~V1LvP&s`{)o-9PY>deXI+BL994Zto)W^rI0pS<y$D{JSXU=NJ1;BZH8{AB|4
zZ>g_!ZlXur^`vTLa{^5pAn;`y{_PoHUq}s4Yc5+s!(y+Krr0ZfsJ=H#HH#YU;>IGv
z{L4jHll=abPkZK?-3~6lAWG96G}AYya2Y*A-g%r!V`_?k>_7aU$KmFvi7kroY_pwk
z9AnSVEk!`X`mn4C4`^!NfA#P4*&Tp)e2i>me=k_5q*k3qp{RIuQ9csD0hrW2%yuU<
zuV1JHLH%OL;(8$ZgH5&zE*prfouh(c4*?&>YWi)f=Gl!A?7=Z|9OL;i^?*{JC3=!*
z#sY33H|8X~G=gm*1{p;t)*x`M>@^oylG3yHCtq4o0};ncQatl?vPyPt7LJtF?;n=o
zpNC2gRjWqBr$C$~PxPyBdTh)ojchUbk)j>k%WS5|JDUDD-A9t$JcGn=9Qbp%H;A2q
z$la_Z5@<FClMkU(cW%v;WHIElZOE*6`A`zk&r5c5qr}u(uN}@T_CQvE6RVWws<7Mr
zMC8BI0jIcGwqjo$l>$K*L7z(s>_;O_CQD;Ht<36_r4q&M(MZF}6<txqNh;MP&ZrEV
zWtabCBGRVi;~ZC#FlM^+3Y$AsyZ}%hw4OE#?4-s>d<oaIv3FBix`CjcgJTkPYP8Kl
z1W=Xq2mG}qzMm_nOMw}LmWV-#`4K64U&Ok`DoG>Z2=*m`+FREY&UJHc@2iiHJ-hS8
z8c2MF0HT_0fqE3i7j6@>rIOzG8^g}=-z}bQQM-X*j|0Bpo0Mp>vzu864Dt>D`wG#g
zq{T^zknN;q`ztDo{`6O~kDx0b%kEEK+5CRW_t$cNwCx-Rx?A2BWwjo<YCD>Vo%WTK
zIVlIY(ZFeM!201L))yLXb{yXC$vcT78}hBCPqM-MoZ)45xx<QrnEI;~U(z4?wKB@A
zuXf-{akh0nF4=?Y4CcpyeQSbJp#xFh>$xRWEtzgn&4G)o@jnAq<(K4!Sziai9i8O_
zeAy3>_hz4kZ`vXPyB&?Rbpjz8Wk=wv6A8=42!s~dQ|%C1?KOndTCGIK?tVpNPhP5D
z@3)h-*h2%}y%TPA)SQvmf%};tg6(K!&Ug%2u5tTomnpIGij1lwQQ(T%dE<f-pDYg7
z+{#U+@Wey83&AZaGLHQ9&q<ZyX&0q4M>PVPEY<6-aa@K;W(T&o^WFh)n^*uVRO%N)
zSX}rJXQ`V_e9@})hj_t>L=Adoo>zoLBZcMYqq5i7mRri{3CT}1ochVZ@}ZY>P2aak
zIl-f;lkek3f`23|4yYf_HcquH#e%;6cm}TYr=X*tMzeVfA{#`$y5POAH`S*YZ%|^$
z(oSk@$)EZ?mx&<}y0uD-etCYMkK-@d!i42^Q>4}8$q8$QOa7cQCd)r9p%zU+)D(qU
z>`ICoM7*^sUy!>n`d)J!lN&p+s~Ubd)71%gDgypoEK-X0`U->*5>ohD#qjGHVcAV3
zwM?TwGXr~t2gnWfN83>P0Flfm{g{WcJn4==cq%P-iP!}OSA5uaqQpmzwZc&2B-NxM
z7$&2jo#?jF9=GLK`ppC7o?_Wt&j)_=?$lc*SaY^qQdW(kk_Srs+eT0_lxm04zR@yp
zxbbhu;8K5`-5x56<5ho|yE%WuF;9Zg{OG8LbCfz9b-912*B-j+#?+e5g*Y3_?LL0o
zy~4By`Os!5Sge6dSsh|7K$|J@rwi|6%6k8~t8dG7T|Cw~X$Zh=>Vz3?s+Xf1V#|9D
zrQiEs1m`HteJT@h+=h!C75X)khGgTvuh-`0G^8&R7lZO{_^{7d$(MQ8XR}vn_7gR@
zcGWa`2eTaXvZ$uMk2qmQYhMd_{mTmBSJ!Q*_83H0T8%vmUdP89N5}+Dk;PH*S62Sk
zp$uTS8(j<Obx}zF+FXi5O>$0*vW43#9<PCzu1cFA(A45ojTqXwp*V*J+M)Da-&AM5
z-P5H%irRLhAdX(CdQ45EPpWohvPWraL+E!|T{~gEO|H3FrHroYuleY`;jDEM8%WXp
zg?GPRS?>_n4mTdXb?2X8W;%Stq_eFHmi|Z7xL3f-O^dRKQuxQm?|L{UV_#rv8zJ{F
zc3zm0y;q&`6qm())%_j`>PTOGBuPM0kQs%P73<#&{NzNj>9L~C(7?HR(`JcoW~O6l
zbs2Yi%WQDMF&n@6;~WdteSqhn`%Ipc{@yqHyhEDjM1=YS{PF`61ADJBdyheP6?@gH
zh`o}E<A9<7HIMYTis`GXNO=H->bLu^G+3_zy4G1t-C9h(k+td`7UNbi(w?YWxW`;A
zM5}oS5yrtSj9c0@1sXC)6Sa3%YV93Mwv#4$5psS8(dFbtx?d6e%>W)K80`H96+HuU
zkgj%N%#^jg>B=?Q`-s&X`SZwdiI6!J?P)0xuxp-^FUP29JAx0uHZSX-?fKqa|Mq<_
zx8l`mqw53fPd$<=MVgZienSXGsNvey#XZt&xdc4v_#caYIq(Mi7(3{_hK5of$Rh;}
zS?GpJvlGG`(p*xDms*JgI!|ebpwW)I>+CC#`oiu|>{@aDfV!@c8&v@_(9Ob46+c+F
zH99QqTUezvZ94(m5p4`eF2gt>cYGx?i=Nm>8JwybVE1g(yffv01k6}oOzuW{eR*sh
zDh0eXikk4gXZj2yiqdDi@o){ag_SaDq-&Xvss7cnwB3MH-9%;_FusIb0xh-KqqB&7
zE<f|OGa_P9lhNi@Aq5<(;FzjfHnqeWhN8L3Z3!*LFM{h7TrAE%1eU4g(&M0p5RYTE
zj4FAfO+IsH9&0=|*tgj(yz$TNUAigp)#<E{F7x*%cPcxgV5G&S4nRhKjwpk^s7&2&
z>gH2P#D5-%O8;*1yh=WuLMdGBNd^VhKt^w6+az5CAvvPOECl3wibF|~{tOOP%~98Q
zJ$&J}7WL@YsZ`9Lq~)!(<hOghPt%X(M2l>*=n4Ft2_3?{t2L24$jHU1#}?Tg_8fY_
zpzp4F4dgc*{m)Com8<7zmds8UHgh%nh@>X$)YhXHt@|qML9adyO2E<IMM>r32Pd9t
z=zdN(DnBYo;toP?2J_~DZ)NGHmDF)MQ2$o$OZ@g2URB6$iNiPnM1$+LfcJ*0s8}^A
z;~5A}UTyk*FK`~6qPMT*S`r0qT_#+r$334K-YHm(t8tOlUj5^}eJY_~JxtwDueI~?
z85hm0NU74mQ%J3oM6<vR^*(B+?UNN~B052ja5vfEj?FdLl2r5G`)A7elS<#?hLb%j
zoFFho2WtG1^yAr7udBkW1$CP-&3|3Yqmba8^%V=(Zt<A__*+w?0VF0ah&%fd2>}uG
zfqotvvJH<3aR2B1;Vh27+h%0k9OgGq+4f=t-?PN330`VdQfYQ`wb$Re5p0}nd)N6W
zMWtGDN((cqlq+#ZH@+H%MvK^LqwDPuSfiqL?U?+?+PUp5pH4RpoC?KYAehm`IL-by
z-FAC-KNQ65!M6?&#&7LQ>S$L37%DtFA0N09gd9n`z07Lm%fUqzwi{~j&7+CvMFF=$
z=_D<Be}0?Xd809=#s(ldbPD>kRN<$n4y67<_@D$miQ}yf@*i_-pj!Eg#<RcB_4c>%
zpHjE@tF3yh%nrI;rWTL#xh-!Vw1{tV8wolKZJ?8(((~Na3?Rn$+o75@@og*KfzAf=
z|0T8M7~JZI^c2U7+CqCg_{T`elyANgLqeQ*7&!Hu2uYXit^9EQUW~D%Q)MQiA1~}r
z79%6NV_=HMnd*i(JWhO3?tn-Tk?g4^Hn8d%j;;hd)+;|=zr<Z1KsDP81V@j7l4YX3
zWemCS(gta2gmKaJj4Rre$2f01J_plNdVKN=6++^##+vkq)u!(JMAP=J4*B^5?3MVe
zmDptVZ@}Y9BQ7$cWzwkRYkk==8DlY3-PO{sdy2bA-*Wsr;faI(Xf?sN4eHh8+j#t^
zE!ZNa?))++oB-oJOORwtkieH-N%AFV63#NK>1esjQO}cL3QP^$-9MFtqN`69`uswd
zf^mr;ee9x(g{Z%zw+(fkBP<lnfEREugTPVTPvDPHzpB+W`IYf>L-fR8=BnGNqPu?z
zMAJN@Uj)qOg6O}bVlCupDa=N&_JIIk>V=48hzW1r{uqLt3a9y1y1{(z2Y$p}u%JnD
zk_gpGtj#=WC#E)P%gpd9j3pypov?n=!*27kr%*UqCEu;fv;sKVj=>vnf?^A1F4Ay+
z+9ZP=k=qfi-4ff8oG6(r%wb5fyxO6eA*;nBBQ|>~(G!j~`nHSgiPjmrX4OCS%&xmA
z<w_QFM0^HbDxg{WH@>5EyL2GgEw`!<g=y|>tSVQ)F2v_)<V0_M$sM<VNcE1)=rTsy
z$Jzs!UsH3J*jh924*hzPH;Q3L%i*PDNd?pbnw~|=ARU)?`J;=mDGH8>QIEuka73rX
z{Pr_*uc;7qo|R}$c?HVGUyaXmM^R<-rWB3{NSMj2h*Aky#`4m8ozccZjon`iaV%_q
z$;OLY^NFgNXtX-kxcikIQ(YB2^@_+$%lBw5z6<QkRzlJ{H^1DSVZSgk23N@Bd*x*$
zQo8MK5p?k0WV>fE7}ZYbntHCJ^7ktQt#Pex!$k|Z{uGr<GkR%8H`40Wd|&m_{Ae<<
z!dkl{tAgQO%^dIFc&D9v($GnR0VvmzixzRj55JMeraqu@V}{1EZ|!CFq<ItUTC>&A
zZvAiG@%S%0Le~A5Yw~Qb$S(fgTtBD8$*<nqUQ#b#-terQmB0+n|0f^pEQQ<U3LM>7
ziWJJ(4&)L}GV$su50UC{o)T5)k2>(i42wA!<d@8qP8#%8MYK6@T_`Jg^+qT(`GK@B
zp2Q|LrSPSQ+?1<<{@~4`p~cvZ0^VH|(IYL@5@kozU9#_yeg~wJ3*@^V^0=&7z6$iK
zl`XORoe*6oogs*`3s>y`$ScY|#V;~Z-N2XX!aH+pTxNS$RgGr%!<;U=$^S9g!c(%c
z*=;4>y-LY}wc@$ME*8B}pHQ4guOpUs!E>TQ>@`sB-eiJ7Gh=;C%RXLwM8bOfC;Bv&
zY`;6tV1Ih}po;26h1<ujt9s!~t!%K-Ot)Ah3>&?s!+A%mOJ5Nr8=xlU4P870RSa>u
z6D3QDnjWExRQ!DII+o!by_KPinH%ktEVqwpeiiw?3#Ai*U<!u16mNb`Sr;aF^ty|k
z3(3jYrTD6xL&mp>QmzS&VumEN7(NtjA}E003r)FPfrO()k`x)=@Z0??rf8j}D<T`U
zPcFIN)t7)32+e*YvY1p~!s_1q3Du$8S<Z<xF8Z?7g#%tbO8Zfwh)aQA(%yF$BxQ@0
z$bLcl!@d8fCWW_i20@v5fUfQk{hff&cXuUwxN+I>F>x&e8wSXhp<f}N00w7&<iOv-
zTAOym<6HOqx<jJ@3>M$0cHmqi!mubyI0HT*POhnIRT6yK(*4ds{c-jt#Q}L~hZdQG
zV1&*cldlzDAV3*`SHy(Yf!9ws_}C`W>s{r2CqVuQRJx*Kjw%DrXcaH=(?)}w-)IEG
zI!tVBW57h8{SmbS4D)+^yfduKmsiJ(<FGR2A*9a{2~&DA$H`n<u{Wc@KKg|==ZBBb
z=*omN6HB{AK$Z;Q^jvaNlx1^wW~TR?wNB*4mB#b7qKBM=a^dq#K5wMr<ih>)Ji|rG
zB;-BQmGV_ZeA^;1C>+637-~TfQ<Ywyi%^7yllq8Ip>zJPt3q8R?$;Cul6HTeTAvW)
zV$~+u%xz5}C!xw2*kEJS?TR3LwY4qhOh50q&b!am!fcJhn;de>%7Cb?PPM;TEI@v4
z4xe8Gc3lIYFd?>UTAA9xrFFgDYTw=|?aGU!#u<Qf!tW#vg=x}0lebMVGxJi3)*H8u
z+3+P1;z)`)^U$BmzOyuT>(!?8$SlG4mlm{|du><g6wVdW<sv4WmiSBHlCD#0_8Xc&
zf!xdT0Uzhy_RG*b;X%%5-<si%VWw$Z(cM&y)OCm?udJzlhql4}7WcSka@|}SDn<BR
z?bTJX`tyK~LtWFA<TH9;Dyu$CB;A%XIDt<u6`+Js3(An>I8~4$oapKnzSf}9#%3q8
zoQ!E7c{69MJLdae^EiTMSO*idAXtjjScv})EhDP`16&0c@qY~(gAMD>r8icOX#bg1
zrvz*3JmdvbjCz~-Z+}fdVpjsbMb=2I6gh~&s|{auv#KU}Bz#jx!<Vj%kD}%aEG+W*
z!bFN2j%XM7==5=A7%fx0-~0d=|GuATm(MyK(c5n0{Oo)mVBnECOo%RZ$`NJ?wkXvT
zjN_HUAr^BA=ua%n57<EIa-ecysSPGA*TDUrUwN|}pH%B`pJ2rALl7bKs!~4~Hwh(C
z36zSw`kn}bq3lMw&=`aB_%#>klt+T@pyZpM^p|USVE`;+^-@du{pTJNfm?&Xr$3#%
z0#M53X8R9BFK%4XgJXmv3x3ax%ujKSuplLht8N{6^=#&zCvpO+DD+2)iWXLSVlZ8l
z<Psb)cBm=$v5PNXE`fg>S>D*j&|1*T!(fn2C0$IG^~i7%<LY;oY`%e{j!-<_KAd5T
z`}>X}OB%J6vQ4=$B#4re^2by@$voHRH?>Pv$9$8RQ8~7t9T~a5J_vrcsxkq-I9_UJ
z3X*|Q{vI0v=G<Gr+uBLWZfbv)i0xMKxX?oxO9l;;`ogyif$#^a->d#}MwWCWWJ(Rc
z(Gjq%ru%R)D>s(nqI}s~MJt9~#Eqyhtn0QBXt@6ME@K|R0KMq@x3JIH-BHTa&A}We
zvWz+4x18rDRaK|K^F*fs;ymVv8QeKIT8=1_aWwuICO+Lj^G2oaw0H7g^XD_em+28n
zvB!OJZc$}7k7xy@eV-Tp`zfCOtU72s^JM$i#>)#|MU(<x<tuD~X-IpP&@M*OA{KUK
zy92x)?X4<&kTdu~KSUfZl952|ft+CpDW)kqaQ_-p(E{)-PAE)afG!E*?EkY^Yf|(x
z=XIzmHz?LviV;|l4CUC;oY?B=bUyV~aixy;T)OAP<2_T8*&<}m3;s{=-O$fQ9+*lK
zXNMHltGL5;{)!G6L|!XB%BvZL84_`zIa*Jjt$T2m$@p3}?Pq?>{y5te{&Q+iMH~(K
z=GeOuafxp^TkvKPB$eupcpp%f5$VvIwS{6PYJB2ar4aTSn8La?(Q1~wvPi6@h&8pJ
z_{6bJJ1p*I%jFsnw`Np!?fBIJF4$@!6%8+65Ur90C3dcp;6L!DKxa_fhv)%(uz2jR
zvrJXy737m9pxUFm;SF1{i-4Md2jdB~<b9r3z&8crr0kM3<K7mZv#l*kpEWmNKfNrm
zg>_sfheytZG8^5@f#U15!(c=6&8x?CHmruR*LaxGrI0)Yg&N$A>Bqz58=e$AtPxgA
zkO6&g)+wZ^o2Qp#KJbDz8NU(Gm{s3OtUKiQZhCdL%ig(=CCdlH4q?xsVAOlDRmjpN
ztY!T(jclGe5R<@#Z*uTHUP<R0KrC}OA|DmKl-kXnQRV=i!#i*lIYq@1JV3-kgf}WY
zCO^i}Kx;>XQ9Cn;r9)s3d{wrq+=jb5hvMyRouU?cn!3uGBhITSF^BHzt0R8k*B{;5
zNs~7NoLxLFBif0A*qJFF%aaQ9V=2S*o;Dr*Bt|oQ{x4@`U{H6#JG8#iK&v|A&Xv?G
z<TQI4YF`)<Out|PN&4RCQc5N_(b<gzd&}=|1dW6Y>koEz!DvK?9fEyC6dcd+O)h>t
z@83XGAnA3*W9k#4hqqUwXy#qG1j6uR$Ch0?Dg8VZM9W#ft1S2_Qo=R6faaSSM@*;<
z{vA4WRu3SsHm(sr!buU=AB9jvopDHIN>QqhAJxzXLbo8j14TFvwQRFo=65*fPe-ZF
zu~36}=hc6OtIH1t22U2X8_sLci`hFkodU!r3h4=>xO3FAa?-nw`eBtbysbzMS;?ep
zT~a-5#VU?ZrBGUT#`jiw3`~D(D-1Xsv!ET@a(8pTQc9kUOScH%@$=NiDNy#Jt`HN1
zDMM^um>V-BHCcx;o!8ub2y&h$I%9iCc#<A!2Mv4IBcmtSX4S3&W{yZj6>qnV_g>ob
z{Tc?!(*Z5s6lqdKT|5d%sfo)rM_;cX3%e<0@1%JoTXhp|Wc*iqpF;;FmjC_gTBTL)
zJN_4E1`!p%Lm?pr>SEF_e`B?#5)|MV!rEvbI+`|3t@=NVokNT+Toh%?wr$&dW!tuG
z8?UTawym#h+qP}n=)cqHq&w+B5AWpW-pLv4oV8cg7tBE+i8iyIWntCo$s>(>V$vM%
zrMb6QUe1oZGHkUP9klQ!2JVeN!0bAPGIx7VR3mkrxUdtJ&gy;HP~;B#NN}v;e4jlj
zdeS;kLpNiuQ9fr*;Ga|ju$~UD%T^mf;!xZvH`HN2MMfKO1diDo7*>mYpMj9w*HoFo
zRRmeQK^b;H%{PI;eh_|LG8N`e0+BhhJAq)5Q@k@KqQTP>`UA)5>X0nobu9rnDD^CI
zy37llGof1OWQYafB&Lhy{T0pU34<iKswHSG0XN4G=o4cl{(B=;e?DP-CaQ5lz1ZU`
z)OSn!5CNl|i5Za)+k|QA_8-$Qy;fe%z0m_|r!Z6Y5$N!z2N-W>HYjfq<vUI0Ly|D+
zuH2v$jhg><WJQM#Oo}K*`g}LPsWo8HeSswJUx7=f;BF4q<<aIp_ksqBc#M+4lHS)v
z!*<^}d(%22ADUNk^008|VPU{u1ur!(tlC(9#Ff!|!h??3jSdGU6cm5@=i8UHms=i{
z6%4xfibICMzVo${Ov%l^^+(<+GpGVM64;Vb5$r^*eIY#ix>Q8Usj+jEt8MfN_~!Nu
z7GYMgJY6jVj(tp94$SOguV9}$3&ASp!2>XiusU$4wJ&~pwt_F@!WgLu|0RpJ%@_K*
zf+V9>QD+V!kr@Tq{yzJm%504yF9@8^O-@IIDEkJeKz>SQwka4ooRH*l2#0#eg3;W<
z0`Ww!9pg{#P|r{lStkeR>2bYjas0ehdw_s?$3*JbGLL(qz57YC<*d-z+|)Q~ZEfsO
za6X5Em2O$cMJ;_xDQDg1jcSpmb1lv#VJ!IUM#kErVahU>)tHhc9k6yQWLJ;K=qQ4W
z1t@uj2w=sR{DUJw3e?oZ9G4*nnr?>xj*Yd#-K<@zU1A}ifv+BGcj;JJG>)}mlXx#W
zG4+RdQ5)a8h#TVZnmtN(MEL9cEg!;;edwF(E#l{wUPwUW_EOhV!=-}17B?#$s$1N8
zvT2>M%wePUm|Dg%R+iV0BwAE)TN8eQ9A@Gl9{^eRO~oPJ(^v|GZ}~6jO61}cxBWa{
zysLvV)WBJgNWRi$?);NtZ%hg<U^{_m+c)7tmiYYy60?ZhsYdk07bgUf8TH-Bg$h}{
zC#1~q{l;TdZyN1;O*YFZZ$eD7Xq)Ce*j1fuRa4sv$H??qW6F`$KjJH8;oLXJGFW<k
zrmUDmpQ3kvy+(4!Kr5$CDV92OfhX9V6l?1bA}C}fCS5HWBVo%Q%#WO6qpggXb7-wv
zLSc!hrreHYT}}7^n#;j^0Ve=kefT#C^-=xA6V`w>&7^Y!hmlu)8sRQrBXW=NIh|-I
z236f9z-dc#2LL~di(<0OaTgid9P);ad3p?ZoYumbTp?n~#k$dxMWD|3In#dBW4U3f
zr{!S7cv;lw8^aJOZlGXQ!87eAi$+U^-gi8MX?G2RN{!3~klAf&Z=R*$8CRSttleo!
zpPzURlXSM4;v}DCKf>QqF8v{BkGx|pC*rL6x^UsS)#}`CBF(Z+Uhr0!Gt`A2FZe?Z
zJdT)^YcEf^nuYv0{;v4Ldy4x-w><n{WL*VpGEhSF6+R7^jMW<J`s4k_=f;A;jkx_h
z#4x^&s8`n`(0+z5W385{^h@pyLZ9=SfkcdO*Wt{pezUQGR*}VC!M0gzO`r+pK46i8
zV&U%XUv-RoDms0~S&ZIvOwR0K{Qd4aLD*KGjhhpXfDd9Q51Py~kw-v=kX)I*MJMl#
z^cIVim-c^3(yS=~`yqJTHrTfe{}XdM8r7QA0c&8pQf@zSfx~2;OEX&D@n%fSx1_MY
z-v{`}Pjrn&W%@P^4hP|2JrWGDXv@17!v6U`U9Y^v;ZS!4pBc~03p<ykG=)!k!gU&A
zVG{okB4-YRrYXvr#*fk?QtCFTQ0Q8{%ur`YO0wZ$*evt#9TGvvno%t}sPk{Y?S)kj
zP2~$ocjh6y^033i*MnSexpUV*eO;hPeG}ldK?=2@#?I3n464i;^<)M?mk92bW!7bL
zH&VPkp8t}Ri$zS*k6X;u`wKSx6BU{>b4*RKq%2J!#)W|9O>4THGc${KPfNDM$96Lz
zy~kzc92W`dWWEe|V8iljWI6oHG4&a#>e-#f!hj{r(ac4Jqz>(7uY45R5gQnxwxO!r
z%H%IM18V~^Tw9y##~GDMQQdMtOEFn4(?=t7z=r;@EOT0Yz|lxy|M|Lj$@BunAdAmG
zP-g!Gv$2)`?TE!$;+Z`r`CoUkn7OFr`WONw7g(krbBJ-;OaZB}5~=}jAyN(0{fv8|
z#lFUX#fXt|PN#NUc|F}nvwBm%!GURC+(0n+Q;AMT&siw*Ba>}$_|k13UXELW$NEne
z8XjHc(1;vf_p|_>YgM*e<)ubBF`qCx90FqV!)?6z%N?;^Z<rNrMB%EsES$epz0(dQ
z&atLQ=ND0&w>a)n^J<0_7MUQ=ToPVIWp~fB%~m9>m0I^y#;|>V`!K2NXtAigdHO+w
zuNvtf_Qo+L`h7+o^NKsi8*l7{{&|D+*wJA(4PAY}*9>X_`tz-M#@|O95J<Lmf8;~P
zat!^qcJXBdUN)iDlLno<T77S%;8eEnOf#?f#YslofwGbRo^=uC^XIkrFu3J%Y(k?B
z4eC@IuCNpSI!$AIP$$*zd1(BGsicf1`yDN&$?W4Y4@dq|?%rlL%uY2*F05m-vqQnf
zlrWwXXk=nmshsM_jvA?_vx=*vdAI*v7DH}F<%e=4;~rU^R;l~*D+9;h(|h?uYEXwN
zG;M>l{}|Y~BWLaaIwb;yh?aa&I$Gp;`ZM|&D#3BO3=elS|HDqzz|$c#s2rv7UAnL!
zIZonF?6t0yqWl0Uc4$dFl1Kx^O=gf@Tu)rklH<otpyqwIRA<+V0=OGp<csL6lE1Rq
z9D`#XpTFp4=0?4@)WwB4D(qqR><g2t{yfNfN~Xz0g&SA%-VKZmCXggEKC>ay;pn!#
zEl+n}0*Jtc6P{IUC*7aKgVukP-C9@cJdX*qo&g1&f1%iOpF|{fJGiImB0bjI)0E6B
zv1S^q>eC2MMNN%nrXF9)zm{N_@imgyqYbtAPw%g&xe6z5MO24APmMZuhn{P}2ou)^
z-$gr$kp2s}AzB_OOhi1qPG(oApNrOVt#Y5#Tk9vQTb#Lr$7J{Ks_mD<x;U>dk1XwP
zNR6!(<2fv4tq30c<E{HgHBW%{v_!}jiXn}5fn_NXdz3xg4gGD!+=8m(1k79eFl*Hh
zrs9Y^XdV{N0k@S=-BEa@S2M%kFluk83b?hIZk}aci=$#?y<h>qEv3_VB*&BD*hQMI
zmw!4@FmocoyxR;I3e`;JLQBqs(B%Oz!{=gkc<;<+j?FE$BZ$s#DUUKSJI8%NPMNC5
zAFyb(4$--lyCf&3Dju%mMD9#s^_hHLvuPZfC0<pOnz)cVdJL7xW&`v~mo-X9(Bp?M
z>ued*{X_UfBbCnfWF_m(8zM6~7^k-W#JtJV_?>L5H}|6vut!th+5z_iDBTAJ+i#@p
z?0JgDR=H)g#qF}J01b!+J}iE^cGnfO1(mq!rB2qc0tbxWu^86dNqM>+KE}7eCFkdF
zAw6=u>S-Ak-*u&a)g`A!I^q}o)<*}ca2ZCgMWyfLEv9TqzVS|@q8J8~#9FS$2;{a_
zQ_-TelmgcF4U4wA3Pk+XWP3*W+d}uQ)Tq#?!&ZLEs;#e(6?Z30+-G^78umlb_s2#;
zz8wpwxsUr_NwI~W0hkOT&n!2J0ACLq`3d7m72gM}v`l5M1Jo}9Opd%9T4EmW0E@RI
z?^f=U?onaM?P<o%LieYtdYKiDiCd(!;E$ny*jafG{fzw91*t}0XwRQB*1w1b%WdcX
zPc-L0)`rNz*c#@~pZ`tYFcYz`va|f}(|>3V+y6o8{9kAe2Q%CM>Pr3pKyzAMT=6$n
z`f#i2b8^^Pu18wt4M#a}*(_~wW9>FuaCu{KFH26he7tX7cL*I!V@!W3R<mtpnkB{}
z(38(YV(j39j9WP5U1gtQwgMFzCME`OWMhED#WB3a#m%``SkPT4Y4-@>@iK7c`scS+
z!afZ+^6&y7<ZoG!LCZW;v~+L-lN-?kBf<NIW~PVwr^lcS%}tL!Y6}3MoPtAr!&_KH
zGKldF&A>bZ34RUDE*?yr>@ME3PrLth2$RwPp<-e}UK`v15!>YdZBGb-7hLHZhqL_7
zogeFi$+xvJMR0Zg%|lA=GMATk--3gysi}E_Sc!XTK`8xFZ35D8p=1q2nL|F?17U;s
zV!$P`Fogdq<MQTW35?2UKis7;(?O-w0EHyl(=#-)2WxWj^>A)shTs9(c?3-+Hv@Wb
z7tHF7HT&Vn2mdPL1ETOQ4H)<y{q!Jm$?DC9kBPAbT*KLJP20%=Q=F&^26m;xbth$^
z()aa^ytNhtr4(Iv_69`<wWkE_clH~Ea{@&`Q-i?m*nBC3#)%`GxXZ^q#hs}4R++xx
zpLEX`a*X8J0suiA@^Oy6vy{d+Ky2Q(UA%(=8n#v@m)3{x;c`=UF>?NC##gqZ`PL@(
zw{Xd5@BfxNp>F<7p`C#lnwXj%nVLcZT>}eplCp;FN~vyL2L@1Q_($(v-n}$6HiM>j
zrGY$ga02)I20gm6IRb-Z<7Ef!<o>FEG4?Yv1IJ9qW&?!@s<_~`3C!;f3nulx`@!H%
zZ3At@+=`5W8Gd~~&Qfl_a<jHH*E|23{H%(xN><rOSI{hcsXPf-8yV?v22$cfq6Wrg
z#3J_%jSYkE?U{mk{yLC>gFgOd9~tx{a!|AY{THWv?Ns~{Y#a+D3BKov6@Yv>&~b0R
zLPLO1{lax2km452e=?T-?wb6jP5!Pn{l-1~n(Y1FW(;Kms(%{tziP*SCkOgAwkEy>
zIBr?5uAX`j8(MC4j2;8zmV*Ln>+1k1_rJ?hJlI_hq4BX5%K`v44>VQ}P#oHHUhIr-
zKDK~KwSd~}ly-Q<{+0Q!S60w`6JygafsR)`)&}1IX}n#^M@IBJzt|tnlJeLD!2PYC
ziMa_R78e&*+hDiB6K_56pNt*MMXa-zRXR|tGdtUy9X+7iVJ}cwTl_u$T^e58K%ukN
zGY4ZxCa7Ox1fan(fgxx^q<0ZrAc*;Zh`-2vL@(j#KyU{E5#W79@8LU-QojYSzAOP}
ze1EqHy=RGj5uJKQRlh{0fFMc)o^plW5$i#)RDb4t_?Q1XDqJIWua^CU?=;$c6}(<$
z{vxgV_-O~6ZO`r@c7J036nF>}1w>ryS(w^9`?vq5eD#<>90u(B==BM_+@5~=bp2p;
zrCC2f1|+=``lRljJx~HIIs`2feml76ScC_J`fxIRWA<=PUJ;u5IizNE=3w9Lp8BO_
z{KD?qw0>dsU|K#i`qu7zAod7|!37A{cXw`dAwKs$-41X5jQ`x&ehOT?E^dA+^+GoK
z{2nyagJgc4BhoGg6eIjDa;&_HZ*=!EwftH?-|npaccsj)hDrL)rR$f=$}X7ey9Vjn
z&NTk6!HEFEE%gtXZ@@NI_7q;=Z^z{8BTxIr&*Xl$|LK39xzzm$y<P77xy;?|{!NK_
z=j;0Hz3XNr2#E6gcLePE#=HF6g&;nIa0_tyxP%V~_|G{I;KvRcWG_hCb_}jVnhO-2
z8QAhkL;OdhqZ?X(?D5D4-n=8ymk+DVe;)fApm`kggno`vf6Pz8%oi=sZS?s$^*n4d
zyRBWw<FTT{LsBoILNa(3+Nv|x&Na*Hn+RS^5s&vQY9xFk9PW<<9?W#apb2cU=x@eC
z#u$~kQ^KX;{6xZxP|?TH9#>OY=!z}t%g~&+DJ?%8CPL$5+gnH7&;lsxxe2)pAsa7A
z{EyW8(>L6qPU3(N2L~v4LUs**mui2z)r*JVE{J%5+mEgj)~Ey=lki)hcVrhAdgDYD
zLFZz<rZIH37C#<!j5n50FS}Ri_7BZ@y+l3J@r@sCP^1>8*Y}}5|Do}Wn|5^w)AY08
z_Deu^1gkwn#>F(}QD%PVb7D{7z|x#Nz8?uGhI=_#<Z3!ACW}~1umfTD*d)dOt9XP)
z>5E)Z%j`HXqmW_bk$luwe?x+P14ks=j7FjxQ}HI1F56>n2WL*lhEzj~G0&EhHr;gR
zl?C74VN9lv>5DGAwGg#VS6`LnQkA_)IIHm>QJnp654DIYc{VCKbphnqO0wC;-@Ecc
zX=N$Rpcl-gsdcS`J|Sk%9pcL}1h~<R!@9;36PVanL<@C0f{N3w+FznjvB?LiwZ1W3
zeJbGwnA5nfc-@U2?yYeUd@%MxwOfh&#~=frBHp=}w?~e)G#bBfv>KH-TZAF6aX{pD
zryUZ~IsSP&lGcw;%54nt-t_xnvN(-pp){SU;g;l#(jKu<{Y&n`aXyJFXY0^Hh0)}c
z(Gs!XnWN$44_KZU@l(WbXO@Z|{R8O@O<5oK686BGsKG?iEnIIHXY6LLDzt82Eo10b
z+Ip8@Ej-)<>UN4n#KEQ<c=F>dZ?uIAevjLKp4j~m4-qRDcq2#gRdsV{tewfTR%oXt
zse)7BEDFl8&7RAVKNx@cQgF{{Kdg)r`v3WB)Opr*?q!DG3mJ|F!&bmBrlwmyB2gVR
z%gEcA=HTpY&)Hl<H*62x<;m6>eko>l>MVj1&gR72q)u28$b%5_C89kzB3^H1dwJ=*
z=Ysj=Dc>*(y^xF97D%{EuKY@|q(;S%UedXyNe-4lhjmo@cO-f9VIEH=0sq9;KTRS2
zf;;A%<Bi(&R752gDOE=Jxw|~y2gznC{m1qT_{=rNioRDVRJmG*P=3RCX5x64lK6L-
zaP6KG80Z-=T9N>2jBUae-m<aakh9F$z(Z)RJ_lLz^=0B{j(R#R2an4qDa{KT*AB@0
zK<w#NxLh>C-H9*BiPbDe(^<6;x+LVddEfV8Iy~VNS*FWuVBJl?do;$Poagh%xE%<X
z)hw_)=Boqy{M|GMjG-JZO4N?9d9JLOa>5jQ@a8i{hqSr}st?Urt>d^kc`x7qdF|1|
z#9+m1+6Ci<=bJOjn=#cQwPbN$M<igq*A=JtM41OGuJ|J0{iE#mam++&4L(j(J9&Bg
zt!B;QkFwO8zBlOXSgv)AgIsITct=4sA$gs^1bd#<$#x12pXK#&Hn;I(1iRE}=PzDF
zms8U<kE3`KvI&}J6Wl}iWsN*(5)C{wW0{WA+*8T9s&6dBhnwQ(e<^4Z9BuEUG2BG0
zMFf(|-ql4&Bwm~z-kG*XpaQ-Nk%$U+o+yxK^{B?=ngUS^kc11Z%92W`^UmZjp3v2|
z0xnDL5~$1ZR)K$9LcB3FuNnu6yBt^kWkP#X5Oc+{B~i$)QZr1-XeH(#|E+7T`NG&k
z3_hFQ?~n-WuXKDzFCDG?HP$63mL*g=$#CU(GTiygDfXhFvh`$?>a!p<#dtcI`FUb9
zxRd}v42JYm>efJLhKraQG|+UTC#UO>K{zrzN7n<<kV_u^ArZ<mtWpz=I*Lf|9R3;N
zJ0-|)4!LjSBtZA;jqtvGTOd_um3M3-m?}(h)}Q>PLu2G{j>R3&>eUS5SrZWBNUqK6
zV3nwZi@JfifryyrriUNZx;%!dx@c`OpdNj^SCY;$fnsf2$e^~(ylpN|z>Mv(J@|Yv
z;f;trVfn1CV?6r?XROr8S3)=quY4$u<!sa!!&fHA>`mh-Sdv!98EcLDu@yX07l(7r
zJ?r1#llp9W$_gv7j)h{Mp_p&{-`s74fSXSL)1r)Lb8<=0#}?%V_^;RxE)1PYGo|L<
zuyFcsfx`majT=x|R_<#4$3ZRKd!vPpSaD4%m301KE7O%1D>Xh2NNpN=rb2|Xv2trC
z3tJy@)2^mn@^Sm?$$P<m80F-4b=hOE4yj!PK`-B78d@7<ECf*AvLkH$RT)2peqCR$
zp@E(Xh1pmKy><ds1!?T|84>GaPDF#`7!J`ta6buFxuzmNK74Sa-W<%f+M>pIltmeh
ze|YDg6Fi9qD3p8N9!&=GjxAM#X9VhVp`1>#he+!ZtzpGH-^|FI?$z0lS3;s8y9%y%
z{OpHVOS?Eii@hA4z;p&r#Sj7fu@6m79C?`R!{pda=i}a>BB_;qb~~&<rxW>Zl!4X@
z?Bm8M2zWn5ohlMMvE!a&t7aiGtn}BWU)k_1)-VUT4W%JR$*a>bh_uO(5xn#Hn)P7J
zOgt)&-|RKucKF`CbW;i6jJ2VCD+&PO<j5H7W4I~QqKD!UNQS{?(tQlfHTSQ!@Wot(
zCIV3Tl*QC#VicE7zFEpD1&jD~;${F^?Pn(G$?-zc1C-mJ*Kvao-L>xS>8%^bYxnEw
zB+UGQ0z5#RSwphg67V-Kx+sP+Nsals1`Z`MSnlez{S7oXzS)RRo}3g%VXkRUuWG)I
z-l<eRrKjnArNtH+0n(G8zL0DhA|xdGSEj#iPIA%TzvQ)&3JnRdxzxuR%pRIL6sDVe
zt%LBEv)|84_xb$JBF4H!7egEY49TtMa*ou56)u~+F`lZY%hcKy!$|JcXQ&R_rBD{(
zxla{H3ttmsfez)6++(MbX;zz(VZu<+F+um-C$|08&~B4sXehAc<|Z#u7B)v^{1X!I
zvs5K0MPH;dT4ZHe<FkC}6;lZbmViS5goLG8<r)(j3YIF>5GOjid?LttFV(?~yxc6D
z$$t6*&fa?0#7sh2t#jmmqdw!{Qyoq}NSRTQG56ZflshY_XL&KIkc0+7wNd4+ZAjEK
zXvq)mn9gBR+uLLSn}J*4U$6i*jf7hXGs%smZn)$xRjBR&D=UT#t@bfC-UW6i-gXaE
zGbv|cW+WrSz3dFm4Qz~2Zmu+bWGZSYp?p;ru9US#TdIW-jFe#dS|PL?fQ+8$$Q_f%
zkTH(FY-Ws0ZQ?jCnpPx9&!z74pqV7{Hu3b_3keXlkzYViInphBwZ7H^Dgp|i%xL}w
z0aZ;Plj`08A${mVh8K3CbTT1&KCRl1{>UJq^7-+;z<@eN&J|c491gycEK3EUDfI^e
zca^!o$<7?AN*2OXDMvBQ=!x()3B#!5S^pE$5}lbu_aGSK$HL6Ltbtf8EvP|?WjK0=
za@)s7z#KH6Tav4SBKtD#ky;|Yp3)U)_Y`I%c6EN`OWj2$eOD^~Lcb`ZR!l?XlbB;>
zro%}CFOw0t#ScQ;)*!=|Y}4i<)+oiabU$H!*^@5I<qg9{I{0mzVh*2JCccW-de%#e
zEW}hj)ejjh_RP#0ogg)A-uy;<lmy3n`Wg~fZOuharBL_*CzZ+8n$*OxjJE3!3B7({
ziQ+v^r~IIT=VJTj2K6LiTG~-<g7nVGQm#L$5?h^4mZv}afeqC%s@h}$7;7>W7}u%i
zF0xD+PI1?hkr#%T>yV6nEWTw;+kI?Ad{pD?32PmexpUJ1H>hEUw4T3B_9L}Vef|3x
zhC5@d0cn@){Nz=Y8LU#le<KwW3dF&1P}Lxlna6SI+_l%Wn_u8BP0w~}CL}1rzLgNO
zbm*j7&M!<KG+|Gm-G|tH3Fw1i{F3nEMgnOW%Dge4AZqqbjTl4g<Qhl7MaOm*@QmS)
zk>uCBxLdejh1?BGdrWUQze4kdj}^G-VPoE<yRHv7qMnnSvz}){b8=cehfQO**%rA%
zD2@ReXVgdR;YLAxzcG*BO;o?a8LWRMQz>H+fVh^u8Skm6E{k_&KdLt$>4T@@U8}>!
z)gM!cmPMnG&f^o{-t^|)yV2~3o~+j2XG;a5Nt|lC*<@i!OJ{M*-EG@aChx$WgoYJ~
zZ(;hmqF$vICy@=rZkbv=MTqM@X4KgA>j^kZF_IKZ{6ucewX^ZX@gbAJY_YNcdp5iU
zXU?Km-QEb;y8^8RX>f1z2FD^btsi(-la?^(A6-#+PkbO<HaOy7h{k58<W$hGj`K_)
zY9Qt_!S<*{=z+Pr`Y7ZKIp=_2q`#9=A7jtg(385t2(oDR&30?2KTGQA1Nyqz2JJc-
zKRe9w>fwZ-KIUXqK&`gs$tJEX^3|<GnVqC5{q8fE^f^ERnD!9KhM}-#T@_TCB{!ea
z@md`?8eBclGr7mj!V>1?$o9&}sKhv^?(ef|sn{C7F)JN*Sx+(_c$u1bo+59Dsko;G
zFvwZV4@t?(tChqF_?LX4Q>^n0I)9zt6g{b_Qcw7b#+=SI^M}A~+`osp>!;CB_41p}
z%Dn+2rBwV7vlB-~d9+%jO5!RbtSV)VbmkS1T^~jzJ-x1{>I=j%_vA_sGHT?a%eJiO
zuo&(iKEE|dt$uTZErP#Wq26^eb`Wz~uYZp+^b#E1F1~FpRe~Rs1sd5$ZRd968r}TB
z?nlvnw`i}yX1{<_`(+h7hJ0GzA8}9Uc$A+@g5<b$*}QL=#xN|B=DGb(jWzl92edn{
zYkR74vt$=&Wq{XCL8cltnF6B0;KDGL@|fG<t~Y<I2fk5P3_YF*JA)iFq4kuuCYTau
z`ul1mVtS0aCXO3cPL)OBHA~d^M$I<SJ}8ivK*)cp6f)9lKQDq1jZ5XT$R3gD0|ZjY
z=YB0eb1L{cBk8@&e@r;8k_nqS!sZ9MWwnu%1VVVaJ2%6>PhR_&16Jzxt)(<vrpY5;
zW=mZs@s~0xqs#&daM?PkCnZ4lx$Ww<zBwj=(v955<t)3eowJ$oB$Q;Bf9{$-^&%L3
z9Z;$n9k0wI=w$ht_9^<z6k+=@8MVTQ${k)&DD$cmu^D72A-XAS^)9T{=SctN<(VV;
zIoiJ5xO{d#`tw{GrW^!4<VdQ+ERnufJurAfQ4OHKAmFw~Q`4bjCa2P;Tf@h#=T(en
zF`g}OfB2FD?;4?iV*XJ?ePGLqn;qlcY35~P&*G8%;~iQ4wsp7H*qV?b^lAFCUcB8I
zIq%i7Y{JrZ=gh$I3u{jXBW@{SYK{snkne^yJ+~NBG^n3z4g=rMLQ&cBLE$K6LS#HV
z+b8u;r9NHw8+Bn`zH~XBY@aAqK1PyKS$pfOBhNp>#~y@y15^DPCfv1iA4hK*doj$e
z6Lgc+D--QD?Y#o-aRP}fga^)H_T1oT2%4V@LBhGc+Kkhn371J+c7$XwxK+on7PaWp
zcg%R+s0e?hBie7MZ;4a|>o59P*NCG|TWh`}Ksv=A?OacS*0}D6Ny<rLj_UD?L*$6V
zk5BmDWql}Htv7NHh9sl&fdFSV?cDAVqBfUrZ~~XuUPl<GfS(aCw((hy_ux3)FD!a)
zspqJVBhL9sN+)ww*~4{m0KlPKsDlm(5dk$ut&~~-XZv^93EZWv08R!{%xCu`tjFN(
za;R9I=SUGJ`>)6E{j8W;R(<hu$_`Za9r&NP#Ci6|PyB|&)KY3I83vtyUwW3`v4MVv
z4KvhOwv`(1GSE5wCT)v9Vq$=UC>o!GM+cM^Av&BtqYADffFGaz;G9=DffK}VTEv2{
z_=))Zxt#xGIga=?X=!T$w?7m1QAb2GZi0#zTlo^lxa66yQv~o0h){*Nn7QUfX7ETv
zNw%hqC<XQlc=AFmbWA+n2-f6<NpgN7#TZ*&L#xj5`4WdMjjt$+6K$We!ov^8cXTS7
zMs3VOhJVPdu7jF=lQzLE97iqxDj+F5`LjE1XEFx!>HV-!20YN+maV)Fd&)rgF!0aN
z#x22!VXDMWz(iyij>fkP%EPp&Z9V-P7`()rrByHAC~Jzi8*^H}h%7sk?(fmuD14(#
z*AydIa2x}xr4q`!f<_izr_{YmR7$iFNI;8p<zmMwo04fy#iNqSnr30>C+05@;=Hyw
zXdu2|>s%|99+EN&(Y6&vD)lUUsgN^N1mu6{URc3req;|#3~g&05`s)#wE^m|e74vw
zTcE>MhnHzItp)jw{pRx)00-#|%{}QTi{ulFm>i*oFr$Az%xTIiY9bS^t<~?O_symK
zt=`!qum7vlGlu4^0u)agXed$FPs0w?U9Dot$rSoAan`&Rxndf;Sq+UQMSyRobq1}=
z8Q$?kZP0UKe1rO6);tbCRKO+vDq;o_!u0k<)(L&lPz2(Ov^#szUX*q=r)~*yQU}rO
zDA{eH^9&YHZCcrm6(=p_DryqS@4{szTdk&~|6sCp56e9D=}Fi34v7PT-ePx|eu!^L
zI6<hkNi-R7cUWT+Gt^QPlXT6n9P8}b24aOWHv!52S?v`is=n_reYHDt^uupfE9=^W
zL1hlIaFieDT7@?^eW#ZOAJgS-W_s4Iag*pQ;NAx$LY(u)@^Ld1knG3G?%1r}d&Kt*
z57Z}!i_=+R%C#3HA_(>&Q5CvNP_)C(m5Z2R_Y*NGUb;mjZ#LMvh<CofyCxnbFahDy
z^qQc$zCQgvQk*sZHM@36paR8G>Cq!3CsY<_*{)~DFj9?uXoxo?+11_evUCIfW9OsR
zhWa}uaCep`rdaU9?{|CMN{ez6-JKzIK^Cp0HGv)r@VuEg#KqK)6vN2_C0j|EkOQhq
z@eK_wzLY=6(&?Hq1Seh)lLWrhNi+m_&Pd<Vwi>1G*LHWKn!Xa46+l@orp{taeJ`=X
zg+$l(PymJ1vKxx_4}v&fNId+sK2ot}`t;w+6#iNNt%pVIYw20T`KvB=S`1@H6r<`n
z9XMkkZM$>zT+Mt_+?Qhb3%!lYX!zG)O9yD)fzcqorRH=yw{T8uN}M8%oawVH3ya#M
zKRzY<^Gpal!J+7X?YyV&M!FRYn;JPbT;^%b3fN)cr{V<UI~I2qhFcV<Z6`M}cEqd1
zH^;TrtY&SvIvy2f?x`B}EBobZRI51LU*Yg}b;)+;@@8}{wuO`|L#bY>TXombDE}^P
z4-=oMKxGouI@ajc%#NC}%~OuoCQrZiwK8ynxp<?ugLjHxsfBR|$Sxu_Uu#3}Bk4Jo
zlh#VTQ&M(V4=#rNMrgUq2^hQ2T-wV?>W=AQf;o-heL3zd@-9IUjK#+|+us(#-5XM*
zN_ms|wjYId{>p|UZT$%4QibQK)pNza17EHf%P8wsRH53RPIVysiZuDQCI){$38Age
zajR+Rkwi<1q)Kq2=@si3jKCq|%$H^F{N1h(Y}EByRZk_%G%Fs<%KLT;mRoEG(NUIw
zV0nc|{Tgm#gdq1dFF<;T_e$5D6ObQ4Q|WRrn|Q6rHI5umvf@(j4pWljF1eqtoOx4&
zTpy#5x{7HZZZmGT@C~I%J~Xk_lcC<dnIVbVmf;h*8Ir(e_HZII_qM<}&48oE*P)#M
zu~mbmz%3nSyFottlaa7T0{Kx1D__&R>3-}(c^H3E3~IYkEA7BI5*4}ER#A$Yr!`1&
z{BME*^cJbX25v2#gCxv{SX|9bjw-rI_XL9ka>*0ci(k}X<^>CCrbs3cR>R@2M2?qP
zi>x7*$;#AOo4Uo%Z)MQJ+`N}my6or)FPVfcOkP=7-8h+#dy;I2yX4~T4ZITrDoqP9
zT)Ma!j)!#Co+438JApxBefJ-@Y2Yk<fxB!ZbW(unh||47Nrp|KzT)hq+Ja`4;yN(c
zA<?w?;x@yE9H`~$Q<Gw}VCm5#$Y#dgx1`R3-5qOcEQ5_!{}#(pnTay;6CB>uY7zI0
zjjX}vm2FEDa8+cxx657$sh0tPX|sxf0?%AaKfKnZ1;PcQLMTpgPO2YGgH|Om`G(Ae
zN-XKr)b01?Xa<&*fk#gQwlLwp^4foG;UQ!EbM^+VWvkJWu!99q&6sp<3M!JNDLOsu
zufmMG#8FF&|7;ISeSAV-R~5+)1mf^n#SNhyV+`-a8haNO<|#Cn{FA)~R9^gD9e9%M
zZ>GIBt>3U!r~V}4o3$?}888ND5Y=RE>H8N<xutk)z2SJ~=9;a5kilI)BbVr6ScWlm
z;RG3VRelZ;N*zm-wKwr0wENbR5LvBIq-5Bp7C2g%$?6##hxW!<TalaJC&@LFI61}r
zIahHuOWQZZ^(Q@LydWxh87U#U4OI>_`qr6zu7+K+NEw}hZodSU)&O0*XwM20B!-rf
zI9FFd&*R?!N@__|y2LIE!J;(+fpNlJ3XaN^5o(}R(fsHMqiOy(H0ZJael(SmREcd)
z$4+Rd)x*!dD;g7G7@^fc5}AkYqw6AeL)s<lMkOduwr4$OkTX=p%gU86&hzTeX8M{X
za17B^y~bDZ#*%J8tP4%%#lVM4%=y7nFQT7A0T|}ts>OUKf13HXDPdQ4M#43rrI7Tl
zZ~AVjn0AcsVF5PYXLibFWMqIjnub<>BVjZ22$ZwEr~Q%AOO#U~gD0)-g9KF-_A{aV
zN%h<24#l|k#FxhU*jH-}5huQLw3)gNyl@aXtWcJ>A{uq`<tYI>N!wqxnC&r#t8}3X
zM~Ct*(86+7l)L%VT14y>;5vGKmq`cxkK6*lQg&51tjuglK_IH?(E^4xUi{qOV;VYp
zr^oRWcoY)XusJ;Ca2~WLlk#f0UXa|9e=ckdl_hbucygY}-V!a@P$NgFu@7+kYn1t!
z6)na|WrUj7AS<66^DA1ok}J{ijDtEf7t|+OHUO|UsP9Nh3{GDICT?e7YNmp=Acc1}
zcFw7%Xsco@KKih1L6Z0Spu4p&Y>myFP21f8a@GGP+94!AI+bwwY9@VWkM*d40S|4k
zdui!(A;@0!9UG=}FrG9t2f!itMhtlaQUn9t^`L8n$t`+60p7O}QaTsh?t)b9H{SSe
z%g3&7WtbHNP(G=m%s;SdGr{7&l$!2H+aP1we3>0K^n+c|4hH{(|D`e^1#GOfgK||k
z22+Ew59~#nj6on*tJ>a~dt*ZqjG#}fmynetj;Ynecq<6x@=m;nm=e>UCvp1acZ;zC
ztEH#o3FlONPNA(DP4?oeQ`G_uXe&g9oCLU{4_>2D>oKInzDEFV1n|0ji66kU&Tupu
z+r$uw$(zN=TT2()YSx?<B?IfCKpQMu+TKL8A_W;vNkQTXk30YHK|hRAZbaV<c1`3P
zQo@(((=vtgk}|jEra)0ypstLr2hS^S+YHteQxJek&Z49?iBZDIdh_!8O5jY0`G<p{
z;sVt+wmN(5aR%yAOv)P*{3U=jEfj6uQacfoohI%od9VtWYI)?6WgXNK=%!UuWl7|D
zOM%=TyTWzNtyY9;bNY9VmYDG<ot4c)B9JhTR_4@1?=WXqVRZRXW17rWEqBQ(l5zv$
z+||#y)GX~FTF7;H&Qv~*jd};-?@UbM08-H~%j<9+GaaJU<ECx!nXt4VJk<9mJLiRn
z08I6TZ%c<6KRaF%O0LIRP7M`7|C(HmXkmrS3t!c?T60j{;%6v(ou~BOy@^}&3@5%f
zI-6BLqRWRpZr@CX*-T>P_fmzm+D6Nmr9L8_`#}21*1aw*@^1**OA}`UI{;LsZeo0J
z>@0=Ag?QG6SuK?K+zX+kF|L=A&YWRV+55z4<YPrD=@>iO9r713`AN7)T0=>(wG~}r
zJfqGt;lv?LQ{L**za=M&?^WHAl4fxlm>APp<Y<`O2O~q=lAdylE4&zpQ!4z+mTUZp
z1*5|nA1YGL-5Nat+2zJ6B>1+`_$+chGyE!d)3(Xs5KhCc`~W>!YiV`&9ZnL~=g}-~
zxk*>ZWY)4%>FXb(jpSaAacH=QClmxB1<gvSCOW}W+D!zu-yEzS0ZqdD(N{KW|7yYI
zt#Ji`Cf`#iYOq0Lt`9+sK$JxZ!_$uM#kEClYRiI^1Yb2$y@uXVn$+Fy-36-i&8Ja@
zTZxJ=!G_W$rN&#>a#RvDqvUyZ`x!(^bku<zcKT4R3|}x-6y8xe`>{ezRI!+VsTVXW
z@3r}?(GAWSN6;f6cqiVal}#HX^70RcVtOi@9B{jsza+S@!$VTku3Uw>7V0y)s&jr@
z*tq>y%I}{wYSU39g(5j8odCb@M#q4gJ03HE;Z0!8QIlZ)OxIQ7D=bp#Z4JVVF2tq|
z*cZ+S5nbm!t;``4P%loJXMqsOa_iC=1zlt#9on@Lg^=W{3{Sg&1?JHQ;Aq-obJO&$
zxIQBn_*^xPBsQdV1p8Tv4l*3yaYh5z243MRC#+1f+rKc9I$dT@CCytjTgpTo9D}!1
zO4I@W#oEOL7x21%mQ7&f6%o*$kxJ`R41%PMdxBs#yyufOm>MoN2G))w9K$=!-L4vX
zllwJZ3ml?8qFQLQG7diIgJI)vm47;%eh=E6bN#gvTYb&<Y>(^pJ=_U!YH2xRa^LsH
zOkvx-_#fc}GF=+1Rgj#>*1X_|tb4?nN{bfr2q;C@(lflHexw7=6bt(nd3Oec4MS&^
z#o@&8BH%UxsjHhSx5K(L)Efn*H(crV4;x;{_K_+@5D5iCTXS-ucO6(mWcpsCNnDU9
z{UdGv1~V$hL6h?{*b$#LR}1k9($qKC1weGts$d$n;475yYuMJDu_m8&F~dkRH4DB{
z_ib__PWi(a9~3Ot!_}A;sNb5T4NyAdoS(bW_}*86FRCa@Bq;m3Z)lqiF&`<7v=VE3
zYkipStM_1uttez?ygN7Yuoj+p4Q`=oa*T;`Dx`986rj32Kp(8Y4URg+K!H+Fc@yU~
zhHS!I0LO!*waO#g7*;zUPan7G*`+%uW_L-t6x5N+;8EU%Y*TSGy8JOxkJ_;Th6Ev>
z>}rN=V(C?80?eCM%J&vka%0FId2%%}PrfCQ=%ROL&r#Fa1VqH@2FszX#67nny7ju4
zMpqb^YYJqWOjSudVvqz0X?+FNJRef*UW#<O@VFi+^u|XOjzu!XL}fc%e9ffGNFhls
zfy^X3DP_O^Y&vocU{je2BSug7GT?S~>2eY<I5Xt@Wqa;7YJtP3IE^k9zZ>ScHaC(W
z?(=H8ZV?HoETyZPH9-pFk?3j4^Nii97v^E>7a$8&6;+{E9gW;g!hS&XUjiH-+=2iG
zf*R?vIq!BWQL-9&9@i$R>_|(37f9E*tn#jPuVwAZS1?1h`x!pHmRB=!g}TQp(DC{;
zQo=m=XWOYdqi|Qx@*;o2@UYy7pM=*&yd02XQz4h5>I)a&F4(~Rdxbf8XE^?J8c@_;
z!D&}DVrQ;!LZ>n38JA#YdvFg%zpuM$H6j*}kgCY|4NkI>Q@3o3T>o7hn&X$YRTJN@
zCFCwF;UM;FAwg7I<o2kp_j4t|W&GzYp>}qPLz8fzMlF`~Quc%*mbekc8HtZ3fTj|G
zY2E!QXt*#0gG}p}WDu2hw-3FD(QHq*8QIM2AV7cI`MC00F(esf7vf%?T9Ilahs2RR
zO;EK-EO$3^&=nc)P;b9)Lz)34&8?=EwE+;hb&xnw<*KNiNO3qLmRzkTz0}ZS6z9{I
zS<1I<Z9G_}ifH<0;HTk=88UAg6!Gf5szv-(_mQAP7I~`3Kvz-kOM!YVpJI7bhEJ7R
zNSp9<+El9@W`MOI$#4jN!#IAj-RnvVZjr4a5ZePK8lT1|?qv6lCq9cmvKlBOXDJjP
zycnTQ)ATv2>QDy4*osC$x!0_y+1Habl=%w-c4@Z8o2T1bxvXRebIiXD;F+#~siq69
zU#SJq#|oNR;axj9OG=dSYiZ1jEZzN@1D=!|h=&tA5KmS?qP#}nYOIq{aujA5uIsL)
z3Z00Zldo5i<5u<|i`9XQKae~(1_sc7QvTBeuYUT3Ou#}6=IOdQr`Dq}7y%~xdtVfy
zS|gEe|B?~W6bs<TG>G_v!fTcajLP*^kB>wIv~k)PAYomu=;KC@7_~e$bJwiqF@?FN
zCUG(D)<OhV)Bh9E?dY<+TpnX<mHCpynBzxxx3n4HgJ_U15`QLo%Z;$#Vylg_#&E^G
z<B{6=XsA}0rJo0|q4qOYfllb&e$Av2e@IOxwaS>|Of3iF_Y*aoVTP@*bQvf|t^C!4
z){03qi%g8?CmT}sCIg-<%k==r>Ovo@^suK@F#zhh(N2oU>ZrmK2Rq9g{P7}nhQsnX
zBC)yxIoOrZXkH)Ou0JxgHo?E||4OFs^3!#470q6;seMWunvL0TP<f;Lmu1;iAc#1E
z%S2Me#wPu@oS(_efSGG6#=G;Zs-J}6w4N&O)l}vP)qB@z*QE5#0q*So{Q>b<93{E4
zlwA5CcB*@yw5(ODnbQQ>vYQC$O>`-5v#a0FsN{RVd|F%MXi-xV&Vlqb-B3Dn*!F=~
zk}#*;V>_G!=Jkr}Ar{prZl8g^dDcfgL-s(_WQ)(skjR#-FJvc!YB;)#m+dyhHMX!X
z8C;<^Wno@W_CQdwj96&8$f(tsSi7<R3Lr0QrwjKd(6(2Nt10}i^a)x`D_rEsnrF+W
z38Fn&SS18colcSSN3qS15PL@z6mbn&89KZYhQFl|I^#rlF>?uu0Sey<v2Q|u<fP)m
z_>X^X2dh^+iXoive$__n%}fP^?Qv=nuOD9i?@OW7Xc3z)vTC>>`*E#XA5((nO&}?s
zRRQU9FmlfISbITLB))e@kxP~hL#XZ5=<#RE8<bS)&DpFOb@U_nUr9=S_em5$Xm`^v
zlK_fl#Dh4qJEbL^-xgUGznthKv67|Q@*%?&T6<!UAIV{7Cd#*Y(7hzim1u;KfMGfX
zDa$!;J(n_q%TetY$>U|{mC7Oi;kk^{&4iz*#MF4C?y~ft2hx!YJeGGmpgZy>`!fxO
zH&Gaq3Ai<U+vRUip@xTo8tUU&c_qtUaKr-^G5|xK7j=kcW*^UG_zi@{s{Zsc(6a%6
z{y~!mm;ee(4Etc%oae0XlL}hwhJ6@SRxz%hC%#fs#maGynLFf*33eOyRm{^;^51JT
zJZ0!&Wihf)6JF0RP|=#SX@9UXHGouPrnnvc;a#SGC$IZ)5io9sWJ+$V`Q+I@hohF%
z1}}DsYv4Z*DNO@vsrWB4Z%y-qTx>>reV2}(b<pcfOnc6J!usS01pSA)W2DL68E29Q
z9*`Xaoyx-YMNFNR9&PwtIi1V{A<ntqOlotd;%00_Tpb@u>r*(LL_A@%#a_+7WfE(;
zv{JaJjI2dD3@e_LK%j;~tCpFFmxfQu@FuiNPFm;ktQd>^G)}BoKk3!N6O=JzT79TO
zeSIZSwrp~QUO(B-Y+ueFKPv!PC&bCJIOvSkyhR)fU6SqQq&%L0=CEG<gqYxkde5g1
z0;lX`Xl9WM0Q&PCsNRMaU$V*^;stjnlk6KO#nZWpv>H+axsjZ9pNPqW^6FdbfH^g$
zD%ULjL1li`W=;AONPAy2##~(P1~sTct|O7dXa-m_P_@b{#ZlO??id!wNH{}_(LiJK
ze^>Dr-`Gbmg<1>M^1&ZgsY~^Nokw&L0YwP%`PY`>^3G+gkCrGuzCnV2cz~10@?s}1
zhe(A}&ZMk7sFdU85O_(YSd=q0(9Uj*)wYbRS^>b~t@vgOPAo&B2tCGX?qsP>!l!Rv
zhua2gwVlv`qXVf<)^<Gym=jERBn5Eg;%Ml8(k-Jl=YW0@9Gt|73n_1RTB6Pxm@DWB
zM6+l=JXm#!6uHqjhMx;j*q{~GwTFpRYKoKmyKnw?iIc6xPZTWIZY$Ji$dcAoioskt
zF~bCyjfnS9{f)h^46^0u-QA(AaD9Jo+<)XMSc>WjI{3!n+D>y=?$^ePVa{f=F*=2k
zHAwUv+mw!oo|@8LDDCrdr2yf2Zy0V!)*na8EdIR1Ak~Ep)#vh1CFk7zUGIof`;g`?
zRK>eTWA2icmT%&v71*)8ElC6yqiee!Ys4;Ckyd_ZXBU@*Nv{8*QM=a#)h4Y#hQ*Dx
zj|aF~Mme<9%>aY>`rk~a1BZP)V&dC@$%NTegnM2MtOk2S_0;$;R+w7P@w_A7XdHBc
zp{`G^pVBWs7hB319qw$Q45vfBJ5pXGqa`@eCK1BQ%o@h9_G>F!pC_wmseViy&{({e
z>EQ>J<#b-73}LHgcM17)%!w8{kObH2?PHSChL;v*K4J2$(SnjdYb(!}0%UWIY#)Fd
zVXCKYgprLK(A5k2r=G{&k~op$NNwQ9o*)@==UYenfw7@&W{6|#Yhcj8qPK{kll|h0
zwGfbM#uv?+c1;pv5)7Og@9M7;!B?p2t+g(O6zE12k1Rv@{rMquvvhK=sSvJqu=`Ee
zzol0i3EwiLek|u^cb+XpX=PgAjWo_KypVsmZOiL3JhrrR(K?zztc|6@R}Ep5{w>c0
zTv(<-@!Jmu<LY^RdQl@AT|I%Lo~zJ@U#*7nSVKw_nL4gEm-^R`Gw{1K5qA0{T?|(q
zLlBzp8}>hSbG{GO)e@N(S)RQ8^@lo7yqUhkq$EmGet@iR>)X-E11)J3>rUsuDe46n
z`RmIGuvYn9gfXLAn@o={c<qoLwu{n<gmPIiD<3y6x~nOR@I1uGj^7iirj3?s;~*Dg
zj>83pi8@Rwr*Z!04VRi61E@%o2%roRnD3G@vKe6qY$3B@@_soUdD?vM>%7lLg<R5c
zkiPZb!?<gB1sGbGF=%1)Uqo3uU&a(sy<o1-aKEi*Zr+2Cvh%_$4vHY@v8nP}jGfeQ
zwpu((yvQM!c<Qbx)8hfUu5a}fnj*}s^B*|d3UD;tKlHDOui?tkP>6_iPg{pDyd<cD
zUg4dn&-hyB@uGM0kqtbna=i9A=sRdvFuP7jZ;viB<2~3M#7p<!yG876MSCv~dJEuI
zI0g$*Gc`Z<07&PxUrUNQDWTGDLX*_>`P$BFv8W)imCiPZCa|5?Q);vRcrz>F;MgBY
z0_!<Is|Ozu5G%Nse@_P5;eICdFFlK0|H*#War)=aWj~8gHLWo35R{6M6_p@*Xno>@
zHP{y%$KQhfIRO~iDFDN<8T+b93x)VZ%^?Q0apE_N31FI)H=8fI?XEqhK!ghh%qOQ|
zgMJt8>n~Kvtx_2ub0JSEY>3tccXD8)TfVg~(O1*H8G4x#9fnR-&w~&XD>=a6@b0Er
zE8}3*KU<>LS>o&s>V?J>$F0(#Sbi>q;EJ{#nfY4w6$IovO!M=&FPU|Y>6ytswt6QF
zS0;2+=@=-JJMxcjebs6B=Ob7i84Mn0G~O=1Zu~n-z~itgMe8Ibxpc5i@u`5fssFyB
z?*^}=J6TlY_U-Zokxa2oQxVEvR=yM)7{@G7=n6{`KfOv3&@=~1;N3;47W?A3)E8b9
zOr*yH{%?jwo{~WXyKf`)s8yIt2I;xAF!{!ihcvRFt%j!QSYd7_tPgw$#UY1AkHzIk
z*h*aQ$?|i!gm7@(xx<*557ymVg2qlo3h&o@^0sbwg-c4=3INK41b?+t7rg9$<9l0i
z@#Q;SpE~9RrcY90M^w9*9!Uo^@q{HtY0@KbzcuV#E^v6!c~Ocup2YIJjP2ofBTw4F
z6;W?%QM<fhYe{~F+6#}jxk599a&+Tg{Ub0y#>EI}?niJq{qDAKPl&@$DIy5$d~cEd
z4ADG=u;QR#pJ_UP+Wa>cVeAJ-_4)}U0clH!+H2OwnZ>8?TfL48Hr-f%nqGm7XK>Yf
znteM;ow#*5Jw9g2Fam_yB+ut^Ij%H<V~DlTpw`uV1`9VnzzqqVU_o!R8zZ{Nng6oy
zl)2Yvswy;B?-}i8cI|7)LgI?}7pbhZ-Pm4&k-^jc+=TiiJGAajiOG+-$!m@xo9fE=
z+XROi7M2{|Oq6&c1J}MjvcXH&mm{$$W`$Fx$rRwechY2*sS?QJ_<@574ZK=3>qY#P
zl2@I%n6fd(3v(E2dOe`ms3GWZ)vXqz7Rj89Hzcf)j=Ni7-!D<S_gp|jIbapujCnOK
zb+oM8%8xx;a^z-cmBQu}rYLG=b_L}l1bw5IIDf;w2>0TI8X#}Ug2)E}Lj`TXj0SIW
zi2-Sb1md<qB@aF;Cx=sUhC=-xjGa@DXwkNA%eHOXwr$rc+qP}nwr$(1Y}>ZZ%1w51
zZn7WF<M;z}^x41Bz82%cl$PfWIQAaQj0`MHg$?l;?KmY$(FKmR6~-%%goXPG{X@8~
zZww6y^gYfj(cqI0jB=B^HynOWExkyTX_c13a5Fy8^^fhCeKDWrA`fil<b%lP?!nI%
z9HAb`voAYZV>N&3(yovpqk|P~to!!Po=uRn4w=g53;#*fY%M4GW5dg)u{=95gP?)!
zWMNg%o$(oJa4~!^8$^m&NQ}Bz1$k-l#fuNeRV!4KxlB*o5zK&WyR&Cm90PJq9oO88
zb#Fy<5b&36DuXV(?JKyB2$WPF3TpNPeIjy_z@@Y_O*Ozyb;Y#Az}S=;DiZyLyZV`T
zSo5efn?VDav!V!U9(@b@K3zUMQ?t)G5l$Z0LGl9kL2QqpqD>FskCeR25&^d+^5tR8
zfOy4sy~BO`bk(?DVZ7EZj*CN<49+QObkW#4EP+QoPtENv*c-yL@Z{euPxj#cqhEXT
z=IObh)9w&6rQfx9g<!gEumUreR0JSz&D)=DgDeiq$c9Xe9sfR4bUw-Tzx|kd?sY5}
zj)i#4cLelwTwh8`jfPpRCCQ&!D}qu!q`n#I6qSim*abuhdQ7OevK}Y8B43zXhBUoP
z<<4ezwR|kWZZ5woo++_(cTrgqt&ZfG0r{nc^66$8Mv*%hOYHx+k|4($fr@*{#Z=To
zyAUmM7+hj7>m`6xbVcCYa?WaX3a8CVn-Zg8Uh5Fvp^bn0FaOPa22JvUE2!n(-~4k_
zk7?w@#n^76XDP|nFDiUJ-!=UkTWu32Xe34es`cAcHOyIT6tR_UV=cp4{x3T8JjWVV
z@Yo=Z5cVwG-odA#^!vE?0t|X3t$H3Zq|8F=`rH=pZf&xarWUw(TUDTT7#rD@$phy)
z<<o^+=2~W1^bX@*7j;#N)(gz~;QD)7s4S~C%Jt*DUhoi_WRLGW@VS0EI@~lRxTwKX
zW4zk&mJ;K@JX-_i9jlisI#oO}I;McfyW;@<a1&8Px7eDew%*`Bt@#SfVU8XT#(Wny
zR-ZSAzH)G*wDp&^06C5EcRJSn%8Kfug>}2rSyM`IhP++D<Uz&7@=PcgJ8WlZ!y&>G
z)BtzDAeiZO4&X#R;ufkFJ<nt4en`W9+}&6$EAT?&l~RPvR-7NbQKkbaDPB(8ZL%e~
z7mmj~sH3cJAYl&f0KBeoOwq_XK)DG1hfTTeBIWX!FThu&WNi8V`L7xUkR*I`sZ&0F
z%}}Qe-6@#Mf%-qL15_-u;g{H+q%Kkm^VTk7G^4`#y5i%+eAnB!;n-4=^*z?^OZo{+
zLt*b5J^fP%d|&<;uN<I_HeyH|1|9Uzc1mT(-&WGm6sI0`S3!Xjfap?-RfA?gi@?+=
z^o$uI*p^!8)Yg~v;BkR%f#_}V$>G}G^g=qFj5h0tPHEW_?xYbW4B2EwRDknr>$}1d
zx$6Sz!_mID=@X#rAOO91(Zy)p&DMW?&NhYgZn*P#ZfRJMY25&Wz_tlN1>;sMHOtDf
zq6JwliGp!m8au7zw3+3TVE*7gQgO}D*~F-CO6P|fw}z!o<GeQ#E8A*NF3#AN9AmHT
zVFqh5>-zQ|%WiK6U<bOqP5idw9ya0}LATbA7WbixQ5De%k0Ow$G0{=MlnOJBgTH@3
z>?yS}J)-O8ioPrAZUY<4QS_j-_JX<Ku6skXEeKb{Jw;{(;gs#h5clg7<f19~j#dp;
zaI4loRnooke;<vTR;L(|9>y~AiK4r95+6YOj|OFD6o2GK5z9vjWZvnk;yFYWhHpwZ
zD6sdjr5x+>UMfSCwQunvX^FxrR?x>-PS4l0sHGL{;VC{YfIdT@VFFmT>zUXQ`P06x
z<W$?3!#uF97y6rr4Epo`ZpYd(yv)an#T>n8$hR5oOAWr!{wefL$?Vd&>|Qil-N5!a
zh7%A_tyEi*SGk*~#)6~5=oE}hIg1BS<IiWegV?WC8G0!IWii&q8R>qR;*H<Q;p`dR
zRFI8Ak$g(%<c0kTl2#Gw(N;a7I4Rd7Xpv~=+&N_x%Z4G9(yoz&Adu%OqJ<P}Y8RBV
z7@HDD`&2cLe3|Kv{8ZDt;%Sye5`@|H#iaZZf<mepj4hx!ipYpU7Px~Xw^|!%+D^Lz
zN&8FW0<%FdEk;yU$_XF1#7<C>Y@kn~(K{VDEaKCBZq=+PCzrSdzH4GZ{4QC!PPyyM
ziX|U5|5Ylh${Q%A49m;aP(2HPI|*sed23n}USctZdejda2yMDZ$1u;n^TMZfJNK?$
zmcEv)d#G)V>eUt(q4`3!tDw16l)j+cApw~@A6N;lZ;bKsn)?Vg`Mn>U0Kk*DOS)zF
zYV%OEb=oEDXQGwU@9c{MvnNuP<Bj(~#OLOej_JpO%6O<8ez_AB+a3o(SL5E`h`ei-
zF~nII3RbJS6^|qXZ;0feV`sh|_*5_f17QkPjxFtPjaH?*ryiNsW?qXcKjb6nGu2Eq
z{5_3IYmK!;sxF%2>&Ur6r587rvD2cY_e|&nt5b*;>tGta+vWSjnD)&ax-$!8+@4NG
zvOZdJfn(Z@WSWSBO?OEdtmW3Y29Yai2OF>})~H?0)K;h@2G4cLQEGERXYz;AdGwDK
z=*inEQa0E@i#-;|u1c02(YhX;ny>i-32C8#*yo&jBM#=lk^TvYmEYXC*XX?3e4AyL
zL8<7m^hbrR1Yx@Q0=!^2SYBBI87H@&hBrkOw1Wjn38<C7MqAibD_<irj)Byw*orQd
z;{)=jIQDeqns=j@&7HdtC0sDBcGUIC)ZugI5BblZ;yx8i1Ak_zA!kLWL!UCvNpW^*
zkHO-)x41am)TI_5WIY?Dl@^=)+qeRDM5hCvz@=fuP}Z!EoTVYR()OETJ&Ml2uX~u7
zTX@COhpD($)C)qj`3Xcs)iZCd@-e&ox6;}kXd4<bQRy&5!p;KAza^_+zEtI0BfXHX
z7(}pC$uRuzfb1Km92$IAQX&Q;dD^Abw}gzoQUp+ms0Pq-7z^+xci*9t*6i?|=H_?Z
zy;BRngZD2IzTwHU@Ciiq4Ps1UoA?~&5<ctKxn*ePedU;tvvwAqkhv*Wnui8+#=9$G
za#j2<fj86ZLYymY2{(x)F)6eb*V8#pq`GGArrx#0N0z5kx!qP9(~Qb{6D(bMzEEuZ
ze*@1qiGrF_J!Uabq|v#wGn`4Wi6yPLOd)6+E@@9<Mo+67+k50idSH#%xhh_)!d-^V
zy<U`!{cmG%apJvE2$kvAffc_o7Kld@bo!o?m+gipC1=yr!b3V`@tgiaXz{#buTxsV
zs&I7kWK%yzkZVG`h1*mdTMcrkrx~r#e}Ke(cE$_~DP5FBt|mTa5cQGEFmorqXpZEd
z^+~M@$;2eEiF5%@A1p1x&n<?bHEtz7Ahof#XBjR&q}A%A+&Ev)o4xLLmNCGH?a{S7
zWkfSW2Gp*#E<X-SR?OCw%{43{XQ(<J5HH8(n1OfDR)IWBHO@qM(?9NZQ^X^+g1D*i
z+>Sx6{NgvI-q`(D3ZM1AQ22~2%>RqRXJck${STA>zae~fCJv7Or^h7tKS22Ipel>E
zulz(nMBCQ_T;k9YZf+678vXj#{bE7RQf`oeEEL-%#s1CBfyv1fKtM!icB7}SF~7gr
zzrR=6*WcYYmpi9Br@c2#IS!4OnGjTh3UCT8C`iN<L?Fq4<!2ch5deS!`RND<6jH+z
z7EogZ`M-N2*(VC{EI1*_@9d$G;3&ZZhLr>`spVlpK+U{}0EmqK;l<J6$uI~I2%tbE
zzl4Q6#sHNB^c*1h<RE{=2n)=K<WQ5d>cF?=A%nJ0^TYw*)6oftXlY6BHgWThpq~AM
z1SS0OAPzxXMs6U$2m#0_7;qx*zvB>iUb7i6*f9+Z?Ck6a<EgbEj`u0%{!J*MM%e(P
z3M@-Q&`^M1RG9hjjv+s^vf<&#`WGPLzl`bm`WSZc;3)o}2=)vp5u=^%M1%_P0IqKS
z5vg?j{jiZ=!Ykjx2moKaIR4@B<G-Pwm*3O~IPaU7AYes*wgn{gI2I5Af{610fL(M5
zqv6E>0EC2m5d|Swpf2GbfCdl=z-ji~E(rWP6A=M|YwqlP%<I9oV1v+vh7kKKQGQUt
zyrwNB!l5RYQ6q=*BYcm`pkDn08%}SizuG$JB$C+|e)CXaVuSmAQvmOsk=cX?w|NV+
zD*ZS$!q4>5iBW*#0i>j*q{0F6Zve{S*CgLo!Ag5=|L%_NGPH&Y_^~Hr1BB87V?l%o
zHsFi=n8%}|_}||JgMIvV?enXP5D@`D;6wv*2;lBZ6#9vd4JxeVv9|u=+2i}OB2e=q
z0^F@$`sG>ILj~o>L+tv^`?YCkto947F8Tl3P5fG^sENG;e1VFV00u533iyYIhm#0M
zNdY0e<vG9z-t~EWW!0e}g#t<ZN}_wo{T5$6s{`}+fd`}C<uyDhY8(pz^86xw0Ox}s
zMEfAW|E7N0rTu12`iZ{#L4EfzE4_*k_-=aqApF2{kE6!keNXjMts)2I0P&)@qQ(Ep
zw)p>G>hMzhQyzWns?owgaKlPTh*uYaiVlbPANbjGXyM)fhhPjc>X-3Xz6WJ}XR?Ff
zK(dMy?DyGXRHGxj>9JkK2k6wdL10nO?2=KqhW<F|v65hbzOz~vA|(REhk=i$L2O!G
zNdfKA2j)mYES<Kc0}cvFpnzQh^{-$+_!sbm`?9KmRACr^BdmeO02Ji-uK)B4DAHU3
z0tq83V4UpgH}u`*-TVyx664mFg@L=W`CWo#UGiV<q64B_0D~ga&KC4H?$18&=bW}k
z$?ODb8@*LoZ8J)$0na00)V`Dd$aR8nVlCcGzQmh76=j4%qb4Xj0m^vi&5rrtbx%WU
zPW+|m-z$f;roe|ngY)C|J%=y}$;ZGYFJ>}gqu?XQZirvkKGbw7)0);1lX#A_;r~_e
zUXI!6rSE~a|7WTGS0&D1aFFuQ_3D7H+2BxZAXbeRPp;spVdjx(nIZdUpD&O+o6>ER
z(fe_`UTz%E<Ml>$XHTGXO))`EFXpI8f(p!%-=_6zKA8|K^N8mfjRh{PakxTC)DwwY
zIKql#b<)MFBITA@GzfP>*f3W%_JfMB4F<2*_QhI2a(d$UwHAkQ)8-`87n!WUPBy{;
zseI;0;iNiXFFV%QrxsBd<!OJu5$F!PGtKW}CVz5ruG-llE%OipFEnD^H@%p@EpAQ{
z4Y5TsO?V5}^H)W40b$^R4XR0_vpWqg-|(oIX{obz?xg#K(^FjF>~ay%J>~dX<!D0g
zvT8PAr(76ij2tcVJf38#Hv9Xh=Ln59Vv!x?#M?44oh!#fB@Wll(Dy(l-a(Kr*We$m
zc;zE{9wPZ7;>6e}q#Ws?yls<B^PQ!}geWz@d{nGLmq(?MORp;3>q~^bL6zpqj`3#i
z@o<+}IX@=y&>5pG*0XE7M#kxm0~Lj|ae?Bz>()rWc)BtgPCk(JnndT8TvI9xS8}2T
zmF$-ex~`bQ@2vn3^_zR=@>zWD6i}ih{Ny7dqc!LJH*|Y(l}6_k967y7SH}11@<49)
zW!}1zV}!fd5o10c(-59sP=%FTs`(%GRvf|Dga>l&n%j)z`P3WAn&(Z7*1(s9x(nmb
zv~98Qd-c+@preT@AUWEDKuFtqFGHU$y@4OcvB4vea&)O9h4j~0x%>=A3F6;%Ces|D
z@K>{tcBAdYeF;l?-o9Yp)qP{^E4H#HR#U@k9NyctheYN3#*JRMq3t$=7M4WsovOg|
zf{%A=x3$6EObK?`YACK1NspF0*1CkEQ7YR<$JnCWwcLxe(|~-#^-@zCREl{!Pa=5M
zEHl8<J+7;4F^MoASk%$i)1bgFYlK6b_PYFupo`W4?DdFSeM1cGp!Gw316;5ZrF~S6
zXijta5w|y)FAL%*PAI-Sd-LCiG1bchVko0Wzp0$TcMZfRcjsr|I<%iT7>GIDjx_Uo
zk$IEg@B*GKr8Xh!$ZpSMpDP7yXc5v{tL@;z?4r+Z(T}zC%^)nJA%5n@<D1lKTsh%X
zjx_Yv1#@|twu#*12M}AY4+}JKxOHg?adojP?)GC(l^GF5-bjgsHhI!3uV#v^o;IUS
z=7&Jh0>1!`S)A3F&a36rPe$>~Mxu*0D^;DG{X<Qcz}vp4y7CjyYq{;@38$0tFbG?B
zl<FLs)ZIg@QceV>m^soF=v}zE$irBNF1h(0j$ybpaiybx*49M0_0<qgl~Tk?V{tA7
z+?x#T<dHXm)s^F@Xd*nLKn-|W&#c=JW(Gs>%VN5+wCPUZt!Q;>81izk^%lCirZXEX
zB=U1T(;%TD`Be?31GzabmJZy5bPfu}k)@G4Bjubjo8^kSx}@`dCPdmJVRmtX7CSN@
zn4M)@2{r0jnZz1?WWh+L4eMrbgBUQnSFA+Qzy_>)KZaykpdtf)F}oO%eTX$Yie4%D
zJ68!8f5`Q_h|GpkC1)phYm??-ZdO-a4u3lfy4#(xJv|OB#Gwl3v$lG51C}?>qt+bQ
zv?og|%sAQc6wc_)UY7hrX=_9v_GV8!<sciApyZ2IXfKCQ>Uth(8ytO$eciiQDfni!
zCT;DGKUb$Yn*M5<N5Ca`W7etJe#8bBe_dfqw3ytsHGi{xa7Yh|yrypR;iNvp_8B}#
zBGzHGlAl(Nt$IGxIintZlI-7f?zwT0K8!#qiDM#7HKj;{?m?K=B+CwwXF|Rr>)a?V
zlcTDz4sjR<2?qKhE)NSwjW%t3$8R_rkfhsH2@o{89X~XM9m9NU_DwDML@ngN$L&zq
zr+R~T0&Kr=vicNdA<W)ZIg`dV7B=W9fXc~6&JEQBG~5m@4wo(@VwsBEVf-K;WL~G+
z#pHdsy$ZV^Nd~Za847MKW^2Z-N5+`b;vtdi(wj_c(Vo|^$lQM3(oc0QbS0f2uvwgO
zaQUzKj*F)cP{PHO17RX7nUe*st-?3$a<8nQuzwa43&2PHV5U_$jgbtKU(3+CedxZR
zME1mN6?<pD7Nmt6nwu2i=AyR-k8GgT^gz9kV^9VdV3r;-KrxC}#sS*yJX}Yd*z!h?
z=>`2faVN*!p%DWfkJmO+K#~4HZS3U2GPT=c)x*niD|;^MIi;UB&(9ar`Z$Y^VMS3X
z-YX`2QtsAeE2Ssj5Ew9i0p~X|;*-R#(DtDj$ViFrj|`ZiySkZVkoX9)DJt5$-$|j}
zyz%pafY1I;tfRj0Xsz^+BmO|;J>cBJRdCH25IHA;`uW2}k(E2R+!n_=9Z^3k4C~{C
zQ3yxSyc+jR)1A=nm<nJ;gtTrOCI2J83>BUJwY;(w5P5fnUUzOGdpke<*Hv<eD}ED#
z!?zN0CUS>)`9k|;$*)D0jxbYv`xEg5d0?P-7FmK2X=gFIgT)u%W(!Z2%}JA<ni1<{
z6{1oB7XulzWgluBP#18=E!Ne~R?0z9LaL{~QZC*{?^Eaa9E|Uv9d;)Acd5(gO&ECd
zNV%>NE($uyXDgTrx4l)YNw=Njyk|8_Gn%R_#`c|Mj6s2_1#``{2|C!k4tuSKs(FkN
z)<F>7Dz)Lir&;?}-asL0B&mZ^T@KwksfA~nbF8B7B@k1{`&ai#K6%2N{xs11LReKF
z)2MsA$;phqW1DW^;6R>IM}+)2KC(^+!XKH_I$?aqwT$g)J+3O41`>R7KizkQyr-GX
zyD_n}i{>dQ1pB_zLoY`G)#KPE6llFcGUx4r|5gq);vp2LSWUn=%2fELgRTWxKyOB;
zUvNY%PS1MbpUsYlm7RGpH+tyMoK|coB875Xah>hAvRW=R2g0EIkq~)Fqo@)g!}k@E
zTNA+|K9pjl#&4VDDw9rM?f*j9xda=g%v;JzT(gr<rz>p1?^{A}BT}O|1#vfIaOdtA
zoZXSG<NJs;rG!wZnGrF5yxZ+M;uY375BG<Q)8h_mNLC;gIm02zZ^iJQCBBNH!J7_6
z=xok#hsEoWa{-`B2tYtCQ1wCeaVDC3uE(b}ryY9y^e7o<czY>%LLx3uQ94!CI-{Ij
zP*qe!Cc*$;=M=0t%@y0Ov1XE+AS#+@SI+N2v$K}VO*EP)%qY(h2Cd%ypPMovcV;(3
zuxjO7l&0W{9YrtX%!3oPqFHs-pB7uvsmrFY0T^Q(%8+hV8AcymGTc%1p{IGJ6RX$O
zF9ow$nBBEVI%pU-n%q)(t`O+t1DdJ11NlY3=*|i5j^gBlHT9~YHgv;^#i%apo$2c~
z_usb`q$#9Z*`u<>2yNJ=(i{sEpLNNp&cmwWjnBL|R~yy+WA&AiFs3uFxZT#smqwog
zUB;+Ri1Cq$_Ml(cK^|{>HWRe2Q(FuqcUMkaf>&lb@K3K&^+AIEdU!wZ9OCbiXjVdd
zC+d{A@Q~ekSxSw3wY`!*{!S_7AR&|X<tjI;ng_{qn5?oH(9=hPLS2Iw$1*ZQHbwn~
zFwqV>T3$4@2;5EV$!ie_1z}4JZ;;MTv&+|KNv<fBiVdx{yu?Rk+xxi-&hZ-Sorp8G
zaZFY36T-2=7A=LY8zg3&h2m^b{*^gnKRfJ}SK}nZvr<d^oU>0X;rwc|JL}Wm<tn<O
z9V^GW{0<yau3pb0lgaMLf;3ht4hu)*38$e9AMET^aiAwMU{ECTY+QB>{Pz@eO>(}k
z3sXP54ra>RukM{mxdeI4u(5fdGW(=n$U*@jHivDxWi82zJvnD;_)~Jgt1HJOVUzRx
zUXVsbU9MSn%~eVedhVOpef*<uw%l<C2M0ws{7CjzX@+@xX{lDGKV4-Hsn&IW77O&m
zP{t6Oi_!Sk%Vtzr+-C82eGY}#v%C*;Z#{B*$ss9X^y`Ydtpv)Q@0jVt`WlM)u?V%~
zcP<KxO^`>V%iQG9maLVY_RCa9i5epqS@7`rxgAogvgg<WOeiuwk*dRmTjl&FmYHzu
z?OeR`IUcLCTq5uDQy)%u3`za4(w{W#AA1JFdbeuv=U*FVT!o9b*RDDprlPshdTkxk
zE>103e094LNaZ8B75H8T*Gm(SJZMZQ>vYb_>dQS5Xv+NX9BQTjB?pmiZ{<$)M~LTo
z-P7z&6<_btr90}@I4yZ!a879n-Z;dZiqc3Fm%Vzfw@NwE+oLEWOz|Iv^=Ly(i;Hg)
z+{TH9wAexrz+>JwT9Jv#ZkOglhDJh$#Ju}L!EO;?tZ2K-32zk!n#L7)uy}vyUfx(1
zuh|C6Pb4en!>%xR!de`$4B8H@WXI&wWtF$PmdpNiV1K8p7D}88-Y8@C5WZ<1RVMAt
z9g}<6wUXoW4?mj^VbMK%2DUoz-=3q}@@-JNP3bRMjT2AvmacQ85gQ1FKq;z&?R?Ec
zu1RXo2!3pM&Uf76=Eh)o&655~kv%ZA$`P;d7!aU)E|*<{wATC?(c`_mKWo~!FteIo
zN-PS1bLyT~j)ji(<g^@pEqL^R@<I@0WT5Ye(I7PfJKv#sq=6&P)6FMy!Z&)cmF%sC
zIy%={i7|k0qYKqSv^=c>a)A<i$ThbI$plUE%^&b-t$iRU+KxfL#r#({7RS@I$%!J`
z?b5_!gWf?Z+xGOd5s`^CD7gjR)1GN1Hmjo6HvHs}>2h0y-7O2t`<-MlpL31eavJ&`
z_Xdj3Uq!*<m8@CzvwXD`-y>|s!<5)p>9kRaO(j|aP<<fDPZ}(op6=+3ZGx)<QLLx*
zpkV<?HbQun=l4xw#V_6TEohObpj>+Yp2SKmiw2&sRQe1zL-?z9TTf`DT~&btrUY0>
zj&pHr$HbzF9yg7Nx)lrIUB<Lo4y(?we9R@}6$X}4bSIB456$X~29tw@cftN|g0_fR
zyA}nnLcq&h_^6Q?vbEjqW=~2$bHj9;(Z%_!sU~A8o7whgd5In3`};=5r%5rO^f%~1
zKhniV5nTiE4CA<hmh^=q+`I06+{&izltjX8eUM+?&Qw&!fRC|P=yv=hD;hM2hBajM
zx)|c28awr}k$o`5u52rsvZ+`Kh3U^?qAG<xGi@vw#I~j2qHnjarD@YU4~?kpB-6`S
zP1V0;4|>A@-hd~Dhh9gfL~jfNc*^BAyp3ch1F(z~o=XVC&B<fH!qe2D6};Rm8dPY8
zi?IFc5EQI(M==8i)0VP4EWakM_<hM?g}d51n!N7IHrRSp8`(K#kFHKpSel+H9vj7z
zd6)}CS$UImCgd{EaofFv{M+sY#!N6U=9;)^W$Dq2aBsewI^3YQ!UmhwV~TZM4?QXD
z4kRewB>d=A9GIj64q8TCoEpoWx^i-}3cr`b1QF_{ekk0G2cJ6QSyvD1LY|bq7D5@3
zL&g4nyKU&MJl%aJF(VaoEOkCxLj`&2ox#Vy7T}qXuJ;Ttk`UH6PhIUQo>}Mg#`+jl
zfQhsSqNB8+KUof0fW%v?Xitb>&=b+~wZ%dX^2oWkJ1ng?rCHNL=eth5j{$e!ZfCB3
zW#i11pbO}Y0c{g-#CT_*ykK+p<1_-umnd??MC|1^W>HNSBHUv8sxVh5uWHswij<?r
z8ER#KrX7N1SJ^>afG=WP0k=`QHaH%YVkae|@nCpPpnA`{DQKOU)R$|n`cFz=kKh&0
zchm^*(#c{@gvIhSn=r@Z39;ntElX`CD4vWK(2{RtreKGAf=XtJsOp!Auc}~54}^4R
z=yar_s5<RMsjOQD&v_bB7LViRp0^n(%X63XyUU`2*=h5S#fC?U55wzj=@@;+G6wCm
zi-ar-UzSQPVINs<!RztuT|dBV;tsVoaUn$*wy?g0bGPa8`IG?+o{T(=gE7NxlN{d;
zo7l%<E{$0;sWmHhZyHiMfTH~Kx7HG5J-$!Tyssrjm5x`3?e_tqL-LU1jgzfn5n!kl
zhP$3`$#xN}!5&21wNA~|mavI8-!%2i{b4`#e!|Y&QHLXyKIZxPEHMf8eiNy>z$_ek
z2K&c<?{=JR7FpFE;^eYcZ49Mx;k;~huU)TH*RTKCg1PXgFpkEEf5Q!KYN}gu$E%`D
z|I&Ra8suwCSEN;=b~Z`}Qrc+U4Z=rd`}D7oUDY!#yA_+&$}s~azj4mq7PgRD64Js?
zK~$Rq#>?lvvgd^x6lPZWwxV;Xi>1DR)~B)ha=a(Ah^sKLSj#dOVPC5FXX%SdF7|i%
zC&oJ#XnrSnhB1c=FdqZP3bf3*_d|AqT{|fhX86hLgc%w!Tkemp1t_oAw0<TgJt1<`
z0#Pf=kp-f?QX)&%#aS&nwJqhwjHlT3KCkS0ZUG3XOb**;V@p(H*@k+(uFH;=0~)P6
zs|_2HiLcwVmG*LW{>Fo?3@m|p7;mo~`$qToKMHlwVVwnOrp$lG$E;<6?e<=6D#s$E
zc9a;ux7DUvNiI|vpZ%%$gZ@(Mb0sCK@a#H#1Uu$bbX%=V)k!WoHc`{er@6zv>z39i
zQr=d3w6jO#F^<<;kxIpnhWVGqDo&hD;OaT&@#{q?rs5gU9d7r;i2{W^Rfl*ndY;p_
z1&V)*{RQFhn3?(zl2NMkx%<{iT*nT|K)%NNqQCEZfndQDQ1S3FS9{^pTzH{TH>6u!
zHEh}6f8PX!CT&b{eiKa1GM9J5st5hao?lMndy}q;HX|`z{duOqCFoDxIo65kyp`^-
zh%dT!X$>`cQU8eB5}ccyQ=R7N$GcqdwBw$jXl0s?DJc`-s1*LS2N)5`chZsVo7VU%
zj+ot~9?7cpCzUV8+q!A1tKi!weF&fII$^!v=svHW33vq*2zHvh;paZ=NMt#C-XbI@
zVTk*bPHvVLyuIg`J%7C!XpV!IFBW9JL6RQYC!BS3+2y6TCHE&!Os*T7_TRn{f`*zE
z{Trd=t@iG=gz3}eS-$;i^CG}OWIL0wiKFLP>ZGdJuRkyEQX;iO`xSZC+B&JJw^zU|
z@7VO>uZCMZlR8h~+9>y^UIl;XbHhu_2tULO8OY4=KR7jo;N0DUx1+;m)zS1+8W*G3
zJdjK(1eHl<-#^i<=1pGX+A$$3E;lB7O?!4-!`Uj$csQ$B1r^XZ;In}eF)+R%x-sm>
z)dN@Y9ibG@-+2F)(M7}V_HJ<$scsS@todg~$tjPY&li-tSAYsP4+x*!Mwygi&Y+2w
zX&r}&7M|*rG$uV`Xg2dhGPi$lrO?cp?Y;KsKx}zl!N^rL9(4Zk>8fWCOnGyVx7CYe
znu+A=x_|mw-p}<<1aTCxQsrgS;gH{daIt>DihzZnT`Hez)3Mvw0Z31j``}!u{%2|9
znt99h8FNAH*SdDUju1aiKtIaqg)j9>8j}=oId-6PsnhYejYXeNzeP8#Y@zY`*%pNc
zMZptcYro)hVpivyt)eO!)AD(tLvcAJm(a7z`x7c}0Gxxw`+Z-+9B5aHpt5S^ga13;
zNx;Wm&^=)PyJ<VQY53W;TlPV;RRx?T-TkMWOGmau&m|ox?8qc{G`!@s>5|=)2y3~i
z#4epKKnMN8w)c+g9tj+(xI1Pd%X4{tE2oC0SfNo4K>hr+BTM&YYY-LA50g_%*(P2m
zClia6Z(V_^*r02{R#q<|z-gA8x9!W(If{h)CUhsY3vY|#qZBjewF$II(92sn_6999
z<b9n@Ps!n;VjjxZA@oC{5F}3XysA}+KvB+f_oIE@bZn`!4Ten5m8-qz6XniT&(DZM
zleuMfAu!W1wW#yt`EWnqpP-5J2BB*CLst6HcViCqdEnVbl{6)4FG)qW@fyM*?vpCW
z8#5H%>x)xBb##7*l%*7~mQVQ#FpF(=CS`$zc!5zLv5k|m37HxKxQgfzTf)%qcVqzE
zNQj-3@>peEy_vtpdMvuRWJo-xxAG}O?Ii)Xx%1F+9`bR8)PBDdM-K`nj;|uSI_WAt
ztzW*?)mZ4lX(2nXa7g7sT9Cn8vhH;Ek+T0OK>c+2liWIy)q*ueS`aoSBRLiczZ7t}
zG-<D;f$F}YO6stL><9f)(jP+glwC6W{3TTVp7X%?kgc|9!rhcP5xyi<0Mf$@ezLJB
z(82&c#_Y&LjqQL(+Y?fdZZua6zpj|_rC&1m#XnMTKD18fUJ34F>1k}yvbFwzUYKiR
zM0Mop%Eo1K2(iaiEsHyDQoXtP82$>YtH{cNKu5a@s{Iz{+EovGsQr%9X@6jPAD(u+
zB!bxxyP}ztW-hs@yf}qpNGzgQNH_^W+XXT!L=J3$WBUBU2_p~g>9s78iKOjsnbj|_
zYA5N(e+@j@|6Ab6%+CIwh?9wcje(QlKd1jM@MK_S|33$wF8=~gzfU%$L68JA1Weq)
zGdM|$bGk7${b8`pvl|qIb0w*GIYdeegkn+=1VG4=;?3XaQ;(m%Q=d7H-6p5j+tc1U
zZvNG0T<)e?z&s!n3urHY5&bt1K_DdoQX61q$b5f)1_=QHi2hkyh%t_#pG?53Q3e#O
zSP_YDdVeG+uu*-RNqrc!vKSEn)~%d?z(D~)MoK{kN<hH;cz^$+K7Wa16a~yHz%ZZ|
zK>=72pir=SYC@eJMSCxBnAYh&ynsIlw)y$R#T>V{_W6O(FrZ=nhypeYqkt!YH4uQ@
zz_9TM959F9aVUS7;4q@AQ26`G%E%$E0>KCsUmUl(1>`wK0n6cqhZOJ_DDGDK`@{6n
z*YYL=09^A6fN{RZZ2g;u+yfOE2v+uB!uk=+t%JFNpo9S%MgqVtv;=U~F%IB0F5&&r
z-`v;*1mpMm7QbVDQXpdAaA86P;^}JjgV}Km;G2WEhy1zVn*}iFVdxQ}{eOT0bLJ(i
zdDeho+`u*s0sFYYf$=HM00-6pe`CW!^Y>~oSRi2Ceprcq>sZ!ks|fO?B+$_@fP%oj
zF61#|0|o1?UQd3Vn&cpg$p>F=2jF7;H@>leE^a36g8jQXhL%!(h3d)r{j6UYU=&mY
zlw@Q?kRY6Z2fGR2zWNrhJ-Y^dxk3Fh8j#;UJBf4xT-ONof9$z2UcmRFz`XkXF_O8b
zcVGRue>{L7pnwYOA;8R`o5F|zekWpChpv9I8`9zey#Q%J>bH<VpuRr7J}020=_!!*
zufFl$Za<INSCv@inLA$14*Wh*P!n_o^!N+_3G#}|DHIeGgit8x=pdhd&9HPBzU;7p
zej`-H*9Zd={W?c#&-HM<zDNO9^&IShe={x#k*2gT;xGA0+E5Ts{q_4me)}qZxQ~8E
z@ANc(^hkbhL-E?Vxqn@qzF&UvZR?@8)<5Y1q_x~&)BrXls$md*VOayd5o_3BpxoTv
z?drI|qEQ2Z2Jxg#`2-Q;{m1dSalQd=K!Yv@84<$xli!WlKS){4IDkr{M27r&wCfdt
zfPRmME}##Bef;tpy1%Xi4UQk@I;kKakUpf%gbED>7@$C3z##O`NrHRq^aQI33K;5k
zWxyVS5F}vOK*Dq8@y)|T0DX0;@*(2!BbGa8U1c>wjePw5j>6iD6f|<aO95No`eyq?
zVS_vd2>jP6Nkq7&8`!Fki?sp<l5Q`(2IurP3Xx|#3q=@l7Uz6$n`_M~W4kE%0@b$g
zWEOKgFd5m7$NHOmn66CL6L7oZD_>xOiWZux+o#gl?K^i3;Jctj7dGR<%S7puZh7X7
zNW6>#>;~SKj4z1(bSt~pIJVq1!uFWbz2lw%c{?~qai#!1Y7n+vbK6#9GH;?!b2CqA
z-=k1OIlBqF6eUP+X}Eti7)s-8SG+cgdXIL!zyDnA<g)Ddc+b>QHAF&4aZ%yJo@@;i
z^Ko5}uVclS<G_i|6PKh>M$kBm(jnqNyYJ=JYC=zxwqav1=)63Sam&NuvGD1SrkT~7
zXJM}H1$}JZye!RLB5;E$L$q3p9t$SUp185FwPQi_O#*KWAAEy}G(#V1zo3g=Mc?uy
zTq+Y06U`K*{ctQDEpP3Y?^f!=$0VK_!P2BqVVA$5<e~bEi5Fb14ON}Q$5&@E5xw;G
zQcg1zQsrd_6}$txbJcjaZa0{Q$KI8;Jr!`C?FXm}V|r9N6sJa4WliM>hnsDAqRYVV
zW|>fSURn#hec~X`TJrS9_E7{b6O1=1$CLTKmNYdU67=YwDLQzFE8Tihk3H7idPUKi
z9A@&I;5J1bVEYN=l!CW`+Z9i~JoshkGuEBX$|Lqj6?J?zfX?+rt$chNLh0>&+wm3Y
zFtZQl-V}IO_TIMZH0_^;O;5zL$>wcoQ$!Mb*&PD*CbCEAd{GQ{89Z@?=U0t#|Ls){
zC~T)qlulsyBpf|uw7pI`C>qoaV9cLW(&*JH8}f2hB#XVq?-@7_U<4tAixA><WJ22f
zYDX0cJG|W~=iODus($CuA5wAa9#BBPZ*j+dnl<0U`(Y?_C(34p7RKZE>XgaxuX@Ni
zC<*zbE2MyLFypz%51^(@l)do749E&N%^XfBo@_ZsYNE>JmDWc*7__F%!XbafRl*0>
zhfFZ(xW5mwvQs#o&fM6Jn))pN6u9&sUPHl-qUv06eTY^t$*YEg7f`DjNJUIi^??Z7
zN>59g#Ndf1NB9^btf&`Xlj>YAn0>sX3V`g~`FL9*Rc6^J<Cv6mdqeXn2wzGw)_Nem
zPk?9;Mo=7&E!3cH*)c}hz8j(Ot)K4LOykCFGvqjoqwH%3SpnmW@`7G#TK0iXRb##Y
z&*6fPf2=Qq3Xk5MLTcVqd14t#sYfSkX!K=~WXcx9dy35+SH0%Tax>p9$hB2yV@Uc2
zMM=SK%_#R$m!eVrG&B8lnYe?O+8&h&kjk3@J_HqjE8mR0C`^_x8_74T_+A3(6=*Dq
zFWaU|%AodrZ$4H$!2Y(?*R!LrHvH#P*U)~#D2NPQYQjS61L7_5+HbQHOsnMX!|z<N
zuI}9OiXkG=J0$jqi9Xf3gAX=liz{+Pz}gi$Il124R#Qudbq3VU&Hb#fiw*TVS1$DD
ziF{bcIZ0$)ZERt<RuWPydcEo9aGbxZwL*It5PN_VE@X%|StQzvIH8QyZRo|g2z@WZ
zSc&Q#xaI3H3)KOiW=i1MVNr`@_NeQg1qYRqxozF+Xvk>m;WwBJ!9kcoO<O`I^Y%Cw
ztVT<w98dD!ObGw*#Oy#A#e4vr>r}P295%LZ=M6E8T3VPs4$JuYCb~V5F;&f{Nam%F
z@K$!Z`RjUNc5fhD1DcCfyHro*;{)*bq7a+CoEM=?D2ncJRFIP7bzeky3#-DzzF>|b
zB7dZzd0eW#>e+K>2zT{SiCxr$02K37=4k?l_4IH&<W)1^s8q6SJ1*zq8%kZ(;qF<<
z)8#UVjZat2t%@OBq(z%NzNMBureut6^5@AYk3DbC7lj!7Jd*B7dR4>jxYgk$+PF#o
zqch3uYdF69LL{1TG8XBsQ~YJI3FiyC``9EmxTKE6eie!q6(wK$*LOTpyAiz9#rf6Y
z0XBJH=1^wHXXWpSMdZVxT0lxN;fM6+pr=h$-BoY&OR^2=x#`>)pGb0GNZMT^g>0i9
z{EN?yvhR;$W?IooK!+RKlZo@zG{tx7ro5FtETDgZ;A6ImK}R@&z?QqcV<WjL<H%(?
zg|Rn)p0=ih_0{aV6k(4WE7M_%itQVNlQ9lw)B}@3=0b>z9e-02avA542&913dCZAE
zjtkZUJ3Xw5!nR&)iH+lzGgfzFM<Yf;sUOO;ifYH_hDjQ6L2K*kh1U^uu%!9;HJ`+Q
zR04(glq_TFRNkUITWoR}b=)kdF3w!^a{9Ns*uV-mGlP0YSD6g)DQA@*;ug9w9;9!Q
z^s{QASBEgV4iou^57OAfAJMBGj7zJzS)|WY|D-=`znl%wE-b>371D9R``R=0wroN-
z#UuB#3bj?(rd=Sp57Ig|gK%iuViP^GHN(}2*Wd=?BoVFg(P98@*v#e$4H>@QL+O(4
zheh;^#_<M&0W2XQvj}WFa|fSoZB<1UC^rC5YqPqkV@c{~&PZ(Ib%IBu$g07%v$7Rt
znmr48=T?2Id21ypw&bGO^x<Tte=U$hvH)66!0+fPu8gNA66cukNe+h^mx<0e;+|}`
zU6Y%yo}9CMU#xS#*3afA6R@Y5DZgf^IE={U5Lu)h+%iIfwfmxE?`&=w$J5TtQuakt
zER=FeZ_*B_O_r<d^gda5^gEbWr-hV<IZbJ%UuRHl?YCyfvKT!_K8t3lXo3k@FL+m(
zdb9JxZgk)XPY1afy=qy6E?A;7(>x-xopLJ+dY%&EuoNdQD67C#AdApWH%mUXV)5Ho
z+Ik!y|Fz+yRCMMT(e?b{Zke%Is87YAjuv^LYC_aL5>o-ks1P}H!;2&eZ@;D3xY#3N
zAu2fh*G@(2bYI>e`Kc(>MX>f+30Iw{C~d;+Qv^1n?FEA<AA6TOUs9IMDK`y}Mb~;>
za=~-hiOuaUntJMja=Ek*X7U%AKg9hDAepCtm!Q$|-X}+eu!&3PV$8fx?p0^e`H8M^
znAO{gt2Cd>9_b*7^-_A?L`cGrP!*+6Z#ug$!H?i?)Fl++bl4GvE4I}ECbJnLrkZmt
zSD0&9R*$EHG;Z1#58LGXGP_-_IpINsx)Ihuo<8E=)LTQTBIrMoDJNrQdd(!{)<+ZP
z(_2Tm;0qouhs+PBrPZfp=iZ6qwNyRQ<3wp4&aMb5x|aH5>Q%_Yk{(&YSt~TszX!NW
zM}>_y@fn0}PAWg)ep!K>Q0)1uwEiu_&0%#jI;>^q_Z%mWO}KCH-aBv{;BX7gx({Q#
z^*9?!cM|kK7-?x7_xAs^wGwV`3^bwwH3sJ(Ny~lhm|06d;g+(n{(1H!I;;<8X0D<h
z!B8Xt?>yIP@2BL3okzQ7aXZRZO=>5Sf6YLm)1C7#Hg}bB*SZ$lsVfA!#HiX}JH(Dv
z7Ul#DsdsT}#};WI=F+SPHEB7r%2T<m@yW+)^_b(SU2-55HR+-|r0Ei$92!SLQ^th2
z%q(owuY1<MLVQL>pof|UyMCyRv=erOC1<1D;u}OIBbcNcVrn=pqClM*F+Iok_s7$G
z|01O{&C1TUo8%TdQh$mE{XERMfI=VzO2G=(B^9eAORSOW9!LSgABwAEm0G?hpN>4r
zkL@0=Oj|nc82_+6o70znt8mjUIMy@>0Cga~r04b>R*uL$|26RJprvXcQ>Uk(&rK!*
z%=@@Vk}udA*{j-TXn84~9wdeqf!JR(<w@$~`|5}c1ZYMw=MnDRIIAuZ+l+8L8|pcI
z`OG7Z!?{$uezs4x$NGbK;*^k@C+%HXlh95aQ)t8_W+UBfglfd(Ciz_R7*p@(o)&cX
z4W%Tzycl}q)@z|igN;^16{b0{0@vQHjeb!d$N>js3PP)Wcih{MopNfs>0*@{X%buO
zZIbtuj(NIJA>C?E5nPjnyz<G(K+%p<ePL5daEbQ3kW8WeXOZFJ2i^8^oryoks1_BG
zu+$>BBB}TiK1E9t_l?LesO^k5qQ#m~7WtBbF>XNz^l5?Wd&!*2Pg7ml&%u*7sCQMM
zy*BBqwNa%XTsDxKO`zdV4a1uClQB>Ro<(lq96*-Zk~F)YYEe4Nr-{ff=$`c9`^UZ+
z>JV*4j$oXV=7?E%2Czy4KQsWlp{jc5*^JO=+M)I9r@<re=T_&ExLVL9y>*kWdMi<{
zh);<LO(Z^l_voERXIa^k|ER*eiy<-rO0<aAWmMDxWl|ij<%LAHYNMTn_Qnfcb({B<
z#o>%KPe9GCzUwQ6aM?$yQej+%k`cApjEonz?vAn!>>y=5xtoF<wy9mYvb%rMlS=sU
z5HH{;SmhPAO__lsX2>GB$cGg*lX31L?cA3J&xidJJ#3p8fI9yog-&f|-6CIm?o0K#
zk8%pu(8!X5+O`pt$+5f(@2g%J`YQjczLBNw=w&HyGexfEdo`Oao0Q#o(I+zyh#idV
zfu#&5{6vOKHb|Rsr1En5i#44O+K&g_pQKlffI)jG@21HOZrMq=a~tQm$DAh&&B2Q(
zY((60h#`cirV|*%3!_PHw&v=)CTVzPQ8DH7ikYz34m@5t5~cmnDW{;2c6PsoVTp6i
zm(Q7hJ&HaoP^h(7ldC~`kHj$=OW~7xYKpg30EcvI?E4{c0UetYlxuyDw{^a%y_(Lu
ze#6=R?LQK=<jcHsWW}OaExh#ij><``3089iyn3)_Mh@-L0m0IO*D3MEOPubTZiS^h
zcl}PrV=}aLo{Zgml*WXt^or@K&6?COlE=owmPq_S1u~_!unDUkgP~ELVs8~>WtBeu
zamy}cZstu)vPH>I5)Gw;GAeGqb|+=wnjd3`a(sx=m!GRA*Gh+M5^=Z@8hIq_++H80
z-AlLyEP`xr#-||%$Nd~|$6g-L5}I6bbVZW3iqZM408f9}DO{3GAJsdLcJK$kPKV^B
zXgE@}Lr4YA-EpXTDwb&hPt*m$1oQPb_hw2nX+8W4*NW3b>aBsNM0J%GWd6qI6$gjk
zXVvo7G>*-OMA#b3?BA4~#)Pp6eW;@c#qG^FE%c8#0lv$9BGUop-po^cpkrUZi<&VS
zq=~1RBO_ia6uBuavLnBhGob(xG9v0MSM2s3QT+vvw>Ti@C1LP~{r6K<?kGg#ezeFg
zG}VFreaTzx!)$j54CTqS>EwikA28OvGJd4b&~$gZj#%7_d&M<MH8zD9aakMIErAuR
zv6TO3b7oun2jtCUY30+_=BReGjxOd#0g&P&{P6PwRz(cFu3!hr#*bM*?I1xU+|=?3
z$6imGbcqKsPBvcU^wMU}q4&&mirpL24YU@!V1%RLhogO@m;R!#9JT~2SC&&co(4V0
zz7*3=;_<sW{YskiIB0QP!>x9GXF>6@3Qn_Bp2po~{-4H3%di*aIY$?7Uj>Sm!n5A3
z?=w&kq>R>tOMUVOd|tBf56gS2^|R_p>69U#^1xsH1y|8G0fIb@3=Ul9f|KkbMda*l
zoB5(4x=y@(2Ap|5*5W=Fd0{9KE;E;GgehQEN}Xt^^E!DXveP-WM*fEq`S#mjPD($f
zJd`fsH`GOkyXIr!thLLyu@mlw$eKjcyNPq30c@=y_IVs-WIJs7O|@d;9`fB0&Fum&
zt5K8zNgCg^Ir00IA=T5)9Y*MWq$`~l2luKu%kK)q5rxdBpfhQ%k>jF^R(3Wre8UIP
z>h)gwE#C>HrWDnJwZif_9zenp*|MPE>Y2(;*b`hYl;8#3woI7vOW(>-W)esVo3;yL
zmB^cn$y4c1XSauvpZcPauuZuEIl!gk>4`5I5bPvL@>P(cKbR5+2Xyd-POjk5>vh)&
zX@GKNo7T?3km_({piAz_c?h(q_}#z}3Gektg}5GKr|BIZW8c&Vfm#~NTC=<d!Y@8w
zhgA?1WKfmMj!MzH_<ula_Op@nJu!A;?gP_rIp>To<DUJ10^`3zkpwNU6Fm9n3>^8;
zrc>qdOX#IJFsXVZpf;M}D1cnrmX2|4@X(6{mg6N_pOeo_o_St=qOvQH#-u}P+hvNj
zlTBNJOg(h{d{XrrrFLIDEcJBDcI<2D3Qj(7V~CAxkO_entgxt|AYFZ<mFSncC{g|u
zX4uXll)Dx{KAa_woqF7-(*O&24J0m3&Q;NLQl2Xj)~)UA5Vnswb<Qz@!rb8;5H<o@
zbY%6_bh6d*4P>#`Ziy>P<@Bs0p^`NLK;+C?o{@~>2F7Lej$`Y@R9_smap~YZWvvL?
zu{weiC4DoiJviU^JT!MMOGtBi4fRxhc}Vj5@d=3WVXSs{`}s->IvAf0e0~tJgjU$g
z8m#4om;P#NHyRf#O#q$Cp9xtkW2*hrfQ@=BazEq>#nb(Lqc)NS2BUXeG$_ghJ5cmj
zdz7EM(Y%=ZvFlgS&bW=ocV$`J<?Jru-RHH+Tw?l?BXZsT=vl}L0Ip@#aMuf^r6vQt
z-M$%}`pl+#AIN5iW)6s~H<RyD^Q>;Sr%<WVS&UfZb?}37i`Y06Pr^`~7|2LnZt?6k
zCZF*Cr1_z}f>}QBw^9{PgwjXE>1;sm4$MICvs-sUUVjjE>&(-egSb7BPs)R9*r+p^
zn|EyPI?b1!UYb{g%n67SRr~|CS^b4D)D<i>h3Zt7E(T@{Ps&xRdbuW2lHm~|=l(a6
ztO+#<rx<t(weXFe?I={rlWKs119nZzYJlf=Kj5PVti$kf=OI7l$xE@VHk`;(0?q^S
z3u@}9JwlB;)Fy^|cgatA^}<zsJNZK90qi(xd>dFsNAbn`Zcb|S-eS#mej}xaD02Np
zh758cXLr5bw(4)=u7XT>l7lecQgaIExwf+2=S#Qxn!u{D!->MeT7%P1>PX?_K+Y3a
z<D@|Suy#{ZZCTuyZFf7ZV8|{;IpO0_+vAmMo&C<X=#Vtp{0zf*O@>a0U9u~?ELLY-
zkxS2GQY5$a>4Z2m8On9X#0`lBT#!)l(&}jS(*acpr*L24m?o4)6?Kkl&!n*~uU&f9
zO2hkGfZ5I=YO}A^^Y+VU?_kVcN$<5e7ap4+phI`q4^^BTs>9LxaH&iznQmB*mezNG
zCxOk6s+3+x_dzYVN<Gc4-gk>FNJ5&PU+*{NXi2M6QAL^j?pf0OW@sB80c|0=>ey0}
zN8w4NyxrzL-c3R)oX9LeA8UMLgXOGn1geA1;ep-~D-YzTLhH;fjIiGJv<r7eX#AjL
z-6C!ADRrmBVz?afFt%MrF3bD8co|XGX&Q6(EF1y-R*IeCC8wSdkM%JV+%~i&2ISFK
z@n<s08_U%|dL~-T?|Xa+5O0Rpx-C({KhyFXo!&|aJbN?Iq*-@nxll^r=G3LpO%exj
z6rHZ+?b_aay%d;S)XF1jTJAt;hh;Zb-&|=YRYGs;hy*YF{@*r9pGQ-1sc7<dD=!kS
zM#E4#y|6zv<O|KqLJ!@8Ro^cxRR2TRIRxp_1zNVOTefZ6wr$^X-Lh@lwr$(CZQE5}
z`Tfz+J$n&7$Z<wwoE)6kYp;!)g|AS3r)M=+qf0`l*H+F=N8zx?(1l{ir$62;j=tpe
z^#0`KWdERdhUPjOv|~p>n<t$kg^C(b-Ei$IY?Vo&LSa3YlkqC+K5a>M@nt(k3SuFm
zjxeiS3ZufK9xP{PuGy1$3WJ8v(~+vhdDtlt`I9)C9LrE@16@{*eb1!7E*Rvu=%ROG
zIsXjj&)usT?@;BuV9b0L!GvW*AJf!%K(DL+ut{+cZP_T=)PV}8zk`)8+@}xQyH-%r
zDidJ?s$~@F_FT_x@E=MN<SI~e+a&}RghZmrdjBxSQVVqt`CE6AWsdWC7t)7`1=BJ2
zyn(ysW7?1euf@D9XnQL=eZ1BP#VB`5Ye|v<Err=~sc4k9N(MM8H(EC1+Z5sH17AO_
z?n#W+<ILDU^(NQNy}v2I{%ND;K9F6aG?!!oUE{FW6Ng?X>A+)o@WALplTSB2!*X&G
za2So~FI#{m`6i3hh4u@4Obc`v{*Gm?Ll(5Gwzea_gESXM@`@?7SFq*7Z&t)(NF=kO
z{c_bCo|%v<k|(1DxP}iS%!|VtbdVJRtH5s5Xt2!55MpQi&~YK922KLguv-SysUf_#
zUuQ|^YqWLKzTCak_f@+OtEquhMUg+eRFJv53erYzf9}qIU&ya#c9Jmt=SyUm1I><U
z45%o3(G{c3S1@HR3J+U(*te@xsSw?$!*i^$XnvVSGpGX;nS>KXKlL(+zAOAfrg9dh
z{;#PY*Z-3GF*7l9{=b~>zp-I<PLBUI_G98?Vq^V3x!?c4=NSD8u9$7L3JwE0u%m|!
zg}%KL=w%NLAG6eMHNSs*i@(j*-qi&Tck9dLWJYe@`&-x9)*0!$wre%zncK4$8u%Q=
z+*98WL!`J3aV$AE-9HS9n4pqiWCp^>)WH1T)32gfp3b8U{A(OmrU<&plfLEe{xg8s
z0Ex}nyCn*TyBFcePUzp9gyx@t);~QkG(9mi3}*P(=<o+&VKf(#@ZY|*Eo{6okmQ!X
zKm0u^F?*}+>uIT3?48Tc6I4EXAuywplhfii4KATITr&p;GZ64GEbff|>K$4PY&Fm%
zyZEV~MBA^F(2V)%xy96fdfvmsK|{lvenVqBYC#c5dnPwlP)cAt|JPYT<9>rg;75qn
zem@yw|1zNR^bDS_8^u;82WO^wNRVAP^;2=d_#v-wlyOW81ot|4#neP_%5@MSza-ON
z@_FDNA5I`Mh|}NFPq$}-h-sl;7<NYH#)eilppJ~7|2sDv*iIW%R7HZ<4`lL%vCuy`
zaLTvaztO)v*?*sNU$+VebT}9Z6yz52yLx75VrP4G-oI~X`;sO;+PBzE(1bazIXt?F
z4dv+U|63)X<m8pV@Y&JD^z-RRC&W%q823wv;uPO7VZa=nV~wRI^xs;sAk~7O)2`gT
zpLMCA1P~7j3JS&_3?K_gpib-zrXMxIkr{LV1I3fUsT-U=ek*$`P?8&#AcGUi{wGFv
zSWo~9;=aWl*z+Tx?8py^mxZN&eR~|q5Q>!za^QF3#}*><D`xL*Z+9E*KIOvaD;-$Y
z&*$f}_=*4TC_5odo4~W59#c_cae8<&_e~$!@7jM_vlyEGpxhKZ!MVX%Fheu5zo7QL
z0`A{-xeWh(xZ5Lw24%wkB+_qtH@$gFe%h`-Z?KBLUP2Z?zgaT7r#_AWK$ikRwKK!B
zCeJ@%@4rv&zck0cd&$2kC%-Q9zjhLb^6Kipk1D@%fZqok%`Bac@2m&@4*A$S9YXV`
z-aq-jGHQ@NJ)Mq%#!eJh|1CT?vbyg<{Eff(6kTFzVq$Fgw&8F?<ZuJW_WSQxFn@ae
z`)RHEX|Yp3CEUlrfqd%QWxP|8mHi!i>opNiy|Y6Kdt3NQ`vd3|`PI>YH8C;%T5D{m
zcLIXFzJc4`-@E(3YXId<-)mdMJpZWs3&F_jZ;iVr0(6Jn14PdLdhe%43(4cJ1YlU&
z3kU57ydxZfF-Cp~=>mx_{1VHP0~G-XhG7kp0YRF;(aL`FUh*3P=X_CL1jBHKssM&V
zBVb1AZ=pM_<X=K|prT2F=iQ7CKcqJ=25rCjuK#9*J?qQ?kUeWG9}Gr*Z&(|eJp|u=
zw0=84MGpe|UG)0|KV6A^=KBZ-J*G(l_Y5XKVRIiC&JaIAKekNYklq-kuLuBNjMHEL
zyA#?U;JvPv4@mDcqi@Jw2L2-gyz4u2AkVx!Kfqqf`WHrH59HQY+-Hx|mcZ?sN$Z^e
zA|Xxw1VMxK^l$6t?;KWrk5yxfqa#3~(JgA{zqd<&`t`e|_>EiN<#20aaef_Prti7@
zO8xQ!qGSIX8nW+`;QR*dC5U<wu-(tO{XhWhHf`k@-RZjJfA3BFn8!qCU+;x*{apFH
z^&0;U{C)s~g6IW^-^)C)i+2N~vjN+@sSSeBKlhDlt;c^bh}8XEaT~eMena~f1>o0e
zJ`JLWbeX*k;<GQrX+`c~)3McO(7JH&stmf<r(JI5%fh;y^HMCl6U5<}<Y>N{aPzc0
zYYB~(uA9qA2hpzyv#@eHyJGa6E+UWtD6@RG)zWhY6xqJa1cNc-pn?WY4voZup)4@u
z?S3CRwB5~GMJ|hmO6CDlxCwv*5$QdsKcB9@j#PN<@9HoE3rLAI(=Hzgf{#KRkiF4A
zq=unJZ91@TRGFK1opk#+Ed@j6jf7lwq06_&CC4YW!O4l1Nyq)CVZFrZd_XIb`x
zTD767Tb<o`++tBW!fD8=Fxy%i71CW(lcbD*kpo0ejDz7aU&v)flY$BNNp%Fdk;_U>
zQj_Uo)cKg=zpUO$y^orPxy*q$&`)h~tYx3u^36v@#|Wudz{U-RC2gl12bwjRd#gdj
z5rRUI$es_P-m<r4sS4*4Ob*=C12(xqDXbsE>*6Epyy5s$?y%}UksR~JU+Fe1bKWa^
zRs6`M6c0Ua_`N)&O`AXqTB*~k`$3P!#6Av4wzU_&BK2uUrdO%)kocy;6UC>~a-qKA
zsNH>M(zT$Q$sH5ZGEeXalJ&DXf^-DKZn|%0mwTsnmJ#Y$XO~iT0iu;FMdVBcP^S7Q
zT&_r+;?4oWC(!tNRuY_@J#*|}A|)w2R?=QpId=S`Yx-Ghi9X%sN>E{Qa%2<AI?B;V
zybwA({-(fPv^3@?lrEEy4ER`UZ^CsBkF!;lpj+g%>k~4^y%%3ADsuefV+OFsgNEV0
zTr8TcL3c}$q(Zzw>+ZUbUT-?Hv>C8c_`n~J#_E<Z{eskDI=!zdV*?#VuagsH2<hED
z$ku@Q^7M0eS?y(lF@!VL><590Fdk7{zW{GNkZ*sMC3m%x5eCC^7Q%yN%yhG``}@!Y
z8Hc^JYl(B!4PmMF21;4P=aCB^;!Ww0)sVa-wkm)Ufb=B%CPW%6J8)y5_<Fqz<!8}8
zuF%=(M`t$%VSkFQt%aq-kI*O(yYgJxY#0N-t^0t^PW`{St#fG~F0J;1RT4Yr;_b5$
zR`58^kh?>bQl4HmJ>)7#=y{>3uIa4jY7Kg7qlEZpLZ%P=MiP<!#VxC{pVFZfR_fI-
zaRF`{sOb<8MJ*oqHN{Uzs8wWp8ZD~k+d8kMy2IZ{;{uDR>v7A(nJP<Taf5K?9NDF+
zT{~Y|k~Yu~?@a|FR2+wVXqSI}vaS?V*Km^;E=Rmn?cOLamF#28ImM88<*_8{=!rN`
zLsLVEvXpEl;U83{b_O9?i3Bf_kjW1p3}I$j*zm}MCM`UupOj4B#!@CKW@R<rb}tG4
zva`<xrpKF5#-WuBRmsVPop6zeOvU;m<XFsfl9Tl{oiw_Sqr0EG7*LEK4SGu?lU4t*
zWXc6xyPWD-bxaJfOgqqa8<BtV^PAkf5);BX?_#IPR@z*ASx`<a(V}zys-oggvFAcC
z8I{f%OXpi;X7<?u9Z~jWaE{BZ%IX8re_R|M30mrKf3#+0xx(kC>-@LG3cE5CL(46q
zw0@HLU{pEJi<4)|UqQx(P#q8yltZDcxPh^fn_cn%0n3XBPnY;AeO6p#w~p1tTTbqM
z<lgXhR)yUMUr5aipZ0bRxK#%uH#~XFrAvpMO!LW0JBR6N%2+dUkl6f9dG&4BAP-`-
z?rRPorArk`LjZNXq`b0GUsK(cjyXG|6h!{}lE6*ylwdM>NFwqq0vkFGGaKLk+|%$)
zubpNV>&0R9l}_19j|Kg*q+Ow79bssBGFc>or5PV&0aSa0z;5I!jEOb)`MF`vQxv#O
z+!A;^YFzgcu**P0qO4jcZDdwO2TG6|4z1%eAXMC1=AnODlXIZ%nyC8T08)TR8^<vo
zkyFn$H3);E?f^_{>OblI*e+o)Tvr1|QUR|=%H9!fZ%C(57@MXL2GPYV+Iz$=#j7t<
zezP6zD8o%oQ8SM%qfVaY@f>$}lpE!bF9#IJ_(WzKZ{!CejYcv>gCU4@#rUFOHGx!Q
zyBOWDX)d~62O(ndzIfXrm-ry7B#+gl*}IZ78AHQ<5S{tKs9MT;ojz0&#=EKJYeuP+
z`S6N-Qw%+03v_$Q^@-17Ulbk09ptI<wn%`(?v64+5Yl^PPjsAWPIbc(uIJZL+oi}+
zbp@`2Yvs0vBr%exJ$>P9P{FsJg!e{@f>h=B@X?*NyQXgs2)clzDY;2;BFrL=Tk@A}
zl=)<%lQdb~>UeV9U4Wo%T8*Qa$WMizn28g`flxq6yK2@$-@mUqJ$oM(C2Qq~eUQWm
z_0y4Uvmp|&&_vWu{s3VzOEbuyI<ueT9>(yV;FHMxe&@mE_T?vjd`8<Dmp~V9L}5go
zra{Roq>aTzhQTI_{5!-}OBR)A?FXN(iG0OU-R#M;j>IJ9iG*Ct6egN6y1}tvhnDuT
zdE)yeUCk+?88-@2oJn((Ft%OexQAwyKZb(2avE*b=IcLH>$24AyK4~AU+JwlR`i_K
z$@!#1mfYDegV;+o$oRRe3vynd5>|Q1B}mfVy&^JEC#=#!t8Si=mj8uzV4)>xRXY0C
zAgVCZEcxo*FmM6>xH+Dqb1&OwJ9^WRnc2o0R^s_`eD0a-`>>nU1X88|`Et6op5P;f
zRAMv;va}Z4O!b#5M>dHohHn5u1MiUW>GU(X$0@$D|7fFaTP^aS6yvgj9&G@V_cxgd
zLY5TNOiMD9J1tbnDJZ|+Wg@b1ZHUJ)0m{=y#n&4*oq*hm^`6>+%?MeDUtxf=pOuP&
zN!AZX$N@wp80$4T4}QCZNy%lrxOXiHIrEjzm*C9l706smqp?fR=Pmt4*TIZ;3|;ip
z{-Uri8Y-xR78>hTp+=s%ONqCJcVXTLQRW}k)UAe!M}=~^R`2=!fK9-yS*7{iK~1xl
zST2SShsPsw>)=ua?}a(;*EUGQ>Bc|+4@sfe1F2v$MMHc<1NMJyy5qn>-NE2b{Zidm
zFhnVth&rbb!DR|%V<2Q!K$8t9-Jjv|x6=*LvTsDVI#xTU%jGvY%hZn|OAb7UQ^<8Z
zMruP_PPC;T{&d#|q)y!~5`@3Y980w^KR=)j+E#repYE$3*O`e5>9Mic%wY1;1SV3A
z1*b}J-{O&fKKSPv1AYUealegXG8e4SL7F#xZoahtj`M9d{}9%x8WGIH$PADM^?9)O
z*Ds;JZ^c(>ka36&lO*5%NnL{G03ij(@|N(!X8F*(Gy1dHQkxe|ow*$8<>ausSUWMK
z9y7$xu1TRL71`bq1x7Yi{}(uyGEW?Ja;Eqgpmzp&wt>|r0|p#J+L|w;8`!HgNyjXK
zcLuMvIz`l#eR^w=e^RPmO~f=6H0ROOQY;45l(r*dm9dL~Zav2aTDu1>vb!fCPG{9?
zz0<hCi+YK72U+w(zI}T38xo2J?3SXupUsYg;*A#Ism9*iz&z?wH~G_|We4#Nb#R6{
zbHIj}x##JA<**)ic2g4J!49%gj|3vs9RCSEW+kdC02uN%2Vcrr@I9iZ)UaIXlev8D
zvdPKnXxuO7>B3{IRo_^@eS~wj!T$&?PA94vMe0b&BQ`t&Ov_I=IyhuU?W~rU@IO4X
zsK_UrO^I$<q`g|MwaXmX&>W>S#fzc*0=7zXtpgPm2lW0!C%&9foc+@Pl?@OK)=ty*
z=M^&R{kt2SVo?FQ4N3~Fb4<p!R0kmiL=ADUbn4pJQ9GU)5zv{11|~q43O<yQ%<l8R
zrL>cQaK;vhDKf+SAl4nX6fV)*?m?M{fzNkD>~I(g1v;YR&<~XAWwh?BF3Ez?610As
zBc1(S@Jnmm&38}?cEA#N#cZW6lD(?re1Wbl^fg4We=e9iw4D@U-8hmJRS-9vy^jqU
zShq4KoNp%(d~W|H<sd0CdWEE*P8UPJ8-i}YskI1QnzYKJ%=x=tS%H#yogT*EeV(0B
z!xAMJ{sY^I7AGAGt>GZkD;><QXTp+rW{K;NM_rn0Q801B5py#yB!4T;!uiVm+dvli
z=bpgTJ(uCIoadl7^wk|hCSQz`6GaD53_GTk>LbKRw*8lPtmY&vSE8dcW_3vkoMhG(
zkg@M8iX2w%DE_8YV-kroV|48-W>xgVeF>LxJ_8x#(`8)LFwSIXE4pC&JT{>`*&JN5
z0JvGLknn}bHcwEV0v(Q`<)j`2mhXcvZ3?g77#Q<K{r8H?VGCSq{Fk0Siv;yF;nVxL
za&aI&9{1#Lh>+-CbD@FyV!(CGDpz>UDJGi?q%V#6&`SibJyb2xT;>4&jVm8a+|$LO
zHn6m`n=ln-^>Y@r$%{mb>xqPu+Cex=3-9KC_mlOwphEqIa2pO}jyXsyL0=Rtg=Al#
z8|ax*xPO|Vwdp@L#+FA1mB~)DAM^uMXBl<SnX)=`H6m8A<zDPjLt+G~4^~4+I5%@5
zd9kta2D~7Hgalg>Xru2X<kB&1;~NEmE!k)(lH5dSzk>Q{%)x72iCW#&OO?uR1Fac_
za@P?gZu{GK*I{f^nk2q&0Z%wVJCIV}T;Fk=5pC8z7IBpKD1Wog6J?M)FQQdr>o4st
z8B~VmK9A&suk&C(`TO@B1*Yr}e8S6%vTL5TZAs?<U|lc*bMKhLeFW3z@0twC`2&f!
zJUoT5J7Sl_+0R-1j`rcwVzCO69+M1&hZ0>U81yLJjb^|DjX_nB{Yw1|XpHCvSfd{`
z-|`vqHlzV?h2e2hO)??{f1)T>8YdqmuXhf=u2_k_i;w^4?hDQpj5M@sEnR|H@Vyf}
zMIy>!a#ZmGxJIzV6fYcTHY*3`auO6ry@fqFhg_@#W)IqyLEKLo*Tyz>@C=BKtLKof
zW<CwJO8OXR)vs{7(sh1$&lB*dCOdYRsgtd;CtFd&Q<5uzyeS<Cm#eB*y|@>7A&sZU
zbW?cC;<NqPpd*$Z7DOaS|7?Tgna7o$pl4-^n=4&}VA)`Aqg3$3sapJCtMY_B7@y)_
zIATvf2MDC!=~^_Uilx>Vv^|N8=^{Z1a|BwUB(c?Bb<=u$w#LuZEWE4()|#Y^?crOl
zqJsDYcMC7(-Dw_k|II*o4zRexi;*}L(3xICmESuJFf;@iD0-VGvDze{=wGw|$*y@l
zJ)oU7-$0j_Q%-q!hc+yGzGE47fut6(X!#?f@a#D-Y&?BVNTeU$yP;$mb7moJDhR<b
z_0>?DXYEn(sppwBj(w8ErdY!Zhj-u;Q|FZ^&Jbu`cBV0~{{t}>=IkDUGg5n%aw-V%
z+mu2OQm4OL47i0N-g<PDznA8FbNg&-uwC{lu4hv;=cG{W*`l$1_7$eeQG&ZP5U!3)
z;gNbhlg^!ZRlw{Mq61akG`8{QW2Y-id)45l`)Ceh*Jj^opEpF-uf8SlB2P6QtW+6M
z#a}zw*|S%19)kccVC~EDMb&Hx6M8}6@BPI+uib{S^=-~XJ$F4qD5(T0Tgjp$O8@))
zw^G-2|Jlax0A%wr%H@Qk8REPtMOlXkF(*rbgJ_HQHC+S=z^IT{<*n@lF<a0V9SZ#C
zorKr=7?MH)<1+M2Oc2K0o<Lk~XVzk1V3560(CXI_ag;9yz<oX`HzullCzhsxzagj0
zh92n<lN}xEemm0u{SjSYGTc@i<xD)YO*YKNf*&_NbOyB`ckBtLG(68@-3ZzS0^HKT
z7SiTP5r8uEXs+x1V>_BP-N5{0>h)OL4D8nPndzA(vMc!&++cx*S{-^!;@R2yAT3@k
z7KQ*<bwv$+9x@37v>I?iQl$8-X;~9o(L+9BYZY6vKSR%GNnPAA*qbF7C9pE{-MG^{
zk2%Jws`1Bif-Lw8SD7mq(_Kd_%sP#dcNwn@hR73l(R-Zyw__Rlwb5#92FY|$Z>+W3
zqn<Linvgj`sNRd!wbC)wVddXT)e5%h2R}K#XLzDpa_5x!V)xa07e&0h07eaJS5#?i
zG0W&bIi5P|4MFCKmS3}WUi{lRHOl8xr`D<F{D>9>tN9*|FMMsRJ~ggFYYS7V(N%y!
z<t=bVa!t#u$d84*zNss`ny=o7bL5uVVM?Gh9`Y*0g<{TI)oB)>j~RRiaVIwp?pu#S
zPSwGrsAzcs_3kl5F;G?Gg3A|313oQN$D*X(>JtTbPHIK&UiU)*rzYe?V$0jKt=275
zpxa``QhuVAQWy1fuR|)0W^@73)d%>uALKPb!8m^=S{h6~pdH2$8G-9N`M3sM2lE-t
zlRCVNhCC9*KGiP6FcNqZbOVWiLdb_9h~snGLA}aq!Mk1d9GjoSkn&uEL=C?RaojAZ
z-M6QPP|w>p%}?jEli+V2D-X#BQ80ytf7E*8dx{t%rUn`KWAd$1gQ63GeC7KEWBzN?
zI#IGSWQk8!DiQ9heM+FCz+H7)4rki};k(b@j07cQ{V8whu!d{FULqC0LrDtl|9(QP
zywyREm_&h6=LI0a{iSMAszCQ;<lR`vIw-Vx=}E~UY=7~zUd-tPo;=}>92&D6XYj$G
zXhX%sbq^dAc#zd(2!FWe6N1L#aukojse5v@p=4QLUqWba`<PlUVxRuW7+gV7;dmUB
zUa5?enr<Cjs25>&@2$ULm*b`;S`i<&f+9sxO5HFXR=zrk?f9v)(Iv}m?x6X({Wmh#
zzf6LdXiLt5Mw8;qYC~otfF=cz3(%Y5vgC-r{t~epoQ0aRZUT6&zjcJ2tP1pahtdhw
z+}W*jPW%5vO!AJuVVccwAVU*nk7(8eF4my=>qLi4P`#mH(1Z}7EoQpA3lnlsQ1rxa
z^mF)!G}Q4Sn+Due8DRrxR^&sJ4$O5uJAEHrFtabaF0P27yKL-fQBbL>zm14vRh+Z9
zLE0t_?Gq*Ggge`T>Hh(qAX4pF;k2uV(flR?4~s3OpNi`~WyQbAQs0^BjQAV`!jzU4
zmC8x70=B}w9|uC}B#?kY1?`Hz2F9M)M&_cxk*XJ^)ENFPm$$c-fy8A8LWn<}q1kcG
zEo6kZn84_Z@Ksq@dC&{BxoqP+g1w+DSC>oNIkN3?=<ZO}@5mCc0-H=^kUYQ_?V5Th
z(Iz~-ctANNiiEXSJmvU@f^BEsA)=&cpX(0dK0GjMJDPz-tQxr?w_;~BZM5-hcy`wS
zy5vPUqhmdjbD(V41e)Ex5*t~-7WcUAmk#yir1hX+UBGx>_Hv<BB*KRAUde8;Mbpe#
zcwKiWni{qM)<vgK?z2AY4yD%7&JQ+2TT<#nwry7pw8uzx&v0!v5xaz+bi&^Znk#Re
z$@YYKV6_G#jR|m|a`9o!mb}k8S8B5L{hzDewtY%ELS}<tX7a(DAAY0UXw`h!fNids
zG!>vH>x~Zprd%vlnzCs3;2992vn1A@s|obkilubC(Q3vb&hze|_{30ASotRtc{v~c
z_k#w!&aj|L$J2Z)_Q0qQEaY0D-z2zV<gS#i<SI&3ej}YJuNL8+eF@J|1!e{f73F93
zkK*N)L-j0;6Z=P)Nplgs&Wl-dxcSdR)2buRo8lGLio+vM9Axnb;U~&hj_r`HMF-!W
z<u0lx0fkZ<Q!FVjwz>7ea*{PurpO?IONI1)mW5Mcn-5~K)+s(^+PhW7A7RL&NnXWe
zJxq_Bg2>6;xaR~YjacO7P5c+A{ry*QJ2BuzaFmli=CmVoZ7Rt{`|`H)@n-*(^Z;+J
zoM37;rE4aEs%CP)2#Q5X;bR9?^x~`u;RD7sRl}98xB*)6CqbB9;C!h;{e&ehDR}xt
zs-L!LR<hJdP2H7<>BN``VDZghY2uaAF4BVlbJuv9p9UDd+W8?t^XrtlxTG|U?1I0E
zXKSDP!q!vX3}h*#sc4jPrBF8snp6q?-e1Sqoo=fc9&&czIu8xPQ2h-tm#+LE9Py=3
z0lBm}@GU|FtsE^-Lh~nkP<q?5Cah!(H`mThX!J54m_buuWphfj9wjnby(_##3rcMG
z;@qpSY{oAf-e1#?67Nm3{y6Q2a*l<N{cH=>ac)WjxHLm^Jo(@9LSUna-Jif!l@(;)
zWO3M=akEdP=;@LH)eMfC_MzKERYL;uUFPXtQt$C&lXyO1wziZ^q4VtFAJpQ4-~X=B
zX0$C?;iCj2?9w&qBSjBNpJxnC6*Pqm^iK&r;;I60dU0uD<FYs#;VK5tg6BydDWm={
z-uHWr(|gR+ATW<-=QuUE2yd;Sab4y@@YM@oLa1SvZvdx%qvoXSyh_4zBLsC_WVfU4
ze@F~CDRAsh!PDwA^u3l$Pb;1#TXxRY3k|8S?i~3nNs5n8oQA_<p$S@4_=Pv>fArf5
z4(63HK+FF82KqG#5`VtP%8+OUo-~d;sdmg@i$`>3+SrhXhw;r^ca$8ywGn|EGa}sW
zzrqsr1cKM&(j6M=HPvH9W^jv|5@9pFZsbuSQ)5ryx<R_-=7|P5%O;gck-4mZmj$Y>
zQbVl87wL^7P!H)U#H}m6*C+kQqA2V>e$;z#G&&~@72P*_kA2isYN_N%hEAtAcb5sT
zMK?u7&J9ut4eGGl#ydn~j<#VYhIbP1b3SCJZ9<RRbywC+v6@UHe+ObeNOroi@{ngx
zHgX}u@vRoI5M7iYa_r5>BHH$%$^pfgTUG&Ir!V9zF84wHwAvq~_S{lVY>Q`J+T9Pv
zh4&!H!uC&NFg_zlXl^T*q)t|TXj^e8el-xl9wbWKTwJU?Nc*o^@vyeppk4$nI+`Fz
zr^zSd*5xBz9c)ouyx9VPNZR76`EcCJ@c)oPoVh~W`iQPvvHz)zNIHGO1AFYBGtO_l
zL>V%sEMf=q9E7qS`9|~7aOrdI(Fg@!Jqll;g|T6Ky2Ah|3mhT3K&F!V5NlB`<Uha2
z)}&2jl<NEFnhccn0#ER*IT;BspxwKY_!D9&BJLW7Zk+(+BV73W80VopIm_fS&7Vv2
zh*46I8E^K}jYG%q(eE|E>}im?q*05+P<U;Ir&=jPP~f+=A!)W6btwGCsTGOXL=KgZ
zk|!MkBy6@w9o0oV<SrDnjAlsbne;2BJw>H#(H{&Q5|fDZcJIx$QfL6VD(eSsfN-lB
zu+t8-3T5nZ_}cz9B?+VnpHzFiPMQ*@O*4C$fourFbAj$5KxBZ&PlfQ|IK_o^BmcyI
z028UB)FlR3j<qK)7xcxeS+WR=y<ZBr+oauvgRjE=u;EVu*~U}sUUif8x;a{9Gw6g6
z?T!9|=_*^k5??On7Hor<zcRdATw-?u?^h_P%|^+)fwC86uQ@CFnoX#;pO7z%1nn+d
zIo7n6EW^M7J%MC@wzir0gP&3`Hh9rGb_8eRG!M-YYXqT53!&<9sW5TAbV6%>c|v3O
zhkvdHj}Jb1OhG1~CpKM~rwtZc?yuOH8KjqphPXnRS5BUQfXMJjUf)B-bO=p&3E~=8
z%1#3>^j;TEwB9@!qf|pH&3^ptkSAAj3cuG`eAMrUrWO8?RTDU0t~HUJ(*dNVVMenQ
zFJ>sq{bvm`Vz!$r!hGdz*_WDlLVL@Y#1N5R*?~9<J+~iL?q#VsPVYD<ep)P2OXP>h
zgPF{F-Sk3FPbrNJd+afGawQmse^)jCzhcq3T*!kR$9<c7ByhnBuZ}E^{wKPR%Lb2(
zOC2>UENV=A2_&YPlCoxXWkh8N*FdS!>Xhp+Qs1b=8_eb;BKs}5={3sJK!4=Y5jCJs
zFm@6A{rdt&GP~y#PzlA@``Mm(sdSD6|B-iHg9+3V`|?n7cv0V_FHr@G+aULelEoP#
zvVzPJjVv_hqt+PX7zEvCG#RV!asHza^=p0O$7zc|nf(~?OA4%4LA}gha0S)bNGBkH
z6E5V26&*-s9i<Z>wnr{=*t3`L$Ude8U#!cNDlLhCL-3q;A!Zp9e-p7x&mR&kAodg}
zjI%iKM|==pJFo!0MC-LETJVEoCM(0vX}EWchEY2wukfhQtVxAjQ3K7gF~r+%bJ<d{
z8u3WB4`!MelllZ@8HSzS@5Y*B!k$Ql>>=i4pUy6HmZgq^Qpx4w^lVMEO1WuZ9to1v
zmF|h9xuXQcdUhk$IsCi{GGfRV{qTPH%rx@p3chaP+t|cSH^V;p&2dr^652BF9KrMJ
z0^?~b<4QLHU8}Jjj;iQ?kG#BAr0kIZCF5cC=6yq&2C_Xfq)kF4N=(&%a%+1`gW}>i
zq02cY8y??LaYux4s}EGCoS^pm+b@&F9D^v!?^9*1AS4mNoU_TBk7ut~53=HCLgqKz
z@KrgBm3uCum-SXy$m40y{Z1|nb4QIb%D41h+mc9<(IoxOzi`A0c~oz+RPDUpE#OPl
z9p~Os7%x)vAGe@E8TbsKmn9}=Xtke*Mw8vLk+Y=?GS4ihxTJgFRHd{iYqEIW`-qla
zo64pS)rt(klBoEl=ZRD(RguN(i?BKbG;uBV?F_55!4pP1H3hH;xsCqJ%|*Z|hgmMc
zfB)&{4(_u?wb0A;Jex19p*REDs+EfmEI{wp+^L|r92x@SQ`4|>=VyEAn^782TCh}X
z;>H=M2wh)Mhlp+s&RU99D#JDPy0#GmC`iRQhpbip6Yq``dIrr0d2oo_2bZ}|J(a{D
z=4rgCei)ZI@hAhVs$A{~JPNV5bcdJKwa_72cW|F*4@f%u`XHQ#=*XzlPX_WtrR5<>
z8@@d?r*2cc6fu<6N7pdTO3mBE!gS^}50s$9W(CGiW$!CW8Gn_<1lIHCF+7A{J7vGQ
zTx)b`GSfOjwN=w_Cfy^yIEY!>Fkj&KAl{A4w}n0(#ZfPn%DGeCU80xnbpES^k}U<s
z@bt9hhC^{ZPb3qNv@gEE#!2{gCCD>WO#P+G4y1${44#tj@c|WT@r{u}*0=Gdyg~Q9
zUGjhzIkIp?7MNl4V6<NaZHtq>YoxZ~U!As_^p=u0KR^|v$_Zw?L{)R*`BkI!q<8gY
zVC2f9EjimQl0l=rFDE_fPaQD#JtYyi8x;_p3H!5WO^oDUWLJE$QiXJ_P0m6M{)TvU
zkWlW<{5l~^F{5qeWCGSwWJiR*OET)P0D^~Hcn~Ogyf2ybFyeQ9-ObeN)mGX>9CTW|
zuGr{2YE^-EvV}FMB^md?(RiFbh?wYO?HQ)h+3YIZF?*&dH;WhkbvsyrT7-^26|3C%
z1ryAM$$SJrO>TP1F_&RzY2)OrJMO3Fb){)6x;}YdA&l0xVlWo(+zk=rQqj1X)G{m+
zU)$GMB-L)`(8S_z8ild7gfD*FKy|mef_mcvqha7Eby9skJkle2_kfJB+1S<o({hI>
zG`0V_tt|vB-D6L&%5=JgB10)=K!{4%jF3<96&{HvnZVqbhRxE#$1(7lFcO7-o+ubM
z-9SpvmYAyZ8strqzF%Y2%>Ep<6Is|7_W=+OD<Wr?M5h<Sb#~0be^<w^92n6sJ`Fgk
z)G9WG665IxIC2p_eYi&&oK+j{X-a_Yna%)oxS3-X;IZys(iQhcOuVwi02|BC-qHFS
zh5!8ID2B=fs9G7<f0NmPN}*+5`F;-H40{dbS6I}{-Arza6ndc)^|Jb@{_0C(BnV^%
zX^D<LV5#1bNRarN6P`teodnc%1Z#`*31*wVw6BVtFjTuK3zxcoQI}e$PbniPw4fvN
zad)EsC-VYE9DmUh>+0&v*0fXp`}=sp5%(?9Oqz{2dq3V5x3dI})mR@z1RC@o&U_^@
zK)F#&Ot0F;5IAE|^?jlr`UCoXFPgFY2HM9GuXxsA(H<JXqK@BtQ6?xZ+q&Z@Xd>F&
ziHKr@^kkZ#?+0o(m6S@n)i-j(LqTi%xl8gyC&|%D#k+{`4nW3S`O-<-XHCFTn}2e8
z43Jwig-ND(-L-q~KAwcM$)JD4OIdufZ-XB|HcyMr5n)7Me~;Evu5$3ksi>fT3PS!q
z(3{5eFJLH9Y}p|<3D;Qx#;~lup?*|oT_mj6t=<Is1WpRA!dSx<)UEGXC%3|39sEza
z<#4C6+q{kq%Z47dcbJ;P^f|?+Ot!vaJs4%Za6a(bmc+x3djz1-v@woMN66E(p%{G|
z+g#^Y!@)EnMOpTy<5++mN3z@0TqwPrM7;*99Ng&Ji9W8(IC%KBSkjk|LtS*g`5+?o
zG@wN)?z!&#l>v}6lS@|JE<AzjWcioA?ONe|h#EvyG6%;m5OH`XqK%pc$RhE_*r!F5
zYH{6M3Az3=X(MdqT=HcoGE*c%bqf)L<PU_hC5aR$PO7cs4*16#_p+J1@tz2!taRhr
zd3IMdyo~TLfq};C2&J3Vi30}6*a!}R(4(PSQCG7p5NJK(I{fHk%~p<bOgQl&`@}<3
z`czeF3G+FWtwEAx)!0ii_^EIVBV`z&pl8>*Oq&y7lVuhnD=W`vr+Qv$WuIi7;u0Bw
z5&F@vYqONg5{~{6GU2)0mEGL~A2}YNc#8)?<4e9Tn;1?Kyj@36uEVh(QABicFI0=Y
z2^l4JZnZEr`A=Z37$Ib8-oqGZWBQ~WHl=7ao~N*rhmLAEy-?b#780;Q>f}-T(P^aC
zFJR_@j3_8tekha1oq}X}?t7%}y?i5ARkB<XQvCd%yQZ9AyK*0aeEq4*myca_!7<Gu
z6(;e}{KqsTg(%70-pm~Hp>2!Vl&2R;M=Q38DY`)Z@T7^RgjB04K+#M%Z2P0lv4KSL
z-65<|UDz~kLRS$#NT2bbJhCXhAblO@D~)%v-i|G(E5_K@Ilk1#E<$|?8qZ@y+WF$D
z=|CavwJTRZTkDvI7z+U%Y1)_0_z;_n)KEE^Og_j;c>A7I0;a6jS$2%Codwl5JVuLd
zL=rJs9AgETBh-=9xt+nJeoDgTBXuQh5K>%g!r+OLeU@i1|42I??QDI=p_Y<|FP?Lt
zgOZ_S4oMEJWW`7u60GRBIMzOwyFvMzF^#gAZOR_3zuV0LX#d)0vJ6v*wUy(%7^;E*
z5P$y%`ZI`FC0C6SJH|1Sj60W9w^GPM7Ht$iSRP%}o{Uv^9M6^dyl@6kK^>38dq~40
zF`hcL-rNjVLsY`Zq?Lj22qyZg^$_uluB~W+ql4;DLbKvrvQB8O8xU@nFIcGr_Sd-~
zfEQB?t4&dT-kYcbb!x*O934~Lj~xFCh3&9vnPmw<2Z8VAqewQKd_ErIdlox&IX2wZ
z9A(KHFr?9JGsA$4DQ(<dS*J>%und-JegMs%U`zDdI2<rAivcRB%N}*mF$kNGdkby3
zoEmkj9VS*h^@+@kshv^IRKwf6(BaQ@W%AeQ6_N7-JK7F5hg`np!u6Wo({WDu9&YL9
z#}xd}*oTwKyiTQ%2Ftj^adGiD3cLqTkU5n;35cy5ycf#VAWn8>9{r&i6qx)_bvJkU
zS%AItuMo#VRdeT1(zfKiabd7TsA2DvUWTjxHS>|NwYQ?Ai}2uEKw5FCs}VHxcq%TR
zW~xU=>tqW-D{^O{5kr>%fgHo1ljgB(%G*?rk#?QNUgR^sXM)*n2H^ACys1dHBx>nZ
zX~_6A<nlBx+4H6yjBn9mRE%gDXwm2!GTHs(c$#U<s{sbZJ=m!S&TqsYs)QfoFQHmi
zkkm#fL~idf<0zq#KeN;OWQmsDnL_s^2dVd<RM%f?cyy{2m)16<o8qxxs>8FkKe_<R
zU?`ORdQVuZgxNSBe>wJ%Gjv+^#h)2I`C<k75V@WRODZn$(@kii{L<y=_ba^d@5<pG
z^KJlR=Y`0)AriGki5*J%8NR&e%e7#JNS>-_D}6>c<sX@f#d`99iaF5Rhd`JNlpchC
z#(e5NvW7QqfPz?N@0qfr!4-HF`kqgd%<%Ws{P`1|AMCEGk3lnSluOR>oo}uR;AtVO
z@Sa_#8|X0QnbGD882oNtRFkUCd67kx%_X3PUeWK#VHdrBpwDrVrHb4aXj}q1C8}Ql
z0P9^6>|-;c{1Qe-<bs|*oXzt-0b*qur9m0czenH$<XuI}1o0R|@70g=?)+(Q?&
z{8+VO>OrDhJd>E{P7`IkNqu?>jF|Y3LYn9yO>~>{ucZ6XwU&NW`c=E98-((89U68+
zSW_+}+9T==miH^pnj!~VfRTx8u!D=%Llm0tzd`oCkA~No7XgQUg!ryPCY@VsL{ry3
zy-X(;XA$(B(K*9bLky&Ug(%@q-_lllE<$`6#usW6ByM;PVSw9kNhKXL#49Cu-~Ifo
zyq4KB__B3a{e>`{RsF6@HBaZEV?vlF6>kwXBLlxw{+g~T{ch3H+VN8D-tB+X2{tSN
z?dW6bvb+UisX{zFN?4i`rRSDNGo(0;<JZh&@)?uw%xEfj+1I6I6YY;4ln-Y0zC<@G
zmJPDWV^Ds?iYTL~-0AK|XBN2H+}Yop4LdkwJ)!i#EsD3wm2X&iQ{brwY4%ZBp(|_^
zC?hwB#o;tg;lP%-9Znl`ccVg3E0cW3nC+2W6SGQx%qhX%mF?NC+IUehFSFN}rZ8FU
zbh1f4EJXJ5zNvL4ddOJB<C`}`joh$QkQykY2c@_$9VLVbe79P_!~a83h;RG?_XbOR
z@MW)UcD85-_pdNLsKcrWIJ3`wGY=d5o<+Gvc-j-CVCK9+tU58ZF+?C0a5tov9vZ3Z
z>*1E4PEXQx%>ziz6Sg1BMZ6n#J5KEQkfOAcw`bk=RoT9o*v+z&q@%K9O1h&<yh}NJ
zG6B`MHT%{8op4YF&A?1h++i<m>=)A1*vQ20JimiM2goD>RHQ~J7Hq*;jfT((T4j$?
zIe&=KB{Gdd+Q!@K3b_b-7oaXiSMVcFmBO>vd-g)qZ=pb-75PFGLz?;VvyFYy-B`-x
zC$-L5)FZm#aj>2@3<qm|V23e<E>v4tR3$shVv~lX+Yloh3$9rk`axJM`I2+a+P!O@
zeS5jmS1OzMWr|0}qftthh*bk2-Q&|Vxewx=Oqzq<SC=M>QCWoRS&w3o#Kio<aLj7G
z(#F^j?wWyWeE#SynZFzzQA^8gPj*?bFfNn|b~>`i-UZNRiJgZQWTb!uS1IM>%=y*}
z7uk;Bzr%U26kA@|#pQL{I9iYxj{HA@>^Lo=ANrIf(BcnM-O*_PM}$r2l!G^-F|pnV
z7^5QDST!W6utG0pDdl$W{UfgHS}0IIg$DLRtYMt811yfmc~|Y;I=?y7sC-hUi!&Qy
zFRu@_8wJP1I#qj>+r!5?Yim1tSmhf71G95Adfo{TDn>ih9r6ciC=$9=@$|YNee)i|
z&3CWnZt_X?<ac)8=K*)>EmrMUu#?1D17!S1yZ8rZ%wXy0-JrtJX$5<nOSmcg6UP-h
zD5R|_-b@XGk1*r^_>g1EoMPP52%m*?GEms=3W!!5yIi7+Hv+#nqUlJA=EGZU<>#>D
z42120nNC55_7b6@w&ng&@f;o|ddh=oNGj`c1c;I0$3w?muxg*Ht;R!yXVInBNXoxH
zqVzxN5@{L{8<_DC@l<kOnt65gT;w%*PcCY63~!b4TWav)S|nS>J!CoRYKR{%W!=P0
zj&O563(E5~jx`;o{&>FQ)rdnjSTAW_ELaVvpUx;p(alIkX-w_dD!&T`j;+i|NuXEQ
zX<;tyHbZ>i`JFSmXwxep&4JFIAB{7`7^Y?M6S4{_B>VeqUJ81P3IQ`py9lj4G4!A=
zzUgQkS)r_j{3(w9_G9>6QA87}agn4Kv^aJY9i}`P`RyWIM}Qdr88c53yYYbk3PnV)
zDoM5AfefZ8q>>R#YIa_w(`032G{N1DwgHjhPq;p}Z_rlwu8n9WlPEm}Z8x_})X2Ib
ztOj9K>?7|&SCsj@LEs%|b<wOkQ~_;ZP~N*g&>cH>DcewT3)lqw2IJ%(EjXv}kiW}K
zBM&FcuA2+xl|Zq9Sb*nT$kK2J?_FY5^NPQ&mY<%>iR=pEWd+(|UM8s6v=2o$!&bmW
zxliE;`yhO)OTG;_3YMWtiE!stp9cn_u3#U{@3N(FP{#fu+kmA=qpbZWo6Jx@#P6*i
z7-n%Wh_8DDher%%z#paU<jM)`mfE0baoIg&6t1^p<XZPQsbn1(jw&h?q7VM}JGk!q
zG;t<nSGp9pj77v7*!e`^u6sqT>k`6tP@O-8Wyg4lHiLQ1^3*IEqYQ<6$c%|P9)%pj
z5{HhSZ{nHgpAX3!eHf~wDa?vzky*P{y<lSdW%534QKBsApF%m|(@{2xuAPqF9w**X
z%C(Z2l83D8X8oLYcp2`tB|sG}i%5rZn=@_uNrz_obxqL~*o-Ns<9qhq#Kn^-B%-vZ
z&8jNfg79Zd3yc{^i7~<C=I`G%plBZAmQ`8CguOo}L4q^A{-~c&_UO~lJS1AO<y)HX
zs3|DK(0si9)|IU=!MJ<6(5Ef>F>~66z|vW|W_;L3B{=YGc9TK0PHNpE-yc`h)Z%GI
z-o{M}SQ#MO_cR2x`)X7Cit2Q?37Z3`gN#sn>5CDgBuM-sR#dnH#@=fcK(x#|^W_b^
zfse&%Xjz|SKxhEi6ziSqp1au*mk?-)(rG3POi*UFYLAJEelDay&6S$p$eFU+%@9`W
z*u#J4(e5>4Ho$*TMvc9a@-F1$!aLx-PP|}5pJ<Fj?}1p#dQQ3&xvaR1z96;bl%;x3
zNeCaU2M)n5T(s4Ty-s-l)Nr_qBSO<U5ENk+w4p}|NTBE~l!w%E3U?s$s)wt(V>SHe
zF^Y!6Y?H3M+<I1o5Fh=DuP(A$B8snzD@oxk|5F+jk{mxEQ!M6yUuJ=9sR;5?RiW$c
zj&fr@JdrA#kRb|@nQq!;(j|=9Y<_>NAlmhA_mZ#Ab51B=ijtc*Z%P(PdmJKADgJI4
z$a0_DKQ8ON5Rz{N#1_dhtbFzS2mi081fIaXReK%35f9mLXkO8hnB?^3ql@;jb2CqI
zea&K2KqbOCDh3#Vn{x(!v(<_~AjC)|&Eq>0^yj!#4vye+p@VJ^(sqq?><R49vz7YR
z5V@u3g_)^A-XAt_vy#IX<idW8wwZU%Nfwjr=b#~st_5N5GS|$o05(UV?l=HDmJqv%
zfu99F>1I*=5rF4GCkfMqyEhcCB<WVfMKk(|WuahT<<Dp^TjP=U72@(Xm-5w30)0X|
zdcM~M^x-T-Af#f~YH@H|{GUEab8C_jBZlQ|L1ih+SL!~vJ1m8pv^I$_D5)X3H_gqG
z>|-!D${C&dc){vVW+ctO=>il;;?{(XvK$Lg39XQyYh-hI&r@$xL_%=L4^>#-i$U%z
zMC&1yM@cC=_GT#1S|sSUV^Iy_mYgEDNtxAOwc;M&pO$eSHY=V9KjZgKAsGwuDMY6w
zq(~t3iLrNUFXod|ITIAr8zx=Mv;>k%F!-Yg?@j}g+Or7%;F+mQeIr+QGG<?r61|K(
z*F;qD7Y%j7KJ3D?6Y-SDlSCn9u#tmqbm@&iif+tqqVvh)taZCd_O?t8JZPG#ka_T2
zKGTN6(KD_gs@K`l>ALP@6B~1ZWvzx+^uBv}^3WYrWXSFt_ABk-=(n`|Ag^ikn%$X7
zi8^nv(Q3_WR+kAf*<YEH8S3~y)1d+L$b{#kw54G|!!U|BfBpk6^<6eDDMIld`?$Ee
zz^PORi}oo->0FKvz+)pmP<nn1+(d31GVZvhwp%xu91$=c4hFC<-Ek@ddry+VPqzRO
z*yHm%Xk6*#;lOybLDCzi)3>2+6?HFFBDBA*)3xjStEqM|%XmiTcZDAohf%z-i<KIY
zv5;rAF9+1k<x=n>%9Z9R%mVb16Ou%Twr;!^k%JrAc3_$UVtU5gi5<CQm#ysjEy^jy
zSJX$&WH0%hyHr#v&Fl64fs7<GqX;C!m4<iH?REF=$_;e(6;M`8^<D>-=@Ec~7bMdp
z&JwD3rljP8Tt{x(NyHoxrP>}h@34redXiOBi<*6e?s_ilYR|meqO(>b-gOeG!hfAX
zhw^TeZvfG(F}P6H{rfEubi7WKR4sAk(X^$jmIKK&`T~zMM~ezlKI{{o6AerPHcdy6
z)?`r%3kGypSDsNwh|SLeOzu->Pa|6EDEX$o(D7G#kJ<@H7=7VG|AM9iRMNMs){Xk7
znW>Wg;~YbFCnpNXfAl}S6O0j$RJULCVob^0n5!PcaJFev%!8S7&O7n4q<=Rjhz*pT
z^v*jXJzfHFG|G7tg~Bm(#Vv^-<iFq;;*!F7mC_qHtMJiwN^1NocO<tKK5r*0fhdQ4
zRw7crfFN4$hk1uqT!l>scJs)h8DV)*@D;Lbz}7l0RMijYl_J~!?Kd*@+QfbZ*tSGj
zX4BDMXDT2|5`sMo+9CY_2+z(r_*5(7Wxdre%4(2?QiT8U@}+z&iAZj8z=fHXq1>>v
z;*xIA9!K|u-|nCkb3(NJvjS-qRZKOjeoXX!B54*TVnGGU%1e)HB(EV&raC|7KCRx=
z{@7}KXZw&T@ndljz}dHw>%ga1KO+T?LjS&#d@?F#+N=Fgivc)d5A&;*Y$8yy(fhnM
zv0qr^rwF4Jqnxc7rhFOh<v=}87PAzR+mR&CNI5AP7L%-h<MRY!xTC4i+&{C0i&Wf1
zMMdAtJdU;C6YL?e%~Q<6$^AMF)OZKT9)VY5^O)CR4rX;N<}*I3^XmLUPQXBEOcf{G
zK?U#i1(^x>$;Dx1@p-Q6tXzB<K~)m7A7|=0C&q=thq^pOH1Rl>)FhWE&cAcj;I1}g
zX}+Vwva@dc9cp`OPX-L24txj4;hG<b46(No|1JKP%U;YnL_tiE6wDQ`Dgy-3V=}!p
zu{*!8FDvn6!qx{OW%qP~(#*uH?%*SuQYNAE?WiyiReX|^V1a*wlq(GjGhsnkJSp>f
z;R7F3u)v9jKeFsnTBckRMerYM0QGM_Wh~PDz;uK>L3NAmh>QN;D-)kvMvg5P@);bi
zKH-KqG+<lR9^U=5A@Q#>TxOQ=gPQ1{tr#%#zqWf+N$Ka@`xrb~m27B<ZT31+NW!h7
zt|`;_drFysz%k$aQG6abL`Z61ZFonQ>C56Aj|1Q!xPG#ZqoadCiTax-T96>@to9s>
z(iaS;m~g7(QSBK6_De-s!rto=WQC%6z$Cr1%#J)Ome{=VOahd=Nh9}Cu?x?+XMJ(R
zXppofS4h&gN3D*vnrWU7yuA&(Mu_cU|Bxf>*96RG@i(aiP-4}pOaduG%9r{(3j~@f
z1RuqjVlVds6!8S6Y$*Qh9R8g8DA9#Fo4%`Or5N(PZb4Y)<nQop!psOdK4iQ$1mH$w
zWdG>}Vfn7TUl7~D-i(H+X?P!HQ{1>cUd+z>yd?CKjo%af`WOGN3w&qKK?B^**MrKO
zXn~v^nWbOpoxRNxc}abtPucQ{F__5TTP>abB!ZJ~S*s<nvV4QE2a=A~rO4H~4l;Vn
z>pW?<Q3gUU4gy^%g?r#>c;jtjb2`{MXlCKkrMnVlr*~zIvHuOiaGWVksj?l48;6&c
z47BfLRW3%~!RxW(e;7N5AW?z^i?(gswr$(CZQFLgwr$(CZM*xm?e2MhF%f?;i`i5}
z-d#mxWJPAyJ?Cu>SCtVy@UFn+Sq*iKww1;!?+Rd1$Qu{PQB*7y&AmtkXm6L30WQxT
zT5S6CP9vr*=c#OVk|a7}c=L;Xeq3;m#_FITKQXy>eC^YHSO9Umc6vww7a00}Kbb}<
zg=vwp?d8WqSxjSTJ|B}mj&rMAq{u!=WXzBuJcELP!Py<#CbW-?DkYr1lZPa@qQbly
zrzE?^-4orZ(TvX)4*j~5py7%E{RH!mf0_d6E7xJN6qf?|a+t4E;zP<qk~Kn3WpW>i
z9O3P4<yKAp#NnjV{c$NTjn3cfcJRLRKh^QjsL}1@^}kH}ATqNa19m=!A{41B^s*XU
z2h^OafSy!trM($jVQ!5d&z);Gp4QKwiKO)T%T;u8$A<w~mkcLape$=kkyWRn%wX0Q
zJ7gEh&GnEYk=;-_7OTT};FX{=-my;mhbz*o>K`W%6PG1~;)0eyvYsauT0STA1m>W9
z&<LFqCNAc_u;zCz7U{NzGM0=6A{Z?Jr28Hy%NXBA=WkRQw_YBiY1Y_NT8~5noS#hz
zw;q!(NA+{O)8RmZ-GW4vExFDag7UGP3NU!eV2yzpGKlJap!OGaq~(M_k`~Y6WW6@&
zwTQov(PI*>h*j~W>jJ}RKyyvvb!7aO?-%5!C7>^VD4zZzC(q9^7NsH{IcKKD{jL9m
zPo56GAO8d4rn{5H_!+Mt)b$o+YE+jA9&i|!O?jN}ilcyytS%XtR;?6~*4Py7cP{L^
zR(9@!Y$>XAa+h!Vr^Fx$31Urm=&ffwSrnT7Dv6>5m>-jwB++T4j*b9|{AMiKLiwXQ
z3dy1Tpg1ZVO*DNGWN@Xlkcr3mXU{F}hFLg|l>L@%|49WzTou1vXoJT!CLt?KH|h=$
zH1J^W=}8WkV}q3|@Ohewfkp5tG%`;pJ*O=iK>?YQyMtWOg$Z~8G|_Wk6KJnq*2G`O
z9_9m(<?PjN->4V<V$A@uoq<h}RakA5!2PMekd`?tG)X?G5%cSO3O4znaUl$`!J{aV
zS?8z_RrpI)H|+*@R-TxcnF>0>_;s>&g_6?tV+Q2#F9g-V7`chGaa)CQ!$YCPhG2vw
z^3KCt+)1CVrQGC8sd*CpDmMOaZN5>JjASlnq*o#Y+1qj!X8xbfs~xUQ;jsH(5PQ&s
z4-0OFVHS74t6>;n_W-hbbF=~*C^q6549Uj4rfQ>I73Si*nkVqXSUTD+cIonZH2Jh!
zo8nMeL$4+*jBu#$%x4|Qb{U0~{dHOD8SpKQRqFiEr$)BCMyYTQMe(H;mEK2(j&^85
zYb`5gHN?Pv_&t7j=-`s04t9ikzq_OeW!YfJCG8|vBGjqNFIb7<0*f+Qp$gBd>14Ko
zqZ8YY-MoZ6mj)@l8js5(xd5Q>=6A1#iOQJpZY@CJfgt4zw_hZ4GwR?fp7CeNa&2yV
z_M=7oW+Vziu&CrYnliFYiIR0NQdvS(h`xw+OqFm*BOJ4sJFL2Lt(^PxKPOHUvP9{l
ziT+Xj2vaAINF@yTj0VGWzo>o6<M0W~MBjH-$MDZ6PmY)-WYC@;l<K&KeQoY1aEGfv
zzb+z{3Ih)%=y!?v-j-5AXy$G_oQ>~5Zr8FWvqsgj#TsdYVuDSO*08QM;FaHMaAi`D
z<w+G8-7wOE$=$zL^n@w+dlDNh(Ufm3%2oQ7ixP8VFT+~P>EpIT{<oyVS^%)qvNJA!
zV$mij%ugafXDLrx{ErL^0kG<?%MgXzz=@0W=}^_VjKrH~S{82Gx_c^nj>IP8I7>kf
ze+yaH>DZ=TR$x*xyX~qab7e)%$bsuKRvf(O6e}vEY=&3?#6Jm+A}YVAR-7(&`R^9^
zOyMq@U3&p`Vy8+z7JJz)<KbB(zOetEmspuRl#YW$2-`i&623Z&s@9pdQq=C1QQXx^
z{BlHM>WthcF+O=|yvZX+eN`82qIf4MVl$1qko=my1WqJkDo*_&7=xei{G@%;yHo)y
z^I$7UXkLKGF;i*8EQGV?_mk#}WC^ycO94If9wju-OaeFYdv&)ajt;GucpIq5c`ajw
z>eKXA)ay)f#0X}6{X-TCBS_R-eqwcFL)qRS!!8dPVO3fhA)|tg+f7REK}%U;g9x`T
zUk6c{U|cF@gJ~$DWR#hyv&FWgYL^y{FGo?bFmOB5yZUh3f6Bk&b#@Kue8Jg=T&vuH
zT-RJt6(WMfvDAjlQZ{?=U8t5^LEe!Uh@|{LlJMh)vQ5C6v_X1v`ZB!`3`*PcG728i
z3T&y;A!UP$BrXHA9M6n&jS`JTlyvBX{aFdmxIiM?3}U}?y}9>h#*D30T>{$<%lAA=
zzc#FNWy$f;qwwRKr9M(?I5kDK$8<Q7?Yd_5azDPUC=~KnVusI%yu%->2(63+<URu{
zp+&V=;)mhBMFA)v2Q1o^jdkm;laK}QGjpx*%>8}BD(}IG=PMP!6C=YYW+gdS015)U
zFqV+xfy`XJ^Ya!9Zpf1b6wRE~t-T#bwGO<0nE0D9NE5=q$fh}vQx~5GYK(2eJ4wvS
zBtk7t^O!18d<zI8#h%e*9t0#o1KxTj*`{C_1}ly04Vl+yR5w^xK5;=G+}ZP?EYGD|
zE?~an^WM>44Up4=y)I441l|6!<L*YM3<;`9wFU*Z6SGA<3eYdLKy$)8Oe2F$T<-~4
z+({<|Ab-yEhE6Uxx+(<7P3`rQz>>m22igo{uU@ib_$`dX2>jBX)o}FzN7V%y;u@wV
z^Ei=##g+cL;wBi?LK$p`IfFSWM6gK^x9#Q~$tiX4yAGZt_Tz{X>L`V_QK<!Ax*}mn
zqq{YKbH0qw5_TIN_G}>Q-o$j&Y9Hfb;>SS1N!dy{b8R(*k{0|Na`(6Dh@JvcXJi6p
z#?kApHdRcBOBNk=e&QGt+Sft3rR{nEZcUvea5x<>u0CHkd4o~YpRu{4>6C;t+=6{`
zi1vne*Z;*7x)L;iK;k@7+#~sOsqZdls2OwRFO9?stXd^yE_kqoaFC%<-T%edVPX8g
z7(1+N%>TvM;b3Fp{NLe!t2O?yZ5WyVzl@zXPz4?9B~U2ifgMP;_AY4$_qBbPo0|dL
zpsp_NfgtXI9oBYa2srmyYVx!1pT57lg-~WKwKrv-8{YW@ib|#kY%T0yQtMkC4D}35
zk3b?PE6W<`fYZ}9G1Jr4cPJ=UsdQ}pzmo@)ECF(}sV{Ebzx4>NKv*3CCPrd(1j3%)
z+yOCFumPd4{eu%zgCkSZFb1Y(r|)$IJ;?L|)8jLXC<Jp52@P$)Ttmtco7^5;nwi?|
z0S{lV!~vTjVEuzbL!!U*?g90*^An51<8TD_$3}q7pr$O0jezBwSsFmPJip{1tbL);
z(ZKY`N&nudD6xjQs3)ld0G79ZXK@55AIJras{>FL&_4x6fuRxfr;J6+11cahwB)f5
zwerP`?nX>b06@aP*b=DO8LXpyGXp3GApZ(L)si!y5P1G(Z`A3REg$@=j1vG&EVXaw
zd+f7LAoU+cgN=!?q0N<{@v*s?89ZHc696y@$ti{okM0S8n0u)YCe|kVTJT5APArv8
zY?L6_Uy&V10)iSiMgaAvjL#gITpAqRT+CcLtIx{hgBqrM=FqLQ@TIj?fE(TXt?w;T
zlM7H*!1vYUW9~p}Yolw+^A|lsb2B6JTQ#hr3OK1Vr=*BlLF<a2jR5frKZA1~w0~fF
zdU|FQ3V;hJ0FMk!#-CK-(FNc~dg37sLnXMbEw~4`A4Uaier*v3;sf~h+U6Jxq@AM!
z$hYUW;!Pi9ZV-r}g~bsN19*n^djD4hJTlPicQpUez3~a)oGExT9<={!ZEi2`NdVc*
z%HI6wee6qLe7d-nmXxSa?ltevuUb^Zx;H>K<~kruwT%q`92*?~IXrp)tA7y%rshxh
z2tQBB_4E}W&o3GD-$j4Ou5WXo^4}&rmVn>b5(D^5ZGwQ0xpaTCQv)`@Z=?5Lo~vJ{
z_h0rSf6;e;+{fQ3iNTf8Q+=<${@7o?=dm`lwmiSafSKCr=<{&nTfuAtH@}%yK)*fh
z4+6^4>RZ26DQ=8F*Fp6;9W#5e%`U0+PXL)znw{wyU)F3tv}(WBb2c>B0a7osss1}O
z0AOflr@uwOv}uv7=PwRmvB!NX0`oUt_F|6Q$lgnRsWB<R$Ogy9CdZI-FqtH3aBu<a
z&=%OTfq1`IMgYh~IX%$hpa7M#=muuDAirygPEG*nA-_o9*p5KyB0mIl07>WnLFXWS
z273U=9QqT}nE@mX;|~KF{Q3Gv*pX54N5Bq{{D3zCXPEdBB%o{bM~H~t#s@hh`UMYc
zr}$44<xgyffL_86k*s?H4`izT9W1c1@<X8D_WYmd=wGz<^)G7qPjuaf2v5;9ix2X^
z{DIvN+>XH+EH<^c@evP6k$#U4!o<kN)Zo_2=+yc~3|hkQj_nx0^Y6}20Qu3~;H8hG
zwbftgn^j7t)L)oQfwlC7jZIAMw;mt|=}ulDVWf}z^A`C>`t}@3Yl5GSz|G8GM_`7f
z$>mc#rf>PB_IDbPiSZX1v6%h$@*d)=3^L*~PijLj+~DBC0I>Np98|*W9Uj8S>KPuw
zs^OWRpq$em!#Swa;BoEaYav+6@)JDhMzWN@VqGBPO2;<#w{vg$cL2b}ka^?x00Iio
ztN2$KwsPtq9t&j=@JXem2{7~ff{c60zgX^f$;3^85iUQl{?}RUDnFNVz5OSc`J6U*
z;vQa7VF*X}S~s9{^p^t*E#V1Y*A!6ofgA`tqJepS^})X^4EXpE#%ug52V;5SH-{Sy
z4WWnML~xBgDLNGS4xb#Za%E)a2OlmUqxLr-f63t!9OT~N7g$qp7w_NrF8AM~*6W)P
zJn9(K<-@)5_up!xlOtg3`o1O%<-+@e{(G4N4DoON_1DpCX5E2mvx4~hmm`n5o3H16
zv4}U+Wrz*!_Z%)?e1yOx$tY)`wx2v{b9gqxyZXv!f5=&+ysdmT*Fch0^D1^6ZJdn|
z=$V@J0sDDkd0SMTtF${NAjAa-%AWV1tt^NW_hU7}c58<b%`K#0YgPap4fqNy7CF`%
z+48tJ>c8iwDx)2g7^M=5@qRc9T=0nYI=%qWQ8q&Z6VlLrq<~L;?c8!cZCAJ(Wq5FT
z>@{Ju8rkRAuC9-P*2Pk>s-5BSIPu`>2#s?;-D67GCl;Y#W|Q7F{yDFam*$*ii80VV
z3LfU;@06VNbUi6va7?$&R`VbkoABkv$^dHqKs;!CQH8~|z{ZhFOmq0hQ{N#afkx4m
z277`R8{EGc$~l)g+36jm@bJRFsutL>%-fyF&1ILl@QS_2ydE65HL7Wgu!-mi<NPq1
z6h_|0b9jA2(KJm>TKk8>k<H<p_Qdfh|5w$E(r+gk8bTp0E6O)QG4(kr#E9*y8Z-EX
zQJ-2egaLc)NE35Mu~!xHja|6^*pL0@@z)`b)qdHS+R4e^SR%8m6v-UI=m}k)B>B++
zuYv;N<o&~!NZn@P*eukV`x+=CVK&n&W>G492;(EfcXijhmQVD%ff75NU3+lxq&$__
zZ%MM;E$5cLkhYqtA{!(T$~`SX31?fn!t0k4R!~?}_*Fk3;$Y)*A8E9MpOoy$xCr5U
zB@X@Cmssd8RF=Q5#i5ba5<-2hX0B)u-5nFRvn=%lnORjlmCF8CRA%_TYL*hT^`*PW
zr-tgsMZKYlTW&tDy-;2JG>xs6d9AAHiu06F33~@YjUOjplCl(=-yJ4ZGIF<jueV=(
zQg|M*@c8q53$<@$hu_$x&0@sjjteuX?L#=K-E-)MK<xL}aQyr7JlkgqrzYI?66ht+
zO_u7ky?=uXsc4B$Of@?=gS|;39==TB#PG(EEpHc6*)}b7ZkgpsxFU*S`P3rkil^8%
zb;kbNRcgl7Kf65E(7rG=s7hTsGB6%HEhS__wqob43i_hR#u2H}Z*jd~L`P`dN@wu$
zVJ=E)JTb<n0o!pw$=D^eK<k;)rxz9yo--X>EqGJQ{ZP6#Wq1#oGmIN&^-!d^FYW4B
zyb`EhfAX;%Cz;!LJwvv?Wbq7ry-vq<E@8Wc`%{_8>7_}t@3K>7E-tR58cmGd6jE!u
zRJ;|-{JMLg7C|WCb0`ZA6<h2NaIz4BFcYx{u!1D;W9^is(UkA9IbHaqe9??UK0Y<$
zaAvd)p2C@|@~6}zpQ@>uqs-UGPbl24_ChGCI{ipR$-Fn!3*9IL7A)SI%o{u_S-s`h
zUHsq6C8V+ES4UeKNxDPjz$RL3P$3Cs&>s#OkMB@eqz|efN|=p_4R&ABxb*>s4^5J}
z1%zgr)0@}uYToxN8B))V8k-%Vl&-wX_U_e~ZaFgzh&W3kEsVCMIzLd6NN*4;<(7Dr
z?L3DN>2#lW6Z4gk&aDoB9*ZDPl(X3&jK>ECzu{B+Z0Z{HRMd^jjm>^+?jPg{8^%7L
zZxSlU-{a2Xj_K*In8Gc>-;BM7OpU~d%*n2=OQ9inlh;Z16<}2ZGSs&9&*yl|uN|?~
ziiuoc{X*|ZEC0k$rq7P_mp5k^-}3z3W$2tgIu;>IDejfW?SB<a97Jz1Bby`qigILT
z5(Cb{Df!}JtBFXp58e?wd16Z#>tY)QLu8O`4jFWW*?d_|-gHRWJtpH_UA=qARqwrC
zsi-ng3r7kSK3Z_<cud*`&$wNJhKS0J!!L(e$b}$byGxccRluJT3=Qmwg8!gKc)-X(
z9$CE?OhB)1rv4~U3=lo7ZX}q7CztD!QIAM6>(+6rHMiwW!qS7zn?1os_GgwSRh^aR
z+b-onAevMtn7E%Ml!G`eG!D0=pqzW2#CH>`ZjflICWLbEpV>h(>Cm1VTaPHb*WvE?
zCia`TG)r9mI@HDHc|Y19Tc{|W^7R%f6x}c=T50I|c4ZOHDZ_s+0Vt39tgh#nu%kMD
zbv+97r*GOIX|!m-7d!4#)RhuP?xIf>_`Jr6480Z=I#HxsRDSaf*+TpN)3va+)GemC
zDIp4E<?TVubCDz28Qp$9!Yr`+(cgd;zyIoO0w|;)a)#LdYuyG_E}L0$zv*HomhJK?
ztB$&qzC8)T<_;!2#PoBgW2w6(q$xg4I|-$h<!=dFB>)cDs(+d0?hFM4Q~3N^?@E12
zn~VZ{+saj3)WU+N+`}KiihrO~?8N|#40jU$+aqv*f_8c508V7VGsM**i_i`|M?Xj+
z=(hEo&W$~m$|NAfFua`kH3R2Ro^xO8QW)<D$b^UE&)m_V!}h*V{4^SvFH@%N4&s;P
zoV-H7f&yAZaL(}i+$;Fb+c(Y+%uhX;t4mkpscUxbIGqf%=%t3%97?d{`+;gY`*2|v
zPA|{$H<4&L{-S;iftSIsb1%y_vq?dow~zy>_F+2PP#`u_0~bjwD!-qyCi8FWQ_M;X
z=~85$7)hjYS^76R{Q=Qdjy=Xd4z=_UIDC95*^Fp48+=m0C4_?t3tJG)>>p(GyP(aE
zNX2BDyC3Z9+3i!?XV3t&*1)w(u#NCIzGOq64B(G1oMP8y%S)$*BR3n@w}lg)vY(sU
zX3(C<v;>JWathAbGwxZNgT-b*7MIycy7Ns9N+dDe?Mc^aj4LkhbQupOR_k9(J0Xv5
zH;!sG?t{C?j|(3QLLYc=w)I?_<g_V#-m{)pFv!2f(TuNY0tL-0soFsAiP(H^gl<0X
z=8j$VbmusDs=Vxej8H$Oo0VR@Y9DQStcJ3|-aO)TlVt!!yMDtZ_P#3hQH8yqU^*hy
zt3<k5=rnV|MZ9N7VnOpabXhz0hLdb7yA2$oL`!UHO|^XqJ75fEW%n-tZ{vKaDE^AO
z<&Tc0;WrY|=8*s44yxaZwfWBK$4vXkn7B`i{IO?9F;JmJNH=t=fudNtNTON53@6RZ
z5>ByaFr~i5x{NrngsPo);km7%xYDsu%>6^L%<OBgtu0{+DB;VSSiGWV+%^6Z<qIas
zr%J|U528mT3N9!_%k?ujjIA5LB_tLq5TESpV?59<47ey+ZF2Xjh;f~pFcn=bnjK->
zg5;b?hD{NZf`Rv}9*LZxC8*@03*N&QvI1`mmxQ)3)#I7O3u(Gm@E2kGM;SU&?>#(A
z*Qp>V_D3Eel7qfmq*2j_)m{EQ^A_buOLD+n;dsihn`5+y2hLj->7U({C`lxmiE4R2
zyA#H$`Rs~BlaV=h(;!UcVWw_50b-@T<;?g2BSmV^MA+>9$Ew&2WT99gsQ+`By+&yg
zB&8Pc{y-U|he?g|H)$S_L5^bBS`Zq`Zqkv443Su+DSwYLl7!=W`d~(#uAKJaD_Ai>
zYkFTVherE2`&fgvcMdS~OPfaRGqp=6JG|~#_v%^TuCr9E->_qwuV>4oH?!&?(HHx6
zbf(N&f6(l{6yJ2&yV97SEFBZM%i36z%@RQ-uc0Vt{9g%0SpLrSjr!ss-#v~^zs;~J
zz`c*O4~Mi(T6poFh8x1nj2!H1ml<s$Clkk0^YBGeKPh{1W4rxpdW|j=!k)bu*me-B
zSM^e`niVoOV@!x>yeqaPcr~>#KI&RXY`HI%R$_t8InM?Ur(zR!`FV02R4yR&4QRBL
z#zHA?cou=M1|wI<AQ*fWC75&PrducaFeD~;zYy$zhBs3tj14Adb)GWE3l1_Np=3@j
zf1&TtSJ##qK_D1bz(|o-k@edFI;^Ws)(_E0LU~!;mz_DFYxt88>9dd<Qx^U}5LDM*
zOQ=(9X7h+@X>yxGoN56jH8B&t*ZsATDLR1B3yUbFaD1Sl>rf5gQ#vK!ry&jeyRyx1
zFeEZp`IN5AS614>c}w?a+$<$prEs(J{BjwIKr_*P(~(^u{xcD0si{SjWLs|*a$@f@
zNpr4^%84pqcqpI#S{Gr2*cOH9LwO`Ay22UIt(2lYC~cxGE@tse08X+ml77m!hEt#)
z(i-KU+maNJ%i}mVx1kAL^%dgwCpodyL0PmDfSV5Yi&_LS{Bo5Xlc*)D?5{|L1C7HC
z({&D-O_y5C1?6p;R~SI@Exdd^C*5sRuN1wxBpt8@XbBTu?8LS-u`?BjHFpe0Ue6ee
zF8i))!{B{nmb5)(+}66+P+xC|!?UlRLnAbdY677hpJ#Mtr=<T(Qh95wm4L;U!%~UG
zO3vncgPHYnKrN&g@|&aKW`~ZSATeuH=^-KQiTW*@Oz3n=>*#a5%uQ(%Uh1y8g)$Q+
zCz_2Q%zG)KAk5-`%+aFbiJnQ&R4p5GQtCyAPFd-!7KooSc3=9`vIpF?)<%UqVCCnU
zS6S(u(1GX=7y}Np((G2?ocpDQFu4qS*R|r&Di#QKE%+&aA4$)tIIUj(hf>29i9Go=
zH1Db#HieXZi{pW*9HZyhg|Me5Q#zOIz868p!I^s;GJk>dgv|_%9zO{E%=0#Tg<0CI
z;)&nz>%*uuH>(|8E^~t#Q`j>$6o7V^`E1?or9VZ+-QZqQZWS4%m=d&AtWpI*UJ*SR
z6b<)3LkkihHP;qwK8k$s>5Z)nzF%UvvwGhgm$AIA9&Y~JW-ATk65F;_5h&fI<<bbp
z?&KKyLaWJV%h9VxP1~cr7g#xdgdB8esTF$I;aSv0%kO%l>kM4ZvCoSt&nU9F3bWm+
zpti;1lmN3q^fHA-Xa7{N-JrQTC)u}DgzhrKj*nAIa7>Jf9X?eOR@H{|M(oOIQHAg~
zh7S`hDL6Zo3j*7OY2~`U2LswwIVP$Vihr<rmtJhr&}ED;;E|Y!G}RnGoNV%`XLqyp
zND;yJyYME0c+AKk7}U_&@c3AslgQ|!M$c2rX_TAFwnh;>G3p8{2?zejnQ+A$#Ga5w
zJ)og?fu^y3`JEr;1q`4K9OUF_rJpnJpHq3P&#D=yk_4(F@(ykpEmI>>It`14ZT1Jn
zofKJri$!`zk%PR#-mmAAiZtOya6*jnSSti`mWucQc^d%pOeu5a3bDVkCKH<G`=`YP
z?P0nIP|$ehU^!0d*cyh2&8D--Hw%gSWem=I|IXQ|JdEkQ0xNJ7A|+1&ZmVcviL0>R
zI56b)Sl#Kf-6{%M<Y0<SY$yEdD!_X4G*H5ueXTHVm?|)G^I4J&nSY+!GTE=q%~(Sq
ziJ}k_SH5{dd4|CT;HM=k;5=^6?48tQCADOqC91OGjU>gO=0AbN0MF(2HqwyLL+<co
zyQq}Bli+r&I2o`B<u;o*0yKb)%&1&w$?}qE2zPU+*P0JIAorL~%WQ3nzL;0vhO4Yk
z<iMU9i+w6pkw5?b9nu0YaVOqk*eOwm=ZDCWdWFCA;tErsvVlvy#k#{^dIcbUHDw>D
z%pPBlPXt%*FO1%`Lt=CA*FdyobzWwnI9EOQ(zj{xVJ&K&xa+^$o}`3euAcUM-2M~y
z-bP)61k9C2lIo*|bs%bTThkam#ha90(%Jns$wW`8b%K9VQ7KLJS=u}t&IWbHF{K~N
zSS>a*$w;`(tqTh#P3Q=j-sZ3o1>0%+$uG!+YwN4n+iUB>+O<O)&{z5=OgVt+d>s{M
z#G$#eU9Kz;Kbm(Y-8z5jJ(WI&k4Ko}TBUwVaaNL&HHT!f$>Q>9pe%2y0`NQSm>AT4
zJvL@(i~UFTuavXocW+>+Sf3VriLr&R|HjUYCr|dS?KSx|LIZweF?@~Wae9y$t&T`V
z6{dEtg)O8OzuzW)D1Kv)iQ@HQMJRx8`^}dVFP;ZUClXr07!u$_dhOj&nx$l_cRiZH
z9S;<pg+~Y^Ax|J~Z7Lb~EHc08*Uo{gi%;*fkskp%?m`Y>V~h@v9w_1TpWR?yb{lut
zdtZ}B#JJZ#>kDSTHIPl!QUt82WKGJM&N4@@agvFuR@Gavr4;M_yyM|1Rfl-3D{M4+
zGl~=vnMED9M{{io#510Vz=_46g3lW)4-zl;s~c&oSaaH%>7(C8(~;0It8O%@q*>O@
zP+Zs{TBXF|-3{=Gdl$+;zl@j8@aVY>_4X11b{}I#oHd@JvqR=&DpU}{dWRM7mvRxM
zH>Gb(g>DYj)^?8;mJScxk{`#fj-JBu`V&ciXtEgvv64cb;j{Xbn07ndOb{j7MMt@e
zZTrPB*ANM>ZX-(Tv(R;hcJ@uRgH%Du)Bk<kA^P^lFVEJag|BGz$O!MPL$j~|O%tEK
z!`igJF7_o7x?10DNw>C*cxEy@L8P)IA~oWqXZh8E$*YR{2rIdYVxuIgT14olyLR&H
z0OB(rBM(%#s&{P0eJg2i=hAU;Yq<_mc>B$=uU?CDlZUXEcDiffnZbi=0}iOyuJmE2
z!o~tmMqe$jgHo_mTEy_wHAEtOo4JwK9fscbas3n@J_`%mKoMCb-KU$1<uKo7Gm<I`
zS-}zVKFoN>5b|8l^3I;$B{8Hl#xFUJ|FE4b%ok&V?AD|IDW>n&7?hc4oHzBLqgX2G
z6ADXM0WJlbF>dS4n0JfF4_r!7HLj7i*vtr<{FJM(=qkmg7HkDk>oUd3guqIl(sn*y
zhhMih_#vT~vW3ZHoq`U18rtAWyFyO)*R<oyfhe03ovD)AVs67*2}U>@wLlD!nbKur
zfl@bMatWXl<;>pZH8X7qq49Ql2Na(v<|b%98zR?g1T8f`9`0z%cMV6W-jIU7*JYtX
zf{{V|bPsvZ3~4poC@6>tl(=R~6usy^dS(P;CxYCgIGR~z@MFIgXv_ZcUAa3kEOm5O
zitMJ*t4wTb=&>n%3fzhDs`sVt{S4wffYlbd6^fDXmip(zB-m6XT~X$o1Z@AiRM_)W
zIC=({&dNI_%KDgCj-eY&n`0KtT%{0{IoL)LSGdVU1#0Jx^6mhI!R4seX7M)8xM(oG
z+7UJNK+hd1MvAxYqr4f>5Ek1S@%o%3+@GE`HRYsad}b>x4)_rm&*f$u@@<-71Ma)f
zf8qG|(Ce|l^z#g<`ZhrR*qkb!_O@fj{!&#Q-^#gyz}?hCwwh{P3TQ^-02L|Ib3;V*
zUm;j=Y+K^J&mf)!3i`q4Z!SEuRQeF^{iu)EpWg+<_iOf&y6wOmYqtsXZKIbK9oU_F
zTdq-{V1%P2Ca1K$6h|8Jm^~kH^zbt;Su;JW9)GomNAu2{ow_zV!+3An-LQLpLYV;F
zvKSe3yMX%`ZbAD)Ht+;9Oz=)0X?$toSDxHjjp;QG;B(8;{TJHVS!fiyD@Nhd{2gCH
zH7X=Yi-ls+Wkg)u$rzPsPDR+eaBfpOo)>+FkEkU)j*j&uxSl#JojJw~pSk@hR741F
z{*a!*`7FukB`R92$CWJ8Vp<grCR=Iq`g?L2*xV!|o)!|CLGdmYmswt;>05nh51Lnw
z)|iE1J=7cQh{*EolaGXi{@05I>}rXm_yLw3EZ!6H*qLpnttdQ5iVJk15(6utU<LDD
z-?U{|7HCfV{z4fV^}qKPwuQ-JV>1%|{Inld?~zz1;#Rwf==S-w^aR0Q$C3t!R$_IO
zzY3e9HKYH2d^j0l@sdk}V44T5*|8q|Cf|zzO_yYpm%461E2MhG>~weIc@S!KOM&TP
zO?BQvMeRV=EtMX%UI#>%Wtd5&HBHVwZGYfd%*9bBl65V5xBpEIm@m=4N50>az#Q`K
z?aKljR2*T}w{$;H{OfQ$<_G@Zgt)w`>DxRb6D(3qU|C8P_;=LA`mrCU|7^__Naw3M
zq%&fCh`S|vYhK>n4*z6kMLy;A<_u9D$7Ud#FaYB$cLQO=`9Ob#gxhx6MK9P``tDj7
zmg8<IO9{a*=e{cj*E99}yumLo1Jm3Y2c|6D_yx?43z}~ypY`@Ll2UrV<+$Y}oy^Lo
zPMHMIS8*{5!`UA~NVb%g%uJ#&>&o+6ioVEHX*Uos_J>G=`n{N-OrQ!ILBuxfEm{ca
zR|2dT!>}_=?mMQ~HdKm7u9MtYGTh2g&e*x7N_iKsv;Tab%|(q6%Dt!_lJGgY!lgik
zhzg8&f~v3T!j9o+zWNc3`jNO1$D==Ev;PGEx4L%Y&_$8SAWA0^s$gUvg48`qAXS?V
zWmVzlZpLo1Xh;MT8N0AgBuUBw))8cK5?VDEcU7|uwSR32&{qbUk#%)09gV&YD$t!&
zuBs?KAU)(ci(mI`!!rxyzDO$xWEkD@Fwu|w@p=A<epUHu??Y#2e`*_=;7Y8nNp{}`
zCd~KAXQtJ!QG%giO8?PE6Al9vGVr|=s>q?Fwqr6kMd8!%#zU>E_RkJ@K{C7;CskQB
zgOQE+WqTIF;oFX*Ig*@Tt$Dp2Z%~FkC;z<TG2q4WY9t%0(mkY+b&^$Zy+H~E0zW%D
zhhBcP)+X9LH=A%caf{HeN&4M(OMye|!C9+W+ZIpWNjpPbhhkKeI=3+SxQ}d}!Qj^6
z>Fh@+{a}<2q?vMYF}qLH^g%edr!3)OBL95Fp^+~RuoHISksI1d$G~-wRAq@8zAgW2
zg(BCyv5Ab;Xifj|biX|9WkD+FCY63<FQjXgkb_w)@DQGKiZ7zV#=PLIWPR_cguc)*
zYp7o^JRr)(T3mRm{TAnwW2we7{~2QZxwV!sUx<7&dHUPpt?%ED3#Hc)s4;g2BI?(T
z4VL1tLxohwpiW-$>f`(nj;@y(L}3}^m3{E8K$)BZxt*P(1C*Oahz=Wi5=2mYV#=~s
zY{!GwJutqvs#|@?Oayj=!gCD^KS(~hOJ4(w1;wDyR*iRB)fW4?#S%$DpZSj1RSL0Q
zis#TQ21<w3!h$AX)vVRq>mp1fs;GH+n(_|f6CP(0r(-%bJXs4uZ$;Dv9K?{xt|b(`
zC%3J8h&MaZRJjNZi{Pi_N(bc<N4*t>#4|BvSm)pEnwgqG!l@iK15^=w*zoNk`}T(;
ziW?tGvr}N9{58rJ%+(or+gGx$Y0R(2%UCt+b15EZr>T(!Ey?No4D~=vLY(PpM^6=G
z9pTolDX&3voXw4I=V?WXyv*Cck$BtN^`gMcfv-4=KWXnq(#6m{9!21bh#jdDUaEKr
zK!(~Wd81ai=HVIPRuW6z=J%|_i}h`gbNsT1C)sH$rhaG=sLecc6WqJQ%yM2sh!iiy
zUfu^bG9=yuEK!ep7&LD(^omNNHDm(_IFH!|I(N8?xWq~mwbc))-yr(VhWym@#x#)U
zlkx}S{#|b^>>h8qwi7)~1+I|WN>e>?)cbA8!)q##z~?Ff({s<CNZWZTff!&91^l0&
zl$HHVap_}Pa0@c)E^};Hm}RO>H@YZ@ijW;L+8Gs9W}!K|G_E!Ab-dzKJYeYQ`+e>6
zi{c3iP3Y0tj;(k|;22u{NNf-=nPJ$S)bg;azA)5;Rm|Te=_yB11DJ@Pjl)Yd;g071
zZ3A6zgS8;DZ_!)^4~5G7?+aY}9c*Kd9Q?**oV-l0ac|ow1Czp8EM1XEO&<TCN^xmZ
zWbX$gME-VbDEP39=aBdJ5KIQ-fF<rCwQWT>m<(j!lgP7&s|!Z8BC$DVG?rFe&o4pm
zmk%qgA?F+|*$97`nbS}Zfd*?>v-wpWx5tu3Fd3=7Gk^Sc^Ie^ZU4qbLnF^<G*-2*p
z(DyBAbw^T;6OH*%Y<ga5Jz^>*Xfmqa4-gmb81snrAeTw(OA|mVjhlywQ%|C$O@{gO
zQU%3%LrhuaVk{|^1wnOrKh^2JsMMW?ZWlggIydjidf;+Vi)$P|QkCF19T^RkeL%!1
zdriB{aL#-Fj<Ay47u?+h|FB{>-kAXf)1ClyK=n0d`Q1Q$V3RZcRT>C~6lo>vC2XB_
zvwVbc1Tf#dykZh7DPO@mO3JKS*S*{#JpgEY!z&<5^f;-l4|2xB;V3$c-!gVe<Irea
zbvHrfgSI%2z4ZlxXM~vJuF2eb!iQH|Yw>1#@L{hWBiT9USNiB?SlopJfvTSF?$)N>
zYLn1OMQRuzAuF!m{lmnz!;8YA#c0@GZw%ZavZxeaM3lmSx0H%KW4KM{E4sR!$*Npy
zeO}g&-|g=jC#WCtNg$?Mg{8Be1LrF!i-IOGmi(DMfG*WB{YrZNh^oFKFaIiS@A0uf
zP^E!=4_sxsUO7F0X*B>NAM#2Bt?NaU8~DhGQnn@^4c<kB-mn|n3~a;p19AbBYYGmI
zg+=BXW7)1W%v;Nu-RZ56TNdpq`5cvlh?HB&uf4(gK|&RjqoiOOcd#enf6oDx;Hi*|
zqB|b%@I$o8qb`HfXC`LL#V5l&eIBAIp+4$4gB^FLm=grI7NoC=nvq+a&m3Lu4w6h2
zjZ2j6Am(ObaePF~ameQuz#YjQ_p`jV^Q<88WbN@DgK%MDUEG2_-Bp2I^DN8Ug-lac
zNIr`<_DDFzJj#9@L(lgy#EPY9m333L?&{%5$5UVkp|MUddnInFPq}kg;X6UJz1Md!
zB<X%SRf6Z0xJEa=uBXt>OHPN>!-&ok9a-gx#DTjTx(j_1rw3L7x16ScdkuEGA%B7@
zq?f85Uvn0&(o(O~chauZ+Xsmnh)2sxM+KYN(70&r<3wEybLtMt-fD0Kt#=8Zkv*~|
zOu|kdnfU_`X1j;<0EINW_A1gs#x+)pO|Mh>1u??lIuJMV&@;p5IE{Dsu<}I!J&KHt
zVvDnfri~T$gr$(an@(YLhve6Fw-QTI3ubXW@5EvNoC3O+ofhbDZ{I9##+FS<Pcv(c
z*zZZ|-wj`nMZP)ad&o)tSG)AYu>mo2z*gGmILi$NOR%viIi5|#+%)!x%4XRL3fiN@
z$i0cY->V!53F&?){FMQ>bY|ioWjy3T@6K^_vjJ<It=-iNQ^1G|rg}8|yK7Y{{#>&O
zMJcc*6F=bHzPn)z|IV4-8!An?Ppa>_@G`p{V(_AXPamP6ZxW|myWOZ=woi9buANB&
zxoFM}Z>~DViV%XKlS;HMC@u8b6uGb2+|M?hWd5>sas>OJpUHg&OMvs;wB?=krm^Ty
zlz5{raI=Qa1~|_xeg^_?b@5vmr*rr#uGpj5!w~G1O;^^3Ms^*=$C%-43nUDgS$I~2
zcAdG&o>F;Wtl)_4b(eN3!IFF#XVw<YqSo19zAP82d$57cK5}wf@VRkQd31V@@_Dl*
zA>^dZ9n)h@m8$kftFUg{*WNx{+I3WIze?`dRc)o~>l}D10Md)&%07bSvCIPy-E_$;
zI)@%uja6?SICXWAxHu9c)*M0OpKp^&w?$fv8Z}nYFs(C&b9C*`4lH*UoH*9EzH!3F
zv#*X2?Mr3Oh4?Ub?6yng+m-=zBJ4amZAL6wSKtiRcm+<4gTs+!j9`hH!>hY78gbNB
zJ>hH{P}VuKZbl567bnbv204YuJ`;oR#;$?porWg<oV|&^Cyfy?hW9jEOrmc(bxB?5
zW+CiYfZRPBrEEhIPK9wQe1!0u(cYUc%U~Ur-4ZlnnbKuX1oe5e1yl9b_cv;qj#aW+
z;|qiE!^Q%xeR<l3=I^kSs-x8;-jXb2N>uo>^f$G$ObOxC6{(;PFm~5Du1~s=<G6?V
z<B<nSxZpj47UMNsjffN~)>lF^SxiBvSwFUW`5NBh3dgDHwdOz|#V>+JY`(V8>U`aB
z$fZQ)Rd)Xa%t=#x_`-<6s5QTmsyTJ|+zf)K!$`@LsucGg6kKuPD!mo)CFes&!^AXa
z<kr){;>WBbw4c$496BYgVW(x`$KD7*-SaeN`b*nj0CIHep^<(nm2;LARfOfssWxe4
zT;(^Ad?D1tG@#29Haz1$s{!e*+2-twXE3PL!NLwpK`7N~*iU7~mT?i?94wzAqf`X!
z>uXv(5&<i-fJv2GcxzdR7Fwg+G_#3)Y|d9H?KcitP?P1lO!jJOXn~F_QkwjUM?*dZ
z{zIJF@1ahkTg|8T0O7u4RD6(fTwNWnCkQu1R!)y007Kh1-(`z)p9Q<(kcX{3u|p>x
zgDg*4)24%rvD2v@am4_~+vS=^bFb4du;e@!>2bZs4EgXLzw1lm)S6fWcEkk~2x<;j
z2&1vCx5GBk+cg0@CRyP^XVk}qoHdUU*zldIm}LdO)Zz!0(3(V}7h7p;L(aHWLrWAM
zj&4*ad|B$TcNFEBgY;b*8;wu)FBQXm`?x0vOT*{a@n6&C&B}3UDo&GxoM(=|j;xwA
z>scI3uC-`>_7i@|fp=p3qrC@+E)%n5#&?v&G)<5DV*VOnbw8kGLxE^YlYS1#HWm}~
zX9b>s+F<yqRRY9rEp1R*M@W8BlV>kwn){0F{R;((m*jh_9S0XIlxArH1VU30GIif{
zl|}cCVKEe5jo%AjMm?e6T{-t9Ig*~h4N*a5K%`U6kD`H2TwFp!s{7uFP+{?bIDAzE
zPg<u%3#zLmE<Ct7FqJVX!;Fnr4X&tl*0b&>HN63<pHtBqncy^z=gx3Ut;-c9dpqA(
zHqEodQ?pgY9o84c^=!}l%WD@H!)0{^krtq0sAiik#%xxk{;K@gpYPZ!@`aCtaXabR
ztO=tvxLO8G4XOQycqZ~so9ufT_axUv4uTQW;W4tNpN0A-u8u6Q`qrs?>=Pw;uqDdi
zo!C$taY`|_R4^mDN8(7pmqm3V&5L4NqhAsPc5-T^_T*CS2O;E$H6#``I~I<9#nn2z
zd^ZnAGJSuHO&rxr{iOCB=2xZG)|61bJtRDbX5<y#Rp&}|q*z!Q<k~@Lcv-Q{QP%Nj
z%_g<@_!`dJIQ=Fu6@js%8><k<2~RD-&XnVegr=6CG&^XIv(XqvQ>vhfq0{CQZk?Lt
zE~6s~-HMQtvx-$=l6#P)o<yInx7z$_A1AQXdRO$bh<TE_Lc@d}?^MnRpgpYb&jgWj
zlomyGltC8Hzo&naS0YiWMKSPWC1E|)J5ahYit;74f@wW@Bj_0BY*JYFEZI-}oP&PN
zqT-StJo{+jWc#4*U4yRO^Ium>-OvE1w=m)ff;$rYUQI!Iu9!XW9_c#S4l@9z?7IJz
z(kr<XH&l6!?Bp<xocHLYg8zmPnxd%Ly;9d1_h>2THadRTg}ee8-y}ERyvKA|HqI;q
zH!rTA{d7zj<;mqCL5@SE4c|6Q4Eo^wySEfQ*2N)*Ew*7wJ*|&jUOhzhof1yq<a?l-
zd-G<lyD;ZYG7}}#{o0WUw8(@mu-05l-`#xNs(%Y_XDu#(FLl@(jPIUehQpP8q9)~^
z-qx`_E-81*OJNv}EK-<l$>7xAG=-6yW&L)!oq)vUH-QkoH{IIe)rjUB86ptu1-@iL
zT1wuJ=6`eB(uDp+5gtb-U2XJJKj4J#!iSOG!l&K~ZX#8sV0&G)g3h}9;@ECjKDkvZ
zy{LIOb%(D-Z0ar_&uWUx!4nz*a+L^I-#{)V6fAv?o{?bsc@!D7h~0CUXJvmVnQZG3
z?1UX49Ucd3*>Qlc4z>~8t1RfAt3j|YrOW9^*DG~2b1TPenqs(sy9izljM<``o|^_5
zn^{+5^FbSr+mVEcg$d&i;&!HS!kOO{8~c+|56+b0=bMC)4&h*aV%L#gOOshx_Sz56
zFW+*m6ep>VkLTv^TD#hU%O*;i-iGnP&<;AXr1W8%_;rW|q#>h`B3!*tr?7GNZc_;n
z9XfO|=%~ZMD>tR{fT?4ppY4K=<%srY8Fyub0;l>mc(5myyziophCT>Ua6C_u@yfE8
znCIFX&hh-5CTbZFgq&+wvV&PihU1C@x^%50t^MHy59abq=+LY(O5S3U&6bYrJM1<!
z!)w0h;%RJ}>lVDkR7q^ob=|PBJ(rhJ)X9?UGYkbx0!}xuFU4OE1iNI*b>$9c(;n_x
z^f|Fa!wBzu4z8DD5CM>trXofA{SQc{Dl_ffLu_{Wj#1y`D9s^r<>C@`5{yaHFF@UK
zhN~rFlm7-xr6GYCwhL+1^H`R^=~wf~oc7qBpGN=bx=)x~kEc@+CdarNtg0~^<*5hD
zkZ#LkDqs$dZyncytd1wy&PT(8`c`M{J(DdFw12CkefIex)yOHeo{)quj1xRaQDp4<
zE!n9jn@2~oGTk-vfGjR8VcSpwyq7li{>EuAG3FAi5S>M!yo%}Wv)UfYW!<eU3#1Er
z%nR;{%7gyl%C$Me7CL{IyMuLj@3e8&er9)+ATLiGf0s%7uw{Y?fTkGKZOu|bbOo!P
zmXPv0=rcb?L~i&kziTq%&*|h!j}G>c3a*pB|EjrrFd&a`DVl@Wl@IJ+_}Yr9M>OSj
z!NMTSx|1jpUn(N(&h-AHk@-8sT-K#x%?t&)(SXsPa?$;bewU$NTGcme7@FU5!$Rxa
z2zAT;Cd1wvqTc&4`9~Zh7Xx|>gkC=;74UesFk|m?@v-VD9&h)HIOhro_x!eO5}=3+
z?akm`Uc6OPlS-0l6Is(=cDv}4d<PA&mKh#{D!6Au=LcaJOY3^j#W_J`E!oQm!9lO7
zq1xgtTa*;C2V_DUN!+%ttBA?x80(zIIN1rvCpHqJawc-U6~~Q|#x^b$wNXKijBZ&~
z>M*QYWI#TY7DoI_r>d4m6O6|{qR${`b|)K|>?7pYE11-pcWrY_HaCCxD%i5vU;3^!
zWBE$Gs@)5FXFaQCN4H)2MP!R)c{(~x*1k<76xeen>-?~-lvU(0vt44@Sn3@Oiw#O2
zFe+;UsA$|627d0XRRMz@MZ<JD)QV!MZNs<V8@yDxB<aN@^c%@Q0xDGN$ZBtKbF4+Y
z-=vm576b>ZmOJ$My*(XkJz^;c?SaiqbK?Z$4sadGprSBa>13$Krm6#+6+99Uht?&y
z5ePTKV+6c@St?qu??qO9GSgjstR2#qmn^09bjqxozK2P1>GZ@E7N8wFikSAaF}wl@
z5%1~&AS4a<j;fq=;a!Sj)?agw(j&v}oP1r+Q5f1_PEWQ(B*UOK4?h+3nl;Kj4Y&q0
zE}o+=$qX47s2g4IPM+9vXr90dTWtM1lOM)DnInxkFM4URO2yc)P`_DyX28*R1?=iB
z|8CQ>K#l?H_oMiFkBQf?J??|3v5zw+h4&b(&BG#Zi4tP*@!JujW%VJNcw1pFEgLr<
zD|`+p3AwIiGHle39w5R^^=D0oyOEyZgITEXJ73!~yirsS-hVY~$)E(GHu|zSYKLra
zbG75uJ!lF5PcvMLsIq8V)uwA!y<)f~z$%>e44jDf%;rm(d=GkC50Z2KgkF;IHW#B_
zyIL>Us)<aGZT%Im0I%I3QPQbPG!Ol-=y4~;5tA%_2DVn@cg-?eMN^_QF$F+H0A+;V
ze((Yh?mIXI?Iq)3Es)o88RBdp_8U0S-I;-jX?o*w@#u*Lz^8@^<OO)Otp&5MM{22e
zw-vU`;ZxE3a{#?JTrXf;%_%aOjlcRzx7Mu1AjX@?gEzd$_4n}vj><jTMlt?+phvXq
zswn!QHP#&-tX2*lm;p?l>yHanXa3)KaN{U=x3&zEb||AuK;A{%z=)cfb5Y;~MzE`(
zHO@rvDSj(d2?NQ&5Im{f>47rVtrQ9?Lqbu*BJvE{rzb5Q!w4S(kvpKq;Z^%=aX*&+
zGP{ujonUK*jcl4xAfh?vH?YS}VrUlXWw#c2=TG>A+j*1E2?rDkL`sUUI<Rga4Ya}M
zMtxV0R&Vou2ne^XHGeGjeY;4VQ1!6A!W*du>%nn^C<8BVIiFRbUTC&VZwC0ef2KOQ
z`uEI2m{MW(lQN!yKv}XKqLfE6`5+!DsGOyBj}&dbX+D7#Zp9070rsq&rP&#ujrv+O
z5rH3@R2l^fk_JItq8uyg)QuC>FevKwbZ3z9fOW%A)(+Y{JBmhj51iu{Vk|gBA>RAH
z1UD$0NG1ASCM&Tp6<PQ!9d;k6K-J;Wvg+Q)-<JH)eiGZ6PDX!l&(06``Ah8wphRQH
zV6i1gFK>_-Rmwk!_)RBuRHt3AV4gAZUu|Q{?^$ww^r`_zMy}LVuYvq_{v9?9oqUH(
z4Z~5cGD7iz9507M6<IdQqch<XX@aFXR_=NeT87^;Z6010P@oijb=ALutnvA=g!@aW
ze{qGT5=I%ur}%Wa9tt)d?${{^Dyila@(!X@U>{JDn@vv1dWiZfcgk(Ud$4$Loo4-@
z^x-Ex$jJbu!V(5sR5Ur>WK^zIZCMv5Curw7bv7|A{*9Fl!=-VTL@-NSC`kz%Ir@uW
zAshLJLYJCX#jhjW`7P3Mvgb()E~XQ}av`l_JubPoTXN_i;h+;jU5V?-ZR~zuQ#Zt%
zsM70iFroE<xYCDq48`^=0Y%a6Rw31Q9ktp@9bO4bW2`&z*5;`7Yabdv)FPT0=oJP6
zG}E$=24YouB@u}@z3U*c!PrAwEc&&Y@ZP@BL`<tkyZ-OU&2nyS=U-18o<gIWU_!nj
zug9$ZL|tx-FNd@+f3i`#a{o}EXAcvy+3v{bRM3f}!{ekH2mht)8pRQG{61;U7l3L^
zMxiVx_51n53+aj5=-l(`94OJyo%j(T8Fwu?k_>gDc!?S^$B(m=L-#$CEwNx$hm7GF
z0&1(M8KGTg0)<|e`7n)!6GP373n;{lOT*#o8u;qHeP8y-D-~Kh{EAPW`hB7C_=@=@
z-O@jmfpvhh0sHqE39GgH1IiwOBd3s7S$QN##`8E%h0<;wwt@}Pv0ap2H<x7(w2WxL
zkJ(PCBui%K=zC7=T{%%pi&MZ*Nw-00<&!rL=2-(8<J*;XMlT$Y+_t0AQAY!sW!+Iu
z6M>4lM`CPc&gLDl2BnHfZ)3=AL=$xnZ$gMY2~wJfbE$-b<>I?L+HXc%!F|J-nGY;s
z<4W$Ihab!I{`l@5D)?ggP4F)h$GTRB6TXP}_{XuL!)vQWf|Sg~5ONU9XpN#yqXvDX
z9DF|4d`#6Vvqwl`6&n)G%AIK<A2uz3p7uOe1cJ5JjeXZj+K%wK@w35uc7!c18&9Am
z%{21=!`3}Dhr%=L0<LY_wr$(CZQHinRom{WZQHhOx8HgW-kE){b9CnqWRgj8-Nz8_
z=T_GwVIg)7KBQ%LJfPE4N{sm^dZ=3=x{$^x1%otJi;%9U-}lFXO%{1eCAZ{QJ`W%_
z*^-Ju5zA0&ca8`R`-OSSL*V$EI-xj^hgHggssg6PsEQuO+`e5vLkFJJIxHKrl>P2L
z4^Ao=52}<LU0-qE+@E@Hw~3RcWc~5&y3Dwo+tkOza03jUV=<|oC|}>TZ|9)fua-VQ
zc`D__D5!>R&tj}j<w-^qP~qN_FKV@%QlJXN&W0P{W#PrWqUq<aC|hetKVNGqO0P|f
zN`Wb2^LjqpXXxizoA#1<R|BS_;ZmX1)U;^{-76vWM3e?@B03M}MIkYI7=ZXZ)-9{t
zJ{dWUutC4*YA@Wyv5kr<pe||4ps1S599j7MOG09M56oj;6C6i&>8)i(Lr@q?hOCWA
zD899blWquQv4p{vMW9W8dm(Q+?8DjICgl)|^4yxjL}-~tF}EC56VMq9ufmI)+Pl&&
z!$`=9`@uD(2dGYwo?x|W?8{0OX_7NY1k~vbr|n1fc|ix)G;^}*_IN1)Qwo-$?nRok
zJvy+naAgs^IOzH}Ps;XhFe9RP_*Baz-^BOO<iel893NwB8SC3Q%Tw-3DSFX8F>%J$
z-O=>M`s1Q{8-ITUFO=CdxgU>;XQ#tTqo!`+{;JYX--_EfA6nneWo^Q<iUpPN8*Yg6
zO7+n{H$89lg3#5Nxed-(ZXYLDW+rGq9!!odZe``?f^nb)quWd}F49mwL8CfQ88%%M
z+icO%i&T1v2FTm5@O6Uu6mC#U%kK>i^bs~!tF)}REE-q<wkT@cg$$Y3$G?1S@A4~H
z9)LKA5cn%}S7cm|(B-{azbd495(xPFd+$}s>(#Hy3JTq=M9YiPIXC>xHBm=jfpd=_
zid)cozlmHQ5<5)P!nQaN+e3Kjc9F@F^MWP(!$kZ9f~Y2tE2ye`TG1{&!1UE$Je$AZ
z3?v#=Wd{IW*lkL@Ud+9y976c?Fj7TpND{9g(J{+=Dt0+Z@4NW1=C_$$2<K98*){)A
zx`%k!7ivN)e?3`Qm?O^-kdj-mWC3@;6yNAYh-5R{jMAdpw#^q^W1rNTtk|kIhe5RP
znY>9jtQ;%@zUU1~q|hrq4;-<NqHRhxlOm2E93w^d5a}~}g|q!YunD2Gewv1{(!YFm
zyNX_?oEVh?`tPokZ(CJrcjiv7Ko~r_n}cH6kH5VoUVhkCe{+YZ$h?5E2USk4cSvPg
zIH09n4?8xJ`yrr~?8sEQm4JRBMTKU9k9R6gZkz2IPO>l&CJ{t^6x=LgspjoH60#XR
zRo2p$u~7t)90Fp<`WY=NJbJvik$JKdjwKWGjc{=6hYzjh=*-{bA^wm8@gvUPZve_H
zqg+~l$b5q^mN-daWUBuD&5|nM?}qs?@bDN&%p&W6j5Fe)ni$tme_Lg{J$huxzBZr>
z`&`$?qmf#7me4?-aU9d5d;YGHhLsKiZ}B7Rx5<RkE&OO5ppp=T0ww$db#ged*rWax
z8#f~#vMuQ`tA8#kp?4ah0-`h)yG6@%!{BkPZ~A&b;k^dF(v0=&=I-ZhuLwxKpAV0N
zEs(tzyk0!WDe`O#5rhQvS+9_<Lk$h(+5DM@I|imB|59*ty8Lo?-tNwqOs5%2CyH9`
zhU;i`lVl>L_FP$v@T%pCK12yEZ@17R>gW)Fx+9JiMci{J)Z+|PV1p|4n3L<4%10K9
zhDWBii|>X^3AnEb;XZk62;pJ~+bL2~8cYLM4)x?BhIuaHfk&fAQE;hP<F(DMS@$bR
zVbqOp5!v?C&G9*<=s4r8+xF>sJ#~l=rgrcAXowU$0RJl&%OjM4{7)&gFc_VqflX$A
zPe<CHjjoJ>;yBq3mH3_f4LKTx`|C<IPf$E4{cIEf!xG5a-ZecV1Wu!cJJOxU&krN<
zv&VSv6$ZDg2E$LnY&HKVY6~A!f9NjVQh~5&@9M1bJ<=skR#jQ&@`L~colkZtG+a{K
z?Vpc`)`?^NT;FcZXQS9ED^I$Mngs6{NFU(oNz4giKeZf|P4}uPzG}Kl+YXLArqyx&
zQiblv5qdp7E<SmWL&*oh3dZnTzhp)R=i7JFaqnH<3kN&=YQ9hl6*8ty2zfCBx5@EL
z;g;p#@ChYlBF*ATxaEiGDT3FgZV^p@<D`V#s(IdIsc&~e&QW}bwi<JO>I7_B{J&ZX
z(bY=fX@^mYdn6VcHv17YoUaFbow$E}+w5m)6C>0XR247>v}qZ4<7}3Aov*?=GD{V<
z3z^S(jbO%YjZ>_El~o~`{<ftR(U9Ws2L6pY{Yq%~*HN3&hgkVrM97PalEjdWVlyfr
ztH?3)V>NbT)pK)EKnA0^G{U;zss~@u?cq5ZD`S+X)QMeu9Nyr}erz@&f;076%-G<F
z%rPPOInC-EZ#5G@LS1J2rfgu&@e5c11T`?xz5K_sC*8)cnHzhX5f6&zm*UpiCDOi`
z$>#SeZ9sw<(gZtqLXFHrDwXn~ApSdUZjr@DXP5g255MlYN8r57X=6a@pzi&}cNhi}
zGOn~>W-tps$jEh$bGWN7d5o;i$%LuGwWu>fu@o;~VauKK0k4CutG-|+^cexPApAt}
z$WCRB9{Te2hN3?kHYV{|HeD)_NeeBZ-zCc#Dp>k8<H5Kj2UzYs98TDYSS4)SgA@gM
z${o$qP>Z%IC##%NRGitozZ<kAPHWM-C+_*A!9U3rQTHj(YsyJ!kC(|eX!VQ0&rK;i
z<ZWrzT?Qu%f~WqWb7P(hLQB0u=68-X(r1L=)2+4nXvbvM|He)6iRz(c0^#;+zZ1=}
z>&cct7pbH9cus^o+4c(J(`H7c1sS2x+1ue*{Kmb}^gbE;-ezdVmexL*bQ5``iu(-}
z?3*tqMqWV>$9wRDp4uS{qe4~es5k<A1WR4DvHs#T2hwAKH;tsyg-m;LXIG|U$*}BL
zjxrgvj4RFwgKk|I)I8?93$!r42Fksnw}@6_-|d+~i4g9X1^-)0eR<obZf@BM9HGdy
z-@w3ypH(rmsQ2~gIgtkV%+$BTk8iw|Av26eZ0x+uEv#HPTk^6gHjSk0JYp^A8b>RN
zoQ#=u{7P}Sx4|IFkG1HyrCq|KMpZTbdOdnXzl&SH{LH6X!O3N!^x_?M`BGl%^{`<}
zX%>66Lg-ML>Dps4cwMOt)6J9c@$e2K>|L6y`iZC#8~xSWpR3x5r-66r^^}AflzvU|
z%*3!?b}ir6<rnKQV~q%9B@S(M`wvV8YwsXN?hSRaRG8evE!vb9M>GelLW@Btox;6P
zC(M$o+I$75lSZ{Lr~zND2}eYCgWf3?;>R&nW|Ykw1`4a>%YIXd2A{2t%T1(@&NkYd
z(@;%?6?#1~kr19`ZKw$15*W?$U{B<#&$gN+m!)r>ECQbqF-4Kg-){&o>&OtLCAyOC
zm^3r*8j()oeBOY@zlK?~B9VvI%X<)fBpEJ*M1?)O=#hbn(D`zFaV&2+q4h<o4^e47
z5d!arKfjPeFx-z;C5_4u#oNg59phLHB0{fx<uVO*`h64ibr0h*A{q^{p!lKAY4qx@
z(ddqdU`mWYPcFDtPrtCHfgf9hNdDabeO&OFSdunIcOAQ~=VAS*M@*Kt@s1D1J<#&~
z4=dhO%AT%yoXSV%yAC`$M3^ywFgj34?_2bm+R!Lsy@7B?k8UNSXqt`(RE*?uL6PDU
zOCFoE_F~+~z2x>Gg@lsGd_Rtq$LD-oV7T8FJseUg%g_(l8Lj$VHcZRqlqpr*X6SP5
z!mc2TV5aK-N~3ZRJ%g~<Og`N41kV#?P5*Tbbs2_FZve>=3I9p@r~JNj$#`**wfbr5
zlg@P0sa-W;w>G`ulto7@NzdZVU@=hr+}TMx>NX(2ikqQ7Q%^$-62B!uS^GlNs#C=_
z0)^x4N1F6i_WqJ|n&m}b5vdhm3#j$UNO5ybnw?UXuIUv;V4|h>rVF)jSIp2Ue3Xk^
zhl;$1gY)h{rbZNDNlBcPruVek{BaW=9UqV-XnHlT5$^-{{|O_$%v@;H&SW_%#buM<
zZ3=bB`<U4C7G%eEB;q;k4$=(g75S^#7(S7%>_c{r71ld<IvB}Tp;r(9@e-nd{P<yo
z;fHlcwN??3h1`@D?PxgmBfp?4u-9`l80vhDOf}M9QkBZKus1~N+r%2zuBX}~aVSq6
ziW4B7uND3D;dZ6w=t(hC)5aYoPx$%>6XQ{dHWk6!SLKf*(6yNr$~HrEWeIb*NilTi
z6y?{-pNmprOPtF$`fI9*RIP7*Z?2k#V0Xlp)GI-q4)^Z2zrglJI0x{V<!ZHk8=d{m
ze4>E%Q-B;WqR-l}WkhMo=J)xR<18~tRm=}V{WI1Tq~FUWz7sKI_j7Ien8WEc_CCvs
zzvT6Du54!mo_BS>lugswRnM`0?p5y{bS|D0oqwXqVRe-J5~({aqa}sXtKgwPRzo*o
z{wQqq#`}jt-$+k6q7AxyHP_=x?UInyO6S0P4s2ujd0E-trJiVq?RMQLRa}u1BHc3K
z&tEp1rZ$Ewt(gn`an**BIC}iytWR%kiN%)Dyz~veAA+d>t<q&65xSGbL(?;thp7^Y
zXJmXj8OdD<I92Qn&T5V~Q1*AELRCm_84^!w%C;j_C?+dAODiNe;(&Yo6;|fJQ*pa7
z3>0->QNS=D2fd`P&(Bjh=tOb#Uhn{KKdZ91J|#B;h~On1SeBej2sg`81-mo>&M)5#
zVeRHO5&=Qz423d*CO<#JJe+-csGcwe0(wYuCN%tmM38F#)Hfp(hzjugsOBi)5u}ZP
zoID{G_e@!UXDnfV+aC7Ku*Q~Fz2t3c46M|8=r~Lw7>@%X3Hg001>?!CVCA&9GOQj{
zj3v#x318(h9%#&R(;0Yl5=t3MrSUk2boWMU$WSNW(#_lXw{790H9k0d-;|9Z0mVKI
zh}B@#y^nMgWWVLIL=?hDu*XVaznTgH^1sh6soVj#<)ONg12icdq9O-G`L<l~{7DZv
zoO>%6*65LA3Pg~ki}-spux1$oo=;-S*?W$I&VC~8HZ|{ek)ZT&6jIba+;G%Bc138E
zL3YyviI4M#-&w6p3!ajMR!os23Ve-iJ6vaQ;hV5vz4GW#v5X4oH}5y@2D-|WQd1UD
zv2^WNiN=MYlA~7<Zp1|UXfc~m|4K3o9bibn=he48H*GDVk7g-TE^W<*2KoHlZO=c{
zWQ2YVZsSK-!e_H~xZ?3LUQ}+O`QL#oWnLt3RjnNv!L9Wm_Gc$nP~m{1W#H5!E=>EB
zC<$IMRm|FcQ-E@enwk%O!`WQX<fK;6w$;7@jfhMN@w#xMy<n6~4eqm<KpD|rPIWi}
zsB&p2eX6Y#sZ7~}Ev!U%<68KW4jpZ<J97%SU}67UShsS?`)PStYX<_g2DV3z(+G0P
zJ}+WZ)onK9EkchDK!Bq{Z!FB)i#J@P)L^QUNLiwN9;MppuJTG#woJJE`XDByTZ^Yx
zy<Z{sVDs-V{Hs7bqOswYA9Gqu)13$OvzA^@ltow+@4BYY{o9P2+_NPioFD7Z1(o#-
zIXg1E3|CK@iMDI5&6YXYIygaUJZ?Ny#VT-T75>`zES>l2-9F4@Mi^A*HR-eAvTQ;D
z6Z0bIU(6zUC}CoGmE@q0EOG*WO#CSzTfSo$B(n<P7V;axj#Qv*_YpeSba?U5U(YpD
zUx62OnSf~f&kxXT_L5B6fA^1k%lv0hgrO80l}-r1nVx4j)0f5B%08<@l+-aq&4IQ0
zamupm-p>J8-LrqiF&o+f*tjv@;+C<`zWohVxs1BmO0r(?4ywGg_ne@)7#M`DRR?;3
zKFDJLYMWFv5Hxr{P*R!=Edivl-h{@YS2PirA9Fh}4X8~)@%1gxi}t8q2-usZN;Ws=
zh;sF!4W&MDCI-HRhR;jP!!{tMFkT5rgbt+FS`r5nq^_U!C)%c{J<%rElnr}UQH!_~
z?&>WZAZnUNG9QV6U=%a5e#7+{gdU<h&VmQ3EOeCZ|4zZp5{*?4k`A_*|Fg*#z(DKf
zy-JmiiSL(hQt^e=lho&1P~0H~e-c=wTGYAYn<WuoVSuPYm%J<ISamTt76ZaxA?*kD
z=Lf*LjRBV-^m@gXD>lbGt)s2NV0orv8!NqMXF32iNUGP+92^vJfi<|GJ6Z=Gm~{QF
zG}y~p$zTL2h(IRSeBas1YOZ?@Xb#>SmxJSET$?9fR<%6@FP#163~GbRT0_7v%$0wg
zH(u<)?Jbo>__LG5kFPPI2gwk+-LbX6O|*MKco%#gluIq{6z+Ims>XS(uuiz>+!1v3
zQ#DW>!l9(#TWIFO89fEj071>9#;!4shV+H$7T0xUfgc-6l)}3#j7cKwqxV6a2d`Z@
z4f<7`!{%LjCTx*22FQ9NYlEQx&|*=dRl>Y;KHCL34b9H^wIU&lj(_1uB=g-gfOFpm
zyi_PnU2A!+lfaD^{3z9;oc?wOlu~kGt4q26*)){2hi?}|$?Y$<EBuJUbFynPREKUV
zB6y9qbt6Z$x@YYRM-fhn()=2lSN<W>A6qJX_IR){cSjl*C`69evIZ?BjVT<liMu1s
z13V4n>Iw#S+R$)z@aY1nRbL=J3vti>fdvqwvW|F?R;Bq^$4<$0_x@HYAorZQ1`>g^
z$;mv>bY}`+#$d`+gvrvW!i{X2LhWZ%VD-tOxSC?`{Sh?)IhIucU}BnlxOFWz+RBzY
z5;NbbsD;2%LA5P{K6iSbN3#`99$Y$E`-*naO$BopnON<;r0Jwen6UPXPi%Hy@%UM6
z1+xAD7<z;5mZ)jP%$|kPM|E(?ofcAr^lBD{9n4P&#Todzvg-6?)VB7HnvU(bmT|{?
zjf;=4b$UexF6-EMM@Md55kPzybD4Km>d?`+W=wgQI4v4_Ga5HF-mp>(nqX6PZbO>6
zY0_}%E^0zLu~k&)+~_bLN1E8cnK@%qM6sQ}a{r{X$LNH~+AcM6IDZa6aTFxd>}Jpc
z9t;O2O|@fAFWcalQ!j3v-%qCmJ&NIbl=87Ss*usp%@n!-s6!a8oXB+}Xr^;f)xYW=
z(}i~-cCQvVqk2Ynmz5bcL=lsFdZFReXRud~Gi5XG#-{$8njS*B5mTNZYq~G)@r_rK
z(&Y@mlf?uprG7gr$<9X&TiYa2k<J#vBk)HKhCvG$m$q31EW{f+c5vM07&ML@qJkVV
zPAQ~PtDA*HD-EMvGK-t9HHsUOm#geBdA|50iH@4RWlzrTa?Nn8KXkR;8U5>wzUJ*B
zI(TArSX_UmyIYKfC!kLOYn~<x;GUkR&&xl@FtEHB@|xw#eXSC>5CHi7ckRo49)=K%
z<zN=H6c=NNW>K@I`5Ib@iYOfkkykk<t+IpqFM@btTCJ4i4bpDi?w@pVq~A5V_}TI-
zP)~J_P<A{n2=CvJ*Q$X$ca%<*(SHBo$P-6#`<W2HowcmNTFg?`zpsDX(|=~`{yxUj
z*T4ySRRj*AGroj`;s<fPv!q`cU(RAT`^T3aZ7HI>CVZ%jR*a#;3T9|NJg;BO()<)x
zYkN<ASCf-09ftGLu4<!sMDQvY52)xzV6zDD$Z6j&ErZMoe_-pOhklwl4R?yfuATR%
z?}m|-$N-y44~PV2`1+dNll|p#y+y1Xp)GGD#DI532s#(RL3h%ot&`^nyPDmNOd;84
zYj9uaY$^_8idvAo*x6kZ0=FT;loJpGwrrhaL~u@lO)szsG#VFfq$*X@GPGpXb2_52
z1~hI{0qT05MM_R^>ouDm*Ug4_5HWs6XmS-t)w$VzNY5KrQMxQ%qA{Q9CamAk6)Ij=
z_~jab?_<W%{rdk>c>ioW0(&DXC?1~wX?KhS|Bx!S|IL^PIGH$@{x|!7B|Jt3)_;)R
ze*=nM%+kii)QNyz%*N2gRK(QS-ozA&j}OY(#mUsr7RqBIwi#3fMGO5kHY9|AK%y$x
zWpIu(*2SF*1{em0*`+AOMVg&xn|515QbGbEh+uoW=dk;={f%e0b>)+81?$B9Wyk#Y
zmD4+~ph#`eB$+`xL(l}#ft-!bO^z@ir7;Z+9ieZ0e0pXaa;TtaF^H?5;8%0BU@?$`
zLkQ8KfS;!rhk$_mD3fIj^1M7I02n3P5P;4O06h-@y%&L;9AIpm@(o`+Bp5*e>j;Py
zoT3RB1;HVL7%m58U}hW8%JMj5>M^elK#T!7Kw2Ro@43z)AcS@Z5DKgxaDsrGI)avo
z7y|^@f~Zd+BKgzbwx7c2_{fBOsDJ<BVgjzw)kK^_qsPDqv`r|d8UPDHJR%r+2<NWT
zBmim*?Lpr1io*qfmb(0K7fd!JG?{t~5J-ToFW&%S3lZ}GhCQ4EAYmOa^Fazgl^f#A
z-n^t2R|D`D2QDBw=W_S@C-SEo5#>jn0Rl#BZ6k2+Mxl+g4+tt4K*cn5EoUoR1CXHY
z-Ci7F3NbJSygeYFApvt?pZ=U6pgM#LAf);(?*peFPJx?T+)bR~$~_jRw^b0Y31&+N
z%Fr4*kel=1YlR%vH6S4I^k(LM_IRTYvDRVsHvtsI&hEYw#@U=3&X!|o2a|~YJ09K%
z^3-k`=>TN!_~-~_?*vTX3J`(49(D8<MC-;ap*KdSH$9Qn!+V493IJ`4iC{+o8sY&z
zu8epL6v)BJA<V=3$MVg7VE+IpL%3fKfH{H`CC<5(+X>U?o}Ku17w`g%;Yg$fA3fml
zb+>mnCK1;xE?{u$cI&sp2o6#c_&j}r<~QZ5PEiSIAMDQL5U3uo-4mco01qIKfWGgu
z*If}<@K>?l6P*&iRR93w7cH8n<QKy2y$l%R7ZaYW&;Pb0NZ^GQq|amZL@c{2+u#U%
z_1C%S7xm$H^|06dy|?B4mnz9MtpBHx`RDrXw;|Z3fZ^4jC&BmfDkK}w6vPQ>@AtA2
z`rX^%Ur~dC`Q~r)1b1LU69Hgr$hUWbg1BZm_K*(j1xU+B75k6g$`7wO0|icDm_x{q
zpC*8fPImUMu`nF^8rZuR2a)yzJu(O<_iv6O7@SzfFCG&CJwCwE9)Q#6zK9!ALOS~1
zcxbkmbHt{;EX<xkIB|9YA%KbN4ghor@XRgs@uBF;^leFRBzzyCr}!5DTm?50fP=(t
zB0+%giT=SUh{M<pB6`5#F)kn=j+6Tk>|R1IF&;qp04`xO#SWrU^um8(_g|R!7s`L6
zfh1_H+(V{n9mU74GXD#%|H8(9!TDe4_%FEs3m?Bp1WcX%xP*rS?jbSEox~<MZ~7m;
zuQ(_E1P?HTzeEpKoIf|6+~6jLXzp-h12p+`{vuy&#M!t%5CR<<KY?RT1^xs|*jMl(
zQBB>#bj2KR_z@`KZ|I&0J!5%o{8M9FZvF&J4d3_?JkR_lj)blpJL6(lxQXz)IhdO7
zy31qWA%o)+fDht15~gys5&S?2;x}L5M3+wO!UPN7@!Nr8-&?-|#SZbE9SH?^2;sf2
zKXnDb+}s=l{+>Tx=!wYh_&=BCa6pd10gh&+2nPEAmz4o0k5G_O>MePL0(f0JgLB3-
z+o+gM>8!5&l!?*AH`(=;kuQ<U_0hxP+I>O#&um^K*=%IH-ARKX5@uGJj5Jeen%!df
zk$QHVRGh%-sGA!wdX9tBw307;R!{AC(eccQjT`u1*)p3RltRA^SJg{a@W};sS-9w~
z97O*-I)MOebk=-PqM8z!MkOPkLe<=rdj%hl({1GS*yy8NL4w=(opquW@3|6_iD_9L
z?%~6~)98|yIX);+bz*>rF4Q?pChGGsexuWXJuzl+!dCO`JSb>d;m_LbGnKQzKDc~0
zDm7!VDCq#{y%D(9mNt*z4BA*DUnZk@s!2ms)?fPo)q_!L#x`j4=E;zFzO<H_FYhes
zF=D%lJkmSLb=Lv==XXo$*NS3fcJ_4oM0#1cv66R91{QKx{r5MYP%(RVC4-Zeb(1#S
z_b#F7%dV5aZ{lO=zjsIf3M36EFRcRaqc`DUn7>KnqPxu%z07ZS{U=Wt3~JYA7ONPs
zdOfIxFfPQ%xMiAU?eX&Xj?L+>@3J{1msMG|R7n2n1ZPxz25$9OpB9?<BynAj7I~gf
z56yGzOcE6)yrj6O=Vr7AOWqzBhYK#g#|M&;9=hO5-(&Ig4C5E6ayP?=)EEyE%P;FU
zMYX)1Dd4v@9L^}Iuu<6HA^!!tEl{LJT+uE4EtgoPE`z}$%o=Qgm#TlLXRn_jonWa<
zbD|Sg#r5vRX*U$zvi>U(v3GRV$${3=XUtaVVMmrbRNs-s;mZ9|7$g>?mMDFltDHMH
zzX=eX0`LjWr{CXy%Zd)NdLIfShpB}9Fp3`+*o$mj*Gz?9yRw6GddZRP^LZY_Dq4_2
zX>oRWC963QA&Y;ma9f0O?5%T1<kR%DU&J0UjDB-bRT3He;AfK_No*{4llfC66HD`M
zI~P{nj;Tmyz3|!YWXS%xGn6bHiX()I0}xj=?WT+ay*ZhB>Pi$pNf)Gw%t_~U?d50k
zj>Y@=q+Ce;GyM+;x-zi#N(TLR;X%3spUPXsO`9ay_^hOxm9y>=i4`}*?spwqICXkr
z$<KMhd2;_PQjWQ?;2r%^s_rgAWePUweC6}cRUH{`?RXQdX_Yui|4?W2;d8{Fi&gf}
zJ8o0>fmIRDrJPyils}~SX2!#3ko6T{&!b9puqg4!CRjmqlh;xicZa3b2_bLEd&~86
zLrBvg&62*@aJ)zflbyI^Ud>59ocQj#?V6sV57z-1*6Xn(*3MLZC8Y(;NBA6_R522R
z^fCPu;KzB~8TBwlx%#;YsOqg@>7$Pkyj0*G^n5r~mP)ih0qVL=X7OGlK#tl_QbW;v
zbl`kU|EoNxR2nqksJTrTV+iUM7KJ!JRsWnPoYkc0pxxlqpE+_jf6Fp*dEQ7hx@_Cv
z$W;78Rk(iiu~^B9Y+oK(J*n#OaZZ5(NY0BEj@J+$A$|v?!p#~Q+gO}>bjN)e`^AUU
z4s~A%Pc@!grfYUPA@PLuH*X@zAqxX1rQ}5Sy;|yCaw7C?aYso7H@hyzsm#n=Bl)<%
zJl5fLNcKbxyr(X#@T_FkA2&gaGe4=QWk(m&f2ngGIm<RJNWHrF&qz3I2E^nC7E6%0
zG37Q5QU=Ibi@SLyl=9Z=(v@I*K|(?%k|V~7dgE6ia~6-g|LL|~@PGwLVc}tvSI{&L
z-WraAL*g{q=RFsDA$8PE`4!46V<N2UmVDZ3;T_Y(e6UJ(fk%W^iyXWnrr3($TX(-0
za!g^V&i>}Lg|83nhT^g)KU`x;neVE}tfj{$l0$uvwt{AbUn)U%eES>D*X9s>wPWeH
znEC?a{owTa<4D<yS3ARS9PzQgT~whxyYS&w`fAVf5kQ=jeOk8{)DW_|oNL|Vpo1Yn
zm{sbnx~Y)$!~zyvzm!IiCf?c7gK^Xgv7TE^9_~8c{Zk2OLwQ#~MR(-F;6W8liAtPW
zDZCJV{KB7NPTvUZu|fAwx;YbuYCURUK>&(yH=XDfXMyWgBc^i@=9uAanH|yH4TBnn
z8^xlLu+FO^dKX=>%N$mf^XD#GS}|-Kg_*-gQ@*+aPg6?O9Jl!N%J**BWe8;yEH7Bk
zL>$g{VHuD?VY?{G=Cn0WyG_>aAFXjd|9dxAn|{V!DiB#d%nut(Am5)ahP0=Y-cKq=
z`N?F4Ij<~<pdL754rMuSMMw@STD+eIqK<I0WT9WTd&l-s7o}eXy8g`WXEaJ@#LWTP
z)m&M@`RaFd+ec(4wyXpN$XWLcx49`h&!%&sXE?E72Ny@{B)`**Jj9=TN^W7Zq!{9$
z;aNQ(Sg^jKfYax-@9>vCEz}mWrm#{4*v=RlcT+~+gisdyW-}@_g`#rv7-1p0cTw-f
z(5uKjap52|HaU5qL?Wz;zwClE1BxxEc^5vVua7RqBY#?pui?OyvzhdHWL)b1ATv;V
zA!twEgE|AI#Il`&3Wjf2FZF@CLHq?J6KJctZ?)-6D7z%a&=h`|i~Wo@#u2=6>?VnJ
zJnYB>!<=?gPfxPIbBJs)S7{<@wL}gS{OZ~td7)P>X8yKdGRYFfx5(?}2YyDkk1+vI
za+jn_u}|@ZwKfdAJ%mS+aEGmq^WEs0TNs^vld`@Pe=Qd^S_Sot!zj+1&>6*_jJ$r!
z?pAp5(BPemc50g6#-A4b?vN|eJp#-`8V*g;cUe7{a7~BgAZ+J#P2TSZSmiT}&I&G^
zyzVx1z0p>smQ7R+T_51exzg%CLWi~I&nse3M(gKbj1rR%A3B0iIUEZh(n}LLy|rF{
z-CMON*SZ{u{yE?%syYyvVA5Kh#K_*OsWPHBzuxX^JPX@WNGro@c%Dgph23VX{eU93
z-PkhzE9%kgAa{k%9mMEzz>1HA#gANu{+jolAf!Et<iLSvwV_pb8|yW<m#gW%xB9Gf
zM&(^4-oxC=Me^s@Ku1-zL8Ch-lqqr0wF>fYMUWZJI5=*c;hzH7{w$B!9ze<%C0JzS
zT6EZ)6>7l(+%Q?+k)Igi?9$h7E&CUZiNUW0R<T&}`11Fk4Wv)R^si_%+S}34$HtGS
zQDu$EZGG5gY9A7IaTV!6es3^3hoLT-eo}PZoLM#JW_{gPOA^7gaL*U129&F0M|=}J
z@@XDmF`7@xEj#Wl8ob^KGObU)&(wF#q19A!CfmbAkrU%Ejc*#~*|M@88`QbPk4w&!
z@y6mb8$N&sb=x)n;4h@BI7j{M8f|t|(O1*SpTG5FDx{A=05PNK)Zra2^Yl-Hbnb_a
z0_HhuV}i$njjg8ZOpo2b`<~8pWGGF<DI36~e_1$lMuzD-Y9C3+Qb9Ir6^_X)m2|Sp
zQR3VbqW`!Rzk0a%b=-OJg^N7)*3&W%L1pr>u{)}l=<UHm6j<6-bW?zw8{P3AGN8T`
z*HQc_{W4hW0*r+GQCf~hCf>pS8S)H{k7ND!<<^IzlHms#^l8jtDcfnD<PYPukPlp!
z5bi*+*35{5tn!+I(@9A4@NLp=PNwkw4J#^$LI+Yy3Rzq`j8#L51rbI+_tnN9f^W&l
zRWaIxVbPX~x;fq>g_!dz;d-LSVDHT2^Qef%J%Rw~9MenOX=GGgU#PI=tV5@sB~I*z
zlv!@LalHWeGd~hpO%<KorWf08IU4l64A&?^T1OPuef>q2;kFT9ngTYE%k@z&Bry_o
zO@~t-{XqTk6vb|kqY&Q9Cci5MrHG>Ag{CbCaA|HCt5QwH;Es}f)q4ua)DSj252<ZS
zY0;xno#(8zA;=nlr%`kI^CiRcjA-W6p<Id#&|F7h0&-3p{4o@>F=QRi3DeDh$4|aj
z_cjEL7}SPA;0$pDue6>h?<YrHra(RTV{qQ0b%rX9q51OBckMih$tWNlzK~=Zox~I4
zx{%}97<DvR`qGE(#*Z9m=VQa{++{?+S^~*9w@lQnXjGs!`l<>hfBT_l&*Tp`<|^o!
zZrVDVY=XKA%9neroD*kZg|Tp@2XDJ#Gpfi_iw!?CXT<TV78|C#``|i|dygh<_X1I5
zwc3n|ctq^9+BP=Jk1Aq&qz-XmO&6-xikFf&%UO#HcqeE26ui-BOh=~)>Epvr*$f0_
z%|qlRr`2~!_l7lXFm|I7PJ<qvl?BH`&H^Y9Z9_%rX!@E^G-g?b%Rg<$tosYy*LJGQ
z6Zoq;W0uFnK0%mKnPO5CXVD`SWn~6T5-g_le7&{ou9ikIpC4z%vo6v2Xx!<BOXAui
zHV+OVrs{*Y8FhvQTK!~JY3^YcMI)tSD2ol2h!m!2GHecP?(;fj1u1UsIX{Vv%6z{H
zb_CkL-3<tbxeYogiJR{S(W^=4b`ZNTP>4-&k0LX1c0#aeGi$u{VZY&spXiz}Oq92>
zW$yPrl0saqei}LWrmAC6SLK0J8G3RjtLtN%J0_mD(BV`Yr{=wM8G3x9#U%z!7{=So
zRqs3GWVw<ty=Q6#e4Pi?tfzL@Kjjs*ofb0>_k_@>u^bgc<P+`T78mvTImgjHYyl-w
zK&9@QjPuOU1ENC<*WOyb^eOsyc!G8)(Y{@jG2oizA*+Wf-fAfqI4H!6h*XdJEUEWX
zVN}dgyLhhM??4qB+!psf&~ydH6(*6H<E;3Oo7I&fw*Bi-(2w&%lkge{G*`!M0*<7Q
zYUI;438A>x*1VH^m;H;N`0_?QdW@M0H_*|y->9F4Ydtt$57pGJR{Ds)=_wXJqngW_
zqZDOqP=yzDQe69{FS{E|Z14`Wr<KHf#*!f0bC4>IzO5s~Mh@|g8<to5|KN5|%caGZ
z9R@kQWO8XTFo?tN0EbJs&#f|@_tdEs<D&K7M+8(aCz<-TDIQzd3)5xW=>cvt{UM#c
z*Aov?5;Cg@d|dkjUN&@k{agB?umYdqYj|V~ojCG9m>4gi0e<n-^JCv!Z5<18o`O%1
z(fw<gz`Ya%I~CrA-hoCBHI*Np+V~zs46<PRV>AWQnia_5U3&a#<iB$cE%XO=X$gp^
zs2@U|;evZh!aVA!?~bU_&*2y2H%*TU>N8GxKn2rT7XNGlHKsH;XOvxl)BvA!-jC-f
zny1#F&k6@%=Wv*l^b1l*x?Y{Hqh@M|bJCs!=gOYuxvM^1*f4HZ@ksaPW)Lm8r|G2R
zKajVP#k+Y6aIqOxxr=jDE~C`FKqHnJE$FJ2137O3+r04)Myxycp=4SPD&@!<{&aEE
z2^X}LDwb?;KKIPKozW_vTTclgO~1vgwn}%0t+d<jx_q%^o2M>p+4q>6G@Ue3w3Sow
z4S}9n50bB73*}?t7(z1P-)=;`1<sVam0_^ht)X50Nz#+y+aUIockt3^I>%P}^SmAy
zo$z=HJ^_(HnB%TkLX3TDC=&EW5CfL!?ZtZUrqk~q$cqE{>CyfvyKNq8>)?=@*qg|q
zNsIZHPED=k+;NB9J~_Thu0*Q=?|)JL*bO<f#!H@$ZH}2V6!c5TyohT1l)W$t{jTMR
zt;B}U<d!w3g`WvmXBnR?vgZMQ+rswl@Z#=V%iw*XV5ZgC%IoWV4(HhpJS|B2*GRlR
zeY)bw963--9|q806g;4o&5S(?9%J^<o7~Hn&xM6`#?R+o`(Z8G4zTb6Q`X#CM9h<$
zit!Y@R>wTWs>FQ1|3IADJ_;pn)-esd)rGd6WqQT56BqymnOSQ%Y}sAOS|E^oJTQ7!
zI@PRIx4|9K>c=W7PlK(k?YLI+zc71s*;_Ppb%y-%s4EH$vELxpdygWyqg$!P%UkDv
z86Zztp=qt3e;QYfEg|)`!%nj3v6sq*NKfVedw3EZ*TFmTH63U^6e49&p=F;X4gdGf
zc^7W|<~hngpjl#Uv=GesU^r7Qwxw9oAV3<w9V8lg?Q>H3t>yC}*wgAVo%@evOwj4X
zm3D?oR%@wUf3A)~hNCyZrF1uBwmjrg_(m=KCD>qIMm534VQ|B9xF({)J6;hLS*eYE
zLgcoUI3cGRFnT3F#di}qcD%dZVTJV3O8}fhk=DeapR}@dhqN=lPu^Nxt|hKK6Op4E
z_shko$J6F|Jqb<9W3am4hVzeSp5#X;3bi81BI@uX;`q7rdAQ@wjP<e6k{d@V_NQN4
zGexy^c#dP9v-%}TKm1a2^Hs*jzvYB{SVbSdqSh{)?jEV85R>kRMjOtRo}Su^&mTFG
zNX=HTbeOt{z$L{zN)1<t=}y!#d-vE3j<&z~{%N{WCPoS=@zqP*R;kePf<4SnWUW*A
zWUSVAE&d|hW3xHl<U8bH5*fHt27l<<etMJXrkNCd!%<TW)~k2)*ppr<*Bttvzs@<v
z;WY(y!q-%k|KNWyH}u+OC^5Tu{RXUTO;z_7irz~uyqEy<(rE@Ov3chso;Vl%)u;{<
zvLA1vhDm0xy!1SWKA<@V+UYn+=MkgO=>z~wyP5Iu!fSEBK()dAHcY%^V{YAO;YoI*
zHx{0CnK_l@{q^1J66zpc@&nBN-?L%F^CfQa9IR3R`7*_7MpwoIH=IY&WbNxI01>I}
zp*|8mnYDNLyBWQ@Vr;9_P`+2Hu<E=SDh!YLS&ZHfy>KN_+_wBSb+BC6giGgxB6WTW
zG}x29xn58vfM<0l899lmt`8!<3yi*rE$>t=U<b^pM_E&7KEP|W^bd#!sSKEnAZYp~
zMkCpqKWjk7oo<#`IFzW)FGel_e*|zXq6*YbJ}E-cFnw&99-H=rP0fHxOYSf!O#uRS
zQz%)p@{=jVQOo!$Iugl|2I$^1-BV>vT(-F?ED;4sLLVaP$i+TW9pwU3X2Q?SM&o@U
zO0KXAH|MzO_GmUBTOL_50bQ9ErD$rC!hK}q!brtylC{^K-{`?E$YYXnA@Mjhjm}u%
z-o$rhEJ7OObJx%dpJ-jm=kzJ6lhwQTL(BTAGt#t7I?T~HPXu)Q>=y~SVlwpvUrj*M
zBtPfNz{GYq$_DmL@zZz>ipYo51OXLzU&HR}hT>=FwP7vv!?>wGSUvoOFOi+(?}*9B
z?S)dg@|0BJ>_02Y78Y!N6kaT1X4ZWIf8R+y4D{o}StAgk#Q8lk^5Wf?MvTvR?B@Bu
zZ%jx^e2vZn?KlC8@Uqej@ZEWLhj8%UE-KO8`M)qHe+Zi9Ks1m_n=+aMwVabuRNU>7
zZo27n&a2`jcL+*}Ic%Nt7)l|Y*Yt}V<>(KmTGknA<u=L1?afZ4V+%*)hDxzyoiwU`
zI8{wSJjo^$zn)bUd2(BXI&&FVwPh{2E3JD8L3fXO8lD$w>)S1z7h*hhB+|7_qZRmb
z`|B07gq-s9uNJMj^*VNVCELRWLar-Npq+^`G?RRRq?opg?Li1Bv7k!NsuJw4qu1XG
z;iGc1h{}bucD8>3h-Z>Qq{P!Jj(q6|p3zq7=4wet-ZUCSHiQOQ424*z@gvDnN~&3t
z1*3(%52#L{no>e;_Ew#Tx(X^P{qrqKx9wEc)0gW{wD!mBJT|>1L(IrF86Fnx#Y?R7
zmRr=S-!bGzFGjrb=3bkI@IJ|9wgkaruoxR<C!o~nP|7#yQ~hpr)4udsNzH}U?UxH|
z`B22L9d|vUy3IkHwZO%`QG9c*hgw*h-}cES=Au}aHct!eQ5jDorrmrYSlS`#c6cb7
z&uIad%3~i@D24}SD(bQIA==Ni;4ZMwEED}Vp>DVU`zAX5$yTDDplw=xMqde%P<?0e
z3w%)vl<P;8)~j;4k7^qB1mqJ2YMUK;_4@_yfxAVH&V{(BCFycf@p3j7wAH!3byf0E
zOVf2xailN$hvpkds}54n?>6D66n!80#(<R{@w?@<$!weIPsGhIU7LMC7hX{~XO?d@
zn@pi_{iEzv7II}xvhwM?-ei4#hFQH8(!y`$Id5knfY91N=S`p!(s65yYwKk>r7w~O
z9tl>@+QJ;yu9l)rjDECh%xF3gKpa&i2P6dQ0K|U_`f0=kclmPW1o0#^)v4YBr89%X
zS3|j#<gR%Lzuy5$t}_f31~HcpzaT+1&k`(@gPc_tSFAxpOV#)5n#2l9tznW0!-eIw
zw{^<vgwx$hC>$<#DGwdl9QlA60BEPI&84dgvHonO$?1;*e%@$e*YK&fhhxrRw7N5{
zh{-1lR1+!uDK+_AUhpI6;k)rtz`kv^n-UMwUO8nbiUuHx3DTgSus@Fwo|Lp_yH1L*
z%?P9)pChlpovIPZ7(~HEKvtCH?!erYteFL0t-FC4nlRN`)kONFF~=6ltYzV#IN1)s
z^|}F>syYtSj-&SBDn8qDV&u<2XTff*Nl51Yje#}~D7hr-+Q(;G7%_RQW1ePq_I!O{
z@lbrV79!jE@(p1s*O6pYlG2W|bc0)3@oSqltD~ysS`gqSY(zgv@zFNNi99)fSvjDL
zw=uCA76-LlT()Qbj*r1Dz0MT3V0Ni9dMLqJ;WdS|lZ0sJQ{B3NlQ&xVD4m-Kvs+^k
zB)@ICGr<skP41hzRq$}gK3Q31a;YIM!m$SM>k9ztq7LkihK4U}Urup)kuMOe#?U=j
zF6BG{H$PGBl;@)S##yQ<4ZMVxYD%N8D($iEy>+q+MmRZcIK?$SI^g%bcyl{gi@|PY
zQpTP4oo47{Xl{MB2w;BDmh-Rwv(*9@Iw|x?9cBI?u((<_Y5_<X{1DdD;5PCa9U=}k
zM_m8Cyjyqvq}nQCbCCOpdO4XqQswF=`lkT`Gbzq}`y-5~Ul10iFRGs}ufzWOHR(@D
zQybY>g2Xs~9<uIrDG_@(yhw#7(i+<p+AfZp<Wn>OT76r0$@x<H0U|9eqZFG|vP4eF
zb+5T}f-*C(o!G7{16sb6j<wOBqxvLk`}pm2M-N>kc(Zm64z49EuD-}AA$>00*p{E6
z`feiUTXC3jKfX&o$sfakGNHy4nIz64<{Hsxq>UqiD*DeCvjb|^f?|tl(U$P%jYWgo
z(ZUt`?TcNyu-{4<SC0Hmn=<OQqoJ5XIhZYqt2tsGDd<J<^Ce+fo7EBJA^JuS_5SOU
zf%aFz1mqm#j0`ScGKPf420ynWlb^llc%D6P`#(PV=jmrhSRq0zcUnqyb%&ArN_j%W
zRfuKqyjM9rT;YC2$S>fxima`4e0o>&-8nX8dY{0mQ?(cNk{_vg(?jT(m}$=H(GFqw
z1}BCW8b%24Fy}E<faG)jJJzdnt<X0w6x0@zUS@VlLFbI2PJ&vMmzV|T*`1~(1O~c<
zMmO~Y-{+*Mc(bgNqgm)&`l-mXSelzYP-j)vRGnYDzehH>(8SM$Vw=~*DQhkxIhXR=
zZl??+)OK!ofcdU#JjM+I*Th#{=kTZYX2`^Qarf@)6J&Cu-nYE%N}U`>L4cpBA8_<~
z3?R*`CU{+!T|gZ}kzhwSU}6l3Em}ax68^)wnz@Opx!s~u%t%q*jO@r#g$Sp;pBmO4
z4Rjgn1FOtj;({gq)lAW9Zw|OKe!oNkv#u?aH$Vb^qIY&y1mBrJx>)CAg-}It#_y*d
z#5uj;Xv)V_WAfP-_l1KGkYAxfvcRPXfU8c}H-YD&!}J;di3sHw9}~XJgb-=iJVEBk
zY{;hsKfw1l;pZr%aF}f`5oL?V3DZu59rq(MG1=<$XtZB|G_`AP)$!^^FTif&S@@sk
z3oQQENquTwx(`At@vjz3>`-J9mye<t$N7Agu4k08lF^kC_H*@aO65w47PeB%r0{O-
zyB|2T2B<z^&1%}DCrKIz7(R@|Z06c9r85b$!m~EJZh4w;5*3Jl#mvh$!ayvt;d>n-
zqm1!<VpNki+g(r@+zY+dSAdDlPa4+?<Gd?9*WnIT%PinxfO~Ax{>X|j-e&qos`gR~
z0qf1PWTqgg0v5-lHEAM&qTUDY@*J5*u0EN^#z@_d;axx#m|$Uk$q=6A`c_#%^IA$C
z$Z3`Ei7mM@&h!%I`zgH%ea>SOy)NUBx_*r0tA<e?I~WYW__dtn`<=T9d9R5D6TBmo
zZDG0jboPP@X43h1;RHM$o3|uk`+Evo^JoViDoZ^8Wf$#@s%N*@KczCF7Vg3wPz*XT
zKvws_rJ;w56sf95gdd85;{V~bry{Oy^7CQD^?b?1KFMiVbjdL*%=j2cm9fXf?>&=X
z&_tRT{uqRmYxTF}_G2<!vw=QBgk#ohXXAu4q+7H?yx{0q!_`E0^Edz9Li(+mtMKh}
z9wazq-*{vMA4=<gFAq(&rkt)!5^a)1$^_8{OI^tYFwV+z@akU-1`M=^p~5JZFW2um
zY00ADeSM$7fI~(rC~p8%O3S1D%NKh&js`d2`5pDh+OU0@eHMWb)@KwnE8E4iBei41
z6BRe<xlTU@Z3`)~XUw3p4pDy)tJe1XW9SB65_M?Y)Yyb};12Hsn-Q!f4@FE<EY-TL
z*G$htPwIMK6YHnt823oitSg2Xg6}gP1xXNU**)xZ2DuLw3H*4v{#*|SoQ(A(w%y+T
zdLNyFa>%$O<RfwViqGSXOEZ#OxjRtFtiT52<eG~nnxK!KV4xKXZ7)}L4fBVkI3cJo
zbYcM)c-0|#`-#XHAmyIoPhp@8Z`^~%@V)TXL0)F^DV#^;ROQ1XTwbp#Evd3J{<IDz
zL9>0$TfGk5uL+OH{yE9z{-A3#bS}fm3CHhEYY=B~QYNn9QAwZ~KbvT}7EN3r&NB-$
zbQzm+aKGAN?+`v9q+B%52gFF_OKtl+)&foNqWydb7*-f(x*aHC|G&fEbO!V2Y$*`x
zm#Zm<ep^rENG>5M^th{H>;R;ufvnw$Y(7TXhJo?z**glA=lQ_Fv{Cx(g2wCNAgpj<
zc%U-HVnZCBd%pLJ?2V!ExO^z}qOppZFJO{kyvuhyzeFz8mGVhtIFa5YyX$-k>m-ZY
zr;;gzZX46(E%gac`6o(a&O$wzB54`(S0<ZgJ1^&rDKr0TM3I2^@2L9oK{#vjq}{B)
zPNO=~DEGi7@8EV!`$}Qe;mbANJ?c4c69RXeIon*5e1mo}9R-0?0B++;fWl&cCDY!u
z=R*9b{6C+ii)^Y#&Pv?)nlLrcyK)lR71VIwDLD!jKX0&l)`QQK2K*%abdw`c$EYMU
zn$o*oq*ZoIiIRC2k#;tVgqIA<+9G_na7w1x8v~)b_H2y0Ikbf#{PJ--ypVSDBX0DP
zJtFgvnW9X2`-1z!0_FC=%$;3P{x*1eaFmGpV!IxV)Ix-uLRwi-EZ$pq7FjPz$AoQB
z9NhWrC6FjLEOw`wu^@apz2#>t)!Tw-qV!9!U}la&;&wV>`$!TjVZ(3zQm=a?{Y^<o
z7Z!*Vt4Kr$!gGl1)=&W8xAoKeA|3VAlSXHSm?XxpZOV0i?S1^~xk`icvjoy?35
z?5Qd|rJ1WcHw`gCMD(|9%p{+&OLIZ`!xhflyT8YM*QUFmD(fQkrbVbVcRra~>0o#c
zeF98gqoi8DXY%DnqJvKy6@sDMbKyhbOv~#mDk|v;bjF3@D4Tz1&H%umAYDhb6Sh)d
zE7$iC$JrhYj@Tl~Uv*lgH>)NC**tyc9?<B%a+i?2od3`H%h(cW-|+*{P%7r3B-ofR
zTixJYXBhE!gwJ61y(RK$0^Hx`$Vqz9+bE%^7r`(baGMy#n;sj*1qH*&co^_KAicxG
zi4OZPpcO+s4BU_AGGqQC&I%c5`DAuZS!MA&^~iE3=J2Pfjr7)<Dj{XNK^P&HVOa)W
z4k-Gd<G5vHwxkvtklemEEx&r?$rM934eg16vrfvaCe3Q^7^lt_RZc6NFvp(KZb&m^
z2DJ8PpPk&*ayB5oVGUtZ2ab+$ZxORC9yyQ3r0?m!S*%>Qxqs@X+SCi$#;%7#_qm}T
zCX+*t<L;2$vIpDw*jEKkrvb56!r?2>ML&CgLoPG_{WNjTKaKLLKacl3WlMLN?%{JJ
z@O8==Ccd<`4P3t}Ja8YkjYIt@$R02zUsHT1l}Z*d-Ac4A+0$k~<7ZQZPe7SJ{fWZC
z-+ihVDza*A>)?5@1k_v{8vq<;YQ3P$7ZF!};R=CRY!|)%`~E>bd4&@WIb~kdg$Fxe
z9u;}}ce`udalqbjoF$lFElAUD@lEXbEawXY(Ii=KJrT04IasUPGnlaPRtT|^>P2;Y
z>!Cf1LOdOy$)G>US_BjJ({}4q<toHH9sy~%=+UkVKa1GTc=Jd&ts9AH;m+4!t#=^O
z(mq|W-Dpwl`;PB-Aimf?FW@uare^1hjG^{zF?lE-YZ#b^FYnt<bsFj^$W{)XV&g5H
z<Koa~@%*d4<6G+Q$C1-2lO1V&A0wrrUwan3+2g+*W^668b7t$w(f={_4&apqOS^Dv
z+qRvZiEWz`+qN;WZF`bQCYspJ#I`Z9{qH&F-0yz(e&@OWdEUJ%wYsZ&_3G8T(x|T9
ztDJlUV;;>JW;2KVxjzm?f)e_4wr4!BgB+PEx&Lz8r-0g)T~k^ZyKHk+X}ic!Kdd=2
zQ!a<?^T}`f(~Ush`b6vQ6FlW;N$%fRX#!aP`+>!3UXErY%!<a=s;+i$%nBr|EG&Nw
zFr8goNqD&a%Tkksot=~CAJ&=wfqCY+j;<<x8=C)-<}s^}!XVy8sj9B-ASH$AC?d?h
ziWklVNFyuPHBQ?8QvO96A5lE6NpenvYE!C~y=<+9$Jv>N4b+bK5F1rTf*i!#;)K>4
z7sGUmi3lwPANmvsDLYl-nrv@LFKJ~40*#n;S;{g<ADbEf1E36YEHTK+SOa$sG$O@R
zqEHCMf#4p;9CA!KO*?Xx=6B8D2^~wi8HqOhA;$53lj&5UP;F+p_9}~_tmQD@Nijb>
z9BgtBCtw_gifvb7N=`K&YK#{pE)AXqj0OiK?nwwalQcgpf7UP`^0u^GAnc-7oH3&)
zM+mOOGDu|_a<!n2L25?04{yX+iWV9?{HJq|?Fj9$kt~u6i=njOT`VWy)F_K`oKMOL
z_r7;mp_sUHh;X((92yh}Us1-qA|H9CpX^uoPdGN%E6^+<4JbocJS_+vB7}RMWoKh3
z%F+qPXi*TjB}7~h5uG9kupk;(41lh5f6A297bPrrEE<uBXnMMGC&GGh9!1|kjFb6r
zn0iH>;L=$WO(8CjJgQ5`!h{<stAgn#kb;G@MQChm0uVS990DeI7%my*uZC2XS85<E
zy5cUSVxfg#ARrO4U}l-@L`w;IJc>z1PLAX^pn;(1VxSP6;<Sdu6C&?IO$8w<Bo<KV
zg?v3VBWyR-64OCnwn>AD1EGF3f?TA7_C^2(<e^8T!_mU}&Z!OYuJDn9c)9a@y|cDb
zF?qXjAE*y3wceYrUoT^b**<(-IgEWH_$%!ds)M0?ejR!5az6|c<101~iwn?dP1#3Z
zm;5;b$D(|Xc<-qLycMwEhMi+9nDV`B(lW*h(kO^K{f>ss*2A*BdH-ct?1I8eZRhZG
z4kJO7Qg&3Teh`mj6~S^-z`@RW-$8&y;i$BZ6>>_H*wd(Jf(+Nhj(OW#pi4&6RwTxq
z48WrzOo!=^G+>;NRF*s=onR*UQ_&I3tmD(b*8E1+yy~nWnwno!^}}Uvw*v>e-@kWC
zC|PIyxp##ws>#u<j^*mox^DvQfXdKOl;`cafN!l-PZWo)C5fe_fMCGG3kfuif$@m2
z&a^InsZN%tqBX0dUT@F~o2bsTX(a6!a5;nt83jp6Dvs6P=*u@}$9vDmAU{>Tga)bO
z7Cly1XH?R0W+#DrX+QR%>COT<ngpxs)YsVlcIvI9w&7)BgZD|jm()kx%vu*Us?u&a
z>$)neyn#S9zCTWD;@_<1%TG!fcs_IgXohaB+mc+{zvj$`XMouc%R4n}=KpKrD&W3E
zn(9xP+UVGhwo?Q<7a&h7<}xlk8PVU<MMe_etqSquOLreDJ=eD#bphOTk3TMp;{^}%
z2(ouj@08AVcCmrbV;~ah2pC2P5<Nb}*-qURI91Q?e5b@<asuFOjpI+7>i){MKbR{h
zw-|>POkdfE+4VdH9o_)6zp2vI8Q$64>wEJNUyB=^JyC6hPDRX96m5fEgibB0y_F_>
zt(N(6+j~96ZXtd~`85Y0Y54X^kHB-lH8hc!m?2-lY~J&wXck4NcV6^jk~a#`ix-0#
z&aHS;dc(<z(7ZXup_f^xW&=7PPI~bV8Jwj;Oq?Le9XVS;K_ePL+tB6D(Br2_Kuft~
zY~$!c-c+r|IrK~A+3@Z3sz=d%ax@HE#xX2YZMhs<oE_2FY^IG{zZfxJ(<*)>9E1Pt
zm!Uc9SwfVi;G9yVADQmYCc6;UA$3;42OG0`&=RKSd|SPfnJZfk@sW7d_>}qh{+i`d
z&wZh{UKpAa{#7au<35h^uHwYjMw!}f#su&E8uAJn8~=?)k-Z`{ZoeEAUvq?QAF7(+
zwfw!?uDd3yG}cEfEqt7Lb63sNHEywiTyk&nS8DNf)W+0|=Sp6g2BWuQ^@PR~v=eB{
zG-g9v8eha~twskof&5gI%i`3f=PRP)SE@mpHRu~PHCmhrrXgIc%9Jz6L)=<c@<A+~
zER!)+b5guvjrWq3ADr4rRwTNS^Fu@q;JILVQ^^P}2sz@Q>~!Y*kzN>oKqjw*zlFz;
zUG0EPz-9(6LQQ;eY#atIMx~hMNDfK)NNGali;~0=80;BI!ov%DQCkVuj<bYFPTGao
z>zc_)iI^bCahQ6H<Vlp^{_r@3p2cxK{YiZxo~7*~i6n3Fjca~(lS8t&j*L)u7L1)T
zZ|v&)R8MC9^tv2-PjP;R`XZWNiKYKDK9;}Gmi*~hlh99uNi1I}dWPCuX{n4_6P8vh
z;%It8L~8n$y@55#IZ44VIPre}+OrEilwezD#S;$gcw`St;f2H&PtlKqdzQ%<u#>${
zPAu>|LBU#*fBlqA7-?7Kq?N={OFMw~bFAX7f@e2op5B73qmLw>kNsk#kfuRR4i<x9
za>i1qq!M!5idZRR_$SO)$1TD9&lBj*Klr>vvb=plwnvUhQ9ll$XELY5yUD)Ua6rjq
zk=YE0;n%}DaxUy!FNU~1WW{mLw=4em9<Mh|CbNK~9&Z<=fY22~cO76HFu9y>1cp*}
z+&YlFw485OoHK77X*tLSj`Sr{=k44r&<Pt%N4&%HreC7(N96Dq{dU7!kb^ijq^|NS
zPw7d=?3|Mwda&pt57R3{g#z7d>7SaOii7&@j*Wv+!oaPz456u!F|}dUZs*`y<tMRa
z;u3SDaX%u{iQeLtcxaOKc851B-{<k`WBG;K23YrE_f`vt@XUKQCt58TylG}DW3d^l
za*WSJeHlnjtJ`CWsdS$JeTi{2KcL=;;5$-GNSKvS!HJOEJiLieE?3mx2aj1<$wc%q
zB-T&AHGBgw(9P|IW+sGQ`rMtpl&m1)O7CgyE92W`+t3b+!`DiD4t$d@W;K?&r3jk+
zR;Y$zOh=M8&s8Gst)Nq58Ht6v5Gb$CV8)C|Z*#MglE)pFBxqK1LdBWqSK+N&>0#eE
z8sqvI&x>iXxc)<(HNC7HMC(Vn^2E-)Q4sODtzygBOm5L>{P@|ZB|-GKT5Oj9-}Bwa
z)>>V&z&8XasAus(*Ty$rYX%>g%h<4m4BkSRjhdGyxf!VK^{KkA7zcxtZ+A+XyKI05
zwe9Uq3gVRa$(_LhLy`|i6+OZb5}fA*Dq)%EFsig4iceHqyS#6>TL-_NiMEdFo<Rlo
zCEqfR-clZ)ahacZy0_Ci_P;&{e!V6o-qg#*+N<ioxk2qdG%>h_?cQm5bNI;pd}73F
z)D4Cs8~OF1H^>{2eTn40DSkPEbV+j;*YlXYv*bw)pS!sNwI%kuW7lDn`LdTi|IpV3
zX$jnU`rz?w+<5s49Z-&wUfj4}IJ!lCHM{kO)Hx7<v8Oz)Zq2Cax9->OhVb3HX$g{o
z5<P+KoY*l{=dh~$TmCTvHGY>$(MdJDw>0-*NKutec%~b|+UL{J=CupUpMr6w)(pz_
zhAVdW1(f>2Il7qm^DiO>AZP|Rf}{!t!X+J`avieQ!L5KD;wMQFNq<P*uLu3?J)<Xp
z%K%2IkX>K4(&1J#kP1P(nDA)>{R0T9*}%Q*jMF6SE&Cf#=8Kn*H#np4PuV8~fPZRB
zU}rD?_Nxt6*+G3q`~s@0-t8FyQ%nhxvNG;8b|;7UpZo2y-L0pV?4rI$G@%%(!Icvd
zwz)bfvY*wvRWW61gN!uFsU9781&AOo<4(#H$6HL`-MY}^?GDYzn}jG5UuHvRS>+)v
z0}#dJsKs`_4-)pClXMqXTWn@{?GTOk>!byEc6-&srV(Fwghk|rcLv7Xup1GdR$Ru#
zTiI@}1pT=3XW}-Pvgm)Q0Ku5x6|QxYd-J-vKJekALPBnjSEer0CfnX?q_pqJuO`5F
z!YOwTx!$lcj#q)8`t~~4Z$<dpSRwe8XwgOZU5Ua3B0#oKTh#GDNzEo#^wmM(A%1h)
z!1vE8tkBb(P(TvJ)uyF6FX*xFI!{TXf>@qNRO||Lqn+~6Mn=6(*>^WKztycTULGQ4
zFL5>C)T%6=ZhhRLOmA?qcIBnTXU3l1>^K;9)r(`L5zKjZ-D1^ozu;k2Eim4r;b6~*
z`J62%PqHz@sp-WO8Pq>@`1N+BC41TU8&$q31u}#W>pZ`_4`b`<YF!c&x}~vi>%C=b
zEOX)8_P2;kJYxkccBQI(yci#Ds+9E=cfCZV$`NXx&mP!v;Oy^dLyDG;d+o_}RE+nB
zsX(3$4%!U%!+vK{Ha466E=Hsra@>SeIJu$7`}^x)?m3Of6-2PefRt~oiNC+aB=g3~
z2`hhe!HRwAeIX$?8RQ86kyJT5uR`LY4PL!5eH|Qub_c=lXMvAN#!l+YPD|yo=R8P$
zZlCd!CCviAPdz1}7R>1lxNlc5kUA~DAR%paL9;o(-cHr#*LM4#-89vAI50C0<h)n4
zeUNh%s4urHX|4o+`kDCo&I#yl3K&0YxOLWlfPvIzH+DZ~>1W(yYSq|ct7!!mB;=x`
za6){*J09c+{+j_A4+rOe+cx+A8jx{w{I9KZBy21^Z2#$itTf#ro}dMBXzQ|k`n3q~
zUMK|%12&*A_tWjP+1-#r*r0W?kcZ@3NW067|7#NYBva+WcgG`c?ws6AVp^H_I|3uu
z%~BLSsm-v2s_0C;?@XAk+sWgk?c0Q4tphC(i2)LtBs>)h>K}y9URMdoT5#-v`QAum
z3G}HM2!jhM`XJkad8*+#L0cvJU}Q((QA{W|lBwOmg`4ef`|;_5gW@|b1NV@>yHnu^
zV5{c0jbq;IcJ5f8>68z@HHgiKkAP9)W>ZH_izARIJ15RQ%(rWS5sC=!RybNg@<@t%
z#YfBOfl9VHwio#(Hp)8f9RN?B?{xH|EmZ5-lS(L6xlkLUl^UoWLgA4li>um~TGt%A
zf$UDA@S@?%P)p{E&1~;f$1A;5r-NAl<(4JOBg<rp^W;)Vg7bU=Ap$`EM%%Ad$>SbT
z_a3YTPiaP1L`awbbD}ORVNl-YL1e?^!^zW6qT#jINu(Jw-j<2v%_M&Umppck687IK
z1rw0j=SliNMW(ViA-*O?qJZ{bOI8zKAJr=f7|5Mq^CEDHqkAX6pm-T@QCOEo(9UzF
zW|i1+qGt6166HlY$qqE(7s++$eKf$X0@>e~MAJev546%Np>=77CPyS94tsX_b?H@e
z9fLBvvdHKXyRv6kN!?Nbz^XZ(jgk6@9JwO0*$J_8BdnP~#$_uxAMuEI($8e_DP^Ti
z`WzG8V?ESr2@O`XRy0#gmreq8(nb!MeciZ*z0oK%aSfvc=2jj`QGoBm%Ff~Wr+>Q}
z_gBBC`)kMB!#zRb7Tsr70(*mwfYwy%i^GL8kGjpSkBxDMO<(LcBcJ#2wTOU?t@nqg
zojlCpq^k?!x9y9Mo$G_&m(Se9$lP_CmmW6@?d|zQ0sh-9ZP+&tNBM$<!Ixh<Js%%E
zbRo?&gm~ydT>Ym{&gSO2pI?xfKN(K8KCD(j3=B>D**|bxK|f9)eP1`0m<@dCAv<!h
zQHH^itb}5!0)-Trx1;O2K5yc;euC}RfZ)IfI{yG6{tf@M_8PDy04%fr)5ytH&*NhY
zft~J~#K-uCBJxE91$T#uZTfT_>PwSh`{Mb>@R6D2Z9lK4)soU0=F8>z{rQNGJKC{y
z0X3*4I5@(&%zKw_pH#tv{qtg8j_;*`Y}Su0bbdkD=Ft@S7JZY`rA4k4`(}E-KB@X9
zVfT%5nZl+>!|rAZwYTJ?1O<^M;r)X3@0GD7LipOFjM`Q%cO4YYj<6+{VBd$J>ij_G
z*Du$=JPnd`zH~IV86nR@?!7Jt6A&>5Dq3n^dHoLbfm&t1OAMcmz*}bV7op?P!w=Vq
z7Lnt(sIfC&=2e0J_5FKkRJv;KW(&bCT(aEgpnJIkh5mRKqEL*Zs+>=pnYK+7c5+Hr
z$TyG8!;X1BiQUb*`D~RXUJV|sElSTnQ&%fz@$ud3?{r`7b-V7WxRtry&D&bmpqPg1
zE{Ou#Qit34KSXxtcjr)SK6gGI1ScEMZjGtM#IKfM=UbAyH$OBNxIkq2LE*Kx6Q_eH
z6=5r29CL*hQs%LGaam{$ae~}lA_e_K4nz=rW@{AAA1>qb`re!6cP{%gqNGa4qH(3%
zp@JtnJWPJ;$sM|;;i?^aa=HxJvOQwO^f-bU6aGr;L4dT9=qZ9}B?)94RSc3L&A{q0
z48*2W3l<I_%!r0mfJ{y`WMd3;$8w}Qskuuw0*!&nD1RB15#-T>4#qUiqvNA@6V?W)
zU3Sg^6}E!80kh<UP<;<cf*OFF*4<XaD=10Cnw2sQvVxM6p*=}baqm;Zla?k&oCTbA
zrq6$F@m_F@5~=F@4D&PP9jH`E7h891?C-jwN>C<C!3U>GXN^(NWr}Hm)XFibRhXjn
zyBXHAMXF|sQ6?*43DGA5Ql*vHV7)+pvcalmLQp27FoSsXsbLGp&ZJjICxmxW2I(jJ
z4Eo7GXm2f1#AbF{hZAQB_qUyuqup8G2{6I9CtuB(Kh04IHyJ>xG-VI`?ECnw1-%Pq
z`G{}{v=s`p0_7M!F}Q+>fjh1Pm;KSR;v_Q`FncWcJ8%W8ALAPw41B=~wWYPB^olax
z`7zATkF>Jz%oOd?nVLM%88C}i2wGX06l|eJ#p!v4Walg~C(t{rZ>j|<a7-z|ra`Ku
zG<(vmN>QA79GrP2G1NOEw2Pjz^PWj;d7<#7T6@x}d(vZ`DnN$>c#2tgiYi0NH~(8A
zg_+ijTCTJ(hpKni6Bp^Z_lAJ}Vpw*oH$JUAt}>OnbS9a|<(zuWRh|xArWlr=Tx&s2
zo`&`>PZ+cqYEYq+se~tgj5}Rrekv{PrGm$Q0_3UW)r(`OV~1QIB&xGG)MIZ7IbNpO
z3)Cm)Ba;5X8_EB(fE;+gjS@|oD0}Ni9;4RCw$f+1M#i<xDeGnmiB#{+<=%;bk6uj4
zPrh7iZY?dXt%Ao0%s=W-Bus{*%K+M&K8po2R<r236+~wyw9>KzEmje}05di}YKVTu
zGXV43Le$W2v5<QTyc$=~R`kA<z$lQVB>+-Uq<Jhc{e_M1r{<qNyx}ahLt*`4HGY@M
zxm88FUKK2ez2EgyZ@5@0Jslu;GkO*EfnY<xmPn!yL_I^Ya3(|spA!jHNkhUEXc*)V
zHvyM{B}AUpxs8g0IsFyd_(xBrrBWo673c&OU;%{=kyH=F9W0Gj*a{SzI+p(}j&4i+
z+hNHH_REaIGi#G`HQ?8R$@jdMeaKJbV41@Af7d(VWckl}C%~Cw;QE7{nZ1RpC2+o&
zmHR*Ko`mV>#}l?7`aRZV46lQ2N|i`S3!#uW?G6d$LP&2#@wJW?>65r4_^9q5X_lCG
zWbq!w87$s7J~??xA(n1bkjZKl!7)-c2dLT!j$r*#GS<E7OR+^w!zf_{FjrPE&XQ%>
zp<>Gqa*QWc3fRDFJ2$0Ars2tBoT)^wM9Onkj2br*Cu>JBLXoj!t|B9qp{$PUG2~5?
z$+mTpHNlGQHa6c#jpQ{EugFDq=GZi-v+Fc0SHV_Q)b@!K4iZrwg%v?k@-(T}Hb=oL
zvl8oI?UqbR!Y3tVbf%#t*=m$9m5jb|6{n28!L_9FU|R`T+wRC%3s`eG&@vJXbd<I_
zn)<}c%F=}$hLqMa=vf(N3^J(d10p*mf7Ro#&Jz5fYLqnEiQ_&Di&j=C)&8DnD;`_=
zr@%`(1rN7LSgP`%yVg{CRdZEJ?t3CO>}hoa4CdE`QX{LC3OuY)3_DEhO2(_^BJtv<
zsB{gaw&&@e6;N|_+H<=CYUu>OB<$Ttv8=}J6^QZ|DQ!5%V^{S?UGd>5qv~{o8<Lj{
zm}=Fs;)gV78FTF@Wf502f2lnX{4~{+wa`s1<=510Dyr6?Tc|)Z4bx-HC-vfh;<CIp
zyT!D&?eNKb=&PZM%JEzAzk8`Eeg78bx3aCwZZvK!ZhNm;z0l~1hCpieLr<qPNm9k;
zcBmF6n_G2zD4ySLQ>$^OZW3Qp(bCRe#dJJuA;6e=yoyWOMX~prOsTr4u1+n4%_d4m
zN`v4%9pdu}_E)~ww|wOI?k(MMo3pq4Jim|BTGg+gPlx^Q?ZbnwErL&upWR*jPXXQC
zpW`L5KChSQUoQ}E3|aE<ZC@v*3WP#-Mh)rELw<2fjToNgQ-`pzj_`)q^ejQm875Fc
z^=}r4gj|o3EV+c_JVN2(?z7>{NA~{Y#wifSMYtI-T*uV|@8XgQ>2<VE7~3=yfvOb1
zE%EK&HYXK<7qyvIw^`OSf*BRSE*93G>F|BJx_0{ZMC>4dlzaOeE%;$Ol-Gi|y?Q?_
zhEb=VuFpkQBaQcqDlIb1Zwcj37Qj_LC9>CVX&Yv5nlq6K>QNuvXlbC(MueXm=ix6O
zT4)ojfN;@H)%P7%bO|C4XWc_SP#-<~JM7MUfxJ9#NQF&_fLrW5A8V^a5lW#jAwpSX
z@5ZAU{L?B4GSqL~eu>^(;UK8|FM|RlM^J7KC~i?Hd^o^+>X+Mse#Msy5zfLv@CkuK
z6mW~$zg76b>SX~G`M;`Q`@3p$U>)MD;gv?YEta9p@ibnRgD+Auqni8cXF1B!d%%W~
z;Q8mlw#_kK=V{h2d3k!@l~kpbhNiZ~jq-Baua67&Gq=+Q-Wvwl)syTs8iX&>V*`C%
z`4|t$2=5fm{oB@{5fq}}u({>Q4?f`rtZm}!z?Hv_(q!bk2nE@tTnV4wuvqqZI`k*N
zR80`g8bJ1XV7sfyUJUS41MUdQt9y`o*^18<@2khExe+_eqbt!%#2g~L4FZB7JKr7X
zFn$3ShSOK_HOG!cn9FkhFRgfZ;bUHIL+|zsnv-3^y8I53<qM5^K4pcC$G;kzVV%$5
zTd(J)wZ*s@YI@P$ux6%7uYZYhwc>Z#F&SLjp}*8l3>A75ZI1lG((iP}eE9xQ`Nr`h
z;PdeOefZ#OzTfR|-R}T@-`kz*2G5Cci#npqt<Ax45x*WS;spM0{ou{e^TZuqpC2C^
z4#)u;ehWkovA&*9P5gJhpR;}5p08J)2cEw7>1QB<qXrq7t9G9+Tiln#mx6DTyD7f!
za(Bj>G@9|!c;Oi@EcYjE+S9E8^P6XDM>v-_!&ir-oAUEFjb_F^DXYbd%Mrt`?G9gk
z9~aKX`)d08yFc%$C}UnT+67)OveS(d#;*R{$JhBg9{3WTp!7bSvZ^He1$;j3W~XDf
zuj0pi-kqNjuQqZBw13_Y5_fL|{M6K31;#(U_74w7czm`Mw;wSk$|;FpnFFMrE_kw&
zy+K%@+@}HC%iYsS6S`^8($=8i;|-ew1Y(R&1ej4eciLzeO;^#zwOA787ImmAr1QnA
zxE&7?)geEXo6>(4DMEyd)=G<rC(Tme2-&smlAqS;#xREBROT6;IT77Y)vw?qicl!g
zQjJs1!I>dSn8xLsUViw#UM_<C-pj?N1P@x+PpG91N~JhJceE*3(t%k^Uav}mbEKxK
zkQBa(r8SDgY(T@vOk=}XX)c2$Sqt-;|02G)Y1l|VZN`=;l9)k5p6JjGDm{@bM!_oS
zC(;#G3+=6x9oR?%S*9wVlt7UUaaf!IQP#gI56V`zO>oP@)<)2z5F}n#7=uURjc7I|
zW$I(ZAZ482u9Y~@<&BXbCWrRB;2wZ%jc#l04(l~RWkf+sB`u{Q4|YsZE>S<w;FCj&
zWJI)}P^b+2kz#lSSj;Q$r{*^aCC(IMM#bb46pX0kC{~{RAiAdldAEVT#)S&HLI@Ue
z4HqH-fES=-FMLxdm^rB61T}{Y=Q6(mQ&sY|h15VP{sXDeAd+ZhRv~U)mm^A_Uc5-l
z(RIsOK^8G80xLyE6)9CjMM^RHkMi)m|MW_Mu7$0)HWv<|HYp27pp4DL!;BnBflI2F
zrb}8TSYbYJAg}(LNrUN09V=OcyL(h9#R^3X#UKT&bd|Ia)F2xUc|MtJ1akI-fbH&c
zJS*h!Ty7bR**;q^n>((kwzGCH8*%E~iHA^JK0q_4cV71M7JZ+qok3LFNjs?Fv?0ng
zk1#xw{C8_8tV}1!AgqjYA4L0o0tA|bLWWS^2rRl34v!HSd>Y?g(Gd%+LEtVz89G%0
z3sCB>M4!$h0?PyvuMu41Se{cU?3gcT6ne^^P+E#Ge!Z}gdi1gc4EH{aX3&31T;Dnv
z#XnU5LQX<y|B$)&u~AGYvrQ;C0~rP$BV4pxzCEw-2ED*t2s2=qSSEo?FHLTJa3R15
zQq-vrP9ff+qr@d6l3B<JY7UmZ{(%6tKM9k%rl$epFS(;1(=u#~w&<9L9rONMj@?jo
zsSLmb94tC@jY!`BY;^*QQy-l|u0@AJS7s8EkQ3NkvDrxJ7b8rxG6k)$&`NX-QlryQ
z^<^?^+;Wy@b0WdatTK{8M$xW$=4G&b+4o>Zp{}2;2sfn*W-QePV0_QUr%of;7e9Df
zRi!lJm_mRqmT*hx8^=lXS5Bhpg&U~(hFnsf0s99h3F*0YFwbLCnxVdCNAx0H4Yy$y
z&JMESne=(rfE_ks`ewO^j@?l4KZ~%@3H3lmO3SGa22CS}C74i!Z;t~vV9aTRevY&b
zU<3h6uYe=m7lkg7z_LY;YhM1v2tv2Sdx%z1i72Au3*k)_x&(lN8ezk|niv{3HSYnP
zu&_7|NGWTM3QI=sRO>AGayPwf1W{D_q&n`VA)6n-Negdd{>uF~I(l+fJUs3IY%_PW
zqQj*3K$+P&e-etI(C5fF2(&}$FKD)N>`ZRK4ZubLQA!LWO=<*;4hww_O29yqcwbUa
zU=f@_{c>h0I5YD+>Gb!#2c5v0YBl_CDPSflQW?~oy(QiXs(izqHJX{Et^#QL{U=fh
zNEYP6TsbiiV}g(GaD@9ezrG$wR~iJ+-rhY3*0t;R8sx&e){mXJhaqWrZG4~Z1$viM
zmsUDlVJc6}ith#=ncD*0cWV(XFYmZ;KfX&@I)}^6bKd$6Y;IfM>BLrAs=tV40vl3r
z!=*cB(VuqxFq&6)bygW_1VSF57@%kO`aDXMFGAWCG>SdrWBeJ!=C=ngQvCxTI4*GE
zbr2Noa19fBxv@*%X&QFS`EPUc5BMAUs7XL#^j|EnP67r|7aP9{)drNf;8Wc~(o7kC
zF+xQ<G|T)k0({pj-QBw|u(z-DarNSFU{SvV*f+ri=oFM*-Z3SmGPb@tg@!)AW1>?`
zT-Ig$BVP!c4d#MHL8CTA_ELDIoSwT*GEtSck0{u2U|abs`_`Vd4iq+weuA8Tfo5w_
z9)mod6#DWN;`!#R`kHwTDl=e%4dUc$IRfj;Fs<mf54$n;P|0uTc+rYvF-$MA`C>Tl
zUDbEm!RU)Fcr&ePFATkw26TRD+qYW~UOkeXxKicHENFkf4!pfm9p@0_*Uh5T`Mbps
z?21BT2Nm3)Cm}G!E~@{c$q;{eAngvK@k=svy`uF?+P>`$IYuSMv|!0)4)eVi79;)Y
zm!veJnNNXnbAW4Du}BTO@K1F#Ch(1hq6V1^I8B}$D$@5tkw|Lfmo!o@3gk`*sEF~C
zm$ctMuho{c{^vN0jfLeuoCRiO;b8r*aTW&~8^?b<&eH3Rqi8|wywsd$CG0VYM59H6
z@nvzAO%QcPaCRi<*CJ^K_qqL?F_Bl)5pRBJsK6{G+ajk_X1G_PeW!s=C4=S+z>!Rk
zg61E1>qR2ZLT(~xY7kr~=CboFDwer!c2}z<RD3F5P`r&qE)tmL+S(d?o%|f@iLNFp
zq4R7g#uOE#leA$eQ{u<lgEXUa2)R<RmTWwn^}k#7IwcYCHX){$v~W6sU=0^M0iGXc
z4Xp__5Scv6XnDVV;b8B|^7?HNiKy|`_Y}GsOma{3YU`OILe1?2P~tW?XBrhPdyZoC
z^WOOzS3uQpV9~SKFo{J&i^(0_hqqujM&_3<#3mW>2__k;f|YZpe2U_$>s|H{4F$yM
zq7koAXN8A(nV-x1kc#K^i$<7_{jK28w?@Sw;A#CeLFv-^xl{es<p*xN9&MA7?s%rZ
zIuS%7Dr>OFJN#c77Ediry}P)ANoP^X+~oB8Zk+%lC&@as-dmNihrCySCRAL8luElH
zSe@Z{2{IfmeKqOaUDhT}fR%uPohq&zv8wJF<jBzc;&O;pgW4L75NlbpIfBpdJQwX_
zy1d={PtEe?DI$k2O>Rz0r}K*oJbC+?P;<9V)+W~9cyd=ghwyaDn@^CIt5xxJgSc{6
zOVDC+9BO892yLy=-81Go)#pQo%9@pPtg~04ezYjqnW(Tet;}<U&snIh)nCMe-%g79
zNKD3{-7Z$jLmC;3&zD7MWqjnuho5L3>D5A6AMMSXyXo)~mvh;K3B2zh=XZUKdkDT?
ztzAEEy}!0F3w}P92Yg(et!b)nt+oa&aivFh6KQ7tswro4!L?{WQXUr{jF6_QX2MT+
z-<w+s_;{N;Vs7ho+7=Y>yPbqGqYh{)v(6r8NaabvRmhCd*HF!DjZw*D|89qjjx`)q
zXZWk1!%fR0!s--La#p3ho>$H#lUGiX&SgmbYr(uO+ZCjYJ1~;PJwh8uGSa@pY#9BM
zD4@Cz)m|F)?E<ba<vcP<kz8zaWjb2>8Qd~}g!l-l(KYHDyZr-L=|)lzvl1M^qU<S)
zQF<v7x)U%fTqapUs?!FbNL$P!i;)w-6IfY<lI$qqU{e{=?Xk60iI3~u2!5wLb&Cc%
zsIZWaYx)9ai2L+$?M^A<%p&P=WFYA`qm6Y(rpy8%<4g#X5?hwGFr#Utxj!IfCFU<6
znl#BEbwB06dS=-pg_2ZQNfHsi&yBI1Lb43nNR~~L%!q+80rrBoF-JQ@uEs|Aq&?Rv
zeDu7diyvBH>~S-7{|Aw7NIwJ`1V=}UkThf08}eE-_q$HXMI7X4BlYvJ6QK5Li;<9M
zwS0SFj9CFa73fc9sL5yNTk(J8=}(?)$#0zZrV8Rt%54O4?zdyH2q6YN!GcM4O|SdX
zD&rT|N&BfAet8r?@*P+7>X|E-53vJjRaB(I(j2fm$kva_EbTnF?Lu@4tc{+?0^xd(
zS+o3IY?sJhn>upkArwn86c`3nxs6;IG9?%?$X$%-3&Z}Uwoq1Hq1``;RAW6v+GHS*
zwG?1V(`@a+!o^}BaH~v*>s@CV{3P}16bRsdoEZOAl{AE+3G-rL!nL|`>A6-NBXLl^
zy{Twsgu!VrIKeTHL4oMKfkJ3OBK6U~oF-#g%#lZ~rf}R&6=c}p`EyeUNbX&e%1pN5
zC+CGoehs?vgdf9GSMt)1nsg-ej*^{2n=4>h31&DoNck8{uA+hFl(gR#8|0QS=j>a6
zD=54`QA^80&PmVukdY!JicOQ?L>7n^=!#)u8%-c3202Pk2}AW!@<8Ikq#K|Ii3mmZ
zka&8`1a!S#LtEH@_t*Y<L^#Ypm$JDSo5Ct#*C*CZAU~cB#_V7y_I;#_XVhx+0aW>0
zz8~KYu+;o%2pmlESM>gk#W3<1>C-G1^^5=E`sC>;K<<I8P22f3pl+RkfS{G1Y&a<B
z8I|YRRsY2>Z?mzc5%Stua6g|BCZ!eUUzvrXGmfB2KFZ(P3WJOmSJGrN+;PY?{`g5U
z!a<E7Bj|nL&MBwpgOJCS8uxO%!gYcxYuF<FTT99=Ij=Cjq-d(Dv?N^kOtOwTT;BU9
z(_g}`0yr=Fkb<h}UmZ3XFOhtnamSEQ*RfCE{Me#zfnP9al02@sUS(TTTH(~0$hgz`
zYMXzD!|Ye)jQ<=Hx)^Vuh>(4^yc=W%$#@24{lh$7`5bdug^1^_&qh1rG1$tgjk)l#
zSl2!aTYbDC#*4A(${3!`SsY7O>4DDV2P9=}1E2>!w@JyG$Th%qd@|d6lxV>l_UEFc
zhu1;lY%!(5Rn6W^n88s=a|itL=#A&A)^v$r<D|{hyOZ4)`t)&Qe=G*<-`=@5<fwO4
z1fywyLFJl5gVgxi6YY+jR(HjafY+T@=KO%?=f^IWyVn$7OGYh13Cr)6i_>zJ&C@ZN
zn%34##*Qbrw*Cq39T9zJxRZ<=@L4{V4-2uP>>9Ob*Cr=)Mz>maI<F2O+bqlAnFR(m
zhKQZ_{s~@|Lv%PB5fj3+jv;r#mHaK;n@k%Xhar}5F~%NCSQVl=g^WdzGmN1M_xxlD
zfyMSqvCqD`?G6*vTP9$IBcMN_MH2ljk=@ClXNb-reiKv(a}~|zuOVkIe(-{j=!hJX
zX-}gvLe7xuz!h=U2M)0Ji7XcBa6gQn&jy$XvJo})a5%#?q5PVBJY%U%oU4E=OI)si
zv`^Tuta+*Bs(tqWslOjig&K_*Oog(F2NGC*=#NAYTu5p%c(#Vv_dWNM?jOXsDNPma
zg*;D#bH!M1yF4oJ6rM%%V6b_N_p#t_E|0ST&>(WdnDguv08J;QU665?N}N-v3WgU*
z>C|g;sHccOrJqCo`zAv(N-UEz6fBH06iQXSpd)p1A>hl6vi?Xtg38SA+#qjPIIbk;
zY>2!dD$LQN;In^;3QIIQj#b9F`PDD5QFmxjXHzUjkv}>=VZ?MDqp2-RA-bO=_f<rC
zc03vJp+|m2*ii=turaYh;~hDXkl_1M(SWXAg$Tnghf}|C8sg{OFHQ2{oGEZM^R8T>
zi^j6NEh~xIBA0iB_uwmdP2?(dC!oZi?kleZYK2I*tYv;VV#QQF;yW}x%~1s@pYoch
zp64lNA)g;Do=ll`Q=L06E1UAt`&i(KKkNQ-<OD7hCM5!r<wEob>2d>Hss+v>t+-pT
zAMsHYx)TK!YfpK}iB9rdqUN}4k|R*pIT$Yg>Rxg8&UPV+H#*FTh(%s;8sSY)ai5t!
zjXVCaK{&%r8_vi}0L3RMG)Rd0piFlGb2xnwX9#<4kx5FzbO95`vX1&j5U$&dwA||`
zDHXaCmvCm<i(3>AQuO7>NJYtQsyMzXnVJ`+nz<R8sA}pNhNQ|xfDGoySIN?2N)rCu
zB9R)x(CuajO2V#XJdhCKh>t+qQRs}^QFf{g%5gu(21IhoORD@^4&OOGitITUI2XwX
z&l1Y#eon-C<Ooj-Oh53uSMyyQM<LJ7P^nuV%GPi@11BzPKIb-}UD;)dG0<kpYoxz|
z=Ll<St5e~rBSzSUuc>RW=c5^=89+bv@XgrMN33v@NI6G+G7t>9d!xismPkq$!9V*~
z_*?87l^fzS{xj#X4meadn7&QV_ENr0EKW}QFX5T-b2dZhe%f-&@2W&9^fxwBoFy9j
znmIO7wJdGkfWU+;+wVU!(fvljSq;I#s3oJu(c@%xQbJDFM8hzWTZXN6x7NQezGC+s
zJ%{VwF2A<zWHj;1aZP9=3CH4&la{c4<?#e>Obua1+348mV04;uHwuXyBLyAgI7qNG
zPI7LavXWCqS}6*!?i?c6&0M>MbJP_ny(BAr<({IC%*Z03%g@Llh{DcDo6ziIrOmAK
zB?-^WN8d~rI%#JID<h9sM@&wntblAP6x-IU{qAl;<XmCVu!ZQ=)pvKG*VAr`F^J!M
zHX+s<(mxf2hY;b1Nr{8hPAA~$R3Ti%M4nwaDhoE&{)XN}0LzOc!-G~vwV25Qt(=(1
z@>Mw@vEHhHi2U9wF*iL&)t#2w8h{qJN3$aZw6J?fs2?cCAa@mylZgo}u6T-gI?@he
z&<^^OBzH|uvZQo(=C65#+|A<BgaU~J3(b-8m16&yrfY<1Je~3fK|3eGJsvEsKouw2
zjSmJlh3O+ro0L?svSVVxap5{yHikJv<^Hl+lE2Z-mk_0b#QNl_uPLoX!l~jSU*hqi
zLkWp7v3?x6GlPC_AAsk~M3o7s7>QBJ6#+Gww~;HXVG}7N7EcvkiVT4W%wwkcMG?c>
ztQ>}0=pBSN0V5nAJP30gD>4T2iaJI^{zvjKT`upptZuXSn%(_ji|Th(6!mmenT-n7
z7{@-56H~n@O@{>s&sz8H=Sz!yFYQSpckj!$i9g(*y|K&p_XYKO_`QamT){ojZXe{C
z<Jzy20mZC&;v-hWv(J^IAH3nRkb9F3179_QxVu;VrDeC?bbLDh960!wcMi4eqFmo4
z4_J-OzE&>yLv|Us?{asOE2P)^-opQJr9J8Jga5|yv?^msxU?9)Xu*46H95<R_pucq
zFtF`Kf2%)ACk%2=QuxS9p86DpL-9^<drkR7cFo)Ys?5TU+X8;1|K{TG9g|ee8C3v$
zK`&HMI3@b6*p%r8Uk^XjLpM2yne;`!UXM{=SemZy@q&O)!0TxFok)_dH{$XEZnKqg
z&!Dis<u>nhAU1@6i-~Z*!s*hG0`052ybG+t=?z@&dP9(p>poN6tZFBWqAcZ+N28jn
z{})+ttt&vpH%JCrT}j=&9!(f!vBY(ad1Z<g%u<X|kx7pNx}@ms%HB$ZCTd(}l5m*G
zmg=Smhc8)lVcY{Ms2!{_biv#b^5TXr`yGLkKjLQ}<<GxdU<v_DOj%ELZ-)toqG3Xj
zf$<C*a8sRM^wT%F|Ga<|Y$Q4P1Rj0lGTC-TYT8x8gqF)De;(G9(I<SK)|AO6d|uSp
zxAgjNZPe{OfIOQnsFWIVZa_ZE*;vzoF`h61kHxG0OGT@PbOVo=XZl+Cg|0IdOOJFC
z^)RQ*q<#PwGbnV#U2vJ=vB%9?c{UzpC#{^=ZYY)XxGxlAM21%Kal$&1WtrGVtm#Bs
zb*7N}77Y4QfP)T9nSts95`F`hn1Zr>lwP?})Zh$}N|=t62QVYFx(Bd=&$0wSHpK_9
zZ<`l|k}y#Tb3Kw2g%Zc7f{L^E9>s3F%Wq)+y2tlsYJZb|s{HFbUvRP5Rg*8^yX4*|
zK#*3ME=1}Wa;X0LY&>=gIP9KPDRq?0T6~UwlmcM(5?WdB32u|)R*op9_)uG~KiwY;
zU3MoIQ}{hU@Wsv~V9PLPU-Mjup5zOB+Qd~}V&nf{pMEdgAbxodx<nQ}A`W=|sP6WA
zzF1;Dihucde{KQxaz32sUQeBP-j%p6m}g%@It4o{DsOk}6HEh?ca($lKCs5KZnxaV
z2;<gwMhK_cTdGGlzMt30p7~&XEDzw8J416`6bup0w>I)!n8%)PA@90W>ttUDI=&D?
z#}jw`n<)=g_WwTRq2%mf>ShA;`%dF%YOZFc#mLIU!NSDGN(;v<?B;6e;7p_LVMd~A
zV(Dh<?O|qRYDCMdX60&YMk6XFO(IGnZ)ERgWJ}Ae>Sk<hX5vai%Pb0X7w-y82F&iS
zBY95}dJ;?EZYO7FGjm#ISu-yW2WL|k8esPS5VUfz7XwO>(1?9uV`1Z9;a~x7lwxIN
z<DzF_qh?{D2Fl4hnEwBXs5u)sI+~dReb*b=x|qQ+E2)WVF-f@D+8P_#+y8wwHA^cO
z65!{b&&WWcVdm@tyfq0s6DtQRCl4DJCnFmZ*Z+EUpuCwDiJX<Y8PMR5jfGjv%-G7v
zo|eSM(a6=(#mtDr{a?wsnAn-vX#aZ2H?ueW>w%w*m4)m7v2M@C^S^d^v2g?0f34aB
zxc)Vn^dIc<s!fx%Srfttd;Gv`l!Hq=T5r1zMzPG&&%gUYrwxdN2_Jy{(Rkc_8IvPw
zC#|7F1LeY(bm1|zprr|R7Rw2SkBCwwC6S|+7&~_ZUM~?+4K_4vFD^H7PXI`k2_l;}
zb&co<!sG_dqvU-1rC}XysXp4{wvdRZMz38HbSZRT3h`C`8_qx+?G#CvUMk+cmXS)A
zt%Q*jk9O33(O9~unG|j5tiCSO?RO$KNQ|GVgGzTz22F{lLAxVTn^h_#KAE|BQ-_!7
z+%~t3qB^%t4dCJ>QW($T6uN^4wjV}b-Rmi5@fVBP3%Bp;uk$%Q+^2E!4zw?O<0~sG
zMC?KLp?%6Ukbb2slQD(E2(hiGRH~F^GIFVmkbY*F##n(589x#Mrsid1a;cegjcb`*
z&RND-LU=5<FwXcgHBA@=C~%U6sw49Sl5(*{@eJx<<Kj_b!rTS;hIo|?zf&Z_#aLi7
zAY^uEkKvqxY2+P-t-%RF*-&t#aHN(E3Td6tdsMbA(M^)Wg^Y;)f%LF43Pq4JCRWM#
z=(T24UI?B;$BCVc{vT~|<~f%k&2GZM9^?>s9vl~z>p!w(u%ncN>polDd^)uSYBo7=
z+Qnto{$h-XuJ+ha@ejtM4?`?D1C$cf6~gw4greXkp}EznNogYfer6wgm<8PLaPODv
zXBK*+boHU(1k4OF7IDL<p6^gEupcDVa#{RoFQ{0m5M?lOsLKmdf~XPNc<$Q%`=FS(
zWNc!l-$u$LRwE-?!qfFt@K!<-QOU?DB&2Muin3ijO-ge4mvgwuKdS~HB4N?cDY!Uh
z<nipIkLc4R-__RhDecymO}N=*&C@0rGIJ;IQr{sO!SwQRhn)Xe+fl_xiwZ>|#jh2&
zOisj*NHUH}!69fGw0whx*?N3>`Mzrmd0YY4UuHWax-g94;-mrv0EZxt4t3-v<d6i3
z+utB0DNumbUKgJ-DhUf9?tO-tl7wj=BZc<5SH4*l2nzjdfClLG?!fK5@05i0&({h9
z_dP5f{JEIy(EGh`*-fO&9?-JPa6x2mam#GBUOT?F?LIJZn4iz>F}~nV>yR$Mc(Hc>
z(Ao8>&;0!4I5!ngqnl^I<ZG+xz)K9Z{|*&AMtt^fwdMc(L2Id)nZq$l+nWNln=T9R
zs10^*eK=-SD{r8_0P=9mnk2fcB<v)tz)%$j2iL!$96+_8@;8yW!{5ulD){fE7>O>Q
zsF)}Kz{UmO5NBbP;1ppM7ZH(Qm0;oIk>C&(6%!K^Ao>3n0p96f+JpnZ@gJKgQ?6Ro
z5FY6dU*G2NZh8<8%lamHN_Pw?>@LUE5f1Bi3|x0zDiFXbL5eI)i^$UHvx-YGRH?Cs
zk<UaIz<8>w(_yMWN`12`B`Zvf3YQ_zzz(Yd`ZQACR3ZiB3p#Xp4?Rw-XCA%2{=Uum
zyf<XQdAoFE!9kieoUB8LK{K^t(ZY-n&A>&%iWLZ^R+YngY6+`{!RklTf*UvFsR>N2
zhtufC(}E}0g8tp>y$phHgwBVYZG^zw6Mcnd8&q45*xWyU1@|W~w;tZTpJ*Aru1{bY
z*`W`=o&<5$m+#r;>Q}@^kLWOgFW|jp75Q|j7xx|&fOOf@?ua$ji`j}eS6$KuA?gXc
z8A{FqFS+BFq2ONS+d5`QS`&m?6CqzuXb_Zph1UW49k_*L?{6ByR%m3tZD9aJ#17+?
zSid#^Zg|`7Dn(S0hYyr`2O}q(efv6sDB$=y;%En~0~&kBuN5M_7Xh)ZkFyntdz)$<
z?3TL&++&AmJ;F0I;tGbSAKep<7{sjK;tCahev!>U)`@=)8hY07I{B$LVgDo|Vh<F7
zG(@}}W3gXi8E$Rc4ggxd1E&{~?TDY(a~B@o7JbNmMbH6P*9!^&8{Q^tMfjfHZXn<{
zZ`6*0)lapIz#Qmf)e^F1xfOQnh^klBi5%a9*fckqnW>L3KD&K_3?)G?RJ$nCp|RV9
zR+s8oJ77a;K!2?hx%4;4EvM}Nxc)aH|1RkCd--Mc^{|m+dHWUub05|+lFzoAC-`Q_
z;||<<L<CE2dL~;hN?rtOt3ey4UY#$ZUKJlqgb|iP?;YLBhCEBB(4iN5T?Ax#Sux}w
z3Pt;aL{(>^wL{4&ex*k2{RPMJ!-{9oJ6mPkDfqU!diAPK*kZ(-;cx6+7l-GZ^(DAw
zjl%mGj^)QsLBBO#+d^Gc$)>7Wbvr^$flR1~Pf7ugp`+bvhai>eRQp<2n^Il+4V}&f
z?Ah&&--A|kZ5jjjoGsTl9Yod#dh|y+JWJQpPSA91apTqdI+RNgDJ`TQ@{~*0V}3bM
zngLY)Gpd5I$UfpzUcF1dXSWyQYm8iiaIaQ#bU`+AU7`(H8G=gd5z_kMv|y_ZIX%~=
zY9Z^^+uW`QJfElR0%Ny1`5yUf!&y5({?-%RTF;sHh1u0q-dZA5_j|t6Z)hV;JYTZK
z-L{Q-=!d@QdgO<Ymbdk@ZFNBp5Tp>z_w_=K5r;u_3S%^MBhrj$m;tf%2#?uqm;AWj
zxq-=!a0>mnp4be8E@^RXw~nBjA<>SoO#PUxa7)`?)&sL0;q5~pEiag~!VZc0$UPAh
zw`m8wp9{n2Quw7peg|;bKV}B7S22`eZeY%(T2y0|_b%lRC_dLd{R@C9K$T~8T3Ii4
z0G<WPS0{rR{TY2$AW(I*o9WG~^y_&LslG<KWPZ;8Lh8FaNC;*KrX=Rv!p~oySLQiG
z)`QmKmV;*ZSj(7d6Kbl30XNmxM%kfbRE6I7o1|(L^qX{lF{dqW^YXi!sC-5%QS+Zz
zu~tLS_@CHUXH!emRMz+lKg-hSwtS6q%}?43k`%vvXxJM6JxD`FeBJRO+1YI$!ANxv
z$eK{~dc4IRo%;3I^zvSA=HUp*dZe1NJw!uo0zu@o!E2zZ`4i-X_jaGYx6WwTNzjc@
z*MqbS+iu9MRW$r+D5zC4T-T59i1kp`+w#f4WQ|GO4GX=4LJ;24b0d%!R%}>EOblK9
z{zQ=z%x(xutlKk;z0F^r62BE8>xey7+AA2do36VzthobxA-ax|YH2ttpfSXOlLLT~
zb=i<he`Y2_8y0^AMN++0<OAD-IR{w%OBbG4ue8}46DP}~L}s}V;tzR(RmOvwLw_^-
ztrX^vgC2*e|AK<0f~9?VDtgwMJy4?NkSrlSXe;M0rq`PpxF4S%IG(OscEg`0pZ^Pk
zWLxkQM-)eIhi`{^hZFmAB5$L0gZD6#u#;^QZ4-82E=(@Gy*V9kYItvt4S@bQhWJ5F
z^F0EkY}J3^HZ5O1BtOlGX^y8Fh{85`Gk<6?l5Xf9ZR~@!wD$5&_}%B`GVol3rQd!_
zPf1S!^DMhv&YI1Qu>WD1JHxiI+Spvx+=Oo*R!G^VpESFfk(4(6zoFsO914VO)3}Px
z>#!43H)9iHHDh6|j8#j?&udfP(1o<2{}UR$&3esTipi~kRd(7yq*}?^(bLtk{o?}G
z4%1@Xdfd8NMAur^$kJ|XZ6&4o!&lE>0a%E80n2B*N+7iDtZeP}bn$ePbibnLi0A^b
zmhoCmd%ljPdDwE$LRlAE2eRMP0mN^<1GaWe-WF~Ar4`%}L(t`y$?svpGSC9(yzk=m
z5NUnRfAxX93~}t9%h@)M7BcYsMcZIa!<1RwPXgj*qr4`gJU>tau=c|hyDPQ<B0uau
zA%wJq-RMUb;hk4>9k8#eU!IAtRe3K~z#U=!v|4NhlN(<0`ye8fxt@$W4JiYl9QvI+
zp%r?h>vi+_5iPd$0q{rLe0qWZ&;aVKpxnI%UW-F+4@d(`RcEvtA5QB-`oRBg+o*g{
z*()o@OatoyrVi~x$J#Q;3V;>_N1&OIv-S{IUdOCvOHyxAuL^`rI-Or6eH%j?gJ${N
zH3btVn27AZFiu#{RjQa1hkUF1!lwQ=<%`5W{xp1b)=tuVNmFOjV$-_O&3a9Wa<-7^
zo*qhl3~?}_ETo*HtOn9TN?jmm4}PQwJj*&Uc~N>%IsoxEP`A{<1NfmdqckhM1O}I;
zq%4tkIp)Zp%sC9C!ZN}F=O4VzcH5_mQv`0$u2DC~p3rVUS@Z?KZ+?NM)2qCMC_Xz%
zigU}I+y)RwaJc{9C~=*WeIHud)nnpiYF{9s%yqtiIsYe)Pq@nNvb%|oW|u3+<Hi-7
z+(X^FX5DLm82edVvz9k|Nf6~CeIa#WTCDnuaO1z=u<_Hd`zjWo+3QZ>(M9bc2SgXE
zhpR_a>t4rRLw1*9w<pO|YP!OS`|cd9DA2y-mGE_gHkt6Y&%uMLbnD$chn_i?>|&q@
zJz9a`%a7xVbJODFSOtA|O_i6<ttc1B67&QGp)Zlg6h*4LxoDRup4cleM~|vm1J!k^
z8@W<$G9Bot3cQ8M=?Vs4yiW2?;2FYB+MnVDcvxguLjN{UhEVZ(oHF=}t#`AWA4Fv~
z$D03NZ`T@?WV(gTG)fcEE|QWYj%kO|6bzxzEJ8~fb7n<mrXg8I<)yr&;w7y>ks8u+
z)Y4O^HD2<P871VP6oh#pEc1Sel$!8LDqiPn%{p_=%&fE4`Ek~)=g<E3exAMdk9X~N
zulHN)eV@S@4V2&eBUFgH0B)+glChxn2wQ?rt@-mDrX#}FYHvSg{W<CPt*ZX?D2~4b
z)VJShIiqhY;Slw$a=A!p1519~@5Enf-3PQpdFZm9h<k;E+D$dFwgt7*yLPCfd0HdF
zJs04%!a$z(p?*_ehFR#UVBuNbZ*vo96k;x<GT*j*Kdt3_$z9|&+<f$-=ZP3j*1~bJ
zesW}Bp=IVrNg(cA)>Yp>ns3JVh=2Yycv!Hh03QF3c<gMp<6!}|U<8(uuxi=aC!`~`
z@|z7+9~}N@!foX_4K!@akW~G|A?^Vw4=H~qMaxl*Y7z=BACOk@9JV|lAvYI)*cpYC
z)0(RUl|DKEm0e1j#mmQ}w8@Ca4&9}s?MV6c<|+khi-sgd7Gv9hB-LL@RHXc+G+c#J
zm3*a$r05EV+jF}22HJxQ)B?Cj0V%tE<J8H(j>B1z<U+vA2y`3+J{ArRdM?R&K_;&%
zOMleYs%5MM=Vo7Ax%TH>-a0JGip`e;%VFf7_j&6UQw&Nj8<ivv9mAhV+&}uS;lra`
zx4LfIJFs0na%=aq`Q{?t?1igGH_a>Qu;DBCaudJHapiEo<hFhTC#{gW-zH!u?T4YO
zuL?UuVRtKHw7;#}<n$kXW~vXtH_YsF@V!_ZYVe@mfVblDhI65y;W|9e(6G;9N0N9{
zC$|nXYOzDEz3~Y&zyE+8)s^!)RMi0u^9%hSKv<PMo%CN20Q!9C=*}qD|1*R%0O6d1
z{_6%5A~-eYX8Mn3n)Lq!R_FtF^?|kORKcOo0-W7&et(hwRrss?{y~;~_TVuYU-Qf5
zJN}B6Ta(5zyRe|#*a~GP7Cj|6qejBUW%};5QVTbM*+`p{qSWL@yyAxjKfjqF*m$S@
z{#v2MkU*i%fk|EMoaaw4DrF4^7L#^If7Jac;pLr`UtYI{L_oRIl1N77Tk#jaFzCJK
zcD)}DY@FrEyTR|HL{wFTO-<Y@p)(_Fw>_l{n=$71X$Av((arK(EZqI5rNKWzLfKIS
zncTL1f>xL*ihoOa#d4Yy!-`7%HqO2WQ;l^Wy7V6~n0(#dncpN%V+EBhMVFCdv8ra=
zN_<^MUex`<*c4Uod8qC4>V)1q9V3B{Yd>!l>4zq~xf4aOdp;k*;25W<tRj1A@~37#
zg=|lAk7j&{S|2l{M)dYZ*`y1OPZ_R{IrwFud$zNQE+W5}y$80GCiNsJw^kxmf<^S!
ztbl&8yseAeSa%t2y*T+QX!%09v!=ynDJPG9tO`PiA8!q^XU-{7WZywFFR9!Q8^+V!
zh)7q3wIQ3FEb%mlmg;iyx-dQ<gv*nYRpx~Fb8SJEfZ(cZ0-$yhseo(?*8~t?*wu*=
z&tT|TAh$0jW*tCn3<3evBAG2fTEoQyf(Bw)lEl+?oeIRs<A<nmK=`g~2@sAYf`A+*
zY2e*+rAofc2ykJ!TtM-V7y{JM;}`=1624G=Bbus|6E6nE<T|9H2=T^wtOnMc;*wVv
zOX4|jH|#ya1slBDbJKV_FZoAfP96-Es#&Gk+Z9ZT<maDc*QEih_FY^cp@ZHK!X+hz
znFy5dgIE4ug|+=@BRo*msnysun!Tj3OE^Txuv>CQoTHC6mr0-Vzdj9LW)xjbTt`s6
zZ|3V;AUst;_5_8$qmQ0ZG#0vr!JISa-hgmSvSl=;WW>Qo-za*8S!ptJ4$S=mxWzIe
zQ!<;1i7`ivS8g}mO^DBtu>ikXww5Uo+c*PPrgOY}?GSKa9bS{v^w<oe5pdv{LL_1&
z^I8BHG5&QK8bwFpQrp=QaW_1X$rqchzr>{P_(Wk!a*|~nbl2D;NW|*=I7L~3r7K*6
z>QoX;hw0nm7^<gcdFf-aQ;-qPNT%gW^V=Tv-K+silbyM4CaxK7nLAV64(&{IYb!iC
z_e~Qo_lnD`zx`9rl?nKB<q6aH33^&^K~^a!Abfk{t%Xi#_g++9{AzB^sX?>eYcc_P
zqB|i?HjkcoKO$1PO2H#6S$)R*3<rwe*X}<bfG$B;X*;AOmUy&3CQl3LC3iMPI^Xm>
zkAoxceY|yTkDSybj)~R@_z9gdQL!&ur19Rce}G=XwzjyrX95F9-qqw>dp-&i;er+h
zsVmS46BRRAwHoi~SH1L-=!JSAeRC9M1NrF@2<w&$y-_?9X&7)SR;!{2pXA*#C$83b
zH>jyY)OB)l-l3+(s_V7CbdKF6T47RoULy9)+13zlxLHBx{SM-rZF<#S<!qm`tu!vl
zEU@E#%Zo0|;4}Lv_R}-RD>-svq*-+EaXx33xCQ-*>xE+DXsu*!kLiszo2NvX<EK)u
z5cYScGkmyG(}Qnq%83^pX~kYg*p)P9$lrs)0TcM`)J06fE?+uY2syDKS+^XrRv6%|
z?Lk?$nX#tam@K4uFFj4s`S%PxL_wu}KUwC25fmpZzV2JpdgtMO;jia<=ff%I!Y=^-
UB=k_gOSw+l^sKD*coOw~1&dAoR{#J2
literal 0
HcmV?d00001
diff --git a/doc/cdi_fman.pdf b/doc/cdi_fman.pdf
new file mode 100644
index 0000000000000000000000000000000000000000..340be2b2e2f527d402dd6d9db89ebc7765b91b31
GIT binary patch
literal 353218
zcma&Nb8u$S(=Hm@n%K6JH=J-{XJXs7ZQHhO+qNgkn@nuu&Ufyqy64pQtGZwRv%7k)
zuDy2ms@>0edTj~?QE>(qMh-ZN`Q?#yI1XZFVmm`iI6gi&CK(f3GiP&RHdYSe|5xCc
z#4W6yO&p1t#H|gSO+-zM?2Jv|1O(umoE=RJY~b8CT@s|_hnP`<uU|2}WRNsIqA%%^
z3rSVMP}_--C|#sPH(|Ii<MiTkiZR8`Xz0AMUrodMabdQ}jo)-rCq}ZB^}$kpV@%@0
z5sFinixVRMzRA{|!P=1az)L<7m5dLGh%WRn72SN@-Lgq_qF6G)=9YbKjfqP-XML3@
z%mm?2M~Pr<SIZ(Nj0z+{g@a(7=;tj@dMEo!<M0A4MixYGZ(pMrq=Jjcf$p$nZG9~s
zpK*D~%>Y%n`?~p?Q7M3(IwdgMkzF`0F3%9{#7&lq!hkv+;f~K*EY6W;I&c4K<+|oO
z_aQjqaIpL*VWQZ)y#{enJUpqw`NY*No3Ly(vg)YD8z+73Cyrfa3c>V5#r2}^v0Kf~
zZ^egPrq-_Bzt3UwE+=KU+SfdLEjw@T+Q`Y7^Tl6#;36}}9fZE1oq>_ya3;3K|2v-l
zwExNl$A3r)3nvHj|1>F=SyPT#5*VS+zHq7a`Acq@8!=3dG%1<O+_+|yd>Z=jRLc_i
z#M#Lwe@{SSqVq$3HW<-7je^l<0(r~6oj?uFn?h>t$+lnka`Ag`SPT`Ti;D*{w>1gH
zrKF~cAYf;!Czd-K<rBH#53T=tXLj4f1RO9mEP7MzwR1Ctkz>EEQ@zHoJ7x$ICLEhX
z0BVo63CA=txf#ix9<C^(64$xAM<9PC4!Alrp7KLio;leAWC8|bI)X_mJ}hZpjrr22
zZ*|zS#Ba^gkq@72&QN$W(s-wi7<*vX>~=dHeg16OH}<>B3$}l|qg!wDqUyJl(qvNB
zm;VHOV%=tUBoel-c%#k)rv5zuLx}1D-UbudEW7hsYAe+WmEzuU>zWQs%iyFQ9d!Iz
zQcUGN%bJ4yBdpHI&4*gq47x(g6=_Ox3Zrg#)L$rx->$%e%o%PWa@qY$mA6x=>ptq%
z0X-nGFWvOh`1;m0K}0iYXpkDkA)P?3$gl&8x7dT@swvHgT6tfQf2AHN!&RiTE<Q}y
zb>>T^W%vWtl&Y)<I1e_JR*556%4n$$^%Hf;^~K)x07dv>>UKiI$r#qvmqi77FV8~t
zC8#9KiZ}a{zvHE+1wZ+lP7P7M4L@{C$ecHNZdNM;Ij!!+Z<-R@TKJ~+l`SD$vNu<d
zEl2RXW%;j@qn59!UL^RU0DvIv*RI%_hh+|wn5~bUTy>rH89I%%u<LY1mE`J9WDV<C
z5_>RO)fo|l$!`|KMtvO9n#L(F2HSIA5hzB}Rw-7-LH$ki&N^MI9i9BTbTwG9jTVo5
zLV4+{>%td3pX80bq6_H`RYtWJ!w&6(ar#cVpix$aQn4NpkY7Z~$L+s6Qc`ECVo&L}
zmr3?3S4oJypRqt~+F)L!=H(t)Y2ORn92N>}ID`PlbsC04za+M(dptqAcX4NiB-Lww
z)L1#Z^st9wweQ_ob>qNxV-<5VL9OmKOzUUAzKdb|$&g{!2~?GeP}|e_9jkc_dUAC#
zLhe0b*xlD`f?WTIg?B_B9i3Oa*rv32ooj|+MQRYtO7MbU$!kkE8K}r=7md6>A+t^9
zS}3|w3ukS?B6Mu6zT44gtkza*Q%l5eTWsIJLjDai6$+gu;@Xf*csD#}0$`uV^U<&!
zlZ8+cZT87fW2l)law#`?5=_6r!G}cdgYH|onQ4dhCvzrv=KjiTt7&={<8lt9K%4Xu
zpTVXj;I~(fEx&GafRA}+pS~S62zqS+kG^Khxgh_`F2hCJ4B}J^Du`$ocd-4Z+V&4K
zU0fso5&}Sm?M&rZoazb@qnVH^AQ1W)BGN~6q$&Kyh=(C;o)S^++=cg&>lX~KMA5z{
z*6)c|#~{Wi!>;4Dv{#&*a32JZYhCasSLkZaw`-JE8IoONc*gFWn!xpaqWCY*p@%l8
zO)k$yx$Q=CLdGV0gHq{&8^h}34s@TzRg^JEKydT=7C%EM9^=#;G*|6DhL<A3#!a_-
zSbwxSYcaVUz+QeBgXR`r*BZf;pIJ%+;($}Ukj2*-V;NBqvpX<_bX*FRlibLcmy4RV
zZ7QEPnx<|X^;y&y+H8QIkkb$us{s_?BYaeJ)ehC@=nfgS*|Sevo%EPS9`hyrhtFmz
zP{YF-5M^75aOEo7cz&>8p5cw#YsNVpX1IPO3b;=E47bG_G2rEIS0!(#Xc>Br+&u-{
zybj&0{DqaRJFP?zPDpES*7yS)vc^=UmS6968HQqdxtxxui~my!$&?52X0Fu%vg=k~
zFulj0?2%>O))F9S4z9HZ)yofD_?TQ|+boT1R2qIIE4HEx$#?G({>dXBe$WA__&#XY
zyaxig+_-K9R-Id+%M;mhzWR9b6RANfE-+c2>4X7pX|c?>txTZ#ykah%5v&Y_M=dAS
z?)ArGxX#rn%MFxY-J>hl=6QrQB9~4JTIws4!X4+KIOzK1c2$W6<elU4yDd<GXCC})
z>mk7ADr+fhOn9O&!c#v<W*INO#EUA*c0N$h=^2Qs97QNjY*N=^5_G1x@OQ@$YLj4x
zo3SAXfm7?)@!PlF+Cw0kaL0NHPxWnr@HwdB6|<pfVquM}&_PWw34AwNlk2{yN`5_a
zuy0or8&(3T_lI7#miC`Jmza#lgH!p>C|;z&0PM8przqY5l(5JuZyg64F#CgV&<O^w
zrvF~SSpHK9V`XIr{EtgmwyfKh=)V&7imAB?k9_|*fP}WG%>4j@h%anVKq*xjWK@!v
z$ocuWonWl7hfC*r0TwkXc_wjarn~30*TFWr8xz)(Mzxol=lv**5~pumPqO>kLWQHW
zxfD!7({oREeR;vIIa85aBJ>qM{mt|Jb<}mAgiHm&7|7rFg=dXIw%pat@A3ZQsdm4w
z_n8?@$%CkgYS&ZSkQ~Rm>tQ$h!#gm_;7BdPE^_Kq2_gFItRDs|ob`&P<bac&2=5mL
zEW4h0#RWH$4>rX|78ABn({k){(I?u5-p$64_IL(S*jJayZL&#vKfGrA#@drAD7<!8
zNoqJP@9u>u^3z6{ZziaETn|8IAc4j4lZu%=;I>J?-iT9B_19UC4$Aa+^x|gS)=dxO
zF@&N;H{|$F`z8Yh=~cJXb0ayH2-~1+`+@{+gv5`&!t;*>qRarf7mVIC_0@x4ZgEVh
zUo-m%=7GVa?>PaSY8S&R3ZluA9g&E?RrP&*{H$JkvY7U*P}WevcpFUB<`LDF{^A;|
zAYPqA3(7%FY(4`_<_a$>{5gghhBgOR7=!Kp+*FFEo)}9%IkD0m+<~^I6W5C6*!td*
zbf3N62qZKHDnz?vH98c0Y<y!-0tPaDt>B;+8Ix1yT_#^geo;H!Qiz1Eff@VXY1~jz
zdbiBFUa##1pPO52I8$+!YMssop5H6FYxb+3k~C^D)BqeqwZ}#Q%CS6PP$ZDYX+k`p
z%psEnpf4+DLE!p<^@U?f0vF(1Md8Ye5&;N|Ror=>oNLv&1GU#`X%^Tui9o~{_ON{?
z1oVZ7+_-`=FpUI`<XIG&Kv({343Z8W5`L*UrY#tXKA}eZDVIPZg%jR{cj|jc7F>&Q
zE{3z_{9Pm_rUHfWp{c5-SyEhJF!CI1@ZVCqfKza%L>({Yub&#@NO^=K%Mas?3X6zO
zak2+2In_`i(mdl|EV!F7KZ6&BRObvW9}ysxnUu5Oli1s*UQJ@(ZyA~1OHoT9v`g~|
zg6A%M7RS2u<5>$JaIoK<r_m1vs=)g;QT4>kycuA1#c^t@{`_K|x8zh2;0=O65nYPy
z_r}#hWMg+sqj02>2h1i>lOKF8(qkCcVaY#>p;-!vb&><5&;~;`)Yx+-F^$M6Y|d2>
z&mSh`KY?A^HL{wB6(TD?8~i1Tc!oWo+Hm}mhN3T6WiN#bRg*i_igYlj#-t4MJ*^a`
zL;gxAUI^tRnOLA4RL(3SOx<zHB-*<u>wswOuDLt9sVY$uAzUjQ$JwVr`vGXBB3EkJ
z;xcnRCQ|}ik=!B?d)E-HI}mc}4I(g>-hG&Oe;%=G`BatR>Aoxy1&#$uW{w_oy|Z&?
z6S=g~LwlZPgYeJf+!?rK_8V7=dGk{>ad*~8KHK3L1&v+p)2O!e*?V9PY7qcmWqoG`
z-eAlOzV(4FxCfA!xQeA)(OSCA@OA^KfCkKc7fWjrLhi;8_0h)xHEiC?UI+8+3~QaD
zkaU+RcU4!sMx=9D-NIJVyGPE!QWOQQh4$sgsulY~B_V9AFsmzOzLng&R(>0&7XID#
z3s&oOO#_krbxK=*VSt^a7Y36U^B4H3C#^LN?|lJw<k$@z>Z=7R`#OD{ZIL0aE3u9E
zKv#Kcs~&w(LTfj0eEbs^3c8#>G@wn^hDt$TN_Gt?Kq*=R(Y)3aI)C5#(a9ZJywnqV
z*T@2%@tPGpwN?w@aG}=9ZY`EzuKb8tLf_|Oy&6IA$u9d+kfud|@=V`$*SfMZuL_bh
z?FxpSn8bORe-5%vEIZQ>tOGq8Y8+{9j}?Oa%AuhK^C=E7z3f*@2Hb8mu*M@J<@}IT
zKGA@=($lS;Rfzk}M-dX!S*kmT6Mx$O8DKG;z!6@SFzY!W<rdy!A~Cq)g0c73imEM|
zk?rBUSN<Y(+A{+=UhV?iD=y-F!&n_d6JB>s(MqAkn+&zMp{Y5;B6TAYBV}I9!jjIt
z^8fQ%_R#LS%ct1CZE+35Q5w_PXOMdB5NLTRPj3&VCvmcQ?a4EW8Iz!2Tw)&9;Sb`>
z-8NR%$-i*&^R4=US+LN)MOD|*V|f;5m;*3r0{5eJ#UxTHF=@%9i`MNy^)_xY4cAzd
zmzZ~-DpVlq6Gizl47-(xQP)GXOT5+j-4Fm5D`3Z(1=BKSA0DuqX=F|SEm)}uYL_Bw
z)uVDr?R_(CyrzY&4MB?#ytvvJL@zU9I;41Q${QH*wx{wSuFX-?MIx={fD3)xkU}cZ
z9rx$P$>CvC4|s26Ryii~6SwG?Cw9k5SKD!3`Uc#NbElP5S(%PiLo>38Sn{yE5k*ln
z<k=Ooow#;&cmu_uT$J;jkm2@YF>YualbrF1Vx6le#|Is6xn!=ruj&0|NV@Cgi`|26
zHxTg$GSe7_t(8P=Y?bmDrQ6xjym+^DkBzyqoZwDpUX$~s?qkCxnO<hj(o#^^=}2yH
zUR%kG$?=gY=zC1hwEp&Z8!FN9KopfQl`EolbHUU>jNtKG*5vBmvbD_%?aA?7uf!ri
zsE^50-cCV0{&y+iR-K>xD5WHg=<z+f*n^51skGW6RujCEmcdp_fo`Qn{kQR<@ArVF
z*IRsr>97L`0_@o7iQwkM^l(v5V>6wX((OnqZ7(+^X4YR?&UcmD5p)&r+d4&uneu3S
z9{dpBld&&H9Qq^|FJ`NZ>bTRP`=B?C`N0&XspFo(!c;c|f$et-47XW?rjs?UD$kGy
zz3*lBPyPz5;TD<&f_w*rmCR&<`L{U~LL8>bgv$HInex2QcT(3q)AuB#&g3zIR`K<s
zlJ=q}QfGCK<4XBwDkOwrk3s|`mnG|^kDxx8(NqTrk}(rne3&&EF$xjXRTUbT>j`TL
zD<00QgRu=-@)QAJ+?+kh&gU(Tf2N@1)Q>I8*FSp&#~%%cWM&xR(Kh!HY#S$&%t(|7
zEQ}Udqv66b((?W}CdDvsEuj4|-=O(Zx;+0K8L|E!e2a>Qy$LasyrHGCvke@R95D+s
z^M5fej!w?R+?@Z^|INp+axwppaZ`)dMl60Crq6ZVzR}$vP^TR<6qHE;jTjU`i#ZX-
zv;J6!bU2-*7<K={XO^VO#3LayJc~(rMfIpgWOu6T#-6-be}FxicvA#XN%<z9l;lv!
zsb8lew5@=Gy>Xr&@|L*bujGv`rr--@6PK<_v#q<a`^IhgYX0fsf*NGoZV;_4o`C<a
z&@_~S+{<Esxvjh2jg5fl+V7iQ$V-A8Pv!w+a7##~Bz+`vY=09F&ghbdz_5YL6?9_t
zx>FUf%mN3*TF4kJdwKKaAhR(Mgihy=gndL|?V#sKIjlx~lq(Xegd{T=>A`ojn-2VW
zjx;C(h9jtMY|Sf3CS~e$VrL|=Te38TY9l!-Y9#v&`x?yqlLBMcc?IPmddh8Taq1VT
z5q0~+0x$?$$8t!1NYC;XWk`<YSe9F5235|hf{GVO@(|OP>U^^yb$f6`EY46uO%o&Y
z2AAo`pE3NH5}|}$l(apewzH#%aCX+)B1}*zB0A}~-NJLbw<hW!0@=(miiPOZQsx*F
z(V<BID9uDi?-0(yVQseI*n%hWp$~stDRlE6^%3(hvoNT*P`ZZA0ZGIx3Fg3|r*Mo&
zlp+!;sd~_c!aUR>)Qa1vt50%v!x@DL?miuwm546XihJIORm2%^NZGAdF?Euw7cru#
z{JSm0&+J9Iv9sYFDSn>^MQ%ULSwBzrH<a1DFtgB>ClhW#kJp#S`<vS_cRwD%&ue72
zgO3re?@rzvL9ced?k+!X0#>}-S-ssJU-$d7ksT}g@!Nenx4oVZ;8GaTP*X5;$4Pnp
z0uW8h&o?kx?KJi;eoY+m$HPwF_hBCMsJa2IrqO8dZr|(I`^mM1xwX317?tnB4Xi#?
z>?LgTQY?$X;Cs7R(fyA)LS1i{XY5=9<2*swlQK6!fzY;3Kd<pVT&LD=qxlp0t7{_S
zE1VsygZ|So6C_!0-Mj8&kBWQNFj6P%OrVL>0*zQ1Mvjv6|EDz2jFe(zDOpSX-%6g6
zx701oNEycerA#PG<tq6W#IV?u-K*L4`r!9{zukQamfe>j*Y$RJaRB-G1;1ZE((cXX
zj6d=Vb$<?&j6tQX<|8nwUN_7iyF{#3<j4;)VGR)Je!OQ95nk(xy^_fuQxa=NL~hWR
z3=g*}6``rrG)&qVy2scu5nUB+qe1fhW?vVbz@5Q9v6K;3M^e8Ay#sE!)msZ4()@Op
zmBnSNZaflorZazVHAiAgzz^Glf)a}tH;z`i3^FZj<4PiLVABhLp164oVN<;b3N7SS
zNz#g%g!lytLnq*dZ9TW9Qsjj|q4rD09a{E2T)!s}_{1|wF)|vS$>8d~qiw<R8X3#E
ze}fyMA(fDx4h{r^XH>IazjR0!E5%L!_o=*qL$6iSf4MY}`1QNrc)E}jf1sd0a0?Uv
zb=7y6H<%Jf08tf$6i=pQ3i@;W(&bOfNa%wwIvZ*-1V3nsuRW`^$of4P(`0woGmP@1
zCdgE6fBUD>Eqy{tj73DO3SI?|fzE&dR~w>@1V2y-b=8jJDN)cIw@r_Vk&tc*(cM|h
z_w-CgQ;_>d?@)!7T|F%I2+K+~Qb0_r=S;<WE{YKh4Z-bRJZixe1W&r99i6!|cxL2F
zob_HlepSjlq~a19?v_7g5qS_(lR@944nm=p&>`M@zb<YfhzR}_&(rT4FG!hPkWnRL
z51ZXWbc8~p#5PQJ6L8#sEjuU-Btb4rpoZG~GNL&Om_=7;ag6?{`($F_=H-C-ISUCt
zv(a%7jj*wd3#{y(e<`pdF@2rXO+*&^ARyISZxaMsE^bSgl9TdR)rcei7Lh&Yi=h}I
zQ2T)SBvM7LVR7lv*{^?NKY9gDpV+D%tK*<T7o~m`Yz4}$8jgY`1J_rf{TD$L;|SEo
zek_MeFm*N6@Z6~E!zh{!><pA2J%I^d8Xz%ZlAf;!TRl>xaezoV=((TOO*BF!hh1da
z%C-BSMd*c6P#-3Jd$|@<<F8V6qU$}MO5+&mlD;|@oR7j1oyTeDF~cn1U|5?0{~Q7F
zHGG1>)Mym(p%p1vLp~iAcV24h{6#umfwWk*l)7BXKj`!07Ly&1kBAnF$QTzx1&Sjm
zo376PHDm9ck8kP=Da(JeI{Eny>6){~f?daqFxg9Wj6b8**MPiz<=KlG_LYN*q%SFX
z92zfyaV;oS0-7lS$&i#_T9l_e!r30(0!glPf8cWFoa9>AN!vXZe!;<jhf!rL<eYmP
z39yc|0B_+q&I^MKz(xj8BLldR0TRdnb!31!GQb@f5RTjc5AQV2+l~wvM+U4T15S|v
zFUSBG6aY2~fEoqBjdBZL^Y6Yn3cwu&5RL*!M*)<h0NPPH7;wNi1}|F`4jvM^`}>Ho
z^`+>x9jv6IPE!xw0!#Hxj0zC~5)cIM<eD16O07YLYW&oRqHM<QYBP8vrOnTv*h8zF
z==?KekXCTG&fzj!K@kc1keGW=@!97$;nI6S5%B$LW$sWw>bGfY)nlbmd3Olq{$e?q
z!D$;(;gjchAkHA7herbJ7jt-`)p$6PLFJ6@=rmGn(vw-6Xf6dlWGWCfR)iZpmTXSj
z%vli<tYC2<rqi3L*jvEFx%^qu8M<YJp1?v(?iN}DO~NuUT0lr+l7<xtA%tc3djm(g
z@(-|3pNmII7wqjinF=;gvK{RjNGtA)jbh=fq~_?%IYrC1<HtyTI1x}ok<s;3=Wn3o
z?E4xCSzc7cP^X}>MXmiydZF^H%^eSnbP7KCpo->3cN@V0P1jiV)O_+Jx#|5RW$+F=
z9|0%{-UoctC*NYY&|L4y%aptXXZ0ohO%HWwv<4=F_yOb(tfcF3XdLOxGVqymcD;!g
zhJTNTfM{$=#|nl>H9v}06sWV_vWwVGDkdODo{+M$u>m)XT8Xb%34960U{VbX`Y|p2
zZ^966>x_5Mze>|0ppK<wdjm~HMD6Jm-F4d?1(Cl-wUWD=i~kK$BY5|KiosdP_oboB
zdh(qLx98^n5iyJ2HqL{&JEv+m`53vjrO&de2oK{SEJi<GpN;FJ8J^@3wpA2#0Bc`+
zx!EwP*zvIad*0gKi=HwIJVfrjB^71l9WE2mc8(R|2k_V<Jr;AgO6lK-8!zB^-HRY-
zY{gjNBp(?GoxUq}Lu`frZK3raMt?Hh6biE4{iks<vsu_@Qb&R?PZej#8K}0g9Ea(V
ze0PO)L^#!{MAW_A%Y-AKpD*(UI>z_r`+M8@9_dCt8QOTqot~b854QaP<CL&5EpPX3
zew+n!xJ1nNkunFRhH%rsc>@2_+2K0ecZj4$SM^Iq<Is5mAK_72X@XwG`@6i|7yb-X
zU70Xr#)&%fWB=&ToDJj@RN1eyb_XV~4&5f!*sHb_5qXobz(20Jcg%=wOW~n&Q)rop
za&Z=_D^ISr5Rft}n9O*Qeg`;9o4ay|7B(6MEmN_7^jN{&e#wRfj*R)?{&`;9zF5z~
zvP!@si_t={vEPy|%bm1Ae$t+&p1YkIZ;`qevNh8Qx?jcoMt=G>fcg&@nEgLBxH$e<
z|Cjv#cO5S?rQJ5gF~**~;TT2&C%TC?R_d~W&gfxDq3s&u#M(K5_Q4mUuMa(B6WBeF
zu0b+gi69oH4_$scuX_gdPKWv@JNw3b?oK4(BFwDoC}w<a?VK>^f6NEtlV{z5+8t$8
z_7W|4?|%*WKX`lvxrvZ_5n<Sa2>wt<vuoEh2t_NHb>eILjLahVdR^<27dw8*)oSzn
z7d4p8m>m~{44xfBZbR8QvDq~}D*pJi4pR`Wcq(gg8d?%`C_zd(Z$Dh@xcADE%?$L6
z67zHv!~hf6c|Cu)x6IYiN8Zkf?!F#)tMMTv4shy`3=M9OPk(SihiuXtvP<%^O8|4n
z_jE{>BB^*dv|(lrxSa#o8%gQe#w~Z?qE3fTNnV|^dYOp=gj8_NAXrhhtqW3d&e*<@
zW!z88xDN%JlFkoc*c&_H%>es+kh9x!i2W@;MVD;$&AvYFT{hLx9fMFy@61S<j7D<m
zX#=QNX?{0|sbWHYkp9FJV@1Zm*oLGQ6^8MEK@>!;n-6EzDbW1nTaj~By*x5k%^I?N
zO1(5z+mO?(vbNyWo6*;$qtMDi$2hr4gHV;S^Zg-rsE=72<-;=bwG(mFf=_GIziIdr
zvJsb7%>QQ>E`%@ctL}xJ2J|_7x#K4_QmHPGqnF)W^QV;xztnwL53^O1<oqIW!RY}+
zPg9frrC}Mqq7j^OzA!tP53ugg+$07lGF!2;RmXD(l@^iLtrf^?^HQ+UB?M%-@bBgg
z0$%3hh)LZymTHK1W;Ywr{SDKS*vY@Z@S0_6lh7t9QI7>2UEU7aG>sZKHb9O!u${C_
zuMNcUE3g$KG8KNAXIYBY9JG>AF>rbmFaBltU{65!HLQaW(N$||=V$9kjc;KB_t)er
z%kR1kBh0n*N2wW-*o9Sf!6L(%r?NX$K1mFHCH%Fxi&e2ZO@ed2)p&uDq})bI;uS~+
zUa@FMu`22v?E`$go0&DrN@t=&lRqqL=7Xn85x4~nY7!)TAzK&!m0?>&;Wxl+hreL_
z^P<(ZaqCb&V<zdb(A0bDafCp&)i8eRjg!GOSeB=sP!XXtF2$lv<LcK@HEf3v{%(QI
zQBJh$9oQ3jl(SjQrUrTdJF3Zg^+uZL*LK{8eWrysRAEhpHOvd44v0Wsc1tBb*vkEI
z&67^*D&kisn|f{*>Y=r`H8gx`EZ!@wcFX3Bs@+VqA=T|@JeTFLG^$sn7U!Q9u4XJo
zDf}vT6SdpbAjsP@Fm<}!-}RZjiIEDITBv6+KDDUV%KX?u{MhSOrMVnFHn1WA=_ZoX
zd7Er3)1#$%Vv)OT5(^PNwO9_V3YqbcgUV63AVU_s|N5%U^nW{ZSdwY*qk3Vy>{dBo
zhxnuy9yK5^Y*ZxYFC|6$nO)|vI38@HaJ7;M_%wF<G%uBG)8Co@R2Cn(wqw&6#i~vO
zvwySjK4STD-xp^75mDKQSh~msmK2Im9OzI9^n4HhGOvlx>QK@=rsQ#;c$v>|Q|m7U
zX-9g<f=}I|;V4upRwg-C06%{S@N3YK{^Q#YU+P!#z{EvaTS@l5$3T(X9=ME9%z4Ls
z&IA7{x%&9(X6Mm$v$nG1P`iYvKEa>p=KJQI{R>~^SIKnM6}iR$s!V4eGROK_etkIj
zeQO&O3l<m&#Ce92XLBayt3Z_nCmJV~k~zx$o2_Cf<Ld!Y*YyQ2eXZ(X*@l(<U$3U^
zOwAd*e8&OqPSrnGigi*8mx}#jU-XB5ot-<?R(GlN#nhkQvgJPLDr4B;V<<QD5I<Zg
z)x{i+LTG#=S-jwpr#rf|Q=ZY#$r4Jp4U!A)bPY`(Oqp0jRQPQuYS)<&_y?vc@@c58
z&3Wqo(vRzo+ox8Ns;fl@!gZ~w_l#2q|6~;mjr<}%vYOT{7Mws;CS5ypL75G_DaF?m
z))k2@pN8|o<1+kNwtf_|WwA)*GB@;2tQjIL*qo~&^}K{~bd6XrMtxIj<+HL9j$7JZ
zrCt<MwaJMLJ?gr_kq43E5cV^_qj;iFX){?rd}yhZ;-@X~{H>rUC8Xzns4U!E{|CSF
zzxfju05|vlw6f%=+r({gqJ8!D3HK8y;QUx3ebm*4Cy#YI2XCCQ$<_@hCTd2rIscuC
z9~s&8`Iv+HOLL-Xr`vlmyg2m!?k1xE-^vWIx)S2_<lWMtuHCtfh6E3Gpp{jF*-jr_
ztpG#Gx3+1#3Z2!ovHeWorDLf&1FSVNldZh3%>Hb6m9MK(9VWoyW%(r*%i+e4^(H=c
z_lT>;#3;tDO|A{J2esM~^We{ll316FkVnFs6*af2XqBX$iLW)6%$&?jWs3TUH{bBd
z!ZFaI$)IfE+#}e$zL3E(eR3&8x1R$4%;NXS9CBT-=UvcB4*G37MBEm~jJDZ0U92J3
zRdMEzr0L{nF{=agYH*+rDEBDPA<`l<&h&F`Ps<!YpckSMjv7E_+w2S&6sVY?|EnGg
zBzt$n@^CF_9?U<Oo@%o)73QA}yAgr9*Qw5vlc4@%y8z37fiQk#=A9xYW*Z-(&$%IL
z+bl!`aF9^?aL!9h48(8%1`lvcp%_b6hAqS#hFJ$~lY-=`ah<ENZ<XQ)TUDghF~vk1
z)RdIQ$#v{5op>clB%dGo<CL`FQ-=DBxVJM7fCHl{XS_2pg1yH6qzc~@**m!y_?WNt
zcy#6VY1oK|fy)ogt4i^db4iY&bme~9LUL|TbDuofogbft;OKnzc6eC)&I%8#*VW0G
z5S7fNJ)4wpabh=sP#=$$%~nE=M+v`54%AUxCV0H6@3Xukoth#jM-T?LiwEnf#f6;U
zR_1|1rN*oek^gAeIH~bV(2*X(yOgFpS2=E@JZRR}Ggy@eim3rTqDtrIb>$4Q#)!N0
zLS2bHKYqN{NG<m$N?$ENjjG%=`TUiUn?C$}d~?%u(X;YM7qHtl%l1oA9PkI(Iy`t~
zM8Dm*HMdMc(u+?a*4F9c64p!^r|A-3h!%o_(RujEzM2?W`F>+R4ewF9=Dt@$d?sql
z9ScC=R!kY`Nl5-!K9VAQ6Nw5sioQ>W11+NBGf(LR@5ZYGnPjTltC_iAjg9%aO2b)l
z#;V59Gd8%Z3ascV8<-d-(b0aJWd<cN)19Xxu97oRq}XV>c`^iY`xwSe$Ysh3^7I-x
z^6d%_D@cFZe(IhZeI6Pn{6<l{xgzG^bEQv;DysZKrYhDg*63Xi+<PQ9_8%8nI1kc!
zU4PA4E}{m>&5rl5<wMc~<!Cao40lRh!<{t@D!UKCnQWt^drn`hEN~HJF)4}gg`-Hi
z*p0qI*S4w*&X|2P268ryw@9YQT|p69<NXv>jK90MpGK}H_^Hz3FnVCgI{`Z182m^2
zF=p&1hL6vC0VP^$L}-!-y$rtpwl+p+JWNr4qeiMxJQ^#i1q8jE%C3*jbyX>GDy3tQ
ze`<?dq_C-AZo$-ZDAsHTOgc<Kkbmv;$+Dmi#<mAmGO_r4dxFvRR5t_590u)f%9LWx
zAkIkuzQcxcJ+S}w0NjnF7Id|2DT2e)ZM8VUkktxnjJzl4VI@lGjD1V4a8smiPG|;J
zw$gSA3aPzmRn(kE)4Yr1l)G%wr+16YVw!*Md@9cDB>75dQbs9KCgIjP`1Vh+qwL0+
zCv0+pMigV84IRtKv(RumQ!kjGZd)inG6d=`dL%7;(fk)L`+CjZ*S%vlY80@}1(RPl
zk7V@yAK+NQ?ojXo_d~z%)zq|n0+B){9_%+8yO*PsebboyZDYk8`_viI;J1ldzt)&m
zgyh7gA)iGKV&V-X5K+<d5;kEN(-{ZyiMTAR-&Kk$ESwQ|z}&!S357;Nu9}%5qGX;L
zGlpALuu-pwQYL#r@a6(62ZQYX!HLw^ruFBoRHRO5nCPGTqSNTNB4%rku2Zd*l;~>h
zV?OxyC?KoroG;cW<j9pmdo2bL)FxxT3Wqeg%WHJjZeFZDndSlFEf6p<ps*34D@KM#
z7x>NVMcqtsz)1(LP1r4y&Is&$g|L{KZ<UU7cwF5V-+7%Perk`LHh-k~2Kk5eqk#>=
zoF82J2|rqFSdqt*bd<kRM6$gPw&p>mzhAe`fIDw%R;2-AZhk@_0QV>4rhJ+P4yDT)
zm_03MMG)u#06^76C{E-4#MLvcb?up`_2(w1V{I7R#6G)MHBf_ZrfeH43AWo}vT6E}
zfN@x30b7?ib`Sl|9|_Ib;F!~{3mBmcog8-elBE|RR$25H98Nf}!>~|wXpyBm$|onM
zi2rlUwUs1q&Y`P=rcCg&YYVkZC8P&O3a9y~qIUUnPVaKtWGlVms!=jm03YlTkmfvF
z#lTM@az-x(Cjqv&>`)Jj$zrKIWfv!MV~qdQ$nDE}x-B`+@ZL3#;y#~pt>SnJU^wHJ
z<uKW}UkTV;zlJ6=PZuw^W+sfdHM~~?1BIekt!MhGRNSHFC>SKzzJVxcwrutQowJR)
z>RT<~oSNCgfa^c<Bd?~_qg9XRXY%&m7)8uIBiRmz^yPbja1WtSp5)IH<KsEUoa?^Q
zvdbpM9qWR?sNV{#6|>!E<Kp>-eT@I2Ap<1m?!MwyP9)#Y&i8&{BhAIEeTNHsxPRi3
zIkj}WI1f}<6!|qFsR$XAghe6yasP&5`#C+0EPTFP%d4)tUk}1m9`bngr|%(c4e#se
z)&nLNI`w+6CmxUY^FHPq3S2#j^FM$Bz<=0oa{faK|5H#fqADAg#f<Xr)QC4k1@{*O
znQF>rrIw4Gs?*jEIA~%%S~iFH*5@-py(F=4&6C2Tv9;-Lw+9;`y7Ny6A4CD0pqZTF
zaJ1}%=)z0Fh~z))6Y+)kRIr<=rz9V%;xZwtr_`Y>7w}r=oSvJz(0Z){PCr4Th$EE(
zG25vV4difW<pze(g(yC{enCu;i!l`)!$t(}2M?JA`9kc0|M?paU_ff7o-H;8XNb!w
zg{$u<5@Q)b_|=dMLG8+Em-#VhJ-E5e!Z8<@pAMQK!xJ6nrIkSqWQD(Ma3l&5$gx6(
zgr;47$BUACE^Sv2qP0+ev#Hq0M5h0#&5AsWJ%;dt^5Y}<8-i)VSe^H6)=ZLHk=tbA
z=niQf9Vd58>a@1XZKeu&y<<g`-8p1&HD|f)VXCsp#cKf$V*;uKGP2-Q$(S)YN-;wj
z(ZHFv--$5utfNl$nDZ%Jt2_Rk_T2_JL?xQ2j&>XRa2Qfnx9K`9YGR;#O{|lYrPfvl
zohl{kulhGm2i&Ty>DSFI2*r_-I^vg+bwfLRG|V(f>Dt$)rX(iTnV|#cO7B+-)Cj1>
z#mmCgkX{0(h$)?;J4ZJryPxm`c^I5vSMlAy9&ne$tpc9ao$F$W`P<^jmqfWaZJjz2
zhf5ELnoOkg2D}r0N%lF-$g<kqoT1VzbIC_vIH075v^-v2(FN0)0{=9j^gH@F5y=Fb
zJV$2IGVeL&GP^tfS<0G5Usn%p{UK+Ay>ooc3^rP3fO1R6j=-L!6<Wpdq_*1%LI?u^
zve!D;kotqg4%vv#9<_JbKIenE{C7(Ncghc62fnnEQVbldwe80ZWPN`^=z3%paRz5z
z=j(zzN=3EwH*dD6RYEFtZojFmqg~Pf>Sa0d`!)$j`uzml3CgwrKX65m8T$Xe{@IvW
z{yQjU{V(hPlK+3YrAAXasYo2H_qlFAoOGLGIcROybTv2D;i9_dGWN!R4_Z@2Iv91_
z-*o#a&&|{X6AX5t$c9l?G36*N<I&`IAkPh_?*7gW1l5`wGMC-1^i_nvSOQE>7!^|@
zy<9gp3Oz=}bG%oc_rUKq1MHXUD5W}E6O8w3wZwOhFAG<VwORqe5BJh7YG9-!Caem+
zdmD|JBsNdUc4bf3_l<4w!HideJD<KqyyLqux%yEq`&}EY)Q9|2L;s;}(A=N>ud7j5
z#FW8pGtaX&Vg!A_oQoX#btJ7-u0iIK&%z?dkn~xb&hKLlqmVpH=Zw(~+bG%NWxiU`
zKY~l`Tb8&Vol?bmTqP;5<-9svE*f@`F24%{P6^Vc0nf@!6P17Js_D+)3}=jtuIh;V
zNbkwxK59!tp6d7NY(blBc`{kbx##;J`80oY3MXwFCaGT5ns4c{wTs~n=pk8VVLms-
zs45CBxGZ5{&~$I;u<L2m9%-bpv=LLFClrRXp@5L=0AY{0Jaw}22QNBnHw!N{HHFNx
zXHHvJWDB%13n`B6TvE?Nfto#|<}G^zHIe#3la1nieYFsxgQO2x;K*jKm8YAv3mdl4
zopY<y@9#Gj50;Z#;@5aPo6J8}pxVHniWa#gK5cd|{8pOb4p^hG<>{V8l>ngx4_R4E
zRm^uycllc5NEG1T233;V9nnT7to%tFzl({fbuti#aE{<2`9Mbt=<^r~ZP#RPVYv4H
zB<rR2q5^Ei#abAVIZbY2YkTyGWVS;v5<|-?)<%|^U=jGmHjJ>t(Ju#vJ*C|=yb7K3
zIB=9|8>Emi^VeAt-3A@k<6I1A7=;ZR>S-Oo2;PvwZXIG<Ax1V&T9<e;OD_B;l>CIq
zTqN&v3=&=9$niJVYz{sE;3cT3SlXLhp@n*I;pH4-e?p4>9hC?pFM*i6R8XO<mSX2%
z2c>BJ-Jc1f9Lm5AQW=nDk{}N}_d7pZo&Q@O^r1CGRzWsPC<XbJK=~V|`cxMyde#C-
zGEi9ON!_x^jt}1&5b3N{UBW#nk-Dc;>iYY769wDfB17eAk&()N5;*LfDPYm8KC*2L
zq080@Qu4+9)6u+B47vf^kOo3fh^W{AZ8SNQ8nh%GDu}`Q7cKM&<nG^CsM6m4M|LIg
zG_tqh2!#PSaV>xp?eQUC`jd=dB|bHNsWhLgPUS+7kcZBo9R%EpxIJB~$3&|up(Y0_
z!QI6hJ3QDdDp0f-Uzu}kUvu&Iz<|FClnHW8D@;$&rHSwmIG#=rMygk}ufs)OjrGpx
z3IgZLKhlKFJf$MXxoIIK!osQ~XAxfxtK2orH)NI=e*wq1%*|A9(-t2+ea=^JLpzKY
zMsz_2;P6L)JRLEmb;Htt1c!#ing<sxLxo-{yDdU%2~&8zISKZyex=Ma?yCQxpFrJl
zWOuuHo`t(=d%*mn@$m@edp!-nzM@(7W<veqp=a*e3`OZrkOM!s2F3|HUFLeTzC5AA
ziW#Iln&Id79S}U4LnN<3t4uXq`tVZ`R7}V+h|KH}c7oiw=(nC6uc>PwU0<ba8TlM8
z-7zj*d6Rv3VtfqGbcZ(=w5#DWq{+MZFup&xNfq<hxIyGqKrf<6l@00JsC?&>Obik+
zyQw>fqQH*kSg1=;-TjEI-WkDJ7@PdbH>=GpGBTInw*3~X@*ESn85~&q?vD2xzB_;(
z^e^_Z#&s3ywnyZz=rWRM>Fczt?-<o$hcj5hrt~l;o}ZbGp(^zlxXv$5Tq>p5zk*^X
z?FA4rjw-x57k1J41U!>)>|C=O$;0_cxT6jqUatD*!21Kt6>%Ai1uUhBrOKW}l8s(3
zpPVd=JkR{o?TJ(ABN9vS!!h9tUzP(@{0SByp=0Hvs7(VB;Wq*|gVD-bVHmMhvVO!U
z_Jgs%c^b`j5P&cgnUmNOrF`mbBVi*CR1q5trt)o#7%~vLl&4Mfh70m<$m4gWUXU8Y
z@-aWaXx{o*c<sYG>y1MGdTxMka?W!kf%Shr7!Ubk8y@#gmKa*sUa=ksAwvxOGkFO?
z4Gh2zyS$tu3Wr_?$oY3YXp_78c*YuW<>e~-_Q%4p+zs_uub28>h~=%Rc{!x6@gb@Y
z*D12Jyz0B7gyhRKP#+u#*#llvK}YD}N3c~I_Z<i6!L1?$0&O0E3Z^p<d)&rqv@y<!
z-H8`0&42~$c6uf!Z&Wu1j$irDt6E8BCOS5eSMldu3N_RIKv}Wg@$GXPUNc+#ticup
zC-m8Nj8sv!X&ngm!A8tDq3_&-OVa$<Hj#N&HYTYjF=*VcDPzq+s9&W8u-^cVfqFBY
zrM1RH-6~z;rIps4B-mOKc`Q=&VR{*B5;ZnsO$e2Nf`m~c1#g<{gC)}TSb34{v~yyK
zu?Y226r=>MESxLGgSx{j6lWEf>qe0+EDf>f786uKwivp@DC6GEbtl%U<PybBlnjw|
zK!q;l{lB?Pi_HHR?}n)*yGLnTcr~cGr(qr2ceE@H@iu{{)5niuxuefWyID){fbq23
z>5&0u3t&3!q2Su~W-O^~dCywluu$kqTY$<!tD`fgsMoz}XLUl9o-2jrC*I-+GX<Qz
z@QK=-&3ZfM?K{D+Q~ZS~)>F$yXJ)`5n{%yzZ$Cff8}4q~?Jbq;S#5S&g#%@JnyUXT
zN}uv{Z^}KkNx`f`Ko~g4=H%iItNv??#JVeoWDYDpmQQ3_?@8-pCvH>zuU(U=ni|mU
z=Y?zo#Og!R;H@5_;ocYBID1Mh$3wQ1&}8v`-91OlOd1=KBWr{;q|69HM(WRFxa_eV
z+(BVP1mI~iO#R^!%F8tl4+H4g3;Xa#eeITY)jcJhUEAB7wX#~QmK%}ZODWld<<cy6
za%jFJ{Ssy=jr2a^)1R!Wk~z}&RDKZ&^0{f$PMGTBS@>L@GkQ>q3^vhjHo<evO8m-J
zE2Q(Q`T35}?18*9GjpdFjk3O|fI#NnGqZ;KJd$m{6&9K~8Q6oKo;3`iZ-+&leY54m
zzJ-vNGiXUj*_6a5D;2&sd9Lt5!Les@%m0L?0RJ6Lv9UA%@9o6@08M3UI304LjqQEX
zBy+tBVQ2FZ+RVALR!orNdC_TQ9R;MCXJJY{C_Uh(F!jY0k<2F(J4I(!qRxPS+wO-!
zg$Fsi3KlgzQ~ltgva7|&Vv&;4Y}}aHkpU(jnE>e0i8VO8G-kiJdn|uHZfL_ec)I)!
zUuxA-`+T~n%gU46-O2vA4i?gM9yPr&293jLCJ(&bF!Z?_({pYOwi2A7R@4x9H@woG
zGZvSm+_&fG5_nyMbpb{vPDUlpYxBuVC5y!;Lu{qU(@6xOW>#qA(vh}Dmw>v#7aIRf
zB&Jvg|L!5891V;3drwORK!0&oo4W$DlL6k5PHWqT{eUb61E?f(I_-Tw9R$X(CEX_0
z^T`|c%E=yWSY4X2LLWO`fb1RqOyD(3;s&XhAoaTfF@mHi=i48+au8x8of2(59d5kq
zpvnG0PB*NmoU9;ve8FptQ<TF3HbE}zmA3wzpCDo(jZ{IcBmqBK`Q<$twd7f16vlV?
zNVG>d2Yl0pcp;bb*w;J33>rj}>Yc9fuG3OSTx<_n(Lep&jeBulg&~?Ly!Tpie!K2F
z3otJJJq?3tGVLqm-V1-`r2<ep$~b+kBeI@qtXTDOL_W7koF4Mzo$hk)**S!4wwY%I
zf^(%lx-M|U`7GIv%DvzUZbUi6q(L6=WyKHo4w?bBK_Y16+Ts5+U{Oby)<y{kRz|c?
zL{JJ7n%m}ec3Gm5Foe`ok)!mw4nnyikeE5Sc1D7*ZKSg>3nwDLu^=)R5_cG{k`R(m
zMo^<U$zUW%l17dP7e=YRH+Pq}qFO4Mdszx!O4ryFbgW>dQ<|-T5r~^LiWxa`lSP*a
zLkkPib^QA)bN-*#DL%TGb7D9tPeHlR$!Iq_KVd0VNOu`k@;CQIWwTpq@d#37ug|tP
zb*A-3Iw>5;kr-(tHdzM7DgdW|I)YlsSq6hfiZl`<q;RJ7lIYC#bFb41SvgsFR~ciH
zC_mg%c~|?dA&H6H<*AT3hVnc*eTvodS22APmw*>0CD@zc{r;?U7CjGMfn#GC8Eumi
z+T;|wim8c^`Cre#5d+$#a30#YNS^<7g)Yo;-LbA*X*f+C203!n?=Nd*!+Me6JZd^y
zyL>`bs6;Me-)U!&f(%h>6eY)8{J?#lgps6SM=dtWgi(T%J)&OTUR@E}dcJ&P7KSb6
z7b<vg(dp<-!AarP4+%4=#4-B4Ptl2S(Nb?;h}?ufn=*?oPS#AW2+1M$3a^roMqUXc
zQ?6;}?6l0K<7112q~>%)6+%OpKcDQjn@kKmZR;FkbM+*Dkm0n9PC^sKsGBk5rzK^T
zpr=wYRj+5sO&m8x+jYE48z)teG)65~!0N<rQ(dDMuqO0fIo2ScqzOUHEuIfWo(<La
zCw9|eJVm#;xEA_%kSFO9PlQ5B2__eYmPSGmsNR{t62#sJv!cMsI-e|#RRCwQ=F+lo
zIVF^=MD3L<e4Hn=ao5;#xfLajP`bq?9%dF_L5j))mKzLQO))T@CXS&mWJ``g;4VoJ
za~9qR>+JAjMx5$6Pd^p3h80hcGD!GE+kEQ1!u7d?rqz+4n%emI9Kf}4#^SE;#Ar-<
zqi$;2PXI~_ri-QlVMmRJQ!7OlwI9;Ra<l7pxn$~*-h(0T@g!X2`ykH$ix%$i6V!{}
zH3^Z>piF8%Um>EtDA4}zl%Qa=4z9+q?LYUuf9~rcjaxupAMQ$ug-7F%&NcC8jj(fK
z=A}z)aAj)cRY`wEF-h+qRIKXp;>!oDD5|LHiQzozV2bE4y*sWm2NKDmxE`>@e$9<R
zu-({<Ni*1oi9=bw32<qAWHKEV6j*pn5@b>R2*yR@<OyQN!W#taM08H(leN4u3UJbV
zLIo5eK1*^Nz$(ruiQaVhmUGcZ9?}fu8n4f-fqyX}Q|4as!7(a_D-_Lz8A50baU5oD
zy!sbLL+<zz4TvG~#&84bu4<z9uqaQHPFg*I-wC@aXk>f=1*mo{s0aB}n}_j>zc&~^
z3R2K=t0y>PClV8r#S+5lHP9*{5;1YC{!Pvp(YVN%B0;QCc!NblVE$;~XWAfXoQC<r
zIatoESyt%c1Y;}>X0(JNWueNJ7=;op&gws}WF+I~ULE2RN#le?g;u}vcL^@RkXkdA
z<<EK-HYlBUb7=MBzj-Q(;X%{217~zESv}oWTpP<Q%JfuXg|B8KI5a6vPkAs3H0%jw
z3P}y?Rz`5D!+*oe!j-@z<&~&CdN#yJWFt*axEYjdaE62_Bsn@u%!SBDUc2a@aN~tB
z9RRhF?ZpaW+QKUacsO|CvIc=;RO|;5dsbR%OvpmYHuypm(me}Q3r7X?6f_vKe@qg3
z)o?Y!R^W{Zep?t5sDW<`8Bj-12C~n8sDBbfJGbVH0Na4~wS5$FOtJK4>9)J+ByHzp
zh$4_=fq(Xuu>RuwTeP9EQ=}sQUb#Slb5H?Jc21%E?+tVLhohNfXKmWdrc3HY3fVPk
zZpnmcti~k7#H46a80(Z|tvwb~6g{RaSrk1%npkS$IH`1jb#MtrW^Rds6OlBRC#qSC
zrcYDZ+z%ggxjFOY{P&(!o$}A&j!#sUGfH0eQaQyz<HFt)l|=iqC_z@IbaAW-UdE{9
ze@QzN-hgqTVdr-#06vQ{J55#>R&crOsrp<(p)vM~ac5l&rn4oWs`~C7C4>PvEQmqt
zB*5XF9nl)VQj(3^!L~yXw21r8T}D)ytGwFXbq~<7kbeYEin4Vio&+C6|4J1r{E4O-
z4fabFHGsSl8v<-a0zrc0Zvrg2pKUK^*1LsH%0z3lMFE9-in*@b86MmA9#&SGG}(Eo
z53=!h#C)PCh6SvcTNPs*eW#3JVA;P6iA6ES)pTUr?w<1g;DOZzD)&0Etmo6`cRw(v
z{4u5Ll~uu*w>-Ap3`2+do&`!Nb}e`@vf8_BJaqn8wY}JL<wQ#I%?)wpJjtH#h7r_e
zNfUz-tMI#DGW~3?Y<OK^sOo5Mc=v<AyQ)43HiIO$<ofRZthY-;QM=J3xhb`@QeLi_
zj?P9uo2EqZF<IGmReeUZ)7pGLlXdA5cG`x9;dx(c?5)cE&3_~#8Di`IRE*#{1C%)y
z6<W{eO2jt?RSRJKFt`Kv{W1T|(P{5pVdwiyWcc0b(eHKBwkWs>u6=P-Ch0nr_u!Md
zU|ZFenT77z7xi@+b8CNdb$7B?cTun+3V$++$@4IfiD*+(8iZv|1yWG$AUv_eq_gyF
z+9{sr+;@^!E4V(D_B5O}ieN``7%gCT-+Aeo^ZhirqEYaRKL5N$dd9RRcg%q^-EscM
zk4vEZ<k6?{iCnX9+-DY@Sl$9oCr2JrR!wRS(^VI+^{W$^N&Hds3+?r7v08h_ZLX7v
zkFVV&?$LAsH!gMlv|D2pShxMbvF&-(J|9M~y~5D;)Hy}WeQAOHyWK!6x5(!PCK$J+
zYVyNe6{uXr8g??doyz_38@FlB46ahK$<ad*7)Hy+Fl~ECmV)zk1sKW_;7XBQG-bl)
zwtY0{X?F(b@OpjOf1Q?Z>~!6{ZoQ-T5RrES9&l?vP4Y%JEm-D)H;eT7nPi+<IK2s$
z{le8s=tJXQrRMGzL-Bm-Exf#L)LpJ%`q#5;P@Ys>$+y%cr4Dc?IEA{-X9)%W`W(FV
zV-^Xp7hk3Xj|LDh(A>1dyC=~Q=bSRnJ!A+$RlA7!Zd#_nTZ*?o{!pAQF>Sikp<njv
zT)6I9wT%bG#-tX;vvgF0Yz$l=hEXZK8<I4w!qr}OySz`L5tjCymKTC}e!V71;7KbP
z|9=>Jrx?$|uG_b4+qV5L+qSx@%U!l@+qP}nR+nwtt~$MUcFs=D_vYkH*2T(m^IWZ!
zG3FfeHx+)YT{Z*P34U!RtKU3wp(Uo#K&kXx9y{vNJ$Tfc;a3#u)^|AW;|}*U7qome
zczj#RAfY*dBJ!;PCv22T5ITp)zWnuyht+G??HJ2RErD8R@@`*S-?3=6zB1XhGM{~_
zmKlH?;)V)k@Wupt%0~>K*yG96i46&&*pPAcklcXU<6ETxhfniRhrBvAz%@%%q>5e(
zQ`;IK_A8Z9HSDak?XIlcP9fQ>B`x(_T>RZglfT_D4-Ad4DNwyjKuM<X1@h140_}b!
z%7C(;*RF2d2BIvThk6$~T%-7xfMw#tP1t$p+O{rr^Yr$KJ@*yJp?FqU;y3047I^nx
z*4ZkbEZW((Wp29Rx-qwPPCABA#+}3UF)m|26V7Hzyo8`0UOwwerxy~n(ybqg@{WIr
zJAPrq5!X)-V%(@~>GgDTueVVvLjkn*bATvStI*dH>nsI!xw>_BRq(4+&c0hP88)8Q
zgUC32emy1g4a^?yRe-F-2kcC2@ti)Ls;r%5+jR4I>Nsb6XJ)tRqCS>B70NKG&|?6N
z^vGuqC!Um$j>vsLmUns#IA{KPdOodhq&>miKscA+cy^sjA04YqZyRL0yoYwY5jTx?
zk<ds8#$IHfvR_FJtn9&y;<MYinjye74hkp8SetH4@!D~P*pmpO&c$x3m1ZfLCNJK7
zQmwON^d|cBWq+CP{15(&h3S9#GZp|d%YR$#-qO}`+#EsnIjLQhu!?}4)wk=QL1aS=
zW{{CDlB1zsLnLx(69tEz15yw5_3p_b(2-GO)0$rouPC}YYwz&%@aPbbq-%k#cXPhq
zdOysp6l5r}LyaFBes@9sN0-2?SGB=nSk4^wJfUHHbSO@8s7a}JsQA}doW4JKdZA3c
zNYs-jQ%8YalS2!yENUHdp}g_Mh=lLx(Srg&6%I?V+O^(_?1jJ>*Sopix1utq3`Y`9
zpolT2sM5)H=)5U&ce4HRsCP_F^+-;|_3qWlFBeK4vUOjqj$isK13jN!^W<HPi-W^u
z{ky<)5??OGbu%~Uk#!%&G_j?;QzuyIuqqn7rK5Y{iP|ICPVoLPt9ALwI>UTJ>k#0q
z?OUQ%YRqER5nv7~P=B6;%VAAPGe7M>p3PU(VcJ}=?vhrWbe~<dY@VrcME$Tpw;<;@
z;r*2`t*d=<l!CidZ6Yk9onvy<R79|h!s6ptOhI5EhM>9s5NS!k#z!;jdN4Pt$y!De
zIm;xt%Qd}Cg&dCp-?*yp@5F*q<d;)E-!{&AoJhv&q=5};<<!qt1b(-3`uw>c;V!Oc
zSmK<Wpq_ih|KUk6r@r}ob^a!w3LmwyD{DlY^@Q)$k2f=6!OT@)z<Y^C!DQLY$RXR9
zBf3=wT7V4g=ps(uedZy>Q1XT(w5jI&Z8?0Mf-!Y42zuxL=d@$GvBvV(N#<RiB%Dlh
z9P&EYoWs^#RrGOIjrGOnpPlm(N3_cLyTO7o$)ec6$$7OCp5L}tCcYo%#&_FrZqD^B
zF|OaF<6h6t``OOz8NRc%R=y@#G3<@s66!}sTu_4CuJVW9eIlEUA-)R<K710s1KG6W
zvO`xkS@;bG1y$M<*9#p-=C{SzrZ1|89`=h|_oUklr~oA?z}QhS7Y9?fE!zzX#;4Kt
z_Vg9C$ze#(&rr_obWv*L4bn1R_PsQDI4+@^tu2BRHxJ8u4>4%pjqOzT;^x>SguEtJ
zsGNtZxa!|2eGSlfHFEIis~!&Iuyl%!RV7F9XyKLAb93<SqSgT_2j$BrzLT5jg9c6d
z3Qy8REncL9VGU_00LnaBO0~KZS*3F8+Odl~Sr>1Cz@G@x!`Tj5TNvE1&I9%pGheJ)
zUlf0{M^wzyPVbmWS377Xl@3&jjYU`Vt_iB4hH5m;d_JpLH3}H0ldYo-U!7b%f+{98
z`82mukXTBi3FUok)(52DcJrK3$m0}{_KB&N@_A2`K0yl(mYyFPaQ)-2Lv9x9*A>SE
zh?K+bhE~qymZ;lvWB1$}nAr*j-<;12ev=QqS=~92@Hd3bH%z8h8@Xpa`<FFRihDxe
zA>oTH&K>jY3(+%GqGo9ymSt(a9hklw@IQ5MAe8ja>osPD=22$SE9Qfn-|R@w%&H)>
zjNO6O6Y!nY=t&~)L~DiaqIerm`$PN%LpV-A9}M`0OpcduQI_@6+O}!YI<u4tH7Yz0
zC1tXGW2erq07{HBXUhTJr^HUple9~{i>eC1<9di>$xNH)zBOs^<@6y}k_I&;t3Sbz
zs>{9;pQImBY{Tp(ix!BF_eRwl;Fz$b$Nkd{x-)wEAOsjma0QYCju|zY#CAhi0nk3)
zDocbpt-{@pgnZfYDQviuy=P>AEL8_Z>96<JFKHqQ)?>B%yw#0bn3xSJ>q(IZkt_If
zOQ*OJHx73ZET5PGHy9i2EO9F<y;Tf*iIip-33kD$Z@eYe!i90cs-){H?fRmdY!D^a
z-wfbjzb#ltD~=o-^9OJonT!a5v5Krlo5gi^M|6*rOlL!Xz^zf%=Kr~&*vWV$#w;^T
zNc)Z!fnimF7?8s>$RXfT;Q*(x^De@t$_%rXA*0>`0~9PrZYbqHZiwyOGw2Zgg6^K<
zH5;?(0^1<33G?Fke#(40qD_m@n>J(PR+Mz~Sou)7$sUBteQy3*wsZI0E~UbIYr!bx
z@<N1@R#lh;NtOxMM6}sn1*pW}ZYx<KD8MDTvSoV4(-u3wwx*g2OkwFr0iqUJ;pM60
z7&wxwF2@>pG*j+F3s;ejVG3&ZTTz=)k31w*L9p9cntU!gu9;OI<JCg9?>0pR)tKAH
zhoexbIBixtf$_VZitjuoq6_nI8yO#5{tzn=x#KaC<$8xI9giU7<A(>rZld?J9FICs
z*_37a5Ihqe<&f5N7`Qd9o>QXqRQT+G7LmW%65={=*KdwMWJwa)8-gDJN$q}WWuRVl
z49tzcSrw*zh!Yn#_8B=3(*yvY`YUYqCDLJ^z_Ao1MBmFM0sxM|+F;S2ze!=t8l{xN
z28sa)<eaQB?tjs9a8jf<N>g!;gyUSsg6CFIPX9R2u+e-}`mSZdKo~~~o5{nSLDocg
zBu_AwqkUr}cNvsRsNRR+4WiOu$LN<XBs8*{qe@^qCG(t*6WNpg5DAFr{;NjJl;2ug
z&8S`2B2G+#D)DuhsM<<MveP9+wKdG^(MgNUMt5z)(6Jr`c_Wx}0KOXmrY5mv-vxBE
zotM%BWA)wwR1NuUUjA$pWF)NgIrZi6P!u6O#tN*l^tJ|_zI(G5E0~y!b6LW#GC@oa
z6vCTZS1xi7UdSE4ZgrsHbUf_tQT=c)Y#v;C=NVBVZWes?%9?_w^~e&(BWT~?>aBn|
z-i-6gd@8P%n%z0JcSeR7>Q4RLRGPmOe_0$gI#-HD#hBdFMLqUk+zGmOrBnHTa$R-*
zU|!{$ppgV7A3H|{X9RB#4C!xz1sthj+|X&)&|m(9>GU`qC62LM<d7wN(HgZfqcdA?
zcn{EEr=XI4x_$2X6Dxjj?fcldJ6S(kca+9*SNoHE?F9~DRkOFm5jVUM<?yq|inK{b
z%XMh)5lKa$$2^PVoUN%K<t6&ejCN63u^qL0eRikvirU!{y8R^{+x<270NtccqiRFL
zKV<10x$^tl@n1og%Zy&3Z}9r=B~D(H1cE5GgJ&qkqr%%$fv{BD=6OfLx~yRDi{^9x
z&$^)A`R*^gcfFsd_tAg(0&uVtiD{y`_#14nloS%MXJQD+9U#7WQZ3P!I&^ldIpT?v
zTxdL*C}upFt57>Sdmhddv*m5nEr8^9B25a$A0tT)6kwjGd?z?^eoYgI8vI?r8&E<r
zJ{hdxKiho>q$RR89A|Zjg|#i*fHf*ln+RN$%0~ce(Pu<W&)cZ18HxkJG_AjxpVSD&
zHpvFEG`IiA!mJ3+ZuuQu{RxUD6Uf;$hA>0`U#Cb{@8J*Ogai-6i4k4=r!`i{DExF@
zQ`wy$S}p%ZJlu=h=UrKTewC}5D>cSw@qT+zks~3hhm~r{yXmFFNclhk@su!`+^P7Z
z!8lCzH{$&JcU(Fgf$a~apX;uezN~|#Ek<Ov)!7{?*8wQ&SXFZGL(LDlY|1%@J+G|#
zJ2Om4ZO}N218d}YlH7MCe+1v1-{iqwwQ{h{WAmMQ!&ZHrdicH`0itEHB%nYMAKfyU
zq<;;6R;(zLjQ2acepz5(OIAOQi8o^_K4sJwF3ibKqO(#~pWQ*q$h`pSJ4@$5<kN8^
z3(T<M<dag;h~_9(CPYxYEKmgIwWoo}f(01}_Xjdx>An9y2wk@S5bI!OWo7$sg>JQm
zjN=9eQqP6Ptt5UJ2w0zltsK2)R(Pq3MyQJpArW#4SFvPp&?Q-KPp4*F3K~~5>r!wZ
z1IEV{?*2T*{`}JAmc#QxF-H7u)nRd13S#^O*W@G%O^~q`27TozLr)bhk3vz>-BDMZ
z{fccg?(xgyOXIM^vpvNw13@?x87vaD+jx;=;ggGt>ue#6+YRZAQ;Njw_aTQewrP5h
z3F;T~hxZ65o(~i)J%T}S=R=oYCwad%KZNQ<4StsSi8%pJ5ID!3$R3>$jhbCE<_5wO
zrp#!J^H@@GdsfW!0?9Taf?AmyyTY!EOs1S|bR!@2&A^J!W@gCiHF958Ke6ga(_CT5
zGdqzv@b>tKkyQ>=vACsLS93}AhTPn@pdP>>_n13UPA^l<2y#Dt`}?wx{rv?^Bf+9y
zl%YU0Nj8b=teTeTUi2EvG^K%eS|Uq@vnvbI2qd6)*VWO{{>~b0uS3*W7K6r5({%~a
zU(*$-o}>mOVOe5f)aeKtsi!s2{4&wn2Miv{(8Y)R6JNTN&b?Be@g!P63I+RTI=DeD
zxK&&#KYbr2={V{ne;?DA!PeKm3sp;JR*X03$Yo`<`l-jM1!gGj{Jtz2syuzHMD^!s
z|J|y9w&dQ4*Ej%&is03vYmN5&7aiRp+fxPL%hWKFgQ$+4!c%N<3rlyl;xcdzfFMmp
z3*HWaC^RUDY4zMqP6(wdJf43-zEDBNyEU`4wI-aBkgOsgl~6%|BxESizMa+BNVT^t
zwcBo!p-4@}=@QLs_kpi9{}e-oXq1>f69kmM8F({#NhZdG7a^5g%-<+VlOB*HO@`Ee
zL?AiA<|b}QpvPF#lWvIT0S0wW6gG-FywFB)dSSl@@=P-Fn=TLj5et<ee;*7i5d?C>
z2GO&1gJ-?K9%P*!3P++<e}F)DV*@^DpcMGB#mGAJ>uUcPpuGi7Ylrug$&_kS`^RsM
zkh=-l>?I9LduZi)HLKsWLjm3=3pFj1B~U#8<9Z6G@|{ptWlA9Z=x&J~$Kfl+rKQ3f
z!5v$uiTQW9x_g<r{`I^5qR-W7)~v0u^*guD?=^$1mCjUJ$j*^zB(itAwZ+eXO~)$&
z#OitDD3F?g5GYfDkDTg>@^cQKK44r57_?uFF9%@HL9iG}QA8l{J4n>K`P1t`!-YZs
zK6e1JSiC-_D%y#k4kHF^fk^fF3@4699pVyl96@1Fon};@pHU-Kci`;M-F(IbAUr8l
zJRu^^Mvyo#jtx7=xCxYfUIvId5v)f*cpwmsHxW(U_U0EhlDgapAyN|KHd4|*YFFfv
zCP8^xlH=IB^NNO<)J)?F-CZ-4zk++PCA=gg3C_EIE9k7(eNFkPY#L(U(*tl%fTN*O
zFEC6n7L~En&3Uu$p&j2b77*Aa!{%XKcK%5*L>DQJS3MYSGwhDPrZpxMamk=!?Tkha
zsCR>)f-C>DL3_6P_wbQMMr>CqfxoAKKk-k7|8oynfEB(OWcH&|PVucF{lZO}X;&Ho
z{_|a4zGdcYQ^oP>^^|1EP4ZeGsJIFf<Cl}PfvBVXWelS3M}N?rAG~2&NdI_I-e(>$
zi?-`u$N^+ACI2~Z_EWxx&pgZk^om!;QNIQf0ldd=_f-gIi9iCbg}hQD^z2LsK4m=!
zzU$u*-5DJfyabPrXdccbl&{AAU3@MNlXkUN$5|$~p+TuXC&s-aD7u0!I^F!+vtL&M
zu}QXXD@Q*jQqHfkP#WfLw1P?9QUSRZ-<W!&QDFb+H~b$)PFMge|8+lj>(?(^+);F&
zm)g}HB|-M|4{||5oN^b`f8RzKf+8s*uDuDpFvHmqP0PcD=Zsh5qH@6zS#_$Jp4;=(
z*L^nYjt*5NAi3%{ZzAHMhQ@4<n~iF5@$K)<^YfB>@gPm`>fq(_4sG>XO!2I29!kug
zO?K0hk<j7ekYYW!R`T8bdrL2`jc=zviv_h0H=&J$wLNPZ&%=)RwB%w5QucBU1#~3s
zVcIn|8(VAbPcHV}C4>7d+X!;8e%8HQ3-)(1omLJgtymdPE^3H!<NfgayBE_Q-DgNG
zmfPFxTTf|$35rGzwv^U$^RNea&E&2AAMq;qEvh`k#e}H3E0t>0O*|^FI3Vv@95Sk&
zjnvV{Eq05mIi0$Vs5;!vzo-qmDrS<ARoxk$-n7_YXDkc!bZXCg@Y`kyk?PLWk6?}D
z33a=VdyZCd$9x<CO<P#nFXZG)T}9N7f9V)-89E5o<p3q;DX(VlK6-pBUK_@DjvL)V
zr#v|+f9RYVZ9@Ggj|ilkhB5lQ1m+g2GGiVP+X>{ZY9POrjXD<%cR>WK%;7dH3Ccah
za!*TtH*vi%em1_P`(~1pELUw-hq!d&Oqx$hn%NlPZAcEg$k>Pywb99J>AoQa2;naj
zY!UlGmNz*C#`UZ{PuD!|YXUC5OI=Pca(-D&q1lZ9CE|7EV_(Qbe6=YimeulHvo{ZF
zN51v`s*ZDzNo=wSVLqtXf-lyLA_$JB*Lg9vIXPHW#Dd59yFy+`@0cEK?#iUKjWK0A
zmQ+S_Xtljkl`_GS#`TKdU;oD1^HK6UrNyau`(oM!jMkjpF!f3CCL<qh4xyEhwGZoW
zDO}t-?q)Y|icQLlNc-BRbFnTPoE>k2vfAu+sKD<YH}&orsh^H564O?z9nu$#f7XBo
z8PN+9umNM#eGCx~En|>fj41OrDn=Py!(Awlt<PbMcG)iVz|U)d+M=T5b*L9`VAXo?
zC=zVD+Hx3)#2-+re_ht7LIG|4WQ%<fIuip+k0G3F0=s8^@|y!Pahv@HhIf9A(a}~-
zO$j{Sx9|j;3(n2Gm&BX<Xs0HpyVy8QrAnP`e;~2z_X$^Pj;cz0qTHeGM@fhKbL@^%
zfB(LuQKIPm`or81RRX(eHo6BJVTNJx_)~*jB*r?*{ytHSzq$w<656Q|T%<sDHf1^H
zC1mvk7hMVlts_FE0|Hn`5hoK_Z`+ZecDz;|1q%I8EfOx-SspwRJ6JxY^1^RLgLuaU
z+f3hb$n~P(R5aVo03EG5u5AbV{y0p2MB-Lz@D@*t2@YS!2dfe4^CCSOTAI}E?AfEn
zSM-8(a6*cRylK<X&;%vP1}@WPriLn%L*%hjB2|0Z+|J(h$lXD@XCzekS~3*1OaGH4
zphi*P9T7`n7pN}3Wf3;0s(knl!P-Qh0lK)siP1mE%@o^qH32i!QjbWWqOkVxN+NN@
zU;zicyU4m}kIEa8GOBod`+Cpvjx0#RDk%whO&5Hku>Jh16|rlH!F=Q4e8E-<-}QXM
zpq?<4^_1Gsg?}H`5+eqRP}dU|Njk7Esg+#u)lR^bgq;AmL4od^tEeg1pkQ%rey7A4
zfpCNTahKyi`6eTft!?}B#}?-GnkTj~FV|43=1XJxD=KxFqxu3pZc|K|9L#I!h}|5>
zVo{|cweYgP{s`5omp3TEn!=F&5x9i&)Hq`C(cBQi&C?aU$Y-CkFau>1uO*I6ov+N%
zgpWxmiu+{%njm@@xPu1@YD=zJ6&KV%nX0)!!-%DQ^rw+yip6w0GU-oWnaiU!G--mS
zFE74$HtDZB)>X1-TK|O(s;(TrBrK@eZeTv9)l6JFh`$W^=rs<YS4%<d#t8;jl3FZh
zY8czAe+b(sj}cUPM~BfQaH-=MUFPILti?~v#D~RM2%;MlRA5SD9Y6B6L?W)kP4Ef@
zR3YJ$-xbbg@rWA4$I6abaV~;iDA{ld!LEo;^4`=TD`q0{BL0n44TV6TvM5axV9qs0
z-rV1~pllrN5K^?Sdvjs0P-GO6iTV7U23?V+w5lWJSoO4qtX>;EBg<vOC#*LKfj@??
z9gsd`RVz^2_i?@8!xXM0T#jgPI6O~qkkI<VdsUPw%R46J){fkjH$!AW0!<$#FjF^o
zqo%$an<q$uFqpU7$BEGf6~uuev3Eyu1-*kY1fLh)Of|P|VuJOpt8=5HyIvhIL@-m}
z%;USmx*9hHgwOF6^LePR8zrEw&xUFynpr9=zN&_iyHZ9uIT9@=8es8TDZGTqVe3#I
zu$xGhL@g)vXRxRzGVB4~UTA(=64}DCQ$mpV4PUNb29|?#!Y0(pbi`a9;<Id9AbHj`
zL9KZvdBMq}GNU!q^uvpDkWv_+S%$S%Ikj@{GFUbTS&q?Jk5QwcG>uzu9@ap=zL~<U
zDbM2Xm&m+liJH=tMM3`Z)cFw<1Y<of5{29bEo|Bn5pqv+{TYHVxbgyWl9u!q2Ew7V
z${J=25%ifSBMzs!(r|!Ql@t^U07%D4p;(5&hM^BZ7`D#tIxDVyl*hGKfg0o47)x#l
z8ST1f8KGVr!Qz|m!m?9Ye_AKG#JKNG_P<>#MIi{!cQ~_PDX-|%Ic8;1)2vcSC~px;
z$JJ6pDhD@T?K(i1rG5-nc<bODc!a@&S@Y=-sW#w})wX5nNOlC8EJdd#<AV9@UZ9~#
z=XHULHfAOp!3tbc!*)lhcyQ%Zq^r!yWTV{Wu@U+dBWvd%^m0S&b!VH1B*DSgqO6yX
zcL#I3AeN1I_Q`}D?>f{SUJ!F2Md`&hHVee;l-t5{AM!*`5jt((7WVC4K`Ycb*#%rW
zarm9b1<6x_QNaQb1@V_Kg3@(VE|~a7+z_j~wpWEZH+$#wtpV;Wz_z9JaTh>t`^XYe
z-#|GgEBgq$=JE5uIeUHGf85@aV)VplNsB)8I3vjgh=enc$7i5Xx6a~Z(O9%uVH3!O
z)^H4_55Z9gxXg6)PKEK<nW8*ltAWKf%{NU~1-<kKaHf3`2Z<{RT@e>nY!QzNO<kG@
z^SLV=X@j2*NO^P#*1E0EkAA*zJMWs022GP2d8-O_BjVKmO_1T2=`;9xIm?so-*Zfv
zfVFom*r(febb%M%+}yu#_yXQKCwCYLi%(Y8)F<I=NpNxbcTb`Sel=$??=w?3lX%L8
zqJo6-;ja(alh*~h4L+kFa#$Qm8q{9pu^VmTp_*pLF;5-)gdf2YUXE|pvWQc$!YZO(
z%_ZHDl(BKW$3jjK#Z={6Ev+Ewk=6x1W31Df(T2GUa2RsED;z|x!rOFfhaniYOR$l5
zP4>QVPv4niUUk?!Fz#rYJflp036JrH-sDb3%-iD&x~83R3Yn9uLN(%B&R38J07^y5
zi-v_Rv}V-avh=9w3!+{iVYu-IwXnXH&~kxaqxwvR?g_RTDYW;d-B{_yF&kpZp_mz!
z+*fK<Lw>t6hGZ_7&4s0TvqnM`1Y!|Mqlo(?6sjvfw;j_=1;Pu4j7p#@+{MlE?odNr
zeR<ucBrWp+-_(bZ%E2pRz0R%(Ojt-U?<h{sgr4ilw-Wpd`l~(hvE%vTH>$K8hwWj#
zJ59+=GW#hbT7Cn@zdf7&r|xC>mw5cYs{{W3P<EW`{}*M)2KcWj_S4!MHhAsG-nq5A
z2ROj1WRWX^nt~};&HkLUs|ayJw}CDt-8}Vtq-NsrFE@_zh)2!h0E;Dfu)3wxas~o*
z^oxN4cyVl#K(%Gq8l`qTJ9Kge+LP}4mff{-t1gG-vVGK=JV5*I2=&F#K7^i3LV9D)
zCCIj)0^BDxO=iTPoN`OpE<}|a3B2a5>q(RY3QKMhEQA6Ap=hiC0%1{-=?t(SaXzfH
z?4bfOQ}`q~`TjU1?OnQ8L_(N=d{jbGA39YrPzh>j7c>^WA`_1thO7#&dB8n?V7}-P
zse!aIzrnkF1Bg)%H4T=-vpDz^5<nfC`4!JDa1;|kQCQODm}n7+Iywpf4Pu8ql)l@j
zGH(|~N25If2`Uk;Dx}V=KWAo7FXYcF4iuIbg>4n7#0-BABo+}Kp!7NncOIGU2iuk`
zm{Epug3DI}-WORW>I{3Bg;)H$K{{btHcEwBFgQ(p0FEh3I{v)Rl^S8kk4*^HP%r`1
zR!{{<i^;1+5#iPt7uK!}ZZK_+gNF$<kdTVXf4ebs8(ieb?+n^FNrfn}%wZ%8e1Ilo
zJx~g5f~)@(F9b79+`fMXtVD@Z!JoLVjtK-VU!NrK3FF3W1RRhB(FO)u2{ehKpGx92
zSZjbpes75-8jc1ES3u?iA4o-wLiK9mgHWByf@E3+jQR=_*{5kI-IZSq6$R$1$Xxvw
z$KL`xay&zS|8iG<x%=a*Nn>lzqIr9!qxGcMD)gk6UL*I<*22?Tfq>_1vN^vKW2eT}
zyeALuR0rV8t8)9-0sCnE^67vQ*~RYNWfsGD;I$$?UfFf^xsP`5ugdH6cLT@oNeDv5
z71}H3MfIFALf@>t9XC7azXStGe!wiIznWb0p`(8YrdjKPj&PpDoqs-8dJTTK=Tj08
z^n1B~KHmn(&mx~Jc$j>J2q8#u`8|N22Gd+#>XgjPT@i=HSvL<pu3xSAd^e0hDtLUJ
zg`IESYkxiMRmjFD_*|K8A%~o4Y`~|u?4JBvl;Q2eaq}kaQv3TQ@@RbFNrQb123DgJ
z&HR)b6Ke1E5RQ&08UKms5`Lt_m7JvY!{oN6^Ww;}Ttlxm|F=<hiO2L)M<#vt`L*_2
z`^2o8PtCn!a&G0P&d~{tfX18D5oL0&s*m#j=cV@3>*&PwlRwHhY1yKGQTaYjK*MlO
z>9na}rhS@bFwF80MSdtbhRuWyB@dMzC39{FdhWFd)mtCTHxC+|wi;e811P#LR^MND
zVnm`Xc`=AW!EXc`ADNfYgcKpq0X2h#AVU@#F8&v(zaj@_ohj#_+QhV3k5IaxL|hn$
z4OH&B8wf0S(noPZQ#Oz+2T*_3tPl>^$?Yb{h#U}v%RVe?Q~|4(LlF9h;jg(dFf$Nk
z|2{Zz%#xUSOEOV<{ZBA`EYS3p(W>}pP`qtSb0JoL*cgV>DL5n&!&{;2(#C)6S7;r(
zCVAEyj5foP#QA>c6bd$TCqQ5XSWdQc#ymm0i)cW)SKH{c?5>wcNZppADv+cw2l!c0
zNLhC2E$eL;Hv|R_hD=6#@#(H1Yz8!*To^=Q<E@~q-*6BZqo%|EKDs5KLZUD+?QN5w
zSJs}B-8Bz@vOub_F4SU!5Dihz_}?eNJSJ+eYoZ1AWnmdnZXgnYe^nZX(9;kDP3oZF
zM_TgIiDGYWnOIb3%_S!T{c+)Hz^B2kM@m^<1tutn$zG!jqMGukQS-tJbelFOa6pn2
zsK`Z7aV#nPP}6k9uD$b|q&Be^%E_levY@l-F_(p7GWno3!g*ZE7T1Lb!?rm|CI@#@
zco?A49{Ztpv+~T^+W&BI@m*;|9%*=Ua=-{R1<k6drycFJ&t*MqQRT$s@JR;z!HY~{
z!-_CY+I+hvIXXkT(=HHcKFmwzr8AYP+x3LUP#ghsq(&1pKkx$|(C;S$&OdHx*u_Nw
z@FR$dbFKo9DweqI+rR9_-Pz|k1Y4>Ns3vMfF_m^8h7x*?bK0moG;Zndu{5(v>J9C5
z8^=7mP_Gfa8Kt6l_1h&`OIO~T@uYC+Zq!fhDe<IO8N%_nv|j@qcYvmS;q$lw%txrg
z4l@6Ep@_n%hL+9lseqod*^+n?bcnt$R$K@zZSD2<GYPtKVoANUe2ivleEtmDZd{!m
z*Xp|3+voRYG4wwE((ze}?D2GnMBa*xu6bhF2$r{US%=dlD9XIsn>)S`>kYknwE7~1
zYd$-UG<mUqYv198pcig(9&0FIaN-}g^fwFikLPyB+NK$QSaPs$_{S}NNMzk&oatOh
ze4|`lFZuPf@wR_pG)H2i*|NFY0?mQ2gt0(yvpE>tspY%*yU)d0;K$)kiBV(Y+VIVM
zjXouFVV1Jjbv8Dp!^Z~<-Rk?^;j7r!!CC2Kb<v|uoQ6yeJ0HLvFRltok%FPjhy;$|
z09u|jrMp0(e9~Mm2V@lhc4;kt#pCOoDPu&*61x&Yy|Te{G}~m*lj&ssc=XXU_9^LE
zxNm#+0e^4E(@|7^I9zkV?w%YvCKGij;h#XbQk#$ZN=ip+ax|l|%Yns*A!Cvnas@_c
zJ41XjX<h5<@o;|jTl0@mr#-kHdAB3@jv$VbN1eb|oe6UQ$7B!3+ArTEj<s1zvX%#l
z#R?)TiX0FF19(r2e-(4C05wwP?V9EDT*Aa>T`@yzoC$GDlQ9}PPhF~pHP+cyv=z{V
z-j|I+Q^uNfO`B&74YSJDIKvRDwqT4I1Sk>I>S2fR=e;$`PMhW%uVEVr>zqi|l}neE
zCZC|K<(js||MR@&PK(hGlnLP(W7gH_NXx!{x?1;znkW*smaedtO^O!(QQR`*lX!3a
z{e|fWo*Mma{c-e=SPw%eN{{beLWOQ~{y-Fsz^kIlM4o$H)kmO(t*0A-{5&Nhj$zri
zy2TaGmK6XJ!=v-{P?#E8I~usx?N5V>$YhrDIWfiWem*^~wuNx;bXS?Hck>bGaaurr
zs6)Ip93S?$8HDlIFHWWI_LpSf5^wpkFpZ>GqAkgAQ<e3B1*nb<t_EpcFhvbQ^OO&b
z2W#<>x=dyj-M)%dVsbEqVP=))Y7vK)*5N*MWPR`=iQ$z(W&h~T{_<L9xrG01pNNwI
zTj)(~aW+Y;ERUGD98dRTAS+%LqVZKd8tJb^5qlSjfcxXOi`<uNKfsk#|4S3Qn*@ba
z`R9%mzCEI=o;N?QviEkZ`^4nns5_)JIf1R;s8HTMvo@8A)xr16570;(*xmn>g{=Qr
zJO5V}{=Woc4vzn}E48HkuPgO$*!V(2-?5-V*z9*2c98{QxRrad16OlQmIy&|faIJo
z2nZX{`f~4%51gPMh&82s(t05K>4-i7pPug)UsKp`2@(&N=jrLSVKov`>V4HBmX0-1
z@sj%1_*Cu|jt(se0s7y~Z*R($-DQB)3^7+sv{Z$fw>@|J4ddyrH%7ot4qrEyrz3@d
z7xMTRG!}das(Dp$g!)Eft`G7&&bBvhIA=YBhXh}1d_74E4#DK<N8?XUc%3M=Q19Y_
zo~HT(cLvRG{tr+-Lb^#VR2~z1tujQJI2QRtGK+h&hf)k-bv1tJgT;YeeN}2XIvtn?
zcc#EUjXivN(pMPd96m~Qiw%qQPSeW6e{pSm^i4*T2mi*>fggQ98fCEQeqMN;W$Sf8
zD6NadL=UEC$=!;Gpt`>T^*)>#PQ$y%g42T(#bnNzu*N&s=u7c0Evlr6!6($woekpy
z<`xDbd_?<zK(@xzC(2i)5L3u#zcM>zr_PMPbAu4tOi0Zp=g>Brf`(?pv$<4xU}c=|
zZ$e|2>m~KMaW94*S`HqHSt4+urwcCu{_6ZOoj@QuhK8hz{l9?nPw7LDVU#E3Mkg#&
zXi~Q8oCf7aCSK^!>6#^f8=hmu;1AAlhUD7AnaOjD)9~+NW#A9W;fcf>X~I|LxWdtH
z{RA7CAzmGDg(%fCUlTgPnGpMZf5pU8)Uz^GV$@3o8Ucl=2rEhV6OsQ>phoN4q5tZp
z@D`i3J-vbdqL-ZYeyzMS<Lch>C$`>K;10(;^eZo#CyN&6eEu63NF(0G@`x<iIm(4f
z6wl_)1|>~M`JNk;r)d9<^$|QY*Js5c{|W4$@;Zw$%+<e#j|}D8TI4P@YxI@zC=kVV
zTdl5*^w$qG(;vBBhyxX+_g+ePo@l;EwvCbv9MHOo6@do*2Pf9RJ99!aZ4@L^PR?pc
z0E*+{ujcC^^D9Cek``h-;(Zl?wX$6sI(1+WXq6;385oxpLpybQdAoTiVqXACeF{i+
zH4<G`BxOnmMHYZkv~(LLM==^jvlco=`K~MCAue#SA?fAjR{y=4pcPXCr-BL9(g@uK
zZw94nO-u%~4aTO#2tG86%+OxT)>TYPwQqQRT}-|Du3rdU{fnT<=C0=S`js!$GH>4j
zo?v4C8Bcx3_z@GMtu2=>HpV~|4MtnBU;vqSyt9gm*)w1<EJE1q=G+myv0-j$v&O8L
z3${yMc3(eRXn4A&To16u;pLg?{F=n@Y`y*5k+p!&N3EV5>Oq6gLa?cqix%y9hJ})l
zucGNPc(ufZH{;4U%SWcm*z40jQ6Oxc3dpnyK52!T)WpmrpFyI}Pm3;=C!wk{?Bk8@
z8qZ{$@3E+#VYYBc3aW$U+%pogQro=G2bwsaYaZ{&SMl6&dE<b?@EG7aDA>*c{qlcm
z++ZmSjLzhEG-Vx(bai!4B>a<EpZhF${ET{el6=OKoWFQN-mhbfNUBqn$FnwAwAoyy
ze&iD^qiAv07*|sC5QIi#8PHO;&Okfq1wY5pr}s1d0mz4KTmP`?gw>-7!8Jp+$=QXF
z4#1^Cv{UKE-zDyoQ|b~N2DVAc90Mms2=e1Bme-P%b#<FCRO}tYjszY%{p1^FMblFo
z_Ef)|sM=VB&-TcmThHJDv-K<W+_dX9HAsFssPf%t)!hM<R^kXSXCOWU)93U%HH8%0
z!2$JmM7)U(5>RY(8;DXvZEF3@-Er-jRcT@}MTf*(idKonI&@1kS8e1W(nR{ijO9Mq
zN?J^f&XpV9gvw`nHxI})4K^+Q&h`Xl*kRXtQlqLKazm1&H@va>XZ;7g4?5eiiPy_T
z@Wq)(MK+JVimX@A)MnAPhu7Q7i8l<{JK=C?`7Vor;CTOaCO}96<w&t$SeU%M3QLIV
zo&grS8|w&|7G5i^P5<yAEyeY0t8p*<tdyb@lF$5;Nhp?!h19l@7JNkd7M7q?Y#ps*
z7{m~4U6h2Ox83FzPDZ68lv6O|LC5kyR~FgqmJvB;`xihmmq7@?-#bnC9oeb=R`?F0
zJ(C%9`r*d~alo|@14p1Ci;VLgD9}vL%O5c};{OVxO~AEVCavJIni#r5Gtkl$+^20b
z8)~5O*sWnfVTDGA&h?Um)w2t&ZLfIaLsV}}ZrJ1?^A3=I5EnV#Aaqf(ZAa#dLS--P
z&RjB<QA|vA;3)+!c9SY`+Jn4%O_ngg4a?{JfB!kndNonMi?o6q>avWenmoxeDi@qP
z4oj%f)8Y4hIy|FuA-b;YS1?dQQh`(!p4@Rb3=W)*WoVfXk;6r(+p3N0y4J*jdt0&+
zf3aIqq)rdg&cAe;pA;pJWK_Q(2~m6--Xuu*JB;FGTb{rPe|=v8Vu+|tII!rnOy=)k
zOq9UX5B<|1|Adb?2aEyB3WwZ*Ihb$1@PQ$7Q82EdJAI4h4H6LBD0ziX9i^#^mQQ!m
z^HR;`@>gD=%NV81cQlAHzOc_M3)cv~h;Ky1E00RRk_NhLq>3j^pDWUf=nw1+{`(@&
z5Fa9(C!9hSTSDM+R>;DTs{#1eAM<&<1f{L()g6uD;~aKufWC|-t4Un9ly2_Aw0mff
zvd}~!=R<yCuA9U>OGoI!cLHC4lma63upZFY2p7bs1N!<!r1yqS(i06Wqkb`_NKcq;
z>kF}5B!JKv4!`BY85&z0yl9$DYnyc2j&ipr^bs0DZ|TEfI(7k65MB()%66k;)0Io6
zGwPh$t)jtt4n6+_no+epQjP`bIJA7?+`R&3vbWf7z%f`W6fNcfjt+gn9FLo<!!F<^
zZm16k$$QzWO${IGIu39Vmv5*Ou;S{@`OVJ*FM_Y=mQ<%TreE~#CKQjCPz^bEa5mnO
z;phSvGpa@Y46Rz1aac{jIq2CCxa1<8K9N0ji8=-p{NvV;9uXSOhwy9e)}aetS!46h
zCX(I&GLlJwp=df)&jqX1(n(^%1ttx$7Da&*sFJd2LlA6H84-F1VyT>-m6D(`8SGwc
zj-5Da!RkxzU5;Oai}6$rS?+8C8CbSz%)>rcZk&-H-DE7{&_AS^a57vD?|RUMLx6=J
zgQ!!Pv@d8R!M+>UB^_)XwA!{?>!@=mq{Cw_$iX2NTpy?EB#x}q)BfyTX$YMj#XXw;
zvILs@RNCIx{Tp)sem7z-wb189Q^lwn^>M4eI<tAkUm9+Qn>k4BU<Hus0RA}|UU(tO
zL!%PFb*Yx^D#-ebxA?|huYh5zWmje0{oxhtVtlTHJ3Eamq6Rb*9dappz88hs?CNb=
zZ>b2a);?nX@oR!D5Tr*RFoZ{54fg#)haQl7ng?!R3eMonf?6B>#*$Y?xZ$O<5N
zE*{dnj`Ao0aC-VN3-_4ru5X7Cxj(#Q-wdt=qq)T#O~0V?6<?h?HpY?EwyT#j@2INM
zM^jgr72k@G(pGCE`ppqqUr9~g_cp+(@aWJG{)Vj%z<ev0=kCUWC5*64<o4*+Nm>0p
ze3&xlYulO6+VjZImg`a;n+x&dZ=W<goDZG)<(>WeXivG#M5AcaB%vzmo`Dr_?)82@
zF~AQjU@i__Uh(7nLy_aR@6T3kYOjyu*Z%lZr0JJ#KbED)to4_rezif(n;w!ui@?2J
z)7bZVly57P2)Uc$-Y7_UjOjNaG7ZXqkjHHQiN(Xk`F}E7ME}L~xcYd)ztGk{7L^@Y
zB?%Od|K`41x&2#$CV#Z93YwG@oyt&J!R6FWX}x(<-KDe%!_e~S(bEM4^g2nvwn?q}
z+I{su7L`?4zFD(S#DOxY9G5ywHI7rRFL%>$fMd=^G_Dx`)&59s?ajcUNGn0*UHNN+
zM{c*4$qoz5Idp*(E_0en$ho)6PjDVY%r<F2G0i+8W1EC9auuhn=Ogn6E$ImYi}!`T
zmWASYU?{B}l&lEVp-uwx)FjHITmH4a?N_0w{y>oir7ho~crNdurk%3`6OpSyOacn*
zFoSNTsTD{|hbp5{V#@Y%@U%04ZL1DGPA7npsJd7x?$WwmpW8O3TZW3&PYExyLx96N
zQQh%WnWWzEq{D{9WLK^HHBxkfZE!J-)+y75K^iF7B8B&3+CJ&<;s9;nZC;KCHZna8
zO$Uulw+i5rHDb}%$wextS)F473*?{?t;W}EBwCL{;&*1Z_m~F`2}3(D4-!Tc3=Q)+
ztSGkwOZ{MRS>e1xFtA+XK-1HyfEzg%lGv<ZkU11m@?stsO#3TC00YfQO=Uv>J>#TJ
z6N>l&Q1_wGtN=0}12kSnz3v#})a^)S1&Us9y}p&r-Dbtd*ARDakL&pJ(h0ZanO$2K
z29jSwta<5A1PqJ~^lF3(!~|A_S5k3PS>D*VxB!!Sq>wIwK1iNlmV^dN^Q{+69Zb#G
z%>dDX@=%vu2yUu*k!TwO;+P$7_!apVm~SMB5e4V~M)cJh$a7<g1KPhGsT7HqoQT%@
z6ocKaT*^H_Df5+xGyWCfRV+_H*2Q|MXpv)Ubvf~g#m>>nNRFw(s|%Ce-VN@srj$WZ
zz}^i)ncB<h5Dov8C70MB&$gVby%O&!7#bY>z)`5*a0g+gj<f(#TNq5x9W&^}7csK5
z&Nj5n6!T`;r56#auiz$Rc`3)>Z3}I-(qLqNgkT~2TDA}}9L0@mh+KR&j@2ck2BYWS
zt_>=|?x$phhZSou^ld0Rf*fey1y96-q<`Bx?lc6WhjcE$GCW^R<4gp_-ZoLLZqpU(
z`C@wF3VGD(KzDgv_SOtcCHwb*rrTc}GpI~^LkfF7aJco0qI!gk)}2Fl7(3)}YTrPn
zL#61XF8M{8x3IM6$P(WS2ch=td*Dft&JDl_1YTLYn8|W{H3<+8P#Ta{zUJhe8^dWm
zojZd|K2}44u>5-p82?dLz@1xa-c7uMXFW|4coIPtCQ-M#n=1#qy*ZsLQSn%P&B>e4
zzx90ndR6X$D6KH=j*hAk6HOV==&BU-YfRMA|G>gxh7<fxAN{|8693ajv$Ooy(5~)Z
z|9mtjO3#OeneAWIp#Bf$R?QT?ZE5Px2$qkuY*6}ngi7Oa8D;yU9R&dJ1X;0URN&Mw
ziBMhd$ckWLr_e(GpdW$_gW1W8gZ<q@vp%SN__7W>#tW!O_>zY{CuLM)zajgpH`TaV
z6&k*Ljg5p+{`9RqY_C(>di8?g<LLekWB_fsEDABZM7a}FO4M$1>S(}FWsz(|)1&f@
zYo<xMHNZMvK+lm!KZ)~P6KR-SX(m$JYXZjYSGY8#4Q;m9paa{V!K*)D(IyGj!mXHb
z=Pg6=R9sUF#z(&r<l5Y38d;tcCKZH^VIIYn%JCS))!|x!X%vv@s3okheoK8O%DrFS
zXne$zSkT*c(&oC5$6$^QgDJ7VUHW7SP^{|q&53Wqxr()QR*s~<XYP;h&^P`lQ7k0e
zde2NKd|Pyub5HC&Zv))S+S+z%R(_G4V5`jvK1>JRyeE}bq77SHxVtrO_iE5WbnSlV
z1;7k5;&)Ql;gZUiTfp=M{T=Be!bdhB*!3FFD2a^x(PMIpM9^Pml8<5nod(}afKQ3V
z?EMjfq;-QLL*BdGZ9jkKL=xrkvgUiWyHgNI-$;uxCoy=>qoV;mf4b^C+ZXsrBk*6&
zfSNoI9271PZ_2klPNh6)X%c0IjqNJXnsyII&D&pt3*@ssZcY8(Gi4Lbz+@`_B6azT
zU^IemX1oU?LHm&wU}2aXZUhroyr-n6GUQhyHy;F{a@*U7!P`QgR49srJ&ZvWiMzIf
zp_CU$uRYf&MJF@$*TKOVKiiQM+S#585TLn|c?Z?Uz6Za%79>IOX_+W+Nf2Sd)iXH&
z(Gq+m+V>mkYUi**lu(6Q1a8UR3cLZ0y*nBmw4+5G)q^A6ewsanG34#(T-&>n*rOUd
z>;>$^9uBwx3$q&@8MK2#6cq=K`HeY6vnH`%EM-0#D82!eBL-P81^G)?1MYMkO73(`
z^ox8(2H*8J*62^%ldzC2y15>tmT>uYNd&NNW(71~=I6_m*EeYuctRp?tTpHv(HXnF
zGQwHjbX^Ze7zn=AT);Qe4}A(Szw8NVp2h3N6`0D1xzl?z$;gNlt71w+_scca9Q&8t
z=~*vk{VAl<Lu>s3c{yIZ>d+pZvHdzvb{L4R<91L__V&;|Zy1Q?dJ@wg6hpq684cDd
z@Qfuv>A8g*>`Jr_)@2N{TO?&p!z=fcVDj}-sxes*HdO0VZvX3sN%kr-jmC>gM~}9x
zs@~mX9E!2~6XYiHHSYF@C2qc{>o21!1vTY*zg0zlZo{UEVTc;UI^xki=Uiu(RLVC@
z#&7J_m!ey&9+ubFq-yW(7<i3up|VV&A15y8ry;g3)yo{Oe*w$X9z=DRdI!KUh-GG#
zZlBEZMV-dg3;h~RQFEke5B>OsL-q-5W*zQrF|S_U9rxon4tY0el0Aa9l6MY^$s@6;
zrr4$<g#Khi?I4Jeqmw^LAletbA}P9oK5CJ8W}Wi+U+NPt%_Y&h0vg%<Vcll9NxRl*
z4RZp9n=f0GcauzMwXWwSwI<`ZV|1(W>h{r#jxa4}Gx`tGN?k>S5A)E`XA9K2BOI6u
zyv>TG&rbDBJHd40WV-6vKYS>#7s?X;Df;wI81$z|LQa$jtooYjjrYe`_7RfB^7j<<
z*U20)_shr=CVJaRKxWqkg0yxm@|7G;tM8p%(Zwx6+$+x*8=qMIL^0Gp2}0u3ug0K_
z5H2Lo**-batJDAdSN+4UC=fF&9W*m?=#>We?j3I))>(hOjoC_FCC>=C^+(iwlcQcd
zXJfY!f4M7G1S>5YfLOZK9QH1={GN$%W(=m5x=**odI%M0`xqez^+RT0y**Q#k3ErC
zdg=Iqnujm6{7h%7$~;UVh^61&(Sj+RQTeBQw0-!oH;AA?o@v%PMMMI_A%1ErU}0_P
zYGZA@p9`ums0z|m%l)fD^t7AbhQ@U*&{hUe33us80aPN&`T{Q%Iu`(iLwP2sRaLXz
z-Kk5rEq7p7H#5<IfE)AIkH<F=f*Q)z1IPe|6Y|C3TsyZ@ULQuCb6u4(SvxdQx($&s
zxfd*Sk)RxcI-|Ap{-f0Cq4vD)agk~Csne(~zB=%D_?wd@Ym&e*P@8>g7kQ2W;}T5z
znp#&qu$q)^wv4d4_M}gL9GO3}BGC2k7$sysohpDIV_d}J@v)PcZzIO<z=Vj1Zf0Z6
z&;vC5Nz<Oa>zgx^&Sq!!Q`a<4Gd$z--R0Y*A#KKYpfk5ZSas=znp&XyE|os~1*tJv
zFXwMy0y<oT&|zpltrB+?T9U)xFqqayzIx9C>x9u-d{)SU7sy@R5}t51AhYTn54fEw
z?1d|$4S*UA3%Y7hh_@ob3O|!qAb<fc=SFY-iFQJwdYZEO>rj&k!BG>&lOJnTDO5hx
z!+F%$>sdJt$x5WfoXb`MBL_x81fhN=<{a`D7y4(GN1b0bpCY31&649KQ?36=+6rEz
zEm6brrIRr|C-OQ1rxTy+vl~O5xUHlKx%7BrF_!@_c8VpOF_dGps`cS5bKiVhMs8Fk
z{2n9r^IcnpNR+u6+!i@mYeZvDl@#chj)YK4)b5Lj?s7~jewQtu7_N=uP~FTsCjmZ{
zECLXa3(E1TYe-8Po@5+&@AahwRaQW$Ul<((TPYB9z60!fZVRC-&$8@t%snN2)zHEl
zUTX#w<pI^r9OYB79F!mi4NL<P0*cReada;Se9KUlR*f*yq#N2%G0+Q<wcd6S`VbW|
z<T?m;jZCH&xpl2pjW{yBd)5(5LlIhcswLRzmxHzNO6W|jom<_`SzuaWr#^boCtb|D
z=B0WIqhlMsqumX29=LjE_61AnZ>}e@(55pd9TH;UC6b7HlzZR`IlXN%I#`qaTZ+5S
zpmhe@r+VvDZejySq<M|%;~;Ki(<KY>s>E&$>wi~OSPSRUWaJ=R>uaAa4F5ss?+9TM
zh`5hiQ$BjXr=Y5C7{;0laG82a4xs)s$vEn~H+Q6u7iH(tp&YS<eX+l)V<r-$=xv@@
zhhc@cOeRZgBa8cH8T>b;lt<-2&?9N^9?pjxclnB!-sR%{^5r$!V`S7$QhiD8Zqce;
zHgexb16|J9ISOp;Qv-$%&Jlj1r}(c?<t0;BT<H<R4jKXXn%kIF^1Cm{ZSL5~w|V=M
zf{1|zd@HdLysf(x3yzFM=uN)HcNY3tW}F$TMAdcDZDPmnU0l-IiIR619DP`i=TPt7
z##fhj1clxNxp|K5;6j1ygf6G|r0~-OB9m^j^;(AIlYm`c7Ybx%Ajpcc0(&`id6v6T
z4fNV)Z8VYeUJ=|GW}@z)0I)#44AFm3ip*^PQz<e7*#GOD2S@)pE(?-K|CC}`8<Fjv
z!FFu*x`-Vf(~+D@AgCBHqyepvT1!^4G02aPCmX4lL)K8abCaS@!OGO*!Nu9xw;`Sm
z7^mBsC-W7b016oq7Pgfn6CWa(h%{sd6PXE9HYDM|-d>x4epK+Jny;WUryk>e*N^#o
z2O#75`wUqV8nP%O4BjvZqS54LkP>fdZ{Y%nlvvG94M7Luf9=%SWC#Fs_j;~g1Y~m8
z({oc78<-y_;h3yd%u1$l$#Gx;SK2v(3nLkEV<GvsnXftz!idDr(<l<5pthSsuy$|+
z63-Z02R|6gl*EUrK*%T+h2LBBy8ry)es3&(cp$C#wJhxkn>&F`nOeMXKu44CH~<{)
zI~(bCc5P%Q8p45LMawdWqcqU(5uSF;qd7}XB>G~=M>nhmzW(}p)qe;)61%{^`rXVZ
zibbE$-pDz@usqrJseHL%7lM4`!5A{AoQ7-rx;F2|lF{>H`3Q6{``63+Y);Qa?6UeN
z3|epKx~Go+^%~T8r^XL1k9;Tc|6%N%f^%!Tt=%Luwv!p#wr$(CZQHhO+qP}nn6Z;R
zzr9!OwW`)z|NoAo=Xi{ITJLwiTfZ9Rgb_g(CCMS$D3~qW2wZre_&s}M!!6G{rjEVs
zLUM0<wVrC+p9a|hqkXQCL85IZY0ggQD1L!CJwA|xwvDpgf@9*>HyUhuDgPytF5}t*
zXuJK45b>KD`HPx*U1%J&Hqc{-N@F0_x<dYeXscoHgRT}H+6Fd_9IcV_PAYN(*23xt
z{4l<VC!~nvM9x6>;8k*mRHhyW3#`%MKYzx$s|+fz;HmrVH<K2C9L$IhyqX2htuiU5
z@We3>892$%?P~Ur>EQjK!!2~R{JG<neQ39(fWm0OX<sXi<FtXV(Mng>zrN!&Wk|-+
z397a>pPPAu_w?ulfYq_GSZ4~nD;hq=FfkPQlpDD%ub#`Hp&1e+BGX93`s1m|MJGak
zUftN(IkA>sb>L9z=*!FYyg4#S$;3@%Ir-r&pd_9QUki;3<i+R_#0=nUdfO2MwA0A=
zSd_Q<WAw}DP)-)-C+E*urufP8H_pwx*1~zM7VxwAY4(zs(p;h14Z_5q&qzGRf&*Z*
zj(0I8?jJt~vs0Jt4<{lXwRIonayW78`($Ud;q(%J5>0J3Rwx1l>TQ|;?IGhkDJe8y
zt&$O_hsn)sBt)5+Y?l?O$MX;wg02J^4DsrzU);cL@Un-3g9rd7;$sy2<FI}o3i^6A
z5ktYpG*vM6MuYb0UPR*w^thNsz+>Huayu@tGGy5x0rcss!wA}NUj;PWzmH7V2|#Mg
z{>G6a(Ofac(r0`9%A=L%cnQ|#G-&6C^w7r#Aqe>@4MRaD-*GWtFI6v9zPX@^>7$`B
zGbLBzJDrl^47O=Gy;kT_3Qj3*+wRO;=@U?SI>$l~!p8{eGiIHlGa|<Hm_TiQW{8a-
zi?xQsBUZ}tMvrf&-MesC))P28E1@%BL%zK*N%n?JyrKF8TUJv2@eC@}_0n|dkueo+
zkZ4t&XK4d&*FGsBo0homi`7*YXMd@-yAb!Y71x>n)wK^>IYr^fx`XoaC=f>vC=Zij
zK2+R#MHNeP;OS?TDXt%>w|x^^@os=u1|B;T6S{aeUhiq~(SMV$Um3U<xbNijp6UHw
zy+w6AH(B<oV4E$$bp{jOcL2!D<9u+{$0=`wj1kX4xqP+`I`(Goe6x9Vp*UFIWz}#s
zISZR$NxFNe4;v=%%LbdO^5ULpW;OBvfBGcd)*m0BEMX35*2F$1w-)WDeIA_lVACLe
zEe4#<M~n_p(UU4N(%FP?9x|$nV0?>#k%9_wQ)wjK)6!d6r<(Ly8hcE~yV449VgoiK
zXdbbJ6Rb{FPrxPl=#Ft!NMTYZESiMjzHJyyKHjT&fRc!syFq887l)`9r3Mik2Fw7&
zIz5NGS59b{<7JCqXWzm)`nDgnwKe*X>@JW^qLEW{9NcNc02eq~J6urZJ)BG;<adDs
zEpW9qq~uegT#}OH7_Jp=$Yybo2`{y<I7&#i!Sey6S_H;Jq+Aj@X9OaWsQkbKvoHkQ
zC0BcJTG2vkPiGE#*VLl44&sWfk?+Tu6J9jMNKZ9{L|ZL{1iCXPKLpAd&1X>vNAlH(
zEX(BRXw71H$hYC`(yZZqA~1*57u(TP3v9C4Cj0|#S{{+yw&l8drEn4XkMta|rf`t;
z0;eHym|Wb!TdbrUqK)(|tOHG)9=4ziKTKf<0hzTbLB*jjT0n!vZ*10bEY@|DPJu9y
zw8fd{U&LYot3K{2GaLen-C!v-#|uBv#e`}ERm!IBz=F4BYc^EdsLuIXCRg~q_x8OP
z`z&0)Q;B~_^2iMBD6QgeGGz%gGW?Ew0i{Nf{(%p}#PkpRP6j&me?3^a*3h)wWI^_s
zt(_}`S;D$a?WPV#awA)qc6Qwj#GthH8@jP77X10*iAW+GZ>S=%s0Z|HAddfpg_}J-
z#5cdE$sa!+KR-Cigc?Q^2``Kxj?5IYkW69-Hx4k%rb-#VEo^*PcOwWw->w}+vJssO
z?X=?jcD(x<ce1}<g&0(0(htucDu^tO0Ut@c{7BsWDH=!I?U5yu-yrfuqrL?c2uFSO
zOzq-%y9*MrH&dnptVg$(u%}hQ+C-167lxNa6aoG%n^aKP*!jc~7^e}tko?13_yqRZ
zAm0L6n`)k8)A*_RH_pnsvXD_q!x8q6!Jc)`_`(NWQLZuhDl6KSiZe6$hcp{;NW+}x
z9S_t-hr62gY3rr3P|<RY20{reAd7udNQ=_?>jvwl2l($3NHShkDk)UlLoIPZkN%4V
zD3K`UxE+KMW%RFU7H`#D=Z98yl$o#Hyg<5<OV<A+^P)CZlB0%JUOay1Ma<NoE>50z
zy<5A)z*T`ly`jtNaDZS}Ruq_=W=|F%$4jJKcxXF8c%*0df_rqXR~=R|eR{1K;o7dk
z$ycwQZ)>~d))FSM{+aGHJAd$|c2m@AsV}JIF{*S=q2U~E4p1|hh`E&3<>L=Z`EcX4
zwRx~<Y=-o;UT>Th!{Ih0NGC>S+YxJ;kIf-1Jk>UF|I_;E?bOFhmgwq6d3Kig!p||W
z(Jf>5H|9iEzvcb%0JWRfo9%CalI!qI&XqgN90_XS>#f$hY2q<l<}wS0SYML<is4Y^
zT~PEreb>BfPNw{4Pfz*pEfyw2^yweT+gNtW006-<oH_MLKjnwfNLE$T$o0y~3|F3t
zQ{SI2+E?3Qn~LvAX{RLj7Vox6Ozg{p`3l3QM?{&tPj1?HiNA5H67HjPD5HONy9}2$
zf?g4HcB)uk%wv>OQK?l!JFE&<QQ(eM*M=A#0;?O0;oE93`?2C3S{-tZo1`Ko57gF4
zB0@~&s)RH~NQDRrilATuy6j-aDft1?-6QSB%kuHX$j3!+N8^~gJFSzaPfaAY>DQ6#
z7g&NQ>o$++@Hwml0nSM*q2i!FqZv2-Y81KiiK2MoW%wjEi#!I_v6qpAAiE7c{Owlu
zf*OJhQHl<Mm+1X;rgUV`dcWzmMN^az17Ep;n~HW$t+C%7{$j(nOE7SBn#gAmNjaNI
zP)MiR^o>N5mZV;kGXoqMc%~xAD<Y@`6s^0Kg#-uA7cjGy;jur(oXci44EO?z{WmFI
zs>s=T;j7RiDhnqJ2T-?6!Hq}&qp_u6-Y=?_kJOmqS}JBtC6>({r_2nt=?XNR_DX73
z*uWb00{I;IAy!+;nZJc(|HjiUmb2Kv`>xYT&O{HPch&9y-`6Obz?=DB5pU%*kJFa0
z?w>as4T9fFB9ydti<f{m53XgJN=IC;XL5NOgmK=KDtvUYL>(CQ8+%g9(1$x?i`dIy
z+)w2kEFr<z94r$QS0z@>Tmk$N+Qm=!CBjhUYU9RpL&L1(S3BeLVZ&p)nB!-P#@sZx
z@r!p^bO7r~KL!S$yVR%HO19blI4}zx7+p*06<HO~hx_L|9QD+>q|^DN4yiP-ip>>P
zh1%mnN^g+AFeDd(ib!jF0^`qPs<5R~q27DvHeZKEi+MDo)o(XfzXxM|&antd(1UR;
z*=GDA|CTX+KW5VTRmrXO$NRQo?8<t6X5_<n?v8+>PK?Y5=9Y)HXlvw+9aQ2LE}rVI
zMU!-E*rYc4Jmn{kL3bC&h;Pf?OSNK7CtH=xJ?QOame&&a?Xr(xU}@k@cK!ChS=UWn
zLEf5HmJhGUB7?hiKQFZlYd0>*Hax*Ulk_d!?i$FuUfT<-KOZc<yXYNT;%JRfoaY9U
zv(UsC>SZa>7Mq_cr*URm*oyGa;j<Y&sh~(+DyaGxBjHD}b2mZk8NEz#?6{yCxJqQ2
zq2C4h=$LN$OLzm0Y>~!)zhK)vsk{lg*>vBR5O#+un~tppC0p}?0jI1ersOc*fgsG#
z=&Db|FLQhm*hZ7EkU9dDP#*`Onjp?vob!o7`mf^HkqU%6z2Gllw<>Q>&2#6n&zmnz
zACWigku&FaTJm1rR;-;hS#T@F`qmeSYCS^X+}3UfJ#AXy=fotHg*e{<y1y8JhIl&~
zrNTR6nAkhB71gG62$X9J%G`jBiT)W`1#H^CB4Ai?`DBq<N=d8JV-1D0=a=Mq3s;o4
z7Y<1Sdk|=MM|DpGY(K{2LnT}&oHIjHs(RXZTeERe_*ry}aKV1p)V781k_`77HLft2
zbX#iN)PzHQ>ASsAPtBf&)--Z>@_hfiZ)m!(C)Q2?wBr0nwytbNi7lVU?dDzGNlt@+
zd6N_LS`y6g<tq|yi-4;Sq=OybI>(DSf0GTr(csoDeA5m1(w;I3UY3|pC^7(HgFpl2
zT0+FkRh4)kR1Boj@TLq;howA^x8+qqDNa%%=iH7M>1ZIHVF{ZwKoCF_M-Ai~gUJqH
zUJ`Xp)|40m3y963kK)g2zTYo!+~0b<#mT^S;9Fxq6@7z?y|q5;2W)7cKP|()`z^uW
zTbroG@sHEtA!%PpWcsB02EeP+jlMq>c^R?RNwS$F3~F2`c6;a{qn(gFv!nG3V7C-@
zQYjp+Sy>c~i-y6>j@x?E!FJ7^Nc-FVACP*SQDPSFxd?Q+Pbywvf<V5^Qxx;DQz}&7
z=gvwd{I0=RMu<}cHW}|k8B{K&jn=N-cZ5TyT2C;lp7`BFd)LdA-4l|S*SY5;_q;^Z
z^cVm8sLuHJqW8Zqb^cE~Gb~L1|IQ3O6Eow#HBSz!Pugg)LT}HinyuS74Tq9J&;cC*
zwt{HjiFKJ-8pV(1fn!V|`v9EpzQ`SxW1B`TG)K~aE^K+aiNzz6Plr7#DI^vpWR%#5
zI}shk7o`YA(<>M#L}j(HL?sj<N4bHLmotmECM!vD9BV9)uPPFERT3&s4NEi#pp&Ny
ztgxwr<?=WB%`!2g6R0SX{z)%}Rj*GG0nB}3LiS==INP(Vs|5$g)CW2Q(Fg}m%EJ%f
z=~p}eT2P^vuVWbmKKSM<aT+v|coE_#-Uo0#hlN=#=44U|w&h@2f-U4=O6#Lg6I!{D
zs6)0m>G5+5ooB$~0jB^R3hgxK^MVe86W7{u7o@kRje?}@<Q}9mhqVb$ACV9l9qJBZ
zRmkwfL<$l{0HvC^4saT-K#n;WQG;o+3q;WXxcQTgT81%LyvK#8qkjyPh=fWrH3oz}
z5*C2CLc>>%*{cZbxg|t=2Ml;k(~w8}FlV1p)2O2=frI68w|^7N*2#!pA!SoZ3fWoc
zw|@>i+BT29(f-bm7vN7B#xMXNX;jSh)bU7!%eadNek_K^6-=a6c5pkK+u`7^BMelz
zSD2Fxq!oOt)TfLx6;O&|qwHVAUb$yDof<4VXo12h+{vLX-aKdY1pT6#MbWAHr$a`b
zh%F&UMO3u%SeOHaNLIXd;r@ZPm*fyS)zzkbU~KxhRMu8SHU}#tLQoU;w|q2TG@E5q
zbH+&kd{ABryNCv}C#-PZg!%+Hf3Z<5D+1Zm)i|y{>LgAXfKsT*HNMJqRGS3&hC~fD
zGN6$uOH6%*aU*)AnGLd`v5|Fjy~22R&;kf2kE=DlS?iW)RI@n_qT#R!7Waq-xu<pn
zpYc(^29kdPbe?K(o)V*aRI}I#qQNnLx@A~0=EYoCy~ZTshK82q^EZk=q8PCeg}!CE
zICKQereMo~RD3t5P~P9)22}=Y!SpI4Auu#h*?Fm&n9pvV?P8*$=IkMuA2LVi+YL9T
zK7E3}cD(rk?4j@3hf-5bH(zR3(axEuX?3wmkBz?G2)?Gh?oV+oyWBoDJ({^fQ=U!^
zusmJvYf@A%AFhwrKc3#Wx~4>Vt9iY=KCC|2vpfC*$2G8Iyd>6+ZS$_Lf0J>=lYWjU
z*lTp?T#RkchPys3WU3hj8E%rD$#I8Rn~{WG9O6@X6fNP=b`+)Lb(<x6lnLPs6v$qH
z-xtWMK-?E7uHYOpH%T0#*D6mQKd*Go%wLS&JjbegWREW+o!2L*+N-x`cNuPxx<664
zr<P_;qehiJ<lT^LFL3SFrmUvk(ww~D^4j?5QqQ)S;;xt~3c5FX^?ufI@fN=gTYJO~
zyH(<{O|ukQkpWtq!9QRGbC~;aXUBMDr`)!XZU)hLIl}hGZc6*4JZZj6Is1LGAg~vT
z95^z<uI{@B#Wii>-&KwW3LLx?h{8Y|bKE+vhwOsdp$|^~PBFc74LZ8t=Ap>I|5DbX
z()!cWcf)#%-5M&WHt1fZ0;M0Xzit#%7gbP6kJM$~(rG!M?LB$hbI42nt4Q}4>n7-j
z;MArnlgI=66S1Qc_F!m*8kCw0x>z``3>W+>jNiWH9KQ(Hx-BHnrzu?hf)q0%9+gPh
zO1}ApD<UKh##q&`s?8`C!SLAs!w$ScyFmh4B8hy20=yE3Z3ownp{B43IpBaoK+r%=
z3&g-5#4trouUv5@4GjEP+0bA3FtE{}N~6Bnu!;cemLN1Qs(PAxDf5<%z+0YAeoh@u
zc`;N~4qI1Q&KmA&ql0nWH*hoBi+N(XOx3U(<C?yc>)HH9PQMM0=?RxvlP1U`kY`nh
z&^pJq<qa%{9r84QqO(<G{tj%@yDERQ(d0H$gB|WC{dI!15jo|V_szt1dWZF;?u6c3
z@H-Os<C^&LGZuh&wHK;F9Q&o=g!b`d-tK=_2PT$(xbmlGVg2_fQ?>sFI!z0K^Z602
zX(Dp|KHihEX6Ghirz0?GOco0*!aCh`MT3$c5|(sH#Nk*B9L2-=81mT_*y_A%d$GCq
zpm%>`LC)Eu+7JJOO8GaUYb6IYK{&p3tV{Mgv+>P|r1+8b*a_8)ce6&C`>Vl?mt9w?
zM;ch{Ajb^uK1dwFZF2f(5$(pf?s4akD$3xtbGz+MX-J(&zwNn(q*u1BG1%2QK`&8H
z939j%^FS@oOk9MVL~W|1k?!a_{cS3k0$T0&u#cl9SiEnp4Dm}P*H?!N<7JnPkKkm#
z`L;5i0UbS`Y}KERa;Xk>#>!Z?fsPH0mwW5H&i#yLQB!|CeSuT772vQn3r(ubE~+e<
z9Vn+UAvd98xx^Hy$hPfV_FPK^AsNZPwuiwnSy!3Cgk;mz36$xg$5<tXB@i33=>)Mu
zzdJHJAF1X?{Bs3jpX{2cX_o4efmt(>Zt;hKi4ZtNWn<;V*GpuZaX5@tR}$T?u}I7e
zLc`?eURl!t(QxBVr`xJv{Wp{b%s1Z*;|Cy<0f3ofnL(PGBEl~y=8O(fp1a$H4wm$%
z*g(UC;0fX~WkM%a7#Sj;p7p#Y>p=V<%o3x6UX5CF`{rssFJVzv1w`L)QJcks5ez`2
zR`QuG%}%ot^7Ew@8`7$5Z}ydpIzwsW3~S}IC>H@ELrisa#dj0Ko9Rf~XAJKX{7~M0
zP*t^O3LIETGLqv2AMH}s5?8%fU$?|SfRGMVK-JY+T3#*M6SUJkS$NnQ)(z%fwX9yw
z-Yc5fS)Dmk+i4L~pAetNDxg$;U1$rG$hNDL`Ohn}=@5Lyd<)9+37q_dI#j*#stSii
z%9PHDt<&R{l4D~FT3}S2b0vIW6;@a%TDU+Wg6SaG_owgu8Dw82cf**CN<mCrSBJEz
zo{V&00NCV!Ga)I9<@VdzhzU`uFL|tUVF*iCL0m%r1UWRh{d0_#YV*~_!({N1!=mO<
zk3XOWE(9tFTf;=|R4U#Y>Ednm@=<Hqbz;DtCi5}sJLxB+V#G>RG6y~*n+sh06gOwQ
zgvopM$)n=IeJ87O6NPq%Wh8IJWr>dhOM}s^t7x{U4{&JQLFWL6WB}Ow>1o6QU#9XW
z3q|Ypap&7X4IUK&<3>e3+!Zi4QHU5Dh{m^3GFWT686KTBF$4Iw+p(l8fjHHnO?g#E
zzw^@hwJ77ZGqEt~HxcCuaum2o?Z(vsUx$JaJ=G*cFn5yd%EnnsY^Ju^P|1gZuyLI-
zp<K^^vDz2G?24LrU_~)J4)@Ad@)`Pnp_(%<oE9`BeKWHk=>@XmvD5w5q`J5&*B;()
zyB51vXW$AE$^iN(_Xf3ZDL*xhaw&*h!Ws<#;ksZ|ck1#43=rEmWE#*}p2_3kH0v%o
zCSZhPs>*D#uyT#kH5dG0|I$oe=7X)MyeOeXmWB=b+353Wh1)kIP4+OQtV^ubKNRCI
z*ssOwvC-wuP#aF#&@LtM9<#K%VGx}iEE=I#<g#il6=oq}><d+L!b9TrQaZtLx0$@=
z5Ikfz@)WUV^=KF-^~)aF7)rNN<#uUtZg(wRn8v17e7)}JD%pe|1I{Vz$8*T$Dx2d*
zCnC<jF$lcx{l$bBv=&lU>>QSD=s!^fE~^A4d#?gXAwXH(;M-g4OETzE@u9BGvoeiv
z52H@@ZF?uG>4k<0#U%?j4jWJ%DM-fEKOzsjT^`hAR^t4qXylau<JOvsYb!?$ZF^n0
zo!n!1*uu#S=gQP;btQ>0qhzA4qQ1S`n#i`7isZD7A@0>(YWc_THEN7?5!-ZMNT*8T
zBX6xp#Z*0Nk(DbX2p-J)3+a3_n<wuUa3L0``|JEVZKpm-ydKPCaS2w>7W)YGB;P(S
zVhvW_rK#=LIV@G|9MuFt%1Ab+ES(Qnl8tfuLSKM<6lp{rrxRDq$$5&d^W3p{_o=zs
z*&ik^^_-QV#XsUg^T~~;=G=SdYrf4EQJc97HUpTQ%}y>`EhX2!HwEsCGJ&I_Vjf~Q
zV`XcfJQE9lXps8JQ()0kD@GT{9^_MQ#<dKPs@)7OnM5Fm;0nyJ@-HJSdmCB_rq3cd
zShQOBo3^5IS&o_j37dEI2eJ51;zP8-Qt7ZSeE3A#+6PP((4d~Xs-C;3;M~-mnOrUH
zkI?SXCj@y;!5rTCwfNy?iz29Sg5dQb2IUxtw}0^u2~PX|Qd|Ld`-i&5`VSLV`u{A7
z{lCxu-SfKrKkAyZ6tHZ<MRoXf6l3-FMuVf6Lmu(ki4p;Jf<wml`;7sAc#%?ca!EE5
z+I}<b)#b0@zz;vLT2b24LbOs5;DAPm+%P>4v@<s25h8vH<j6xk4!E7*+L+mqcm)cr
zltZzSeXr)ar`N&9=`$macQ!=4NH791Hc5ZtW2BNGXp_nLPB^Z#!Szf(MkLaHQqgu`
z;;doFlE^)a$IUQLN4Hg~WyZ-#nFM4bN`}jhnVV`xL$W;VeTObeVTmlzc%>*PeubHt
zQqo#kn$h@p60U9@UuN!3wo>J7B^J#b6x`Ccg_US;uUVMedC!PLLXGE{jQ777O`+KV
zJj4KhPeOKmf;*BX1&<_J8RLz=#>JB85W-Q1V>L1gnQjG+u1bmC<oQ2p>!n><%T8RA
zs8AcW619+nD%&5g+BTe0d@Nx~EgIu<k)oPf8&*B5TT1mxMAU}r+^YEo6f2wWJ1Xvm
zFO*Dl(wZ_XdDoWVOtI<&FhYbT6w5<_fSh>1)(UZw5AD<=3=o;0+-Msrg1_F+v4-<}
z3xM>Du^<N_x|*IW=C7EuUL0L1`QzQqn)d?A$2mfhtyPr$$q{4+PWlIk_VL$pLMn;B
zcRDayQRI_ch2+-N)u%6KOj5hoUx8w|X-B)HNc49ILm{Anlp^e8u8!jXyxaaXIIddY
zDShK09EHs%KC`StNBh)0Xyc$+8ALtiD8gHwbC;&;*+C{-xV^em37sKAn<1)l(Qz3!
zWpC45#U808x(Gu~r>6uOIfr{BDtjW4Tc~@^XLW2w5_M^!G?LIlX}Gr^D&<G-F`ag2
z+E)x#5hTc#HI=w8O1NWSBAG-gPwvlV*9v2$1eXr3xl4<Q$O{E<ZcKL^jA7^0KLYQ}
zA)@C4Rq4(&l2lqB4g}nc)}`M_=UZrCX5X!~QuxvdDoUg#%NnM}L}%A#rdpaxQx1L4
zuT_kB*$Ou2z+c`qvPQUVW&bI&1=zkAQ*9_EznWT^A>K1V@EHNPs<oJ+KNC>!k@o87
z@Nsvy=jP_*Jr|J4Gy%h3P*kagqmlJ_e+x}IIcp$9Bgt2+!#fA5BrQ;*_8q@`C(&H$
ztb?)BCJnQJh}8Tx&DSK@=hy2&aq=YDkje>Xks#O@@@}&4XX_(nP4mrs*A$d_Z;fND
z8;HF8y&rM>#_}0)F_G0oAaItn0TA;WrWMMAsH5eR^ICs>pN&>^#v@Dc(Zv0_1B+%K
zvSca)OMZVxk&V5YgSKCpb;j!wz+siUBjxXih$RP=woZ|y<rPTPnc)W@HrrO80yw54
z4mK5!miA^fo2*2o4R?&dO<fxCItTVOXss{(6K((MQSwfT#2#$cZh4gP^5H!RR+DJZ
zeeoVnfEsCnjLU)SBn&$u-s|HG?lz1~GcueN<tR-8qj5lT8xNi4G!KCvnqCjU$ePFd
zRIKEilZf-nRIa2oZ^}$}DBBJ@$e2EH%Z)0s*Of{VZh+x|T0i}rLk)BnR4Ja$K#6E~
zfPu>)7|e97J^QI{wVy!?wr)xux(@oq%R8`2=fTg}QUuD#21(Pf>5$$VFRT0qDyzKP
z?pbc(IoEi;Ed;{zi6EDq;^)o*;8mP3ZQp_QRhzxt6R_^MG=$W1Zw`d7m;=|T1IkZz
z$4xlbal4iUrPZ1TXD_O^tRQmWKHrJPUR{K(!G4mZc@%oCnMU|Wy%ZeTz8i2D`?d9Z
zEV60kI@p=?y=f<JpN42jr*tDas3SIr93OvKnDi?H?0#Lu7Yy1tZLqwQh-<0>o3HH>
zP8vOl<LF1~{YPOiGJ+g?a^@#hgua>!E5fPljTR42Ir$&NoBbc+6zCb4|24+t`oG1S
z%!L3L4}izR5`*(l>Y}OT3M&Ci52AssSS+>ZsN^qY7HW>fINE|(n$+172#^XD_xTC%
zsNcCSP_+<kasI)O8mM1=gb_gsjh{+A0kk}hDkkup%Z>N@?pT~HULi(RnJs+b&P#iZ
z<de;tn<FE}2NPm$=+`{;(eFe8NR!I>kJ!J`y>#ivh)vp04N(Jx;)p8wN)_-hPfK`H
z|A&X9{g+}wQJw~e99ndH3$THw_v%2uo31!=zbS^)U&?`l#tf}aR(E$=P8Lou685?M
z;>t?Z&a%5Dt+cn!5#xuyrH=y#w}-RSN-Dei+mthyBc|eQ4%yWRDjP`HuXrLUN|e9&
zcMW6MiS>Cn+aAg6$E_xl)D(yAcXHbdNkt|AN$423jfE%(K#RgO^78Br*lWJ$H~XY#
z=|rKuIP{V%d9!dw_G}ReW}T&ET!xzV@@taXmFUcz^a8s>>*Lmew6a=nyDaX<&@e@k
zg|f|MKyOb&NroStu5uF9_hc(cm$qr40QLkj(2pUhl8I`3QEa`$NxI;~)%JFZDo#_L
zR%7t>xf9$rxt4DzWSwn*Ah?KMdR_IHTZ^bO7rwthp__jJd`4|5w{I@5><bk`bYy89
zW>gL=hyRBBx)`Ylwme<VpbFcC=Wpy9uUv562k&68CL3{gza|!wZOvZw^E<ahx^T0K
zU`8$kjH1*KMgXn@6L*2iU*5Q9yjqg%{x#*?p@Z)fTjmlU*ur;P&4-JP0(J}62m>pb
zua~}p;4eu$i74hkt~TJEKuMA&2OSY~a_E|mY$%Z*9yLzBMn%c`DXQF3VrM8FAJ}ZF
z6Q{RLyN2EhK=|z$1Z*PlAx1!*c4Cm$8@S-!wW^RP)1OBmn+iZWapYD{V@eGI_T2SM
zr|iU(8{>nPz_)5ZwCB1>ejW<`d>6Hbu}VeB04|J%5$qz6%~_n?Py;&0lZ^I<j1sLb
zE{W3s?pJF)wVOEk@l3e<TxgiL;s+3;W1rT*YISy}`&Qz`)xzZZE<S?fp=5w09AaN^
zE?0ri(RQ_RAR+gI^R%d`xoL~J)E9(wHzmm}Hw0L6LNWHS7d~^OsN%!j>YmA1Eg8a$
zbBE~kMPwPfB9-!iuf_LCxjGNFMM}KgGLS}8R2XlbNmfAtfa9335kLB+JfjOYGodED
zZvGG|^I=*ocOKM5#7F@s6kj1at4*7rqqAy~9z4{Gk!rt}gb?;in1*KoPov3B;Z_=1
z>TRJGK2nJg$CRYfFBE&;RToMy;uJP9Vf9$c`qftgLhyZJhnn(jWT~mU77)7fiaoVW
z^Ybj37y7fsY`D#Z4r1$`hHcd664IcH8>dG$R8mxUL8U#h2|+Kc`ESRp<`?#J?8kMZ
zr$5GGLd8T&X7pU|_(?@5l1vH-Cgw?BmgM0LX0(L%4U2}qAvn~ZVR%q`U-L__Fv(Ef
zl7jtXV54Szf@5hl6xw&L8Axl?JV0#pm%0b^%>F<I@@(tg6_!lE%^>JKiX)cx?DSbY
z_Ex(d(<tvdFTQu$@dF?MpV?MTN2j|N(o}d{a%gV4Xs6zkbk!>GhQH{1Dw`d>!sCR0
zdvY}#rkW0<Cxw3AIr*}oB-xQDOVP~h8A0S~41Dx0HjcHpek1Afs4M+%$z-Pc2gzh-
z|1Tiyzu57*R+Ih@n7jK@bx-WCWaj=I<1CK-HdQE1Hr7qRLjS9ng7Gxs<cx1m>U#X4
zO<J82i!qCL;je4jTwU6GFk@pV`bW!0!v^=CLXHE!r`1Nr4WyL}%2vqfwHAo*BT?MZ
zzTWSdawNzLt+8c;!&N#LTJA!JFUPIu-y8?<Q3<n(qA={}sR|RI8n$G1y!DJg9BUy8
zImE|FZQFx|(WQx)BprC(3<rR)Sb~T}>jbWtnBg@Esv=o>8*oOh0lv^!MnmL-?4%h`
z07w_nk3SEFKd*-m9<5Mio9E;=nOSyctb019GGC+`7aNDKmaTZQxV_(?I}6*rcebRa
zOnbZD#PvOsUEdf(6YYq}S&bmKERy%%3*nb-J~ZcBQr*`F7QC9+?G__SF!mfPjK-wl
z%#7YYh0+i_fzDRwf;pdQ(&XXPBv7g|IiQbU+ik9T%3P^sXdfDe?rLBq+ml#T@n0SU
z8`zZ)SqpSg{Cm1vk`JGC+CuyZZ?Vs*H}5DEA;zZ|L@fl0<<AZk?SY9?>;0oyg}>{Y
z+NKSRE72{wDR&ratR4U&;B9~hj=#X6dpnOWfK;2Mxs)Z?TJ|RkZ4B$>4-m9YwB=RV
zkhKDiOQq|bzNW|I@i2IsVx19>kN+-8-JVL*`2$y*aY-jKX*}A{+yRUz(_*6CtW-Bx
za#F$5IgTlWP94a3X4C%4yzGEjZiGmT{+oSZtjhL@vcUR>i;YQi&b#FS^Y!e!2~ek7
z#7Q$uRY?`j-_aGhG<{_tkTJoeJm4XHZYbzdSYE~*vdUtbK=(}%;<H0Ag=oIyukR$|
zz){=TJ>1Y*-EE_9V$eSytMdb^T08msDi46$B#e(tP&p+kR;z7d#(VAKHU0U<jTh9#
zn|Mq}^isQdsKBwC--?U#l-uh1vTT?{2XpT1ovyFsrgHYlJ{IGp%pYMkr1tEW2y7KS
zGwbO}{*dQXyvnw6^Aj^k*T7bX;{3)<&5#c<r~tSi%<8VN>(cHVw(JRO<g8gilc#0}
zIV~S~s5g<A_*zUV1!GdhARgQqB61H?jSaA|1Q*02AzFzXqG+F+;fsy5Cc*g+aNwu>
zF#QPvlfDrMHErSvPx?}<F!6D0LBdIW+0i&XLwP6z`H&n5$PZLHSO2&UX+M-Ly_wzx
z2<|1(;}=afu@4_<K6K=44MC{G`3m%s-||>_th-}opIDoA_PA@R<Wny9V%(CiFs<UA
zKny#(*CsY?+VA5(QQnACr2U^iJtVQnQ>CuPVZN)f%&%hZQ@qTdp(Ws|N)<xT-}&a^
zC|YYcReG(e-#~)6kN<E=W~ToK)u3ml``0-CWA*>fm-JFQw`r7T;_i0p$K4dZ*}kSg
z<qQd}jmxCz0?ejD!D-&9+bbBKAUtZ{&@w-XgE-FQZnN9Iz@$#X<j(EJj?Lvuj1MS5
z)f^{<7JeX<IRro|LA>aGkI&7X4K14W@K}KrlO}%3TIt33x6NWimj%lO^-D4Xn&!8F
z085#w0mbE6FpAOb7AK3BAkDpuRt=X+B8#c5Jlfui1%zpstC7MoMht=)c408Lj$?We
zfEXCFBO;dGg<~&Tk6Ub_Xy{dCpQupkpkUE_DOntz_GqD=Xhv(_zyCyG)NVFsFbEK%
z<bFFhuD2g0EdCm((t@+s&qTTOh&;0^W3`g}>6%)3IFUPXWl^|m(t16;maAZTNU+Tk
z(JG<6@oDz$il?zO(x|>)w*x+R0Vj_*cwv=lSe_uiO%l>7uG1M0YYk+}+RLHgIaz1f
zJko41<p_m^rzEzNG7UHO2!#f=lBwX@Ji!T_`sL^eUy+Lq<|MpG484G82*U8^pd;Gf
zKs86L2D_;6<TFg(;P2p@hGqT!&l@(jc&8Kkpej-sFfpm=;@#yPyT!QC`^CYP5r@0y
z39s|eXQV`guU(%PHofM1iWq7UmhX5?jp|z<&8Ga-YL`GD!-&PH-K^Dh4%hUrdXGC3
z#j4c)jra_J47%x?`ez<T;&44`rkP{xJN3Rz`{}>_<6)a&Py24;=p7EY+Xwf!_do18
zJ~S<<p}?kke{=7$P9k5_o#kwpTAHU#Zr9@ULK;TCSSiX=#JlWz9HT>Bam2zGC<xrL
z5w{)0e0OFODP&QziCzhX-9KkI5i$9LR(RD6bgh&E+6Cy3`{?+XRv^ux^CMW}o$oh?
z&)bG=S~V%87#jR<O4qyahCQAYY2htG>c?{i@Zuv>kfw<n6oJjcECt^06pkyJE?^vq
z!NqV)7k{N0$|P_^T#uhK>SoaiicP^MF6vAXLdyemyZa3hSa?1I)PyBmj4LytOCrw|
zB+>N~8fk+xpVI>F%76?!F;$evT0>cZGJAWpWt!=Q&=nT8OsNkx8);j%b+9n0QBj&k
zt(dhz8494M(^MMVr~q7`fSmKLry3llq}8N0Nt7n;j=Fxh!Xn=JX`t#q`hd;K=a&SI
zVpv#h_U$f57z&$AjaYQ!0!cg_Y>oe%9$h)x$^j8-l<g3pA@8eQdq!(XgtvUTQx4Bd
zfvK@-M$J*4rp;hxYrZGPm4I|G7VXG?2x#f?>cdCmz@w$;({9loppOit@hCLMp~6Un
z%W+uLAsjDE_v_NH%PEtZzL>a{WBHYI^T%8VS;Bq<X#EawCl2}ic4x>*rKhl{w|gB%
z6}u@pIT0a5PYq<W;pDjVa0;0@tBQ@9VaxqJ^Bh7T`g}=fddi2F;nC~p0((8x8JT)&
zOIwoIXm6?qJHXBwVRE_Iy)^$f7TI6Vl+D0Q$mEdbU~P$tYQE~4Opw`HD#Dp%tA0;2
zvmX_ur0#yg7o3%FRoO=~i52t5{KQ7>qShYqc`MsiWpc0R)Rp=dYS{d9{$%v%RP75V
zMv7A;^-A`~@13pLq}AP16GU*3uw=5@UL0lprK|`qOOM|GW;Tnk(eGzTZm)Qq-ZY4<
z87`MqT{QOqDv`=JwD%RynZnC?SX>aF9^Qqkk9vuUA~CvW02jlTYv)^MT>4jRNLy%Z
zSLr`)XPj(^%2>D*5fm=SN=&VB*Thpxq00=rErl8{6p4{!Q_s`CGxd?hVzms7g@}+o
z!P0k<S(m9|MMgabzWvJ-ATz1al-6i18=)xXi*7S7mFYinJY}QXQ*VfGQ_k+@AVquW
zn_~WKnHsav&z;P>H!=$?JTusK^rF9I7ysSfvDWJs^bZznQ+^HwPKo|?nGdzSg1Rf0
zPX}T7^;0efsagA+QB#F88I4r4p$Ee_^sdOQjCCB^ZB9BrisO{0xWvQC`~5=x<C%2!
zjYAyIJ*qk$&WBe0n{n;*lUB-|;qo8aOh%UfVJ7)6(iS}(JNv&KtNy3W%;Z4c{!pz8
zN-wy;oHx!cI;7b$7w9nW#AC5ftM3Q7YPwzJg@6bsgR#GC%Cw=PI=|4t-ga~X<e&uO
zxFxYI9KWOt!2;$77d#SrfjtJILuCU(=xax!&Yrz_G&p$+f_F{y<Uzf0XqAz;wS4q(
z_$}Qd9j67wF$RGLzaZ2H4<D30Y;ylb>6GGd)%^?b(EmYgc1w&D-i`owb!PhL5IDn5
zkCn<G*mwmN2!EA?qw2C~tGbdSW<=oz)MYyF(D0nYXv3gaX7a+IRl78@O(N;|l9H+e
zGyuRK$Xs=nHo-#GsCdUKt30LSoMD_RTp-!UKa3<8r`lnWhsa|?q5Uqd^N-h&gsmiZ
z&kMTiAwl%*ib+8P#G^|-ODx|Qx(fdr2}L+JxF9wL2s+)~TNJ-*hN%T_`bMIx+nx#z
z|4rfhxbrB_Gq{swEdvpwBs<Nn8FJbg#}Hz?Umj=(MvM7Y=!VFQZ4}ke^<2m6qd%TA
zmx&bj3{4zh&qX>(Iv`^&Yu?4%D}0m-!`KmQJ?wQ$lxn!~obAVYP`yVJtDED;^ZTGR
zQ>N}jV_((q1(cB;ODxT<wvH>PQB>{YuAre920kUhXlm&|zy|TC{wdp$MBr#YdR`O@
zDZ0DBfm&691sT-S+7%GA!vw43N7yfdG87~Z{E|#BRjLFQ92d6Vu)~XnV5fNC;X`3S
z0`o}RZj!Op1p{!|PsTm;Z@EUw@gx!3S(i!)*>_0#ahsq<YYu5tM8IKBV+pptTGfZk
z;D%Af$#V07{ChsB)D=v#QL>lNY>6SSWs^Om<rxgN(^tYh%bhAq8nu`b%Lyt?gt6vN
zd7%c|_`@;d%g$!PJ@sj!k4qxJxuc@E@<4RMrp3hA1;zenTU$vm2tRG?6VjhU(|vZ1
zJ)2wO#d(^$g$X7waGk(Z&Z-&CWD}jP8U>y)ib)cGH!AOpdtxIUf^tWuCaQFgO)qP2
zLn=k>>yFH9yE3vnqu;wLCF@GA%xwE+@P8j-)F9bz(f@^?<N1bLE){GoUwdIp^GtC9
zSIu*dYyw&!!XticU~xHM1OT)i?~+bW5vKo05W3PrQ4oe!tJp*u<(_al!bhqY7xP%$
zR%p?vl-Trq|0X~tzyspcFBLY3SSj3>Y_T7}tn6~DVFd!WZP!&<m^VrB{!qGg8O!wp
z2!B4o6vv_1#+$mhf*|{<#_&m#+MkRk$0=AyLlsDTaY3OSDY8>8l2j~KLv+(f4*2Ew
zkx-<Hv%+WSnu2jWzTZD(-0N-wBX>bOjoQ1fd6j-33J)&yM|G)oXB{_z*C*q%xp+_i
zx^ma2`8!_miT1P9cl6OVP3-eiC?eF1Ne8$h?R@|(24dIu?&XncK-9hVd66;}GPi*<
z_D?gcuFxw+-VA|PXwUh0NSq?i`MIpy5`V?bY1;!tECOG+yX0uw?VImlKHSd#)+Q$A
z|7m6Tw?;P>=6~JnPOFdGV6nn?&#L}O(_*7q5djJSq?JR&0}NUVB?^Jn0rf`^L^1=+
z>Yc5;iLYWlQ9~N{Gj7m~9bO&QAV-iU4p$>67jG)sAYzu#!o;EXkcR2SA0!m{rNM5#
zzeE>yD4*b>p_g5MAfM<yYBo+O*h0$MH>Ch2zJZ7WYtN0)F3k`Q@$uVV<Vue@KDh(_
z*BXc?`3R~Sl|?h@R5?4bJ=G0Snx4I??6e{^h(KQ#Y88s9l!jF<#WHAl#CQ|B?FA7k
z{QfJCxH31Y{z0OaA103oM$#guS%`;38C33I;$BXgg)X?#K#;emKailY9Hgq3{3v3T
zKhvm?0QkyK3lK~lN?bo{gRH?_34fAaa#97<xtnHQBzpLtmcv%yVOhh_6;2~nP=XQE
zg*q@*F6XRZx^GK+l{MXt;1(<cZWre)ldvoL@>c{2`10a&r<n*@NwvZw`#)^fWN@z`
z5HeDdvJ<b6)P0oW0#G<ohcH4OV<4v2Y>#QKYG9~`UY27cz^C~`<7Ip#PBy@kiUIft
zJ)-$yl~+*keZZr6bf||IOB^J1RMo`kz=;xReF`WG(g&P=jK_LV<B;2C!A6yL_;FSz
zP-kOVcx?t?q25T);3`-F^~!<o;2aGs)u3&o7In?Aiz;c|scR8XRyY@mB}ZFs^{uUH
zJ@2Qt${IY}92&VaDYUaYIWn`nzHIN7^<FJJKD``1+IvCAc5jFGrN<AeOx#o{y)`@8
zC98EATS5c44xy8F4_ahf1qbPVo*B>23-`tv-*rCCGLvZMor#UDq-vk~-buuYHM^yx
zvZ$}FzASX3(2-qwzZhq*HMRm^v`rp>2=-x!zcNyKzrMj9(=~x3F4Xs9L``vdadv{A
z81%7`E8q-39`!>A)fmV32L;s_^g{C}h%rA6fFoVo*U(ckja%qpo9$6g=&gb=;LSzq
zfO|?-V+?$~ojBHqc(O9!txJ?Y{=`N5c^d`UZNCA2m!S3fiRSd0ve~Ae#C3A9>GXQG
z2k@61_eXv;c{RT~Wx&>My!L1E{zdmXTJ>^paPynxw!ljAsOMt$Y7SFo>;6r_{@I^y
zd@5yH?{Nth?uQI^xU4%5WF3VEOyC+My=Ct|X~?I*%xK6*Pq)IkWWu=_`LKAo!l;Kc
z1;RWinPVM@@B3_d?)DrhmT;eVT4GpU|0Y<~42DYdPM6*$&UBo{%Qk)%D+-guQlH*O
zx%Mw4a_ztQ3V?wO#$q>uV)+TQsTkno#gq<SB!Kc!9t)}Ug<WSZjOt)C(DirVyM<n3
z%}0fNz&G+|pNNxNA{#67{`*!LB4Nda*+Fxy2<2+z*3nldjO752INtVKe|vWChIQY(
zM0Jm3qEkMcofh6OoaC(P;)IHz9j6ikd+v);^s*SuRMt|DT`~OvPA_+#P#jeah#m#p
zYv)1C{F7F`yk1vM_NM2fi*n)>Ik9A0&cbQ6Hd41DS;GY?JaX*~UIBC{9M2eV3<@)r
zrbQA#h%=DDrV)7kYq9v%k(fpsR_z5&s(TAus@fVQtwRS+iU;h}?Cf;j1tZRkh9-*w
z10oU=2)OKwv+?<RPNx;0a381O)Cjm`X$?1ADmYeSt2WOA&mbr$=Cs4P3O3NjyKSKz
zD4R076R1zREZ+-00ijG{mI=s+>9|C2(~<vW%o|w3jO765DD%;jn)R!FcQtqOlil8y
zCALS=cZZ0kG$;L_0InNBfy0>QeJ*-3BvPSY{vjk%q<KGfxVS*qe1%o3Al>}gxo7Lc
zjiWc}OM#;o#IlTIE*Vb0nSMY8a{w|w74v9vqtxJT(@Cjgzsx?@gH|*e>MRfWW%i*>
zQ&c$2#ViP>nnbi8m=wS0x2coPdmk&#sns4FhOhBj9DY*w#rK?%N8Ftw!`bycs*+vJ
zs+RJk-9|U$*DO@XW?oswYf6(RX44SL3p}zonunR799j7}ysF^*ws#aCxne2@0LZLX
zRA`<}`b3)2VEsj!5?SPXni78^k)eX+Wb+$*Qo-|Y4j^Gz1Kb1(Y;RNS1d2b}_4MV4
zPfu~6MHH|tv3$RYv)|_sq~20P;y{$$esAQ$%fE3f)0$RrHZC3`hs-d3Lw8g*4Z9Fp
z*KaXe-${{wo3X_@Gv3!+PKC>~4NL+B9gSFQUIZ_x(1sK&Gva580`HW6P8jKh%9(
zuKuS<@85#;-+u1@YQfp){wr$y-%NT{B^3|&;CoJ0r|8QW4!aoF3j<Jb>QDpGp5Tee
zl;Kz4x2nIMHq%3s@#N$#jd9V^j7mCtzdKGdA^2y*@+SAFpk!!?gp>A?ija*Ji`ZnC
z7Lp8$<yiP#_uXybhqE5+>Z1%w2FE>gstQ7{D9%j#E&2M9_?IvfkR2!H775xs@yvh}
zRm1ek5g)gywD9u(ig1Xd6OtE9*r32h+AFG*ctJmNYu-rZXFDAp%k>v8k;sM&dSJc?
z{V%5SCLPehD&KWn;dE_Arr#{Q={p6+SWN{?5@A9~GgBykSP>8(7lTXQg=2=ZYD
ze{@90^SF-T?BG%~sn+^%WKt@BazlGebDWc9D&H)$l(&&!Y#0yHX}+LEih_LyeOw35
zw`z(VlgXzE9`56Z_UxKe8V|+Ni**#M$9TdFg{s7*U-Wacl?1hs-G7n;0w`>ot6-x?
z=vkxnrc{`LHJ~R}H50FU+%ohk%2|gnEjzoBpuh#w{R+&oC{$nN>osOs1D)pMZ7Q4I
z^XWGw{2${g3UpM9D+Rw4))<lyu5z9V-n^MO%ge4Jj+eeQZ%wYNnrgL-cL~UOTZUSu
z$YqL+NE}1SO~_4rcEP9U`a*b8h^|mxf+8C3$`C^p%j<Hew<<wr(K2h6tap|C3D**@
zMb1$crxqI<o$6b!;xfD2s!A^J%X6qD(Ha%uiRqJ_Ovk3h@=%Yu6G>?nrxV(gFblAs
zdN2xvyDb!HT@-d_6zryenWan1Uy-LBbZkaU3oq?i(4RF8j>6Z7l}Vq=8I@T<J(Z*M
z3BK`Bel;vQrB*lz4rPH?g;~A-cD(*;MCJ}Cx)S_>kcG7hnP50n;=9rd!R?PKnM;`x
zWp#to54m03NI9?r0>d@e04o}8G$0D)7;mStC}oj*MXTik1CN<glh`RI&q4_Wk7@iw
z?l%wJqGa2Y_2U({f$bu27x~sr_|B0`;CN3U^6`v4D(-yc8zuqKO2$w(gSGY*4|u=Y
zl-dSv^-3oKcJ!GF4gZ2iz~fGXGFB23puh@AFa(6ophDk``h-%IVE>2M5$3-n>HqbY
zW1#={T&!sgao0nZ|8TL+$huht>X4?U>$h=;4P8f7KBP&;{izjLbjcP36}pdBOCbTw
z6%wo|^i5BMu7ck!`1AQV+H>dru5Y?dCfe?hvFIlSF&QNudk{3^OMoB^0?&IiM3M5!
z&d#7Uw!<5AkefK#l-#jMR;<@f-pbOXkp6J%*P&+DiSvc~lZS)|(ebET%lLdJ%NU$}
z_y~kA^dBW+w*wL+nE?)4Ie6Y5LOgBeZ(BpGr4R{N#BAPMg8BP52XCT2Cai0bb984y
zutb{#$V@W5#}U_QR+nC`XGyodRpiv0YaH2(!bIEd*exDs%A9B+Oc!f<zQw6Dwjc4Q
zny%Ij7)N@6Mmr~+_^e?-s8h6PpuI9LlEr8X=6E>-$1)a|#BZ9~+5up#vC|2#5^71N
z070QFRDX?e-7L1tddX(gMmiwvtHkLZK@pWF8B)IMrIWYNX^3qQDz}$7t6OQ2Ta3QK
z43bc_BsjYQGsJ1gq%sng1m}ip8TLDTLFae4g-C%)lD0MBrWGge+QgIg)ID2ry@oi)
z8-qj~DQ4`t{!Yz5?2=&>S0;^>iNE~K_XI-mr~U)Mp`-s?QxZ~yEe}z(KI(nG@)2#q
z2+_B*PzG`-JYJ5xvNj6|8@Mhw4&ADr!@0A|t<{zV`Y}d=30GJE;c6oqT-uUVF9F|j
zdPLnemg+DBIAF6GNWbf?r@KcxM~7B->4y(~gxSgc=_PAa9-G}Q3%Id5P*MuFAbt6S
zH0gdI5K69-oj&OvQYpR*d?ibs$r1!aIw(GHZ-E53Ii;{K*b?ISoaUQIV}!{pePn`L
zLoQZ=w@3<SvPh!qqihkC@2pV+Mz_>lID>GYSr^cvrO_iwW%_l&*}X6S7_GuAV;1f=
zpR#C<Sq}0hq)0<8J_<?zlJTJ!$Vx(8O0nl(p!xTOSvqi4JVcTQgMUXN1aeNYcwe@Z
zUEPP$W;CVRRlRrf2FGkXd+DV|u2mt|Sv1Cn2C@1x^H3i@^hgvTsG20kt)$E?O)UI?
zGU9QJtkP7>AX%X&93NrQ$Z4StPGBf{2$&!3nb-`_iop_YnQG||4`}R}<3*A&W6zXw
znfREfK0+!a#$>047Ve-yhOaOx%uu{Q>>yzk@m^cAlkIG*-W{rz8CG&VFMeX|xndiL
z3hW{uv?D6O?-geeWY{nx?EDJT=335Ep+Fy@0}gtiVVV-{FF}pYkY;C|IS2Q~*BRz@
zKln^wR~Vl<bI`#!Do1J%H{9Kje5sVCU-&jwu7+DSeQK0Ze}a4>{*Zz8&pp5&zxXh4
zH2w0afxyiOvpg9f!(|WyZ|%agi^oP?sVRMm`x={J@o$Ym+VaR5vU!9Ax;^o#3=uZT
zLM)$J1Tob;M+budMGA&Q`WDuOlz`Rm(3T9w$$D5kKEE$@MFSJFY=Yo{HE-jX=X(_I
z<>db8?<%{O0FsIx!Ho565+MIJ(QZ@qEj8U4M00;0h8Qx(W-5$;{c|3Gu;U6sI|<yA
zFm7)IWNBXlI%x#G5G~bFBu}Du5g2T+J@AvPM1+N@R3~3VASf(#$gBJRQ1(wjqD9TR
zCS10?%C>FWwr$(CZEKZn+qUgmWvgrdf1l_RvA^iv=VIQ>h<P(&%p4;#-+Z663G(7@
zWzS*-N^Q6_sOT@O62ee%5`T4hu>apKSb#~Lz$nK0>nzdxwu%JT(JxpZc8~->oa<HL
zuhhw-psh*lLN+$0S^&DQ86Ct|CDM!?{qy_5XJ;{>pHHxY`CIRho~2=+J@%&o4UhKM
zX#Q5;Zb4U@F0P+@>zY@5l9w9`4x%}PPrq9%Fmu(g5D&&VgE*VGn*{KZ--+}$R-b7i
zJ?nx7G=bOHtA5=m{<i-%39SAPN$ofH+H3k8s1_u>bQ?(ihW*!LcHd{vKzpz5o>1WQ
z<e}F94llj%>(bu++H-FGXgUao;_}rU5ozsg(vyyI&)8a52HR;g2F_KnLDnj$T!L$v
zr3l6xue5y{T)2FctD6G$hjoqIeTR3q)THwc{#D47nHx>OFb9XfeHxDZX&?STHu*84
zub#n18JFEl=OmW)O8y!+Xw%Wb{Q(%r@bcsI$7SR3!F6+`OZq56CELQy2VTv}We45j
ztNrZF{AtqwZP#Yuw-WNRU0e5ldU$m&H>sBZb}2AWA!<V*<Y@&_)$n9Hc*$NaC04}t
zK28@A`g~U`|9FEwuw<KQry6#-@O93ck*0Nbn;Pw(y`hWpqL8$goh7?xk$yo__{N&t
zoD>OVGCEtmAdo@V72S$PF+*C66Jyt{{G=H~44r{s9brj-V`t%HQt2iOf~`{ker105
zK5(FcX29WHz#*z*#PCnESfyur2mf#(|1mTK2M~N#VPja8&e?jEU@TD-?Ov~NW>+^5
zV!Qcvr)#9o*JemEh}1Gv-V#?Y&vVjCrH>gnpPYj0iSM-?68M@aW}#eMBAVkJBVy7`
zcBdLVFP}he9_h>=DyV7kVjVCgc~SCXAGR<%67U&ZQwXzaMmlu0umP~Hwt$Bd<(|yE
z)RpWGg+VwDZunrGifK8wJT^CuGy}DhbYh-95Nz67#{PbvpdY*-NL%uGf4jJd&c&=e
zwAD0l4}bA<jmtF-R}Ok>{Cq$UBvkkHZQ^CtN<C((i#T;2?r`%j-HfG8M!SRXtuRA}
zhx|iB#uszl7Pw&_yhQYYST*&htTRvy^t_^JqtveVA~CYeSF^xc|7@o$+taOj|ED23
zQ>x90AGNx&M3}F3_Y?IkAvkXYyC+14zF{@nE*ddg<gZs~t}PC`F#Vd{f6TF5Nv}J^
z3}4AB@L?)D@$$h!L81=oUvOVv$Zg2pud{sr%<w$+%<w`=hc=ov;EwqKfD%1s{(H@f
z<v+@t8QK2F<cn(!DZ9g89{cajq=iwQ3A;xlKa5othOUDmlM`@bo2RWl8}pWkiprv~
zw`VX6MS|hVI<uU-BWwso!U1=8icKhsbQMxYv>T7KyGRKVQr_@yh%uua3fTrR7`p;x
z##G|V`JMe1p8d??aw(ra>8~)h(dOsy$mYg);bRGyJAzccN1SHAFR@bP=1VMd%KqF&
zFhZI0ZP8AfL{OoS9WHI0t~<|*`2q;?U*mr@3&(4dPKMsjpj}&<7c>#3lNTps#9#r!
zQy9k^jlU&5KY?RVi8KeHt*~!ZBS=&WxDafCg^9E^DF#X){o`h1{kkx6*~8;xGyYzu
zMyiwEk@wzAFIx+sT~@O3V(2blaREt5X@fjr!dax7v&?H3vI~Hi^#794$VeT7qP7ia
zF%SjQ(&c1D$xb`zSA!*V41HU*t)uR4v-%+1d?*$zcyV11a6{+CI->w&BkFL(03e!9
zmT8!y#i7Wj5yoAB*S`4~vwYF_U7SWeSZNs9@_h3X5Ad81peDkv2hbV*loKupH!)PH
zKv+2knY$aMPt$#b9#%Ms9y4!+P!L2**FFqSO#{6C0X;uG*NdvoGTe}}NRb`6k;PS$
zhfAaf)J3<+*Ae2tR9=yPjHy?F^sz=2Gyl^l(@6W_uj%9W@A1dQoAm-p(j-8BUS)@p
zD%`MRu}ftG$&wRVH3YJ%j^mcp7Fv2PB}xiCnwD}<n%E*>9>yYkaRxvw6W|8MUS^)E
zLaVQYIG@YFl7J?XNtmjf;fY=-na#&~^d`Zo{C?|7^f_Q0(0t?1Q6Mr{3)55xVQ33I
z-L9n{ZjNJk1-%=XX^5ItA5Ee$w=e>;zkWs%GmZ&pY3zbUz~2Wkv=JiWXZri#xV)_P
zk0D7!T)Gcz`zeb|y3$^{Mmr&<5FHm8)}l;uqs;52_r+u8m($hh+tgKC)1dopK;S}r
z(ZQk1uwx6~&K^p%ESF?StTfJORY<Sk7Lz|x#pRe^+*Gy?Ppo4Uf&BZFI2~qaxPsM3
z{ba8ku#4(cpevF$@CyyGZ2xkA`(m{;LdpRICxecnt{*wM0BjePLrW4`yp>s7*9ONP
z9}lkF8Nbh|xtqQB8_MfH3U*!Orb$)_l;2b?f<giMeLeb$d!JY{D}8REqSTfuW@BYS
z-L!AZxd@{vP4iA6`b<%AOAYQwXaAvPZ9=RpJGaA34wFi{ab)R@9`X2H@%LHUG}(Yi
zT>-xQjYAh7R(V??^{Zf(ZTn%&SDnPh-r4ZEhau6gh_@Y8RT|@$r_L6q0q(P^L7Z>6
zIJnmqM{BgcCT~;s&c|=~<PWB@4nkRg+cA=s;5uD@cGb9A&SedH`@2pBXL?fwQ)YUh
zss%@47o$)#1ZWnV(rP+d?u}RUeS&$&SyCbX_kEHa)hJxEJ!m`7|0^3)&sRXUy0|4o
z!}^A06MpjaEJ>_Q84{O{Os-J5Y9R2=FHW(Ws>ks{P4?@?{^I*8#LUc2!EvJCv%20A
z<t<!gSXOm7ly4d+1}zG82fiW85mn=HhesJJceoK~RQpE1D<Vl{Yu6aOjTQGcP<u0e
z3k^d5;;sv;A+vI;saIk9b(f<d=kWuf{-35#d;shTp;<zJ$P0`%#~Bs$54?K1+u#6K
zZ_Sg#_ha7I=W=coNc>#zJqVG4K&(&%%&1W^(|YPBo1A(;+<y<Itn~i@BgDY=tC9I1
z&W!vQMrh;L)b4@G8AZi_@n&=fyH3ZLjo50kW?Rw`UsSgIU>_o(`t##@K027#7*HT<
zL))6b;{8tMWt9h({S|v}uj7UCqPy$=cC<s_0n@f54u)bj5TC%$1icyDH{Zge9~n6A
z;LGRCwn4uu{bBIj?u_=-^8zv6_XmL@f|X)s4M)V}ruMqwJJ1K4)dk0Z{2S=kz?PN|
zLNvbTh`9CqePv(=N1HWFY3i{qX%Ro2t-*F@+9}S&b)T{aOG`J{@2?nKuXks|uv>h%
zy!v5*WV7%}@%4?e`9xP+PD@85Of-l>J)276&>^Fm_3dwjR;p*{B{1mR6J3qq*9qU}
z?Kg27v0eRC<aZa<>#(~@olW|1UMBJhWUGK(qo$kbm2s`RGi32Ju7osu0H1!V!tErg
zMu2&w3a@_&!q(YsbsNtpTt1Go)h-CzTtj{u33UhybR8X>&>V${=6ebKM;84-6zg}U
z9W!&1N2^_lL*|oKg>6+om|}8RxOM)x^DEyt5ueZ^pIt<BB`EQa4hV@*_BbJ_j-~P=
z!*~KcDRK$1gXL(_=9wW9OZ#|#&%h+Q46eBFIp7C}ctI8N2S+P~PUDXudzaT@n*^q!
za;{ZRACyH+C%qm*VEGBl!%Zy~vN}PbMdckZElT3DvBwBxAVWCtUb#Sad}9|r25Z2C
zG#Y5?)MHQk>!k+WSO87DBF-8xA+e&Ui&0P0{+QKC99aw^NVbf#?Upl(m7{;6v}`AM
zG9s}v8?HR5KdU9~R&3@Zz(L??OMzxd{ghZdVj$<U3XnuRcnA`MdP?;^L?JYWG6Z%k
zw}%i#%ETRa5~H_&Ce$bA!;9MHF<IMyL3SHf>i4ym(#u^B{A{U@`u@e39j>wtYbaD`
zG({U3l~>U#;>3<UPn4CfvJdW&mCpX-tMQc`m;dPX1wl@&T1-7T0%DVhg-#l4yeDYS
zFQbZG1`dCO$=`Z$o~)p^v7y<uv&oOIJus_{<&Wy^z><%1$;AFrlh^SEh4nrVr~Xpm
z8Fj~|G@sgh#m_D@ttDOM+V)O&hldw>3|SfixbjlKn?ES7T;b&9WY)sN-C4+ovJbON
zCLTAtK(S%fH3UMFV_iufQo|NdjHZ!4R<U_M<#EmMzNJW8<rHSrE76r~gRbgcSm^Pl
zclXoB8@&$o)}ixt^X8H)?+148x>yoMVADcMI40>Gvkkn#c&^mCCa69JD-Lv@1YxPq
zgegWI=&U!I8Di#)4gcskAXOK;S+Jcl9$bmVa%h1Zq8-1GFE&1%c_O_qL{}6F8rQ$X
z+|C*sCe4CsgNznqS*;`PjX+(oM#`Wz+b@WXdn>Mj>WT%|4N5rhkK&Tg*iXjj;rrYc
zVH!2JBm-t&E{Y^2z}fMmWkE%x?>oJe;;C_B&>Sq}w+a`>Dpqq^V??hk6cn0kSL2<Q
z^ToC;DcnM0>G*|vGh`#00cb_VF@99`rztr(Df4*~!89~n$#W!VFRo`!@#P(XnbN;z
z>q|&gJlssHR4n)O_1w`~9_e>gFjsDlMDi){GMa5`wKsJk)KoimixiLNSMqr028LdZ
znM@w)6sy9{vx77_MzLaK+lSU<RYZ<xh2D;wvDwJ_r$5jfi}!cu^5~Fw>DSz{M3X`Y
zIcp-G4yZ(?qsCUtaCs%AV`w@#W9?xdEwF9Gox|5mf+7g(up_y7h>|T_Se{nWEN*Nw
z17;^dP>K?jnYkOzunRF7_e}f*>N#w>K}M;J+({w=s--T@h&sZ4y`9$buqO%-4YJBq
z^03>&B2S%B`#104WL_=C_$Fn4U>lF#oh9%MP|0JO*k|DhnHlGH)HM{(gb);A>ZxSN
zDk#8~`43T-(F6&z=!2m~T~DV(VG3;K)muXGmh+PvZL$5k%_gv;aE@RXGTjO@9pq(R
z3W`2^gKEaM;I8NxU)awgr>+HEa@$Ro)%=8`zlWwmYN8CbWllEW;IfLCT7j2EPEu8X
zgA;%7gOdRWvYv-jkSrDwzU-Nc1hJuUf^?<FWto}4!UTybGYgokYcOjBcp$QEL1Q&i
z7n-mhV#rzdA@<xy6uXd@v!lF`C;C`cp=KJLtUq4xfl0{;6>}0>fn?7IoReDdrN)XD
zTY#rUHd2{^gGUi|3+xQ9tVJTeEJ}S{GuOWmH+<1+u|gxoa`U(E;leV=u=BIP@x`$7
zGPqisr@1qI=?k~s&R=(<+IGYE=LSk0C8T=c5m~Q3)drPUSbm_<LXnI9!|})XpTwYy
z9RCNo#HQ`0D1y(b+HC@5;q(rjj}!H}d?x!}AuRGl?mDz<h`Heea`3kgTt|tFVhfFg
z3?Pwr;mFBt4lmOadsC61EPt@FZZ(CQ;|N2*q9KLRz%$OdKnyH(((n}lW=P)9(Lo14
z{9uUF$#4Hn`-TjX%kR@O7dw=vo@WfzLO?1qMKO@W{^hQhJ0@6C3{M>S!Y0U`W4amO
zzZCO8t&Mv^H?z1jb#s)Y^MT_SQ6(YZF7>f?iP*wUz8=FP<}Qdc4pu>c;Fx8fl!uMx
z&YYY#@F;5g<HPF?%)V|Xe%sTfm(E?Uo_}gX9Wcvw?ULk_=Qm(}W^O}%RPZ9z4hcx>
zFh}(JFciS>0l>OW@gr3%>3X>LTcC6~4cq$Vc@G=xL@;Vg?{*u9I!Uz#c8~3Y<M*E`
zW(SV9e!{=@t|{BIXxXfOE-7=TKkYlHtIT4xw^49;{KN^JqSX&2@i`t3RglWYWnVQ1
z4?D7(wXdyY5E8^Bd2MnA=D3|CdNy^QsY#|990@JDwAdKqlL@+*y^A918rC#Udd=F6
zIVI41ilsQegfpa7Wl)|F@XSTaRl{Kfs_1>^AB?**O1S11J^5ROZCJY_au{SmwgdG@
z&P|)g3IiAEbziNJd;KEC?^fv|dNcZ@@5sGAK5S|bhxdM~BUtt7+?|(HDvToUz!Vl3
zKJ9pm2HaV)+-IC3fr3f@x--WWCs+FNjy3_N=l5ycHP{LND8dVr6h92IjIHsVV$VTM
zTnI~P!0r#Y>j3^)4b}=V59?D{S>oTnQUwNN)SHsZPuurAd!X)8?@2A*(!#+N5u4Y$
z5u+)Em3G>Wu{g~C>au<Rn!m$qNwL#9J{G}pi8MEJWgG=H7MYaYb1FdC^kN#NkzTY-
z4|;%1qnTpZ7R`xQ@!*Q*BmgxCbqUlHKVvpFkh=&DvKZ-PxOUD>g)jf@<SUS+5F>?%
zpud(d4l%UTxkL^yJLROSE+JGZZ$FM_iQfW0xZuN*h1PedwkU=l%_G4`3Y8zsZh$$4
znI1%7G)Zz(xXZ&Fb23cfV=ynyRG8eB9S3|8L_Gc*Gg?79>DZ^C8gGjKKpF*=j<QWZ
zWUMsB;uZR{^<6M_VfP|^(B^Wh!nTJ)rg-k-fxI_uu@YfHpx`Tzo!P~6pRpI5RlPDC
zC4uFVjR;4vL*X`NTGX))NJ*i*W~z5j%*lS;ahJ73KYa~+|D4d-f|*@_3|y@Jf=>yD
z(+4n&PRAwVZ4oY1P=Nv)CZP&V*I=oVRS34inJu?^d44d$*Bxb+b>N}<eV}kfm*&%N
zPiKBsxw{K3wm}II8<!YVtjbko;20D5O;e?Rmm@QtpRIcd<?R!bd*s>JCRsKqVs%e3
zfU;@xB7i5rQn5tSofMc`*!%dI-`#ZzE*FLArxbmRz3<S4Q|%1S#YL*jb0*SQt!bFy
zz0&SqiTu2Ou>95;W$w*d!Tip`>ibHakHL<I)BQI6{_*DecT^6t{HS+^0+4%uD_5tJ
zAGGA}du!*jX~|JqWkC8(LYWJO9oAdH{inNN)jcq941T{_BXf=gYL$CEr_4g$UnRwa
z4#_v8urFoGJnwwbyKU9Hx$=+3*q<gr6_=y=ph=<Tiyx=Si}n)Et1ZQE!PC@^L8nPF
zrFCw;lto2rT)C6fA66Jjl{+Foo7Y}O<G%b!#nXnrbvOaPwg&AYgbs^MpYRj*xBLG+
zz_Kv2{BLcf|2KgWJH!9u#PxsR#WJm-VMWY_;G3scFnT0HlX4N?M|~BL#1CZZhL?!J
zcf}A)5=HjvKixa4w!PRgiaW~4YuYdB<E`_qT%kl1A_%1@IVO!kBX1JTf>J>ME&6au
zW3RepG}KGqBZ1OjXgur(x3D0HFQk)tl5gs+`&(^h09P7uf?`n_JCp}?ED0`Uofyl|
zt_zVq(bIRG`9p|R3Mxyy|3TU|MxaKInh>8QM}$d^*aq=R<^n__FRLGlD(`BLp6eK7
zd`m{zg%D4M$ydfd%%=u91ghlE7h#}?0EXiS6oC2wai(ZRD=#Q<B`L41><4Od48&qS
z7$Ojtnm-y1YV<6KKnf;(Cs99k;E8(HYCe3GUb}Q92Vk3zPb%+q4-E@r3Jn-51zMj8
z%w(`2+13{vSVsLvNgsIKg-FG_m7Z&?{vB6kFvQNjIv|F>$WUy$uU)`#Ivxh+u5AHq
zyjj38=!mrjC67%!Wu)gP{^}#4E;+hcYQ}x*)?|cNe9+I<B_Rhp1`TM+T({>taGm9C
zC#ZsSl~=Xm(9(c4)0<>jFNO`yRzN5H<QFcWVf+9+Rq{s<ZEWlW{oBJ;s_GkxO}h`l
zQ#Di+l^S*G7NpkO2sN~DM&wR8#=HPB9je+YQ6G}4oF2%@4<JOJH_a4!#P+Vv{=r9{
zFrC8yDsY=h`9M_v<Z6sA7~RV&YX7VEhkEe#{?*;31!E`2j~na8@5}M?#n8Q(^R0`U
zL;7~Ynfa6Zld+3;>Tuf7z4Ox<4GvnNN?phn6Z#plGMc3wd`Z0x@P+Z}I%Ho5!&kFg
zFJxclb^r16kb?KSfio7H;skFn3LW~BCmXg*hE<!R#q!JAu}W>d3o;A{UV7gK!}sTK
zHlIe7U7aL~KEvMo`{{DtMqP?%1=HA)ELDjZBpJ7=1<4>tXRf&ZSpd<>5c%IggF{t#
zijKNv{Syt$2U@dIJBfyIDlN4(vJpD-p!HTrM_q_vqm|UA9!_3NXv@txAcMiDC0?xF
zYTDSZxzl2ESWVO^M2LlNz)-P8SLoLMp7GQ9Hj*lCXb{_nfqU<#D_Sfo>Hu-sJEt
z<|19(tZahx8lT$>yG~A?w`Okan~C@1=KVt&e68y4z?pn_P6C1<<)HSq0vvBPKL}x!
z^zA%}97B7VSlQ9K1Lmb?wz-#O_6T>ZSlr<Ti4?Or)K9&^q?F7&0>QSKX1y64a|s7l
zr+!cs>P`Q#X1WLVbbd$pZ6owF{_be@rIQsY<U!)9G)mG9vN~}sVzDrlH(S<wx%EoN
z{uUwQX^3rn5E0>7Y?Y}glZFgi8qGLl$(e~`VYuhNm8~W~8n|v27MlRmkepWBa!Lq$
zbVe-cLMz|?im4{>iIl=Z(Te~=AN9l=X4lG{@a+ls=xxqn;~V1AdTz^TQRc^gQOQId
zh>x%&o@`>I^(?-oc12)e{G<HVMFJ=S!uKOmnE!4_i{hlfXyXL4_pWx<(8|ZOI35)e
z#BWTEvaGlApKw$D+Wuv=3R-_O@F8n&;-&5cejcBuA$WE%j1paN)wAnf7OL&I8|+@*
zfVE@kjBAy&TJ2t5*|D^;Yi_{x;F<7TDl2ay?)REE)>}e$r|l?8=19s=G^I-+``g$x
zU{PLZ){Roku;kCBI5lOeD9x5eHZT3m+NrH6U5WzTjAQY;E*7O(lc|)GmToD{fH{(7
zn*	<b?zl*MXR5X;SFQU-ZRt74}C<qo@kG^FYu1QjuHl#V4Glqqyb^*D~)i<*dd|
z7l{?RJevOkGqu`X1?Dp|o+U!S)Z4)$-Pu<VaO7VC7RmrglO@`tDqmc6_!*V?+O2BC
z<+)mDt4)I-RsT^!e3~b^OG(%_*Z4JD@GEue;=D541XTd@mAFd!iu1%Y;o`NI=EW+P
zyjct!1Jacazg}tBO@|tg%ov&umcuGs-ki00m@?t9xixxhQFFWLfz*F%t#A3DMtlDt
zGqUIWz|3zNTI=7if9^zzbewE~s>mrVfQASnP_{u&(%%u5Kx<_N*yL>uh@%+ls0Rvs
z#98yG^Lf^&_RbzcmpBt09ly`Tk6t3MvG9H~tubGCHj!~Siq7h)*J5*^qoj6HTA8sv
zBsh_!mHobE2aB6TtJf#=dB%0HokA#(rhECT{MvJ6nP<v+IZ~B2IsH872ma5RkG0^(
zYpfGC5+XbEkv|2qLisWvvi4Il{vCee;zRDgpL?uK{~@tpWc*)}rT=d)mSN3F*I%sI
z_6Jo{@rf`*uD9`N*p=#Nf*JLA+2T31c|?ncpb~DP<mkhb5~x4YcsVL%5N~4wKSH?{
z{9YkIJRB~#^Dpv`mCwWL@0z~?(tJ4V2|Vz5nDAeH1V#aGKYBe_UXN4sq<wLSeV*Dd
zB3#c(nbhRL*#|wjk%uI|Jo<PMaBBp4B*C<J(O&_DI&Yr$yYw$c>*dlP=@>kS&t=jK
zpkN4HehREH$uCE~63(WAgr7zt_>rT+!~|Rbq9H^<3P~cAsHFUb*8>#vt1qguLi~m;
zMWq()^*J$2hUi>>$Y-FPIZ!rCf2oEn{ld#3A$`C}ak#QAa(b~;TD4TUdisZwB5e*C
z8`-^Oa<xDaA3x@%QFE)K&hSpogDb#9F#u7~;l`WYF!zp`S$vXm8jsE5O*yJ<wMULp
z`C0B$qE09=3r;UI{3p`1$OD0ggvdyDi&4hip++Wt$8@Yq5t`yE%SLKRLefqlQw?eA
zGl($*>vH&oF{U%v6+Duf-_=s3#ood;Q(3O%*NL@K+9G0uZ<tO+F}@lyksL#G0|Z&0
zWV3B!a=Zr}iT_}thd~DAz$iQEphTRq8l|gyv_owXV1$FAxvc$7u4j0bE+a&orgR>U
z^8R%_)!99(meoTuWm=!yXzacJeX<QiG*T}v88}qR<Qlk46S=_h&uM8LmiO%(3<@`|
z`7(a8>zIHF@=_$D5RfL#G>jg4C39Tmkh1G&;~$LDvidfn<t1raX{|Z^*>deuR}_r2
zvF$o{b+dKNILCCrQc9hEc5tjplo((-;wKC$88ahOCwmuaid`2B0YD;pB#M%^5T^rh
zz&RiiWnr$3kJuxOLt=#fz84OKxuQWwLa0`1a1hLTn(;q1HUW$$$dFUP4Z;YROS`gu
zSyONg=<#M_99@jpVt1`eGlI9T1Vmy5_<*2PfNH@FaVZOA)JV2f$&tbdB46&sDR@7s
zR35_m%Z^4QWA_<=-5os~T;03_6P4CJcxEFLyD`J;PNLD6O7`xd0W20RqR$E0gfGC8
zJ*lrlUDRKOYT({x>`+pku}1y&Nwk(w{edQyoBVW+>I;idAtM^5mYPR^)_>%WxBH5z
zdelNNFNXi=xwza}R!pJ?wMZXYmu=$4lIN}blCfh@Z$+LhCAD<!`p+Uss;SUYB@~9+
z*7k(d^u~$ozMC$sKlauJe%Ps2OO=ULr(JYQGZ!`SRcHopD{2;`#-)_Fj#^Z$F7ph?
zySlw=m1rmeR$1xLdgl5EDAfV)N7-)o!ZwGm7$~e^>5DW+Q%<C<Z96wZ)kphh`7@}L
zSgG(Fxm#kR2wS8GcvsGYJyxZmf&3TXhS+c_T6hL~BElsw^&>`jNfj+Z6BdkNm8Nct
zZ8lU`zp^ac`~hx{(+c)H*Pf2tPhRptN%DgZWX%ChBurTR_`ch~Rmcy3QP~Ah(*q}2
zFCHHUU-8iy?BnCBNQ=0zi#tJa9$1bNgO(=sUjY7b1$v=29r>P(jNi(AmB%IN<gduu
z7V7Rw*T%X$K6S`CSqnlk70w{Ho=Y=<JK+HT>3;{O(HR0Tc`LX;1STtI1*2J7|2$Yj
z$kxN8o268bI52$rfdwa~k7Q)q2ha#?;N7<m&<rbz=t!46X*3F~r+*vY=@zg`+uykH
z1>o5#eq4Bw7#iU9bqmn^=#KE@>cQTPEjv9NzCOZu*(HUSNH~(ZbhxrHtYbxu6R|u6
z|2Hg+(INE|E|Lsl01`zLR=g`aB@sK>G^63`x^C)oFa{doE%pFz49a_hEQVh0f}K^q
zI2_h^cRhW)e0^ldfTf3xEOq8ILX%-2+UhYPJxMw@JPm9dq_(-3nX<EF<a_36I1lhV
zVY}j<+`LVN2Nw>##ECDnWXeyvc+Jd(jlL!>77vbxh@Nhm<jwX6ev}wUZj}I$N05*Z
z49km6s>i>*C+84c=m2Cnv^YdF?C76eCb64(9HPda>*C!bLI80AR)?Sh?`7jwCqOmP
zJV=gi+>P(bo5uZeyPXO|?A<myy0HW9qeBh!(nhDu(t{q_;>$za4>xVQ&%j;Rc<)pe
zILeJZWbCt-oVZA!_;X_rc%hA$)*k|*HC#}ytF<7k{cZ%OAgq2*X|C@@HlC=r>CJ9a
zso@AHA+lRV3Z(a{v~@-(06C6+6%=g@7ci=Z1K%XnigmZ4ZwO6+Vxr|qW4vW$TkUJ5
z@TRl2cTYx~S-8dspg%wZJ|J1*vgOWBgdoVt!40z!@yJV=GMVL^tc~M0e50g|k9>R+
zUsz?!X&OGP5fOa$2*%&;tPxm1RY_vDU?2tEaChz?QlUjc+;9)f7cSwazbjM~@@~MG
zwf%J_3#ce#-x;$S)<oU<Vt%qlxcMov$L|HX5yu`M*Z}>W!ApqtPF)wyAX>|ZOoxHw
zTkB3Cnk;X70NN0I`!O^LYKc=zdSS@GL5aS6ZLm0%(QUb>eGrQkcfGqoMWCc{)pCAI
z-6cmdHR|S7ll{_>6_zcop4;Z%kNR!*IVm)T7QECDSZC$#6<`)AuYRuG2L<Mg2Wq2k
z+&GI9c9=#CyK#!7s#T69A(3wGEj4hpN{s#tw(YAJ=-1Qj&7cB5{NDbAR0<UGSAJKs
zDGap1;Aj<4w`L*gXy51FvX%}mCPrZ!T~5K6$LD0z>t3d(YQe=;!6FJc`6RCw?AkB{
zQNd9P^GOWE<kBj{@}qlX1*<&tF0^N49(9|mMwUGDnPQD2-$!s@sb1_XiqY5F&aLxD
z$LKCPLez#%ru5-%`4x?DBE_veJ$IIjP3d9jZUj$xUe(H-uif2fq8eTA(C{aUZu}C9
z=RqA~pp@BK&nxH0(bLP57jO3)xZpM{!`38bR`cZFM>*7YF#Aas<pXTW*6)Ml`D(T7
zz9#ZbmkZMJ{-3To|9gu6zvd&^{tpJ~HMN`;+5Zdlaa#w^{!3n$GBw4M#FET!Y9yc^
z1b`=12x@Id*`#px`@+>|Fe)psX&LUE>e1JlKi+!Esom4Z+}o>ruwL@G*N*qsN7)Yt
zDO%)bEOyR^6jB5$lDH+<;=^$Eimtcsxq2>#Bdg39@5mFS<N8uKwF>K#Wye1j#3m3m
zr_Xic^&aR4@%8+pPh1SugNl3#n1&$%R@=BIa~cQt+^`oa-A0>)6pnyHE`t!8Eq^G%
z$W9(izRKev>*9lWO24J7|JJ^V%=oz&?ZgJ4)t40Zi!efOq=ihX+9WdIWp}?Km0mPf
z^!Y^flWXV)lqNMlJS*+uVeb?pHq7LLq&;|CS?Ia6L>sX{^2`0>X3NMBMT@~J$7?ts
zbCDvEbEVozHItuBIAEMl97Z%$%B5aR<wh^Oynz++lvSueivZra*^Tln;Nb3jZ+&wH
z#)J@p81fQIGc$EeL&NZX0BgTeLK$o_EY{;ZJ1au}{wE`1u|DT%SlabbCbewbu%lA^
z&NwlX+KE;@_g#Q4db9rZd=owCoy4Qv73sA8hb3dW#XKqVH4?2Vp@fIvmjiaD5Ycwa
z!N9z3nW|UG6N(z|lc=iUtS_sVG0B#K$m+6+h-CGplvKMQax%1q>k*7Eqk`YepFY+p
zf*UXtmczav%mElH_dZx47o}u2l%&SC7Rlek2$d;@kLdLA*gN{*Bwly9)nibFo<fFv
z^WwhW6SG_Os&0}(lGQ?%95AbHF_B}V2lhR*##l!$8%kM$cDL0_({13*uIpTI@)mgC
zB%cnl2Wb!T`OCwS4La$w*NL{vZ9j&KxA%bPue!Xht9?O0Pe2f`3|!P)?v+!p<$H)6
zO2-F8{-<W>mNbqpm{8ncPc8sOD;7aeGx^TMzQgC~HCOxDn@d9+Sx&zFg8&3Z5_LDo
zs!fjnNNmP8h!2ZO6oP^r5T1`FuQ!4qSY2L@lBn5y>;x!RL75l#9`?1*nnxuZLh0kn
zAl1Nv5g?3KAc7R<<M9`dh(s|Tm6ooVUC*RCT>;9Tz=lS#csPwlEYd$rkxxfNCZP``
zRw-O!Cmf)!ni<OP#X*1c8IbsBBo_T_IdDPMy8rs=`(azhR3?C@xizG7O!9Xi25hSs
zmyL`3CI+k#->nS|cMQ0VY&e{lBolnAB$9w+aDLC_hqBPXUyz(Egc|Ac5&;(Ux{xZ|
zv>KJDqudF$dB+7(yqT@(z84Q0ujNFtPe`+3g)xo6zoKe;iUdj|xJC7lLV$ZAi^QD?
zVy|X!x%pp_J231@;j86cFPOJgNE>MgKBJ-=qzb0Nkcv`?+SkkGLJ$G<lTY?|KHZ?<
z;oM>Os!#1h(ALzfPEm58gVIBOvo_!m8sxfWjegW8o1;k*xy3VA2zk?)8-8DvIuDqL
zs5_P85Tb~^4g@wXrj(z!3NwUa&4&sGr%aj?8)j!fBkkav7vEF7(5f6Elqa`{CC;?|
zUGx0>XI<+>iWL@(>auQL4cZ~M25rle0swn{QRm5AwT*I$y;71{vnviK`2)|c^_GT3
zxC@qxDFud;Mdf467ipMu{B-Dp4Vv6EtgrQj1c6SSEoM1Lto?P=?c3(z*ZkhmnvV^}
zfNK26RUm`c)eaV)_G^XXaTt@62L80ac?==MUarkm8@S#F-E*kdN746f0?&m)Lc}nm
z*{}`P%+#;O_pf7%@>Yd8g<vHWRo_vq@Lj!M#(@zKQN?<<ytgZzHf!mRS!5g#W)(T_
zhXF^5;T&)BCSst)1uxH}8QIaX<LLc5+wapVN$`<?xi+MYVgky1;Xt_>7I(Nl6&m1^
zw@Fb+{em=Q8XJbE^=Y?=%!bUw6*p?~hlZ%!FakTkjPxn6wTMLr?M6C%W%zmYBL@@P
zlEflMM8~s`MkBlS9w%MF1KjXYwRM6IUzB20wXXA_(3OaC9NuI8exO1j^?4=;#xX{j
zvGM6t?O4{$Nlrtd6!ft@m$llrp@e<<9_-up*C=K|x8nlcP$5Dd;$fwO#_)wsV(^DJ
zN^(zgxT6^^%Ra_ff}v%}0NI=s!YT$Hs1I1~=3)2357J;iYyP&}@5(V9YCZCKt{iDO
zH;6(^vPG%@!CZvGhVCz<NQd!=tyB`QGX0&mOv+L?a*ru&YyAm`KXRP;M-zv8vgCTE
zN<r@e$&0I2WzGB_Cu&qWr7GV$yLnhmpb^(!U%rs7XdytM=*d7$1p5>wcho(+69%{#
zR=IC1IQ=@Y|8VfJGW~D0?f-S~G5==%|3mG}uMqLS{HJ>U%YW+EM|=l>YcU9UvgV<#
zEHW`eHWAoJkP$0Wl6=DA{jw9EUp4tCOgp1Y7X}HaZq3fE7d{^{lPFLYoUSzJlq``@
z(q7syvXqH9xnI%Jn0!>Sz#@`Y^ta*{N;Ko)+>H^N9<iWen>IMRs1|hReCxw+Kody5
z0D_fnC?3sWa(3@|d&eX|@%apeNSz|ecaiWbF3}&}XArvq>xCCzgA<{rW&KyHP@Y|6
zJ9^|Cm!P$|ps7EdyqS6lua%E7s#v&CxL(A1fT&D9QXe=B$Zu2^Yea7b0E!Fnd2Q~<
zd_?WZfg{JAEaGT`6Fe)Iu8}1ZF$A+m=6f*ewm6=3_jZbTB{a}TWv|Il#o_}M%<7G@
zMi2Ika<bqq$1w86PEk;DF`i?+zz;<Y@xV)4xj?#VHp&a^>k<QzgT8w)(J(wjdQJwE
z1;T9(BG-hc-WKqDZe(Xj9V4nqPaXVRw{^7M;8-q>=B4c3gdJ<HoB|NwBImDp_a&6u
z-}y5vu++DXCocUPrN5zqk*N(=oC4$lzaLfcP>w>`BIuJTB_;Ln3nf4o;x>c#UoAd&
zDBy(!2%5U$l`D_oSoW})2r(HT+_g*ppbT1lJm{#H4sWRlmgk%K0`!qvVGMRA-O$vV
zGK`8=dJ=8S$uytr$rP;sL`P`V@4%5np|;U<@^<6?)Y~L4VnF*p0f=${gC$g1J${~D
zzh;cq19OITpf>d1p`C{utYotV0lBu*oGh!@!4w%r672aPMn{6GO1nXpX0)vH^6fKU
zg|v$R;JK@s6N8urzKif*(~t5WCkl@~BNr3`0G&#TN$hK)nuwU3wmjyrN%TPV&Q1(B
z<0ZVt)(XL0{XC>0$Tiw#ImB3OiK0jztj**T&qP)n3SGZ!oVzYbV+*`v(0o3gr##K)
zR!2@!YN7NKYvffBm+F6_MP-FD4{A4$Cxa2E?nuLeB513^2s~i1Z%j<9={|48`$uLS
zWz`Cm0;UuoBJS9yxWU~MLDfh?)i^@hT)Ex*W=vi482o#O<?lB_uWNibe_hHkCP|tf
z|9D7SY>aaHX@QF_DxHxR(}_*laykvm;#bq+^KRz53=~yfeBT1IHJ~`a`6ze#TfH=b
zldjKxB9BN^+K;?A0&jd$qZ|N?xM<V0Ni}x>t*$hm_uO!g6QgPKaN9Mt@O*r8RBL@c
zOPS?xdB6h|DuyCEN(!KR*f{FS2Lo#?ok5~^AHSht>C<9Di<%XzmF)Y_Ng`;^?ki4Q
za2vehR?l*le4=IDoht&grjp@FQ!0cYyQ|&B?&$=Ntqj@5bx(^MkLHy>zv8CE{Up_V
zdyVdQ4|gh?m7Hd~lp=$NN;YZ+zq_u0Sh&a-z_lH^_u1B9vZm^S`ic)~DPA$u`#E;+
z9R_btDSNXIhG-;0@!GeSh)4Suxl{XiIfpli7WPUku%uemq`vD?T990vUMSE(njr66
zX`o*u69Li+(C>Wj;BD9)>EG`9l#%<LC%Uo~rC57k@+eEpi1H7W6XDp_-|Ae!{d6kM
zj#9SoIk(<{kO*-3w%Fm$Ag<PBq2cOv3AOcLD%l4N6Q(Z;E$Fc%imXq)wRdDzQkc>K
zY~i(ZfBf)KXsjEhHBb2#S1XCkRM+;$ef6moiG#fkaCAd2rA2W&pf+$ZUTuKC(e;R7
zi2SXoNC&Eb*5<2jti=Bqhy7y59o4MjP$k+wXwOU#I*thcHW>cv>=h6y3i+5&Q-)8J
zbFB34u$v6F(^-{uq<4?=5B&??N!Y^5CIje)Rbkgj{QhUVE2Od|sfy*_PCa#YZn5fg
zKHOMc&CgsHL`rKJ^8>8K&KC)+Q_pO#-^I}}kU~Jayvyr=B9eP%7#(!BwdObYr9Ra4
ze+cvcS#SP75A(<BQf^u7C_De<|B|h_tYzrx!Jg5?G5%-uy7U?deBD6MKFWbJLyu1l
z!rK07NIE-rCIb~;=iK+@O+w%9!r-RLjrpRR2X%-DBZQrJ$NWGdH2L{gA1P^v;+6Mx
znDmf8i}7${Dv)Q%r(0}_>y6WW2`k!t!}IHp5w`^G5ROr>^Q3e0pmsG(|1>iwE`Iz)
z4tm2)%a918t8^oD6Ng(<w?|6a0+^(T*<uQ}H0r_3LK6P;^n?sEI4wgSqIUg6VNSMn
z?dZ#anGG8%peMhd=i9}No1>@GQG3bG!I1QFvd^3&GK@}bFNIM$E4S13vNGh8Y?s@{
z0&hpHA7>s~PN<9LP3?Xb4+9>C4&JdtsDm*luK66`J(h4%halZg-~ug$Pt)I8rpyLw
zhPkAWZYk!(3TCtLv#5=33(yik_EKH_V!=o!$#pfwEO&4`x;w8o{`om{AY|pa33sCw
z`5{bLN)?y(?;PMoDL(`6Sb|wLW-)Jw6dE5k>Ij;2>nMe#9oTN#D>*Y+V#wi)f;wK+
znukN9JZ;=UsBvPN5q<NP96DjCcuT5cqM|XXvS={MY)jyGBvaqUk6+dKcI2$oalnQ@
z1zu`0&hRAnuz{N@qCMi?ips_4zz_KsnG4qkm$TsBQhqS>g~vu(TZh7O#ZFmh$ttl3
zTkeEhU1ZZ5$P500tOX2nUMI-K{2-#qZ9!s-?%UaMJ>l|^FU~UG?9)zx=E3TQ&vuHD
z3XzGwEY8o_O+IK14T{*ArlStj)`bZZrUEFP4PCnfJ|u?KB_dA_;=(Zsx)+dLL{Qjp
z!Gi5TjHuk(_nlF{OqXJJNJxUhhq#wOoYk>!ciZ<(Jx<AxhH-pJoVVRBl7Q6)ixE)#
zIo+;wMv6q~53;n7*J5R|oAte$Y5wJDLFGRwnNHnsNtj`hvY<Lw!Y>?u&B->Ry?n2v
zqzo8$F|u|G3*$${gzl}>Ld52Z2eGfl+i;d0r|Pw(sX?wi%@$g-PTMA0&}3?5u6cAi
zuRADFE9!ONH{f}NuFq40QkZ@d@^qz(5%mLdS+H8xP0~Of>%^4TX+A|7lei20yAX!|
zCT9?f@`U3$n<i!+#|98WocSKjUlf_QB;#DlT!JQL;o1RtFxjajY+PLS<(doSROU}3
z>W|Yi(86MY^QXcFmX09wJa9D}z0H|U9fzw^)<?2IP*@`takOLk`#=92I8(j!Wm!??
zolLjgOJs46vSQCrxXy77!L^OEWNNFt(@7`6=5@Va+b2vXS%87RDL%ix4DRpWnbULE
zMZ!zYP?L?IO_gpdCCNl(k&UDN`%u4@tjTsGQDv{#z$E^TdP8+~>r$wh`xmChArdU%
z4uqa~YcdV<9(8O!L9);UT}>HnF5WSJF@abs^mlSjc{KN~k;f9a@V7^}F6`bJQHR=k
zKe{!Mx-}tnnXD(V0c|!K>@?g|q=7EGX0lu?3cjr0(kgPy$G!a!%pbjO3R)iSdxzsb
z+S5Zdj@(uoB9Hfh@6nlNXzAy+2Nrfoqqg_8zy`^pXuqq`8~m?t_i3S9$J-6&u_)>$
zx6Nzt#_-HA+T~5_>Ko1pK9)6la$yh%#^9C`<DiNYfWD#T4e#E>oc2G2$Nywp&Bo61
z|GxzP4`%aAR3=@s=n=LbP&EbR<R1^3rLoCeHV(5pinEBJVH#wD9DvsTemvnw#AB@5
z#4W-KPMM#~EawE|a}b_QaK=?HO2z$NeuW7m5B?zehV#(z6CAI-C}bCKdD$~KYR|NH
zYje;-Ut8;pZFq#&RvTFJXrUM)3M=s2Lx>3?8OZ*TOk4ToD*RciLF~`P%SXR%4<-ir
zz}AI+Tz)r9K!aNk8TP8%SQ9`Hw6@jXUK!W6#P|U0K#e5oRKQTG9WwzSyO&O$XUElr
zC5ydenC<Dpfj^j^Ub|YL#!H#aJ9_rs9DC1oFFviBLMJ=vHd`ZJHW)10$|dg$55;cu
zCq!3&7B-Hrn&iw&V`S<HiZe@U6yVPGmXBBt!W>i%;6Uk)Kkm{nAJtLBmmsz$$HzK+
zw{>BS={a@x93RL<VUI0@koG~WDvh6M?VW65z{7{B8c=0t6VYYsa5u?N^LXxf%lI6-
zoDUfYd%1tM8@EC3TpHy@A?-eSglOB%j^C6>AzKv8{PZA|0$<uZdI^ToXkJzZ>!Q42
z6JbI$7-27$)9(-Tk$52YPHF0xWfQRiec5M-GXN}9s>euYo~WE<J2lJu5da7M-MyUr
z62HQ2I!!oS9JDoiWxLE2jk1ovT5+1BDivL5j9#NG77n;E)P}B!CMi``jT+NSlGj7l
zWfvRx_Lmwe5#RbPbkG{jsUsjouBpt|^J!h=9r!vad-CI@6UU;BfF>QhF+2Ii5(?%X
zeIJS@nyWGYG#75v?3o_uWin&C%ZO7%<r`Hh>q?365^JcocSBvod#>SnP(d4fz;8-l
zc8MZ%QE6D08JB2rEGzRnuzg56mp>tU&np(PCnn2Sge{(_F5ul(ALvgBrpWM^@-Y38
zHEN?yYNg}9iErYpTpaU&(mM!XIiaR}mcZ`zzr!v|4g9%T_<tI|_FIC{&*gpRR@i&~
z$dX<=XZ{(%MUB!4J86C^|GUjj?~>Fdk6b-_TF^^RosIW^%*v+|P~NBgYJFOE=|Jrs
zmEQO@)eF$_`NZ|#|1h@SuJL~##b;vwpXZsHQb~s`h&{8la|w>s`rL10GP$Fk*-vZh
zW3*+~c<e}Gh8l#;#Lb6qFaJb=Q79NRV~Qp^DBHvF0bJR7e1Q<~XvDl9pD!xcm($!t
zqe09d<%Z0knW0dl4iu<Spa<uz8QwYCdfM^ik`?<)vE_`hsekPSaep{JPA*(spY|mI
zNO+OHg>vahj?8=7-`~`DHT&k+h-RcQVsfvCrp3duL!dG*=lN>C9fotLyQq?YGMJS(
zlf5zu$-x#PgBPai?uIaMKjqC($IwLuHkgeN`=THm&AI>8h3Lp?&+boh{c%g15<|AY
zIAuu4jWtM+Q96$61nUVd2@}vXSz0re=@8FK-f?wl$yZfca7tKqdPVY&1bP`Ct!LoJ
zm&04l)s8@-I&;Bm2Dz*XFtH%wxu8#9mC>bk^XR_M<J06ZhJ|{M=F<q3q6t5<GdlVT
zlo}}sAdQhVx3I9&pcIb+Wzi=PFL2zxW=0Xc+`Hlbrw_8*JSyU{0=vLo=pis`nlgXo
zqRF<zBKBA9yk(qn1(7*6XF5UAWGvv8PWueV;=oD`;3F1jOdjOiFoDfOqxf<^Vw%#%
zGw(K^Tn8QkDqcgXp4@sqx?!Y;y(f<R7P?u0C0dh7KH@a)vuc^e*j8*!tGpO)!Z5~M
zQkf3{^a0>wV$~dX>C1Q;*p%0J`e_=cd0w=SQ=EwLmGj{UKu640S5-yTuKGGfwQ<e@
z7P++Kvf0X6B^;TW-gPLcsc$d6`DR8FhGsY@Ak*0uN{=h+eH!y9>hel`!9TN%o=P%a
zMx;8nMFr)CuWUZ$7%(Oo7X-%x?P+a!;K3s$DPrDgr>*R#r{;mg-UGN6^5rPfIqAu(
zDy-Xjyy8RXvPzwmYS(POB@ouUXNLEx!7!F^#6g~Sp9v85EjE&q)#TXIT<0?9saIZ|
zt0*D&-cUGL8sfMJHws|Nxkj8$M?GOeDT$+W+H!VLjN%>`yV<>euWMqV)DEgz;{)LU
zgExhjxXE@`C5b7~MK*yS89JKUMdsWjS4*|!fx}L9CceDLmOoKuH<b|S2p6)DiAVsr
zLY+w9ir_0H->CsP8jM87@~+4{CeH=Y_AvC`0k|yQOMf<DivGfQWPjiTvddYZZwl1*
zq);sG8T->2<LtP@duXq;5EyU7t%2`mU~UXO<9O$&{A~)hH5U3>2Ua5_^K4M;P1|8A
zK7Eyg^IJerO=64GdDysV_LSA{1-a@VGeTTT5o!XqGq?4o=fm=SCgOTkAWo=vrN3py
zHOkS^Z}9BP20l7s*ou&4qU56vhq!BE{itTgKo}(eT3MxKCkuz<Ar`cA?~-Pj$KuLE
zrBD={dLdL4CnA5xMn}0OGqb~SLAGUzGMpeZ3*gasqN!f8|Idu&w(tdTRKp+0O_}G;
zo9og`jQlKv1I+}iLy!u(E3s|=6XE*wv+^{{`dzH3FSvM&y74l{Zdw~u!4{Bm>&hxD
z8-RQdjV0JOL8YJTd?Y4)@<5W2H9<K^G*QG`@pJ{xxPt@-C|h-iRAa&!c9bZxY9?vn
zUCs|_(9|l;Sn2dSb%_H{rW_fwpZ9N9|7MAF>4C{QI1;HoZO^J3JX1n$jXKM56y?)j
zBVGIZbT*su<0;GXY_5ne;qdg~y1EF6jL2ER-99K6=Rc1DsVjHuXL^CnV!e}?b87df
zXH;+Nb83i5bqO61@BC3=@79lW{ToHQCO$9!W{Y-V^I4H_K<0FLJRMBLXAa2QqZ$2G
z-FwKi0~=RG!kEelmulrj%6}*;{4IqB(a{w^=LF+tmxoEzy>y&4W_>fe1yLIvs(`d`
zv!VFiM;1Uep-uB+gSM%w1g_#Vg1O8+tf2Ghp(3}zB7KH|{ca6gnGMz`gsn6AG&Nw(
zf+Nx#d&X{};NfrQ&kr*qeryRrlX@QWX%MMzEYzkP4sY1+cMQ<P?S^^{+{egZG|Dw$
z(lnItlmk{g-LO7gvT)E3uHVCC#kN=<>MEu#4`UFq=48=<Nz_490qYvYrTiolX+Jc1
zym5hmKvf5f1Q(hhZ=SEOy|xn5_x^>2U9Nw*!9T75UZLB%+mXg@cNMtW?HOsp!lQ_r
zK?e)V89O`Bb5rjE{<zmxWG$lAc9(8Jg1}R2l?dM||Kdd@&jCfwN4vI`nYqgv5lmVG
zhJbV0G&${j{i3tz>w*CHu_xo&{JLAR4w3{5smQAPdpVN+tQFYCxN00nIk6icna8wN
z&FG{VLS4wd{JE|XIOf~<dZX}VFe9`L;bz|9O^N_(L^fE8+h38LQND}An0v+&q;7uy
z*u02&7_uaX(Kn6PbcH=34<2MsV*EqFZM|~u46({8>n!BHJIQQZIH#^DTDjxvhJSl?
z9Vz?$>^12+y9-O32cUJ2k&f#x)8j_Eu^Y!Vo@tnETeP~7<6g{qq6qS=sHV|ax#4aG
zuQCgrcI9lz2v&u1=r@IA@SGumYg*dnPC2@_zdRBZwhEM7HIb8*{O-$r>w*MxLiHCw
z0{3Zgw29*y1NldV?RO-o>IlD8h!jA4^yB$2)M~FDmnnWnM1J$3*Bzu0r!<#5!oX)#
zan6y81$e4&Krt|Mh~u!RF4mBc$-5ZFs-E1gT&-E_O)tN#-rD2QLJAKoZ{b>(b>sD1
zA14)9Bi0gXV%E=T>rcvO>G#5$46*wMC2itve5&e!(+S(Mu61BmUWDsS;0tm)R8XKB
z8|tksNi9XCEC}aU8MQFp$)U`%S!2C)a7rI9L%sfB=`nfwVL$Sa-<Wkeko}P1PFAPf
zBIEux7b~{#_-(90yB671V;WLy<gj^IE8A;o&C65Y9;8FJ%-w;MlWd^=AXH$CY<E2I
zS&m2j5Eh+{e=Ao{s72P}i}xXlG1rzsNAFyJ%`>NL)R-=}QCX)+%>oC2+GamOW!xdw
z^az<bQlTG9^VE4@^)0$i-{=2D**nJA(!J~6ZQHh2+qP}HSKGF2+qP}5wr$(1?YIAL
z&d%A%esa!pD)pgKGnq+^nsbah_qeX#Rou$P&HJQU6oCYPY5C3v;tIrj*sDlFtuQ9>
ztwQ!Y9EPw!fDCTR_pleLfO4@UB?S@}<VT5wwTm?@Z75?0SyS&<hWOmhE8W|T8-ZD4
z$WHe~l}>M+;3Hn={?@B;cdjdPX6AIGrHe^im-Dju7aqs`L5<-SJuhq{%kzuR?-ZY}
z<2@FicvkRE+ap*1C(Y*r9Qg9;A2>;D4F8?L`Cpp=Y|Q^YOjJ|Kc7y#tGy;frW!)j_
zog%bVp^UcjNUM%aXK3nmJQOV#(3kjehn7{nUM8Yq@s`BZumkVM1oa|zx#>x<7&Ce}
zGrMh%CEISVYV|&faI>L+FN(Nzq+)6PbOKHAPlH<qZk~%~F2OK6PFvSD*w6`y1~cF5
zUTf#~>RKAGCbK>uq3~eRlpmQN9!yDfY_2(dP<tyNsbuDE?EVxbeZDaC3kRf+<>z{V
zE{-O;l%IN(u%tc8!~*LdAnU!M1Ytyhb=+bzw-m1e>1m`mrA+!izMPYZw(a<%_tf3G
z$78V+tfy8NL+J)Vn6O>Y9f1ZODN(Y2yWl4jCKPK@Yul?gDwJq1?cj#0w6?z!*e#<|
z8U=EuO>;=A>6Rks^?l$+R769N6;><VJWri<*jdY};))yC<*B4pi_ohmyXl1)P@RH^
zM1P5Wd=lZ2M>|)3tEmWVnJ+d8+%)X)-01q-wn6Fj_Hti6Z|iiFcGTpS6-28UG`PB4
z`mmAN98_hndpkNfJFMU6e)?V9!8;;1x@F)LUIvTNER+#n9>X%qB&-=N{>|KX-9q7?
zfg+;z;3iTI8~5&R1b2<73(6edQsG9W%D)#~^U}O8fv{~jWX+~SxA8!bBeUVo_2k8{
zTU!;|Ug}UwOQ<vbJ@(fnf%fkLb@=_EfB*|SL&Uhsh!*2Q9F=stSyu6&HT#~N7Hx*<
z#yRP^#V4k(6gpRBGZwlG94?}WFec#i@~-6>Y#6p3IKHo$mYqq;pB3a>xOoFcOQEMp
zC72x&E|)>sdlr^*BJGH`7>$Wmdby-#{}A>T{lw&;Uqo7@+5$zhDm~8Ty_iGu2;(XO
zQmO5`ANyOCiIFmpklPh&jv$<iN^@?Ey)opmB!#Gjj^l)eg(Y(gd9HOoX(75ZGxcIn
zvF#gkc2VBKLLRIBH%AT;S+$Y-X>MARV$&F{*2RNv4b%&dGOV_az=JTZL$f2k=KWpN
zcpK~0gxzdfK8=C5y?Lkii`FvaT|>+VNok}@v@~QT_mi<OcKxaBk>E=eTq^kG+>AsS
z3<$aix~lirt!^Gn?yFl(8phis#q{NJNq3Vx<T>hhb=pOZcYg>D;-rH%%c0a<e#tO*
z3E`Qwv3$3W6dE*O{62%-_b&tr;>Qq*6O00bu%<s@0k65Hx<0VA88C<dQUw|#q}gp7
z(S~~h(Ljo_7`4o8u=+mE7-gInDOj%^rQJFsAc{Z6;xVUTi0eTqj(ZS>gqNk;&UOAZ
zveRA798SRE(c9~1EjYinJ1mezQB5-6a8f5OBqmB)p9Rb(RrYiz0>KfLfS?h9KY2B8
zHn8hA&mWAvX#=5F0+`3Gi=1|*d`eJ0@ynT26WORDIFfrhHF9tj5vCM|D-E|fNGR$K
z0@T1s>lPvZ0nBosU*?W#Y2V=Jz|?diSNpiibQD%yOk<#^%8l30dDnTM`cA!6LJ*)x
z5J~VXRGdG$UI8@Kf`pkE%3^I=u?id~fssWK4m6h43~pLQl3T)&z+kuO6=f=#AbvA)
zA546-WLuqO1$D&QB<I+H05QF^oqIp%?6Zwq5MXX`Q-I7>nw?WRAr7rCl~Y?pAq$|5
z&rSr<jl|mpmj(x=e@{`7y((QazmF?u^oUg<yJrIztPdg1H(-HKmtENvX2u4IHavgk
z=DC60j@?+etA1jRD((D26>#V(cHAs_-0c=ENz+`#KHHBt3Y9pcU5F3PUIzvf`N@;d
zb%iO+Z!loDBu<2rq)X?e){?Z1DB!F_6Mr41h_hYr)%Qjx2Y)&>N=T4T8{%M3F%3AB
z-p>)aJkTF=Rs~>Ix8JIA0|2h7Nsz$@|J{)|=e$yDY6CLo1|8!TcCn1dLOYb3ntL6D
z%paFO=Dgylz_VR|ntNpZJSgA;QGd_nA!}kJ&`s7)qMCd48bw}}bY*JG{rkwdvDQxw
z0TH8%xPMY~n+2`NmO6{PCwN!(Ni($7ZP1@px2@AKi<;I`pZ4j-X3cF^WUow*|G`AB
z)toyC`gzvP%+9Orj$Zb!$U#Ph&yi9qgml|Q?K$te-ePtc%-?5c@{*km<e&39`3a;n
zgx`5f$`i=k0PrifmAu6BQjY)9P;G}F<;0k4zb8jztq$S4Eo3<R2br3|lT1C9x>l9c
zRV6$x0n=9LBqnoHk!DS$$nqf1!blPX+$#icac>IA6pA#jkrM?yhX2h>2;^nBtcB9O
zW|T|z672cT-0!$~wE%JxF|TppaKF{4!J04eLOw*Rm)KS-_TvB>5ZC$k5H`rUL(m&l
znf3+r#W{cepREg4#{a%L{-5k$Y#jgF{`LP5#xkWbVWZ6kvo)h;wr1lbqCi602N4Ip
ziDu?cFji0<FM=0HWVTEB0WjZtvzLAM+bUM8BZpZBV}1!IUW`OUfib-(p-IvLHM)dW
zqMW<}H<x(nk3>2Wo5b&oHu$C#tampVSZ`2ODw-s%c~<(Gv7lMa27iX@^1@nf#hck>
zNi5WJtm6Dx@Fis^0C`anoVi)dE_pSnxKf!p1_)a)hkGki4mogA+84%;`d=XshAUC<
z7B!lA1?@KeP(QhP@`O-hK&YAo8hHc$RPy=23B$nw-4V4NLJfirwLN5`XHa8MV}t$c
ziZp|0P_oGxfvC7_6n1$qsOxhKX|e{IWYVnxF+f%zM(BRk1qYUlY~KJF$Q5<8i+O?_
zN`2JMSay2O<xo4y#CCua7U~g#W>=t6AsXj)zJ_S%e<0|!vqWpd!<_^i!7CT1!!7+0
zJ%mQ4_+p)MX~Qw=^Kk9^egb&R53{C-LA(&~sMWLJ%K9?UI0@Ep0+Z{es5l48>>7Y3
zZ%GGLs@oVsM+mjcg%Ay=xWbxQ``jNExsjY<VmUQ2gqsAe!6&h<c@Qjtd$r6ZB0^Qz
zoNhY>qTS@Nsfj?0uqg}Bn5yy?GQL6TqJYLA%!Hh<2Lw4)EkM9PE9rrNhhRDH!32uh
z%=JN|+)g`d&Jkf;wMb*tM(^BES6@%f7<i<}q0A)c<{$3qdJSbmLNg>p7jt!eK3+WT
zPUm(A+Yh09LGw15q1E*Q@oHu1=I0bLV!T}mmQN%`=&g60>b-vxU#vbqx!{aXEW!7z
zO>Bm4p1rP}Z%rJDa7rxPn~s=!G=Dh7w@~SQzK$UAb-h~uNGt_E|32*Fpq!jVo(=!?
za&~{RapyHna6c_QdWW~osp2h09vO|(M%?XIxISQM>gEW9h?@EBVlD4#P46&*cDdAW
zi|2V|SUstJ0i0pDs>u#-K}anz2D|Z@6VtZv0>N)J&2!D^r*@d47I%SnjB3NBTaK6R
z%6Ww41ZQ|zsjVLlfMU+V#OMX0$x=BSH_Jx?LOStIWC-6N{`7$9H@<rrDh9F+NgFQV
ztfU}ap>7f_VLfU{dicv=n&$Wy3VM5V+~Ts94f{5cd<*vvm1UKg4O+yqnno+?7u=RK
z34__73#2`1rG{aAa09s|b%Q*&akL29c(YagC=pvqh@oHEu@6(j^=O`JwqB>$W;2M#
zs-w)SDwqh(QyokM6_Z!Zm0|64vwwzwCyXU-y1$XS3dv@kc0U=FKu>i6Rs#mwqdc}i
z`=UW(-e$ml`N-iwKZkffQ*RSS3uMAW*xV6AgT$mY%>8m+q`4U_*1@h;?-JTZQ76}J
zjgCk4F^5^Y(ZMnqOXm#Pk_{VM`J-LBBWwq)BiNxO1k{450+awGB`=xE?CdTCN~`ZG
z5lON_LR6Zv364XvNS+T~3_{$iug5!Pt1VwQA3eZ3j}4#q%+*N^!e-#G3eEGN4h_DQ
z+^@$Hp3jPJx=RioULGBR{jm?)y`&Ef!>#j@W|<APD-Q`ajA;k7g^7t)^!w*nd|6*T
zX*pHXn^aS##J?VIK5qsd9)kCwj=rHH2S5>nob`Jjl=n(fHFf0A*DCb-v8LF)(hIJY
zYLy`H-i|)6PdJWzRkDr~WmLV+On5;sgOWxQ#i-*!mHcUucnMO(VZWZzr%v0SJk`PA
z_;50#Ge0o>LanxxB^X`bscbs-9ga%qQ|b0gXnsB#u(D}`#2n3q3KY9=K7BLmK2R}*
zZ*mselOUuhWZ!UfUjsI_yJ97pwHVz9hI>|Y8m$-`wIS6=2qo3<^>LQ`dh4)xFVR_e
zDqV4w3YBS~Fv#e=tG(%)WS{xKhYh2xe#o`en-**`4)j!HO=Qmmw$&G+_-o4gnPYVs
zXH~<kVkw|_p(Uph0{!rd<2+(Axv=1OPgrit@3+s<O}j*Ll6gB&ci4CMn-kCaHsRSE
zwrX#6g%@qZ*@!41marpk7h4Elz~b;KmjAh+urdDwmX?8u?SG-5|L?x4s~@rPx+sdz
ziP|Y5qe<g>=bNb2CFg;?VyaU~;-NqbS_NiYnEGZ>Z;xqn0=2;!M5amD0y^=H#mo^`
z>L)w!lL_9_w1+KO_e$yJvsV-l&dc`ibI6FIze#fO2-_rod7onCron|I&3)tHLWCa+
zAGK@2a>;Ey4<v4+X22y@?<WG;`4`EzrwV?M4NpX?9v22f!4F^4dfIN%`Xm(G)7?9s
zy^nSV&@~&vT2={){$}S<Z*@?noNR{oUaycbdmRXZy9(|?KvKb`C#i{dYcCe`he6MB
zeA;+&(>ppH-!=s=!g6ANvdE8-kK693ta5U3+E4!cu})LL9_fv#5gkdqTl(d>{dKn`
zibVSm&$4x29GgVfO_(?39w~FYq1bwseo<u2p?j=(Ugl>df~b-gBwqxy-*kw_tn1}1
zsf<fofe;VUlED$zDMooA*XXpDBKTZC`Cy$@qh|9?mNm20Apy<9D$$@3Powq>eCQZb
zre8e1;oikKk`5Q`vpCD0{1;ga7Zp<6S^+P^*nUw&>PsC@vayC2@W~bI3)v@HjjKI~
zb=y)Bf1ZF}n-QYH52F!?Ju`@F=qc7efWXAwjc0}Sw|!9}pmIkzpF!@~<tPnT?M-_a
z2T{~A(~+(%figi%I5~qdBVy*3KUl>%90~(f#qlnda$}6SA5evZMwWQ#<K_NV=3Fq7
z?ZV1@1Ldl3YF!myX6cGSd{I7whF3SM2lOroa*;T)t=0@zAJ2F^%_7Io#$bLg%et(r
zQ2P}E7X`jA3#XK1ZQ(46I)>$9E9ryl+KSDXOLdDIc!h59)gBojQjmw>00SO3(<X{R
zoPn{#%Vcv-6j|X|?#&2I1*tMfS}Xd}EC<6=W<~zqTLH_QIPNL9MX=3q45Jp6Asw7N
zSn+_k+NBu*f{_DXMLrXy$c=%R1h$JXAaR*yL-$ZiG7va40dvhyWdP8+4_9p0uDe>)
zJIxVIt0~0kJm$-_TYx{k;-R8za|R%Jz#0SQ!&kdBYOO3Y{88*`Nou`>L+5I@+s(ok
ztyAg(NAJ18DTbuOa^+<dZ({69Cp$UL<T`DWVP&2M-`*!-!&sDf3+M!q3NqpF3u9lL
zU>6_fd8P?4To6qk0?-vPtU3Gl(M#;sBtysyz5UIQgn6V6_1t@L8NN!Z9{}=Dm0({(
z+F>NIc`OhcHT?40PEpjVQ}$*WyUaS3s@>r|II7Kge38%AOp^vnLLr<pF3PH1xEL;l
zwE&f${{vICt4JaPaA8u|I}T0=Crr+8dLS;lWAOCz-XygdgT<Ybi?kjdR|o`HzY<1+
zmp@E89=DK5Tr8B;8n{qP0|=y#LrB*uF^yk?jAM)!FeFy90_d`yU}Vi|0Iz(8e1`!8
ztPBiUsl;5nq!g3&vW6n(?X0&lSeamc$4ZAIq^4{Jb!r@FD*IeZg9Dn8xql&4-H=ip
zTY9_k%Yb0Nlcler4#Rab4GEAYkLn}WmW+q&$%eSF{p~ABLH?~h5+W*l6;|>Zz<@5D
zdq;}Gc7j2u04fy>oO_oG3!YAw;x)$`WvS)&eJH-gfGCP6(B&4mZ{5#u@%{46<Le8G
zriUCk)Frc0O&O}V2(qTDh=kM<dORBjRx03;TYcK&=P<Yk)8R1Kh&(qOXbI2O|LzZp
z?oNW#df*|m(pklPnQ_JM7~?9a%3*c#OcOV<%s*oefrda>_Y|tX0$I;?#F_K`La9Oa
z_nAkjvBa6U5r}I9mumV|1!qLo8m!p*QNk~1TGaVb)b|<W=gupyOZGSE$d4dcY-7nR
z-XqD@;tRb1yFcR}ChLE~_Ooy>{cCAJvhq)I7Cl1u4_qz?Q)`ZGKW!*_Bwc!=DMvQ}
zr!Jn7Nna7rrnI*Q2on5K+K4tUzUlp`+glSv(XVg5Q^Qlu6$dy<KZposnX4}-C@YlT
z5Gokp0)+duHByDXH0ezQb29uPkxWhHwxQ>lx4K&okF_14k3d*H10kG9oB?oSz|%v3
zfWh<`K!8^8wzE?M0|5k-Wdg_R8IR|1T%fRFwvJkYKmaEQNeHpMp+%xa)5-Y3U(Hn*
zuCOeKgyh&v+Ne3L8T$CfNn^Eo^-H&z^S80m+JSY}iAygnuIz+TY0Pcwkw$hJlQ`%F
zA-uclQmf{0^P6pcKp#cKTiIH${(uw3WuRg<X(~ap)Eap5o1(6h_=W8Uc_rCG0J-Z3
zgd>(nTqw$9y`M58xqcP-<BJ%943jgOt%I>vDyaoN#=`O%(}46@`c}*2j2RIeWTDVV
z*4k#45G^SLXeiEsQtpB{p0_Mv;lA0utCfs81md1f&C`@q*+eKE+X{S37jn&>{7m-V
zt%>e&se5~Pw!uNi@>)sx5_kc!aNf|I`h&N28Dxf@>t9Z8=pB=nvMtsTh_+FgT3Yb0
zO%$4k5^TxwaE0qCtmCVe1uEv+Hr4PgE)easKv9)XM>=4~1AXp<)$GEOM>!UmF+_X|
zXlY&Yy4Q6FN+wIyiI7)YoCb%R5LLYbRp-KI@1s9kUCb*_<p;~<^CylO>a>7Q)`egZ
z+{7_d_x(m0H?VH^g-+vMH&Jq!eI~4o0-EQvsJ40#Eg$9VB46O$*-^Ux^b7q5{2?Rb
zzwh35|CAH^qo_X5wel)>s<N<GJ$i~P@G+tGX%5`TQA!e5*MVTawY1dPfm}?UR!$yZ
z3FG?R>UA$mmd<&1&KzH-0kbyA+1t5a-%k%O3ke|mNA-mg=5&5|L7a0zgp`SMB(EIZ
zFZAqJ41eZF*34tiof@)^?-%sMa%JBN6Th<&Rw2nrdct50gUAj>5_5fr$3XDBCFzkA
zNq05}MuMcGNCNkm+c{oWAmJKzozpQ!hY$}EmKiCF4J?m?_r(hqauC?Nt0Evr$yGdB
zsYfCWRXz6heN6Gob-}|D@lYX@j@YnxP#oVm^+HX_g*kJQOX=%JBN(a6<?Nu*nD}_c
zeEWk^_nIf=QeN4<Uky}IeTS+`z6?;XR8x`pj@XdTynAkuMcmmc@t8by*}F4%{-jb1
zLxWyR*d62_?nJ&8P}~^6vRp&RBc3qx)S7;nJuRKne$wF6eFQB4e$d_9^X8f^!GF(<
z{dQIa4qBW1e*aV+Wv-04ykK?(XOK5hcVNquHATB?P3BHiN<gcF4J0M0cBn<@^`%)G
znErBeVB4#vE<nNit$MVL)u>bv05iNee%l&tiEeiVf=QSKs}ND7SeGoA1xDO~1IKHH
z&FJ6CY!W_zg-O2%t7IZtD~*{o6qiiuX={-s8OFb9*P5EZjkD2v4G)gaRlP`2l;(`|
zEvkF0!tm6Wdf(MhxPDFc)!)6ePmB8ikvvK%KveQ7l|%q5BA8xC(SJSM#P@i9|G4ye
z3V;f8|9-?=$vuBo)kTLkA>qRc`dt^uw&<4-hT)C_OW_{{Y5(~5<LTJM&gWB;RNG|Y
zwQE$;7CH~9GD_`iPvn{)Sipm;p;s2ZE;TCuW8(I{^lRAc_7y?KtDJz@|K=M^VHh;&
zj;N!5b>vQig>u{~ekRriAxi*aZbSj(Qp7xLhfR+kcJRIuc+u|uK_56!>KDK#VI`hv
zF+9rVFTr9~@lksN;2KHv5jAiX2uB|r=f1OyP;uYanJ>T$j40FlOTt{`wWjAd-<fMu
z<Hd-rQOZM^0bp^GSQK3SU$heXI<14g@HJp7pZ9x!nr-T;z32-ClSXlF(4zx(!b|q_
z8{KtK+LupnCd^&k7+Y}f_;3K;TGQxD4qfW1T#Wg~Nf%}90$IRT75?apSqUJj?g~c;
zT->!zL9#%xT*mCq+O)UqXJL^CxLPlMRagy3b5JNPo57XndKU@-Wz6vfArEM0rtAo8
zZk<2!#ix7L*mxU^m6)v#_unehN-gY_&ctFAt<4>@ysJnl60rs-e?P9cJ8ccOKYAfS
z!ZP|h%KiHv%YI^42A1UGeY(1z)&{&Q;=ckwZK#`K(fD%yx_%iQtaZH%_V8mB00ID6
zflq@e&6cPZZyBEqL)Mw}7m98LL;h$#OdH2dC;^|CI-z6tu{wK`<psv6a<!OSMf%?o
z$?G0b-yPL9yP&8bi4Y|0bq1R;fKYy@L~j{$RfoDpd%H*=Of%OsgrOP`3#xJ#OQEIv
z3k51Tq6lQ3#dC4c8cJBCcP28kN&{_-dBf1mMJCOLQ`HJlSO|Cp=$q&Ro~t~j4#Z(B
zvPKx4hN;jY%*0xkKF9<k5ShubJ(j=#V54E%(SCrDzlCu@0f(?j)sY3Jrq}@K%f?7I
z;QKDY`r5(z#~1+Y1PDwkexeVImbF|7{D#l75v+cL_v*{M`;d_Xfe^9q2W(c4<qil2
z2_ixNRJBdfxVFQ%py_GXJqQ#W=R>zqasW`WuL|<=aS~GV!u7J&TDHPhBmB>9!G-gG
zDKIcn`OnReg?0-w_mP9czV6lf7=SU)6oyVP1aX#R?${uX$Y8Y66OyA^el4A21_ZQM
z266+l`x`v4=NPn88C_Y~M;`H;6*3a7|E9(6^W!2s*Y=49(@L=8U+>lBU6+1bBCp`@
zvmVf0!XtUquu^riVA&ZgwZZ|)1bFj<F|7xu*ONu(n$w@jS&VGorNUF?s5@nJ=%3ZJ
z3+N=;kh1P{<KB0q5q#fCRQ^KBz?g1gR!G+u{=8W`SYY1S=%}{;B#y1-U+E4i?CztU
z8r03#G0}>%)|Kc#z~J&@tX)JAh&4*qhksUD63wMzHFnea<rnD(?DsjSN0WHYYc308
z>CokCECs*4z?7<X<#gKmzE4vA_t2*L!be&`x5q)sa5$dzZ4~L9p9ncHDu`eIjL_aI
z73gAbZVY?{U9A=Wd{(y>4WaEcqUnn{2c?W+gwNR_IDs?P7dV)iphHlz&mJj!HAE1?
z8AxH3^n8l&4_BxYiE`V0@1mZWIHZBKMX%vpP*IQzP&VdncN5cT7Lmjxno}?Xf9qa2
zy|v;Rq|*kCas|_%NekCVCyP~{XVCm~0488gpirmrYAg=+_`L^Z(vD&^<CdP5A#Q7E
z$caaC*Ktd!VfSFOq&Ax84gNZ~=}Y!^-#-5vpqxw=p%V+z9pRjP3=&%cQSoL>TLGnt
z&+k@eVmtXiw`&zz_sc8b!kdblH8t>U9o2oYzTRs@+IlT!y*(+3C?aho95-6BK)n@Q
z)RJA6YakTNH51w0nYSlw?ss^?RaMj&n6XTfP9~f~t3(A%Gvpz_zROc+=Frg!5Eg%(
zGqA^-TbDx^?dmS67KIRFoTw8xp&k*)5eADYg=JBwmpbg@r~mA*SxiDd14pVi22Z~*
zMdM2&6uOuO)R7y_pq}xIH=CoK!D3P#hat|R%r_&+u}F#aW8*HZKe_DYc3qEOMcP%y
zEf1p#MbETdPL>9XlDV+cPS@6GD)(EhELL$ngnnG}?P0@SUKz@4Wt&HAz@eQ<E8&bc
zzD(^AX1v`nWt`8J5ae&fsHtTbK0Vt!pt7R&ETr3-MT*(1Mz@58<Ic%8iC_-=WpR1z
zYT-t`5Y<u_prqrR=%`~NY)W^|eXnR0`9Wew;r?}0_`a9#`MQ@E&_~9A+7N@&17ui=
z1CjmWJNk5g{D+F@pX9s@Oh0%3|KndYSTuebEI)4U6SWsalZcAWLvJa6`sv>iD`~Q(
z>%4XS5<G*X&4gPID>w1R*w8Q}l<=Ns(5x**j=b47UYrT_t~Um@s~+gh+qzKuh*4gb
z$aEd|ZHwX%N9F@@NxIDUyv?4Uc?-r-&FGb~spn5tOtFpAsizezVVXOdAb$q%?odRr
zI?OJKMax_}&Ai_Nx-q*t|Naz2?mPD>(DVWEzwNl5|5Wp7w%LKNY#HvN3G^T=wy8u_
zCxz6fJ4X_SQ=B^m_g(p9RWGQ7#y=sqQK@)Z(COWqn*TLw)|NYYTBDaS>BW2o?5x2i
z%pj(L$@2Q}G&3FX9`C>IF!$b+)oH!lDc+?~a7mJ2?T*EMw;e%j<Ap0eZow#q=y&@|
z+m$ZdZwBC2UiSWk35^p~&~JxevjghwCXLg$i!Xq%MvFRH>J`aw%5}A^t9V5pK)CZf
zA;FMnI)?DDlZL(BBc%rYZe~FTZ~l>1#hU)<x^b59<iy+hy<9nvW+3gMCr`ea3ra*n
zB)t?kCv|Yf$$MTUA4a9=BFJT}BkN3Qr(>Un7=lQ9V5~kYscMaPJXT%bev~xH5sWK4
zMx6E6A9?XendO{;WUHZcF!0pU>g3L*u}g=%(%4`jos$v)@gZ+aM=DOKE#juiDt$?C
z9MCbQ6?n~-VenUAyLre3h97s5Qr|8y?Mx!#Fa_KZ9eJTH%4U?sn8LoBjz`_MiHEpj
z<%DeIL;D{L!-Ui=yc3BQxRf1U=>?o?hCt0l*c^RmB@hWhhZgbu4PJvR>*I^;m>SR3
zsrXbx-sqJ~CyfSgbEA|=!->a3CNgf>%H7pU8NnQKsn8~5>_KO4t{e=OvwB*Lybf*S
z=-XRCw~)Ja$ru(;phnh=`v(ADyUw`6rEFrUP*U+XaRh}@C}BDe4|Y<1kzPj#`Ketz
za?(Yh0tTEV;aVAb7>_oTC&vdZ|M7HjS%xV3fFxDZCE{0V9xAfk6~j+D72;1r7R4Fk
z-d&5_Pkz`5AIF9K@dmx4%hLIV-t9kW41^(MmBx2gwF)T{l8>SpyEBHw_EMwSt3y5}
z*-j?`g0C`l)ZNVQ{$LbIgf+Nu%Gb7uY{0<>S!kR<w)k9vKnDq;g9KLk>6t^p=6_=|
zOZlOXGfI=L(^_Xr%)R(qn<`!yU?P7zx^M_9712Lql!_ZRcTO4f)U<HW<4db{;&iS#
zq*oOSn1<}P>95++V+9G+LK2QNJ735k1NgTgjC_^~5>$+7e3Sw~nGtjV@4lHhc_XsC
z&baZ|!vpP(0MbJ+pT1}S000^oRk#w_F<{09Mk*LV2<NQvVFJh4U$1cx*iHI1Ee7B6
zcC}-zqLu*$bxL@!K;SDbpq~KlF;M`8K^uPH5d@*HfFI<=3Z5Q|VP>@N&qaZ@Xlf7O
z1S}d+<oJL^)W(INrYS@>QAB_7ngI!*5M|(i0yf7hlY>AW2iUuyoj`^Lsd8;UlkJ7>
za$>;J4g@}GHM2^mHj?2a5lEgw8Ut0AK5+AwO~%&Z;3UqmLy>ozA;G;x^8;`t&+u~j
zy+vKC-R|py=92R1YPUg`seWd2dRYD8P-xrmF{Rp+3aq8vgr1#xeB*0ZXUp?Nz4#s}
z3{;9r9l^}a#kN8_ewNd6EU^JX31(n!M*XC!7lTdrK0O?3oJNAGtwIT}Mj1P|;;y|t
zz~#}jLE9xDUhbDn`TcIsxpO$;`>yy{&-M9h3~M+d09)Pu`S#=5$VIVwJZ8G)tobC1
zCDOB$cls-D^=XI>4*yb3xHBu?Tc?rfP_*jo7o;|Z=a?AMyF$<)5^QC6l`jgS2@44t
z+Cpc_H`t5|%0Iw3*#D8|PtVN$ucvSI|MbT(yie3F3z?NzJyRD)UIya86F414q%**m
zAW|_A)X}-dYHwQ6hZ6umwKe59eFWyOTRnR=@Nk7^af!^B-LT=ewIw4c`Vqq^B2L8Z
zae^p{aDD~vW4;|`XUBdLo@{DWe-c7>Ycxwke>;BI*dfASgQK_*g)Ku%1pRoCU07Zo
z((^E-yM;icQ1ir$+5`m=tJpVb=SKQ%f%m-#WpZEOasvp0s@t8<JH)RQ4}@L4y@UJ2
z9g+X+vI+}<Z41v||Gj&=T6({5<8HqVO^~>u)tj7Nc$KMtN%;~W!IayNoEu(RIDGj)
zf1k~G-M=)SAY?8=nE*hbH1V@SxFVzJWJ{&C;-mtB!9GC5*jU8Yo(^VvE>Ephdm^k)
z%;fe~uc{p2-6ESP&Zb>~6H6uUb#(4nmxWD+QmU~~zdF#!Av0dTD21ViR_}&zwc3CX
z0$Ua=&83<YGFVCL!cB{mX#Si3`o&C>cFel`xGDO!D|JLVK}EBEKr6sDcsNmT>QUwy
zwJ$Dd!kvWVSo1EVkES8*j|xY>sE%Ztlv0-t)rCZLt7dW2XaNdmZ-J{g4m3C<bOp1y
z!C;)_FLp6myN)@kxccBP5zro%;f!JW%*Ho4U#GijalPsWxi?dJ*`i&=1inTUm5?Uc
z0bdV|LO(e*$Fl6Msp@{LsH@4mXWSwE9y#n>f9O)*Mw4<%sY<Lr4oqF{=O;uxOi7vV
zTt`<+ZhH6fStI~J%jLP69}40pfA$>%oYY>8UVSgr@75TLml9bJH1w5oNVd+~C!djU
zMVKv{dh2IMYMojZw#K4nu0S)P+d@=BI)qpn(7jl0CZFag9EyDh78)EgIGt}@K8oY6
zvE!G<N&PgW&O^<5Wx!BO59!vJxSP$%<2SrHpj4-hT%S8^LQ7d%v-)7{ZWY^<jz?+T
zgGXRppl04kYTffCHgDol*EDwya41ca$3iEpwSK%)08%aYTg+G*ev##Gdr;pKU{6pL
zM*v(=A@E!53xP%NkWZCmNo~h*={(EdwGPoQn2~}?%a@iKK)qaYE7tIt@KhnT;)ww`
zj=}lR9WkEF5{<}h)<62)PM+jzRl#U(XWq&DS^)|@i6HJM`~0A|$&9bFa{iAM%Lc4C
z6hW6K{JRPCn~<%KJ%Ma$DA)4BScO&nF3Xy7r%mS<WUo1jpQllh-Mb3kX-VhlLu=T;
ziHb}WO6!76l-BuXCVmipzJBfn^5*kH^Ue<x<q?MQzgvc#MnB2Jvjp8lz#(hLLWz~t
zTHHS~oSF{DSxaZNW(VVvZYBYUJ2%?;4V<wDIY%N=aB|!dR<bu^EJvOf06^gRj_=Dq
zwW$zLfAS&2L<JY$eDe;~?VfFp70_R8=Rzbo{-I7}`tOmf|0iV!JN^GwcCh|?vih)w
zj;%Heg7=Qzp4g9TnVTu69z}&J4**F#><KXJZ8in9f?p%42<gLfdb8WrJVC~OjLbbe
z+cS3LWIF0(&@x#`LX|XJfA%mYpL9QB4oPG1w0xQWQ5job8wq_k4e6I%pM&kMzi^a&
z4CM9_i&BbJEb~QRS!N9Z&&u_%he+g9EMx#mOjXL4+~HuL@jZ-S;8#K9aEx(Qo5=0{
zU@aBFb=uS_id6~W6b7aPBt7E%?VP_KGJet#C{^q4A~;K_@=T!Wq$fyKh8>i;EE0cr
zF~V}FU-RV9_uy(vvoN?r46PV3NmDZ<)<}CA=C3N#n}Z_zHT!XY8K91u=W|g^Vx_ds
zx&$7Y>;j`UBDR>Rqw-tQ)T3))It|6lG#{t&_b%6|!8c=&JlCZtBnZaABun|bF|7td
zkqB7|$|o3LLy}^mi5rWv4ubejazlnT!!Cm`d8t7+3OcN+{lsvhi8Az~#mumr6p<=}
zcm5KPIL7)D%BpW3Y{p&x!#@g%UZR)`Qp*<)bYA3y+3>$phr1{<3Kj@m=je-(I0YZK
zdg)6xaQ~$*uD(_VvP$pI1G|f+S$o^6%7L*j0V)Gt!>~Q#Ba<%<AEnSAr07`vi;ksv
z8+dZBgdL4E2K?b5Uo2mJNr**V!~hIn@Ls<wgq*>@C5!B8FkDhvT9ur<@=@(<a#x%5
zGi{mg^8<QX*hO7E+#&R7X6O5Eq;jdz6n{7+0XpUyLUq&8+{j^AlPnHzfOQNc7k|KF
zDnF30DoNW|-sVyJJx|*r-Cf=$e)9G&BDLjAz$|+Z4NI#4HgX_v!2!$V+0zGAc2?0N
zWfyl7Uo~fN<SVxb0dm{%HNLRkRxdxZZq9)?li+ffx?NNW2dl=nUA_0ap=0v&{99<P
z?84j8acyPO&iB!dug&fLqiyEWo0Q#JmY&W&xAdjj1wLEq#xuGtTdERuHlBCy>*Ll1
zU5jsV<EmiiaYWjI;M)7IpAHxhk=?l!xUY{-Pw-G9r36T^I8vv*7@Ojdjn%!`{po$%
z`=3!bhHZV`F}-TNE?-BM&+o0y`yI8P??Ugjp(P7BT6)WTY`vhHF?%ELIipEZ(3(Kw
z0Fn*L3SiGAM(O_?!Yn&URM0JYT-iw707>+5dHtFqP3hUlF&$%BILY5Cv@-w;6=!Ec
zKV=S>qEB~`W)!Dx7ctz7M}%hNmHiVVVN##)kb-Jpz?z6QbN(i5vYwcJ#XNZ|aM@I+
z0mJfh0i(iYy7%e6U+|KeGb-=N*q9%(#vPWA#v1u^u}QD|8-32VQK}LXa<tO;2sr#6
zD+xHl0ru4lA|m0Jm;?`i2w)l))fONH$$+sp$oSNKev>zL_&SrAGZzr*%%_P0b6gnT
zXzR+~+fc~2uXeQ~)$1jXnay9!C$k*j(D*E=Sf;VMv+`ZT<)#?0XPcZ*y~nZMZ^4bC
z{k)BcNoK6gn1NO?UT-vFOwFbTxueH@XKG)4h40E*c-&vEZ4Wv=ULY%v8#Noe!_HIW
zKr6h<AwpX$r?iXiBfLWL57q4y@B)?-bK`LQ#E(u(gcKjFHVR;Q&Ci?b7=Uhk;!zSb
zN@n#zHUAR@+j&e9c<s@RECr=4cfRK(vc4CRMw5%2<1DBMEVg1Dt^@DilLp=~sn
z{-SDUMvADfF(XBi6I&tNkr?15aM?5!Sran8pEp6CrU~7R_tDs$6=IR5-J21n*Wcth
z-f<D$vctTkhPfLC|8?%^F!E_uxQuh_Y-oz6N96?$BBJY2Jhbt;IB2hy5o7*IKA!~p
zl&<+&wNh6|OT1beRTf`m$DV$C=?MQ@jD6)yOrl`Q7jN_PvTXkI)@;fOSE8{KHP}$A
zQzX5Kwy3SpwqP3D^E1Qpw?`zqGFM+K?xs6V5YVEv;#q^N*`e;BXAx9MQVWFCty4A#
zz>B${nt{~??&jbgW5Mg9{)S$pX@{6|O(3)sSX8fv)*VuyPhjX7PHSK4u8hGiL%Fpt
zLAjYfOJ{qFvG{DSMKi}b<GJG*<2|<N&|)pMF@$VOZIT%%zeGZQ%;9sLQd^-^^ZUP{
zu|`w);CNgjP(XNhkrUekg6CqBIc{FkSBhHX*0`fBL2y^0yAuh?toWM!JleveUSlc4
zqM!-GB7HhI0}5e=Y;W#NMScXY9^aNcMADtn?XGjb^QoAvD7-*E17{o{9KV(jPdTx;
zv+@zR;szl_N9_xxH~c4fk<T~a|6CB+8UIn4@>7rh+s29de;ENzDQKut<igiCSY-oH
zB8xIPBQdPuBc@2e4#h}0Vtsco;~PkaUG`BZ>mqfjBeM2jOpmdB7$0r8&vBo5VLWbP
zQSLEFA!X9o+Ma$Fg)7#VrV}U}!v5Jt|IYJ83KE3y<%Ack`MhIf61la$t#@TV^}b<P
zjr5p|q@2quFc$<l*fv{#{~PULr2c-YP*AYiSxZu?ACw^8M}N=z{B@>q0%zSp+D9Xb
zRLtIS^b}(R>j{04LV^ewPoNy}Hc|qDU${zV3kyf&+mfZ*ANEStihOVRt6m&f;FEib
zF%i{e3^E1qWBZ_jfvGcrGh0$Wr@eb&t<9L`Y3kWnb6SD#8(9e0erXCAf(9ZPXIkym
zCsFPXdE-rKZUy}^xUcV!GZUskHL8PXkaX2GfVCvy=Y`+v#9CR_r0Fz?wS^c1BGI;4
zy`{KF&`1H=luY}iDJT}=Q;?Z88vl8!(noj2IKV*!5{4RzdQoNCeiJg4!XEE#eKciF
zkt`mFA-0lNwc&b$nbCTELczE0DElILU@1Wb+@yU6b%X?G<8TBxS@vy&YPAvsJ+X3|
zM+e0`_JZOmZztk0PUzKTRu&vwEc{G9Rr}vqT3L87a?{c$>*Ro1<+&8?=J`<b<p%f>
zBal7_dm?VcXyGT<<!BTViJwsz$<r5dnD-3@F3a-bZB{Dxrgm^-OQ(Z=XN3|x7NWhv
zPHJWeA(*knS)a)b2^7GrcNxY#B%_&<H6_M5*Myw^6f_D56JNG)T`Qs>Z22y6ciz+i
zYqr4J)FH|b!wgTVpb9oOcAl20pB#@d+~7H{5bOo<hH5d9n<clP4zoT*hC^2YTR9ba
zt%TAJ>%o{S)e);?+7`?$n_H=)uz0YJnCYkvo_2+aMd_MLYqy;AzE5W4V9LJsN;Q#E
zS{>_PD0Mkwl*T6;{zE%%P<5ah{5bVUYNdK<Q`Btui!$)7Y^Ae<0!RMN8m%+L5Kg7t
zqR7bAB~?0<;%o;L>KXyvPX+FX^NAH?CW(wcnxbU8Al$p>#m>itft`a#`?>UORV!nK
z>)pZUWo5_LjLXMve<LG<gmdqErlcg#V8lx+)?5pMLtN@qoG>zMcK)23TWj&kPdntQ
zBB64+uA;)4%@BK9(2ra@Fr91$NhimcxE*oq*K!l^7&V}1X(Ak#J79w4aA}g6F9{pX
zwWvcS<u|xpm7b*N_K$SfeY|#;G8>PmkEg#N_ku7tj$)D=b%i2c|5n^U{R%k}3q1W3
z3a1!#wt}*BpXA1toY<@Pib9n}a>=hho!M0i!N*J{|8UX}^F(yiGz(ejkU{EYo09&B
zR915GV?3G4b+jV`A7q#acPZK+$F<I!&{}(}n#U8YIvQ@wPu}Vz@QUB{Wp}v1p({eK
z>eG+|E4_eI>ro+f&uKsQctOOZ<&lXDWRJ+*UdV_fMDEl^Na&tbNZ*clVhHroiegQY
zpi8X@5p)wxCmci(2Har-y^nlq)u+$C0-|`FZ1V1W?AXx(=?A}n-;xcFgcNQDn<_7P
zmg}$g`dLI@lP{lnC84mwuOh3i?o6pp)inlN4k`1}=mW9c^=2t$(oxp-Vw6|>JxMy5
zuXsC@qTKk0hFVXiBJ@4se6Od7^HoEU$ID2OXY-r!xYth^{<+g1-#77mCGmWOhi+)k
zQv9)mPh^j9i1#~u{hOcE36~<T>=nNZDY}HeGsPF6e?qe5A0}Jof3U<eF#W$Uc_eH%
zL{WawYq#R4OTV88JuR(9?BrLgiP6y#a4^CfK;;XB6k8r|-c1Na6tPh^#OHF@-?e(5
zc_BSre-wb8H=*6G_#k%>qJ(haY*`)&gs5(S|3UJw-|@bam!f|H8cpVwegeXNj4_7a
zf356|Y_HWlcZ=<kUdI0=f<q);#GdiY?KQLo(!%G73R2!q<Y0ep8xm*4Alok8*5kQ!
z>UYk@I2Hb3yy#pMDFetcRicO?A^N`o6W00Sq37i*`y@St=dRuvB~c5=G0B#`{rVi0
z6$?CdPx&sf2DlIGpg=N20Rc2K9NIK)92?$$hrnwjOV#Xo=MU`I06Q8645mYUdb{Oq
zsmY{8KQK(8%@W_dZ3B=Rr46?hh#)fQGL<#8ub)I~M@1rCclz@=(gUEC{aR-*8TweD
zJi-akOl??Xj;JJ#0EZSF7OJ`}gSRytZFyz8!6|8=-VwZ^MoSxNdSbeQz)kf5|C3}e
z7+ERBRhjt>3cbm0!7At5oOsc=^Zi0vcaY2_i&fzd2?7b)fQgi~^x@gTmXeiv%@aDf
zY$RIsw1>h-Ep_68v^Et=?UPk3b#i5o8cO8sz|7mg1)g*vLyiczHu;+eT(*IoYQNh<
zl8KtGSVPUADn}r8jGC_Rz*j82-X*t>KTW+O^XkD|5-`ueuQG^0d<Y2rbxDArI{Vuc
zKSG96>r@WWRNk{_mbO_hd)y;#wSYMWrfV{xb6=KsYvzxK&rSzB7J#%cByu;Bu?@5~
zpa1*-Wj(~QC1*u3lH=z#Bi&~6@9IEE3=Du>|0Kt}G5i914R8WU846915!$I`DqMh4
zgs^%9MJ+)Z=jra4dt=4RM_QZZ(oFEeHv2574=)ZpOH%~CTv}_=VycIcv!B=`*JQc@
zi~{OQ?Oq5)MVm!Bn$kA#^m^P(1ls7rUQFER8v~&g#%fDqH~Lt##J|aI8{xCTYMB~E
z8di)to<amsB24;?S0Rc;X33wGI$-kvL_{kDn0C{jzh<dCGmh#jiB>~AQ*6lq*-ESu
zXMl@BLs9fm6htPBio@K#<R8las(t#sZzNc50fQ$A#+5N9^Fa*!P|Rx%a{lPi??tXY
zDP>O1>JchOy_`8PtZlp5y0Ym?=55HU$`vlSdAv{YwzNK`sA2PzcwQ8D8rz`ohX56f
z-y@#{xx6nyR#MUR1zh!7!M<(CexmQ=j^DDp*{%kCmS#S$sId)3PBc2}>0obnU-7D;
zKe6bpci)AOT|F`Hz)%hK7QRBMh^_hSiu?B?k!5t>whP&?@i=hRHP=bfEX&f^Eb;-^
zN+5(F!AL*}`z_8^uX}l**A)Y|oC8_G43k(fo!j)esObT(%A~*hZ|N^3o9=)tAF9}G
zrK|NK4z2kj?em4|g=W7t3uCPQg|-|An>e0lU-oe}x$rk=t1w*iFrR98toqY{jjlx+
zDP`iGw(ZEwr9U5_S)0tP75girJ6MTLqIE1X!sI@|q!E4LvO>8BZOSBoD+3mVtNvc-
zLz5u*6|p%=NH=aulWbfMmwr{U_A#W~yg=tNh_rZ$t)dS|zw!rI?Z)CyeL$mo71mnZ
zqZNGwB&){my=_f0QWleBL!$NFK*_&R*#5*TqK+%W_ag@t)V3RG3Do3+)BV#THqvl4
zcW0&5m1G^eonsyAgS2t%x%PCrs@nC2-@2dLc(pW_ZT}!-<vHQI4@LYZ=2dF*3v@ak
zittY{U=;uhCJd-hR&rK$6X`dwPU^zaKTN^@B<^GXiF^9D^=`6?l+p(Me~hm$X08^5
z8t@a{%?OMJoU<kQOfX0KIHYcW!UOSVKi+FdxWZwJ?CO{2YkIb9@dvKwhp$&(Ssi7k
zIqV@t8Dhe@wA!S_hujY(1>+H}t**B{N==dZ@{&9%2jB(IrZTlvzP2t0FsHJ_Li==9
zNo|7SL6F0Zge6W(ew{qQbvm+l+A-`CIpjtkL-Erip$u()9(_33UBK}=MFwbr3}=O|
zS3g}-B-pVv+c1zIgvaCC#dOzK^ot?7KL*YR++G_H>dsZ2ByUlmsS?*u$i#h2RnT$5
z5eVQF1gGUur0hlkYNo7tHTZP3x2B%;ajD5o3%QHy&87$VxlLYyG94fzw3#iNXQN)A
zq2Omg#X$7+hI0fZphzG&zZF+xI_PL%OaK~Z1k$hD17L>)c7s`K@CW9Z)sg`XkVJ^U
z2uSq(M!V~fOsOzs(+))p$wzzt$$>B}yfcH6fN6L2@pk9T)Ye(=<puSnAK@`}^m<zR
zk`~kJ^-WOSzJ?K>;Ry>Qpt$0H2UO`jdA&4~)rcyv6MMjbp>_t-PVBf1S3~>tp13+F
zQ=ZdMV2+$X=57;vQ7}A@t3<o8oZdqcX;)@L1$VL6q%2V#^F|f5iivvU*-ueWLKwZK
zl%v8z|II}y(=-A=3U0qbImmflcuFgrrXU`~uiWC?<SnN4sB}9RN~rwXvU{=O0hkP?
z-eoDdI=G8|IG3zsZ&KBA-h!9!clnnu2F5nXv&p1+D?wxOmdyAQMgo0kK5==SclEQA
zPc<<;i8sG>g(f%%9(W&(Y5gP4;w6NPGm(tBawdt&J7+-B8s{0-B5R9<<@MMJj*a=^
zx27sWkbyoJ;URcPra*2*#n?rm@PUu3t}QikAO6u~Wd^f~O0${6doEg~OwBfyS&##Y
z!JB{hpFGZiRODz^CqI40)vAXT6N!Zy_{rY~gYn?lV;;P1g;I30-78cwMglLlMZ!_f
z_o_=GYsCbfEb4y*JXfkWS_6M$Tw$Y}hcO)M_*))1s+POt?V^=?XaKS1tgMD$Ru8+n
z@xy1911nU@RR40lkYYVOSkZM?r}!Ktw#9b_^C21^+AEx<G;G2hp~fNl1}+fCnfr%-
zC+k1u&u}pPYoA27mX_K9JJQcK{vksaQ<-xri!I>%Ryyba((_q*PC7U;j2jzClu<|M
z>!Vh~?-9mn*dbny`s}y!5=E8r08dw*&37j|9DJ`A3h`L|qI$CKmlkqNMFlz{7>Tt=
zTaVsnIa#q#v8ej5!TsAX(a+3MjSlV)rmrJ?4Ezsgem|t^`14S8Vo@{OH@n;S+%{L>
zSf4WklA`lZ3O%n=`|$YRxAx1KI3Mo-T)IDw5-@K2p|+x5IY|+I%#G6aMYDVH2yNe2
z6t7%bK%t6Hwz+Vz;=a5za1wl4lQgNQd+_+?i%BTYF%<d`7L<RUL!iiudZkN2Ki0ka
zKPkQPD)dO!yv%Pld8Z~$uCELYYT3^4({4EkN}ogx>FyswKW{$~l2VUFSY=F}WQRNQ
zGbU}lJY3BUa(~}%h<wE<Q^$W<_qf?1I1=Z_gItmZp^|`Rh_LnoCznALE+(JDXFOk?
z46|@2e17{)K8Zf+=g2M`F^=V4sST#Ib22Es)6}Qlgz^)OH6D7TaF)GncRO^ZO`(ZC
z;IqiFVb1EC=S)w14j5Gs!mp_24Rk$zsB`LdH1(t%hHxMB0d6+GtWEBIZ!&fO6e1S|
zQ|N>%k|YDYVIfvif7%A>i6y4O$%HZTT~JoZleljbr^i^Nh71=-T+O+txYq?Ck+f5r
zOPs+xn!7P{VP#u6DGops+zx#aWS6?LHe<PImb9w~7$;!A@8X+kzo=uZ(6E&D{bD;i
z3KI`kFPZ{x`<u-SEJ%zOPmsaTL@`TcPp((P3nv@WX=(B|X@_iKQIbdMN|C8v{|Qd<
zmp}cBEJ8V|n8HzLt}j;)R`xaR!^z17cjuk)wv=v5W*3nl)V>XZyMGFS>`dZZ>3u&Q
z>-05VLP(Q^oVjZgZE2VSuBc|7inV&G+8|`xBOWi0CT&fkM?2p!LUe9LSu3OKD}Cn1
zM(VLi12eX?+pxSpGr9o^a1)B_>+s3m>B5N{e5+hz=exxLJy)MI<_?+*F$J+sc~Ym>
z9doZa6@(%NGV(mpRO(G0fw*@N3<|6a7O9R2V+IV}e&yW}uhy{H8S9GIotaM9^LHN*
z`ZKG5KP->`%^~cZ5nDCH6oUUHO^|9(i8ydIlB*qB>^@zoCv{nW)o4U1_6c6`hH&$S
zuy<<{-uw{91fvXV6{{VY9ZBIBj`ADa7fF(^Wat<d3{5`n^{d^_-upG8`wUw-$%_wh
z9`CL}N<5)RxD?g?9UhS$|9JKkvgw`So!PMNCg%wy9@@l+r?|mR|8*9zv@r&#T?o<n
z-^lS}UaAoY3}_%IW)Ni?ywf}On30oA)L0n<@^f!q=guyzJQ2VnSvMM`(IF1lLgT#Q
z_WNrAFWww&AH3_vC3x$q>Ay{Tx@1k<f@bdIbihE$AQ2OG@X%`2*;&!OSuVR!tKjVL
zfxk#1(r)cz!4s#jR*(z?sgiRi(d1}3+GJDCunX30-j1;ty-~@$8JqH;)+BZW?6P}!
zHr>41Lpx?Nv`(pFWYtvtFy7%ZDbx`6IVWul%@lOVjSn!;Ufsc)i0W3(>1X9F72Spd
zzgWAlY?Zqe#UbiN9#`XDZV?$hW|Ibv;5mLnB7|Y?c2Zx!OBZ?1h5Cij^dm*H$!R+@
zX`>+2w+LH7Q58pAnMy(~p};Bqf0UgAlVx4ErPHdkZQHhO+qN?+ZCjPLZQHhO+w8jP
zxE=S6?ypbmKX4+>JbSD)=6Hsi6XZ+nftMr0ce@w{XUkTlTa7SBC}DU=SqBV_0M7N=
zuHHbkFh3y-Eh>nrJ~6@8gTC81NbjJD-6~`HXG?q<onys)#iWbk)yjdJBs_aCVpOmN
z2)d@rijg}fXJ~+}&@P0(HfRjkJuKKQQK*tl+3{UfQ$KOn7_Mrxmb;^BvwqHmNnB4L
z4g^h&z$HLqQXCf+A&9d{7^(9BA}&3PA2$RoD2kM*_ollO=peDOlvm=D5z>0%+U43d
zu5@Ij2A5p<aep+2p9eXgYkS1Sba!9}{U}!uRN@Mjru3Z7770Y76B?XnWJgeM)#lJZ
zbWeA`4oFc^M_L6Q^(4*#;J63BtzELrgmX5khhiENwA0P&nr>E)OBR$jPn5dLyVARo
zyIO)MnSm>SP$W|q#!AtpfW6N6^<H+Y&(*!I_+lAsU^(+4Ebr;sZp+@%u?+ZNalI|8
ziSI^We~UFuhf6woAqDg7vZ47N<#aYI-N6hNG&WERqdn4#yZf=C1|D00b5<RFYkEM3
zJ)WBun}Q+o9A_Y}3|{1iX(U-zm7=BY6Z)SW*CXAHC!Y5gek{r(`l9?ik_!6vDJ;QV
z)$Q5Atz#Ghdn!Bg{cIRo*@3nJ>M~e|lqsR@ajfEKVxkLY7$&KC=V);vYLdlVAY0a9
zi7+g3j<JP7=I1}kM_z$RUpG&yA#E09C_c?54qO00Bw=2%jrZi+a~p+m1?O&J$U>9~
zF6!4=l}m%+LW9|~po9UHfL?j-Nc$J!Tr@isV3d{3Uj!%*xtRDKWs9Ug@&py)fIkTR
zDvw|F($`*X8!OH9NhvCAO95I<1(EKrkgo8f;KDx#sga59%-yv+nDglkG&fWC8h4**
z-^M+^;ZoQ5EIi(qjA0A?xThyW(sU!O$rt0+E@wgFOIZai*c7MlSB*y=9b&bof4#Y{
z1=P)4uvMk_s}T~->rGaC;MCAw-RXP;k8tb21SB=T*epusOe(8|hNfl4EQ9K^kPEjS
zS219#Q%fspKvqOwK+MURYLIcx!E2~zQQHchaOHMnNMyTKg%eTcorb5;-L>DsQHd*p
zVKc5`w;0cLYV%Clp8_J4O@uV&1y`)jqd!<oOc=mb1rEvS<o9~cH`<0(BKS*!dPU$9
z%7gZ;tyWVA8sU~Gfz<1OwTpm(l@lp~#sfm36EnP+sLQN$-g3sQmY+R(BCxw7CK(F|
z?=l7m=O0Nt^-602>DM5vaFO_B{puE;$3od`CYI)m)kq@&Yy`PR5AoQO2NEG(C;x?j
zFVJYC0HMDP*rNhLNua{?tCC{S()I`iRwW|0r3z9OfjEqSSYNbC@(uAdki>=}NKkpM
z1uMX56!Pzp9v=)1#9<AwfCKU#%I;omxVi(hP%*AIR0DI~IG-+*>3N4HOf-GA>K75E
zRX#kS{HPb<xzz44weI6H!9dKZ>+@K%2w-0fBTA4rm_>#1<VlZ{bby0ByX-(N6xZ-!
zUbUxJ)?84Jjzcd>VGCmz#O5oZ1;uoZm%9kN$Cf0rYXe+8qCe`07VL791}`%N?NF_k
z_^%dBWB0nTjeYY(pgu9R=*Ffo!qeqT5Q5jx!3O6*oJUa^GmKHtzNOmaQq*cJ@zW@-
z!zoK6AXmghB{2OQ0ZYNQnXh*bAa_s-+5mi~N+}!n*(Gj)l7TZes~91Xyg#r5JpuZq
zg)_b`K0i?3dT0)5;i!btg9Zo@<*euFfgUiPz^(YTrj+2kp0#%Cp81Z)9$KURabtlH
z{3!m(bl!l=cvB1u6Aa(D0O<;Tq~|}CTwtKNDU4AdntkPY9h9+7e#4Xy%qLLVepO1k
zzu5End7=hxA@*H=v0cl`=QXNN@q$33A(s<V4+Q<n9jaY7<*<ZevhRkUO={F%$rk+u
z%bh@<8%J|5{?>c9(qy{PIW4W`pamCgpi9)9{Cl_ca@}Lo4Y!-|K@44HAXjme(tJYw
z>Fk0^Q&iN(IrMgLV0AMJSGd#UfyK-$QxFDeSlv`m5(s8zq$75kJ!zVAGJ<s>N_zY`
z;@b8G&_;!;mILl0N=7@~c8>R}>;6zOI9!@vDtt<{LaGFy)#Yq)P{)WB%7k~%-`+qE
zt=QdeUzIF7gK72|LvzAs@Y1uMrB7eB{F&Xe-QAP^g!uaJ;<`Akt=7U-)k0@X&mEPM
zX2VR+>s8OQ$AjJnP%HC~0g`CRH6MFsQ~VFO^^3^bKZtlXhJONo{(o3XT3Sx$qKN;I
zP68^UH@i-)8V6?OWQAnajbjT><d$!~ls7p*>XnuC@%Cg!T!!$k{Uc;!a}|kT$h@Ve
z*L{{9@8FELclvnB&hdV$5ErIzTuY$fh~`ih4^KJ&H=tB-$ogL7GJny+6;-!<pwuDc
za`F5|pws9p)y)@?SilzpF&RvRND;-%onI#qHG6t|cbd9m@BFLB8}F~0kNBPx<qd%U
z8&aAGHTQbFA<C=>oUmk&tMalfVxFAJ)GTnm`>dUOB+mw6Zv8}$;arRu&w2fQzvAq`
zC`UH2$osrUv~)D5*e?$WXA*dFcJINf#eSIh=j*WQ%qF98-Ziw*)TVaO@tum4JF7!r
zqU7`8Wih(@THU`iKR>oIQ3`Z`P$)PN=ZD4P^D#~p_pzx;pG)eb42e&N{Y=(uS@L15
zo^B@c>~h=xMMi{N=vLX^2Tdv5&>rw}INEJ~t4i*{xz3$d`M0><x^mMz_{-ATi5`YD
zqCgzF&5tF<)D6+k@F@#-y4Z4X(ITQ@+(vEV%L6>|-{4Wc2j*5X5JMqtN36D*h68aO
zWM#dSCkBQwaq{vXO(GNMu!XQRZlDh|vcL-6&ik(mbAkr;DV?9EsVig|Gd4ZE;qU}P
ziq+KGu+Vt@80I2;Il^%q#h_UOdME(Uz;5Q@{)+&ja;F+!mkdq841sn@NNlr*CZVJ~
z8VB@C=%jt{N4k<y{Mo>_RLR0dUUgNbsI+k-cVstkj<<?=dC@rKO7Sy0%Y<yLytf<A
zp`%E>x?WcC-9+~FpXo1i-&cNm19abuYXGyumCmBQ`c^x-NGr=4KI253K_rlTzq&w=
z0Q13cidU9!xdR299!lXpt|OP$9j+)IdJ)aD0TaBGunFLW3VQmGd7-%qdTdB*FEi7=
z@2rVn#XOV5<Mt0F-%edECGw{r!Zl~83rmM7{*wIG;@n(~rR9qV1@gzBN0biip@X|6
z^63Zr<auxhh$I}a^gv*fyjf(-Ozu<J_CNs{D8?9iCS9oK`3`>?T^8gTjH{#WNemjY
z0bmVj${<J{^=zm(s;Ik%#`VUxFPY+BQ}0;AyO{4-r0@rWGC%@R<d$xKMU!s3`gG2E
zR3mR7P0=_f_^Z3b$;8>zU^A3riWcZ?1+5f5<}H<qLu%HeQ&q7Qjyi+?ikuD&>5B!h
zVozZHqV92nJln+UxjS>G<U1OJUs1o(w5UQIbm#Z#P1SxWJP0P@s85;(KOg@JT8In{
zA)EMIvOy-KPDl;Vi|zMgT1#t1$d$?aW9Cbo{!gfi(}nOFf9B2!0*59Wa6Gg@TVCvD
zX}NYXp39XZMP{jLnEVDE)?mc?<}lL4!5OnoJAk7N``~o_l>Nm6*=vAS*~iscHL}%4
zfs{Ws_2-lOv)KLHf-8U4z5rc$!p?*2>$Qh#LniOkxuydJJm4M{u_`D9xq)8Q$(3d$
zD`84XYbB`l!<DTGs=LdF%ZRO|Un#2v&85jeHK+j;B;lt`B#%?bTaiKv5?&3hY{K_#
zekQ>*>Ww5G?KfM)$VQuI`VD22z-eW(mo9E`BnkQpU*elfh)agB&^Q)9OkaN#zhnZn
z83S^f-Bx!2mno3Ydy}KC36R>ViJ+^&OO7s+KUIQB0NZdIrZ#o0InUI6N3ua2X^Q!H
zkKaS&_uKN>$%a2>V5@FX`Ic&x0H8udQCY}V`n9dr+&XGIREFTLbe~MPDSO<WlvddC
zp@C*aEdK20IjKu7*zUzSgf<}xdBpwiL=Vjob4;KsmPFR1R-pUniLic4=*-TlL6b1E
zIbBKzszx9UVdkl0LU}DyN4bMY_eH)k;4y}JwYGqrWdZq7`*{HWK5igtOdy~Gc{YKa
zYXLvZFQXUYZHPPsKpXyEia`(-0eE`|9FpMJ-OH1M_=7D<0P=Pz<40ROdm;fDR4_o|
zN>dcHN4c4frttg;Z0!oZ!Z5-4qVm;<0DX8!8*EV172&Jk0R0ea5xbKF;Wr#T8}e}J
zV^(5U5)_zh{B$Bo33O=rCkgUNZfG-ypGWF7bSY~)5arQIGiZN5!BkO$p-1?~kvkDa
zOx@*%ge^!#XFFu+S?f?X5GYc8k{R!I!8sh_uR<?%`Dl_ZHZb{L3~^{cz-G0x5XVOB
zu^ng!tsm1veS*6%@F06}A<PgU0?hqO&f+0W=Sayk!5bbD_tuH4RD|iJ67<4FutGBZ
zs$CuiX&rflD5#{i!sunS^cbREWg`Q`7}>r8j07P<cTxlR^t0XuS45|zCj)m!8rpK_
z7=LQJ3eqfrtx{nF0x(a%9doMXGoeG&x-by~W#i-N9Wjztq2k`ZZ(^*jQrt>^C(<YN
zW+u|VTj|3Wxz=NmAu3>t(vpEmW=3opyT8dUuaRu#&ItCG(w|eER-!*F-Nc4M7EXG=
z=m8%X4|xI1^)tql3vaq`V|Fv`=i)SK^`6@V*{tv&hSeI-DrA~O(}nO|$8*Xs@Dq>e
zl0)V5Q9DOq>HP@2gtk_DErmHCh*lDaTkJ>Ls5`uVYtw8gs6l`%szT%&wmNKH<OqRk
z3Aqj8(%s_cV<5|3$`l*zopJ_!gX-Lva!#Wgaz?FKuT_Sx8F#u=FEK*PsaKn{_9IDn
zdrOYzecHxWopSm;Q?+kT8393$sGtu(g64;>P8lI?3~*uy*9IjA8EM|F#$xf1Hq*%i
zsd56Z*lFgL3Ja&x|3Y4LFFw6`=d-aO7lfd}j7XRjcsZHBz_HsP3n-Q?AKpSq>?*|)
z{;7mF%l__qW#p*%jo{xd%I&9~zO>i9df>hr5q>TUy=W^Lf<VPA+)C#vbRp;9@nXo>
zQT2cdf=D8RRS}hbdC3a`V5$a@Q9gBT_#7;ODPEZ*-#M?dX#(e!2Ain;>^JZijYhU2
zQq#6?%`Rcuzf5lUMf}H(TS8a*$7ckvo?r0Kxx@9U?2^6TB`&m!pSHNy44@+{wynp>
zFjx2fH6H3j9G&{5y}Gr-&rj`Z&r@ydH7MDu{w2+i!2Y*UkXW<QZbHhpk+8ZC#Wv@@
z%GeJ;Xa#%VKZq)he~5fD&@=s~aq%w%oYeoec8Nm&yLIe3KGoeeNmFMW%ZOW&e1v<?
zUOPX&3{ApGd}Mro5lJHcr_h9F_*#17OvLNb5YP*Nm%nhkN~|lg@8fKDs?89$fVi09
zq4<~FFGP$PdV$90VyBx1Usi1JJotV+6M@lazMaBmh;CUvXwikf7Qn#7(h*DnOr*Y6
zHZ2%l-=b~o6khivavYDHifAf1OUXvRjl~Y!Pu|=nnns(%RRbkt40g?21tcx&`TF{N
z1Q0oMtq4y7@Toe%@SL$&69!%14&CoY+3P6|wyP@yGC`-fa@UjQ&BF^I9J-szj`(j*
zfFCxhmk+bx;3)^O=3XmHJRsaRR+{!3q@*8YP9pIc>l13CI>pU3gyoPRZqiN%wS+Ko
z#2`rpU-KS$(v@jqoTX-qE9C-Bca5@OtAM{mL>kX3X)UahB;g1aTQz)`t9?Yci}kf3
zDr;c`lW=fp1j;=+)(efc$>pYbS>r}R>zwIsN}@0Wg$7^Uj~zJK;I1<xI)vYK;2$Y+
z(wK-=z`Pjp8fMcn@tf;0+CS@VaZar)I>yy@+j6|y(j#g_5JYM`Ej{ugBWeqCL+10E
zxNyEhC1a;sM|5B}3!;85)<6ds3JBy!L6Y0D?|a+)<7vWPk+l6maVqCHL6O{AO^6z=
zFKyoHrWrt~W)kVkeWR8tF$nh?>6oN)2!`?t%5F}()GZPgFYD!itL(OgqucLr9)*5v
z00_n5^e*W01An$a4|NVUoSM31dJD?6m~OTF9T3G8cvV}fD?a*DT&{`%ACx+MH8(J=
zxYpG+sDZ>Ni?85!8Jf1jx+QJgoUd!HV6T=no^C2Hs}^ds*6QACRGUNc_*oP+d@5N1
zrxaNY;m+#G0pIu%K9!Cxd7~MuthjqgdhvuEzXfUErivVzD~H1n&A^Z1hAx`p_cB?e
z$}uaJE#o~;UOJ8@d3K&axu8Lx;<YvbZ)g1V3ZpUzLuSDUDkO&6H?Z~82BwP172x}O
zSc)TZGRgs*NQ@p!Tjfk)sEnTwOa_qDr(9#?;QSrIZ7=f_w-gHloZ0BIUSf)}2_3SD
z=9phyN_V({BK_fGv$x4S>g#C>xya)wMlsrt_8v6?gMy4vXH1N1;%^}s=fg^z3>R;R
z*V=gqvo}Sc1Ce9g7~lO#6{Wf@k=8icu>=pYXh3xATH=sS?q$Idf~20^oa0=P*n8SI
zGh+C3uTDw8H6_f-BA(n|eVN`y*pTM(gA)zy*QPBXc?@BVbsgT|g4T|tvMcSbv_`(>
zOLU$!?IH<{Y2{*yOkff#IRB&^MMl1z@pTnMdW@t-gdq~hzRCOJkrs~l6%|#tD)?_*
z_p~Dl18Iu)mDjw{X=!rK{KJ3C{{aL3zb?fy|F@-hc8-75Go8{Hv&CkE@0wA&P19y4
zwlYA$N52Ik0YvPr^%f_5-8F$nXJGb6?S1>`w0x3ojKb!`9OGr__^5kTSE(%8pe#zz
z%o|LqbYvV7QM8FE$+Wa<U0J-HgsL_iOD8@DY#|OhSxS8Fu2n6rYf9Iqs-{_jnp=hd
z!WdmvBDsK%CP@P_LVt8WDwB*>K>;43rYy5Oi&XVf0Q^fG<m?3*%L0nh*aC_o5$t4%
zYlfu<zO2JBoHe@zTUmw%fyCN7{zW7o54&z$_Jk?LUkV8#h&P3!)J8@LfXM^~M(-+!
z^4k(#Ql$>WDt~u=l_9RVHf<@uQr}#&M4w&;JVcAypA37U4maH3@5K;vtrnyIHK<ja
z5e>J&ta=(b7*Z=)b*;!Qx@TW665B5#AZgU&ekxckL&#(L;{EU-76S>?QTofAC1Zo}
za3R3rgjFNRxWv^m3%U8*Rb*DPv{8JiAR|tLT>v-PS}c0{67$f^n6s|Ae$HYy82VzZ
zV8mNZX?_$;1gFk^&wcuI4C3FHK(0$b;0&9+2>jc`7QtMY&&BpJB7qPvVl3{-Ap)4p
z#Z$o665&A5KhRTbrLq{XhPw2<s?eH&W`NLO<pyq-!Z5mK@OiLW7>zqp*6`bYTOgu}
zCH9&xi$%|eMf$mQ!g4x$54x0KUJi!s0RgEgo+Zuf?CR7xMMTsA1uuj&zF${vw-fR(
z87At4I61!mK|D0ewU40QWduT*j);cl&sf^rV<M8LY<q_Xd?jtYS2^8#f2GF3E<7UO
z?ilAjqc`m59yIV1(u>l1ojT?~R$-+h*EYfwy1suKd*7N^(%_VwIGKT6xL-P7&{(H^
zJHP2sb-z1~T{3(_o~VhLkwu_qE~ZPNQ!Tl8NOY@Mpa_wU_0j11xji0xSK^Ey86;`J
zE$K3SSW&;4f)p;aJp%fEeRYQk7gI8ZmPCLlv7<nqFbmvuM{fVjt6>*30hU$+-6Y
zw*Ndad^7gG_i<rlpr}dZqxIF~<tbl~vG)y?34Ma-lV~z7M=+6GM(k_b>jr#rpMRZb
z{51Ho%+jyEk)7GeHoOmgatKL1eD^+eptBYywz|?{olH8Ygl@>&d>%0^z`Eu+fVXuS
zIBsL}(BHCN#b-LS4}ihqo)GWR8&kw$#gc+)XhW0Aa~{PBw=T$7$23Ipt+OR0C6M~Y
zO5_&P6{_>gZ6sRM8GdFo;QAXL5U@_X3^OEB|69=+32hK>7?1Uij!NlNOh7#_N@(<(
z=%!5@?yyBaKA_JnN+@tz@`-@@y!&#+h9ORxmMofT?NBkL?Kk6|E72eOHX}xYZgEuN
z2bB}6oEoQkf*mWyv&;fl0fwabW<pj7!@&MZb2MB|!MeR#+g5sum}7&q37-R{mrL?_
z^*RY;KVb;icy;8Kr#z%F>5%mPEOQ~SXi?F&?_CdK?P9yJ+=o#W>&&UHRf`NUT4kqH
z=Kd!|Obdne?R1f9{u0X9W#W3^h+O!tB>-h2E>%o_C|TwQbYxWOFeYGmQT<ciMjGeu
zUCsdOkby-Li1j$Mh-iK)%9;J==wjGCtTLf>9Hr1n@6g4sXAE-S-LVMCDT;I9sX6ls
zA{IV(%UN<X52+B05$g0@0mc<WS@)P(_a=9Y552#{6ly`@UoZwJCLU$)(d{)U8P`^N
z``yJ0DK+GMp$AterzZzjGUO`k&R0b8;*<M&mVsJ)deS+F7hULuD_CF(KYU<q$a2oK
zA};^+EInhI?L%;BA}2@gi$Y^;6)R4->{`EcrD!r`oQnNQZ-&7_1i@_qHx-%#YqMUf
zC2Sc^4N_oDviNBi@FgGCT3X!K@cfZ1|1)OI%p`rBZb}II$e4{lYs992+x6Sa9j~8|
zNPdridOa3fZ#?ucrTIf^K(-Au_yfIBtC}}V<q<THD^j%|Y$#;d99oh@39nF|=Ak+k
zv7;6grz~a+<%HTqx*EMc8hYGhOp-OkrdAVAiB4)vcjR#blq4d`0UsOxfx()pHaHe1
zxBN7$^ybP=i2i6whPlO&?}uR1_RwmD>)0yihwb&Vr_Z8$+GEqC#~bk8@zai9N_>;n
zQK5`IH^8=@$GJOujXuCQn%2aWsOfn9GcPeg*JR*UvCk!K%ID#!5{r_gVNR7zc`nBJ
zO|pHhcJ0(OZ7L?}%DdI&7K@MCZfb=qSHYJB&wu!2{FR6sh$gdY8KE@Htn2gZ8*h@~
zj`M%M2{{=4Y5#zc{$EzvU7G)<vJwBS8yB^f5_<+Kuxi{t-nd3vbAxJ5D?`%JZ!9l}
z`V|6TeYs}`_YoQ*4uWO~(VHIp;q>hLoreT-ON80e>G|RDa>;6lP*g%v2~`FyeldhR
zSvUkT--S6#tY`QHO|75~o=~@1%*b~Ct+{sT^yO@$Vd88p#|+whE=&ZH1S|$U9kI`y
zSu6YNoh$md_L((b_>A~{{!+W2B*`3bfUuqC;|1gCa+X#LXf;7td<sV^+cg0_mnM!z
z0vaPaIseW%(|d|)SAp!#up@oxEo|sw$$ZlAkV)R>DLtdQkr~rTChZxy<Ru15PDEP+
zf1kWH76Y39l5;}M2ZK%{bY^`o;ojZWw?Mj@dfN20p<d6Pek#@A$f}i0YwC_X0sbzl
z$|0@>^}_MbRjYc^g$a9*8FgIQ!%`N~TsRP=65~@oa~!*uIief@CW#w;pZgbNit{J<
zXgHFAfr(jjdHp>gACBI&8(F$MW%Ui<F1_ub<8RJIG@oI->GR6^?|e~XHuV^HL^~?J
zuQG-z{<89WE-pKbQ;1UeZfKhO2MG4jaqbUg^-PNU5W=YD<dI|OtA@^p5YGc>fw^je
z!gO>~{U(C%HH5a>NDHDl24G3zc*zhafR-e`2k(K%D71@wb*_cCeRhkq^b@~=+9Hv}
zes6OO+chDGg7v(IT0rH5Rn=BHssUCvbd#B1WFLIbt;)S5L}iN6FHwI$YGhH=xk#eG
zk^X$XoIlS-W2gm5o=ihM<G$93%Uq1W6DlsZGl(W`4@F@mK)^N<OZclg-5j25ysY4r
zq>lKb*tfy<%JQmQ7;61K>l%Wza~L5hp*8e7ltwZ*EFfMPcCg77aTJpRtUBJ#n79~w
zJm-^({~Shz2j-3KwDX&E*-_85@-ymvOB(2fmqdbFAGZNUI{VvvQLU+!c;~IUr|f;R
zV!Bapm)~I|BkZS_F}3;Lm1E<gxa7LPE{Li3HqbEHQ19fJwxt>!I`Ej<*{x^yb^KE`
zYoh%~OFvob4jahD1rMGseqc@bx=BrSX_=i|xCKpXnHD;D1c8+5EpIT~07o=QG>mjf
z1B0z~U>CwiE9_$vWa&zmnK8p@tj(S>JOZ9}QPAn8)<k1D^DE@LcZt98W}8F<AD9Tb
zIl<FGAIx|a|MoWi;HWuBJ^!H6-ZKz80=l2#5a?z43aqImU5)*KQ7QJhnWS?82!63U
z!0*knLxA$49{26ClP*fFh#fkI>#CVyUOx(?x%_}3&M7~!Fx)R3B6#ZX{eElc&=en8
zT);S8m@-*r?@lL=pEL+#VRk;RxIIgDa|&%lNI=qk-n7W~$XpBmHDi9eir}J3w`&WP
z!!z|X<2yc%oE^kyPblA=8Cm|f#6S)>RPNBg5}xh0o}N#dZWbS4B-~MZZ3bt~)!tka
zVl5prf0@_cYU7Z!70tCxT1NVNGJjG$nDpbI;$si~g{ZVeuJGAM!~2OVB>W6yP^iyc
z;IzP!yFMQqz$6FLZDkBN6>@FflLviYUfW8Cf?S_pxV>XVbm=!0Xo9Mg3G{E=qd+u6
z%KWN42y4|(B*j<-hznyjw+gG)fkeuJs;YebEfNQr>ieM@1*O-xpTaPG0PNTi89Lr$
ztpJ|{X5H|w(7mCB@6@}%G$!r<dcNSV0XHNN;JnjX(i<{bz&UW$?ai&xq4k4i7%@|z
zaO;*jq*T6x!MW6Gf&TSi&T}d{J8jN0YOdp)vq@Hd9qEb@r{>V_`B7Jx`o~(k5A&un
z;oxT-Wunffl$#*Ro-(f7v;KxK9I+->te%o1%=EA)!*MDkDtW(QJvQ7%zK3-Sit@_*
zIzs6-d&I2rgP}6arn>#eb(d~3L+~#hY0%Ya76AkiNqNHXDlV((uD)-&A@G@?KkD_m
zGIYD!IstX;QF^{#uf05<zHxk9j6b6(*EiNGm*B8k`aPuqTB69+YKVoIw*4n;_{wp_
zktQ2CZJO$-QW93>4DKe~+UR@7u-Lo8Yt($3aDIEHL8`oh3CdawX!T*ctgisMp~f{!
zx+L%U9do=U*k<Iu=kgu@Zo*Ujpbx2*YUnD7>!oF#6yY63a~=(6h}Ea!=ug=+ny5)}
z9Yx8-E<BT!8{jE}r!deI6%;suRdr+Dm&|)1w7n4|$O8-cQA(&EQ1#MNU0wEAw~rq5
zgU&>l9%M6)v#*iN5dooK$?K#OZmHmf7j)Ti=|;dKegva1PGJ~?#7)?PY3Bc}k#yZd
z*sh+7hqtJSMQPJTqt++y^_4y&v=hma^qVPxm6_+FE9OOlVRk2m0A8c@Go6Ml`0H56
zf^73^AtVU(lJ^mR8R?>@_ljt^H-2|<M-o`zTVvF{!&)AfJEc)BJIj!N*Y!m)zD?19
zcaf(KLK=yh$q{bm`mC1Ep+O36XPe_uayoB!-$F^C&EtnKri_Eqrt!2hl8=locE@9s
zF*%p{Ym&Mk@dDygBhV<YT?aapHFTknLdM&Nr{~+f&gpK;w#Y!u3Y%~8m}5+>0Z%qx
zIK{CveN75~J~1BfKE$b2t}oMfo9K`^WgMC$AxHXZl3x=VRE|6aY%v=i_DF%vPg^Gw
z49+G@TDIf?gwn^wGAmH6E#$Q*7@BjXnsL`#N06@aAjhlvVr6zA9^uZus*fPl$sR#W
zakc=5GU<-=3Jr_rn4OrS+Bt_y&AN3%r*97Rimn=#A`hGQ4{I)R$Z=;u^sf%~m$kXR
z8<xWjU@sbb4!6@GKP!PK0~iH@C$}@;bAZ!r&&#cRil7fV*%CzaK^C5@PzV?uq??OF
z)9bIi8u%1U5e$=(0U$5g99Sq?NHkA4sLI4taQjj8)<EA9;6TiLC71TkUUp`x${f7!
za|)v{gI9l_cSzrAf8T5Z@NaIRwr?74*)v=+`-dOE%l5mNe^5LBM;QJ;OMuu}{xkab
zFLa<@scXsY^P_v;)TE6hjIzI2yeJ3+hNlhP*DByaAQJ$#HxF%ny?it=C8uNrlVBM=
z4jB~hxJ<vnCgqw5&o((Bu%D<U5K7j{c|`;;C}LZ|c_bMX$<qtMU7J)am^)5yc`TYU
z&fw6P8O*yw+5X+t>SRaeMiBlbv~MJffjONON){k$?;Hq`B3YpK7U)Eb+!rz67;>F;
z16$V?=O~Nqn7^8uP~|wk4!p8SOi~+)Var@ZY)d6Q&u(dd{_QWE><WIYN1qkCCfOFa
zvv8=D!l-<a%%fCROUDh7`CFy|Ji3F=Blu$M&!p;>B`Rz>bi`wk!-5>x%%18;GM>b^
z4|<@<o(MYK%U9&K4&SNshCFFv@*!?GahC0Dx9y8$Xcp?_f~5XvoMBmCL$C6v;-4(l
zqrL~K<76g8-eqaD=(;Kpc;n(V$=0mpKWmsHbDOy7i8&6hoY5)aYuK=+ObwDmzrmB&
z%fuLvDjmU79oWSOnm{UY{UXqhiK(Urx^HUi`*!T_#7otKz+lb>0|;P846tcKTzx_O
zn~esPRu8;ju>Qs(nHnrF(t}Mvk^2T+?K`!h7c3fAmw%BkBs-gpK8g22?4!xWTDLV{
z73;P}J9gFP{OvBETji#w$E$FQYGLlt&fk42GMQ2f`bN6`(rjhZSq1%MdMI;5)(X^#
z@?$u>i|vINk)C~Bi<#dxEwD^5Rv|vnugq;yHn?6}9=<Vb(KNQ>at_MS8Gw83=(4ey
z&V(tZjDReaNVJe{)J0HH&({q-tHWMGUZB+Dj7;T3W(g5vOuC9{P0e#iqdge<IXRK|
zd+bv-SXJryjp2OVZbG?kik&BqJ^V^`aNs#D*{6o5qAudFWsdDc0@bjx#w?LHBcN+h
zRYQ?!qIq^?Ka1f4-H~`ituxVrnWjwFgS&aw=RWdr68h9m@OY1(CkIHt6{KrayclwB
z3U&k8RmVMsP7%r-JX>NH^%@swTrz3qfk*tXyeoCQWBjdic%A$P#4dVFmiWdk5rgKT
zqIT%^fYhiNA(LFwCuils_@`!QM$_mfu%RJl@`mU<b<!8?4<F5Dh5GjW{omKg8^KM?
zWC!8DHK~?*sf&vz4k$WOw|?nRK6)PZU>=nq{lloT{6lh#o%LU55?`tB*yZ!X`<&FQ
ziiyWueH&_A*I8m^EFM#{TCDS;4=oSksqxqNe#2a90#aGd9M5mR5!P~XG3`vUdHLsx
z3D35<U}}<?;ff^f`hg$^6A>5oXP*#>aHJpx3ptyyrQ3`gWo|6A9Wa`}p(T<#;P(Hj
zK+&8*4Q_zQA0<=w4<`gXPRi?BZ2ygK4q=5BrZ4w?s@ClUB@2;)O-pvV{%(MP1WOSz
zL_i$@JY%Gxer&y?X3x4}09jcZi?i|&wiR^^iP8YEpVXbjdxSQxD|*MSh5op3=T(dr
z`o;X7Edp0okq?I{4s9U>@pfnNW0J{SFehUgXVwvMa~M@dXnH+9Z-VTkK5;d`4Z&~I
zm<HqcvQ9>kE(xb}+dXBngj6UOuyma_#xZB>Jg>bf1#YP<gUxyvdaU*kzrD87vgdAz
z%J|coKvi<24LTxCf9U9bdLiy9@lyw_@YIveX0%oWIGO3V#dW3o)bCmX%3`965&e5V
z-j&QctED}7$@L+ln~H`e8jvO!Bu@!C>xwZ37!?`bj?HR<3g}WO3haqd9dm>`s&nzq
z%M$fze1=^!=H!=BzJM<y!%#X_Du%<p*g)<zsl4(W_O)Rs^M2`i!UeI0DjMXhVt5<k
zx^-K_--5Jl_K1}hdDU30R~=o}3@mxIwF}7z$k`PWKvco%vkGYMnS#gIv|soLC`tU5
zGubZ&)pguZPLZ@$f3U>P2(!ICw=r8KH@PlcFbzJ+m59syO|XKk($0;Bd(f3C7^EO;
z1l#J<M?O3c(k52imK+&n6?-`*nY=4<vA%lqk}?5CGY!W}c}uWJA|*7#TQ1X*B7f$h
zV=urXd3h%MrJAy-`u6JagKgIcf93uPZn=w@hISnTvhiTnsCD#E)`;t#H=c0!2d9H=
zVuDimsFC?ob&enTgYTjbeZJ`b-m=&?t-39TQ^`e9F|x4WoKAeR0=D}N?@*i7LunMc
z>8^Csr)T8B>`;s53zrekwe|ryD1a0A6B$^856fG6w?hW2FIC0qcQ4vtu(LN9vy)Ap
zpx;aYfw@k-&7jnHRYxo^XR)NVYjC`vQ?FmknMW_I`_XM1*7<Y={>{#JxDfljNc3;4
z8I8}y0|)BXGw!_dY+qnYmh^vMh;y+1ch1az_3JVGo#KE0{J-tGssA0Tza<Aok#c;!
zq-o0P6^VDoIjS}PO>anI)f>AUdwJb+BcEg}p=w>iiu#+9DuHQ-jVbfZP&6Boh%GBt
z;^eDoKZxl(?SR;W5VN#y&@opt(O9rswClST3z(l-&(+AFV9Yh8x??9%E=yqkZEepy
z96?vxI0gvq&|&-SJu4p4)|)Vj(q?pLt&bx<T>+*wGyY>54=2UQKt*~sU<^I7n843d
zJvL_nTKK`|jt<dCg-CFBK0zHHvm_w-BQ&<4Bh=WP>vUMM)ST(tto^z~uIr9kM|!xz
zPP%T-hOreRiV{5J%WcoMscK{kM;BPsaJr1~R70Lr<Tewl9LLL-#u}wgQJFGaYc1NC
zQ%(r?Q>7<CA!N|kQ<LW8&2;sxPExOU;)>Ht*t(&1o!Tjt*QDZv+pXZs-eICFPTqay
z_F47JeF4|S7(CrFl)0@~-=tL)<cNm*M=)J++<alk@Z&{H)oG0^EJf~3)uFgH)*voK
zY(nIl2Rmr1&!xTW+88jsa0fj#(s_T5#Yz@kwrU@g@&}?`$>mf~(Ma2&)VL$oSLVwl
zDq*4f)yPXvvK`6@0JY0GIcB)Qf(qZF%-|dym-&|?UTjPEfDydhE30l%pES=KtR6X)
z(@w`bck7j2^z#n4UqK94KyPW{?;6}p8a*C)$ab&Cyt_rO01zliv*xJDoHuXBBc7Ly
zR!I>WHqcQw8*cjLzf=x_qFg^OIsqX`xSr|#iPP(cT`9)PraAdl?83jb$zWAwd(rhC
zS#WG2j7DLuqZ54^Uadnu;niI<*Y{>H=}$G^opw`D1wJmsRO{F?5%jCi(d`hw{1Fh?
zQ!uF)E2w9i$QfeL5?OHr%vfW45Ut9F$Gbrg_^~Fh5avpX0$JZ{Z|E~Qi-dJeQzX5>
z>w1ybyhJ4}DbSEZGY#jW?Fw>XSdnl|Y<{hHWSklDX?TwUn^c6fB`IIw8m4(i=5#5A
z2x)6q!(4Zo?C);S;<7Cq<u^?uA9cWPA2*#%Qcz0&nNw+Bt44i;*aC^IUsfIvrW~Pt
zCD@AgP{vraA*iVrVjvENYa6m9rK7O5JU@KjYfgo}v8`Y<MT=Z<o(7~TsMY8Zm=IU<
zmj98XSs1MRDy6M(ZR1?Rnr6_M-c4O|?&^~#!&qp}yj}u<;ERz~MXHwHD{$`0vcYt}
zh|%ErAw%s9{PJ{b8|=3|G6|$G5n7#y==MCGL-Rfc+YppDngnH8_T*JETFNrAghuB@
zk{?-0GgsjIbDN-HuI(MfN`l$Xn%4pW7<!cE@Ysquz-{>#V<Z?Ba&dcw!eT1Z6pDwQ
z21}CfBFup8dQ#3nTH0HEVN;j5l*YsUV#WC5hdH3lL`o|NT!MjH=Yn}M&M<QTqEeP7
z$^wbDmuC+%yyTHt(r;+-g=bA>CD}=NJHvSfV3$=!(Uz*l-9YkV#S)?-)250>Kv*ke
z)hu?{vZy{0O98gmtK}mF*^?!Xtc_fVYI3xz=)uUH>Rf&H_V>nss^=dB2s_jNT<T<F
z`%k{=zi?K_Qk8L9|Bq6HMl(aPW@BJ6LBClHaLLg_ekb{8d+sJ0%8cf>mnF>rPFUt3
zseGNAlZ_=IbP|XH3GkNh9cr!>qkRIr4uey0^ELsU%jbT07w?@X3V{h0O%1lQ7iyGn
z<Be3c50AGaoy?269U)xTkJcLj_$X||cJG~)Zz^24;Hy_2tH0SORgfrdVgbJa!+8N-
zhr05yyD+TT?il(sIh)W&U@M|RUTM??EN{&R^Z>Ui7fs@o&M+BDk}ip&e(g2br`o1?
z!j<l&Un`+=vJo~{BN}-sLb|Jx)x>s1F|V9kN7Df);ct(|FQtykbHs%~-x*7>SGaXS
zhYVB|iXQNW-UEQFOI^VFCea~t3#~exj(6MVnLNst>i%e$wPFJu0?r8IQv896)^(I<
zN2)G~!<zB80a7Uz1hOWb6Y9wkf>e%yd~9GYpnVLt1J!_dlK`Je@QYvw9|bfg7*vMn
z!*Dcmk@b=lIws@6W7z&Y`zUCN#)J}Yb4@&e_?62duYa<X557#OxLc{M!ua=a1b`n+
zQI;fX2=hGu1Whh$T00{Qfb_bOBB>S@Vf2lBJR(o=cF6bx9$dR(YlDP1a_i^WCSSRy
zH1bpg36;aPJ6eLC5II3`#2dEooX~DQSh{m{m-<|l-+Sm>2v}2|?z4Rwun>@6b*4<}
zg82_2`c$I*@UxGf^l-s}#l9?Pg|Yk5r~^4bYYMp7LV8&TT>puXqKTa1{nNjO{Gnbr
z0;bUNWZ4hVRz+7IH_73e_g$57EC@72@j<HP=h!DTZ45Ix!J!m!yr2<TC;NazJPVCy
zRj%p?+r=zi+RX;9{NzzI)N<kM2{N8rjB{%-59?(<D+>(b$uLJPI(NxrBb8kWNxz_<
zS;Voil5pdz2P4FPx-61!<|eC|wSbhB7|Vr6!^OvyEz#(!rJo9qH{@aV6g8*mt(b8P
zW`Oop4dWy%^n_1vo|YFnt@a?DH(EfOm$&0y3^G^*RgGB;42aA41B$juZvPJ>^-s)V
zHpc&~;QbdyYAWU5M=Ipz6AI@_y7F|OUfM1wHmNyLw)D58BRxL0TvVRu?CniQedgkH
z5HkVu6)0WDg`1iuu@neNSZ)KV$0K*NCK<3S0uehz8vh(LDE0)r#4!B>M?~@I{F(j=
zQUE*Jg|p*@CwJVm_>^+qeYj&yfgGG8889lLq<uzX*&HE6LY*~J1=3a_)rt|L^ZpTH
z)U3iAb5}#PNu7OPgG9+V`?{?4*8!mlla=Y2WQm92549<)%uefKnJz|a-VHUB&S0C1
zu|sy{fv}1qMbbo~iVi-Aza#t+_oC+s;1F*reMtR_t(|#8I#G~?rIbTXQqch+ZL?~N
zdS#wg)BCM?1PH`y+6N#L5N;|W60F=U29T&3qs(v1<vGu|v*C@{oLtfKD|vs=UvVS+
z(#j3I+_CRwUkLcd{TN<+H=+YIC(n9a(<lgq@lbsRH>>N>y`;3bKwGg{3ME)iVq(YM
z4?;Hhu_x!Nk1?f%?1hMbZzu?|PbKV9&&xRfj8nao?z}l7YyNJhj^ys^FR;OrN)w8O
zoD|oWdRj!u^MRG}bFxK6Iq3$btqZ#{WVG$TM6<9>$*opwqMg6ftT20%m=tOb+@|-%
z^OQgFEncxNu^UL$@<Aa_F5Q=}&F^^e2X*<zsoarwEk6^wq^r7yZHVNpxH?m<SlSVD
z(zD=WkM6BnSLGIr`BMmkd*PK#+LrzeII#LyZ=^@^Zc0Y98&GE5<2SczO;D=H5lKjk
z!^%#D`k=|`W-B9a^HR({y8HXXGvfXUc|tO@WYtfdFOJorSrvTuE`iD7AflJy$yF)A
zF0XMVya~LZORf?pX#7UE_M_v4yPyS|n_n26@EP&lko>FksX(MJ=&ZBH5owY`DAD8M
zK0TL0n3o_x1b=RZ(Jtl_p!y7Z6588JM>*B4XIizlmOU+CU@Ljue^p?G>Idjl^7bEE
zsyXQYJDlqOwwS`k{=XMf80r6Og#HDU{g>9L#fIp;QnPCmIdq?Z4Le2=1rXj~3uIj<
zl8}!lDo;M|LNu5HA{DUU+hbN;jm?#Sv_3!lp}zx%lMrea!ZaY|V4Mj_O`3p!CL_^W
zdnX_rZ|nu@j*28X%#soI`)->a94UbbT3UR&@Dyx6P=aLNjgbRcyI^d6yMY4tYriHp
z`gIeA1UIde{gI*<)U1;TAaF!RAeI3A1~}K>KGAO|5KgyGG9lT9Asf4$L_a?Ut2YDG
zPH-4RystN@@=Kp``otgJ6b4??18LM_vlfy;R2p0<l2cC}va(mWbqqeNep<DpvbEZS
zfq)BI;FLoQbC<;y%E;1OBcNHl9Pd>)s_0yN5I+A<!VcuCmhF%rtrr%V(FX`6f>Om;
zXwn3q0b^W}#Z(B?yVR2ylueqnT%Mp$G)o>^MmY}%*N_aEDXLO%j{tEPQesLs7py=<
znWUF-82Ua+wK7CuMIQzKHxiOIKYAKScR&jRSrL@9nZgqUcsEe0ehrTh45>MJFN4Vy
z8G6h)Z0@)M3y6^E68t!mm6LRMVms8UJsFOu9BczJvs~Yhe=eOn&TFp;QbAd7FU7zb
z2$J}D6A(_rz#*|&tMQ8x!=J^mhP269^@zaKa%y{>RT>zO;fVk?kT*v&aCgBJpgNae
z_9yaJF^AJ^{ptO^Hjo{^)QY)V(q5_}_s!aXx-|09-Ba^fZnhE;M$|2;h0o^?Jkoej
zGIFcr9cLGxZ`a$yvDDmZ^#FbpdBK`<9TfT3>fke5Avx29A`VW*DagsIHalk^F^Vr5
zD~QvZy3yBn?=wM>*iap9w^*Ny96Gatm8<#8^y8BgvSN<~AMNxDf}KwuySstg8rNBD
zqgU5<ZG1uJDe$QZR|YMen01ks%MLZZrh~EDwaWqy73g1DIy@wvT8A{ESi1SY25~e8
za%4-G9^KbPn2H|PMz?MPkDt!B>VJQ~7{43La%bqoY)sgKyfk~vby~;BdB5alil#-$
zjgh)TbWTE%ViRh_T9MXMz}w4lk?3U{kE~_<@yF=as@$fTb!W_2HxGQe{*7{)_{X?F
z-;A^l)CvM{h|xyt2bHx0HX~A9$ChPPeb-Mr926X_6-p{7{D{+f6uPPq7HiN{Z-fm#
z6L2jL>LQP6SqNp>q~cE**u`EN=3RL$iKZF{8?ku>LN!#R{jQElPn|j*)kl$Wm+~{#
z?m0xsOB7R!;Y4(r6V)_+4T9rtUI6S+Rc>H#i{7k&MSfBvqlTW8ug;9XM8eY&9wU3a
z(FF*F2DW0TIf{Xfz_+t~Hnkp{>}_yH-5I?#A$Wz#WQdG3df2O014YZ);30y(6A#v4
z%a1=hAOnEQZWFrzqM@KCvC><b^>hyQh*O`FJF$|@s<pJr)UlJ2MHFFsyis6^pj+{(
z)@-$9JJZ0mpQ+tIHApRtOc>cv5hZy)vqGgmV`Py!_|u#!AQ7Q1jzSQQ790DJzDt7w
z;L!DCh~nRB@IU2;VrwDg96KGz-N_NxrI9Z)lGx4lh#fo)irQAWT3JuYA67Y4hJPOp
zbJcrI%>GcP=CTQ3j2Y5CrLfPI7#bdo%NGGs+fn*VhB-F4j(p>LmOp6`wuI+v*z9Ca
z>+;AG?I$``LJ~xnd<l6#mT0PqR*ZlIkq<;`76T?mC7O&K_Xr>FJUcR%E6-jXwIIKX
z)q{hv)(_8Xqcn$7IZNeOC2_XG9y^_+>VIAEyjLCY@AfK(!qnFK6j$`UD_TRB!A52t
z@Xi>&Ometg#Xrw*So|hSx^6;BAlBk2*|~dMe2m-^aQfx^^j-x=mB=EQTX;`85Gh0*
zt1RLqxFwmx$_;_R8alFmYrSe+ern0uk*``_lfU3<L4BK|3@U?R*{Tf+6L3huB7Y1)
zG5>QmG9#!}QS-{9rgyET^Zdo~xYCVC?R}K`5kdcgVzAwLL)E|O+cWxQNqhaP!adcF
z6WF1~8|h71S}@9mUc0v$b`1wKuOZ)Ot;6%=Y-*vPp!((5;v{wI;y6`}?&+rEW#Y)|
zPH2JJ)NF!^Tz}&)S^H0xbn4X7;XomV9O}cv-p*7{Ol*d$GdEUCq;F@MPUFr_U4OUi
z22rK4a0Uop1mW<78>(@6QhoIFPAq4do{o+;;g`Lp6-yVtOpTa$SkP`zI^)9ElCmt?
z!<b0N;1L~{ZAQbG2N$-Ubn%qe)3w*VK`G4!1z64uZEEDP;p^SZkh$a9^v~kB126CI
zSLMgqz^B}j92i0=H8yN(){pWi_!=*6W!f;$u>wk(@4IjYRHeBG<;8?UpnxQ?Bse(7
zv5Lq)I9+zt>u&F>pYIF4?L!Nnt?ABxzi^Jr&nF*S-$b{bZYG}>7_sqFp$AhqI{fZF
z0cl-Lxo}EcotL0Wl>Q_FNAiu_>DTL|tXO28j*KeN-!_k_$P=>7%Q0HXW`SB7$nC!t
z<bHet9`TALCk9+9K0BtaE6B;f95`{Q2$M}}fp>~CKgyv3uHC94L^FO5cET0zWr9zQ
zq$eiquf%Z7b%~k&x)@xJ{ZrJmM`pYXY>+`&fe6n@xEkl9+Ra8o$~+%APo$3~o-<f$
zMCvCUy&qSDc$NO@h8i4o)GDyQKg04kw=BTx{&Lvv>YX&EbH=g(OBgY??2#P@=4RhI
ziVd=>BJRS~LGmBa>c3Qp|Eaqf=;{9<pvd-j_2*x{oJ*Bc+oy-`z4=1sXy(OwXn_$^
zws&}`le^4b6!Q1;7K|Wiy}x3!7_T-l&{1&L9VJejmcBPifCMt~>kW2GcPF!n0TiwE
z$3!P4>SYfML%^pGRscyLXuYdJUBk!k_k|FYEZa#G2>Vj-`%)xV4Pfl=g<@=#qU}=M
z=kZ*96#xiC7ciKFT=YXmqEGW=bAy16zDC3!EkOUIHj@R6gpVpkAlqH<xR*zvEDxpz
zFpaAZTa7aUghaw;r5Rcb=0-O?aeP#vt#OGjbHJEwFH^C)%uChs<2WP+BQU6))1THY
z$!Mh2?7}|``nbZ|YAAf@y708BwnY$YS`*#j;B$49xl2OLK!J1guqFaihd>Gd$n)=O
zi#)uPYFOcx((EF-82i?LS@Jr<-LR8e7w*(n7N=*$>8M0E)Q#s!ZGm7S!C75otz<k5
z5f$OBqQJYv6QH%idPjp72L&XE#t-*7I4vD1Uj7ZXm+1u%plsEYriv^rDV+3!2bwH<
zL>lPHk=P&;5w6@&HEWM8G_8)a9=r%EQ7r1gAmfrk1x|JaZd#l}=e(qb!etZpjHY=V
zQN_an&2eDH=3aA4&M=G)g}p?-d?^DHF|J*+^yx~R$^8kQ4Hn3-r*(V!`;49&l>2^R
zOmKbmn3k1`08b@Nd!>+Y24+g-dJ0;4@8nNCMGK*&c)HQE4n5a7J$-bJ9AE=$_Ek=?
zris~@OpM80sLnFm<8~jd2QM_&!HH7shNUbXB~_ExGM+<3I?$eT*^$@Jt7<lHGh$xc
zVC%4T-tn6H*dA5kJ8KFJ+s<FJhE81`q;6HPu3Yq;btvk~vX*?_v6o`S63x;o)qQ1s
z$lCI^q3lWEE)~xe*3Jaib=i2}mPDtIheC!!=VU9}VoHWCLUG<BO>Efx9KS|%1Je+N
zF>(iqL;dv|ngu$;^FPf6!#|izY)t>UAKav>rBp!wZzVd12-x9}1lqVw%eGrt?W&m$
z!%u)4jf{$=@a0b{cC@87HaHenzp&ZI+Prq$7zOm9;ZM=Y{)To%8G0c?$OrK;0b}|3
z002p6ANZL;T8>SUp{dE}@n|yO4WIv*7&#dmC}9j`#6ue4!<cS~oQQHUW<yig<NNId
z<ijIg`t=RAb_wZ|Yo7oJoWJdA&}0Iv2+b1pOZO!^Smd_LHY(cz)cy*;;HcNd6QZWx
zffKgQr^1C!w0(ZenCie#8>$@k_#LTlUgsfA;KHrXMO)Zi5$N(;p=04%i`Avn!*$C_
zWGgcJTXXUOPNA_;nNtp~sp~LpXvlMfC<AZY5fD`dbQQc=-@kn?ozv7olOY~);z`U*
zwsti*S_thO7RB2g{!RJjhQ1myis{XDia4>-k<~QVb&^_A21DI9Cc;bcW)=(g$dgr1
z@DT|o4g|IqGI%tP%3Ax5aBO%3Nw8ZkO!lcD69f=?fZs{cZTa10lh0P<>f3+PIrmk*
zLo(S%r!&dK=({$a1Kj9t&&E*pA-CWMUgDZiqATse@dv43{u6-XPZZM@bTQGTK5&ZQ
zXSYT;)BmFEo1^pUzI9_Yw$U`U-58D9*j8iPjoR2r<Hoj)#<tzqcw^k1p5Hy=-f_Nh
z$9MBr#@PE^6YH7JoC|v`%l8qU!`R~wLP{@Q$~{BSOSf2NCQ4HM;;dF!^t)D>-+hel
zp$eTY?&He>%4Kym$Ttq<vGZ=CaRx2RKgV#-mPZaWA$=*Znt5ztlUJLkdJa1(T(<Nj
z&3a$aYZ_3P0)MF7`F*uiB3O_)B0?lDWuRat5qA(vM{fJQyi#JKhc|-|WA9z5M6!vD
z{^!|m{AJtyi*_{REQ?B5SFK+?c;``9SN2pm>2G_5h+Zu5A5OLfVg2j%*0_#kgMw8X
z3Vd3l>U~xhE@TvKXqE_gq&!8-GN#U?Z}TpcZA;c}OGKI+G!LJFZD5RCj~LmAYeK=G
z%XBm>Kle;<$Bv1Oly|jJq-1iZ<A?3CE8;6fU;W_X(D%`SYZZ(+u6zTm&f)(lW?27W
zp@)Nq{a@#jHeeD5xGeVXB+f4-OmB#foS=U0X?uJE64p=1zY{U?ajg(P4OUbHlCsE8
z^>v+!Yv#_jl$c?Ef?ENHg6S)=O}plS!R<mm)ZbtN+eUmZ;TJ;VM7S~DmEax|!WQPX
z%QT!HpJHUNxS*}RKp#=dX=pwYPgY9sI<kM?x75js41wDS=b<<zN(9^;Ta#z+9MGvf
zmJSZpwEeAr$`L*}AWJk4&;N(LK^CpbjMO4zvhWaLwxWxGR5GmgqLQrhkgGZOS!nN$
zb!`8Y+|TiH#Z?)eS~)PsfgkUzy2&WDhvo7Mwy%l=2|@I!813Y~5#0EZPit9RK0k?F
zIu4`k&z7T@GU~(jpw)Mrrl{6jzNVs@46g;1Dp}{zm7|$fO`O*}PU-KKQMAdnwK<S#
ze2o%vO>#NsvpRjk;+7JCusRe9xu9&2yZaC+A@}1oUBf89@JWk2Oa*OEW|r0?gGTX0
zA;+_ln=61CCw12?YraAB0adJ@PK=^m5>NHC?1!}en5F(PDo5ksR4zAqh2kTTHc3yn
z1--O1mh$Anop)^T=T9288mI?V{=nyBp<Y-)HKdlWf}AePnUU>}Jy(<1NxWa^Se?80
z&Dx$}iDHMDb)$TUQ$OMTLFI>ezkJKC32lxl{(h;I@NSAm=^e2Ox!8(d%M_Q0@&W8c
zD_Ts7VLGfvtPlFlA5^vO4*Sn*9fX<?OlP$XV<2p-eVme4aPc4><oN2e(1h}`s7d!D
z11di0Tle{dGwvb$_&UsjXob?N9V@O&l9z8uz*!GA#*R)7CI;4T|JfQ^AOK$p{-4t*
z|5=RW_}^=h|7xO9$2OH2Gx+Qtt3A-X@g-QB5$T7bTu};oQQ-+RygW`sG?vu-@%*?x
zt8k4pg~o)<mXQ}X$>*`K@J<XNedBBIZNmY8*>Ap}K>ET%1x3Eomi>j=8P(b5UZcZ6
zzm>Aikg8}Qp9e6zxj_y4R9g(Skpk|N$8`nbI9CQzDZuQv!U`ygvYm$3D}wJ)i*o4v
zNO6$wG<eIwG2jr2M{rm0xqvIv#Uea({P1#RqqB8kMN8@X?NzLb>3pQsCb`|)Q*G-%
z#V72vM%3!5a4XxA0Qdys+(gAF?}?yl=eo>K9EIl!sTs@@Y|q%&VVj2BD%{j2M)`O&
zI`eo5iYqyp7i8MVZVe-|KT=r;q+V7jfz+rtwD{oojPhsQ*nrv5h6YxNOXK4LeVt@s
z5+9$J4#%TlCv1_7pByx1IM;zmiC*<P7x4_&f%E|?nm(5nMxS@e<upnsReRTl_BO#6
zs-~d5<Mne-_-%R9ih*gvOWIrV#$fx>3u>z^?S*e+Vg$8VC*=`e7pt<7<g@2vz6QLi
z)fQYFN!1GTO`eW1Ep1ntxYPE4Oj-x!Gn<z+d_4rN`Y}Fp>4bR;NoUrjap>gd$0{#9
zDikZIE>n;6$j0!6b_+2+wrJZ-Ny#0%>(3~)4(Fz1_AR#F%=P;tVY-c=yPrcV6)S_6
z@bK>6GN}o|3QI4qJPoB1n>e3qC&(lW0u{v(0*`O%J(t#M4#z(skDcd#t{QQ0|7R8a
zUm)*|9f55t06T{Ah*<m_q1s^aDd+hbv;o|t{XHDM?mLv(>S)Khe~hMB4TXYZiYfl%
ziO*M07=IkU&VhZHK2WrgAKGyiGE5f)^BAcilv}b$Ke#Xy@koo_#mf7P`{`<$ynH5l
zg4B2KQuAWeB#Oh`4d9Mw8aZJ6FHH6G0>EGxzhxlo{X))7_Pd{Qa}yy|Y}fK5b=5v^
z@%k@rO!(>NxjiPdtUM_{MBIs}xEuZ6WIiC!y;Fs*SGk}yu?a58yXw5xD?!pkWc15y
z@zyV1h!HX>#!C2*WILiWpE*!LjXpn~Iww^t-Yc3tdj?d%WM{==|Fi9beSZV|RZpat
zl^E-3iGHKhorhGbhb|{sP?;)D^;rExyPH^Yo`^60y(a#MY%fVs!=*QvCm0zBuCfS{
zsE^?3n;XrXqA?Z5N|6(H>h-q^rzt;;A9dX{^HgN-IGEiF$2hZmK3r((mX8mepDdN$
z^}08k8`<|GUU7TL*O#{$MoDnUuQ#757G_}H@1z!&-;lL!qp~pYpjQj;H6=$#i`kyx
z%)yK@%LjUm|4xc7`YjJ7DhQ!;9ji!vVVqcoePPb5#}#5>n3OL1>Sx}xwLfw#pT?+q
z&l-P0`^;W-g_vt(_w37=z96=jCNM3V+YXmAtW*?_K-+f4^&-cFd#BbrtumP7#qn;(
zl8$%!q=UMQNM|No1h1Tf%e1(?XzZCebUG<r5k+TkM#MaoK*Jp}#|pL)`K{7DQf``7
zet9R7o*?i~xa9nY5g;eazh8P;O&nHS1{m?y2Z6yF=A90MJG{AUPpttnGClP>4u#MH
z`K(Cz>5tydWE98;*M?ID%~g@RUn70IJ5I=<K7vC<2IRcw9^eM@HfA0!rc(45>JQP$
z-5<bvp|pd{Zg;rfvpx~_#!oTND}?u$2a4j%l<3=ht3q;e(n*7Qet(CqU-J&aO$9SA
z+7P0zX5$dw|Hr3vFevx;odH_hko3aLzbH#P-R-cmB-0D?)F4JkP2j6Mpo160M5L5b
zJ$l3P=PX=23igtm7u^I>^Hg(+LgvP!fYBc~%cguu2^TK*^R^FhZ`wIC0g`9$hSR<o
zftI%rA!v<wH>52)^K9{_w|>WsJO|g~M=O=I!~~o6HS>n4uL1+#wUaP03=PdCz?HgM
z^D`Fb2}d=uk2|}Ye9o_aSj>oUl{pG-!xViW&4<{EFEbhjzSb;kW~;rLRPf=Yh3R?W
zE$Tl^lnwJAM_#kqu2BX>iLD8GHBfn5MK#$vr#LEnr+}$)x8{*)Xyok3Y-7R+d#A$S
z6N*O#FUD%^SpQ8cJ_+r!h)U9-Q63-Km@b>)jUMU8ilM4C2GfRKy&4+|+P0YlIi9uM
ze#)w^S3WN{f)$rqoVkby-M$7rqt-e;E$Pd?zB#m+n%vopt?3UYL!TqeS5i!uI*0EP
zpCPxa)48d_jjX~POIsYF$OgFGy~mnv8d}<`XkWJ?L?7msPAYcWXLGHGOg@<Jmjn5a
zzv>j3cbVnjIFA6%Y}cZnFQ=Xa=OoZ$cvhKI>L7DPc2zFE+PS}R@{`;E09sEIZJ??l
znsAyY`6tkF{loB#ll4De;r<IU{qOa{7cAbTbj`^EhDan5JXVIEeq<r+u(RL$l(uW@
zMVDS4q_JyZMiAxo^Qp?(rYvsV)$qyAu}JN9v?a!R{r*F!lmA7iaIyxdeqWJKSC{ub
z+<dp|aQ~P$Lqs>;f7;z+WAcZ9d|JW^aYsOGUS80_hg<y&AXKt%A|V)skTjH}y1ch2
za3ghR_@n~?sIAIuNq*39Fv_Vk$=nUdngyZtir8RmQW`?CL%;k2;ZYA`3@wxxhqMQG
zbTZ;CD6c-H{N^lLwM$j#7js5T7L^y-z<_Zduo@Y>cJN}02+nEWbL>vNxeEu%&FmKy
zU+qk`<F<xOt@ebGRH7oyqM1ggKClq7KjGkd@47Ym^I1=Q@9yLm79BN)@~IcEE|nB9
z*?wa4GFW}nLHu5*c7PE`x~)tAE=JbSb;d8Oqm+=KwX}Ib^VvtxBp*fkXNvC#18sT2
zqqzd`xlBSoq}uL}r&ybSbqo|mVZYBjVu2(xHs>A}`;%KpW4|)8q5~I-`z^Psl)mE#
z(Z67v%$eoJ3&v%a6eZXS+G+{GOe=8VuZ170S*Hq2((2tGweTWF;(8JQ$7J$`P;1!u
z?0>I#KdBT}E~~<sbU#>;xr&q`%zpdz$#(SOyGIJO>0-*K`$GEs#-dJazrHIa_F*z!
zm21wgm!NN4j)SuzJG9G$)orv<jqtD73Ms1m1n)80u(Cnll*pG#s>N|e$Ckuv>UC;)
zRdC8i^2#oMa~o+;K49Cf%eRz{Ey>r^p8${ehz#r0Y^JA`QR3^}f2uMm4Amzue@PRO
zsFF(vTTOojD{5P!{wEl7|I>(x?cZ~6TcQjwV!{l%eL`R`$fx#zT)yKl-jpRgmWze%
zau~uC{Z^#(`X~)ofa<BRwLpiA?s(d^o+d1^0ZqzWRZf0nF#?pLFw~u-n&85}_8>`=
zsG+_mZgjOjrc)wcoajZ$(A1et*;lnWRO*B|FgZ}5Gvr=juBzt@c+^xDe*;@f%?4AH
z6{@Z$&OlW!E+YUcQDV0WL2XD%R7~YT#1$=9Y>Nl6bRX}xN)&aqB7{tJ=*nwHPOe|&
ziE0&bC!aP<XLZCZ^I7TVubXoKxKMU)rGSx(U`NL4SdJa9gSNa|{}Y-$rhLw%F}tO8
zuxMSR^JWRl#qtXyne^k~fiO1vDn65(TLC;9A7@sM6GOyQemV~_sn8+Dh9WrhHUo^o
z3+H#XpG@1A#>nYB{Z|L12(|?$MX$3D*z_10KMzVWr|dpOModBWTH&c(q7xp9n0@;)
zlt6Ei!9K~2TZ9rNO?8aU@APZht@8DcJ+mSTahS}Gk$s<+6~M@e2jt!KKT2u`KBEk6
zDGF<(5y!9Tx5p-1C)yMXYkNO#R&#yS|6&^`dfC%Tyxh|Uh7_u;5Zx3Rw7G#g?lT{a
zP*ds5-LTCXkvTh<!GY;qG&*mGRnfwBp*WTVcJp8_q2wrW^u^u)*91wzdKK?#Kzu+n
zdg|kC*29{p1_7JevmymgP`Kgrdz6oAFYnAuEcyNkWWbGm%%pFlAAbJ-UK!@(`uD@~
zy2N3Jw;|6he^BBCd}ujoVgwVOnWov+hSe1P_bx^yFB(*?(`hx4g+3OSFdf_IjZWXl
zk1ssv5Ey=)W%k<y^E$v3?}R8Z%nR<{$`elZ*EX0S)c9_X7Jv13W?yyAyct5V#E8+V
zpi#rvaw;|+yrNIWZFjB`{aily>bt^VkT}9*J5ZOTy-?x#eOK=weuc089hK|#rYdz3
zLJ`pxz`L;%BPu6`x=6n<<xf%N!E%5pH-=&ii)C~v?Gqbz!&JE7DaCn6g649RMODB6
zv}x;Oz(CI%M)jn2Jx`p0_<(WGI@W72_aW$c%-ZbBkDH}G((7}*l}~Ub#pNwx%5lqq
zg-wJ+`w02d!?K|-(vxPUoS702f?{kS?$6uQ)4%T3VIc(Q8OBCQBLe2dUf+WvY4t<;
ziRFNqT+W>@UsQvBN(d9DhdG2uxGvb<w>|nKSj334SO-htH0TH@mADSgCizRq>?Pzi
z<W!Ng_Ad^GnXRFbm(8N!6^%(YJ!H+>{4QjuGUTK)__Hn}`sZTlv!{$z=N^sJc>Wca
z?LNC4v)mMSY1Gpk7;sw=7$35j$X2XC)VyjA=}w8b6Dl`0ghvLqMC<iV9K}LkQo*#%
zXwSZ(4?QR~OBcr6TR%7GrK{kn@Ux`jFl9MjVuSdZXKL|L2_hVuGzhjCzS<chzOkr}
z!BZb{%PPu^Zvb+~KkS&Yh34hmogJNvOWYUDog70t&98qXf5@yw@V9?{vP?4>CT$`;
zXYDC!g-svV`v@<PX_GsaUzWSIXj~IE>`m_;W^sF0*7o_7QX^wbEy;o+=#H!vNrR?r
zNSM0ta`E(vLo%&7u8@%0+5wdTIb$kUC0{dCX@Gi8g?Ha*R}eyDEc1V2p6CBMA?W|H
zS%Qa?>%T*Sg_ZeVUy(kVG-{*Gg%||XyaN6b?`agE!s(YfTOj;X#ewM-QX))fh?Yts
zQtwCNA-iWsitzA3LrzC`o=mY%{Mk;U4pRQ{0d~we6STyHtausd)#w=%Ul`rygv2jq
zI%%LS8JJUc0&!v-U;;#9c8QUDAN0^^T|dLuIe$iyUd<7%^VIy><cWCUO$e8<5>xYv
z>M;i9SpE{Ku#>Vvi%SL3*-bJ7X$Go_({eL8Wk6KD!VV-MvlZUgu&@Q!J79rhv4|4x
zHCxl#P_eXsC(y9s{dG?I_LrH=snJt%W7K4g#;rouZ{i5N#FTzNrdu>-)r1F;N*KeN
zgidL+l4cYC->^TS?qfbe466H<qS0R~hBkCQD6!a*p%+SvAR-1>9I<S8s$0<`bKE%7
z?2j*KVP2b+J;LGTof@exd82dhozhiW+|G6;!x;*}%J%lFWkIm&arj5|dP||m=pnIh
zD|&H6t1~hdDNkMnP%|@>dqZIflrXsz?~Bjw`Cr=&w*__4u4Q*t|6yT=wO8r-=HWOV
zj!>F`#~@s2CP7#F5u3jB%Xm2Fe!5PTMP)N*O4tHMCcX#u385E-D~X{pj-tiBh9^uF
za8q+IzK6}?p1%ND*&RQ=M=&QUBw6ooE&YZcwgl=6G&;2K%ei-UlMwAIM*96&4m^~(
z^>*V~9O~X3`kt8f?neEc#a=ExKJ}g?<%ldwjfgGlKCk4;p~<G?5&NXtzK;)}>BSaT
zqj;iOQ#1<=VavMxB6Xp#UG<m+Xk}%?J_q`&QjSB#f?RC8DP5teHlqL$y(}EA`P<DW
z{$s}IvYUxN5b!inoQR)p?!E=`FD-a2z}n=LtcEP7GIgAu^{6a(yZNHIkle1H^}H&4
ze0dxv_Vs$P^sRryL%W^7b=5^}<JHSJVZ3$aTDR#qKJ&0XF4w#9eR;kwNIlyeGQy-A
z&_R;(LdZlty<&KPQzbbsaKE*9X15PR(z4BuO{&aCE}8uvS_`8VCuNPsC^0bmK716b
ziLrY{Grktis8vCgDmhimU7(9<((Q*>89!;lp2q`twJ?PTMXJvTQBi7|TG%k%&97!z
zl^T;0^XqB1px#X!f}26~R2tJ#5CR<(8m5M!20F2&QD+m8!eP=v_z6uTRa$Jl-KBM{
zxKn9;^f4&qn((7~oP=HR<e7ks-6%fCGQKvPNj^QY=t6M+DynH!<B+0Um8wnv+nCuW
z2SxmzGVdIg#D=ekNt4ZJcrH^8;GSK?)cTMv#gz<vI17pCN0!55J9Q=nhfCRx_STC^
zGl>hTTG^78GD`#q3yydC-~?St?noO=?J(!s`jBqrmEimd3x4UAR$!Ug0~Twcr3;hq
zOU&E++VoK{E5TC{+AHQ3QXG`$C{*pVrZ-Q_hO6yMEoA67m+OY`Q?<Hq4n7@-!{WHe
zNgjz`5rj?w5)|+|uVfy<GS-(Q&##w0`t9A`fb(}WqHNrcdV^(d&9)(xpGHKgYHWjw
zufGX=Nq{-NURkcbGO`^W``iZXz`U+Mz8+c5z9P3B&e-~47C_fR<ZIG!8H{iPxT;IS
z&O$+DenXna!6U!o70eer^PfijEX@Bj8^!VO?|uPhqmts@ih`$5`T$ARdr~qTiw<PR
z+KeLZcl{d12t+(0%fD)QU)KWt5+id|=?NU-2u?lEL`A-J33TcownnCf!BhF^vv)#5
zWK*CbLZeG{N28L4b|JMc<-JRizUu|y8rfwu68p;}bq-PE8|6g=v7p~_HaqpjTy3D1
zeFHcDwgqk&_)YwDWyKKHa-O2|dl;Bk8Rc##4laEDC}OK?IidF653PG?A+O(F!gB54
z!eUy&q|R2RY-?r*^@Jy!8qHtw<o37~rw{G!D!sbV3LxC#$wiuwaK?Z$ANXAb<ayG(
zl96)GS4VD^q%)cO%LWtp2oLNHs~eNQxKr;c6k8W9gWU)4-e<b2H71yQHM%zW6-&+P
zsPf6~tD1ivAf==^PZsLlgVpbz70qqWTdr|54}5u-Xs)=_JUsqGTruChXTLE8<BN8Q
zVPj<6NBtSa@l7{#PwOOFUPt_L9RbKbXIGP(OGd77zLRKXn&WpzdFfeJw@V2l<=kym
zHMx-MF|;c8jR#@&<gS!sFOF$OWm+hBjZp+Lw+(h2OBRx^d@JTLeFFX*ir!3X#jO_9
zgz4@-+vOUT+lF|1(xUX*+{s=$tFey=%*susXWNMC%%tl}ys_y$5$Z8!ziLsY61%>l
zw6#yBY!7_Re0aA%aBHL|>7FyorKYv9{tOW*^|FPGum5|2Ms4D7Xz-~ArP~=zHZ_eb
z6D_rYw0~$F{4#db|9@s@78cfj7`=1w{QrPYODR<dvw!^_^ARq+`V?!xh~r1V_6F{t
zOc_eD6}=KVoxa7>_3Arg(oY3V-<i^C2pt#&UkI@Msr)+goQbu}MBg?Ygm~coX8XJ8
z097AB0Ohxmo$Y#iK1K-C4O4$!{1W+Q<3a|{!koM=-@60Zc=EK6yCMAFb74UyL{QA<
zXo$wmU?89(mEE0thJ;YUYk`1s7>D(}j&tnfhZ3M&MO@Knz%JGlFH3|3hCd_Z#U_G&
zfzX{viG~)Mx~Ap|5})098JyTs%`NC0f9>7@^{CedIx@>9r5bK;z;M@qJ<sNi9ih(e
zO*v!L2v$K<$ucTu`s3k8^*TGw55hIEGT$%rKx9WM){+&D&<~ULJ1T#IZ?9xEOiNhN
z?G029y2UVz5|Q^@VhaY1C`X7?+BqJvxuhT=v=4=&E-33wVtpYvRPsE(#)hdm(#Q@(
z8zDL9#u4)QuXtW2`atmN<a@f9rohxlTU&)K+FMNDGdaY>XUmvIuxgDsm1;j@>y0*J
z(NDQnk;s{*6q=gHP3aFi#TrwdudbpGwwFE_x-cZZ=hHEC-M*R}<wnjC4(Q>1wvjdH
z_{NU!)$)RlD_G)N*|Gb8PHP$#s&rqo=G<L56k3lEhtjDUe}7d>_m%g)BbrD`Vn-2E
zmB3eF`Mn~^(jPe=l*mAIM&0Y-k3XfAkoY)tb@l{PEP`qak&RtxhNQW|<b=IzGY(^T
zmx7P3S8aMYDnATIuKKr(xlMiX7(n|>azJev!&SunHf$=F<fMCr_EgML{U?zA(-+}v
z?En5V(>BE}c?cHNwp+U0M$fP2e9JaX#X=i?;D_SZLi!5Xq;L|ON9i^ci{f(Zlo`9u
z`R-?<!%~fq@I)@V8adXO)HEs8MV;ea*#kt}LEW0?Y`9bbNxkf|jP6oA?<srU@6i4%
zprz@$LMw%ng`}R+S~p@C=ah{Jg>wFoAm=aL<22aUfNsiu=#SaAd#>rDEn=EiDRqt}
zVb%F3<g>=rk&p=lTS>sWHoQ3XIFY@PlUH&pL;dQkX)U)HTLFK+v~hKFD{J@HciI>o
zlQE^sw`KB{$qqSkQ|*VDkEbSr?Zv!YQv*x$+^t#d2*mi-C&j?-z3xa_b7_n^-d@Jw
z))pp+fmmzxUseL6M(Mx1I8dJIPCkm0Pnd5=rEAZ}T|9z1K43V#B+B0Cu(sI6Jvt8+
zJ#l9<m9r*6TyRNh5R;kC<{~XheuEJYrsb`7D}F-8cOQ-ar;cL(hl7gP*f==<?G~ms
z9T~M1Zv53NI{p%uQTWicSR4&hQoLQ%ShDMbjMD>gXj#QQOlTz)vV#{8xkjRuFi+Mz
zJ$lJgV`9bG^L4G?>>h%u?d?Xu$x&Eak}X^@GgO+9s*biA1jL{_1v3oX<l$EFLz@qh
z>0@};!`<W4uFay2sjv3av_Y#^fJqSPSN#BXu+p0!V998XC%s9%ru9)gWqYo!v}8vv
z&UJS-E;?)FrWWHa?dsOY#NHv+mOgbi!K)P~Ws5#qO!X)460oav8?H)-eVk3mPTBV}
zpKWTIQf&89U6vu~>-9Van96*TBLgSdzDW6rNeRf@B8Es(?b5$~!V*X4xXInwn)Yaa
zaisi&M2wo-MMD~I<h}T@m(VWzt6`|2F^z=4V8;ktF$iPq1|Em^)x+rO73wM(0{OAw
zCd#FZg}MwxFtL0;WHoD}?3?+^!zV|{mA39!-UKv1Y6x=2p@736{T&yN+DTyXd5TGP
z{Y>kXyVjG)!*R|AC2B2MOZOnWuwYta(zdWA+f$S`Xmr=7&rLv&X*ZLXXJ4m*&QX9x
zupun<g*esPvq8a1ku3hH8AtnsoEB_HmI6+{mIdz#Ma-#9;Wl@nBWSJXFlcD8@5A0M
zp_g&}L$`~&iO+uc{>kpqgNM&z3d!(|Zb_w1N@hB*vk2W-+N$m$l`2lo!_dkf1LTp^
zBStQQ%baDlnkKCVf&`4Kg$ZBXq@qaT-qoY!NHY;)G}#$BzUM+CqG^le9UYRz5!(mR
z;pJIi^Q5JZmo8Iz_>F=Jje^v3$Di2;$DK27-xgP|s@rt|2CBkHdytKo5=&9N^p_+q
zPY=P_7P1mJQbpyX`sTIAB#hT-*Ge;whE0)3+p9;C%4WrWOeMd<unuRlwL;(B{Ncl#
z=DqE3PFnr<FXT{;0$za={qts|Uyz-X-4MIrAZj;hn)Jn>5kB=4xuv*7(bI_aLMi2<
zJ*rmmwiKa4AQ^2kfi8v#CkisNI#S&O&2^wegZ|97yJbeaP!vpWiYWwJQzauh^&2^Z
zu=+}1*a;nVHrOHHux5XL1^Yue;LV+hrrqJ|>2p4YrO*Sdjnxbh6<Vb?_L(t~JV2Go
zwj6>!Ht&x>7S%8xF0I7cM*`rpGoZ!6w-$S$)Pnt*6=*<6`-6w?f<qND$0d9~2?onF
zl#r_z>eF2bMakwR(Nt$2(=rG%w3G4I7awbK7e3+7>e68I!Co7KU_^Th=gr7FJccVz
zFq8aG-Aa=ee#{P=G{!%`0FR-8$K$}`hauo`+}mSD7Y~pu78^l$OF@5bRQkw_WE-vw
zT6Fxv!~Wpn=E1mRKi^?lI32&~_~XH)1vqxeaHirnCPP22?D!`@;61Ep@4!0H;u9e7
zL+W3F8}HyzYt_$*CgNss5V3MTW=1?6()H9U$-*>mSLM@{e*ybu-3vP2x;weJFP|t5
zp$kMRE7>_Y3@TbJcN#bK^2<Yl5J^O+B)?Yv5h5xs^#o3^NTK`Pnr@g7@R6K!8Yd#E
zuqegan${23ZQE4fv^y9nMcU}7i8vKvKpt?h;S((rAkXx#JQYUxEUBC4mYU#s*ge>@
zNG2Bxoq_TLxD!;80Nz}JrViF^HMo-10qx<<1u9JaLl~ad{4vw&kB=T#=6zpQ%R#mZ
z>$<7W2%sy&M^Ld`_2&)-<4kaY#gAQISZ*#B2W&H0t@sAbviOKCCCQad)CYeefUa9J
zqy0C^RjFaoTkIckLl#*!)(pJ5^_9Wq*vB~*yi!jq%E=<7?=6Ks->5Mwhj(~!UOtu}
zE{|d0?ML>fFlMMj;>uEIEP0OeTMhA}e|fUHs=Ym79ps5G<hxQF!<&dp$3Vo|CIl=U
zqX8`S{A+1?&M+jO3UfD)_fekXDBU(0s|j&7zjTIqh7apcY3H~>MQt%=ze4qUwk)a^
zYFyeraR7We%E8tJPjBE8zphq91UK$Ayz|Q_ZPzcv1>IZyQPab#Pd8+pAd2E3>H+2I
zNq0AAT`Nz<<+NiQR@~qA?*4&mWA<--{qdNib;U*jBMOg7j~xI20|!d9x3Lod#ybFN
z@qdAFz*)~5Av4)fwHRl8yobNz)3jifu5@Y^K6_OM3QeuIUd^WJs93&_Xwh#uh^y6Y
zU5KIiK+zdNptfeUw_HIpOEhKY_q7PZEHJ~O&aM!yL_nXsWfq~z`XnX*K=L3&2s>~*
zJ8Y!;3O(ni?nKP2{P=Prx9U>S7(?X~g&4gV@njcX*#cgC3(ZMIYjHidG!l}un;6Y-
zd6i?k&7}(8buzbNk~Trc)jb{pK8Wn)UT=lUnN012im3YCcT_VC`7x&sM49tzw!y@-
zzb%*RBROI^!7x;Z#34PZBfkAI^!ig1vo2+_;Bq-G<jOx+n*^l<qEB0w@m_t`gx1^N
zSPLFLy|-1~XX<!&2YaUt@%|Is3o_~lFvH7x(i89Eql8NPqEBm(Zq<8$%JgRnG3ytA
z%9L_|%Cy;MVPAHzwM#33&JTJED}JE!r+~1+_#0M~TF-$+(_i!!HVP!?qOJ>mz<Q)@
zXA>MRpm~9c!Mb&_=<M>{+~6Oj@%+90yR5UTLQv~lP#tNClpd}e!kgneIr14PWJ9SJ
z7<(1u;JkjKpTfiD&IBfc^DjF8l48lfDjYa#dN0eDnyW;F#G%tdZh^C1Ws_oCmg=G$
z&I}&gR9>mpB0=h(wUR-)5T;W{hpcRUK!ZBZAnfQzx~sho3t@2!muPGv3ohOpIst^w
z2oOFtH$eF80pWvT`W8M*lj;y~3Z*&Ao=0DyVrY75!SP437{K$Smulsg94qCi79kCU
zG^*sgfS(h;Mc+B_^C;lwpWdR6F5erHOg}nNas40R3u^Q>3Si64(ps{_6~X(g90=cq
zA+yLJt0K`3@XUR%sQADwz%x5q0M9i2<r&U#`vCCw-j?7sm~{xq>PoZ=kpQFN1FlyE
zTyMbu#GU$E-0{|VC@Dch$oAvGMT^<^&{E>ghaBPcIG5}djx{{TE4SfhZGf6n8;enV
zUz*b@K!-84r|nK6U+Qdc2~=J6OqdfUrppv(#%FtC4XZqaKCAiyjPT&id0EndxGZ1w
zmk~-W^clhDEGLksA={dPyUCPE4kr&mh(E<;6R5837MHJle6px?!=XsKNvBC}Z}B5H
zjfq)Q_Z$z+F0Y>#5Bzn{K;7O<?VdA{t|Uw_kqG$<37e-UnAJyq8CLT^sJA>={b{fS
zLcRBIs4rRv;K4R#RynxYc{G<4NYoKYv1MF%&gi~2Ydp=m&!vJ}?G@yH&k!LEMPdVZ
zSDXY9i`)b7N;bf|7#4roNc=Mm>Gz<LmvxNd&nO^u2n8$qRWy(4!+>9g%4an(dLST9
zq(|T4#EC9NU!P#|&jHJ6)>P++o}LY{TfoxKuup43w0ga&yF|aJJjnsNA^_;B4amL)
zdvA0lmjqXAkTqY3!i1KeAh=FRN22Ilt6s#MMMWnFB-VT2<pe$8<+;DyhA8_>Lg9;*
z$~u}y@k95o_cOPC5yyvgzw1?Gk>9e?gS0}=Y|r!_C;@%u)f{`;pm{uqxx}dOgFndj
z*%16IKX?c;*4$129=DIgjHQ#K|20)H{006eXJk683d#M!NciAT`*0vz_s1J77xBMk
z>$v9<DaFoX>EAbDmK7m&%kGUfkMgtY$UXx1jX7#6CK12#doaW(LB;5kWvSaHC)?wD
zwx)2u9)y@q?cJ;j>M2xzpeAL})GuAY2`m}{c*nj1@LmPrUCa0_T&jPCL#YNS>Cwi-
zZ<_vw^6OQVB>qKJ!T}gx1{go92^e4b*Hfy$*uz}x{}dE|!JTv6jec2ns3-2dp9U4e
z48T0EA1cIyt6TN%0G(qEkQlIiB4(Wv=p4nrB<3U#Dh)y?Qj6-Q0Z|80`K~BD9(&Ai
zTat`L2^KfcR1sK8y+mT5L42u7$N>CsiU9Z_3Gjm}P_^*9|1UojeYYe1f-#Y~)O1qV
z_R-mQSvhq~OLU0AI6BuS9E`U9%N3k}#xr2y;qBr;#S36z?;9b|<$uQF1lu;Oas`4y
z?=2{RG+9ys1O?0Aps;CwkC>~|m)uR{?ELJyHRuMuMZ$@XufE>WVah;O0#Y=EM^nc_
zYh3X74e3@4`7P!>;)YU;&Z|jsee9@^Gy6=WMH^JOIY|-Xa>DmV@mteJL@pPdO`FW3
z*`w#x&`;&k29EoK^}cErqQq*ExHw9_2Q9<olM&cL)crc-i!VV^LZ1Xh)22gQUr7AO
zlm6jUSQZxUf4F>sjT1QI<?r9W_|7z4$C01`EBFjVr><9qPteQd!Z#X3K3K$Bp5AA%
zA{+azFI&fjeu%=HW3Ym$l4Jq8w=O)u(KKaH3_-k2yWK-~W5Y<e-K}9Gtm1QfGw=O0
z8#(s3nqV$NdytC(mLn(|J5-~kv03*?UFWH}_5R$aj_>*YFf}f$B<?j0?seFUEO_rS
zn1&3;)<)jv=_gb9b5y&AooT7oQ-k-`sEF2B>E(L6UMuhYBm9}3F8$M03hz@xeb`Bh
z_(P|w-e<iqw!Ml8p3$`0&ED?qDZv&ExGsDn?B&@l2JO|{!|8_XCnhA@Ae4&4b}Xo(
z(j)71LFOFSrWGV|j%j0Ef`e93j?hIr1~^Yu);%aJ&m0dH&qYPB8%4H>#heS?%WwLe
z+9lR540`OPRm4jZhYwt<UztpPvO3S7zHDCqP*zmkE6Hq}NS!^v*wL<gO?vHPFK^be
znIF~*cDXmem`ZG+TDr?bsGf6DW}@WPLJ)GYfZ?5F*Of#-8ws|o6C3sraoS$Blmppj
z3`g#_C>fRP++1qAB_@=&BkCzT-}<yIXI8BF_-fL<Zf7=bo`@#x6?{%Pyg0ykEht>G
zo}b?YCu^1z13g~OgUV-PPedh@)slQ$8ujw;=JmUaZZzqWGCj0b^@7IR>GJ3?RP$|*
z9+fsL4i8*6FMS)mF6w+Cvp>Wa-w0A1nM#1RzL?5@i~LOSCzi&qFp5S6R9x*>qf;eV
zAN@L5>q6AF6c`zF#gdNBl74wLeZVyI5Y{cVcl~Toprk3N`u>Pj613$6G%*D<ks%K>
zk^R<$Fbt`PCphhOwi}CklQh^lI@LrI`2|n5q7A#ch0h-{3)6T{w?CVGF(I#l+r^`o
z`BsSCZCy^vQHQ<iW-{Q7@}okqseMP^$-gbymD#XP6XONg4a=_L9GQL26hx^dPDD<z
z$Fc~s$%>uhXX4+AYu>Zh!|k0M*)G@jm=Q!rCnLt1!>dONx6D=!-^%+npgJ@zb_nJ2
z;j0%hwFEOhJx40+@|}I9ld*fW<Rxj?)dqf_WwDK6wr<*YD;l8>02J7Sx1B%Wby+pe
z9TzUl`G6gYNw#iMlxp?|W{Yry;>4wtK!I`CL!>LAXOe5~NCf1W9yuNH8+PYAKP=wN
z3|Kf@h}ErxSgg*>PWfI$fMy>|-8SYyMTOF|&X$N6k)`m&vteChi4f80DgKe15%XwL
zP&J#HH6_q<Gb4-b@N2GY-~EmFWF_jO(yi4PcC!)02WHL7N(x?Ey_|h56r=|O>&vW+
zWK6O1uFn*HUPEO1fDU)Ae6@ArRXN*VW3qpR&KBwtmH^h20@fIbZ##!W0M2CS49`~i
z_DP0wgm5-&aX1m8GAYG>j5uOG2Io!w6?7QMr#XpS=;7&An`ax0!&o0p1r9mQ;^XGC
zn}#?lJb`r2(x#&ByPDh`EF`70(jB7Nu!HeLh>6S;e|bTm8TG%-7)k5-&&cVO6HLq1
zesE-6s@6O-$fmI5+$~OzxX@@4#F?I#&r5)JmBp)GGf-w4ldQ)iB`Lz&zt6hhWsLv=
z@ZFc6$$f6(#r5vlx<k6{${#&pP4#Oe|A0E*1p|;+9Qr+c|Bfq@BOyDls66R$$ENPq
z8P0Xq1Eanv*`j7CGhOf~<MzhIvxdG%QnoC4PWj|StS$N8iU#Zo5Hm9EM#Lk|Oi<3j
z*JWt2NB0Bye$}T%bFCJGzTNPyTC3)O*z3Nl|5v$c>b!x2Ny}Qput1dRYC5Ua)viLv
zZ$}p&cVo$<bDTZnM?*zUalYn2!y(F~=i|%!-dU7&;^j}KNO5Efa21x8l$JkR&%<iE
z9fr8OoOG0WJ(ZavT>)d)04*-^FL));|3Yl2+&<WT-qk#5JTm-4AW6g{)iwE#XbTc!
zt*8j$N4mAn3pH6+_vebIo#aCOmA*~*GyHfmdRR5u@H4NRrCB{D-S`hf>?7303H3ib
z?6a%$z<vOA&}Ynuc@}6m)1Eq0*z-P5x`#5+M3T+L7J41Rj*gep%fl@x5hpiQwg@8M
zm9QpuDb?alb6<YS-+kw`@Rl_<yB^OL9XhsaI#vx0C)g)s<9RxXH<7&6jF!qw$m)O*
z`hXGO0A&V4yczM#C}VdLht*A+T<M(&Iy~HIplGC>hWQRRuh51&4|u*Dc)fATjR;Nj
z&GUK&MZureu3h^&_F+Hk6hQ~6278_iE-e5rF99#t0xwShFAKlD4E@st1QBUfvIO*D
z8}QH*cz8VNM&vI1){@{bZFjEhRp&#+=FP&?DF&5J3yf9caVB-&4|TV=lGI?H?eCSD
zg-M2)ObJoX{&))u814dDp$44VmOd*3SW23=kdnDU>o#9-ZZ<=lWJBDaosL%@l@x;7
zFtV3$qMn^j)K^y-KcmGev~hn}RP>9^HO&eM>^p+vd<!Tco$PdjI!endNs!?U;P~S_
z)2tfFZRbDGZ%(n&$=2zqoif+C<fngG3+`QCMggu;J6W|@wiUO$E#lF&{<!vpp27OG
zabvAF@cY@a<@r!_P{Q-%_0(B(?lSVQ_Zr~C{m;PNeVKhnQuJ?pxM+@OO*CCD`1SB<
zCuT@A_)*r-y?ULf6ywS#XK`2g;p=hahzWu3ByBmnxBDLoLdPZK&(y`r;l9(Mr46{V
zVOOyX&;v3SFdn*JTO-5Clac0A&KSZCB#IZbsE>?6v{o=vb5|q?rxOC)>kN0uMnsWv
zZqp}Zn(H>*%=Pd&b1H7lHn6oHy%N42`snKy9F=vO#lLfoPWw}w_8QmRxJDcK!;aG8
zIXXD~YpuXMj<;Sz%QfVWt5_-8S7{Cn9L{1KNmeZc)WI3VYbl_IjRJvqw{!_CdsZ`g
zWE>G_Wq;HlKXzGn!qpF{4F-4Vh-p4M5ixAq*b4K$-?d<{>>HG?PA|lv`k;jn9St-R
zIN?TAB=LrXb#t1oQtHFn2bPE<J_buVve%KO*M>kZ13W4|N!M&$S)Y1Lzo!{Qr%UtJ
z$lCXBmai*kiT51aMce2OlSB(nUCNxk(pX>i%*GHk@F_6C2x=jK`2hL*4#?l?Z~1$a
z>wX2L_+B{9_YW@D$=yW#yd0mNieH_@2MlA_Ir$lxs<EV@{)bLPtI{8>#9w~@RV$;U
zkC`iNzj>MImc+GR)2a7ECZfl3A|GRl^DRzT;*F=JS+NN9fy#*_p|M$y{7hItGy^o8
z2+&2SKo_0=Rg~zuc*%45`Y|S*#(-mG({KR)M4>Ht7KnxtAR0;mN8XFP3DXLrrcxK+
zQJljeadvLfIBRh<I!j#knX+$cI#r!`60L?ZH~RU3?~_ZmZn#rDCfEVsj$FVUxNlM(
z#E1;>RZ%1defpXgc{SKEda@TEmq%l;*iLXsaDEdvKN?-N@9P@naVRM_;74usDh#SX
ze4wz05TO3>QL=tG0!C()Nih(vA&8r4N1ct3d6@))uGtgG5`&d2@Zd~$sty;yxhvGd
zmg47oJ`z9$+5fFVKA^&f|59PQ0?{&!zwtKb2s&%#;Z#J)x`U)Q?B}Qo1ZgU_zdZeq
zakOfOoG!&HQSsNYdpkv|=ktgCS4j>>H_=j~?wL%c>Sj84@`|67eCvP&!hRqJ5-YJy
zKz;&pAlh31eO8tbVf~m!vaBX?*)=3p9cxf!MbD<pXD@M~SXh&A`BOf<QzE5r&tC)z
z5R*y$gWK$z)<~?>Tnb(_xjEHgZzoXje3u&)l1v0x0RL}VwWgZ-WIBi(2mrGti2+)l
zi32iS0KbBq=`Z~Pr!&;ZvUBQW`L-dEj851LX!ia*cXDWDOeaj*9G7%SJQ8ceJpuZ1
z3FynOKz6bhd+STSjd)`FqQ|9rPHqARp!%KP%-yy_+`Qf7@7}ptD62RqsH!88H0f^L
zW|nT#ICBX)dQ_YriB10mKzHm5z|f*Vb9mVoybe)sG1i`y*oSfxENcD({rz;H)JP!p
zFySJ6JqBni&{zf>Jr=0oPyv-^|EheZ9l!LNAwp#5!KWiPR}55UBY@S(fYoMz)dP5M
zRuA|oNvXyW>GLWunKEf1bm{_;;t52G?pqBwiozXaqDf5XKoa?*X_bPY+gfSWXT|rf
z5rw3$M^t4p!+v57#Yt(Z+2K{G8bb_lYal>%Z~)a&r2$k&@zzuK_61DoAYg{Bhb2mr
z*Yiy2n_F6Wq2*k3`e#5Ul4!fK4=(aZCo*KrJY**>km$hjg6-yN<Y!So&-_DqQ<E25
z_)IcENLb|5ZXpA&vHHTvBT3^Gzkb5>YBL<h^%z?d8_02Djwh!6pGve6s6_iyfJ*fJ
zn>velum+Y)i+_BDGGSji38Su;|6JWmzk|!c<uZ=AE7X<s1o-6!2&g3h&4GWzwqRA=
zG$cUA@igu8*Z%vbPrslsjH#l55I29TnlgZ@i4UlnzWgozj3j??)Htu#b4m4IzxaGW
z?Qr!+&HE9Jgkijw4g3Nlh5=ei3?PN~04ZSp<!#&71Y>z~!W9#mQ-fEoMd3mWkl{*A
z9#~_6Y1X#<wzC-KTN2_w-9&~>Qd;R)F0VlOih`1W!?(ix$>sY2kWN7W=#Jh91OVMV
z06L|TtC^snE6-mnbK<|&cK;YDs8GiyPpP_OLLZ1fHTbmtN=Wu;7WUE@zj*~?de7$m
zPwRpI_M{{pF3$gB^B>25R(Aiz2v&XgZS&vixZ3_Zc67a1F!C_U^KzkR)5*DkZYfxC
z|4w8pSgF_cklOU6i}b{xmh-;d9Rc2%?dYVGH7%yH>$Sq~55A0a8F@~~urIQ1OR*xD
z85+sh;cKCljgw*F2QXL^OI;h;rl&E6tMDz@(_mUvSQ`q#PF$vVY{`;8yJXwwO}Wks
zs&e3smW}QDKTvxS8$j7$BBr=94Rpg&+MI6hhLJU(M$Ml$oc{<!(Z?#dgidw&t<S%7
zDTH{gpNR>{pU?KVoi?_0r5A>PbSw{<7~Gva_Rb;nhqHk?xmWuSZ&C=C)B&%1IJp)6
zc71-!JIYe5b`>eZ)Y`6;Q^>&h9#~VNO~@LByG|?9@4xhk1-w{lI{n@2&;8x|nvq5v
zn@}*adpCQI=MhP8Y^r7{D<$q~nP1++$p7>#?SXMZJ7QLoD(y+Mq=+oS+Es^zOEw}}
zKu=VMMUFAK^D!c~S1!lpuTCL_!5)}<Ld;_21hL`jx6h)@42rIV99$-ELS7+4Z+5x`
zb5kYb1fh%!i{RBr9hK7(7TjHQYKlwo<Fg7^64?lE9xLv1TWv1jwEFpZjY%P)g`tJA
zAF_1on}>tdaHwJB(_x#}qxPV}v5JLnvgPe+uxk%wginv7$9@YM4GzLB>4p2Pj!%wi
zbbpG@Dw$flIyh+anx96dg=PL+e(d|QGta7-&P{1jjzML2u`^wO(xO)Jf<`av{C-bS
zAG?gZm=M>aEQ6nh*;pyBqJLw0I4sq{LGh-boaNX)oL5C~*!guLbZwa$-p$oAM_2g7
zCcx_T=J0a+b4aR#>W%GsTH^C#&wT17!`P#sAj$dG(`}E<D?SSfut`ui@0)9buWMub
zlLP3&&ReUg`*wS?L2%5s@kw)x|2tzD)P>>vkv0h`a3bCZ-AfxD;?lL@!-iP`6)Bgg
z!qDO?;{sx%#VR8WiYmf-4IQ?AOYfPBXK=zU+ELn+)PVEi3}HO_;o?u!8YQOWLE>b^
zQ-8$G!}g2n3k9^aW=QCL#7&8C=0(qS@QKytvF{37IXnA7b>JTvE0NCagRK3cq^%%5
zwT%cilBij~@T1{P*N6v4sW<xxbic@eFL$~Wmqp>!6-{w+I)C(4n)e-83E6lwPJ7oC
ztIt+e?}1#ZZ?m84urX_IsBsQfLs7+9ysqG&KYNJej7+cHRx|A1q{e>y$*%wB2)!f0
zY=ssL^Fw#2E;oEe_?iV}mu`P}oW72VR-y)}*(hs`s*Z-~mPM?|Y1@*jRx|W&-Qhq!
zX*tR4;{%}^^}{JW+t6k$ea%g?M<O1{c-|nPu~(v&Od^stwq+c>W86|T^bc&6j>f&t
z8kG*F-A>Mu*P9qfx{t<#Y+a-64)yft<;Dj)Xs2?E)l#F&#e~?mOSFr{-|4v8l?Rt*
zVO2&|drt+_>uFtn&Q`0SA@EK`+xUMv98eX%4srI;!+Jf{Y)opJOex$;S`kQoWz2SZ
z9rCrCd{nz&8@hYNPvObrWS`DhofwHZLnkpfYyPbo6Tx$wEX6oxFiL9~s|MYakXG@f
z7nU)^<j=A6<;@QPnaiz@`9O!tM62=WrUup?^3XfzI}IB+zb}eyH5@4Vz$BBN@`vKj
zA@H^;7u}W;wI+^s1V@PY@&s|=Et3a1tL{J0D(gQTyUxbJ{I6-VE?viVSpqxw?3u0+
z{M(ce|If21o$L2<X`SL*rfsLa?@xj(Xd=P2ZloQSULFN{qR43C>fKFYplK!YbrmZz
zZb!n|38%KIvwA}UGRIJKJJd?`<GByj?O*DmRndB#4Step;_MA?$+$nwZ|$CX)CoL2
zKkWr<Uj@7pF}v|Fs2fmMRVL*{!u5rPr3Nr{OdG=cJ~m~EnJYbMoVY7V$^F2tbk}*>
z+gOLK<$+Y~^cj12)zYzI4BNyoBk_Qp4puipF#5n^7i`D;${*6E(}im<jg_i$fmKl+
zaZ+--9_oivXB$*6Nzk4ErRX@;P~|fo(YNcy7q2hIn?7t!@nKSxvWlQW<*MSHWLhu|
z#LF0J4wjS#m?ryOW_!ti@53`vH8`f!wooV<nf5Js*R(R$H#o~(zB@RpP3CFa_K#nm
z*CanH!#^gAJbOF{kyYO1cI)EdZX<bP6Tz~TeU)4FEj>pqH3;_nxa3Mp^Xm&Y-AAAI
zh%bEnilK>SB`43I^6oqp_vegdpP;;6w2-BJ<LARGTeamLaxyUu!6AoR>m6u6*(Klf
zZ>|N;kL9}c?dogmD_z1(v{CJ|k0?<&m<EY;kLzn^r>CwUf18fEs28DGG_F|<y)vew
zz0Ybb4QFff%N+`o6_Vp2c;NOmC*Z2i<ic|}IaEe)T&=4~zyH85;nO(Z@H>Ze?f$SA
z(&_tiU>;O(6(|@MUC^XTitmgRqy|Cjjt|Q4u*&(UhcH=q))dpKF#gBooh(Ajg{I1E
z@ZmJa;TL$KJ$*)UO!X3JR6c&g_)v$oB^~--#L^T?=yNknvr2yQRnfn0e8dwg5S-RK
zu$w$81VCRW%w!CNNSb4aula3YxiJ<Z<~`s%>}JtmI@Kx}D{NGcPG(O$9>;O5epRV)
zYI&c|<W!|I1a-OWOL$maH4=T1(dW`VBC8L#F#I{s8hDT|q_<w~tx~@e<xG-r(JcB<
zfg8#}j*s9;8OjIx8VU%bCT@<&*aC!Iq65P4b8tWM6$#0pjinrVw)wFn#kS_F$Kw;{
z{s>U#)&GFgBg~J#*(8no4OTT5mOE_Pzsap+QgQp*;S`|^YO}bktK>|GDUYFTXxegn
zA1fF)u?))faPny^u^WuviCmz|eFb@iqLQG3gJ)to7EL%60TBzwDsKn*p^KweE@W$d
zI*KY&ek^Le?m6^u6Lj=Y(V-wN{yfwBY+9p9;-Ga}{u;cef%u}07H55p^E+oVvn0^K
zS6|%Yx`vzRYeWM+0|)ErcA)e|2H$(*tDMza(Y)c_U5ks5*PYYvN-7daU_VI{O-q*3
zJ=mLT@|cg2SEW#Fi5nmt;E($(BT&F1{Gy`q+zhU2hAwZ2C(2~(IB+pl6h87Bmfkne
zl~{P?IvGc$uo~9<BKn;(m{Af4?g_{)2V{Q<f0GSS_lFc(I#lYHr=A5je8Sy;#cRcI
zh$C&XKkca-NQ8k{AY@61*Bc=b!(j28a4xJZa^jsYv0BUH&Y}2|8vPKjVfqMWJ^-tf
zT^X{i+C7O&eiMflIpH@{#l<Mfqna-UNU@X;J%VPDoB5`iT_zq3o0?Zj!Q53NNA$NK
zJoIYkW;iLWwAHiI@iJB|s#fond9agcjlLgI#^lPY6cDEuFDfQ0Bdtnh7W3PLeE9Iz
z6|5G)7>T6j8XQ*@FYcJlDv3(VzhyWW=3E-onQ&5fq)K)OV-kWl6|Auf+D9FFrUzF{
z&7mKSEo*o|`%a^Y-MN<g5)V#0_Iw}S`>(o{9aKe3MN-!Y*87_lKl}izo<+3buE@L~
zFc0RE{v_gF-<P8l)dvg$V9tIK99)cTy9lwq{j7@dCn>@QEU!RWkk7SY-$%>jZ9Q|1
zSc9>R4-zTiy^I=R;6w@*)pfY(9!|NYG6wHCoXEX%FB^#rqdRR{=bUnL5!CdrF+ls&
zdsS%2`x@!Sfzy07pcB(u2Jvhtif|LlTtHtjK;I7*fWBgYzPY4-^%a8$|AcFsn?bnP
zX-SmuNrLlvdSF?WMF!U|jz$@fRtQKFd6QNMNc;9z+VwmPVek{uNa=HxK)7vg5mk)T
zY`86bS!N}DxQ!FxHgo&d%&uXpQk1DzJ!bF)U?|@Bw#&v}Lob2@c%d~TaSJ?ZvXdvq
z3D!F4(&Ih_b3MnoE!eDBt1h2BQ;N5crGL=gvEcGJtooV46f`iCK`_XcFnGcVO9LQP
z&P@7$QTEnRT|{5II0~pVNJ=Bp-O?i6A>A$A-Q6iEDc#-OE!`yz(%p3rzW1*C{?_`g
zd++a$?Wi-eXP<qZ{p|gjIl<v2$rCo!eY0Ja?p5O?+l3F!)*alWjvyq>jeRsPhgBbF
zksZhxx%jFd%3-4>x9#w9h<q;o=t%;D7h(L`FG=_>1kBdDQ-HKwzgbV?x5#a0VCW7o
z)EV@MHvNlZPPLZe&Z9a`5}J~BTqtRZJZzORsb<zxQ!$79%Vs=h`{|PQ7qp(Pw}yvE
zoNrkKkpxx#q8d=GgW$RV!8L{ig3BEQSN=<INk*9E1T0H@>tdHTF_y0(^l7|Y!80Cw
z{G_Hp%i78`vQYR`__MNpt|R_}cZVdkm^_D6?nHePkjLg|d}kCdAdg!>9@V5Th@Ek-
zP<Yn-3Po-@=pN}bE=6_Seg5in!f~ByUGRRnkXGw9bY;pHs@r{ocnv{3W*@db&Bg9D
z=*IW-pc`L<Zp@biJZXCN-i3lXqw%nf&LK3n4V8~3Fb!=~u?{e!31G&2Jiv?#fEg!V
znDJ|I8L>(Wt`_MX$EDF7(DfGwoNfiDb^j4(!Oy}yClOMZZ@O-`Z}vE0Mq)cHA&zn^
z*iu%aPRM$TXo$sf_h>X37cHzYYW3$B52>I^YMH70f0e&-KTo86)9jw9QmVWBEi!z_
zjY2^EYDok?LBgUgDDS1g+|Ai3^iCSw%~K53s*=@%3QMkg<JEvw$2fpvN`Pbh{;{gu
z63bc=<V~y<1%9!K938yz-K6@jor8s(2@m*CzALog=*H!ad?jLR38f)Z9-{Xc`Y{v&
zi6*TL#;p1zYTSDA4{Y(BWm4j{CBLS>MI!E+QAmgYAR!s!*YTJC^TNfm|F*&&<M?cW
z@FbfWEdR<__{9Z?CFGcwC^ULr5gSb;l_BX%K-7($cDK_~##0)uC8sf~UG%704!l2v
zGQf0EBVFvQ1i9`6IJx~L*F69)D!=5q&R7kd;NjW@Q)%v`R)FHW0E_HAy2wTE#1|Bk
z_C<fS`M5Z(>8~}bTo}Dos-0gzF0b>xvEdTc?HPto{^1i<2TR5LOz2^OurGKm3Hb!9
zTivndY)=B#DI&DG+~9;G$M!ok%nb#p!M>wy7mB`*f8EkWXi2e(ez5^7y(G8#0ap5t
z9N{`O2dts$=_U<Fw$^R2XDFftLdHaO-QU%<H+Z2Wv25mp{+?sgk*<r=lXVAPkku>Z
zj&%n{N@12qnH9<wZyjg;u88sTxKJUqL7XvJ=42ENmt#C`U*)npTAplIT4R5qZk5kF
z**-ct30kzN(bRmryeZ{HVXffbm)IQUtY4qrNoO|(hQ;)vhZ)01iYzdprAerEt5l07
zn?q+N43U%^LB-@%92fMlUY+M4hd%;>z`2*Oc&q)=O-aqfm<cjoi>CLy>3Fc3PiJcf
z!+Ft`_B9`in`Xxr9m&4;S^g2cFkr9iPE<!N24HdmQMSqr!1M=zN#rHU{3%L{k8t!e
z%f3bCS^{!t1>~?hwBbNV`a%u^&{gbt3cSTnuo=4<SE1$l-D2bMQ!(JvV_GveyJcg2
zTMB-kyb|SF*?ggC9{%vP83p_bKikB4YTseI{%erXg7yY+m7@;#PSaed-9ZyB4jZCV
zS^?y{vtJ-TZ*L&g)nvK-K0T%N@n*kiBif>9LMBu}P0zDlSu?umvIhwzCr)LKY|&r|
zV5uHpX%&<*_(uRsg#U#lMe|_W2E&}osjS^(8vhJSP$S)e*bfqYiT%cEY^hj;oXdxs
zuG4vCW0q;|@C7w8P%R~=H_v#GstI^2<TjoPk#++%=myG>Ux0cFlvBSbPr^-Ru+($i
zs&RKQyE;IYSK3z~%C|7D4j=HA_ggT_Y5f*C(gC6e5de6U50GHfKN3uEF<v7!6MNj@
z&l_U<Zpnj}9$9Ijt%dC&eLh=Ix^F7udQRlzN>w&{%yPIR@Se7-dd>3&n#0W5#q+!`
zLwCz$<Jo+0vF!3(=fhe4%{xBjTJc8Ed8a>V{DVgU)=vjOI_3G7)o$KNO1KKLk@9#9
zdeZT@eB_=$-deJqoTRq@fQ~=%ZpeYfNt&C33lR0%hsJ0gF3|1mWG{}#!>3)7UG3T+
z<G=3A%I(w(-W)|7-Mio8pk$vyNjnU=09<MV`0oc3;8GjlPb29Ue{!&gp^DRRun&)A
zi%Hs&cqhU}5{86)56Jt852v=cyhjT*h!JWSVd-i@jT{~`BN6ZmQ2Zn<gP*7N7gaet
zJ}G5!m^{S_%pnTy_|)?%Y?y3S$<1|6>tgm=`Zs&gj`U#kZHyQ)MbhH5QH$s1Gh{}6
z4Dx^Y0m$_Kd9U_Am(F5hWBC8`1JHJn^}l`qwiZ<5WZk^^T-6|g+qWOFua9T$$YD-5
zr7X&#CmxYq4|V{C7D4``KMsTFm8@KwpRk#{gNy40;a3!iUOEz~ITF$8Nh2aiUuZ2^
zI3Fm+m~EE>!!M^;mAscQFrRR{{CKF#`DlLCH9mjvcM^qxpcj2NqK8G-Px1IT!s8Y}
ziEX=tfHKTaemZ^F+YvnhOVm*FkK%E}le^#YuBbsoQO%>$kjZ%k?6Z|S4;QA;pn8TJ
zE(PV`z`;rZdt>Q4z8d6dLs@sPqEH!kC#v6W`Az6csWi=T@N%-Vi=W%R2iUSNBk-}W
z_cUY3e+ab003Ww$?kWpqX@=h-+}2o^F(}}qs0=;zOdlLP94ur$KbjW46^8TA9}}u!
zKiV*KwmsdOzwl#Vy<K@2vT;2PVQxD+Qri2oT+_xneqq1Z>14}5NFf&z8{)0W&Hg4c
z2Z8}PDVqDupwnT)@XNb)t~c2NzsK;<A(85a4oBX0bjb$|xJ~-=oxh!b@NTT1J7NvJ
zO?_^sWgz!+PCzroa=G066%_v(O3+B?>KFM&&0BU~@WT1@7xMNt1A=cRpJP+<F^?q@
zRFGnj)daK%<~z3Y<<6e=E(_;6k&HCsbBl`HUrN%sJgTr?+>L}B_J*7eMgJL+;v$8z
zLs?3pyi8NKh*n&{jQ2x#pjk<}mqQiS%N|@>3@(-Z4Qwvz;DCr@%7$h`@j)rmU?giK
z;aE)<&!#vIYUOdY-bIx2^~GY~>umIW@*t$IzwB!%^PLEK2!YmIE>(JK=WKpAx~^ug
zRCk_=LaehZm_C+}8<}Ms_VfxxSGA63yN$NesT}j?4~!rbw46#GOlc|D3Nfz~<j>LE
zBxtAe!q$!B+7$gksH|^dvr2(^w5qV}8o<00;8N>>7xRomKj9nd*iP0Mhn5R`ZL0li
zIf*(*p4!}y4$GlZEFp&JQhBd8-b(Ktc<WFhE|OVE`tJPe=j-(XW?`zHE?kc2<Sj-X
z#~TAM{^PPf-^LwU#r9LdK9yY;r@7>r+vjb)Ii8G#cK4RVl{v~Sr*R&=FGbgV!7M)V
zES-(=jrjRwkoYvvgj~$Toa+Y7SK5XzUuYJH<CBuoyDx*Z2*_O}6*A+>{?M!jcof`6
z8S&`C<6fl0tS`(CK68CC$&{a2MyW?AqE)^sjeR#+?o>11Hc~40Q7nlgJr0(fE)7>2
z_`?b|r5|5X(Cz9~)XPwrYE0TVzOee8-?4av^G*_R$NtaPU|yF)e!6jFVc@I4biBRt
zq(2;w+kae8)g)tE+EiK>&EtzAzb6m7=xsHLNSPP=eGx!6Ee7yf4T*m(pakG`Lb*|c
z6ao*vmf*7~LfH!BPfv)5&Z@Q~w>T&J6v3#8?a9?&?G4lmiNCT!819cS{ZPiO`vH8>
z37=JTm_m0%jVx8)$)KtHHOA<ZPd&4CI31G_9{>6aPEs`90;8tu7$f+S_&N+vOpZ7p
zl;pQ2_s<q1@XbEs!~8teM$Hb%3$Vv4_(druYT)}2M=?1$Rr42g_)AYWby`(MJlj~>
zejac%XjtUw>qf}pO3x7FlKGrmDf0<L5D66{qxQ&Il%<8aSEE7PkA)q~C7do~CB1y*
zaOxW$QQj_HF(N3URB%KcgYT(Ee2Yt`nC?+&X?V~WteQwg7q{?suOO^XyoagvyO2dM
zob$5v&n~lij9<mbNkk*!TeIFSjIQHgFxXe7$||K^(^2s^fH<-Y{KsH*Fci^`%@jIv
zYW*R9GEaY%QF-^xO1)X^=M{-OC#+`BK4|AYXy+_wX9Mj<&3A@>?Ier+3gZ`Ng*wyp
zVK=)3J*_Sa;j_QCEOCbzH}!{nGE`gusm}mX9RN~O1}~73DnE@M<MuL!u#!_58b&YD
zrKneue)Cxs7QzaIgBOU_jG-5Xsop1r;uB~@`>hOHB*8p-4qLHML{^0jzCE%4eMLZ@
z+dqApZ>q3m)p=POd(o1AAAC$RbV<`#oNv7={|U>evH~3#!q-szt`5?gV#Ca5L1Cfi
zhkaQZF2uN;7sR{aetZa^XY3!;HO*z3O8XG1?Wq!^6XP{X#v>X^c!qP6*zXFgzNNj}
zeoVwAa{9rsX;`X)o*c|9Bi+jl7{(RYyaa4Uc_AY>`pw>bY>Eun3N{&O13FF0v=(kA
zn<}OL{fGoyfX7}_gx|;;T*WN3habJ{zlko@+4tP(RD39fk#VZLbGvTh&UWqM88;0<
z)QUHA484!_W-mpbNQ}>H1JuV0sLvBT?G8LG_#gFEEA^ZDBs#>g-ru?WR<cC={U_Uj
zwSZT@ZduLEYx%B!IyUL=Jboe}<!^TeUhDf??{DPU^#_O|6o&QhMb32*#DF8@fFq({
zfg|LABXpu(fM(>|sSy5o9|vtxzCV~^nwO4kc%pJQxV;p8Ef;lPH58kzL=bj<`&oXr
z2Rjs?;sBsx9-v|Xpd#-dDo#a*)hWB<jxdtK4_Z61G83=omky`bN&V*dl1tow7#k6c
zz<n?ij-Aum>RdvgieGoV-2C#A9lnC_{Q|N>AR7P|jfiL5&(C8$Kdj2qerr~vd9{Fe
zIEXu4IREi49-MV39f|C<G(~E7S!pGI>NFM&X)&xFn<Lq`s+B5Dq6(UF4ozX;OGs=N
z;ml@8F2aR=3%9B$;d{F`&<{3jk3s^m?*?K&_h0Ng${jlJF3<c*nSZUi>cCs~D{CGx
zwv6Xdf2E?vABSDKge*v)ey%kg@>0J&D+j_W&`|$vbJ#5Y;6I{)Jc2WoBc3;ZxLs}Z
zd)r=ntPi!A)-v}e6<l5pF4um!ya`<1`*L~OUj|)&dA2MT`w#5GEISNC{gINhXWOSw
zyV<!SOrGY_D`c6f4U4#x^po||;R25rB4+oz;YcDP0>L3|A&@HFBB$Q+obaai^UFbU
zR`;>i-B6MZo>W9oq79ydzvop_H=au5xuZ;uo^O8QiQT+)b}%dQ-su}%c+`q4p}VT<
zE=>3kAX0&+4cMZANt2St@#tqXrz6H$<B%geAi`H~J|wcjRL!xL0Q0Xv@;~r5)c;-<
zHk+34Vm{%4Xm~z({I$z}Iw|COFM;wcwPE?7-t`k+n4hd^RT*XzL;1cTZGd|>t0SZu
z(m8_lIlt0lx{+8Boy54J*|!NmOOJq-?)aH1C$)M_rOjSwX@i@T)Fit}LsVKzT@&A>
zvlrzE@|U}h;kDgE!B2!n_7gB!(Uh-|ZphdnLK;^}d+CBotR&*FCx)L`5eE5#H|jiO
zR?ukLmK_-6AT0pRrqOH>I{6^W*OmW^J<CV7JH$MULq<9x)QIAXwx6MXWEkM~G$z39
z*vrkK4BjS!*R01T-}m@3SV%DFST@=)rG;1(VZNBH3OHzo-W+@oXTzq3-c{8NcdF1}
z2cVi01S31)hWimU0jOyI3sf{Pg7u5B-^wj_Rau8#Nm<S=8cwtwY@4qS*w{bMTl^+E
z=pGK=cl|N&KudHuq54tQ<V=PxZP2q?j_WA{wPBZT!}hJ&8_<9a!PmV(cARcPXk!R>
zAFhuxlZa)_)W(40Hi6>?f#dWvdrgtPzc|k8wJ&9eeueo9(hq=9bHJ#P7o+I@8D*$a
z`03-NHi3b1rantaelbdpFR2VsgkX<EnQRZ|=Ll8Lq|;<e>BeU$Ppga+9`=hBkEc^y
z2;ucv=&RQLCkFEq(-X9A>~WRG=PGYs6iy9)YtiI_rbBneFmgxE@@4_}`Ig0#O*?m9
z1N}3lb1XeZOHX(<-$TFTnFWjX;Nj<F*`Dd(2G>KQ<i~L{Z=(I+d%5&0OioC{#Zo16
z%+jPb4H}2MGR?ZOL)^7R|73IDz%zmAAd%@f$VVmU+d&<x@=yJq9bJLLcOx40EKcX+
z?B?{v9>!94>#g^snaNuTR~(uj-!Bz&R=Qj1X+AWl9AVtERjQcrt{g4QHre0XS{M{F
z<#w5rKKapqs#jZe@^C+`#KYTtFb}x(sDnd&w%M1DAK`2Y-qo#BE9GhQr|_(2citau
z%007edz))rmYO}AUyoy(u0p^VFE$>lJ5oBSgc-T>7t1D!@wQh=p;Lkjf%W@@?{aSL
zs+&aOL|H9U#DOnM;Lv{PP}TgX<tSpx!c@w{W;t%&cI}=%GuP$q<q-e7`LddWHXKxv
zY^ls)2A?>oRNqO6Z)6M#k&l^R3+;zD-eox>ex`rrzE`7oErg4N?=?<kmU_FG9AeO+
zYc(DIjBawE+N|mOuL5KtJdshxsLta0@G^FMAo+YBlNbLl`65*5UqbKnR_A-$uX%~@
z{ORdfPMBn*12{qYbp*+!9wZm<mtq<2hjPOgWlZtnmj6^SYy`)do==j@gc7W1YNlxZ
zUU+@GH$1H(_D8>%f)1`?5hQ9Hkf_-}qHY3trTHaM+ph*kTX0bO{q(@HUKURCp(M#Q
zB#$?Az0{Wn1eqUTs4rXt2(s*jVR|Qv8=Og&_Yy*jCWoGzIjZNxMC8Bm-kdDoCzGg_
z{_#xkVMP?8w9N`{(@{Ud8IOp6{VV)Bz?>;dqt`T2?_Ut?)hGrH%2DaKoXVeN#;te2
zrS=bNd`Rb%XT(B?#~#g_Q!hWcwR3RraBwG2Ur2R%ESv<NXQs^^9XVHS6G8(m#Ejcu
z(%M4l3s|3%2i4CvV1-0jSW9Pl>{q+;5Ph&v&gJHGRM~a~3m=)D2|i>&{HHZ}8JXGs
z+tO(Nr*)#(82<NA5vKpOQpNv$s7Q&jWF(p}e9LHAzMhSB!jOZz2-PQ^YSC<gukAzw
zA&}m(em;ho%Yq-Dc}D+`l<NnDbsFR@Jl@T3IW%ap)NzQ@EbUPi-t4GupLo(zANVRd
zB_d@rYx0auG~Tp_OhH_K#8{QppGWjnk$(;UXLnUGl;tfOEi3Ml>h8gBNinv!Y&2PK
z<_5<gt{D}*gnzF8HviZTQC6Acn-f2ccW|nR)C}WOy1n#TKqCTEB9aBa9U($Rtj)bR
zSPK!<nLOvatX!na$CPr})3;~|g&s<4{7UC2A~gA2{;b^TuvV67vOVE{@|wDhtbCEA
zXR5V3Mpg0SXg8G}RQPk%e)mV2bl@0e>1pd!`dBTMbmT^p(AOl(L<w>6tY#{O<u20u
z&JbVXNx1tV(7p+jOyxGyPCMn{Ow98)*RJk-Lm=MuhQPEjQdSls&D6@7LI6>XuRE=p
z2<sBxnPxrCA4M#;C$u9h8~ma7QPxdQm$|DpB>!gr3#;IUzw}MH2t_W*3{a5@giV2Y
zO>e5aqi+m|vW{<LFdL4=4m_q+ZBiFTO34~MTIx*x>rDmIDNfB8n@{f~2BUu&V9}(1
z@?aj!BGTGxWjHe+geOQWfZYybQ?Hod;*(qBcb!}9%Ctdn9PWIxy;g)oamBJ}0JDRA
z3KL%<=;jk=T2r??KX2hGPn%h3>MU2A?s;2dNAzhrKvr-M$#SLHxwXmhn787_cNT3b
zv7XG>Ae!wbS}nragtX3le@t?xA`x9Rydq{yf-Wp4MuxKO9FNFpdS_B}Mo&&Tr9Srn
zl|*Vxb927hk2=J&r_>JJWJ1eRii7Tz!Rc)HTnbT5HRkU>l-`!aZ=z?h{AiXe(0!KB
zX^<6Ulh!dMDP`BZ5YQbu&9scUZbGZ2au$}*DT#JGLQ|v?E&WZ1De@x~i7|lrdPY@Y
zLVsstn*67FS{(KKO}%ub{)XQER7^P1UVuyGX$3R(K=0dNQ9ZX#R}U`rgsQ5_)TWP>
zi-98<8gq5C$yDS#$#r_R)4%F4$!S(hEsx=qFpgo`dp90w1l|b|bRAyZoZX!5J~gVx
z9-d~MS8^}5HPJo`TpX0~Ue}+lUq4#72K~JX+^1TJCr(_x()YA?bG^0kw69VKJj{D6
znx(_XU5SHZ!@^DuO)fAJ*k^xesfU7D_eMi}c<fqxHxY_+xufHMbKXIw17%ak?S8*#
zul{^<chYC!YSrvk(+2<j^7iWSs_W{+XQOk&HTY++c2<|J5AG*SEg44rNfsp3Zak}N
z;(h6%tL4-Aiq%wiTYoYw0;CJC8@18NSr~nfnlH`8>TI6mRLqt^c`y~)HoEhFUPWTB
zR#4V_YuXeoS1^lFF*H0w{ra9-UfRAqMtk#jjy-Hx9NcAmSVQEi$9RLI{CzXlMi?~p
z_zzS)=vIhJ7|iO@KF(3pQa(j|JtRNPVRj`L7X_y4sG0T_M*G;y5zd(G5Q~MlaiBT+
z`{S!va-(}@plK4IHj4Sb#mpHa+p3%(pP_0YF8zEMi-XKEmLFjp^7}Q!$VOh4WMJr@
zE$)C-f{;WzkKUt}Px{k9;tbUhafwr3BYqyOlXj>WVUTuSr~5iT4r(J2)__FCDlgtF
z1c6balB$U>(126P7g5|&zC>!`6Gq<ai8yM*v=9wWmET;yepQJlb2=OzOc<t4fxqTV
z_S2e+aA0$*V1@ZE7c=FAACqgZF-jNcCuAHSK2;1$6>V}d-ai-VcQ~Jai=$R(6CnwG
z6eqdAE-RymNcJq@GtMg7ct-}ujg@TcORC1&D*xl|dn3}1>RZvBs*np>Rw==B^z6KH
zqujI8@5ybi{NAt@{-^hrtp8!VUMAN6waV)Moy4cXz!e;}fA1})G(|)Gw%FL)uRfNf
z7KfTG*oVCdt;IAc)`z~Ksyv{%nx$hWNXf_&9qzLAT2Ahc7b@FS8s)U@XYX1Ijf87;
zvcFiq9cQBpSAI8w{U@mBHqien;Da%yCb{9^`h)K2(Aj3><@Dj!w#DV*Es`+Vj&OQ}
zfD^k`kpIT-z!EOY#P>F*PkVn8R&Lfma$R@%FzGF?uN=lJ!I`sHQ9d{|IJsU#694gh
zUGZ*_h39GiQ1{w8n%C;e<jin};drT&eOUd*Z*6#egVAi6+D|*2A#~aB^i`=vYI>pc
zGa9-k^8<yOQ{96!UliqSbIWDq(qHq^x-Rk#JH3J>Rxzf1mXKwuk_gWxBW1lVILN1P
zy^$osEy%ILuID@jy#%@u&4<U$hfQk3)#QW;X-(AHnx(gg4*OaSYqJS#vqd{%1zUBe
zye(*qT-1%Tsyxmm;}Rwe%~wU`HK#*t*Gg?=VagT`r;c^aw`1J+^1K$;*O>0_pO=oQ
zi}>A&^+#X|Z^HJbPbuPky2%_Nd3l&E$Tm?9z@)a*flO_9(`<OTcxY|T{A9#?YC~1}
zvS}~wPulzL81$Smbccz?NqO6*EoG4jFr%=QS(EvicxAd2BF#2zCmVtr4k1uJpk=pN
z-#(id(XOq{bLp=!*sh&Q43PzXKQC`67K=DrQ>lamx22|l+ibvXG5i}2nRp!*^)qfZ
z)%vQORyK+gbk~j=Cas5z+1s62iEDeoYx9<6tjp4l_rvB2A=wCe?3Ej%Kt(1{5du_v
z6WDP0NB~q|=$p~nA^-BB3s$O9Dum*rt9qTz^*#@k`clz1XWQ{lCsWp4>h*5&d5qFq
z$HiU-<E8SA$NELh6nx(OtLbNz=ZY3iZj8}JZl~v>gY@OVbknP5E;l&4lgPd43rumo
zlhNh&o%G&A0h*U)LPGAJc-u42GH%=tYW?LWHXUl7f_#*g9O&A*vfzc{M`#=5Aw#0l
zOW0rDyp3Zxgygq7x@sD}Gg%^x713>2Dfya%>KP(E5MnehL|+>GgC%74O_4H8RM8Ub
zh4T1k?oY2eOv<MYbb46%WHIm+Yey0F>EOS09zS9@-d{eo=KiQF)mi$6Cr!FHJqL`d
z2gbbx#`#gb80UP|0<V=puJ?Rr;;IDgaHB;|SsLTSGLs{QT*yRql0j<CVXbV*qHL1(
zceNPxF?hc!2D9w`u{zldd#Qp}a`<5j;)LUA_wk&k$XS4+?Yg1VBC+DGpz#z}D1~#-
zl=2qZegEfKp}@0O&^sxdXS?X(F8U7W@FoU{&y^c<02Vi(bJlIyPKc#99AGJdNnp}i
z>~x6exXd_Pq0*!hHFO4@BV;-cb{#6iI|neiNqCDDvC-M{H_EVg%qzw_F76o8xY!{A
zOC=#%w%JE^FVD+7h}zk@>-(d=&`S^Zy7}1y_bxVKn)x|r`LgXcWw7G<(Hov;fM&xN
zG`o*H%h*DTT6WVP9p?E|e*3+g_3CD4;_dn<>wc*6U$>TBRk-=f`!drZ_;LE40f&n$
z7nZ+0a>!%AX1+XY&W>PhHZZlwiiqS~vMr0(-T9XT1`$j~_Rkb1#0NEAQNjBptFc5}
zLF!3XJlrQ25e0f4i;gD!@SW7ENJ@ztAGt@5r@9z6mW=fX3Vw$Rtmz_t1!`y*g`+nf
z`9@1pd|%3ON-v%B1)MZPq6+6cN;x%GQd85?aj|1;NHv&-(LEiEtZ;;`&IX7#S^3Q4
z|7e-5962uTN0K!y57Q3jwJYMsOX&Gf$p_{HyO{e7=0L!>Y`$^v30lI>?*pn?(g`PT
zP6i}}FBi`VJPTjVQ01~r(|TrVBA8X6LCq~8xM>?NNktLOf!Q;7^f<>@$7Q8ao*o$Y
zo5R+1$wy+eV8I9FBX0CL;FdYymU7^hj$GiDAmA1_dL*zlL0BfoK8tKwZkaOdS1sUr
zci?(m<QF1onl^J`fH3Q1`;Lyvn6B$qGw+z%dw7s}<#t;R=DxOR1*~w@4bA<naygQp
zto?|S(S#6A|IRj&RMUN<|EeB5@*F&J8$9wS=n3l(@W}o4rL6BEffKXuNQ(y+=U%sS
zvHW!;ZkP*jaA|ozB+c6wK7mZf6T$HNTP~jS`wX5!r7TTqXg+R7NCJBRv9uS65%&0p
zVeZEq8VO&T+=b*2UTj&cP6`9=c=JL(4~de!q~#t-Qaq2Jb{3VrjTSHb1r@y$WfD{H
zXD@#IJXyn2VVW0cNqW$wcz4@?bF(>FpK2ud;%iqICbTXIR!J@0Y|Wbk$}gH7<rdi6
zVZ^#lnVLgZ4QO6#!WO@nBsQ<w@d93AGoV3NY+o3DC~Ph1PU-%HH$fgAFbq5hVyuzn
z_V0<khuwHD5%cA-C{;%@=8*3{8oacb<bW_K##`WhyzTL<@^-~`OMV6E<H6bV{I28j
zIf2Exf{l_jJ5EJ$ir<(b!%EblpYY`#7MeJpZd8*u0VHrs<G;uY^yYB$U$_+Kq`+&~
z=Bi;EpksM#QFCrtGQUnPK0n?#x-PpHCv4^Ad2|crBQd`@$aUAd-(v4NqFSx;^!b5s
zUV<0XwzjpqA9L>cWM{LQ+M=!bIo9#2@eq0B&+YWQV~sc48s|6tz82XQj*}j_sP-L;
z)wgNAhiGz8O<=k#cjQ7hG@pXtXx78?p7RvtJJ-srzkost0fpoPe&+|71@`p|tKCM>
z;3WiBK6zH}%Ff^?WPeXF3;q-AV($lf6J>C@JrX&55ytgJsaB9obC{!YR$b+;EZorN
z`OJFMOB3zT9K!Z(i&aSR4F@0ie>sPU1lurB(AruRn`KraiiVX_wyd{S8P>-f0J;_c
zdg=wx!$>#I?T$t>3X;$zh0)-$6Asz3oEml5FZ;x7W5y&lu7vPi077P*i6-#2U9Zc!
z7!CC}6StRr`>yK}7O(f+Q_3$Nqo(&opA*??Vk!m$_fpM>W`bQ<4gt;=0M3m8&QV@)
z4re7Kp)#6Hv^X09at^vU-`}C-_Pj`tbKqYbFz=(t-tkb5zkf}q*~UYEj{GMsl3Qo_
zq4RW`|BtUL3+*TNgGy7!)?P-@S`0893Hup<^$CFW27oo{1+38Xw<g1A)9A5TPAsk<
z8(c6_oeU6Lb9BhPWCI7T+-kkya`l24>7y=pykkx))O&Obi+fi8z#~>D{vDr<q5Xp=
zsMa=KZ~kUpZ@C{7l?sw%d(*q*pqd~C)dT_XS>X%+4r7uImiJyNb>clc{i2Sxj_$W}
zw{AMQueSESp6<75iyR$o!0PLKO90i%ZFe2zfV*HRqcG%$R8+vRBz(Hp981Z!{zJt(
z9RuX=)qnZBaUmA|^0r)cPw9}MomRSxciGbMP=|0N1%5VygS%KF4?(N;(PVM15d#Sx
z!4e7nvBStEQ%kwa&)v;|vF+{0&};ldwwqj1iX|q=+KImcEgVz;i{+aZt9kw);y(Wa
z*kpv5NN<T#bN~H@b(!uD=?J9Brcdgg97tPJ%dIUeori_y_nU8z5(!DKNeXb0hI$$K
zrzaRgX16nyVUR;X=9VA(%<UDX&7urTj~uUAN2QBu4f35Y$ah2_-w|+wsH6WEb$wkE
zuA~7y!k00n;tDeZTc_Jfv={cACz2$H1g_WoqLYy>?lB=ae~)Itl(ZSr)O@9#U&^pQ
ze3uX&aL4LX=l(H|R-(xFpI8`V{%E9q$w=lp6N(>`7x^d8v2sKn8VBOhz+K-nz+L{}
zE^2Vs%|8efh*W=%H)9_G0CWccyaO?|n*{*q`;zi3qy(`CHp{VgWXx0SCn<zzXEB!r
z?z&va8q;THH~3i`2Vw>pg==kg02LkrbS(mOnE`Y;3A|)9e@gy9%tBt?o#S)cC+m*q
zbR|ui+1tIrNK0~dXF^(8`lW)JmMvxTH6j*Uu)+*)p;BL#GVJ?EV4oAPFG}czPkFK8
z(kNz+?}szu%*~r~$);DJV179Jd@}U$(@!%)m;@2;10o&<M7%VJ_+Xcph>w~`4b1CT
zL<LR$57mXZW9iS@NU>{2>j9rqgg0%5n18AQ%$CQ3U1+AZ<RJ118oUu%q8A~9ut1{N
zHgy;mVf`J2DUW-sTZ6Lp%uc%$9fxNfa$=psF!hmx?hm@yE>Q|XdYs7)uWZ?fXa(9Q
zGT;XG3~SDc@Rw`_$9|gfQz!V_;IDoz^7l;SGxSomgnIyT<N$KN0OZ~R$U(9F3u)QX
z^0c2ieDafAk54ojbfmFnFEh~sy<}UG4uF5>fnxoaRP*9rXe@VFnnXgiRl7`0Nv#Sr
zzgCdR??64#P56?@aol0?(32l3!;k4Kj~4LJ7q9c@=E5f&carAFm2Fu9US^@e<w;Ey
z70|}}$fP!TOS1s?3H)PWCB1hfKfg8JFpkH&{Z_MvT?3E7w+97-D<~MQz+>h>!Ql1r
z<uQTWnkt(~E_0@3UKn5wS}ijOChRL<>jAK}9M}r+51hP+n>_I6cZLv)X@?S)DGc+T
zaJ03EZWv5@8ZJ9ep#vBb3KhM&Vruj8VqJK-iHeW0xtEbEw{0;$)qnlRAE5tzfy)2m
zTSmtJ{g#n|{r`DjO?bjkp#~d#z|IcE1Jpt-_3i6G_ysFN|0u&TRy*VgNeaJ|A1Pn%
zt{!ui{i^!~V`^HedBj`$&)U>1Yo;b#Oa;3=8j20t@Q`ZX6x%BE!&PNvome@<YvO6<
z6m>OSa376Tb*6T}w+(4;XPVJpXHIIzGp?c`(D2u>2>qPq9cJwD$?Q{qGESK0<hoX!
zNh!ZjWNpssFhDw=WY|^>KMGQw&K*0=u-I8E3wCTbRr>=8se6U*bW#n$b707gi+_a-
zFIISo{29FhzgE4HCScXq;n*9ivH7j$TUVrRtS;A8hU6ZZ?nDkaX*cz04s!e<u3ItM
z^y*>l#p1?~b63VxwHbHK==U=2>)Qpl-S!zd7@4rDJf|K0mW#d`da`vLp?7jfPO{cG
z&3_$mn&H!tdx!OYnk$CI53}N^#-Knh_75ePI8+DN22~U-BI~)TZz5R|3{}UX)X|9J
z*AW?8G}Kb6@`x7`G3FAz@gb(8##E$Ro<OJJ6F1+U6EsU5b_@5RsgUsfM%}nbP1m%D
z%%3;UsteD$C<Jc?ud6+g7zebv&{}jWPn!o-xDB!C79X;9&n<(0aCb4l7sN}*ML*iB
zdT5*GuynU$RtGG)pp=fls8ZG~z5io@BWTg!FNlWoSrsm?pb3GYdz(o4oosU8+_=K;
zjVG{@LUVKP3{}L%kj?Gxj@IB`zqmBLsIA_6>El0-F4qV1&y|$=S&|i<ey5vrnxYO9
zmTLNBlsz+ijW!;A7}zQ2q1Acb>e3Ze69O6%6^%v_*;*f}O(rZcRg*4;BuvR3YsLC+
z;R{{Id!r>POy5g=g-sQ+CtY68+xo#*Ba0(i=N^+fk2Vx@AfGpvtG~n3Gb5$=fwA~N
zNRd<SU`c<Pq$fg@(biu;UX;DAhukuoc(;xXn`XDp9DATM&_|r<=Z|_cBT_g5TG}M=
zAErTyl_&Pg)j#}^T>Km=Pu5IwxMMt2^1%hwB-8q9`!#an7(AMxs+A{vPco8~2={Lo
z;`E_06_1*02I|Xgc1prS;HY+$FldXjS9q*+NFH?~cluL91GqIWd3O%iP9MKDw9zHJ
zMQs>M|Fiq*Zu$vwNpsG^kB)$_^oC#-3DT#GPw>wl!U1PbYcEd-ttNSO9<ARuTCy$S
zHwl;o_$yCN?v!OiTRrE2HqQ2s5Av;uhtpb~nx|{S$FogC*I3(^kCVb`DHe~%v~*<z
z1ibD}u8&Ul#H+OgrEQO=+f99=TQ$(KXs-iWHGF)VJO!KC2v)nZ>mzrx_E~O{FFV)#
zi#6)0tAzs()v(SwR~x9Tl}U)5X!mq}hOK6O0rC}y01zP{B0$98SF0qzQ3{9*5IG?7
zKoo%}hpon_!p~KygQI5HT$VOC>Vl&_IA;jN2#5&~GoZr)9Ib%Z0I>t&0K^H13lKMO
z-UA%HfcOCM0}=ov2uKK!Fdz}&ny9c<_I!h)k4QxE#orCq%~bRYrrJas+g{naG>HBO
zYGh_)`EMU!{^yuNW)`qG{r~G~QW~PRIBeK0_exeaSTRf(KJM0%xnj`<!W4pM<YL=V
zn_oh!heHI|KOJ`8UY=)Q+GW9r8B;6RM&~P@zjAU~dCiR79^;70<$SrhzfY#sil+aS
zo^dW};BqloUt~9!6ke3Q0W92*l=j5Xc5l_RG~&_lbTzPh8MBgxe8ZR)b){*BOl)Uk
zd%c;bb)x_3`Od*7I?CkC)qZ2yPdx0CZ)9D}ar(m!j710;YW=9u{kNfk?d9$^tII+y
z3?W#Pd^F(@F}1`NsWl5GBB&2Uq{&;G=3I>@<M)y}Cpong^)$nlVsG+gFG~^$qQ=Wp
zMgo4}p6aT@6?ze+`X4wItKQk@Mn#_p%Cx?^qLgFl|H-n@<|I4tbb56gpc9%4A&9J(
zyHDW%83Q#SQE}sg+ZU74#IEo%xROQu;(YBpBEP$PCxQ&w^(+WT0%RFAJ3J2buuqve
zb~jD$-$J(aqip<e@Q`KjewSDCxm5^vIKr=eGJ#1b_nIjnFL~LpH4TrUAQw&V%FUs>
zChgDiF{iZHr;mg3QSb}T$o3)(M+<oQxH*LAW5r4>$vuUo{cbJg1e<m>2-96M?c>gS
zI%u6qh<g=Uq+PFdMk-?m2p`CE9vD}OXF{j%G!$$W3$$9Z8wqwJ$T9n|40s7ilPopc
zw9GRm-=)vA&D&jjsAxH{Pnx-`T$DdX9<JSKr5nmiCnO*4d1z?Wdve~K8M2p|$Un+n
z20dOMCr^)PXw-Vww(blc1X0SMKjg3RnaRQB>p(iQX|d$cDDvuc#wQamY8xG(_*tIV
zDfq_k<1F6WH5PFYq~IS_wYTH@k<=d*)!E;V-QQ`ZGl(MRWVg(oeOp_&n?qu&jX&N=
zz8$t`D4=TzjQ{f$vLw|j*sW@bnm>;4wYrx)&Dj83pHd&$Y@QOYp0{H<FLfKN(K{}R
z3$}ETG2922F>@<YcbMBA+v4c4Y@f_#o!8i}dt#80!a5Ii`@8xMZDc)FOX@iP9^E0y
zeEroUEJ0x<P<cdY@dg1Yj<TKCX7*cuX6Wvz?km_vtx-!$-dQD{CB@2ef|Wm<j-Skq
z$rm|mZEG)cdKrQq(_#qOiSo{eO`dY)vRn2am;PK0tW)n(5f<###T8o6{qaJWx>iW&
zw__rn)VMU>X*INWnX2y3gRsysE338I4TpZ<qBoAR&=P*nfe%6PE{^%``RDtGUj$x}
z*y^rb`wv}#jSM5+@J&+m0_}Y)*SzM9Vor5m7}uwo5q$`0Q+!S)Wjs+&qI*>qkBgS?
zk&$m`hcyn{9?m|Y8Dq`SD8sS^aix6XHlbuS>1h9A6AsT@L3yzrcz*t+0GF6jK244t
zUKsv7w5Ip$7k0!uD04oEoVR-VvG_b@@sY4!zhYwTG+z~zABB74lWbBT=X^^f{7M8}
z0c)eEPl$Xcag$>r2Yr<<_cqoj{N~r#;8h2;nrBzNEpg2_&l1b34Ml?FZ1>MSizm}V
zy|0F^d~`;jEFF@kmtRRs#Z_(9CEqs@V$D@K^aT81&+LE?AI>8pXNaEZ`N9erE&kiv
ze4fPC`;PxlUU1Qen|p0L=opp_A1Y#O6pG5~Kt4=yi8qJNpPR2ZdXNN8eHk){q<=MD
zXcsF<Y-&r)d6P$<`c||-oXlxcXCNMGn=zxHRPlY~!&N9AGm}B$wr4fsn!1_)_3A^z
zcVAfR!_6PwfB_!of5m_Ewc4oE)EdT0)dUOTJ&ib*{CQj@j~fCz7o=#U;<q`egd=ab
zDdrqgdXMK^EN77IyE4oBwYoD_?l-~DO2vHWkLX*Nt;-bQdm<r(f4{V;Mel<^o{VJ_
zyC>9?aq)KXBJZ`{O-F^3<UalM0eXN!+`986>?d+Ri1%o5St3|Q##ri3f>&fwAI)bY
zEDS2<rZUJDkBsu)EnW`vTQnKeJ6y%T*xFS~bpW5}-0jd1g%qJ)E}&cm8)hA2*n~_?
zWPJ_ZBdP0#2YtZeM1%9fbE!lL4+x?Em>zZ@Bp+Z(_5iOB7L$gj{Y6h<L~&^UcVGbr
z0X>5ooL->ns+kmjQ@K%b#Z59R!eq4?MmUHqOp#QO+?tgKZ_m{JeWitmmy^AzG;f)f
zmQLy$F4ZS)2f6&Hdd>@d>&So*<T_~~2kV5j1sF!i`BP<v2z1E(=0v^2v6vb*Y|5{$
zJRjz3lmbli5?*Y;8wt}v8!*~X9;Gdn*1E(maBzfE;Lb34*gxN?`R-n)@z~&|$UCmQ
zQc}AJ#WsZCEk(O!==!%njsS^8a}ScyM!W@iwuH+z3NO-LW^bvzUh?#FL78R3vfka|
z_u-zqUH8i=gT=XyVfRaTy9$X4XamB1imfYGuxukeHf1M<8)M}n*!4BlgXu-X90s#*
z@BU}Co9e`4)w*Znx<=p8dl;~o7Q=PE=gXLF3rG?fqaTKc=HVJ8#T6upk=0CDJzqrw
z)696XGCuz9BO`9Qja^$1<#}nj_Zm6Bs#UpwPraEU&ny)~z=kYV9rm@pN3p-TWAfI+
z(Se|;zI~AKQ$Vw6m1@1`6Z^AX4YzBwF5Oo`Fre0TcP!@603fU7Mqj@!fl-|^{5v5h
z{=QW`${QHm4;BuKBghs?i>XY$8jWWiY2nnD5fVt;D!0Ip*yEUJjavW|li@E8Tr)ab
zwq9tG*-qBCU9&rRHBMSusc9+ho(|3^E*OHJv>iod37fvws~I}Fd3ZS6a534qn0w+b
zGG6i3lrFH+m!>nU4K4a>tX)0KpF5<g6tgpg&{JTDa9rryVk4mINP!L=E`XmMfnxmU
z!<58)!luig4mr`+_+O4WU&|h7LYBWrQhxu*ZgBa0-=yUof}Gj%k}_#EY^)KCVQJxA
zLEv|P0(aJ8B1OdHg;LDgH+R%27O>kB!?Ovjy>E!AnG>E3`p(u5nkGXbdBjYR+4p1A
zTq6gIrvCU#Kc}rrkP9iJg$@IdGkrinUy}fR${7RP^)~7yO59PIUZaS<3LzRuo^z{n
zzb^KeEY=8I!*Mz%jd_glaN2v6g{%ue;OV1keO6WX8P*PeM~mSFu$&B(=`exDndgG2
z-g${?4zBZ8b)w77N&?+kOa#x74A@D(?9;H8zh{MycijArMx!lFOAq)+87HEXaOpYS
zyo_lhBoEtN{(JmAtaVDKa+m4A@<Zg8j4K*w(n>TF`gJ?P+{*_GmAcz>`?D_rw@~7P
zWQoy1Cvvv}NZiwG5rNppIB)egufqN7Egn@6K~TQF*O|J7V!HbI_HcmRY}4$fdE?6C
zapcd+ZyR^@(SExcap$BFX5sGGiAG52_&eq7cR8*S`j{>#X{oG}!4Ux*pP{}ZzdfLR
zZyh;~Q-md82s4(bFeWsR-A{d3NxeSH7z<BMkCs`9R`A8h>C5j!8*cieF9HTp=;hSI
zxe`R8yII4zDV>SL;#G%fgg@}iuKMivJKm`H75|YQm3<}Bnf(N3&Wd{{{GDPV-(-BH
ze3&8)`*+C9F+zgXH0Yo*e9%F~fGJ(~K?e~ezjRR0Rt~(!q+D5;-Ri&~PAD1?S7h)(
zBUNWrj2OrGxXeB6d!LN))fI20d)n-4!<e1tc7H~31Yu=Tb^|O4IlYJXEgHFg>+~t5
za%g|yEycR95<;IjZwL|BEKI|C_S`NFnO5AM#w{!rvKBvtcIO#}EoxAQ2znuM&m#)+
z3u0vgwi2iAs;Nr<$44pEdao^rhudS<(MlMDl?&qR!3yDWeIEtiP3wJZk_tUJ$c~e;
zW1d>GCh--|oab9_Q~ExeAqel_SoEaNU?GGfeMoTr-EX|%vR8VsfS<=5+apB}N>1ju
zb}VooiNV?v2^&s_8mccS2nD4WNr&y>{e~$Dmfvf%tflW2n9%8g0qG71^x|vnUq!5_
zVQ^)TqeeQspcz?_{xY4|IS7QO8phnLs&n`ko}Ws-8_t=%H^JZYMQc-Q@YiMk8klzA
z4BAw$35dM44uqthAz%zD!&njW^~^bao4~Z<mT?)Bh4X>_(iYGGE&AYe(OKgAdtX7E
z+hBo2wx=^odd)05ms=guzjnrT;%JTYpD}r;x0`Mq8pKbtvAX3feZPHuiM1r~p!|72
zcu7N6hiHi}J=s1b9Mi9>X)e6jd?VjBAe&d9HO+1eh8r%^T$-?#VXVGk%ig+l<JO+Y
zruj}Tduiw1=CF1sL!l(HM(q!a9E;+Sp~c+f7-+cXt=(gbX7<_5(4)ih5Z~6w{an!M
zSc?=3O@|R}1S%}J`U(!o^3jxFh+)_U&17d1ZTWbmd!E8%HvC*}ye%+okFJkD{5k>T
zhx?(g>UBJ{Zvh{_{hoJF0h_&i7|+w1eQ;o4lp9Z6;#U`O5G1;MyYjfJ#fLm=;c%@L
zDfzs9<sa-orCAmtK==o2boVIP(n&S59SikCe2bhLPy@)8I<_y=PzszZ^}>5Kyz{v*
za$o~39RX(JI#ceZdJE=~yDONpW7eH#VIvMidrPz$CTp^50!z#c7JP@ddTU}4Kdq~h
zolP|PxZECwJ7Cx-qUG$|NWQ{Je%hpjB%Qr(8f*N<*`@zO6%m>KLDaYbV>)CSm*y?`
zv~QuRh3(vzuYn!5ld<vNn!bIMH2UnXLn%)z+(m;H=(WnSgeZBvh=37V<b}UtrJ7p)
zW6Ua`NTbJ=8TZ#GJm#fVcBdu*>2K>P)o{N;w&L+zY*IjzP<8-y_BAl7H_gTVqt1a^
z>k(SZyv~;ONyM(}D!zV(0{j}R)%#_`8V|?D`K86#Gpl6d+=x0TK{?E!N01Scv4Ce#
zUp$iuNVD%BX{Ox61TVyRBl3Lju?js+uT~sYzD_Hz94vl+fhbs@8#?Clcff@J)E|xj
zwk~v_{xEu}KM?m*XTOUn$UQyXo!Ngm{w<Z%p!EC40~^$Pg@a#l_%4-c0D*sB5SRuK
z$ovn1UFQbyZ+wUCKDfFaQ@GMwZsqMeS1GHYs-&hXh|B=g7K3~G7r;Hm;GXP%_XI(|
zn@amBci<KUbY2PZ3mT1r^H+mbhZp}!LVh^p17>v0KX<-L;;yfYWQHrcv88!g$o7XL
zn1Sz6<_|;|zNKnWzbmsu6VO)%FBP~e^J1$GGxA_PxTc&skox;+ZU6{B4)Zy1DV|)y
zcYOXL+AUdyX;W2{hTdv?jW?$lh`e|nRD>6~<M@4l#iLoHW98D5al{E3;W|j}s0D=W
z6$o3CYY?_qAZ-2rMfJxTLOG?ki<lFd|1qrhSB=8SRk^E+15ID2<aNv);?f<AoH{I0
z{NeaB_(7{Wd2kl)L-w9qwd|z4C)Gh$fgE_<G8V(a3u?4;(19#kphlbgS0~=6(IV42
z3<`tl!WC2()jOcNa0S(c%fL%@(J|ZqZdRl=&#k#0-n>K4@oCkUe{vtaaRhGT$PZ~t
z>gFAFw6`6$<GqCk`od~)p+Z2gK_}M79z^Kf46@`AP}feLg1VLiD6|><r!a8KPxNLv
zO=xeVVpp-0Z9W(ec7bhmCpqSdG&%1kxr%K-^6qccdw~$V?QwqT_(z~({$5`{!5tKG
z^8X6ClUqXX-l8k|$e0b6pB}5X+Kx%X?Xa}ljyjM=NQdvJF>6OZHK=jkCa{KzvwSi`
z&goef21T3*XdV0j=zXHNwS{2bmm)4Ou+i`1a@tvkFHQqx{dfUS@61T@@)Uk`9c4_@
z;gJLbP8Kqa!&i~FX(r5B(Y=ddqXHH&6kWDOXYc~T{CJ35Sd`T7UymX=M7H$4U;6#P
z=WDeX(y1{*zTj{-QFf=sS9FCcP84Tql=bR3hxy*BqnA~5-_Z;LiU&5}vnd9mI1}})
zr=-Az%zt{_^PjeDXJ-C?->RubLk%n*{=xmaOj~PjOW><@n?5O0>7i4s^}&?vq*M$S
zJ;p{k@jz{NKK}Ea#~hpk-;rwPTS6uVl4!2>H13s-!2OBoCUlJ!r;F=zVNb9_4tiF%
zY@gyzTUoY(fOSiy1agVe4rWn$@=iLd5&>;p-M-dno9o5H!+4)Ce5;g_nE`pl357Tw
zN?6$+P42r}rN&0D>sB?{%xaa#vd7J7F%z+BF9JFxUY@%?;)PkSl2zN0JI@l$<z}@W
zPp5NTxkT1(>?%f~_mC`poewMQZVM$?#8L&*!w#36_!>Bzg6WzeUUUcvUjrxB#VH`-
z<W|z|AX#0K&Ua;eP<HKTYU82=)KvT|xG;p=lTh`PX)eS6&hLo_bmr3;W;NgKmE(b(
zgDkid_gj-najmiS;kHfjWF;VCNx#mIxII_$D5S7Sr#HJb@SqPeTVAs@6=~&X&L$Vp
zG*`~VAGba9*S}?<a!OD*pFrVO8y=9sV(BxBRkFpa^?eOD7T%|-SoK3d&LcgEZbhq&
zD#J);ZQ10BEAu-Q#|PM~zlq^zA*EdoGCHpsPnAnD8&b)!eL6)6m25ud?4r@cDeZe-
zWKbJ?hWJB#$6Mxjzo_10i!krXf<!Q0g`N)YFYESO$hl`$hcmw#V%dpWg6H=qh^hBl
z5Ti4il<$RHP|&yHl>B!I<J}6!W%`6nX&6Rcy}!x-8}1;293f1Uc(Q?6`&f^nh2|!V
zqd}br!)GRbmAzSKE2z5unNBVniWZBre(sQk8T~8s$_*yF8uZ^IIfD@S4y>;^JcVBe
zn!~=5?0x77N;^aY%`OU>CqG8FpF>2^1m2vf)R2*kJ#@u}Q|$OWE>}&!5^n&F@Xcz{
zNqtW}#iqW2M+y#Y0D4NZPmrgZGWNBPQ#2*{;#XY74mH7qcU0Vu^`uFIL@4-21FuLo
zDTIR7_<ssz;X%?BZ88x%l@5O*CQ>KO&8#1o(s4QQe=VPt5n*sl9<8Yc(SLtcao9A>
z8J1D{SiHrtsFM;Ns$qrIB^dp&LkE7tI=ZCG$dEG-<s4Bjqp(>7o!Pgk*RXIkX~sY*
z2l{Nb`1BziJLwRs7sbRhhZOa~Y*YlS^Ctw{Je%L;5On$4ZleMtFs$0YxvO02cNGno
zMoh`c?8Dp4?rP67DgRZ=yHolx5C7h2F2(A(GK&m{;2oL7$yHz<nMO6wlg_YtRfBh}
zV_VDZ-Dige8v%c8k6T@sy4<!ItoCY%nNOcEQ6UhtYFJwk``m14R?~haT1oq7S2w6p
zK}&eqr<8zQ=nklEf>Z5`CpYwTp?vp~w2AUhkrAtt_#z<016nm<Y`9`G@4Rs76=xyf
z#Ei-vR<|DSVw1OZ7oW`|J{*h08Zc}u*9EpS>KWZj!5G4mP2n+h!4u@)no6NUmPt&R
z=)87vfQ$+8GuHY@Imkw*kcde0m1o*0-=acls=?=)9diGT3BshYJN00z=HHJveEN}l
z%G>onNPmRX``FHB`6u^jM1L&tTUe~`FZCP@cw?Olqff}s#29Q0^{Ue)S*j&~!tay(
z`Gx9lW?zUNmQZ6Orq?}515x<-+Ro|<7hT@a7NM(Q<fTUnJ`kytJ%ea4#^DlZK1RY~
z5)sH;ex|4z)yPnv<bMyo|9T=Lhd;KO{J?mKtxm->-6%!u;xH5s?{B=I%Q{$R4xmUQ
z_YzmOT?FtyB+B`DH}mK1rnX{X7T9#7icA_mV{Pb-)x4vvB0=r`fH`a6Aor#*Og^3*
zWkFy^KwXy;zO%&41#{9QgZ-OELdG*~A^SH0tY|l)Z%{_uZm6-U!4YuiHHHyJ=6bYG
zoU`1d69J!gtRpH!Ulqg^8JH2f)K-x2>x9t&lBt;1;Y^f$u_Z_l9ouQGap6;MP+Cc=
zK6%(3u(hZRagmP!`fslu-ZgfHf8}dc1+VJD>xrGRwEw}_TL;w@J?nx52@>4hT>}Xc
z+&yS;cX#*T?(XjH4#8c5yGw9)n+^BPn>+J<HFf`>>eS-wwR*LDtM@*=zjmOysGa{&
z0L?;Y%sh?zx7HvP)<4<;aL2_t9S+fQAnMC@z3s=BA=p=WTZUz6m<5YW$vJY2N|^z8
znFHX(v>bpJ<@cq(nXOaFP7M?(S=7PY_c^Z9fv&x64lFgEha!zVSdOL8yoJ_`?M<IH
zJRRKKu_~=fKk+oI&Y!ZdwvJgPo~Jg{HLt9me$(asF?gv#H;|FF-_OgAO8gmqff64q
zegWTJ%?AkkYQ4MQ0NY95x{@zG?en+E(kx~82`DQrNSPX5oLXvs%`!_pOEP5_I}z4(
zXx%EbRQ|#TDj+`xWzgLN%Gl6j8UE4%C?oG(8AOi`!ypWEb8_qdQCD;YxWknE;UTsW
ziDtV-H)vLCUjL?o@0^xXO>}jPYu6v11$+k9P8$g<?Ih<ID3R(5S}Fc5GD!z?4{`!F
z89l1P%TsxWDqS8K6F%k6XXT0V!Y%a2U~|kbr~S<E6k;!N%F1bNXO}THM9e3J&>Bx#
zQk<d!am9vDfTwYi3g~PR8Roik&ggI$H@#b;Ph(D;vD@DK$*S$ds{O=@K1Va}WNhti
zXN+59nICDa)a3=($qBI024JIRt-wYjKdg?RaQEaIXYD6HZ}Q~Wx%lS7vAxItC(tML
z&SPZxWz5lTmm`tTna677_ln1Sjn}ry*~QwkU2B4;T|~v+B_IqbAPn)lFr<JmMU5YB
zA-WM@J&Qn@;lY6dA=ywmNq+QfXiH-3pwE`Rk^N~_1ob2)mq;02sak?qSvj-grEUZ}
z9b8Vb-k=uc`Z!2Dpj+_QsPIEj2>^RO@34pH%RKc%H?BCZ1KPFXaVi_}kV8AS>5;mc
zi?RUx-48Ws(F6zACT@JCW0FUS9$W}T&(9iITeT=-tvrT17thwTDy4xpKl%*MARYWn
zS>`cfX9%o@ryf0U+7y+;{w?Z6!}>#q0zRuF8+byv`vJAAml6X(RUX}5^Cr$rU#EW(
zYj`~mb#BY2c`8zU^G*~-qAA6C1(bRWD76MqD$To6!{3!kN3+aEEM#@>^g=lrR`bFE
z5nujN%reXACODz!$b>4q$cVEWuMv2X)&IWG*Wfx(5ZN&$k!$lCAZlkYYGpM&00ar4
z;$_7*v(Xl$_A+ngHP2WNj>XG;ebbq4v!6MOs%bHSgu7ctuuI*`Cxx#`&(<DA|56N<
zTju{&D?oWgkBE-96+pUUOmIpb2t3Az1y%{q+@!iTle^XLMiU*_w-fcri|2Nhjr{lF
zm$NBFNL<ULG1*_qk!oevNP)xzwDrTS)*9k`C|5H}EsP^nn=Q)oVpIV!>&XEzu>mp5
z0Wo1{KExDO>Yg<t$7jl=$%jAk>B@^|88bwvjJrF-S#5i{+ADauWo{#hHy-e2qVOV{
z_EU7j>;~uJfCZM+L9CVKh6R?)Q+p2yTf_Z3Pk00Y=RZstt@Tr5dj)DEB!Mm)I&>2^
zDXE(zFKLNP)5(l{MH}0smo_E=m{_)hWl}%l{S@48-=}m2rtCrirgR3T1lM|>a@572
zP`(@lM$=>+=ybZMflF(Hld$$y*MLmC1>xR(7t$T_bgNETyn?BaOd{KD(_O-qq2rT5
z^Jq`$_YYx#lKxTL9D$#X4={)D^`x$h*X(2_KK{h{spB0M6Cv5`Bx;?G^~;6Gee1j{
z23m7XL)^LPgmzMv(Fl-fksJYTRRd&NQM&I?7}~C+BjgrjH}9r!lH;-D4v$lUuJOY2
zO7h}J&3Ia1>&W)0hzFgK2d0ipUE$ju5*G&yup!xZ9l-z_iu=$}TeF$h9tnw~vtZZF
z?(H~%WlK9a5e@slH#?rt+uZeEPtB_aN4sy$gX$?VDd(mLOn@w*oPaEsfGot7J&uTm
z@3IVdtZ`f11vV^hTE9>*Xmxl#>Yv!#y}B3hl>Crg`HA8F=)k)?!V+y&o0)yI{5jNH
z`vNHn2SN^6)(qzaDgzI!STqSSsECr_6L41Nj1^+T)zf;J1mQ?|T4koN)Uv4{Q?E1y
zELQG$)vl^P&sY+7CaY`_)TF)MaZ3jLYg$^};|~4_B_&wzy92=EdkhA@$DsFn4DP>&
zMuMII<rb{hx%I#C*4H|_KRJ6@W9dw&2>wH=U#>;Y&D#r!b$0M&Wi?L#0YE<lSlQg&
zxaf(lceEssa8o|>#ZT6bQ1ZBbdmev|Kwm<1=$<QFVa{BF47=}P)|l=XO7e4BZrF^&
z;`o8CX~*sMT(B#6c>(&>OyK#)b(_$}U{78-aY9QQ@Zz`VFej9NGJ<zIq6ksto=Uy(
zJj${<l)=w6e^K2q@yfnYUA#ix87BB>&#+gVNs6=nlf~;`jGh*}WQVQVtb{>R3U2Ai
zS}q<e7`;aT05m$`m%B>e^Yj$AM{=?_e!s6$MTXOQ?g$wjRN1sB+<`$x2-)G5L`}k6
zo_-G^x5mkuq0L{M2-AGOWWri9LOi5u#V)`vvd<Peq)De_H^@FNbq4uJ({D<lD440N
zL1o~a42cG5M;24!A2}r9ch`adxl}SmqP0lUbvd;Eb(U3U2ans$bc**@=BUFx87Xq;
zwz^j4{cp_vdMQIWA+JVb<;IJbSTC<^O0T#8eFSQ1ikdRgk|m-E0HqfIlm=G<Q2O6H
zN(X-+rpTA3dcSzCon)MU$-g*uTzoR<mH}`y2f%Tp0RTtS4{#irGwu!$$jIdCH2U1D
ztec<Ictq=a%UZki=`WD<=2Hmh#Nh+jasXh<A?*jYgoT=kH66n(mAGYoQ622b_foa`
zxDSa>2kt{0fsDl9{XV4n1F-fbtRe7@HW&8!YtT}XOaoZ~o&TSi3vDlp;W!y%LyAen
zf4U)?+u9sUQzM3lxAJs-cx~XyQ9(#;Hm+@bJvV9%A0e1?pSFV08{4BE(7=M+u3%2)
z;G39p0)TxTu<Ok`un&EBZ!Bm*@XpW|w<W|R`h%g9McKEqHB}J@sma>>3?P?s1tc#9
zBp<B(I5acx;sxO$nOf7v_C{5=O7N;V`6d+1*ire*A<a>h%*Yxb{o}K6BAN9@xk@8q
zb8WT=*2*A&-`Jh6cAl_u9eprS0#-A)Ioz(Ehia{ee8A<7ra=BGB9W1+1#V1u@+U!=
zO&z@X$O$lxj5_$^k3ULLoAzQ9wzi%TOyEEgt%pvAK4I#j(zKxG1|b(?iVC?(No0K9
zWS4)TkL=SvtJ(BhENgY=>3(s-(h9XslrQGBk4k3p8&)-gApf^`@{0+zAU$M}a$O2Y
zIH3wYY>`Z~XR>3deDRQfEB0iRbtU$6UCC;+KVgSmq_`so+~(jJvhq!!y8xQo0W>G1
z3B>*A$B~Fm1Fn;k()XW@Q`7g@Wk08O%;S}oYP0X!lIQ94<Y^g9?k?PVJInZVeiMHc
zN>a>Z)3-K`N<}7^MJbo(hyDdSvS@JKaUP@f$mvHoq|qd~f*Ggq_3`=7fNno4z>m*?
zY!#~ceRaeBbW|H$(jy}hd#|0yG!+@bMf>Ja0nletmX3BgeYLb{Vupo{{v+R%&h~{}
zaBK&^E7OympbR|YA(<rJ&_zlDW59R2WPzgxomj#*Anr&t@Kg9k^OA%xzbFH6>v(zi
zl`AO!JsfwhN2O(p*2pG0-Zpm^r)#e)+iqu%l**F>T?OYB){&f%27+^@3{5yo%7f4G
zaEVD5uGx&sz@vSH1`edeUwLdx3{?KplN%<c|5m8;|69ZO-%0gZ|Hp0NfH$Sha9I%B
z&nhPwCQUoOV}Jco*VV``YG-U_3w0m|(?#C^cF=i-^COkLSmX0jsFUOEL3kb(SGc73
ziZBV8iRnYJg^=e~s4;eJbmjLpMhWcFi<Jyx{)5fGy;D6i_JiK~-IFJO4Wl_Zm&5c8
zttzG#avv`3%NqQqf*Lp}h;kvw&`*=nKEH-BB2*z-D@*+-WMyg8MidJ`8BLhO|70pG
zqkQk}5eZT#6Cva7kyK;26HQ|OHiVfH8iJb*vb+|!g13y5O_<)+6~t)NKUmLxf)uow
zKw=w%|DzjG&%(7Qvz{q{NLVyN)cPJ@Cmiww31v>RS!dZqA67Dv>R=XBafft&FmI=F
z!DcVs9kaiC&_~L=c64RCI6U6A7=@7uk+yd-9hrCGHYZxCAw51A^NNU0JDGza0(0b2
zDG(u<4^~pWe}UUK{>!h-D%~esvKpm`a+IY}QO<%yZb_wu>BgeqV=ke~9i4HBlq^mp
zJ)(fqrZ0@<MrK3-2e(84eYZsYaVG*{%|{?6sOt`hL7N#gpvsDhO}Z!sW8RpQq`}cD
zP`yFz6W*BBGyvzNj@7zPeFFn_0c2+QCz@}@U=9;?9<XMX1QF;B+aMA;i?>*13r)eX
zH6yU8ML%qmf!fOP&$>y42z~ye1qddBrws^<X~5sgmbHxyTZg$4+i#aLt;TI>p0_FY
z>-eF)SqQO~*Za+$<(^QCH~50Z=tgWu<B1k(Z>pwk&Y3DR`yS8PKXwj133Go~o@S_P
zO*2b}X;(B#MmbxaSVw_34)0F3a_|`BS!HhBX2?kSqTT`-CM5^EeBs~-nYeqbu@|_#
zyqj#&ptBGKJzoQ;bhVeD+}s`9u3iVGJz7l%lo%M6FUAh0J)W3yS-oCux)IJiIq)LZ
z^&AV2o?1}@@b;|TJz82HoS$Cp?+DSC?|KgA*VjFqu8K7b5WgJ3DkzJ4^r`i_Iem$l
z*;u$2dCJ=t+T;FdPF?|dYk4Wi>=_>4>l&6ZFArVn-RlZ%M$=M;T?ui+r`Y3aZ_EqL
z-oAZWsx#)QiB47~UO0)ZSX7JZLd9N5e0EN+zU|L1FlgG=B;@KyOI9X7!BOj1|F3wO
ztSra9e30fd8qH-5Z*NGO;I7<2A2@U=9;*sG1kGj3O`njadzs1(^C6#*W-z`Yhn3G4
zJJ=E(8!dRc%dHMv*=+;$#3puAW%b0mkhUheWHZ(7Cfeo%n0^H+p<Mxlg;JUxu419x
z?dq1fEL3CLknX_G_)aoEvj+ceqxwhg{i~&P|7Z3@3quf6z=7tX(u(098T9n1cu!6D
zWexc#__VKvgKgP4zw8PFmEr=Uq>>|fpCjWfyWHm0NNszYr;*v&<+(k+dbxA|DP>?|
zqJ8Tsd`w<jq*7WAd}8s6Q5_5?<wZ8V)^<Y47LJx}N7jJc{z=XNA7#IK5NJ`#jgfrO
z-y57qjF~A_3)SHNO~qg?SU|-9{bZzMG;AAR!4UgJ?1u+vD0$&P4Kb!hKc!-A_6VjX
zSwN9&^;cMn&tue#kFfZ%-~x~fB{(98=|xNk2RTB9eYHZ0(JB{~vc*i>yD@K{O1v-Z
z8R-qxE*z^%sHyQ8YD+>w=10m(a<(3}W?|6OaWoZ#y1@ENODLVY%1WrWVh&47LVQ>y
ze<{eG2SHad<vw6WDqJw!vF~I32driO_Wi$M?f+dA$@KkyTn}EaG2*z)hP=8@^Ib*O
z4jJ6)w+H!`#*@6&ffIdPCutsxL&4jBVJG^eeX-M8JRk&wM4{EPl;+4OG4#cyZeRR~
zmGf##vC`W;F9Et9j7rp0MsZWs+Qq(I$uGLcqfC5t85-_MFN%0xDl6_SnwEQB>h5nl
z_gh0=nP2a8*!5oAOn!oI*WR&8dp`M&b2lY+WCG8}lV2)bw#Oua=i}C?^R-UWuMd8X
zfkxl%I+lRv;~C|Zh8Gc6^V@o|x+_@NB*B|Y1fysBr>i$%jB+&0Y79n+*7j(*k)0vd
z1c#k4Cz0r0Xy8S8R~AX@M7erDGU58jqWhW@SJ(n*VHT}vgKoc5^jFC(;Y`-nC&EHZ
zY62alf#1jQu6=k}a7*D@T@_<hIsUd3sd3z5%P}JjH`v_m0NvYfE}9Wq88mG;TpOAE
zTAlvhdaS#D^P=}FvaC#Wns_cKv)o@%TxQYbk(9=r<|wDRqozSOg1j~_rx5s5hac-*
zal@nz=|LO?H(*+aU#z66>+dLYIwHSj+GMGK@50ZdOLnG^aT*ZWIPo~v*TC98W*Teo
zWm8HM0|)f;wYeIpz$bI0SZ~WvU=}J8V3rhoP*MuH6va`i{rU>{aRg7cjs+SIz2E}A
z$4+^n_G7i#PII)0rsc7v2~+lla8mV}*IF;TGsOn>C-<v;^=i}RTd&l^ZG+bJY|Zip
zpysf4w5LAR5EVxrSndi~ZWIMrE(2Ju>ti{V$SlD*T+56;7N*FI^N4FBO`bW9P>T+S
zB!ERf&JNVM!A33`q$4<qxA7-ZhVRr>@MnRaZUHJeg8jd1+d?^W3pn+HQ6uX|FD+ft
zcQFn<TWtfdCTsCxVIis{0TUPjCWwmwOklRe@(aaaQ{X47fEDdk4RchIZ3JP+u!yQr
zYl}*QTI$KAd_<uASP+Lf))%;qW_WR7aaNg8@CL8p^A!nvZ{x2s8O@!9ieiDJ!F#Jo
zJ^B%%KYtd{q5Ts99*O-70R8u!989Cgpb7qxpAaX48S7vD?x|OTqJN8OC3hOG!%bl)
zx|U*UEXmw#Rtt~I-C@Jaw*jyvL~?Nz!rw+5glN#(zk{IdUobX*h_Yk?i`CtS$6`*K
zY<0G3S~T#zIN9Zw^tH@;)e5k3I2#3xIku~>_#v2oTg^h%DOd>lnq~AvgaxA=lmu%p
z61U0z57XP6ZLW?gj!c*$0;<%=jowB%5w7?ZFZD$C=?9ID(;}LY1Jy3Vzr|tc08mOE
zKz5)K3f@%cUG{SK;^6#MYwPR10W0aq<)oL}=lk=W)uGf{E^h5KWXtaOfTPI9)K_u;
z%yUQCH`nUbYvzTE)7{kqhHp31dPQ8|B<dKclkoo*Z$$$@7f8s#R`G$!V}#!)=PE~=
zdRd2qH9upv*eAdj|G^9C0FC-({%L7D>3-?Q{N~cb`kl78w9VaP#C}UyxEF+$8gZFu
z*E(3YdICFa6oT)L2#6vIUnpD@n5!c=uz=w2B-m>xnSi4WRq&ck<!La|{oc7%5SRPa
zu7@u5^F!+#>M|&T!<ID*H{yU$TJpT0`H^LhO+I!9$jr7K@v{-;W(ie`Afh*wRnG;m
zzL!Q=3>K}9&d$9=35g;btzU?bH{z~OvC~6YLue#3c(hx`?UkW#Zq=4)Yl69se38ew
zYbRTV$ta*jMEqzHKvW$gM!`ZreFEAm6J^29cQrui_f!`M{MM3WkPrfCvMPT1nYOr+
zsLeFe5J7En_|NUOVim^;6RDe2=<6IgiCY!hUk6c+wT_F}v*2RZ=~fz0D;A}UO)I8Y
zC<U4UrD9TDzYH9{sq86|L3peMq&&p=_9Mo@0KHGAyfTW2R1)EuB-iFAWB@#10Pp}*
zut2sGz6UmLdmOW0h^6bHNCjAD-KMT4O``+PB#hRt`0Xhv95b!SiUtN_*5a8L;nmI^
z!}?YFg6@PHwV2Y7TEmg^kdZ2bCAv-RRJt*0qJN=j#+I1Ta|yOHzcWsX^eKPm>H;0l
z6#x@}zMCLch-f#4^ANeIpGcis9aY?MRd>17Qaai{^ny7c@hL_|SATFK%(bCXE_YQj
zoC{mf@V8%GcrhYg%WtA5E@1-|%~`=<x%m+wv=RXKROSXe=o0WCmJj#j3Szg!3S4q=
znO{zporAa6d|_6qBOotdK5l$5e8WF&tZmy=YDm@X*#v|O2ZUn<gabOBA7vT63l}vM
ze&xN_w{`hDqr4sX?=A3Opw#jx3*-I2ck<QT^r0!%s!sE<DQbKJPV|#$e}+7I!gRgu
zcqh=Um{57!0K;z4^*A8nf&#EFx?vAeumC!V<l1l>lMS*II>bA#iB;jNi3phF=Y&o&
zaoZ^<MdjT}Za3H1HV1L@MjN~O1X^XnD|dWfLo1!ZCJkGQDl2Q{ePSiI7Q@`tzW7i{
zvrDopYqZCyEkMd4xy!U)dXuJ5ih#ALGRMql$)eg%OmeLrnkSI2rXL7v9*VlvlF0md
z(Yowl#RrBs50~LBGUiL?k#)O0%Q;52W~P%_+P0Z}7_y}rEt$}q0y{Yrz$0Bg&1zH#
zX-88MY9tUF=27Za_k?G0c$kgrrYb<Yn}7Tx%V_x<fG86HqPQh&vMa;9BZ|J5@LU+w
za=3ONWMSdc;n$c+9oVY?E>+FfHkFrIWtNuwLanxxT$kLS_`ZO=Ph4tOLoy&^1NvEJ
z9kBC!g&&c?Y-LL9FFF6rfRZv1d38G9;84xRlVxPajRlkS0IW8a2;dj$2Y&6<Yo+Ud
zvgy#!a&BMz+kR}NJUG>EOTiG*_Xx~=2h6<+%zgAecj^1w<VOGGsB)YetpzyU<A0d2
zB{c}UO-m&(`*F0;v5><4Tbu*%Lirt#umN|neFr26$~19HXu3H`SHJ({4?mS74zrgk
z8yt01zUCx5t1JAfGQD!~Xm(yt5Y9ByTar??l%G7DuQ(p=H#7Akj!8)uV*Z<q3B0Vp
zdasG{qid;hlWOjhn_q@S65wk(fUm*H2OJUFeuRm^uOZW%C-?=A?YN?-rDI&`;!gZ$
z_e)D@s@e1u)SRwbt;%z5W$~MzWIsZsPgW!MEBC^x5C5z`T05^)DvXQ;6p@xGFP{Le
z*9ExVXTbGXl>yhIdUw4~HAJ#@-61y(_}TlW40zNUZXEjBW|aU~XnuY7Oer~`@)U#a
z6H?|kCZ@vK!rT0CiL}Quv7^A+f|g=dt|(@cyfQImap&rec>quJ06Ymp15WNT08hSs
z;K^u;pTo+nN9EJ2EtX2`KxwCDl!y5oYWmXh)wUD89lIwBXEo_J9pokCiV!$eFxQ4g
zK*+U_A>KPhKuCg*_|TL^3_x1G8}R(KSa-4X_wv%-WuF3aq`?}y-XqRKFPHX&=BINt
z`MU%s?+Fh9fM_r8i1wcF_(-DXk><>V4}v*2Tmnf#cW4styatdY{JMNk66PfRzvrE%
z3h;b~C^B(qRIWt#(risnC>g%P9}6z_L6I%XyoTaZTLiqw<lRGovUI-a4-cj2;*Vak
zhpvv38t$L*m{@tR>pS8$vbwGR(Yid5^7^%z$~RSeM9v8Yc4Ki%N(j`LLl;zINyr)A
zbd&-c7Gemkh^$6gWDl^*F|g$pz%Cf?kf8pt<wDpnlqDzqQ~7}0-Ltr%WdjtQ(vwaP
z#PXk_7`D`|ZF7S0s<lkN_YZ$yQE7}bqAZxw_t-J;g6DL}Oy_foLm#Qp1}Z+#y2{AJ
zV&c*<cwOGves4!M86-F?F$ojs;i3#v&?rsYw57IkY>wO7+6ml#GT?QB?G7^@7n&?1
zkK{M*{vO#mCw&q>ZRhpanU>Z*E@|2nFNkJ#%*j7-tH*@;CkjBg2-+Tpb0h%a%EaVt
z&7hBPI1nZ(dB2l+)lt1PL!n9wufr_I2B2t^&0a!rEyn^%l<wEha;pIjJdux3-2c16
zhIVJ+YmlC+@aBek1P#nSXA0nFDKNV#fS;2X@3Rj*K+m7_G!Ud^Vt%7GqBfvjKV>&7
zAg24<*D@Ocq|)g?D(wj5aSbCtDjoEm$FZ}@rCFEetQ46{aZ5#HI8MZ!GgK97xYc5u
zygj8Td=moKgKMaB(b!9tNZg7w&uD*qcyyhx@h4vKfZuNFMjqF9-|3KcjL6owGz_T+
z!Ou3r0e;}n{s%yh002Eni0{y|;{!>*x-Z!68kn9uk$iP;d|Uf8)A`Dnlq(a>F>l?O
zP~F$x^oeU38Q8c)uYQ&qP|3&F|KUA!U8{sscjt5)!Je{{n;AqywmINtQhdp66s*c#
zk^jaMA5J&irOUg*JIl3e5vW)0OC2%Y*)O@h9=G~3D(T!Ue4yjL6=CVv@4IEbEW8F?
z$iC3w*Rf!V#HXPg>U&0>tY{CgRrj@EL{8TFYA~S^F7)YVLAElf2ZH#&>!+ov`+M~2
zBY6Ckxueu-X<rI7@WuQTScoW7K##uwJ?{M1_bRpsO!H=Q6GEWZ@5~*h&+cndYN-or
zx>ukSFwB$yb168n|7vM*8vLW^L{#A>r2C#ll$BL2<$G%UwO-aFzhs*8kTu{~nP&7_
zqeo~>Qd9Z4y4(dF+rr1J#n8o*Bx);^B=Z*<-~H)y>>v_jAo&39+Y(;EOcEpigrfrB
zXbONUR8aRgScASFrGMC&3(&Ir9w`BN|Ib?}GbSyar7@Z(?qQD(+p5K~3QG^wDGdl@
z2RtL{R7bNXn`?41xYJ>$0`Tk-<sH1q+SyE42pKP6%a6d8QA6KVW2-w9N8WNKRA!on
zZ{U%Al0#MZqjH6z)}dM6(vWzWNsh=1I3!+yL*oAZkRSjKiIk5+Vo1{Y#P&|^g#<`R
zmLvi|jTwN98K~}qcjbFeYSWXUSZR*kAb1v>1QZC+m-`G4GADR{*0<c4VJSGYuHfUh
zo31-O*m%?q4vQoal_^(l0N}6}n+=i@3FHgz060h?y`%EHQj>hjLCwWSet*nam%aM1
z7klMfp3wMqIU9ddVv${arkXDCvknc;`sD^@zh^`wj6(!JbNe;aLH%jpa0_>~DHj@@
z;O5|RWNR-r)!?{Ua&UDNYWt6mm|SbHto??BR54-W8ASymHeVhCKN0TgJq<n+_hT;_
zzm|<5bH6MZv!I;Y8^!6=Tu*K+*TB5g(&ycC`pbFKz)K~H!U2rVw$<8ab;i|eNq)AP
zORk6Gh~aT~yDPgAD26#b;GE;q1n%+rLxGh10tgAB{*RkHb%^dFhv{icgPEaHE_r#3
zzA|V8wcA|3+M0%*jVX7*nnBnx--6c2XFUQ+l3#%j^cKDXRtf3f42BKtKAmi}ZrAq9
za&c8#VdrCZE*z~{m()RD+iwLwA2SK<J#iVYc|t;NvBXCXuHJz3I7U8uS!_=Hr<dZH
z0TRuxgjTwyFr1wK`=xg#R_6cto1gEjYy)TkXE!trN-8XW^*eZA@_yqi27oq7SrB!I
z+VZK@jqoFDL_5YlKaL*{0By<RzZ;E%FvH4|C!W!3aqo}*;AkaTayK@<dfu_ZpjhXY
zFVlH%C}?-l5&hm!P!DJ*$cm9THgPh&J~vNL$?`N?iNTY`+0OPb0exjv2xkUMHfLo}
zOyYB~w|X-)(K)p@)p;u*5Ij}zVAZ(mK*CI>dQVW9GEecwncag_)o-<Lem{S>cPkLf
zeR23;ZnT7GCaD)j+E0+ZuHu~WRIbqjv=n4+Ox@#B2TB2zGQChY*S~wBvY*nuP(sQ5
z7~oL$8VK*&v;Al(sPSJd1#<vigTwp%2Af`!H{r<6OGw)G=6=^Kp~%jJQh6aXi^@9!
z#X|m|+g3#Ab?z%1sk6ES%KR7nmb>Trb>hFbtp$cF8>_pwH=B-bSDObXC#Sa<44phH
zmUHv_Mz2P5LQ6fK<kf5efqT7}iZq<$H(Td}2|j)zho3#2XKXl#-$^4%3GnTGzLKO-
zRptlFG>ANmm0pDwia006S#Jw(fNfo;R(6A-xZ_d2l?b$l79pxaj6PM>mn}toEynnk
zNe7|B?Esefz-}ob^-jOC+S3M<7_Ln}KW^<tibUPD=1WBkV&vQCyp+yP-RFID4F^A%
zfpgD0YQkgupza`>0y-&j{f$AP8k5<1+b)yt+n*4x+Ffcyo@KfKuCQo81z!fPFbA%X
z6?iA3Fo8?H2Cd%+-Re8urRJNIDEmWE88VHOU|ZTHH^N19g_nU@lkfQQukyfL0ADf!
z;w)3KP~Ccsd+`h?z;U-!DByZFLva;b_0(LqoVTicexp@5nRWD1PRBlFUGSfOs3MX-
z*?p{9vw|n1N`9;?)chrR*rx+DP!0~AfqVW_wC&i7_0HmBOUB16>sS=t>2<l)$8W(Y
zB;wVuZGQDy2=ey)JizLKb@_u+%bi7#L%67{_mxyL#Ipez=pYYce}2TqRTJ_~)*=&R
zybV=fZ+j})j@f2T1?5tVbN_GFh6D7S6Qy*dSu9y6X`(*7Va3arwwzhB4Asnurf+$5
zK*nal@y^9=`E4d1wR`e*Z~A7rYW2SR^hGAkypr|h+f&cpb_eOvqX@a_U!ec_=7fSz
zRi?6cq$gS-N%<~7ONVX-caqL*o|MAr=8`wHq2ud}ep<!DgHven>}!4?qq9=h6dB^d
zkTu%2#o93y3A&EA=+A>{@^$>mBp>SAtZ;}}JDYM%KH=Y(7H<N2hn0vZ62O&JkJamI
zxNQTny9WpCEBJBNI&MAoi)Shb*uw}Ey0yEPP8i~boOGa62pU>bC!1R)i!8h6YL0aB
ztLf|%;hs{Y<CsLC4V-dm@HU_S_7?vdjtG|NHct>{t@7Z4^(P`j?JYy~`=&%=NO7~3
zGzM`0m;;_XI%mVtkM+)JvU@;I$6Wo3XGLzAZL-{J`BXpzkDt+gW)-D68-7z1%RmeA
zQDWKjZPi+%yfR}Zl!Q<X2Kf`9awM676VVTLy}s9e8r41+;k@ij#-5-&hY^6n?#4@E
z&?o{*mF`aZuy4mmf^SfI^$$g7#B#LaJB7*Jj^}u=L)HpG7EjF6j~g%XSnl`IH!&|c
z24SGrmXGJ*XYNNpLrw1_CaRK;o8tP(d(X8$MNe5Zs0j=w^Ro3E8!I@}6n@v+4ilJ`
zhjGg@^s#Hf{Jz0sovg0dxeX$Ir|;^6SO0N@pbm$3|J5li&l8V6A#VD3;qlzWi}vX0
zv+wxh8hz_PbKMsLl&4uLGY>)BWH|xK=Xf;1VO709lK*9`u6JwE0<!#mw-%^mDHV^n
zsF~Sc)?$olpz(Y*0}#s{KrDaosnIDAz8AHnh$HHmyLr~$cofQ!t2cg26IWkXznwOG
zrP7R%jVBSGNuf;zpdcN90(Ri?1K@J_cPOA^jT8UUeJ>zys9Q$UFyxMfvp-Vd$SOiU
zl1KEb|J#Wdw<C$DwT1J`o~ec{W9p@we8CbF04gF94XC85a;)dM`GAJ4KUlTUkHXyO
z@Q5Rk3IZ87uEY=Kj9z4<E2YX|y1J4~pWG7j4D`@W*X2PQWCX8Fd;a8U!a4$|aSWhF
z6@VH#?>JMx;t#XmDl%_pvFod0+(wp1z?7wbWliByAIDXU5etY<!~uwZ42X~Yfn@R<
z)&fm2Z_;Svcu0m&^0ybnsS{+3`xcC|6@P#Y52yoT?g3)zRYWW^O1<-St;&-#3N_h@
zCHE50#<EczB;?!m-Zzzi-AcBj9=lV4EI6(3Lbk>%lZ3sq{hVS+77_A`j}nWjzKOcf
zSyJ5STGr+ht`t~q*r^Si3}OQwP4~ye&IGl(24H2G2|XA|@R>|(@s`%YYb5y~FGNq3
zFu{%16-}ArdL-UvZCvgl&k&QAu2`OmJ(ByPt5ILaQH<dWfb=IG2QY$XU~9@BmP!0F
z<rO%!5LR0M=<>iyL$k#DCQU=*al)BejbL|wA-vF0!_9Nl`U`79G~(ycjbkT6+FatW
z*DqO%-$^r}+oV9$PykV5BL|4d@*a3@TY~=iWI{J=n<i=2qijg8G8Xk0`f>~rvF22w
zX?d0#17d*8%kKnK=x0`Oa)|kKz}qEs*|Q0f>BSg&sdNxsEP#Z|fP^2+XM8Qv1<>UU
z#0Qe?NgV(zdH}0k1F(qvK^4{fq#yCmhEI-ypq*{{PN~(y$)Fj(f_A=Q)q~yr+5TLb
z9h*AJve@r*F6Sr)Rgz3+Hh~gY29gi37!+VJ->isbB=vX48i@zHiTtHs**ydCX$yJg
zz0#{(gI%7%fJ+PJ&m$0iDwR98gA_pc(eXAD(UP?-A?JO&(R~Df?>Zk~@lyg|<AWeA
zKeX2$t(Pq$0of?ELV4qaJ}v&<qhllY`^o7^XDjj6YPP-(SvK8fi7LRZ8@f22;8T^}
z;yvLAXeIJPE2U7ISdH84g^?x1E&13S&rUjG`Rf8y-nH(z?-g5SiQ_Y&E)xkp=NZ6d
zZop-^AD5|#WaCzEFXf*uv?uG3q2pJEc>EHDz1yZBVqA&Q!bS#4vyMKGinXy3+Qt)J
zL@9d{z$>IhfG4WKC8&<SOd$@~*}f5o@V@0jrpL$7vmwo*%L1CJ&7gzu<^rPO7BGnL
zhs%I5pxOj%gG@+x@5c?QVpvFT^)>BN^BGH*{RwOjnU0?LIDGT$A{nQ#^1PZ>HP=3I
zaVltb$w=telSvyL_GJOMDGK1GNIRf>nRn&?p7vca$uZUFVhm2KNh}BFWvB;DZ)2B=
ztRhr~OL(kFjOz%4suqUEnLpOQUcgHTL6Vroa8iD~Hzjj^x_l_5@ZyO{OegH`b(`<t
z;W+c$-TEd~46>(VlJ>UX^Of=G^=0~X(yy{y@|D#dVaSGc<o1^1WR=S`i+{z<w$zK~
zg`X(qHLE*aOU516=v-DZ%RrSe#r5uDu(JMQAmQpu5{IA1^dSFHk&Bb1Tie}|67II{
z-<Q7mZA&hpH?Ycx@jw6Z*FVPpmKgv4R$8$B@5Gsr={wW^lrp7UdCW466}Ih6{vUKx
zjA%5n_Ri$z4m7AK+$HQEm<KtOhztHFAP37%MGkOQBxvAEBlJ8cQMm*$DOM6RF}Bp@
zb);jR%;68_#pk&Him!h#$(3`<*_G^()RP8qgrzjWv9gKnfx(IquZkc#RpF#yPasK@
zPef<bjYmh%xck{L?W6dyrjw*S%CP=Pv*R=F*UPXo7-e+Yzxm@|2!<cJ8AzU_+lQ*N
znOou}+E-HJ2KDr~B2Wd2KMjV6w2x>lnu+h2K}ef<m{zbM>*1>k7Fc5U-Cfx+@-uv@
zHiA`d3q%BWW9??{GKdJ+K+%<wANFCXIoGVZyH#~MbE}%Xxf4D<f?)kUa*CqzDp!?6
zeT`eupPGZea=TMq-dXVuuF54bg^+A{KM|}4tr3o$xH2QWa~<x!S{u(^<&=)2h}@fA
z4Z`8hrS<&zdvy&Wl6debg8ORl590z?l%PYBo&C<w3>rwJ{bpNz@I)6T4ehbmu1{ZC
zKI1A=EAdRu!Ocl#uA$i7$n(N{P0a+QR0%n|0tp;V!_7!@*$Ys+;;lBGOHL4_Z`eHI
zg|SZj5ir>PBne53FhMgG#A#I7OgM0aTUuowL39@V+mh&lk)$!|fq8<_pKN2&ys97f
zNGyrM^3Nq26})CI4gVLm-aSk<LpbX0Py$X`YiCO34H;=Jq16!G%8Cm3fyRT+WWQwQ
z&!#U5GrhzTiuDqke+`S~v@&G!cyYG5T%B#C6>IMiS)Zg&68UJ$cUOPzqW(pO-K<bD
zn1ZRyv}vrjuoO&(-9(u!uD3wzhZ5!;3Xd(iin&1TLI*)&Bxm1@smxw1L{b|QZ@fdj
z<H7S;n8hjXFU0-h>nW9nM*eoa5(M_qb&D_po$>aBG$rG&e~Xs2wa+hL>>?gErfa54
zS754`K22~1+pU35(mWX%Q$N`|+}zS52&A+!r$$J*pC1OGc~)K>*>O7u{G^<uBiB61
z$2RX@ubtm^H>VFSR$}%R5DK-tI$us-&01_?Sg^Cj<r4Wl+`-pRz<ln*naN*g=kC!S
zYM51_xk{8sBA>@tG<6rNS(p?~7|XI@U<Rs6dg(A5v!QIQJLI6t83T4DnS5*{C@@fo
z%oQ(7X?$jhiprGLPtg1obd`U3qlN3JiKswqhvby_*r*gWYOjQt;&nBVO_z+(Wi^$W
zl(E0UEQj0Dx)E7Xs(q#H5U0h;LM}G`N{irg8mc3EUJv0^mem-hy)xR197>amc&Dsh
z&DY)4WJ-!|MmmN4z#$4nBT2V#@At)|>Ou@FudAP8anOfqs0oF3;hvCU$R`}3JK44B
zV)HQ@-`t&6m}KET2?y>=zrXNcSAQc~8_luQ8GV&nb8GkM%qdJON-HpMR8fUf-0E{0
z2Mi#!(EO9yr>}CRDcIOc$S8)u(UM&`@9Gb9(woxWrt!hyUbu%5$O49on>H={u21qq
zJjkpV{LlPzZaV3nGh?n$YT&K*-!d2QPSmP7?s-C2i7FdRM(=*NFL}UudYUYZtfD!W
zIw@_GZ)kWohB!g2iLU_zF2KM)V4%e5)7r@UfEzGy4h#&xe`6gO@BjwxHN2e;oxE2^
zfPq3UrG;`3P4Bnt-*2E*;LDl+0ZUoF|933?UzHS$EZ<oFr&!sZ^3!RF4K?8I8HQnu
zxP+U|Ectt$7=?daR9f=1<L2*JYZx{?Nse?a9;JnTbaEJaY!=KNn)Vi@yJ&r^V=kA4
zr^zn0`C8fiRR|LNK1!&fbKywMKT)t;VpKV4F1f*XeO{3*6#UwqjrWW{WBWKY^;c2Q
zMc+C`f(Q;G?XkH=w+!x<|7{msIAMIhh7yLM$x-Xa|HU6N)i(Rr4z~R39uIk~%2a;#
zn_Y|Zl+enAz1hR6SQ~EPbl@p8=I=i(v?HaqJevPp4JxniXdCbUqIE|OYof*HY#Cmo
zp`b^8TV1Yys+VH2R`=@jKiXGnjz55r6=hVw&aPi>m)$>$s0iYc6J(46rxI(sXuI0Q
zxh1zg$_+%4&%U#>V7qGq<r3R`8f`ssXGxWjbMb~k${(Hkto)6%i8|%CCH0|qI81ei
zpPchSY-6eOeYOB%|Is>3KLI_mr}s^TZdHXtBuS1&SxX~*V#{U?kI6At!)a7>DsfRD
z9yWyxXmN-!=3ZClSxFYI3FcbVQ>ZaMtB4=dCoH^IVNNere${BZW;|lPXb`6c{_B?M
zIFw$#?(;`Z&oISW^T1T1AVwESR=()kfYk3%P_bG5nIR-n_YIjTuZiX<v?(1hL^6c`
ztnQaU&{Y4#5qzfJ58{V;)5>D`TMDivQi*S62TudM5u>}3bTUdwQ-nNOpZ@#D#1_8q
zY1Pl)j-uUA@{>%YkS|YbRX9vuGjZggB%|q~C|!soqca^GN2_b<w*g!u_J3V}IR(jM
zWr3ttlcPJP8z->M;z?cJ$a(deBvfW^D^xd0NhL5$Xl(U-hxy{#{4A{Ut1MH@Q-dx+
zr3Krl^n1n*9cTVDbj`-%QaZUBEIB?lZgjc$Ibs8*h+JYDGzKO$t2tIoqSFhHqc%h{
zox(r<_^%MP#EUUpv(UG%QvnJ`pXzlKFb2>o(t;AyXN9b`&CQIKB5UvVF*q6Uj+{A<
zB4@YU_%z}$(39v2-}+hnRPWk?5u>9PFN2^Id;$ptp-Ev^!HB-@q_OD?PP+RNLDt{|
z!LH5|`TX-4iKr8J$!g4hIk=Yo(o&8x6kw?_7f^xn7kRbi-{)1A>k0d{{3)$54cX<E
z>7S;I0-v01I8AA~1d95QAwo|0=r98&88K$&n0a6;#~qKWpx}s3f>2btq5KRboMxWv
z?L1o6#+MX3=W<(UQvC&epyWF<X?4E{N!d$;9Ja7xhf=y#SfMp*9pheg4I(&hJ&e!}
z!+3V+b{nP2XVq2BElU^uwf7B#X{fP`5#||(SpLh=-dwY}!tM%}29d{=aOli7503Ch
z<xdn!2juutl+7Nfk$}7rq6eN4Mh)3`z^Nx&BZ0z~@qi9IBi0rOU?7!EK9H>yvmM!}
z=L^U9N$z|vmLsDNP<#fMBuyZUP{wToHbBmXf^D9;^6{?y)wqiL_Q4Et?voHFqSTHU
z$dmn;xW?P`#!7(Qk!<~@`n(625zyy!++p?bqK@!K>bTz3FQW&K$C&k0($cY!L;?+2
z9`*G$o1rO_wz}%srFe3+DDcA|oOSUt#G31DRt&c&h=90OqSA_ohl)FD1=wSOJ;9W(
zgQpf=(i5L6@pddHO*x7ZL_`FZZBq^fYx9QBS$SB0PJvb&=y|@lp%r#Ys(S7^p^GV2
zM3naR`baO+vmR{1*a$}iNs~E4@%Ru`_;B5S>fwc^c%ESnY@fc;cp3%q=l>x~2CHtM
zKQg;^b5k)-03$}dGI$v015<FUy>JF+Mc39KMS@f1V1iR6B`BdA{x>{V3_i=#Ko<9)
zw^qewEjBNdt)AYj+-(jVg%~H`I!Ig5C-C<Ws+{`iC-OiTPHRv@jjP+s)2*$g1~W4}
zWwnyIe7b=cOTm#}%+GX<<|F$z$)ucWL%Q+_JC!}*Cu&|VQx&(vI>-WWND2wt`mZtl
zBV?!xOl|c7W3Yv&-Wy2Y+K@R(dvqe^J={5Zx@0I1NPCV_?!KaE!98*$e4<B`we*8V
zxDqLCxm0-Lx03&i-lQ5?3|G<8V1Z{%tlF)BVZn)@6I(E3uflb)V|5u~pqIcY*k_Am
zaE^LiMUB8iXke~hADA<^aMD@A+rl&lg33}b%cB4q=2K4lTc6}H4&oBShnSF8vXBWV
zWjjg|HGFnKXuC()6Ak14562eke_};sWd5HYTPNxxmdnDZt4B0Vxb(fFPu1pW!`2}M
z<#d#cVYJGjj8KCybbpJdE6?y^Vki|!MZ{997tAHQu&3GfJI2$SN#RdHanmBLdv12^
zuXVdcd2L9^(7LV#vaIv+VNn^QQE8LLeQ~}+WARCkEYoVx^)SZ5<d3*q;&x<qyw1~Y
zda@C6>Z;4R@%U`6`F+-_ATAfP>G}3l$Uy$9XFj?sU?F~cRj!-3Sikz(F{4AA`x#X(
zyvDp{u$!?ES!gp!)YV#Nz;m&Y3__1rrmDey5g~Cucf+vEk53Z!D+~_|c`p(<eZm9U
z!p0%bp9_m5Q$qp0-g_ICh=;!GMW*b0k&H<p?}7-_=NNa_2Pz4cO=aEfLg3Li5(!X4
zr%Vy5U>;5vJin(POc<~_+8XN6^@KMelK9=N$+mEVTCH$|LmNbbM??LaZ_z2JTeUmw
zx0D;}=W-d3JLQd_>WcGqJNY6I9^^kJMA6@fR@(I|LBHeS<D>+|E(|LC&e9h}g*wdw
z{q55Zvk~`z2gd&+$Q$%h5tf(n#18s+&b0u^c6Hc|F)L1ly-|IN_7h*LW2m=}PdesC
z(|pESjyqdUe^=jnuZp2S3f7ydhDZ;M&{5yp0y-!QHKsh0n5rdF8mlGIjznpMU8B^#
z(Glr5vKnQw$kM}ATc~L7FEdINVP56V2RtYw{DNrt8?w5olTAhB%hL&K*hPn%x-=_u
z&&`fKjBqxai{DPE*H$=aInqFL_F#zo>^x%%bnXCN-nOdZ1Sl(ci*G2n&!1Yq+HgIC
zu!Y?pWkde9VS0)Lp-fuPKZ>87&!qN`c2Of(rpY;th%5{ga#cGdXC(Yv9PCI1r|7K)
z@Mpehd+vICrd9_9hiV?a%8%+++gus)XN(wU9Fy-8&}5>cii2lRFeXx$gQ${4njqp+
z<TgGwYX0ii{Ld(~IS#>N6j93)luCWa*C3mi033g#q0KO2@xoP^kym5u^-%;?8T}Q3
zk(d4UKvZAQBJ;FFC$mCb^@aj*UCiC9LD|Bban{zE6k8WDy8QH46bM%`*SJdg{?L-`
z-y=byG{&FPZpPIykZw_xPwQmXVL|NdyA1;3%^`oh{6Y803qCtFh_b4%CHT3egTpB~
z;2-8^{f0HE+NzHk#1|pnF{Y@5kc_pD)@LqeaF|%?NQh-V468%VT=CVDC&PKEi70~=
zlDZ+3`o3XS81!6zy|8P5JkeFc|49A^wzt^2>H_{?S;nqT>gp#A-{TMR*_;|S;+0Po
z_4~BoKhf1Zc<bg*%etg`(*j&UAp(%rsf$s=d4<3xONCrh7fef@%y_{*=iPq?+iN19
za}i^xCvXzDp3A8|Ff_c12p1l5KanDxkw4i;cNm=unQ0v+wjo(k{F3;IN;LBub)pu?
z_}<)^?gaXL?@h0ZxwxpjN7K_+i!|inL`4mb(9G#EN68{?A@;mr8V>p4WgMThFUHyv
zTS7Hy`^W;K>)NKiO^!Y;KN!O3uL*By;rP^>KTQ~kWgnD|x;lHR=l>#cwt@0&sAtFW
zn<et#Xn88DV>9RxHJU<lc4+Du{DeOX%7U@psm!g2+)9+;5ZXUZon+|?Hfo{E+QY^L
z@^dd{f$m&fSIH3SVGQvQ#xr%H9&<PuX<kaU{pT^*6l070RnNY_7?0V^^TSlhfO}nQ
zw~>vf@b+2K`aYL+4@6EKa|Vo~B0_75i911%y{B>_(GoYe`=2p=r1eFQOg>6ulK51;
zxbhnP9*?;G(|Nh6F@LV5aVKUX1SQg0LSgN)m7FpTOmn?zj;M{9JKVpIOQ6H)?m0W#
z=4cVc{8#SNGA>JMP+>)!5I3c4p?8IQFuMXfEfcw#JA!_l1*t!O+!(Bj5V{8&L-?mr
zCk9p6k0O_DI*bPBH9mKEA?9QcyHUKE$2;+6NH?ERr(R#os+9-A)DJhbzjESnMTj=L
zK8b%fCd7oZJQHC(v-uiWsR_x3EC=DW`{fLb-i8#*T^(F0muI-K^un}9ZcV%@sJ2E!
zHn1N2^@_(a!#(yt94Rc{*#3u4mDv8Dr%Fs;S^vj1=k2OLBS{<KfKG>#jLk(tA;?17
zI)4ZjNO?gq*SJWrj&*AB!G*)H^c*p)Up??=%cmr@l`xKrTSkFSL4``s$e|j)!~|e|
z6+=+HuKPSNZ%f}o6!4Z;T5F%u{HVG`gHC=Fhi<-&$0m)(fr4r3098L?M-RCdm&*RG
zHH7*M3L04AK?b?oLCj~SMU^e9Rh*3`G7jUTOqJm4FdUH*roP3i&s>GFcV+pxSd0)t
zZJ4@(+`HJJ7@T|EXG4t`4kzd{eR&V_3Z(-V7&&)VNUH8MJ<@519Sts%gd<g8T73)n
za-2SWvrU=`9kaedXK)UY+M#Qe^svT+&u=o)Bsp7K#dsf4OL|7wrE*O>#Gf5%@q~07
zFy>^6c=>ZOl#I7U*f35QbLip~co0&QmhCV_Teks%*~Sj2=9(!#LiS|j9qGR+=byqj
zLrK}At`J%dRzbpgw;sCEfwUi~6oqRbXcj51#(XU#x07HA2wikCvv#EKz){cEjqquj
zT=FfO1(9#&N%?HC+FtIT(3FeWozsNxgO>VWDPuB~3n>$X*2&r{YDX!GteRU97*(_7
z9E2)Cr-vXQ!|2eCP8(Y5LnO(Yi2Aw50yU8`$raalOM9%Rtd*E-nBGT?*biB-h$4WF
zaEl$fiz4NG_E(;Ow}dSizn|ivPQ{GgVy+N0DwT^SrHgv4mw*SsFh9L6D{`c<gY7Ro
zjTd@Rveh<M2fIh|6=GR%tXB=TmluLJKMdU~L@LzP(z{Hr=Zn=b46QO6qfpq0<v0}*
zlKVy~`CxOkX!!^g7UEFZQ45lqBB3F*=u%<6IxBg4GGb^}YKe$^OQCU88Ve!vP)(Bt
zDvEIYnbf%2_<zvVKbv=pM8_?L#jAJA2m5r*)S`uQFBEswa}E^s6Oy8SFUJMz@jJK|
zJU?!}$~)gsr)j$RQ@g&-nZ?OBozarq*??-$i?3hXZi;-}{MzE~_w953^<^{$3f?+@
znZUe(x!dFI#b!@xtMn#ITF1+t16zCh(}TP+X8X&TwA1~@OXr!Tl$P)6>PumyCvl9|
z+urr+>OkN`B*7_n25?l|HnyI5Ils;JOl;1vQb8g0NB;$fuXkEFdm-V)C2@M8aJ;N_
zua@5p;xwbABzyA#%Q!Ne@B86hem^f65|I1i!<V^uewQjdA?#&{z5ARhY4>>f`uZuW
zalfL^<fdSkc!ua7;u7L9aol%sY)}Lu1RcUeZ}rc%Sc3-dA0Tb<1|10J|34qtqZ|m2
zc;~#!z*Hb>;Pvqa-v=7KS3cX~3|joZKh(hK;|#JySr9JsHh7zZEq(?DS_$3mY>)s-
zV?R!CEPgD0JRkUMI32=i-U4q)u;kB7aQfJT-=j=E21bo`-bUi^M_CJ5Gv98Cwcc(5
zpWar|I$WKfUr(#|1zepTuMQXrE3JyPoMAk8FRKY4DA|JgMc0D12l;$e%>>VRk47@q
zthx`R0iJ%)kRAe0eyM)-*MDNqHK^9YUqbr$bF9CQ(2(jwBAYL)kVAhrPQKPgj?2wX
zpe1b*OoO2zHHJi{x&dv8A`DSHf(gF9Bo!ARq(=>5zOIA(CL>4`k?s%nsuZI|(PaUN
z{IBa??AMkFv#RFEL>m}1Ur)GzE|GUk7c+qxsrc=-It8@VaVox~4`LwaRc)3r=HF_e
z9MWK+3{uG1!Dd`F(%wmHo(o}JPD4CNJ{#LbNf{Hk2^w4Tc*O5R{)RpwIZu)_(8CR2
z&|R@9qu}x4#%EX63jCBrv__&(-@0w-$gg+B^h=>e7AHhak8GNKS)YTSP1FrhdUwS=
zhvA2!OSwWvRtEQf(j+WwUJvJQyqO={&fYY|;W2&xBEl&ziA*-2c&+VZ9m*Z9Au1X&
zbHDM26r6a>m&7idY}R)*nlfe-_9pn}$Ur|CYq*?IK#fYC96Wh8w`MZdaJir?#~hA2
zQsDP*b(Mv=t3=F?2uxpsr--ZZC5i23*uTXI<)CsmNPbn3v@oRHM^!-J?qnlEG%=(^
zc`VcGi3!Wuqkv9%^wahSKjY<BlQbZwtmh_To5T7AvB|B*F@+tw2Yl=KuJAiboUI0e
zL<vU}p(}bquW>Cho<ujQ&5x_t7@})MczD+?e2f!yTH$O{1{i1Jy*2rnglE<^Uoq6+
z0v0iK9NdmPR&->3=c19=-ukXhdeSJ|SK)qs;@spa*D4Nr-yZ+}8vb9Oh~g6|Z18d6
zVYu1yTI6cQ9J8{>$X)oimUg1dA(7FVvtxVSXTb$8)?s>|-FC@a@OC}YD8GfBZN(ql
zEj%NB7&6eTox2{7jg;Z9G`~;D-RnTipMJ`}-^J9ia8JAWUJBEbGnF6%-F5;*fgN%8
z#MbLlainQ<*LS|wMxA4PGd{^SLU2MHxH_`OK%V~`Skto@ZzGd526nx)VT}P_&KWv#
z<lBSSwpsaqG4_r@wnW*saM`w9b;`DF+qQYiwr%s2ZQE6+Y}+=!y5H@7w<BK1yZs|G
z*4{faaxUyOM^20hp^^^i;bPwk9X_#RPq=#>S~Yx#chw35hmQ2~0IsBP26k=nA1SX4
z|N8<HBNqB+0tZYST9RrQxaY7526h}AFZ;B+SrVwV3wQh4o)WbsABR0$_PjEr%+ILU
z8`XgX3veX!a;&M4VKFz-)4mk(Bc4kV0dq1&Tr0@>y`Ogc_#1!bJsgR>BE}TRBjMH=
zf2OP3lVINy{=hHD#g(}=Eo`nv73Eg=Msy?<B8PRsJ>Lilz}9~QMc9~G{{@Qt!zjzb
z{*S;fg8#i9=cc-h+&VwP59j}dgZE8+M}uBBnmCAMyk;d{7`yt4aEc&MbEcw?_Xw-7
zELNZr;A`uk>XPnX&wJA?a}G>o*^sT&Q7$ZV0T44nc+ha$a6nUB2cR?t63NjpI4|&r
z<%g0<QzbqCfDD<$huNN(>8|-v&l`}dp>Q|%<WQI(5;oVZlZ-@=)M-ewHTAm=pPLx+
zfpoym>^Q0Gj*<0Q@n<{cCC&|`4Ev+RO7g!Y@O%}udmnB`;B#{%kHA%=CO!m{cc4q3
zZP8+s{a8P>OPNggLhvv_r!gs~?mY%Tzd+J}tNNQt<-7#;8EL(PzJ3_k^N9Fu@g3R3
zt2+44nlM5+0w$68<lB9<JHj?Ng{#>lu3Mno{jui_udIajA<0tjy#X(3#l$-xcS_0U
zJ(U}*Dpu1j2``7yLa@p1DSamCb44n6zu9`>OLiXDE&<;Rv&<lYRFHT%Typgm))XnW
zt<BJ7K99sBb}dI>PB$eW^AnRyvbhapl#~2cDEniXA7@TfXk)<q&LjL8>oaUY(50Qk
zfWkp`N0pJCRl4dq!9gR%*0q<Y@s2ID4Lg(xFXDc0t;)|JqI8y5WJD%DJXvwpSd(O<
zWT&*b?h~$+&3VtDoA6f1pd9LN>^`E8fU2C?kj;3ZbMj+C)cHoYWC9m=EaY*Kmr4RI
z2tf3%=ob5(&^7$A3~MyC!!23YbX#eGDHxKzJWI!dE62?ns=k?V(Q%SD-~e7Z$SUB?
z1z7xTAB_j=R^d;90Q>k`BlqR7$C%Mq@!u^^Mvi}3p8qfZD?7*k_+MFB|Kq^LF17U^
z;|zlLvf72wo#3U(lPU(FA(tfVgW-y8#?mOT%{-(+x-&()#M>iJ1Ca@39YuaP=!-#P
z7KhW(#l?lD`(ZH3cm+WcgSBvec3^%nJ;M)^0!sueU8P)ZfIVjw#%=<W#xBh*R7!C@
zvbrX@h~Fa^q_e(n2;q<qm>!LLbKD~6k^T)KIhjGFe0;)TP|8;QVek^;E@(b1#Q{Bm
zRL-q<K(jHoqTs!py5`9aCaApVxbOmWAxx?W2vt#y07mu)wIwT~22={vr~#rC^?p9T
zks|9k2!y=|np;tNZgefq_#GViK{~V#5wiw=9jA9wZGx)&wEBn(JAG}ul@q^1#4R@l
z`vf8$`80zW37f8?uDD^Rp{lrXtFk)(Ed`Jx7Ct+;F&nSt0e>0UNh4TNZ{{8_21qJ(
zUQn+)Foy6@7O|_Jfhr<Qfmx4vD^-FC=$NvCb8VIwToONH$qG3ELK@i2PzrW4Gj%F8
zQc<xnG<inCp+TJ`V5W3PJTMdq!~mMSv~%JDf$#=1V6^Z7M<@{RL>D4|R;5gxzCQ3s
zLE@N07hv82&N2V7;vAj+eb_n>nmhrBV_qMH1uC<=;9k^L@#q@(1MLuse@yXcIjD1G
za>nh<A63mGpwr5zr~sg<y%hKp*~lePIB~;A$7p>KQ9@qJGS*(L0Wm6hloXP}JV=^b
z9}twVfdReQY_u3_fB(lZc=G9$v8^p*kEhpWg!xnzm6pWQ(@l{~pKoPVUzw737bg|w
zV<cey?#wTCo(#OKiU%V`9tv752e|U|XfJaUv>Dc=lPDs5o%Hy{8&8U-r@;qhX}x8$
zrZl_=vzFI)qWP~jw_C%2o@;Tzb!jkPx&GEkPc}h89ze)qM&4H{q%~s<w+>Q7@8Lj)
zA%S5SCi9>`Oh<N<<Fsjz17rs8_mSNGA?m!vfG11>5f`@H9?yl<iGwHxf0?bhRnY9)
z3q7ZtMU~8x=^IjNBUAR`Iwl9OOUv}2#4*vEht@JWIp`C@l95m*1|BNjroGMf!I4r=
zMjrl{0!wu61Kg2@gvht*Hfpp9DuSv{ZSCY&pHB&rTbo95SdX}I!JzUHcVL7KMfUnJ
zzRPW(*Lm-e#yOW3=BSJ4uS5-R#x8*_1J8lSkn89f>^i1Wu@by=j|0*MI+2$i?-E=S
zynB!q=@R-h`V=NJ_j%mmUiHGZ>*Wh7Bv})<juxU_nIEEU21qDOJ!>i?R#SPSpdfD`
zq!7l)k?{x+4jh}FOo~pTd=oT>jv8@&h&F`Zl|c`fvwk38#JVmWq`L)UU?@dH)_4Ya
zxqg60lm-ybINA&8MYvA(gpqDCRqQW*QWBSGL4Bpaf7~hU(KxHHjB@;f!7$%i8;QN%
zSp8v04=6Ge4mcKhK}6gF!{Rf~zx>VEN)GuUDHv#`Y?EtSJE?77a)My-<{g(w?A?d@
zU@aZocWt`&FMAI~0<jl3(<MaK6U1vc>jR&Obe(p0kM}+c;lBB)&hb4aHu-LweV3{d
zJ3r#Kn?(|7a+m(blsA{vT+y!ASLgU1c9PG9N<Ut`yB>a&S8hd~mvkd;THW}!c0>x8
z<9o?(Z=~FR#4Dc@w*P4{zkfAi@TSSWugpR>RApmx?{Mox+njgzc5LJu7ur@b)ALWI
zt$}W0kmN%s9wB!D>_NHg+qIr_;PA}N?&frNa=x*gbXpDltJ}rH<<4<r##OA><)ghr
zdu|sgxUgLCDIXR%Kzys@K6@~AJkmF1d7KHP71lg9q_TAsS%3?DHpotKS5aj&Sv#bt
z>_Yld+wfUu%~z@Z7vE?TeI0V7n~fdo-moaWwC2WMLP2|5<#ggDKd&!e-vSCn0~P;W
z&=(;RZGx?53vKaQW)%&)k8_NDN0-h)hpj-PoIS|cfQ{%WVA{&sLpMAlzh@_v*H-xK
z!3$Qf6MUJym^;!luJG(yqoonC{Csg>ue~xN==Uw=Ua`g2{_Z|6+WeX*f6Mfx6?5%6
z-juJ%b#5ocJ#<vDdz(2p%=XQ7w3|WpW}rSnE3UdWacX39Ck2{~1DC$b5{=E34u}2{
zXn1|QYy-M1u;aSXZ*U?O?w7~KCv}TYnQnLVq%An}X3VilV(-$-JH3s$S8eK}Lldl!
z*!|r4i6fkcDUN3H!L8T@@EJFEDw9oCdaapTEB5u|jeNT@%a>u8hPw0~>)LOC?a@lJ
zf1~!;e<JVyCm#R*rS{n9|3~dHveW;kuJq_s8M}3Mgpli3R3~Y;Ovw*Zd6X5II0AKR
z+A-R-0(6deB?DZFpLzrAJ>A#xDU`mW3w?KKLcCsP?2V%f7GjXa(<CG?zR-*bJ-6bD
ztjxu8b$~6fA;j^PtlW@?1}jNH`?IQXNn?;OB6I4tvqg$Iy_$-YjqG#&7f3&c;v8?I
zI3rObIimrsyiMAKM!jg@1$SEz>RV9Oo`P;%1NDH^U74X!qFUt$_MJcoIJHCoJP&d>
z>t7-yh+tB3nP6`J;9LqvK<I`DW)tY_U`Oj+!q;66k}_tklLCxGrBX#kHvt9SMuA|o
zd{~rAm?QE0UI^zWpd^Gp=<*0aj~BH|wL=a}<B>A92B4VvQ}=<#aUU}maRDF&gE)$P
zihUIZ9C-eDB5N@_s4(2YCg_lbGa3+6?g~gL$B0lUWf~Oq6h+6K`mn)@IH7xot{01W
z=40HjplkH-13{387UcAu54wSdQMQLrnL&to>O(31KoiiX3PJslksMKb<AyXCWNV{!
zdHta)tw>$R+N(jvL>kbR3S=o}4GG3rcO#2wYdb6?pmaH6=oB!Pi$;<Z+_C&3k{0Tb
z`+{&B{C<kToc2E?B*4nW%Cu4TBux;X{Ii6t)Sb+PtjZ<A2WbQMJ`fdtYe}jgbSUam
zw*{QVLvqx3D6O?_<P>8paL`bl5W4c}B-BFW?K2_X$?EQoZ*tAl^{YgGL=@PV^^#*{
z6p|lT$3|iwc5`?)l;KgmTMOnrSSs#!xYdsLxOocYa%E-dQr(vhl4fHGj{|&e)Xt*{
zgd^L>&rLO|#MH6vP{`QY%a<9DItnnFW*a?pP-6EHpT5ZDUE3wEbQ$Ykd)7jhvimE;
z?<NVR+dal8=rT>>mzAet2fe#Sa|+GZ3$9h^8ob6jV^ozCVtTJ<FzB#aq<nPI<VH&S
z@Q2=XE<B%9aR$JAI|mc1>5oOi58q<s{H5=Ax+#z0=hZVm9TVBW1zHY$jq-BpDK33R
zWH&48*DEvm8P5=U3izdxh?<33`_^VIRkZB6go6Unt`LjIZO)c!oyF?(ei>{3=5kBB
zX&=)o)95)8+kxK*e;58W<GFaN&U2{zq{5zXEcFo4Kh^v;0nxU|8*cq<%x5CQnv<gX
zfchpq9<h$*leIaXGx_8>rx(#qJ8pJyH*}Wv(K7?@y@yS@nu34aLKt=L`BH-SJ$b8Z
zd85Xo#o}HWvA8uoBo+5KnYsw=^O;#gcXC_ihrRK>6G;TV?iLlAS8{*QJc#t&A@da_
zXp{I`{>)}oxGfMCC$QP$5C5Yq?{Orh6+3VZswq3!Ylf%jt7+N>#f|D4bL%D|pVob!
zaogllDCu`yj-sJ0xjW7(6t2)yr%b?ib)9PBxppqRZfsyrn~&F@9XJ_>mAw8)M_n2{
z#@`C86{`6u9=4&MT^0p1*^Gb4e64<q-}pb=poLy`W(k^jaaHwXH+?gJuT+gwSo1XF
z!-q#-V|KmMt|4*_+kwjMuJ3!^#a*0>;GD-CznoB4y$m!wC^@_DI?XIJq^)+ad)K54
zd8)9k5@nUr_NTkeO^sb_XTkNC=wwUl?FMrFHP{-Iie2Rjd_4Bkqvw4Y-u^79ID=C`
zzYdjuHjgQo++rxe(RPt1&6HX=-d+Rt$Q*b*_JG>3J&#Jv_rO|}N%}O=dP<eJc`|=Q
zo*M5w`M-BuMh2#TrPTUoaMDj&)PK68%1r%*0#ra5xy?0Ya6!9*HqZJ+KP+8fJf6!4
zJv1(;s;-G(Lde8bV{*)}QD4hrBE+DbPtBWoeVT=w1SQZb@)U95ByZR=jvRY*;7OLD
z`XxQgWGQ?AxAHuCnI>(!aCm6QLfSHGRbNJfmywMqLIdUqU^#qb^(m$=R8JY-zII+U
z$Jun~++qvfx1UBJ>;HjT`zS`<>jZp`B$PcsvT^8AnN&2MVzo54XZ&P8x!UrUyL}GD
ze;M}n094Y>+4*k=h3Q|^&_4!+gY_R{@*fxnn3$HBn3U+{>6w-38RhAjROuNN#TkBr
z4;fiNBCyCY1WXc~+OoLY9tKdQVcQ;fP@-BNc)U?1BP5mD9<qV5Q2hdEp=SAM>a=rc
zp}zZe0F(9{9}l1ofB>di@tgjw#Q&-||2d7U|8SiAClWI(FtI59NUTDyO3$iB->m%K
z^0I<NV3K2G`jh@2fusIQV7~(Gx14S$Qjy{^?KfG#X()aL^kDP66m?oTbWpG(Ffgzu
zV0H&kr@$%vqmXvrN!ahR%*^i<eB1B7@78a?`|D3wnD1`}`ju~e{T*L`J_1&G7!q(r
zU`6OT;5leUU}H4i4u0F+e{}jqL^$-{b(;BKOWOW(n*KrdM(`hWnkKvsj-MVy<oO--
z8M?FC0^2G6gus9?46@Mw<{1fV<M1Hs+~&xUk`qg$#vH~h8g{xQ?SZQVl~B-w6S~ZT
zpl-J=7n-CIl%?n(uS|3>;kn}+ygUpJzS0ms?cd7F_J1!c2A2Q)zsAI{$n@WHq(sjE
zkdGo%El6vGoR{Vg6bB?ha_q?A?syss{Hpzir$0BZmS0rLoGi6X(W}uHC$%j?xF+96
zkTNkZ;_v?r4-6dm=}U0?{S63q^!?38U;F+29q9ja;)A*SIRi_6eZv!;`3nOF0PKB(
zixbVj@Tb8vLs*lpIMy=t!UeFy9*EPb$yM{y0*Ii8ZvC6i(lh+)<ou^lj^m%B@xL43
zE;V%QHky&VxApo)ih36#wv81~O0(O^XS5n6;#j91122-1^P3MWo66?(wwZ*ks+Z0;
zRU+3zp|w}?MGq#^2X^hrhs&u8$%842QB>!ZBFRrJf}CSOEMXvZ$^Y^wm`m`KqpZc(
zDGHA82cQj)VuDab#V+gz4M7JHR1(8eLa8Cer1WF<&q}tIiqrR70WGMy$*HbI5{yZL
zBjONdDh7#<ibjkcfhDD5Y#EYJ?f;Opi{mAjQ9w~hF*cHtNF_ExDH80ZbtqE;ZEK2i
zJ3*u9cq9OkJel|xq*o*gV*StukPpw73e8mhxDZgR+TdZV3An*g)HGji^mkzL-SXJU
zuKRlLl>te+2#sOH|2E^1`*#tRGt&0}B#p+y=p(?cg5?eF>=3Us;>E3SNTroiQ}hDL
z&&>c-HN!AV&MQW|^J~|E1}ix&5CP@GiUg`^jyR^|MH$NHVT>S6Qr9IUv81R=cr>99
zO6)csgr)W)@>N2S$P^+0#~hJSAkbpG#Od###urH+JoIKLP$EG&D!5BBOHle7#<~Rk
zq`2_|o0JxzL?w{YhlM=mA>l3wA(<ChNE{T=?kY+OYtIuE{)MO_M?kVDV-b<D{MAUY
z3gi*8q(~$JOA}mj(85jl!m#Du>K6hzs6|9X22v0Z#i&r9Gem2kKky#xCI*qzHm85A
z4pkwns6I^>j?=v4kx=VU1>az{y%31OyHKFBsk7L1Vmml;_FIKcqI_`OR|S6R?kBO<
z4sE-+r%Q*`cj2#@o)_U!&EQAomCLUqy1|CSGfNFUc$sCi68m84+(^2fEFMpVZDyNK
zh|lh`iuLuk-xSqnyU*>myNBH!RU(VD>P=rZDzG}aUO;>A__AC{W4mA4Um0wZ_7QAN
zY+VkcK6t?}lzc|k?pR88W&r)*fPMBvc^r~=m$YLo^YoVn39-l~Sb6Kj?u%7xL;m6=
zb@Qb@Y}jxDiqwAuLkflQ#hfTDxuqW*xZwqDZ|*964TKyTEZuidp!E*AoVJ!1{k#cz
zmp*5-)mrvarFY>yigpwAGpp)w-mc~a8o7OtWUs-@U!3*+++5@l^42goB28TsDA0If
zT`rzd9z%DeBDFk<l{3G`&Ai5p$Og1;;{HZJB>6=Y!z#3F8Y2b}YofjdQuD1D65Ivj
zxw*01*Bv_6hWg}m&M@6r33XnHRi&-Bz2Lp6yKD$ZhTWQ(8c8vTcet3SA9l@5?-{h=
z2N^p$doIE48nyuuH7Wyi{~jv2$;P&_Q*=k}W=A%~c5%lQ1RgPev*!@eLFmO~v2=c&
z{)^)(#DOSpgE$;Xqb0I@+mY)p&!5=^+AcA9eHV=K_MQ>(dwH*9dLM0;<(`Pta}o|i
z`xKaNpVF%<yK~}S^Q#`;-wSM=pLJ1-^>{JU(4tlisgI5>TsQ-2RzsE!C_YAU(7o=i
z-xe7HTf68wd=Dy-6VhdT=&qZ-H<-R%<}XI|8YOC$)mTBL-o7Lr#~dD)BPG{s9qqV-
zndNrn6~BbsKl9u1&%PQ2SGkuXwY@;O7vcY!T~pJlJjj7t`)}+;D1p@BIUo^|o+7<8
zaAc<$`ph;BSbtf%42e;>o~?eopT!K@JD3LhstIj#hq;<4NVYGeJ~SlLB`&RMfa7jt
z2BWotoRQP}4V|lgvUDR^$nrgGK2jN<a)r^+4t}h6oOyeb(OO8}N0#Wp9pjhlVz6ZT
zsvV*e-6}O;@KVobm!r^`-Pf$2#}H-Fs%?mj2lYrVQ=b8!aTP)(V&=X$wD;mV;$$_Y
zu6~F(CAtnO0yyf<c1iz@Y{o`=gk_(m`b9TJsG)YM`v<9xaue(^B*CRzz8_383&D6-
zB&>wq*)FJ(CAMUUa|VnCS{vL!q$$I?voUzWW(fl71hK{aT3kp2OA4=-c=_nOGU
zEd8?q&bCNAZ-H#^wzRpZN0e*WSu&GB%;t_|NrGp~d~!V%tMV?Z3Uzv49DRB&s%v>+
z!h_SE8)eAvXcwhh4)GijsgUgbLO^7YtV;eVj=62fB$qqZBg<H>ur;QTF-PevpJm@=
zz4Oq`?roTLAybvMN`5*^K^sGEY%1dLV%Ey)I4sctg+b`HRrt&Q5AwI&x7qp_=*C-*
zLNCqY^<8e+w&>NOUE$Mt%PN`_F?2=AqMg#p&35IsgLaQhTRw{R!5d~PQfecY!VvKy
zQ8{`9r93t4lfht}RV{j*R$KpwVu4HiQw8;_0HuG+ANZoQ1Hb5){t^o*@HvQ(7|7q!
z-;a}&lL1<KikI^V#%u{yEgIw3tfn){JoQoSVeLjH&Ej3FF`l^Pv+ch$tDDCh3$vMF
z)bxznSd?u>3Mo`2j#4ZUvyI)}rv5-l%`<IWn6+*kw0Kc=2vikq_hfFqv||*r_1N5V
zT^ze^{I%<lAu~cOhLnKjyN8-$l{lpWzwrS+M9tOA;-|H*oKGJe+o$<lCC$dkvc+)-
zooA3t9dW{6CtLk<F_k{`QY7XJO@T^vu>9cC_POUp9o;R0If*d<*_P}wHu5M+tZ|^*
zGz5_mvr*KrD2tWxoFtp8)G0GuXaOW~^yK*Ti@%~R@ZW#}29|#f0Qzsl#z4Tp!Tf*d
zdKn2ASlAdD|7qO$!QuaG5-_lG(6j&l82o<+2T{+U@>x>%p|JZ`SJbq9o0~MPT+|@0
z&pTIFK|3I>zgjy$TwURx9H)sn{(irgZ?!aAK6jUR9xe0C^SJ(G$QM9$)s|&5$oEe#
zrRSvkhl3MP(iMzNg6JC>n*1F8g?aK#_RU~lW;ii|xF;vZ24)lY@bC&^dGYrnX=(BI
zp@p5<H2lLuSiO@_`bRqkM+XLmK(+J?4&NiQ)A8U0rU#Y=P;q7eqbsXG**oOImlr%Z
zG?P8-z9%2Yi2OE!!1_l=M@8?Roct?bC*}r*#?WzWj$c5Huky?c^<bqd>FNO4JYQyz
zmfdvI(@)${QMR_WFruuoFu!AtfS8>D*r1Q;08H|bXJ%2&p<bv=`~u=(Z??-AdKCba
zd(_!KC-Mx<jxJ0OAV9oe)V0z8Y_fSvT30fFZ~^hp08lMBdd)oZE_<>LzYh7qU!IQu
z(lFD$J2raEzMJBLFSiq;rKK;dFQTn^sI8{}P0^P4d(9v@z|36DIQ`<QPW56$mt=qA
z-$!dlQ&&bu@!@>IZ9)(bR)WyKjoxg(a-_3su5fWNuxqG)Cll}MO?X*1v{sdsW=F%$
zEUiLb)w~Q+<M@-|zhCveTn{wWH#s#tzQLz!tYl<-CWn+o@)TxN1qVXQYhG;g;tSdP
z4o~_|1N<f<Ba?-r1(*Q@aAte$e@XQ#59PVBBfi%gz~^{zTU}oTp5&bacvDXU<n!6-
z%!<<X2QU*u&x>8=gZ-AWpPU3xf<`v;W0=|KN4xrahCjgH;Cnmr%B9%~?3~6s9*f!g
zuzcJj=YfxEYH4P5c{}oXO>ByS8XvEa`t@*~^lgQLSmy-pHrwC?aH6r24lp^1V+}AJ
z3!eL}BQ`s_x9#v@RNYvWj_dcXx9f8;?<@HG(-l_!yF<Vn;JYIwU{mZ62ynp{N+&fu
zd+cC8^7Y%P?VIQDTQB*$Y5dzN|9d-(M7y%;yIJXbV)uK**4W74^42akcHG6`>jcQX
zBUZQev!@!X*SD!UEW7FSyGeoz+xsD)wyN#Xw`I0pqQ4*4yxe@(`tDHg@UF(8sRwIn
ztskw_{Mh(*c@Zej%+&CWuQ~RLvF@#vH;dQu&JOve(EUqIabsz4`k{u_=#|}oSWJu<
zzBN|pi{Q5(`n?!e2GHhrwIKj;U{&`02uiP*BQF3Gmso3$Y*HX@FZsvvOivhaFZo?4
zJ72^ZyaOP{&=&%mpTbAa;24O0(u>d}fan<CAdr62n@}Zy=qcYr{;%gy-iL$lnb4em
z{I{9+552v&8Kn;)e5i5X6Cr^^_&PugmG2p`X3L+CI-l^~rB)yL@Geu|NY9~DC-B}Y
zQ9nN#lYJNWOvlYW;J?(N_xkRLm70F{#;Q+!`{VCwd;s$)SAF^8*Drnd!s}%6z0BT4
zHUC$$!*?gN`jhX*NDb%b!gkr8Tf7~<z<q*t@4z*9gEoG?6vXr0|6V8#k1X6Dx%_yZ
zx>acW-tEx?<<H}q0kL)On+{?dt!FL$tkcBUj`pz&@J%t4BaRN)vRbVhIAlX|W|UD`
zT816*+&$RUO<KftIOEFK8?4d&Me{h5UllHC^LL95>~?(K)5cy(NgX&b_*cKnXHYH3
zL%HDlRt?<N8KCM8P2LZ;lRF%(ws-{SNvy4R!j;RX36&8cw5Q~|3QqkEoe9&!tffLb
z;7<|I*WuNB_9FS|hamb!^VF+RC)ei&^R~q6LB`wM9WU8JjUG=6yZS-yDbH$^(t386
z{e*qXeT0DR{Ad{^k8qrlQGGg(WE2sb8@eO=kP)~~s57awRFx6ZN0mVb7|P<~zYnSB
zg1@e(U6{t48&%oTl>y`x5tsYiK$VijGf2M(uxS}a$!c#rJxGa_C1yZaJ{M+%7Q8*G
zmqgC95h4c$aJ=aagq;7zc5kL%PTbys45`~P(@=n?TZ7fhK1uB|ElsvccE`5f)haoA
z=cmekd-4j+0(X(Nnv}Z6H$-1?%Hel%p*QahHq;q@8te_No<CQ&(hYFJE@HT*`74ow
zWp5a8DNR$`Rfb1rsR=mGQLhk*n;oud3o%+?OW$L#%7R$xV<}1Y$gs#sK$N_L#+&Lj
zaQz(zQA?Vhm0g|o8;@6<z42&3ggJfk0aMxs3D5xS&_3qi{w>BWW9dd4Y#6@A$$I)0
zB_s;lQ1R{qZCyqWyVPPW1bMISIqm4xoivDr*@tTDD7tZE9zo9or`MeH!9;df+fJk7
zD?JaQcfzsAPM+8;s{#v_*fj|Fw*xXWAy=2M$>bBIn06nRl<^gB&;-gdm&xsx?GGl3
zmz?D1qFDv5{(&(sru2aN^pf2GM~_9@I4wGYD}alR{@fvLGLGTP0&-C>dcbW=Zfo>f
zKI~E%c`WH*Ml0#q!g@C!WSgc43>O<y7_ysZimL^>y7Ao+`2vAg3aRPATeOr1BvZ5^
zCFw_GgOh-~UnBRi7Hjjp#ds|?-Q|OB8Vi>fdS?(wLD=w>-H|>jQ9_GPtsvT3h>}-n
zn}g5?IW68)>yn?9Rg)w4$q~V6fR+Gmiz9vKB?Gd$<R$Qc;l}CQ#`L2l$S);|JYfY&
zR8^*``7gq~NoBusis!7bSyKa&@#P&oP6i{<+XITDrb!z*)6tps(6Je5vDz#%VbSr#
zx6%bnI>(iiQsY7rR@-xG8)KX1!WgZCt@!Kta&t4s8HsQYCEde}p^)pI)i+F%#LXFO
zs^4mzsQ4PfF;i;io3>F^?WE;SJG;Orlo3<Z?ncs}V|$end=6PD$WIx8mm?lLoB4CR
zRk^vvd$I$C^JV0hM0F@lsN8DuipeXgduLcnXA~k}pm#V#HZ@HTj_UhsjF?WLD<@5Q
zy0h8zUzD%a6(ZCAf9@&xWw-;Ze_rx<zwaqn_Kax)S0;WE-+p7pT;X1(%oP5jQgJ{$
zRAv-Ym?4!qqf{0~2R-<8cCZdZ<vXB>Qy0xPyhd1SOl8@)8<eJA!Hn`wNn$qO`AHm~
z+au)Ad~D@h4CEEtGy{7jC5C*qO>dAhD?{EM?_I_q?$bBcO3O(|_+A9-$VJ_HDQDwx
zdEgL~_nBs&AugN@FB$4xq+IZA@%`vWnZ-z?lT)A4fY$`dGNj?Tk14nuKl3+}N29wn
zJ-hLW%Ek=U5q<Zx#;E(OG~Bo@t(3E!wGEqTLQdlL4{<iGPGR2jueO2Jq94v5c)iiy
z2{vu#AfH!jT-rohkbc-q$&twU{y9MEj;F_`cO6WRtW7O_dMN`sq{>0h#!Be&2rp?N
z%oBgc8*rCE*8+#J86T04!Qy%@by&l&lxCH=B0P+Y{1=D{!|1Kpq{~+WzUxX5IGXx(
z&r~@De)^fsibB~aEo~3b+epC@E2Izr=Tr1E8rjvH%`rO9ezGtho3I4o1_)4KFS4a#
zVD!Xj;T*~WMVXQv7ROmq9E4R0qv_Ah!FK%$52Xxup`|0I9b#NnNDobBXoQ#v*Enru
z^eQ0i%q+z=cbkwrZ-$vmA7$@o=F%AZs`Y3l2A8&k0caKdZRp-6Zzd6V#a*IB3<889
zVv+S`btgh^v~B<!rMHNdq1k;Z@f;vwJ?D*);Z5I_rwGnCmbfy_M#j7iO>RqSMqQ1I
zSum(^tS_wTv1=g>pCR984#wl`lZYCTYH<|Gi!dbhxbnN26ApKuc5<D%x<fo8*>4&A
zx7yU_D2?*K1OPBiho#sT<lWxY1Z2FBCOw}iqxA-I^ITgg`S*GW^Y0eMkb<z_-l?mF
zvFFHn)Ma{?aCe<uI#rh67SVhJYzp<Q1Y!BTbA+_C=K1Yl5Cf=1w@KQOZL7W9>ste>
zX!zDZae&R*%t3~$BiO?pffF1v*IwxRmJ3Iou2OR63&A0|8j8ePy3h`)+|e3@>A!cx
zu1_447c08fD)jMTi)i<V9)(;u{ZE#N0@v5W${2#^tQDZt`usMpwhh#2fPi#9dN&MJ
ziw7y*U?|CAPoo<Yvo<j5xiB$c0gxw$H8FVqTshHa+>^e?s%S5rkofGS<sx6UN>w4O
zkdAgiZ*h)eYOw%a0M5;x2$-zK$hbmWk?Z+*-4d+UDdMYOzV%^J!hV;&nT(3F+`<`6
zT^Y0Q5R!+yfd_<?C1yMje+O?}uR5c+Uu%p;xhbWK=~OYA6gf)3`yP<7Dp@AM2Cv`-
zn9?aypa0r~@XJ}8fv0t8eGr?8l-h;%`5F@&;qrT{?%w9P%!z)-Wx2@@*vZgy)i268
zIHkG%BW@JKkov7W(MYx@*zRTFBId13x~6!`ngN>SJ!z^*GL^S4LLr!QeT8)|1Lk#Y
zXbr}UUz1Crll(<J^32m<%{gTI9*%T9fv<Wwu3eP{+ae5vc4HuK5Y58x=c6XCquSgr
z4d^eg^@!d$U_C&Iix@sL?ZU|s!GX;ZQ28YE;DMOu%SGePQdgDzj#fbpa9I5;n%$}N
zhyTy7GZywK>1g!SOB%*@R&X`Q@%lruT~~P>FOVd6E%G||vyja<N+L+md@MXs*Z0($
z>tdUV1*cVjl#YRvp^f(HjNSl4&R*3|Q;!idob0mNAV^@HJ`C7nh3<TP(XABoAh0=a
zlK{!grY-!obY{LQDF((NBWK)D<}^eP(?7@;3Egt}fo>PnL3HzBQ6k!Bzo9-E;n^cH
zk`NmK!?@U~e}Qf~)}7Kx$66D+%0wQrB4KpdI}u%=u)4~*tH7a~6(n0FE?{HKaedY6
z#uRs%I{|!VgeNvg)o!$-#9v1N5dMO)<OLovvZ4mYe$uLL`b&sLXEAfzo1oJZi`^+L
zpwT4@_L`S~9M<NJYo;aT(9WU}UCk1A!FbTQlPcH<gcvf#I)l?TaLix6OI<LLNvC}W
zQTBXyiA|z#iQA1iU7Hyi+JYk5z3dQ{L5G&>vYa-X`GHDkj0GhAhwrRye%x?kj;y}V
z*>n4Tu+wi)*jUdp$SOebq?Xk23Y!v7z5g126(<dagY0X^I5@By*5RfMu`u_U5V6l+
zpK13tUs-g5auRbnu~)v=rv{`Gx*)L|lwx|;p;oL*3r9y$D37l4<nS3}+vd<8WZ*aF
zhnmz}uiS(XYQ5@gnB>LEt_Ja(ze!3V-5#OZa5?kwsLH5&(JY}05Uj13RrOyNt*wI<
z80(SnM!^Qz04jU5ScAkTg2&;{_4b(B*$wgjLq4{q*BouW<Y<1CvGA*AQaLY5LhW6k
z$RTk;x4ST7d-QA#ywT#1wPMwTi-t<7u2A$N@hqM@PY|tP9DKqK&qy<05orYQ8fTC=
z0GVv}=+L!+I7i7*ysEM&{n6IDj>19cjP)DvWim2H>x19hbdbypl5I6cTVVHgFaxOW
zkkz6inUtPoomrMBMyj1VT#gV#L?Or1s=>UqdtIKRuwU&4isNCx`$b5nBW4-oi}_m>
zc!}t=-JX)AdgE2?+N%rsX3+Qi46!rDESkUS+o~lKK0GvLjremFj+=BJQuj{(qNJ30
z&p~+a93x}e?y*phGekp~1>C#}Yyw4sLXO{hjnp^xtx^IUAH$+Uk?#Xtb)Jh4*bj9Z
zXplv@D~2W>=7t##lM7qNV4ZUOL8x_9W>lxu6*8}R8%hMb#0hij=s#K~!+cgS(&UJ7
zkwiF<N1Il-$nd<$R7R{;GmyL|?N77>eOXtiPHCmZCLY~)bd-4}q8LjH`*Vqxn5E-<
zW|llWk~6djCIMmpCgu{pyq`6*Ik;_yM^&C8$DujFf>yXIG?Uz_kNEfO1%Z5{iURm1
zau>~(N@3btq}%%5PI3X=I<Eet`DFI;ZE6XE1E@?Yu96ha{GGUwT`#53mj)B9e|e<>
zLXla^EmoA5!!z)tms=n6o@du-{GQKb%HEI*R&JGb$2(ilB8%3^=)d?xV6IqAn0e9f
z7xT+J0$9zcrp<V~bP|g|3>wuSE{geO$+VBEtX*X{#6V;Y0i*lt__#&chuzK|9TNZc
z3Y&o327K~r?0!dw_q8&+j3fwq{t^wNtGCC$J^#%7GZOHKGxbhoL8E_oC(DZO?f9$K
zQ)X(|mh2P9G`$#M5QKU$bePZcxR=Qx5j+*X>1cP)mQ;K%9E0_5^>h7Cj2E-nv%DhQ
zs*&&``Y}uH%lOcfR*O(;NR7F7Ut%=c73?>leQ00O9$P<eVy`FSHJFE*wG#5{Rq_{z
zdJaIgDjIP9;Ju|Hp}8n6sCmMH+=VL4ge<3IoD((6IAn4JBiX^e^GE3&bMm;uz3gW8
z(bjR;Lt>Lfn4DfKh9HA@NaQ)_{`RUD0pDXR?Do+gowSG;nuGhTTm*?H7ggVTI-HYb
zGURHx-Z8qWjx+&4&af5;f<PCFiR3;X@B368B%)_swE0r$*sLxSW#!Vqxm-!pVv~ff
zby)T@PaRzIg4=Y^Z$c*$J6TSl>95T5@x1v??S*iWM*l=vRxWgRUNHpI0vp2wGCMww
zC>z{ewmC{BO!FEYD|bmLWY!Yqx)O=zy@3QfH)N)rb;PLI$7P+*>rd;Nv;mx;1_|br
zpxj6wOaq{|D1^sLZr#Gi`*Ab!wpljCfopv@un7vN_LrB9W~rAdkVLXxwJqvkN|Y|h
z%B#AMm2Qd7>=5?XpITX8+6grE)UrJcb<6knGRJ%8Xlvo;5=J&3rmOWM3Ak^`M3_mL
zN(Org8}n?kJuSb0q<clL{$%yTJqL=tNa(=Zj#9ut^qR+mSth7o28%`s*n0sQ`*-kk
zj7Q15<`iELnQAr^o4_CrM@K=d@~<M}i+WB54;xs`L*HP3;+?{UJWj-npNby&6CIJ2
zuZa5waG}7WPhMEyOA`$VT3+jBCE#sm>1?O1Di>V`Xpr>?sfr<oNb9)=V}w6R9(Pt^
zeBDGz{2gF;#MAR9o7TsH6M7=NO<GWZCaOSDT_F&+FO$B|p=%{NHWFl9C0D4t`(ujS
zROKkBvPdI;hJ&>?jP9V}J&zjkW;=JzmMjjo`c<zjX(t;h-{L-|woyE}&2f-<wmT2?
znk{9w#L9#NN8LV0=#yEdP*p*&uk$Ck$UsoElG)qd{U#48E0i(IWe~whYci|Y6T1E}
zr*W^79b1lgpS?8XH;SzA$-sC(5{mi?9?yz_Nd{Kg-Pyz<Z$a_C+~9uU>XA-pv1yXC
zP`eZ~I$Ne!dzAN|FRI53(6r<L9LV2^$9yd$uv<%?_qu4-w8)UxR%^1Tl@g_9sSQfB
zNx8>^N9#@xKjs$v->7zz=B2VadMiX^6P|-63!h}ptsU0g_W{A#oWq110rA4XawBr?
z=bMja)4*z|K=Z?Mv6Oo>94rwrV~ppfNO`9DiD+VHA>djf3#4VAtTeytTz(fvvIM;b
zWx%^KzE*HtfmY1KP725ujv}gvkx0qS+ySSdWF4$rrwEY6>>Y;LX%n3o@pGU}!fN{l
z_KjVxd!yG_;*sAZmz1Ucu;F!P*q`$Ug2yX)tO(tEoJct30FW{4Y-hrp%nhJGA4C0l
zl=rV4Cx$QdtXaIO1ca8lw6n^hpM7jIPM^==F`vRr{3(Fy<DiOD0f6vAP47${njrnA
z%c5=4Gq49&rQB|12^Z%tu@34a+CSpFT~jb^*Oxk)W_=Iit4MeTWgS=mR)n{PjcUgq
zmjlOfs!*a@Wqod<v6=N)zA&NVmQ{`2slgjlLP5uRr*i>NJ)(JJfP<Mi?pez;mG7y_
z1L3-4(lcu?{J3UNTOm%EFm^;_bS_Ust-5ou{R2%8b_I3s?@Th95eoS~DmPc~5Ohm8
z--LTf4|em59QPOlJmQ(lPG3`uoEj(3y4|pC38j#9P7jbclJ&7PS|+c<h&2l-+>AEy
z(zr{m{urFqHTTm7;;6BCn>Ts%J2QSl)Xc3tiI~VVo3Le+U?R`uj{4rZV(Pj%2D&ud
zrp%N2JZ7SwK*lzzbrF*C4}IDAz~!Sg63~2wF15Qev;w%E4lJ+(m@GPMM3KZDuM?H5
zm(U>H(&-+g8284<-PmcYzzE!@=|Tj%g~shGL$Jna(xPN^t1n*f*M5=_Y?@n<T8vZD
zB-Rt}bN^Dc-nOMzRnb@UN^#eCRaA`;!+MEP0;IHj(?^c4`~B2H{&;O#bRpOuUkm!K
zHVlU`lIH>PoQ(zDc$RAven6G&OEXiZoq^qpal&%I04nyuUXqG4o8|jZ$@M{UnhlU>
zXBxLt`imB`r{3V8HUZTLPt6*bt7e(N?){PnbvU_QvofXb>nSzMfunp|;h^C3X{g?j
z^g6=0Brh+1QqD!?po$Itb0B&Ane5(<wL23tq-l*>AyiArU@JaONw=e)k*rK|JT@2t
zuDN94e3VK9?{rz_`M2SINVy4PK^;N`n__;>xM)R7U_(#@T~p0ATB1B!?10z?c)f7&
z+ExM5;pMLvXT!pDGEga9|G-ZDwepdcy4(P%WEZGPys7tJk%ij~^uT}W5~BzLJH#h&
z;vTG`&}l2U*iu6EEnIa!?6+lc@nutMI(=_$nDa}8C<nv6t`zQtv2>FeyO|RzkrD;V
zIf;)6%$!oJ?D)$P7{F}&tWtT^;)W4*Mjg%R4dZ0Qim^+D5pK|BZu}Z#Lw1YC>lmbh
z{#3SL8(eKu9zt%lxMf1piflR&R*E#9Y5-G8zXcwZ1VS?00|^V~$T9r&ZY;Y$uDwN_
z)#wlao$PltfSIth*~sDPO{KJC>v%x&K1kEYxo9><`wIqm+A@Kj*=pTkbyh$`1X%0{
z{`YEsQWmTjwRNGLnwV>?BYO>|p~5~P0N!f-1#pDF^P<!vby&2TSlD<;<~<3WR+$03
zeb8Tae1ydqSJgdeo#t05?=h(8!&rTesS3ze;C;}ssIh|XBnb~g9Ts{C3;l^5#C@<N
z9p^{RmmTpo>b-@D$RZ9><sE+lkn1QJ0|<PjX8A6n#eqT1bPg$GQg}HyOA%tYL~;{5
zT_nranyMMUX)HQexm-WpoNF2{q|CxpMKwh!9MqPf7;1GEI7ZW0QitbDv;8hy+X@?s
z8*wvKy`J)ZcjEaBdlzNeok`-5vWyL0S@OhR1t%Foq+;wySBh-${7Zp+cBY362b`U3
z+JkT90SqlOnjd5FTgmp>aby5-d*QQ3gVvthBx9hAB{VRlX1x(YGcn-+%jes@i*?%2
zd2@yM2nc902R)P%!V-+K6MH8p31*f4L`B7&{F@qmhHxLkg*arQ@o!bvm8IQdI~J%L
z?y2GXDgl33q}Iv`4iOHp1#J#)?vN|Iv$cblw%fn*2v&$kNKVn<73q34QN>Bllnf=3
z;nm`nmmkZFyAlGWtJc+VaSZNiwof2Q1ge8QU{*MHf;gLxzJ?^@3>A~NNBdH3zNAG>
z5Y4OpcswM3dtXkA*XUZ}bR;UIkiz<-#QALZwfamzU`G3Km79E7XKf0IVA!?=sM2aW
z;fb&4Gxta=ruv^p3LxkXv+4D4)$BbA;3S+I%U83ezTB&wfhChCaIRbT|BA}9rjdD4
zspji_b?oO!7qCMbuM3ST;pEZ}((<v$UCum=Fu}B>gca&HL||boTS6OQi~D$o<y^BW
zI`CTNmp1kv<$JH04o4X*Y;izNaiu;<Y0S5IO5})*+7PMe_k`zeS>6K2f~{$d-$>ML
zlp=TxE)b-c#DB^1$_N_^eSM`@*Z)AKEd9&icW3GfRO`rZ%UeOQ9E+WOtU)8~uuDMS
zV>0Cg4WCV%E<cs|rwUVpq>f&+?;={@wvV`sx31M44gOYnH>HZiXQ!%KPEk}9$C=l*
z)pNlFwH*s)GSpvM$y~rm;7pBCQwPswP{@D8ECavl=o2j8b)MXrgWL+`{iD>HRo2ag
zh~qak>%1rQ74-Nct#<f-BX+J-jFtgR!j}*XOX!k-MrMq2bG(?2)W{Qho9hHB5Op)e
zy_|}909+onC2AK!x1v-L^o%ZY)T_g4t%SU=7)R!HC`QmU4{VBP`EP@^aHv?ppH7@E
zYi90p8oHJ$a!QjX)W+qu9aGe9Kr%5T`ydt0yxnOv;p5FV8g$}c{^?G~grvb2gAuNG
z;OrlbY#H@2Ax0m)fEA&^#}4M4Jz^ImkS%EzoUxKE+fjqo<=cf+Vb=U~oHUzd5VJL6
zIemZnMED&{RUuxTT~_0{dwdkZtlZn~OLg1u?oC^WlffW!8P~7Fci~rPkLqCA@zk$?
zWr1gGI3+wW908vU4oLB54eg0#(8^));8mMDM*KE~?zhJv8q0tvv}K{*=*%p<R;0&Z
zmPIMB>gi8p9L`n+&F7*nil?4k8_%jpBlY@$1kjGHF$^H&o1ld1G8s?qEXO{K1K3iH
z{ba8p%az%N^M3t-i=h%Hq)NPU<EBYqdAfl)!=Fiw4`NvH@|DUO@rL09xC_8af9?n{
z@d!0@2xhlKA`4x1mmDIGYz`4P%9$b@IKg?Shiw_H$WEp1AVh;1us3|Kn3QknoM5zG
zy2yT}dLM{ENCMa7!A($@eK>hmr9t(X4onK#-+i3#x+7W5%D<KEj16M!Bog74_!GVM
z5GK<~&#wqp-LYJ($CeyAk<n*j88rLCnWR{7(6vZxofbTfT~&>FfZ%tD{|@+k{?t-@
z`7Jx>YvC|2eRk0K?2Q>Z))>3+whF1FHM011KzOsU6W;#HG*+Mzm5wEPj4}xrM&^i9
zWIU|6<<a^U4$NSqM(VETM8t+C4tH!9rG6lB<yDM6)G%-g@kmOUd*WY_MNy~}1+|RD
zvXPZtDsH?hG^yIWCxPhVfhgFOHx|^*u(v;1cM8j~avIqdI*z8Rg>Yl;Rz4Ia7ayjx
zPmYjX2V5Oh_->ro)M|~aUkc<95J91XI$!*kM-z4)5P4B?&aRUIC4uRq^;ikIAADQZ
zh)X;#K@<72-F;lT<!p<RmQEQ`7kN)9bX8xP>&<m3sm$@$@asWft*-8p7k9^A{BItw
zG~yH09dSmKLpOt8&ekU=?e2X6usqu{OW_XkAZviN3d82usH;xr8`y+&FHILs$(-lr
zW`EkL1f-wlNV39tqY~*YR01ri--B*aP6{`FaeIV&>jt8X-%cso=RSD#oB2v_w!Ddo
zvGeg=)weWL!7jV{5n1@?=yNo%hZW@8yZBeLez>D|Hh7nnE6$n$5ipU!v15l6)!$8T
zST$wpQ7R*fx`|_>0CnJD%AvFpw0>C{Ok@TI?)eD@6(WGzGmB0ca4Hy$9@o!s@Vp}p
zvFLp@Db}CfUUuXq8z7Yv2<1fOji3?b7q>7`(^MR1H(<rS(s>9?tUV3g4JQ2BDq)+v
zzbVw;-?NCP=1U#;NS8UJng`SIG-a{LUw0RPFu~xa)36>QX(DhxFw7X7&u$Zgl+>jk
zmj7EV8FB8nDi^U*p+mF{vfE+MYts|_Em^IaBf^~Z^~sAUkd&&M`7J4MP943{#@52`
ztktxvkYR3YDh{N;#LulFj({P`?{`+-W6~JMpeWOadgAQkKT4i&QM^k2Fz{3I%!_SU
z&3z4d$ZY*76HA~Fp;Z=dNbBzbpzYAy!KmSou(e}vNOkr*?ISTt^SwelVlw~4m9WKC
z#}Py}hxzt}Y&$r{{*cKX9fhWbF(^EM<Gjz@88&A&eHEhs@~E+ee`qm4jh_=hy3Df4
z15fuiNsjOY{0`5r;pWNay04<35d5lKGk1^35CZ^8+$>}koFGP8d@gY59OGU8rPAyT
zOU40<$T<B6gsMEicn`k!=T`2l+qcXUuJ`PW`ByPu>w_Z$^%oRk?e%$V@?}QO5BwGn
z3O;BRf0K|BAuIPXMOzO#D%xyiIa!m*>__fKzu9s9tFheXKeRfE`Lyq-$4%|YF9<Zr
zi(rav4OH$x&mEX%%`ubQD#7VYG=~SMNj7#+G_<1j@*k|nGbI+Tk5-MjMXtX!g6qp*
z_@KddFGtnYm}oMKFVq^Yr9Yc>O3Mvzbo;pkTl0}f(%^Pv1>B@=aD251?Y`@mX6!DD
zk@kaia4fhzwFDq;&zXGyy@^EmIr=&zjWgnqn-#crvoomDjo#j*0PwrHcupNFz=|-I
zE+;4OE|WUu=CqE)r+vJOxonDMd&pJXk)1@$->p?DCY1H>p^lF%a>+=Z(CBj0i9RPI
zCqOuMujx@DrCx~QMw=`J3A=eg0_DV<r2ud9VXilb#YLLsG3<tR?N-mRZvBv88p0aQ
z=*8UFOX(4<Km=tK9EjsV@A5{9q}vNkb1R*~qDSP^<|dmSj6F;o`Fh2hJqwt~+M_Ad
zM;;IUq9OKzjXxUICNr{i>pk}wa*Am^Vd7^r&@fMFwrAXUReOJ@d=n>B6$mOSN&BGG
zotYI1aGmsq&1TVXmRnzz+y+O-{i+)M)sq6H#<@{o?*cRpA~BEKYhV!Tx<S75$xcdS
z%F=n7jbdenoBI0aW;m`nl?Y|yIyW}28w@R-5iAYRPAqj^LTJl#i`xbkcjp=oqE^ku
zBVLJKw>9~+mVxG2%dTi<$=Bdyh1=8Nph6+Asd0)a5DF5;ym=D&v0}{3IJ&y{JM0Fy
zhtX`q^KRFgvUT*2#kw{`Hc|Ll7<`Z_d8xaUX+}|mAUY>)uta|2Y%&^h`UK&}!?+GU
zRZH;z>yqP%)+)}SKV8#rNBQ+mu0~{DvEfG^*x?dmY%Sl$dwyt{9?1=J>npD82I;;f
zvM$=wE|&hx1gd~6UbLR|NQ}y8&oO&FztX@1n1jW$TS(IM^$imB7pD50+7O|gv$w~z
zl-Fd^P7BqD<t8GUC#B8z`7Wgm(@u5QdQy!>nCg^WM+fstSIP~MJ~i9<g5pW!U~A4h
zE?pnKz;b)~O*aVpWy=rpXgeIJo4zeQC(0ZLTxddYxDE~j=VW&JjWbi0iP_Fd%5rcH
z#sW4Bk3=Ll`u#?CQV5*z>qM4U1INXyu7lUgNLab9YP{qOGFPdf73lTMW5@?RWH%FA
z<!$fW#f&MIbwG^>K+?(Gmu^_F4dSU4^H7!h3?I2}Arw-H_vLY#bO{U+yRc&A%IijF
z7+7sS{<D6{NK!r*4M!;qrn3NyybPkdfWk#GA4YrEZIz6h3>fwtm_=CYFJ~OsI}7DG
zN3SYu)=q-arv|H=FLle!?Cg&t%rLy~TS7Vv=mKTj<=ASg&(0#kgJqJaeAFmX&_!<j
zUPH`6D1aR9?g{hvOHAOqJ62616-7wI#Oyrbp}+wk-<#CrX!>AO>l>;lm*N0zZG@44
znEbUCW~478M_O%>#gh5Sf!(XWzY+?Z`J%j}!3>Bu)T_zK#<bCVI}C#Bb{o**#`#VR
z%1u?0XOZaE6k3bPpp|yZPfFoxwS<vum57Nbv{r{oZ;tj-<pl7X{y)OrDOMOBfU-Td
zZQHhO+qP}nwr!vD9ox2T+nhhSxr1bqd2O0LwoSYDT4T3Dog6!1_;XN!{0>Z9$MoTJ
zR1I0`P4YE9ncN<@_?lH4P}|`{MgN?8LmN(cU$CUpGp_&u<&rNcrCJkhcE@>h4HZ|O
z8Ec9MkVs1rq|B@p&9DeRCn?T0;q_V>O|AQ$h#wGoqj}<GqI%+zCKt|v57y!5LaJxC
zv&9N^{7<BwQsK|d6K(9&pllqg(op7IPTU7}Rvfwul&8YrLaY`qB8s492M5+Qy$Lt+
zk+ZPm-QR}tyK6NfZ=No*0^>888*({}+D4y1Z9s8hEw_F5dZykSO-YH@dQO^%o+A-$
z=7SvZHSyd|pRnNTPIq$1uocMnE0}mTguG*di@8n``A{aR;GAfFCT^Og?()_<N>~ZG
z<>)|~OuL8nRZn71hoZ{OxRha{BQj}#f((TKQ&cI*Yt{cw7zKJ~X22vnq{ur)wZOTD
zQqGloxI(Woiy>*yc_YBNwa$^#8qC%;=|*w`O@C4JND^Vx=f9J_zK){eM|zEe$pIs7
zAE&Ye!N1(K*TTRXjz#K&2DXOsqL$_UrO;l;12FeT7AyxT!v>9IdXs!M-y>UjuBpFH
zz+-r%*?sx%EW?YM&kGmB4x~)!TN&@SJ>o55ncQ*35Ehd-{ViiEL=GSSexDjdv{8(_
zV}_WtbRA~Foy<3?+G%rRmI|~m)YIt2Y!s1DASM$#K1wimiG!J|nu>v~dt#-%o)^?a
z<2K7W+w`fWRV6Tuj%=2D#lp!^i|};uc$o*ccr3P>iB+dQ?+724ln;~?&Ko~5meiIZ
z0Z`kQaXxf0$cVdhIE!U}Llf>q_-6t90w3e<I9RxAR%XX^C&FOClHqUHhkJV`8G^gy
z26LM8S|MqV&N+?Sg`7=6VkG~14lM}s9R}s7ne#HaJ5Fb%Hy=tKpK3|isKs2-GH}*G
z&;5XSt25AKeoH7)J`J%q)Vdk&wBr^;ctX*H0;y}38f{ZSfqS`NZX4r4R04wQF<FLm
zGHM(oS+1C#q#+4J$qdrw2@*`Oqif8ZPju6n-4j+ZE6o7=YUEv&R0#8kY#~1OvR|k~
zlFS4pvnBRtGm=?7Av7)2`W)wFDCw7o2qJ&aKcw{7Hg!K$rM`#B{k9kUd*!PV{oq;A
zh-2|8IsMeGK~r{_kV19`(jN_2*gU0#fHF&5z#bF?BXm!-bdh?tReeKw^6j{ijUrI1
z*^|-R(=H2`4+x1Racmmbs_mghgJUO=a!H}!E?D7-HfyhJr-|SQWfH9H3B6#<qj4eq
z^;3fpw^^e2lU5MfzIQ0mJPNy3jTP9Z+mt_?m0<3OvtiTM+5lQ0>2n-tpbD3}$A*=S
zxf#nJqbmD^31-_%o1cG;h0}s=R6y5#y}MD^_Q#ye795NSRuKGar`9UAONf9Fs~70P
zSBJfkAf%r!g$g6U222d`Vq@bo7?J97NN-Uf9>TAmk1JJJs|DR#&K{}+u$&>B?M&yl
zYp6V1G(t{lRF5b~e{U_QnGN+6QC`P>*@eSY(zO`ZgWw-Ao~rwB;Z;k6dy)NO(Q#>x
zn^<y-xeAFsvVhNv61iwLNBp^kBQq7SZc!A8LUbf3?=1Ce_MF$wnTmJBs@lIQatcBF
zYS-HGvQ^ba1U(vpo5%8(Yp_WAbz-8*Ye~#$>RcI{$61DJ>QB_O)34v*D!1OJ_ecuB
z5twcMB$iP&8Ame}wn06B*NQu44-FfjFJITzt_zX>5UnXlNRdc77`H*O#AN@`Do|&S
zB$>isoVgAA7hV2UjT=ov+3nRq!;IYR+FDG~XN-;*L1;NjLc{6wrcTd-c4-uAFkFhX
zmtZPNC+PA3+_s^XU1IVEeiOBXBq$0;P4QNoASAr@;ZG;<*hR5am-v8us!4$8sc7-`
z^pxz@AssD=Pv-Upk(bLcLo$AR1Dl?3f*WpyoLAi-KP}z_O#X72Gz**_*+;~r-8%R0
zVzpRmgB|9r&?NIr@TfL0$Io12-ybLSL5N@oQYZ7H#;o<3t%FLEH$9thc6*yE8M*3{
zvMzhw2(60RwOcEFL~zaNZ6_X$pP}s^@K_gb$m+Z=>A-reZ`Kre)4&am=FO*_@b$nM
z`Gw0~?w7lz)ck_fC5gCp$$JFx5yraGQU1_1i?2AtK-&IFLLYB0gb6Yl8JcoJH}4l~
z0OsMaa<B~O2Sdf>QR#7Ul}qIHo<SE9jmSl+yf#u7{3i$OL760{7>QdDkRJ#sPaP!*
z?^^yoq`aCzVK!SiH)Z=u&Gu_fNz{Q5v}ca4@%`s{qfgwDc~2h<SHoa12Y8G!(6w1<
zON*O{7O0DJPkTTV*F|Gq{QwZN{n1wpcZ~G@N<Q%fw@jyO`|A8%Yq@H_<6#e%u!_=A
zgbi5Gkao<9oT+5ySS~ue53y<s#(0bAJelrL5vV6O%}Z)EFC^^wR}Y*szzV{!*$W+N
z__t`<fnj~2r@Y5*0y$>1lSKZN+4AjxJ_oZjDTU!G(dZ)91@|p<DbV*PCy_UMIj{R^
zWAPAOwrJaS*X3)mjZ5bXweXxD%$=yImmzx6rVdQ054mkU#7+~Y165vuxK<RgWhwgT
z!SZLRBiq5AM;Vmf$U4)+Zts@#XDdOsDF_ym;zt+V=*$#!5@MV9iX76O!uk9Dgp({L
z%M@r$tU32s!%KE?%cP}#OYDo4*+zAze#EhzQkP{#?)}@6qevth&u1Y1U?;fh=1vga
z4k(9Ee}FlK1DpbEU?mns5<-ae40LfnsC9$o${D3vujLa0At{UR9Ss)QOsx60%8TDi
zPazaAjeha92!UIxC5&M*CG%IOlt;;vKv)`cQdvo`%e3mdutKKB(L3FMQL5yA>1h}4
zPl;hz9U=JRFq4khiUm?TXeJ=obWscij^UjW`cECEBp^$H2rRoyw*CGXi8~u|A=WEF
zI}ni<hIXC#y?UNnZ^KRpyT*(tDy%3`31@@Qd!js{?evWI)(yITpBh2v4KCFpb=HRv
z3`88@;9e}EiPOKNS=z!o;Y9{^W8QQtn;nJmlL3)c-dt46*Xk3k?M&KfJ;J>D)+zCc
zwRKSG{+`@4EiCra44TBUy&hb`S03kTX62DnrV5{>4`tb8js61H`l0WHAJE?I!KkuO
z4XU=3ROF%~0?+>{7}(AQ&AngDT=qtpu_915kjQbbwRnUJuX!4Z8tX|<_r2cM;l#Te
zUrdnoou~QzT6>BS_~cjqSJ`7^3ES}!a6BT^!f7ihx-RVa$^yIZc%ki*k~bdALqXj#
zhn8D;3>g35UkhZdVb8}&X)3{W>a5#d<_$^G%{b{MNTYexc9uw9Jj2I>iL591#a~YJ
z2Wi4y$S_etVq-*=pRHS7y*L$hbeE$!*|&}58lOg9r9n<)1{{)m8%4IOe{MVIiagM)
z4>N=5U8MvNSt)X)wNhe5L#-78gc2C0dIXdxdG$G1GX3iHJ5Df;!`$Dc@G%5BT|B<}
zImZfM5qtSeX^(x(@n1%Wt_EsEkh5tq8EWo@#)r;ONVG#WFEXGC9xREW3=FEN&I5wb
zv|YbsJR|IY=DeGP+waiY?X(YEpBl=3PZ|2J?V0wlPx*~^)=dir8cAEZ0xEX?yS4qx
z6s!dBd|?=r3!a9q)VrpJar=AFlI**V_KJ>_KwjOVDvOEm)80ux4PhdbPN}S5%0b<>
zkNoc-5)aER2<~riCA>jaUA(!%I1ab7bI=xILuQOLovh>UA3*RX_q`4Zv$bwIIP$A&
z6~2u8xE{b~b^mKYz-@NH5Qk;93bd=fs;^#;=3JS7+mNCW2ta|}**Ia3%hjNUPIh?Z
zfws8#XN&SNxKW;)t5e%E_t602>I1HBG_YbXURI|6t?GY6?J;Zq*b*ZdaEBxYP8$Q0
zDA|qo!PZEPNp#lZvj_<=B~+YL;EMMNsl6K)r>0)vl(H~Uu3Z7{J46%_;moTYIuj|e
z{EXr3;l@p_RG>!>iR!SN5s|W5BHX=}EHGS>&H93BDtFJ)Rx!{!x{{<2+q4-4LC07;
zyo86wJtSNrB@&M{X{m%#N!v!l@82$YL?X@OsbU)T`&bmLn_Qa~4bFBC0$bJp5!0)!
zyw$Ak=TF)(cqWEC956=w!yRoOQn8!M(+%4S!i{z9&JvQJIH_xDgX^OhY3oKHIp(aA
z8f0nm8!;}iLG(Pw2D)Ejbx>90V^xcLxK4f$i8QALYQgh+v)5^&=%rO}k1HN0N5S_C
z)`r;(7dONvSD-H%mi-g)?{>;szym?<lym4*dj=#%&h~=Nmc4N0Uox|!r5jEv;XCfL
zu3U9eouH7L)4pMhCjy*I33?(W>qRcaL1V2CIVM6{Njj1_$<>ma>Y5R;l}A`Cpp_cG
zvK+NOv~lc~^RExIF_J!B(ek5e{-Ne>*8v<hFuH>?>DppnphUde2bN7(9D2t6A<QN{
z1i7fsdOwQ<6i$B}Oddxd^2LXda>f=GNr55N1VpW9@Q<6K93!q{60F@}+qs+&IFf(T
z1$ZTj?C@zY`RDX!ijl_c_1RF=!t?BXUh#0TEyC1}n$h0_zbWL*6@)c!{JmK{lQ2hm
zFh^dntY5iAtX?X<OA|7%N*ro5Uc~zDxbf8M$dwyb>rWG<DMO{~E$#D0U$uHnp>(vJ
zgeb2Tm<q%RhVg|v{0QoW))?^W$dlUAbDh0KFDr*h2JXOY5!k^AY4Y-a;HI_qxx_Xv
zv4_Ku8B@?T1vS?+b(IW^hJ3J&y8TX}xdq!{JsHVdNKDBjE);I%frb8AdLSm4=j+o@
zRT(7EWN1>wT#{8H!8)bQ$JcPDK-mh{bZjqVNd;`&Ei=%DN>N1_qZ@ZUCut9FK({b>
z5RsKk)Q^v!npI<1?BGweWI_(LdErv;QdzYzg;yrW?ps}G9Z2mv&Hz_g(+Q^ZNKfTd
za%o(_lUEecu=?7?OTpt^Um?9M;1X5RTXkdLu)XFl-RlPhjauE%$}H~0sPsgF;QYw>
z{%>kgeqbM3D?bP3+(u*BrTAjj9Y~0KxfKdnb-m8cv$~(00^0;@W*U!?nz-IhY!!Bk
zLHxl*-5VzR7#c>@z>0>W20a!yBu{Q$n216Cnu?)>W|19-iANoGB++H#^9Q@|Z*9#N
z`4)*qVVA>jhMp<rcD|8h@Dyz%-!x0xB~{^%j&dk^Zh_VTZBh<odv-(i(msRimesSY
z*Uwj9oD{-wsw7n-9==k{w(M(8f}A%by~OQjvl27Z2~T%{ua4Z1W%b>zyZ?F+X6nAR
zI~J;+MfJDzFsfHeUK`keNW^Rs0U*7jUf$m!D!UYP<Up(0LzkRR$@67EzNj!(20}Ic
ztEtXF=VaPEb+chwW|B!#!$y)f<V*b}4?vLSiE~~3_3X(NxMg*sUJqX3$8CIH!6VRu
zZgsFdl4xfWTpJAh{I<gJoQ9o-+B&aR1)u-%d>R7QW<1ehYtlW-d`(sLA?3ZXc2Z2f
zNsp9bstNj)I!R$XcAu<ynv?M8C$48={Wv}Dl_AQ|7qa*K>rW1qf9j63WyOZXQm~5~
zH@6v=teL1dQ`r_fS6rII2m>SAWA{~XFhsdk>3$WO7dkAmDGIeWi4B~H1M`x#36KkM
z=1TDE!N)F3lVKK@p%EvhUE<@$e2oKFvXpM*U>W1fULH?X--xI<m*QPdDuxB$V%-;g
zOv@OZov~zB?TKx&Dv*I%;cT1$fSbW3yTT}Hm+@bu$6-=iBfKp?hEk8D^6k}`QK8J5
zFwFDz{*f2?ns2BIDU~ok(U7X#Dby6gkZsKRh1J7A!?*8N!+T%2Z7jKNAS70VgeQFX
zgh%L3U5~~ZXC{xfF9=Mqle2bc7I#!atC!>?*A}>nC_hMxK~TM?#Yx*AO-|VHqr$(F
zBRdhB@l8!^sU+LmX00kgi3*8MU?&I;T3>%YX6nl|e8oKb;`G6<k3+SBJ{pA+;Wd|P
z>UPMsc>Kg*?!mvcY}U_2II-U-z9p4pBnLxOa*8tuCT`3Zey7EXuz?#!k&{tIdJ&EQ
z(nr}09Ak@!cD-3I@o03ddt-GE|FS{r0+_|dp6VPj8mOrmfoe=h%qcI_N|kw;b)uHW
zZpNZoo`S!*`cX1$>L{~8USB!!%QRLrPx$#BSsG;+x4BS>m?Zj-HVv(i{-q+B8BZ8t
z4A1m7#F8W~yb%fZN=7>3dV!CpG6j|kMP7OhHsNDJWhz5wF&W({Yn2XW7f?@>t3^ZH
z0J=eS>{;ZMIZZk{vw{a}WO%784Z>dW3XmRk0M0~&kx?4X_l1YZNp^Jvk@?}C3da)a
zg`pbmW{_A-LxgdhgS?}p4ZAe(spfnDczwy2O7NZND5m@c48kb3N>+LO#P%Ux|0=jZ
z(;;XZ79DmKz8y_Xa~VNwP_IA@bI{5!O6?j==V{|eTr|1O!}%4zE!m`tQ1jSM5>9s7
z`^8R1iyx}04_|ik<V0#fA?EQ_rid~Nhuz9?4xUjOvQG)vbL=DYqxiMX(aqGwh`X8F
z)LWsJfbvbjSZ8gEL5THiZ8B2wF`V&n8}4u~co&A70J#6VL!N#(Z00&{?`m6fd;tmt
zJ(Ageo9`4HSJGDK+F%{H2TSiDh6VO#Nf!AQA8_hDTMcb{zKJUIF>#AimT(s@qrqaN
z4$uD<gYv$~0e?RmQiJs7UM^k*W_8CV*#pF04YBJ@m{YP}z6#3rimh>KSPFz4^*juB
zGVoYkx877ki*1n;G+o<gR9>Sf{(*6}y*sqGD!<oXvN;WHXgR*Zn7Eal-3uMYi4Hj4
zY}Is?gDWV7qD_DCJ`1l#6numP0h%VVN1?`quK)pK3a;GeMcB+~Ovj?ih`(g4{;0By
z^^ATAC7H*2AV<6j9)Q(U$T*KC`z8s!g%+F`-Qj1ql_tJ0p@XzJG)O8S3&236Txcc0
zh<g)i@(|r$);zyPax_vKA}4-j-E(h2L#R39R0gI3arhcwGcHlzh%Es<WHISyDXb$r
zeim_|n6YLP#*HXM&%lHtSAj(I%~L!l%8DCK8G!OfSa}!Z&GGr6rDL#w#EVlI-WES+
z7jTLs5)R78lTN`d0P6M|&oGsfPX9V2pD2BF!88xp{AMnWCGRV>jx<n(>WnBDAuJ&i
zMon?DnJOi_7{NtQ;=S*nYw5l_(qrC2?NXn6QCOtj!&KSlj_ucFiB%I;o;bI~h{oTb
z-#)zWFgsx2&FC3n@%{<@4{OFJ^@>mtb@NxUb;P@BJYsnl3dUT%VRL5B%kNHD`Hp!<
z_mJnOEmOMsa%p6Nbc<X)XXS{;3w!)<_wkX|O9H;2rFhbd{dCdErbLmynijt6p-jXa
zg%ou-eT5YRp$O5E*D-YwExtg^X@#`v>8wUXq0ZnlwZ!1(%GbWf`R|%Kh%uk5q8a=M
zhshYN;!88rD6aLpf%o;E3jSpBRof}plsQ`D5woA!^+|F2HSY3i?F3bnBmPz*r8ao+
z3MrsL_8KQTj|P`Shj?q963c6jlhagOhAy<PA~_tJ^t9LWI60vGoo^Owah!5K<+6Qi
zbeVf&O#y}?Kxcx?Vp2%qE+e1Ja46juRpH%lim@Oo2r0-b&hbahCpYW%AK4I4o&p&H
zWkU`^rBeaw^>O%TF)UrWD%?SGFD#(w7Kd>v*R2BevxvS&t#7Oey!YBVN}L8Ef$(cj
z^vykoIGFLK+b)=qFK?{gg|ql|rnI|R&-Z20x38AGMBnSbIinc2HNl6Bm_vOs#)_qE
zN1C&>Mg7)A73|6fdGw6-TbyuOlDC=NW_$0KW0*M}Yd83`j0%|)Wj!^`^q8st4CuLq
zNsLF$1?I2Hse#nYYb!?Y(WWS)TY_ke2g-$Gm;dDyU>rYxy%fqC6Mi2_KoE--<`)3c
zWNn#lBUT=W-b*uQ8RJHGWjIMp!#->HfOo;FHS-Nsx&^HJh;*Pab_N(tQQueXcm({C
z?LDenHPNZ(Of06;3Fp~aoGTYP^{5;1bgQpw7ci~X+*0S{OhmnEy!*k}X-*1~ihR1;
zIkzZz1&&6yl1{dA_~J>5pXu~EH)%yYwFS*Xzcn-Q3>-Bj$&P2xC9+k0iOuR^kVqk8
z0-N+suQ$q1N<Q0~ta{FHjiTC~7*aS~P}rjESbsO&5N69fa3RKk6D@O3!zXjUem`2g
zB=5J`CPneeg??qp_G+iAabaN7Z%stUhPRl&GF|(Lt)@%|Ut#i+<xLDK`-Eq{pQ6NE
z82xsjfNL7N13U3~&5uy7<_c0tHvKeLH!kJmcau&5PN?9(QlYVuhU6Z<u`BiNI5ENi
zJFz8FVC1C2to{b_PkKCdz%Za3q7f(&;xKN)lus8M5k3h!Q@JuHJxq~hjz<IN6-#e4
z-Lq}#5w|B4CN%Biv7;mpPIvJ33Q6dA2hQ7T8<%Yq<CzmWRD>AHIr}F$lob~4PrV!B
z9U(@{(RhD!peWQbnCr@5cf@ee+CaBGdX5ImtfB7s#$<L!*~c7$JR-GKLC0YwT~{D#
zhP*aGUa?MqWJ)+l4&1S5jJ#87$VEcW{p=*)XD|I-4fc(5wg`HJM0dWNqT@v!a5cLj
zriMHY)N|teZ-h3;(@RJ3HUyAc4g;}rg0H`-L=d{z(8X^qx^Lyw_s+`1&esD{xdFH;
z6GjRVB3G~KA*lcRahU}crui=DY-OP5`xNjXl~YqTs+vxj8`^vGb{04E_C+X<!g#Df
zxSM^2jx8)j)LR(-3X<-=<Js2kYug0L2k&KChd`SA(QH4+3%;X7UvI9I0h7KaLq6JI
zoBLOKnLNFPZi0kbj5yJ`#?bjjRr+l$T1;r{{wQ|+lp<e<aU;jL^6TwA7C}(gd;!!a
z9oMs-J(7_neD|9VPzRv+CwjDt5&kN{^9qJqSR5Wr3BUi`YYzf5`ErHe*C6#nr(gZ-
zxCE3p3QP>A2!|;$9f0jKx3Ls4nI*)E4}<HtDdk@R+)84xZ9p$zl_kz!s-+B~e~45|
z<tF>3S4$kK{<A5>VBT~5S#n5kQ_yV`nbx;1<HOvcCc}gAatA6S2(d|gU#!4>lR(i~
z#|;dFa=@8wA!u)-$yydyL;qe@F&(0k?^)B<^U`|F39qS!zjXC~qfoH@?`W$3MWJBk
z`2SfG|4}HI*qHt&dgA|}P%v{a{(qL^|2Ksqw)H;>#TF86Oc$s-*nhl<+uJ-qFpTXT
zRt}JV1cCdvNG$DLA^UO(`yk#p9pq=bfAwDVWmc!!JJnt4clF-ztQ}Qg%^4lRloFc*
zyQ!JEp|Su3g(P)Tvw#N1M<#~GM*>A<s~}yQLBGc0MXO+(T>-e)puZyt4q$+~`nE{|
zYwATw!Mp;yGid#@kOpUn24|=S#=s5@jSqj}=le7O2_T)pGk{Vw0G|K(r=XEqLxPLb
znb#L5Us`AV@c>=So&nta{PfEBhX9S-2+SKW=kW?aTv~xPdem5eH-T7iruzxh>;DUQ
zkei%bUQ+Z=ULG6_0JS(9Iy$tW6q*Bh1nAZRToRxsG;@#R+>1~B2c*C~zgyKvr~u4T
zGf3~l!Gc4p!xJz^*k3V#W&_^n>JDq)$PUf{tX~1da*6^#6;JrlHyP=JkO}C62k)O9
z{FU$QEB=!JY5QZwurNC{ID=?;1KQFCqUmoV2#9JSimooFMh393{{=_1xH`PYf_DKA
zvJEV&58*Eb23$0<0@$|>_kTMxI)!m_aW!-V-1=Q0zQVWEi`Sgo)fpU^g)_Ok40;ad
zlWbrfzkb>7(fIT0V0(qbd*%BRL^JSqj^^KFaCbIYX#(f&2s|eFJMGR&@Y|vhtOKxP
zV`J09^8*-%1bAd=Hu@<JC`%_kmnZ+iKV8H7_QAo$0Ys~}4fyUyD_FxP!ACFPhS<Nn
z277$^_;=KYh{Vm^k7IKR#Q>@qbd%_3?#~)b^E+67w}*KR$zb4(%kKuTg`e-A7o$f$
zy*;qIdd2=Tr#@XpSXM??Ir{EC^~W(Xg3ANQH@%$$U<POB2Efft&L5DT4ZHug=cy97
z-{;!!6PMcj&jH~6kM!*&=a+cn=MJ;r%Ukdq@Gn<-<G|HP5TJ7}*lv7u#_aWT<oA!~
z)<5j~Pxb>}^S3_uw=b$>$Hw;WdFe;={qH@{%|N@p53@e`>h!Y{R0^)X%iyn11$SP*
zn)=qj`nQjdQ+@x6E@DG_^Vd1X0Nt{Id|U_h+RE%@t^M0{?bCR{X5f`T6&(E@UmZFi
zGdK3e-=}`d)a=R2x4nDzIG=9*>harMlG2+Q{E5FUCO8`$z{L&Bi?FdL4hfu{y+8cN
z6?aB3&tHx)Aa!JS;Dr_BelrKZe{cZvBA$J62-+a^edrne5V%3=H`rqXpk}cTkvl;3
zl>HE-Ve&_;UNhxa(5K$9s&9c>`H1}xsKM%2Y#TtWb}s_Fzv>76(0``r54%SV;8(1k
zOV*#*51@L3|2$sVg!K>IX9e~X{TQG@>l?V^PXNwt_V2N8vi1AFaqAcOW3LtKlM{;<
zFX~^j?#=$cpn4(OUr_zj&0pwVsn##p4gJzz>XoaR{>%HW^(#k?Ub~2)zAQuk)F=AJ
z>-tvR|K<|w_`khoZLbU+=-;Ya+WohL7LT8BoO<V3-+nb(z5l>k@Z&G-O)Is1!jpc-
zpEcghf4Mq+`xAcqm^H&6_}?db0FXzJOhQ_Ejts~!t+i0M?Ue{bPlh`=h&iRZ%aSGL
zFB)!t$FESZd?Ec@-0oW+;xwl1=*CW3QTHFW(Cdk__Etc?B3jAXpMkdp5=CFHf4G*G
zQ0@jz_Zl_5`5=iInol=*cge~1ZV9k1)F$aXu6fDW_*qtftGQ$9m~)@MP4>nI&|OyE
zD?Cu+@utkvjarOhf+Nn$A7z|R?<fv+(<Bfu8E1Lt&TH)d?Q6;OCXbOZ5`O$foY6kd
z>>P);XFYxD7EbLh$O?$(N67;E#&NPs?-BSVlSj0lDL!%O@bSMkf=1o*G>@RT=fkSf
zyR9@TY+N0jQT`T4B#L3ZytsJwWo@Fgd_ES{iCdBJnd)=eJWs=RkB}3hwa$N#Yuueq
zbX%MvF8!k~BB{hg#dpE9mglUw6gp>u!-AJYb4Y>%0{ne{Ft$VC=>h*DrE$tW>cDvU
z1mu^K<tTQ$^8J#NnO-6AVe434<V0A?2_nKN1BtKIjyr-J?&SC`VPI7Zd)FfbkWxqG
zgef)RSL&wRJ&SvuDgAlapb>Q$(KfsMqk&o*&r3S4&^k@@%mA|DrdrSv?i#}}RXrk#
zj^`;V7$x{_=MdRPP;jdif?(VrYL9B^0D+*DiJ>hZwTWozqwG~BLCCPmq|JAU@w3#U
zv;FUL)2Oq#V3S#2J?caBRQVu_Qc`$~=P1vXB|n#OCz#k=H%RA#rkXWa#fehtBnw!+
zgNqbNmNE0=3WPX45YCLLCe<KJ(<GXEUFTv|2ONlvJ6D^<U#8}4OUA&eLUMa6X@_KS
zP0=EWxNb0qm`{3m54-7mXmjl64bFx|=xt;fbiAZe2UWA}rxLi2x@lOtrP$CrW!QIP
z-g=JQi5+9G+ZA`Pq$(8Mob?LSQQVrTVzc4%Fq3jLX6>&ObEDblUWe@M2!n5K^Mp4I
z=`!zEjWGViCN&%H{F`aDj|0&Ud#cF*{xkIM$%VBwaLy+2#2TM&sD*t^;PThTB+xNq
zC`;&5M43}2YaeXsnDHLd6u%u|XVQPzBs}i`&U&FrDgs5XtPh!iCbS<`lzwzOZ9WOg
zH$ZoJa?#gnUW!%3ZhY$-zPvO`T>H%2;|LL3AqRy8pTOJ<rV<YR+%PA_yU8oqJwmL*
zK<3e)C^qF7rlA=qaRsUL_P!I>_~7$LPE}otg@>Spz?5Pa>TVE2OI<ZqzzX`B&@wGa
zLMO`L`w&qa1jAr{l=2CfN9ZAKvIVLFJh^(7Q9mV4KHyMC`a}hpyd?GUiQy7VSNk8R
zXZ2(m40~L|LJh5jv5#X2l7uu{o7|dc?A`9}f5ynR=G4$u>ZCDyK4*Hy0&bu4}|P
zY0WRD+|^&WX}k0mIO)vAC2I)!;fq|uPZu4WP{C}3$8zfAUR;KoBiR|_&@QEoGH)GS
zpVeTJVjMSLh_`(j0(k?OZ^bp!o5d$Iz)f%4!r1jH-r|YmULkSJ(X)*gV9l|jX8>g%
z(3oiOOY%@SUUy?3xz#Df^r5_m^eO9eJX;qxIdA(PZP36wD_-ClO^A`8b%6FoMqDbk
z;s?1HUdWb0TrcWzsYxkwebWJ{D}h7ivqMNh2P)$IfxPDRpTYu0{pZN8@lSR9KqyI*
zX#K;UX7%^N@atB|)G@P3Rv4Y=fM{ol>xu*ElDXgg5rN|lakiDZh_CiT{CQkzWL=nO
zckHEA^_A!f2H}w6PAIutaWR|l&SNVYKKA~dyB$<h+9B(70oH>&m~_9mcliz(`SLj3
zh86;~?$j}DxY^b?emJA(MACF%RVsO8cRb0R!3dLf7VG?2f48kHfmPLvpK61lbv70O
z@*0kvCK`?#>Sm{;jk1M@4VM1I2Pgf$0=KQdtEVnv*qUKphaLmf2=)V{naFGaPwcJv
z962qnlx4^pdUCe<0^m|!HnK&JGp)kPZd33i90#2!An3`#V1JwRFPa@^F9C_b9U3IO
z?by?5=8~VOHwiyat}vQ+UeTaosN%TH>UMttcPPgiuD()+)I5=_@htHt{QBrGr3y>E
zHZ<KtCGehuOnZcewPO*WZ~8j$%`S>_78hmug0Lk>9Xkm|eO+15&Q(48MTo_0<gEa)
zAOi1N%P=udRRL>iFSxOQ+-7%}w4xI;n9xixa3)@*YA5}82raXD!%kjjDFSB(C06HM
z(MlYbu{P{vFhxDD1qy~!30E;`rH+|kX#P$=7Bo>#ij+spr+b+>nv<?2QbN8gI_it^
zpvq4{tKqa8>k{yvwM<on(NUvpLh6{#b&crB;+>_QAiNIKNJQsJH)m-P&LSXABlp-J
zz`tlE?2poJfIch_P!<F1PR_Yte0PH5XgGYhM-*m9M$)TxdYi%$Ru4^}&=SuujCgcK
z)Ry@&EM(~SP@Ry&Q^C~EDKYfdU+=q-$HX>x3?tl*I5sXOe9yr-)APg0;XP!@vLlCA
zr~udSnee_FDR6|3JatEgOj|g80ALe7v{l+z3GIS5^th@<#H60RYo^4n<Tl++@HgJa
zbyHTk$UtC&#dzcQW%;0se<wktA*UMtX@)@4L>}2HZ9f>ElYP*wT2wO7BnQ0{51rLC
zIbYiPd5zA!zw^<f3b4qJjt&vp<9Ty`F6p63Iv5_#`Iz#igi@gdS<i<<VCDjl$pLiD
ztYqHP{d6LE*km_b(I-ld@?urY1{#~TI+)`0BMDOg=k=1rqGIh{*iYBxQjfmLm~(7v
zPoiY=V>v#JlPKKQa~orXSjx637~2?AU0<MJBD1^yXFpS+LbU8_a9I2?3@w7oQ0^u7
zl^0}lJy{iu*>cRffja+!+J|w_6jUuLI}q-t>48HeBi=NmQ?e6?;L=i*f6|^K1OaCX
zR@kTdQ}Awtb*Jqpd;uXnuvCf=T_#ah#oc*p8}-Vm&cAK*pXQbHJR}cG-cfQuC=~d|
zTXlXFEI`h)PLR4Vs{`=)afFkA{d5pkw5NN8T5M?)O}!-6tyu2W1kE(opDTki^SAeE
zpcbuiD;9C9ZQ$E0y!xSGq-$Ab;XeiAo18M<tN=jUpl{GUqYb^73c1n;ofc$xA#AG{
zCYq01m4%}vA@7(LP1HA}5zPjmvC%XLhg{yjs7_M9V=I>%T$^`LdgwMITFqS6q0H+0
z_k9fY3w24VTON_sq89P~dCZ7xw%K!{0>M6Q*PLZX2qrtn#*1d>*7F1_AO;r<Um?cG
zG|a3De9J|cGg-~&OWN`n{X{a70Y2MPDZg%C_LGE02$gS{T_9ULXEkV<eXaefXWjDf
zq$o3?){<zS&k8I>?V<WS1bmO-@B;cQ>)aW29Mw&bNYzQYD`rP{^mD-6<wHVhHAeKk
ziU{;fHhNK~HzEjnTsYK4H3}1Fvg(D?`6mF{6CC723{tJ5?v}?^7g_Tgl3>jx^i;F!
zDyKbUHhWE*r{z<E+VIlKT4!k$?1XjstsYs<uxcw;ptTf?8<Z?zZE!H!3<@<(&L4i?
zS~Q<_$&>%O_&1d(c&-M!>g8}Tn_CU?q-p5(M1IzN;2(p;qi*ZgE3vh7Gy2KZ9RY{Q
z0_p<EesZmNX$S-iUZyLe9$!wl_0L8-|G|NhqMJmXgSiB;pyauqO;38JR};LQ8FJ3K
zVFP200X-9nKl?S77(R9T(frjoMPzo*-3fcNfxik{$|kD^SS#9%L9RDqXJ<kYdWoy_
zbyH9XLMRQVJ+YBYlJe24(F#8*9~e7|$5k^*2Vg0x@I;hizem=RRVHr=sf9r0N$Kw>
zYg`StTy+cbQ*t2F<4UTq{f?)p`IK-H{tO!W&8LaNmyx1na&Q8L43SQTuXkUMWq&4w
zC6`}-Ncv)s{Q6`$LtgGfcygGo)k4s1wdM!2TIiNk`=lTfRC`!ySbfYpJ9y<?k7%|f
z`RTIyKQr&s_~j_30Ht-HkIp?Z|3#6;ce!BecUx-f!X+r`55t%AuaS*ymJvSq4B2(4
z`{*2`*d-I?VEqz@VHV8oBI0T9Jm{|O*HAf&V?pec9sIhTBEL6G82gV#KThyGfmXRc
z)8GVenwsqJPa$Br;Cr%Li=ex=1(7s(10GvYqvVci>ApZtZSAB@=)OnXx5*h0?6n=L
z_dz?v-x+i$m)VMOPZs@1{mP2}TAevAWZ;y{cdagQm@O<>6APYB8S8Lh^21Uo70^%K
zlmSl~CC6glWQwDWD!XQ>BZNFFdYxw(>jQ&Rx>+x(^K*u^g7G*;N+QxP$e<=0O02`x
zu}q5x)~0AFSN`zW7Aw4#VctA>E0-ZeL4bl=vN<n-5EyR32c<V|vqIBh9yLN`!@KZ(
z`5pmPOF&@8&RL616MUSKDi5Y8HWzp*=4@_{F;*XFql-;P1_e~;1CzzlY2t&kT;4mu
zNn`}nk?I+YZ{{x<&(75@!=f+dfW)U^h<1otFR*}0`AP3dg>g8O+J@Eaj$oZ~b!A4^
z{GoJ%{)<A)bjcGtB;b_DmNC!R(4jV;5#3AN=%ao=>5X8PpG(Yqr2Q{Gh<XA^HTTmp
z_k=lU{PC-%nq1iO)w&9gi*#Hku%%35C9eTI6~_5r`^OsZk4Ogcm@`K;3LZbk)`s+Q
zwtId{tuiuy;=H`#Cfnt-v{_YyupyO!shbKotnuvihyEqEHz%boA@BrhFzCPTs#J`X
z8KXy7$_qAc%1!yAeqx|AA)#)^bF)$_;c3jZ8*y-pIU$m|3SLqWP<0*mIW1xTT&)E9
z^0dOE7O*E68f#W(w{s0mh@lx``+^{Z7Q<bpU9HF5dkR!LS$qUy5Bxi5+t?+0ZT?Np
zPJOdV{UL>-DBm$*2AG##i+%QXn?IiFwe?3<^tCFUUK)y$GwVbwU+r(&%GjZX>|wcn
z$A<*_;QV3i-(s8d51}V3i~5)Ht;?XRcTDIddH88^KV7M&n6XxwON%ld@~S--pPKa1
zkoize;!>u#@#@zLmLKyR`6J@)_!8ZL;*%`5Vm9=uM+B+$%kQpc6rY??7{Vp9n#%J6
z(C#GGW7J+xL~Sg;pDf<Dz#>E@gMf?_e=+9?e`x_cZP=4^Dl8ixhMXSiTE5(HzJGLC
zy~RwA`P6$T5Ftog@~?CV-5XzG18U2o41)ruab;Z!R~oLH^#E?1@5-XC3x7g%c^<pO
zD;eTj#`i~);>Ts>Sf_z>XmrUj^s7_(#asH$;Hrkin$HDveRR*~&Q(5(IbS-S6<Ext
z;v+s(j#dJOHv1k?zU|fqbFDV@hP38*;W}Y@#Z-cd^?(Z7d7<jli`gz^_(7_V*Mwq!
z1QG$$rxt~r-fDa~4HiW_vTK`s7saTP@zM=(3D<HqS*P@fl~#kSZP_jYO0VUfAlwi_
zlW$_?Tzu>dx@cQf%&l2brgO@~ZitYW^CSQ?l?q!KrCah-PcOWwkEQ{&ZHWMyK$r}}
z*irz0J<Z)o<>F(zT492g4+KFbS04vjTHGBn7QvKoK3f6AlgUt+NApiej$`fJ5i-t}
zd#l(eQdGRtAUl`DR!RK&JhL58NgIp!i#@yq!w#Rqd?q#j>f{q#UqCly1fJq7Bz?PK
z60l65+(5*aLK~56{8wtW*;f8wmm#L6?Z{KvPh(-vkX`26V*+=oVY914gUj@0?ooLI
z+z`=&kqEF?YvwdCA#5cGzj`~8b(OoaG4;cX#4m(JrqZ<Q!c%05O~J8HFLdHFU>cSd
zG@J4Ux?x8A@nT#&wM1dbA{W_B5rDa*y_zh^?!I6XeMWI1ZyXO$Y011=2Sq0zG$szL
z`uo5m*rO7CtLZiPW`ol>>xRgp8k)C2HdJh6xxwx`9Mq*PDUrJChMV*kO)BHTw#gmp
z1F_)(Q)I|G9<u+UyOWpp6C67dzBW<kX$oX)xWUMqQ1pJmY=CjY@>!j!jr-i$WJw;!
zrE9ybGZ#$fMctBmDOKALQj;YX%DCpb4*Ugm6cPi?Z2j38ou~5tp-uS>b1ILUYiLuV
zZ@6OD?W6YW8qYl^#g;gTk9awk$Lb?`hsm9F)TvF5|L0Vwki-b;hVIPIv`c+V4V&pD
z>-aMbG~6c6;5@YVR!;AMOijevw(M7QjI+wVZX!m#NOvDy@r0gNIald)T*j-qdNIWW
ztMl?KnA0$5TR&|W!9Uk^`(5=iZV%Rh3s#Y_lUc7N^8BlmVk@WY3i@(L8bkuRFo;$c
z%bL->ClZ=Ums|bc&5WhY{R&pSfj;Q~k*BmuK2MN<)F(5t$^5)-n%)eHZUvfXo(7HH
zE<%*E#0_yTEG{&8LSG!FHC|bZ;odmwmDI=JiWxpg=q=z2gSKp(<IT;gRHFx;fk0d-
zp<q4<=oNAVr&&{;OJRQhJ*BcyUFBfr*Npx@JfxkoWKm*OOkxECVi<vV9+J;YNg6$+
zEt)g!l%SL={=Ott+d>7Xwg(!Z;e4;Rb=Ee31anS*+O@B(+;xIVe<M05i(NOn^jcmw
zN!>^t&t>}ES_<PpMz34OL23jd`@zN{eBkE~Gfj-~!<3D>FlRq#EJls^dpv<FbI^X&
z{Lph=)PLnnxEb=|7<z6G9K&V#Ds!~1_$^3MFOP!b)7S>n28Eg|DBeA=$1AMk!UGXu
zA^a?3%Y`SF>FCs+2_0$XyuxLV=>(C)_Un&R!aHywib@sYXx6Lf?Gwc3*MhP#F84!t
z)k$ho`p6Nh5d*STYORX_W4Y_vj`qHj%by^1;m6ct`kdDLj7+_<eCgO%R}~Uaj>7Q9
z<0|Nvntkh5MI6Wmfqbv|<L$x)l|B&qcFQ6%VG1Nlr}gO%=w={tK7gmqzgjT%<<<gT
zf|o&fnZAyv^vzb8IGe;9pC*5%VOW|2`WCLs%)V1I&=oQt$}=$W_LIMPR4e_*&JOmb
zTg~DgC24~3NguxxjaufTPg$bEB;P8<;r(xSDa95nV&GD?L7Ff#Jdtbh+M`lE%zE%l
zr?qQQ!y`P$uFEA*)^XU8GMQVialGv%QNLVCF}-xer(8@ts;+w1_hl#R_nkToP)wq(
zDf;rB<!_v4nYoUP3`iXm*NWuBN+<N`jFJ0FY!eP3n%{&+q^PHa;_A3TFZ}Y5evb?<
z-PatWu!R0FH!Fs%(igZFSOikZo971Zyh9^t{m$(FX)x8Y_{~{PJ9M+UTR+$LBzFrC
z3H}vUY&>GpzoUn%Gc=<Dq4{j+uuAhzdlN5FxtkBrXKyE}w`$w&K0u1thEs8G#MZiD
z;3|*hbjZ2HP?6w_ld3ZoVn(Y!k7<gn!za>JR4!~^FeIEmN0qe+W=f5MwQ<k}9^nsu
z25`6MGMG5z_kK3s`Yw$G<G;55+c7Ieh_87J7A=#uTXb;Wk?uHWUqx%C<_5S`QqRRy
z{l~<NO&JbrNT0(>T5x&Kt@VnzL3z5sqso#afFcWy*YjnPGgU2`O^kSfL5O_p?`@CT
zKjFvH$>}Xud>btWNW1>jbjB_F+PofnU5)HU(d|c?n&G7I5W^nWOd>bP__FdC-OHA;
zVCACdz=xS?hv!<Q)FRqWXifGTE*0kW(jLHI#2(#7pu_1?T@j!_>~|4oH&Hn?s__}`
z28WL4TUt}+iENCz8P*;v)H@mipa$D4K{j?~rj{svaP`FptdgyHdp6<2p5>4VI^#l|
zg#0;k8m0C1y4*cCzW-s)7ql5;kWPHmrEG!5(VM-38^n>X|C3pLCEM+)YPlS9i6H`)
z!!E>r`hFv>FU6DPuuN6aSa%QUG}zNVe3S>2MXK4awe=z(F)p0#UPlYsGGOL7Y_8&f
z$2CmgY$0y}n5HkRPpd1SE^G8nDJgYEDJd-)!vQOYZbuJkj4q=Eigc@t;sJlBxjoWL
zrXip(lm@SH#d8EfLC<Kh#J4#YjrK+u*|7i??{fp(>3>B8{o*RbI<;pU4%k=T8S_~R
z_c7~jiZ=Hg!E(5~`e7&PZuve+hej$wz@iz1{bhLXc2VkGkL=l8sJP*uj!77)TNAua
zq_T&GxjyWa9nc<z+;>h1(ktVlQt$B<7&ppt@qPdU{*amahk+;r#lt5YP+!{a6dkt0
z$>o{k-%^sVAn2u#1IF8V$tEL6MYVEZdvAG2x>Hqs=XExMYieN=nV&l%xO>6@IdR^h
z{lTY&lG$iER4Nzqiy>x0I@pr^-eV$PK~FxZF{1md`BH@{RmI5f!Mr5MDjY@hyg0&g
zjYbfXMh)yui@*n=XKy!hd5fyKLxzo9yGOT|x8s$ww5|OQwNL2wr6X1o&+);v6)PC(
z!IO~J$zQsZ1e?*muuQ-S)ECPhg;0>h3SB4yR8loFuNp{}0__C`Txk4@=DB|kj{lro
zh`A-aaEwU@&kn1(PR!UCY0nvjrlCLQW~G!vZIWgmcl8RpE`6I?TpxB|?Ul@A=v10W
z6Soa1wR)sbey684@lSj<pZXV@U0p;Z?b>kwl#(jp6J|8FX3_edx94<`A7na`k@$f;
zgBNR$A@A<k1G>+5X>Oa;rwbVWzA^Kyh-A|^gZso>Ycm|M<sIfNGM)LCp>Gb({m$_D
z{;k99Mp+>*Jr~_zs)dOP8LQ5xX5(_#X8jw>s|cNvEEk^&JmDUZlZePxJ>`Dw0T=D-
zMLE5U^Dc)i-@B-?q1Jt{Jq}`dy~GzuDy~TrwzE+*^uRSRe0RPRcIM`V&=-q7q?evM
zT#@V&BE8aPBh#N_0kK8W&#w=`Mo09SQZJW@j!T|gZWWR`P(F6WgON_=zUa_+M4pkL
z(ah{Ae0DQ7>@9YcM#{9fm!NCZ4Z7*1!hCm5q`c7);z%7@_vaFeMD7|NbJ*nL-Vf{<
z75n}pO(1<32`Eve4t{Ef61gFcKo2Sk!r=*~>EQ-p-o37L0~R^LRxN7!Htb0(5QZTy
z8v&{E!`P01P>d(~kz9tn>Yj$C(DGL*p}T+hU*o^6jHc5O?O|r>w~>z2(!>#dZwlQz
zI@)OMQ=qrnWXR9xFXeO166R@+1Hwbuc-cly+CCBueE;PRup>47kcNW?P+=n1p;0^D
z$)(Kgf>HcJe}a&rLbZfk+5^p&!5f`cU%HHR)Fp(u*ax0FC6-X-+{PkJ;+f*(&&Lj;
zHJ$1)sIV^Ap0K>Xc6RK_ln^22)A?VE-YbU4ti*OgG}ix;cV8MhY{AGIY*}*ni1H-<
zgwEe%*%2Q21jPlzIV%*&#zdQzm$zh#URvQR%jRIqcLGk!T57Od#hb#rGgpS2tp}#5
ziDt6B=(uJ!v5R1wy4ZfJOPe2gj790zTTocqQ4J`UTa}`Ifn$C!{h>aP@San3b%rS%
zYsE(ybq>F7MNcm^H4UNED*WvPT65i*X3B&nKibvq3h;b@^&#J{CQ<3k>Hb^c8NR;3
zDjQ-{%x?Ee5VP|7vRs<&wj;-f+o8L;SbBA|Gn}8&-cyYA2H-jpv@`~Wubgrj3O|S$
z_gXMdSKP_?b|RRoHzuxJn3<$odra2h7^Uiz)>{vkDCX9%tu~tlnDARl6MzpS$d**)
zEWtivdAsQZWSIlXi+Rk1ijtT>FYL^?dR;ZrKk?y}^9RgYwWFV&v|*s3->S;6e7e0u
zw+Txkv>{Tp*ko*xWjosnwYICto#3GPsbuN&r87ow^{Kp>KSfFnyFxlUHpA3Ob!-%V
z6tsgc^A2fdf0V7wqt+~jbPPylJA^HNb~N>oPd&~^I(iQizYs(~N7$MIe|C%FV~`ZG
zZ>JNJ7unknV{?a#V&gC&&o+RAeDa?B`Q9~Va1uxFy&w4-{}pUX8UjW{0omWYU0~51
ziog#5duts8rAtV0*IN)OVz!eU&59hYGGP2B5XA7akbeUCrkj0jQR0_Stwa)waNVs$
zUlK6K3=q|uxXQcbIhj8(kWF<!>=A*oza+}HR#oML6uE)_K`06<7TC^2d<Ka_Mrxu4
zAKC|DD?8qAkbXglxu}-ZY+_Rx3`cnHhsqu4Z0=dCDLW<zX0C7yQnu)xx4@uu<h4?^
zl=5|2iub2cQ)59j;z>IJN(=W|3*~&O_n?PUH4lb_d#fYa(V94-bTJUG#k*|NA!<_a
z@;+`iM8XPLg-F*o{UZ3Ks-gZDx32sJ*7HP)jkTo`q+s1h_a^_>{k{+FhIbo_$A9$+
zK@BA!c;u*E$w$s}P^NcK!(yJe4KG;Ix~3W5-@pSbzwa#4%;zp?@KDJTxmK!2Q1e7L
zR>Fk!C=QNWYy|W+6L;L)up6kS$J%mK+~X@XY9k2HktFKxZUN(~Mxy8J!hp-;|4=t4
zUUGP1zM9^aOM8s<$g~Fb$QFckSU;F4aVK(kzHiKlyu|iw)pli1)H3YUsl@X7v#Y-x
zx38?eqkP*z?6l;6^RBhJF^*;OZ~4)%?Y;=+)cZi}z6=HeJ<l|EFVVgo|6pTpv=Xy$
zZ`*>h3rUituWXQC-4k7`hg|V|gb(h+k{baJIMhV4R?Ic{Y7-lhDCIG%pTtQagvimS
zJ1!L9Dtc=@BOE%9eZ<iz>Ulv2l=vZ#1`mgeX$q=?m4QGYd$01BN54lE{N!46Hlpji
zJRdB$`xa1ad28(MLuO4c)Te_{GjJ6L(N}A@AaQCCiy=~$da}NCvy?Tn1<-~#Kr(Os
z%NKLZu20$&<|*5hXVjStMadpLHgv-W<)5X)QR1H2lewYHzgt&FiU||QC#OO$GeZY$
z#WF<szX0;H&+BDe_Zt>&ZX?vZ9-04CsUD2k&r*&SVf89^Ye_I*2RMlJE+sV077?y3
ze0Xf@QB5LH5Uf4#P@!taEt1O6<J-*70R5r#>$Xojq}4V9&6^&i<xgQ8JB+IM=X)LD
zzG&vQWB)zeH(Jszb0XN*d}37PQ@}&E@>T-Vsq;qog+m`*4BEK1Y2!7CTE7qB{QAmj
z7)-p^XV*LyD<EW7fr77!C{AQG8E|Nd(6m)JZ`u8QjAEhsl8;5nMhM}adXvmCHjiV#
z+nL5Y)Uu==sq)ty_l&WB$c}Cer9~#=g&)NlZPpxzW(z5r_c3AQA&DqsM61C%j%v^~
zk3YwU=7XX-P?s_9M;myJ+?1YQC&0ZBlNaDixvoL%Kjq<~PHINe+gH8Cx0lni!yvXf
z<IE6cBo#uZP$)?WiNnE}Zw?ue-%v%8#O{RAR-O!T1Q4O!xTJ6n2!@L*9S0W<=;NlA
z*6=W^ElOkhk0v2pizFe1qL>rC=tAlD9`wyNj}8cO{tw2^DMpmA&AM&dw!2T;Hc#8O
zZQHhO+qP}nwl!xanPe`$<p1lgo{LKAs#5QM_F82;?bhljGq#D*DxJ7vG8mpqN(W|n
zezYWgL-}Yo>0kd=QQYYGt#v!DLax%0<o)lSnf;@-DD6XWQ#-p~2enam<?yrQcjK9t
zoq-A!5P?D@R;uR&!SZz7W}wrfnLT6YAA2M`z5K{Qm2*Iq-5={5CD4vccyD(2E;yvd
zB`oHivH|=;4}E^dTEsGgW=`+I9-bFO6t4-Q{Zpdsp1QwniuPRbXUr~ucLSS~va|F}
zA0)=_`tyaQZPnd>imyCc*W6?n>g|8JU?Ew}MsSPilF5Ws=<0kx`j<u`xZxPxZ=Dq5
z7?nY%ddOg^Sg@JZCbV0?d*_ufo)s49>(8BC2a~Bcn=C)aL#xYJjAxJB<Q#m$`t$Bs
z4FlZN*&~mMZ5L*(Bi9dtk(9+>8Jze|=)Yj_$V8HVnr)y-0M(g2Xhu<$&G7+yHqsz>
z#aSZ>MLrNP-KjP<Kh4FNkY_0;M<@%3e{ry8o@iqZ<Gskf{kpw+qSJ3<HA-co_-4^%
z?072}SEJb%ix1zi`?Z|(lSWB>etkxc39}Oft6*iY#hsJcLaej1%-w5fg;kIi$T<>z
z5do}P$rDNFtz-xPg~d9Czw+L>Up#lijV0YETs5e>r0fSB0&sh|G(=p6I*9M@6M7|x
z*y?x!H5x%<xcsa7*(Hfq;;;{XqThnW>fe^3=bBw8Bdo@5#X5K3M5NhhQX_Lcycvc(
zp5wD|;#i+x!$=S$(88UbyO}^Ns6nzdEZOUPBet12qH+?EJ)Pf15OUi+6F7#BAM|6X
z)Ly}9nyZ~Gsn#3`8K27h?kT>LY#LqLv$++l^(3o-<N!hh%PS6nke@O$d?o1mHa|yX
z5o@!CXrZIa79oap)U~{KL)P~gpMpP(^!HzdW7Z;VL#<z<;5GQWC1=FwnF$wrLMQ=+
z8O<@LPWGtYdAP|d6@r({wcz=Bo@!3VEd1%Tm!+n3vtaDN9Od>eN<1G{M2JLZoSUIA
zTRW0k5OY|P%RRw*QMZ^s1^#xj_k7}_g8r?}>G*H1gsJtrM`zMzN>y@)v`5H%>oRSi
zFOFF8zM3rElfK}?-niQuB@Hi9!_Q-o=26}+=&u+TIT{(Jm^^Ql2%|a7Ns0ZX=}PMB
zK?e4|nC%QU-*+t{j5#8?%U1o&?Kh6FM1a3YYlsdgb47TW6-(asach~mGN#CP8cJK2
zO*x@UxoJYo+kQ$XVZlw>28;#$7n@YYq+RuLE;hIB6t_yr(;C}F<gG@jat;wPUf^l@
zA_>wnhh8em;iC@b$B3WO8?26qgs9Zti}=^s7;+Ze#ZOMwgUzDFU^8Gsnj-rpyKAu1
zW{iJCk;tFPW^iH{x!1g>2;KGRb1zYB&Ctg;ceLwL;vg6KVY<14Xa~L+dWtS1-j<5}
zqfjWma_%v&m_KWXZ6AtblGICm*L|AAl1_<gA$img;gG;Oi<VL8p!By8WtXw>xuWVa
zTHOz&tI627lQ?NsAVd3ab_~kYIt3GhoB+}8#|?ZBQbr1w7@5dU=D-`pEzf7#qOV=^
z7o=fZm;6?oc*4JSMnd0TiWPe-J?Bn`<Ij*%nR%=_+NbU?NVrsp%)0+}4h)mR^6h1b
zzXLm-Ji46>>+ubXX|RQCu_)oRt4*b9fg(Bx&q1*^9ybl7a>ql*vXd@e`LVSTR=)SQ
z+F9JK!7uNAKqO5{JXw@ZVo>3X5Wpg;90L-G<uX)}le>wJnyH$G<b0biToI%3h*qYM
z<5-)KRkOWm1@9Sv_IJK^CbyJPMu^VfyNY9a70<4+$d^q8u5z-Fe%tXC<-V`V@e{Vz
zQJw(2rN#}pmSUqFaM_S4H*7TZM$bK+uI3j}!T4AwtjW&U6yQ^C*dA2;GKxcFOs*Bz
zYZ_x`Vn9<U)1e^1?>Vb^q!tVSjg_#_2{Q-{!fgs0-|$LWdlaG)VK%&NZ<?M>$3Bm{
z#`QieBk}C;MZDC_4ONk6rZoF9?+b1#rY*Yf4O$-@rZOlV>;)N>W6Vy){$bIgj>q@s
z<c3Cic>No7Kc=^EB2qNmhYfR=R0E|DoPk%9ILNLto^7smt;X(m=fFf0XpCJd<U1I}
zeeV;}s5dJA&1*bT^Pmxi=aXaiSubJ>92bb*qHH=_>J3|YEH>h5WSD|s<;A)A8)VR3
zuOaT*&_pY!mG=3><CxX@l=Oj&Iifvj6rDDUl<wpXsR3v@Sds>kgjM2E#_gZtard(j
zydoT9{+R9YH*^1{P(c4DAG)VV`Ia`}OhN|3<U2fCa3aD-y>spE994Y<0up8h&xaoE
z6v)?c(1!jV!{;9@^sJNQ?Sd4S2FR<OGQCcLh^S=m@g<Ye;;b*SNH(4^K#CzZ;V$;M
zK=%pFlbJnajof?8`vrDi8jTQlZAa||kjr?s@Zv0)K$ON2+h5AZH9}F=V*RHk2tygH
zYRJH?@Qw~9vCZE>a;5sAV2kb;o9Ch0T{nD*eLF%!%XbXM1~CzCPC>YTd6B^QgQVOD
z>J=){2%p!_(k=G|r&N$wz^q6+0j8ekb~c%b0a2qT6((t^22zQ0GGTGgpM%wEw`MrV
zDu=Of3a|->T5vAV#I^ZL{ts2KJ^`*xQFz&DVa}zEsTNzBXL}@ceN58)N&n)#>iAY<
zx(cwar#)T)laDa`VtbyEm9U!wC8PA7!<o+K1HB8czVyL7-C$e<7`Riv8LHAu1921h
z_T7`$g!h}u!=DTZMgv$qRoN50h@E|PsVH{oW;@wUyc?O$k3F;f0MWc%1r(VK{0f@r
zq2OHwp;^btRHCzS+;52jrmN1@iz4ce#6^i<62-%L6UJNvQ&`f-v<HDXwGm)th+qRl
z5Q%e+Ynw)1iShN|!7I|1zR(Kd=l5oR2J9DO`=}oNbi~i0Lu|IoX{S_Tse=9fZXT!U
z&pW?lJ9FdDOSPHc&ShI*YX79QfP5u|_KdZLdo0!r1fLi1wD<VOFQ9w7neAn!=9%gg
zyg#)`@08xWtYVT=sd}d6MFsH)qLSTITTA%1p`>1-PiMzYPByuQ2Myk^R3s1v#7b*I
zp?OLdVMR?;py6SwzDc|%<876y{hqOdT(50<Mmb8F)0)xf^rFxk&5}1b&tkFcx;Tav
ziQZ)^{LHtK!xGPh6pd$##}K9cqB<JFEHmEa7sNTCRz)GheDu8ZN<KSWE|8i1npBD?
zPKBEI0vH5UgPIVLF@x;*TeF_-;P8Nt^mp>a*PAzDrG^yxona7f_cRCJCk32Wg)qO%
zZr$es%oWPaKD~)C_yxoELAnPA7CrVjgAnb+Zv=LlJN<Ya_$q(SRr6N`vmq031e(%W
z&Al6<AER<5Lv43zT&2xzcc=}%lnF}@7$Hq3)2xe-$>4>Yjc-S*;=C~t%2_LA@xuPW
zc#EBw7|KhW7CBPaJGruo1Qxv_AO4J$J6H8T?)6Y}Y0(hYWkTPpFa=Ul==pbr7#H-N
zgV*)W2Mxe<E?XvmiQ0X3&*x~<m&*#>zf#g7M=iR`7x|5UKSx2AyqC{sq`ST+mYhxy
z85~yxN|`!SNzr{2_x%-Nzct!XFb_EnOvRU3FD}}ino^0>F#BeJ&C;^{Jm?VB-c4lW
z>o0prx@57ge*YF$0Jxrx=JI9IjKd<M7b@v)MQO)cBFhTR_|TY6>(0;+ny{m}?v#GE
zzJ8y)LZ)pRY34C4HrrHgIs_vfoBbZLx&F}55R}4ieX*%Y7$8oww)|PkdXHW>O|n}B
zT!Z5i|9WlWzLl;adjz6DG{*i?KbunWNbGjf+SQ@FF_A6>N4xBO$08|*7d2uxbZ3<i
zT@0kRul;^Odp#O=qXs-?ZlJG<oLOgeujgQlc=x=YX$2Z>r3)IRX?lB*GX$W%cj;gD
zAL=0?0PBEsxs9#2yrBTS3#q-<%*YL?wCgnJ@wcWfl`cxO5=j9U2sTe3f4Z!D+JXR_
zmS&g)JNvxz-&>;S93_P*wLTb2PO{?g2BUVMm5;o+ouu!zA@Hh0Wn&gc;ZX1GM7N?Y
z_82@6vu`I)kNF%56$DD8-kzyZ30;&<&k3%i4>*=4oM}-NsXSb%SaLMdbKouAM>x20
zOrl})j?@OIlYJTQFE1V|y<D}%wPr%(3+C~-ykM7$L7x<rVj#!vxHn@Cz5cs?NW-7^
zlocK0!_xEZ(9q~&qSIfAbVg~B)Ve|!BqDUNB&J~I1I5qTwrQW)2|8S;W_8;dQ6WGz
z*)46u5QdRl%3D4a3pTq3=wYlUs`a#Lf11v^;9-faGlRAQqLym+PU)#AKi~T+?9yOY
zsqOO0Qv^)9;WJ|BQj#`Aa<$yL>Z&(bNr>5hsdub`w9~mbu7aCN(g*8oB$4J!5gJE@
zXDw}}mpg%&fy}U&C3_S^XUtJPo14-e2~u)V7Y9)e$D(!F{Qe?rOSp1Zw;haR{#+qV
zZMPqKOYcFEFy+PyVow7BmqcvOA<qNb*CtPeZcn$Dfos~5j28*$$<mpahwtR0{U_S-
zz46$7jcON<D>A?I4zI@zcZQ6<rCoi(XsEI4$=J5Cq6lfPcK=DCiqJCyrJD`+ncG2}
zc@P}<0aI<)?AF8E3P*p_C0pV!8U{vI@-&+EsVJ5^)2Ab{Zilc}!&Z%iAAPMJijuPc
zbE(2@WBNy{oeizXi1b}hoN|lN1vm{2*SZP{a^hY1%T36{YY3d!b7m@E%Dd}SMz`<&
zPZ2NYYD21*wTW--AV9KDoFrFSV5XFiIJ_|xl+VC0C$);%qqclhka0p|f4HkcnplhE
zQGLR8puM#-&-VJ_b9-)qou$&BxAa;ay0GNUG;t{pI^6d#0!hCCl+=5az@PoZ_??ml
za7DcI{^Q0zw!$L+QA@DJ^4zuKK^#k+*5-uMp3X$Zjto1gV02069Xw?i79~IhjWGnw
z^j?JsJ|wENx$MpL3vZZG6)4|AUIZWJyoB}?rbsJ1zv(u#%(A0h{8S`p%RwW@b<aG3
zG1KR{h^uq*+e=K>xt&F@?%FHYAL=ijCG;VN5E2=k3cw<t6v$oYOsv$JfUZEzCJ1}d
zGg$^WV)nx@d11Tj4#OsyMAfbZbbdgg;)f;-ybVr7lgVz%!?sh-Q9>%xDbePWn2TyU
z{-{~^Vw6A1WKMsG(@9J{==QSl7I=841l@86UOF#BQNwXi92KE2$1O`j!!2uD$;Gk7
zRR-dnKg<?%6D;%v9u@WLbwMv_aw#|Xq<gpjKD22jx<dqrr#%Pfuy2pSw*0fr;E%UJ
z5SKUJuXzZ>_;7kwN)H$;p7Ub=gKx5H+0fVeo6Iw7b?8!QAtT0e7j-_a$k)jk4FTwQ
zaB$h-m}>4YwSLrFKb&*}jJI0<O&0qRUH-W&e!a4+4C<CfDaV9cF{;YuP6NDZ00-&%
z3vzQqo(dO}<>Op$N^MCz*e{A-8_ehX@^&_qGav@t6o=O%;+<qRq(uY$aA$6O_ckU7
z!j}u_D)dhf$tc-biR(THuNqb<PRpGJ*UZ2m7af=-%GA2CB5-NP<6Mi;RfPal__lcS
z=PW#%78vWZtQrMm_k(_Kh`LA$T|023KSJ5YJosa>0*7p3cc7Or>!?gOuPYi+mLr|R
z3Hamg7XXXz67fH_%@_&j32Y54pt!mJw_o<pdCbi4f1Jmx^eq2TdCW%7!0|uEV}k#W
zvY9KmQsU+U>q1bTf(WO)zYwDMS@$ayZgB_#K@tf`JW>Qfx5TY-IaPO{csvz>IAU=i
z3MG{!9gwcvZ1?NdukPii%8KMpy1U8C)Xr?<D)vmKYxEoHb-W8b3klF9JQ{!mV6w9_
zOFsbt1PKiQ5F{WwNA$j$>e{XkKq)0mv_CPT!mq!a=pcbwmn>+&FtBqxMBWOpDuEgX
z1X?0cq?A8DKOutngDnBlA5bNKx4vut4j}$NBtRj6c2vajJ7#T#$Y{MYyRrN>6z~W%
zl$1WFs+@B3upuErgb;bOAeSJHgS8OBZ9vg+a_lgd-?2zrj52C8l9F<Bi;Ic?2O)_3
z1-Qp<Hvl~QYUFu@Fu+2deOLbI#K6x4Hg$Z3kO1udBQkbVw|<BVfR~U0gMMzI)HqN=
zdUurY2ru-^2)&$h;)>v9u>piWfzCd_Hvqp@a0oO2KdS9~>*&FIVY=f86e#B*0R&z9
z5Mp`2Tc}`5s*8wy9{RTcgb<(51VgBSL#IOA1a_)nxOjJ!&Jc3a^8gV2vTvrmFetEM
z`V2rAZI{DQ0qDken^h5Ys-hk3{RnC>dj))`>{wvKx1Ftfxr5FE1U!hmzM61$LEVGH
z7%%X00b~$upTKD)6ZkMYpl_|Sh#{a60VG4gq{9C6t^`xi7bI@=e)VinFVqk{c88{S
zj{=19{NP_0^n7i=Fu%Ze{ruc|{4^hcQ?sXhz`soZdh~O6aKk{?dNFn&d%Mf`Hfe*l
z*uFnzZRm4AL8bT@5FKw{m*Y^g^qwRG%b&Y<x?(hDPO{fE36#6J@xQ1_3W6Sh-fzLd
zeqVwG1Oyl)M1Uxxd~e^4GujYeviQI8mEm^$Ky(q>Pm#N2y`C>`LO?fsQ2T&CjcIsD
zvf3DNpSyosLBa#_-stXr({FnfetemG%N}|ezk9h9JpZv|sb{{i?|z2}ZR}KU`5?HR
z@%8Q*=R^*M{oZWLFt1u&ob_Msz-@kUmxl!J9OQ)A4=AVM(GUT`zg`9zEbQpgzO~uW
zE}k-3d%wxh0~~{i^<3jI-iA>FXMy~Gs6$jSmq2}^_3pO5a0B%25(a-b$Dpx8(3kl>
z<wW@7U(hd*kx+pJ=gh*`0DRxvq)^U)M<$o>PM#yT`2_$$kRoLP4@_TxISJ<dA_LKo
zfuJ~bwv6Ab`@nrZ`S}G_BgtrSe$`+<0HQ})A0x@$RDN1~A@RW;0|WpQk;TiL>KvWz
zCiRPn8p(er;$X&AHuBpMe&zgGFk3X8mrNM?DYz^pKifBq{$VIL+NEX3zv)eH24iL&
zU_Gl_$9VZVH!_GjwYP@ee~RygbAeMdk&~i9WTzC8)`}wLw?SOh3(GdfkFRk%quD9F
ze=Baj($2<3R13&zP!|eTH+0k!iiKv0%s-A330uZ%X5B=bQuk}OWNqpNq~=o)%RMk#
zn~XJL0U&cwm7u%7y_uG@t8nH0HSl6pdK`lc%9V>h)s%#3Rnum;yI+`E*9@5gM@D6`
zRrD8oK8LwwC-j?lS{5H(N|vQ>id^i;H%UUx?$EaosaY&SWGG>?Q+u(@`LdBmWR~Wr
zQ{DU+uK$KwcI8li4qX(Wq7_{8u<UR&+&%icRFn+c$<n{#ZiB2hE*#VOIA_%waN`I<
zX8u<E&DT*mE}T7BzjK7}*cjZ;;Ax!2WwaqPB8)#-GN4gqCdS;t(UbW@<FyQ&qhjMA
zU3cSndpzLz$;%$!SjtshEvcn=gDM|}kzuwaI2~mx+Mjs%r*1D(!^}guiE(Dp+J3in
zz;a%)bQM<pOf|&P{vS#H&i})nSpjM+=h3S04<mbsKpw||%KDRn>KmRWrG6HVK)B9M
z<l#2|M=Q@58j!x9n1tTbJ=u*@B0X>!IREm2c+PG&tu^Py3B}51Q)a-w8qv%<eEW&g
zH^3i6Hj%l#@_f5*VPrb(Tv_T}#g7wXEQyO@gtx$C{p})SZ%|2cKA#Qqn^9H#dCVu!
zYVsk`RtnlH)??B8C}oCN-|htkB5ZLog7+)Om6Mt}Vx~ozlq(jONEPfC$4<wh>E~NX
zni9~*QJz>Z+Ev@kZG+zl@iwj8>~{~qhVGcI+K~C!Q%D)Ay{!iH4V#Ck6;E~662jKf
zgVxt<D^9MSPo0P6l-g!xz0=QQff&+N@y$M$YH4+iS;C%{Y8i%M7kGD0?psi6fj@2h
zGZMR%(~v{m@VJ0Y<}y*Du!OSh;&>nPc{6WfY&c|9{&9(r*!*mbl@K#d-lnknZH;py
z7RbPgWo7%ML+>R+<eB}TSR~-?c&{a<RKZw0IinEpqaz(h+x0OmQe$s1*k(k5axg(*
zYZURc)^iDSQ&~?ixPh&2q9tXcwDLX-m6d20VuX!KG7UPy2+bbj&s<(}WgIPft&A$$
zw{|o1SCLQXM_l=8IwiXRCPnho9g;MMQ>I9A%bo4%>sV~k@Fqalm$ob5;+v7&(`>Xw
zSt!XJjZRkruGkg0lUz)M)1lZsKI_~a0bs7npl*eIdR9A)ns5g@hU6_kG4tFuSPLZw
zQ1PMNp1ufl*ggAmN_3Cg>Yt~F3~;HUtKS?lnc8e{)D=$Sq(3!zUCG$A2-*Ijf0@M0
zM+RN{d2fNt)6Wpx5o32x%cS4eFnh7A><M7MpIB<A$OTQE5~;hoap!Dv{<JUYHraXI
zRom#u@W#1Vw6Cz=8sa}>=9`YJ6`&AA{Xt%70!7#&i#5|RG(OkMd*yxKaGR!Mr-SL_
zH2z^OdrxueYvE#b>)&6i%{Fl+2`^<-3RoMno8n&o1dINQR-!V-p}yN;%utpd(fBP{
zCE?;Y77)AT7Nw_SKFnmycJu{h7S_0Q3u*BY@@<Mw?t$1Yo-sDLl0zl3i>e3K`Lfy(
z#!6uK=}Ei-4Q1{8U{pqJr*EEe!C!nsCZe)7{tx$cvx8a?uW7t7_pFQ!pr?9snwdK?
zhPV!-gSIik20Xe03Ygd`-&BNiP9{VXSKxQyXC)7u|2d!lvkp7u&G@<`=G7N^DyJwt
zB1yzxgWYsfJqTeH=FQJPcjeeUEk{UAfz!}N*WgIoIsAc^{j)IW*)cGl(JCb5*)Z`B
zYkJrXA-lmzwmt2&&(-Cu9gkPw12hXw8fl|+vV#=Zw4|ULxUD&R7fFodNp@6<3-V!N
zs3F1k#Q5>>l&4p(*7?g1VzwzlN!WEd^_-byI*|1qGDRNk$&k!5q=Uy?YxWJ4vi!!u
zXluMNzkO6Q*j|Q#v7ujV=}}wFh0g3^+$l$M$#4^y6dfOdQ+zwKI+evm{a~`e854rZ
zU0XqRO8Y^>gP>+^w;aTyhH2dTq9X87r<l%<)G||S(vJ)3_Q7;SaZ@Jl6GjLojquJ=
zUA%76%6-K6To%ZizP`mZP@J%p04|od9{7fV-XG*p12x}GZ7V7jbFt$~0$+8IyV`E*
z@!P(Qj`)ZZDKHl(VCuoKY@d4JcaeFrea&fK{TwRmaVV`o{mPW;*P&lCI)X*x9X8K&
zJ4Kr&Av^mn`!|f}{;vuNqi~w{*lGl>ntpOm*F=;hRMs-}sicXdg0C%*N*OdNLJ~>R
z4eoqb6GK&q)B%MBEd4u0nY8%PN58<-q&Hz~@)ow-^||V^xR6j?Na~~82JJd&{lRHB
zm2J^#r^o4oZMn|-vS{r>7)|%38v@%=rsLmLJo9Cy2Hg0E`d5Zde!&NtGkc~$ICEt{
z=5l--W_Qy+I2gu|&gN&qqi*b)KHSu$l1{!lI<>RX3nt^fzb4GYnlmLT<oto5pw@Nx
zs-qSJ9l5`AY5g*z|9YL`OTj15gZ@?ir;6W9_8#-O`>pB434B}b76wAKj;g#pHLbrP
zIS%g?@i#x7Z!4dbiVoweWu77M1FAJuUkE4PdtRGWOq#|*27e+9J*Ql`PE7(ej=X;L
zj1DmuKayk$nx=*Px&<Oq$i%!IB~QC~Z(?DdY(j1<o50^S&|n~c;E<Js6I>N^!j`={
z^nrP2@E>166uP#&Mhu)nh4FBx@r6a}ney3pcy6yJzRe^~|0RDf#&}%wDH1r-t#p=0
z*HLs^D5CD?vIkM;B!?x+nGn#^Pq^=;3S^uGl+-LM@|7^F1Xx8@tz$Iypry6tAY!9y
z0m|9Z5?&4ch+KR91cwzyirI_u^0rLYx>|i_GYS{3yX78N$3Ui}pU()2>keB*cS@c2
zLI0w#3K3_^?R8K6O~u$QCKMoCBL|Vyr7QQ7o<7qJ&#$%Sr>5tL1`9&1mrwlr{$LP&
z08C;Anzor{%axa6?GXzS0UIX&6S8lJN?6&K@26~gY>ea!7UHXALFBTt)YgeeDEZj9
z?E<B49Zo9SO_W8VOZ*&{OVs)vCKBKaVee^&vwICxg?$-!=CHBKoQ$!Ikl7(_d^~rw
z==KecbtL4cb2R`SF%^lSmO_jBsNAxrrv1sC=H|Qv{;kTSWHl!a$m5X#3bFhJM<`su
z{;{@Mg=onq&%W?>crCz-DUL#+J#Yg8>L_ah0)4i1wnC2h&Ilb6*Pb-b?@onhO1@^P
z$;pze9F)|7;qAoK4Xa}t`9>&5R?rCFY9F)SUG5bbA(zlW1koGT8Uq0(v_-tY2mCjk
zAD)1KB`-4hd!+$sM7H)<j>xqhW!aAvhYmjAb8$flYKtCYzGn~O!Um7|W<TL>*Y@Pt
z&J*uq|Bck%aQSBH8T_c%jSbpXPANzQgdKu5U1V%K9}|V4aZj2Nt9ScS9dl;}dn%n0
zU&CV?X7GrycAC6y)9prN>;Z7P^uSbfGamd|^EVDSFJpx@o;%z|ms*ZZj-gx1z6TZ+
zA@{=vm0v{74g!8-d(gLr+%0gpOO1{M86~R6qJVa1!?&f^W<Ob~CdR2}geP{stj;u_
zi+o0PtlidDnrNEDSL|6i9R3=7r8t8L4Y=h~NDC|m8xZbCwiBoz3Ca4$5bC?Xs&ELU
zsgu)+$4=z{<Il6KLSJ;>T3^nhD7?OZyuF?IwOb}Xf)__&@lqqE$k^M1w$;A!fkr+?
z@>4(B`MoGGkI4dm1k6Uh%WP**r7WCAnEu?>?CkqlfihsqsNxyoBv?E`^J;W}@@w~v
zQS~f`8tDgCJ`MrmR$%M9Xv(`LO>Vn#whPKmo3pVzGI@?HhRxT~lwRucc{u)@4<Up!
zJ&UVZiEi%lkNaZc(bbMQxYcqyWj9@{3nyZZ^HMo^jRrrN&&lN);Ble87A4;>9)ep)
zI#6|dr?X%7HN?Muj4RhP4&HVdtGh^5*%wsI`$w_IG>QSw)jH+@q8ExQT~QC;2FVPY
z!HA4i+G!$Hw}zY2%KwoLyr}rMY-IVc8Yt-Z-UNL-)iS;=1(hJrwiuTJ#Tkxps6;J9
zGmI{&r8%tow+k1XY$5-vg7_~rVfa|;h)b@?rf@1X)`m|HlB7kl=e@}0q;^}Q-F`G|
zOIkCHBhO9tZP+^ajGf$1-c^M~m!ODaLSIVUGf+o~993$jvQQ053#+rMU5klU$HAWA
zZ76xakBy1?<rm+D6FO?B9foF9wyu`U(~&uOiM;;|8R8<5cv?nd5!w#g-}2nNj}MWG
z%hoauaw%ucPN`1>*6@HRFu0rcYhFua{SBzssEzyX>SA2u1Wmdbo{a*m*R0txNQ0wA
zhgefE6!lRo6%kNLdWCA0?x_VV!DGVOiev3fi^_Z_=1Ef!S7>+_+kvr%Qnt7Hy-|G7
zbP&(OYa_u#WK$V!84y*k6Ny!^gt&Ae_on`OThFkR9u&zkM+LFG5RDzH7v{5{I4mh%
z(X5^mKP*ry#>gG7oVZ08$(S$ZVgv`K;vHZ0V6Ur|pr_<e*%r%LSNfr<_7&{phM0-n
z+>uqVnF;)AYo9*tl$iQ@Nh^WR!(TuP5*1+x178KFo2qb1K4eu_udO7Prx5js2XP6N
z1jE~h*d1xGn7=z<^>5vWyyVQsJJSRXE^6gZ8-2}w@{KnBNS?pI&rER^8wUs+0{vM)
zZtXqvBhWgS<{w+%l3#j;!;wXd6_87&qd?tKIXfzk$SLYf7=*5^wx$mpK={zjm$9$K
z-Y+jvnZkJT!7ZmfF@IJ(J6L3z`8O^a+UJaW_m=a|i>NlSm2h;-lJ$bYu*jP}wXJ_j
z-p`IKOXg?{->)l!^@q+)vA5BVlFR*GA?LtLccjTe{Ar<u?cdlEI({Hd&~1S?1p~b`
zr*30T(|ayXbVjG6t=it*x;(bZLyxC%zv2OliR2_|v5X}1>f%Q_qGs<+O>D#J9MI5L
z6U&lutc#g+II_Mqrk%pY<@r)OxltZR@*@&GPe53T7_052!Xinc@lhr6yN`7-^;?^$
zy%b;kFJk&V6sRy?OCqA2q8*J@eFyKqicTit5kg{~&A-3G4XO>xJPtH@3U|cKV&~pw
zPvFh4{O8t5?_VcktCN!-&<a<m&W%jx?TK3`H=WdLZj84CRT{0&J?KxYuA52ZU@y_%
z59CqUkN3cXo&RpUuykB5wYYvq&#W6ao6a69$Eq}^GcmPWytxoP%%|W89^s(j7l3w?
z$qiJ4Wai$ab5lCQ6O|v5{`-6b=i*W*B#~x_KRvk+AG*n>QPYU2Dnq|&Ye!t8Ab@#s
z1ulf#&xd6NK@i^V&q00cjeGF5q*`uV;x|i22io+;>1jmGNQjn8Hha97o<_}83Yt?O
zIdVyH8MC~u5Jxn7SoiiyFrG3zZDdHP#S&jU5TWBDra4fxORrQF^tZ)xL0%9Ct-QN3
z&s(DEs6$zALD3{RkeA$^J3g%BRP!h%rnI}}e9|73`j+0lM25IO*jsF98wxmWnj?A+
zrx>Jei%Qx0T#q+cQkGKNpeF&|k9x@{wO3Y=7g($Fb#_zLdVGcw8axrauZ$E-UaxO$
zgMb!x8S4Il%6Zg=l`=3<;Oym+D8wUspkm|(1g6wf0ZlIj-A&N-k)`-%Zms#LN$ntx
z56UAPOf!^LboHI*iXadQ&=HnPU2bj2zjmpqs>V=+ha{BXexbUK3zFi){yN7hkJ^@Z
zP_bDg?Ngu?V#m*Hx?28g@O&N$Z;zyOAZmu9YQ`cKG`aJj8BE&HQP4yYX2bt>nS|}s
z`dO*pLvG&bf||RwKv|>bJU}8^!C(Hp-!o{4UHxIj{djY$Qnr*(e?<Aw9`xRzvm89V
zO(L(T%7?aI<uaK=u8{putP*u0RTD(@0n5l;U!?ZbQqo0yX^gymKM-_eZ1wqt%;4QX
zZ(3YV3i*!kzBfxvMM7r?aiC6vck59}BHg0x!bIKBo~?%t${~CIe3ZY^q@71|86-r|
z6NfiN?E_eCWw`WbpH~F5M%gx4Rrj1Png@x56qe9RRsiZ|)IcnaqKhKI_2muh+<o}6
zl{v&34%Wy8vkwpB+pmP+P>N-d_V(Wn*)+o_C01-@z?Jrt+yV8?PDmkRw^gJLN<-(D
zI^O;e-*V{r7u79`_n^Sys4I2IyZc@c-_~F9lXfX*Mun6qoWdM!P9gYlC>8k@d;jIA
zZ>4IVCJ4TCI@SZD{RQi%nDO3HtvF#D*QO;kltHnYGk0w+e7ifSF$J_-k(^qpmZ=Mi
z5V%A_R1U7C>sI{+MmX8mU+U??fM?;IKJ2|Nga_JEJ%)3AaFGl;Us9#e2zIyDm9#X@
zSL~VI*o+MN%PjTNG)g6}uDZY3xBrgEY80H7y^J<PtcWq`R`v4g-=HCXL-p-j7e&!M
zHnb9TrRsERO>1v_md}cu7vz@WM<0?lIZn20f>U)?(6Ohzz&SG@3eLgWS*?^;dWOf+
zSUr)FUIN4t;d1I88%8VsIc-ZHQk`U0apd`i2t@)vpiFg^)>4t=%X$BDpPyb7c|OHA
zmA38O<;x`cahJKI{C+Pa#aBO|28bQp&>uzteHdVN3PPbkX>QZAX@s+|F1ErNV}8>T
z<=qbNC+|I{e~caqJ&KNWEdYu^T03)Q+U8|s`Xi5NYsIV2z4imPDbbayL+`TMSGY(^
zZO%d(8qChl(%<Nh6j#f{4$UcIZ*qofDVV$xb!sde`b)*kLSHyt9TyM}Ks3{t>L{}#
z`q;iti_1zLNbr8^#tdDGJQ|TbIC4)OhPY%AlPiv$h4?kGw2RkQN@;ihaGM`}K>DH2
zdQ9_(>_Y8esXaMM(CvpXI6yE?nRlBhmzrsb8(nT+j_CuQ-w@hz<%>qGa&)$+(%xgA
z*iWK9z~Lswrg)trBf+{_sBc=lETbTJ&*@v*vHj{DAjV$DnwEosbw6Kj@zLRjkwh?(
ztg4}dPlNImEN0j8hcqUHS3GV^^s*=|{%P-+!?b(xnX^B?2dmiDx5z;da1x!P+5j$T
zqWfbO@msOoEMb@rd}rfCUaM?TdwQny7Rk`1YxP~SegdRNaijL^;T>zTn6kE?jVyf#
z7gLwkNO(InUS}Jg%B&!FSF-G=Sf&_*8c4nR^o86!qh4OJs`LSRiPQQ?G;UKNo{S(Y
zj~rz8@Xw7MNKa#Y;X#`7^1Rb9FTs;y>TWGN=t+ah3b=vPfb@Fsvp^G2K+#J*KQKwe
ze?>Tv5r|orxbCTCSZs&@wQ;~xwfd9s<zFix07urx7wpB0*6C6*r8Xljk@ZkS-q)OK
zQE57~kUJlD%NZ(0&L~n$?>)iblyf!3b!SFw3p;@4bKDq#2h=^%$<n49GfC~r36sIy
z1aU-laROz@r;Gc0PAiAE>^ru>`dLGNCAuoNZ&GWSP@a01WB>9<{h7t-!cL~Z_0Qc^
z4WmGH(>+fe<a-C(R(h)qxcy2lznYv*V4SXHyYGxIS~<u~d-?um<sfsfDNJ{KS9*WU
zIuAjBs#YSEm84%GkKYbdqpQ6$mSA^j&(DA4j9wU`j2cpfTNKw|8Ma0oMUuW8q*to;
z+VxfrXeece=;Yyk9+d=|f_VG}DIg*EIn(0A#CiY*j7iYu)gW@N`Q3PTGn>tu?{agT
zRsYQ*Cj1A0PfKaSxupwAgCu>ND0kc5A#(%xG?wOr-Qw@iBu;hEL(Ooo6egD>ViTiX
zmcw>yXJ~nw7N(<5b@AFHQaOyi&+vQ$31_*X%wI{Mr1+FUXp6>JXJ5DUzq}>QkkgTk
z2f6MD*VD6qc$4BS%Fl-V-EDAwis1T+40-o)-4#Nv)bixS&EJghlF&Rak&nb8VMud_
zJ8<5rrmy8O<J>$5z@P1<&?mazYQBqILsLFSb3s<PRCqzX8b#yd_deD=fHC#NifVo#
z^mA&1+uCBa8qeHn%1)98ti#W0?k6Q!Y40392i^eUUCy2%gDpJ<+18^Dw<#pX-+#b2
zC^B{aW5&n)A2L2hHfE;(P5c-M7@3*bIsW(d{}Lq`S?QTr{wL-8e}{Zgt)Oz+>P>$l
zIy)WhAaDL%aNw<bNLs-Cft{V9{B?PN0iB(l;E)e89iJ`>ufG+q5mal2HI#-M8&*_|
zsLrDD(Bw>cNr{En#MH>p`21S((aE5F0|PTd0|O!aBE|ZLCh%WkQT)ZAPWH|A4o9Ct
z0$ZSF7hnkzX&wGgDA_oG4mU3VDlP!j==juZ_|VXP(ZRv5z9`vRZvaRoc&umuB4mD9
ziNtfL{*qhc>zl(P6C1E7C;w=YO(#wODmpqgA-z+81#tZ6*p7-~eg);3EOUS;^IJ=J
zc{fHjz)p`pvCtZTmTYXMye1~Hva)1~;HqTg=+uOqV1A|1nJoOUXHZV}02%;3q%d-f
z&Hz8zn8-k={DT`K&$jIyiN%?v<<JNKNNbyEz_{81Xg4uv{OAA_?EKm)fO%IiPX9>$
z`?jE9eSFP;b&T~tmpAyAx-nKbzl^LbY_1M=tj<p@_Dw))8*9LT6ADm&ZFFp402IX{
zbt6h%YGepJ72y@JJr$Ya26U&S0Tl`=02Ji{ev3{mZVV2uP9}~l41cLbPIPVfl~bIW
z5dJ+6fU~2W=<9%7{}6~7Jb63w{dQ*KU+a(a;|G|=8s`s<FRA|i%~aL7+2aZ>1@(O_
zlz7mcrU|GMuw6r4o!w&tu%9g;Kb@oHiS7+cSGK<|Zo>~!AmiPmvx@_mT0jE8$GRGj
zfG>iVwlt3)02{h%UhZu!_^${=RTTg<wj-M#=G?>x;(n`Z9ERCD8yL&(@CbC?EKmlI
z3czG-u5T`kz@hQ}k=gCH=6CH6qh)yISXgD(JJ+G_>^}@q7eG%G4h?`Ps|*^zWi8<$
z7|+}HYIH>TG#~R%U9xkN6VTnyG@4S$um08jEWq4PBaV~b?}vf|kn|q}{!h;_ST%O_
zDS=+K-(0b8y2RgJ$lv4RU)H1F%($e^?r+`ECg1E|-xz6JtE=u`c>vhzPHZzklx%*>
zy|-TFW`AG0YNEM;k?noo+=-6#05pN6`H7!h#*H?~bvM92N>*D_)xS9@y~i27EmJ!q
zh-C*y7LS)2fb;<xkG(VemBu#U9h_PM#P6$!2u&Qnu$1R!H%9lC!)xsA0421vB|8v#
zWPu3eeW|ETk!bw2y&)KVQ%7e<V2pr%3y;8Rob3c(7Zm8^e(F!DXSPG2dT5`~ZGck;
zy@>FB>IZBGp!8Bdk!|V#QwqI^)PCw8YzDyelV74&04D3ZVZePfuh{-=W51#Vv{1c>
zVUY*6AO{6c|3(zQk#782N<PF0=*znhLn7B~K=$&#(fnG>|2>-i@6qMI(frT9k<)*V
zwtW%l!XkHUK^mC8(dz@R{^Di{R6bpDeyM_!uzW`IUrlTMoxb+Vb4@JXwB`8hedv9?
z+y$0%d-O#lA4_jf<S}dc5gX{gmpa(H%N(iAH*9$W4iE(L^#mY=`;rAwVU@F*!^r5+
z_{9s+WwqTFnEbSL=uPUHx|YWMxr3qVIktspsQ&_X_zGa{WjLj?`V~_{`0<_^|AF@S
zBAfV-y3@>lOzlYQoW!3OfKu`0m+RVvwDT)a_vF$9#{HcG82{ND1gZ$S#z$C^>f|FR
zTkwqo)wY@PHG=DiN%#HtcbLu@kn-tT&mWJojXUMDU7_Mj|E5e-x{D*goBdN~@U4t=
zx;vVOF_Wj-e&`Dp9QcfX?mHTUD-6i&o~QbPU!mnYZk6Q&4-8&rGV^j%<2wW*vGd~s
zOm(2?O3s!Soc{d_)%Q6&?mJx7yYVHa=;Qp}>M9c#Pd(Rv(n~z~E(LyeFJ{RuAfqK<
zJL+p5&|u&E>qwxkE-?ND2kmi9->KdS@SA2S*Sy7@{X-A%Zubiu@Ns?*4#M#GWr!xQ
zqT|aS=Xv|@#prl@$NjnA0knVMo^vZVx3)o-Fj{+cYVv|V@V{1jCHeEv=Wz7xXU4Pm
zmRbm#zI$Yn<`V5)|Jr3(sB%Te%)8DP4}K$pvZmLtQoC&*hnhXe!Ea2okX%=fA)Png
z-lxjeAy!LNSo7`jV3L<f-?R|Y{N3}yrsG7jz9J7HH&{Yg_k8_&$ySNOJwm^$bx?A*
z-FBB#f}+3W`7G+j`lL<~8#r}Qezj;nLd>Nq!7yaz!vIO1kvq;bo;`>kY-2zgoHx{R
z%b(f$NgEl%^(9S~atqvZMH<w(s%-5?`=q~Y)F|#h*$9>muMHK0agStRl(?pLi6aW-
zy46(ada&-ljO1r9r)3nnfFj0P1k^OCj@D>0bhPar9Wx-ml+j@%ND8^bK9N!Ic4tbd
zhi+$dvCgz-F45%a#EpB)TU4-W{ti`XEw-kbN4ixyq}BsdU;SXOE8cuPEp4q7+U;f7
z2`+8ffoJjEy?I%rMZG~MYj`j!PHkF=)lff~B#{ZOvBM5NTL7Cd$Y-E&Cwb%+$P9se
z1JjM*L8`Mst*<+~=YI`|MaZ^4>F$hruC(cpyVyz-$ZdTcqK9#Z-B<8n`ONUJmk+X?
zrZrDMmC4MdT>t)eJQ*XJ+zYtIjI7Y_RWBbsNFskDT@lwd+-}FguRcXcz1_*B%Y<T#
zaAp13r#a?SqFlX>HmhDH+2V*a&F(RW!c2jNv@-fRc%XMFW?Y<x_>!NvGAPn)TC^s2
zRRZQ}_VX#z+_y!mdhBFAZx)u&dA+XV#uT9l%K*<9dcv+`4ck9@JztYRE*k=+4oQ`9
zATsRpF61BP8W{qOG~E5>>`%mgYnutYj>VaDYu+E%FsEWz-tdw_NEyWylF>}73o!(-
z%yI)w;l<kLaat<cIvzsaO6h%F2`kC*p#kufg}?C6hE+Cx(hAH}vkGd?C)}+j+FWJs
z5#ggjR56?N4yMJ2iQ|t{=y$DW+K+_A6%UA#yl7NSiPGEeku5b*zx^<d=1vlAiCAUN
zVx~6OfeKNH!hE&>TB?<b5VOP`kh|u2AUTu$kT9d_j8jH36*jP2UtXN?nI^=_7oOJ#
z7NS|3o9OS;sExxf_R`PzmmFi}3xEd;&Pr1+1<bOJkoH&sRxwzcF_$JOz7{VV%=^$-
z5Jd#8IR(<AzE(iX2IlWfHBeN?YAQBaP9>f{k+@}nYr&<Pi;PJM{W)hw`xjTlQdcs0
zJId)O`>fQn_=Ib7t$<7gkm09cd01E?*-tKLgM^y;#BP6aFH{pQXO^#pkJ^|9c0-Ta
zB(!!dFHDf7MMdQ#3f=%4V$X>T$A|zk-gw}O>`m9ny#nH%UN&hDniF<!DxjvI$jPbX
z@4~?;(d~@K*bkGCA`Z+38SrUhl&16GQPVEGEq6jYy00S=Rp4{$sXthCwI|L54xZ6R
z`iN^oHK_AxbhGT*?#ommq}ob2buG#<9*U#0dWGl#w^#ehJ?{+W)+-Q!mcuTbaa`je
z^p1ef)JobyvZ+S=C>K`2rAc4%5ACfb7G(`NS@xnozu;B(-$*1<S>&C`k}1aOWQ{@6
zN<j(p-^aW9ieQF+D{;Nhw{BqUoG9LW`~abJe2lWwqQ=kjRV(BNGBzN5+5Ow&y7dv&
z@Uy1VJPbT^1|gBWh0#4A?Y-db4iCw%mul-BcDngrVmOYRUHkW)(t*>CElq`w!P^
z_dS`pG4xoYIk*y@*GcYZl3)ja(nSoVCiqT9L?W8kyTsw$b`mJn{w`Y~bK-v9)>$z4
zVxS<Sl=r%GlNw4~txUT<xaV<ur?p{26kSyQaB>7)x3{;9o17`lcfyr1_@JdU<B2-+
zjiEcTCkFH%TN;S?Yl_$VQR6?IbU@!|XaFNf5vB$oP_jEz=(;PUGU3UtE}w{hZl&Ji
z?L)#Xklf70aJNqKs#Ej$WIS%mj{xKq)eBO&rOk5c32ibbJITW*Q0L%qJcTn`&W5NS
zqAGJ$rODURln5;HWf<WMz8sTRlQU@UyqIjd%9V>Z96!dJg)fvxQqtc-D(z+cQ<{XG
zhN0E$8gD+XzQMT?E+{n7p7C=@_LC$GiUbz>2S2=3{9z|8aD6r3Te!in)a6eL?*SR>
zbyN^$9?8m-Sr*mxC6qklf7y}eb~}cunyO^GXk&7oBn(EDH{qEvodHYiAo+ev-_8so
z^4`Qzmbdp2?9jb+SH@q+zi3`I{R&h9fZ-1D9u^{XkIj;UMX(T%qLI;z8ne}nq{Xuk
z@wQtB%O(8fHmiQpf(0%GEp025rZNF&C=epeJkJvXv|yaO#H#?ARrCETMva8)y7wW<
zQj4Z8bo{(ROmYhd_?AsL|85*kFhtt-&#Xy0j(f_;`xH2i?WqgY#+7%mt<_Z@MoNp$
z<v-OCQ9fD(-*ZCIVy}HevBK6Zse<$ok?oHWwZT5j25d6pzyH-!iAsDYuv~G)4z8i`
z1^s?q7{5p{hQTuNcY*_(73P|oJK2$hki2_eU!^?&EC8G6NC7+cLE#na-GpxuiL*Jt
z;M)AU+M=T|b*iMoP-R>Lj><&QBovl47ymDZlDhq+=oesem!@rVgr=le1YmfLs7onm
z4O)GA3<WRbwq4zF@TZ8Eqc9W)?^{Uy89FL$nEWs(Dj}XEQuchr!d6#O0~9OWl0*Tt
zN>FCZi`LE_qQjlN!i2Oc(8FElC{>}zM14Vl+b+*QBG5|76?EBa=8d!KDc?LzjK4XZ
z^i_zQD{39cIIzxLJyV+Xo;6zO*8a2ugvSt~8`y`JuyKT`<9a`0S9;CUV^@z=bw_<f
zhpMU(F-K$!)43x`1zlabyN{P4oE<eCry>y2o;tEb6mu2POJZqa{M)V4L+`!|E5*ap
z!06m|f+)SlaZ(kgHi!7Y2*Cu4&U*sUwo|LSJ%+dxQH0TM6o>nWMZ>`1jMMeciIr#k
z*S$vAZvbJR>DeL)YJj5VwMP#65rI^OCH==10dELvWzy=~`jo&0XWzvzAz{h5)Z}N2
zIixpZ=2qOmC_Y{D()wWqHb*8qH{tiFpf6@(B*v|$q}3>z_PvGu$|!Fu6f|N)CnH`R
zBv)}*y4gGDU6=XKKuuvf$tOX%m<GmBFudfdJn7yScIGe|oiY!fY(H}4e9p@GW+6yV
z@)5c1t6_+N3V(-7@*Nbj#3*5;R7Q|FE}ELH6U?)`ekED71S(g#)04GyK`4lv%8+ZE
zY(rz~Zu#BJW6s%d+k>dzVw#m|B0+8&jXB>Pr8f;Prc-tg?%Ud5Dj-A5fFxt#s%|XN
z>5=_#d7In7HZhLD67QJxy>_gZYvJ_Ot7f}Yt#%Uh$Imhsx^9$^eJaQBaMxk*WskS9
z{8+Gxah@QBCsb-yEcR3ea8XG=e6*3^2r@#E{R<_mXvyk_E&FCW+ogq5nJ4WCrd%**
z+fN2r=Ut%hjZ5^fxQN1AG$&#uJX?g3qCOT<Xqg&aUah~Ap-$5U6JB}dW=KG*il~@E
z$=X|Xg;ZPa(&HBkbcKgEg*RRkjd+ezq7|cjOU3Extk>^V^PUoghe-5|IWt#gS7|Vm
zrE#%=5Mr4`0dsY^Y~1nwa@$41SJZUNO+8-vMycj4D~E1Jv5po6a++oktyUUE>F__r
zyRVc;gNBz{`rgIPwSL6sAuQ310E@!{PtQ{<n3boS&&h>5oFv{JnR@TruB)5SrGIId
z5O+atIfU66?d=!LbhRAW$*uvqXUR`VJZaiu!mv$d^i^u8%+Zpf62bT^Mok#YQ9-hL
z1@)WqHVlcnKM!)>!%z3(&CBSHAF(Iv0r77cV-Xgl55X96Gj0*v_t~rl@R+Xc=n=$L
zuUj7xyE*qtf{nP}8b#nBC?^r!RB|GX>LBc1w>lN>I*4{ILVi;9+Y!!};a_A797B~Q
z?usba@r-ET!KdXF@B`yjR`F*iNLQtwi39)KDtEC184o<v?c(-Z@OdBTrjVr%3N8+l
zn4)*?Yjyc-bnYfG5aiY@g|?eYV@mO{oGNvkR@<Q&9Hv+zd-m8k7>962eprckD&7QF
zPxu{>73nq(Gi8umZ|ousiB*V>TaE>b;J%;jX$zSy2H_twIGJre3U$(G<jYD=g{etT
zE&W{9s}|btblI@#0+$;6tMz~EtTV2-qtKXGX|h-#>+`S6nrs%-MgI(YG4`?~#+r^I
zEo}(<2cmL0R&eT4=o_s_y~>Mi8AVoX?gN9FrlUEB(~6+s)KhCK%thJC;HU<8?ES;<
z<+f}KC+A_J#^EX!C<f<8ui8aL4W?ArA!U9!+Vu?IkEX>fNoS>uM~YNw+W~&^y4J?6
zkTnrNcyrhNR$OEu$jGT9&`YnP{&0Nem%l}Dgy5^-=7No%P5#-9!A{cZt{y{7Q8hLU
zBl#2g<oZ*ua%H^Sico(HjDO8+)}wWlcYg{o)Jy85wPp|R(5Q-FD!p(HY!`!6MARjn
zcI(Ndj6>3e%(Fj8Rr6C4Stb|UyqXKb4w65^8Zo9rnOe~H#KXLv^WxAEjucab%3jnl
zd9_zHL^%sv^9>W_A-3AtRcC@lnyAp7|7zTkGRPykcx&mq>vJoO36nymmte&%!uEay
zapi9XriErB>e_0>iLRS-(buKc&~hAfWLlE9b`VxYsGr9PbBXJB;L(A)jb$vX%c9la
zA((2<wx+v%JiM8NoL5#rt<B5TFFOE@Dr5wq%o|<_9fFKYHh`Jd*1;<w<!6_hOc0c|
zjlIB4LTHFB@7Ho2aUFnr)tnGeH@ZaJ#LS?onaO99s?lh)J1U#4AVpZ$n<VcF8dchu
zwH5y`&TNinhDN)V!UB#gpPDa&=oV}v%N+>h!5(n02WBh<ii~MxxvX0Es+*}2nc(i(
zYWt`y)7wA6Ku-PC;U@#himmFE?%6wTbw1jYli<#+#aJgztDO^|(=BUQe#QyOB~(#Z
z{eJad05L$$zxVW`skueBuPMd|F>q#{%64>sOs4ZZT3O~5ZfG=?)cE0ZH2*<F!`M|o
z!j@c%M?OkJkl_ji0_7rX1?n=5xV3N)XSzVBI^HvJ+v#v!_oYZuHC{G+hH2HOKt`-|
z(E#(P@I!kiZSYTuv{!L3E?~{26w4;_6OOvRw#z2$@9ZHwh-*w*X=Ls5o&z@O$#y?I
z<=;-L^n5?@{a64aS(|n)IOc46V1yX7V12A?2WgVse3rTGeE*14&ExL9Lg{jqvU;8D
zj$r9${<ilGXScUM+4HL5Z1yAJeb)(!CPOuNr&}J~o(-SORbHoZSl=>jjWJL;=#W@S
ztMldU1PqQ)mHWX)AEPv1<mP3cPe@K!ri`8eRh;Ij$3hnv3G#%`wh`XOuvm;YRiKi_
zR?BC0LA)BB;|<|<2Q0b7dmP4T_Ru?Go9%fSk(Kx$%khwByB0O3<ILM<51POM2PO=f
zQT6Q}iMEkNd+#SwJnkf%0wmqrIq}Boeuu**qtCU{?wrQbnXvawi>xI-QQeq7%pksO
z#EfiRAZ&2FuV<}xj5Pi!A>`)_^JdSo!iv|LlK8Q#AKXynT=BtV!D#A>wEPc#&Ptdf
z&w=AMs2y3Cx96f|?3SXz>$>PR?p1+3t2@0{9h2uLQy97~XotiSw?FveVwNmOVAYBt
zR{=?)Zs<tIj1}<=Sae&hrWHj)t=3!Py!tbx?yqp_`*^(aiTI)DeH!xRraF{6o>oIi
zpOr)Ow;;Tt3EvKc6naC+(x$w&+oEwQlvc=gnK${pvnJ`HOz@G|!qgn^iT7;Njd|1Y
zT&2f1cD~;?Ueuq(`t_>GK41~pMK}O%;(jjzLGTW$>Vy<~ZYA>IQ^q%=B`(4<<{a<I
zpC+ak`4}aG$Wi*WV^L@(Q=KD{IfXr*1l`alrX++&`96C#R|=+~xEOx6-|O~=M1B@V
z?fUfxc%kl{Yk!7@P2Y8laE(o4aimA_MX9wH)+_h9j!yoL5iQiR&vQ!Z%&0I)Jy`e?
z@?73T2w?K5jH<^ZrQmG!>yT@OaI42~+czVFr}y-U*mKXS-#5#Y%q+v+EVp;Ah2}Vs
z!^bR^YQnesOkP_ZS&f?R#KyaSlFFM*7wE;*dGuawsi>NOc%*NK7_|EF$|0=7X4n(Y
zQ6`fyT97$^m0{F9@m2xo)R2{?d3x=SbXT01IKeG+LiercI$g#wJ_n+;tXh<t{Loh-
zTup$P&FxvSf8gf9b+;t&ryZ}X&P}3aVR_ah<ksu>^UpV!izPaeC#5N9gG@)8WL*=z
z<n(gO>f9(@OS&Yra6|{t=eEnp#MD!Zq6czFZz}g9zkX?h!&t%)yiHNc-=*a8Xiz86
z&_#bwv5Z%vkow9oR(iHCoC!8g^W)^M_aQ(E*FsBLVUFR=K8`DPmGn!|h7og1`P)yu
zP(we!tv~dmRy{oEkyQDFN|d{aAhF*8F)}i94-^+fgly>qw5?5c6x$<(UgryjUi~+L
z8>d<la<lJJTU&Kd{U%GrU7`kYziAAL4jv#{;ypv86()XE@#BY%BA;%T|1nK5mY|W>
zj3RaSXs}Q4d}lP11W8N)iO8Q0-}UZD4Ip9A7mO_9KEw5@+W$O}Mw6||K4`}8MbQ#V
z%6?6%KEhXFYleQhOx5BhmjKHw^gUns^(>3nMQbgn2j9!E?h8!25Z%^!Zg-PmpndiO
zB&Sm+n*M(NgcLs-gA#Qa4W><bltI0cYPal_%*^P`1ZkJB2H&a3g48+gzS1iqth!G3
zDoedU6<wS4hV~pxPzQ(Q7b%Hm>$qj6g+>hsIwN)HNk)<|M^C?J2E<4`r4~u-332e7
z+B-yD#27VbV3SYJ%#RE9_9+8|&kJs+FE6^AoF;L&QvSx7UfnSvkeWH~qG@yzn+766
zrA1IR=g_!h5e-PwL-$vH2tDx)X&L{77!sN-;iZ>l@xz&JG9dR|z=k_#*Ie@Xb~)s}
zBb8+dIkH$3cB`^p_MJ{LK9UDD_(`)k>(P_0=E4dyY8d<N4Bv)@Ek*H{+7;|bYuL8~
zh{aj$u1?5|UqliS<RPWG<F?7G->FVSK<rgK?gI3#d|cm!1^X5DDa?LS$BZiG3$(15
zb!ac`5oJG*o4Zg)Wa|^ePngqhv}j&PdXmdBSZTx|sV2I@F+W+t3w(M&eFrn_)@jQ+
z`7Kj)-{mC=yQXWh<^_L5&ZCDxp7b3!{MDzh@no&F`1mY@w5Lqf&`<g+YXX|xI($S>
z!Ar}+=5KybZPde`Dz&YMsdMs%--mQJg2z<kkoV5@Wi?tIXdJe$?iiVsYxl#!EYmj7
zQvyDC!c^TK&|yb?NZJlF!cro0sqWSFDHbRWr^a<j<rlS(6(=-djtufcV6+8*bNLty
z+h3uMJV#~8a}dyv2FWwx&#!71tM95rkJgA*NYjM$;q<LM;x<l9jYyueElkL$aChU@
zlAP-9Xb&+qNDW~~DkjVuW(<nG-^!)L05iN~qY_a4vbW{G2Wf4zNwR%7a#9yiI6$#9
z;A>Ih>^T`q3}*9ab42O{$Lo?bs_E<KGwjEuZg?%IV!VBd6ZF1G1JJIj;jCJ$q^4gQ
zb*Jo9^sKGSRl#KOZL^v{glvC4^+42!payqe9<gRcyqTZMZDnLGtc@9ZPyJ1cb~mzq
z3uZn5`54J=Oh$~tY?=ju)L;4mQIbElf@ClqN-1?psvW!QX2-(m{=vFmV!<0+yjg}_
z)p2VVVI**eVFblmA4i-T8UAyBE|^X3yO)=1;Nd5?^^o@z9E{NvHIbVnwUJvDb7C>Z
zXIXM>NkQTV#3>&riDYcg3og!@W=AG}piVFK!lV#JYix_ywiGd%*sFd};nDs|3?n+=
z@u4{lLa&j2q@$y$ge|r14729jzPK)s7i#i|Fk7$f<%V)myNTKpoi?~RNaRC8`!X1c
zT=T7Wr-*!kBPYYx>^$lfpBaGsNNX<g-H(Tu^3k1DF)`;0*BGJWFGjo+Nbix8HO4a_
zWL~=9#9Fso*OKPYI4i*h%$rsffr9n{I5&zt1^aDJ;`GLXgNN{*wmvS-j-d_^w*h$J
zBwcY~sa&qej;Tr8FJ~*&RK@`<`_YewQACu&T#-7?%kjSS_}Ji_%~_Ia37SHWXj5gk
z2+r2xj3;2~V*_7Lc>{DiKOtPp9FzV~XfrewAKKwNL2IPMZOqIFIoUAed_XJJBk05o
zWNJ6Mi;po~aih$Wd8mp%^)*wN**yj_d&YT-;i&rO*FZFRq%+L~NkZ6>VHV-0Yi--~
zVcAQDl|AoP@H%$rD2|*%&wC3&)Dndq6Z=JI4bQ@iTWKNa98ubblifYogD(zQV1PG|
zJPs%$7Xo3LdAG^0N*h}D2MDHVnv$K+7ec?@L$XDqCT@<rW7?ha6g5p|l%fXIj%E|^
zZ!c1gFF=huL3^<z6Zy8Q*j9Y57xtr1SSOLl(u=tISuz#G_xjUJi}MXq(^RpEL}uOl
z6ESX^G&sF7gl~#zc@rW8)7ZAWd1KOZycpsxJ?(ghQ)DXZ+h{=;6z*(-TZR5@FwRhJ
zQ1aS@Q+RUkT6iY-DSJg5Ql`+;IA#$vBqE8X0W1ofFe0YwO4Sk2UXAxj;|7VVHA8c2
z{k)FUafx<Cv^4mH3Tq#p1AJH~hx)yR>iaZ@-ZMfGVKx}tia&Rwi+995ED?NGHI#@^
zF?KBmIN%T0Pc;|`gebe2MSEEhK3#s8HZE!(%=IGK2zdh&@YN>P{!D0(*J;QPun(z3
zI?Ft_0&KT9o61iOdt`||`xyWSfXy;re_QXz;_EdPzpTJ7z>~zig2)}z+Gy40y_a(o
z&%9Ku<c+`@xl_}4Rq^I<%=``Bnq$X(ypYZJnvH|v+pu{u^Bnr%r*J!KHDQ~10KE5N
z0^4)x>5RQt>CpIVg9Q2qTd1JVeqxqEUTX28>RwSM6`0dnv5d=9>lH(9sCLCk_#!YI
z920%|6%`ed!#&$gNE6G)4YpgWQ(W?uROZTTb@fBM2fxy$OS84NB|N1&<(Aw9bjE7{
zqX!T1R+=Nk^?cv&Gj7h$dZHq7(i^T^z{CuFGk|;t<`RZTU&%9q6c)A*dE@-lOJyfc
zq<qFrj=ztf@fE5&A9dab?ILP*oDHn9FMLf0t0hE>xDy>C3=6Z2kEM>kdztGrrfns^
zXd$3K!uUIYMsj*s9P;?APj8&S*N4TM8o`ZkXC^|kTKU<+R;dUe{ybRSPRHIovDEDc
z`^kq<*I>fb3?^i8*0aaWkK*HV<>Yi8`VrLe-J+39jP^&}tl%OflJaHotglYeoI2x!
zg>o5usYvA*^Z87`_|C2C1@|^V^s56Eajn;r(xUi#HZ2$#=Dbg@=8#s>1|p|AuTv|W
zgl5SMwkMfQFvYcti#-rUg^HRayFIQVjjl7e;MTa`ro2bs>cYdKrE$o92F~A>b%ndK
zKiR909SEZ4DRAw-$iMrfQr>4gf|>fQuFNcSwjTU&Smh!MBKw&Vc@j7M>PO=f6pxBb
zyt=Cw>P0#Z8T`&5r+eVWQgE9q?J0}G$X57AR+~9<L!y1Co;9h;>s)V~$P+ws^)G!5
z*$CuaO9E{K;el6847*=xfj4Zb0`Rkbxb78$9YKvoeQ{t-iMbTFvlFkxg*Ge=AtXcZ
zY1^aWAo);Q0=7-%t~?D7JgRF1cjw=JLqmvq&(B=3aNf~fjsKd-f*9EQATcgL9I@l1
zIgyYr@!dU8*GC+E>1d4uF4gOHNV}~X8T*0Y4ftzR8H@bS&!=NiKr`>MI!bpear&{>
z<+S?NFERnru0QzbYV1fm%*~}X3Q7==Wp)<P<JYyKgW^<`%6euOZQMQ#eAgWu?dyCX
z^&dRyZrO%#zPKL)3=BGjF9&A;hK)i^>aGj)ufMQ}U!Qt2JVDoWuknNBKsXK9702nv
zeKqP2LHHp2N#gzp+mSI26*sAS(raI?d<ni@b1*wF?R5<(Nj|7))udrD@-;5_v!E0t
zn#yz3h3>8HSDu|6k0tqcd{b*ys)4&`mx12|CZzW+UFlV{m)>y3!_vU}Ox{RTn&<>(
zL8xw@=sH!)f7z@#c#Jsu_^6Xzjt6d2uE5t0!~9MFhe4SeX;iL~G=EnLkHW&^1u%=w
zBOQ1K$ol5w!6`68fTR+3VM^e$t!JH+qjzKfvo{cluY<oUjlP(a@uTBd*VrMt*^=c@
z_fQk6bXy2NazdHggT8gw_lm*C;{r3&(Y!9&-Up)K98?y=LUHhZl@`t1{7>BU*LX8&
z$7lBHp(iIiNTem7&~!A>@cTBYAv*bWjK=ie^EX10(zIea(nFZ(_&AjAj}iut?8|_U
zM-Z43n;uWs%Uxl3)Lpfb-|xJ)iA~fV<~oT`|B_g2e^x>yNOQD)r2$PDigs=W?PTLy
zmZkXhp@C)RHhC-~#PPKqLU?QgPoiBto`^BsN&>FpeO#<x?ssghnwCw6p{>LW`L;=y
zk-gD3CM1n09|=`JACG%?ywfC2-AYt85^+Ac3jzUXUV@dBsf*&f9~!e<PFGIVSk00!
z!+HHV_Gg4Nt^zPwbOQ5e`s3d(^XEP>O#Eo8dK$6>GWK}gH*cMJhi>&L^%}S2a+(D&
zu(<y;RgII75;G)9?$4Mf$lhE34pYjiZhtM(WK~dG^^pMs0S!XQf(!o;N*f})R%xh(
zgCsTYA@oM%OIz5p9TY$MLr9~={H_G+CXPOXQHkN6K3ECexzK92R!*8FIoLNP-Yre2
zz*Xt;B9GWB)9I5R5GQYB=?HyL#Ly)ex=X9??Q|MzNi#`Oab7qAha+i|UY{PriO%S%
z(TjRUNawzZb2ok=(bNepjM~`5$F6?$iJgZ!^Xl}hgmf77lw3?*W#Bo~_wfpS?{5}_
zfMaqrD^6403ss)N>p|o}%_vSR6zfAwj#?T^H6Wl1pt6^$&I>cr<vhLFF+@EMm=V_S
zLqUx-;wPaY)C6yaVa{LJIm){2FDMuK0R3$qA6WVN`I3L=^XCU2k!E^G2{S)cFsivh
z<~D@K_^{8?OXf-!HfmO|eLhX}3W3@yLA0_8^P}F#9t!riG`t2F-xm(51B0s#HRGJw
z?7-=aZyj+uI~X_8c2I9%qR(~4;C^IF@6_DZ<X`3S>cG#uiLY;N8EW6Xm~`&Svl1vN
zmCam(fdv357IW%Q7O3F2T}Y13$Y#Rv?=_a&rXlgC<_maIl)V%4@}4G3aLn|*X3|NX
zP0<wbtQXfPEH$wgwKVH9Rl~0+A=PPej!evM`T9OEH`>xS-4NCi?_&rmYC$0-Fb(jk
z?NUEnclSB!?dQ5RXY#?}IFjCsPq;}ypT5RP_bRnVsdc2fXne#Aa3Cg%Fcj!6yb!fB
zv5-}U_6FRGF$*P-E=g3*v<rpClDIy+Rk!L&O0O&44c1kR5C58<AVy@Rhfzl8dhIMu
zIyjX6KG>#PWDd6-9RBVEhZ<jpm(;a>Ng7e%fPXJHv)L_sm;6M<kqbd9C*Bwl!Wn7t
zM<t<{@_G%7uAmF@SIf}`vt-d{vZ_d!t2ohweU0-QH`(Kvg-@JFIvmr+PM-4g_b=BA
z!?=9p87I>%b3bn3PI5WL8Q#S*OfttY_NdGXp^F$=B*lap3No#n+wAn9DWF8#vVqfQ
zFV3cAvEmH9@m=9ID5F2iaGhVd^Bc^lpXRlrbXKE}`f@QDb}lIfF9}=dw$Bj@+^qR1
z>(w85sRntdZg(x+=xq8C0EhGLXw@m3DC+#$@?IR720n^d?(9)R`}|4mG@!rqtOTJ8
zw@_r5H(8%tFigXBjI&&-5c=gyl9=+R;-Jb@n(?}mIo4E&(4I^QLZ+z~MU)+A6j`fV
zyfeF`toHBr7{TnMm^P*yh@ZG44E!fyZeRl6#4x4J`upp?@yI7<P|L+iA#nKe*$xav
zG7|8yiX2QRlC8Cb^Hex7lZSP8AK&@=qxGSResRn^dHBYFEc|fO{B5)xvb2a1rIh5=
z=zMxy`+ffShpmAJj40eu3FqcH0!mzgSFU#p5jR`3d$jRz*BoB79*C@ldpmTM7+Z&v
z@<961^+XdNJU;gfxs7j>!#bjh%jXP8vplRSaALarC25b)9T)2O9L?^YMOWW581Qc)
z;i{{?cM9tD-0%3^wGMlV`&2kg5x=GIDJ|bYrbFDTEj4J?R%y-1qgA<k@4fN}37b|K
zxsZ<?uV{aly1hE^b{z?cp0$8;e3+Q==5G8L&Xa1<q*$4X^K8N5vRTn_i2oj2NLN$~
z)1=Pl*v-Y05v$Yf>{CI8hG<}`gkP1Yo6&okJJ@fQHS{jEEj0o2wako>rw`xVJ~w!2
zgl9QOo^=uB;LWS`@5HXP@tz}!TdIe}UiZzRB(U2GMlfB$=l<9}l;mDAdQTlz?jTWl
zU1{GMa2^s`Q`SQxe8yH^wG_fIhk-1gVDT)Y-xHoPKC~rfae(LU+CAp2!%~=DuJ(<o
zIiAfL%r<E%=FlyK2&0(3#^QL7<JC87U1-riW-O10Gexx>jhx*3SsG)1yk1lJlkSBT
z1`PyRf4tDz>U=JnGZL~Nm%H{uKA#Bj7W3?hPfg)8%7IPFjCwFbWF1A!F^nyEUWR&%
z8*((b+!skgeMRBd7p5N60!c$|8`q|{nprDe6-mYrS#D5Lz0>G-S=yu-8M7nkWC5=N
z@%<lYw0$N_9pG0Bkb)`Yd7qc(v&)G3h1I64z45@QHx!f}WxZ)0`5?o#E##-GEqvzL
zS}dXaI0r%q`5w%42Tg3S*qW^Lm`7qqpyMt53YV0eK75P7-t)7ggXZ&>Xvqx&zBCtq
zjyKUyn>ME1&U=Ywq!{vgM7tk&+vmcl1~s|z6_2M+=wgXY_1${{$^~rUxpD+*_358o
zF67(n7M442aRtp#;I`)?yj2XYZeE*0Kf`t+x*95sMd)a$CB323uSLL+HaX5L(GtGV
z^QTGebfcIufq@EK5X*^9TV0jb%YBo`;xQ{?w?QiB(g3ViML(u!>|mIATTiwuZkzG>
z>XU`KK7c;nG*1%KBB7u@y&kvO8)n)dcp)vlt#=q}=M%RXM}aVTW$_ZW!KJ)WT71SC
z?ZCLtyc~hh^L?wN)z{g#Q#W6tetca9YwGQ3tqAgr=2<;WhGlR>GiWr@(njGyfUG_*
z3%a;Wj)^$PO9eZn*n)RbSymF$t(yj{BX(7*Y0t>&A50c46DQ(+07R@n-rbWS_L!rL
z;=|<BD%dHokTS+#6QB6C5B3LE>v16!v>iSaLaNa2^x-F$Z5h-!+&ixKUcB?jh-g@(
zj9eFl3<BQ*sv@)Y2EDHv*d+YjXJn83*S~L~u~W_?cuS1MP!p2R|BndzMc;oz(q`
zNT5x~nQQ&G+9q&5wo6)9B+D0ATfJ>^cutgJO6>~%F5S(?v6r7EFTIJeqK_NF-A)Wa
zmz8Wk$!TySsPX^_g=KnDY}OU|2&Fi*2ChIz9eBoawgtLjBPC@g?S4YJ;a0E7z4}N1
zU_JPWUGBcm$e$1s`c~B~G@+0ZJN`p-i%1Mp&;C=mbEY9pyhkV3CWmpVi(4fl{A)<)
zcY-XcgVHQQ&V1!DK5fOxk`BGtOVe$Qqefl9TopWHnzpjA_p96xLk`1-VZE>}a|vtf
zdK0Fc*M3<0TF^@>ZfzPRQMBqz%CZKdgF1A$@+f`jmFS*yfJ;s_CvII#Ci2mH@SQu_
zI^zNZ`s-aZly6Eu+-1W(u<pIyUNajcVarp<Si=LZj>ow$r}KJIh^Et4Tx7qTh>d;D
zfb%gJZeA$)w7qjFZn)~k9&UjO`IYT8$-DOxYJ*;GwwNDHg)NuPL=yJc8^YQ&`6HVr
z)MORk=QK${#YaXVIWE~u;Z2q_Daehi4@eWjo}Z1&?ha)95a!HQ_u~vMYx_Qzn%pnQ
z_O9g~07iyA`_*B-cOW6Dq}i=*R!GbxKoC_(S?j}9wB%;SJCiffg=e-yY<c!vY~_Ak
zM4?InTKXwmCwxWb??{Q;jwD7v;y;786lCkA+=GffsqHWdP$nyr%<tsCn<>#(&E3Us
zDS?Ua#`6?=maw}*loWSv@ch&hbu0dHp-tcPqZSZWnWGwuv<tYQ-Z}-oo@u>MUJ-(Q
zMCWLyObCNT-j(^_XI+1%DK}b!USBSJ`?9_buC}W806?W_UcW;R0{<e_PI59Do3dVG
z+lN1sw&X7t8oGl$y2rcGqKA<ub&_S`Zv4=R3cziq%ZcEQPs{C8kFE@pyKl=7=9}F*
zoDe9VtySQktIo3Sw4hrAvs3J#YhcqV7lK%tlMWtzbD+}9mRaot*=e*m^i4&MGEcVF
zfPjPZqn#7+HGxkC#ZztG>_tOS>g*>XqByk17A+sH5yj~Ey4`wjmL_>T&6LZt!MIbO
z7K=o*^C@jH)?Q`T!Oz~**r#lQmftmZO6I_@8f6)nj^nShx7ZjmoJ&s=7HmwdkE&;&
zyBsM5Q06ewxQH8bl4IYP)(FZ{R|SBR<rpe6@hjh|SM7;)u+Xka>Z{;V=OIcLh!izC
zADSQyOSm_KHG=8!m|pmuhpTq8`B#6*D7rpeVCa1&N^bCzsp6#*!-{LtboQXb#twE&
zGlUQkKtT^N^~8Af6i~9ho1(*@U#)6kjVb&1a1&`Y@=3JK?ll-ue_MI<hs%rB#u$Hz
zk*>|mb>O762A*PHZBR7xJ1R({VX}1B4Xigv;pScJ*R_3~RGeR<ybK^x)+JI&J6Y95
zC)kxr2*j}D?Pe?$;!wg2TMMaYwl7x<Rw0w@bAZmohVOaJK6KCrHCN^}iT0Her#M$g
zHVrVp&?ihGVY5m$A^9ZSmgt3qYwoh3ec37t^E>4p$Gzc4tgInO!As@Sk)63g`#SXS
zB?(67E{QYe(ott4aEeLOGk6V5n*Fh|l{_ePV(=>Daw$gFMaB&aw=@VW&La>EGpz|7
z)_?o*X(%9GFkN@v4k!W0xm*{T)}CJ2gFMk#*9L@B7+0=HR@Lyi(32AFUiL6Sx?peG
zz3L*ddIWHwqps(a5S<w*RWacz&_~@@B}WRkVV6*L$A+Kd9`C$$sb?5_)(uV=2pRG+
zfE<oOB3n;you)kWGq@rHFN61wCct4dIwQEgW~o;h6S?$-IAq9c=;aAYa4iCqqAaB$
z<ADL!8zt*P?Fu(1wjWnNz*1FmsGUuHb$F&LbnMXcu6_UQJ?Z&bvk}j$p!!L5cko)c
zPo$*q$``|E;JK9JSk?h>YPf`%8EzW3dcsOn9DDd<6wUS(+5|94L0S7u8QM8ahTMBb
zUIUxbB@>@#aX}k>*M>~fE9N@SI+ZJ7jBD0U-&4G&Ph=7boa!JxIqBPs6a$mA=&_fB
z_4`#B!Wyq?k`r<ql<P}!yinEBbUPmdlGvIQUn?H(zWguB2(9K;WW^2ujAM4Ad44Q$
z2i^_W(A5Wg(p`C$&FCi|gjc!lBkWxiUS0J4gFX$LqoLfy+IE)@3xdT1E4|TM8Zwbm
z@Wfwp*wmbXAyfxyOc*?nH^EmW+PwC1w=8pAtlNoFrU{AVvQuqp_Gk!Vf_*ze7im;f
z?aXW3ild*GPlDLBG1bd?76oYslEc_j9LM_7xpYfuLJD_`u==7lMNOu&UdFY<P?RJ5
z{mT^0CJ;2YmrT|=*Lv{XtG3)yeHpL5{ZQ+h>G!&mK$<O-DMM+{9iK3DZoTb2^1Fja
zV(`VcVu(8H!(dQKBPsLa)97sUVG%X3GeJh-`XWgm{V6L=^a3XB5&O7*iQr{|a#c{n
z@bHkB{rK&9>N^EjRC?|-E7B=T^{#vQ;wpZp2)>l*A3D&9!gnt2g4-RgT4ZNW*gUcC
z7>WdFv4abV>%f2T4}>MoW;8#Csss_z2Lx&3etY2eGH#xz+OCLO33;I?d!Mk26^0P`
zGsq&%v%@IX(kAu?y+(F(9dYiwxoQJDF>V|U51N_l-F%JqhQ0lnKmtUIIG+y5$7n^p
zG6Zf&13R!{2h`n@kb>8bFEyi<Ts2V(&$Q*|vBy-rqYAMuYnLU@x;q1g2+b_6Ml+fd
z?+WVRXz>+UWAhsE0dWM`&(@_MA1Jfq7A1MS5lSxEiFMUG*6+u;$Dy8mubO;A6`xaE
zxjjW(Z!&db7#RgoSQxB!cWFNB#umr0pX`K0XWAUiUg4dVm}k*4!4qY^HzmdKVk)W|
zBIq8}jKUJ9WIspZyu~x!ZNRmd(tV=!T<o$Q_;E3Cn?za)o3NsK#a+U!9CI3=>ePrv
z;?yxr8K|IHPVH2W8|66hb$wcb=1pF(RWynw?dK~cMtI$#v(74E+<NcSl3J+k-U}2@
zlO(V38((RC{8`3j8^`Tera&Qu@?^fZLZ(w+t@4d+U%v08q+;QP2=zV`Vu9oGD^7Px
zH77&y1y218c#%vWSkdN+b>K*|Wi2Q|moOl(=Ag4ctnbe>kG1ld;ygOl!I&VZrhv9H
zM=XW=afpqn(+siTiF;IJk6*{~uA@T)9~zAn6%i5joe%$ohzX_B^Tan`dXdRKVYt66
zg<Q`u?s@lS&JOIW%FWaXYC?mpr8WGGL{w6i8?$0;j*w`KgkWKAb8wm4cMdREKmmn*
z?vXLD?aPwTxW!kL$=A6$clFokVn^Ni>+GbL&`ShJBzQaO$dGq~9-FSl<|9$@qW-+1
zA>-v_F2hUV-z?^nzw+euFff}gp+!)XN8`y2e&_ZiJmf$6;szk16CW?}A*PPWyzJ%L
z>hC6BXZBaGzW(-Jq#G7OLko*}o|?1A%D(vHfT9_(nO%t}f;my;tsIN6EW2}&_kk}C
zX`J@1zuVI(H)FLMlTj=GX<m3~r~yj7z(Z0T5A=9*?|9XH3CZ412p1Zvl2kqa0i^j=
zM@X;yyUBt!aoHO2XiZy+6bPdo?Rlu!bzT%6NbXiXtBNI~hR#v@W^uZss-yLcA2;|}
zRrYN!W~`d+YMS4e*SS%S%CPk_2c$lZFs{BtW8*vyhT;{9;6U8tHB0XZ$=@wha28&I
z|72NR@pZ~9fkB1p$iw7iH&;=#+nH++@XhHSn(nixz$#4ok+&M{=MId>&a7jzN8RC!
zj)JGbNcU#*PVDB*k`ptP*c%bw3X=tY!0_~AOchd=p7Dr!WhP&CUY{4lvy{NziuR$6
zBbj&PxSRh8A5e^3i#!*}TSAimNv7|nY(;A|H%<lRK4cbgGj$%qCNjfzU8XhxoTufU
z{b;?rSP_vBY4EN!8x3~Q=0NwFaE@lLW!U}ulO#*5d9b%I%l#Fq>M~gZ?3HgwN=gtN
z#OajM9QIs*N$tLB1CzTs%sRr1T8XBtY3h^(FYCR~huHj~MNi#&1$yE`;X8}H0i%lo
zNpHYheFMR}GhA`B`rd1jL5c&8*|PB9LwG6*LD;ye1J4EbX^f06;Bb=}mvOuA!JHjW
z^UrOH#9PQAUi!_P-sIGRpXuYUYk@M&u|*CP@zvg<H8|(6yKyPd@&k9wn}Ihlhut6c
z)~4GWsU$O9l-f$0SOxAIYb>+MS!KVxqKEPXf8BuhZ%%wRNkNflr{~9{q7@x%fDmN&
zlV~G>?r2QuN$d*hy(EPcfhjBM_2Mku`*@_FU@mnDd|AW8J3!|%s1p9t(>)ti_VNt|
z&zX((p@&9JzEoc&*fJEC*le$Z0bb%K-uD-q+CI1m{OYTMR`{Ud$@we3I!-7Wt>VyO
za>ILB7(zO*quWn4^o<^);l>cB=s&-V74+&-G2YoD-A?DzwWe_=D&k_7T)LikB))@<
z$M>A1H9hMt!)%YJN*X`2%@+8|z>X3Skn@nu*3p8<cf2LT(P{Zyc2#id7-gHsazdlu
zd51PLjIuy^Jp6dLnrWn2;dusK)`<01sBu(WU%lKO8B18PpGr`el?qA0z_1w{r6f&0
zb50uDn;9)GkEO#-Rq}QJr|b#CD>?)(RP=!iE`&#<J$IB2L3}EF7MZr*bX4ZU!j~%p
zc=4uHWHg~pwD>rgDruvl98+=t{>P`11!M9zU_FZSBNSn+KfB*(zwN7dbJ6Q#0D-~?
zo;CnpEODkYYIm;3>MntsoO_5WKQIcF<BFB21O0^`&ErSPRLpbQb|!>o679Q1mI5}!
zcnTK?CE4j0dVAvo&S`a{l+@hJN<o;t&A0<X9>Tg#ZN4lmB=wsUG#;q1@vUL72bniV
zIlJuy?92vg4v^uOx`XckrX^(I6s!m|qS!}9m~tIV!g?B=ql5=Vs24&F9zh@SPRckL
zuxQheG(Gz#+t)wB#Q6MltK{#jPTWVRsKD`mf93cbEZ1y16FnCkV$Sj@bnty`Gj)wk
zxBJwE+jaHB$vhtzTPArRrxZ)Wa_qG<6``~Ynq{~qR0D+ydr(IROuU-uDb6H{i;8)D
zG?Iew=m0eR2#W-nWZ;{{V9sO-FI8M5!^pU8lTseFFWH4_?Kv{K9vTCYXxN9QQtUsX
z_w&__IajL4SScaC-jMhvUfHx|Ld9Y-7Z9^->Ir;E5#Xz$TT2-tm%^X?IUT%IEHI;w
zvW(>qj-;gmq--UvfqpuFpJ4gqAK=*62PSH;IyTgGZGVoQFguCioxFnrzn(<hBHzRE
zUI`J1rnU)tD_S?qqZrXN59@0m3}jKz9mHv7@ezg5K*F4McA-XB3E7KY9<8knPX0Wb
z18r|{2@g&pWuZkmWacGNT$|K!a>ABuk{`}n7k~$+Y)kVo*3HT*UE<uKHD8PK<^l92
zzWX&M$!9p}Yo3<^Kdjdl`*7z=*#g&AcXY0s=)-`^;MnN|<TsK#4%_Y)@FYa6z#+A2
zwfo$deBnJj^gsro9Tk3-?J0>K<wumbHGRF}&&YFc@4L<<lhM8m!1sX{g75ZpAz0{r
z2qsBrJ+0i>a~@;+4EbWj_bxL`Ng$ni(Kn>)d9jq#Ck$-^HE@qi?C06_VxqUz4Wi-f
zcXZEQvCnYNV2@`#JapQ?u6C$Rsr!U`F{G5axnO-2INihYcQhZ(Pqf)_ai`XDIGMsQ
zb030c52%|-XXFE|Q|GuQPMsI>IF>9V=-wO4AWsMrHOOrxrOX_eR(C%IXeVDyd<wHG
zUCV1Zfg>&9)&1btshQ^ZdXo%utB_M{AtQ5kRlchUOY!zPWT#M8mO~((=*@of0~{`&
zHIDT0M9oqD1ohTNag;$_#<*+=YX@ts6*?Yzz{S>2g9#4$YY6^sz}O3;ZQ)Y2D4H3j
zgA`o3--@i2XTN?#x5?JF5(a$Ri~^lmw|#Q6?*lkhiutT}CkG>coRVHyMWeUkQTWfm
zI>(B4rd#<<yF}N=jJ4?J+qRXWESfwYJ(E6}pTK*H4l?;mkT%+Ae-@>G2TgB`1`maP
z7DFLn668=2mKvgjdzY;oNitt#=7xMyo5lGoD8QG_ZStX@Bt18l#w_V+vT&L3C9j+R
z62&8!%o;jeAKm-V7Gjph*Yh>vQrC%5<!<u5@FmSQ+z00Kw_cOW^Q9vyR`4NrWw-!C
zVJSNlUEBcKC!ZNiQ;y093hU&M?$2k2?w$MIHX7h@l!<~NFCN-GpM*@X;4Kdsl^Sku
z9fWVSlKLFFhbVV;qXZ4wiz{=R5q&F*Ht;(!K%e?l-{n$yv`IvfIWz)iQcgoJzxhx_
zy?t!iG+X$*P4WJ;jrQ;%dgT~(b^rSQ7$Z<!w($ug{oNT|eAZ&9X1EyZ!)Q|s5HdY8
zpfS30KItBZ_>hRgSUw2#J>TT;@q^GuaC%QShs~b;Bp(Ll4^j^JJsi>E{%F2~Fy979
z--@1Q&ls`R?&0EBt%-xv)1$gQSf?rgdU}Y<6>f0}`bd(^h8Ka_8&o=R1`wDz*=f@4
zq-Pr#bdt4p1z{zZ#KWu5o;0ogoOUr5>~HJ?0Z7Kt+sEl_#gI&$><T%F;SL=tAGr+4
zVLvy?q44mz9WauNuU@wMoM#*uuyN8XmATH?q8P(o4pYF;pg^ackDi^DXSpMG;v>Mw
z>bY>!+Wi#pI1^$?I<XWJ#pKBgZo}cax6BwNl}9>SEv_%45Jy@t*WDSyJ`BnDUf1(p
zpM2QwdxZ-A(%{I~C_SV{typ__x+XjP3jbjiU@8kKO8HNChD0m+_OW0&41IJGc*%v*
zq|axeiz*LSvN5R%5ty29sj20LwXS&>PnC2i+xZ{6q1z{`vKL~?j6Qq>H29%9&L)WN
z!z(YGRm^@={ytfbCZc&>#&(7U1}}yrEDam6GU5}kEVOPlDkyZsqxUHxE_FXV(S(1p
zGI}{i4?(tKiBT9`M8HiO(a0i+_Kl{j367%|{q(`?fok0eLN~dV^Un}4C(ON6G5tu2
zw(94BO}wA$0-MD$_X-qyTP8-)PzXot1d@@(a^U0D!Ds@8C!D^{Bu)95%{P9N#22Cy
z95X0&$2P79tw~lqAzP~k#+ThTn`78p4(<*DhOam!h#$n!l5I^D1}whSZc&TbnidVP
z?w$Xi0LvpZ-0EFIrJ;1GWOt3u!fdLVPNTN08nMpxy&<&L^<+7;ja8V;3@S~@oUO&g
zC>IcFWyB?NTy&)?1TI}yyo}!qw59;mg;8o_h)&yDsFJu^kQWW@-17s=R1j?MG33pa
zXZoif22MK&5fc1;QUILH-{{;C&C?@4d>Kl{^2AtrZC;7Ibr#w7TW;ycLJE~6xJU}E
za#9QBe+|zRvSw!J_gl=3B0{ht#N91>=i%l~xPfgI3_NOtQ3<nfxYcV9jqChxE}WUQ
zCkM!~RwT^%P&4Tf8rRA)_vXL?dN;je&DADipD%)-hi{Hu37E=-4cmoZRcpHL1Q$ON
z+&y3&8VD3_kcpKzGNoewJiRQZnlA!&l`JAQof#U1BkFi1bAK%=%F%Gw+%BUTGObYg
zbhc9UK6;j&JWy#5Gl-HY)IcH)7{}uzYzJ(uY8_E#(FOLs^ly8;6~W0z!GV4x=^j@{
z+20cKngqREBCTP$RJ3`L7W<v$d@KdGltDc1j{{%qfDBfX#31eZE++(&jIZ)TCDUP&
za;>?!s42;lSrcO^)0v#ZMr{<W4!xrUEqF3wKBLkWSsV}JK*RcvNl2&)c|KzMk!CT@
zfKGNTkx7EnE6<p4j$Er&w@#gIMUo(XkDjb(Y!wEmGf69GC|oNEv#`_nZDW<m(Vp>G
zwQxt1gUGRM%MT1gvk{hHF=D{3>YYY^i>>|T3W>FA=M22JYr#f%UIUB6^XQB$=`dWz
z=U+C<l&pAz$Pg@PVPtHmfr{X9>kdi4ksg5C=*41-`ITXM^X*<x>qn!74a|ZpW8%2o
z!7-Yt<;sxd<2k%s4A=S_koc(s$T}xBaaCzrkF|nzD0dV@k0+@xsw2@#+P{EXe!X09
z`aSFr<b)__MIxP2_^TgaTo1q9m)v3(8(xWA3Yngm_dv&Z*Hn%iJd?Woxe7T$mt3YI
zaeo%p@%*q|2CKVs2;5|ISRMKdG}?*2bIg_Y25QXR0qq$7b*PKpF*VXucUyMHchK{V
zmYS7Hlz>P-=-k&G=*jP16z7_VCRb+&nXB5`s;`4bqGk(_rwT8wm*S}*jZ6^<(507?
zF8<J?bK=DvCyxtHJ~mXs*2=&EI1=qMCJzIrP{s<tcx*+Cqiu?IaeWu4b8)(sDD*sa
zFzTpDh5-8VOeMz8uLetnu+98!H<VVJIrt>Lmbx=Xe3b~UdHY!;Oc}1GdQfCe0}f#l
z7T!wCGSMH2cnrao?V?s2le-+S_cpoaePu)wt;to+0u842SyL064nxZ^pk+n@(=-eS
z5n{kC@k1D*&0xl|oJd;amH-1<aUvMUgi&w8d1UD?JlTZIo#oWH_w#OEmtjIv3Km>^
zQ6LAHM1jHNl;bMK$}FePk=|yBQBOejP|ITgNz!jcNWLQ3e9C8EL|VrDFNhQ*)8?(o
zQ8h<Y%u<Y61zs6w?fcl4+RkB;$TI|)L3$n!<N7QQaV(TK82VDgt((y0O}DDyY=w`L
zldqbk<~ZL}wjvbjbfz!ATIfX)ypIq#c4^0Mmlt_B%VL{Lu$8Zwy5Y2*OqGAg4d;uE
z;~6fwV@SNn0}yU&{7|jp>99s>99arrAjkQ#40U&4wI&Vl{j+*#t$9&H(D4hDcyYb*
zBC$Iz;T#)`L3xZPDq{%n`8<wc<P)o*JltFGkN&zuVDa}^xfuKeGrZSAOUl@vmWvD#
zM1s_k{pkI+_Uck|N2wH|qlZr8I9t#;7tPu2C!V2%LzIBCC^xZ*9=@V&^5JY#=qJFu
zFh7HT1nE2{ofb$Y*R5J#`}GzKCuqvYo$CvBMenN%J}PNLDpLQ85jR1Pb9YWZuU#|G
zm@F%H<BBOa-e|~*7dWX#NueyCfa_~0u^F?n3}iIepM0a$g!0P@S_Gv_YWhdU`2Yyr
zfFf4o>O$KE>S7d=VGGyR9H1n93}|Ho&ag8>g?p368xZlzU_GtlmO{8Y%qNfdPC>T(
zss^%tvM>sp{$s)h?SXC`#6*!+C+6aonYj<xTCzyJssS~G;_mP>X!KhCh(#$315c<K
zCZzZvU+X`o%c}Uxu@Cb|<1eeLQJ5YSG&djdi#qU?7M_RI5#LTg7#XZl0ezfGh7mba
zaP#o9B`*5GqbQh24_(PHYy{fd(rU#!1d?5FrkOO^K@61tlKgv`8D#axnyz>$a-|c)
zx#~=wiyO|(a@~W?_ZDhV4!ib;Xrz9m4(XSb15?MfVqI`<W7-zKHe$lHB@Th%=#4U*
zTb-JX01kzFv%0&hUcDW%_kWIM@&dG;I?Hsj1P;;A&K}NCU7L}j%deE~by9O+;VC(L
zt6cs)O;umzHtcX8G%-`C9w>NiDY=Z_V4dq`tf(xa!Y*e1#-zs9KVW500M8*p6X$Kb
z6EkQaH;W%YTizLpkyK5ws0cIAgB_{>$X7TrBL}G&K|dpDVyWUmxQM%+W}YK#kdgC}
zTIl40CIpW^b73e@VVKR9#oz7Cg?s5-WsAN8>PNb6f(nCphPyG-tCXA-iisiX$+cTT
zCYGf7=+)NDCR^V^OrUfw$?V#-j?R5wo3e?RaZsHby&cvU_5})qRg$O^WOemOij^Tn
zDJH5=0oWTV1PYGh5>fXf05`0`SQ;HsdE#9ye#9r{#c%6Rp3dxS?}S}*R9jkucRc``
zuo<>_VREzo6`hSj^;d2`i};V|ml@LtWx$T^XR-fo75W>ZV(E|JsyLWX^AmBQsdD`<
zw+~4?F%cT6athjpgf0y}FP10V^Fc_?r-BtH@bXt9Z=1#-xlUM$p`wy*W)<_&cQjez
z*owB3JQv9u5p1>>Jwd7jtEFot$zV^XA3Gz_?!OOrrm_hND2aq<wg=G*KEyv4`6H=v
z$whbIUvV*D(v!qK3%EF-Trwa;X@}0Clux+#f(ljBmoX5&vTm=y>xcBQ@5m1EQ#@U@
z=}?|P6?dlOODrUMQMR@g^MfGg{2~v?`0BNR(I;jWbCyw46v6hQnl#Ty%Mi0z?feN?
z9DIH1MrN5Bj&IdUZIxBwHs4`D)znxQ_sKwc<oc;uaJR>?<k8tLBWZoiickMPeVsbY
zzMi*@d0xiofU}tD+?Z-qHUdS8v}<i}trfyU$G;N6ov6^q`sA^28Q^t1t~z)nI8=dD
znFXMoqfX{+^S5@rEZ_SqC<R+|>6n5qj|wUy4bBE+hfxd|7Mxd3b$*UxDnxa(=k7X+
zFx#29nW^NvvFgbMSqOR884ZhsDC#cIz>wPz3*}_4?YMD5=;YSIy0AWHY?0?`F4?=p
zvddbt*cyo;9<t;f*6dEq@xb$<vM-qH|A^HLXi#+}DKc!@2Q4zWHyAdB{*JvcXDS>n
zEs74;F^@qVRfeEbSK4L)9xTve-rFju4xrR-liSNoK1e0CwCcSBDvh-1HX4YS5#P$c
zqN+Gw-4aVIU*ZvRo<aE7e^f)jm~K{l5%is|AFM13uSXtv-H#0?mm|hwGSW0<<bnGc
zxQBZmX&Gmg)$Q_>wLX-q^d7bx)gk3i_YQiIl>RM~zCDi<kZS@9unH2qTMKwx0k0hi
zDmac(<&Vp`+fLNI2@45Pr7$X0(1t7m;3bdtF3sNV0;IBQ@M%dem)(mWn18gyX9L*Y
zjP#^f7%bXAGkytfwgeLc2q!P%!I__nXFEcby&<zw#Gkk!q@CtH<B&>6F<;!qMJuUs
z&%@2uA2|a`-Cvw1Y+pDU^W%+u56rWq$|YKGDBK2E9IyS^jv-zeC#INU^H1xZfMa(S
z1ZkHz&FP%jWOB>ry=?;=jcb6qmvw<<vt!%!=S01(v$e{h42aiM_P<m|%<!!M1j+Wo
zGC)d%oJOt=$Iz`qeiWFqiTo(-*UM3s$=;OatW4_gC>+ZXGtPAu1;e=NmV%FTmT~Is
z{hHB4p;4}L6{|NXIGrKbh+bIXazICBM0Og<aT9MBn6W9-npMsO<7)-LH*`OwxC@H7
zO>~jLgY(9`1N|UWj@NQm6`0;#TK5L<qYAKkMvFE&^iL;^q{B%)AoUdHZrNeAw+Alw
zD9ukFRVDSceEGk9#4@T+91F-X!cK~Cv4-+aBZpDxaJHHtM?s>fBbSzYHhc@T5c=fT
zD^P1rP070hXz_4&N>iOtOM?OgrR9dyWC$u5NWsf;?<GWovu;!tJMA_vU;_qf6XL3F
z)pNiU9)SGDRE4VISHQEP#OoLuYPM~U>VvwK{`DL3u34fe55g8I>TZZ<aSoY_vapwn
zrZy^wC3fQxax)Tk6UlMfy0N>L&)Er6iXjb1?~r~ziHU85iUEmvi^s~sMgw)#xq7vO
zRiSIRF*Fd_X!to<3rb-ODzV#c+#=^)I)*|sL_M8=@Y_qEkLN9v3+;U=MyQNxkk*n9
z1KK9MqGr)ZBZTKkUMWXtIZ^%%2&TGvJoKXa5YO)Lzbkz13;KPO34c2)SFAJCL$|qL
z0{BU^qMc!=P?JtIcN5QGaD1NsXg7<i%>F8+UN?gjgsQu#?Vg^)dH8sDXeMgL+Z!J@
zIVh<DT<@>6PzIzB;~a0N!!jmXJy=$_If!2~v`Bv;m%%WsDotrU<UbdH;pUS97V;+K
zosqA==*Q9ar`*<e{$IFx@#5fkUf)DGx7RrQ22(>^{N3Y_YI5r6{&6jq5(0wxr-3uO
zT!?YOzFSVkPM||1?-tc8#mbrg2%oW;%`c4;Xeb}(LNH)DxaxO?z18AV(1v~Kn4>;9
zz8a62NX)UI^gWc$Y~2^P3qa>;BGboVLhkN=Jnb#pTkRZ#**}QqCD3*}&>9xGr(onx
zNN!9#v*1L5vm0~_ELFmoE#qeZq=kM|eLsg+VhYz?g^YMx-fgBP{85pXM><Hae}og>
zml|>CwcE}!Op|H_8wumM;}n4hh#oO-Kgwfw-JKO#|AH_b7}vSqgbaJPyvz-TlZi)x
zej1*%=d&ky#U4KkW$2dXp>{9H(g^~y8?DHo$}XoO%AabW^hr*hvjP$pjHm{}-dQv;
zoaIoGj8nmR<ih&LU-ZrX#+a=3mB7!hg>}(CxSRa}zdEzITMjT~eXS2QX<)AqQnl^=
zldT(@c@MBJD;$o^s+AvfLiIzqVqS!X7@HmN0&?;K)Ll&o$o8~O3O%p>?>f9tbD;4Z
zLQyCN;#!6s8*(JIn5<Y@VdZT$eYc!LtqbbHOl5Tsj^4BY)BY$K`Z_S{Q&!n%oX9Ta
zwMT=i!O}K4#Y(!;_mHph^=i+yz>UvZ2DOYh#$G_zdrs2M)N!S~Kknyv;8-M}XHs;q
z0(&i0>ugEUUQTFNfDm}<?4QlgRtZ6)A>L2)-%aP_vV(LisbAzisUU%7S!}Vr-czcd
zlIrr=<^-VI{z*mR)oEXt<VO4$c?<EtX6J>BUM%7)PXghQc94Fy-kI;c`oEHvUvGdR
zgiQ#)TZJU&N?V2J?TsK3w^GKC%hrMhMSa9%Wsx)IH62|5vNPPq_bb{k+~tA4j~ZQH
zT}+b&*5z0u3g?LS*CwD!UCs>ap9LWK3!FrH8uGz&Rr>$SFPWpo&;nE{kbb*_lmF|k
z1{!+q)v$hd$cQScW^)Y$qZB6c65F%MsG;0Wq?cdW00qD4BRq}by&aF9*fYG;_6u~d
z-R#g~H{LnBk&JIiP-1q;+*TI=r0OueG$Mx+)*E%}_@B}N@S(kX3?{88{o=_)!v*bl
z85&`PfRz0t3rEV_ak(FDKsT%UlC^|1L?{t?{~`2%>W|{{xR^0|&RM@QM6#WHumn~O
zto!rrF#9M1z)rvYPTtYD@B!Ru9vT0VUqJ2ul0W#qIdLVxRhRjc)>+6ZQsQMZcXE?X
zDhy;h&n+TuE!E3yP2bE~9sM|E(|dXohl6rVW2|zUQy(fk191z2kdsl*M7L0vciGX+
z0qyBa+#3^QMhD$2Q3bBqcI-c5J%q4&f*vSx4@DE^0+)_pPmpQ)`=$HmJ>DE8&d#Eu
zy;Wo;_<fFThW)0vuhl}m7_08bgjbrS$0E|nGKALX<9&CN-qNNARy5*nR2|JAx@2;L
zRJ}*EhBAEz#=Ce<m}RgI=(IQA*%mf(owq1{zHVXQ6{<EMO{B9m+w>XXkg@FcEXy}D
z3jEUo%wIyW?b<KsV_dZ;f<ZTq1yYA|(#U#}fD0E&V%)v?8{QF|(@c0K$}i%NpFis*
zz-HIDU&sz&FG@;0;NqHPfmm`mpX-X*4-i;4WdfN&@o*owqSg+NwB}0D!xRC6C82Fi
z+<=2)-Z~tAJjaZkQ;a4+yRE;rZQHh|Ic?i^_q1)>wr$(CZQIl4p6ujL_Qju^bNQx{
zx~q$-de(YE`|mRoxH-NA$D-OYYy6`(KW#Q!FLx_sF|ygl+O|`A*BiLCE)+VEs3XDH
zxVh*B2<!X_u1r>@yJyVA2gno~E)>$vnFXQ9vZe{*y|lG;QDQ`R>u~1mN*wyt@oPcH
z_EaY^+amh298@KgA)U5d1T{d2*&ly0*346?H{>EXyKI8Asm8Gzl$JNjU&4(2CTG$?
z3?XK}TGeW<OH!u~)14GOenzHm%jJ3@-Ow}7E^_EgvQo~xR28kr);<*~NrTVdZ8q&W
zT??Gq<zAC3ET5GAaDgz>k~A@P&*3{NrN0yL{|m9<Y0*|0dvU?Pg@KAj08tw8E5o<P
z;ta5vcY&C#G4hWaN%BOibm#eK{*8u93PxRuL$&{-vA&<h9{c^e@W9|k91aZXW2u#%
zDA*KVy`oxb1lC1L57A&>UKdTEsM?}JM3I2epU&6lR*7Y<Ts|`sQMO0{u`M%2N|I8i
z$EsV-GC;0~HHfq;z82S>d7CK<LgYLO<tws?TtJmA9LZrZenfuOb>@`^@0j@_xyP1O
z9R}mV9Ya)oK92854nA|w4W6(o87_jtR2p>E5pWwQ`RMWXbLs-Cuf-Q4JUs-mmF+kO
z{M*yU9xt@VPh_UKW3{mT0r%<a(qgI!Q0S-h5%p_35zycMvn=P6oC@2YCd!q*_PR$U
zThCC6xrM+SQY=<rb@~1Nl+9y#REF1+xKyUl+DycQ9kk^J`spij3f4)`iFNn)Jqyyu
z@+MFA(48*2eRM_{_4wNhlzsv3hw%QauUVd$3nrO|Fo;2MiWFqi@i(7tY$TcIltPDw
z#cmKC*CaxDb6p>QDb`oGpUh-%+P|AhuXs_f)U60LReKN@*cr0iC7D^8<<3vU?h+sp
zOhO)BP`l`HnXr1{>G<R`;%-QXwq+C~@l{(aF>>7y25SYy-cJ|;<cFg)$quJH*3R3S
z_YrWcUM0+Y9WQO@!F_SwChs>SH?aa6b&gsHd)iXn)Fbq;3_j%+@=T}0gD7RJBMr8j
zN4-MjkrpP%NhEtgisE9MuPWvmkK}I$BIb+<AbFMztzf_(z9kA1*<l-73V`C6l1)*D
z7fS%|M$p|i38ZeE!b$X$-F1hsWiwRO@tnb2HdNba-@{4EG7+|k&bl9vh5qX7T7wIa
zdi&-kPxFOJ;0(tbLN&GDGp)Ym7se8rGxYgFPwjJH!M72!3lof)91*QmBbW`hi4d?E
zwV`Q2fV390i7q=eFg-ls$LIHj&SgwJM;l@c4X-6_+F8w?3Ca)}Y(1(wd9A`uXxER{
z$bgIQ@1dj{yFi&Yp9myLUJ!z=Bza)v1E6?AI=WT{Un`o27Hl$UOwqAAuXuch6oqVv
z8yCCFQEAv*tSp3W{Vr6<wP!C2SixEqV%tsf(=?zYh11zj1Jf6%Su&Tbz-@v~;oLv^
zd~;EpK#yJ8(a#LDoz5?mGSP3>RG!UMNp7}`lmD0!KyM?I)~PXw1|dPt4>9g291r4}
zR@3v-pogqD`Wa4t%1dkgbB?#WRWup^D4a&q^!mUNdlQ~+ykdBPjE4EaMr8l#>l)G7
z`MOFQZ%*-6(zp*~8J-(=C*e(4BziR<;gnn0-@j&Tw`bI}w^ymehP<K@aV7eFLYJe$
zZ=HhyT889UYXX*y8b&ET;*p9L$@r?BVmfG>Yd+-nM}qGFYz@*Ai}`u@Q$OE3vN2R;
z=bgYk-=_N#D(%qlLMUX7J4lVzC{>V+!$3*y1yzC7#JIuOXDbQgBF`p&xI?lu28kKd
z@Yn6?)fS(bctCR<pWcWP0~UD+Jv5GNC}U-&%Q19xspZ}kpcd=V+L><Udl;N%=`vif
z9IEJ7#5do*fvt@Uw+ePN>+gSWf7FKDrzh3aQ^$x2y>uN)Hl{mrLBt`rU%05du0d*)
z&bm+-yNBCRxDv7CRTK2PmO6~97^(j8<F*Q<R91gf6%*dp{9RiNO=X9<j{I$HA!|1B
z;_z{>QGipXN;`c<Aa<qKN62v>=ZuikYQXhDq;&fTGyKB}T@>Wq*dd0S>VeYu=<X6(
zi*A`=V_x${eaN!^zyjMyz1CaKG%4=sJtXpWGR8QQh%)-U{Sh<h!rVT*lmpaDw<5G_
zHHAr#t3QHq`9n?6fEaSy*hf)lbytg<&$dL1X~WJ5QnDOF7;RuXVF_wsw}o^l&QF-}
zs_J!h6;7QlPSiT8o?HUVEt_CAe8lm^7iX6%WW&KmoM54sNKxPAoytu8qle3SQ8xDm
z1hKpj*%{o*+Bslf3Gbu2(Qx;1_%8OrhHJEkFA_wfLN*HKIXwgwKN$7qDW+dj(m_>P
zkfd`3KER+a;TwV8`XtNmcj}(Vxbn9^JxGA7_`;N!{0aLi?ZV9ls89d0w%&cHiO0MV
z!v&EMW9;A%)e(BTC3<Y$Cq#9I#ljK-9IS}_eZm&U?=%Yxmdi72zEnHG2Fp)*F3Y6K
zRvovuO)4|bx0oQnml1QN#kuY%ShC(qx<=Q@{wBG{d%N261{DcU!6s;YSflyZEwI}u
zgVdoLIsYK?<qj)3`;qjD-w}nrUIiT+w|~1&FQpoytiLs|KA%WhqDG*xTMyYX%oSD*
z={R>GU-1%GQNp4d&1&5iv~V^-m_dJ~L|(xq!EuHAV-H66fCyk#RLr9TMNqt?lH=N!
z&_VdT2vMvEvDW`_i&qxo9H-Kn*s~Dy^y_@;6G1+V&q+q4m|Cs_Al!7zhwYn&*FE>=
zi?t(2{tTSPkE5H!w+O1)znswW$bm|HI@HF{4odCHpQ}x-#s-_BBL8|rYvR)Z(d7~%
zf96u@R@nl@C~x4myehUy7b5mBdB(tr7>?|0GM`+4XVBc_8$=qhiVuo4aBe45g}9&<
zu<gKuY#)pKrj^}L`qgvt7kqZ!Bl%)<{T$)xAl;LH_xaP3BnV<*bQA2lg8vtG&SrZw
zjv))7k!c~bTC)fQ;G$I&mu|%4p8F30WtM|FK7NqQZSwX=*Uzpfa0=YEnR!M4(X@Gn
zrf6Xl?#|oY*Jd*3z#r?ToGa=tqN-GC%yUnLcM0q`;TM3sy?i&Q@y++c;!`BhF<wky
z^0#H0ZdaPikt`Cv&YC44ZezWLEo7x;Nfge$7j*`?Ap?i?)!sRG+YKXevW%f@`oLom
zF`7$4fpIb2-MW1M;jBdgG&d?@K1Qpe-q7a3uor;!ah<=Z;bQQ)qqF;VBi~Y{cKrKh
z*lj5xUPOA_cWPFFBK3Hquu8!-06?rbMs2O{Fyn9R$8aTf#A7RLi-!t@6Fr3Us(wLr
zqjX-NwnJfKk<k<9B%r_XW{eg}X$_NogD#SVI<?x>B^(P?Zfr_3RStpP_v1o7d9!6T
zfAZ8ai^ug|XpY!_;=>kynkX@x_iM1h#=m&^WxLb$T%qcAxZ4}(_gqz`lG;%vNl`1>
zkalB)06BHt*gPDE|5v5_cQuAMpXud17gjTCoZ+;g_a>7E<TO2{76^lSlmpwztNF2Q
zaLgP7xb^3Ty0cQNP3Q&%6z%FS%2{;$R{G8bv634<IH=SB{u>#?h6bj;4e9RJCa)mi
z*JMakyMrn_KPcr^aVpVqtHvZtXVlf&Y<_X-80TwQ1y8;*1|5VH@cL`vq#NMKnqe+z
zB>>S6YcK3!Ni1enY~>qsx4uvQhj*n4Si)-fha)%(N7*x2l7FvC&Aik&?J1-|l%lSj
zJjD~E{x>wXmb!{!o%fni{5XSmS2^U96{oy<sX&eD+y=|mh%RVCm}^-reV`J-s#0dd
z9&}n(3Z>vRy4!vv7%t@g3DX*L!9}!Gz0yi5WUgm{bNur3-o1o9f-8SHvLh_m$(i?h
z5G%7hhjEf@Ez#Utgt+4Lg>KfuyIvpe5z*U=M?4H$m&S8f)nYj)6uDI%5NN?M?O5x1
z_HIP1l-CrlOE^L<koXJM+oIrkH^;izMa1>4^(kH39DUi84<;Z%atyKIUEV4ckMJFX
z?72r|T$Dw*4C@Vi(g8n0Nk?Nos|X%wCD0~4BD)f>pRj!_aj3@i)d#}FHf{AtVHlxA
zF6jmsBIkETc9>^eszaxt)H_PH6&crmt;I*bWhx1+qPqMfeI-ofXtLyqZ5c8vFpE%x
zTQgn5N){GK+UuTj1vxMO$ZW#%40`Rn<EfQ%akIZX<m;D)9c{r;47W{pc7jnAG60&N
z)+bo_b+Db=HCP?k11j!W9#AA=i!Leal&^0|68@E}xB>LISdZXuN;=2c)Z3%hi$w<B
zDjEF;R*s5RI#q4`ff-#j-3pw+F(gm2o(SJNT0R$6>6MpBx33TL_(>~x<mn{o(}+6!
z|2QE!Zpf+yE6p~Q)W1_L-P1Lh&rLH{3~<^lODJpAqO0xzIg75%%}>p|u0qIO(|ykr
zwjEHnat)*)ynvK-l;+LYxzP-9<xG5fl{APj8I_5!UV6@3bR-at27C8)m^g3aHFgsH
z7%f_m%DM7IM;S|%um!73MizttvBvekKRd&I9tDs5exp0PL~+E9V9TP<$gDkRKcE82
z+fRg3i_i{5-5Y3U7@sw&*8}OWc1kAm+I!+ZK~6x!wXZ2~*GB8dE2j)Ga7V(YHLx%C
zA9V6mk7a4W;L2$DfWfJGI~cQR#AO@Lu4_k4-4Bcovq<+JjQRccuXvmFT**Uj19Z;%
z&<9G}sIII~x2v)0gp-EK?p8_dgPfw7NH{pt3n=awm#&+d>3#@}S_*uZRABSD)NH3x
zS%*y~d)NM-ElUgTZRZ*-Qu2CQHl!RN?m?^WqERY$I6E7|;s@xCt3@uf6h?~F$Eo5u
zEcIgu&7h-_Dr5+eDpaGqd+uq9B5x0P4RT>RSAdy1X9311DiJvj*JBpX=~k3A11edv
z3JBXs{R7JdoKw1#;NpEwu&*htReDO9e$bjP(Kf_(;I*xX`=cX^LlPpZcQ%;tdgMNh
z>-6zBmoH+G=<J|9^a-rluV?^SERx%TGV7df(VzjURm#~6#l4FO6^ARf^X?Z94AK>j
zR#g`NLZOJF8Eu4*bP-`Zdy%_I;Xxrr-@E&9vimQAIQ9DRC+kcPwiM5cQXfVVF>t3(
z(6Hs`p#(ZYfM2__6a{_JGRfz9m0-_q3iZ2<rX?R)R9kBUe76<=%!>fxDC!d%7~m8I
zZ8TC5k25Xw$?=7Ql(5USv%fi^XZ+OCE@Y~Kc9=`G5<vMKbK^CDvj^cv8=Xcx7QjfS
zeC=(~ByCq^su>PuU=mqb7Iyt=wn;Q6^qn`j=)no=j*ru;lupnDOM+CZvXQ3E9uGNh
z^r}+P>6tv+mmfv<=rwy?6sa+{ODJzAdhyskMEs$oqnpLVIihNq9Gez%YBUX5hDyH;
z$q}5M{K4lv<CQGrao4pXlz3h_-$WX~L#M69H#&}4n8b>y<~h6p0rc-%-kDw(ys|n|
zw`{C(Mu`T~v_&c@y?&Qou<6;lBLWhI6DrJ(T52p*MM>f$@eA>KX)}wd;Va7{?+&h2
zlCh^TypIyR?`KXjF}}r>ZM;J+h)bPFO|jjlFyFB)J#<lQ?2a*LbAT8;BAkYk*QTf9
zVs0;!3eWJoqoe_C<&@9eU#A9{>iCIbh@C7^w>{#lPnelra#Zz&SXj7%nyU0Z%4E1(
z0LGS4E3Cm%Q&eO07l%eN8QGmdbflI<p=3Xv-MPHp$<m$MvLCELr80Bok?zauZp^(g
zD#V(Yw{ugoRyI!1VGB9GZ&NPfv~1UhUOTpOv$lGSK(+E{j25Uku^0ZZ*`eku9vh*s
zB=D-y`vucyitX%$^S<hZ?{`)(%NI>c1M~2Oda3QH&`(7`S~OzHD3!RZ7YyBKS<-&>
zb4Q|`y9+vWCo;Nl7FQ-DSU8D!EW)DIf0f0s{})*d6B`rff9x>KgdD7FO#hkwuPcU=
zm4oqrRWXGBZ&yro69g;n1v+~b=zRE&p$J9Vyx5~`(;3+iW1zv*7-sfaH%d1OQP_@@
zh!c?q0<olc7=73f#d!PamgA3a^{rOp%G8xvsw@A8_w(d<i5X!Y;P-l;vVwRNKpc@0
zOnzYn0t&=W07;NgJ}oS95iv%v?>iuzGupshjT4&cNe@WU923+rno5{))qaDLRA3Pf
z2oMesI8Y>nq9Q~jgar-wK?xI*0!kvfv7;2wLd**n8qf~sOqQqDHE-(%IeAa}`2@RL
zdjJ;DuN&IlJqLi9VPf0B2m&_|VM3(+eF|?u1nmQuz=RrfeX9hBZ2$$@$0H*@+}$At
zadtu%%sn@BxdP$aMS%zqoIneA4(9pk1p#p*nynF-28d(<gdy543AO+xq4$1y27Xom
zpw?g_om!TyIC)HLJ8#ZD0b!WDOJLz|sFimVJB+(kYXG6(-0t!B#J37$%x5-iee-Xw
zPJuXGyCS|m_!vJRCzWPUrku1+03`A|4Pt=ZZ=F-&Eh0P6p%d;s*Hc8liUAP7QO2I$
zqxPS9JB+BxJR02l$bz|A=2azCL7`;%nHfgXk>oQq-w8X`sb`NXT_Ina6{zrk`Swqf
zwf=bdPCe2*8+sv8@mC{`w2%iqqE*Cs{xm*V5JV7Qe`I|Hz!ekV#Nv|hv9c>a73QiH
z<q@XGbno;qzyWAYC(-Y%|5|^QU*uN}qAMmK&?WHg?X&f87aa)_)NkMq696ZT4_D$*
z?#T+%^kuZC$BT6fMIWeZ1s@Xd`SkXYd)(ZWM@c$xnR~bULQ_;xS@a{2`-5=U>m3n6
zDd!jK7e*-{pbiTPkdg!@9r6S8`l`(b_WfJ{zsgmBFTjHVek`6nB!4W{zG^>C->f*?
zfPQL<13S>^VEg{Yjt~G3`?aj<<^7ly|H!`mpuE;n|8PYA*a}zJKn~e*%-a6^jKbN6
zkaT@Rx2;s+oM`@RlwHyZeA|{mUCqu|4(8c$oc=sn>JzSd=J_>=ee#L6RZ?%EfG-Cc
zS>t_&9V6I0T8$&xkxC;RL;pNg06+x<_I_S#I3`!l-;eFORgY{jt~~6&y^Ek1(80c%
z4F(Jk0Fc;l_r$=uFcRw0uzMgKy1yx>{<eky2?dCwo^XTN$;=|?hYF#5b<AIq=JO}j
z?DK~~3XH+~&>i*y?OOqkL%t#60FXqrogX-eU?4&AKPGy)bVtyRy*?b@q9V2NR(wBy
z0s%sp5Uf|d4t}d)5Er=_2>>En%y)!4hKUv%^T(%!AN1oV-fyEH9|L_xxiq@@PuPiP
z-7up+;vX8#z=@%KBRuI6GjNGcx<I+^PNAD%Sc1^DDlY%*lgdOUcW}cWY-l+sZ(u6~
zzw|UOpa!%O37WiLy1kOh_<QC>Svf>EIo_`#g>)ETh#LL!KTB?7M|(#6W!vc1vNN*Y
zVz)`hAEC=<cs-VQFFhvFLkCUS@vT+EcPV;kGZDksBHS_6nTIv>6Io<@AqYtN91?F=
zdMMtO#?OzcyXI+Br$u~-d$ZN!4GI1t4A`G8?nt494Aj(OabixLYuL%zz{NVgQQ8z+
zE=<2Cq1WbxE|ysEh^l7i1|Vwj?%;60o1I+?)6mZ-P~n4n5NTURpQR<MK9Qaxw~%_x
zXMMe7(Bxo;BGa+gxH>29sdYexb2E7x-u(+@>Sn*710l#%Q|Yz!fXGPV(KKk$W`Xh4
z#zfK<m=E^+FsInO8T4K+%pp4qv!qRF1{W8T>=k;uREzCBClGD!dCmewmxIXMhC{ww
zv;6{n`mX<jUQz4lID~dFr5~I<us(-K+NiRfkx(i<HH#{vl{$Ff0&Qb3U=(E{H$F3E
zi)1lJa^q{P(Rm-7#!+cmS-l!~M*EN7$97IvSWgyOp7a{Go-hl#0KK<AmEqj4B(Z6-
zG^$jbm~0(TV<S26c?d$oPw(<_WPP|WpKTBaP|~TJ+UAMN76iIUn&ebw<~4I@AX1DN
zgVo%Yd{e17^d=+BzEn~x$d4t<xsvJ=@#a~J9^XI<-@J@ob2>HP#Rycg&N7rYBY5~a
zWV+bizT1Y1whUs4gWoc_r6XKq>u1<jp&iUk=q^unyS_Q$pqlGzM_*&?GCX}gIba<@
zLOY$MKi$8ix{TzaKd<4<NOeONLN#MtdIsPmao2_ZcEX>U0#$`^fDChI?(k$CrlB)r
zl$FDVzNQ_WzZ%KNU+nlwV|Xu0Or&y>*$Bi*y2W-gE-t*%UBXP1il-}EQL^>3eqr7H
zc&80t@npX2)Q=H#YItU%v0W>8)K{8Pdm->hga^7>AcS+-7Q?BLn%(dKSMFW!RB^4n
zUfA%m(>@yA3(eLcqd>dzrI>bHp*ejz>QRq8MMi(Acd5^`CyXunVE2#^M1<+RAN=<F
z-RbpckO?n1jI`c=jm>p9wE)FE8&0dVrlv)X@%lIagH#9WXww4uc6W?V{Ip;idH9^^
zHvK^6<1H$eY2i%}fdft5%UM<!xEGPQy}vpun#Ct{8CBhhaVg7v=Eohi!??UHTar(Z
zdNtQr5BT14OUX@_$EJBl*)*EK7r0~^6=f@=^bTUQYhmbb6><Cp^@bOJhuKN#kHu1t
zFUV(+r8Q1tG-F5Jy(vxO5xm%>cj{rIkq*~inY3Scr&P*Zs+Sj+NuyRI`6ApVeD^y6
z*YqM!=;!}>of&E^PDYlfj_yx-q!<ud&xnR>EAwWInIf)I-uzFSF{Bt=gbp8^dNufG
z&$Rv$p{eoLbvGwb6NT}p><O<#YD!cj*+-2e2T<(VA&pXRdU~pQYkNEaKxj`MJl}Oj
z)H_89fL)H(5NC~=PiaPiugjfU(ZR}v;XFwb&Ka=zL=(T<k2UQglWl5_O0hTPrPRHh
zCMLY?3*2i5Qj)|^pOkt?7T(m^PF81gz0+Q%B{MF1@C+WWCR~afitQq;>rk1FdoyT%
z?Z;8Ym<dwy_AW4{q}pXJe+G8W+n<PubmlNn)Y|*9r2qA~w04J|tkz=IzD6vNLu(q%
zu-~pZCyG^%2(e0JzUw;pJjL?%ehh>*8uq+!3|&B7JRrkm>tR9$T?mGNErKa!`YsEU
z7t>9#OVBQ!lnO(h)H9g(LO+%;{O85(|AxjiXr9To+jA*TQ$Ku>wkKeEf~ic7#4l0K
zM9Nn-jhBRJu#B>$Oq-J0JG4aNvr8BDeT?eXMho2EnTc(6Ae?nb;AeDW#cl1c2&!us
zAb8d?M|FcuvBlH#*P%n1SZ(_9l8xIv!a2^z3zlsu2CqGvzpFZx<dJAWQr?!LN<34;
zkfgUnmRZ!3FSSMSd~#q0_?ixu`I|o1P&eK}?tbj0A!=7dP(ogYNReWB*Tn#hr-9+D
zO7T{Jo<!@y`|h6G&SY^mgy0p*E?082&fDZKn?7uem65l)lCNYrL>(cJYQ*p@iCk#_
z`|MazgrFaC^oqgeLyBQ)1^LF2;#A{jw{@fcq}8yZOpmWwnYs;B`{FLno^kpohh_lP
zo2L?eHTjJEHM*vdI{&st#BTW}C-}5rwq>>n1dlY8Z{n)y(M}Ab6^SSHaPuqNf@RjJ
zmK83GJF`V7T6Vij+86hD!}r;6b=5o9u@9hXesgx0zA{>@!(3nPcf)||NX=U2ZIy}L
zRtjM!`xJQ6w-#v^TK)>209dQu8%|`Fm#2*Dpnj%f5LhCHkH!vJ#Iz}4^+bhtwYnUz
zkXjs-dl{r}%KX#2@l)u}4;MZ-hzTaj45>gPjFig1zIo3xLgl>8HUOcmdSu^Yo_cK7
zH-HHC4?Aik+;Jc!hORdta1XX?rYU~#(Qx#@wz`olj&qX?WF<*fUgKv%PL+N_qWj{8
z6Yoj6?ql#ayNaZp7TWUYrycB$hl@jD7@Z)Tbho7`v#jwJ$q_W(#9ynnmP1?0CA`h`
zs&}WB14MM!NL41<U*yxzyAD^SFSRNQF3?UVPS?iYa|mUwoG)2AVcuHjEwxFF?&^)2
z^Y%TUnN}n?ztGjVOxlh{lyh8VY-6ygfj>RmE@IHOC;tMxBg~X@_IpmORlARBd6fwp
zUD#0cATsx6)YkuLNu-6?leyJ+wxX~~+g>ns!>pa;@o{ZdK~pZdqb#W(&5T!?CpD9|
zfIClR$ldOlknF5DjWQ@`iu1UyJS_x&%QcgyvlG4Nylq?Or^>g$dmCPrYJ4N5!+Alx
zz4~Wg?oE4f2TtgkP$n;Ga~LJSi9H413;L?3qmipD%?iS%v{luh_}?h_mMeIvwT261
zeF!rRUQm)1)WxvTMp7P8ON+g*d;xb-fJWMhuQI-r+=mF@$f0DK3ManNFf5`C#3-^)
zQs1t>JTwMG12N24h!44t)Qf^0Bqlds4CCjYE_1Z#{c1s=E=TT&{#Hg7sW;(QEFMkA
zy@o3D^SP1szE0;az8id&vVE7oG#A`2#&Qa$2$G|IfklI9j-jMgp6i)wgbIg35%?tq
zyIV7`CEj3cOBr(|yygfeJ0Q8Jn_yeK5hhqZ^5&!hIgBiB6$Oh&kC}palfB1YBG$Eb
zssuZTOE0OB?yaXz`5Nk;(R>J5x{2}FgCj<9-hm4HWMrLOrB(WuAGq<r!xDs=Y?yiq
z)y<>5HIY~#BYmigG)hHTj>04)&VicV-o7$!G$~jCp>l@b@o$eeDfjHd#BGm;Aet|T
zljzEX%Q~lK*DbpIa2JB3>mCFf8i*~}Co0AX!kkI9Cs#T}NRihJXsR;m$9U^HM#9M(
z&^poVM)3oln8vMS3md_RV6}Zio6&MqmM<I;J56FS7tOyOiy!%OqSfPtZcSgdgsm?l
zw8c2#$%faAYb40IU+W;hSKm?fgd`GHZph`v2s9sN*~nc)sOS<rTeAqMylt#Oo?N4-
zd2R`Y7<Z2|;I-FG4Xb^|)?S$Rzuwh}#HH#xydKdzPdw;c2EQ*0bGIR;Y3ZGu1Tv5S
zY%4sA^3z&L;V)!U%}KWc5sER_>}&$XQw~ZoX*M^45>!Mvn9<tJ0bO9gURC+v_hsKW
zu>0pl3;my9%?xv;evQ_%TU?`kt;|SI-ztChX5emZqSdT9a$eX9s0=K*vrD+?q2tR7
zUPWtC*k7(t>TO4%%_Y1e-pECi>gBnvguv3Jx+UnF*})%pZ+$&D>uj>aY(Ke={iJ?_
zQ838Y%%=q8Sf4~?h*&UH^9u_VsP=XE<{XMHOZ|C43z((NweY?aYS;EO+=*9?$ZU98
zYb41p+(#eBPr4-X7tcXF^U}t)gdTpcK2kWFQA%Q5&v;bS!XlCtfpg@yz~Gv>wv)RC
zjh3Y;h&fC}$CWo3oIPPdJtalij^UFb2uRrP=?KVG?!#vX=d7;jjsV?(s$@wAd9sE}
zA9()YoHeB{AC{u}MH{n*xK^;Jp#_hDB7-St{0;4@8dnlL2$2VV#Xc`@Y`Ev0La##x
zq=^@dQOT^&?a7p`gF-VKZ-CD`+xMPR8LW-=v$?DTgDJrc&7a+Mh!xFwoF7*zaUP$2
zoIYHYZS4>B7|1#42INZnRfnTe&f}>^F;j`D2!+6TIamyp+bb9;VDA5==do_H=`DS+
zJ75*bJa)pIf6ru^(O)s7=jHTUQ}j8%v`CPWZg41tGR_GkiI*bfG?`LklvHGaJJ5Ek
zLsi9rS8rj#8xu20xZkY!VsvbRUaVlW32POX(9gI1g*17-{UiMFd-19$v*KoI#2c_O
z_VM8ufC`GxJ`FARaS$^dSnyD0s6k9(>cwH}-wxTp<1wCcJ%@Z$84ZN6kxQ5f3eYr+
zN3i*G1+5{n@5H#MMG66ScG1}{c}8!-vE(5d9@$+_UxE9yqq^<P`iA<Nr0Sc$AXD(o
zbS}G@UdR$aNlUFn8hicq3j{M8^&yxEUA9fe;Ch8*T$N^|U){{J@NsL5@=($BYzL)x
zSn<Jhf~Cw_d<k$kP1LZz<fy3nv7!d*wgy=!mE?IJTgK}%(ZPej*=^#%DH&Z?w_TKJ
z&N}?GydWETv5OGe$-_{)I&Yto<=T3@EF-U_I(A0&7OdUlOZwU4J8?b=#fG+;`V05q
z+OrOuEqtA{%P@MWF%5nXq?0~>Wk_kD?6wM)##5u6kv%ZBXTW~E!sx}&3^|S!h**)r
zG6rgY*DaT`*cg7+%8^DSmG)winyIzMT<c9oJw&h>bvwhIcLBnq9k6Jb;dSJxR10h9
z-?OA8nd4nHW7sAu-RJF&_x6~^uynqARpGIcIujV2TAADJKbr?bI&we2nGRFVTR0*n
z68TSSMz+g-9Rj)(gn$~s#h0G)z8+tAweL{+nR6)EJP;k38gyF)_ej8=u}xTslyx`v
zCh#I$PCjoj7+LW--jK=t!5&MxUKS&Q*O%?}TRiZFz5c7a+BmNTuW(j-!Bqtbec)(K
z9|Xa<C^FXp&MtNDV6uL7oO|d-!%o1WB_J$o!Xhj0*Y6x+tY_#QQGM*3>$3RT8v`oe
zNF*3BJ`ZivU%bru2~g>Gh2M#3Pj-^?+X$6HN*}6co`w!ld-?6&4(kx>+>Mqeb^&`4
z$+qj^&lU#s%)bm0W5*zv{gf_98hC9lx23tsBfGsDVM8xhqu82OE3RHuBZP)_=MZ5x
zeJZr;5@aX;8SCva?#hlf=g4y-V>$UH!N9OEeo^>`PF7=pTTpKVpRgQx8O-~}2m@X;
z)XZuzoC!~$hG)zgZoL;|N#7*($!(q;%|{`dKe1wWWzoM(j>xMG*n5cTT{K<7b|y0j
zFZoi-!+@=BF>`abG}e)FNaH<OKhq^dY|o2&C5=oI`?%Bp>I~9A!a1jWlC5Uhr1Pm^
zx<B2G?&CO>e$NVI+)n7;4bP~$_RKYmnO}rEA2&Ah$LD$;Tp6G0R*<%{F3F)Gi%LSX
zJ29okwidwR-we`0jfYCLu_nWClz{ThQP(Dxd7nIFG=-y6|AedUHe5~!+Vl@_E&Y!1
z9&MzAb9)IHEy11WykV?7|B{K0wc(DqINIV_bN;Y*>K-9CVP&!|IZ&#TUTh&D^5tJ;
zsg2K?(#iSF&q(Re3i9f)?fi?c0OBVTNB8K2X}i>N^_!SYu{JDp_ACjWt^UCsq+L~)
z$4bnBd0Tyw;D&U}%S|}H(aQQ&e&BaGaj$sgk!pR3A<W%T(gUf~&$xU1-{jZsy|&b#
z8;^gDnM)P)tL%?wT;o>Pv|NYIO#a{ZbU0Rzkex1I6aledt;P^$4?=1<>R;H$B>2(n
z%QZUt-JHz%C-2G=k)uA}Htc!aET$(szCd`R`T=+U$l4K@VO-l69M6@h6v@r6l$K8|
zApb+AYN97MuYTcExMZ9S>AsZbI$N+t1Tk=*gTi-pjM#&iEUoBp-7PxyCUgD)hKyYQ
zpey^Af<tuOX^!s1{aK8y5nju*wn@CZ&uIMHfq8Wa`V89y2bCq#C6g4A+_d$v(BFh5
z^-jFvObO?ZaTq8guWm&Ag>jIE)jU@pZgj{QF=};P@3O|3NUjZ?$wp6&bMd!9E#JQr
z{hVPJL#Y!mUWPcD8N59Ic3kJ;f_t%mv?XgS5yHF6U;kBmRq}t1!h%G5z>7U9IjKoU
z{Px52O*J|b%BBk7)?HtUPVQh-i*7q^iLPUZzal#qB_*(SdA0_t={3KgS}&+eE(u_5
zOMZ~gEdlWF(#V)NB=a&}!r6>u>XVPoO9?ZE`N%P}gX%1E`dV9@ZL-{ePu+d%7vP!P
zNtAFCVZA_(2Xzl&^6n=&=R7r1Jd;~fKi{ZY&pu*R3e87Z&SWWd$4w6=Hdkx9Mi<*=
z26D;_wSghn(Cu<h^sCmSzk5AypHHzh&k43LEpoFmAs~MU)n=TAla%V3sQ>NDqvcWv
z%zz^PO=G7GPeDTA)ot+e`F0*%JcOaGqX2J1p{|YBidHwsNog2hSjx$8(AR?SBz{wN
zzokKb{-y5neON?f?F?ai=ZxVz0ScDldIoor*2VhGGkysqJ-q}o-ET5Nuw2NTAd8NP
zZ7667<G#DZSNJO<zSS0IB}O_4!LXAY(y0@3XfM^3YI*sDKZO{204$Ktpyf5?J@MC$
zBwO2lwS#U)H8@K^<|hH{dNo7!?Gz9&)JGO_V|EZ)gE2>2T41$hY76FL_o&GgB}uE2
z`|K4ST1rAY-{2qAr@RFft6^0Xdsm9}u}+w+QjV<CFt&AMtJfkLs~}iQd+?pTF>{2#
zFKG>0^rzpd45&eG&H?#)H(pMoif9zdToMgyD5MN-92PZ&C`D644bLYil^}dF((w$J
z)n6aE#>3<VV8d=VwYqcC6AvgsV1FZ9++`+H7ibTUhoY%ueVZAL{@D0>2&wlI>w8OJ
zB_hAE-s_XbSGS4uy$px<)U#`5Ax;RMV}4X`6(WzMt-dq6q=qWZY2H1?q5kDgAItdG
z@8c(Sy=?l054B+jh$HD9#V~m1A^={CKb^T;n(SES<Ubue<J)mN>$pFE%#G(VaNiI;
zHrB?%ka6~>S=!}IsY1v1Vwa?Hkbk|ovs>}yzHDPuXPhHM$@TS<&57(Hp}semZ9Bfi
z#Ys#CZV}2pHcWNL7JpIGPtft=A@+e<XO}1{z?D+G6{;%^O5ra1WthK}w&5;dFI-}d
zM`IuPerOjX0fItbT{L?wVn$ZjUg9Z(z{sDz;y_DXIHfjWqrm-avhtC!{|nIsZ%sL&
zgef$7#=BU!+E$wqV(VmYR+4(UNVTt4?b<q*h?=k58*PwXYw)jsoH2#Rbm>d!(YE2a
zstrmm^Zg2nLrPc>!E|@0#*E-5Z&s5G&`>cC-gj&8gi&-+F2}9`L16>>Zp;HPt9?XG
zRN-WEo)pMSqHReX<iuW$>;c}?$T74wIi7^m4enW_{Fc&ObOLG^G+Q0Pl{dBA_n_?s
z(w`VN;1or<Z=s`rVWXriq1ws;oSV?Oj}C-a8SPO>I7=sV&;T%b)L*-?y}4dkvGr@%
z-cFnfKmJiGdQ|C91chvt4wb$VHEu(82Xr?`C7x3$zoIvC`P4vu$V1HZ^w@wo%9z|w
zWquPP8G0Fz2<?h{Kkw`er<*RH5f>dxgcASl4{dp|!RYX~7uBW*iWU)@_k;{5b@<^a
zy>YbOFA_bo+q}c!PS>DkMLDiL+R3BNq7_2LQ2<-<nfY7&k4Cd?uKNlFc*VLEVvR{Q
z4GNf+UTyKia7k`%!SuYZ_A)3+mw6%&{{+gGiTTSH_CPz9P$J$Mmx<w4-myo#j^fc%
zeaH0OH1Xs+B8{rR=VDRy#*4a~4(E>I-gu80;XNYvt5R90!pSM%eORYKmY^b2Z<Ql-
zWZmdfK_gbFahAsJXr=1P@l54b4A)J1F?k~8O$SnQqh_`;l_W;BVf}`vLip9eAC@J`
zx9;8h8}6nwuKF1xbBVj41{%Yf);C&v&HH9ZRw2)r^RHnnX;H$<vp|4LziPfHYh}Bs
zzI@k;Ma9axXoO*%6i}p3X*2o?P<y)3&f%WS)YVJqC7v0yQ}Be_O6dHrYw}Qpr&d1+
z3<+V>fOJJ}w7H7;M@aLgbZTcbI!hfXjF&|Rs;8opR~(<}(>HXjqf9C3$|7O%bQbCs
zEcach^H^#)IP+1l&Yr9o80@miw^Xp6XwiB1rxdy##l`IA+E*V<W;3+a$1Yqu*v_V7
zQyESzq@nDY;+J)~>ImijEd`*={x;%mu6IQ#^z+o06>NlPQ~@WVExBP`mweR?RNLeA
zL_{3K(T0R!B<B#Hz?la0KVnrZ{DK^gOEfy(GcyAAza=R+lPSu1HoMAd(`$We2GE}r
zG1$O7eq>rIDLGLq*^6w%!<>p1Da4Ta-^ypdc;08sI~P>9vs1fWx6yE7Au+|^rL{c;
zOxt-EZeCU#(}9*Qo%g@0PNqtxz>79@$Ym|naY*bfEO(SzJ?g??Zo!*P%_AkwVv8pO
z?8>XD{23;k{ZNO2d80|_G2Xt2tlw%_s8bNeU~+6ZSFENj=>))y3gRG4!OTh1bhi*W
zw&W+B-v6cbd)!iVXa@Z1-~ysco)w5+smyOU&vJn61&*0)y-`gJpTw&HIR|Cl2U%Ua
zFKgslvAk?XihTD<*^?I$9Dhtt556<3C9Jq6Zz7Ke$fOM}`%DXS{$w~M$w)HE;Nn8-
z8mH@7{dFhlwAcSyAFBAY>%^M`5y59*e~rM&av5q5M0OW>y;ur=_(pWIh%fRRC^rlb
zF~5&oMp+oni?qH!EkTCi*=fQFXG@hl(VAMiT_S^+6PYzmt&t|60!zvPIXa%ba`Ry<
zhjmb6%SE%dgOW0;_8E=ni#>NQUBAkOUSkxwuZ53_#6P8uR(zLf)kg|W`dEhrm3sdq
zEa++4h+VY8Rr|xZ@1fe;nvo;kGUL-*wi?-7S)3Y7Z3V1s98;|Q{2ity<oyM)eUdc{
zk5NyemU%K#BYfka#du1q<vj_-@R$#~y*WEQGGP{T?GZ(+xa%f{;hC893<#Q#PfBuu
zxHRJkG&Ur@Ssi@voNtTz`;|G1pt(idg9zC5UFR~}GBj;0<1y95gwq~T=hw(Qp<SOH
zWXI&0s6BB{eenoo;q{m>j7@ky(k*gu8qj4=^VBz4v04f~B<-xG2`mFZu|2)bsE0k;
zw72j6q^y$xU*lEf)h0;nPaXX13kGJTY+JAl935ScjbIG<VcilAez#p*USYrr_HiX=
zvmzr*kWC^!VXS;}?h-^G&9ivJ=sxBmL&9!iDPWVgoT;Nwo&=f(-24H?)?^c%R~Fi4
z{zLYg-zP+?(;F)m2HXPZD+PA?u)D(R;S4X?A#bJ2bvwtNAq;;!Kq}*!b;DNIo(6}h
zpkma;vz)(|q+!$JBGHe9Tz<4<QvV56NJ`rXY{Y=j2<`Q`m^H)f9`7T~c4ba|^2%n7
z{$)!P+2C5*)T*MJ_Vq?ArVhn$ZWC6<LlcS5;6^ID8T8GjwFRlBqs+8kWTA}oQuL5y
z?{EEnO{TwA)FIXfW}^wtdp~JmILjZ<H_pa8A)q@da8J^de8;R2zE^os;}Sye%n<G;
zt1BEgimx&GwAOSNY~={Trs&ly0XV9hWQ-QYGfs4}VI3wM6bt`HNGEY>4RCvhV^+e2
z-`1gY-6iQAokwIA&9|{A{L;kf2qR3QQRxwaZ<?T3mcNa0RbM`ZZv0F;TCwjZP-$<9
z#ehgJp~k5__gv&f#yiCq+`0mI&c$w10%=bCOF_U6MY<R=(*{6q0wE5YiXS8jStzCZ
zW8aT{5dK{>=Km{>!TH~C3=U4#{{R@wgiK6a>|FmD|1Xch#KOqQ^}j&I{|Arp0w$le
z`49?Y)W4k#6aePx>bkne*ry-JBNzzk`m%?<r4tC|ig1Gt>9g)Ivvd06t@5&>Jl!Sd
zTKiqCTlrCqP3?f@EUMsGM<ow!eLFBVF*E>ysHUu@Zvs?TSI1IcS4X6%VBx22?f+9x
zqG$n>oh7L6+2i{=j0Z?Yd&e4?oZi+yLf_LbtCG$y8Lw|*cywZVbO2c2$YB3Vj&Lm;
zfzaRpoEd_W8R)3*S-?z$+P*HZ6lH8-;#lUCKNg_L!VREdVBi?codhay5uk`m59bq@
z9~y=>e<?9HHH49e$n^K4&-qCVQ2n>}uzzg&`u2AA_|Qx`)Ri%n$SA-LqFo(m$!|u0
zf+LS>FE#;4lH8@QSIS7J2-sZRKkLV#ERarnOD4<Dk0X$74A%Vivt?*`2lourO$nlG
zk{XbN=lARjM)Qf*2YCIk15`;@{m8t$T<|0NU;SuX8=8W*I5O71fUau+(+ac*_%$Q}
zCq{<Cfb<RRe8vi(Xqnw@dZ2Ki#8ro%YxU)7aR7;jR{%@zP=9v*GGn2L3yfq*WEp#o
z#ZLbb|LZc9@O*Nh&%=|~9m#S)@R11M0-D~L*-m`Booud$=-l-D38fWyK0)_QGPt?u
ztFl0FZ~~i<{KWffD)c#O3grZ3*HBky_xAzd7X!!(O-K7n0F0dj-^ZU_<(sx^dH3W3
z-~rI?OaR^kX#H&Y!**uKZ3O%x6KUpFKXzk&$V60C{kX=a!1SS;K-WpW6ThZmn_eS#
zZ+4-MfL_NQR(z@eDg3{FyqVoD86E4ot55m&eRY`{lVVEBGAO@x$$nO;$ibfhZY&P<
zK$z>C8i1-Q>np%bE5z>4bfF>eyC=bqCXJOX5cu79^LDG_`)tbg_YKfSFGLXhU2l6*
zpKUe_=-l_>**k3(t*NbE)lcr`*DTr3Pse90?N4p=x34Sdv8B~VY3_5a-w#1=INsRG
z-`lX(8E0qrOyJ*lo3v{`yYheb^a?8>Ss~gtzVvFVBF8sb!#1>foLNa2P#{+IOye3+
z$3V<$fE}0`-zzP?8?3&WY+49C^PtzT9!Fuo`^F{)9(=uQSxim;J|o-vTu$-p^tB?r
z>uE@Mvedm1G>(jngE87WFyD)KbzX2BfVwsIz!h`N9nR{4GqS7)>g=Qdb|fFc)cvv%
zf7;aOZ2*n01SP#;5Ph`w2=~BgWIs|{w6@XD2=yRoCO<^<fW`se@KChAs&|Bc@rUJa
zB3VG=iEsFe%=Qt1hZ4tE=+4sgx0G)dT;p5soean;gBMEuD~1Cgt@=CIwjj@UKeJ-`
z-@?kX-fM}~3qlVZYU9_x8RL_|Yti`?qvxFa3uf0T`zP48^yq=XYcu4Mf9#q3=>Fe6
z51%MMr#;i!*;zX~-o7)(S}dQTKVI{|{`dkcL&ffOSiW`6f9yVPZ3{$hqB>EmaVZ1U
z^lbK;T}h#~o>f4G!ES2TVTjRxcbdHr-*7O+u1o4>T07ZkSi^F7EfBxjrCx0AYNUM|
z-=z<sdU3j_+L>%7-d-%Qn6`4X4)NKl;<)r8rRNVC*>!DYPx2<A=h@VBR5o#k7FzHc
z2!&*XMfeS#?i+}OK;IxvUzH(OB4wvvCwbp`kulq62oO8F<+3wQjI{H$X^#M)HY7>7
zxrOZGddGQ@CHc;diIX^TK&RxdA0-d?M;5?$njj$NGPq;QVU!-s#&4u`$F;Lf&X)>%
zWru@yXc+TImj5nbZp^lxQ%)MWHr`Ug4^eH1WbN+5j@vb@m1E8J_tETHUbKitRNZS3
zgy?i)vI>6G`HFGdUSo_bF2Yur7SF?5XX%#9r>Es0s#MVe6?+-vn2`sGzG+W&q?Oai
zzjZ7Bv<>?};%YfxLY<Yl&pHYk8VfvZ7~#}J0o{fITatcC1|+CfEv2Cb1oXo{?a(S(
z-i-vvp0K#jmL-me?QIRjnHgmZVlW?y#*lH_N%l7NB*Uf<Pl13n`ravN<tZ#CEqWEu
ztj(vm%Qq1yTfJAKG5b0WYhE{FT$df463S=l=GN}$tUf8-()nv97K=4q-ZrXq%pc?y
zu4*=>lnTuAMs5?b*6&R59(Oj#;tzX+-7uV6QojOKw_J@PRUDW2;1VxZ!&7DfZNUeh
z0D0kFu(!a?EUx$XcmdDK7A&3yIW-&=_8Lv({ign7xwtqVh#30Ns=p#Umf66Q6O^aw
z%fu_5DRz+FC#5O=Vfl%?QO!db%A=2viKC&TA-1y`*J<c%KY3TPMequ6rISV;<~VG2
z(R`D9x7Iz?x#sfYAwhd9x+Tque}lm^ZaVrGGHfBU<F5(*Yad;cnx8>U0!|g^PJT@I
zt}%UK-rJ}Ql_!Q{^S*va%e2AA%=&zFl=<o(Q*N(!&R8VlF!gId)thy*GjeqqF@J@P
zcxN;X*;P|BF2OQLinbt#&S}hwhrCLgVqaF^xn`qso8ps}fy&yIG(IF>ZLrv>5On^y
z`&p4|AWWXjOJStiPOyanUicGUM~;5cnyg(ANhF$4xW?>BJ7>#}atkv$>_K8^R%ix3
z9&*DZ3Tia5o_BR!@a%M^P0t1+DD;l_gAC4aD><hcB0DpUKccm7s@q4jLu`wxsWt?i
zBle}PtnwY+h)6*>2~3U$qy)R2p8%?o^b|^N&>Rt8cTp-+5OltjYudt?E@PGqu2{k(
zyIjDR51uAoldI8oYJ?*$EI0asNg<ibdKW)XO!w3)Ke>n#T8iZI&&4|z4%U+Xi~^)K
zJU#TXP66o4SV&HA>FqGlF?y0<ybG1%70fANHH3GX?%7AZ#EEVH>`-Yp7G>_d`;Q`p
zX^Kluzg~ngd$Wtg9P;#VcP}4LH{MktpH(ZW(*w?A%MM1h(Z@3Df~bV>3p@m6O335V
zV_1u;VE^-yJ3Z)rzLyXSR8I@JK*82ZT%o@ret<R42VA$3g5_i#(VKk_L!n(roox8A
z7Nwyd5cc7G;Jx7LASJ$H*`ZqJuWe&s$H}vzx1#Ii5)4pThu$@m>qm*Qo9iGs&fk}-
zM3Yz*vp8jXy?&QQ)IriqdxVrTVCM*?2!V(WJTS$hyN%t1U~U$4Ek>-l1Wr(str7Ku
zY|e*_y$fB0^V-|PUAywV`pqB59)M3>0ZjO-dHsek(qY<ZEI-8K@S(4m!K!Uj87i=m
z%CQjmPM<7D-IHs`Yfk!X)8e6kVoRaQndD4o-i&q`Mb3m4yZ0@7Q36+K#W_)4rBG)J
z)!^m7%0Q3@<VDBO(8@40{i6xBg6B4`^7Wk5*Jd)2{GD`cPcwhYR0hRn@_M>uJws4f
z^81aVIt6b_#kM<%bqmm`^_GEP&FI}<I@*%N%o4?+0>u86=ED3w7gs>gWW3_a`eRig
zy6pwA<gaN`$e*%8EZjR~6(FDn9@Y3oF4;jHL$!E(+=yqz8fDW|kH5}_hhcM@&^`b4
zh)_LaCYnLjy8+6uBY_k1I7;<3N(Jn){kiBs`XGVIWiI$<$qeJvn=t^TA7l0@8KM3<
z1ocJLO$Y;S31iNq)T%&f#B$L~qSFlbMk-x3RV8X99VSZ2On0MHRD}SpPQ_Z3LLyTY
zOgEo@c~2-=EIxfHj6zcmRTRw2zLu~E(ZU2Yx3Pd;Ep25kZF`%7KC3;_bLc{Qi+M^L
z-VLUYK1oJK3qUs3ffvTo8K)u&LURVQB*`=po1BLdoX0<O`6_ss5_V(zTl90nJAf55
z+$Rm?>mKT5xQcNxSiGXp$m*8!H&nWPvf-}cFX-;>b|HCb!rzcL{tc4PK3^dIg?&hO
zl?f={%+ViGjOc+JhenTbidm*kb4XK2B+%@JFd5Bh_&r_t4UIc>UV{u;qc5ED<#B5w
zk-*gxPw@PPY=!bC3xhJg=(_~m40GL8#-xn{_aB54x@(rOO!<;S8&BkfRoJ94o(SSe
zC})de!Sy^9rapLGVN-R%wwrh*k+Q`@@C-LW_va?}oa9=#!oamE-k7%Qd3b~XLs4|E
zxLJjLwX);!q+AX2nT;=bo~eR`4`+)S^GP`0)Hg}6aX_$qk&H+nC-o2rxVIL$zUQxX
z0|=vmZ<k$R6QsTUF*?cl#{Jf%q8tIbn{7*_aChAKPoA(FwQO-zL>|TR*wifQV88nh
z?7d{ha1WLPobkbA0|y|R?QW%nXEo0R$_2#j6J}Di**yQ#$^add9UrnU{Xe)A^1u+F
zUR*?pI*BT8-i<`KG}}jhLB+Jx2^oS13jIKNHUaD{_Prq#-E%Fr`E(pm0=37rl1&z8
zG79r0_};}iiJkF1TYOBu={74%ZabA5Z7hJuKk!*o@Pc~g^Ant17<qr-(C_zUXwx>t
z;R-dyoGwH`Ch#ttsF9=MB-aq`Gh}9s)UJ`6nn=!`eHnjg{LC+BJ$%31kuo?uB`i;A
z!>GV86>G_0yySu2oR9x`4tHS0=yvwJCVmSLIUjR;c)gvJYc5dI8k+A2^!azrlpg@k
zO-8?sm)Nea*VQ!1wkt6PS<bDWGJjEfKd%P*m38M2#a5>4t>Ma^bGfZQxPWpKJcLXu
zhzwn}e6-YoOiaU7D<*o_PrC=To2zy`<SE_O4guh4+~iO~(1&3Jy_OeCmva#oJMlQA
z#inusps*v=0`LEav2%zOh6&p2wQbwBecx-_wr$(CZQHhO+qUORCVw)M%wm?c>2z;u
zQC;Ub>)}wHJX6td;X-^?yekznA2IDZeml>k6y)cJ7itH{V6UQfl@OhJ_@ilYp56*J
zd+-jFh;jq>>yRdHG4xvdn`hlrg863<tW>=-JRK~Qq};bOa>xuIzD%@Ww>l&_qTU*j
z?ZYcC2~HxZW1_Cl!*S~lFSctT+zmk5f-IimlrV_8^Bd}1T6n7jrUf|BN(t(GjXgMJ
z!%1Q~x>Ao!_RJLH2x!-vSYuSQh<O92S2vL(UjP2lVVtAydQa!LL3MZe03j$w8bXX7
zqbZPN4i%$mLva#vv4y_4<`q=1WXZi|HKngIAlEsO<bP}SEuA+rpYU^Up~tQ)YFK>p
ztOklqYz@z0+Wrl9f$Md%s+Y&jtiATA^&?N)IxsQjS2GSg(6s}XJna~mJyIQ%dp0d9
zp;xZJq(um%qW6ZuDyQAE7b3fJK+9D0vrr3LOz_AC3W-MOH(JNcu%y6VZr=7+!XO4e
ztcmD2jUm1hYY8n1O5A>kDeU`Wt)$QMxq=COUZa-^4O}uUpw(oO$X7H@d0QR98O^e&
zO8F2tKUutA*7%jX)TZ!P!W85B>3=LG9n$niLzuC#KIw+#E|g4979wAD=Hznh>Y1hb
zV-_Sc*)fk#-gwNFwR4cM2E<pexuG`xG2HfVsjhWyqK4o1q-tcd15E3|@nq{e^$f5s
zq=uz6m#v^+u+~YC?G-;(KbWMNM2&WFVi2G^ap2b^e|+atpSfhWgUT!jQ*{T<^v%g$
zM$eFT9%oV+8^a;`4Oe6;-yAiuMB$%pw&RbZ?fJT<@TplImNnr3Ozr!vI=!6T-*S(S
zk*w_R1qqbYs#3`o6|XMJMBK97PHG-zyWyMGFH`~{f74}gJQAp2lI(&?1t4nXC?eT{
z!G<y$|5z(~bfX2ivyB|bc)U(MBGqRJpCp<vftpE=IS4L|V4D2{kHY`gz;~|TITuip
z(zB<MFCnJ}k7Xeyl6g8=B{eq-L(J?OiJ`CZSjnbj(Ww6%fVJd-dKE^Ci9V&4{ZD43
zXb1Z;n<3(!sy|NqiD)-ZFEI=Y_8jINY-b>1H*1Lql7-IbQy|riQ#~d5A7a`zcviej
z2$AsDC9A1HV(Oje4to}B0Q0Q_v$*=IpzFg#MC9p!L)<J&v5%Hw0lzc9_azzTlYu&e
zxgm~5W_8L^iQM*Rgns3Uwy@kJh0+pxREE{Ev&aU#gmL*e+m#rUi8ih5=1vv&Eie~K
zPn#KLQey<Js7u<|hcPwHKw!_oF_9`I%4Q)Puwwcn?%ER1@0G(P-wa$!_@L<gh&Zhe
zd|hLen1Nt8>k?n>ol6S)x+$mE)o1XY&G}*tIIgTeLCrQ_JreyZrxD3gNpJj(e&_h#
z7FV~h&A_nx0nhMFN;JvY%`6xiX~!+=3c;6{*-43j^`v_H8#0sb^mns2zY7o3?r&e&
z{C>*M_i}%<^&A_j>woB3wGOIMJBpEw=9Rc9F&n7Cz-h1l`r#tRHwt!k9M0d#2a!Ds
z;+?s7vflih{$+N#-HPl#)i(>CBo*4VGV-kNcECyzmUSKuse|hb#;1XOOT1En17V-*
zxg{kH$!=lwfs3qhm4T}AOH%!;?}MO@&T>4S>__kildr;eO(DMBjz;P_zF@VoBhb}}
zgk?iGe6#GSb})_h8hlEPR)S+U-y)J{Po?jVyGd)zp#iVn3D-JG_K53%{Y)VKc9b$l
z9J(x*xc#-ulvo)#dZm#lP`T{9aemP+CcA4+g(hQI!lB%SpcX|*d*1q&q)L&ri_)2+
z8a{QV>UEbm4*evP18eMgFMpU#j9Uw2%2$18Y}jB&@taLt;i~n=c>ak*HCjflH@HOu
z+2!b?vbWflJM!rXu`d*?`pLoaq1SYEpZ7^={-ddrpW{ZnNFpXX<WEN{hgzm$ejh&^
zJr~+j;89?M*}Mgz4FVr+&|c`9>Ql6Lh<}I@4$3UaU%EY)iNWF8wes}7dA?sy<FDC*
z_~kZJ#MPw932XXGe(W<w%fBrlW=(;VWQ7{6@^Tvl+_j3|;JZ+|o^x!I8#}S9YQ9+0
z)d}~Ce105E;&QgSviRYm;<y^cu<IG2*-a(245Pm@1AB!Bhz+(!+Yq|9LYdFHF^^?=
z5*-1s6dG=#u?uuAxX>R2iBD{6g&~GXN=Zdf3<iNa(QTtWuFJ8sn+FO##ZtK*kG!be
zsdo&}rYyO{%xXm?kL0*_jld*G)pn(Qqh+8l<3Hd*rG8qwJrrcetA3LAbAI|`9(beq
z(NPWONOf4M(vis5?%Jw`l<JO!SR2dj-oBi@g4753kR~Y@%mGVT9sisGHdACy7e2-m
zbjHsq?#i{D-PhTv@IbBV1nF+7m!lhE%X<zbKKftz=g3XHD-*C>hl}lH`_+?%q~d?B
z*XHKbBrX#d1M_ZpFwdAtm$}zxvsbD16V*6&mDPF&v+Q)TD5idn*r7&i-wL_?$_imu
z*R3e_=!92V4Lu6p#>X2+Ncc_>MUZh<R-EdP2GHCLt_5_u$Rz%(E=3?F*(XL>!ffS^
z*MN*yC5+&xYO$(D^le;`9K!-^kovA~sx#joXwsjAtvgcSN3WFJrzX-TmAW!nqck<a
zbh|9B9njw=*IX@9M%Q)Mymj8O);bCG#A%#h-L6;GJ47_Y3`g(WcqbSc4xi9z{?m3y
zL=rUa6>xJ>BP}8os(AZe565Ke^KEUz<sQb)3zD<;{uj`S&E&S~_J9C!q^mlT#3#nj
zh(yec5jg`pIZ<qUEN3+|aIV_4S)!epX<u4h#@XI78<cR&!fX08$At0V?=k2$lP9jb
z_rp4Gm*z1MuKEbO{K!DZ+N;3Yqt{)<TD2<lp8?Z;K#q@+OJZEn_{~MA+@DP8$L&u7
zq*o7B<1D6bEhgW<QfUu^eybQ^PuMlgeXbU))ijs@?cff|HSL-V1rex;(km;q_MR!*
zK^?USF+YRga`GbGw+QxT00$TZ`eB2DmX0w{TeC1`%F@<&<r?K<#A1&0Wn{QSz?6de
zv=ji)CC|Z!ZPd6O&imFnFYBP~<-tw&?qe{w;>}{C>k~tz9>Iky%|Q#dAs8)0e{JjH
z0b#aW6qa~g#jIZ%w81vU26C^Vq0}4vNLEb>vZ2!C1V4v3m)PvJRy2XeL&7d_wB!Cd
z`wFPOusZ~^R)p8Tu508*iO&Rhvv5<<7ut1=21D}>T7FH_hR=FL6Ahe0KTg06SKh>|
zCpJP7tEvXjE!#NnOd%4F5yO+g%|NFwkEKJgfV)Oc9oFYemu^H(;*2{Urh&S!Qc{_C
zE%PbWuUd+_`}R~jkr4}oCm|P4LwWY-EIgmX*R<`7fKb?Iw7FG47Rw?irmB`jIkASW
zXs&WwRD=E-?>Yq=gIxvBJhfb699SRhX{?rBF>kcVd+yAAjq3*UF58(q{-wQ3J0-q4
zo%zXm{^8_aaYq=0xY*bZz(D1QJn);s*zKlnK9xx1_lcm?X_M<s?D-Tz_G(WoFrWrJ
zdMn#1=^_xp9wlbMKi5M9LX7x#aHwjIvc~iA8@IKnN4HL~V*Vs8Z>=T2-ScCbb}T1a
zXq!og&uJ!P2>ZU)NbDdZ7popqXm{9S=oO8&yXq}~SAUctzl0-K$HOF<l_qrNYWN93
zS<s=aM<-hQP0*cIbs89tt-p($!rK={Bvs$-9Dh`1RE)?Ch|~n?-5uA$+*c#1<8+|@
zz1)ZJ{VA-fkkuTEegc3B+jRlw9a~PWYEsf80F<=a_~U`^JUT^ZU&Ey&3evJnuvCY0
zJ~gb9zZzTZBCEan*K7M!RMv8svY}pM=k+Ttno*8iv4N|QQY(pSffM3m)JD@gE5Jy2
zf)?(6vcnCNW3VNu=D+!8%K5Wm-_wSJEi(*1AXx`;{F21e*;KEK?5r7On<1577TPE{
zXlH%J!nJFB<}K`<F~R@>0|(f>ZHXwK5b8ibmler|`vj=p%l>c{o71)l2`8KB&2zTx
zKfIq=LZt*x<tp(so4MNSAMJ1!c9y;Ce59gM4Qcs>nN{+YxT6~%HGP9cOy$w_b})=l
zVVibzUPR5@_LeV)8#{K{Vh|wo=whs9zngBGz58D>Le`)=J21od_9a!6s{u4cuAR?M
zY*Bo+q}^Ud<?`jAq6+H`W!UD?MARbxJArhf79EwpCO7VAw5hQHunw()J`E+<DT)Je
zCopfMz-JMh)j{54whd$pAK`e`SDN1bHr`Xp7C+@x_m$Z}*UQx6Q6AUj&4U(^O-=)T
zM}ZAg5@cGg`<emx_<kE?lO~>RxqIN*AYLb8Yqr6yesB*FoTx37r-Mj(a)x}<l^7zz
z#KVB8mqc)yY%hh!^N(V*C9NtGA>DXEKav<p;T=6=9QIUK_~CKFi*h@7yzpcX<$nXK
zE@7zh&||$a<Mm6N_5KvI%>Xd8Xh>N`np=k83$Jb9#s+8?T`$<eU3v8LhU0TkJ*CGd
ze-Ob$e#*>APZ({gj?YwWAFAMAzkr^JFB*wWCXoZ~S88z);VqK}CEx4I=E-P_sj4pK
zzTH!tMY`tWKMBulv`4E6K5Y<hMn8t*zimNgF?Hvcfnj)PA6fiFWBhnNwDMxFfs-)i
zSxraFUG_R2cvB$Cpl*JtL}XokQjq5t+GO-gc<EyoT}%Z1CB1FP^K79ZD0<wt2QzSN
z#r=4GX!WZaU6bD#&o>0mbS5s^or>D~rvOyVGrC29JkIcbONy2P9_E59cx#_<w+y{t
z5p*$O&D)<t&{JVlfATlzFa3Z|m<wi9Ne-eR8i}=;C+&ok25p%co`ta_gsT&l&pMcG
zp0;GNC#$5pb(t2o_SR#tdhEcM{F#eXoL^SSAV;J&1Z#JMHbf`#MhkOjVoYx~C?<%?
z@rdxv9`dyKqm4f8LVLn>hAvt4&pos2&hoip#cbhU0hh8UmVS*NNZrmI2sX>Dszagb
zdmF0?70?Uud1^V)Ti?>hEkNSEBQx6c5w@|mw~TM8xl1gq890Z&J;@uz(4*zB;!?zX
z%Kl9+!e!w0%e%bM#h7FT$Arj7{|K;zr~diwXXaj0z-zt8Q=M}2m5sj{p68AtOXW?;
z9^nx&l2{O=;xUcorT03bjD;Awz3O9`S^trY7q{jUR5MU%bgXgqE7+&H$a?4$kr<cn
zQC<8L*qE#Yr+03CyE#ICqh$=PkjV7PNQ$O(+uXrv;k-+A&!W*QpU^b*T#4uJSMXb6
zTik^S7jmc+l}pfjsz*0c>(u;Q^-}$+GcZG2x*;lo;9Sid@85W(oqJHxNPyguuOk*M
zVu>97AdXFaLgdB_jb-22O72N;C)l)RE2G@`-F)EiUUmep`!d$#SznP{INe;oq{PXr
zK3HE;E??eot(}!X4bEft7<QJz>~aK*ZY)Iz<ZK6U2qqbM_LK*UcQ{T7%l1bdc%g^J
z91QY`<w_(C`Y6F$owqKOmArYu6&n45n;A}G5*m~FkVR}t*Fb)9XHik3?M4CaE(+-o
zmud*JqG&JK_DFo(rjzpJyBu;kubIE`^(&VxvHG46Tqm8uiLeS*?c9=9lzoX@WFotQ
zF4cu~=2$t;_O2=!%<hLeTy~R2GFZcsGqc!iCEmY@OM|rHxIr%#y;Gi$ok*<1mv_Ok
zBZKWVQ0(4hf<Q82d{0X~U3^AByQjg|7>c#upJ%W>KYmg~^&-RUW7bu@vZq!ySgEI*
zE#ilcUejQGpwy+W@RJNs5^{$u9s<h+JKPJCq(n`R&_u|6y>uN*a*y6glE=)Ac8ZnT
zMm4_){oIGp2!SyKL0pP7zoe`S;yroZ$Ib=kWbBfCSI!~gT16?;ghVld<C_g13OC^u
z!0v^lT&{q_P$P&5jc@qweif6oPSX^TjM^rbJnZU<Li2@WzY~~EsxD!4Z~lg8k?$<$
zL>Lx*TWiArE+3`+%9F*Vz%FU-yYUmV#ENFWqNs50tJI`$ch0~mFb>ev9io2V;rr~a
zWDhqk+dn0)Wne-9Skv{(=Ho$O?T;Mz*;#5*Z@B+xpI>*VHGn|l8q^M)tA*<qWeH}$
zCd5fMb*+klPMf>k+o?Xy-lW(eF6~ewvf+);xS{j3;_~?`z;O#1QQL9*3I-ipMR<NF
ze(d<mJOfKqRLoIiz!<FJM0{DPk@6ahpjn3gTiX~g(q(-@t^h&*Ss(8VE%V{lGGRNc
zOnD6MvqwOe*vxS-)s*YaD6oxwrOx@~!8f=vBF@CnY~hn4fjd1H+Z1Nn+?|=}J!h^H
zdUc`lxU1+PWg}nsI+Mv8sW`cC`#R5X7B>q1$aEopQxw@YOAHKyGZ%zd;73=Y)#bn!
zqGG2!!k6uwcXE-ftHl1E0z%O2?^Es*0AH-yB$>IZDP+f2JOdeQjJjLlhpo1>W}oTj
z9@qNtzFL^Av3r+BY*`r)w$`flGl{*GnVZAqRfAqvyOo{zw`*LP+QFf5z20iu-YMb2
zjiAi#k9ET9AOV4H)IO89O*S+0T8Yvdw~pTMEgEc3j6U<&pUb+lG<N6NCjZ1J%Hu>0
zT+O+*D}M^(0`7bf6Glz=&38%DsWJNli6=|yY5s_d^<e$2Z<_EZZLn`ir=p)}99MKd
zRU>{KEXFNmtlOcf_prq|?vY$KmxfFhc3*pSm8|+Q;B8mebS3tJ8j#AYOBF%0<p_%B
z-Ai#>Laza#PjsBhPZmaSbq8CkS7~LnlUYu}u#dQzGu9pR6WKft=Mmb$0Lc%MB0d)E
zw?j>j?Dq&$!9f^fXgS!h?pS(b@q{v=d^p8lTjwsrr)bdI%zO7|1QfgC|0A?UY$3-+
z2wJWGrkzza$tCKOIvTcgWq1@dUtngI&l4(C+;Bv_z(b>pElF>l;`Q!(ix&CwLcM&}
zX^+}=7w2o^^9Tit$Yw-vsZ|a)^Pkd4HNh}mJ`8Lzr-1gv%=CZ-m?j4z7n)LU(tHin
z_vMW{%l=uZ4*MBO<RKUyOs6XKlYSFl3>i<p$g}SmKM2BRqzi>UD34ctfkt5@@E$^@
z`B`_lmK*ApX{=s+DZl^ReIj6M5b*T3lba7hq1<Huk>J&pBYJQQe`LY;g`V*_&K?@5
zL~hl!Bd?yt)Z;{&PYH?kNKVeoLgyb;7dfdYTZ|2I%0ukp>$h`&iapai%NR-vYI!IW
zqOq8>(XtK+R$^TJ&XUy+fcO!T`}?OOba8**QAA0jrhK+BCz>cha#H@7;und>`uwJ5
z$?BL-5+gF(7Nk8r=l3Vx?^adjtq+!`@|mnyK$M^RhQBH27T~sKl7g$U$`YZ?Dh>x~
z2z|+*o_t@}mOcRPK=nt}<k)LTM?$9f@H-72%WAqe2ctq`DK^r#twpq4=tbO!BHg-n
z8=jhrlUEtz02=T`U*y6*eRoGGLpK{^oX|4*fbVjit9VtN8rL(88j$0dJ$g{*;AlC#
zWX93>Q>e&v1Jyf)s>9yNqm{~6h7ZFNf?SW=;@qO*ZXUr3Qu{tP?9X#N?OAo;c;?CW
zpOvR4uA(p*uHtv-0>hBzEWS;Qm{~0J%6126J<5Ak*dTk*g>JA2Oawii@*^qTe@Spn
z*#Z04=yGPaKO*>oWO}G#K#qRDi?v2YzjL04O45V>8cWdv3X&o0TbdJFJsi%b-Yc$D
zab8OI9Jst@YBE~{Y`H-r`9Ji1tz-Zx)UkGmp*@Q`T;{K65P@Vg(xW_^kr=_@2b!aG
zbXmFwXBiByrP6-q$83+YU0}ba_7p`>Aa9PnD&d!Smb3Y97J*VJ?g{sA%Q7PDdb75W
zOoR<jT&iS4-vUyY*Ctv`l2;Z9HRLd+_7k7k)~Sa@T&+1={NvUP%C7CdJ3#qcjl`p2
zWeTDdvmpMRYbE#%yvx$))%L-=10F0M`)Msxlz9evr|~KEXm5BySM0(eC*VMNKrDHk
z=N0fw0XZl*C(XFE#pi5m3e#rI4cJaEi*8{Y*Gc1$av;q{H?tx6IPB0_QT=f1aGVV*
zqwO^wW^~CWPeC9Db))-oG5CZf1r4i(*5YMA9-MUwsB7oxB$*DpqD;nb_%~+Nw-Ra(
z`F<E*o$a!AE@VmZK(T_^vdJ3sUThUIwFzoi{!SyBrVhj;aNrspe2iDp`1lh_9*)RF
zMK7gxvu2dpf#z@zTt!S#Fa-?|FcIL43XaK)u{BWJP@&b%3}R^E*#cgb?JBfk@6I84
zd0D0?hn%LaGUteJtBcN|y7*{`9QgJ}w{}wH%>ZT>k4p-7BEffNio|lI0{ogwGJK>>
zM?e3g8a|KASs57AUhoR3uhi41&bW6WHVHn>o`%>L1P9SAm_U$tFt`+#%uRH3CBoeD
zJsd$HBEe9>%q|!W54M4`4UdB18otTJt><<MPy&!xmpi6BA$WX$Gl*u~g-O5<JGO7x
zwGr3NQ-n94^}Wi1og&6xv+-}fnXyNQ*x=ovL1lIa0BPeG@x`AMa`}}Ff!7)bS0ERr
z`21B0X~1_4)H#rYVN=dF$z}Y2as09u?;H!!i+5a&EL>fF)YE%5tKD#1gIvts!Rq8A
zG?GnE7{#8WoRyZ?wbu=;oZ)Uou**s&Uh5L?X)9K=e=dd4xHo*T(4k{+s;$stv(JLG
zZ_C}y{Z1))F)ZD}gT>8L9w$TEi@JhO5F`(_er0UT5L0I!%5+?F^Tx}0ndpq|A>vAU
ztR2+vU5|*KV3}3E@}D^(7M8o)Hr#t{&-ZN@C{Mp_@ghqTC+OmmMMzCtwmSNL16tTk
zDf=MKBigE)a3$fr+WQ(hC^7%<SJxt~a^L>Hb!H%8k$WT}Vt_6N-ST&4OA3BIwjqp-
z_MxL`<J79EZ>YmUB27je^TMjN(<ds|#H4xdD^pLAyqsNGMd)f38c3lnH0)d78k3u7
z^4y*Me`={4goRzuG!`E#`oi~^#{%OO7YD3KQB#(QYT6n5O|m)j{BaVEfI3>-PTTEx
ziNmpHoDfF?WEt&*;aDc`AQ-K-{d$5n-_vD!*Wo1bdS#e?wLf@z2LZVC$rR|n2?VB$
zu6P1T4)KoY@OsbBsE=%CYs1pKH+6WRz?5@{=~AySj`%7eQ^98VQ|M0S57$&*r*z_=
z%I3gzc${p*z|ZuRxF1av1Nrz3naG9-4I)o(5I?OQ!+7*IMkWM;ER)8mJ3PjrI&IwS
z`(uZc4xz@ZqmW_Gk5HbDED)Z;iudY_M?|5N-MIlNYPJ9E$o?BXG%6w+?f2gLp;UuL
z^#%}scmph*hPgf5kVRSe+7B2k;xb4EN&49M7rOVs-j~)D@z}DOlZSyt3k?POCUB*G
zY0=K~E2@av8y0ZPYH&0-DJTCsu+XuhxzhTiD5ux6UmQFF@{_NbWK3%MqdWRunL**l
zmcWvf3TN}r(i_aZzgtPToDwrfvD!)(k9U4wZwYD*!`<23@5IZv_0Ys7<{J8?s}Q7O
z0n`u80HYI&QuFe+cRTP>CX}8MKQ39ceWB3X87LXKiZXKufy5xd`tQXDS!#O>agqOG
zerhH>Skc>03H(buvt3T#?vyB(O(?`o8ieW&8h|UD<pg(XmvWY@$THbaM~CBGgYEad
z+6@TUGde=cnsLGd<-<pkC1;h!>bBNiV|#O#jQu49q;%U%CUW^lLNV(hZ%l(YonvV}
z32o79FCxYo1zno4tk#$$>5#ccF1vbEN=qJS+)u$hm>(m)Bo2lM!Cze+eL{*9V5S2M
zFeb(Vd#i4_ZkY*>3buN@!>Mz1$uP!(MeL*K)Yup7Rb^uTGIp5DW9~TF9xll7M>d!h
z^T<2bQ`pBRy%3Me<+Z-ImO}}5J$6nqM7y}{bjvbhh0RLkDYcAgyezLV>0eRBU2WJY
zVyKaCydQY|4+WcOZ&N7%u6bP2weaN`cE?4&Xm=-jh@PVWfo!GK{KXg9{<s8;-%bL-
zj(5VPG~vf7IC>GOL+!s;Z>(T=M&u6zCkjN>-rzF*k6X7fof(v$b?GdJyh#!Dq8+M_
zKxb8wHFZr3ECb^gwP|~1-|+90#S8Bo^FYak*|K6HU9!G|jau<tJ&l}tg&4}rMXo?s
zVvOzoQux3t(P`>X=<!>5&_8pE4Yo6)FCaDQ@P))8n{zu?wAEq#sIG<{_#J9k8p3{v
zD32Q^pD_kCsiqto*$h1L)A09dHY4`wU(yMNqmfme{2aFb?bg7~VIvu>u-!+5v;@DS
zqMx1AJk4leO|23z<zn3GNW)QP{GMw*=`h_gG*Gj#puH}s^^c<o7dMhIE8!RqkVK&*
zLmt?lLv=U@K%_?G){xk2X>OgT;TTq&$*te3OJ1D1j}UdW8Dk}%XFtK-kuUS$bwu1V
zmJ_hoeqTCq-Dz~~G!ti8CNFx*&FgE!P89G^0#3kZ<=V=UuVo=VO?=4za-U&;)2xg<
z8dz2V8V!~Ze22}{OvPx7ck_7ic-@-Oxe#_-1nbAw6ZC1j`P<I&W~|pSlzz*+gXyyW
z&=HB?@7bN3G;B3BQp+>h%2~H)tn)WRJ@_q=kuBc8$5ltWrlQhzo=5A<MCZ&M#XszA
z;Dv7YTe&!J@q59CaG^-O5V-ke2+EY{nsssCN^Ub*cxYNS7G_QJ+YZBGw?n^Y_@0{5
zP$}1@4q5`*lydrr@*gF0U71jGPqd(;zbAzT{T$*VKGQTAl<8VE+8u_0^or5Npseg&
z3i;;$cE52GhC$pHd}X{aF795HQWZYy2-T~Jgo?$%Ma&)r%#f8ePaLO*r_^szAknmW
zm>|y*m1M(0v6$!K+9d*!v>=;xQs&=++6pNj8Os(D?=FCO<Y9)2ZUi`CbLOrCdpki8
zdndqZ0u^dPj9;YN=~bCD=|~L$FXP>>NNq^xZl-v;y#x`Ji-b?nPMFO%_zE<~{S%xw
zu}@7gCofGP#0G=pPHVoKH!+EKO-nY%#dI+ue!ymCpAZh{V!ZNuWWn%hVmb<9oBoPW
zcJE1JqQekkYvCY3P=$1{RXh&qjPVaw*;H0+WAK%kg|-43sjJKNVUJ8Dt8P7{CYvgk
z>Zg)AWI_F0kvgkBWNRX`{d!xvVt9q1lg8y6EVF%v+T70nvBzL9anBwX7nkf5G5sgL
zF%C!00g~y%7;Km}TR?26fUL(|h)@ghFzZ@qcAz$BHfo@l)1?_(-azx&qS`#5cWB%n
zI~WN1T%y(4dmh60#9&<<wtUx*ljD-$w(*;Vf<sd|JSv0JGsBPLT$Sxod8JlP$SZ^j
z0|(#oco%Q_pAA>1FVuoMyl_ob8phY6!C{vi>qK3+>zg3fQxto-Wi7)3gG7L9J_)Cy
zvZwdOYCD43LZxRqW5jl#V}#gwtoWa-Y5HNfw+itP=H>}H>O)2z<Eks$J9o^a?nR^I
z`0-H>6-|TR_bhS&>dT#JM$nTL5I9SRFX9n>IhyW!hv*6%H;Z7~X`@zNovtTBU@FT`
zrisVG(iA=RVA<$@*SZY#;(04R3T(X^pH!<yfjHBIDeQv1NmH8`(n|Gt8J@UhC@G`L
z{y>RtHu=2D!;-y{d9a!bwNZ|g3GLkK>XdUb#*b$Q7@eF`D5p5Kp+xBIs^TbV*&Fzf
zMw8i9`XwLDctBL8R_OWq&cO0@_gp!Z7}BB$N!uhIH~}>5%$YxgObJIKpe9|Cj1qpC
z`HFghNU)zN!@(ZQ|FluobGHi#C`W4gkSr`njuqpHxzV<emmMU=3@M365N;&9%?!|q
z?Trmsw*TDqSAXb{=<0rz19hQ^c>Oo0;HzjdPiLRU>-%pjbF;xy;_}iI8TzPa?v=q=
zcL8W4CDZ7#!iA${{}##$9YCBBmr<YLXl%#UnyaTj0f_(70mmYyi-srhuq}?fN8@^f
z>nVZS-LIf42!b{DSy*hZlXHe9!fm4?O~JGhW46(vAr1fRpRvL0^wVqk_c9bCu3GX&
zl)eVv*~2v@N8!|+u=4QNnL+2?@Jk&Ce&YJj$G^@Zg#QNIV69JNM#63$r*o^6FGcIQ
z7P-%=Z4Fb^t&W_5<I)HB)wV04-Rw74$L6-T#D<pg@oeVO7I=@o@s<N)>Zbtv8p0%t
z#oz{efYRjfy^3zG`o7j8E&<iC{HAUF=yj@x)3F3@RF6v+HFuSfJ&`!2*Rvx(P%7`p
za@cj5F79O>OJgEseIR~+t)(+KL?=_Cm__Q&S3F%v=s6J}p6z;cg(^n#AtmR6sIoOs
zBNrm|I3J8A_ARZ}qwtRJDNj<-yC?kt4w=d)pU^0Ec2T*Ndqk(kN^Z^*1g;FB4Vk<i
zb7^eqB_37e>e%4BI&_uECWExgSG5YqkP}C*8!Q<!1H-rkqm_=fBqbXyo5Hg>XlK^G
zgxtw9xLqvFw-00C(8tq1ntl(1NIi#oJMY9Dta<W=7P)2A#U0YjHELjuycm2m9nPyL
zi%PN8%U#T&1$JnE<I&7_Q?fL@y!7w>%Z@KUf;yx))iY8|-Wv)7%F7N-G=#6ZZBKR<
zVN&!SOA0^9+YH&_yc1mpMbUIdiFF)L;fU>R#{Y`eQwo?nHqF}WE8ub0l5Oc_?+RVJ
zQzJtnkJ|XitG2&`S6v;@v0r4lYFUqfKc1TKd3Vhq=06|)#6=c=2ca?u+_PNB{Jh<)
zWG4-$l)N7?(lQl24w1j{(An~Gs0q0|{mkBzJli-=d&Y#scV_6f3SFP88l+a)Chri^
z0zZf2FthR=2k7}M3sMb0P+q=fE&t&4R@yKAUue#MVW$iPc7~QvJUstH-!Kv|F|#uL
zPxT*~!}5QSI{z1%!^X(+zq3;RKhT^uCuiKv)qd=%hMXLh)|=7R1^qELY!-8C>=>J^
zR&4GV?5mQqZ7<K;w_SWY<7neQvbAih*%q<!aMa|B;Ak7z0K--`S!e0z=xu+w#>vS+
zEa_+fQBgEcQBhM4CMHxTa_W72Sey*3`GJM))zB|JwmckvFxfjMMBp+vB@HcX|KuiA
z{|M0j;n|ttfthg#eN*G(&$@ydV0MAw{*i4A0x9_T#uh-X!33Yi7AH3bc2+0Px#zt&
z07+sh0AzG@@Eg5b079$$ppJw9Sb^342^jOA+=cOesC;WHV>oBWzdVHGZc|xV*KHV>
z+S=M@u+`Y-R=Cn{<z@giCvs+gq<O^ieIORFZ#rxOGkw_aG7e7;CjZEcj-x#)6D?$N
zHDGXpeI0!hTaac4Z#TzQMlddb-6!B=QWJnjSAnd)7?WSNe9-SQUH~%BQoq5Uu`f3Q
zr>wqg*yw2Mnj0AF?HL<sK(bR+0sroFn4Y98WZM4z(f783fRv(}uD*b%fR2=agRTL+
zFm`}&NJ=1>U8`@okXTW;Q&-v8=h#!#zAEE)+|!<gLblO7>zbMXHrZJFzBzKkTL2c%
zyKe3wel=?gqbtj!k1&~On`jx|G{bA_v3yG-+dG(Kl#jTTE{NN>X_RvieIsMzV`F1*
zfEz#oc4FqxJqhLQ8-G8_4Bx1|tNYjHrWWAz?lhohHg>??zknxa7JERTY@F<X-P}Lb
zZ~6g7M!@Kqm~4Ph0VOBwcK(IE5rL$>4<9I;=^cR0=sV$Y5dH6;r#bSSH%{i(mIlW^
zqu(_VX7MU3$qK5)Z>48`O9KNfc7JkQaAg13j2OiJ;qejB{e5E)_dh!lP~fM(>|?#&
zL^iTkfd9rR-@6rmc$+8uNdg~vA_YL-b~Kz@Z;)U>6n`+?aKzX}3t#l5e|tuMX;Xh|
z&400ve@6R%cNxRkHPye3`QLRDe^Z0~o7<B={A_p3*VoUz@Qtl^S_V&kGAjXobq)13
zDGz@u5?q+wb|LXG6)XHTEN&>wZopX7>D-tZKfEk{Q!0LS*(n{c@&l_2-*3#o`9_Au
z-~63#yv&W>ev&wQ<WKad_dYSd>?P$f2{jLQK1QZS;20bn80|wnde7VqfIJzy=t~&q
zuWK~G80R+DIlDRlcOxFa($={9zI#;M*#3g&ZRd7|;0zFdgm3^uW&FdC`UoGw+5lh+
ze&Iog{RFRJ=>RZ?e&L|~1Rr6$PZECxZ{AFP=e$AN_?~kFfA9{yW6Iyc(*R&4{Li_9
zAMg!87|Or%UVJP6m2x-mJ!@sZVY^LM-vw{inSTgtUOt+B=R0%z@I7CczXfjmMSkHo
zI%dXJFTNdrDc`+DU`KujUON5!uXkr(UfsVK-D#GO;C@LT_+F`d=a1w7OLhS(_&;_|
zT4rH>AzthZKj^*eQ`h*$K6a@YT{)QdduKjr8Gq1wR&C$tz3ApI^xk#5pYXl>A~1eJ
z4Lx0(-S97c&vzqRzZ1W=)?fUWZ%bQ03Vq;BUVn#;4M3US7x2_ee#LNqOKhueqMJQ^
z46T2bFL%4^{~amyr)HGCd*%G?w7Li4{Gmp?zB_}vr+3N^cSre4;_bJCkv)y$|JOP7
z_Qch(`8##c<9qhsW3IG+L+)0(ey?)(dj3+PKX|*p`tEy}@%$ov;*J5G-?>-*y5U4;
z;qGc2KCfW?{J4In{Crq}18fC|+fP8Xh;sp=GW}b>s0ew~I(r~>$DfY9U`;zCym>Lo
zd>1f(YSd4npHVN68cz7g7<r>)ISszPre8*^=5{m-x!hK@xQH5rm57GUL)x_FJ2>XJ
zy%Rx;$>MQd{{81P6bkc201ad~rc(zrTJkkvBB77W+%4fyb9^RZgsbRh>xiwbEOf?{
z_NHse+me)>2^FUDvhJ&=Y;3J5>b(uV3MQE-N&Ju0<LMviR3);5i-oBvct&&%`;h2(
zztf2a<17e&ggJ<+7gDRNIU(XRL+#8iF7(8TEP~9%cuS+}YAb#^?wn{Up<HpT(jFL|
z_jrwbq2Zl4-uzDkoZirn{K7-!9y{Y~7pm@K#_5xQXb)0%gour9%B9Ho*zdra!iJ$f
zb@DJ8TnzJiy2R0ZUQ80clwbqI>b6CU8zg^>Lhg-NQO9UMI4hT7;Ff&c-*8KWdJ97!
z-GV}-9bNG*kuKe9Y6D|R!-7ytjkds&lQz?Q?~w)D(P>Dci|&moy}cN@LDNu`<W!Zt
zg+HhEC{~;uw~t&zkvta}mAVLYVj<pQ<?C5_sj#}7rq>7J)ZDh-Nt+No<O=p}9t_xI
z!e&|Pjt)rZEv$jO6HdWyQ|&8ODBtXb(ALnDt~#A?3&?I*U%cT$3-jJI1UeLRsobML
z`m2|LOBU}~%-t(PT^fa3I982Jm@Q0~*EA@6x7z^@?il~F6G836E8#K@{$Tv`I8~g+
zv{;%>(RfF6PHqd|r1~v$X}^%fk+XedrbKUaMsE&Z@WR%3$^()oLiij$(v_v;L;Fa4
zOI6knx{Nva{!ec*=?<nZls#svPZ?6Xzm7g+J8h#|pbi%15qT%YEc|dw1~mEUjyuZC
z3AfiJeB$&V*iG2N3D&?~bWPP15@UDjybaQ!S)$+!FpG?Qe5?0rlm{({HwF8G`qRQ7
zVIa;|t=_%9Yd<sWK~R4p5V``2J~iF^34!9cMM~DjI0tKgXWr@tvT<klK2N$%|64w@
zOKS-je=aBbHg(b*PZkKDHxcF09{y%4+rvZGH5bGuPw|#s@Rd}=x<JfnYV}WoDK#>h
z_=?6kO?;>fGPJYWw=>C;7yV=^3Gg?*;dvVV57a*A0%y#ow<0pRNTD*^$JOcOAwW7)
z;Xk&Y-)p`p=HEw^T$QtBF!>LRdnT4=DUolt5y##Io}P{#y*W`$t)W%u;(Im*3}Tik
z3urLa_16${zOGa()p2i^`Or!E6uD_()A}K4Kaef05{Hvom@DBGDWQt_SUR%?T(_7E
zC-=tzRHr+PJkv~>6|}1nXs_CMq~k&!38x(%qly`Z+d{Q}zpsn>pdp0aWr@l$CfBtE
zLr$oCFU~^7*sw;=VD*s+vt=wNJNG3_O<qUT2q8%Ex@N&d;l<YM%2sr>a2-kP_c0Mj
z-%Z8Y13~8Dsxz)I=)f4OZ7d^!N~4zp#cp2SL7Pd7=#w<%miH|xD~5A@(-6mc6wYx#
zZE#)}Al|-vb+V0I<5zh@tkqroINly*+Qq8}!PWFk?b8^}q;!J%`6TBsZdnsonph(j
z)p(};4Ci!muJSt*;n9}pMGzTPg1z;<B$~@VOJV-xvJX{ZBC%J8#}9^`Q3$`ELIi@s
z-DfhyIUR~|nPz|F0tBH#i?XB=%Di(Kv}aV+ZNICM`vl5zoHf8-r(jPs_3Ng=;%@uZ
zxJ*b-GD40RmLxLSHA=cEDUHM&#Gv|?+HbUd_`vg-gHAF3flB)i)Y7raKSOO<P-3
z(+p>}XZ_tEc9B;#rR`^fRIf#eY5KFN%&$|cq2&ZHLJ)-CQkO=26Kwd@fWhWl9T{!A
z4E)iNd756Z#$3{{Pq7fL5vAHF<S}?!$FQ$p?`Z+L3-AL22Y#AAPq>ery8?-Ni@Xyn
zfm9)~^MT}VEh+=M3k*)bHjfq{_gcSbds0nqJBvgGY~)S!O?db`7aiQlwv};o<t0m_
zLDi^}{gQO1NhC|_LOPWl#vM~xJVs2XouQY@Nl$ppN%I#~EyKBY7(<0F-V*#7Sj8hz
z3`c|hXx=gbMo%htfs(X(_83d#&+Wj``dF+R&N<&kuhbXgGiGS94GbjP4EcP+|N3qd
z7|cvMPpcx1)#(*pKTD)b&40muFrlav>M6Ak`h_z=1$K)tw=Mu>S-ETZpNDlcA5CUj
zBE_|-6q5NvZ4B2Q%#^rTKy_)TnR4NdhKg-nOf3C~&3o!L$tN9erym6eq2yCL)n!kC
zTEsTtczwJ_X(;XBF<=0BEB4S0*JXTUy7m2i`g%G_WG3UCw3-PN6~r++=LF18IpK}s
z<5&c7pgv;EGR;LkyttqSeL3jubwy3_NJ~;`aX1%WlU#{<NaXvTZq0fN_N`Sz=Xk2~
zA?yy)M+h5YZK1_nKa7a%uGQJ#*Mk3o_vD=K`B;xImiMp(m-^V;0crG}i^2T(Vji0v
z*z(X>M@TW7FD5*Jg;Oj0ZFZRf&L;C+$o(xBStkrr;BbD6x|GDYVkX?j*Gz(?m}zf}
zzq4VPETIl_8%u+alh<aV;i;1&!nqgn)f+$<8Mu_5epqWkZE!vNXr>c>=<7oISLJF5
zlOv)nPhh5ziyn(d!Rdxth!4=v*ImEc!<KU8n(=^TQ<hR!2$7t+c<0Eg<jmqX2wQ4U
z>b^3GPfr$;9wA(K-X`>dwby%kX0~tbZ(MJxlhE@A3vg;;O&XI`mH~gbQU9SS64jb+
zs9}*Kg5<8<*xo{N;+l+l<;h5}73LcE_9^FU>6}UAle-%~RGMw0;2}H<=n6`w!GnXN
zerNh>=Oh;e1(DW?%QYs%<WiofF}kU1kr{9Cwhh6W&;7hCKjiZ{3L9z{T@JJP(IvNC
z$k<cjS2%5PN4qPZtx#&3jUc#IpCjAtltP$=<vv#+EPhXp``eX+bB>>hr&(-?hYCSN
zMF%`^o>~uBLb^<iqaZ<(ni{=Enpqu}@lA?-%u$pe6@3%WYLJv=P0aD8S4<})nAaTD
zfQgx#RIW3iAYmv|46~!6$|eGB^idq%%F4{a7#*Z9V(o8qPtGQk)j3A|*XlD4zf@s#
z0~G1y>2q&<j5)KCdRLYr3yG-Ul$(_9+lT)d2Q2%*oY2@!X?hwBV$yN)#|83JQi-{g
zFcRIGYln&dQG{p@GBcxDQEQ%H;#^{O;q3H6v=Fl=W=7D{JxI@D-9kqj<mO7^Mx-K_
z;>%WbV@p`7wWpdHKuHLsuNOkf)R53J9J``(>C?y3md%cHs7#*3Mo|kV={VJ&9kvif
z+$Ek}cp%h7Zsr%@RgU%uU2m-S0t*AzkY}{~00Ao}kVy1w0ueuUBf<(fkUJO=yqr}X
zM15uuQF#4&UZO#qAm;L~4UGg|i<hMWQI+}vfI3TEVr6FzS0xMLD3v1_XY_`98ik@&
za&7QLw?<_q(L4%7`!F$buBgEmOA4qFW9X0FBi;40;4ua)<d)<rAxXbZxTTheZlrYk
z+dPLFh+JP>dsBAPNZyyqzS1s9sT5ODcqQhTm}s$6!AfQLZ}S0Bw>L`hCR?>Ti8M(t
zEI&+|UiGF+b9h2=5D)zrrkKJemWi(6w4L`+BMLH9PY-}ciM%i}M<qy%n6|tV9w)(Y
zpS=agR$FqAQpgp4!boJYv?VpOt)T4rf<taxnj?8G&?r7C;W$~pyFfgP8JBie8zFqK
zGnMO(DaBN$ljP~nePTkijwv^r)r>bA^G|3sa2A=TjHI~gNXZI;&3B5&JQd$Dr|ms8
z!9S_6_lCBONZq@rf$G(=f?F=!CHoNDroIJzg<{Vds)5@iJ3f0<Wd<r$@ZCy8hXAnA
z9ac3;W#+M6Id<=N@8uWxO472NnFtC9vu-CuFCRH5m-7kH229%GY4*eST-EeL(SM71
za3TP;4rku#krA|briPEBba70;VWVQY^1Da#MT_&PU*0cXGK24hrah%MUR<Mi!p895
z_OdYU(cCon9aGMW&s#1qpg1_JT|lR?TI~p5!xcw^OwjAX_i`e^f83hJ?<J~UV+}RD
zkSLWg@q^t+-%j*aRF}m&vK}{>j`qV+aIe>6V(X5}MM<NON#^nLb8dNZ?%%3+Mom@g
z9<ZbWP$f>c-)=E6rKK~u<nFa^E0T6%PC-Ho$G0;4UQ@17iV{itW42DOox#QSoY1T7
z`Skjorx=KfBz_^b<=R+zV|kHCp|@I?fxPJ7fih;%D(`Ii?Oy}e0X4d|dxByR8#fGo
zs7Q+G4UDbIeIz~-ujn1K(M4ghlC#UHS;o325Hu3<8ezKC!SzDjUw;;|2Vby((bL{b
zsE)JdtLaEwqXn3CcxStG(4Hst_5*z1?f`e6PMjZQdGxY_QJ%0f%OO`=a%B_N6?tn{
zBF#-vmHzbWO?e$6)EM^?NQWXZXI&Rmnk2WJ(QsQF+Us3E(lWTl&Ozhn<w*BQNhw9!
zDIXj#YbaS8zB4Kubz4p`9(ouXxt}5KgetkF`q9alEeuP@%Bqya^81#2qmpfK4LN>a
z+!j5nC{s>)|BF7GZ{Z7u*?jm2b=6IyqUhr@o|Ab8L`bRlC1fRxh;(Z+OBKgfgj-X{
z8tuv}Ah|h;OnQFXNY&+!W$ewB9HLjtMU`${)nd{=IC^<+mRS4Y1X%+8ut2`=qVFVR
zx7_#{qwB*vzFT_VTCM~=Eb}+8joiuY%r&_Eg+7R+{%O@*ht7TlrS!=vwh#WYd^qNu
z)N(7o5C_U}>9+dVHjbuSBF=M}z~am$-T8!c<#z5!RcsOO2Cnq;*e%FZp(K%m*Be?K
z!B8A`Iok8&i*ds>=#Hkv5oV>6fyB3*)>H>kU{C*8i-1p$R#nGx!N{pHE4*QfoY<`0
zAvgdA@Zb;rPnAMKeB<MR7p!)rcplL!JaY&~4E{2p;bTexTW=t_pBcx1<t(1Cr6pu~
zs9jbUL5?SgqrH1O^7rg<fIeuUYTH&y#bKO0`fak@eHwoyr8LIKF9(yYm3mqN@Q~Y~
zYVDn4<S*I8c~Z`__trI+8Bat`g3fc_{G}64?`?-vO>ci~8crk4+k8OQZz2ypfKIOw
zN>Fb1hD4rMC67rbMGn?OX03B+sX9*_l$U1;?_+QMdh7Jn_2kQSrJr&b@R%d63bjo9
zQT0gY2|+Q4`U;2L5k*OZl$o4Ln{EjkyOCEhkwt&L$oc6_47g{21dPrjkNn7z6+1W1
zx!c0c!kWb;&f^(T{=R*`-_(|nA^2tdx>3B-6|vyax?;rCe(y-f_6KcC0wroLW^9TK
z%AfCoF*CmuT{NVdYYGKBz(iKr`blOlVMJg!GS@E=r__)x^n<*(AX~Z;PjWzzDjO|M
zuBf?v-kIl{;bjX%x{0oO0~O}nb%3QagSixH(*?Z6?2(Cbm-bNs^E8P-63hi-H+P|T
zJPgUl0Vn3zQEkGm*Nn{|Dm_Xx6xgPvUx!@u<vnh=U{Hj++8O0D+`mk$gb{=~-aTrs
z)!vqGUn7~~i*lhOMr~OC%OK$(Hc#>N%_e-z=EEx#chwNWQs;@-izZI*c*xJ5O+CLi
z46n)I9hkr&vfmlX&hKLYh-rA<>p3(*^9PNZTk1aMWsh~Sn$pEsRrYw3>{nw~F4#$f
z01t;8tx`(KkG1nR;sEN@UH~HnF5<O!8rrM(el=Vy%XKV|l^x{v_b?}-lGRYWlClet
zeGkeLo4COG^o84)m|99{Aw{PZ_pM|86XWl5)Hq9tVO^>AAqAN;VAQ_!D<V>J7)j-I
z_+*FFDoBIHGbZOOT=VO75Sa4@!+#1NMh#!^9X}bLKcDlTEXN+#DlKiD|L%9vHu9KY
z)<r=6aywt_1e-MTZ5j`@5gwut8$H*w$OIOFAj#Ue38}z#5l2?Am4<=K6V8&fFiFNo
zxEO8QV|dLmK40vpwdoCMX|nxGT4?0)<eo-p%b=Z6P@jj?;wGTQJ828l%zn%~NDe{n
z*_YK}CzC#qSLc_B-0zX*u59&f#9a!^i;i!WI(8XK1YIe95-L1He=NRrNEWJHW&1g9
zaOetWj#{;Rv#dG%e%xW>GNSBUa-dgzv+$ifU0nok(S97HjzTc+8WK@xgIxPQQ6bTa
zKLI7enS&LhY+9-#6^BA1Ylew#fRL|1kp0H$u#xbRrE9%Za#+G3Skqbvq13(bwL(T;
zz9#=u`_ck7^D}#Ra(G8mA0KGyy1k|z!)u%6suePHZDfT?-BN(h&}SiUvF0$HuBA5}
zX^C`l37suOA8IV<)0C>bqBbJo#!~fO^1xKm*W!aU;^x0NJwr(Ds+!^{Jv9Z&h8gJL
z`s+0e8L2`a2KL&wB4>2HcZ=b%q;Sxkw61^+8U1^%$W2;yv>#wE^xCIEunL&OKY4V2
ze5k(uh<d?qDl&gu;SNU+>dVrumeg$lcFF*%T?LzMRIZ@{iY*K4@#3WATzPeT**%!7
zWQ(<w^j~zAo)M|%ejUk%zG2atfcKa^hF`)vB6c8(9U^r)>|N%V#0-@b`6O)<4EuVU
z_Q4pz%&nSa6kIBKv8ta3bZ^bB9Nn<nwaWUAKwzoEEG)%Gnl_=WE$^A-p{I12+u7cY
z8|)++GnkJ-v0%r%@qFwIIRxABvU?Vbk6zIO{X^AB!s2wM=yJ_Pv2eTtaAdij5+u#A
z3&kQv=z~ObvezDA@!L(7Zo=K4pYF*gG4z_S8CrE<ZEvpuFA4Tq-`YK!Bw+qxiS(#Z
zqEiYplx*ko6DWzMeiZmyqU`FP4{4e~-|>qvOMTs4Bba;hQ)3L+k&pZR9)%^D$)2v@
z`T(=G(prDFMOf}kEW%>SC$f>`!IJHyOz=VF<@m-%CvWm!M9Fk@DZEn;uqixm$|Nd0
z97lv7No%!I*BhJrF?DY-^a_A1Cu2tuhW^(Wp+bTiTZkIDwX$2Xj!(Q;Z*Uykw0>fd
z7TWZ`s}#OD-|fdG%p1u${e|mpR%$dudnAMEc`X=208N_<)m-&_W9-*r*h`(wt0>sF
zKyy1t?!mDD-sP5b8<#M4OmeIuwVavrEHksZBp$Dlg9QdSuD}q~AREt_`_Udb{pKdN
zO{WEFlLA&~*y&h)+0Lci#gSGyO6#f3j9t+x(X9zh6^l75j?O2!*$0Xy-O2&kTIDJ>
z*EblPJ#CV``Mg=J%N;=l^AL*H>Nf2S6!M_uoe{!wC5TLdI{RAf+PN`fmId;Oy5yO+
z{x&*J5GPO64$v-P43$t$Kj|g-mK#mT0|XuWa^gCP4|4KO%b}&vzi<s#8Gb|8*(+Na
zaqV#(bP$JeoNxQxCGKSiyz%&GN87tXm<N5bR0&UF?~db;uD}1q*f}(b)<s)3ZQHhO
z+qN@r+O}=mwr$(CZJYH)HC|NXH7ZVP|A4c0#N2DlArpqM{VSMD5tgUgz!Coec(rOI
zt)x>?g=~8^-3j+6-0a<!82Ixnh_W%ysj8_<6eS^?D$b6gTdb`=3WJEXP?o(LwA0|<
zq~o!smWrQgQaqlO_u~>MyVL=stt1Y{^ahstJ<?7OM(S-^fbbaak*+h(FE@&!+-+wv
z`Bsr@6fvl1!J*a@swm4@@~}`j`>qPUF-|6V9o;d~Zq#As9YU6T^v_yXnsV=UmMC&Z
znpgOCSR9kl&4I+!(+uk@1BMb;n|$HdS{0fMyL5!*7V(@XBVnHi{Ie2TuC`^%^~8((
zDE_n<*m|>0%8q_CGGf2Iq7*q#bBO39Zjui84x!NsW<8yaDAbEkOw~n}BC1*E6paXc
z*&W)0PsDEa6$4_nNIDT(-R`JFmYY$Nq%nrU!q`!Zven0Db;!)rw2xS-?D!ccnTRG-
zPDx13D4CaYie#6w<nsO<v<nR)O%py$s<;J)i+IkKEKyS{flhp5FAmh$e~z}mRVD&5
z$<KJy;X%G6!>UkEVeU$GQKL#>0}$khV8(Q5hi+3A*nI7|Ss_ZG^!N#AD`WphLVMBX
zo;fv!&PsD&o9VdhpAzCT49@gg5$CLxjQ-cPb!#MGRYZrU(|!rDhd!Qhi?Y5v*L>>$
ztmc&&+$Fqx2v%`Ust;A8W+fr%ru3z94Ds~z-Otuo28M;cTW<oU5Pn>FU0i!u@HpSR
zt-f>FT9gFzPys{>I*p6GvP5Z$b}#Fj5d9uu<nmIS^--ypS1|ON0?8qNEH1N{0i=Dj
z!M$ix-{Rr|nZ~kjvd5tEtFN;iSF-KxjOUi+JEqDsPcp7a$D*P>y`MTkZRWO~Z^5)n
zire-(mV0il$tn;D%*_j8i4K~1C_^_^fMIv#*D${1iFjE@GcR0+cLNcD#VT1!hIMLz
zy_t!OuKr0#U#z7Csp&(KYzvWtLoCmQvZG1bfdRHJ@frOkLCNcA3Bg^6lE2}P_S8!?
z^txHf*eqnn6`+(l@cLy(R;U0Wq@?(TnmlSA-zGp(Yog*6W?3)>wIL9c1NL%YWUjPe
zBe}B1XKyG~OWg2~+rh{2bV^bsrYQ|8zJX>hALpJ(bg)6VW+zcZ9;%m)ljtpRw~Pyg
zfE>xb<-C5*a1}Q*N4^->n=gy;TNeKbSa<b0Z^b)Px;~)}B#8$dFE%0jCs%{8UJhB!
z2p2~k`UmOrY}}T(P5n6$$E2ow(ubb$hq*%939g$N$V9)%8H=HzKKfW1O8Kq0)$kKQ
z&d$EpXG$MIPK7j%l$sX;L{;eTq}CV3U%M*={rWR+8uL?soh4YT*zWOG>IUHAVZ?}h
zS>CEh<n6b+IP?_tK-p5Z+dQ`7r3wrU(g%Ml(|J+u)^l4Cp@*OI*u{M&4P+dtSq)R!
zb>WB-qd6I#h>BY)2+Bn9%RsMj$lSdy+q3_1aBSn&$h6%>z`k_KoB2jTa%=vDkR?Qx
z`1#W5MJ8)<g2#EV=qYjeU?|=2upfC_9BAa$cj1TyFHANa1R(c;^ci^6-2>zew3&
zjjet|XHsHd`Z^$C2OUET1*91<tfP@*P6Jtc6@BsXr+F)aoX024otZ&fOy*qL-Y$T%
z-VebpKI!q9xYKtF@ds;+TLlzoNTbbbYnKyV_L}$j2)Uinl!0jt44ilPuxCw*fWNCQ
zWUUaXS>IQU=Uup@_9dsQ07b{GC$7uNiSv6IdIcVYSE>l(FSP1xpx7U|hAYAj(6|<F
zW~UYHP<ND_ew<KTDg%Pw=6VM(M}>VLB{1vYe#F0VFvMyV>w8mAOmMtW)X9w!l9I%6
z)!JxJdH!7P$yZ@xLfVTYcAxwnQD#8Z^mH7doQkh$lr_VtK3p}5I)Fhf`H0|CKWEgT
z8x%@ix|EoY@S0nGoE~q&M-a_(EcK>#QFubq7BSMc(xvv=b%!Mh|N2PaM)TJ8cVW#4
z0lG6{pm_X~E*@UU$1(EFsN13L$$SHH*m6B;hA?ho#<tuP2nsXg)v=Ah1*ILUq1s|H
zJYb1Aq||0nau^v;Za!~utVvPdFc4&HfV!qOM~{7We;u+ZIU~FvJZR%Wk(O=MQ&E{2
z!tRnsi$KZNCk`3rAx-`sYE>1cM6UM~@SX8%Z0Fo+1&DTsxC@lTj3=qAY%U`Hgawo`
zhh|#4d7BEutIt~FWR7atD`w%8TOh~o0ruq<DLauuj-v~P@(E1jdmvv&LLxh$ipDu^
zyNl?VV9j0^E&Z>A<wc?4exB@{R{}f`l~>+vZARSecnt{IUQ1b3WH`MWQdxq<RT2+e
z73*q^AvLq#;p`2r(ht{WPLXr0_`axYX1(xkFV@%t6KO^h@zuX8W#(!tO(Uj;@OaKc
zsb_1~`m~6kV3gNp_D0qkVCnkFiJ|fH6g(%wIV(oh5W))&xRR#WK5`mUx+x{kQ-{&d
zRmr3i%qUmzKltQlp&}`DMTNFDRPl+7diR7=yEF|si!0yOoGjiqHG6WZr5Qj%bVuRi
z5mGO-3^8+B@@<Z=VgPo@uy1RQiDxFXPD@;f2w7K4)Nn+nTZ`bpyC$Rah=t6s>)b8t
zX1gO8b(``-)MU-&wY?7*323h;lh~DJ9l?Kd=3R>4ar9Oa`#DA-VQ%gaVEANItEC#K
zc+Y9K;g~-2(7Je32_MJb*~|lL1y^@Q6?huF&mqWx`c1iBc+vckW+imbyWW>KX1S@Y
zix%R%)d­2ojf_j~u3$d0#Ph8Zp;%0hUXidW?7@1ZM^Ns#ms7ug->U@1|Nhc=k$
z!@1JDff$iE$K|Xi^0kr0qWs1lkj&gSrgMh3Sm$g3Pc?zN@lI_lT4)hhJZK8(sVuU9
z9iqMxph9+!Ns)W96>6HuFQ_Vx`R$<-w%;j#JnNLkV+is^vJTpQK0i(Nez*5rCj28?
zfEr`}0{JqX*9fmMh$(l}@iV&Nn>(Rj*~5i(9QQRdhyMY4uv5M82TPP&md?uSAR1~@
zub0RNCtqi{+xRUqjy(cKQJ<I^r+3Hp8#=+}s<I`qAZ)<d&XIMJV0ll_>pM4c3spH_
zWSZOsK}l$Ln>?4aY*TG35p=Q*-BBn~`u!Jc7vo*R>iC#9gOFB)L%K&OZcNh&5I5}$
zfLL)~Ox2>RJ6Y*l+7q#j?6&kctLsi3)OswkiFk=<qEJiQd7%!4PQX<1bUOSUb~xtx
zY9_XMo9<hmH0Zgx;$hWMvq$HC?2j8mcX;qU!SH7~HCieoIFPJ+zz|sWiZPTHE#={n
zi>#+-ct-w8`JF2i_Ahbo4hk8B%&v&Rh~k99Z2D7Hw^Z(gcB`v32}o@^(;OT%zLFdu
zR0_l63xu@g<U;P*F$YWczeN!_A&~n<SO*2tE5$;R^3mB4p0!j9atly3wAA~7bx|v$
z8?@rem++}u*Pb&cpLa7tNinntyixXVvBOXMLKz(vtTe#X8W*VD{Yx7px68S>aHjHp
zr~+M5RuWH8@^;<SG9G3;Rvc|3)biB)G(Ax3#SmSU&(8R8Y~o@rJoOmbM%G{(7h#uA
z<zOp7c6o$6T!k4LbBKljCZq5q%xenXg1Q8Z2TE&`L$orec08FmY1g$$w^PXOmT)Sl
zCzZw_zYpG_U~6*XF;t7(wE_eOBAx1P0dHpNQ(~xDFs_vAE2`u~lR0+hXkwgtPa@Jm
z?a7{}q_Oe~kI@N~MOlq~X@hs^b25&q&^OiK&;B=ECH{m)6d<Vi9Z>snM7DP&+~vgO
zd@SD=A6Yma!4MspZFl)Sn=UPhAh8TIo9v*N{qehH&oPKeVJrk6HR(-<-QBIjjz{N6
zmlMSDGGN#WgH~}CRVsEr!gXV6C{Eb#(R|Y?99&sSQ$P0)A(TtJw>i%}X1hU%i)DbH
zBt%6-nO0>iVlN5v5#D#X=H&1WsAe#ri6)!<ey<WKtBLDreTu?{xFm3qc%8!{??&fF
z#-@A~Jw$7O?#p9kEhAU3XQBcXXFxqA)QxYhgQ6=Ed+j_g;x`lr!-eo!XnoYf4k0EL
zd?m7>aOwS$1=P1sh>d%eji*bWtnL~{tEvezbCn%3jWN%t1U=i0b13R#!&$QlzJQ2W
zS=wi4ikXzMbw~InXlZz!Ps&<V?4S;xv#^AX(5ICMUUiAnt-8U-nFyOc&Qo0V{0xgK
z;ZT)QH0ibM8A&v8Gm<?57lj{1IUL=x=S{$1aTp4b+9ydrGVT5VatW=)mS!uWh0%_m
z_N41+^{rx9BGM+<wLG;V)k+qDEqey9YKu_ze)h0CBHpgS_P~lb144>ZRW)m~M)=N7
z{8WXbqHZ$9?wn9!t%3MTU6)>rS5JC5-@2{oaD^hgIZoe4-5EW2!8joN&2>$a@V)*s
zL6IclOo5K3qQRRC`9?0q{J0F4BDIh@;rXn&PAgO&V^M<c2=<nK;&i9anHtnATb)0q
z7eXXHjaSUU<^xA;4tI3TUs~2&Fg|c8T#c&vYfQzi42ZrBg^YZ^MM0y#H)}Za4+`YU
zWSu)tr>}BF(E#d%Z>NT9rUI&(CZu7tu7);7z{CRQ#=%iSyo^s%eL;Bn{?D}LS<#Mg
zB*6{-bPXudV-%*=G8rjHewOa0{zkIUfzUDeW(_fR^#HtB4Z!FV!F_XZ5cN0ZKRxi;
zmsjv4G}us{j*DYz0}7pC&D22Ot9)cz1j1bq2?13xKW=oRurDyIMk)W8Y+v=nXt-ZH
zyOlly#?`7GcGRe0>r)G7?OGl~sB>x(2mM|hSYS16oUl%3xB1n|I7^%Kw*=ZeAF8Xl
z)gUieqg;{L3&DGCxa~GeU92UVGxj}~<nCu<wfr3ILJbS@0DTqkq|V*<Y#QOG<Wy3d
zv?<o~N+9k4LE|}k=*DWdzEb3BkS?TVbfQT_Vmu$ou#zVU;8a<zTaAnk<cV@GYg!du
zO#>&&X%R_1MOflcSDBqJPK5SIXg*s6Mz=p3t0D^3+oQ|PXNKk$=+8rtMEV{dO&3Se
z+%=2pm-vy%xD^|PC(?gemQ4kmusx`B1Vv0t(tpeOnT&Mkxz?iGyDutwNoWomsd668
zW%dw#_gyy4ia%_ij=n#iU{A%761&UErH`U#IuA)JnspjE&ETzjiQt|DS8`T+dIR)|
z-iM55b+z_pwIyL}2;Vb}rL#xvpYSCK^IE;uBRL=*Z`f|4kxgQ@8K_(5{gksLj|9!u
zxZHG!EXjI;HqyujV=Fk>F2fw-iw6>c6}r=ArUhk>cqJ?Fg~m(tnq7%?n+I<-q-7m6
zVZL};wkol;h5wa4L8@wo2|rtMZF@C?btDTZ2ji&GD6s!3wEN&=?y3O8uR|(9hE+oG
zwKhR!oa!uPE<?~k;5xwfPwI`HR(u-q_~v#pd&DCdzz7{wZMNOcR)ATbq$Y9u;N<_k
z7D|p4v3Mh@gbA>o)VcICBxv0F6Z2XW5WfT>=G=^T6jVjvdIlFcWm(aMSYMBwe6_wq
zNT%MN&zVq0J%I*Ekn_1tA=QNRG><UwBWZ*`iZQy9o74DglVtJ9icAqInyaoH(Osi-
zBnJ2p9d%_Q{g?(kNMK!ygd6f3q>~XdU2r#WD8V@$*L@Q`U4>jLAMqVsNITq4`iO{6
zPekafNDa9m981Gucy`qEMEqudr9p8g3ZXLqwuS9D1qBqUyUD8}Kb@CXGVKS3KVl%(
zpviF~4^zz^;5d!E15sHtoL%|5H`btjQsvc50)!@pe$s6%us8He1}ybJKaMFW8#OEt
zUaP8L<hVx9AMr*9x{P=$<Y_AU?l&2n(RDL38JejIZR8gyYff2pJX#p*gDWtS-HrTm
zuh4#w*8e*38?}HlBsbN5aUER1P)cZl7CXc?@?8X%rUA58{1=(GrTKs_wV=FxNX5_D
z>2@Wiy<|RPe6jfh$06?;YOr?2{>uaP%Z`RjWn%dzq)bbXGWe;SN#+6*V?Ssiwz^k#
zF)}2qjt`;sDx66ooHX2Kt>)YQ7h}A<TDYWys7XEoEtZskr;0?anwf}`hD%KMF1SZZ
zT<`Rv5QF(VL8#C$<<ZI&kTGmreWXlzb1h!B^6wb6VQPTUwwy11jvu^Ukez91$PuGu
zn=l5lB-_P7X(9o|Zln4cKEVU|fmaU*M#;gz#4NW4fak|wtsN!4WQ{S{1Lj^j**jK}
zt7{EmEw~nZGdb-c5uFR^&AZMHeR^C)wngld!t}b`lK9!5`k`o?vAEm?Vn~@(TRex}
zq-I@T#Uig1OMcg~b3_a+;T$De9figBL)lks^8n5mVm(CD3wK1hKGh3)0p3X%7%spo
zu06%+gTqn}B~fl-lL+_d5G#@C)kaPho&u|!K}l&yF~`Nu|B6DPC}(=GgVhM5eFaga
zq6UMz;)f+Lu?&GM<OHLoi>W#Zm$qXAW(TCrdQuyP2B<n&%lV?l6mQZk$&Vu!OI_!S
zW(Bz=2lyNB@HAFTP-&;j9C=RPR9=@qib?D7(V|<p$c4&2>_U*t3Z<~VBUHFjLyRcy
zp(XALD_fI~AW*i$TCmB0DXqH{jj?iamZ4@YJl;*^FXo{#z?!XZZ<oBn`QxMM;EAJP
zIkG$8@CS=yC(UkUKno|DF`LE8@C-smKhb@BODa5SdRl9-wBN&-42a{SailR>Zvr8+
z`0E~xSO+>pkHbxclzs1Sqcc|ZQ;M@t1?K^Uv0F+?u9=&ff7kl1BoS1Uru}BT3A12T
zO6h}@RZIdZx#62i^+5+%i?{+28av81zQ)-+(yq0B77)bS_jV>7F!b{Y9oGg#I@G2j
z%>8<BEzlF9x7K&5!q{@2>jUvt{jduJd1GqhjCSRv*j(1|Xm=ZFBpv+2p8PTyCBcC@
z2_IT|&LEn3KugK;B3W5e<#YOw%Iu>|7dN0Rr|Sl37*i#?ThOa>UZl{DD6mfV0G*gR
zth6xm8J%~X8kh)DOKG9BMkd$L`Vp`Rs(SiX2+^n!RjpuP`epn*i5)SP*a~+18JsS6
zp>1pc5EIgBmN443777I<YMTHu*(bhO6AqzvV#%a=?_Xkcg1$r3eZx&6=qg2nrRL?Z
zJk6-Wv3W3`FCUmrmUiw91>E&6=D<JJAF0(Q{PzsWU-S97-4}BaYUx&3L-q4Z55!+i
z>+*&Sw{5Lll+G3)OC!m!H3KNcxRqJIOY<}cKHH%{Y+a8p4@yMC>t|5p3uW4{>$MOr
zOK|ZbWBaw1Qr}uqIzFdn{4TGg%aO_xFnrSkgMsHB_K%_ZIs(%o^V9brUx<su+nIZG
za)KnKNAQOB{$1@n;F2cMo^&>>qP`kKUp-lV<|?1dP)1bCe=`${9=pUx9U?TsAsiNr
zN+&H#uBuAHT#wN*6A$<*X=CMDScnCg6EOavB6d?sY3%=b!zHK2Ym}vk_>qS3O!tWC
zSqw4#wh>v-xxej?-K~BOv_BRigRf}Vh~Ebupj_2G{0z)Y=rl3;E+Z`+ucC`6UePyZ
zIo~%jw;q6qS-GK>hJ+DxSyZ^q#!qY6+st0XUu6+X+;!HKXmM(~Z|?Nuo5M{k^B>vU
z3$Qd?KlN@1Z(zz%kO&BM&f132Jj5vj-e4Ul&w1MxaH96|5%t}xay$;$XgjG_(YsHH
z?~boB<K0;7#7g&JdxUMRMf$D|`wC!I*@g;{Gc`W<YY;B#zLyoWQ$nQP1*a$*^0ge-
zV~~MjDjluh|3P=%OsmfM;>@m!fnt6p@o(e+tQ~%agRNp;1)UCd!2C|>UAY%K$I1NE
zv-{@HXTOL|H?K18;+2Y$6qUfcX?|gaHrf`P#NPq)oYolH$OFQ#7<sEo2?l#b&cg?^
zv*Wgi@}rxSx0o)u?5#hgfQ1S8EhML50{;{q=q*;su2C4Ba3D^}Z;I3hcCn$Qo4<D~
z(^gZz8+aHK9ED6*F8~n|D%wF|aqp#BDq&$XyqKfbn`7+{>4roX$F9*JnSU(?V~eyO
zn|Pb|7x?Ad&G2!#E}L|X>zc?swRt9tR3>y*Y3nPI+Vf3pf7h$~=EIpE>kpk|G~KPd
zZN{A^;ILVgqI3}xUD;WucvZk!HT+!D_JCH>oGz(ydUtyRNu*e(DGTPWC|!vTPM{aa
zcZVj4on5E!YnTEgaPJ{hi+;0R=?N_fB+}vl{x`!S&Pc!lU3U<ARVz#-0(4zk8N8!O
zgPWL8)<V*>EzoxoHU>WhV-Z85#$$8Dt;KKlW%$^fg4sCkU7<`&hw2~9fn%m4gbo_q
zx!ZQS!z3iF`D@Aq1^%>B7d>qM;``dLapgMSo;w%#XHHXMMpe2Qo`{DuaD>FisM5o+
zf7ETAF0r^#xsi(4o<;LKjBH`|B2GI%6_D@hkh?vh>xh1bI|@&BI6^W6b9Cb0e8bUz
zCPeY69!9a)eeSohPYJ`$$ine#yzdZrhN+%|nX!;C&o%6Tt^S*fP_{#3x&wF;HEGN6
zTI-f4nZ;)x+kN(nRy`Oz&2Iokv)F3AE#94_4xBpdZlAMdXnun25*PEiY}e|6(S({P
z5F4sqLxr24pa%F3(7?A^P2t_7j6tlsWv;avD)KGW`-Xd&-3OX7;Ml^xMat{#x7Jr6
zB(T)Kw;?{sc5QppqH^OdavEcZ#yZlzR)HY~g(XL~lO^tmfOT(AEU;1y<p?YaSz+X9
z(goNbT~wK6DtK~OKA<3igKuUny5T{Raw@Zz(^f_}p?2fVZ-=z%wRoM*I@O|-!kJU?
z2Kcp7vG=R22PLWx?u#f$hs;7-(Qihj_U855`7!6q_MCKWl9=p5WJN8E&cM9*!0)u;
z7w?#tVIJ%dgQTrlVEI5G$iR*0QK0Qk(LgQW0Gw9Hq=Dz<q%g{k5XdnuOlf)EfMXxQ
z%*epPRM-$-(T-E16kXt0+hM%&NLaXU(7%KS2FB2kKtJQm5)D52z$mx5`@`WE)Y3~t
znO12j47cM0UH`Eiv#;jUT;zexoO}@Z+&%c&f+N%;dG=+;>#XL_UD_2gWOT5ijdefX
z*|Q0f)*(~*eBr-|nyuv|IySs)8Y{CCGYA^kP8L=L-5Fn@hL^*Kvq7YYg~X^!RghN}
z-@N#6T(v?)nJe_f9l;F9w!8b5#W5f^)N#$dSPxc2hXM0!QyFyOZQsFlM4+VdP*Ag<
z=o68X1TLkeX{rHss;j0YhQ_AUP?6}b+|@6<!<xsX*$f)UoE1e-3+UU}59#vZnVNmh
ziE#3`4w9F+k7D}-6>a(mI#Tj3%LLq-$X7=-1L74w^$rj1(^cbsh4ET@I4%xZGB{_X
z(M4k$umm3UJT-TFVDAVo!jtpcp6tQ>$A9+b&C_#1XWb!YN`LF|3c++cU<GC_sR%&c
zns>k5hFKhzkqwy`yZ(Kq=zNkJ^Zl6n?sY5}j)i#4_XPBGT;EDcjYe6mCCOh}tAbKK
zq`n#I6qSim*abuh`b?;}vL2^;BHx%?Ml`+4<<4gJwR|kWZZ3bTo++_(_fc6At&ZfG
z0r{nc^66$8{~~uWmf8Q~N`f431u7mSmr_xW>_W82VQ`7Ttd{{&(G`Jn%Q>snDV(+{
zZA$(P^IC`S4sHIIfBA3aGiZ_*Ttlt&{^ehwdQ2lHF2#2Ldy$fC{ied#_gy!*wbeFZ
zf<|HlpxU@gRl}UcMiE=xG1fAw<^QHb&vUF{1&<Bl2w~5{?Hzm`N`Hv^D8Qgs(yHen
zL&_|)uFq}p?$#z-ZEAsww^apdhp~}eoji1|Q$AbFWv*qGMei`~bx~KPXuZU&53YZp
zh03yOque;z?*$K`N%r{31E1@sqr**8f{PkFGsdeOZz(Yj%(FFQ-nDwYrc=cuqhktq
zx<3iv4>u7-bc?NdZtD%!Y0Xz)4s-N)H0Ha!wfed}@|A-drLDiR1;}ZPzt^?yS5{OP
zEv(y{&YDt!Gve(ECJ!numS;l2*kwCU8x9ekpa!@H2Ek0Pa{wpm5w}pa=y@4K_d^=?
z<L<_4S%nuGuaqKWw&MKkjWQibN%3;xZj&v^y>vX`K^<j%2MKd<2jF#$V~R%B1<FP6
zKWfT#7b%y=d<DKPC1cC?&wtY>fF$9gOP%uZYlb>&=uW|02{ib19iU>N4Zp(nBz2Km
zT(EW-qZt*>*ApKn=DXR!4ab&}tnaaQUp7c!8VdW^?CGCE;QRK+c;f(Vv=Kw%Fzldz
zu~RBL`LU9Yra1GkyABGR07REssv0x{S^}m{p=Znx!M4;wr?$ST2agME3q)^=PY&1i
zrWexfWVG2pbV|#fa3_s0VaO&cq5@oC+t?G9$lVZ7ACC6LO`iZ|2Lb5Ci!Mg%ZnmEH
zIo}e}zva&7xuao0rgZ}h0^1=36^vW8)GRB@iWX$KA_~TJY3#I;(`J@Wg3-Z$qT-sN
zvx!mPlFkn`ZVgMF#`$O@R<_lkT$-^hIl*4v#|+kF*7NN@k=@w|zz%eIpZIIXJ!-@`
zhHkANE$%}Xqbi~k9z`HgW1^#iDHUcM2mknl*jH+0dP3LB75z}u+W|J5qv%0v?FDne
z-SCEHTNJK{dydQs!YSK}A?`OI$VF4|9jzLy;8v}FuB3b8|2ZBvtxowzdKAmZCyMUc
zNqh+HKN^&sQT&-3MJyjBka=&Qisukj7``Rppupb8mU5!Ud!-Cj*1pY)q$LWgSV13S
zIlWNRqLx;)kEi&w2>Jqnh6!NVu5V&T<WKvynp16K4)e&iQRr_TGU(6$w-am2@VXEy
z7IXZnA>a1zKx*)vR;SQ6C9_N8s(b0*+9tNo37mj{YNgt;yvqFoH5MEdMyFt8%6UA1
z8h<{!9mGMc%Ft^8D2uT+&Pey`6mR@)4rkBkmV#^)isW-bCok-GkhF?WkGAS5#c8=d
zL5oB?=k6J+ST+o)ly;3I1c5wP5iO)(Q@fy?#n_ZM+Lx+%<m*g#<d>S}HBYlFk|4~U
zFDB)$5EN3)U~B=+aYRNGvcNqgxz+ke(@xqwNZLG+3(O|Lv=~uYDJOj3GCM&@vY`Qq
zM(=dsu!v9hg;lenoLu5I_@0Rc@rPvP2IZbJE0%oN!gr~xDsP~eGAu7wL-i~G?j)o=
z=bdR$c!|Xr>Ty48AhhWc9m4|q?kk_x-Q0(IS^9dm-jTL7s#jZFgyt*No`U9fQTn2C
zhXiEuLSQAhficGGTkaFs<j+BH0sv3q9_hBxo6Td<_F0#(pNUpZzq2n6%)UrjjyK*T
z5uck=I;I~BD&vuI_|<MyY<nCCU5$H#Bl4bE#t>&=C|IrPc07^{yb+RvuATWt;B&zQ
z41_6EIkvRFHCmP4zItR@n|Up+{E&~N&r~zf@Xs_Vtu@v%sk&&6uOsIwm44h<#%_y}
z{tKZKtZpG%tb=LvUYGAPW7-dM=<Y0#aeF!$$;N2OC5~w~l4&9iHr*9vu$EinIz+Cd
z9c;j!Sfh3|Q(K{u7(CY%N2$#vorw;m^Qev%=;`|!Qa0FOi#-;|o=TP-(S|;qny>jI
z32C8#*w>tTBM#=_vB4>bmEYWj*XV-ULYrlmVX5ee^k;>h1Yx@QBD`QYSYBBI87H@&
zhBrkOw1Wjn38<C7MqAi*D_<irj-k|=*s30t<0JB@IQDeqx_6_O&Aq!2C0sDBcGS)4
z)X_`lFZr)dai5B%p+B?Kkh7xGkxv=tq&T~@$6#^Ydt4lD>T-(@vc8SdYKu+&U0eY>
zqSK*I;PS9yC~MYd&hn63Y5Q%lK1FBX_XAAK9lYY%<5XNL>LsDt!UQ6s>bW;p`Iue)
zdueSCv<(fJsB{=2VP}Eme90P^FI73$NH63Y1`#Y(G7LXFAp7PShX&uZl!)O-o_1;V
z9U-Hy6aiEssv)!-#v=Ub{ZHtmH9LH#x%qu}@6_Vo;KQqgZ+P-7d;(E@gBX+87Cwi$
zgwMuJZW)?+UpXe^teu4?WNyl}=8@r?@!qPKTowOo;O+E=5a()J!fj$nObV^V&2)|v
zsh*j;sdp{$vE|uRZnxFuG^6tV1WQ+*FBBX9eBi|vQBZTL$1DblG&+}dhBGNPv7{B3
zDFki9742!v=vj4Rdyl+G59~j7u8LQyaF=0ouUBPb|GOAmoOo{(LS_05V8tJdMdFbJ
z-M*LP6}#a{$=Niu@Q_Yf{HA#bEuIhT4N5Cm6^?G6Z0e^7a!rW$aGQz~t3eL+w12Dg
zpCGYcoiW2gN|$AkYl%-8M1ABk%-o5unj<-AeNr1jGBF8kB3*#fhs#Uwb4y`pjoXQj
zNNw!xSw>5bX|=j3x6U^UW^V_bWehN4`*bbO8PUv;0k!L`D^J6c6|;3^a}7(#8LEzl
z#4E8mX5byPRUnU3jWZG6^iO-;6!A!{AZ}_rcVm#NfA~$Qw|4(4h0pZAQ22~2EdOJ~
zWFlZ=X8)hl{|n)>GqbV$Up*$l{|AKc4yv+r_r_14v{+IMe6cOiiCx@9GK#@~f!&Bm
zOj6QS3?j${LIOgPj1rFqf*2o92S_RC$IRDf_x*SF{bzP&eRt-f|Hk*<=aP35oix+0
zp)i4X0iY^QG#^Mnn9m|0y0(r40s;_FC?t>%0ZCp42?HDU8<b?9DafnHKqB<Hhe4IA
zz<?E15xAgHNQVU2eg+EeF9Jy5U=bh8f&hU42vqV*NW@zLSZQFFPAs4fVGkeSUns$$
z8jpt|pWXzG)iw8@Cle2X9)N_Dl<<BFH~$#!C0MW@!k-S~2FPXX76Nbxa8v>UCUW#!
z90E@hon=#4OJjX(OdR4m7D>pHYw8IKz}vta-5(JJ^yN8}3&=MGW*)dp_%D@AWDt_U
zA)w$FBRWCO9KW6%#UFH^0Rkmpu+yCoryv*L`WE0HEv|nrILbp<^-~xDz`GX*Ks>^^
z-_Xy?FDgXn`wdK}K>RJ90SH*AJs8KpzJh;mXDq@dIxPSIF^(VNfISM*75ppM(7pjU
z&4Jscfq!QrAwYD^y`2w5IQcYi43f~mexD`EFDjVVv?YW%YH=4gN`P3x_oO`PDP)Mj
z94_&9TZb(~G5p|PUJ5eI!TEC)j5s~Kp)$yI0J@6w3q3e=!Z);2Xd$4H0HuQiBLcuD
z0KiK~JH+2+Kgbc_kIgsiKP!mmHvvz8?0ORcU_&{DYw!qusB2izeBPe?fZspc_c>HZ
z2oU>V!Fd4ia%LF8$GUS3jLT=Un43QGX><eF;YoN9fM3s_yChgO!&nIroG1FvJ2dDl
zDoQJj^ZP&A55JhnNeO-bzWi_$0R<@>2!H^ALjXufMuC05QAU8F-_r-XUM&c65`jzk
z&UL3xa+AA0to;vef^Pr6=#sEuDs-s*kF@za;1Pd>YwYts?b|-xUpuNl)RRBT=f7Er
z9cZ{eo3jt$cm8VwHw>Jov;fswbS!SrPKj$8g5NAlxF6=uP6hGwv@bvHmU)9~77D`b
zhDbD!9aNy*pP(UyO9uV&B0v~ehmWF6{`QMHkDwt01z-}W*Q?M0Pr!gblOZ_FVOX!I
z{QAXjn?NJ8bN)9~VS)JAzED{a861GuXOMpq^*y7t!vMbo*D72>K7LV{1T?_{g$;B7
z)-eG9<i-CjCyoZzM<Tic2yZLcGfbYO-N3`3{DFG?ViN>{@(dtQ;9Lg(vTHokf0ym_
z-T#flAD&!9;I8fo4U+xMeZI{AgnSASk~A$zgv+#FMcubHX_1oQ56};RL`mZ=NT&8E
z8kyI^%m3&)Lo~6H;ZbaHtL<TVS~Do)G4kQ|54X9o9eVxA+Kvl_n(|?Z*SLv(2-F+w
zf1k%NC$At*obymUaCnAT@^8e44DMp>Wpb~0e?BINq@900wG>vtEqA6Yv-RUDI0{Xq
z4g|-lPhPE$Mzt6pX$Zk<?Uu>pzc$Z4Gc7RT_6$aakY-c0jWA~aQ>#X91Uoz1JAHlO
zL*u1czO6;9i_JI8f9V=aWlvt56G+SUx+8@Olh(WzDdFLb$SGLo4YWGQ>=_<>n;7g>
zpZF=%i<$MLB4mHY@3nfY6pxghI&q=JVcM!WP0xl-+Od?2a78TlnJ$>tJPLPWO7GAo
zhMKz@Ei(f}SazHKS<VqjP0i7|-1o7LB=*K2v+QDXy_)9Z<HjU0N}>Z#yZ-x@(cA`@
zy<|K#{(Vql!xb1Bm;9ISA{#g3GGTQd>p$OS)>AJPwN(**6m!~U6Qr8}E)mO%))^5`
z67_n0lUs9~re#EaS26v*JiOqti65Wi+8yB$kt8Vg;qeYu$Hih?jZ$Jdx{f>}LJ1{P
z&X;~(ePn!zs4c~>1eIG%Qs%HlZRYXYAoabY+%a$3;XGlmKh)6xtfM-VBQn{Uf*q=R
zwq}!r!vh~I8gAY4#9gg(E&bAdS8zu*klC6<$DT|}E(AwXivF15mkzeEkj&eicZc%F
zd$9HCaOB$?qU4i|%EMLTL}Wg4yTP66TGb13I=%Lfd*^2R;;J_@2A%vJoCPijYw_p$
zVB~(XRHQ*I<%6%&T=|NxUT({QIl*j=yR7ucNh$uNVtQu<0e&k+tj8zr4i!FG6>u44
zn>nsnM7`1_sH6D%L9%E%P-UW5QYk553`<zF6j6wSPEMAj${zG4?m1*@6{lf_QRM|4
z3lE%pXZney#$|f&?emAAY%NlFg|yELJKXn^#=3z17p*Axx_Zm2y~p<7ufHU#N?QoQ
z<m0W;g`x<vYJth&a+eS^a0_q_bpk4PLMrwO?TN&UvmesD>>ec8W&rK&EE|2Ozq&+Y
zQxddO&lZi?hNVRqX_qE#M3Vd1UdN&u(?Q#c-{KzpV!<G@BOtGt>YUTNmJ%=4I6fq~
zGG`NDGRmCG140P17q=|o(0h)U-N~ix-EJ*BPY5-G@H<-J`dg(<P;}+0HPtq;8s*-Q
z)KClcGdLO2db90tPrCPm&(A75aV5U%xujD@^{ksd^H&dw$E`~K$8O4^%r1jZ<`sVZ
z<4u+!fyQ%`C+4@7=U759y)P=V;Q|Pk=#oxFb(N=PY3@zY#^5?UQ_8B~Cc}TKsUyz2
z)$SaWklN4YEhdW&7f0c|W6;4bH7RQD+a~o~_7bx_9QMtgTbtrUKIP~<tMW^sK>@xB
zbMp8#dH!VSg<COM{JVV+ef32y=K7JU^0~*1nNmuJWvuyUr=x)E$j}d8d7~Iihz&+O
z7S{Pnx5qU+N_;U!KB67$)@lptb=2Jl-y{x8-T6nK&=$=w<vsxiZfRy3q7*IH0e|j;
z-KK&Lg1ckN0KQl-SM((%-H@YCn~)L}_}&Y9NV`XP_LEZ>f%1M-*hrNTq8=2+E#QS`
z^CbG0M7bJ70I_I8Nn?#DK09|{O;iOVN1MQ;Z$yW7FpCAz$b>!S%p&44*}ri{Z7S6?
z`LV{TkY7#BsmTjr?WF+px-Ziw1tPg^D)ID?6Rob_v!ppx8-nV@3Ks~m2=Hw~7_0V8
z#Wc5_=M&r8-*S~~Hqhc^pFrqoY=RXdblcjFgPyrV;xqzJ`<YK-?19;fk*S1?n2E1(
z^@3J>4n4;aA5O03g2do5^4eaJ7W<H}K14Y!z1EW%Q|6CFWEe8;LG8-TEZi#nLU;>y
zQ~G$xZHd0;#u3I?GDRfrX(aX3qD<;%v1yZxY6Mj?($$#O27WAl+Oh^jG7K~rsOLDW
zJ8XsNyy^WoliAROBfS*ieqy}v|GIcWC+3uYQH?!M3OK&#vdf<$XM%VD<fg(%dx$>g
zSLjtu@zupYhqwk#HrU3np_GA&-Mhlz&Vk%5OQB2LALV~2?&!LdfQn|^UX&z90k*8b
zx~xO-%7*O{)8({zM&!44$5Ga_O{|??Ydq)br8*Lf%8|~oS(O>^n4&9z@znq-YGJza
zw;3;hi|n&1KXAbLVNpR{XXgRVy&K@S#B@jN-M<wY5(dD=HmA@o@^0=tz&DYXZ>OzM
zxE<A9{4R`<tSyLqr~`?om!bE+GZ8R2w<b{7pDxHMzUGUts-#DAg>W4w7S_g^9^wm%
zMiohJX!KNNVq;AozSM5y$HZklx-<45@Q)w-(t|XN7QMpsQP0ly6X(}2dZW4;(N(I+
zL6ou(br>D+&tg|&{==MOrobX8a8OULXwL5~+y`lf@LsYzFEZG*dUsXx5_S~es^`|7
ztMabMbXYb|J~&t{shNf(A%~SayEh%+{X&r0g&H8??cs&xdUq)MrVQRoQfj%n0iJ@%
z2v{GA-fS*?e#0b1KdN~xEMww>-{?*2O3q(x{19sS3=8(e=6E_?D<EfL(^(ZP)}L3m
zw9VEK;7MpV2)Br*=b9`)P$_m~JaN-T@$2=bnl_EtUR)T(imIXL5G!wnjpeS|_A~6-
zsNZyhcJjIoZxw<==<<Whp48ktb%*(a^6tw%OEvo-b8M^b{Zq|Vbyj=30#VMS1zL3D
zN-@N!kD^YAOMXknsS3+K+oWNbXQZkuXzex^?qfR<XR3g#aFP)8m&0udr-*~hdqc|<
z%sq@ElqJDq<F>}ewX4lC3G^Tf8$~d@zBS%_DZt}RPQ@jJP1-Vms*^IgHt)=J8|&Ef
zn>2PG%BV+4xcQ2^7N&drZXS?^f)?Fose)i8#3#O(>$IC3O1^9RK8=t{8WBjggM8OB
zx3e%EdQc_?+rBiYYUiAsrKnp0F0}r2R{01WU1`lziO>izc#qxzROa|Tq%><&gV$Cz
z*_pe@vK%*02p|OT*m7H+rQ$YO>y!9H-TDX5jUPRd3LXA;#oqF`Mt^Gs%Z%T*DOSXv
zy*tR}tj}fG&_v#0Hlmt6c3Mq)3HIC(b`6aTt&9s#4C~q83!i<s$La9J)53a`&pXR3
zCneP0a4F$7orjIt`RV0$BrOaM5F4{)H**VJlfFvUP2S{U_Xab9GuC=`^Igaq;F6Gt
zl<Y?s2Ga~8)iKJ$@Spv3j_Q~z)ki5i9zrb6(mPjGd!rw5;j3s$3<m>z?o`ja&o(-L
z2|iB^+t_z>9FUdizaQ6l(QBE~L}Ea9i7aSg7|4$?6Mj!{FZ8TdxJ7CVs@#?Lz{@_|
zmn)uC(R``3#b5N?Rq$VM1jY+&Qxs;lpOT=Cst+~)BmAlPr`y{{tDR}*E*LffX~&UU
zt4$RGoqb3(G<PWf28AIx&HbuKInvRkmSsmhEYt;UH(MRCWw&~Ho`W<cu4gp7J8>TK
zNtx8jQh8fl%$buQ`slUw6_(XnS>H%~l?ZH+e4QjeL!@i1Z-FjDOb_H}&vc8B9hDJc
z#~qV3YR$_40m;*o4H5r^nHKZIyF^-wZ!j-gA26BvsWq92(Edr95*Hk@w;@cak*~HN
zqvLN?5{{8FDNrsl+eW#V{1cryI>tPmEGU#UcxfUd157L2KM2#Tc&lUulZ(LJ1fRSd
zl2DMeP4G_X?6SFYWPhhe(kR%_YRgG{T(&cix+oHFe$hy{V_L>kwecVv3ryKEsP;*s
z&Y7rz4JvRlitLwn#p;S;R9H50={1{_^Wv6AVP;c(dQFj{szl$y@6PDSAmZTl@G|(m
zBQ}V!I$l`Zz&q~*T&8^&Q56eP8sqge5~sdd%gp~mL)9Xe>vv@Hm(g6)aO?Fwb2Lk^
zrwkjL_aSpIqFp2u07^^DzFX2m)AeD|EbPNU4XdP`mV-m(R`nT!yd}H6<t==JDg-ik
z#RtN>AeLCe6WP?%u;FVQf9g77%S%W5Hs<j(cTBs!+gT>u2S*j#e=#xR*C?M}VQ!nv
zo8W!t>O}R?Npni0J{JX(E!O_uufI#Jve*_EwrWLj8xa`Qop0@`yx16V+*9EthPZ63
z)Bd`|^bc)e90N;UAU=g-M0M0GtA8<X+6Pi`xIm-VW#Yw=K)}_Zxb6JG0{n{O$d>kH
zu4V)3mj%MZ#XiY;Kp3X&3r>n{%9&YYGH9k2xNf=r=BQ2e7O4j(CiJJ|D&z6ky~kvz
zPS*yj98tUw?ePuj8^u)BE$HNV7Vn^yn_yhy@CSd}x&Ao8EHCAFEBpon!<Bj{JeM%-
z->f|!U|?J!t9s`+lB!Rt_N;YepyXCY;(04>-e*<GJS>{q*k|xG6OD-?q{Dm$ZA}+L
zp_BagHplihhxM)P+WY~&Kz1fHoh5~S#eS9<1s)u(54w-z<N6WXcKxYE<$;zOOYe{p
zW={PWqV3UwvT4#XIPT?9;=3z<X>z#|7vdI6=pCdVTBjBHyVJ+SxSY!=VsJZtt;P_^
zZp<RP^%>vS<czrAOFz*%2)aXfs!3*~6E_N(5(T=0+5QYRmJ63{#fGfD79G#f_JL+a
z!`b(_{(y+)<f`d-CN<2l5bb9x4tEW;`lGt6$LMVp?X7mv7(dsQ74sN2-%<O%JE8d0
zJLj`-?O<wAAw_W7qF8evW01F1qz6=3l03UYQb!h}RTGE2*vP|%(&-DJe4J~j7DCOH
zYA+Wmv56VVF=8ZWPH)wKPiM6wf6+=1dSB*S@V<EM&W&}Y&~7JXZfaEa;V5=zXAMcr
z%YiZcXLm=YC78S_T3`6(0n3F(!KIH3O!s%vg`!POQHvRvN5glZeB~6h%s>3K3O{CE
zW&^(xUL?c;{S7w54ZxIqMF6$O;yi=_oQ(8F7cArK9f*=$g(nS5NV1WEn>@d*q=vjg
zZGB}d;>BcJ_h07;rKAzS<jwYPsiwWY4f5)}@l{8jtN<PVW6ChkjV~D4l?`ELG0-?+
zq3QP{G_4>|IhPLg0^J{<$pjGcCUQ`$O=d8<7x)*f>a2$ru$$JxK-F+Kne!hsvh47+
z2orMV#X~w_`<pwXzLXV#rMLF2+SF6dYv7o0ND3iHey|;S=u)j!WCtfI5PZU(Tgh-f
z$ii()j%U5iOCGrY9>m_}R&sO@RNvz<^lQD$o#<?4352Cje7G+VO-@~+Ofs$xCfk(5
zi==7IkwRcnn~hN(H)J9U0fgA~3eVkYbJ91f`QW7!u-n2v9FC|&s}Edc>doruwD5@4
zkq6q44)YyrjtXcsxjWM&Cz@&jW_O%dwG(|kg1!FUoyq+CHOWEjxU2gKQlx=mO8dDV
z7Vnc5TzkJB%z1KEPfO70zf60kN63$!qv`Hm3xcNXsNk<qx$Z)GkmMB2(AiNdK_}~w
z_i>;67TL04z?tgd<<w%QY{I-nZRoB;KZx!&Xne{Iyw02`Yx(I>FtX62ck!T*inu6P
zwDG9w&gu%Od^J^nJ`+WWN_SCEGk?50yWyLDP3p;0=1KVFM6Z>GmOM6+^TU*`am9^}
zk2q@mH-|@OF$%*jp0H4>m=itX+Qy+QA)I^qXdc^lMbbiRXn@9hW6_9uZ%@~w*PpQt
zdzkxPB>c!S7$<XdC~h@{UH}^sT*hV^WQudEuX0!m@wW@Ecy016Gch06m;%};;qZ3W
zU_F5{P7`ti$W|${c_K9m8YVlZDsfM6BJ_8=6qi+d<phf`(yWwHz|s%F^6H&lEx^~Y
zEx~>1yt^FFORy5Muw?Pvhf%#(h$%^(S#>`xcLEl)F$eLBS10NOxCqpcMnKcJTFn{b
z@r60?k*zA~q^X??mP`{NqGeyi34D%giKuQ@NAjp&NRNfLr|GvNp{KSULTN19hxD!+
zlIPEq=3OQ-Q+wa@*~u${oSk!oeF)G?qLayII){eeS^we8*d*LakdM@nDZ1siNeLvM
zV31$zSvg^x?LLZdBp!(EsZVyR<0G9%;$rq-8qq!wLC`SE`EI`odd}n6nKqbIykPJo
zD5wkUV%<2f=ErOCRh!Ov9A#JHJdxNIyR90~A83eetTHI}@u)s`C&_<=n){@qAFi;*
zrbTJ_9BcDG-8@6)^Iz{JZO{HUlFjk4C@4hDD7KZqMceSOvdb8rO8pG13R@A=QXI!j
zUNU86B8CLXA68DQYNWbo5jP&14x;&dy(e*5oYX~YUd(NEQHFW~@lQS@MYB66v<jfJ
zjL#ECG3^5D!z;d`X$Rq`k9NX3O)s5;1RC;)ziqYjMW#!RbC`gp^nobGW<4`wMHdoe
zQ~0%^b*PD?I)T@vu~%c?5=$i?zrd?6$Xtwc9v_fsDlRTP%;JrZY@MU{mG11p5G_mp
z>-sN$#D(M#Tgmr!i(-8;UTLXNQzJI3g}>`e-ZgJP!tZ*47}GT{+#b=G-;U%;_}(1v
z(cY%Fk_SJTROA0R_wi7I4^@{CcgntqqQ$BX{c_%l5&f@~eZ3i7q-ZR3-KH-(kDLGf
zKW~te($!JIgF)IC<2lF&LGn>)z-EpT<|dqG1mP<GU#E>cuY}5FLgK|<w?-+cuQI9d
zm()pSz5ETbo7R6~grLzo&RlF?GhForPC6bb+tRn0XTslY#lc639uLAZF7yrI*L&3#
zm5+mPe=<xj??^qRySr?&HvZLgjXR-INb6VO0(Zu1tT<Ur-6M2r$U#O%aC5soN(*}N
zA!AQ^>S){>Xk_u%<w!HQ?<>1!Vr$cV*51615g$19VOqU%1=mW;rb}d|?g;0}0|&L|
z1_vs}DXh!JT`13XTyQ1+J>!-V1*Df+qFepdxrf|xLtCVQ7c$a^u6LuwZhJ<M?3^-}
zcBjN3tDK`SOxcXX{;<Hx)9un>JZ>z?oAsw>KBZ^*#I9Jzv^$<~t&~2ATFo(v+LvEz
zM%_+=&!04*wo)1XVg4flw4!SQML4sgM_Fs$_F4_R4`2QqiTMTqzuFxumn%NGHHKX*
zFVlI-wzb{=tU+1d+2?Ks!rwEut!Aytb4#`lawd?UearIJ6)SnY2n8%uSC;wrK3xs6
z&fJsrY3J+W8y++s9XFHjm#TVjUtv)0u|oq9c{0+vrD&#?y_;cIcA>3>ygXCe&XW36
zNEEJu9eVtzvU9<1@M1+V@@t+PnnJD~?7_UzpL1xY`s($2NEXjT6DmQa;W-a))2oG2
zHE<o65$0D~Qhg@AdT!xN-UII53RW;>vu-!MfFz6zpNO8!`wDa*^!&#tg$u7;b>i9x
z$i2QDj#724q7?N&tjHPpiAy~Z#Rny*Fdg6*>|Z)0yaVQ3)J(fH`~Z=k_iQOSg-i3@
zFBa*)D{T+QUEZI*d)grcGvc-J%~H~}QzP=s%tb5_+}e&?NXr(fZH-uRv%7fKkQ5Pw
zU@d4X{}w}>Q0ewYjA;`#{1t^@J-x5!WwfpUkCY_&!?IA0Wi-e!_?zt7>47w=vK{g~
z)o?tyXRkgAz0^E(Kvd9kkLO)CQe14@lVJY!GA+@VY(Ck|W>OP8;F<(d=P|Q8oE&u5
zsCX8x*xZS!y17R8zrUX{T!*~0M!38Vr^!I|;)gBiRE_X_BzOpVn#%a(3|x9Mo9rf~
z709`Y2V7?rJi%``n}>`W2LlvEaS@Hf&aF$A*pbpVA0yvxWVRZqTu^<uUY^Q;*eJbw
zL*AC6-D(AZs;?`X)b{p!^QfYI`yx_!kJ&%m64iBRQa9o63^s-9(EDD|41baK7yt9L
zr!2D(5-CEI#GLJ7p#Cazcb?z_tz7oJY-HLU<zi1a%GwG`*{9#O|K@V2ndTQQGl^gG
z{H(=kd5Nb@xY^fU;npShpX$D#$FnZ`qb$_Am`&x{@)H$&G}u!=X8uUWhhSee<3)4J
z<Qt&a00!rOj64y2`Min-C<%l-VP9!^NlNs{+z`dO2MCiDu;S=g;v}m4@~Re`Cq^)-
zCH}TQ@A1=_4~tT*ZEK6$)l60#2Aabpe%J#0Y~?>&%sL`h`EU8(mhiZ(Ml<Q?jx>z2
z8(mcL=}KZmHTfaL!;SMDZ|<{dfm$bHYwqhn#cghphaGv)+l7!!iiK!KXVQKPCVnF~
z@tMMkr%f^Wf{+enDC3NT)tW}Gu9mX1I60W2>V3a!8`1d9v#HKlJ-OVHjBr=hGch;Q
zOHO!X#iFg%>QDFoFm_JCnMG@WjcwZ<+qR94I{0IBY}>YNI~}8A+qP~0nVzY-H8WMW
zYUaG{m$P5a%RXy=YpsP%9Lz>xQ4*Q(V`miqNFy;%2=e7CPm%TjP%<ntlV-{TyG;Lm
z+DTM#DVBS~jMIc`ihVSC12@L&UaB=WY4=5wU3pA;F#FZ~n_1suNP--Q>n{fM9(U^Q
zJ!|<VqtF%1+@Ac*H(Vz)ITk*~8Mz*&UW(O4HIl;Rj9~A^HvfETkD*9_i5Oz!BjcbR
zY2?hw6JNTL)Bqbjt;??2?cYlXdZ8$ts$2xuI>zP12KWE2VVFW_Jxg$30}9q7A}TK<
zs>6;U@c0673iuGRc!S60V+XwLY}G0&O-<pChLmhsmsg@yGY!qYCd#q~XNnv<u-^eA
z-^l&OQWXCcp0fWpc*@4b^}iM7oXkAT|5^QC@RXU2>;D^`y8MHuejl8w{SXOQD7b|E
zr${oEXN)7927^!=r`H%LXR5OCil{V}D8)a-Q9xl!iZ{NaPdtFVCq6SCJ55e4Hzz%H
zd_pTvgnUi4pm|^zmhfKw;s&n}B4Db*KWxC+VDtU`nWcq=Vg63r!i;ba05d@^hnX?(
zV#TGunEcV;poR@>#tjg#%3{PpI5u+v0{ewUSZG8XXh1>p<Nf^)d;O)8F_dvHLBqiQ
zhzKK6fQ3TU(~;_RtJr%%BeYER5(Vg@*yiUK7jxg-*yjhrBS41vqYB$F4}%^D*1&-B
zfg{GFa3dUi#bM~OBH=_=VF>k>l~KW5211dlJUec72`h0AgO($U4JZ>aQ{S%q{TpV0
zy_z>B4C0z!08a2VV(Z^L;2x;LOtQR-5cU_v!aA4_3{DKRVJHCV{FgAHCeA*x)&;UZ
z_NyD0ut@xF@4{CMFa;*|mGFOJQ^s0@U@ihf<mMp00e@cPW?>vA1SXVde;`<3&YZM0
z|0+0w8`OpoXfGc$I5G7pXx}R6cWhW_{%$P}I}D;5kb~^Ij(wG(iX>lF8XFr2EC}lJ
zTnRTeP^8}K<@npFNfD-)s{iGt4=L7v{R<E5{CeCj*uS%VU@_%ew4U;>pY<~{g7Qyc
zRe5=FG#DrF{w@-v&)#`_&(3~dK1jce2K3jD4l=y}*HuyjpgkYXGxTm0l-FN>oMgVq
zofkhopa&QX99V%p43q_YQy4kO_gE~)z$GxdAuTS@3zPw(eiI!6?(_ZgV+>A?i5hM1
z@{9QO=HrNKMU{Pyt^LJ(-|qthGeKV%AZQ3ml2=?#t*oppib2iD2>bYLj;F``X@?K?
z9ic9@N*a*p*D+Lk1|anM`~k88aIgpe&bS~&oA`wje<4KCih+XZZ_o?z-CF_VJNzEL
z1!w~S6yG<YL~VS0->yzy&)>wh_3)c(A50)}zuXWsK-Q(J5m3GnIRd^=Yd8_$+}z&m
z>Ug1|F$2N+iR8=#MNs4YM~V3ezCf-agU<U|P{M?g-;BB5e{h&{gOx^!5BPQK)T@Aj
zeIE^+!|w<C_~kcreO?6`9zD!-(89o=y~~-478(gN!$Cen!5ExT1b5p3M5;*&nCo`r
zq3(lFq!BnF!gJ<`EyBb>ef6sHVd9A+mf9Iy6|_Q)ef<3n!`h0JwQ{~nL0evXr+Xz3
zgFO03{MTqG#CazhIIE9}e+Bd<-CTI}&j8j7(Wg8M#aRdzW_$>nYt1WTJ81+1H8zRl
z7jissSvZeI{x<orUYf2Y5O&2^J|hGb%{NuIO{8(zckCD<cfw1|Z^VU{NiZed@Xr}j
zc$oy)^}Q{coRjHxskzrU{<&>L>^5V3BRmE3c5sg3NdbM(B5l3mv#rKu+rXaWW1G;q
z!=R3Gb`x_cN|4*sa{p{Fk|WrvcxjaI9`1a5172?DvhQ_!Pu0>kM8e4O(h?&cZ}t@n
z@}5(z;l)@GAW6)Tm!#1|&^t>oq7uNn@8;HO!;h7=;^Q#uJwJ``DIpQD3mOcknb%un
z;jZiky>DDUFHT>e@Ik7<v{*|Vi6l-RyRmb&;lcEdgRc+ne?f^i!yo88V@q5{-|#0~
zsF9JAO%<g9xfc(YHuuVRDh-fh5>Jc~=~HO&%U?0_Fnva(3NBU$s*dC1t20^2o_l&|
zCYcLq^Rj~q-oV{?YrI>w8qC6DZ%bPr3wTcV0yM>NJt`fFQ=_Z0CUV5W%{M)<<&k%?
zOldkUtc71c2+*g0^Y_H|QU@-Pj5eypQ~JJ?G<ObQ_$iICw~@-gwfDJk;HIMKPEj
zWbz*qHbw5^`w8ciLbpQO6^}pP`(+rg)SXN#p?1p_wSP1~&h$ntzkeCQ0d~La1dH_8
zxcYOi3%o0PZrb#k_D;ek$Kp8^@-}s-Bgwt&4nTVnxuWzwsRug^A9=&`tA_bzd(;97
z+ZYn%5|}?ohfi2+uafqQ`t<`?@@G`FdVZA+c)6-j#$FM3_Z<bWK#(FuhzdBeqHTP(
zVTy(w+-#Q%>}cXuzwsLk{B-N;Q^vmg<BtD0ZLv!PWG-|k%jSR=BNFoJkk9e2y3g4!
z3He|wq(*Kq=ReO6prc7tIQPR1$O<^g984%4|8s`cM4KxhXMnojZ_SWJK=neXN(^oQ
zn_$|0cNb)3r+hS-xxN)O@lpOEeBnR1ih&<R+p+9=AFXVfSB-=$tWnjMikhVE0~5HJ
zo|ZI@!yiwD@;*RXQ7^SB+p$(K{cuYg0Nb(s{<`=>jeWh0dtAot70ag}d@;@B*FE`N
z0!)J#ippqgp%&erZ4->G+aY@2`pNc<G(N&sBkqGZn%*{uWhkB~FZk7_B_H@y4YqUW
z9A4!3hx#(O@aUZhwC3HPkL&{}_1KgRjlS$Mtl5%8kFmL<>Q{nUZWdbwxwgu!%t>F6
z7%BKI8RcG@vh->n=4Kx*W4Fk%Tf_1JvUyYB2av)@<r}f*g~`(9L;2<vUyBeu!i`1o
zWm}9%8FapH%||Nx_+PdL06S`HqknC7EuBZ4g2>RtCOoWOFo6=Uy;eJsv`W5S;*MqO
z>W)pX7%~dL0l7y^^vSPV<X{udxFS~+ydBZw<ExD=4UKd}XHfmz+>Z*o*igSSwL*XX
z$on;d<3x^?#y`wgs-h}IFV|h%j&rxQR#?w{lJ`hrh0O7$3uL<y$276}4LvyLp>Jh4
z%TYajH-g>fp?c7htO@+v>>8159(7&Q(2%n7H!ZvE4H>Q7LWbiZ1SnIOX^YsD-X3Qn
z)mX_iqe=c73E}Uaxa}yzxc87V9qQJ<2TknT1VW6W7Uw6A!ZLtgWH-n1X6pIW$pTCf
z-fB+Qv##gncZOm$khyrZi}kcVJ|MH_h4@_M0w`soQH&46A~X~)d*Wi7coiP@1vAtU
z`9lrOqq6l?Po4t<gewoKToR@vkhmxEk7EQJCkLY;FWLczr7~q(aXIH-aGL54w@<2`
zE*C+Zg8CY6Rm|bye{`tg|I~8Dl#DQr10Rj^xbk*=G036MA{ig$R<!JnS{$CEO_~he
zJCe*l2jjcW#iLoqW6^Fqq@EX=2tMJvj!bidOX?`>SKt^hG4gf3eMcj88lg*FoL?O7
z5tI9-4&(=XmS>MGBkvb90#cGm-{n5~J#DJ$E_<S%lWl&Sna!LEiYEt#q}?`BD>MR-
zpMAE~e1VRcX+_Hc?QWcprp}v_)L*F^N>&Dlp#B9S57|Er+rvqOH{I<W8>!S;hAz^n
zO}s$>I@;3Km(y>uq}^^DtOtL7+P*S7nGo<q-LooZ&WE_z2{k35m+=gU!wOrS#T*+D
zxZvG$F(Lj`-U7sy*f@SV<8?K*H{v9e`e97|RB!)SH%%iiXlYqF_d0|Rma!PU5|r+f
zO`w*VP+&=&$Xih2j7=`1i<^ejCzy#|O8;_~>|5qzW7f>*ER!cc;i>XN-NZH_g7r<3
zdr~j-Y8S)SW2GAMK^wW(mALH2xv-j<M*B$hPtxW5=4pU;VHbm~kc$i6)0wKb<rKXx
z9=e-WuC2m1>x9U?m(#Q9N5a~Y9P3u78LURVf;N<*h-itAmIQIbXR}CX$ngCdNSARx
zC}LtUi8t&IU=InIM&ab2+5c#5ttzs_xCVh+oz_nsNzy!ZM&lf<6FD44R}Z$GR;V!7
z?w$vnS@o{ut(K(NQb}Ypg;Sc%TB3(!f&4j!zGbYqG?^SroM9!VI2dSLB0J@dd$iqh
zO>Vw?bk6d9w$A-rJDnR(z@KEJ`JATZHl|WUWtVes%Lob9>5WpjwYhE_O*=JD*^@}I
zRLv>9PCKA8U8=GJe6aHyw6m>DimDCrn9)zZOkvvEZ%&V7v3L%B6iw682a|G~3#_pA
zWao!n>miYz^z*TJ)v}A8vqxv9c|>MA<yIDSKPJTCsf?Y|R6+lQEy6n4DEasmOWd~H
z+U)@Q&#aSD(UD`!*saU=XUcNEK9ztjTKt)|303D%@+UM-h4_IRQ6yP-+YR;l`7Rkd
zS;4_S(-ni$U3r7dhl*$?$?8WXQgxz=oGG7A5!9597XqqM>}~E`Nm(|J;v`5GW6N2|
zIsZWiKA*cp>WK@+#o`{6=`6ZXi2El<GJk;pN#pN3pPZkhO}wJ#BNn}iFM12kkBp6j
z9Nt#ErTM(}X!}VV7jko^qS8jB>KKK9$?U=eKa$y~3pmututREBe5-w2Hgi;54d+_k
zFxRlGZchg}!n99*&hfV;F1uU{()|ccW4yjR1Jv2n8zb2wcwL#4;}LT}GX<6P;n>;a
z=3y@MyobvH+x<yt^-0;8cj9O*ZMWPgSz5cZE6Pv(-v%R^Rp^5<9$8{p%k*;J`-F>!
zg^kzo8KiDbKY`(XS%ExoT=^>u{(lCW!|JB=ILglMxQ`#22w#!Cw~@G^k>;EA??(jc
z3D#9_rJ2BR($cu^?EfWjrQKec=_Q0~49_5vmU`Q8vlfBjzZDSu^Xw_~IPOo)T_rq%
z;V1&$_^&kHPN<AJ4tLDsw$-efG>&Cv%^{-Go%7E(c2sj$I~UsMDug>FX<HH7C69jo
zyFX?`w?kMvvOo_rlV(M#&A^>ip2}xUOf^~yV2h`7$$?eTW{hr^V@!N>XdDVn84=|*
zx3tl`>R$Z}@fjL|A86|D1kxGnBy5YxOh>uJH%Q1tu*x;W)Nr3iK{_?!dXDbxji&j|
zqNOxVD@?bU<`z5BeMkiX?`K>fVbB6)5yk3~ihm|cuTtsn%Yq^wNNM7g{(eh78G29}
z**RFA{O!1H0_1$MU@HIm$;UA7SkoX3){gp|p4)p+Ii&bBYv|d|K-)m6$wbYRn@k3p
z_kNzFRIoX;TeZjh=ec;YpB!EsW^ciaKdD3Tvpq5pq#4bEU#w^Sw7NucBf{}?p!?+c
zBab|e;6mf-$v)X0PZ#yrDIqma&bzWEp^ZGI(3n-yMy}Zy)0ovw=Bef(rryszE$H?O
zPE}!PA@tC#$5MqJAFGHqOnYn@sjW)~`@BAo8wt(~f<fo@sHY)2<-~Tw#VR$@G`7~;
zH19JV_hi08uEm}@xF!pI`Gbd<x{aXv+@_S|0_$l$nOakKf%zPWZF{lCDwJbfi-}5F
zY8hOSRD6M)@=KfWmCP@w^;96@k2Q+|`UN#h+`Jy-<2>!xq6Mv=wx*h&gQq}H&x&wc
zZPI5;<Ilg)3W0o_!VS7L%&XRqCSVyvmbry9AXyrVa$J7uMd|DxrsCg_yK)C_?|bH$
z0}L5CB5_XIL+0Tb;6EFL;6b>I)HOp-r$mR-4y<233?INhHaixjG=eUetef;TTgZCE
zeM(H}BZ-B&hHpJO%E})7hn44CjL=CiqQ$)~qN3($lHv$|pG#+}H`-b1tUohWw|ZY%
z9!y#D2h{8sxV}(}mA$8`7RF_$8q=9i$$RnXZ>#Ac_S4i;xhX5+o7t7Cx%($Q{tQ1F
z5C9#9s=UOvDKm7$4OyTPf48DzHOW0-nEBM=f46^RLTr@;(G*&s)~n5|TM%r^eXc(9
zQA@!a7+Q4D*fNGQJyLQJcmb4QuL!*u82{EEz9<!Frq0!VtLC)jl(jo6`d|ZtutQMT
z|1HmhJeDD!4bf^6skW5<Y|ZF{1@vIlO?uG^=(mUSZW>?bQy51&vvHnz$a%!k?mv&h
zM<pzW89<3@Iz~V}Hy-EXY_7g-l0#;bkW@RXm<o$+ClXMkP~8iia0&`(<MNvyls?mb
z{+RmbWb|Q&!>q*{UkL&{kjH2(hK~a@RBo(54j5Ot_Cn$U+Be2%R(l_A>U`CEw4HbS
z2DAO!fYP;8O9C^L#S)i)1eop|)sk8gtY%0A0Enl?4sCJ)!Ez#3De=XNJnkEAg{Azr
zf1ON5<QeKbS-J#iOh`GHRMOR(wdoLKj!XuBqX~f($d}q8Caie$hemlyzE)6{Rr>hH
zExDArSv0XK6eYt+H<b3v|8(=UJ1z^?ejh<q6hxJ~_*gl<Qa#|5jw6iF%A?@o^Lj7s
zS|luB7vX$0ISJW6`pb=U<mCY`t<4+9SR`Ys5}n@y@;J*y?UHQvpxJS_P2B%^GN2?&
z&z-6h@<aH{oq)ExVu=CtSW^T_B;R0Tcd9g#!Nb3BwKz?@-Wq&DLSJ=Wel|X@I5_++
zt5%?<abzwe!q!B7@4D<HCX7?`T@yPfZg<LQ{_l_z=$qmPIwNTA^&Is(HvZL{ggJ|0
znpCO<I_iaTk(=rQ7y4^CD+U-T3##5y#ZK=b?JRV><vx`F1+zcmze82IqbR-m;R2WF
zL_7A^g+R3ro8198oG0&wlM^0sz)08f=%E2~)9uX~YH<(YCGRlp$OLM{MQvD@G+waQ
zV!rOi)Rqnq;?;C<`NP)cuy(kPG3Htsl=?mV;Nu<frzCV;!8V$WADghoeu8+o+3!aJ
zdw|@JMSj#ch4`N*7dE>NJ*Q?9T;8~DkhS;)L);BO?zW*Grt`vb#1gz*1s=J0dh8(k
zQd~Rfhp+1NOF5pSpoLK_x7xMsd6kPQB<)fqdUu<-e@UcYMm-o$Ir>C<Kj9dtJ?q_i
zKLSM{${0*}HOGO_b25dx>~AgBPwK~|6Gnn+eX|Dht`e`pBzamH+=R{r$Js?H=-FE~
zb43G;9YlM~1apEM#l0>{VsPTT<}TSN6X5DJdeLxabxLTICo>w2LiZ&~Z8yO@G=8jk
z7@cCTm<tZK%}3-}s~2%2$9xTuHHl`oV`n~n_`e3Y<_Of#?eLj4G>XZ)sdk36w+g(h
zhB5kN=zUjbr0$jn)K5CLS>XSoUFtnMxL3{m{;Dt<QqFt~I+f!cIx0GE;o_tuHoBLn
zUh84n^c_=eN>MLZEi9km2PG|0C<_X%o~rCXJSOzQ2%gt(%|s}_@U0wXqkxsRX+0<Z
z8F`&Cej@kb>~>!QtS=f0+feLN1YJCu9Q&k)z)zB)T7f9i#g*RQXGAV^a)pjwtGh}_
z163^BuyziH)kG?TTy#&)Lt(%q?gEcUc&kS%B=nFxNpF82`J&qo{H3+@Yg%Am?Ahn@
zpbCbX60UN|Q8jvpSQoNpFB{Fk6K5ypE-?LuXU60r?#T}<F#a<XO~evE!Bc3)&`}U;
zGF6GVgh`GYm$q9PZoL_a8qB42@rcld2)jslDPFqeDf!g&iT@cGm0f{0A{SEICSSCb
zY}Nv1=ArNBlWNc?yYuYv8=zmdZC}G!aQsdfLvCz?P6{?}g+~Vm>*^b=%Cy)?gYi$k
zVLO9T?pgqQf0{gU;&GQw4=(K0m$)!KQ$^oFbEZmKx4OMe+BV|UF~b6ha7(aH+6Zdd
zp4D5^!C5QVm&H}PDWxWx)4hg<N!bJflQaGMlwy=HFfOZS6kji<`uwn!SC8N^Ygx>W
z!x5S+>5EO{-uc?+zPV#bT8_tSpu6(ZLq@<)P*_qBXQivl&sR>w!Q`ax<DHZ}w8CD&
za5XQy^jk-#(WGE;4D3wlRMc__SL0t&Y}jjo?><*Fo^ke-&R78)ipg=ouqYF1U&UYJ
zL22e%`+Npy_xGnx#!Wo2EBnF@PgjY+o`6;6BI~Cjnd{bj_k30WcrAyPJ0O&SjuP@_
z>w0+NBb)K9FPk}<Eg-VqT&YvTv%1Zm`e&8iLd1fAgCCq*#QK3$5{}APUq<TEAI~lm
zsxki$dLY9k!qUFKmAX_SoB=99M+16SU<Qhx-I^2n+P#EZM;>4X=H^%_DG#Y(z0P!I
z&at`kBwucFaZUv`Cm>EjMHgzL`V(cKGgx*4)2S|963PVm2XC$V#j1EohDV5^`)nj-
z6J`=YG598C;VTp8VW_MpZ67r^;_5G}KK}2$fcF}xcB6~!`}~+kFO}BXaI)XhNFK1C
za1)1Z5gL4<HZgoVi+*Y==dPMt$>;L-P)AXtTj26~D$m}xGqS^XmaDdN>nYu2k!#QL
zl(6$TJ8NyWRkMvd%JSh!4q}3f%_)#)I%<HA=Pu1v;T02yW99kP1}9+ZP~muA&LeN*
zxN!ZTPE%8DS=@+iR~v&!$PP|9>BB(l!=-DT{q~l`fE?D`6!U0JhF*wWvMZMYUPoP#
zOZP)k<iAUZV^Z*x7+39M*A$jWL88TrE5p@~`?MuIV!eeU+HhJ`bUCiw<0kq7cIjEm
z4R5aj=GzCD&AwJoThAXo{V}^GJy#aIM4Td^4qahD+Bii_hr_kOQu$a){jly|zrF%I
zNo;`XvVf4T{aWas_4GS{uRpdB326Yoo-dl=k`||;iZZ30)1<kL&{iT6hC*!hk;NpB
z!sAFKyNx}f>x330@oAD?j`+rg-_v3dm=1ae`+!9be%N8<mZ=>CF~HWO3tvWPe7{WH
z0z>f$U5E5SxFY!=zFkHx``esU8CmB^8e8@>5((30ik->@55Sn;`iK>23;s6_?BQqe
zM>54L`(<BxCRWV%TYL$aK!(?vEm^|9YV#{2U^xVttC?)vyeqR@G$n9j;==ekiJLr%
zQUCYN>h4^<ER<r@@&jgCZeMBp?=HOFnbHp0gr1fmX#u9a*;W~!2Qw+zXsS0WFAA?l
zqfkabn63@geDjj%eOG_g*E2gUK^Box^^Km@OpPu%iC$|tF9Vgs4pS$(fq?#Kmn7DL
z*TdU`my`XS-U+7bbkLR^6@8v;jtmAyKy|~Vuc%cfl^T`xNKVGHy!)i(kF!tP5ehI1
zF%9Ht)lxV$K8;`nJ9Dk>%wsrABEI%iZSMUJsYqbrbaE_HsSRvdIo>Uc{;F`0-@J?7
zk>%_oqCansR=h)%^PDm3Ndyb75o1hK#~!1u{@ps&UbJPScvCwDqW%_czG$yLLeEM;
zNsC;B4Y;;ZsM}*bFCbacDaci*=DJe^A_$dSi~aU)gsm3l7W%vHD9arG<0hmR2N$k=
z=5dW+#mBTE2}zrEQP}oce)4do5r$denBI~+1y%;<&$+Tu-tv#vgL0!qGl6w6zFx@H
z<Ld6jXg%(X-D7V`-Q3%&0z6<VE$^QE0=2m`3-}6`#f~KGTuD12+non?FQ#I;=?Sir
zlaRx3#NV<x1oE#Rk-D&cf%j>F4ufB@taWI@metmFWH->}lBixWrS?j;0z}QqgiMJ)
ztmr>o^#-TL6p9po(7(Ed4<gS>A_3Ze6oINCtkr0;&B&49WdIp?P*VfPLFqUx1M1X~
z-`Xy-r1UjgyXc>8p6Yw6-3Qgx!K$Jt@181txVs9|M{j;?&wiaLu4Z<Sv;1=}GR=Tz
z$2101ls)N6(B~_evKEDhE#2+fRjO5puhkJc)>t$@O=1G-UW-h^NuwWnSj69yzM)gO
z3se6q_2c|6)Q|OFtN1^h?_ao>i<y<>Kg<6U`>}Adv9SFw?)U$mnT&pcRMxdxhJrh|
zt}Spty#DuW3zNrK)#r<#leF<cxUKA769szN!+Y{LnNgbeeAjifmj8Zk`qaMp^--gs
zP+NJYKRG`~Kz#+{>NPVwIgT8!JfCcA3|Zgk$lTP}NUox06}WjB@SQ-eVg;_JD-vq}
z^wW}V1DV>~Hc2$IwF{MvHSq816!4D$|2sT2GdwUe4)@Plbo3EdPy{a|JU<C;0;_BU
zHOdzlP%FKN7OS|;NMeQG+RFd!0WqsR3%>gL>YfffLPBu@>F}qY{0s7fjSD}2Kt~du
z&C5Tu2omP>_)CcN6vAe6Gy7Fri(fz>V~RjGgHW$J<SYXumxK%7pLZ7XbRV=C;!^@Q
z-})HjlZ(TQ;<tY(;^>oINN7<?R#^r-$}MF*v^GdztsUdFfm}ZPE(4#im?CQaJ_N+K
zP4#OlDEjWs6lgt5(-+rfZ}&exB-r=F+GKzKT;CYNB_fy(c(w4euzzGTSyNUTKKfq-
z>$kLmjP9y~tlo?;+|ljHHNNfv1F&?1PL9m4n2%u+w(;o<T4C0yfo6!`?eaC@B|
zvL)Hx*&ZZtOE&>nsf2b2*6e=K$u-f7yn=Lj3Jbg?Hh~1w`Sm3+FuxTc0gvG53Oz0Z
z+&ESUev~ppbOyI?Xl%T1d;s&G2FXtgL7V`<vUlhBf2%fr{qQ~5ed!yUgEe@P1V4pt
z1nc<{d*A(i3<}ZK-Uj|9_^Ec+3lkB8XaL)251tNQBVtheFI+q*T-AHG@z&|z1p-xV
zcQ68F@O5$1t0ZZMZgvLK@&Ysl){&ddX{aSG&KiGm9evXd4H0&O5N|u#gKjrDHGr+I
zuJVBL+addY<4Y|eJl^mE_voNo93gJM^saUCfNG5+z2^ScJMf~&uRB`fv35!D5VK#n
z&SDyj8d0spE#ET-K&G^BKQ*9c^7o3!cQ2+)=f=jjoYG5c-*?>hB&f;Fmt9orn2Vd&
z2H200Ry~k!fEwZMPE{2|GekSzC!i)fYi)xw{NG`i@?8L*ijD4M$1%Q&eH7lJ0?x6i
z{>|$*FxBeokKHo~v+~j$=Hm+f@l;gG)A#9i>SX`*6~q2JXXdvm=#J~D--B!b0|CSL
zFHToRTmOuxs0^<84eef1#=p=ltu@UMo?lk!p!AalQmtIrfAOV+{8NhH=K;_YQ;-Iz
zA99ae`%v}a-y-}VSP??u*ni310D}W?1_{8RRS<esKNM(xiECufsESwUZV44&&?^W%
z?YBhNB?#7&&?!UYF!8_S@!V(7HtoV2)4o@g#5c0%LdKVf-P`1Meycauw}h@8FTB)8
z>+-kM{R(Wo77)DW4h-1fXMF#H@F~@Qr*WX;bTvf)+<O@AKS%zA4*&-5zQTKgd>aBO
z8-UQ>2bK@Wude+0et%oxtiM5bU{=4udm28ZNbPRGQiT@Vw%5UY@hkjJcSd=D*p59s
ze89N(8pkrB^Hu{zJ2$9RB8#UmA*zku62|WZtZ6Pq#pmnVZ<uFFhkx%jKD$SL9lnoa
zIngPpeKxE8wgBJ2zY*HoaSa%nTDT)V=R$t@w{MI4=K;j_WH%6W=l3%(>2hir`t;td
z{(Frc-Yt#G$oAV4vZrRt@3!}von#i?BA~fz*MbzqNC$u37r-ES`R3~un1k-J%X*I|
zVlEXqYYbqJ7QKDJl=59n)Oy*}U%WxAHhxZAq2$x!*Wf$I>#0!rbf0*-s@FK)knd6Z
zHyb)q8+m={1*fO?UP@pfXVukY_ViB|KBw*JO?eWv^%gCLE0TFU-U*k*=Dt3RZiZ1F
zkxuOnrmv5LQ67)f5FIOfhu5&yuE;~XA~zQSfGwU6>s9-ZT5E5C(&%9k3FK6Zh>KOu
z!Kh`64OT<)Y>&W@F9T^><m*<2hy$Dk)^3Oi&S!MST81mbnT%h_>y7JQ4~|yoa7`fD
z3cpZ^$ys|BaPJ6XOgyueZLwk*oF>v+#^@?8(m(F)7Je=3Xix?*P{f39wgyuR_@Jpy
zWXDwOR%x;E6WUduWv26F{TgM@jNK})ba*mMuvrIlV5eREfi+06Ez&`lPlS+w32xVE
zVRuh%F<&EDmH)-pLC?y;<9RrA&}lqQas`G4xE@<z!4*_yw7p*?m*ZoQn?TXvpI{N6
zqS@PZn+PKqfo!P?5X_mQM$b_4ftT(^)#fmxCW^#RG@HdkmbsCOguSnR!5{eAWZdAC
z5JH)!NL4(W+BV6Q93_SPs6B2sQVgm#%hPF*ksOH87dwY25JY|DU&{8^Ur4%Sn{i15
zh{^o<JzTv{mN4;2>6Bv}&5$lCF@Y}RU5S5m{Ur23gGN&~r~Xk>H+>L#Znecx9vgUG
zsPO}jhAD<#$4i?*@epT!1Qd*K&{UfT`i1KSY&3BWR!yk-m)rN}x@&li8|KEFj5n8F
z=Z+QiNJ_BmZcX}B1EYD^cuNG>y0Yo^R3STITJELyWKNMX$pqE#FON}RDjai?9LLXE
z<5PZa%?a(VA&?mIS*igUh_HYliP1_WDGmqjx(kuPeDo_kr)s!|Mub}N<~g4^G!j~q
zYcBGGIl}C{!1rC`y5#dFCO-eolJ<yPcVnGoYP9g37wL`+DD!CcItw)w?MLd9(33C`
zxa`oK;exYGb2K%ZE-B4k9wC)yEC`5u8XH@sD`IIaL-9%v6)hM^s_M^2&6bMrVlx3Y
zJ=nDB)hz>rI2XZgEzlyE!3N#UbI!wL6KauW(R}xF9gQIFY0p1JsxQ<y6{l^-bKV)f
zl{-1ZnT%sN$$Op(j0x0t?epwN_bA+I<jgP(ocd~1{N_dEuY)HOPSQ~-#8JKt6A?M2
z8*P~lCa}S@Y~zhR=N~wOf}VU@6c(>IB42Ev{1sx@(E~?}VJ}H$W?QTPq=vt;WgS~J
zlhkjmsMaT_(0pr%$!|x7mRQxCcs~c4L;do{6)a7`&q1d&7f!^o5cM>1St2|Bjki6v
z1>BiLT4pV9_N|0!*$@#`%i@n`i_7l+be|d<8`b5)z>$C*bz9DGsyRQOA@Hd3mBsQc
z?M{<%fSe&#GnK7E(6%n^W0Zu~ckxb+&mi&E>20g<t=w7T^BFA<(rZmEQCrWFOo=IZ
z^Ze0&f-p39myLd=T*O)WxjguL*%I=@?ACT1Uq;LugCRL2J`n-?XVA_%TYXDcH=+~h
z4{ur&NL3u-E}9;b$_NkrCS7^#0LSojtVErKds4ji_V!m}33f0RUFx+gTM`m6R2F00
zx@cdQ=Q#J>l&~eqZ+`vr3y(Q0R?#`pfs-fVtkt#XKG16YZKqJRzfg`>@bUV4E`MNF
z8Eqz@dzrVH{&1TmN?rNUmA=H9b7BojrVEby=CHMBw5%NWa>FG^=zHbU{q-REXBaaA
z-t!^p7-9NpxgT%On?g6~Fs+oO9bB|gB(Ol@ZXLwgZQqrU?Nn+I>rRmL>;4df*`(#!
zaY*<}7r(hPBfz7Bag1q&UCK`QQG@(kQ5!ox*HbRHR{aM_RH%pC5<VCri7)5)BVfIw
z@G8gD5`I5~ykM2sb~dpC<+tYGPs%HF(bWkMb;#s@vy0SFHiJc$wOb~!9@OC|HF1fy
zX>nm@d~n49=%8btz7sfv-t@8)k{Z41yUuA>HH;5CLefgFjG#Ripz%YijIjNSP-t^i
z+N%I}P`tJ<%TAjTDf;2DrquO)Y8WW9fpo}wL6@mUfVNPl`SmW;vb-gG4X<R=X-5CT
zuLY;QXm7qlu4<%4k(uR>bFu}I+|_-=-Kq??H(PMa1P^7qWrM4Sn)@>HJrlT;Qz~-(
z!>)Vlr!UD0tEG!~c*3lA!SIqhBw}()1l{(MO~$;Xjv#>{SO6Ss#cw5{yY6UUZ2y4l
zvMdtbKc=dz$l?1U5`r-kYb9AfnB6P2aut|GF0P@6;@7B6h+gT2l0nK}Km>YY8AkTk
zrM2b6+p!UDhIq%Z8K19BpmwD~8it<?j7r8W0IijrVw2FG`w9gWru{OhYVzq37B#9I
z1k&a>(lR+RCuAQRf_FMaUD$!sjS-iloA)XF4SCyiV?Nu!_SKy=jBWD~$~;(w=Fbb7
zN%=vo44i^fT_Q0ZBR;}JQ1BwpZI}ZweaP6829;6V+j_EK#ZtclMWe-x&a#b$DB0(!
zsW<8lAgI6Qy+%wLo!-p>t67rF?I4-PRV~_PU{)3Gb-EZ_=j#h3>GggYqB|c?ZK75@
z%ts{DjB9wRHhfM}C%$q~e4#_@&b?yp3-@@vKTPRxvdwq-qasu>pFgeJ>}qB1Y4xMT
z%P$x1)0aFtEABvw5p#(BcSKY*RL<Fgk*uV)#zTh}S&Y8qO`$NuONG~o0mEKcQ=Es@
zBKg#e^TJjpnL}`2#la+ZxtVn&^W;-*j4?@5{jAGcWMkR@pKL_>OX;$x`0H(ohR|sO
zJNoYulYTIwfxCb+$7@yYzF4yP!R65=-3ozP@11?Ym7)Y_eWkI}c5mduU;qB^WSatL
zuAN_Y4xDc(S8s_o5(81#DBKvN`#r9t({Gfn{M4TcKh{5tjD`!6mm89|>Plc|OXnM^
z@L<Vo18>Z%j;|9g5kDw$Q^B}iAJDmq*erZ@W;&oe!uA>MMZj96enj;qg0c{okWr3U
z@n|H@!A0FmquqRHJ+z_qnbed75MlP`;f^wZmfOcGDaJ%!DjNgw&6D&P2Oh!h!5AzT
z@;DFI@MF!oV$#=q$*sj^!5#`NwO?LH5#(a)lX*8^Wd!}2uYo+w_9RoMD9(rXDaN36
zEy<uGQwo{^t9pdL66m2_K@Yesnv3fJ-m&P8*p#mFOQ7UUGn8N!y$|!I%7)Wi^Ibq4
z?e4`N#fSl!>H!u9*6|*l0?&iltx9Z6>ic38Nwl>eOoApjzu}6f1DrXl?|Mo!Can%g
zAQ|M_)$>vlFOLYTcC!A|ez>FPHJ4P(lPKZhJ)=H|ipq#=&75+nHKM!e%@R2^iKLD8
zcZ_8lra=sTIk9J9*h&)R{31vjm~Ln22Kc+;zuz6-tolJ`w{nlJOV+>f2(_kUls6u{
z0htd3Xb7Ia*?G-0t2#U;&R#o558Z_b4uVbOq%E+~xuEW7|ICv6FfxA9LLF3Ezn+|P
z-*jW8iA0UjucJE7uz&4wpeT+Snmia%gnvJ^XV@@84Rpc6sW*n-;O^M{TxTcnET{^6
znl|dSgw8JO!P;bS`xvX(#xEviJsvnhkS|}Tckc0q)DI#9s4TG_{b@Jmf>#Y8+{$gU
zSY=|2eYjoEdUT<z(C<iId{w8~80kP%>ZIb2vfa?C<rlZf3Zc~JlE*-o7=XL!@$l8m
zwG4&7OVV#z#1yuOz>na6ipJaI%gVRqP@`>l%|*ALOmvfVG_(aW3J0Ka3FK^fbWe`M
zsWDJ<LKKZ)V1<IgdixiJ_neNR;YwcMHpN9N+fL>O<-9Caw-hrUs0AAz3>hC%()`-j
zbpB9t6@B-_BY6h5Wj;{#In^tBlJkA1Iy_m4FH*e!b>X=v{HyAQY}zH)2GuqS7tZ7T
zA<ou~i@kn9nMXb_8D-{C$CE~0kf!&;r?9lc$YAd!va)<_6dj%f$_cOPqTiW1dy^^;
z1VC6jwWzl$>udY3Wu$H#B^$gzif_(Y(7|EbQ;FY%6(SKs*JhaGlYS%GidE-Toc^ut
z?M7+oqSSMzHp)fY^V0?u)-&t-j4YrQevah6(=P(SEV^ohZ^M5v0iu&t-NY)<Ce<mB
zm$VJ?v1)^fQt}tdjU%2HnosN~nlk%LdU>;4*&DOXh?3@$AE&OL?+}R(;@{)-^Ut-P
zmsqSqmB;)VZ&o}mlEc$R`>qd<Vj`4<b`72vcID<0(g=s(pP=Lf$gnI~;FX}xytTS^
zf`;41Ec*H*<jyT~A7IVrc4DZg?Rez0V$?=NWMnF104Lv;DKVSYLCcMHxHYfzI;CSV
z(L1D%Wh5W2OXdQgy`Y*ZmAu%27#Vb2mV;VM=|lcj!5zpvS`^R1wD~6}3%(Ku#Tj<o
zyf3-agL6DAMx*MZ1ThFRuyDtIFnpXnm9^XEec8E<@&q;RkC^wk6P86t#jO6w>3S;N
zS<=9@=Nz)m{k;3&*s2rG>>6&v1QR_JlD+4wiMEz)>6}kY4nE^<4rJ1Vtq-0qw4K
z=%=G5uT;9vudgZda-SA=aJ&0aXl}nSkgoy8ZP8Kl+s|R^lh*39E*ebVc?NUhV{qPi
zlSQc1%f@I2DEJ!u!0D>#hsV(cU@#vnc94e<J3r`7()}{Cv%J8RZpw}<x+x`iKi)jp
zj9B`tFL%_9Sde%DqnG6FW;v2RS9_V(J#53)EOSk1Vt)Csv$C|jX;=<z9j2jnRK4_C
zpSr{;j)5k6pn!5fiJ?=kT*1V@5lJdb1oivPd;7!v`8qraMAM(O`j!PQ@8O`1;}ZJP
z`8T)o?)}*=3S`+4jz@ubKiQtA@Pt%sWz1NtCHpH2QdiY9>8nff%VB}iUvcA3#R^v_
zpe5N)u#Cj5*wjD5nu?)j|H_4ZmJOBQ6&WkVi_P@84bAOuZYV^Nm6V<l@a?&4x5I%r
zH_%1MsK<;QBy96Q$bn90Uh@38qzF_O4^;7o#e$PKr91>%!Il)PsKBLnof3R)I4%%~
zcz@7J!3wJH@VFdb^IDw1g}K-f-3vS^#CN%j%myFUo6UI`GN3-d*+wLYoxOf&Os?4=
z6S<+RGoIL@nkv23<*hT<#P)Brc_=tCyA-%WhHsPDx%F_~svde?yd%$-oiS2YEsGC-
ze1`IPM?+40mm>{s_#PgB|FrxdS5{C+IC(|zYQIt?*lmVOuwqvaC&KQX^<et=I%E-!
ze!nfwSYXIp0Be#G*QB**S|7Nhc<K}wu$~?io^0qi5E<m#-eFN!a>U8sxqRxT!xpj<
zGbeBRDw*2nco}=x9rVmT3Nx(Ka83W~HrR0W*4_)#`*wYUV7<3}>YX;QFqD3jv3P$|
z-o|nkpe|HI$l4wJD~Z-Ejc_zcK#d^1**ioJ)WUU;53HB3C0D;g7qU5%m5BG8?-}i{
z$mpxXtFlj?ZbVe2Owzo!mgcj^4`~h}Vzhvz4-<tSUB_T?s1&Z=Oho5Ja}cn+zvPgf
zdSFABR7DnVCK6D`oc(hdH3|5Awg6rJO`0y{@8N4OZY}RqG8mJGgtKz}?fzWXzYuu(
zcWz3ux8o!HaH{jIh85rZgHhnGu8(C_UYjALk6>>`YHN0g==ilZMbT~XwO|K&%oFvY
z0Ur3;W10N;@YF>f6TgQB8b9-k^ZmHK&zBM0hIM)IwAK{_Gm!41Z^z$drQb<+VTN?}
z-=QOe+wB&AQi(vaN~-Bp3QxI`A-Cu${ZsenOlpQ0BeqP$CKGzF^+4qj^KR9?6#=Li
zepDHvI-3&Lvm!8PvK`p)fuHhpEtmJrG(UrcD{g{7rtF8&Lc0(Q5IgEBlIUXkG49b=
zsdTH?=7>ucp6U0T)Ep0$LM-pS^WyO7t2CE|R~jbIZv3WXKcQ&Y+YaWS9y<t66;m|5
zv%7{#+uGQ+JyjEwR6Jr38v@Y487HMnc#iCsRUK<BU#=ir`pueL9-tUXlz;dw-(gVA
z^v3pjLEt0avW`1=oa2sp8q_Vh!dR#vl*a2p+lkYmqdivl8U4w2(k~5D02;i4uDFpu
ziU>W3M}0Jr7m+=^A{U&TdkJGH=;VypGnaM(GMcPhl-*#H);0b(r-XZ!MF(j^S+9KI
zSp->d$qnKUeVncGuUd`E!UOIm%n9ZHbb_foGS~ch*-ZJnG;oxvA<5I#5g^{`<VZ*-
zIuo!!3C(iU@GLwub#aAtYX0TXZ8@Z#5>*(;XZPm#2f{PaR$bb{6^2%1tIrkx7p!=S
z+Y+-{umx_JNu7(kkpXzy88h&@ZHC{!39M7x%KDaQ^=-?6^|FkW0^i}fiPv}|bpR8s
z?o`{*DIxz?`@MULvZ7S-(**<OTjE1!;6_K<7f#w?ySB_J46t5g+s&1M>5^;@BC~?I
zOdk2Sgy%=NBSTymsms1<Sp9ttJLA>+akxAA5-lD$m=kb%-Wy9S`9;DM3u`R62EHOE
zH8KeDxEfrhNH1N*@`Cg0J?iAoc^~)vP!Nb=C{Kpn=zLxpY^xBA^eoub5xp}ZNV+_(
z+}@@Kd<DCXhbq#Trh#ZWj+slw)rvy{v%ys>N_ZbIQ0)09p(=m^GT;#Jb>33=M<sLf
zO4_^B{Z5-lLlAZOsO*6eSA`Rpx|>{3g0IDK-3CE<jtBi^Ri04$`~tplT6N!Mpsife
zauMsQ{nAI8Er@dx#Fq?sN)ScfK_>EOHP2Y770;En=ex^N0dAT1QT3#l;NiM_zVwkV
z9P2(DCkR`~$30$mRpO{&za4g7*dkG>fie>9VxAQqfnp2r*Pm&FUrhJS?~sB`${h5n
zVA^EG3>Wv2`VRWCj*vxeHpkJ@V#Z+o38M-_{9t!khIn12C=>SwPsaHdv(DcNeq7p%
zHbpua;o>Sel_~7LcQ)(P`*=-jbrig?_a%ApiN^w5FcijT_NpcN;u9^4y_scCzE3Z?
zG^hL{O?ssx)l^p}ji+nv5w6F~50LhHz-NrlS}1>EU%LWO!rhNVyu*=LFqNZP(|eD}
z!r~h*NYWo10$tWKDZ)J8a~Z)w*0hGk;9({@9z+gxV*PaM6kFt%*@t00DR}*H5W@>7
zeA=Mt{T7W)Qu8@jK6K-WZD=PK@X92OVk^OC4_EQS;(_Z*%1P?)T3tq)fL_{Dx-}Fk
z9_g(y?lZHgqfOhBbeLw;tG1;5rnZb(XVTUc4Ln=uA15Yo=3TC6#Z+BdJ`WU}Txic6
zK0ahJ`1q-=TWRf9$+{U6pY;c9DM2fYr;i@F>EHbR@P6xa{pq7L9YNL%=dM+tD;l^*
z!;9V%5s#Q=e>quS1I5hibO?!$RbJmEXrZV07vXGH<AFhzIzgqFj3(c4{u^=5&&=Al
z1=>ldwtf3;Wn?Z=LHl}af$br;O0G7@$N*}GWYwsh8n_NHaa}d4md({7$mmS;qt)nA
zh0sr~yV(cW9kC_N*eD!D?}GKIqi9@f#uuFJWlEq2@yJvsMz$wtveykGL*;3dobFOC
zZvvUFLC<>Dn^xd(7D1}hvOV?79ryNW2m>@cFXTh{hD;eG+p&zres#^}9M!y`hE?GG
z^?==C33D1ie53o=!(P@afDNqT27L2J_egsZ?3uvr;Jhy;eA6MLL?hLx(E5oLLh+s5
zV3n=ikusOZMkqJo4_EO0&m>&+>=8)Ai!m-t)K_M9q-*6JmV#hPVd-|hka4&$C;Hbk
zqJ=On-(asR^M)ii(Nk}IdB8dT>Os<ud9-uVK<jYF5fSHTY;{-On6$<smDXFd8kxB?
zEMMC`o|_wN5vcv;6Z#v1$JK@E7s+D4cTJTkjnk{;f=>{)%XX~OwS8N8J(^~QHL*JD
zkS)%K_b{Nc-BLrCj(bBP>31j#AcQ;3TA6>Pm1fgYz((q15>I=Az&(Bt%l<oeXhdm<
z#<1!KYs%g|MxwBzQLMv63WmfGWK)45{e6>-)h*61zkoKPnxtJ!)r(ljfXVcDr7G74
zCeyr!iyvGVClvx3F0UI;=jS@-UM;m0I6-6rS8E$Yv-UvWd$wdDmPR0Rm%tkWx`=IW
z{AWV1Ew(5%q3JAnz%f>qQr6nNDM}Yd1(y!yFopZu5|90a(`>tqbS@^)YEI>L@vL~k
z=))C!&*~an%Sn#*B2^J(z@9txuuJ%h<WinWiJqzeb}@97m!RcqG&QFX{m~QQqJ}&9
z(yjzhLDjb87S)tBZ7!ZE+Rp7K(li;n;6Dg-Wm*8_uFZD<=9WRL1fYLN{mbZB!rj!r
z8jZ@H0E$A`O<Fn@S)UpO=)bg#kbkWl>d_4_U#tDrhQG_Doj4z&o*@oRjY`rLY^T#(
zp&(O`04?o7!p|*l&Ukr%tI=sdP@+Z6sOP%QshgiXbkTQ!NP|AjlPABvHjVnJt2ipr
zjzA_D|94AKIZgR+^G>aFJGNY~2id}~fU6>Ibccdx3?hlZF$K|z1AV+(eq2Le+dI-U
zaT#C|XD``P6fz@3^t0T%EUU0IKkL(5#>Uu@%e#5Z9C+4LE!UL@Lnr&!<_YoG>z;~F
zY3rzhRYSHnetIlX{UvS<cfR|6l}bXKg?;dolqfsA`}v1so@=MF!h*7e<hZkE1Tj8N
zx;^E>IlfH_*RO%S3+x+P6B{Bjo#pkiNpq)jGca%r9bbne4OeF@s@<DV#~g3uh(Dg&
zBh)Cw^HmE1zum8>R?4HSwct1k4q+#GKNwlJQ)1^gzKbQ|EC+Rn!NU7iE_l?CQpl;3
z?I=D)R=HX^ZIW3xZ17Zap2P!%8(Mz;5ML*IUyVtQT%s=4aRh7VBT)NOi{IYT%Mg0J
zOKIOx)4-7$axDQUz{+=CZnnWMu<DHxq`#>FzPn3S={G8N=mqR(trT3Vrj!-D=@^9^
zsfLgd5EC-s!XD61Y2u2QOL{oFXd7Q<kDv|Ii0kZq?hS|)ib<9qNr3>WpIm2+6hxWp
z+FB#nzcoY8=JR9<c0%u+sL&=0aflGIec7~|E-Lz4p~+4`$64KRDy21)C*HBzhhT;<
zGZ(rLoQs0IN>;A^n5&;m0m9b++Hxz0puEYU=A&!HI;p=@w#Rz``6K44<hGoeUW+sk
zj>cPZu_|C9YD%h>TNqH~$yvJMO;sUls=e2c?#o%qr+{7*KW2u+NbYid@k4&$k6E1N
zTazd=Zh0+^5l+TBvN4(oIyyF7l=@KbPAVRM#0^`ORaZezvU)PqrwYSYH*6)q#>iy&
znW2ln%Q~)dG;vUaDyD-V<2m!NSlhUV=7k8vAGKx&)PzUPIhFJVV0Yp#+FFiWN0goI
z`g&e>1W>H%<eyDhjn$2v^iY`kg5A2W+p}>#_VV3@@$L7w(k2x+D5N-0iCs#{g6O|L
z+x+HvH+u}WKpQSI#TC2|f@ne%$&!99hiGMS4=h93<*4hl5E({G1jXoFHk2f7qCIZC
zFK!1>+cm}i#`SSYX=--&@c9ZlJ1YwqtOGqdi2A{vC0szGJ4wuY5v{|XvN=2isfxE1
z{wkU|64Ypx1Y|x}U&VrTm`XNo^=vfB_w^>iEsp^8S8URe9E@fRJ>4@IiWGM%%W(w4
z2;xsYKNRP&S@JMt!pY~KKNtDG6fQqXU4ocQ!O)%^@FAooeUg~Ev^0CA1UFnQ%$F6h
zJ)Vik8U(``Z}jVL7(IxPwq)oggaXsi33?uBES4Y2T%ao{yGtM+;<Sn)q`8MTxXYp|
z@R2ESKRHWkk>cV`YNwR#QRt`9Cmu3nhFdvn&O&E;y!y$RdZ~#!Z^qLy)iKwv>G<C^
zmWU5pjLDXfsE><GW=iv}52rvkloNAYoIxJC0JTPI$T61L3}ZWY=+b;lfd?jL`|J2o
zN2k7D?yV=mMfbdv`to@!<N<?N<hj^ig|=6SAMjQnnlh@1%OG0U%Vo{oAK*(UKaBV`
zO*=s<G6+^lTc@Z!7GupiRR9obdehsb$_Z|j$S)N93@vUedrMJbCK--;E)dfn0vmXI
zr0Y4!W*Z=UK@Cic)!<gO2e%-F3$ZvN-=jf+yUr`)naX(M;7ez<Xhz3e&m7i5ueGx6
zEYN8n6S$sSIS1)C1K=~1q;+HCZ<6B+HMGmzCPiVqO(Zx&fp!<m!K`T(CHLjbtTSO@
z%{?AphrcRW9P*fnq9FNk9*sQ@JlZg1uBp&vQi>HlLC;hZDW2Y$UhP_c(z|+mI&P|v
zBPA)NoHnD*h+)G6wI71VT?>MqoH)HrLMPsIPS<D|iLZ=1@d%Zj^db>ijWB}1%@5J}
z7-#L(gv`vxwz~nV2~BwGQ>d(@3I*}b`2%;Mk?knD(F-Is2zes#qgtHLq$8L)DeZ>G
zqSKy6moScRP~|J$xu#vtI|j8sB*N)1iT$@(w~r#WqUxjsgD8H(mZWh9-{<|h7SxpU
zDt5cQB1YOvr)Y=lMWC79p8rw9v88Ha?Q?z!0);%&J{<XOcFe@HlSX6S(@#dxT(Y5?
zAa?*Bwxmb02?*N^6J(gTB|MWNL8>>x=>H#--NTYFN|dP4vTfV8ZQHhO+qP}n_FuMb
z+pa!6xU-(zN61OWj>w(sn-~CV%*cX*K*!Is9O<&E6Y!RUPfS2W${es+$^n(*e_|jh
zIrAKgpS819A+7HrHgjvk&&l(?!A!s~Xc(7Q&sNi&{?77MK#Y@-9Tb5AA7kz?5(NOM
zOT1$90x-C8Mi4b{>j8M@*mkJur$aeTW?C_xTDoS89Km{pb3(s86UA$C|F=gM1{wy~
zIe}Kg1-K-9QTUq)_kJ$3dVP?0?GRUPRe55LqZR#uAhsr4@hef={qOhc;QKDWLQPbK
zqLn&Cbw`VnUMQr4cDoT>Oo_nPm(dskjLCuTxflvF^fpOs-$gfDKLLd%*0j>-G6d}J
z)3p2*j%~dhLn*TsKD2W<BUSA*ls!(3iC%r7+9dKJnU90MO>;c|yeZ}(aD=rvwd(6B
zbNC{H&(es2da`QC?~A>&rL=noS}W9y);n+8(t5k22kK-jfqajPge-B_!k`%qD#q=&
zhHgl5^HSZa<8=qImc>K0^N0+wEHFlvr`ntvQE&X*(kVLV&=chHlg_P7+1{>#+U5ir
z;RvZvP3jSgDt*6?_+jn8)b%1ODw&X`WgI9JSjpEO-+#4f>S}t8y|n9#A6j~9rCrcC
z$IXw}_z0?A;@IPf;X4#&?N(dj_>nlnhC-uPvC|1@4AV|uhKKEJTzUc@n7WWu(wZ`S
zS~R6zZ`${dqA~_fKN=~PAqB_n+j2gZ$yKF^A(X>AazD>}8nQy+mET;wX$Ua?8y#ey
zFJ#J-GwN&mLq!F}JdE9LyFevXQdhsPR)#nfAM>u%TL`a{VAvVMpU$*7ox_ZM&XP~L
z?urA{EWsr8Eo(2l?f7f`X^WX}47O}oSw0kcCW@)Y9-TxMb(>sTj{En&woDeA?7B4@
zQ6^85r~RpFTmjx^cel6Wmb@J*{hO`x_a;S+3*^wk1FjZ48&FGaH@q$#Ajvg_;zjT`
z&yvB~sKQNHKl54pYZ`@Z%4A!i&dj#PZ@j4B>j#+KWM)!^y8zW&pgYmeYjeh&xC279
zrhIP=K;H<`+remzy@0qml%MY>k0?x*_@Iq#QRPL=uYplrmKmNLdk^OLVS}TGAV}L}
zAV5x0g6CZOO#<HH5-^TOm7J`%^7l~%O9QCRig6K)7;qct%ylZP*5DTnl+0<Z@)<5~
zfFW0&`Q73}&cz_}<19==9Qwv_@>7CeHA`1ZU-shk&+|x;{WUX<GTl7otn38909GJQ
z<MZd}{uj^s$7zY4<&8Vdw2rt{sW*XgP#&}k&U}}CUqt>aF>@h_7Zf}^hqXE;GdI1t
zSxoBZVV+zHo2kRE6o>n8p$hCwNmD?;HvyU6ax>o*z8^#k8!Egu%PlfNB<Z9M^W*{h
z^TJo5O5^55F9PC~(4+S^a`z#I=1Jy8@Jy43Q?zLEP>J~^Lx3VZ=C@Bkb_i4eGdV&V
zW)`qbo*88e^K6U_r*m~I94t)HEyO?9$asyDRVH-)h5d-y2m;6m(rwbJ3KaFK5YICN
z3|6nf*$m%P5*Jkfk2v^;hWCVe_VY{BDD`k4kl=e)RJZ9w@0`l&ilU-teMQCR>YuAK
zpDy>$QAGm5$MEJ8G|-Ps8eJH3N<LcVwMAI;ym+`CM<{+p{_a1BMJf`7&b1eziIKah
zmhR$4%*i&apL=T+ijqTd45IZ9OAam37RR`soru-GuI(wQR85%)d$uYk7f+A>BCn2f
zz`%n6hk9d1kh}=ej{yK7%pyF}F_x3njPdt=vE-yV!$?OPo68BeoO+B^ZB`b3(Rqbn
zwL0QvgWW0d$j|6ETEUbYw|8^Y*L{3^HSYPPlIq}y@au+F7>UO=eZFr0<y&w)#4yxT
z%U%x)b*OIQVXF7?iR>3^0pPT=WrP<q)y0DJM-moWwzw=YXQsW{qA-`i&~5v#XUbnY
zAowp^G)nC#2OhozGWpu3u-JgFL!HNkhLADtGc+DJ$wKh?|501oxmpb%s^7G_rj{SL
z<hL3C$;&*=cCnC=keqn-+!v#7q&kEap!22B!Xhk{StFFt;#7UR3|EuN*nh0%HaY<D
zOe13}K1P6`9P|()%dDmnhA*v|RLvoMi#R^mpn&vFh~cSAh!7oalqzk4J!Jm-+WNIE
z@U^ai-7!g$xiYo-o<UR{CL@~C1&RAvknauI7E~;38B)t`+H|oh`d+ju;(IT3hoQqm
zE2&QU2=zK5IY}}HR*y_a<_??#AA}kw>r=%-+h&Q{{J?^3)RfLJ5L@ISMtXxI@`jO=
z)&6wpW=K47OuV?@;XE*4D-y-^_~B?9(<&05Q7tI*_->L1T>ZIU;1$7v{?yoadJGqP
z{!M5c5Ap1!Ux79lN0gFdj4I!s`Y)DlHyobQu!rKo;muSy#Z{6C->FJmI=3^9E2`T?
zb{S<+JU_XiPGxg_@oJP-kY>L~`?>$9V0;cbP5Pb`uViMQxJKq;)_TG!6pRTuKOR?I
zd0<XS*v(aWs!jtY>i3cb9WU(Bxrv9Uyr1<_VLgqx9s07m07aa8-|zBZO1v6ShARtx
z*_~pBL_Vf~#piq15v9RdDV8Fr#{#kJwH=a~<Px3BHhn7fqa|zeGv%;s7}W4QOYV0W
z<}H#DjbR7{Hb~CJeMD+rRH#oWa<0dbz}O%t&t3CK^%Weqcne$_XAPiTf?wY96!WBI
z!hHlxIJdD)<ESRdj;kT4tJa68L5ch?2kiFbg5`JIEhUy}q{b#9IUXn*0qMq(j+YDJ
z(hc);Ft`nUW)k(QwMqLZ7n3M+loz$F&y=}8!H72R6rCg2IY=F9?smVY`qb$XvP;NF
z7Sq&FJOfsIXfFBRI1zizB(Tm@mWjqh3amL*n1)(VLGYUrMZNaFNJHI{&B``UMx%-d
zzuyr@A;t#>ons28&Qhp_r*H_Q#+FEod_{WP+>Oq6yoD;~4d20?=R`y`=WT;eX~<7v
zYc89eQ9jXwDwwqdLvE?e!9D#`{Yf`MW7rQR4wb%ymLI&xSU5?4k-5?yDvGBAx{Q@*
z5=AK(HRC*C8s<i^Q1y6Tj%K!?^rO>1S9Em=cyGZEqGo2JEdl^u80gAU+K#IpfL0#N
z4*koz)8Jf1(S{G+?Ty!}{i!d=@tHc76M7AU(ou(1eR;-htVZGubgvk4_>r{hGwZ_`
z-t~%fQX*%rz-ltXC&^~O^&kHDVB3LAMvOa7x-oX~u`J(zvH4CF?xFsw)h4A}VsN`8
zkOniLqF(eea^$y_WvN%=%-c^Lgj7eJ%?Z7Iz9N>Y^deW5rqpZEuYJdRtW2KIqE;Iv
z3tf64mIckp#8^h-2=XS@yUhT5)-dVHJLF3(N>qudeOEi?!9*2*3*ys+CuxDRi6pLG
zcGIbCp#+W-`As<BbRk#6-;rG->$4%MM(>(WeFXz)4JN_c`XXU(PrBZJ7NSUYN1-Da
z=R2|ft^?a`QQOFqo0|*VO7;5}njw?6VE;akyu~uE#*^}dX2H-*4-D3Y54(O>@bX&e
zlh#)Q{Z?lus+SR#^S*E{hK9$#yew6GndtYMs6m4r(^gOa%eR_$#%YopIe_rlFzQ1N
zXxG1_OQfF{%!+8&L=l~*R07tyR4)xb7x!*6DW2;t?AeW~EWBnd$w~KL^BL)1heJk{
zD%Q-?yH#4nzTB%e)$T{q+h;f`$jNm3<2dH<!eOoQ-BU^s`82h4rFjc*LE*wTzg@Y=
zpEz3t6=GGyZ>7YXj_NW6L?XiDAn0H|weY7Q-#s{;*O6s;A>akZGIx*CxvMdSTS?P3
zK`!=v<6#p~Q3n1)lRD!gdI(*+!<gD)(erN&#jB-T)-1Ag3LIX;-3)}$LcmFpy(t-X
zFb+qnWr99YCO!%}r_W7zQ!E=GE;hdu96k7Xt4DvL{ZK$dxaN(-Iv%%$SrD)+Ar2mZ
zRxkorfQm*5ieq60Ba7Gkk&|yCM81>KsY7+L{#y%r#YK_%345Rk!Wz&FVK#nVui_A~
ztAIFxk)orm7HxR{=Mz9sxhj?bD5x9!94k0TFaNW7)fE;mktY&)b>`~sF|syyF~Pq&
z3iHMw`*r~fLs|8ar#!{PzU9gN@6{&LdyJ@R3b+jl2$ZM71FxO6#xt?vo0i3|NF7F0
zjg{W;S|hFAn^nZY*fAzGr8DJyf7VZ<bHlhSU8t}WY+>7&E>0z0%a5!l<0AVGBD~Bg
zuSI37IPN5o-rdBiOnhfSsGc%wo)%xV7oQc=>KpYMwbOQuw%#t`lMeo5iN!kIE|n>U
zAT`~q`n4xCzte_7O#Hz<|2A$DxiTz7+yT<ijuM1*4j^ZuL-X?kAql%#C$i;l^+2Es
zVL_H^nBK6AF!sz_WWgyrI_IDsZRg98_UY+gUjuwD-+|aM54mLRd*d-H+=SS|ClWO$
zYf)tfnKWIQvMJ6_B_=!2)Ox#R-~>dtlvbUaqeLOD;Kjcv8@t98$TGdw48!<2zJrD-
zQM>PX8&+{?5`6y1KJ@<Q9K4eCs&_3pMiA}SD1`#tucYzCL64~RJo>e7TaVdSx>)~j
zHD-n|QzgG90t<1~^v*2zkuJzDFuL}0!Y<}6g47xweQ^CCktvjPABmB<jFZvnx+0-;
z`>v_n%A42T(W8A>t92kB*1RU$G*lu_C5qh1yxW&fJ}IHy9*IP!5i1*ZA-TN)b(_&L
zgWGdzsDG8|fc~wom!j?5*>1O8(gI6K#Q%odBd(i`29rHGFqhLyZ8TyB5*RUT9-*AX
zb#EMe)~M`(I|aDUZ7QWY&N#yrN!tp|Z*IVHbyvPU?SovV;?879sl{0cZ~LsScLcOq
zyBIxY?%Y;sLlExD!AazYAwDW}^l+)mBTVj|);6NyG!a_~j}yFYlkNCQRY5l#3$PsK
z6CHi;)U=PEcB63Ew=IlrCE*BrJxWGYc?9Mv1=tu#DrRLHyWkm1evYe;7q{NK%eW8V
zas%N1d~I!`p_^zGx%(o@2Hqjtf^kHZO4&IXqvDQZcfZ{Ao0`uoos5au$w(LVt;Cf>
z%}_nLVqd|Ty%Z-un9;QK9TwNNbDAc8&MdD{Y9C;c8w-r2J3Blldnm<Sy^OiWY>-^f
zMc8}5R^YH2yAHSX?->@IBZFg6pTK^IlsHnSn~*6-lz{SAJrcu6iu#ua{S9owYEyMp
z5^tMb<#1Jm<@^134jvBWUK8F&Dvu##wc>f>wl-OL`$by@Dup&16jM^C@r&kO>INhn
zZ`F8Nr+a`%!#!sZ0h&O3v4*?`r>{#1aZi~73lrfP{N-x$w7>B>H@mpmTZ<@*f$K@O
zNiJo(V0?>~9-fX8z@UJcbwX$Y<aIaF-Gh7Y4~l?H{G*`>iwScEE0nFZjL-XfSCx9E
z=TZ>^d;5yiF1;5a57s53Y<AoG`y*;qV&$F}EVt@Cy%lj}(H#x}IYl6`r{yS7@!1O>
zR3UxKmPmhvyJ3b5hqlgG6Y|{()Hed!g~y(*8Zp~A5sIWz0B&54CkrI@&d%&;6%otw
zQyI?e7)5b_!o_=x^l3bSxeZBYmotx6xR<?<)<7HS>uX#J=~A--y}+Y*HY@FxG>~8f
ze|_L&Qta@{{vFM33XT$}V_K7=I4m_2SV@dByJh4#xFvqJaGB)l4@e=2mX9F!a$2Dr
zKGdC({1}4bv@|XP6mSug+NN7i;P$0dU6t1b@-?0j-#Eh<njfs~*U<kX$l!)SHMCD#
z<9&B*tD-TbPb>i41`twS@}jIWxx>$>XJ*=?rVb<Shs5dTb<5Ht{vMnD{2qux3SQkD
zIY=hBM0=;4%Rnc&>6d_{SgUoLL;lVX9b!i$9f6w4Z-w2P8xH@q5EX-+wGUyk-{VW~
z8i2opxY6?ADOip?#=WFCH(L_XtYn8kFo~~AR$15d(Oen~Fx3T)^$bB-wOzsEJE&&d
zPdb@4*C;Vef|M0m2!rf@gT1bg-)XA*fC<i6k|{fA2Tk4^9nKUwQK)LBGbT*O2W+4G
zv6Sji>z--VqBN)ML845uIg=3&GzL>tBe^*{DM)?DlumY9{3t~|s<RoLTPb^NVlE4j
zYofFGB3pCPlzfIu;#pn9qj83h=9x^^4`aD(I~bVV(}nVc*7X(UX*%&R?kEh7B_-g-
z0Q$HAdh0SAi^>vAgmF)+Q>_$~eJ|SvGZFlcDF8a=r1aXIE<#={Qqj_bP=>o+&0U13
z--<u8?YcG%VWUS4WZ(`~%!fTZ{SpoYYrkj!-0I_qK8Yt`RQ7UZ|HYjoO6b(|xKpLE
z-o~x8%D>?;@Jsf#7q#8r+Vdg`SH1d_YFwC3zmM9yMs+*@byD9C&a;#p=V^F)tU5}^
zhR&05(71dnLVEZNYmT+B{$|!9&H}))+Z0-QVvcyqEz}LSJ3F=tCE75YeMH<a9=E_p
zwD&?u+Xzxhg(MM3>$I3ZKpp8}^t(9j=`AA~5z-TbAh{9UcbD3s!HFi2wPiuWSd2i7
zH3+6hWpLZoI#44cL6)G0u%xO#$89`fbP}N9qUDkhBffs^DFXBjnJ68Lom`+F0#iNt
zaP_WwH|m)=juW#fv#qOc0UfV}@BVS0=3Ry-)2sx8y>Xd9yK9-d1|3Sv;_L9y_NGTA
z5qUH|Y_qg2+joBBGlo)Mf+Y*LvY2^wAlCK*n3lrt^cGD`K<+yxC|NKDX2ZQ5D9_tZ
zvdD{FU7AWS#EPycGqiLmU+frpP>(xwq04!!#!4X!A3|0<CA4sBsl2yN^-}RI4n6G2
zGXoW8wka?4wiC8`yvmBO?@ro9=8{C>w_&{vjZ2I3Wtd?sncBYEH@WkYk*ns4QdzTa
zFmIABIZ%32os1d!`ga-UeT~)7T=A36VM2f&veI$lw>Tju3rVI{f;)HzC6DQYnO127
z&>e}1p56)rDTi<2UU!Nis&v{7Rlvg`1`ix)SmrSMj%4sa+$WK8lbUmjKunPLdJ4F4
z1J#E@Us@)t@H30H!TSb?QC_&6)?XpM$8~=8ub3C&!8_E@DRrz*()z9b+6f=XZPI!I
zFFt9m@l#yrCwqn^R2@%8*!1q75@ZyVjZSPu$V`!R*NuM(TI+Ag#s#Z)Yiw3LB*WQ=
zk>MWu1RvwXK-y^II=+FMsY+?4*RBa~&f{Y#Np_rvAm5>-&Uy*^qFpN#Al59y(UI9J
z^!~{K0bZw12_GMVOj8M8qbDQ}uk3#f-&`mSsOxvfQLeT5L{T9?Y9Stv8#$J`2CX*O
z^24^<1q;PSA$F920;)vhQkSY1R}ZaS5f23)rYwVRDznA_^+>A)_R1x=VjjD({sZ>`
zV9TtNg0ojGLm&@PGoxhX(bTHL*)24;Ycwn6m!;asK1;#zl6obtRSTi;70Yc5;O22Y
z;y7g~jp*DL^vXRA^@MDsZ?M}h-$xeb&uN8KcIA?o9e$*6A_GGyaI!^izHIJm*w3{~
zh<cS5)Tt48$^ab52F(B-d1M~PrcaHhZz$sR%HbmwBC^>d(DZPA8}2Vy;}f5L3YZ>t
zTHT>GhnjGmVVLW?89j~PY1or;0)c%rvDN0Y)Op2wA&(I*fKe%1bAd#4pT4ksv6hZP
zZ&Nc!u6fZUC4{Gl@kTLbP#I?dQydRTvDB2<=flz`j0slCG)CXwZN?IN6{pmBCnzZq
z^;Rf%0B<@E?y3TPoe8)(KcN*@DQRZ7XAXVh`<*R|_9GFuf|hs%w0Bv7%n?yYM%w;b
z(uN4>uL$EKOWZg|IO5?txy-E-FsS;$Lt<XFhI{<Do%)8x)640GXDByW&khKkO~*E7
z&(jMtt<y!bnIYgA>ZYH`^<^R~9LrR{4^xsEhp41%la9H2t-KXZo`mzS+>;K;&sOEH
zo$Bhp7DJ8cggeD<23j<ATjdX@tQ0~L*=(v(fM^iqItz(9P|cz6y@ivR;3Ijg&^YcR
zwX!O}l?XFe@rrbZ`suBdDL5-T-p8UYQ*rj3#fwkWyJF@wT{>#`=Uk=s0rpF1Ze>xu
zivtjR58;AiS_(d~Dh5=_gBLfSR2_-Rn^0Ev2@pI%q_KgYro2_d$q^<aQ9_1!xHMIN
zA%0Zt*D!13SoJ^AsWcdfIdVjvY!tm`1gI6M98uxbe{RJnrw=1JF7W@n^2dc$7|P<y
ziq{46=+uOtax-Y3p~BhKPb<HacxZmDKYt7F+0U-+Va_E5;d~}pz3$qVx8zlT2t#iu
zjaRU%D=W8D7-5I_0Pbl?X^2?XESd~TaHlrHojG6#81%qYGW|(HIJ)cT)ffkt-!EAU
zCefEegqto@W|jtEZXOo=vBmCQ{X}*5hv-Dza5517@GOb=AX(BFf<D`3m7$|^ag!y~
zME-iB`=9gHQB#LmC)X@iYCK(1%i8dKZ>H!2<5i_$@--z$U`dD2*2q(Ubyhr6dq&S8
z2tUHE<S&2jjyJWql=?uVmhi7&+(ky?yX6KqFcNf~>XgV;SDxPdU|nP`-f4Lek47`;
z+ZK;xe*)R4_bR1<fw>Ew4Esf_lvyM^v=zpfE_qK~F>#je*C;sdK#(n-sI~swks5&T
z+GNqyk@q~2C3Q<G8R|v5`<XZ<WK^%`MAD$RJZ6qS!wp4sz=#-8eL_sPv8e1+pdH+q
zRd+f%r_&4qfjqo;GHCLAh+-KJJGeq<DV(d*aCVMgLW6#J2l$jvz9ADKI%+|Li_!aU
zFzbl>TMy&@HFwtk8Xu$^w#!y=p67Uk6VEv0(7b<Qna;#P^mE2p9Y*4uh0W=3(e)y%
zT}|FQ7Zxt)5CY>|%5rh<iA!fg7}45?k1JbqBvH-i!Y!tH`FWIoO{*#qg1dA?;;kB>
z=oD$i$<t#R$@^jrdf_^ULO#sh%aw~gX5bRIR95#a7mAx_Sy>x>AkU_rb|?^fO5Lo{
zqrm2eg1VFzWf@Y&6WIG^i;pwi3|HF$pR1SS@SSX-q+EC-k55D!A$}+c_wawmJm%CH
zW#P`c{Mdmk=L3GhYIl2r5u+i+)-hKYo(&2<b#e8?ELjmlL;-No&g9_@K-Ft;a4sbZ
zG^m=>^gyR$MsgLV!R6ae`JL6q$J@yZyI&uB-?P>97^NRGr|(jy-G?L5tZ(L-p=RBJ
z4@OGTNk5@gV%hMG{%9~jTa>Ok**Kw}ZqY21inrldHj+cHZG>z5?#+1Kr4A4iHxwpr
zHa^Ly`6;fn*S7~@Tg2^@R20bs4rj4}b?~+UbK>BO(QChDXF7!^zCi$~<fZO_ZGSnc
z?W;v3)EUDB4KI9;(XDvp-^YHxQ%yD@4U_^c2OV2kq?SNG+*uJHErp1~tau|h!hHnu
z(figY@1fR+Ut(P&iG7NQ8Zq9wHsME?v2Z&#M*23Sbm6DHDbcaI;Gw}xnmg5&p%tNN
zFQsOA#7KL|GP$OU6eDRu6UK+n<apNb#3P&-FU7NN$LkB61_hqG*W3$>@uvFi{v?*}
z6rX+?efsr#Q$w6uWATXV$elcsk1{t@d1@JrsA${`xcQd}ralyd0#b=s?<*0y)?=1F
z6{b#1$_R27MnV8mcBO|bLmAV=3Wqi$PK}8)Tp7yH)7*TR0X?`f|4lx+Xrb(>%sfoI
zg!K4uUgow*EYk8hk~E^w96<;kX1!k@SkLH&l3q5MAuw2^R`YaA4PfRD&j)OPL)J!f
zy0EuK(;wqxZo8@iCLv?FmAsFFuZJ(6J@w+`Rd$CB)PWG<mAg2-<=U_rYw8o2LSilo
z^{b+{L?NETDM$^jU094tGv_BABsrIS%?IWIYPzvXgfw}>SMVgMQ8JvH<j_%ykk7hY
z<9gbV4D!^8SybGKV6m=+Mly2d-26CRJRb2X>cmX9%oX2*mMY={AWa3V@1Rg1XZ+J;
zla@Xx|Ahn{T!WP0vq=oT=Q*l>HGX8Q37}aYtHi&@9n1v#l=i$$RJt4^&5dtE(3Wdy
z%!rqy-F3Nsr3yjgzG^tQgl2(yvKrgO>H3Iazka>%Hp-$0Z<%FrUl(~0Ls^KbgSn#e
zbVJL~lmZ$>u6BXkU-obY%4=|m4*VhFbCoDmw`xVot4#%Ws|^U9#__F4nBna*ZgU_A
zCIs1mB<@r{GS{%RKf&cc!p;g5R70tlr&UJnA#N2UFwavviFFZzDpB`vD>iKkJ{~^r
z+}=3-Lk0o+`f!!pk#V!srBJN>b%l{=OvC$~QCG`dxUg)3HkF2MUL?Rgo#M>N1?Ebg
zMX3W5lEZKk&0zK=*t&o%e}wI1q*<Yp3#-I5vVv=Xk{lc|_;B8anm9;X@bHO+T7qCr
z&(L&R4+ksdk)U}2)hg2SKki=}SKMlreWGWYZRI<gl*bQ_udR&4Qc;lw%5uusvpw7=
zOpfEk$6||cm65yxg9m@(!em29&oy8HMH-toTzP%a^Iu1jF#--YLPSZIvX}473D1s-
zu({I}#QF!APsWhMq)!l@(Ds~MP9gwjClTgTKbKegls6{NExCx;SFvNZz|u&tc%}o{
z=eH^IM?YL&Kj?^!#&zSh_}^Ye$%p=O6>)O!e>DJE?u;Dep`WQ53Oq01LD%9P>eizJ
z%U~Z`GnfZ_%n*gNO+m$MW?0Gx6_OBDYRZ4pjQt5hv$s#`QZrFlESWJAqQ@P5*pAb(
zScrX35pV!O<;-b4wTap0z+2X?@LAnSn(lUc_qP0229;^WTA#WfZHmdjI{W`&eH$3x
zyDM|4-(fuRBgY!cRd3<NAIyiVnb+Qh|81Py#gItW8?zUnJXDSpGFy{x9d`GDxHeiK
z#iPHD33s=M0N((Nh9IpZmhZJ3b@EL<+aM${;mBnN^FmG^eD+(tTjejKCs#0Vhf$qH
z1M>n%(`sY58Giw(vX(2bl2nx~<ht>~O`Xv014mVwB|_|{Pr8fL8lar67)Cf)|7!Si
zHkd*l>t%?d|Dqe`C8@hrrm;ynd7%{*k&-c$-AoxG=xAMu^U>`SE&|NZ>0}r_(h7BE
zL}<$|qCp5#w}1cR|FO*Qm3{IN6eA?V2p+jP%m%Ig#s!>eXhg39&Le)tLRY3k?x1~y
z8u5_e!yw!>-^aLlXscESvPNj7y%2({Y@89N<&7^|$;*^&a*#&bU3}SGE`*<dLanrA
z@i|wn`w`WeeNPk;>6l7IQr#BRGEEv53ja_@mjIo%lmUya3Y~vsqF4$Lu=n6&du|hs
z9^Lm0P;x$e+b{0Ds>BC%r{m*XVg|vKlh2%Xr>RC5X8&ktW=<R~kWi1AXVbwGP9t1(
zN9PZe`=qqKbq>6gEY-K<JNzXr0UM2R|H4X*&1gy%C}yE_UIbr8B4qEywmV^9bLQLm
zvKOuy4S+=HTz3vZr}Hi7cA>4Xi4!m3m9R^;+~_nqn!pK7J-+A?{N$Yl68^3(GGwCt
z6gXI-UWUgM-!lyrQSuKeHEHW9D?NC=H6@$Wu3r?o2T!k7dPU_2D4mbDXtn1XO7^LO
zd%UVwS?~;fbvMv>LNLz9KzoVqhS?P|aB}W1=sY~MrPV$t{InCeR%tjiM>LINW7CKi
zp3@saIhe)&E3RR77bIyv8E+4fb1y!|-(1(>QfZ-8m0+5^H!{AsyU{37I9x)UIPtX>
z@EFa#LYgN><9<I?J}0sh5!!9I+&D&jeux%ZRtHh3?!XMLb*Zj)IJm>6>Qd~VFbyYb
z;jXsYs90OTXrT)j1A8^~znYnF{poVRuzV0|$g^odN^7@^42cT66a#qFY)e^mU?YB%
zxYe;R*yE#fjC}1!v&tDS6rkB)p*Yd=ec=nyf_C|5urY+pS%&18Q?b_EbFWSn#^UWx
z*uTyFDl%HPoHU}cL15t7ZI;{TPgS@p`kfvkI<Q>-en~x-2Y5|*>F4sLwF_T&wM42e
zZ9!K4Voi&n63d%6#G|gabWQ)^wkjKEzHZqg3#I3?1*~zFBQzOH(F`r*%Kgt(y*&cA
z5X_)e8TEt_4?z&q#c4P6hMs%|<IM%>Z$=2VwdD{~Xdoq0O|FuChW5Bg@OeF#O^Zyc
zh<Jj*QM`^V9qE+^I7Xifxo}v_M86em!yUM*9<vP&S-aNS^aY=tR*$(o=Si7wPu-Wb
ztl>mQCc)BrAtR*MLc%g*bZ_8x9t3sOhye!F7Ns-pK6P1*!`vuz7_$!ek*3{dh&3=C
z(FhTb%DSwRTj1eg-o~2TPM4`)LSrh-w~Dl}d=}H8?Yxx#r@dKey(QvyVDIJsB!D>n
zF9L{-iRu5DKmQRx9Go2gCjrF7z{1J!|3LudY%Tsr0D%O7!!vbsdpo#?@53<sum0m6
zL=NJfzJDu-ysaD5y*<JAW%K&++kd%RWR+3=a-p|#<r^L(BAF_<zC4RTVQ79eJuoyr
z4ULehu54@w#=zXn$i&=Cq@++0m{S}0mrAT;0f3t;;MUgj*M#5-g2fqZY9uymAneJl
z9S{@E8W0LQFf=hWG&(g6V_<4_`cYq)OH3~?J&tMum0%7szP<sJi$E!IbIpq*c#1Z=
z&-3>KRlrsV*l>UEu<-Yv0n`S_6(kd51NbO5iza~WAcjnA9Z;1E32}b?z)x85L7S6%
z<C&SUy}gYQYm<X<gEIqac@AhtU=AGsH4k}y4#ficO^I1xU;_Nz%_1fO6_5owe!&l=
z%FS%fPApCUK+^!031FK$Ku6bBCLj*L!7ZSw1y^7J-|`dRxa|*f4(QJg{@?i@<vac}
zfIxsYeot&njEu~U?M<!#n^?g!0&4;RL?JoF%-zks0upO4@P&!3$+;W)6RQ!&H^(t-
z?$KR|140^@1|W0}_FgzMIfAZpb1`xSR{gC^K9Rw;%^bCr6}hpo3u>E@5Apqs2*e8@
zJMQpg{PF8jYjd+}*ZdPP$5)rH<uS|XUS%%Z2*A+`TGsd2{?quYr*Y0<_6^L;PR)!#
z0dN5X+>xQn_#u~ht^@rkHGd-pS>HW2wl;vL2TTEc1<VBQ`9<i-iPZ@PHWon7k6!FY
z|A<7;&;lsOM=%XwSim=k`ozGa1I_*h_n+KBI)Pm>2ao;%8T>xI&9U>|hh%PUXnFT!
z{ke|FKwTy+K0>+pr+>#QiHywR?vD<@85o!v13NT00&;kA0P_7|i%vj1vq$@TN^NCr
z0DAliqivV|A-Vl{16BO#!D9{ljVUz%&(R_X{BWJ(XL4r94&c-L<%j?LFaN{*OFsE`
zmGP%9hD5iz>VHxBXMF!x%-#g3>HTdBn5T_yeh)Xk705pL`j=$|^w-?+D4?7WJ@dCB
z#f=^4F1WtB{h2QoltUtLE1*o8&>T6c-~52z_?ge!47LH3dYvQSZ-)i|49)!Xw-A^<
zH3H@1%@HX6NRNup!~K`7xV<_u`#hJ_=;QztgM%B(gOE9xJTf^5cy9z~UragwQ%?xS
zz__`|8LSJif9V5Y<`x&>AD5C0JV5d-{`|jk50a;-4glGL`UtE6lD8-i0NH~-0y=Ym
z<RNM!Kn96EB6Wb|C2AvJMu|QmcYx$6YGCJh9}xq3r#i?f(O=Yn4vHRPM)V<n1opJ(
z1!`b(bq|q)+lo5KY~5?rz{ZL`B1iWaHIVt5kLdojRy{<H?ic<D@NC^v)PSGZAAuVK
zIx+dZMPN>ip6tM2j6UM}$olxm<izIq#GxvboZ%z<A%J(rx@Iu>Y5u^qKM5OKedTWq
zQt}0V0<2DKWo~P0;!!`%KsksHEL7Y3oXMZ_kpD9r-F~W%D_}FTw<{p~63p>uJ%<0X
z8{OY5ARD89EW~Q|pC=E{pDobouNEcuI|2>QHElrKUlYKTz+aF-S=wLFKAQFqbWrxw
zWCrp!=oSCfQx$mo;wfs-on+aX3eLVp+kUI}4K_z>ZFKBIKJ?tTe#!tlNAeD}rNe*E
z%ASo40nn}fs=?0d!T8N>s{+kyuT9P0w65Rzb<M%m&EWD8J68vd!Pyq}H;?s11NFEv
zaP=gExGoNj&R|(s{c5vgPwn^q!_5r=v41PRXbyq(ft<et1y}u9bAW8_K>QKE2SB&;
zf3sxJ&>0WbK=-I~$2JEL-)kxXQ|@lfU+KUcVN+K&!Op)gvj-+dXYY4-LGX(&`UpDl
zThu0?;I4n@Am%Uc=pb)<PpQltN#yen{4l>~k1URkAou}K`g82}GoSk3YgbSR=Wr~7
zIr+`Z2hdG5ke`0qq~E)-hTb{`Sw`B-v0;POyNxp^c%XclWlYQlD-T*6o)y@(mdZJw
zm%~60$!mtrxIPxrMNU`2Z^eQ=lgDn<hxPdDKgb{9L#@6c5FjvC_-;M<I6bW2wFTLP
z+$I!GxH=t*DSbWNu2-op^*7X-IIx*pYP*%kDZXDCOrr?3crOe64q-%d9M)**D6^S?
z_pr2MmE4!pD=#c!vm?-rGCa6NbBZim?DV;;s~O#zb0<u!YUOe~PCU3eLg&;m3zAaw
ziM=S8Ir(~`po-N%{LPt`7=&u#UlG0HToQ4ft|ujo4jHw$XPzYD6TVv3ncuBm2?$K>
zs<1bf*4OZgeus;hot=^reu_3!=PP@dFrpoh&LzyL?y;fj_xGEc`Qe?5d_76LJaw7#
zFF32LTLJ>x16o!nnrPlouJ?l};lv%=2e;3&?b8%w^{<zWIUG&-ZhMaEwpaA1{EmWx
zA#?I_;-cQ^f1QERMijqQpSWM*AyRp2#t<R#x-4D79?(da(J^r5+;i9eJd3$3x0~Se
z?Cd~Z@Kz;}K^JkxFk(m2$R7T2X_zWdTp&J2>TrHI3zIgj^t7Aco1n>3^U1VH;Rwb}
zgx~JEV5S`NW)vl7F0E|iL$TaK;)xARpPPhY`C3`YtdK+~bPUBL9L}3*tsk#dUd-)H
z%|YKthm82q^S#Qto8&ODYkk_Xf9+n+usSWH=|EA{h4!Xu8fOIAd6I#)jUUb5dzOl{
zCv-}6**Mnfy=&m~U$!U-D4#)F*=(=}Rwu#kC<f(?c=l2;?X@W8UeM+0;|<>irz)}*
zt^ogLr5JTREPWwhreM5m(Kh>(@PO0~O7Xe#-8@v|@+OO^JEz5f$sa9rLK7>EyiB!m
zFMNWx|JXGOFFnRCwcN7FHm`GUqE==U2Z>9M$HZ;jO&(s)^kj^3^>Xs3+@4;WKV0B4
zsJ3Z)$bTF3(5fJYX<}9-<p#D*wDhg&7cJ{N4oB+X-4j`TJAIlEFGTl$cc(B^)3qM`
z4B31lXy=5~)U&vav)93|Tj>l*Kf*^zQ6R?nFitrtDh<07Ak<#k@a1QPY}riXPVw2+
zQa|L=m5%K7JHfPU(vL+-_|t35MJs?B@S~kMZBVz1HZx}nNR`e_H|2Mo;}LdSw!f74
z%<j$_{nTB38(Ud$m>yWG=$0jnntF*OJDz?r-|!HkbmA9T{;>~3I0Yy%C^?96)bnFm
z3fyWk%E~mhe;(ic9u8A5<8*W{x*NTG%(h!FmsReBb^@7VX5tv5@9{76+K=-$9$yx5
zfcSbyj_!J}N5}<(b7Ha;je$H26T;~GUWAYMy~ye?OD8qIiwvk7J*LBtC+mMZXxw}C
ztxB9%LzFU@kecVZqjMO54_=uk@rVd6G-Y(}TsOI$HZr3gpRzQ%`cUk=YmA<BS{!>a
zOb9i|BkzuPr1^Or;8Wh>709kIX*f9#Ad(qAN)D_x<+>KzqS?)YIMdI@f>M4yxVgm7
z%yEco(X%iYO%+#$v75O-Z`jb)dt4AOIezWe>=%wte@7Gz^W6pFyNK0Dh{&F(;&5v-
z2OX+?)^rs^O&1)Zd2?cC`t&PKaWU?89tpb;E8dbbX`8U)?jZSp%i)tXP``+j6M)~|
z9DGBoI_Y>qK$R4&m56A0#4mV-ofiBJ-+<u%b295oioKsE(5)MrGn_j)sE5QPTOTRx
z2($ULqKM#>s*6Z@S5?i{1vh>0VyB|QBrVz#F?^=x%<~wh3yoj92mup;n{ZDDvw-6x
zS-wY8vR1m87Y-NViGG$$BRF8>Ad9Iw2_=~`vJU<>PzV+|uWc%bcB5S2i%pM8HtWb~
zowcstLC5|@6Ukp@Ckd)3mZQrr3u>0^C-<S24yEd5jFlnH2+pJID=QJ0qwYULEu18q
zs0w-vd@`QRLKwcN;cHW4N!>f#T_K0G`EOQg!CS|^dE-2TUj-B+6}2mVf<nD~H4Y6s
zIZ4OPKk=+OXoF!eoi2~rkzi9w6zk`H`Gl{QB^6AGb``<~hk3B#N;vlgdO7QCCBy2w
zK0zNI5LdKy$F9>nA9f|KtQ?g}-;@dku5HKaD`<};&H1<ee2is8qd#Z+S^lB>rvs*d
zintM8TciLzkYd%$a;K9Xc2?yslZMKOOSwB-MW}?Kgoo$>s(3W{`oI*07dU3(+2_(B
z{leJeyo2DMW9ZJlPXM(QH<N4c8S}m^?VqV@(PcOzXv$;Mb1jfh<T?YPAXBq>bgM0{
zpwQ5}aFNOr9_sFZNo<8vk(VqVWYvGo<iDQJXc`n|6w=Q9T6$wEJ*Z)CDUN#!V6?dx
zw@loWv;4kZ_&Fhjqgej^iZu3jK+-R1K>;ElK3RwVFev;q#xXY%FhH@GuSHSfr(tm6
zFq0U*?Db7*gDGAF=!|GFO6V{zpIMme4nmaW-VK5IFh)5v1LcTX8>0f`WhXVDQZI6c
zEd^pXK0ux1lE&x#dItOKgKA!K@Jp3*VIz^wW#`V|pYU8(gtI|EkG$j%KJxXU+=*yA
znsHJ0xy6CufhA^c2?QPfo<C<O(lR~Y2}kZnyW*D`)GY|50elJJYx6S_+-R*+(d)+(
zH4EEiv%64^6E{7NKJ)t1pNH?~I9yL=U53aJG4ays8~>oi#a1&YgTvw~?REFV456uX
zI+|R`=qw*qr5nye;e$u?lm6|&=kD^WC1cYMw`rjPWAcmbSEpJp#rcK$oQDmI73Gd`
z<*ha>Z4)RceqrVI5nt5CcO4YVMIRTes#hDwp?k?i&vQu1>CBvjdPVne%>x}|9p>f%
zcVjFA_;J<uMRAKw*;qBWn`y=~!ao(l)jErz3nscfLlQfRkGaG0ffuxNbIy(E&=)zb
zsX4LgJ@}N-%gF9u65g`=Mpyd%yK4`HF6uWQ@p=XG;mTncPQ9TNypNdvnK<!V-k1mW
zt^`pfMlr3hMFzTze{n>knC}kFqW&qJe-M4D&yto9wS=Oxf9|1&rm)dDPs~fASV`WU
zudbdL{hvR=O)N3R8_uq9jnWO9)H5aHk_X8n`uN}U#d7%$iA>+VSL@603FRWc;b%{S
z(oQYG6_*P0!30vjgZceM;tWUbqhC9qQ!<Nny5qwV|Cu}zC{v0+8CKV;_qGMPZusRG
zU7@erd6Ww&YEF2mu<eK39GU0YO?~4;DAelrrVz;y-y_nL=!2^M=9xv0QmiE@sLpWQ
zFXZVM6Yg=%ens*u%O4$sJTp<DAnbI>RIz~9oNOW{?`0v3p)|3^uPEG4>#yv|L-SXs
zBAHRMN3$y*yBtFhg(3#wk^EVsDv?>RxJ%9F@UB)Lp*nj<P=X$W40a(i9u$`Cgc2<|
z0x?5#&qbODQXa}#^Sg{$tC-hMkE9iix!4?Qnwpc0Q@wCDsGsbgI_iYoGC11#C9*rK
z2OCmTRSkNLHf6ii9d}mQNpZKq`b3uxo%4aP8od^aqG(?Q7azmOOy;IC)=)Fw!|FQ_
z2Sd`0krsx1Wc{MNI6P>9UBz!brWSbZ@n7a!+AcAyOr8iAWpZ5Vxqp`hZ6Xr`-{*Vc
zrniNHGqJbn`-@mV8U?Ay_KzzE(t6#hl)G`21ILUGIuhXyYn98(d6EsQjTuvM4yz48
z^yyf($x|W33S43B$r;W8hG-p}p~p%v*^AyS1jKg20sot<;!T1vV(DdaiIo2~*pWcU
z1RrR;ceccTW8M)lc(Ktr9RO4G^Be$<7>(Yoa6<s$CzhWn`ZBPJ@|qOnwvFvWvVl<6
z&;4V?g#K1uZyn+~InKnTx4oST!;7D!gnGGVTb`L_Cbqd0Np_Dx>50hA_M2{o#31Gq
zFjXqi{%&5;i8A7+QbxglZz<PrP@3OxT4avVIC!b9h_R&agUa5abXt>2(N^;Lzgh)>
zX5wA=a9BUy8!l&=xN@;XMs5yqQ+|4YrnxXCC#t|<+g$i7Rl;E$8xrVI-|_Co@&&Y8
z7)41?xuo#b*-$tDoaA1ke1BJVQ(yq_s>BfHk`fTic!VskF}ZwIoZ#*aB(dy4SCWgM
zn-13qc?A$$x+)+hQR~y!qevwKjl?a{&5M}LR+&3LSr1+{=C@-1-fsVdn_uRmq8E>p
z)9vV|62*~T_VkalgI1`4V=m%Z@mfRS)MGTA+Pe4Q=a6*Nk6Bw?!}>piy4(2XxHdpS
zD5jAY@VP|fvkUo7q!Tq$R(os1xh+&$Zl$ezYBhAX^UHnK!1reUoTw9XRwZIfDZ3>l
zx~|oIX_MI&)>$#8j;lB>&91zCnF*6)jfT+Oi8WZLUgDc6209$oTOq>ton0HV#dl+_
ze~opukF@=rt@h7%%m3X%QX7zf{wp`ky~4^P@P;3LVD~u9N^;hK@aobUKj1QF*tCho
zYFHpsblj)f`AK<?L}zmIJ{9Y=$^Im^{vFlV3<@cFwx>f=83vD0OW_aC1`PlCCa&Ua
z-uY{6Qa<s6q|IEM?rzx6&RtJsa;()J$yDHfz2)e7Plb*@?Uu;Yq(|(1Kfeh52$@e+
z-QIT4V?2BIQu67^AcWPRY@$^u3Gz$+#84DmMw2_pf&cyXzb{9T4?eoBlEwE(5qD7T
zpWrc)|7o3<&hG@Hf>>eGu`L7rU0f=QcI!xqpDVYWezf)6yXagV>OVZF?<4*^5|*fX
zT}yc5H1eV)u4bdtBs|K2=ZpICIE=9xd*M27p6Sb9fL$kI>08d-KN(u-HCNvtk0l+M
zt^ZK;cj$@>3evGbCrZXD-VoggT)D2T6!t}Txfhm#Gdv%bJLgERG@4t>Js<#|8Am97
zckY=ib;_~PBgcXAP$$w-^88igC}N5K$;VFPfm*~jT>9iJqBTob#N;Cr+qRuR#GEs5
zT~N=W-c)ilhUJAzOHohQ-;bUPQFuV)18+6}7Gf7>3g=fm(8aiT2Ci|3j4GR|>%5hC
z8jJl|F5@dnpz4=*YQ}G$9+1juoj2;NJSpy?`UKQ2*WVAA<QM$;I$ZKa4>vj6A|PPT
z63kiX_}zLN0fQ*3bXhI6D$x@mn56<%7l$1cy{0F$CpenkS8{U(lA-}ppUGU@(SE8z
zA&dViU(pPmoe`C1Nd1v!oVZ5xZ7Dr4bp^it96H}Bw+~tJtEPxW8m86^e79#=A!tYb
zZy$3F4t6-_AL=kt$|t{e{Fq*~=YpS!nm4zY2qQ&PLvD3Kv<flER8ERj{F~D^jk{KQ
ziK=>RPlFSAnn?*jJFUfW{K0$fkNM#>cn|l|YtnLEiSC*d+_Y9jaGDGpfm(e=CX{Y*
zWB?Mx<!GggB6VK&{m0WZJa)E3|6H`s;Yq3!c&}Hc((XxB<c{h}VJtvX^&s4P+|be%
z;!xMn%}&+qs^2owm2OIP)|>l9cEDhE(G!8H9LjZfM6R;I?|=W2AhApKun}!pom*Hi
zIzT(D@NHUoSc_X88Uh+}79lB^Yho~;a)MSf&y;I{fVs{{(s<Oc4meTjSBkdwvdIGZ
ztDTOdqj^#-QpKZ`RsE}MvKNu=w5V~8zN1+E%sElCVjxdePmSi)A!4NmdZMOYX9|YP
z!~wD_?O&1~H%x1zH%`XTN0_NBK|nL;Yq5od?{H|OXBRCI!j0kh<=5s-*^eQOVPueg
z9lo0uw5BB~Ux+1B%xA|CSG&Wf8o`c)9^-=8pLNC_Is^SfyOwp7`n%ifR@)bKE%D{{
z<lT%-!QjiSWxw>eHEc){pW7%Sag@hv5~C?x51y*vy_|zq$J2K7*6Fs4$yUH}wHW5J
zuO`|5{iKN(@fyO}aUdqdTm*4^a??V#e2f7BC5jJX;>I%&W{?-GfSNQNv9ysMorPHx
z9qr7ALQ2zdRd7p!M7=}u!1{2DdI3KuG_UT?h0mSR;@nX-*3J0ULjFmo3RrQ-n)Nbx
z=a0RCCKEN!YqSIFDps7;#KTjIkJ7rddJ6R9991J&ww<=M<L}vovYbh>s3f7GtcWi~
z@NRTVljE;a@X(tYVzK*V0-Jl(wqnpAWJ{+&fnld;g#nBAG_oh&9ryzM@m&d%qvtg?
z$T#@Qas9G$)?$jz?tqiAP*Di$9Y$t0vsHA(b-fc6p-I#*+dWZON<30aejcYQdJ4ni
zPXq_a<QNiSC5Mo%r$(pD(d%3_*-LhahHV+u5Qbx<Clp-QMUXXInd=VeAev$atAvha
zxV}q6^yg1qnQui3*UtUO37xJ%F|z_q5?y`4)v$gp5GE9~)IV%Vuyu=hXD~lOpsgk%
zHD06R_|t&LrAx9CRB{!<M@m$)ip|V+<QY!`zg<2>AgXB9>eNp3P6@J$Ps6>I+eS>@
zA|%JTWh=c+8n#~4<(YS5`UaK{G<-0>Y77?zDjGCC$ZAC^RD!9NCVo+(Au6%od}6Q-
z3E-Jj+n0Q|Rh*yvw^&+2eM+hHZ|*LaX-rj=+N}VjtDGk+5zoaO&+Pd_5(7$Oyqe=U
zN$q%Hp%fD&ztKFoM4muHNOppW(ZoZJVyV=)FnFR05ZU*Xu^N`FrIzSC!A0~$LmDZo
zt&H%I51DF{?qW=8J{It#F5g`?1ZMiAmc!-R>n4q{9U{uf3b=gQNw~n*Q7xXd8`K=n
ze+54-bm6SvB(2moOB?n=Fw(i-8YM_>>ci9mrEI{&0$x3$i@UG!zhFTSU6(taV1e1<
z%}>L{47pYVRH6CtcqeDIYbZ|1h6wzNE(;S7kPzY*m(B-;&Q^oPn!=bsiBs%&k;B-5
z%^xm1667Aj(Z|TZ7u@D99OuV>)4^Uh<`}Ld=wp*drI_BBTNCCYcU$tMpquR7j@b<4
z+y+vYS#j@?>LxBk=)Ami<!!X0JAvxm*>%Yo3*YMy{bk_k@-#Scu`8^a>m_U)jW7gN
zA0N5nu{xR}r9*e&WVqtMQsh&Y7@-(UGMFH{Z2C9dZ%dwq%6{Aodtoe!v4(Z9i!$#n
zd<@^;Pj|-hx+Ux}fy7>Py)n1Ux^l{3+Y&D5H>1=~?Pkwk`i?N*s(S#yN8+UJk+j^;
zlhOvSjVT=Ja~Mp0q$#AfU;rj{k&qBCeRhQfPCn6Q12yFz`SqZdAt7F1T&6;Ch~>5*
z{q&djN8)NknDu{)wYb{pH9_(nd+X@VEH2_}=NSDMAlUdQiQM|>V~scrZ0|5LurltM
zGJI-YwyBR#<{fxDG_18o@m{mKVUK(LxWOFKnBNbsm_g>th<2duyZJ0j90Q$%z8taJ
z#(&}yI(cJ=0`knD?cR1)V)s{%WXvvXpDW}>r9O!vVzOF7xC@29F%YBIz^eZIA;PDd
zzWtiT8aZhJ51q4U9kwe4R&fu<*kJf|_W|t8KkH90x|l5-vWrEije0b}GlWBkmepLo
zt=jjf9&u3*%SraThg)Ta4t7Y!e(^s;z?;V!tYYZiN*$GiWJONNS7Kse+hzYM8cAe#
z!{=RUUlQ=y*_>xAX8VZ?O7dY7gX$q5MY3()=_;`e(0sO|MKd*OmM?Zy#3^F~zc_zR
z82Hgh1Y)_8vbxVEunVq$-(~z9=sCcdE7jB6scmnx4hmg3|17XrYo$SO_hWVsIWO8q
z*)0JLA7jZ&o%Eq4Q@<dFsj2Zy*`&K=!giphDnC-9wiD@wKc1A&;m~CfW~yLKOL9&t
z9$_BKaMX!pJ!?N&^^5(-=c3;m-@%l|8fNe4%>o!$9%9HhVMUgya6S&M0QBgBCaI-;
zvSU~*N|2Jgs{V(ua|jZq3)*bkwr$(CZQHhO+qP}n?ze5*_I&?hW;U~!-HE78#a&co
zJU8<sPzIb#o0<E}?%Q`)TtITIQbzK<PLJ?bhv|<?c^cs^&X0;`Js#e}NT1k@Bv6Io
z?WAd<tobjfY}2roY`G{%8%Vw#%O9?OFC^$ex#Zp+V=z2YZLS)9a&oZ^oUb9u@{Ha9
zDtY0T^Yf>zKBFmQ&)D{<&9X@BooW=xKE9Nf@vvQcpv7d%UIb>6%{X_y(S>P?OqBNC
zpdk;Gs?;v^1m(izC%95Jp{{~N-(Ird_v@=TdhREp<P%S-2bF$aMwx`5c?J#D<GL)@
zla5$7;jwJ!r6F;OF?;(5;VX%LUGV0yrD@pEb6{9YKTO<ZqW(o+apAwaGo)lwwHb-#
zX}0O$CZ~<cM+nzdE3-PmArV8qGrMdhAP||+&TpEdt|T(m1$YDf5bAua)HhvW@vTZ~
ze(?y5EF^aXz4c#ZQq#*J^7oR{sgWff!PSvu@L4K9iC=IgpNRR)=bs{d@ATtdbM4zR
z)bwfa)}b_m=FK1e(HnEg*PkF`9j(W>PGjeV?7ixaJs8#Tcd#A#XuwX^J1<XgDa7_H
z@c@~u+1)1{I9NV4ZP~27?d^RJ%janC^miOBv9w~wDeTWago%v-fc0E+xW=63N{L*F
z-;sn}h0g(?+N>dOeAn%W&5m-_jV`1brJHH7dRxJzAT*UGi((XMtdd9-gXyw|o~*PW
z-^^&Z6pB3d+cFWS1g2CILWE*c_oO&@V?OtJG)?9gMnp5%dTK?c(GsEEuC4D>(<{XU
zAG+A=y4SQ19wb(+D;M$g+go*qQ4S!RDY&xZ$J{Eo0bfl8$T!e5N0drS5;D2LP~#!(
z04n)+!G@X)D&3P($S2KCzYdOdLuJ3xnC`ZUb)jZM>G()#+MUX-oAt30mFLyKqLrb$
z@O<k4s_iCZ-kms2NCg@?Y`g2=M2!XcvU+yAo|(NdCnU*UGG@;mSxdh9&J_QV=zhtU
zIXd01&iB01)-KQHp4oODsdM83Xl(ovnFBEc0is#1M4?tjoljEo_;`*b2<&~UNbl&S
zzn{F)G3^U9@gPn>cU2HF=LnV@dc}VrK{xmpq)<~8D<l@al?D?rFDmJB+3X$gm`n&%
zD6d~ZAU3=B@?7F%^Vs>okSkCUA<+$|Ja>>Yeg+x+#fl!}|6Ow^$?{M$bQ%P&u6>q8
zbkSo=cja?<FE5!uOFL&PTj_Wj-c9_QoeOiX#E_yU(|9>hfCODNkF%RZFjF>A^lI$C
zG`iAGx@uz_Fk)^bRtI_=Acn3OY{4DdZ`8M&pLx$cc$lHbV+HMxF_20pwHBW2%yq(!
z%H<+!l~!3UGqJL{$$3>^qcf=ZY$i^28+7_GYNjdR4V%1x#%$w)hoFnH14f4?YrP|B
z3DxY^r8S6BTl7Ik{bQilI4G-36jN%PzSdRl)XPZa&I6^V2HJEV4ykRZ=jEhF%7IV2
z&nl@o1Kc|>Q2|&L52kZ;5S)|)qQRWfn>ww$#O$03$<k-(lf`K|osbE~qZ!%Ugiw8C
z8GreRG=<?G^`)Qv%XQpW8YZ&_j*Oe(n1=l4AcP15FDKZ`<5-jPa!YyHO7)l2E7kCT
zHfDZmMZBXxq|ryFdZVp9l>7p?A5NK=FkYd$KYs^#8XHf#Rd_scv~p_dssX==+AlP}
zXg2kLxuCIylGHNdvWG#Mx75NIE;yDrU%84_kz@N+!2%N}fHhp3p}w*q@XJ+J+`N}*
z>{;xB2KVI~Ho=PoRiG_pp669Upt*6iHpl9*{CU;;IkFI5wtgsgNcnMY^yTB;Kd-+C
z2+6a;CyZ_nfHw=(um}QT;|Rhl>WxaWqf3GL(UHf2eW9e;!$8xiGr4<ek}j6#wvGyu
zul%W~>0m#JVJ-rKuJHqrf3~K>pkd@%YD1fU?*HL1Uv@aoE0@`KfC%CWcz9vTw{6=~
zGxltv@2yvn5OcGK{iicL?r<J&qK$?2&*+cmdg(kD95XUDDAncB*<ed3lY5OMskhDc
zBnl3tHY-wYy$Si`tLg8N?XBqzCoPjt8^asfmTT4fjfkww;6XRM3RB{8olIn1+J*(%
z42|%JAy{ri-MZ8{Q!(cuO;3=ZIR0_)522g-Xh%kdL%*hVyd7hs+%i^!nXoI%cB<_g
zg7?_V7^~;uU}?X;b?9Krw-i~N<ZfjvXEa6!HQI>Rmv4*_0aI$z*RvY~KjN-HmaRfE
z$&Z+Dmvf%ZfH@DkTQneD+;wOQCI;w3&x&`+SEnpu?H*%*DO=a5Ez9hAyXx0%TE`s=
zXEG)@FU82d32xf$lR76$W2wTb6J*&?26g}mTjrEaL)(>)s$ig{b`nwCHn&03T<qxq
ztTOC#6v4DD*u=ImE3BfW9GcPbnr#R$*bmViZZ}D9H3SVK<SJmMXBQ$H*C*MUDWC8c
zPjfU{Mm+gqDdXuk`jtlk=#VE=<ec#fdUpF)Z)3LJ=P<kv)hUY@1U@Cqi82HAQ{XYp
z!Y=8MOFrGwo$A0Lt-?e$IQ4qlmau%`S4BeSRTgxJ1ba&rJ4>kX!OTN71e*V~RX8MF
z`Q7Oc?(|PDuGca&kri4Gqb7Gp{#4xLeZUw}Tb#7a`cbX**zD}Z;g6gvvgWleN{z(=
zkBHov(V1xH`DT|B#;?+S+=2DgSD+6rQ>2?+Yfh~sn&0>hetB0K$<*+GCBAsE7z=HF
zqHiCRUo59G;)axv(KO?f<1EG#f}Tryqh8D#VdicWqegO~^}~dZJc%Gr1po@XYllP0
zwOH1t%jx1>Fu#Aq@yUA0(HzTL3m`k8r7<j#U9gjX@j|bLnnjGMZaF<sy+yIDW-5p!
zsvfm~QYNR*7#9hk1LJUvAH`aKpGCZvlE&Qc;THrWx_lwJkkEBB{lxU|{y5d^50iiv
zDGZUD|9jL|pu0ChW_V<_Hk)yAiE5IOH#dke@#gz!16D|%6IGWzmkP6uN04cBL-drW
zjG#H!>`}#tw3**rh-;dK5UqJu+%!wVuAH$wj6Rv5EK&Zk-HW(EioALzh=o_t0X-L%
z@D7~+wy@m5FH@*;Y$PM3BvcfVN3Y{mWT#9{P&s=`ONjLn@u|@&t<^@8FOYM81EsoL
zQQx5Fpm)*OpU0a3W&!C@x4|D^$@W=E4wJ$!UFX*`Q!*BZcyj~ws7TaIV4%qV)6_(v
z0&cpj4F9)p;XX65h>-W)L9$lkd_v3=>22WZgfIQ-+0K(4%KW~XHc~U-xiV)$z|O~K
z`v{hoW)sO`r#F7C;MVIl8zoyx9@$P{PTt3;%%YM?x$|UXLgRKxjU&N@t`{iW2}5s5
zD%rGFslK=o<BX%B<q6KKvHRTC{ZRaT{g@#2P;n6=H!cZyZ{sS%vl{s7M}UuH<ri9U
z4{h4Fu+1irUb`d!B}8pM;IDMW5D4j>t*MGBUi@VQ=&T`fGsob(nA)}8#^7lljAr(~
zN$3=@)H_uac;>9hxn`UWjnU1ud2ZA29NTWmp`+w*+Mm8K5*Q1|Nseab@nD<1pzfXh
zGE@$k`PsWJolTk+6iZ;WbsG=ay-_|5_;gwOTtDV1xRg~K!u5J~nB8_^VX_vT$a#d{
zO%Fu&($dgvUTs!B#RM9P3!DE;^BKGDx&0}bIKm^UllxV>8lc0mbu_~CprPK1?xNQm
zZ3t~W{uv8tN{}mRKc~bWhr~M~B0Nf#Bd-^u$y-?iWyB=NV#?$=(Pmgz#<*`;VY!z@
zD*$dV1g4Lt#^;!L`|kMp%KydCMqPe;oopr~d&&lK^aT7$+MI4!q^GyIVR2q$hgc1I
zD&HW87<I~4JWg9A5ovygoiLfI?+>H>%@^t^I)%XuYkcU3!6rLCkf@Y*=2LfgC^DfN
zsau*q_@*u7nc05i=bT;4;L}4t4xB<(E7ox!C(}%FVC1$etD+{_NwrdnKK4D+w2Q!&
z7ii-Vk*3Hmac)DS+(SO6kCGVZrjO1yElhXrHg!-e^7ZUAhY+RF1Nw`gC|C;TQ%C|?
zBz$NlD#CCS@Lr0mW;LNa>Kq;&KXV%V(<8G^@*g3>(eV<u4&xm>?S0KUO@>%zn(k*z
zZl&pbG4F=edI>p#-xNdEB|lO~&83t#)#2Z_fMp;B@i_siYu+MUKchUAt-a0Tc|bz(
zuCm~9z!;R=@;M8$`*X{mXd$nqkS!SsS=M2l<PIAlspRj_)OW&{J{acwUyf8;jl;IW
zL_wxL0Agt#`%q^#KGMjorAuqK+O3}vNL8%2oiP4(IYwZ{xx5noR@L%HC~)V*&L<&D
zfOVs-+u99UG_u!$cA6zkP<&pn8BmK~7b~tzVEQ9o=+G2fUT74EBxj;DS~U<`B`}(0
z9_dXc&4^n}5jLnlu#(_Rl)Fm)SwyC?&52L-DQwE38<Js^qt%8EtnCj^!aE9~@J^ET
zM*lkVDOOj4PEjM|fh9zR%Q<pQDm`a%mr5=)6TA)azzZF%W%$!R00S-~`Fo`u%emso
z+m|@_)5uP9^XqK#L<4&mrugfBq)KRFxRm^&I<=QyX)wf+5-4OI;92_ct(R$Q@SN6R
zrc<5Fc<0NGwzDz1==M4|ScOsaT<JuqtLKg7`J-^kWRc%#&O#2Y=3z8715W@Q$$gGj
ziKv*!mG#N6E0mv+!(!l+ughv*OH%kFWY%uAG(g+*wGtY#J<8*U$I75JOpF<rTd#YX
zQ~<e&X$-)ww1rI+WdKF-o(-SbQc`m_im5Zd+w-e!!g|^JHq{0pznjk1?n={Ok4Of<
zz?#M65lKI>H+dJ~bZBlWYz<S{D+3oKULH7qmZ9OlvGr}6{7s;&T)HoH2)VaXczQ2n
zX#p%C6!d=CW;qGv$+a205LOX7)#5USSpRI?X;|c)Zx5r%bXIDy`0gJ7=RMx3#p(AF
zK)$BaE}YF`ana%x{isc&zX-|vQ|^Aya97}V=v9Q;wKYZOk^H17VImFI9v9M7CPbfI
z(@H3EUUuR?OcpTdbRJFZ;XTMQ5hJ=)D!ENdg`!c~3klGFaKuED&<nW5u34WT)+D)W
z@D%sb3@YKge74q<2H66FtRj>i)1=3EH%qz`8z<32nVJS3X60ZIjCxhD!n?6cAR*-)
z=#GET{Osq`{btB>F^!BQ8s~)S`N8ES+7+wHmF6K60S8JY`rH#g7S~t;Ub+#y<=+}u
zey~cjqlSbd#5b0VeA~@|i!nD-VU9_}o@+8)Sc<zjcp*il$P`l^8-WXp)tT?+@&q$%
zZ)mlET;*SjLXk~~aW8ZcJNMoyD*{3T{Cb3;e~<A7X9rq^to~V|z@-4wUgg}D9KpDh
z;M<6!MkcQ9e5cUqh2~4zUx5~g_p^-0))WwC^ia6&t&xMZIciqCf-#~Ja60YUUoMn8
zdrT)X!l>J)r{lpeQav_+g{S#8b%$R@JSb`z4s|5<9X^h}HtQN#6SD7x$f8m3+t!A5
zy~XpNGdSPNsQF0y%{AZ&elWH^5M<Ix-d!&TgiLr^)yjcSajmgH_H%lVDs3GcaY6)>
z=*#3mmTmo!;3<h1bD`_^S6G5FSxj@=9{ctP+ysbI+fzEEGj684r?)tg<bfv5!`eZ_
zRd^2w1pbpn@)C_oDOKOc1}}MkmM4Fjfi(i9pxGQfNO@{6erFEJ!K{0=r5PA_WEEzT
z(+5<_f*AQxfl^jYlusiD5dE|>X=&Z)M2*DDE*QAOQDde?_u0!zw9kpa*d&{rP5Z37
zsX6s3(_xFadhn!7N{<HCCP;EXe~+)~bM((i{@zWys<qw`;s{P{#N>WP^1r8Z>^X0D
zZeoUx2{5Ws@=gZcIYUmP>`<s8lAJjLqt)65%)F169cRFk5D^wzmu4w3V<5*rY`r{V
zb^)n@Llwu~89!j6N8NG(IapAkX1A3dKjYs9YNBoxc2Rqr3Io1OT~Xf!%|JL@#3^5_
z8jFVGFA|yQ_YJS7!BJz)-Hfi4UK<0g@(nbERrh?~goB(l^!fKKO=O1_m3HB+qc2?k
zq&shb!fEl1R9yj_9}1H!LXMQ|7PIG<-^ZGWG>&A)!*i8V;7I}UG16bwFFlkFJ5brP
zqvl{FE((6)_9xoG;x9gSbORMj9t!A3Kr{}i73)4?19S(8jMWPRr1zf;mXT%LOejmm
zU1GuXAFpv@s$jy^F2Ux|+DH(bProBP7@^h;#aUA(Y8xZAKVXfU-I3_6@C>}utm+Y0
z{-rJ0`pHJUHT7O|@ev}5cR$4Pi0LiSIGETm5rEtVwKnhqT`fzv0yk%CtUYg6FB{@m
z3g6lWXG7A|6^&iuiK>Ho{7iHF_0%N|Q^WWbHQF`bc4TR@e-5&e>R+wfDS8t~ueugm
z2dZ_uSf!GtpFP}!IcH4;?vcNOj-D!x2BCDsvQ_;mjFsM(tx<d&3EiELpB#Q;g-g>)
zrK4_sOz(E|6oo>;*K^7kLu-SDm_v&@O{#=;OzL6mJagwR!RRxeU<+O*-?WdQFY|ff
zyR@|j+nAae%17w=XWq=hH~Slm#kFsyqZiis=6E3~x%6g|5zrL_XI?`Vg$5DnXt&IW
z*gT!|aSAV1RwIUy$g9D_TTbX{`p3T;Wu>zVKc9KvB?bXQdTMv}&)8XGO}bzml;14r
z+x@-U%mT(6VGf^?2t`u8+~S=WTlB@lf^DNZP99=(3p#f1a9`)3qWrpY74)@DYn4x!
z2yUp3mF1`{n~8%M!F~h9zDn4AWM4$KT{{|(S{z=hrfr?R)D(>=hFlxfXJ0w}p_NE<
z@3?zvTA2PyHC1$EkqGgS@RT&g^t`VMc+4oWyU<bvbL^JMCji*<WB1#;Oz{{m4{-<K
z_W`e^UfH#G&?F2Z85GJXg6+czpvm2U^W|6oyPA8Dq3yV)vWhA$KxR21<d3JYyrjUs
zgO7qb`k&5^aPjnv*NS@eu&d{<c&r92q}#+tAHgI=FwrjgNJ%_5z9wG7Vej64L<(>P
z*wiD0GkLWZZB(_zF-9BIf7?$fOxAi%r{lOwOI)50U_(7JvG>3$>WM-+`y~|gm#rya
z(`a*RY6bo`U8?%=2)NI-)NU{_)&K_gtxxOnlw=AxDgUrMc>2$69{k&Qe1HgW)Vp<f
zE=VX*(Ik+I0hdzx(cInk%@NbGSVh=EQW2#cWAje0#Yu&G`cXAQbjy`!=J&3Vb($K2
z@J&%^_4qYt+!WIqdPO0n$karJTzY;9qV)l6;o_;BZ78GGoJxKZQ@9zuIs4Pvk8(*T
zFSq6uKIPDzJ~){ifpcaR@o^=xD%(R8IU-vi(fREOhD>L|waLb(60!8s{i6c?j|j0n
zXrpglcdfD*9<6aIYN4fPH_5~jM6>H`j@P6(Uzyj0h>0*q*un(ieh#rcDX@m}524;b
zB5nB-<Mep)14WK@EF%AH$~tvfNQfchv&(oV5lTVP3vz!+-8gM!lgIPFto<8TJ~!e}
zISlNN%4r9tfDuWr^)dC>TYyBgZIdLr9_B(ZFvlVvu28Buaq{cfcF;GuxRO5)9PZO-
zMxvNw<IWD+KJV|6v9w;HvN{v&do4<?;SQMgwNVg}7@d4+V09Y*Q^T5S>82`50<!O`
zXmH9>R_-C35Wdpu09?kbk%p@{2<cuEsay9IcYL1H-;A7)*J*_Sf7q@w?aLbTWbuo-
z(3QxQar_m?g<kzZn`8<$U<{ncIEA@t^wdymp$&+(wwj|V%-9JR*tQUH-_|W*`vkkl
z@a873w~0;m!mSSEFbBPGifjhciV=9W>r+aC?$queiC@o$PnLAGQ2mX%k*#1v?&-_n
zYb-iLjT)I)Gwyh0(j+;8w+nr|yIN!xU{P!!+9RN<qJyO)ke)ele<$4$G;Bq;%XuuO
zb+Rlbf7vc12k+@ZyoFx%=~HBlh2Fv)?Z1m=?3d?pB$=Q9$6%f{W3X?E%t56yIv2q&
zn`cAk;4(afIa%r~8Dsd%5WU0-Y~Rm+$4YMOWu#e;0}rw7#xhi(vfMP%B?f6~<ZJPo
z&7iZyj;2_EIROuy;_G(+BeN1DdbH*T(P}{VD92Pwdt4=d<65KF!BOnnLWR|dQU=3;
z-l*R?!C6T>W1FM(nGdU&g9J{<oi}5yx6(;)*>HR;?Xk9*4Ch$2x}Z7<qiw2!4MREn
zrK>1&Pc)Gmym5na9d3)8Vb5m{92=)%N?UHd($}Vd`P@M-h~@#7UaCkr#DXJTdE*1-
zNAZ&BM3%Bt&Yo0!Y~kFV?Pl-6X)nv9mcr7yYEQJ0l^AvYcjoA?S%qt}EZBz(m-J9Z
zs@Z`Bu@|7^DjW-J`nx5I3OEhm<&JAB(4sdfldca^bn3PYNjj;B2V;U~Dc5{F%2hxW
z{a@|g&@Qng+g-x|*7MdhyDvrOt{Ey~MR`XDhJMv7ct9(tEmC{C-nN!4p$GQw*|pGv
z$ZLW%&5|N=)me*|raao5NVoA#ogalBHDZW^It-TojxH1L)?vgWR={h(vyIex?TFg9
zp7l5*VO&nfpKfWB?|F{f^_=T8>)L0j^}}`%m@|*13}r0WOGM0`Jtmv=9X5cj%*>Se
zH<$SjS~NpS6R9$Se@Ilm{%RWL*Xh3fN`ktb4TX00R^_HWvDwRrs!MD%NmVa<b_XN=
zO~z5FuP@}k1j7sh(d4Ps?Ilk_NG_ve{W`IRCQ@UzCI4d0b1gQR4(lNDAK@DABG)`s
z_f-!8<Xd&`B7<0Z!2Rdu5^dkQtKmOwRY*i$U;S;w4f-z5Qk^41YV;gGrA0HF<-=9*
z$z=kwjXN|RnP?j)7T$ws-RvEuZ>@(}<%qfE9&hhsgNcZuE9~9Xq2BVw^k}$k7_Tna
zm;<)e6filk7Xs=BA^4zeuVz-&A%gG`ZDOh>-FcW!?xR#$W09R^?(;{c4BHRy&^oyW
zkc+%;KTn5vrMsv~7>*NmBk}f7KHS3?;;^uNBdpY6j@T5taWu>h<L4VbUYuxsbuNe|
zG*;Q#ljLWWt=idwwz^F(F1A3Nm1fA=(CRyq%|I}Vq|SnzX|O7b1*AM($9?bzL3r#q
zQ24JUv45Hdme`HRGjB74WHh?>^d&KzCdv1q!a#MIid^QrHo4KUvD*&ItJQDHN-4Z<
zFG;{u@6@!>B=pXu_NBXue=-HuglvuH)l9o~X{n}7<j_ZV2x{0LKV$f)LZ`~{j|BKZ
z_B4KJ=h0W!>04wKYRLgWJ;N<cHKl3Xyf?!uM75AO8HsOuRG&q|-CmI&X>LQNR8>uU
zfH4Q$MGQC5;f2>l-0h?>J-eG$Am9o`7fFghv1+)x``uVBENO>s-DoaK{aY`pzQw&#
z)`LMu;ZCaKqU8^2ds`deKSi#z(-$oi9x0cv24pZ+;-aRPL1XnrQ#EBaX@Vcxwhd+P
zaL?O|g(Q#UIRn8;|G5?0VJAK$_8Vw56)e+^8@Ma?By|$dX5(9(L6|Xov2=pr(<?37
zz5I}Yns~*3N|L|@M@B%-sjGAqt9c;^LGDmY!o4`Nc`fi?R=(i)p61+OF%;p+(xfCH
zSMF5@6hSmAh~94P6aTtq`O3hcWP!_do2=(zBv`|Bs@QlW`1>3|(b|V)#91=T$85`>
z=}1HTWiQAIQw!du*!_P7(6-eP$hzQ<YL#p`g?^mtwEVDsE%zNSm*J{RYc3FlJSDVu
z%(CH0DX-1vkEI-0yod4qMAIEu^|?7Ev`pe{o0DTGeV#<hiuf|9Ux>Gu^-u6;(thWJ
zW<_ufGlx(CEiNGO?zm2iLgWX8#P%rj;NE(KWscmgqY-*uBf&_N?5CYo^jE`&^lnk<
z3tXgVudj=+e+kqnEexvJ_yhtt<x}iOL>40rD?@vdleGkllOb>HePnvvS7t5SI8;=J
z`*%n>-EX?S97mH$NPq1D8%Ph8M`L3^T@}N##17?W+{^`$?*wThT2O!tBa)I{8thBF
zn=Yt2I2G<^I=EEsQ1`6Zw=qQ;d{Oz=UlW_ZGyoF8mo*<FTOM)aRk;rUKGEcZLbAo<
zLGv(AZl8pp+d7K*<p5o$MsQ{IE9BgbmVza7)l7kvT$ZR_PYY69dp?mWJEs&4FFatP
z7!d0Uq}swm+=8HkwZ%g$z?_E29arsE(``Ofz3pAiRhTjMRNF!W*=i7ZX3=4#+c9E2
zqqlfs-Od4(&08JJ^eTIuUAeZs>b4U|&I=zd&+1oH>kbX^X%b3F@6fZi?)mkKbFUW=
zA8_cIxMlzkkGRN8W}tg{l$44_GI<fr49mD#*nYSRT!f@!W5gr52;tYlWIz;tYT53q
z4^&896a8z|u^Z8e@U_<Os`wOSsvyRPBawt$`?LLk=`}V*XNBr~N^^X&&QX2uV@I)z
z{OfMTCe;dI4sveA8@hRV*QtI>oX?d)5FZMmBKDk6>O|7)TcG_owwF!B&<GRy-S<f&
zs$~5=gbW3u6Rvk*lKHjuH`g%!z`$iIZqG_EA4tT^cV`Oz+Y2obg=9WC0_%pfb}&A>
zgu9x2aLkS?=gt=fg05~T&W-?dT$^?g{fw%!wth_<+>lGN^*zQ)-u4UAq0QO3-Tcg#
z-$y4#@d&)fPZT+5Q>?$9@X+JgWY6lPV=??rXGeS5%0Fww#{cT%lV=C4N=?EIeE9oW
zjjpaxQ0G2Ryob-_20r;WnZ4(ZA%u}m270J7Wp~}|A+btMX#1TXY9c6!J%S^{g`Cv1
zNNb<#KYj+c9ZFKWP{eW}esaIYewbh&>E+ue8JZwFeU{tMdu3}Ysc)`)akjxfP%Gpv
zDD1=_r)vE!)O#xBNc#IP<Y(HmOj?!laGbm;04w=$FP)+QUtckT6N$g*4q9u_Rl)&t
z|1~VYMG72{lF>DLCnr)~Lxeq>jIAjy6C<*_mqQ9Dk<kfQ92znDrLs(hnMCNZwBy?6
zr@76&tb5(?-~p+nFE#F~o#m#wp$#*zBJ%u)G_}}!&GE|B=aF_dMV9lIRXZ#l=oYfV
z?bcPFRT5EBmAaeA@3}}EvZ$;Q{LZf@SuJ1jPADhWzNWUyTcbN`PG);wC8C=SV{wR;
z#z8EK?bGa?o1-n@_Qoq@^FQ0?U|UVKTb}=4(e`a^(1PYv9Rh2kE!|3n9!QWBJ-Zgl
zDKeK+roX>&IDz4e%L7JAEF*jn$0%0TrQ-^b<TBFj%^FaiNkQk2ZtdTl0HK#zo=y~B
zu~T`1R$KZcdY^?ned%#pqsdZ+m0X5-b&b`>s9kZVOR${re~pUGgnnIo5!rs)v(&f1
z(tBEJTQqui#B&CtH^gg-@SN16Lb&85w5-4Mf_(f&ReiXYMC~_s=|Jbzk053J53fan
z3{Zc4*{=|vL^FtcfmRibX_f^s4?n!kgoRrA5b-sv-n0_-U{PACsyE8-AD;=iStDGp
za}CiUDdhQKCbaCLvR24p_SV3?wa?3FL?N0I-fn=B>8YQ09J!^8pjd(2HDVifh{&iL
zmM#Os>X}^skVAnZY%oiZie7Ey;=tBpf}gSNI_`GQiSQ4c#O06U-YJa<OBE;3(6EMq
zEpYmlKHa(=*m-I_xFaocaV^~E=mLV=)U<F0`h~#!YsovQ<Q+Zd_PyU8{%eO+V1N$9
zx?lLY1?pcdZpp1Ioz%+Kz$8mj1q}lgMc~qzh;Tn-NNHNxyHA`>a<hUv-!#q4bGt7%
zvrS3#WnVhKBOBp<`-GaFs3CI+(!!&tJkYO<TmlY`EC~S3G8n{md)lYvk28jGX*v7C
z14g>vABt@gV!cpg^g42rFL_y+@}gQ2?A6$lt3@;YPIPP3=WSSnzggG2pvvHu7|F6T
z_UH>y4{EQL(QKKl4mPORPlH6)<0K4cE+6GJ>)>#R>Kr8&Y>E@o=gO_e!bnFbj%ZW)
ziit!syg3Q|uPM!0PZ^G=6F+E|@ZV{4!KCxh7=Bo?Gj=0a!%7^yrvY5y22sSxL6gK9
znfVPXxy!v9Wp{p4s#+EQ4tFi}nfF&n5H9{QaSH(fc9>%%ZgNp~5Jj!mdtq!8R*=D#
z=}KuTYBwJem*cTp>oJXxUQnLL;}?9bZ49$lVysYISsb(H@?PE7Ba_zqQFm}R-#qYG
z9I>wp2@!}RoX`bze<6FuQ6(z{Vd>i^1Z51P7wrQT$FkuQ$_*L-KNVT>TgaDy6Cj?C
zEsG&zBqXON<m7)_+l`e0SV+sovUSagH)B<6zhZPOVU6qO8<$8hPf)3;OE>{BF`Q^#
zY%ASF!O>Cpd$JS>xguJbfk#hcX`jW5yv&Bswi^%D<hez%$994(hQUqu#qoPu$PVx#
zsJZu*{MoB{#$`cvB|@Y;)uJ^v>6$^aVSVHW>(P-k(4cq`<FSS-ghV<amjr1^gZ<_u
zQvDqgAm`Nx!;Ai$pEc|c{rJ3^%2f=2+o1(M?eO>Eb8n-GBPh&bhnuvx#?Tp`<gDGP
z{y_NtEH>uV?!?Tg&SJ*xb;VKYdIxx7B7+RGM0|DFaQPWzq>;R?&41yC3Zw7RXb&my
zzm6c?RsD^N4SiP<RfU8k_#m1N86gI3ET%#`^!OWOi{gw6H<dOB#d&hf;!!|zLv8SP
zh~zW!wsc=jpxCcTF^uhak9T(W=j8l~tZml$r_4~r-nz6M(!Jf1r5ovf7AO>*$bVLU
zB7?J`9GGoN?P7*>CG<tU=fbIxI!Ca6N~jACbvuQo3ZPb$eW6{v7liG(Y_|l4<!N(^
z^Dfit%=z94evpWhqF3Jj<N?^=CLdzSvsMdFVX^&cxY~en&w?c2m7iVAjLArS4Yn9D
zB~$nW3N$eT^K5wqae5OFS6K}_Lv4aegIuR62eLZl-j1XYuW@Rpn<6G>p*TT$8+W)<
z);}KChzk`S?m-oh0-ia>E-y^3FRTehwZ>}#vUy~pCP*@n`g3<WWo;%dt4TqMs3c|y
z3}c}my32b9F7`T{)!6Mq@_x(9PS8jmoO{D2gcc_qM?&ZpR%)M7Z9=+2AnZNj>9c;=
zb>2oRr0*(PYk4N=G(+D~)>tmhh(xctD-}MS{jq%8n$H<--MSQCkv(-@MSj|!Pmog*
zq2CajBYzydo15IuYB_2abp*~RD(ovWd+1vc$8^SJbMi^>kEf;i)r`cgl*>+wUf&SL
zT_s>0{@KvusH})hsb(7Ai@e+d((s5<lYI&G9-}>9#>1>?&mO_7OFKoQJ3<GU+Y;|F
z<pM|gJTwP>vWeR%y9cgI$8lKERI1o?@sR5N?1VUrP6O}&0-yIcH=>sL(JuoV{e2uT
zxPL>LF;*JCy^hPUkf;(LlfN@`Lx_H`GLzz8<mGu8!iWySEOkjmwdJp#ud$aiI=23m
zT`gO{PVuWp&jdIjS=NX?NW~@{IAIjary~70^0!jX2XdB$tb?QNQfG*W&+=K1tJH{*
zugg@wmZvqmsnjs!x9Oy9;$C;*OWPn0ktdT6wA9rT(tak^=qPH0ecF^*Lp7D*e*fJm
z+}~5{C!pusV&_uL6xNWD&5gRr^>GHmJt}*j)hB<G7RO2d7Iqz%>1S4RiUaYs5UvVF
zStjkn+xf90g=okrL5Il(UY>LN*+kFtMwK0-t*|DBDeoMHgYckqR1@P`q~VL<1#!7B
z!u9yxd+vgtA?)b5kJ(yLZQLD?^dr_l#P5Bzy%Bq|CBQcv1F8p?W*L;1Lm`Eq(DD^H
zx~(Dxkuj2eD0Gxg1C(uEQ1rd?a5djn$#83c??@I`x7hj1e4wKo`1%wrw0MCnw`2VN
zVz_F}0edI4?>^7DBmZ|YHUGUV?Sjjh!XJ$jujDIV-E!NKa$1`6-g~vJ-HDnRlX6$|
zG1SF$`E_R_;8iYi<Ooj25S;8yHFNcfp{Lp>>`)w!%lhKp^FoDrQGB{_@AU<mdbx+t
z&<}E+7Al@|LS}qc#(sR?q6&6@Il+<R@5mKFz5o%9E;pTtL?6pb=4lAj;z}+O;-z?|
z`4+1TNx@LWh!E>kP(t;Qrwh>OD8r1Utn?2QcxdvfWFF>9SOBK*hr1m}gnT!K>$=S)
zg?f4s(yhXhvW!l<hib}T%pwxB&l)EHQHv|ncfcni(55T>tA1{^9xDsY;!Q4j@^Lq8
zDJzE*L}fFNq{;fzBN3b*K7#nOM=)#Na!+wh(NzaUP#VW4)n-;5wk~H)>?Me2n}S^z
zsQ;@a77c@Cp){gllEdHCBamk~3Ss8kkxi;`&pBUGU18IjKH*g)g3mOTJ03gf%*y^L
z+kKfVUDCAO)S@a1>(gRJ9V-1I4jKWUlEZ6Zz_f#H62!Aszz!93$kOhd>n<;ONDbd1
zKURb$B?kuU`WRjaAF#JVB0;#c^Sg20@IOA|C0;zKDNlGzYZu!c_|$bO0>c2<Fijt;
z5hMA<3a+<rz%1;ies7I5qbYMtU4V+wfowu`uZ*sBieala1OkXQAGZicb6pq$UiY=#
zJkZdb1Bt*}=#DyTS`Wkqb^%l;fi$5t%5Q$G@|-&GEWb_ba^`eh-tO;>liw?6G1gqL
zrszhcg?=|x4=aqPjYjA<rv)oO_s1qFY+?o8rtK%0(YxGO$yYqaJd>N{XP@*g<H(g2
zQ&&BK+!wJBFmZ=E4n^-X{ku7S+1EFstTdKZ{pcoW{&P}}3wUQ<L}bcGD#P=Cy}|=;
za8)1g!@i7}X}kRsOintfFpoT8Ci^~FD%H#Q5?x@fOFBvo+5$Evs86tkc;S_UFh5t)
ziG*oZu~L1ww}4eNgP6j4BgfQvzqWs>ZlgQFl0IXfO#Gh@+!oAyb!Q#v58!5W5TZFp
zUA2YC5e}g7C?(f60Agqakk9$}&hNGt9l4zSxp{@u%rI;l;um@LmE8IqZb<F7*q~v+
zxQ=<fVSd|lnd;vE-u1oy1;7F&>n+qyhB(6~U}W}TfK(HOXBp{`QiLcbPHI)M1l+4G
z>N}s#I#}L)8~qcex`3pViO_L^J!8$Yz*8IDsYf3o2)rFm#2#%*JuS^HYbYb6fWO~~
zyF9E|L=eEL>+WBlfEurpps4R_d~5te50@&R`32FYnU;J-UQwq~ILZ@1W?ee=q;WF&
zrH4yBKSKylBdzrKkonV?!-z1Ubp<_J>GbJdQk#0292CS@H)Gfk<pm2PF~9uu)x4T&
zm?E9AUI1|YcCtioi&f^aE7s!(QV-MO6+AK0_mZq^|3qgOduo=G(luIlQ=}^g*q<|y
zToU<<{I;CcIamBilj_$Zb;UC6d&PmN#aN8dP)Rln_w;#V^2~u<fQO#YUcMOFq8B{E
z*!(#$HRp)ZJXuIAd>V-bDn3;>hmxiat}dg?Ly|kM3(EuYB0Z^p*hwH0bo>n=7`nO#
zfM~fO$o(&9&vNPqsismEi9?=eiyW5k7^D%s*As%FWL5cWvmG5CLOhNhq5SXD$RYXN
z$(jJF4{LCL4BRY300y<NUCt)+&6Q}0YQyXSfrnALq(ahug80CDGJmVAB)@7^O_*#`
zt;Qn5hj4Mf#!(z^s58r74kT@OY}+r)AIaOfS)V&YGK1h*e;=k^nP-XJHLHbYwDsgL
z`{Ox4)RT0oPK!GXlU*KR*bkUu?j$QaeBR}BjxO(lxXf>uIJK4{yq$EpMab7=;jsV@
z3vgpjmu@1}C=OiWnT*#_{!4SA&mX15^P&w?k_<U5cL7;&aE5wMD_4~W&jF+)hGZv-
zdDqmwa#wwY*D8$*&JJB1ybv0eNZ=Eod&*G$A!Mo+4C<oNw{XWN!4`QBR>qM~)nRIC
zcg3^>DqVv%kGSn&++PZvc}3t{U2!1>DV3aleL6_#F8I!ZAf+D9bn#w)Ohg<C-Hky_
z?A3-(oJ3v=wvl9c-abI3=3p*5U{jVy@BLqYqI3Rz*MCEj9AoxXNsfatKD7Ag8P(B*
z?TQZ3DMjZv{lYH7%i_?Km3Ku^u`dgL$&hc+miEF_x9~}@$Yp=uDXMb6@S>b#d!2HV
z`LS6i)Q$XFDW$;Xzlx>>$-Gmz=}+`c%7>-S(Ye2yuMl7s@%mU=D@iSv16wK00|x5M
zS`9&)_uU<QZT`{R&EtSN^%o<Fc=mF^Tor$2Nf90&JySNc`Wvw3+&^J)QQyPs3?)jc
zI-jQ@Y?;S4KeiM*eAar5LOT<I>-+bN&vdt*Xv=79Z2fjoId_=7I3ts+>!aT=Is)IL
zC?#C+N)|d+u*{|aOH_9<pbLXq+t#psyE2=1*M=GK3@=7D-Ceo$#SZ)0W35;-?q-$Z
zwo>t5&SI*bVB_PXx>eOf=%3MxL$?_tWM)AruP6LDJ6)xrdepw|UTNEL#?O+l81THf
zkjOW}HU#^ub2w`6uwu29G}ePFpKTpOj`G0c!O)N6!R?u>bc2QPZb+QBNEqhnJP{Ub
zSna!S^ANE#L*oN!RSJ!eYwYp3i^&YeR&*Y0tL|~+I)R6ws@0M{>|93U25M}<u6yD$
zuY_h~Kme$;1@uKDnmFG)8-l8C_e%{02c$s~-=gq|p&#zxdiT5`SVnZ5#$E$vFp!Ej
zRGM3)0f<Uy;?Ls(#%dsI31P0&ve8omrm<T!O0Q2+$}oJjp#1sdhPU1y$^IX$e~?2P
zQ{8BzDG2vklKtk@kG>BONfXih9=UU^;UW3#FR2?DEYS3I8lk(u?>(}#c@sVqerq0K
z5Mgx77dZmKuwJEYyS@JmZdrEElc&b2;zrYDc~C>8TfDULHTvq2@Z10jHx;v%)e&d_
z=|vW$@vChB71K-`cBBmrWC=a9W<eoB3!_5i9CrTgGqc^%hPWz73Jl*v3u$1}$TyG7
zfGvucJ?qNan{G24;TWH2-O0}5=;lXDMH9pZB4qw(fue4ccPI=Zrq^$u`;TP)<=(&z
zX29SBqWt(5g*3{u_p1pj%<P*v@a*>{YbXiX4mF0IBGMsE*BQ(2wE#a42mIl{OoxmJ
zlL7FUgS>*kq$`!ESX>oZ<S$3jJ&@I`2UiIpMenD`tJlcc4n!VNpNL7gRzWj~or|b2
z6$^X)>A_l3s6Ss^%tngj1+CY6BHPp$N%+S4o7~^&$y(&<$w9I4m;n|{zo6In17(w+
zr9y7PV-|Lwyx0#yHSwizbZ9ZilQ4Jz%kr|8@eMIp+EzaN>3A-M1S&Zcy#+&GjdA1<
zj(&X0CI~KGTvGHm4<{0&|B9r5Q}GLRE(0kqt@5kd0m0FIN?EDn=;tz6E^!LB!sk@9
z4vAu;71pSm6wttxeQ+j2;zgG8Ht^&ck&#gEOgUV~pC5meBrnJQ<5o+6APdtU*$V}L
zSW%KV&?J=uq(j`-UJi6TGP(xR;&%KESaA@7;2>_Hrgq5Kh|bjvIU<D##b9S|eh2k3
z8zvrUqW1E70(^1rWbg!tVtc4!jImI;`4{{aO_tZJjrohq69O~w)G|vM2K%#h`^6Xw
z3c~i-zhKQ@(y>d#A($RTRx}3npN}uXmu(>Lpr;LgFr(@MP+`d|;W*9K@wh}{mI1X<
z)!%K&ruww;U7gZ0Oq^0Gp%S(T#-VCRRG_Kx4iJMbx#7PU;+id<vRHBn)JLW(eJo;)
zq_!1>0p~%tXlr1Ea?PuW0z&6>eIHL5Q~LkqAmm{9e>n&l+1UQCgOHPn<Np{5nF$#F
z_X7e(238iv|4#*BY%8b=iWd4?Y)A+Jfkbt%%kTnetcyDr3@{7~vrBP`i!?jY4(*PF
zq=W=S5W&t)-%;;d=R40{`|20nD%Pp{>#q6V8>e@EVX@k>Niu_YhM)<e134R=n;c<4
zN>dsdI>Nx@<m}ue<Va!hauC-b!Jp=M;c_4chY+GeAwN$E4gmrAaTd!2<V8hH05D39
zApo5n0D3+GdOrd=Il#mu<vYH3NbrA!%P|luI7Krs3W7rfF<dUn(A*B7mE}pu%u{|n
zfEWXEfV4tF{!6_>KnU#!;D7ty0H+AZsUv8ah%rEbEr<pbB9g!SZ3iigPL55;M+Ofr
zFQ?#|TusC|H2MsTKs$tTYXGni#3O>CM{w@DO#+}M&>rP2uQ^-*XsIiX_P}IALX)W{
z0D%PP1_}%ywh=K8Vc5et01`F;vmT`YRJkF(?afR3aWw${aNq)>bFcPpej|T-5mA2C
z86aT9);9z9ZxuR72Y{f00aQ#=*K@aXGyn-YKJ3L2W)K5oz&is97!oj-4(Klk0%}6I
z077c+^FMJ0;S{*Z#ofdyuH9pC`r8HZnqjtepbV{{1Gza5zgNj&T>}CV&u-@)=1(>U
z5bGS~{}Mn^?Cc)8VVupm;cPkn?P3zq|HQ*PL7v&oA{~P4pBx{f?4N=OTmvGoH=vH+
zfoR>jCG^MW^rt7XdU$UVUIU;_FcIu3Ktnv@$CVRLfC4!<IfQw5|60D=4;>r=We5+-
z0We39qQp73b30)gJ+Kqs?EzkbF&vAu;iCsUz3uhy#U$dI#RUv+-);YO8Noqn0$-$0
z(fp-+*DER^9e~}N904@|c6tKz2;c$a6VMNQ^}8zq3;rn%dZJUpw+jG({Gmnjl>R}u
zeUt-Z{9(eA4fx-c1_`{<f(&@9or>l3<QN=-ul+eU|DitqtsV8dfAqI~{81&jh7JBU
zG5_A&|1}2N6f(T|^Cb9QU5DfVnu0hX?f+d>L4SBVq!OMgm~Z{HPH_h&G!p=}hx~Xa
zD2QuTV2|j)UV^lJR<r-=t^V?wGf?0Zg*k-$`e_2#=;Y-584JUquY-MfaS&-g(j$X#
za{uKjg29Pp{NXVX(BlIf?*llEABeaiC8VS8Plo1*IY(^i%l@Z)3@6S>AOtXR-35RS
z0iL^~J~<M7oxLmVkAxo}^c4RFfUD$20&tMnOC$&oKGi=w196zxMMMucI>7}5#Bp*T
zf!$B&C&mK^AHpSUrPxJOieCC3*!vHr{)38NX&?z&EBBC@I!Ez|>#Y9)*Z*Mif57=a
z==vXU{|`R@k_ec(2XP6H1l&Vnn7fHhaNhMlecy0S{Rtjn2>*y4tvG*gySc$l4AI=-
zCWdGV==?>#*@$y+e<1|AG=2jooC^I3l(4ViMWUK}h3QH--ti+)!r#$76Z$6dJNRcN
zw%z;*m>PfZBY0l;O&kebId&(-uy7OM_i`~cKXg|nz(a;7rvM+tb0tjW>LU1o62x!6
z!HKS%I)w?Ae&TlmCw{j71WFv@ySow!@esoM-+t>0fw{Rk2>d;Nz0ebpKk$FA%;A6>
zg99AR$`A|=0IsS6PM@G4rPSN<hXwF@c83>?X?9RCozhud`6&~liEncnEF)hdR~n*6
z#kB{5^k3M#NOIW7_Ii_sLnO?svKVP*(lmR;@FVr?IH@>+)ls)LVe}k_XKDXSEUcb8
z@uK6I6Pq^izjI`^JSc_!8n0{qS-~e4+GXRSyK)f0B+Cc{V574Zh!WM7$}}k%`4p+<
ztv)FDc%1DZZ^T9)=Lr(r#qVwqt$Ht%noP~g@^FtHwalVRUgi3rMAeG{9=TBGGMT6^
z#`ulT0`|q2#R*$2cJiR0X@$RNcg|JK1N-3e-Kx}1#G<4Fr1wYQT3gyYfiq}hjeVPp
z=c^`-P+5N;0MraesTtd#Et>!LH}$2p)O`J5QI8SZQ{<7}Rj$7YIJmg~r+%X-MrLPE
zr%$ApjT<X@-)vwZcRl!U`vn!Ve_uL0ZCO8U!~NhAn!e&X4g4-Xk^bM<Mnajd0p*od
z;6wBlJPh*>iClEAxuTc(-JbvSDT6`X`rL9gBUZl$wGhUo7#X)rtE@d<KHrHs{mp$2
zr{sz%%eD$hi%xJx^;h6_pY>UhiBA&O&3LirDfP%A$L=&yQNnAAi+Wy0XRzemp>eq2
z@<)6i8R?M=zVrhYPv0nhu_|{fd`PYFFtPlKesfgY+qnXMd*jiZk_sDz4IXj}*j=F_
zHR7sn*<Xdk3UxUQ7Gd^q8@yD*V*`7`9O)EGRhko>uqv*1KTfBi=(cr>M8y8_c{c}I
z+ki1!m4_W!-bh1NHis+sYf+F`kXoYjO`dYz@ZuIgbPB*1IG_ID;2kSE$l60Fj2xyC
z_TxByTwp)4aeXTle%<OW&e;`5j?dRc46A5i3Z=#Q)wQhVP=qZ0g~DAi%89qm5s^>x
z^Fc9t#3=ghWp!y}@S~qidL*&2+-=rxwM;C{hwVaGO(&)znf20Fr<37-BEgYl=};UY
zR2+b~>RC5s9O$j-)H7G2_-VQzRb);&uNyBvlMgK3uV>{V^50oKBGGFDYp-O`A9q61
zUHDYqYHr#j$)*=2-R#^Amq@I*5q7_u*rJ)UQ%io%Q_j<eACU^o%_Z;X*D`f?5h_!#
zY3FO7ek+r)$@Z>y(b{&2<MdB;Mjt*${DoL$551EPg<n_|@jS}8HBR{>iXUb?d<I!x
z0rq^VR0oSvj~s$kL^pXYl}UG4TAdK`w*2=zKR1Ll4bp7s%T342lrY(;E9SM_<fEyd
zp1Ype8TxP?kWsxpOJeOT<u_7V&;o?7@o5z!F-RZNF9Cj>r`>T6Q<Ur9+koo+T9yI&
z7{MzA?qSczGi9kn3lyN9n`9R6bpqt5O(iuH%_j%Wr}P%(VWqO5AxF&}!WctPudpb@
z#hHeeeBtb7MF;Ihr@^eT`^7t!v8#(Fs__-uMn|TSU#g;w<Im+PR%H8%$eL+YhtCTN
z6hLxbv~aw}_z3ZPC>3tj(AcJu)Z=^ZtJrToq)w=ZDtM~N<Z@lJyD5ohtd{(#B!_Ga
zoRrd2-H#fn2g#|>_vKwB72KTq7^iYGbB*MaLi1RMw-MP>HSoUru%h$Qd4JplG0uXd
z;<jB~O#gq~i^$owX+i2WC7EO4uo)23pI9tG;>MIaG)NgB=WXuhSy0N`Z~v|Z;|miK
zvXC4xR@Ixni<q-{-2KmX^n!;hNQ#P%qP&7;aq!l06dV#~$-W-A*o&y6ZY!=)<{1-V
zUAN`a){5?#E*FDUatb{nwA$q06*0wD1>buI#gJo)%5)C4ZY+F#U^f+4MET*GO3QuM
zOy(^;wvZeeg0vMhEB#Ula^gGRalW@k;A<SqCdJg37$1gbH=f4IU%fgRM&pQ2{OzKO
z?Ae8nw$s=8UXB6cr0mmry`V;r)#Y64pN1U_3Bs&W@6=6&tf!W+;0C2MiZ$`h|2-N<
zy%OuW)#l@F;5|H-f;Lw41XT7$E)5@6)0C>jsg=PC;m0p!mT>w;U{4IYf6*<NFx2Q#
z3kw2JguCfPw>b;ktQj#~fH235?#S$l?rj>>GTbT_kA-z#AJe<&ie2Ths$9JE*wTt&
z<0#A>J(=>=7kZjfs^+@Ir&oRS%C0~tqhNW#dM4s<ehABe3=7*uQMRV7d)jTW_Wo*3
z^7%iwx!Mde?oolr@?n13U;_F6elw&!r}TeOIm%BbGc0&zO9b`78FMJhc`HJ4SkdDB
zHWGD(n<WeVxji^`j=L!RDbNjO^}e7{IwNik(XQpm3NF@ssM|gvJF#UaC_v7;XSglQ
z*m*Wz2))3G1v|JnS||CPZRR8X7Ep2vn<d2%2aV3_0l|U|j0Bv$tp9|+4rrmaku`^v
zDZqBe(72m2`X+?3*teQdu_+W+n8yeU(S3+|FNa=7?u!ctp|Q!y10@n+RkpAT(hMoK
zq2^!ul)XK<7>{MPm)yXCDd#Zh^T@a~WFj+Adm(7gK7cv{ro^(HfeME2)chL&b%SUD
zB@^hVerUJpPAI=3#?TagU5NdPH^vdXb?haHc0B6J0>hkjQ%_H_z;lRfGgoOQ`p@1J
zDEQrTF!oBXT*CZg!DNyxif@tM%Mbj5ZXaU;pyVz|mtvpd3u|o{cy|PkB;gKQ6X(0x
zv#>Ni|1M>HCH__+YP1IG8HZ7lKczE{KOK4Vp3|%F>Y>5A5be~wxPw0{`qTBl82iTP
z&YEW5*mg3pZEIrNwrz7Jwr$(CZQHgpNhZntKks`F*1hM$`BJNP)vv32*Y4fBd+n|+
zxkB9|;0%=E-~@e_)q@GwRA^43c0Sj{{eGZTe#6Mj-vyJ`-G;6=+Nw0N@yfyL1KinH
zTKz|u@b*7*3mKI$`Z<{*#N<PVj-XTy#{!7;QbbN~t=C`oRxQf3E=MB24mb-d4@4%I
zwN@vwvi7PgjTp?YxBD8-LbeoAO7ZKTXOdsxx0!0*VJK`jwv3xZJ(?Zlt}uCiF}WPD
z5uo7wL@mX9&HaoM(jG-|;KaAu&?>l%_L|$v(RANieO5Z7_O2A~VQJ+iP5(B~QB|$i
z=*|vijvsWbgl;PTWrjNri5Fv-o)6!j=@H!nOckXBkBVA@37@?}BbbjDBI`Ty6-AO&
z^7^S||DrK5_;-O#ESe&=?Com<<pVkOZzKlY?P&00!+XT2vc}}LK72Ec4=IPZige&l
zZwPvap)T5fGECj<SvBWoece|}Qo*%Q&ljnBw5vo%0uy|SX<kq<+7GHNJDx3C{N4$2
ztq;GC<TuTs)np20+rxN~6XOt#Pg>{M($XFq^tt%=ORl8xhN2W3exL_++cp2+e^IVt
z9QC)WwK>p5Uri^!n(D|^$R2+IMUAG?gm$>hGdvB_yB|6Vm}jqz2_6qNw3@CnKX!xe
zdpgsTqcxHwZGe(Bv2taP3^R1pJd%<pgKgF*9Ftor>136m#keU%rn?ordbs#?+<Ebb
ziahq#(XkA{Wbm_dII0)x?ZHFkTiTU(Q-Ylv-TgddM1Lu&rA#mRYp~b_91i`Zv>b^_
zvP1AS<oP=`hK;<3$cM9n@e39FY0P0M%W0l8o#|T02cb&{Z=gtPX2d~Oc}>CTB&d1#
zHeokALwNs&4INCO1EnR2Jf<Dasy@kr7^|P>Y9pQSQ!;#2j4p0iw57auj_*hz>ikN$
zj`;DncShoQL|DTfVSseD=_TGYD!Q&OOh|L)p;ONi*N=y!SssLOy#T~BKT=su6`h>M
z7u#+*TFkvP*9amyM>N-c{YBQ{wh>?2e0H$Q^-(VrF;aC+hf^Q@K>hI~#cr^pAim2+
zzbgf$u)^bo#w{pFX&xD?5>3V59mRR7_mt4dLG1V*Qrni&qDLh<&zWmO(A7Xsqvj0f
zONQrZku1qWIh1MOIgY}F6kIk0V`ye$s5)E|rkeqeAN;TGZAcnX==Fo3Y2rv;DLoP1
zPma3GfqIC?kbH&fjFlQg^JSxN+PM;w5g<DJL5Z|F@h8T$LC3RE>KL*NB@f#T@7b`<
z$A(!s%gBB;gpx6C8R%P)=pbzjmF3L-_CwE}iSKSKm9R72bhS2FgtZq`FZVdvC(gnO
zW1&h9-gZT1)ZwQV8-5th$m3TnHq5#AziYwnJsP#$^F>kBYSPMMk$<Grw6R;hSCZJH
zbchRUx=^>4zZAz<&RSd`Iyo~W;g3dQJ338BA0KwgrXeY79-=Net-eXR*RN?qa2OSH
z8T0_MdO99*<->q!8!AdiGE@g+u*foArneol?Jsm++o>*35UlQuSss)4{KAgN5R;lX
ziySF0Ej3`4U^Qjn@2%l*wKR(Qct0zeb%`Xv;7K)H64xHFd2k3aRUf=ft2NBm>L<5K
zaSypD94Q$?TdcQ4rZi2FVRvA6pVukPPjYk5{)%T(=Kof(Bh>!xu17k|sn<!0-+ViW
zTunH)gW83IL2itB6q$*!6M|2fS>vk<`3^<?z|@3ern;3ab-(wK6yk36)5s<;RUM1C
zDhs4e(~~<{T_4-rG4Z^G4W-^VHSeWQ)8ij4DmG}uGTvsXeA}TQ&ykGkJyXl)?>wkt
zJGHz1Dl4z)w3vCgCxS(f<}4qgm}n2RxTwp^K92NZ4=9!bDRI|inrDF>5FJ{$_SW)c
zNYcm07qml*^zEXGg48SvT0K<pR!h3TMI%{6rheRKO}?KBp=OcV#dqy~11aC&vAFkv
zrO!7mHwn)eXCrXjtf~;P?O%_8eViAXMASf{y*h3aa3p(FqnNgd3&y*)=9}cd>|X>Y
zkT>elW6DstfsMTVME@{c>%sl|P(|ZvrH}lbnq=`cs=2H=N?FPdQ*co$#l3I(vb({|
zj_5#lT0z2ZED5$f2d(1h+d4vG<Pht)VR^OB&Rh>}xwP1_!zibhNFhxQ0d@Ep;BblX
zu~n+`mOQm$T)6)Ih=lItBvaQm#cL~jVY+NPJ-}n8Kcv(5dg4JwN^TWKfM<We$BxOM
zf6Gu9lJ7Hojfje+6GIUQ7v&{1@Kb#C{Ma`~TgQTeH~#}{bpKi=a4!kTPK9rwcc8&T
zP34QXCbkC|i~P6!F@^$J^$PUxE(1XoYSWxU3&Vk3N*ppe`nynPsNmj`Ft2*@n<KjP
zbLhqRP2;12`ixU9Nd9!DMK@}x8gmMQGukdta)3`N-}`d}?NjTok8%f4=TNwl)C)3b
z`d*#CN6j=)=VU!`&J{h)b60)3@F6^G;^FSi&0tz`PtysB>Cm^~MZ38R2+?VkIg4}D
zE~7NPAS0G(Etsm71KEEBw)tWojM#SWgUPiVRLW2{{OMz+<1XkbR4myMeC}CxJ0n#-
zww~gG8o!I!Y?bZ~Tj{plb@`)9H&0#Iv+l7sX*+49=qjdS>jOPAA0%HP7RtuNv4mto
zKi!CX^PQ=7D?;FZv<7$eCrD3*ZiCrV-62Y2=p0+=&+~a;bt2*`_ymN5V2``v2r>1o
zp-C_pK@C`@wioHWnNGjGqb?5QrAGQE?Y4QW0Wza${@6qfPFT#lbZTs+;E6fx_R02D
zawT33cxysSw;OV3jg>qf+Z;2g&+nIzc@fq2DScrQ`d-TxTZs;x$ti742|W|8$}~P%
z<j4j7w1w~8;ltaxmcjpvhMiJtE3dEfF`R2V@U$T5UoG+a^x=vxbL2odeHg%Sk^g{R
zIy3etc#Pe{U~(^CHWw1o89SeI?T52yJHW~hN>zPp5jIa@D#n}tS{3yatrGS5_62on
z`zRE@S<5`|r#86tEW<0RozMW}mzlMO!<OBZtOXM3`va4Ag;VufRU5(~oqn{U@-)QS
z+Ky}0&leW2E_;jmuFjxuUUfyGA&wj5I`2^wcT6j_Sb6KbzXqsNRv23A=O4zEV@oK#
z?eLSVdK@LPLDExs)JznSF&%s(f2RY@hk~Rm%C+n>r4gI%oOcn{Z=NIk1DYkqMhhUE
z4~8@3qFah24FaSI+QA}G*FGkd|FnEO{PwiEOyx<pjQVvtaiyK6lG$2f*Po-Kkml%3
zcq!ctoh1*w6uMD^cnL9>n^r}*arnFbIaCu_;SIl#n!LouJ}!LQN}PyG4HUEDC*@}&
z#gABby~A?pqn7{#heEB1LqBO{>ket>pFX*3wK<k}^324JZagm+qaIJ2>vg2GNsqtP
z{WhGxJaZ-AgVAUdNf*(FACbq;rO!hhcV?`Qjh5UvlYe~pwKY>#S%+pj<~plilJ+Am
zH8)?Sy#t05ieVLfg7O->Q2Kk6>H=)~BU)_)R|W<eFMfa2aAGxE!IEK`Mnab)^9VIO
zA?7<#%dFjFGX%Q+=KH7V3YjP=l=xRKaa*MV%L|SWKasUg<&&`*-?i9_P>;>#Sd-77
zhe=e>P8ousYy0U<=9^|R%ne6PHF&Sy(PK{rr5tluwci_DW1L=7Fem(tg?SJD7jr|e
zZH5xFi`RcZm9433n_w8c<U)%Gu`iuwaN?VH-eXB}Fkg*op`rWnC#soc_R31mvl#-K
zvtgZ%6LcQ23Y<=WAhesA4lleG2Mko}&2K}*i#O)hjTW9{H+rKH*_K(7N#9=Iye?r5
zVkO@p?6>(Nk<XWS#ItcqfaFURtC(Dw4%~1bMH98Jr+`GHwukyi`DNDL5btL6YKwkY
zB?t4rQioLK&QN1{%+F%=zUzf5iQ={8wW&koz{g!W9~7$pq{M(f*_-PHX9jv!cao8l
znCf~b=D)z|o7nPB<_2}Zo_druh2;mnR!e<{dXP$k+xP{`(8y#Ydy~EfV%+IwiGxdp
z?)+lp5|A!{XAzOFcJe_PjDhWA%lz25Cv0j4Qc`?}O=Sucu$x51mYJ7GDUM#sU)~W<
zfigh<mf@Z(YvQuaU2cgiNE-YQR!brFk?bfJm^2f5ZZ;b03srpeqhNE6yLOLu1G?pr
zH3Qg{c~OeCCLz>EMlOU*ygE^P?fDM_#05oELJl-Om!{Df8^Ry)T^S3&zqgz<%z`I6
zm$Es1%Bn>5?)~7>zN)koEt3v&46YLa9Y6a;BJQXRJ;7HK@D$09`BDh69nR8$eN%!I
zK7&GvAvHl@1-{pi``V${83t{53;hrtns+u2f8k41C;2-PateE)WbRxgRRsHw^3sI`
zn=geIi>R4(pTO@o(su*>*ig1GWEk<E9%;F;Zp<UbXS{avKR<6wNQ-@q&I9eZfD7?6
zQw#{)`F4kJ3I1GEV7mYOi#_>8*f<BKfl|_#)*PtioRFmAZkKS=&5(Uw87sL%SVF>S
z>zvD20`<J6U+5^ua5&Yn&R8S2Ng-};b|M{JFd8#df+OpsQTfHCY6|8_KB4&cSyhoY
zr$wkUhmlQN){>{fx|axi_o%1-d7-AR-O_m>%2P)oRogUD;b%^Nor0E-Q?CBiqBW0R
z#}1!ld&of0bvYWWGfA3ef-i^^^LCLv7!ef?Ovzbgoc(p=`kw;Ch@4E~G9j&<?QbBG
znS>xI@znAoUwXo4jFsBC8nTf;8ucO@LW8V^Laa0d;p9ohRcwiZk;2{w)F&{FNkKPz
ztIk7R`Q;V<c@`zxb}H+s%XKGO`(t(<n_iPaX5^cU4~zEV#n!pYEoxP7Sn{J6BVM_4
zuZ=_a9~3fMf{;--ObxOVFzWPZWt$Aiez&?QfA!hO%!StNm-B7;(Zqf@?s~#>n}a!P
zL5h8%`DR}awXik+*(aZvi(p&YJk7U9XF3g=cJqZ|ZHKDe;iYUorvqLpi+)t093Ge{
zulu17)qbvpaPi~JGTwg^=7t-%Z=%zmd?oS;)~3~G^p!9H-FGH0-xob!xo%Wxy)uXA
zsJebnKt67urrDuazhCekv|HrpT!@=Sl0G{bKYMdQTb=t;S0xv{Bvlt3SNfuVXuh7T
z@*w&AZWDo8(f5&m3{?4%pj%#>+_tgqMBEJ9wb=)J;T4T*X8BgL(G&*HKf+#RAxG9E
zGmqZukF3wvFq^kRO6aXT*X=A62u2(Dya{YvDqgj5O`R;4^hLtJBjM^<TZrS@)l#I1
z(U*3$8Epp=n4_xXfP_FTkob3gKdrdnE`Ro%AijjAI`yAG>5O0EtHC@<a)A6BpKn0L
z*J*|dgV@W5f1$xO&*ChUe>tlzu2_Qym#FX8Hj3q!Si>a}g$m1SZ|juR3a7diQ#xGk
zQXM+7JMx3n1JO-cn@d*};G}P*$mx#)f81#PsODE~55=CtYISE?5tC08s3KNKFERO8
zUhpIA;lJ@x_;K58Hzoc{d*zg|FcOG3>X!z?g#CG#@T8<Y`*lK?ZCW71_#8z!-c+?n
z+8`Pp5~`vsPY3p{Wc4iMYV8f&(1fYhswT<@t@#h3j2c!>%9HH?Jg*zDsmkLJ?HC##
z?xM3jC#Iiin5;iqtK$-RzN28x1Bx%nyY>m#7e-7TYgwjQoIPJ3SUnV9t%b;U{`v+n
zm+43{DM@L^Sh^uBt@yP~o7GZRaW4q)5H(<)B>8BY<A$G{zpNZk#oCxy4U2<YE-u@1
ze8xuMm0V|tTd=s)8a))_uJD<{+et#T^Q&%MAjli7yqC;PgxIaI3R2uQ-kD$tzb5ug
z-70uEWSy+6GP_ih6yjO~`Sk%p*k}T~BViE>+Lx1@UgYxytFUwrmP@!!Ak9xyJLS2l
zK5>_-O9C$ur5aNhDoc8-dvBfWej}Y6*Pr4UA07Pky!hjGuom^BnOPZc-gla@ld-w=
z*&=}DL0ithE`6&7A$U^ggC@fKL11yUbkqWv==VcNPrcj7Yh;i(#2iW8=kjjt`IBm^
zh|NLHBl_iJ;z*^dpJ;kL6m~+4`}TVXalaruTwg>#e{P5U^=m?Uabp|#Se(T8&s<d9
z>k?v)P(+b(Pn0$GD~w%SH_4|+LX5h$?&9;M)B|KXIwmQ0sYHqF;_F^>={RK;P&=_*
zSw@UJDIII0^rN~2Yx~&kR7Ve8B}B7!PEPJ69PYmGDL@o}Zgk7nP+d2%^Q|~snIHcp
zzvP$UK&enel1u_uAxpJrB+AB-KqbS+i`fB<YkrZ%v}jA{^TwjV?P$S@{r1H!eaLr(
zj4Nl}rcEhL+tE<ep&Z;6<<%SsuN3T}`1z8stj+3(@(@FVhkE~Y@j&}4Q5<SEYFZk%
zFF9jeL%pBdk;&IyWGwHVw|%;g{(0)z5l)a0>z$TTZS7(BzEZ9bNhNYABHvYZ4|k|v
zA?gd{ts+}1J-^=7e0R1@son>u>Qv2zz2tjx?(`5QHg<}$dZa@Lfx(I4g@zFlBHVdY
zB{0RD|Bm(QTr2F&3nh)kq?egp!mo3tU?)MXic9SL^Q=zOVnPF5BBPr+!q0QEWc*pS
z$<a(qZvAA`SscwxADFXBYwFIwyWdAPc(5eT1!9}mBuQ&7BiWbo+is_fq%?MJ_`rFt
zYrMww0@oy0UFV3W_GYLgdolO!>l5U1qu#fC?Mj`TN56nSlHU;+^ccaKS55G{F1tWF
zhQc9^a3RDP<6E>qP$m3_bv1M1Rdc#Ur&v%TyqP#qr3#Qvdp|U+J?iPx)(2KuxWxsF
z{i~QG)&4l(&G>y22h6&*P~CtCq(|=TtOx?~NOZBy$qJ#1;*Q@>J&1F8BhZ$OsYc~-
zEba^cK0tki3Ce_&A_T2G;n)P7hYitZdQjgi!+M|aWg&t}`N8|kJdqvsl<*7m{wDMs
zjSK<1?Io;q@i=bUiKyd#WF{(0odJXHFEDM*np;(@y3q@$+ju6yhxr1l|8+v2nwRc_
z&`Rv9#S#Y$xy0q8DAsWvzoqLLm8@iBg@pZFotsjbQoMz&6bl)mTl?-iE}a3oPe`+x
zHrYvn1`?JJ6A8PyHeAU}+^q1d&8}OnCW1sca+8>O*+vMMMHXVOLwJNSzE6~D;%2)G
zI-`4m*ZK-5iTO#xdO?hLh37iLp=zlGLKJ9^O-j0~2-9tbf4FKdjS#5bJZnZ0iYjnX
zR7#^J3OM?G;4bfxdHCv+d32Q2{TTiQOuh*Y_FoyI(;VMQD_A~D$pbm9Vt%nDSEiX>
zqC7vPKSCe#KZswKamifYNAgrdsE!>B2H^Z!&hq@u-Gsc?#C{XLA(d|7xcPMUf(vHQ
z`*`67JRY03B>eFA6t?Eo4m?zrdH~5P+#6NTYO#MxW<oF6ML3`wbYg_A>On}s3>7I<
zRSye26ayzn=d-6KscQ7|VZ!r#$@p=SUBBp(ZB~%>K9DS9k4?~fCc&tQGBNx<2rbv@
zZ^`4wY`A6vdxVU@qS?;Q1#L*bXoY;i*|CPFiRtEV{=J3rT{&0o+vhw;c*wEw$OJi*
z(*IT#oM=roU6CN#D2b8*rVWw2k^^L%nd{)yzxW$C&>oH&t4O{~zvrYSla}xGZ3YVg
z6(hf_9#|<Qm#&FF`f?ltVZie<;*qU>`!ee+3@N0~=+~@l7xRwPjuCG}%%tZ!!x*eB
zw8)+@qs}^1-9fZk+w+&98)R|Bp>bnFBgTO{q6>W5Z!LKk651lE)@{9J23`g-*Zb;d
zKP|_YN7`mxG2|cupYaH2!eGnpVW%_beTZ<-$J6!aIt0)}oF}pE_V(BN$RxBwrX?XC
ziPKjCUT-|wk;IDKfeID{b~q>391PJoeatumt!P+#xzcO6bk?G{Uj@Mv3wWTb4w2hW
z#Ku5L_mt@cfiiqC4;sVw!dnNq8HuL|9u-p+5041By{dF%%F+bWI@pBG_SJvtbm+fL
zct!TlNiX*YT_a(07*9?(zi(Q9aTO(G;29nj2b%q47fscojS0kkW@UjbWmo>)uXflw
zL;wse7s>k$HB#|X(>{;0K>K^qem)2SCxk224xFeTu=tx!V;P+-0YU%kYRakK))PLG
zLqrBU?y49)0Ig{tYj+}>hn2EnV0?S_hDPmqK5#H?lsdbh@p?E2FI*5Bs7$$7AA|3n
z=lvpkV`w}sA561otYYR1oM0I1@)`S6B8U1)`J^J0SZ|WUbv}u0lGW`)$rMVrjrsDH
z=7hKG1Fa!@p^jXUtd!+%2D@fEAJ>g3%g@)aLILmZQT6A8P`1QLyIFso26dECo`Fri
z!R@H_m4eE{muvic^mD#OB%U^N_PIv+dhJAdN<yaqyoQ$mg~b3%=Dlmrh1gN~Oo5Xw
z@~Iv<D{<p%qU1pDib+^kaKnA4#0YqT+`+0@4}Mcx$dl01P0m0aqvGI5D(^axR@pHn
zDwbVjy4g%pK5`sui_qPIDVb((ETpQMvoV_H;1<Tv%g61|0=mujn9)m)u#7_%%2MU+
z3!ZliwA%wScMe7Q+uzfJqr@~9+jSUZ79tds(#ncrvEIV7sCo%HChUvikj`f>fy6l>
z(K}U4`JvOPEnj2F-WJ3YC4U9;XXYp+Zl}Yxk0c@DHvHBv^}0t=|0oIR!h?|E6p9Ez
zc@B}^8VUe?w|;nEq@tgC((0^`kVg5nO}Wmmy-+41f}I^*UvWcnkeks%JXMA!HFJ08
zq#(zMh<>+?ndC8bX)Z{=yCRr-_xHH(+H~hvW?m%Uv<S84%qP+)9SqN5PC&?O6j$l@
zOupPmbnuI#Lot?lF1#z8X?dMRL?m2+&$uuiW&IqQGXOHkPt{TFgs%|T%JF@~b+*Sq
zAhC$>SDjYr&8$vCHBa5S2R6E|*d?MU`<Z_JGPXq4cl<y+l#G2S2{9(jUORZ#8A9?I
z<};XeZ;84ZhtSj<KFJ_@8zB_&A{c@TX%nS*(_^E!pkO!|3kSIeqIY;W(P19~vSO%*
zh4<cEYW%a1t6T<FK9Pe<R#`k(J-p0`CG=@(Bek`<Qb^fu5Kf47SeDV36Ncf}am+F*
zdqRs1SWe#`Ex$U{$s|KJ4eg16vrekaM$IbkD5uUARW2)?5XYX9ZfG-9MvV4npPii5
zGIkLDVGUtZ2hNUhZxORCUOA73gwN@wOg8S@ob<Y>Hue0rvFoAWeID3{$;9B}m^&1=
ztig7Ej#YuvX<(d{P{eXf(U0Empv#Q2j0ESr(+ID+^H|SQ_EeYY9)3qcU#IM0l1ppb
z!1b$w1NU*;81%3FtN~++HN`hFsYDUet$5qwJ#9vepX`c=acJ|WUlF(jyH9mOg;uR?
z9lS4=z?zF=1Hi+~trt{zBI3#~+(A%_?V|ThZ|@Y7SGb|jQ|5(T`0xYf5#hH@+g<C9
z1NM&NtiOM%{nE5s{3CXJmi-qC*(6bKJs!HP`L|ZL=Wn8hTOs65>KE1Vt%vqZO7T>n
zMuYwYYY}Yt58JH|m8&50SR|C;!biI<f=m)S<IN-Clx`H}g*#t^wcdenOZ!yCcB4hH
z&pZC_f!HGd+<=dOo9dmv<cu|c788f^aE3v7`Ex(*RHtE{e%Z<)Qf~Z7<-9obSv>z+
z*YPRU^nT>D%4|ng*T+Pq=+~Z!X!Z!0VMf=WI%l+=937TVzk)D~XN@wOK{p*uLJ%Sa
z{kc3e8rnw;PZmFVe;klQZqKYL&W~QRzALv`p{*NLADb_g!Sw#-vuSe0m9;w8c=`rS
zI$f3dpLS`o0rp)I+8bHH@bbbisCYV<5;DjeSt+~N!Z64I_F)3{WQtijIlBN@rvKWX
z$->IY`mgPog#V~*Tuhw^8N_T1T}(wx0SSvuVfguBoL!tu4Q*jOHUOs~J1<IL_|4YN
z9opH(_v}`blu!o-2LeMtt>$|;pu~HOhX1~1ocjCDS1K=klR^f|bG0eAuO@Bfd-|Te
z=)|jprFky}Q%FN|Z$V9W2(ArXb1<bU)X52(e1s2SC`y*R$f=y%B)31MvH+=Lu3Ov$
z2gwMV+<=hlP@p7usH;(x+`tKH2mz7SF4Y+Z7a2Y0u^Ks{QB6(eYWk~DwXABdj+=8%
z^&Iq&rc%IqlBQCS(aNgY0bR!(h=^40E}%N74ENLkYU46UXlO!GLC-m@jIe)W0-Fi}
zO+C4hxDPLl(;)<*#7XZLH}DDs6>`&q&VcVM4TFFnqJo~3GC1QpP52HddKUyH46wxx
zr8^;7*t6QDRG#S$c3{ZFgg3gm107}5?^V^kiG4UmPk~hr2f?S-xO^B&I5P)X2p^0l
z=m|*&?lRn_2M2f`<fuM#@IB3#8%TAqAIDDm;N}i^9&8@5?(J1VeP;y{{p~KCqSg*v
zGU#%ALn(!$`~0I>4r#Pd6M~L)xVC#p0s<I$jPCfQf`?0eOMnw5g==}nSjXw49xWJK
zDdD3=sU$!hL5eh=NZi|iP*Fg_F9bGV>Tn-XieU2@-P<87g`8Eye`I;7h)cuuj*RXB
z18YWD6CwA@rp4&wvohdHL@GW4uSz9hFotpsX^O}iz$_HaQ3?gHLVxe06-lD2VxpAd
z)19;lknnMif<r9+(1BH^A)*55z`=!{1nJNsMm2!BkU*3gK!d=Z8wjX@fJQ0JLojI>
zDDNvD9GzR1BJvVY2VF$M)U9qpfFx)}3~kx4{_Ao#FR=3Y{rK}UFSVOnC7B6=SH4i)
zBUtQwE58;k);(}>JC;SEv59}lh5VRksp}714kSGyAl?}-#6{DLgr11$QnN?O6LEGP
zYyZ(Z-OD!u-uEa3Bd7weLXJdNa4~?g3^m<!9_Es(Z2*UL%G3AkfZKGKXz6N7F7jD(
z&E=<V<Se<1>3#UwU6B1)w#FIG{arms{%VMuc{(hyMuZsqYyoC122-+i6dH_jO$j<R
z6eD;C^?{;5L#GMQw55$R2(yf!t%4A~(8zjcOi-d29g{ZjHf7+$Vc4l2WZSKfK;?lJ
zqP#F+GGsNbdmF;9P+KN7+%s*63!Eo1xI~svB6b7^Ub;I21d$c5pa|z$kgZ`#;ZFXc
zlBz>)G`MHI5~}FALG5Zqxtr)M;<A-AqcPb#e_oiV@CBGI`OAANWB)E3ha#G}q{WD5
zt&Upwi~N1)uxT&VE^+(<PaNZ|s8}i-ae_nn!Xny&&JcSaohcGoO(XbszLRKqHi%X@
zEZ{o_3kKA(hA}MTIM*S3;V1!f@8GBWuH_`tB*(fSfiwKTqQ5uu_GgJXGmHr%Aj?JZ
zHZ&s|hhsvO^FN2yTvD-6+2o<>qtY~BK$3s8kw;_WOv5()p`A8FJ=#RYv8~ce!ytaE
zOHUmcJ|Lh`LnW=y<D^~=Vbi1gg*Tl?lS3>j-%@F*q9RSkE$ke<RMe?4xM>zhaDA2k
z<#M+u4|(;h&*3_ZKU1rYcyYXL<kgtLfN=2kIF7#6?*I2_d~@`><NNAQ_nw0>d%K2O
zh8ixxY_BT8ZU4<p&X7+a9>dBEz=nmVntm<y4};^+@o9$VrvntZZaxD_h}&&ckH>o}
z=FA*CUHz#Gm_2#5=Vk4!8N9mJb0SL107ov(tfk5ef~zpR#*ZuD4-W4!{CfR0<Ci2p
z<JoolD{${&xi#yTkZ#l4HE(vq(yOTK#tdIGOq+=>0~WX8n)R&hI&kd<^iI>=HT`c=
zZG1UF&~R-zy>9M5Z>P6TGvo7<>WF#?&PM^xXxtQbI)kx}2#CLD1V{6<@qbI}HO>6#
zb{IZ=y9W8|I8OiF(Oy+6J-QTm{+HL&{P`4@_le>?>~s372J>-2wN7$pSd{?3htm(X
z#_Pp{GS*;J+B2y0<GMy^Q^yr?F*FODLE2iMD*ofbND*+Gzosva8;sMohU;2i_5V73
zgJZo|jnR9M$+_J-V0Lbx)fvuJ$a?V__L`x2t`m)irr{;hg#C4L@<s4;>PXA_RID|7
zK2>GW&m)z{YkafugFjqeCM8#13Rqq}O*|&6?A?+xtNL<d&(tx@*zcwCF@r-~tc~+-
z%sKjy&-7beyv)$u)yw`xy$CBa%B9n0$dM@Oi?<xkq6G0I%D{&0&C;pcz;HEr?W3BT
zJ7XcsTS#U0)X<ZW06zInGo~lkTYn6v8miN)v*bGQr*_jx?=}Gk(ZBQi;<z#m2XtA`
zvI61G>dTmU5Y7w&JQ5^OG3-VRv9`PZMJV>zjbd`Qm&?l)EG3s0&nVb-Ek@sZEBHE}
z?1PaGN6Mg80H%vd>frd*4YE_&{m=7uD206;PgWKjhdf2bLBKBW8=YO>;_W%&gqa<q
zUmG`XOfvALkiROYEmbf1$LX~VeH*Ws0qISu$TT~6Z)SvD>C5BE*`N83QmjZs;rKXU
zCn`TkvOC-PDiYxJcKwfeA4U@S{060Gu54PP{OZjFY0*mK8#&qY*V55jy`IRE_rM8I
zSt=|a%ZEGq<AK<^6$CAw-tt;`d-KK)>t(s;r|U^`L^=Kd)!NWkq>^gtcgSm^DuU~l
zA@Tzhrt@vW-z#{`$mhf>x!*oNoy%55cUZ4!>dBl;6RCKTZ%*y;`TSmRv;TTI2!ryg
z!R$!y71OLu4GW>sk1VbXD@_peW}k0Q(biuweD`(BNH^S^9Q*KR0^e@r4NXs;R`KaI
z{TPa#hPlCd-Kc-MQeo$y+H4_jT|Fhdu<0plO&!VJSehT)CE)cE114B2F^C=bSq4;U
z!|0CK_LdK9kMq_cT>YEVc9T1p{Jx}g5sqsS@d=yp<i!PD{+?LFkymrY!~C(h{f_T5
z8J=l<@Z6|f=&(>aM{XfJF5tz^tEWR}z^K|?J@3P4L$xoW2BbqpzzhbfGZZ9ywHqFM
zDFo7^Bw+gZlJCfUXM%kwv&KVad&)0))7~w0cm3Ud%>BpLYr4;&)4dboefH;T$lqx&
zm*3D9LpLxsH@=<JZP92V^6<rZo4Ua_DfYsF(P(I0b3nOPYzp3-`Hirf3I;6DuJrn+
zxN9Vkotwq*Z+4_0o+xE}#B<wHHk5Vo!BU8&efXwzn;RW49`(r~#UK@>l|5-XOVVfh
zkJ?uukPbb4JDA^l1o8gaISiGtOpDYFc~U7VN~MLZE^zmM7yVE?Y?PA^a$<<*6iY8v
zL}-q;zl2;+3b+C-1w$-lg_>noEkPSfk>oQj1;hsz6|uQ9j$|wLKcJb4h*<H&M~~=f
z78Mn3Xnir;a*;NnBr&+?&nU-aV<g~fsjMi7s4)-9Sk>sE@5hN5ptr11E^dj3GQs2+
zwv!P_NsHFNM46zMs9#V~Y(R(@2IBj`<t;;hqDrEALK@$h(?XLUSMRmN@8Li{!THe{
z-w;ZXat~ZufMATP-roYV5=kA@irwt-<$E+pDb5Ie$CdA$jZiN_aU3>_9T&I|O_UT6
z>yQu?Kd5yHxhsp2F4w5YWf)6D$tU;4tk%#8Wy!a17Ny%R&?Jxi`9c3cSp4DcJ?hfM
zl94sTTA7(KKhpT@cKWt!r_SQBty5waOfSEUx{3a2K%0{Qw#(0_JG_b|TFZ0=m8wKB
zNn3Y5Q1B(y%Q?xTD-=gB%(#i{k#N`bm2$oUzJ#531;h>&E!Bl7ScNRI7DK30o^Sz*
z#t+&=5>NnkwXBc^r{D?{eC8`+7JCPbm!J@DzkkLN;3>yinuPi)qK<}Wt+*8(w3KwR
z5o4lgR!B{H2|v!BSk)>SqHBcBb@S0Rq6$GNC13}u>~SV5-eU%Z=m*xHLOqTzfUg5#
zAqJ$1uvSZi$PJoA63_+K)E!{`<v`E^>IKNiav$oQ3%r3WpbPS#Cy)qSf!y~iE_y&$
zARYMOI$$O>paXHPnrkTg2QVvH-Whlkb{;-(5_sNYcK|ggZob&#umGrq7cfi78c_)=
zRQFOHHk*xPG}~^Xlom#Ei7Jz7#!z?5$T++vwzW+v8@z|HpFPS(6gjz#I3t;?4TG$V
z7^<;2kaWhAwFPqq78{7h!qC&gkO?c34^JMwrID9q0ZWDj$G^oQ=B)ExK#W9ZdU|J3
zm|8Z{1Ai_riD67%t=USlYzlUciZ<i2kR_7Av?8Tu6uOhOO~I7R!1Ax?Dq361qR6CT
zfKs|m1qP#7nQb7G$ShSDEKS64ECIDIl<6&uMX@SH1Et)jb{EBCTaxY~P)aR~=`Dms
zu?_&lMe*H5$k>)a_`tMWq+VR4%m~o+cy(Ky>@e;?jdWC}B;={u3u62924>6zOzElQ
zuQ#loEsIA!mE-sRACy2JvUZigynEt6lQ$c!_d%lcpsXYTo{kpiHy{^q3Nb(rD043$
z5o~#go4}FL=9LbR4&C=b?RdaTWQ4citk`=BjuKG5JhI3uJhEwz*Vo01N0W53T8B$|
zDwM6f`7~bL6v3XUBGFZ(9rlqF174^w&V0WJVeOx6h4w2ZfQH@rj8HSI|LC_T0}K35
z%REkw|J^c=i;L+$qwtv7x&9r5_rF->1#4}_;Bp}NzN#-7djZRnN}*8^LhY^HkMwOo
zXZdO$86L1Ufc}B#Y#cjfD6hDf57zanUp6|w^HM1_A306JZ2gn9FrfF17%86z+bWQR
zh;0dt<cgdc_pJE@>*Y)S@N1}}kIZldoEB{xHCI><3yraejK`NVh^!F=qTfLhIS}La
z*;oxS;5`i=Mo;iLHx7OI@POpf`2r&m6H*S2>H<0yLq2az?#r-rOb*{H#W>4yT29Ro
z7*jyq4>;D!R1avWm>*6M)D%L~(c>V!VM&0*R0`H$2^9@PBF}>qotWY-OF|8VjOM;y
zNl7z2HVP*MW6qN=A3Z6_<+!*EVK{V&aSVAK^$$|Qfut6Z*l=Pf=&zhO?vNvNc^GV^
zm9%1)Kndd%DF`uHf+lG}<CLa?#|vR<Y+W@1rSUUKUkNgjy!SY%5ru*TsS&7uH1p+%
z<t8H05k(11$QRV~ia#f$d>j(AEZ>>L@1>O_xh`D5nJKj#6Ql}et16oa$HX;*!G#x2
zixRL3JxCmb%Gk)tNeg(1X|P*|m{mykiLGNLGD5S^<U=5&d(a*evRojFf~6mn$Ti3D
zEe=gdQ_z}CnMI_f>Z=SSyJ`l6<R0Qwb)Yn6&2*rOIUA&4&x6JzFvj(KC77?2*Ao>H
zxmgLDjgn#;9wMg{*Fn?2HPnOv(S*sWIt??8RSw7y7f4dqjR+l8q`s%CBnkPj+)jCq
zH>5u`t!(iiYo)0&Y*Ka0BSUpkl-OgDa(rI56Yal09X$Op5F~EwJU@;$%_kuBR(rSn
zx%|7Tw)8l9vc6j%ihX>X0l$2ijo$A+Zhr`zFOv|;0SSX@&}Snvss%6tyU-ah1Ameb
zo)`-hVK8b0jG-HJ0Jo8Fq5{(d%@I=;U&Q6Xhqv13@%y}al@ouh`o2kM+syv_Br}lr
zyn{<NUmZrMJ{?oLV){uel0j&I%HxH~s2bo10tLSp4J8bI77HwF2Rsi}C4uSzvX(%e
zQ3Q={2_griy#SWTnolen0Bs<hVUR$sQWWR|>LAXj34$(7h&R*Lla$F7ejRm-Y|qjY
zJwJ^d8lgK^e|ceLp30S=P!G1n^y`$|Ees>CR^reSV0R>DPQB>f@gFX;=pNm&>nDT@
zon@CKj(+^eJy;!CG>7CN^#W%WP)m^`xuuRM4kT({3hNAMv^OdIsSngx`*B<&=TJIL
zp9`Q74&)$eP^0!ZH+p_NlN=a&Bs&^y@b5E1w-Boe?KhG^)z&R$32*UiQ>=m(8ifZt
zATsC%SwQSn?dXPOK%Y#6#~4Vmec~&O_h5|80T|Y4WgtV)27?)Vd-(t5ahjDPAGowK
za8}Jk>Xjl^;3&F0$pV#l%3$a`d!W_;@4g6}a||{&u*=|qWC+u&F5S(}OE3GYt{oCR
z&u*5}3G1J2H5K!btCfIU6-<^I;R-jR7O_Z~t2Bk0(Nc*{wUUs1F9mfZRjgF687@FJ
z3^2-xPQ{Y#t3`YUm6GdAMLL#BH*DuXYkFuU<j4P6fRT+#JtN6mmK&&r#L7yk=AY6{
zkTzu0nJCFL;S=2=ctD$x#A%qK#k|<$O93whK#v7wL6n0*RMkkP%3)4qBJ1*L3owf8
z!IbJkNuU3-c>BMJW&aDkO;>USMb1WjEZO}~q-LeJ%kc5p8``%0y>{O5b&0N8ki@MB
z<EO4+{k~MjeCOR<Q*+7Sw)c|y9L?aS60V6ebai9(Xagfq!AkX<(ImbXBA-OZuSlj?
zo?2%6(kcWHyJomhn$ytNL~l=cMtfWz;os}cFnS;)pT=0Kt7n=k!zvZ4m8(~R3JKFO
zFH@^pC3`h<1F<i4ARGQm4)7fKxJso;x$4F81-c<*(~V2T5!Lg9OIUw86gr|8-^T2i
zUa_y3(j%Rnd)+J)Tn+Vri<E2HOxh-b@hKO3&g(6pmMcEvVcM(oW}2~S7A?%5hQqW`
z97rt&@v=b?L~AT2^6s<ttHauUW24E#5j^qsDsGYVZ!_pkH5*EL=pUIMh^Mua{ym=e
z=i7_=46pk1rNwAYZzs#gfA?o{F*F$ZZ9!cI)qe<b7;LwF|9$&=9~;_xn=^jGt-5@I
z*r93lH#6w@ZhwD)tA^mS8u8A`o1U>N`01wiHJ9O(;d_oV{+&;zl&qFS%@$M&At%pQ
z2RXsM^{72r%(crEcR5kGt5fo#QQc@aqM_N_zb)(5&*y8gah2jTTd(<Twzam%z|i;B
z-uq{_M|g&k@1JLeT0i>G^4O+`JU^Ex6<hn6)Kdn%oTt?o^go*f`rowP^*cPh-e2dj
zkLtcI)*m0WsjrCo42T5ZUB5d^mBxTdz*%KDGzPX8^8iDu0N$E|(O99cKm_g!wR#FA
zF!!}Jqbv$<Acri<r&}TdIkf*r|F}T{V+(=bN;-Ug%xKI)B83UU0d>qrBl8ne8dY4}
zkoe?)k>R6EidOaRHqIm>N@396=ey{=n4NXjVSC}$6SQPMXu)~%(ukW#LI~oSY$hpj
ze}gF~HdO4LMtZEj?;qW;$EDq5Lj*`FyZx8aDma2`DKLo;o@3xR!#T^EU;eClI1d&M
z$3lY^T1i0RQB@g8qspP0<ER(R_2){r3nrsfk`zuQR2Acy<SM8dB~G@7if-0rgY}YL
zI27cQg(2Z4nygZ+GzoIY42E#9mgQ4kbz0=<!HXVN329Ee*x||d6hMmyPu(Z7i8(MQ
zRNcZv8W_H^LcDTxxg*M<<>)&|dB;f0M&#K`LMg#Z11Z7F33SpcMs0;dQb~j5gF|^P
z<k(js%`9j#i8;g{Ni89Btd{nGhzep;1p5S(3lE!=oR-kFr}EEyoAe2qjVVE82{V`s
zLE^~*qN>()K|2qeSXrmVKZ)4AGpVkqLg@^b#6isZD|}c@H#W_5NyzJd?JhjcU)2~T
z_5lhIHXra>{#dLy4YZ<s^`_xg<0;_Fv5mBnbYGOsj5}XmHVHUXHJavX(si_&bP(GG
zFJ>Q~e+}YyOfDxPv<9vjK<!G!O7E8p%@i+l`Lq!tJ*HDcdqV;mX#v3qU8Y3M0j7q{
zL4`vHcY2YHuUbnF=F-dgDf&f#enAbvx6$H+U@Jk%&T5;#w%{1@d0CysBZE8%PCI7e
zMF+C2M4&;hSZ}&mg0iU%BVwatv(t2J^t+IDHEi^EBCE7*q2?>`jxX~Ec(MLCzdB>$
zIs@fr!w#kq4f;>DS<bOjC%Y7rbM=4guP~GR;{O2<H|i_An|AZu)u0g`kV^7KpOQ<4
zEYLG=qDys-*{D-q6F2JSi%6Sw3Rz;Ni^3Q0CB-%_0V-@{mF``;lBE1JYNW`2ioDKA
z@~hYENHArkL6RQkl53EmINT$h)W8`rQ#P{HU<XJC8#Dtol*Y}#0oN@w3e-6imSX<Q
z2r~<`@RM#C#fIxOJ^&!Y>2oMWOF1iTCP`%RfhTiAyxd5C!tpn-(W+3?|1jxgW@7u_
zO?sIaS-Jjm*2~Jw#rD7bw-KB*T|?RmAN=}=)+_@)rh(#53LKJ4I7YnL2TQ>S0$Ptc
zH1i?Od$D<Am94Ecl~<xc8~>M-O*5e+sY;w%YTOTP+))wHRi|mtJ3P|w2?di3k1KOX
zmA`>?i$?qfcNUY&NqK9rut=*XispyC>>SoDN53kclxuXQThfl>GGchjsPqC+1-|+l
zQZ0u1aa@jrJi_!Z8a|gW@gGK^TA?)r8wbUr7lz{w%Lp{^IG>D@hJhu66=IzkvH1~|
zP9Bo;858@|ZKa`|lNQ3)cM#H{mTZ_h%Y_kwg?P(2HSdZ)HtJlOijXlU#c9|MjE*f*
z9OPrv$PVnhnr=LsnDmyNLziM}!rGP#JNGN_y4kwg3AjvI4?rbQJecE-O&o?H6PETO
z5y|gGbS~Ox??!BOtRhdgM@?n<=r7x@B3@fa5OL>gVpqia4(#x%qcQiKn%E0)Zt>(z
zCBtO#s>8t^nc>DsIN7y+KsBlmmKCzeVy70eMPtQG&SzK+Z_j6_rSVTqZuECVuh8<)
zi(8ZD@%@UoWsC%<*}``i8BOHRiVDZC_9xqLtJ~GeqE~#}uGqC65q94#s$>2P9RuhN
zR%&6h)!vf0b#s9?qQ3Jr#uPwlI{HJ*dJv44QOi1He_q_WTJ0Z}ZzQm2UQ6CECh8{6
z`|17OylI80!f5Qs?$<nv*5yu!J@Y|=w=yq})+H8C!iY6WNO94=bwXZvZ-Q4B5n}Ms
zyg3<!RmEVLBiDu`-+QKr{sb3yYSeljoYvRzrhTu^V=95)*Zu0Dz5k!p+TPEH-rVo6
zL;v0{s!es8(}15k5~KRD?&$(4<uXJxDrRxe$y_E<rs&MD>#zDfZ;$dnzn^{pPW=1(
zHR-;)-M)TjRXXi9Mx7YkZ0w+@_zNf1bc{Qh=zz<%%Z5U6%i|m<g^CffP9~5mz!YW*
zm{!>U!C<`%4tdt^)=Z;|`eq9Zpi>1Z46FqJ>tGDhFM&1kg^P#}$n3kW{xP5lT%}-u
z-UkD&_TQK}A|>Q|rQ2<|NcG|9%y}zzoGl20U=V8{HOe{&gMnRW1EEj};i2L!?{<W#
z{8nd_uAm32J+dTqP=@?291rN@<v!^%sB@@4C8Htzkvk*f2s%QJu6rmEm7u9gI(ThK
z2N!+CE&(oJI>$Scbsnl)?a+Esp00OF6P3SHmGtnsqPiA)iJeYVg2Fz`V&H$P4{I}w
zqFSub*kbf`DPjkBmNElXhED)hnNbT5U0%0kVbn(OZ~#}q0QA(MAO_26aPv$!*&qhV
z1GHft)jt?6CDAzaFw#`oC4tna>Oc&lL1=(hC;?2h0ygo^(ayAzTtS;NY99``8c>y@
zL0G^%6jT5kj0{lKJP~o2hxHGJ&3`QX3Rfl<I6#9A<0JzilnVs{xnRu;E8Xn=?Nwvd
zdb7;6?Ruc+E92g+ta&DR;04|wV+x{~&m4S(K@6w&>?Vh^GsOq3lF&|p&U_>JJIZ^3
z2$ft|{@U}fD7$iJL{i3WfI5_$g2ymfIJ+^~q?CEjsN5gG)&1?6S(h^N`)*Gq%NB7w
zCHFv|fKALsn}BUh{!gM>YL!-PQu4*2_x?{yjT#b#0uBEm&;jWG+=qezh(T}+lHd^8
zb|=+kAKGpQ;2{E((6PJ$(BL7^ozBPs(0IfVVUd6wu>W+7av*ZFG>|j}0~i2~3V<mA
zDsc&;B(BMP6Q7hsbGHLYQv&Fu%J<Bhlqn$$CQSd)@3CZ-+5fw1hS$0jpkehagew{R
zk)n_a+^5OL0uPZXP-cjie2PvaKdorJNA{E`r6)!_9~ul%5vo!^=4^N<;ZuS>tpyX`
z{TtI|9JEs%c^w~CcTmQMf~<zyEKaT1p4vB7k@+G)rs2AXUoO&}?Nu^dc`zdz#iIty
zW<qSVw2>~YGGTp!lKha-4pwQmL6T}=d1(4G{9t4<J%Sa+ri3^eB(q)QkO-(wEO1)q
zmnz3~yfkaCd*d0vadyN3Vsshh5`}$c^z)Q;>C%7#Cn(tn@#)fArS*&+%bQ%#df5*d
z=@O+~X4LbZE`62CdMwFjE<t^gn^DsB&dZyeT&VGKj?*GR^7Sl<XK0wr(6av`E&+sz
zb1FC8OD-tG*_kow%6bwatcrSLr2j$AxJN{xty~X_b445v$xx7G(XjqSn4zc9u>OO%
z1OcqjzS?Q=hXZaJXc7%;<%3n(K;w2%rhKX^6alpA)$)W{gts+1^_eu{2SdG1Svts|
zS1tw&+@-G;B_lwcUt_Ssyy4Dh`DXTV?^NUUgMjIf3wR-ZkctNMV`@K1mBjbNfm#O<
z*>qVVS2OM6#QcblEMTWP79gI8i060aG#!@6<;rS^D4fNW(;S{RM<|{69f6$J>O9*7
zc$wS6*I=UQoH$h{V7aoWkArdLqI*%hXqB;v?EtU46H0e>;+|;|rV=OH1T0k+&T%lB
zT=atwOsS35#aO?}!-yo0dUtf<*xnK)y@`Vrz;~Rk5wO@<+{1vwFtQPljtnlGZi|Z&
zDFK5ULupssKsmsZ`$_Uz68lS33?5WV(xiqLw*S|QPMoeVa9mkxIDzSds{cjsfknFP
zww8SUc@jWs?U_I;7QI<qI)$GoIZ$|)ETPtDCo%&YC6iWs|LQh_Y=B<i0O&RVNS_(P
zDxhNwvT>tMkybr>bJ%8^x_h_0lZ0NPtxfH7gF{#ci<zG|WdDOM%`-<?aXmEU`L`L@
zf6V+_(N||K%>y37r@e8G)Sp8qeZDhoI;*yOvwq<`n?eQyhXEZ8^kSn~0KiS6{DVue
zpy<n?>)bV4TjkUC?KH2P1;{8Fuhttx0uBFF#Jh!7(O|97G#vpMAnh85yT~|NwoM2P
z1h@nskogB@3Ihj#DgO)Rh6Ip)*aD`Z+>D#-<AXVLlS!C>I!n3$buu3Z^J%M5G5{b#
z;!tKh>qnQivJWk!_2!c>!vGZ^ZGyClsZD&92>Z0!m{d`@jc1hz|C0vL$5!L3ua@bf
zVC7J3OB{A_QSBlXy%3|sJd`F>c01AlT)vZG;GJDhV86)i%D9Kfoz>|zbx<-4GK3On
zD4cNoRXZ$p2ywZQa7eyK=jqMhiK_D{6-40!kTD~*ctn30uK-rm#NqFL39DryVUGy=
zEuBC+#{vQN;!i~I25j&Uko71K;XoU)z<dGrLR}oPn)Ds-w;n^If4+qbg<T3nnTmky
z*3*;>Dr06zn8XTYI9581J@*Up1#R~zWDQ*4At>uvAj07`a)J3G?4^AQ#F>l8zi?LV
zdbjv!_0azr_mmAN<EK53fTyS!Jv7^(`mzv^m)g`8M<%^chNDv{<Exbbfd7{)5CM!_
zn0<NfGBW*RMWYyCTDw?fPcmNtz#KCJS-XVgjWnll=(QwL+I5M9+eH7<jQ^MXQ`gEx
zcV^3%iPk1y5RV4=-7Ewei?WXMPs_PiLF?o~p{#T+P5(XSNhgi1Sf+}G+hmIa5uI&K
z1D%9-t`i>Gxs9>gb>sjB8uAXL*+&Ip?*d&6vIdF`Q^o&ackmY`n$8<8X|-D=@u^MZ
zlQ91;nf-_RH*q2EYfH*bv`%QnOQDS8Q`Y(a$s+JClvVpwI)Z<Fqx)%;0p9Oc_-`cb
zD##6QsZEdFRZ=^#t4H<$(3t!_hpKVU;&5YGJxWGgYp0yr1C7MTC8*PcE*q!y9&%6L
z%%gpPWEU2o{1<rq6{sH*OlcY_!hwiJ`d5akPvXvVYdEBp`wjGkF41^f-UfQ<$*4JO
zLKrN}Pa?~<JUR4+G}1Dq;}@*eCa3ug&Xt4aWVSWog)mYhLs|^Qi*Oct#f*mN$X^3b
z^|trUy&LUT+aKs`bes2-Wftpx;(~mWZagp*JmqlGXoWVF1$)*j*8>l%54z_&)pgrx
z*M=QTi-S(aDWUr#aIyG?RpKI{b#9mOIgvBj!VyezFc8_sSyfGExQ8aQSu=`KDUvQR
zN(~YP&Pgww1dhHxdkQ;a6}iPd%>D8^-HD-KC9?|+<Wlg^rzFD*4E#DP$|hS&6*}Ch
z-lff7ME%dFdd?V3@TQ4#Y+4gU9oE#yBKOX&p}l-($!%FuXb&oa)6I#Hi0_ank(ZFL
zkeiUIwh<`Yp8rp4UjY`^vaB0ig9Qr=9w4~82DjiAe30NUSa3-oXb2EISa65IT?P%F
z;O>Eqy9|T8A^Yt6&N=tqchC9Woqtw+)!kJsYx?U|)l+M&OTwnMnEW42Zs=i3bF{oT
z9M!$5>1`HKc7pWZiJd`m>I2*6>3DwoH8(vpfh%$wX<~PR2H!8O*F-4{_fq>GK2d)S
zdzclt^FAL#e*y4qG37tK(#c(l699~uW6233_UJ}|CPUbW))G(*8M~fi)hmQZqs4qo
zR|AwBEoAK#7(muA>z{<=676FRit0n!5r-{^ri)d<f0U)-Evmk|@aHgDknExaUE-sq
zmClg>_SdbloWX{Z-;*#Lax6_vz#qq*1e95QCp{M!tH|U0;~~q6ddvzmJ2IM5u@RC|
z>fw^o)D4tvG`ne2A`VS1)ziV{6sp8N;E$aH%(%J%8LTH}ic=EPp7&?n5`i+cPK!Z0
zRBG&7W3aesKV;kG2=}ddrA>4y)0wS|6v%`uOTnT0&qyH=j+LXVa`CL29&pN>L`k_f
zV}W}IFa9&v7EvCl^F{Mu5iY>p#R}J~*4A4n6sEOU_M!NGT(b7~<QeZ#59sc@%XS87
zVSqO(()rZ+_Z=##DB|v%sco$+QsSjzBkZVv7s(<&-*57fxvgzo$YIySXo8j_RO>SZ
zefV$uA{U7E<N|02N@XuL7FJq$y0p$%=JcPJ+>n9waZ8fF^_3{_QG#tQpp%TD(Z`de
zKsr&jw#zf%%vqpBs(_rAfp;B?F6e8!&$A)Y5wHFjxhyr87IVh}XsK}(?Zob$O_WE<
zG)L0s<8$SXPkhPjl?YLZVesbzMCoR!`J2z8t6j~I;IJt9_7bx&wzXYm>T~QQzqCkv
zVa$MA=9G6EVRd(V$K~`~S5mVnh1fJ>+)CfPjn24$kk#!)$1K50sHQ(kq)x=7;7=PE
zlvKdE*6_xjqsvEjx3UkIO1rJM0TzxMDy7#?_)b!!ukwA6v3A>U>n7C^ztAsrar+_j
zZSp&pE?Q&kOhy)yHx_JbZ%kHo32pb*yJ~*Lgf%+q)BnJVYzjOi2x@XXBv@%81VMGW
zF(upPi7RF<WFR#M+ZKzhMLZmxIqkP8?*s2ns5<V>k4*2wvzoWxJ|wp=y`?gB+HN#X
zUZ8gpu(KV0naoIHZ<@!|;5U2gD#DP`I!{_N+^^X^<QTJ1y;$L5n7qK|#9^^*H*o<K
zK{JmWRi4f9sq6jmX`q>{!J_Y8AL`#kF;UN26`@^NZcS9dV4T%aB{81IP@0c#`$mck
zsxU#H7l&RKlW_X$os7ZEtjzamlYqLNo7-q4jfn+wn-@B-lNCsA`Pt*xuiqPCN7ok5
zjbG7u+L?$qbfi1Sbl*N8!S6o2|1Wk<c)9*QDpcLo+0w%T9^?5EWcgOxN}r93otKlH
zn~MqlB1aE*8)w&-I-XY4S{61Q4nCe%ww6F94sBa^2dkITGK$o4&aUpRKqu<gKqn8N
z0~3dqhq;}Vh5Jh;4rzFRs5@L4Ug=}#s24R0wGBM})YaAMEfa^bmA9v}tEJmZcq6|B
zZJnKD;8N5tWrVpoxp_HxIR&}kA8u|IPHsj{PDZ%gYiG;<NkrQf2m)DI!lPAz4sKSM
z9O~M#`s{KZ4i4r(C#S~|YTMYlQNzD~j+B*J*UHrm-ZV82I~Ok(pAa`c9~(D2|6gYS
zE^nnztz!GmiW=T2P7WC>b6cPj6SX}E=x*a?1*CrWH+6n?9(Hb~$GBK4C(FlZTW%gM
z{{P43l#syxjl1Q92Xd=eIa#~gQ1kE!3H+;jQ{{$3pDCK2F2PvrQgLG6MG!J!kRpf2
z8)tsEAR6xCvBkz7_Cl?)j_bh1E!}Y^^6+q^Hc2f0^4;xRkkFaWCC+grTzO&erPm+i
zSCL^=idw$k{OyI0)$6mp!faS%j|on68~H`2MpW+G9rAU2tkmp+UBgC9nD&p>I`;h?
zRe*hgY#&1PQXH>ek$$w@kXjxj@6PwMU_$?BwV~S#HCyr`MfbHcWJ94#8yZ9bdpYR5
z`=obOzI$9)J+;iKls`ho<@)ROcbCa#MOjiKt7mL>;@C;&6dQ9a+`_F>?Qe2pxcRND
zr7vIio+!=LdY?<B;lxOK*~2<tUb@m9u~hS6{qPGX8~PNN?^v!UL+!uU;<HlaaoXPO
zZ2a!LuK16UR9<xd@C7gO{M@i<M^Xwef;4_q9CADNtXFkA%br=FgUj%pntou6CYSoc
zK^33AVb$ES=Z{Iw6Pf!DBYwrIk!@B(5DPp0E7{_&Jcc6qyw<s?4dW>8yl1+h77a`<
zYeiC*TJhlnZJk?33UOL4;s$u0$*n)LjH-#fDSNXbRStYkx+UdLz3jB?b+vP}HKH5W
z!s#4Jpu17U=_}Y5RBqaf)!q91>K;+Ij=6O%yxs}7)Vl_<HZrZTwkC>urt9e`I&7Fv
zk%x1p`+Nc?QmOpovCVQx(5{_(Qc23M=Cp=+hv|c#ty3m#Y2KyMn~7py1?JK^?3eR`
zYMRpove#mee4YEzQ5Ptqt-3Zz;tqAs7@A}BO#Lr*FS3^JkI#XyZ4Pl!f7r=V%uyiJ
z23gFEY3|kW%t8JeV8y`VutT@W2*p<BFw&L_-&wGu3f0Y?Ugg8_VVEbCn?m7CN5I9N
z=?Z$5ryDTd$3ug%zRH>hV)P{ySYTPf$!Mo<X3`UrGI~_`<fUBvW=}XJeb^*$l;&y5
zgo6%VMrZ}`GC23_-R%whKVkepl!<g*nZGA|uk}zS9*I?=6OyFL_Lbg~&RWaE&hrpa
zPBtGttdvn*PPPbg1gmk9lZLP%SkyI&igJ#2XYE$(pGUzC0f=XunGnQt&HtpwJs=R}
zNy2Ad1pWbr`2kEN`LDz%`E=PjARYn(J|~qa-6wtB`Q3;?x>W3Rcn#ZTQwKuxTbBSQ
zPv5T;6i!qPK<a9@Fcj=F6T|sn$FO+6`r7qN<che3XN_Cw$;cH#-d0uQqiK+3Qy^$i
z*?@n9sqoV%Q=xkgZ(%w&W??!(B+lU=V)vWzBv`h{MnXXgoPa&7)1TEJesb%Y&Tvs}
zX%_Kpoh7<sb?|3$SYjF@_>pm1h5%=19~nfX1V+5>0mBGsiP8oAk_FJHJ;CBy`b;fL
zsGG?|1?gy$B_8}BRn27GGEe7oV&!uZ+<vne>XxYkXB2;6^L`nQa_N@=Ro}<});*CR
zwidbFj>t)GU?8!klZYSt%ZyU?)i9Z&7cFWs<I3~?wCDWTG5d=^lx{{T9_*~}7oN2+
znLN?-Ve13>HyLM1okWb4JBU5r?1Ri3-`3L`k`@KG+1|5^dMmF+x-Cz9U>=1cXU5Nv
zaAJxX3744(Zi{t;MkgFY!8aoGrEZz*LNcS?&8c`o-np!j=V8iWDCn-E@;F06RJNwE
zZsOd6+kTd$tF8Ob<vd}CsI(%U`VdlaqYv*(&DE$ukm`n-wnni7Vk6ja<|WFZfA2k;
zWcsP3yM9oo|4+Fg>Yf83BM)Dk86gfKqixZA-5ynwH|ZKiRO}SQoFMysrlQ^S<XTXP
zn<~_QJDnhWH@$E;vLs#}3(p$6j-5;JS3<7Gpcano6qA||p-!RbFLmt<SJjswTtICn
zXb{OZQ8G?&W5@1wqqxD>4Dec4f`DlCjeAqqVPfk7YFUFDPRt+YHwS-IxeO)p?;9#E
zJZsS%uYhDG)>?xt=<`?fm!%pi@e1R^^{~(kb;eIS<q{JH%+r(xEvgjht*T~ozPRe|
z*SZ>xUf1gD0xjH>+BCz<nV39#`w|kG%ng;4uE9+7M4aGoD~*n#LMu(ZC;&`D^8~R)
z<9v|jGAC~mLqtP!J;Xod@T-2i>mq2|CCdr5dQiR!joy(ZLF@$)qk2S~cA6xOoTe?J
z2dUyND{)HF!uug6ltdlW$jHwH(Ged$7qErXhQo;k!+~Ui6))5C5^kl27-=D^jAkWa
zjR6g%D$cS2$B!4nPmB6&#wjMvd6zzFL};{^%lZuRcqG2f@ygxVm)w#2)!gNxTj)lC
zLi$=jKEafCiCn|)=Q|kkjF#P;ZYupQ-&c0ZqG_9Evv1AW2TE*q>|d+Bw2gT4e-<^^
zbWnJSP^>v7D(A@LG6lYR&ycZKWNp)t^D09YM)b6V_3Np_q`tcbhGXGvRpq#Rf|UV*
zJfW4rppizmP4VEzK_z8A_DLNwQ%{@{=JI9nZWz<TE=#dI4TF_xQFpCRG@fi!Qj%CC
z6I(ebLDPT$fl%}7^60FZUktqa=i}$X*)Lmbc}HIA)Fv2a`;31<|MqU2o%UFt^6q6T
z#U)npRkCyMor3tdx5w9?dfQXzs8^-<$VsL6M(M94xB+#B5^fYO=_c*Z;csC<HVwOi
zijkMX_VwsWt`F>b#MU+YxmcX=1+XaOUlcYtqZ&gLcLosH@sfoEO3QJZ)BE1mUA#&r
zy1hol+ZpU5N0vKCS_k}0Uv7VXP0lH;N3as~{6;$%3QZ%48qp(EGX$5}*=28wJI;R)
zZ@@{SYhI+wg|3ia9P>vk86G2nvIK~3`9+;isXlDKzFsREPCMRsv)scpso2r-<OB&Y
z)^;<NamMg);JO^L@`wAp<tz-)^6KaprMP#>c}v(>3hc$rHnCqIC)#H<ysgF)qAmcx
zxJ*iJUjzC9PW=t%PJQUs_G${7<Z0cTgl)&hUi*xCXl2qw(ni>j?Zk=5JOTBuUd5OT
zc1b`8w|w}7`c`&MPR^OShW1ZxM=4`jYpmX1MMcX9Da6}GsqD^XnO{}faz611{jp19
zCJU>@h|ji|N9JD;cSKBc6#FO-ZrTtFAF-Fys!WOQn_w80ODoqP*&Uy+#Ym`w%UC%s
zzM7?ExSM{0yOxz{Hzs9L@Y>AJhrKB;c?YuDY*N4&FUaQKreH7rcJq*y$hxkfSPLvX
zB`IX{e1hQzH=OyB&h3cE=E<x6nRRdeh*A<PoG9s`TPR%EPGM7d#-C>Ziw;m|e3#Kc
z6Fd*2h`j?&yF_b>g?;lMzMD^2Ri3m>%PAjQhz*z~x1hyH^k3%xQ7;bq9L^|qgwX3l
z;TBM3(hp#m-b=|nzYs>laJm$dQ?FSGR=|x9xO(zoHlsilvL|jhI8qasDgcyK%HRjS
zid0DhXUZHsQL(REnz}>nQk<V;LeDBdK4`=oDJT}XEIz!lAXl@hqFT8A%wAu1yX+EO
zMb+P_P1-URHk!ssHPKT6^HVu%J`5>QNt65|V{;3g-?J4B{~7m)*^SGqg9!%KHAU33
zt;RL=7Lq;Lo|W`cvW~zjjy>sY141&{Yz4v_=`p+DFl}qtQq0Qzt~1rjJuFuUcHiB9
zwBmn#eR$`&wXY{zU9+uB_%T5}U5&61zjsc0jB!NSngq?~+V9~EcSZDW;XbgLS+wPo
zbVOzhwWzu%NOaOGHeyI^gK7Y#j71Q)uVGP3j4MW&DO5n9@hhu+Y$GO0-rEn#1!`nP
zC`QgBh*gr&qWyZCzta0kQJh@O50w~`l@MDiL>eDws!mP2PK_aXVe<^ih~kT`O<43&
zupm6@DsfD@My=qo8k>M!NYW)}{Yfu`OI{zEb~tqH>&nEFg%F8Eh*m^qITOwjXzS_H
zNs@JUj^uD%_PzwQgsjLe)|jrM*+}Z{dg<KZt3v|Ww-=I%L0_m1X<3WylV_s23&>>=
z<B=IKR0xceL-L1Ecu(b?PekV+C?O@FzI<B2x2|anYjq-=SF0;m6Guu!Wqzv7_T33z
z&#;_YFm|)1e!m8#gt*Ayn;qm`RHK0@tVeBxWWo}q?#UFAHm<tZ_d|T$O8exyY9VMG
zgKrI50cDDh875PHtR`70QO~{0lya0R@>i*kOxh`O)R;o~v07xMzuYY6IIuTds@<i+
znL<)BwE{%cue@HKfDMGZdAhQe1Fk|i_$odNZYE0yK%qGb0D?i9?DV4#{f%Ox!vLAZ
z?0O^GLp&86$fjl?&O9{OelWx(qDUGDg_5&9u#9fd@O~-wyEHXcG&u$g4rZ6ByfU$&
z3*$ds*Q(gd();AU&Y~WY!;Kb+CyS$DdB2aFZ(Cg|n3o`}l!_!9P7_AT9W!>n#l;u`
zz#Po}W`rbTLmh_dnm7i_Qyl8iphlnDBtw^i3MRzl`)w8CSX3iQvk6Upp??yx>Vi(m
zA&yQ}egA7SzM~UgbAU`xYG1JDb7IH!_9v}6uJlk{R~veJNzA$pb&=_le3VXpAuOTV
zFVZYcKa-6=Y&WpulyCk}`iqn$CL7KO+i$5W;v{bVjhK{dvf5`dhyl0<XyX4O77x{V
z)&+(D;eqV<zld@MAjb8o6Z22avg|K>+SP~dN1e?L1bd?oF&=u-cJ>O6Pm9ZG>iC>W
z`5ufHhCDnM=8iJOXBW<I!<d10u)qMHd6S3BgZ_q<hwG)%nLsX&yP)b|v{Sf!9$4RU
z2kXuY+bJseai&)$pDb~IU0FEuaD7ZzY1p5Yx%|+#F{^Y9<B%WuMg3oT_`Ltg{nXdA
zdW*@S=wu1^#SJ;Bx#144F(!wWtq<J0h4Yvkdenwo)I8K&@LWx2XZOckZg?%4k4kTy
zACr&U29HS@YC}<ODFJRNUQQt%At`A=ZYeG~X?Ttdmk>9Pw5*Ucr+_&1|11J;>2Izt
z9}lnKzv}wZ&)XKU{`5&cF=@LJKNB6>-sky!z}YjuRw)tc*+m=bra7{ZA7O-2;x7ck
zNxv*gA<OcjBI0}`aL6V6iK}Q(HrQEigHCIQ$MorNWiL6b?wy{FUitRJw1G~GNQUb6
z!#j}-Cq|E?dl`8ah}W(=v3vuT#nNc{vYkFE`JE&2aHtR`$ri*<{|OclpEZ;oOqc|5
z)kk0f5|xGWfr+OfKC@3w+S1H;9NsI=VlJ48><49lvEFr4&SJsLBmhCdAi@GOT90v#
zzC@}I-4&iFWoXt0H{V3DFJG!byc?g)tO_p%p&bLnN3c)bKd?K5=7MlWyHUIZgV#t^
zIsqwYEI_`p;Ak+`Wv4i(b<IT(gJg|+F;wIjbs2(2;)VUW8$%GIqR5wQwDXN1T1E99
za|_8Dfl(+6{La^anO~m90apx*9~MAphh1WgxN=1>JW7a#7oytQbJC7OEH8}8Rle5u
z4aYdk(nizr*T`9GSbkRT=QaC=Fi6iJag(WM8Q0&GPgMw7;x{<4wmSXvk@w7y;9~?~
zRCGP{LRMQ9Y7I%{`QuV#_1oPXm>8#9Ll9wmmDcEe|El_(HK*H~B|A#iC)=7r$#&27
z-?xFt54(^+34;hFYMeZH7Frm6KrUA047CPf0~Se|B&AmE^?U-3M6co=WqK3l6U~U^
zf6n5@l#fVuvHWjJ|3RU7C>1spnuQ(Ql76Q<i|}&^OAADx3Ze5t99w%fEJ#L9nhXJ?
zV8w%<0-V9*0A~;)zz#$_+D)IL2-D|rOE_U%FxztP-$UYzKZ%g%`OHwAija0;ZGpWQ
zr{tM8PEqVG&#Yt7#OP6fU)Y$FN<O(CCz>qZSze-DmygM&mN&ZmK)H~Sute&DVp#Iy
zRAm=%{g9P;w!^SpsGy`{STe8qF)3MddozFbu;gHR{*bNbig`(MCrPP6yE)&7#W{bp
zZY6q2+qF1+NFE0~Da0}XKaGP;+N1fd>^iQ+UxsF7=#!b7K2`dm!BqzGZ`f7}N4tT3
zKjpLfR@$52G((b2HMgO3ZnN&4ZEik*Mae>Ihy#cvBNOYeaN-Pzz#1Y8CQa(p)JGix
zqBJ6@RU$U5?Z9XCVr=0|H!8?Ja~avtjG(@Ye-=l?%zF2BIHp%9E64&Y;&H#&f1S2)
zb8Z51&RWJrTcrkk=;lO`UnK;nWgG=?;NV4sdv9T<pckkWj>c@A?7Ye9+xf~+zya}X
z{30v?O{*HvX+)h_LtP9pG*eCGFH~9i=nJBv?4<L;R$FBf4c<ORH0fgTdiu6tr@_qU
z>peP`Z9phTXA>YVJHnlGSv+sFK_7xWQYyV3mX0e#H7;i9(@5<Ra3E4eF(CaV>;<kO
z<rh&)`|s1St!p`x(EG7|%6;4jDp&DMKZUCw*H4QnG({}mDoldhc5gE}0I+efJm1D=
z?~qERQNyrtcAkF`5RDa<5F~7=61MbsN!<O+p%<EgVjoH)*8My?@JM+dh{07GLh35i
zirD(poBWiYH@(}w_zX9I{qmcO!g6dYjkok^Xca0D^nEoJLKFPE+UEdnLCeRC)@<yj
z1LT_gw|192C$Aa8s~*yYJGeh}cmS~(I%@@mNK{<o8JY$@7Hf?~MkjZ1>*KJP(f536
zd!Cf1>cYWq^3=YQSEPxO|3k5>>*LSEX{+j_m=Sm}X0dVrUwneSJzRe;J?O(r@me6P
z%ly#}UkWrqM23q23lKo%D4ubRFg=t9L_7?O-(Ex1M^G_A9SRz-2T?c;zDmEN;Otjh
z4u-*(m@bya4B>}+G#9BPgm_$tf!QgOKAuW@kmoU_xV}|L%uMl_2>k3BxT_clssx})
z!Hh0jn99?``JP(cr7B*B1(F%F!=_*R+vnZ4PC_dm=*7XGc5CKM(TTP1dcnxo2WJc0
z4P(w(E8-pgQm~LqHs70&%X0slvdcFIQIdgJq}lL-0C+*Pf8bUUjIo1iyX#MB{6CJ6
z3ScT%sfRpEj7?*9SwF<H{ju8bizjXA27lLuao{$$UG3~K+c9jI9$R!?nLh~~t0FJ;
zAL_e*ZB_?YnG!GcKfT$!nA=@ZwY^o{x6gi5fRok-vdwQCX#RGvN!`9C?$Jb-3aQSa
z1mb%jfVn4rk+F$tNT+}$OV?e`uI@|p;Cdr%Q*}zYwxg^kJ=)Z5g6d=yc{0&|An|9>
zAH{zZdzBLB*WSzS54q>NvlOs=VF_SiIke->AE=sD?PC6=d7xx#_@dstZoT?1Xx0&B
z6J;lIm+QlkU`x;ZH})|h>*(?RhoG;O0n>yMEpweg)o=XNGFGyEsO*DANcOtRy2`rt
zI?LKvHJMf!c)J!o*77Ho4QoP!NSG*~ae~~@I->MH^xync?Ja4?vfzvx_q?~h9bxty
zWcIY991cSP<FO(ZzAbdW@96D|GQ(i~_zO&+3nA0TB{!qfcT{x@Wdl=9=eu9{1ID_1
z2D^OhMD~$O_lm{9xHw%jf~aVk%@-|IM?gVD`88~S+RpOTx)#e>@x*yg+}QhH&`Fd=
zbmCntjx`6R%8EXx<TXsAkB`%^^EJ3OtNE$tD*GaQB0iz)vhczjTSaLN6);N_u}T!_
zU8T;1nB<>Bx7T^$_qrZVS|6A3A47s55Pc<yi;15ZD53tGbmttmwzrP_AfZ*)&R;=8
z2;N9z-bkou*f>cD(MW23NbG1vIJ(`!)b5gh1pRm=Dvl>C_{3i8=8&rY>Qv<T2OsA;
zTqLs<)d;5%0G3#Fm0a$em<@s;1S18Yh5C1Pt(qxG+|;;iZmbqNg2+-R@q~XjRD_^`
zB#x@5d2^Ch#o>&!jGFNDP(entr;5+azH_=WcNP8(sz$Iv!u<#@)a3R;Iq~x1$nR)p
zz)^#D1Yrqj`Ky=H?bq>@>oa~^#8y7$N?>#96L`$g{7p*-ahm$i;nzFP_pjWaJCObZ
z6l{|U&v_j8<t(IsgN`~{$qC)@5eWu0O!--2gs|%QAG1Y6p+j;m{2}~u<-j^%U3S@A
z{P@*_^!}bpBTW-cQ(Uy%4!^s=BjnM;b7N-!$~(?WF-WnC@P~-)^htY2drEt5oHVbs
zYV^DoH8EA$aem;0KXN7d2d`2?T(%r7S%i(uH~jaZ^Kaj7-G0o9S(<dF<A}a-e326u
z{<~D)u_p(kZcOtgf2^v~fw%hScR4!pXina)A4P|99s);V_hE-IOn0j@7N$qf$v!SA
zXq`<lP=u498j}W}Bm|sg^`I%6=_&<2NXU8e55I5X#NFyf)JKmptAZ@&*HI=Foa37I
zBK(u3Mm!rkE^#AKbtE^7oVG?YJlxZ98hq`}0=H)HOxwvXJ56TMU=Z>+Mzjn|zn?UM
z*jgau&s|)CIE<?=(mzaqP)ECj1aV2=#?6Nz5K2WCUn7n{Ypz$0$1^90V<VF18s%ab
zn#pPpk(knsX+`*+KekIy;W2h*_urXWwB%H)bbcSkj!}BLFzs52qYPN>s*3u7h;QF>
zPIjqdNwZ<s{l#3E<K_7<g-fy_)}c?*sz?3B@MuM;wIR$_&cR`on~A(`&(X5$HAjzl
zF`97Sf7DA4HmxyjS@!W%>Zs!s#|t$e-3<mQkggB?`j!-IfMX|A^sh2EsQ=tL{(E^z
zzt{f_?gr928|za=x^YQ*Z5}%jcwvi1;10y@gO3m5kb>j}{BuPihM4OkDg&Rhh7mn3
zCU*Kr_CSiVu%}>re#qNd#CR}KJ>=aif(VdgKeP>ud)bX3h#t1esZ!M;;<265!dTsy
zlFM{=WE%5c5Vd~|IXy%R^r!s`znB??D1)9?bpD5V0k=3ijT_Of))0Eg7v+yhGds1s
zP{-C#T0``X$(B0}z0i)<ko-c>yREMg_pP~5_pSdCZd#sp0sBDSYG`rGv9kLw>iA$4
zWN!TLGStuB|NG2(TLZw-HFn??16t~z3_sjzdWn~X|0h=ZJkk}HMq)NJ=f-CLchT@Q
z&1TN|A2AhBYGhEi;=1g*TymFm{Z4UL9O?v^?5!Qryy`KHs6el!{Shh2f>{2)$KWH_
zI!^@*{g3b+ldv^6qRcxS@#Hf5w|Zgf@BClRy7dQ@C?Na-W(5Z5<{f51qpx%7z|0<|
z#6P1S&X0Z?JYLZpK8%1-7=SDe!3SWZcU|nWPhE=seg;DD1u^?q1=EA#L71xD&jqoz
zS4EA2qCgnz-9(L;zn!@>5SCLnMI#o?y|`#l*fBa~_p`@qmr!d^@-e1KH@O$q(W;nV
zP|PugcsI$aXkYtk>m$C^f2&7d+S9!1HjO?A$;Jyc*WJC(mx$=7G6nw=%7PNXn7Z9$
z`e<&NR~+r(!Gm&Z{kSXGS~S?ba>mkn3Nlr1W<bQ|8Y;VF>r(uYj?JNMc(LYT>_i_E
z2wU8Dm}K&2bCuuFaP*2BlVN2u;ryX#sGth$y^cPV^21aPccxYUuI{3($BOxi`SV_+
z63y$657GY5vZV4bE2G*YwDFHSs+`SrdnmU(ELsF_WsO}}*Ns}|?}*W&pIuQ+I-48z
z=$Onz^Muo!+~22pk#Gexcx<@;s%$JR#m1yzJ>2W7Q#3zO*J~nN*B70RejhuqUR+Vl
zj9lYYL7vNy(W`9yOE28!#6TcaUp1<sd9W65dcDo*I(BwFx5AaZr~bN({M54Hx<tgn
z<8n%M_dc9Ns-}`5aG_!frGx6G{<S@T!M(w5<ilKZyn&lp#UXLIH>as*%`~EZQH!EI
zzSr<wy@ovo>(tV>I_#vqiWvh07LOU*a>RxvXZyP8PJ<<zUIu*Vlz~fYxZggpDP^2#
zF_AS{T+C7UP~>-xnMkhi@BJ7DA>pkLv8GE;@u7mSHoQ2~vN|f-Q<vfZG!P$chx#6;
z%%+9WXGxiW_UT7?>dc_<TcdI<yto*A2_$^zoWV9VEtL;DTtI4%KxVW17g6~47+d4u
zaKG@YPyT$gS+!2DWW+UH(PY}MboMC2{f?rhk?^3)*5&flr)_EmYLc72RCSr}zh8;l
zv^|MCYMb#vp<VGUyg-F3=(5~1oVHz4<G@8{3{D(rSE6!ziX;4v@~_Z%;<7GP11}Xe
zecL@Z2jx%Vo3;%?ZC{*<F$!@P(8V2zP0^acQ+mAS_AgG``VA&O%d~Hw%DZw#3W(s=
zg}jBAS@3-U$9=y#w2#<;SA+WQMN4kV+>sr|4LrsANhW|$!lk90{uExB20sB5F6m?!
zaSJay!I9mRr(J2O_+5t4t?)Zl@;jwC`e&-_cPe7;Wxx%=5ehq8@g*gpmFtVg+A?N-
z*M{u%;xzXfrRNP>996FbN}fMqxT$3NbflO}JIO-tnryqLCd(-O{d*Gle2iHc0L(;|
z5<*SVUtufWCSMlme#-iOweD^KraRR#05Z^0%@C8(orcwRK{qDvs&IL@U?%}RtWwWj
zMS^5kO$rXL-VHmPKHD>YRz(qUs?aLGE~bf^i_4RCn>H&`BtK~PVl4N&8{=!%tG>6Y
z9611qk5Pm%g@<Z)3)k>{pTG^p+PC>t=NvhFBGHbw`8Fep7AGxnLTyd9`^gfr_9kSo
z1NfaR6W3omh|5uIZ?7eyrn`9W;qRKY*C2biuavWQA$!QJ`DuXYOM_TVMN5u0(X-i6
zKOk^)-qD-qjceZS_k>I5hH1PZg+5DCC3cK@tB(Y4Vx1-Y`N`8B%WE8S%G)PgC;=Z*
z?%IPihOFfrA0#~3n>2=^4V)%VUDPk3tm-FFfcidERDBzYsJ;%RRbOgi86$dkcvau@
zb@UFMPj3{;tUdrGQ}2Nat9L+A)tjLV>UB_Jbud&{y%hRRy#T7Jo(*+UPj3Q_J@s{(
zb?eUbHB2k*TdXv9`<UWem{kh7C4JeksHWqZn4E<uo1BGkkp!bLsF-wpcr~K)CIEv_
zKLBM?H{fZ4P5_d&b^sQkma5;s3vs%D!w=6-NLJiy|9?#mF)+y`BtY;9+8Q1pl<CoP
zAq9jzd)zv*6-2UL1Ehyxf$-TOR*i^yYh*@Y<e<Md0FUwh+F%n6BRM88f!KQ?Ij>Q)
zhT$ILi|0q2J=pi1->vN2N`Q%&+y3*8uA4j1)!hpoJB7)^E5Oewgh@{?t0sr}e*j?Y
BhdBTM
literal 0
HcmV?d00001
diff --git a/examples/Makefile.in b/examples/Makefile.in
new file mode 100644
index 000000000..714e7758b
--- /dev/null
+++ b/examples/Makefile.in
@@ -0,0 +1,1059 @@
+# Makefile.in generated by automake 1.16.5 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2021 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.
+
+@SET_MAKE@
+
+VPATH = @srcdir@
+am__is_gnu_make = { \
+ if test -z '$(MAKELEVEL)'; then \
+ false; \
+ elif test -n '$(MAKE_HOST)'; then \
+ true; \
+ elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
+ true; \
+ else \
+ false; \
+ fi; \
+}
+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@
+noinst_PROGRAMS = $(am__EXEEXT_5) $(am__append_5)
+check_PROGRAMS = $(am__EXEEXT_4)
+EXTRA_PROGRAMS = cdi_append$(EXEEXT) cdi_copy$(EXEEXT) \
+ cdi_read$(EXEEXT) cdi_write$(EXEEXT) cdi_write_ens$(EXEEXT) \
+ cdi_write_hybrid$(EXEEXT) cdi_write_local$(EXEEXT) \
+ cdi_write_relativ$(EXEEXT)
+@ENABLE_NETCDF_TRUE@am__append_1 = cdi_write_const
+@ENABLE_ISOC_INTERFACE_TRUE@am__append_2 = cdi_read_f2003 cdi_write_f2003
+@with_on_demand_check_programs_TRUE@am__append_3 = $(test_PROGRAMS_)
+@with_on_demand_check_programs_FALSE@am__append_4 = $(test_PROGRAMS_)
+@with_example_programs_TRUE@am__append_5 = $(EXTRA_PROGRAMS)
+@with_example_programs_FALSE@am__append_6 = $(EXTRA_PROGRAMS)
+@ENABLE_ISOC_INTERFACE_TRUE@am__append_7 = $(FC_MOD_FLAG)$(top_builddir)/src
+@ENABLE_ALL_STATIC_TRUE@am__append_8 = -all-static
+subdir = examples
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = \
+ $(top_srcdir)/m4/acx_assert_lang_is_fortran_variant.m4 \
+ $(top_srcdir)/m4/acx_c_package.m4 \
+ $(top_srcdir)/m4/acx_cfortran_flags.m4 \
+ $(top_srcdir)/m4/acx_check_cfortran.m4 \
+ $(top_srcdir)/m4/acx_check_strptr_convert.m4 \
+ $(top_srcdir)/m4/acx_execinfo.m4 \
+ $(top_srcdir)/m4/acx_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_fortran_include_flag.m4 \
+ $(top_srcdir)/m4/acx_fortran_package.m4 \
+ $(top_srcdir)/m4/acx_lang_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_package.m4 \
+ $(top_srcdir)/m4/acx_lt_problems.m4 \
+ $(top_srcdir)/m4/acx_m4_list_to_quoted_strings.m4 \
+ $(top_srcdir)/m4/acx_mpirun.m4 $(top_srcdir)/m4/acx_mv_obj.m4 \
+ $(top_srcdir)/m4/acx_option_search_libs.m4 \
+ $(top_srcdir)/m4/acx_options.m4 \
+ $(top_srcdir)/m4/acx_prog_cc_posix.m4 \
+ $(top_srcdir)/m4/acx_sl_fc_mod_path_flag.m4 \
+ $(top_srcdir)/m4/acx_sl_mod_suffix.m4 \
+ $(top_srcdir)/m4/acx_tls_xlc_retry.m4 \
+ $(top_srcdir)/m4/acx_use_libtool_configuration.m4 \
+ $(top_srcdir)/m4/acx_uuid.m4 $(top_srcdir)/m4/asx_tr_arg.m4 \
+ $(top_srcdir)/m4/asx_unset.m4 $(top_srcdir)/m4/ax_pthread.m4 \
+ $(top_srcdir)/m4/ax_python_devel.m4 $(top_srcdir)/m4/ax_tls.m4 \
+ $(top_srcdir)/m4/kpse_libtool.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)/m4/pkg.m4 $(top_srcdir)/acinclude.m4 \
+ $(top_srcdir)/m4/ac_lang_program_fortran.m4 \
+ $(top_srcdir)/m4/acx_lang_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_c_check_include.m4 \
+ $(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+ $(ACLOCAL_M4)
+DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = $(top_builddir)/src/config.h
+CONFIG_CLEAN_FILES =
+CONFIG_CLEAN_VPATH_FILES =
+@ENABLE_NETCDF_TRUE@am__EXEEXT_1 = cdi_write_const$(EXEEXT)
+@ENABLE_ISOC_INTERFACE_TRUE@am__EXEEXT_2 = cdi_read_f2003$(EXEEXT) \
+@ENABLE_ISOC_INTERFACE_TRUE@ cdi_write_f2003$(EXEEXT)
+am__EXEEXT_3 = $(am__EXEEXT_1) $(am__EXEEXT_2)
+@with_on_demand_check_programs_TRUE@am__EXEEXT_4 = $(am__EXEEXT_3)
+@with_on_demand_check_programs_FALSE@am__EXEEXT_5 = $(am__EXEEXT_3)
+PROGRAMS = $(noinst_PROGRAMS)
+am_cdi_append_OBJECTS = cdi_append.$(OBJEXT)
+cdi_append_OBJECTS = $(am_cdi_append_OBJECTS)
+cdi_append_LDADD = $(LDADD)
+cdi_append_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+AM_V_lt = $(am__v_lt_@AM_V@)
+am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
+am__v_lt_0 = --silent
+am__v_lt_1 =
+am_cdi_copy_OBJECTS = cdi_copy.$(OBJEXT)
+cdi_copy_OBJECTS = $(am_cdi_copy_OBJECTS)
+cdi_copy_LDADD = $(LDADD)
+cdi_copy_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cdi_read_OBJECTS = cdi_read.$(OBJEXT)
+cdi_read_OBJECTS = $(am_cdi_read_OBJECTS)
+cdi_read_LDADD = $(LDADD)
+cdi_read_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cdi_read_f2003_OBJECTS = cdi_read_f2003.$(OBJEXT)
+cdi_read_f2003_OBJECTS = $(am_cdi_read_f2003_OBJECTS)
+cdi_read_f2003_DEPENDENCIES = $(top_builddir)/src/libcdi_f2003.la \
+ $(LDADD)
+am_cdi_write_OBJECTS = cdi_write.$(OBJEXT)
+cdi_write_OBJECTS = $(am_cdi_write_OBJECTS)
+cdi_write_LDADD = $(LDADD)
+cdi_write_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cdi_write_const_OBJECTS = cdi_write_const.$(OBJEXT)
+cdi_write_const_OBJECTS = $(am_cdi_write_const_OBJECTS)
+cdi_write_const_LDADD = $(LDADD)
+cdi_write_const_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cdi_write_ens_OBJECTS = cdi_write_ens.$(OBJEXT)
+cdi_write_ens_OBJECTS = $(am_cdi_write_ens_OBJECTS)
+cdi_write_ens_LDADD = $(LDADD)
+cdi_write_ens_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cdi_write_f2003_OBJECTS = cdi_write_f2003.$(OBJEXT)
+cdi_write_f2003_OBJECTS = $(am_cdi_write_f2003_OBJECTS)
+cdi_write_f2003_DEPENDENCIES = $(top_builddir)/src/libcdi_f2003.la \
+ $(LDADD)
+am_cdi_write_hybrid_OBJECTS = cdi_write_hybrid.$(OBJEXT)
+cdi_write_hybrid_OBJECTS = $(am_cdi_write_hybrid_OBJECTS)
+cdi_write_hybrid_LDADD = $(LDADD)
+cdi_write_hybrid_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cdi_write_local_OBJECTS = cdi_write_local.$(OBJEXT)
+cdi_write_local_OBJECTS = $(am_cdi_write_local_OBJECTS)
+cdi_write_local_LDADD = $(LDADD)
+cdi_write_local_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cdi_write_relativ_OBJECTS = cdi_write_relativ.$(OBJEXT)
+cdi_write_relativ_OBJECTS = $(am_cdi_write_relativ_OBJECTS)
+cdi_write_relativ_LDADD = $(LDADD)
+cdi_write_relativ_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+AM_V_P = $(am__v_P_@AM_V@)
+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_@AM_V@)
+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
+am__v_GEN_0 = @echo " GEN " $@;
+am__v_GEN_1 =
+AM_V_at = $(am__v_at_@AM_V@)
+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
+am__v_at_0 = @
+am__v_at_1 =
+DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/src
+depcomp = $(SHELL) $(top_srcdir)/config/depcomp
+am__maybe_remake_depfiles = depfiles
+am__depfiles_remade = ./$(DEPDIR)/cdi_append.Po \
+ ./$(DEPDIR)/cdi_copy.Po ./$(DEPDIR)/cdi_read.Po \
+ ./$(DEPDIR)/cdi_write.Po ./$(DEPDIR)/cdi_write_const.Po \
+ ./$(DEPDIR)/cdi_write_ens.Po ./$(DEPDIR)/cdi_write_hybrid.Po \
+ ./$(DEPDIR)/cdi_write_local.Po \
+ ./$(DEPDIR)/cdi_write_relativ.Po
+am__mv = mv -f
+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_@AM_V@)
+am__v_CC_ = $(am__v_CC_@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_@AM_V@)
+am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
+am__v_CCLD_0 = @echo " CCLD " $@;
+am__v_CCLD_1 =
+LTFCCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
+AM_V_FC = $(am__v_FC_@AM_V@)
+am__v_FC_ = $(am__v_FC_@AM_DEFAULT_V@)
+am__v_FC_0 = @echo " FC " $@;
+am__v_FC_1 =
+FCLD = $(FC)
+FCLINK = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) \
+ $(AM_LDFLAGS) $(LDFLAGS) -o $@
+AM_V_FCLD = $(am__v_FCLD_@AM_V@)
+am__v_FCLD_ = $(am__v_FCLD_@AM_DEFAULT_V@)
+am__v_FCLD_0 = @echo " FCLD " $@;
+am__v_FCLD_1 =
+SOURCES = $(cdi_append_SOURCES) $(cdi_copy_SOURCES) \
+ $(cdi_read_SOURCES) $(cdi_read_f2003_SOURCES) \
+ $(cdi_write_SOURCES) $(cdi_write_const_SOURCES) \
+ $(cdi_write_ens_SOURCES) $(cdi_write_f2003_SOURCES) \
+ $(cdi_write_hybrid_SOURCES) $(cdi_write_local_SOURCES) \
+ $(cdi_write_relativ_SOURCES)
+DIST_SOURCES = $(cdi_append_SOURCES) $(cdi_copy_SOURCES) \
+ $(cdi_read_SOURCES) $(cdi_read_f2003_SOURCES) \
+ $(cdi_write_SOURCES) $(cdi_write_const_SOURCES) \
+ $(cdi_write_ens_SOURCES) $(cdi_write_f2003_SOURCES) \
+ $(cdi_write_hybrid_SOURCES) $(cdi_write_local_SOURCES) \
+ $(cdi_write_relativ_SOURCES)
+RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \
+ ctags-recursive dvi-recursive html-recursive info-recursive \
+ install-data-recursive install-dvi-recursive \
+ install-exec-recursive install-html-recursive \
+ install-info-recursive install-pdf-recursive \
+ install-ps-recursive install-recursive installcheck-recursive \
+ installdirs-recursive pdf-recursive ps-recursive \
+ tags-recursive uninstall-recursive
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
+RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \
+ distclean-recursive maintainer-clean-recursive
+am__recursive_targets = \
+ $(RECURSIVE_TARGETS) \
+ $(RECURSIVE_CLEAN_TARGETS) \
+ $(am__extra_recursive_targets)
+AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \
+ distdir distdir-am
+am__extra_recursive_targets = examples-recursive
+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)`
+DIST_SUBDIRS = $(SUBDIRS)
+am__DIST_COMMON = $(srcdir)/Makefile.in $(top_srcdir)/config/depcomp \
+ README
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+am__relativize = \
+ dir0=`pwd`; \
+ sed_first='s,^\([^/]*\)/.*$$,\1,'; \
+ sed_rest='s,^[^/]*/*,,'; \
+ sed_last='s,^.*/\([^/]*\)$$,\1,'; \
+ sed_butlast='s,/*[^/]*$$,,'; \
+ while test -n "$$dir1"; do \
+ first=`echo "$$dir1" | sed -e "$$sed_first"`; \
+ if test "$$first" != "."; then \
+ if test "$$first" = ".."; then \
+ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
+ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
+ else \
+ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
+ if test "$$first2" = "$$first"; then \
+ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
+ else \
+ dir2="../$$dir2"; \
+ fi; \
+ dir0="$$dir0"/"$$first"; \
+ fi; \
+ fi; \
+ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
+ done; \
+ reldir="$$dir2"
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CSCOPE = @CSCOPE@
+CTAGS = @CTAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DCE_UUIDROOT = @DCE_UUIDROOT@
+DCE_UUID_C_INCLUDE = @DCE_UUID_C_INCLUDE@
+DCE_UUID_C_LIB = @DCE_UUID_C_LIB@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECCODES_INCLUDE = @ECCODES_INCLUDE@
+ECCODES_LIBS = @ECCODES_LIBS@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+ENABLE_ACROSS = @ENABLE_ACROSS@
+ENABLE_CDI_LIB = @ENABLE_CDI_LIB@
+ENABLE_CGRIBEX = @ENABLE_CGRIBEX@
+ENABLE_EXTRA = @ENABLE_EXTRA@
+ENABLE_GRIB = @ENABLE_GRIB@
+ENABLE_IEG = @ENABLE_IEG@
+ENABLE_MPI = @ENABLE_MPI@
+ENABLE_NC2 = @ENABLE_NC2@
+ENABLE_NC4 = @ENABLE_NC4@
+ENABLE_NC4HDF5 = @ENABLE_NC4HDF5@
+ENABLE_NC4SZLIB = @ENABLE_NC4SZLIB@
+ENABLE_NETCDF = @ENABLE_NETCDF@
+ENABLE_SERVICE = @ENABLE_SERVICE@
+ETAGS = @ETAGS@
+EXEEXT = @EXEEXT@
+F77 = @F77@
+FC = @FC@
+FCFLAGS = @FCFLAGS@
+FCFLAGS_f90 = @FCFLAGS_f90@
+FCMODCASE = @FCMODCASE@
+FCMODEXT = @FCMODEXT@
+FC_DEFINE = @FC_DEFINE@
+FC_MOD_FLAG = @FC_MOD_FLAG@
+FC_OPTINC = @FC_OPTINC@
+FDB5_INCLUDE = @FDB5_INCLUDE@
+FDB5_LIBS = @FDB5_LIBS@
+FFLAGS = @FFLAGS@
+FGREP = @FGREP@
+GREP = @GREP@
+GRIB_API_INCLUDE = @GRIB_API_INCLUDE@
+GRIB_API_LIBS = @GRIB_API_LIBS@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBRT = @LIBRT@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
+MAINT = @MAINT@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+MPIROOT = @MPIROOT@
+MPI_C_INCLUDE = @MPI_C_INCLUDE@
+MPI_C_LIB = @MPI_C_LIB@
+MPI_FC_LIB = @MPI_FC_LIB@
+MPI_FC_MOD = @MPI_FC_MOD@
+MPI_LAUNCH = @MPI_LAUNCH@
+NC_CONFIG = @NC_CONFIG@
+NETCDF_INCLUDE = @NETCDF_INCLUDE@
+NETCDF_LIBS = @NETCDF_LIBS@
+NETCDF_ROOT = @NETCDF_ROOT@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OPENMP_CFLAGS = @OPENMP_CFLAGS@
+OSSP_UUIDROOT = @OSSP_UUIDROOT@
+OSSP_UUID_C_INCLUDE = @OSSP_UUID_C_INCLUDE@
+OSSP_UUID_C_LIB = @OSSP_UUID_C_LIB@
+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@
+PKG_CONFIG = @PKG_CONFIG@
+PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
+PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
+PPM_CORE_C_INCLUDE = @PPM_CORE_C_INCLUDE@
+PPM_CORE_C_LIB = @PPM_CORE_C_LIB@
+PTHREAD_CC = @PTHREAD_CC@
+PTHREAD_CFLAGS = @PTHREAD_CFLAGS@
+PTHREAD_CXX = @PTHREAD_CXX@
+PTHREAD_LIBS = @PTHREAD_LIBS@
+PYTHON = @PYTHON@
+PYTHON_CPPFLAGS = @PYTHON_CPPFLAGS@
+PYTHON_EXEC_PREFIX = @PYTHON_EXEC_PREFIX@
+PYTHON_EXTRA_LDFLAGS = @PYTHON_EXTRA_LDFLAGS@
+PYTHON_EXTRA_LIBS = @PYTHON_EXTRA_LIBS@
+PYTHON_LIBS = @PYTHON_LIBS@
+PYTHON_PLATFORM = @PYTHON_PLATFORM@
+PYTHON_PLATFORM_SITE_PKG = @PYTHON_PLATFORM_SITE_PKG@
+PYTHON_PREFIX = @PYTHON_PREFIX@
+PYTHON_SITE_PKG = @PYTHON_SITE_PKG@
+PYTHON_VERSION = @PYTHON_VERSION@
+RANLIB = @RANLIB@
+RUBY = @RUBY@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+SWIG = @SWIG@
+SYSTEM_TYPE = @SYSTEM_TYPE@
+SZLIB_INCLUDE = @SZLIB_INCLUDE@
+SZLIB_LIBS = @SZLIB_LIBS@
+THREADS_INCLUDE = @THREADS_INCLUDE@
+THREADS_LIBS = @THREADS_LIBS@
+UTIL_LINUX_UUIDROOT = @UTIL_LINUX_UUIDROOT@
+UTIL_LINUX_UUID_C_INCLUDE = @UTIL_LINUX_UUID_C_INCLUDE@
+UTIL_LINUX_UUID_C_LIB = @UTIL_LINUX_UUID_C_LIB@
+UUID_C_INCLUDE = @UUID_C_INCLUDE@
+UUID_C_LIB = @UUID_C_LIB@
+VERSION = @VERSION@
+YAXT_C_INCLUDE = @YAXT_C_INCLUDE@
+YAXT_C_LIB = @YAXT_C_LIB@
+YAXT_FC_LIB = @YAXT_FC_LIB@
+YAXT_FC_MOD = @YAXT_FC_MOD@
+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@
+ac_ct_F77 = @ac_ct_F77@
+ac_ct_FC = @ac_ct_FC@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+ax_pthread_config = @ax_pthread_config@
+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@
+pkgpyexecdir = @pkgpyexecdir@
+pkgpythondir = @pkgpythondir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+pyexecdir = @pyexecdir@
+pythondir = @pythondir@
+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@
+SUBDIRS = pio
+CLEANFILES = $(am__append_6)
+
+# Examples that are part of the test suite:
+test_PROGRAMS_ = $(am__append_1) $(am__append_2)
+AM_CPPFLAGS = -I$(top_srcdir)/src
+AM_FCFLAGS = $(am__append_7) -static
+AM_LDFLAGS = $(am__append_8)
+LDADD = $(top_builddir)/src/libcdi.la
+cdi_append_SOURCES = cdi_append.c
+cdi_copy_SOURCES = cdi_copy.c
+cdi_read_SOURCES = cdi_read.c
+cdi_write_SOURCES = cdi_write.c
+cdi_write_ens_SOURCES = cdi_write_ens.c
+cdi_write_hybrid_SOURCES = cdi_write_hybrid.c
+cdi_write_local_SOURCES = cdi_write_local.c
+cdi_write_relativ_SOURCES = cdi_write_relativ.c
+cdi_write_const_SOURCES = cdi_write_const.c
+cdi_read_f2003_SOURCES = cdi_read_f2003.f90
+cdi_read_f2003_LDADD = $(top_builddir)/src/libcdi_f2003.la $(LDADD)
+cdi_write_f2003_SOURCES = cdi_write_f2003.f90
+cdi_write_f2003_LDADD = $(top_builddir)/src/libcdi_f2003.la $(LDADD)
+@FC_MOD_UPPERCASE_FALSE@mo_cdi_mod = mo_cdi.$(FCMODEXT)
+@FC_MOD_UPPERCASE_TRUE@mo_cdi_mod = MO_CDI.$(FCMODEXT)
+
+# Compile programs using Libtool:
+COMPILE = $(LTCOMPILE)
+FCCOMPILE = $(LTFCCOMPILE)
+PPFCCOMPILE = $(LTPPFCCOMPILE)
+CXXCOMPILE = $(LTCXXCOMPILE)
+
+# Compile *.F90 without CPPFLAGS, which are normally meant for the C compiler
+# and might not be compatible with the Fortran compiler:
+LTPPFCCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
+
+
+# Avoid compiling twice by running Libtool with '-static'
+# This is safe because all Libtool libraries in this directory are
+# static-only and contain PIC objects:
+AM_CFLAGS = -static
+AM_CXXFLAGS = -static
+all: all-recursive
+
+.SUFFIXES:
+.SUFFIXES: .c .f90 .lo .o .obj
+$(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 examples/Makefile'; \
+ $(am__cd) $(top_srcdir) && \
+ $(AUTOMAKE) --foreign examples/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__maybe_remake_depfiles)'; \
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
+ 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):
+
+clean-checkPROGRAMS:
+ @list='$(check_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
+
+cdi_append$(EXEEXT): $(cdi_append_OBJECTS) $(cdi_append_DEPENDENCIES) $(EXTRA_cdi_append_DEPENDENCIES)
+ @rm -f cdi_append$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_append_OBJECTS) $(cdi_append_LDADD) $(LIBS)
+
+cdi_copy$(EXEEXT): $(cdi_copy_OBJECTS) $(cdi_copy_DEPENDENCIES) $(EXTRA_cdi_copy_DEPENDENCIES)
+ @rm -f cdi_copy$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_copy_OBJECTS) $(cdi_copy_LDADD) $(LIBS)
+
+cdi_read$(EXEEXT): $(cdi_read_OBJECTS) $(cdi_read_DEPENDENCIES) $(EXTRA_cdi_read_DEPENDENCIES)
+ @rm -f cdi_read$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_read_OBJECTS) $(cdi_read_LDADD) $(LIBS)
+
+cdi_read_f2003$(EXEEXT): $(cdi_read_f2003_OBJECTS) $(cdi_read_f2003_DEPENDENCIES) $(EXTRA_cdi_read_f2003_DEPENDENCIES)
+ @rm -f cdi_read_f2003$(EXEEXT)
+ $(AM_V_FCLD)$(FCLINK) $(cdi_read_f2003_OBJECTS) $(cdi_read_f2003_LDADD) $(LIBS)
+
+cdi_write$(EXEEXT): $(cdi_write_OBJECTS) $(cdi_write_DEPENDENCIES) $(EXTRA_cdi_write_DEPENDENCIES)
+ @rm -f cdi_write$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_write_OBJECTS) $(cdi_write_LDADD) $(LIBS)
+
+cdi_write_const$(EXEEXT): $(cdi_write_const_OBJECTS) $(cdi_write_const_DEPENDENCIES) $(EXTRA_cdi_write_const_DEPENDENCIES)
+ @rm -f cdi_write_const$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_write_const_OBJECTS) $(cdi_write_const_LDADD) $(LIBS)
+
+cdi_write_ens$(EXEEXT): $(cdi_write_ens_OBJECTS) $(cdi_write_ens_DEPENDENCIES) $(EXTRA_cdi_write_ens_DEPENDENCIES)
+ @rm -f cdi_write_ens$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_write_ens_OBJECTS) $(cdi_write_ens_LDADD) $(LIBS)
+
+cdi_write_f2003$(EXEEXT): $(cdi_write_f2003_OBJECTS) $(cdi_write_f2003_DEPENDENCIES) $(EXTRA_cdi_write_f2003_DEPENDENCIES)
+ @rm -f cdi_write_f2003$(EXEEXT)
+ $(AM_V_FCLD)$(FCLINK) $(cdi_write_f2003_OBJECTS) $(cdi_write_f2003_LDADD) $(LIBS)
+
+cdi_write_hybrid$(EXEEXT): $(cdi_write_hybrid_OBJECTS) $(cdi_write_hybrid_DEPENDENCIES) $(EXTRA_cdi_write_hybrid_DEPENDENCIES)
+ @rm -f cdi_write_hybrid$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_write_hybrid_OBJECTS) $(cdi_write_hybrid_LDADD) $(LIBS)
+
+cdi_write_local$(EXEEXT): $(cdi_write_local_OBJECTS) $(cdi_write_local_DEPENDENCIES) $(EXTRA_cdi_write_local_DEPENDENCIES)
+ @rm -f cdi_write_local$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_write_local_OBJECTS) $(cdi_write_local_LDADD) $(LIBS)
+
+cdi_write_relativ$(EXEEXT): $(cdi_write_relativ_OBJECTS) $(cdi_write_relativ_DEPENDENCIES) $(EXTRA_cdi_write_relativ_DEPENDENCIES)
+ @rm -f cdi_write_relativ$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cdi_write_relativ_OBJECTS) $(cdi_write_relativ_LDADD) $(LIBS)
+
+mostlyclean-compile:
+ -rm -f *.$(OBJEXT)
+
+distclean-compile:
+ -rm -f *.tab.c
+
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_append.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_copy.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_read.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_write.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_write_const.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_write_ens.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_write_hybrid.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_write_local.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_write_relativ.Po@am__quote@ # am--include-marker
+
+$(am__depfiles_remade):
+ @$(MKDIR_P) $(@D)
+ @echo '# dummy' >$@-t && $(am__mv) $@-t $@
+
+am--depfiles: $(am__depfiles_remade)
+
+.c.o:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
+
+.c.obj:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
+
+.c.lo:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
+
+.f90.o:
+ $(AM_V_FC)$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
+
+.f90.obj:
+ $(AM_V_FC)$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
+
+.f90.lo:
+ $(AM_V_FC)$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
+
+mostlyclean-libtool:
+ -rm -f *.lo
+
+clean-libtool:
+ -rm -rf .libs _libs
+
+# This directory's subdirectories are mostly independent; you can cd
+# into them and run 'make' without going through this Makefile.
+# To change the values of 'make' variables: instead of editing Makefiles,
+# (1) if the variable is set in 'config.status', edit 'config.status'
+# (which will cause the Makefiles to be regenerated when you run 'make');
+# (2) otherwise, pass the desired values on the 'make' command line.
+$(am__recursive_targets):
+ @fail=; \
+ if $(am__make_keepgoing); then \
+ failcom='fail=yes'; \
+ else \
+ failcom='exit 1'; \
+ fi; \
+ dot_seen=no; \
+ target=`echo $@ | sed s/-recursive//`; \
+ case "$@" in \
+ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
+ *) list='$(SUBDIRS)' ;; \
+ esac; \
+ for subdir in $$list; do \
+ echo "Making $$target in $$subdir"; \
+ if test "$$subdir" = "."; then \
+ dot_seen=yes; \
+ local_target="$$target-am"; \
+ else \
+ local_target="$$target"; \
+ fi; \
+ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
+ || eval $$failcom; \
+ done; \
+ if test "$$dot_seen" = "no"; then \
+ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
+ fi; test -z "$$fail"
+examples-local:
+
+ID: $(am__tagged_files)
+ $(am__define_uniq_tagged_files); mkid -fID $$unique
+tags: tags-recursive
+TAGS: tags
+
+tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
+ set x; \
+ here=`pwd`; \
+ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
+ include_option=--etags-include; \
+ empty_fix=.; \
+ else \
+ include_option=--include; \
+ empty_fix=; \
+ fi; \
+ list='$(SUBDIRS)'; for subdir in $$list; do \
+ if test "$$subdir" = .; then :; else \
+ test ! -f $$subdir/TAGS || \
+ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
+ fi; \
+ done; \
+ $(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-recursive
+
+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-recursive
+
+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: $(BUILT_SOURCES)
+ $(MAKE) $(AM_MAKEFLAGS) distdir-am
+
+distdir-am: $(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
+ @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
+ if test "$$subdir" = .; then :; else \
+ $(am__make_dryrun) \
+ || test -d "$(distdir)/$$subdir" \
+ || $(MKDIR_P) "$(distdir)/$$subdir" \
+ || exit 1; \
+ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
+ $(am__relativize); \
+ new_distdir=$$reldir; \
+ dir1=$$subdir; dir2="$(top_distdir)"; \
+ $(am__relativize); \
+ new_top_distdir=$$reldir; \
+ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
+ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
+ ($(am__cd) $$subdir && \
+ $(MAKE) $(AM_MAKEFLAGS) \
+ top_distdir="$$new_top_distdir" \
+ distdir="$$new_distdir" \
+ am__remove_distdir=: \
+ am__skip_length_check=: \
+ am__skip_mode_fix=: \
+ distdir) \
+ || exit 1; \
+ fi; \
+ done
+check-am: all-am
+ $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS)
+check: check-recursive
+all-am: Makefile $(PROGRAMS)
+installdirs: installdirs-recursive
+installdirs-am:
+install: install-recursive
+install-exec: install-exec-recursive
+install-data: install-data-recursive
+uninstall: uninstall-recursive
+
+install-am: all-am
+ @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+
+installcheck: installcheck-recursive
+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."
+clean: clean-recursive
+
+clean-am: clean-checkPROGRAMS clean-generic clean-libtool clean-local \
+ clean-noinstPROGRAMS mostlyclean-am
+
+distclean: distclean-recursive
+ -rm -f ./$(DEPDIR)/cdi_append.Po
+ -rm -f ./$(DEPDIR)/cdi_copy.Po
+ -rm -f ./$(DEPDIR)/cdi_read.Po
+ -rm -f ./$(DEPDIR)/cdi_write.Po
+ -rm -f ./$(DEPDIR)/cdi_write_const.Po
+ -rm -f ./$(DEPDIR)/cdi_write_ens.Po
+ -rm -f ./$(DEPDIR)/cdi_write_hybrid.Po
+ -rm -f ./$(DEPDIR)/cdi_write_local.Po
+ -rm -f ./$(DEPDIR)/cdi_write_relativ.Po
+ -rm -f Makefile
+distclean-am: clean-am distclean-compile distclean-generic \
+ distclean-tags
+
+dvi: dvi-recursive
+
+dvi-am:
+
+examples: examples-recursive
+
+examples-am: examples-local
+
+html: html-recursive
+
+html-am:
+
+info: info-recursive
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-recursive
+
+install-dvi-am:
+
+install-exec-am:
+
+install-html: install-html-recursive
+
+install-html-am:
+
+install-info: install-info-recursive
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-recursive
+
+install-pdf-am:
+
+install-ps: install-ps-recursive
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-recursive
+ -rm -f ./$(DEPDIR)/cdi_append.Po
+ -rm -f ./$(DEPDIR)/cdi_copy.Po
+ -rm -f ./$(DEPDIR)/cdi_read.Po
+ -rm -f ./$(DEPDIR)/cdi_write.Po
+ -rm -f ./$(DEPDIR)/cdi_write_const.Po
+ -rm -f ./$(DEPDIR)/cdi_write_ens.Po
+ -rm -f ./$(DEPDIR)/cdi_write_hybrid.Po
+ -rm -f ./$(DEPDIR)/cdi_write_local.Po
+ -rm -f ./$(DEPDIR)/cdi_write_relativ.Po
+ -rm -f Makefile
+maintainer-clean-am: distclean-am maintainer-clean-generic
+
+mostlyclean: mostlyclean-recursive
+
+mostlyclean-am: mostlyclean-compile mostlyclean-generic \
+ mostlyclean-libtool
+
+pdf: pdf-recursive
+
+pdf-am:
+
+ps: ps-recursive
+
+ps-am:
+
+uninstall-am:
+
+.MAKE: $(am__recursive_targets) check-am install-am install-strip
+
+.PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am \
+ am--depfiles check check-am clean clean-checkPROGRAMS \
+ clean-generic clean-libtool clean-local clean-noinstPROGRAMS \
+ cscopelist-am ctags ctags-am distclean distclean-compile \
+ distclean-generic distclean-libtool distclean-tags distdir dvi \
+ dvi-am examples-am examples-local html html-am info info-am \
+ install install-am 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-man \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ installdirs-am maintainer-clean maintainer-clean-generic \
+ mostlyclean mostlyclean-compile mostlyclean-generic \
+ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-am uninstall \
+ uninstall-am
+
+.PRECIOUS: Makefile
+
+examples-local: $(test_PROGRAMS_) $(EXTRA_PROGRAMS)
+
+cdi_read_f2003.$(OBJEXT) cdi_write_f2003.$(OBJEXT): $(top_builddir)/src/$(mo_cdi_mod)
+
+clean-local:
+ -rm -f *.grb *.grb2 *.nc
+ -rm -rf *.dSYM
+
+# 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/examples/pio/Makefile.in b/examples/pio/Makefile.in
new file mode 100644
index 000000000..6c2f01c12
--- /dev/null
+++ b/examples/pio/Makefile.in
@@ -0,0 +1,897 @@
+# Makefile.in generated by automake 1.16.5 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2021 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.
+
+@SET_MAKE@
+
+VPATH = @srcdir@
+am__is_gnu_make = { \
+ if test -z '$(MAKELEVEL)'; then \
+ false; \
+ elif test -n '$(MAKE_HOST)'; then \
+ true; \
+ elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
+ true; \
+ else \
+ false; \
+ fi; \
+}
+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@
+EXTRA_PROGRAMS = collectData$(EXEEXT) collectDataNStreams$(EXEEXT) \
+ $(am__EXEEXT_1) $(am__EXEEXT_2) $(am__EXEEXT_3)
+@ENABLE_MPI_TRUE@am__append_1 = \
+@ENABLE_MPI_TRUE@ collectData.parallel \
+@ENABLE_MPI_TRUE@ collectDataNStreams.parallel \
+@ENABLE_MPI_TRUE@ compareResourcesArray
+
+@BUILD_FC_PROGRAMS_TRUE@@ENABLE_CF_INTERFACE_TRUE@am__append_2 = collectData2003
+@BUILD_PIO_FC_PROGRAMS_TRUE@@ENABLE_CF_INTERFACE_TRUE@am__append_3 = collectData2003.parallel
+@with_example_programs_TRUE@am__append_4 = $(EXTRA_PROGRAMS)
+@with_example_programs_FALSE@am__append_5 = $(EXTRA_PROGRAMS)
+@ENABLE_CF_INTERFACE_TRUE@am__append_6 = $(FC_OPTINC)$(top_builddir)/src $(FC_OPTINC)$(top_srcdir)/src
+@ENABLE_ALL_STATIC_TRUE@am__append_7 = -all-static
+subdir = examples/pio
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = \
+ $(top_srcdir)/m4/acx_assert_lang_is_fortran_variant.m4 \
+ $(top_srcdir)/m4/acx_c_package.m4 \
+ $(top_srcdir)/m4/acx_cfortran_flags.m4 \
+ $(top_srcdir)/m4/acx_check_cfortran.m4 \
+ $(top_srcdir)/m4/acx_check_strptr_convert.m4 \
+ $(top_srcdir)/m4/acx_execinfo.m4 \
+ $(top_srcdir)/m4/acx_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_fortran_include_flag.m4 \
+ $(top_srcdir)/m4/acx_fortran_package.m4 \
+ $(top_srcdir)/m4/acx_lang_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_package.m4 \
+ $(top_srcdir)/m4/acx_lt_problems.m4 \
+ $(top_srcdir)/m4/acx_m4_list_to_quoted_strings.m4 \
+ $(top_srcdir)/m4/acx_mpirun.m4 $(top_srcdir)/m4/acx_mv_obj.m4 \
+ $(top_srcdir)/m4/acx_option_search_libs.m4 \
+ $(top_srcdir)/m4/acx_options.m4 \
+ $(top_srcdir)/m4/acx_prog_cc_posix.m4 \
+ $(top_srcdir)/m4/acx_sl_fc_mod_path_flag.m4 \
+ $(top_srcdir)/m4/acx_sl_mod_suffix.m4 \
+ $(top_srcdir)/m4/acx_tls_xlc_retry.m4 \
+ $(top_srcdir)/m4/acx_use_libtool_configuration.m4 \
+ $(top_srcdir)/m4/acx_uuid.m4 $(top_srcdir)/m4/asx_tr_arg.m4 \
+ $(top_srcdir)/m4/asx_unset.m4 $(top_srcdir)/m4/ax_pthread.m4 \
+ $(top_srcdir)/m4/ax_python_devel.m4 $(top_srcdir)/m4/ax_tls.m4 \
+ $(top_srcdir)/m4/kpse_libtool.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)/m4/pkg.m4 $(top_srcdir)/acinclude.m4 \
+ $(top_srcdir)/m4/ac_lang_program_fortran.m4 \
+ $(top_srcdir)/m4/acx_lang_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_c_check_include.m4 \
+ $(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+ $(ACLOCAL_M4)
+DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = $(top_builddir)/src/config.h
+CONFIG_CLEAN_FILES =
+CONFIG_CLEAN_VPATH_FILES =
+@ENABLE_MPI_TRUE@am__EXEEXT_1 = collectData.parallel$(EXEEXT) \
+@ENABLE_MPI_TRUE@ collectDataNStreams.parallel$(EXEEXT) \
+@ENABLE_MPI_TRUE@ compareResourcesArray$(EXEEXT)
+@BUILD_FC_PROGRAMS_TRUE@@ENABLE_CF_INTERFACE_TRUE@am__EXEEXT_2 = collectData2003$(EXEEXT)
+@BUILD_PIO_FC_PROGRAMS_TRUE@@ENABLE_CF_INTERFACE_TRUE@am__EXEEXT_3 = collectData2003.parallel$(EXEEXT)
+PROGRAMS = $(noinst_PROGRAMS)
+am_collectData_OBJECTS = collectData.$(OBJEXT)
+collectData_OBJECTS = $(am_collectData_OBJECTS)
+collectData_LDADD = $(LDADD)
+collectData_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+AM_V_lt = $(am__v_lt_@AM_V@)
+am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
+am__v_lt_0 = --silent
+am__v_lt_1 =
+am__objects_1 = collectData.parallel.$(OBJEXT)
+nodist_collectData_parallel_OBJECTS = $(am__objects_1)
+collectData_parallel_OBJECTS = $(nodist_collectData_parallel_OBJECTS)
+am__DEPENDENCIES_1 =
+collectData_parallel_DEPENDENCIES = $(top_builddir)/src/libcdipio.la \
+ $(am__DEPENDENCIES_1) $(LDADD)
+am_collectData2003_OBJECTS = collectData2003.$(OBJEXT)
+collectData2003_OBJECTS = $(am_collectData2003_OBJECTS)
+collectData2003_LDADD = $(LDADD)
+collectData2003_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am__objects_2 = collectData2003.parallel.$(OBJEXT)
+nodist_collectData2003_parallel_OBJECTS = $(am__objects_2)
+collectData2003_parallel_OBJECTS = \
+ $(nodist_collectData2003_parallel_OBJECTS)
+collectData2003_parallel_DEPENDENCIES = \
+ $(top_builddir)/src/libcdipio.la $(am__DEPENDENCIES_1) \
+ $(am__DEPENDENCIES_1) $(LDADD)
+am_collectDataNStreams_OBJECTS = collectDataNStreams.$(OBJEXT)
+collectDataNStreams_OBJECTS = $(am_collectDataNStreams_OBJECTS)
+collectDataNStreams_LDADD = $(LDADD)
+collectDataNStreams_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am__objects_3 = collectDataNStreams.parallel.$(OBJEXT)
+nodist_collectDataNStreams_parallel_OBJECTS = $(am__objects_3)
+collectDataNStreams_parallel_OBJECTS = \
+ $(nodist_collectDataNStreams_parallel_OBJECTS)
+collectDataNStreams_parallel_DEPENDENCIES = \
+ $(top_builddir)/src/libcdipio.la $(am__DEPENDENCIES_1) \
+ $(LDADD)
+am_compareResourcesArray_OBJECTS = compareResourcesArray.$(OBJEXT)
+compareResourcesArray_OBJECTS = $(am_compareResourcesArray_OBJECTS)
+compareResourcesArray_DEPENDENCIES = $(top_builddir)/src/libcdipio.la \
+ $(am__DEPENDENCIES_1) $(LDADD)
+AM_V_P = $(am__v_P_@AM_V@)
+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_@AM_V@)
+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
+am__v_GEN_0 = @echo " GEN " $@;
+am__v_GEN_1 =
+AM_V_at = $(am__v_at_@AM_V@)
+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
+am__v_at_0 = @
+am__v_at_1 =
+DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/src
+depcomp = $(SHELL) $(top_srcdir)/config/depcomp
+am__maybe_remake_depfiles = depfiles
+am__depfiles_remade = ./$(DEPDIR)/collectData.Po \
+ ./$(DEPDIR)/collectData.parallel.Po \
+ ./$(DEPDIR)/collectDataNStreams.Po \
+ ./$(DEPDIR)/collectDataNStreams.parallel.Po \
+ ./$(DEPDIR)/compareResourcesArray.Po
+am__mv = mv -f
+AM_V_PPFC = $(am__v_PPFC_@AM_V@)
+am__v_PPFC_ = $(am__v_PPFC_@AM_DEFAULT_V@)
+am__v_PPFC_0 = @echo " PPFC " $@;
+am__v_PPFC_1 =
+FCLD = $(FC)
+FCLINK = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) \
+ $(AM_LDFLAGS) $(LDFLAGS) -o $@
+AM_V_FCLD = $(am__v_FCLD_@AM_V@)
+am__v_FCLD_ = $(am__v_FCLD_@AM_DEFAULT_V@)
+am__v_FCLD_0 = @echo " FCLD " $@;
+am__v_FCLD_1 =
+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_@AM_V@)
+am__v_CC_ = $(am__v_CC_@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_@AM_V@)
+am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
+am__v_CCLD_0 = @echo " CCLD " $@;
+am__v_CCLD_1 =
+SOURCES = $(collectData_SOURCES) \
+ $(nodist_collectData_parallel_SOURCES) \
+ $(collectData2003_SOURCES) \
+ $(nodist_collectData2003_parallel_SOURCES) \
+ $(collectDataNStreams_SOURCES) \
+ $(nodist_collectDataNStreams_parallel_SOURCES) \
+ $(compareResourcesArray_SOURCES)
+DIST_SOURCES = $(collectData_SOURCES) $(collectData2003_SOURCES) \
+ $(collectDataNStreams_SOURCES) \
+ $(compareResourcesArray_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
+am__extra_recursive_targets = examples-recursive
+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)`
+am__DIST_COMMON = $(srcdir)/Makefile.in $(top_srcdir)/config/depcomp
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CSCOPE = @CSCOPE@
+CTAGS = @CTAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DCE_UUIDROOT = @DCE_UUIDROOT@
+DCE_UUID_C_INCLUDE = @DCE_UUID_C_INCLUDE@
+DCE_UUID_C_LIB = @DCE_UUID_C_LIB@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECCODES_INCLUDE = @ECCODES_INCLUDE@
+ECCODES_LIBS = @ECCODES_LIBS@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+ENABLE_ACROSS = @ENABLE_ACROSS@
+ENABLE_CDI_LIB = @ENABLE_CDI_LIB@
+ENABLE_CGRIBEX = @ENABLE_CGRIBEX@
+ENABLE_EXTRA = @ENABLE_EXTRA@
+ENABLE_GRIB = @ENABLE_GRIB@
+ENABLE_IEG = @ENABLE_IEG@
+ENABLE_MPI = @ENABLE_MPI@
+ENABLE_NC2 = @ENABLE_NC2@
+ENABLE_NC4 = @ENABLE_NC4@
+ENABLE_NC4HDF5 = @ENABLE_NC4HDF5@
+ENABLE_NC4SZLIB = @ENABLE_NC4SZLIB@
+ENABLE_NETCDF = @ENABLE_NETCDF@
+ENABLE_SERVICE = @ENABLE_SERVICE@
+ETAGS = @ETAGS@
+EXEEXT = @EXEEXT@
+F77 = @F77@
+FC = @FC@
+FCFLAGS = @FCFLAGS@
+FCFLAGS_f90 = @FCFLAGS_f90@
+FCMODCASE = @FCMODCASE@
+FCMODEXT = @FCMODEXT@
+FC_DEFINE = @FC_DEFINE@
+FC_MOD_FLAG = @FC_MOD_FLAG@
+FC_OPTINC = @FC_OPTINC@
+FDB5_INCLUDE = @FDB5_INCLUDE@
+FDB5_LIBS = @FDB5_LIBS@
+FFLAGS = @FFLAGS@
+FGREP = @FGREP@
+GREP = @GREP@
+GRIB_API_INCLUDE = @GRIB_API_INCLUDE@
+GRIB_API_LIBS = @GRIB_API_LIBS@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBRT = @LIBRT@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
+MAINT = @MAINT@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+MPIROOT = @MPIROOT@
+MPI_C_INCLUDE = @MPI_C_INCLUDE@
+MPI_C_LIB = @MPI_C_LIB@
+MPI_FC_LIB = @MPI_FC_LIB@
+MPI_FC_MOD = @MPI_FC_MOD@
+MPI_LAUNCH = @MPI_LAUNCH@
+NC_CONFIG = @NC_CONFIG@
+NETCDF_INCLUDE = @NETCDF_INCLUDE@
+NETCDF_LIBS = @NETCDF_LIBS@
+NETCDF_ROOT = @NETCDF_ROOT@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OPENMP_CFLAGS = @OPENMP_CFLAGS@
+OSSP_UUIDROOT = @OSSP_UUIDROOT@
+OSSP_UUID_C_INCLUDE = @OSSP_UUID_C_INCLUDE@
+OSSP_UUID_C_LIB = @OSSP_UUID_C_LIB@
+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@
+PKG_CONFIG = @PKG_CONFIG@
+PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
+PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
+PPM_CORE_C_INCLUDE = @PPM_CORE_C_INCLUDE@
+PPM_CORE_C_LIB = @PPM_CORE_C_LIB@
+PTHREAD_CC = @PTHREAD_CC@
+PTHREAD_CFLAGS = @PTHREAD_CFLAGS@
+PTHREAD_CXX = @PTHREAD_CXX@
+PTHREAD_LIBS = @PTHREAD_LIBS@
+PYTHON = @PYTHON@
+PYTHON_CPPFLAGS = @PYTHON_CPPFLAGS@
+PYTHON_EXEC_PREFIX = @PYTHON_EXEC_PREFIX@
+PYTHON_EXTRA_LDFLAGS = @PYTHON_EXTRA_LDFLAGS@
+PYTHON_EXTRA_LIBS = @PYTHON_EXTRA_LIBS@
+PYTHON_LIBS = @PYTHON_LIBS@
+PYTHON_PLATFORM = @PYTHON_PLATFORM@
+PYTHON_PLATFORM_SITE_PKG = @PYTHON_PLATFORM_SITE_PKG@
+PYTHON_PREFIX = @PYTHON_PREFIX@
+PYTHON_SITE_PKG = @PYTHON_SITE_PKG@
+PYTHON_VERSION = @PYTHON_VERSION@
+RANLIB = @RANLIB@
+RUBY = @RUBY@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+SWIG = @SWIG@
+SYSTEM_TYPE = @SYSTEM_TYPE@
+SZLIB_INCLUDE = @SZLIB_INCLUDE@
+SZLIB_LIBS = @SZLIB_LIBS@
+THREADS_INCLUDE = @THREADS_INCLUDE@
+THREADS_LIBS = @THREADS_LIBS@
+UTIL_LINUX_UUIDROOT = @UTIL_LINUX_UUIDROOT@
+UTIL_LINUX_UUID_C_INCLUDE = @UTIL_LINUX_UUID_C_INCLUDE@
+UTIL_LINUX_UUID_C_LIB = @UTIL_LINUX_UUID_C_LIB@
+UUID_C_INCLUDE = @UUID_C_INCLUDE@
+UUID_C_LIB = @UUID_C_LIB@
+VERSION = @VERSION@
+YAXT_C_INCLUDE = @YAXT_C_INCLUDE@
+YAXT_C_LIB = @YAXT_C_LIB@
+YAXT_FC_LIB = @YAXT_FC_LIB@
+YAXT_FC_MOD = @YAXT_FC_MOD@
+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@
+ac_ct_F77 = @ac_ct_F77@
+ac_ct_FC = @ac_ct_FC@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+ax_pthread_config = @ax_pthread_config@
+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@
+pkgpyexecdir = @pkgpyexecdir@
+pkgpythondir = @pkgpythondir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+pyexecdir = @pyexecdir@
+pythondir = @pythondir@
+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@
+noinst_PROGRAMS = $(am__append_4)
+CLEANFILES = $(am__append_5)
+AM_CPPFLAGS = -I$(top_srcdir)/src $(YAXT_C_INCLUDE) $(MPI_C_INCLUDE)
+AM_FCFLAGS = $(am__append_6) $(YAXT_FC_MOD) $(MPI_FC_MOD) -static
+AM_LDFLAGS = $(am__append_7)
+LDADD = $(top_builddir)/src/libcdi.la
+collectData_SOURCES = collectData.c
+nodist_collectData_parallel_SOURCES = $(collectData_SOURCES:.c=.parallel.c)
+collectData_parallel_LDADD = $(top_builddir)/src/libcdipio.la $(YAXT_C_LIB) $(LDADD)
+collectDataNStreams_SOURCES = collectDataNStreams.c
+nodist_collectDataNStreams_parallel_SOURCES = $(collectDataNStreams_SOURCES:.c=.parallel.c)
+collectDataNStreams_parallel_LDADD = $(top_builddir)/src/libcdipio.la $(YAXT_C_LIB) $(LDADD)
+compareResourcesArray_SOURCES = compareResourcesArray.c
+compareResourcesArray_LDADD = $(top_builddir)/src/libcdipio.la $(YAXT_C_LIB) $(LDADD)
+collectData2003_SOURCES = collectData2003.F90
+nodist_collectData2003_parallel_SOURCES = $(collectData2003_SOURCES:.F90=.parallel.F90)
+collectData2003_parallel_LDADD = $(top_builddir)/src/libcdipio.la $(YAXT_FC_LIB) $(MPI_FC_LIB) $(LDADD)
+
+# Compile programs using Libtool:
+COMPILE = $(LTCOMPILE)
+FCCOMPILE = $(LTFCCOMPILE)
+PPFCCOMPILE = $(LTPPFCCOMPILE)
+CXXCOMPILE = $(LTCXXCOMPILE)
+
+# Compile *.F90 without CPPFLAGS, which are normally meant for the C compiler
+# and might not be compatible with the Fortran compiler:
+LTPPFCCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
+
+
+# Avoid compiling twice by running Libtool with '-static'
+# This is safe because all Libtool libraries in this directory are
+# static-only and contain PIC objects:
+AM_CFLAGS = -static
+AM_CXXFLAGS = -static
+
+# Generate source files for parallel versions of the programs. We do this to
+# avoid target-specific flags, which result into rules that do not use the
+# compilation commands above.
+SUFFIXES = .parallel.c .parallel.F90
+all: all-am
+
+.SUFFIXES:
+.SUFFIXES: .parallel.c .parallel.F90 .F90 .c .lo .o .obj
+$(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 examples/pio/Makefile'; \
+ $(am__cd) $(top_srcdir) && \
+ $(AUTOMAKE) --foreign examples/pio/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__maybe_remake_depfiles)'; \
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
+ 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):
+
+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
+
+collectData$(EXEEXT): $(collectData_OBJECTS) $(collectData_DEPENDENCIES) $(EXTRA_collectData_DEPENDENCIES)
+ @rm -f collectData$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(collectData_OBJECTS) $(collectData_LDADD) $(LIBS)
+
+collectData.parallel$(EXEEXT): $(collectData_parallel_OBJECTS) $(collectData_parallel_DEPENDENCIES) $(EXTRA_collectData_parallel_DEPENDENCIES)
+ @rm -f collectData.parallel$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(collectData_parallel_OBJECTS) $(collectData_parallel_LDADD) $(LIBS)
+
+collectData2003$(EXEEXT): $(collectData2003_OBJECTS) $(collectData2003_DEPENDENCIES) $(EXTRA_collectData2003_DEPENDENCIES)
+ @rm -f collectData2003$(EXEEXT)
+ $(AM_V_FCLD)$(FCLINK) $(collectData2003_OBJECTS) $(collectData2003_LDADD) $(LIBS)
+
+collectData2003.parallel$(EXEEXT): $(collectData2003_parallel_OBJECTS) $(collectData2003_parallel_DEPENDENCIES) $(EXTRA_collectData2003_parallel_DEPENDENCIES)
+ @rm -f collectData2003.parallel$(EXEEXT)
+ $(AM_V_FCLD)$(FCLINK) $(collectData2003_parallel_OBJECTS) $(collectData2003_parallel_LDADD) $(LIBS)
+
+collectDataNStreams$(EXEEXT): $(collectDataNStreams_OBJECTS) $(collectDataNStreams_DEPENDENCIES) $(EXTRA_collectDataNStreams_DEPENDENCIES)
+ @rm -f collectDataNStreams$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(collectDataNStreams_OBJECTS) $(collectDataNStreams_LDADD) $(LIBS)
+
+collectDataNStreams.parallel$(EXEEXT): $(collectDataNStreams_parallel_OBJECTS) $(collectDataNStreams_parallel_DEPENDENCIES) $(EXTRA_collectDataNStreams_parallel_DEPENDENCIES)
+ @rm -f collectDataNStreams.parallel$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(collectDataNStreams_parallel_OBJECTS) $(collectDataNStreams_parallel_LDADD) $(LIBS)
+
+compareResourcesArray$(EXEEXT): $(compareResourcesArray_OBJECTS) $(compareResourcesArray_DEPENDENCIES) $(EXTRA_compareResourcesArray_DEPENDENCIES)
+ @rm -f compareResourcesArray$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(compareResourcesArray_OBJECTS) $(compareResourcesArray_LDADD) $(LIBS)
+
+mostlyclean-compile:
+ -rm -f *.$(OBJEXT)
+
+distclean-compile:
+ -rm -f *.tab.c
+
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/collectData.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/collectData.parallel.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/collectDataNStreams.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/collectDataNStreams.parallel.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/compareResourcesArray.Po@am__quote@ # am--include-marker
+
+$(am__depfiles_remade):
+ @$(MKDIR_P) $(@D)
+ @echo '# dummy' >$@-t && $(am__mv) $@-t $@
+
+am--depfiles: $(am__depfiles_remade)
+
+.F90.o:
+ $(AM_V_PPFC)$(PPFCCOMPILE) -c -o $@ $<
+
+.F90.obj:
+ $(AM_V_PPFC)$(PPFCCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
+
+.F90.lo:
+ $(AM_V_PPFC)$(LTPPFCCOMPILE) -c -o $@ $<
+
+.c.o:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
+
+.c.obj:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
+
+.c.lo:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
+
+mostlyclean-libtool:
+ -rm -f *.lo
+
+clean-libtool:
+ -rm -rf .libs _libs
+examples-local:
+
+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: $(BUILT_SOURCES)
+ $(MAKE) $(AM_MAKEFLAGS) distdir-am
+
+distdir-am: $(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 $(PROGRAMS)
+installdirs:
+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."
+clean: clean-am
+
+clean-am: clean-generic clean-libtool clean-local clean-noinstPROGRAMS \
+ mostlyclean-am
+
+distclean: distclean-am
+ -rm -f ./$(DEPDIR)/collectData.Po
+ -rm -f ./$(DEPDIR)/collectData.parallel.Po
+ -rm -f ./$(DEPDIR)/collectDataNStreams.Po
+ -rm -f ./$(DEPDIR)/collectDataNStreams.parallel.Po
+ -rm -f ./$(DEPDIR)/compareResourcesArray.Po
+ -rm -f Makefile
+distclean-am: clean-am distclean-compile distclean-generic \
+ distclean-tags
+
+dvi: dvi-am
+
+dvi-am:
+
+examples: examples-am
+
+examples-am: examples-local
+
+html: html-am
+
+html-am:
+
+info: info-am
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-am
+
+install-dvi-am:
+
+install-exec-am:
+
+install-html: install-html-am
+
+install-html-am:
+
+install-info: install-info-am
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-am
+
+install-pdf-am:
+
+install-ps: install-ps-am
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+ -rm -f ./$(DEPDIR)/collectData.Po
+ -rm -f ./$(DEPDIR)/collectData.parallel.Po
+ -rm -f ./$(DEPDIR)/collectDataNStreams.Po
+ -rm -f ./$(DEPDIR)/collectDataNStreams.parallel.Po
+ -rm -f ./$(DEPDIR)/compareResourcesArray.Po
+ -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:
+
+.MAKE: install-am install-strip
+
+.PHONY: CTAGS GTAGS TAGS all all-am am--depfiles check check-am clean \
+ clean-generic clean-libtool clean-local clean-noinstPROGRAMS \
+ cscopelist-am ctags ctags-am distclean distclean-compile \
+ distclean-generic distclean-libtool distclean-tags distdir dvi \
+ dvi-am examples-am examples-local html html-am info info-am \
+ install install-am 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-man \
+ 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
+
+.PRECIOUS: Makefile
+
+examples-local: $(EXTRA_PROGRAMS)
+
+clean-local:
+ -rm -f *.parallel.c *.parallel.F90
+ -rm -f *.grb
+ -rm -rf *.dSYM
+
+.c.parallel.c:
+ $(AM_V_GEN):;{ \
+ echo '#define USE_MPI 1'; \
+ echo '#include "$<"'; \
+ } >$@
+
+.F90.parallel.F90:
+ $(AM_V_GEN):;{ \
+ echo '#define USE_MPI 1'; \
+ echo '#include "$<"'; \
+ } >$@
+
+# 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/interfaces/Makefile.in b/interfaces/Makefile.in
new file mode 100644
index 000000000..3e179061e
--- /dev/null
+++ b/interfaces/Makefile.in
@@ -0,0 +1,1430 @@
+# Makefile.in generated by automake 1.16.5 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2021 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.
+
+@SET_MAKE@
+
+
+VPATH = @srcdir@
+am__is_gnu_make = { \
+ if test -z '$(MAKELEVEL)'; then \
+ false; \
+ elif test -n '$(MAKE_HOST)'; then \
+ true; \
+ elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
+ true; \
+ else \
+ false; \
+ fi; \
+}
+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@
+@ENABLE_RUBY_INTERFACE_TRUE@am__append_1 = ruby-binding
+@ENABLE_RUBY_INTERFACE_TRUE@am__append_2 = ruby-install
+@ENABLE_RUBY_INTERFACE_TRUE@am__append_3 = ruby-uninstall
+# We call with distclean to remove the generated ruby/Makefile, which is
+# generated by this makefile, and should, therefore, be deleted with
+# 'make clean':
+@ENABLE_RUBY_INTERFACE_TRUE@am__append_4 = ruby-clean
+@ENABLE_PYTHON_INTERFACE_FALSE@@ENABLE_RUBY_INTERFACE_TRUE@@with_on_demand_check_programs_TRUE@check_PROGRAMS = $(am__EXEEXT_1)
+@ENABLE_PYTHON_INTERFACE_TRUE@@with_on_demand_check_programs_TRUE@check_PROGRAMS = $(am__EXEEXT_1)
+@ENABLE_PYTHON_INTERFACE_FALSE@@ENABLE_RUBY_INTERFACE_TRUE@@with_on_demand_check_programs_FALSE@noinst_PROGRAMS = $(am__EXEEXT_1)
+@ENABLE_PYTHON_INTERFACE_TRUE@@with_on_demand_check_programs_FALSE@noinst_PROGRAMS = $(am__EXEEXT_1)
+subdir = interfaces
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = \
+ $(top_srcdir)/m4/acx_assert_lang_is_fortran_variant.m4 \
+ $(top_srcdir)/m4/acx_c_package.m4 \
+ $(top_srcdir)/m4/acx_cfortran_flags.m4 \
+ $(top_srcdir)/m4/acx_check_cfortran.m4 \
+ $(top_srcdir)/m4/acx_check_strptr_convert.m4 \
+ $(top_srcdir)/m4/acx_execinfo.m4 \
+ $(top_srcdir)/m4/acx_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_fortran_include_flag.m4 \
+ $(top_srcdir)/m4/acx_fortran_package.m4 \
+ $(top_srcdir)/m4/acx_lang_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_package.m4 \
+ $(top_srcdir)/m4/acx_lt_problems.m4 \
+ $(top_srcdir)/m4/acx_m4_list_to_quoted_strings.m4 \
+ $(top_srcdir)/m4/acx_mpirun.m4 $(top_srcdir)/m4/acx_mv_obj.m4 \
+ $(top_srcdir)/m4/acx_option_search_libs.m4 \
+ $(top_srcdir)/m4/acx_options.m4 \
+ $(top_srcdir)/m4/acx_prog_cc_posix.m4 \
+ $(top_srcdir)/m4/acx_sl_fc_mod_path_flag.m4 \
+ $(top_srcdir)/m4/acx_sl_mod_suffix.m4 \
+ $(top_srcdir)/m4/acx_tls_xlc_retry.m4 \
+ $(top_srcdir)/m4/acx_use_libtool_configuration.m4 \
+ $(top_srcdir)/m4/acx_uuid.m4 $(top_srcdir)/m4/asx_tr_arg.m4 \
+ $(top_srcdir)/m4/asx_unset.m4 $(top_srcdir)/m4/ax_pthread.m4 \
+ $(top_srcdir)/m4/ax_python_devel.m4 $(top_srcdir)/m4/ax_tls.m4 \
+ $(top_srcdir)/m4/kpse_libtool.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)/m4/pkg.m4 $(top_srcdir)/acinclude.m4 \
+ $(top_srcdir)/m4/ac_lang_program_fortran.m4 \
+ $(top_srcdir)/m4/acx_lang_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_c_check_include.m4 \
+ $(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+ $(ACLOCAL_M4)
+DIST_COMMON = $(srcdir)/Makefile.am $(am__python_PYTHON_DIST) \
+ $(am__DIST_COMMON)
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = $(top_builddir)/src/config.h
+CONFIG_CLEAN_FILES = test_cpp_nc.run test_python_grb.run \
+ test_python_nc.run test_ruby_grb.run test_ruby_nc.run
+CONFIG_CLEAN_VPATH_FILES =
+am__EXEEXT_1 = CdiInfo$(EXEEXT)
+PROGRAMS = $(noinst_PROGRAMS)
+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)$(pyexecdir)" "$(DESTDIR)$(pythondir)"
+LTLIBRARIES = $(pyexec_LTLIBRARIES)
+libcdipp_la_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_libcdipp_la_OBJECTS = cdi.lo
+libcdipp_la_OBJECTS = $(am_libcdipp_la_OBJECTS)
+AM_V_lt = $(am__v_lt_@AM_V@)
+am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
+am__v_lt_0 = --silent
+am__v_lt_1 =
+am__DEPENDENCIES_1 =
+@ENABLE_PYTHON_INTERFACE_TRUE@python__Cdi_la_DEPENDENCIES = \
+@ENABLE_PYTHON_INTERFACE_TRUE@ libcdipp.la \
+@ENABLE_PYTHON_INTERFACE_TRUE@ $(am__DEPENDENCIES_1)
+am__python__Cdi_la_SOURCES_DIST = python/cdi_wrapper.cpp
+am__dirstamp = $(am__leading_dot)dirstamp
+@ENABLE_PYTHON_INTERFACE_TRUE@am_python__Cdi_la_OBJECTS = \
+@ENABLE_PYTHON_INTERFACE_TRUE@ python/_Cdi_la-cdi_wrapper.lo
+python__Cdi_la_OBJECTS = $(am_python__Cdi_la_OBJECTS)
+python__Cdi_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX \
+ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CXXLD) \
+ $(python__Cdi_la_CXXFLAGS) $(CXXFLAGS) \
+ $(python__Cdi_la_LDFLAGS) $(LDFLAGS) -o $@
+@ENABLE_PYTHON_INTERFACE_TRUE@am_python__Cdi_la_rpath = -rpath \
+@ENABLE_PYTHON_INTERFACE_TRUE@ $(pyexecdir)
+am_CdiInfo_OBJECTS = CdiInfo.$(OBJEXT)
+CdiInfo_OBJECTS = $(am_CdiInfo_OBJECTS)
+CdiInfo_DEPENDENCIES = libcdipp.la
+AM_V_P = $(am__v_P_@AM_V@)
+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_@AM_V@)
+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
+am__v_GEN_0 = @echo " GEN " $@;
+am__v_GEN_1 =
+AM_V_at = $(am__v_at_@AM_V@)
+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
+am__v_at_0 = @
+am__v_at_1 =
+DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/src
+depcomp = $(SHELL) $(top_srcdir)/config/depcomp
+am__maybe_remake_depfiles = depfiles
+am__depfiles_remade = ./$(DEPDIR)/CdiInfo.Po ./$(DEPDIR)/cdi.Plo \
+ python/$(DEPDIR)/_Cdi_la-cdi_wrapper.Plo
+am__mv = mv -f
+LTCXXCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) \
+ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \
+ $(AM_CXXFLAGS) $(CXXFLAGS)
+AM_V_CXX = $(am__v_CXX_@AM_V@)
+am__v_CXX_ = $(am__v_CXX_@AM_DEFAULT_V@)
+am__v_CXX_0 = @echo " CXX " $@;
+am__v_CXX_1 =
+CXXLD = $(CXX)
+CXXLINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=link $(CXXLD) $(AM_CXXFLAGS) \
+ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@
+AM_V_CXXLD = $(am__v_CXXLD_@AM_V@)
+am__v_CXXLD_ = $(am__v_CXXLD_@AM_DEFAULT_V@)
+am__v_CXXLD_0 = @echo " CXXLD " $@;
+am__v_CXXLD_1 =
+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_@AM_V@)
+am__v_CC_ = $(am__v_CC_@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_@AM_V@)
+am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
+am__v_CCLD_0 = @echo " CCLD " $@;
+am__v_CCLD_1 =
+SOURCES = $(libcdipp_la_SOURCES) $(python__Cdi_la_SOURCES) \
+ $(CdiInfo_SOURCES)
+DIST_SOURCES = $(libcdipp_la_SOURCES) \
+ $(am__python__Cdi_la_SOURCES_DIST) $(CdiInfo_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
+am__python_PYTHON_DIST = python/Cdi.py
+am__py_compile = PYTHON=$(PYTHON) $(SHELL) $(py_compile)
+am__pep3147_tweak = \
+ sed -e 's|\.py$$||' -e 's|[^/]*$$|__pycache__/&.*.pyc __pycache__/&.*.pyo|'
+py_compile = $(top_srcdir)/config/py-compile
+am__extra_recursive_targets = examples-recursive
+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)`
+am__tty_colors_dummy = \
+ mgn= red= grn= lgn= blu= brg= std=; \
+ am__color_tests=no
+am__tty_colors = { \
+ $(am__tty_colors_dummy); \
+ if test "X$(AM_COLOR_TESTS)" = Xno; then \
+ am__color_tests=no; \
+ elif test "X$(AM_COLOR_TESTS)" = Xalways; then \
+ am__color_tests=yes; \
+ elif test "X$$TERM" != Xdumb && { test -t 1; } 2>/dev/null; then \
+ am__color_tests=yes; \
+ fi; \
+ if test $$am__color_tests = yes; then \
+ red='[0;31m'; \
+ grn='[0;32m'; \
+ lgn='[1;32m'; \
+ blu='[1;34m'; \
+ mgn='[0;35m'; \
+ brg='[1m'; \
+ std='[m'; \
+ fi; \
+}
+am__recheck_rx = ^[ ]*:recheck:[ ]*
+am__global_test_result_rx = ^[ ]*:global-test-result:[ ]*
+am__copy_in_global_log_rx = ^[ ]*:copy-in-global-log:[ ]*
+# A command that, given a newline-separated list of test names on the
+# standard input, print the name of the tests that are to be re-run
+# upon "make recheck".
+am__list_recheck_tests = $(AWK) '{ \
+ recheck = 1; \
+ while ((rc = (getline line < ($$0 ".trs"))) != 0) \
+ { \
+ if (rc < 0) \
+ { \
+ if ((getline line2 < ($$0 ".log")) < 0) \
+ recheck = 0; \
+ break; \
+ } \
+ else if (line ~ /$(am__recheck_rx)[nN][Oo]/) \
+ { \
+ recheck = 0; \
+ break; \
+ } \
+ else if (line ~ /$(am__recheck_rx)[yY][eE][sS]/) \
+ { \
+ break; \
+ } \
+ }; \
+ if (recheck) \
+ print $$0; \
+ close ($$0 ".trs"); \
+ close ($$0 ".log"); \
+}'
+# A command that, given a newline-separated list of test names on the
+# standard input, create the global log from their .trs and .log files.
+am__create_global_log = $(AWK) ' \
+function fatal(msg) \
+{ \
+ print "fatal: making $@: " msg | "cat >&2"; \
+ exit 1; \
+} \
+function rst_section(header) \
+{ \
+ print header; \
+ len = length(header); \
+ for (i = 1; i <= len; i = i + 1) \
+ printf "="; \
+ printf "\n\n"; \
+} \
+{ \
+ copy_in_global_log = 1; \
+ global_test_result = "RUN"; \
+ while ((rc = (getline line < ($$0 ".trs"))) != 0) \
+ { \
+ if (rc < 0) \
+ fatal("failed to read from " $$0 ".trs"); \
+ if (line ~ /$(am__global_test_result_rx)/) \
+ { \
+ sub("$(am__global_test_result_rx)", "", line); \
+ sub("[ ]*$$", "", line); \
+ global_test_result = line; \
+ } \
+ else if (line ~ /$(am__copy_in_global_log_rx)[nN][oO]/) \
+ copy_in_global_log = 0; \
+ }; \
+ if (copy_in_global_log) \
+ { \
+ rst_section(global_test_result ": " $$0); \
+ while ((rc = (getline line < ($$0 ".log"))) != 0) \
+ { \
+ if (rc < 0) \
+ fatal("failed to read from " $$0 ".log"); \
+ print line; \
+ }; \
+ printf "\n"; \
+ }; \
+ close ($$0 ".trs"); \
+ close ($$0 ".log"); \
+}'
+# Restructured Text title.
+am__rst_title = { sed 's/.*/ & /;h;s/./=/g;p;x;s/ *$$//;p;g' && echo; }
+# Solaris 10 'make', and several other traditional 'make' implementations,
+# pass "-e" to $(SHELL), and POSIX 2008 even requires this. Work around it
+# by disabling -e (using the XSI extension "set +e") if it's set.
+am__sh_e_setup = case $$- in *e*) set +e;; esac
+# Default flags passed to test drivers.
+am__common_driver_flags = \
+ --color-tests "$$am__color_tests" \
+ --enable-hard-errors "$$am__enable_hard_errors" \
+ --expect-failure "$$am__expect_failure"
+# To be inserted before the command running the test. Creates the
+# directory for the log if needed. Stores in $dir the directory
+# containing $f, in $tst the test, in $log the log. Executes the
+# developer- defined test setup AM_TESTS_ENVIRONMENT (if any), and
+# passes TESTS_ENVIRONMENT. Set up options for the wrapper that
+# will run the test scripts (or their associated LOG_COMPILER, if
+# thy have one).
+am__check_pre = \
+$(am__sh_e_setup); \
+$(am__vpath_adj_setup) $(am__vpath_adj) \
+$(am__tty_colors); \
+srcdir=$(srcdir); export srcdir; \
+case "$@" in \
+ */*) am__odir=`echo "./$@" | sed 's|/[^/]*$$||'`;; \
+ *) am__odir=.;; \
+esac; \
+test "x$$am__odir" = x"." || test -d "$$am__odir" \
+ || $(MKDIR_P) "$$am__odir" || exit $$?; \
+if test -f "./$$f"; then dir=./; \
+elif test -f "$$f"; then dir=; \
+else dir="$(srcdir)/"; fi; \
+tst=$$dir$$f; log='$@'; \
+if test -n '$(DISABLE_HARD_ERRORS)'; then \
+ am__enable_hard_errors=no; \
+else \
+ am__enable_hard_errors=yes; \
+fi; \
+case " $(XFAIL_TESTS) " in \
+ *[\ \ ]$$f[\ \ ]* | *[\ \ ]$$dir$$f[\ \ ]*) \
+ am__expect_failure=yes;; \
+ *) \
+ am__expect_failure=no;; \
+esac; \
+$(AM_TESTS_ENVIRONMENT) $(TESTS_ENVIRONMENT)
+# A shell command to get the names of the tests scripts with any registered
+# extension removed (i.e., equivalently, the names of the test logs, with
+# the '.log' extension removed). The result is saved in the shell variable
+# '$bases'. This honors runtime overriding of TESTS and TEST_LOGS. Sadly,
+# we cannot use something simpler, involving e.g., "$(TEST_LOGS:.log=)",
+# since that might cause problem with VPATH rewrites for suffix-less tests.
+# See also 'test-harness-vpath-rewrite.sh' and 'test-trs-basic.sh'.
+am__set_TESTS_bases = \
+ bases='$(TEST_LOGS)'; \
+ bases=`for i in $$bases; do echo $$i; done | sed 's/\.log$$//'`; \
+ bases=`echo $$bases`
+RECHECK_LOGS = $(TEST_LOGS)
+AM_RECURSIVE_TARGETS = check recheck
+TEST_SUITE_LOG = test-suite.log
+am__test_logs1 = $(TESTS:=.log)
+am__test_logs2 = $(am__test_logs1:@EXEEXT@.log=.log)
+TEST_LOGS = $(am__test_logs2:.run.log=.log)
+RUN_LOG_DRIVER = $(SHELL) $(top_srcdir)/config/test-driver
+RUN_LOG_COMPILE = $(RUN_LOG_COMPILER) $(AM_RUN_LOG_FLAGS) \
+ $(RUN_LOG_FLAGS)
+am__set_b = \
+ case '$@' in \
+ */*) \
+ case '$*' in \
+ */*) b='$*';; \
+ *) b=`echo '$@' | sed 's/\.log$$//'`; \
+ esac;; \
+ *) \
+ b='$*';; \
+ esac
+am__DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/test_cpp_nc.run.in \
+ $(srcdir)/test_python_grb.run.in \
+ $(srcdir)/test_python_nc.run.in $(srcdir)/test_ruby_grb.run.in \
+ $(srcdir)/test_ruby_nc.run.in $(top_srcdir)/config/depcomp \
+ $(top_srcdir)/config/py-compile \
+ $(top_srcdir)/config/test-driver
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CSCOPE = @CSCOPE@
+CTAGS = @CTAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DCE_UUIDROOT = @DCE_UUIDROOT@
+DCE_UUID_C_INCLUDE = @DCE_UUID_C_INCLUDE@
+DCE_UUID_C_LIB = @DCE_UUID_C_LIB@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECCODES_INCLUDE = @ECCODES_INCLUDE@
+ECCODES_LIBS = @ECCODES_LIBS@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+ENABLE_ACROSS = @ENABLE_ACROSS@
+ENABLE_CDI_LIB = @ENABLE_CDI_LIB@
+ENABLE_CGRIBEX = @ENABLE_CGRIBEX@
+ENABLE_EXTRA = @ENABLE_EXTRA@
+ENABLE_GRIB = @ENABLE_GRIB@
+ENABLE_IEG = @ENABLE_IEG@
+ENABLE_MPI = @ENABLE_MPI@
+ENABLE_NC2 = @ENABLE_NC2@
+ENABLE_NC4 = @ENABLE_NC4@
+ENABLE_NC4HDF5 = @ENABLE_NC4HDF5@
+ENABLE_NC4SZLIB = @ENABLE_NC4SZLIB@
+ENABLE_NETCDF = @ENABLE_NETCDF@
+ENABLE_SERVICE = @ENABLE_SERVICE@
+ETAGS = @ETAGS@
+EXEEXT = @EXEEXT@
+F77 = @F77@
+FC = @FC@
+FCFLAGS = @FCFLAGS@
+FCFLAGS_f90 = @FCFLAGS_f90@
+FCMODCASE = @FCMODCASE@
+FCMODEXT = @FCMODEXT@
+FC_DEFINE = @FC_DEFINE@
+FC_MOD_FLAG = @FC_MOD_FLAG@
+FC_OPTINC = @FC_OPTINC@
+FDB5_INCLUDE = @FDB5_INCLUDE@
+FDB5_LIBS = @FDB5_LIBS@
+FFLAGS = @FFLAGS@
+FGREP = @FGREP@
+GREP = @GREP@
+GRIB_API_INCLUDE = @GRIB_API_INCLUDE@
+GRIB_API_LIBS = @GRIB_API_LIBS@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBRT = @LIBRT@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
+MAINT = @MAINT@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+MPIROOT = @MPIROOT@
+MPI_C_INCLUDE = @MPI_C_INCLUDE@
+MPI_C_LIB = @MPI_C_LIB@
+MPI_FC_LIB = @MPI_FC_LIB@
+MPI_FC_MOD = @MPI_FC_MOD@
+MPI_LAUNCH = @MPI_LAUNCH@
+NC_CONFIG = @NC_CONFIG@
+NETCDF_INCLUDE = @NETCDF_INCLUDE@
+NETCDF_LIBS = @NETCDF_LIBS@
+NETCDF_ROOT = @NETCDF_ROOT@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OPENMP_CFLAGS = @OPENMP_CFLAGS@
+OSSP_UUIDROOT = @OSSP_UUIDROOT@
+OSSP_UUID_C_INCLUDE = @OSSP_UUID_C_INCLUDE@
+OSSP_UUID_C_LIB = @OSSP_UUID_C_LIB@
+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@
+PKG_CONFIG = @PKG_CONFIG@
+PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
+PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
+PPM_CORE_C_INCLUDE = @PPM_CORE_C_INCLUDE@
+PPM_CORE_C_LIB = @PPM_CORE_C_LIB@
+PTHREAD_CC = @PTHREAD_CC@
+PTHREAD_CFLAGS = @PTHREAD_CFLAGS@
+PTHREAD_CXX = @PTHREAD_CXX@
+PTHREAD_LIBS = @PTHREAD_LIBS@
+PYTHON = @PYTHON@
+PYTHON_CPPFLAGS = @PYTHON_CPPFLAGS@
+PYTHON_EXEC_PREFIX = @PYTHON_EXEC_PREFIX@
+PYTHON_EXTRA_LDFLAGS = @PYTHON_EXTRA_LDFLAGS@
+PYTHON_EXTRA_LIBS = @PYTHON_EXTRA_LIBS@
+PYTHON_LIBS = @PYTHON_LIBS@
+PYTHON_PLATFORM = @PYTHON_PLATFORM@
+PYTHON_PLATFORM_SITE_PKG = @PYTHON_PLATFORM_SITE_PKG@
+PYTHON_PREFIX = @PYTHON_PREFIX@
+PYTHON_SITE_PKG = @PYTHON_SITE_PKG@
+PYTHON_VERSION = @PYTHON_VERSION@
+RANLIB = @RANLIB@
+RUBY = @RUBY@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+SWIG = @SWIG@
+SYSTEM_TYPE = @SYSTEM_TYPE@
+SZLIB_INCLUDE = @SZLIB_INCLUDE@
+SZLIB_LIBS = @SZLIB_LIBS@
+THREADS_INCLUDE = @THREADS_INCLUDE@
+THREADS_LIBS = @THREADS_LIBS@
+UTIL_LINUX_UUIDROOT = @UTIL_LINUX_UUIDROOT@
+UTIL_LINUX_UUID_C_INCLUDE = @UTIL_LINUX_UUID_C_INCLUDE@
+UTIL_LINUX_UUID_C_LIB = @UTIL_LINUX_UUID_C_LIB@
+UUID_C_INCLUDE = @UUID_C_INCLUDE@
+UUID_C_LIB = @UUID_C_LIB@
+VERSION = @VERSION@
+YAXT_C_INCLUDE = @YAXT_C_INCLUDE@
+YAXT_C_LIB = @YAXT_C_LIB@
+YAXT_FC_LIB = @YAXT_FC_LIB@
+YAXT_FC_MOD = @YAXT_FC_MOD@
+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@
+ac_ct_F77 = @ac_ct_F77@
+ac_ct_FC = @ac_ct_FC@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+ax_pthread_config = @ax_pthread_config@
+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@
+pkgpyexecdir = @pkgpyexecdir@
+pkgpythondir = @pkgpythondir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+pyexecdir = @pyexecdir@
+pythondir = @pythondir@
+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@
+EXTRA_LTLIBRARIES = libcdipp.la
+libcdipp_la_SOURCES = cdi.cpp cdi.hpp
+libcdipp_la_LIBADD = $(top_builddir)/src/libcdi.la
+test_PROGRAMS_ = CdiInfo
+CdiInfo_SOURCES = CdiInfo.cpp
+CdiInfo_LDADD = libcdipp.la
+AM_CPPFLAGS = -I$(abs_top_srcdir)/src
+all_local = $(am__append_1)
+install_exec_local = $(am__append_2)
+uninstall_local = $(am__append_3)
+clean_local = $(am__append_4)
+@ENABLE_RUBY_INTERFACE_TRUE@V_MAKERUBY = $(v_MAKERUBY_@AM_V@)
+@ENABLE_RUBY_INTERFACE_TRUE@v_MAKERUBY_ = $(v_MAKERUBY_@AM_DEFAULT_V@)
+@ENABLE_RUBY_INTERFACE_TRUE@v_MAKERUBY_0 = 0
+@ENABLE_RUBY_INTERFACE_TRUE@v_MAKERUBY_1 = 1
+AUTOMAKE_OPTIONS = subdir-objects
+@ENABLE_PYTHON_INTERFACE_TRUE@python_PYTHON = python/Cdi.py
+@ENABLE_PYTHON_INTERFACE_TRUE@pyexec_LTLIBRARIES = python/_Cdi.la
+@ENABLE_PYTHON_INTERFACE_TRUE@python__Cdi_la_SOURCES = python/cdi_wrapper.cpp
+@ENABLE_PYTHON_INTERFACE_TRUE@python__Cdi_la_CPPFLAGS = $(AM_CPPFLAGS) $(PYTHON_CPPFLAGS)
+@ENABLE_PYTHON_INTERFACE_TRUE@python__Cdi_la_CXXFLAGS = $(AM_CXXFLAGS) -shared
+@ENABLE_PYTHON_INTERFACE_TRUE@python__Cdi_la_LDFLAGS = $(AM_LDFLAGS) -module -avoid-version
+@ENABLE_PYTHON_INTERFACE_TRUE@python__Cdi_la_LIBADD = libcdipp.la $(PYTHON_LIBS)
+AM_TESTSUITE_SUMMARY_HEADER = ' for Ruby and Python interfaces of $(PACKAGE_STRING)'
+TEST_EXTENSIONS = .run
+TESTS = \
+ test_cpp_nc.run \
+ test_python_grb.run \
+ test_python_nc.run \
+ test_ruby_grb.run \
+ test_ruby_nc.run
+
+MOSTLYCLEANFILES = $(EXTRA_LTLIBRARIES)
+MAINTAINERCLEANFILES = \
+ python/Cdi.py \
+ python/cdi_wrapper.cpp \
+ ruby/cdi_wrapper.cpp
+
+EXTRA_DIST = \
+ cdi.i \
+ f2003/bindGen.rb \
+ python/test.py \
+ ruby/cdi_wrapper.cpp \
+ ruby/setup.rb \
+ ruby/test.rb \
+ testdata/mulval.grb \
+ testdata/mulval.nc
+
+
+# Compile programs using Libtool:
+COMPILE = $(LTCOMPILE)
+FCCOMPILE = $(LTFCCOMPILE)
+PPFCCOMPILE = $(LTPPFCCOMPILE)
+CXXCOMPILE = $(LTCXXCOMPILE)
+
+# Compile *.F90 without CPPFLAGS, which are normally meant for the C compiler
+# and might not be compatible with the Fortran compiler:
+LTPPFCCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
+
+all: all-am
+
+.SUFFIXES:
+.SUFFIXES: .cpp .lo .log .o .obj .run .run$(EXEEXT) .trs
+$(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 interfaces/Makefile'; \
+ $(am__cd) $(top_srcdir) && \
+ $(AUTOMAKE) --foreign interfaces/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__maybe_remake_depfiles)'; \
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
+ 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):
+test_cpp_nc.run: $(top_builddir)/config.status $(srcdir)/test_cpp_nc.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_python_grb.run: $(top_builddir)/config.status $(srcdir)/test_python_grb.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_python_nc.run: $(top_builddir)/config.status $(srcdir)/test_python_nc.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_ruby_grb.run: $(top_builddir)/config.status $(srcdir)/test_ruby_grb.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_ruby_nc.run: $(top_builddir)/config.status $(srcdir)/test_ruby_nc.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+
+clean-checkPROGRAMS:
+ @list='$(check_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
+
+install-pyexecLTLIBRARIES: $(pyexec_LTLIBRARIES)
+ @$(NORMAL_INSTALL)
+ @list='$(pyexec_LTLIBRARIES)'; test -n "$(pyexecdir)" || 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)$(pyexecdir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pyexecdir)" || exit 1; \
+ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(pyexecdir)'"; \
+ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(pyexecdir)"; \
+ }
+
+uninstall-pyexecLTLIBRARIES:
+ @$(NORMAL_UNINSTALL)
+ @list='$(pyexec_LTLIBRARIES)'; test -n "$(pyexecdir)" || list=; \
+ for p in $$list; do \
+ $(am__strip_dir) \
+ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(pyexecdir)/$$f'"; \
+ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(pyexecdir)/$$f"; \
+ done
+
+clean-pyexecLTLIBRARIES:
+ -test -z "$(pyexec_LTLIBRARIES)" || rm -f $(pyexec_LTLIBRARIES)
+ @list='$(pyexec_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}; \
+ }
+
+libcdipp.la: $(libcdipp_la_OBJECTS) $(libcdipp_la_DEPENDENCIES) $(EXTRA_libcdipp_la_DEPENDENCIES)
+ $(AM_V_CXXLD)$(CXXLINK) $(libcdipp_la_OBJECTS) $(libcdipp_la_LIBADD) $(LIBS)
+python/$(am__dirstamp):
+ @$(MKDIR_P) python
+ @: > python/$(am__dirstamp)
+python/$(DEPDIR)/$(am__dirstamp):
+ @$(MKDIR_P) python/$(DEPDIR)
+ @: > python/$(DEPDIR)/$(am__dirstamp)
+python/_Cdi_la-cdi_wrapper.lo: python/$(am__dirstamp) \
+ python/$(DEPDIR)/$(am__dirstamp)
+
+python/_Cdi.la: $(python__Cdi_la_OBJECTS) $(python__Cdi_la_DEPENDENCIES) $(EXTRA_python__Cdi_la_DEPENDENCIES) python/$(am__dirstamp)
+ $(AM_V_CXXLD)$(python__Cdi_la_LINK) $(am_python__Cdi_la_rpath) $(python__Cdi_la_OBJECTS) $(python__Cdi_la_LIBADD) $(LIBS)
+
+CdiInfo$(EXEEXT): $(CdiInfo_OBJECTS) $(CdiInfo_DEPENDENCIES) $(EXTRA_CdiInfo_DEPENDENCIES)
+ @rm -f CdiInfo$(EXEEXT)
+ $(AM_V_CXXLD)$(CXXLINK) $(CdiInfo_OBJECTS) $(CdiInfo_LDADD) $(LIBS)
+
+mostlyclean-compile:
+ -rm -f *.$(OBJEXT)
+ -rm -f python/*.$(OBJEXT)
+ -rm -f python/*.lo
+
+distclean-compile:
+ -rm -f *.tab.c
+
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/CdiInfo.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@python/$(DEPDIR)/_Cdi_la-cdi_wrapper.Plo@am__quote@ # am--include-marker
+
+$(am__depfiles_remade):
+ @$(MKDIR_P) $(@D)
+ @echo '# dummy' >$@-t && $(am__mv) $@-t $@
+
+am--depfiles: $(am__depfiles_remade)
+
+.cpp.o:
+@am__fastdepCXX_TRUE@ $(AM_V_CXX)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.o$$||'`;\
+@am__fastdepCXX_TRUE@ $(CXXCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\
+@am__fastdepCXX_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ $<
+
+.cpp.obj:
+@am__fastdepCXX_TRUE@ $(AM_V_CXX)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.obj$$||'`;\
+@am__fastdepCXX_TRUE@ $(CXXCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ `$(CYGPATH_W) '$<'` &&\
+@am__fastdepCXX_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
+
+.cpp.lo:
+@am__fastdepCXX_TRUE@ $(AM_V_CXX)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.lo$$||'`;\
+@am__fastdepCXX_TRUE@ $(LTCXXCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\
+@am__fastdepCXX_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Plo
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $<
+
+python/_Cdi_la-cdi_wrapper.lo: python/cdi_wrapper.cpp
+@am__fastdepCXX_TRUE@ $(AM_V_CXX)$(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(python__Cdi_la_CPPFLAGS) $(CPPFLAGS) $(python__Cdi_la_CXXFLAGS) $(CXXFLAGS) -MT python/_Cdi_la-cdi_wrapper.lo -MD -MP -MF python/$(DEPDIR)/_Cdi_la-cdi_wrapper.Tpo -c -o python/_Cdi_la-cdi_wrapper.lo `test -f 'python/cdi_wrapper.cpp' || echo '$(srcdir)/'`python/cdi_wrapper.cpp
+@am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) python/$(DEPDIR)/_Cdi_la-cdi_wrapper.Tpo python/$(DEPDIR)/_Cdi_la-cdi_wrapper.Plo
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(AM_V_CXX)source='python/cdi_wrapper.cpp' object='python/_Cdi_la-cdi_wrapper.lo' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(python__Cdi_la_CPPFLAGS) $(CPPFLAGS) $(python__Cdi_la_CXXFLAGS) $(CXXFLAGS) -c -o python/_Cdi_la-cdi_wrapper.lo `test -f 'python/cdi_wrapper.cpp' || echo '$(srcdir)/'`python/cdi_wrapper.cpp
+
+mostlyclean-libtool:
+ -rm -f *.lo
+
+clean-libtool:
+ -rm -rf .libs _libs
+ -rm -rf python/.libs python/_libs
+install-pythonPYTHON: $(python_PYTHON)
+ @$(NORMAL_INSTALL)
+ @list='$(python_PYTHON)'; dlist=; list2=; test -n "$(pythondir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pythondir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pythondir)" || exit 1; \
+ fi; \
+ for p in $$list; do \
+ if test -f "$$p"; then b=; else b="$(srcdir)/"; fi; \
+ if test -f $$b$$p; then \
+ $(am__strip_dir) \
+ dlist="$$dlist $$f"; \
+ list2="$$list2 $$b$$p"; \
+ else :; fi; \
+ done; \
+ for file in $$list2; do echo $$file; done | $(am__base_list) | \
+ while read files; do \
+ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pythondir)'"; \
+ $(INSTALL_DATA) $$files "$(DESTDIR)$(pythondir)" || exit $$?; \
+ done || exit $$?; \
+ if test -n "$$dlist"; then \
+ $(am__py_compile) --destdir "$(DESTDIR)" \
+ --basedir "$(pythondir)" $$dlist; \
+ else :; fi
+
+uninstall-pythonPYTHON:
+ @$(NORMAL_UNINSTALL)
+ @list='$(python_PYTHON)'; test -n "$(pythondir)" || list=; \
+ py_files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
+ test -n "$$py_files" || exit 0; \
+ dir='$(DESTDIR)$(pythondir)'; \
+ pyc_files=`echo "$$py_files" | sed 's|$$|c|'`; \
+ pyo_files=`echo "$$py_files" | sed 's|$$|o|'`; \
+ st=0; \
+ for files in "$$py_files" "$$pyc_files" "$$pyo_files"; do \
+ $(am__uninstall_files_from_dir) || st=$$?; \
+ done; \
+ dir='$(DESTDIR)$(pythondir)'; \
+ echo "$$py_files" | $(am__pep3147_tweak) | $(am__base_list) | \
+ while read files; do \
+ $(am__uninstall_files_from_dir) || st=$$?; \
+ done || exit $$?; \
+ exit $$st
+examples-local:
+
+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
+
+# Recover from deleted '.trs' file; this should ensure that
+# "rm -f foo.log; make foo.trs" re-run 'foo.test', and re-create
+# both 'foo.log' and 'foo.trs'. Break the recipe in two subshells
+# to avoid problems with "make -n".
+.log.trs:
+ rm -f $< $@
+ $(MAKE) $(AM_MAKEFLAGS) $<
+
+# Leading 'am--fnord' is there to ensure the list of targets does not
+# expand to empty, as could happen e.g. with make check TESTS=''.
+am--fnord $(TEST_LOGS) $(TEST_LOGS:.log=.trs): $(am__force_recheck)
+am--force-recheck:
+ @:
+
+$(TEST_SUITE_LOG): $(TEST_LOGS)
+ @$(am__set_TESTS_bases); \
+ am__f_ok () { test -f "$$1" && test -r "$$1"; }; \
+ redo_bases=`for i in $$bases; do \
+ am__f_ok $$i.trs && am__f_ok $$i.log || echo $$i; \
+ done`; \
+ if test -n "$$redo_bases"; then \
+ redo_logs=`for i in $$redo_bases; do echo $$i.log; done`; \
+ redo_results=`for i in $$redo_bases; do echo $$i.trs; done`; \
+ if $(am__make_dryrun); then :; else \
+ rm -f $$redo_logs && rm -f $$redo_results || exit 1; \
+ fi; \
+ fi; \
+ if test -n "$$am__remaking_logs"; then \
+ echo "fatal: making $(TEST_SUITE_LOG): possible infinite" \
+ "recursion detected" >&2; \
+ elif test -n "$$redo_logs"; then \
+ am__remaking_logs=yes $(MAKE) $(AM_MAKEFLAGS) $$redo_logs; \
+ fi; \
+ if $(am__make_dryrun); then :; else \
+ st=0; \
+ errmsg="fatal: making $(TEST_SUITE_LOG): failed to create"; \
+ for i in $$redo_bases; do \
+ test -f $$i.trs && test -r $$i.trs \
+ || { echo "$$errmsg $$i.trs" >&2; st=1; }; \
+ test -f $$i.log && test -r $$i.log \
+ || { echo "$$errmsg $$i.log" >&2; st=1; }; \
+ done; \
+ test $$st -eq 0 || exit 1; \
+ fi
+ @$(am__sh_e_setup); $(am__tty_colors); $(am__set_TESTS_bases); \
+ ws='[ ]'; \
+ results=`for b in $$bases; do echo $$b.trs; done`; \
+ test -n "$$results" || results=/dev/null; \
+ all=` grep "^$$ws*:test-result:" $$results | wc -l`; \
+ pass=` grep "^$$ws*:test-result:$$ws*PASS" $$results | wc -l`; \
+ fail=` grep "^$$ws*:test-result:$$ws*FAIL" $$results | wc -l`; \
+ skip=` grep "^$$ws*:test-result:$$ws*SKIP" $$results | wc -l`; \
+ xfail=`grep "^$$ws*:test-result:$$ws*XFAIL" $$results | wc -l`; \
+ xpass=`grep "^$$ws*:test-result:$$ws*XPASS" $$results | wc -l`; \
+ error=`grep "^$$ws*:test-result:$$ws*ERROR" $$results | wc -l`; \
+ if test `expr $$fail + $$xpass + $$error` -eq 0; then \
+ success=true; \
+ else \
+ success=false; \
+ fi; \
+ br='==================='; br=$$br$$br$$br$$br; \
+ result_count () \
+ { \
+ if test x"$$1" = x"--maybe-color"; then \
+ maybe_colorize=yes; \
+ elif test x"$$1" = x"--no-color"; then \
+ maybe_colorize=no; \
+ else \
+ echo "$@: invalid 'result_count' usage" >&2; exit 4; \
+ fi; \
+ shift; \
+ desc=$$1 count=$$2; \
+ if test $$maybe_colorize = yes && test $$count -gt 0; then \
+ color_start=$$3 color_end=$$std; \
+ else \
+ color_start= color_end=; \
+ fi; \
+ echo "$${color_start}# $$desc $$count$${color_end}"; \
+ }; \
+ create_testsuite_report () \
+ { \
+ result_count $$1 "TOTAL:" $$all "$$brg"; \
+ result_count $$1 "PASS: " $$pass "$$grn"; \
+ result_count $$1 "SKIP: " $$skip "$$blu"; \
+ result_count $$1 "XFAIL:" $$xfail "$$lgn"; \
+ result_count $$1 "FAIL: " $$fail "$$red"; \
+ result_count $$1 "XPASS:" $$xpass "$$red"; \
+ result_count $$1 "ERROR:" $$error "$$mgn"; \
+ }; \
+ { \
+ echo "$(PACKAGE_STRING): $(subdir)/$(TEST_SUITE_LOG)" | \
+ $(am__rst_title); \
+ create_testsuite_report --no-color; \
+ echo; \
+ echo ".. contents:: :depth: 2"; \
+ echo; \
+ for b in $$bases; do echo $$b; done \
+ | $(am__create_global_log); \
+ } >$(TEST_SUITE_LOG).tmp || exit 1; \
+ mv $(TEST_SUITE_LOG).tmp $(TEST_SUITE_LOG); \
+ if $$success; then \
+ col="$$grn"; \
+ else \
+ col="$$red"; \
+ test x"$$VERBOSE" = x || cat $(TEST_SUITE_LOG); \
+ fi; \
+ echo "$${col}$$br$${std}"; \
+ echo "$${col}Testsuite summary"$(AM_TESTSUITE_SUMMARY_HEADER)"$${std}"; \
+ echo "$${col}$$br$${std}"; \
+ create_testsuite_report --maybe-color; \
+ echo "$$col$$br$$std"; \
+ if $$success; then :; else \
+ echo "$${col}See $(subdir)/$(TEST_SUITE_LOG)$${std}"; \
+ if test -n "$(PACKAGE_BUGREPORT)"; then \
+ echo "$${col}Please report to $(PACKAGE_BUGREPORT)$${std}"; \
+ fi; \
+ echo "$$col$$br$$std"; \
+ fi; \
+ $$success || exit 1
+
+check-TESTS: $(check_PROGRAMS)
+ @list='$(RECHECK_LOGS)'; test -z "$$list" || rm -f $$list
+ @list='$(RECHECK_LOGS:.log=.trs)'; test -z "$$list" || rm -f $$list
+ @test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG)
+ @set +e; $(am__set_TESTS_bases); \
+ log_list=`for i in $$bases; do echo $$i.log; done`; \
+ trs_list=`for i in $$bases; do echo $$i.trs; done`; \
+ log_list=`echo $$log_list`; trs_list=`echo $$trs_list`; \
+ $(MAKE) $(AM_MAKEFLAGS) $(TEST_SUITE_LOG) TEST_LOGS="$$log_list"; \
+ exit $$?;
+recheck: all $(check_PROGRAMS)
+ @test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG)
+ @set +e; $(am__set_TESTS_bases); \
+ bases=`for i in $$bases; do echo $$i; done \
+ | $(am__list_recheck_tests)` || exit 1; \
+ log_list=`for i in $$bases; do echo $$i.log; done`; \
+ log_list=`echo $$log_list`; \
+ $(MAKE) $(AM_MAKEFLAGS) $(TEST_SUITE_LOG) \
+ am__force_recheck=am--force-recheck \
+ TEST_LOGS="$$log_list"; \
+ exit $$?
+.run.log:
+ @p='$<'; \
+ $(am__set_b); \
+ $(am__check_pre) $(RUN_LOG_DRIVER) --test-name "$$f" \
+ --log-file $$b.log --trs-file $$b.trs \
+ $(am__common_driver_flags) $(AM_RUN_LOG_DRIVER_FLAGS) $(RUN_LOG_DRIVER_FLAGS) -- $(RUN_LOG_COMPILE) \
+ "$$tst" $(AM_TESTS_FD_REDIRECT)
+@am__EXEEXT_TRUE@.run$(EXEEXT).log:
+@am__EXEEXT_TRUE@ @p='$<'; \
+@am__EXEEXT_TRUE@ $(am__set_b); \
+@am__EXEEXT_TRUE@ $(am__check_pre) $(RUN_LOG_DRIVER) --test-name "$$f" \
+@am__EXEEXT_TRUE@ --log-file $$b.log --trs-file $$b.trs \
+@am__EXEEXT_TRUE@ $(am__common_driver_flags) $(AM_RUN_LOG_DRIVER_FLAGS) $(RUN_LOG_DRIVER_FLAGS) -- $(RUN_LOG_COMPILE) \
+@am__EXEEXT_TRUE@ "$$tst" $(AM_TESTS_FD_REDIRECT)
+distdir: $(BUILT_SOURCES)
+ $(MAKE) $(AM_MAKEFLAGS) distdir-am
+
+distdir-am: $(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
+ $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS)
+ $(MAKE) $(AM_MAKEFLAGS) check-TESTS
+check: check-am
+all-am: Makefile $(PROGRAMS) $(LTLIBRARIES) all-local
+installdirs:
+ for dir in "$(DESTDIR)$(pyexecdir)" "$(DESTDIR)$(pythondir)"; 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:
+ -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
+ -test -z "$(TEST_LOGS)" || rm -f $(TEST_LOGS)
+ -test -z "$(TEST_LOGS:.log=.trs)" || rm -f $(TEST_LOGS:.log=.trs)
+ -test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG)
+
+clean-generic:
+
+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)
+ -rm -f python/$(DEPDIR)/$(am__dirstamp)
+ -rm -f python/$(am__dirstamp)
+
+maintainer-clean-generic:
+ @echo "This command is intended for maintainers to use"
+ @echo "it deletes files that may require special tools to rebuild."
+ -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
+clean: clean-am
+
+clean-am: clean-checkPROGRAMS clean-generic clean-libtool clean-local \
+ clean-noinstPROGRAMS clean-pyexecLTLIBRARIES mostlyclean-am
+
+distclean: distclean-am
+ -rm -f ./$(DEPDIR)/CdiInfo.Po
+ -rm -f ./$(DEPDIR)/cdi.Plo
+ -rm -f python/$(DEPDIR)/_Cdi_la-cdi_wrapper.Plo
+ -rm -f Makefile
+distclean-am: clean-am distclean-compile distclean-generic \
+ distclean-tags
+
+dvi: dvi-am
+
+dvi-am:
+
+examples: examples-am
+
+examples-am: examples-local
+
+html: html-am
+
+html-am:
+
+info: info-am
+
+info-am:
+
+install-data-am: install-pythonPYTHON
+
+install-dvi: install-dvi-am
+
+install-dvi-am:
+
+install-exec-am: install-exec-local install-pyexecLTLIBRARIES
+
+install-html: install-html-am
+
+install-html-am:
+
+install-info: install-info-am
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-am
+
+install-pdf-am:
+
+install-ps: install-ps-am
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+ -rm -f ./$(DEPDIR)/CdiInfo.Po
+ -rm -f ./$(DEPDIR)/cdi.Plo
+ -rm -f python/$(DEPDIR)/_Cdi_la-cdi_wrapper.Plo
+ -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-local uninstall-pyexecLTLIBRARIES \
+ uninstall-pythonPYTHON
+
+.MAKE: check-am install-am install-strip
+
+.PHONY: CTAGS GTAGS TAGS all all-am all-local am--depfiles check \
+ check-TESTS check-am clean clean-checkPROGRAMS clean-generic \
+ clean-libtool clean-local clean-noinstPROGRAMS \
+ clean-pyexecLTLIBRARIES cscopelist-am ctags ctags-am distclean \
+ distclean-compile distclean-generic distclean-libtool \
+ distclean-tags distdir dvi dvi-am examples-am examples-local \
+ html html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-exec-local install-html \
+ install-html-am install-info install-info-am install-man \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-pyexecLTLIBRARIES install-pythonPYTHON install-strip \
+ installcheck installcheck-am installdirs maintainer-clean \
+ maintainer-clean-generic mostlyclean mostlyclean-compile \
+ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
+ recheck tags tags-am uninstall uninstall-am uninstall-local \
+ uninstall-pyexecLTLIBRARIES uninstall-pythonPYTHON
+
+.PRECIOUS: Makefile
+
+
+# For compatibility with older versions of Ruby, the recipes below redefine
+# the following additional variables of the generated Makefile (this is known
+# to be needed for Ruby 2.7.4 but not for Ruby 3.1.0):
+# sitearchdir='$$(sitelibdir)/$$(sitearch)'
+# sitedir='$$(rubylibprefix)/site_ruby'
+# RM='$$(RM_RF)'
+
+@ENABLE_RUBY_INTERFACE_TRUE@.PHONY: ruby-binding
+@ENABLE_RUBY_INTERFACE_TRUE@ruby-binding: ruby/Cdi.la
+@ENABLE_RUBY_INTERFACE_TRUE@ruby/Cdi.la: ruby/cdi_wrapper.cpp ruby/Makefile libcdipp.la
+@ENABLE_RUBY_INTERFACE_TRUE@ $(AM_V_CXXLD)$(am__cd) ruby && \
+@ENABLE_RUBY_INTERFACE_TRUE@ $(MAKE) $(AM_MAKEFLAGS) \
+@ENABLE_RUBY_INTERFACE_TRUE@ prefix='$(prefix)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ sitearchdir='$$(sitelibdir)/$$(sitearch)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ sitedir='$$(rubylibprefix)/site_ruby' \
+@ENABLE_RUBY_INTERFACE_TRUE@ TIMESTAMP_DIR='.dirstamp' \
+@ENABLE_RUBY_INTERFACE_TRUE@ CDI_INCFLAGS='-I$(abs_srcdir)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ CDI_CPPFLAGS='$(AM_CPPFLAGS) $(CPPFLAGS)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ CDI_CXXFLAGS='$(AM_CXXFLAGS) -shared $(CXXFLAGS)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ CDI_LDFLAGS='$(AM_LDFLAGS) -module -avoid-version $(LDFLAGS) -rpath $$(RUBYARCHDIR)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ CDI_LIBS='$(LIBS)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ CCDLFLAGS= \
+@ENABLE_RUBY_INTERFACE_TRUE@ CXX='$(SHELL) $(abs_top_builddir)/libtool $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ LDSHAREDXX='$(SHELL) $(abs_top_builddir)/libtool $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CXXLD) $$(CDI_CXXFLAGS)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ DLLIB='$$(TARGET).la' \
+@ENABLE_RUBY_INTERFACE_TRUE@ V='$(V_MAKERUBY)'
+
+@ENABLE_RUBY_INTERFACE_TRUE@ruby/Makefile: $(abs_srcdir)/ruby/setup.rb Makefile
+@ENABLE_RUBY_INTERFACE_TRUE@ $(AM_V_GEN)$(MKDIR_P) $(@D) && $(am__cd) $(@D) && $(RUBY) $< && \
+@ENABLE_RUBY_INTERFACE_TRUE@ $(SED) -i~ -e '/^\.cpp\.o:/s/^\.cpp\.o/.cpp.lo/;/^.SUFFIXES:/s/$$/ .lo/' \
+@ENABLE_RUBY_INTERFACE_TRUE@ -e '$$auninstall:; $$(UNINSTALL_PROG) $$(RUBYARCHDIR)/$$(DLLIB)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ Makefile && rm -f Makefile~
+
+@ENABLE_RUBY_INTERFACE_TRUE@.PHONY: ruby-install
+@ENABLE_RUBY_INTERFACE_TRUE@ruby-install: ruby-binding
+@ENABLE_RUBY_INTERFACE_TRUE@ $(am__cd) ruby && \
+@ENABLE_RUBY_INTERFACE_TRUE@ $(MAKE) $(AM_MAKEFLAGS) install \
+@ENABLE_RUBY_INTERFACE_TRUE@ prefix='$(DESTDIR)$(prefix)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ sitearchdir='$$(sitelibdir)/$$(sitearch)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ sitedir='$$(rubylibprefix)/site_ruby' \
+@ENABLE_RUBY_INTERFACE_TRUE@ TIMESTAMP_DIR='.dirstamp$(DESTDIR)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ INSTALL_PROG='$(SHELL) $(abs_top_builddir)/libtool $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ DLLIB='$$(TARGET).la'
+
+@ENABLE_RUBY_INTERFACE_TRUE@.PHONY: ruby-uninstall
+@ENABLE_RUBY_INTERFACE_TRUE@ruby-uninstall:
+@ENABLE_RUBY_INTERFACE_TRUE@ $(am__cd) ruby && \
+@ENABLE_RUBY_INTERFACE_TRUE@ $(MAKE) $(AM_MAKEFLAGS) uninstall \
+@ENABLE_RUBY_INTERFACE_TRUE@ prefix='$(DESTDIR)$(prefix)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ sitearchdir='$$(sitelibdir)/$$(sitearch)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ sitedir='$$(rubylibprefix)/site_ruby' \
+@ENABLE_RUBY_INTERFACE_TRUE@ UNINSTALL_PROG='$(SHELL) $(abs_top_builddir)/libtool $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f' \
+@ENABLE_RUBY_INTERFACE_TRUE@ DLLIB='$$(TARGET).la'
+
+@ENABLE_RUBY_INTERFACE_TRUE@.PHONY: ruby-clean
+@ENABLE_RUBY_INTERFACE_TRUE@ruby-clean:
+@ENABLE_RUBY_INTERFACE_TRUE@ if test -f ruby/Makefile; then \
+@ENABLE_RUBY_INTERFACE_TRUE@ $(am__cd) ruby && \
+@ENABLE_RUBY_INTERFACE_TRUE@ $(MAKE) $(AM_MAKEFLAGS) distclean \
+@ENABLE_RUBY_INTERFACE_TRUE@ RM='$$(RM_RF)' \
+@ENABLE_RUBY_INTERFACE_TRUE@ DLLIB='$$(TARGET).la' \
+@ENABLE_RUBY_INTERFACE_TRUE@ CLEANOBJS='*.lo .libs .dirstamp'; \
+@ENABLE_RUBY_INTERFACE_TRUE@ fi
+
+@MAINTAINER_MODE_TRUE@ruby/cdi_wrapper.cpp: cdi.i cdi.hpp
+@MAINTAINER_MODE_TRUE@ $(AM_V_GEN)$(MKDIR_P) $(@D) && $(SWIG) -ruby -c++ -globalmodule -o $@ $<
+
+@MAINTAINER_MODE_TRUE@python/Cdi.py: cdi.i cdi.hpp
+@MAINTAINER_MODE_TRUE@ $(AM_V_GEN)$(SWIG) -python -c++ -o python/cdi_wrapper.cpp $<
+
+@MAINTAINER_MODE_TRUE@python/cdi_wrapper.cpp: python/Cdi.py
+@MAINTAINER_MODE_TRUE@ $(AM_V_at)test -f $@ || rm -f $<
+@MAINTAINER_MODE_TRUE@ $(AM_V_at)test -f $@ || $(MAKE) $(AM_MAKEFLAGS) $<
+@MAINTAINER_MODE_FALSE@ruby/cdi_wrapper.cpp python/Cdi.py python/cdi_wrapper.cpp:
+@MAINTAINER_MODE_FALSE@ @:;{ \
+@MAINTAINER_MODE_FALSE@ echo "ERROR: cannot generate '$@' when the maintainer mode is disabled:"; \
+@MAINTAINER_MODE_FALSE@ echo " re-configure with the '--enable-maintainer-mode' option"; \
+@MAINTAINER_MODE_FALSE@ } >&2; exit 1
+
+all-local: $(all_local)
+install-exec-local: $(install_exec_local)
+uninstall-local: $(uninstall_local)
+clean-local: $(clean_local)
+
+# 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/interfaces/python/Cdi.py b/interfaces/python/Cdi.py
new file mode 100644
index 000000000..b96ab677f
--- /dev/null
+++ b/interfaces/python/Cdi.py
@@ -0,0 +1,1379 @@
+# This file was automatically generated by SWIG (http://www.swig.org).
+# Version 4.0.2
+#
+# Do not make changes to this file unless you know what you are doing--modify
+# the SWIG interface file instead.
+
+from sys import version_info as _swig_python_version_info
+if _swig_python_version_info < (2, 7, 0):
+ raise RuntimeError("Python 2.7 or later required")
+
+# Import the low-level C/C++ module
+if __package__ or "." in __name__:
+ from . import _Cdi
+else:
+ import _Cdi
+
+try:
+ import builtins as __builtin__
+except ImportError:
+ import __builtin__
+
+def _swig_repr(self):
+ try:
+ strthis = "proxy of " + self.this.__repr__()
+ except __builtin__.Exception:
+ strthis = ""
+ return "<%s.%s; %s >" % (self.__class__.__module__, self.__class__.__name__, strthis,)
+
+
+def _swig_setattr_nondynamic_instance_variable(set):
+ def set_instance_attr(self, name, value):
+ if name == "thisown":
+ self.this.own(value)
+ elif name == "this":
+ set(self, name, value)
+ elif hasattr(self, name) and isinstance(getattr(type(self), name), property):
+ set(self, name, value)
+ else:
+ raise AttributeError("You cannot add instance attributes to %s" % self)
+ return set_instance_attr
+
+
+def _swig_setattr_nondynamic_class_variable(set):
+ def set_class_attr(cls, name, value):
+ if hasattr(cls, name) and not isinstance(getattr(cls, name), property):
+ set(cls, name, value)
+ else:
+ raise AttributeError("You cannot add class attributes to %s" % cls)
+ return set_class_attr
+
+
+def _swig_add_metaclass(metaclass):
+ """Class decorator for adding a metaclass to a SWIG wrapped class - a slimmed down version of six.add_metaclass"""
+ def wrapper(cls):
+ return metaclass(cls.__name__, cls.__bases__, cls.__dict__.copy())
+ return wrapper
+
+
+class _SwigNonDynamicMeta(type):
+ """Meta class to enforce nondynamic attributes (no new attributes) for a class"""
+ __setattr__ = _swig_setattr_nondynamic_class_variable(type.__setattr__)
+
+
+class SwigPyIterator(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+
+ def __init__(self, *args, **kwargs):
+ raise AttributeError("No constructor defined - class is abstract")
+ __repr__ = _swig_repr
+ __swig_destroy__ = _Cdi.delete_SwigPyIterator
+
+ def value(self):
+ return _Cdi.SwigPyIterator_value(self)
+
+ def incr(self, n=1):
+ return _Cdi.SwigPyIterator_incr(self, n)
+
+ def decr(self, n=1):
+ return _Cdi.SwigPyIterator_decr(self, n)
+
+ def distance(self, x):
+ return _Cdi.SwigPyIterator_distance(self, x)
+
+ def equal(self, x):
+ return _Cdi.SwigPyIterator_equal(self, x)
+
+ def copy(self):
+ return _Cdi.SwigPyIterator_copy(self)
+
+ def next(self):
+ return _Cdi.SwigPyIterator_next(self)
+
+ def __next__(self):
+ return _Cdi.SwigPyIterator___next__(self)
+
+ def previous(self):
+ return _Cdi.SwigPyIterator_previous(self)
+
+ def advance(self, n):
+ return _Cdi.SwigPyIterator_advance(self, n)
+
+ def __eq__(self, x):
+ return _Cdi.SwigPyIterator___eq__(self, x)
+
+ def __ne__(self, x):
+ return _Cdi.SwigPyIterator___ne__(self, x)
+
+ def __iadd__(self, n):
+ return _Cdi.SwigPyIterator___iadd__(self, n)
+
+ def __isub__(self, n):
+ return _Cdi.SwigPyIterator___isub__(self, n)
+
+ def __add__(self, n):
+ return _Cdi.SwigPyIterator___add__(self, n)
+
+ def __sub__(self, *args):
+ return _Cdi.SwigPyIterator___sub__(self, *args)
+ def __iter__(self):
+ return self
+
+# Register SwigPyIterator in _Cdi:
+_Cdi.SwigPyIterator_swigregister(SwigPyIterator)
+
+class IntVector(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.IntVector_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.IntVector___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.IntVector___bool__(self)
+
+ def __len__(self):
+ return _Cdi.IntVector___len__(self)
+
+ def __getslice__(self, i, j):
+ return _Cdi.IntVector___getslice__(self, i, j)
+
+ def __setslice__(self, *args):
+ return _Cdi.IntVector___setslice__(self, *args)
+
+ def __delslice__(self, i, j):
+ return _Cdi.IntVector___delslice__(self, i, j)
+
+ def __delitem__(self, *args):
+ return _Cdi.IntVector___delitem__(self, *args)
+
+ def __getitem__(self, *args):
+ return _Cdi.IntVector___getitem__(self, *args)
+
+ def __setitem__(self, *args):
+ return _Cdi.IntVector___setitem__(self, *args)
+
+ def pop(self):
+ return _Cdi.IntVector_pop(self)
+
+ def append(self, x):
+ return _Cdi.IntVector_append(self, x)
+
+ def empty(self):
+ return _Cdi.IntVector_empty(self)
+
+ def size(self):
+ return _Cdi.IntVector_size(self)
+
+ def swap(self, v):
+ return _Cdi.IntVector_swap(self, v)
+
+ def begin(self):
+ return _Cdi.IntVector_begin(self)
+
+ def end(self):
+ return _Cdi.IntVector_end(self)
+
+ def rbegin(self):
+ return _Cdi.IntVector_rbegin(self)
+
+ def rend(self):
+ return _Cdi.IntVector_rend(self)
+
+ def clear(self):
+ return _Cdi.IntVector_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.IntVector_get_allocator(self)
+
+ def pop_back(self):
+ return _Cdi.IntVector_pop_back(self)
+
+ def erase(self, *args):
+ return _Cdi.IntVector_erase(self, *args)
+
+ def __init__(self, *args):
+ _Cdi.IntVector_swiginit(self, _Cdi.new_IntVector(*args))
+
+ def push_back(self, x):
+ return _Cdi.IntVector_push_back(self, x)
+
+ def front(self):
+ return _Cdi.IntVector_front(self)
+
+ def back(self):
+ return _Cdi.IntVector_back(self)
+
+ def assign(self, n, x):
+ return _Cdi.IntVector_assign(self, n, x)
+
+ def resize(self, *args):
+ return _Cdi.IntVector_resize(self, *args)
+
+ def insert(self, *args):
+ return _Cdi.IntVector_insert(self, *args)
+
+ def reserve(self, n):
+ return _Cdi.IntVector_reserve(self, n)
+
+ def capacity(self):
+ return _Cdi.IntVector_capacity(self)
+ __swig_destroy__ = _Cdi.delete_IntVector
+
+# Register IntVector in _Cdi:
+_Cdi.IntVector_swigregister(IntVector)
+
+class DoubleVector(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.DoubleVector_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.DoubleVector___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.DoubleVector___bool__(self)
+
+ def __len__(self):
+ return _Cdi.DoubleVector___len__(self)
+
+ def __getslice__(self, i, j):
+ return _Cdi.DoubleVector___getslice__(self, i, j)
+
+ def __setslice__(self, *args):
+ return _Cdi.DoubleVector___setslice__(self, *args)
+
+ def __delslice__(self, i, j):
+ return _Cdi.DoubleVector___delslice__(self, i, j)
+
+ def __delitem__(self, *args):
+ return _Cdi.DoubleVector___delitem__(self, *args)
+
+ def __getitem__(self, *args):
+ return _Cdi.DoubleVector___getitem__(self, *args)
+
+ def __setitem__(self, *args):
+ return _Cdi.DoubleVector___setitem__(self, *args)
+
+ def pop(self):
+ return _Cdi.DoubleVector_pop(self)
+
+ def append(self, x):
+ return _Cdi.DoubleVector_append(self, x)
+
+ def empty(self):
+ return _Cdi.DoubleVector_empty(self)
+
+ def size(self):
+ return _Cdi.DoubleVector_size(self)
+
+ def swap(self, v):
+ return _Cdi.DoubleVector_swap(self, v)
+
+ def begin(self):
+ return _Cdi.DoubleVector_begin(self)
+
+ def end(self):
+ return _Cdi.DoubleVector_end(self)
+
+ def rbegin(self):
+ return _Cdi.DoubleVector_rbegin(self)
+
+ def rend(self):
+ return _Cdi.DoubleVector_rend(self)
+
+ def clear(self):
+ return _Cdi.DoubleVector_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.DoubleVector_get_allocator(self)
+
+ def pop_back(self):
+ return _Cdi.DoubleVector_pop_back(self)
+
+ def erase(self, *args):
+ return _Cdi.DoubleVector_erase(self, *args)
+
+ def __init__(self, *args):
+ _Cdi.DoubleVector_swiginit(self, _Cdi.new_DoubleVector(*args))
+
+ def push_back(self, x):
+ return _Cdi.DoubleVector_push_back(self, x)
+
+ def front(self):
+ return _Cdi.DoubleVector_front(self)
+
+ def back(self):
+ return _Cdi.DoubleVector_back(self)
+
+ def assign(self, n, x):
+ return _Cdi.DoubleVector_assign(self, n, x)
+
+ def resize(self, *args):
+ return _Cdi.DoubleVector_resize(self, *args)
+
+ def insert(self, *args):
+ return _Cdi.DoubleVector_insert(self, *args)
+
+ def reserve(self, n):
+ return _Cdi.DoubleVector_reserve(self, n)
+
+ def capacity(self):
+ return _Cdi.DoubleVector_capacity(self)
+ __swig_destroy__ = _Cdi.delete_DoubleVector
+
+# Register DoubleVector in _Cdi:
+_Cdi.DoubleVector_swigregister(DoubleVector)
+
+class DoubleDoubleVector(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.DoubleDoubleVector_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.DoubleDoubleVector___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.DoubleDoubleVector___bool__(self)
+
+ def __len__(self):
+ return _Cdi.DoubleDoubleVector___len__(self)
+
+ def __getslice__(self, i, j):
+ return _Cdi.DoubleDoubleVector___getslice__(self, i, j)
+
+ def __setslice__(self, *args):
+ return _Cdi.DoubleDoubleVector___setslice__(self, *args)
+
+ def __delslice__(self, i, j):
+ return _Cdi.DoubleDoubleVector___delslice__(self, i, j)
+
+ def __delitem__(self, *args):
+ return _Cdi.DoubleDoubleVector___delitem__(self, *args)
+
+ def __getitem__(self, *args):
+ return _Cdi.DoubleDoubleVector___getitem__(self, *args)
+
+ def __setitem__(self, *args):
+ return _Cdi.DoubleDoubleVector___setitem__(self, *args)
+
+ def pop(self):
+ return _Cdi.DoubleDoubleVector_pop(self)
+
+ def append(self, x):
+ return _Cdi.DoubleDoubleVector_append(self, x)
+
+ def empty(self):
+ return _Cdi.DoubleDoubleVector_empty(self)
+
+ def size(self):
+ return _Cdi.DoubleDoubleVector_size(self)
+
+ def swap(self, v):
+ return _Cdi.DoubleDoubleVector_swap(self, v)
+
+ def begin(self):
+ return _Cdi.DoubleDoubleVector_begin(self)
+
+ def end(self):
+ return _Cdi.DoubleDoubleVector_end(self)
+
+ def rbegin(self):
+ return _Cdi.DoubleDoubleVector_rbegin(self)
+
+ def rend(self):
+ return _Cdi.DoubleDoubleVector_rend(self)
+
+ def clear(self):
+ return _Cdi.DoubleDoubleVector_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.DoubleDoubleVector_get_allocator(self)
+
+ def pop_back(self):
+ return _Cdi.DoubleDoubleVector_pop_back(self)
+
+ def erase(self, *args):
+ return _Cdi.DoubleDoubleVector_erase(self, *args)
+
+ def __init__(self, *args):
+ _Cdi.DoubleDoubleVector_swiginit(self, _Cdi.new_DoubleDoubleVector(*args))
+
+ def push_back(self, x):
+ return _Cdi.DoubleDoubleVector_push_back(self, x)
+
+ def front(self):
+ return _Cdi.DoubleDoubleVector_front(self)
+
+ def back(self):
+ return _Cdi.DoubleDoubleVector_back(self)
+
+ def assign(self, n, x):
+ return _Cdi.DoubleDoubleVector_assign(self, n, x)
+
+ def resize(self, *args):
+ return _Cdi.DoubleDoubleVector_resize(self, *args)
+
+ def insert(self, *args):
+ return _Cdi.DoubleDoubleVector_insert(self, *args)
+
+ def reserve(self, n):
+ return _Cdi.DoubleDoubleVector_reserve(self, n)
+
+ def capacity(self):
+ return _Cdi.DoubleDoubleVector_capacity(self)
+ __swig_destroy__ = _Cdi.delete_DoubleDoubleVector
+
+# Register DoubleDoubleVector in _Cdi:
+_Cdi.DoubleDoubleVector_swigregister(DoubleDoubleVector)
+
+class StringVector(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.StringVector_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.StringVector___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.StringVector___bool__(self)
+
+ def __len__(self):
+ return _Cdi.StringVector___len__(self)
+
+ def __getslice__(self, i, j):
+ return _Cdi.StringVector___getslice__(self, i, j)
+
+ def __setslice__(self, *args):
+ return _Cdi.StringVector___setslice__(self, *args)
+
+ def __delslice__(self, i, j):
+ return _Cdi.StringVector___delslice__(self, i, j)
+
+ def __delitem__(self, *args):
+ return _Cdi.StringVector___delitem__(self, *args)
+
+ def __getitem__(self, *args):
+ return _Cdi.StringVector___getitem__(self, *args)
+
+ def __setitem__(self, *args):
+ return _Cdi.StringVector___setitem__(self, *args)
+
+ def pop(self):
+ return _Cdi.StringVector_pop(self)
+
+ def append(self, x):
+ return _Cdi.StringVector_append(self, x)
+
+ def empty(self):
+ return _Cdi.StringVector_empty(self)
+
+ def size(self):
+ return _Cdi.StringVector_size(self)
+
+ def swap(self, v):
+ return _Cdi.StringVector_swap(self, v)
+
+ def begin(self):
+ return _Cdi.StringVector_begin(self)
+
+ def end(self):
+ return _Cdi.StringVector_end(self)
+
+ def rbegin(self):
+ return _Cdi.StringVector_rbegin(self)
+
+ def rend(self):
+ return _Cdi.StringVector_rend(self)
+
+ def clear(self):
+ return _Cdi.StringVector_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.StringVector_get_allocator(self)
+
+ def pop_back(self):
+ return _Cdi.StringVector_pop_back(self)
+
+ def erase(self, *args):
+ return _Cdi.StringVector_erase(self, *args)
+
+ def __init__(self, *args):
+ _Cdi.StringVector_swiginit(self, _Cdi.new_StringVector(*args))
+
+ def push_back(self, x):
+ return _Cdi.StringVector_push_back(self, x)
+
+ def front(self):
+ return _Cdi.StringVector_front(self)
+
+ def back(self):
+ return _Cdi.StringVector_back(self)
+
+ def assign(self, n, x):
+ return _Cdi.StringVector_assign(self, n, x)
+
+ def resize(self, *args):
+ return _Cdi.StringVector_resize(self, *args)
+
+ def insert(self, *args):
+ return _Cdi.StringVector_insert(self, *args)
+
+ def reserve(self, n):
+ return _Cdi.StringVector_reserve(self, n)
+
+ def capacity(self):
+ return _Cdi.StringVector_capacity(self)
+ __swig_destroy__ = _Cdi.delete_StringVector
+
+# Register StringVector in _Cdi:
+_Cdi.StringVector_swigregister(StringVector)
+
+class VarsVector(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.VarsVector_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.VarsVector___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.VarsVector___bool__(self)
+
+ def __len__(self):
+ return _Cdi.VarsVector___len__(self)
+
+ def __getslice__(self, i, j):
+ return _Cdi.VarsVector___getslice__(self, i, j)
+
+ def __setslice__(self, *args):
+ return _Cdi.VarsVector___setslice__(self, *args)
+
+ def __delslice__(self, i, j):
+ return _Cdi.VarsVector___delslice__(self, i, j)
+
+ def __delitem__(self, *args):
+ return _Cdi.VarsVector___delitem__(self, *args)
+
+ def __getitem__(self, *args):
+ return _Cdi.VarsVector___getitem__(self, *args)
+
+ def __setitem__(self, *args):
+ return _Cdi.VarsVector___setitem__(self, *args)
+
+ def pop(self):
+ return _Cdi.VarsVector_pop(self)
+
+ def append(self, x):
+ return _Cdi.VarsVector_append(self, x)
+
+ def empty(self):
+ return _Cdi.VarsVector_empty(self)
+
+ def size(self):
+ return _Cdi.VarsVector_size(self)
+
+ def swap(self, v):
+ return _Cdi.VarsVector_swap(self, v)
+
+ def begin(self):
+ return _Cdi.VarsVector_begin(self)
+
+ def end(self):
+ return _Cdi.VarsVector_end(self)
+
+ def rbegin(self):
+ return _Cdi.VarsVector_rbegin(self)
+
+ def rend(self):
+ return _Cdi.VarsVector_rend(self)
+
+ def clear(self):
+ return _Cdi.VarsVector_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.VarsVector_get_allocator(self)
+
+ def pop_back(self):
+ return _Cdi.VarsVector_pop_back(self)
+
+ def erase(self, *args):
+ return _Cdi.VarsVector_erase(self, *args)
+
+ def __init__(self, *args):
+ _Cdi.VarsVector_swiginit(self, _Cdi.new_VarsVector(*args))
+
+ def push_back(self, x):
+ return _Cdi.VarsVector_push_back(self, x)
+
+ def front(self):
+ return _Cdi.VarsVector_front(self)
+
+ def back(self):
+ return _Cdi.VarsVector_back(self)
+
+ def assign(self, n, x):
+ return _Cdi.VarsVector_assign(self, n, x)
+
+ def resize(self, *args):
+ return _Cdi.VarsVector_resize(self, *args)
+
+ def insert(self, *args):
+ return _Cdi.VarsVector_insert(self, *args)
+
+ def reserve(self, n):
+ return _Cdi.VarsVector_reserve(self, n)
+
+ def capacity(self):
+ return _Cdi.VarsVector_capacity(self)
+ __swig_destroy__ = _Cdi.delete_VarsVector
+
+# Register VarsVector in _Cdi:
+_Cdi.VarsVector_swigregister(VarsVector)
+
+class VarsMap(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.VarsMap_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.VarsMap___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.VarsMap___bool__(self)
+
+ def __len__(self):
+ return _Cdi.VarsMap___len__(self)
+ def __iter__(self):
+ return self.key_iterator()
+ def iterkeys(self):
+ return self.key_iterator()
+ def itervalues(self):
+ return self.value_iterator()
+ def iteritems(self):
+ return self.iterator()
+
+ def __getitem__(self, key):
+ return _Cdi.VarsMap___getitem__(self, key)
+
+ def __delitem__(self, key):
+ return _Cdi.VarsMap___delitem__(self, key)
+
+ def has_key(self, key):
+ return _Cdi.VarsMap_has_key(self, key)
+
+ def keys(self):
+ return _Cdi.VarsMap_keys(self)
+
+ def values(self):
+ return _Cdi.VarsMap_values(self)
+
+ def items(self):
+ return _Cdi.VarsMap_items(self)
+
+ def __contains__(self, key):
+ return _Cdi.VarsMap___contains__(self, key)
+
+ def key_iterator(self):
+ return _Cdi.VarsMap_key_iterator(self)
+
+ def value_iterator(self):
+ return _Cdi.VarsMap_value_iterator(self)
+
+ def __setitem__(self, *args):
+ return _Cdi.VarsMap___setitem__(self, *args)
+
+ def asdict(self):
+ return _Cdi.VarsMap_asdict(self)
+
+ def __init__(self, *args):
+ _Cdi.VarsMap_swiginit(self, _Cdi.new_VarsMap(*args))
+
+ def empty(self):
+ return _Cdi.VarsMap_empty(self)
+
+ def size(self):
+ return _Cdi.VarsMap_size(self)
+
+ def swap(self, v):
+ return _Cdi.VarsMap_swap(self, v)
+
+ def begin(self):
+ return _Cdi.VarsMap_begin(self)
+
+ def end(self):
+ return _Cdi.VarsMap_end(self)
+
+ def rbegin(self):
+ return _Cdi.VarsMap_rbegin(self)
+
+ def rend(self):
+ return _Cdi.VarsMap_rend(self)
+
+ def clear(self):
+ return _Cdi.VarsMap_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.VarsMap_get_allocator(self)
+
+ def count(self, x):
+ return _Cdi.VarsMap_count(self, x)
+
+ def erase(self, *args):
+ return _Cdi.VarsMap_erase(self, *args)
+
+ def find(self, x):
+ return _Cdi.VarsMap_find(self, x)
+
+ def lower_bound(self, x):
+ return _Cdi.VarsMap_lower_bound(self, x)
+
+ def upper_bound(self, x):
+ return _Cdi.VarsMap_upper_bound(self, x)
+ __swig_destroy__ = _Cdi.delete_VarsMap
+
+# Register VarsMap in _Cdi:
+_Cdi.VarsMap_swigregister(VarsMap)
+
+class VarsByCode(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.VarsByCode_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.VarsByCode___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.VarsByCode___bool__(self)
+
+ def __len__(self):
+ return _Cdi.VarsByCode___len__(self)
+ def __iter__(self):
+ return self.key_iterator()
+ def iterkeys(self):
+ return self.key_iterator()
+ def itervalues(self):
+ return self.value_iterator()
+ def iteritems(self):
+ return self.iterator()
+
+ def __getitem__(self, key):
+ return _Cdi.VarsByCode___getitem__(self, key)
+
+ def __delitem__(self, key):
+ return _Cdi.VarsByCode___delitem__(self, key)
+
+ def has_key(self, key):
+ return _Cdi.VarsByCode_has_key(self, key)
+
+ def keys(self):
+ return _Cdi.VarsByCode_keys(self)
+
+ def values(self):
+ return _Cdi.VarsByCode_values(self)
+
+ def items(self):
+ return _Cdi.VarsByCode_items(self)
+
+ def __contains__(self, key):
+ return _Cdi.VarsByCode___contains__(self, key)
+
+ def key_iterator(self):
+ return _Cdi.VarsByCode_key_iterator(self)
+
+ def value_iterator(self):
+ return _Cdi.VarsByCode_value_iterator(self)
+
+ def __setitem__(self, *args):
+ return _Cdi.VarsByCode___setitem__(self, *args)
+
+ def asdict(self):
+ return _Cdi.VarsByCode_asdict(self)
+
+ def __init__(self, *args):
+ _Cdi.VarsByCode_swiginit(self, _Cdi.new_VarsByCode(*args))
+
+ def empty(self):
+ return _Cdi.VarsByCode_empty(self)
+
+ def size(self):
+ return _Cdi.VarsByCode_size(self)
+
+ def swap(self, v):
+ return _Cdi.VarsByCode_swap(self, v)
+
+ def begin(self):
+ return _Cdi.VarsByCode_begin(self)
+
+ def end(self):
+ return _Cdi.VarsByCode_end(self)
+
+ def rbegin(self):
+ return _Cdi.VarsByCode_rbegin(self)
+
+ def rend(self):
+ return _Cdi.VarsByCode_rend(self)
+
+ def clear(self):
+ return _Cdi.VarsByCode_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.VarsByCode_get_allocator(self)
+
+ def count(self, x):
+ return _Cdi.VarsByCode_count(self, x)
+
+ def erase(self, *args):
+ return _Cdi.VarsByCode_erase(self, *args)
+
+ def find(self, x):
+ return _Cdi.VarsByCode_find(self, x)
+
+ def lower_bound(self, x):
+ return _Cdi.VarsByCode_lower_bound(self, x)
+
+ def upper_bound(self, x):
+ return _Cdi.VarsByCode_upper_bound(self, x)
+ __swig_destroy__ = _Cdi.delete_VarsByCode
+
+# Register VarsByCode in _Cdi:
+_Cdi.VarsByCode_swigregister(VarsByCode)
+
+class TaxesMap(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.TaxesMap_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.TaxesMap___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.TaxesMap___bool__(self)
+
+ def __len__(self):
+ return _Cdi.TaxesMap___len__(self)
+ def __iter__(self):
+ return self.key_iterator()
+ def iterkeys(self):
+ return self.key_iterator()
+ def itervalues(self):
+ return self.value_iterator()
+ def iteritems(self):
+ return self.iterator()
+
+ def __getitem__(self, key):
+ return _Cdi.TaxesMap___getitem__(self, key)
+
+ def __delitem__(self, key):
+ return _Cdi.TaxesMap___delitem__(self, key)
+
+ def has_key(self, key):
+ return _Cdi.TaxesMap_has_key(self, key)
+
+ def keys(self):
+ return _Cdi.TaxesMap_keys(self)
+
+ def values(self):
+ return _Cdi.TaxesMap_values(self)
+
+ def items(self):
+ return _Cdi.TaxesMap_items(self)
+
+ def __contains__(self, key):
+ return _Cdi.TaxesMap___contains__(self, key)
+
+ def key_iterator(self):
+ return _Cdi.TaxesMap_key_iterator(self)
+
+ def value_iterator(self):
+ return _Cdi.TaxesMap_value_iterator(self)
+
+ def __setitem__(self, *args):
+ return _Cdi.TaxesMap___setitem__(self, *args)
+
+ def asdict(self):
+ return _Cdi.TaxesMap_asdict(self)
+
+ def __init__(self, *args):
+ _Cdi.TaxesMap_swiginit(self, _Cdi.new_TaxesMap(*args))
+
+ def empty(self):
+ return _Cdi.TaxesMap_empty(self)
+
+ def size(self):
+ return _Cdi.TaxesMap_size(self)
+
+ def swap(self, v):
+ return _Cdi.TaxesMap_swap(self, v)
+
+ def begin(self):
+ return _Cdi.TaxesMap_begin(self)
+
+ def end(self):
+ return _Cdi.TaxesMap_end(self)
+
+ def rbegin(self):
+ return _Cdi.TaxesMap_rbegin(self)
+
+ def rend(self):
+ return _Cdi.TaxesMap_rend(self)
+
+ def clear(self):
+ return _Cdi.TaxesMap_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.TaxesMap_get_allocator(self)
+
+ def count(self, x):
+ return _Cdi.TaxesMap_count(self, x)
+
+ def erase(self, *args):
+ return _Cdi.TaxesMap_erase(self, *args)
+
+ def find(self, x):
+ return _Cdi.TaxesMap_find(self, x)
+
+ def lower_bound(self, x):
+ return _Cdi.TaxesMap_lower_bound(self, x)
+
+ def upper_bound(self, x):
+ return _Cdi.TaxesMap_upper_bound(self, x)
+ __swig_destroy__ = _Cdi.delete_TaxesMap
+
+# Register TaxesMap in _Cdi:
+_Cdi.TaxesMap_swigregister(TaxesMap)
+
+class ZaxesMap(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.ZaxesMap_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.ZaxesMap___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.ZaxesMap___bool__(self)
+
+ def __len__(self):
+ return _Cdi.ZaxesMap___len__(self)
+ def __iter__(self):
+ return self.key_iterator()
+ def iterkeys(self):
+ return self.key_iterator()
+ def itervalues(self):
+ return self.value_iterator()
+ def iteritems(self):
+ return self.iterator()
+
+ def __getitem__(self, key):
+ return _Cdi.ZaxesMap___getitem__(self, key)
+
+ def __delitem__(self, key):
+ return _Cdi.ZaxesMap___delitem__(self, key)
+
+ def has_key(self, key):
+ return _Cdi.ZaxesMap_has_key(self, key)
+
+ def keys(self):
+ return _Cdi.ZaxesMap_keys(self)
+
+ def values(self):
+ return _Cdi.ZaxesMap_values(self)
+
+ def items(self):
+ return _Cdi.ZaxesMap_items(self)
+
+ def __contains__(self, key):
+ return _Cdi.ZaxesMap___contains__(self, key)
+
+ def key_iterator(self):
+ return _Cdi.ZaxesMap_key_iterator(self)
+
+ def value_iterator(self):
+ return _Cdi.ZaxesMap_value_iterator(self)
+
+ def __setitem__(self, *args):
+ return _Cdi.ZaxesMap___setitem__(self, *args)
+
+ def asdict(self):
+ return _Cdi.ZaxesMap_asdict(self)
+
+ def __init__(self, *args):
+ _Cdi.ZaxesMap_swiginit(self, _Cdi.new_ZaxesMap(*args))
+
+ def empty(self):
+ return _Cdi.ZaxesMap_empty(self)
+
+ def size(self):
+ return _Cdi.ZaxesMap_size(self)
+
+ def swap(self, v):
+ return _Cdi.ZaxesMap_swap(self, v)
+
+ def begin(self):
+ return _Cdi.ZaxesMap_begin(self)
+
+ def end(self):
+ return _Cdi.ZaxesMap_end(self)
+
+ def rbegin(self):
+ return _Cdi.ZaxesMap_rbegin(self)
+
+ def rend(self):
+ return _Cdi.ZaxesMap_rend(self)
+
+ def clear(self):
+ return _Cdi.ZaxesMap_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.ZaxesMap_get_allocator(self)
+
+ def count(self, x):
+ return _Cdi.ZaxesMap_count(self, x)
+
+ def erase(self, *args):
+ return _Cdi.ZaxesMap_erase(self, *args)
+
+ def find(self, x):
+ return _Cdi.ZaxesMap_find(self, x)
+
+ def lower_bound(self, x):
+ return _Cdi.ZaxesMap_lower_bound(self, x)
+
+ def upper_bound(self, x):
+ return _Cdi.ZaxesMap_upper_bound(self, x)
+ __swig_destroy__ = _Cdi.delete_ZaxesMap
+
+# Register ZaxesMap in _Cdi:
+_Cdi.ZaxesMap_swigregister(ZaxesMap)
+
+class GridsMap(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def iterator(self):
+ return _Cdi.GridsMap_iterator(self)
+ def __iter__(self):
+ return self.iterator()
+
+ def __nonzero__(self):
+ return _Cdi.GridsMap___nonzero__(self)
+
+ def __bool__(self):
+ return _Cdi.GridsMap___bool__(self)
+
+ def __len__(self):
+ return _Cdi.GridsMap___len__(self)
+ def __iter__(self):
+ return self.key_iterator()
+ def iterkeys(self):
+ return self.key_iterator()
+ def itervalues(self):
+ return self.value_iterator()
+ def iteritems(self):
+ return self.iterator()
+
+ def __getitem__(self, key):
+ return _Cdi.GridsMap___getitem__(self, key)
+
+ def __delitem__(self, key):
+ return _Cdi.GridsMap___delitem__(self, key)
+
+ def has_key(self, key):
+ return _Cdi.GridsMap_has_key(self, key)
+
+ def keys(self):
+ return _Cdi.GridsMap_keys(self)
+
+ def values(self):
+ return _Cdi.GridsMap_values(self)
+
+ def items(self):
+ return _Cdi.GridsMap_items(self)
+
+ def __contains__(self, key):
+ return _Cdi.GridsMap___contains__(self, key)
+
+ def key_iterator(self):
+ return _Cdi.GridsMap_key_iterator(self)
+
+ def value_iterator(self):
+ return _Cdi.GridsMap_value_iterator(self)
+
+ def __setitem__(self, *args):
+ return _Cdi.GridsMap___setitem__(self, *args)
+
+ def asdict(self):
+ return _Cdi.GridsMap_asdict(self)
+
+ def __init__(self, *args):
+ _Cdi.GridsMap_swiginit(self, _Cdi.new_GridsMap(*args))
+
+ def empty(self):
+ return _Cdi.GridsMap_empty(self)
+
+ def size(self):
+ return _Cdi.GridsMap_size(self)
+
+ def swap(self, v):
+ return _Cdi.GridsMap_swap(self, v)
+
+ def begin(self):
+ return _Cdi.GridsMap_begin(self)
+
+ def end(self):
+ return _Cdi.GridsMap_end(self)
+
+ def rbegin(self):
+ return _Cdi.GridsMap_rbegin(self)
+
+ def rend(self):
+ return _Cdi.GridsMap_rend(self)
+
+ def clear(self):
+ return _Cdi.GridsMap_clear(self)
+
+ def get_allocator(self):
+ return _Cdi.GridsMap_get_allocator(self)
+
+ def count(self, x):
+ return _Cdi.GridsMap_count(self, x)
+
+ def erase(self, *args):
+ return _Cdi.GridsMap_erase(self, *args)
+
+ def find(self, x):
+ return _Cdi.GridsMap_find(self, x)
+
+ def lower_bound(self, x):
+ return _Cdi.GridsMap_lower_bound(self, x)
+
+ def upper_bound(self, x):
+ return _Cdi.GridsMap_upper_bound(self, x)
+ __swig_destroy__ = _Cdi.delete_GridsMap
+
+# Register GridsMap in _Cdi:
+_Cdi.GridsMap_swigregister(GridsMap)
+
+class CdiGrid(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def __init__(self, *args):
+ _Cdi.CdiGrid_swiginit(self, _Cdi.new_CdiGrid(*args))
+ __swig_destroy__ = _Cdi.delete_CdiGrid
+ gridID = property(_Cdi.CdiGrid_gridID_get, _Cdi.CdiGrid_gridID_set)
+ type = property(_Cdi.CdiGrid_type_get, _Cdi.CdiGrid_type_set)
+ size = property(_Cdi.CdiGrid_size_get, _Cdi.CdiGrid_size_set)
+ xsize = property(_Cdi.CdiGrid_xsize_get, _Cdi.CdiGrid_xsize_set)
+ ysize = property(_Cdi.CdiGrid_ysize_get, _Cdi.CdiGrid_ysize_set)
+ prec = property(_Cdi.CdiGrid_prec_get, _Cdi.CdiGrid_prec_set)
+ ncorner = property(_Cdi.CdiGrid_ncorner_get, _Cdi.CdiGrid_ncorner_set)
+ hasXValues = property(_Cdi.CdiGrid_hasXValues_get, _Cdi.CdiGrid_hasXValues_set)
+ hasYValues = property(_Cdi.CdiGrid_hasYValues_get, _Cdi.CdiGrid_hasYValues_set)
+ hasBounds = property(_Cdi.CdiGrid_hasBounds_get, _Cdi.CdiGrid_hasBounds_set)
+ xvalues = property(_Cdi.CdiGrid_xvalues_get, _Cdi.CdiGrid_xvalues_set)
+ yvalues = property(_Cdi.CdiGrid_yvalues_get, _Cdi.CdiGrid_yvalues_set)
+ xbounds = property(_Cdi.CdiGrid_xbounds_get, _Cdi.CdiGrid_xbounds_set)
+ ybounds = property(_Cdi.CdiGrid_ybounds_get, _Cdi.CdiGrid_ybounds_set)
+ xname = property(_Cdi.CdiGrid_xname_get, _Cdi.CdiGrid_xname_set)
+ xlongname = property(_Cdi.CdiGrid_xlongname_get, _Cdi.CdiGrid_xlongname_set)
+ xstdname = property(_Cdi.CdiGrid_xstdname_get, _Cdi.CdiGrid_xstdname_set)
+ xunits = property(_Cdi.CdiGrid_xunits_get, _Cdi.CdiGrid_xunits_set)
+ yname = property(_Cdi.CdiGrid_yname_get, _Cdi.CdiGrid_yname_set)
+ ylongname = property(_Cdi.CdiGrid_ylongname_get, _Cdi.CdiGrid_ylongname_set)
+ ystdname = property(_Cdi.CdiGrid_ystdname_get, _Cdi.CdiGrid_ystdname_set)
+ yunits = property(_Cdi.CdiGrid_yunits_get, _Cdi.CdiGrid_yunits_set)
+ name = property(_Cdi.CdiGrid_name_get, _Cdi.CdiGrid_name_set)
+
+ def getValues(self):
+ return _Cdi.CdiGrid_getValues(self)
+
+ def getBounds(self):
+ return _Cdi.CdiGrid_getBounds(self)
+
+ def getValuesAsPointer(self, xvals, yvals):
+ return _Cdi.CdiGrid_getValuesAsPointer(self, xvals, yvals)
+
+ def getBoundsAsPointer(self, xbnds, ybnds):
+ return _Cdi.CdiGrid_getBoundsAsPointer(self, xbnds, ybnds)
+
+ def getFloatVals(self, xvals, yvals):
+ return _Cdi.CdiGrid_getFloatVals(self, xvals, yvals)
+
+ def getFloatBounds(self, xbnds, ybnds):
+ return _Cdi.CdiGrid_getFloatBounds(self, xbnds, ybnds)
+
+# Register CdiGrid in _Cdi:
+_Cdi.CdiGrid_swigregister(CdiGrid)
+
+class CdiTaxis(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def __init__(self, *args):
+ _Cdi.CdiTaxis_swiginit(self, _Cdi.new_CdiTaxis(*args))
+ __swig_destroy__ = _Cdi.delete_CdiTaxis
+ taxisID = property(_Cdi.CdiTaxis_taxisID_get, _Cdi.CdiTaxis_taxisID_set)
+ ntsteps = property(_Cdi.CdiTaxis_ntsteps_get, _Cdi.CdiTaxis_ntsteps_set)
+ unit = property(_Cdi.CdiTaxis_unit_get, _Cdi.CdiTaxis_unit_set)
+ rdate = property(_Cdi.CdiTaxis_rdate_get, _Cdi.CdiTaxis_rdate_set)
+ rtime = property(_Cdi.CdiTaxis_rtime_get, _Cdi.CdiTaxis_rtime_set)
+ vdate = property(_Cdi.CdiTaxis_vdate_get, _Cdi.CdiTaxis_vdate_set)
+ vtime = property(_Cdi.CdiTaxis_vtime_get, _Cdi.CdiTaxis_vtime_set)
+ type = property(_Cdi.CdiTaxis_type_get, _Cdi.CdiTaxis_type_set)
+ calendar = property(_Cdi.CdiTaxis_calendar_get, _Cdi.CdiTaxis_calendar_set)
+ hasBounds = property(_Cdi.CdiTaxis_hasBounds_get, _Cdi.CdiTaxis_hasBounds_set)
+ name = property(_Cdi.CdiTaxis_name_get, _Cdi.CdiTaxis_name_set)
+ unitname = property(_Cdi.CdiTaxis_unitname_get, _Cdi.CdiTaxis_unitname_set)
+
+# Register CdiTaxis in _Cdi:
+_Cdi.CdiTaxis_swigregister(CdiTaxis)
+
+class CdiZaxis(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def __init__(self, *args):
+ _Cdi.CdiZaxis_swiginit(self, _Cdi.new_CdiZaxis(*args))
+ __swig_destroy__ = _Cdi.delete_CdiZaxis
+ zaxisID = property(_Cdi.CdiZaxis_zaxisID_get, _Cdi.CdiZaxis_zaxisID_set)
+ type = property(_Cdi.CdiZaxis_type_get, _Cdi.CdiZaxis_type_set)
+ ltype = property(_Cdi.CdiZaxis_ltype_get, _Cdi.CdiZaxis_ltype_set)
+ size = property(_Cdi.CdiZaxis_size_get, _Cdi.CdiZaxis_size_set)
+ prec = property(_Cdi.CdiZaxis_prec_get, _Cdi.CdiZaxis_prec_set)
+ plevels = property(_Cdi.CdiZaxis_plevels_get, _Cdi.CdiZaxis_plevels_set)
+ plbounds = property(_Cdi.CdiZaxis_plbounds_get, _Cdi.CdiZaxis_plbounds_set)
+ pubounds = property(_Cdi.CdiZaxis_pubounds_get, _Cdi.CdiZaxis_pubounds_set)
+ pweights = property(_Cdi.CdiZaxis_pweights_get, _Cdi.CdiZaxis_pweights_set)
+ levels = property(_Cdi.CdiZaxis_levels_get, _Cdi.CdiZaxis_levels_set)
+ lbounds = property(_Cdi.CdiZaxis_lbounds_get, _Cdi.CdiZaxis_lbounds_set)
+ ubounds = property(_Cdi.CdiZaxis_ubounds_get, _Cdi.CdiZaxis_ubounds_set)
+ weights = property(_Cdi.CdiZaxis_weights_get, _Cdi.CdiZaxis_weights_set)
+ name = property(_Cdi.CdiZaxis_name_get, _Cdi.CdiZaxis_name_set)
+ longname = property(_Cdi.CdiZaxis_longname_get, _Cdi.CdiZaxis_longname_set)
+ units = property(_Cdi.CdiZaxis_units_get, _Cdi.CdiZaxis_units_set)
+
+# Register CdiZaxis in _Cdi:
+_Cdi.CdiZaxis_swigregister(CdiZaxis)
+
+class CdiVariable(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def __init__(self, *args):
+ _Cdi.CdiVariable_swiginit(self, _Cdi.new_CdiVariable(*args))
+ __swig_destroy__ = _Cdi.delete_CdiVariable
+ varID = property(_Cdi.CdiVariable_varID_get, _Cdi.CdiVariable_varID_set)
+ zaxisID = property(_Cdi.CdiVariable_zaxisID_get, _Cdi.CdiVariable_zaxisID_set)
+ gridID = property(_Cdi.CdiVariable_gridID_get, _Cdi.CdiVariable_gridID_set)
+ taxisID = property(_Cdi.CdiVariable_taxisID_get, _Cdi.CdiVariable_taxisID_set)
+ timeID = property(_Cdi.CdiVariable_timeID_get, _Cdi.CdiVariable_timeID_set)
+ vlistID = property(_Cdi.CdiVariable_vlistID_get, _Cdi.CdiVariable_vlistID_set)
+ size = property(_Cdi.CdiVariable_size_get, _Cdi.CdiVariable_size_set)
+ code = property(_Cdi.CdiVariable_code_get, _Cdi.CdiVariable_code_set)
+ datatype = property(_Cdi.CdiVariable_datatype_get, _Cdi.CdiVariable_datatype_set)
+ streamID = property(_Cdi.CdiVariable_streamID_get, _Cdi.CdiVariable_streamID_set)
+ name = property(_Cdi.CdiVariable_name_get, _Cdi.CdiVariable_name_set)
+ longname = property(_Cdi.CdiVariable_longname_get, _Cdi.CdiVariable_longname_set)
+ units = property(_Cdi.CdiVariable_units_get, _Cdi.CdiVariable_units_set)
+ stdname = property(_Cdi.CdiVariable_stdname_get, _Cdi.CdiVariable_stdname_set)
+ missval = property(_Cdi.CdiVariable_missval_get, _Cdi.CdiVariable_missval_set)
+ values = property(_Cdi.CdiVariable_values_get, _Cdi.CdiVariable_values_set)
+ valuesWithLevel = property(_Cdi.CdiVariable_valuesWithLevel_get, _Cdi.CdiVariable_valuesWithLevel_set)
+ grid = property(_Cdi.CdiVariable_grid_get, _Cdi.CdiVariable_grid_set)
+ zaxis = property(_Cdi.CdiVariable_zaxis_get, _Cdi.CdiVariable_zaxis_set)
+ taxis = property(_Cdi.CdiVariable_taxis_get, _Cdi.CdiVariable_taxis_set)
+
+ def sinfo(self):
+ return _Cdi.CdiVariable_sinfo(self)
+
+ def getValues(self):
+ return _Cdi.CdiVariable_getValues(self)
+
+ def getValuesWithLevel(self, tsID=0):
+ return _Cdi.CdiVariable_getValuesWithLevel(self, tsID)
+
+ def getFValues(self):
+ return _Cdi.CdiVariable_getFValues(self)
+
+ def getFValuesWithLevel(self, tsID=0):
+ return _Cdi.CdiVariable_getFValuesWithLevel(self, tsID)
+
+ def getValuesAsPointer(self):
+ return _Cdi.CdiVariable_getValuesAsPointer(self)
+
+ def getValuesWithLevelAsPointer(self, tsID=0):
+ return _Cdi.CdiVariable_getValuesWithLevelAsPointer(self, tsID)
+
+# Register CdiVariable in _Cdi:
+_Cdi.CdiVariable_swigregister(CdiVariable)
+
+class Cdi(object):
+ thisown = property(lambda x: x.this.own(), lambda x, v: x.this.own(v), doc="The membership flag")
+ __repr__ = _swig_repr
+
+ def __init__(self, path):
+ _Cdi.Cdi_swiginit(self, _Cdi.new_Cdi(path))
+ __swig_destroy__ = _Cdi.delete_Cdi
+ streamID = property(_Cdi.Cdi_streamID_get, _Cdi.Cdi_streamID_set)
+ vlistID = property(_Cdi.Cdi_vlistID_get, _Cdi.Cdi_vlistID_set)
+ nvars = property(_Cdi.Cdi_nvars_get, _Cdi.Cdi_nvars_set)
+ nzaxes = property(_Cdi.Cdi_nzaxes_get, _Cdi.Cdi_nzaxes_set)
+ ngrids = property(_Cdi.Cdi_ngrids_get, _Cdi.Cdi_ngrids_set)
+ ntaxes = property(_Cdi.Cdi_ntaxes_get, _Cdi.Cdi_ntaxes_set)
+ taxisID = property(_Cdi.Cdi_taxisID_get, _Cdi.Cdi_taxisID_set)
+ varnames = property(_Cdi.Cdi_varnames_get, _Cdi.Cdi_varnames_set)
+ codes = property(_Cdi.Cdi_codes_get, _Cdi.Cdi_codes_set)
+ variables = property(_Cdi.Cdi_variables_get, _Cdi.Cdi_variables_set)
+ var = property(_Cdi.Cdi_var_get, _Cdi.Cdi_var_set)
+ varByCode = property(_Cdi.Cdi_varByCode_get, _Cdi.Cdi_varByCode_set)
+ taxes = property(_Cdi.Cdi_taxes_get, _Cdi.Cdi_taxes_set)
+ zaxes = property(_Cdi.Cdi_zaxes_get, _Cdi.Cdi_zaxes_set)
+ grids = property(_Cdi.Cdi_grids_get, _Cdi.Cdi_grids_set)
+
+ def griddes(self):
+ return _Cdi.Cdi_griddes(self)
+
+# Register Cdi in _Cdi:
+_Cdi.Cdi_swigregister(Cdi)
+
+
+
diff --git a/interfaces/python/cdi_wrapper.cpp b/interfaces/python/cdi_wrapper.cpp
new file mode 100644
index 000000000..06e0159f1
--- /dev/null
+++ b/interfaces/python/cdi_wrapper.cpp
@@ -0,0 +1,29389 @@
+/* ----------------------------------------------------------------------------
+ * This file was automatically generated by SWIG (http://www.swig.org).
+ * Version 4.0.2
+ *
+ * This file is not intended to be easily readable and contains a number of
+ * coding conventions designed to improve portability and efficiency. Do not make
+ * changes to this file unless you know what you are doing--modify the SWIG
+ * interface file instead.
+ * ----------------------------------------------------------------------------- */
+
+
+#ifndef SWIGPYTHON
+#define SWIGPYTHON
+#endif
+
+#define SWIG_PYTHON_DIRECTOR_NO_VTABLE
+
+
+#ifdef __cplusplus
+/* SwigValueWrapper is described in swig.swg */
+template<typename T> class SwigValueWrapper {
+ struct SwigMovePointer {
+ T *ptr;
+ SwigMovePointer(T *p) : ptr(p) { }
+ ~SwigMovePointer() { delete ptr; }
+ SwigMovePointer& operator=(SwigMovePointer& rhs) { T* oldptr = ptr; ptr = 0; delete oldptr; ptr = rhs.ptr; rhs.ptr = 0; return *this; }
+ } pointer;
+ SwigValueWrapper& operator=(const SwigValueWrapper<T>& rhs);
+ SwigValueWrapper(const SwigValueWrapper<T>& rhs);
+public:
+ SwigValueWrapper() : pointer(0) { }
+ SwigValueWrapper& operator=(const T& t) { SwigMovePointer tmp(new T(t)); pointer = tmp; return *this; }
+ operator T&() const { return *pointer.ptr; }
+ T *operator&() { return pointer.ptr; }
+};
+
+template <typename T> T SwigValueInit() {
+ return T();
+}
+#endif
+
+/* -----------------------------------------------------------------------------
+ * This section contains generic SWIG labels for method/variable
+ * declarations/attributes, and other compiler dependent labels.
+ * ----------------------------------------------------------------------------- */
+
+/* template workaround for compilers that cannot correctly implement the C++ standard */
+#ifndef SWIGTEMPLATEDISAMBIGUATOR
+# if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
+# define SWIGTEMPLATEDISAMBIGUATOR template
+# elif defined(__HP_aCC)
+/* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
+/* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
+# define SWIGTEMPLATEDISAMBIGUATOR template
+# else
+# define SWIGTEMPLATEDISAMBIGUATOR
+# endif
+#endif
+
+/* inline attribute */
+#ifndef SWIGINLINE
+# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
+# define SWIGINLINE inline
+# else
+# define SWIGINLINE
+# endif
+#endif
+
+/* attribute recognised by some compilers to avoid 'unused' warnings */
+#ifndef SWIGUNUSED
+# if defined(__GNUC__)
+# if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
+# define SWIGUNUSED __attribute__ ((__unused__))
+# else
+# define SWIGUNUSED
+# endif
+# elif defined(__ICC)
+# define SWIGUNUSED __attribute__ ((__unused__))
+# else
+# define SWIGUNUSED
+# endif
+#endif
+
+#ifndef SWIG_MSC_UNSUPPRESS_4505
+# if defined(_MSC_VER)
+# pragma warning(disable : 4505) /* unreferenced local function has been removed */
+# endif
+#endif
+
+#ifndef SWIGUNUSEDPARM
+# ifdef __cplusplus
+# define SWIGUNUSEDPARM(p)
+# else
+# define SWIGUNUSEDPARM(p) p SWIGUNUSED
+# endif
+#endif
+
+/* internal SWIG method */
+#ifndef SWIGINTERN
+# define SWIGINTERN static SWIGUNUSED
+#endif
+
+/* internal inline SWIG method */
+#ifndef SWIGINTERNINLINE
+# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
+#endif
+
+/* exporting methods */
+#if defined(__GNUC__)
+# if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
+# ifndef GCC_HASCLASSVISIBILITY
+# define GCC_HASCLASSVISIBILITY
+# endif
+# endif
+#endif
+
+#ifndef SWIGEXPORT
+# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
+# if defined(STATIC_LINKED)
+# define SWIGEXPORT
+# else
+# define SWIGEXPORT __declspec(dllexport)
+# endif
+# else
+# if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
+# define SWIGEXPORT __attribute__ ((visibility("default")))
+# else
+# define SWIGEXPORT
+# endif
+# endif
+#endif
+
+/* calling conventions for Windows */
+#ifndef SWIGSTDCALL
+# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
+# define SWIGSTDCALL __stdcall
+# else
+# define SWIGSTDCALL
+# endif
+#endif
+
+/* Deal with Microsoft's attempt at deprecating C standard runtime functions */
+#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
+# define _CRT_SECURE_NO_DEPRECATE
+#endif
+
+/* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
+#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
+# define _SCL_SECURE_NO_DEPRECATE
+#endif
+
+/* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
+#if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
+# define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
+#endif
+
+/* Intel's compiler complains if a variable which was never initialised is
+ * cast to void, which is a common idiom which we use to indicate that we
+ * are aware a variable isn't used. So we just silence that warning.
+ * See: https://github.com/swig/swig/issues/192 for more discussion.
+ */
+#ifdef __INTEL_COMPILER
+# pragma warning disable 592
+#endif
+
+
+#if defined(__GNUC__) && defined(_WIN32) && !defined(SWIG_PYTHON_NO_HYPOT_WORKAROUND)
+/* Workaround for '::hypot' has not been declared', see https://bugs.python.org/issue11566 */
+# include <math.h>
+#endif
+
+#if defined(_DEBUG) && defined(SWIG_PYTHON_INTERPRETER_NO_DEBUG)
+/* Use debug wrappers with the Python release dll */
+# undef _DEBUG
+# include <Python.h>
+# define _DEBUG 1
+#else
+# include <Python.h>
+#endif
+
+/* -----------------------------------------------------------------------------
+ * swigrun.swg
+ *
+ * This file contains generic C API SWIG runtime support for pointer
+ * type checking.
+ * ----------------------------------------------------------------------------- */
+
+/* This should only be incremented when either the layout of swig_type_info changes,
+ or for whatever reason, the runtime changes incompatibly */
+#define SWIG_RUNTIME_VERSION "4"
+
+/* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
+#ifdef SWIG_TYPE_TABLE
+# define SWIG_QUOTE_STRING(x) #x
+# define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
+# define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
+#else
+# define SWIG_TYPE_TABLE_NAME
+#endif
+
+/*
+ You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
+ creating a static or dynamic library from the SWIG runtime code.
+ In 99.9% of the cases, SWIG just needs to declare them as 'static'.
+
+ But only do this if strictly necessary, ie, if you have problems
+ with your compiler or suchlike.
+*/
+
+#ifndef SWIGRUNTIME
+# define SWIGRUNTIME SWIGINTERN
+#endif
+
+#ifndef SWIGRUNTIMEINLINE
+# define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
+#endif
+
+/* Generic buffer size */
+#ifndef SWIG_BUFFER_SIZE
+# define SWIG_BUFFER_SIZE 1024
+#endif
+
+/* Flags for pointer conversions */
+#define SWIG_POINTER_DISOWN 0x1
+#define SWIG_CAST_NEW_MEMORY 0x2
+#define SWIG_POINTER_NO_NULL 0x4
+
+/* Flags for new pointer objects */
+#define SWIG_POINTER_OWN 0x1
+
+
+/*
+ Flags/methods for returning states.
+
+ The SWIG conversion methods, as ConvertPtr, return an integer
+ that tells if the conversion was successful or not. And if not,
+ an error code can be returned (see swigerrors.swg for the codes).
+
+ Use the following macros/flags to set or process the returning
+ states.
+
+ In old versions of SWIG, code such as the following was usually written:
+
+ if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
+ // success code
+ } else {
+ //fail code
+ }
+
+ Now you can be more explicit:
+
+ int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
+ if (SWIG_IsOK(res)) {
+ // success code
+ } else {
+ // fail code
+ }
+
+ which is the same really, but now you can also do
+
+ Type *ptr;
+ int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
+ if (SWIG_IsOK(res)) {
+ // success code
+ if (SWIG_IsNewObj(res) {
+ ...
+ delete *ptr;
+ } else {
+ ...
+ }
+ } else {
+ // fail code
+ }
+
+ I.e., now SWIG_ConvertPtr can return new objects and you can
+ identify the case and take care of the deallocation. Of course that
+ also requires SWIG_ConvertPtr to return new result values, such as
+
+ int SWIG_ConvertPtr(obj, ptr,...) {
+ if (<obj is ok>) {
+ if (<need new object>) {
+ *ptr = <ptr to new allocated object>;
+ return SWIG_NEWOBJ;
+ } else {
+ *ptr = <ptr to old object>;
+ return SWIG_OLDOBJ;
+ }
+ } else {
+ return SWIG_BADOBJ;
+ }
+ }
+
+ Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
+ more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
+ SWIG errors code.
+
+ Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
+ allows to return the 'cast rank', for example, if you have this
+
+ int food(double)
+ int fooi(int);
+
+ and you call
+
+ food(1) // cast rank '1' (1 -> 1.0)
+ fooi(1) // cast rank '0'
+
+ just use the SWIG_AddCast()/SWIG_CheckState()
+*/
+
+#define SWIG_OK (0)
+#define SWIG_ERROR (-1)
+#define SWIG_IsOK(r) (r >= 0)
+#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
+
+/* The CastRankLimit says how many bits are used for the cast rank */
+#define SWIG_CASTRANKLIMIT (1 << 8)
+/* The NewMask denotes the object was created (using new/malloc) */
+#define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
+/* The TmpMask is for in/out typemaps that use temporal objects */
+#define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
+/* Simple returning values */
+#define SWIG_BADOBJ (SWIG_ERROR)
+#define SWIG_OLDOBJ (SWIG_OK)
+#define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
+#define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
+/* Check, add and del mask methods */
+#define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
+#define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
+#define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
+#define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
+#define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
+#define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
+
+/* Cast-Rank Mode */
+#if defined(SWIG_CASTRANK_MODE)
+# ifndef SWIG_TypeRank
+# define SWIG_TypeRank unsigned long
+# endif
+# ifndef SWIG_MAXCASTRANK /* Default cast allowed */
+# define SWIG_MAXCASTRANK (2)
+# endif
+# define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
+# define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
+SWIGINTERNINLINE int SWIG_AddCast(int r) {
+ return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
+}
+SWIGINTERNINLINE int SWIG_CheckState(int r) {
+ return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
+}
+#else /* no cast-rank mode */
+# define SWIG_AddCast(r) (r)
+# define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
+#endif
+
+
+#include <string.h>
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef void *(*swig_converter_func)(void *, int *);
+typedef struct swig_type_info *(*swig_dycast_func)(void **);
+
+/* Structure to store information on one type */
+typedef struct swig_type_info {
+ const char *name; /* mangled name of this type */
+ const char *str; /* human readable name of this type */
+ swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
+ struct swig_cast_info *cast; /* linked list of types that can cast into this type */
+ void *clientdata; /* language specific type data */
+ int owndata; /* flag if the structure owns the clientdata */
+} swig_type_info;
+
+/* Structure to store a type and conversion function used for casting */
+typedef struct swig_cast_info {
+ swig_type_info *type; /* pointer to type that is equivalent to this type */
+ swig_converter_func converter; /* function to cast the void pointers */
+ struct swig_cast_info *next; /* pointer to next cast in linked list */
+ struct swig_cast_info *prev; /* pointer to the previous cast */
+} swig_cast_info;
+
+/* Structure used to store module information
+ * Each module generates one structure like this, and the runtime collects
+ * all of these structures and stores them in a circularly linked list.*/
+typedef struct swig_module_info {
+ swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
+ size_t size; /* Number of types in this module */
+ struct swig_module_info *next; /* Pointer to next element in circularly linked list */
+ swig_type_info **type_initial; /* Array of initially generated type structures */
+ swig_cast_info **cast_initial; /* Array of initially generated casting structures */
+ void *clientdata; /* Language specific module data */
+} swig_module_info;
+
+/*
+ Compare two type names skipping the space characters, therefore
+ "char*" == "char *" and "Class<int>" == "Class<int >", etc.
+
+ Return 0 when the two name types are equivalent, as in
+ strncmp, but skipping ' '.
+*/
+SWIGRUNTIME int
+SWIG_TypeNameComp(const char *f1, const char *l1,
+ const char *f2, const char *l2) {
+ for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
+ while ((*f1 == ' ') && (f1 != l1)) ++f1;
+ while ((*f2 == ' ') && (f2 != l2)) ++f2;
+ if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
+ }
+ return (int)((l1 - f1) - (l2 - f2));
+}
+
+/*
+ Check type equivalence in a name list like <name1>|<name2>|...
+ Return 0 if equal, -1 if nb < tb, 1 if nb > tb
+*/
+SWIGRUNTIME int
+SWIG_TypeCmp(const char *nb, const char *tb) {
+ int equiv = 1;
+ const char* te = tb + strlen(tb);
+ const char* ne = nb;
+ while (equiv != 0 && *ne) {
+ for (nb = ne; *ne; ++ne) {
+ if (*ne == '|') break;
+ }
+ equiv = SWIG_TypeNameComp(nb, ne, tb, te);
+ if (*ne) ++ne;
+ }
+ return equiv;
+}
+
+/*
+ Check type equivalence in a name list like <name1>|<name2>|...
+ Return 0 if not equal, 1 if equal
+*/
+SWIGRUNTIME int
+SWIG_TypeEquiv(const char *nb, const char *tb) {
+ return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
+}
+
+/*
+ Check the typename
+*/
+SWIGRUNTIME swig_cast_info *
+SWIG_TypeCheck(const char *c, swig_type_info *ty) {
+ if (ty) {
+ swig_cast_info *iter = ty->cast;
+ while (iter) {
+ if (strcmp(iter->type->name, c) == 0) {
+ if (iter == ty->cast)
+ return iter;
+ /* Move iter to the top of the linked list */
+ iter->prev->next = iter->next;
+ if (iter->next)
+ iter->next->prev = iter->prev;
+ iter->next = ty->cast;
+ iter->prev = 0;
+ if (ty->cast) ty->cast->prev = iter;
+ ty->cast = iter;
+ return iter;
+ }
+ iter = iter->next;
+ }
+ }
+ return 0;
+}
+
+/*
+ Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
+*/
+SWIGRUNTIME swig_cast_info *
+SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
+ if (ty) {
+ swig_cast_info *iter = ty->cast;
+ while (iter) {
+ if (iter->type == from) {
+ if (iter == ty->cast)
+ return iter;
+ /* Move iter to the top of the linked list */
+ iter->prev->next = iter->next;
+ if (iter->next)
+ iter->next->prev = iter->prev;
+ iter->next = ty->cast;
+ iter->prev = 0;
+ if (ty->cast) ty->cast->prev = iter;
+ ty->cast = iter;
+ return iter;
+ }
+ iter = iter->next;
+ }
+ }
+ return 0;
+}
+
+/*
+ Cast a pointer up an inheritance hierarchy
+*/
+SWIGRUNTIMEINLINE void *
+SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
+ return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
+}
+
+/*
+ Dynamic pointer casting. Down an inheritance hierarchy
+*/
+SWIGRUNTIME swig_type_info *
+SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
+ swig_type_info *lastty = ty;
+ if (!ty || !ty->dcast) return ty;
+ while (ty && (ty->dcast)) {
+ ty = (*ty->dcast)(ptr);
+ if (ty) lastty = ty;
+ }
+ return lastty;
+}
+
+/*
+ Return the name associated with this type
+*/
+SWIGRUNTIMEINLINE const char *
+SWIG_TypeName(const swig_type_info *ty) {
+ return ty->name;
+}
+
+/*
+ Return the pretty name associated with this type,
+ that is an unmangled type name in a form presentable to the user.
+*/
+SWIGRUNTIME const char *
+SWIG_TypePrettyName(const swig_type_info *type) {
+ /* The "str" field contains the equivalent pretty names of the
+ type, separated by vertical-bar characters. We choose
+ to print the last name, as it is often (?) the most
+ specific. */
+ if (!type) return NULL;
+ if (type->str != NULL) {
+ const char *last_name = type->str;
+ const char *s;
+ for (s = type->str; *s; s++)
+ if (*s == '|') last_name = s+1;
+ return last_name;
+ }
+ else
+ return type->name;
+}
+
+/*
+ Set the clientdata field for a type
+*/
+SWIGRUNTIME void
+SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
+ swig_cast_info *cast = ti->cast;
+ /* if (ti->clientdata == clientdata) return; */
+ ti->clientdata = clientdata;
+
+ while (cast) {
+ if (!cast->converter) {
+ swig_type_info *tc = cast->type;
+ if (!tc->clientdata) {
+ SWIG_TypeClientData(tc, clientdata);
+ }
+ }
+ cast = cast->next;
+ }
+}
+SWIGRUNTIME void
+SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
+ SWIG_TypeClientData(ti, clientdata);
+ ti->owndata = 1;
+}
+
+/*
+ Search for a swig_type_info structure only by mangled name
+ Search is a O(log #types)
+
+ We start searching at module start, and finish searching when start == end.
+ Note: if start == end at the beginning of the function, we go all the way around
+ the circular list.
+*/
+SWIGRUNTIME swig_type_info *
+SWIG_MangledTypeQueryModule(swig_module_info *start,
+ swig_module_info *end,
+ const char *name) {
+ swig_module_info *iter = start;
+ do {
+ if (iter->size) {
+ size_t l = 0;
+ size_t r = iter->size - 1;
+ do {
+ /* since l+r >= 0, we can (>> 1) instead (/ 2) */
+ size_t i = (l + r) >> 1;
+ const char *iname = iter->types[i]->name;
+ if (iname) {
+ int compare = strcmp(name, iname);
+ if (compare == 0) {
+ return iter->types[i];
+ } else if (compare < 0) {
+ if (i) {
+ r = i - 1;
+ } else {
+ break;
+ }
+ } else if (compare > 0) {
+ l = i + 1;
+ }
+ } else {
+ break; /* should never happen */
+ }
+ } while (l <= r);
+ }
+ iter = iter->next;
+ } while (iter != end);
+ return 0;
+}
+
+/*
+ Search for a swig_type_info structure for either a mangled name or a human readable name.
+ It first searches the mangled names of the types, which is a O(log #types)
+ If a type is not found it then searches the human readable names, which is O(#types).
+
+ We start searching at module start, and finish searching when start == end.
+ Note: if start == end at the beginning of the function, we go all the way around
+ the circular list.
+*/
+SWIGRUNTIME swig_type_info *
+SWIG_TypeQueryModule(swig_module_info *start,
+ swig_module_info *end,
+ const char *name) {
+ /* STEP 1: Search the name field using binary search */
+ swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
+ if (ret) {
+ return ret;
+ } else {
+ /* STEP 2: If the type hasn't been found, do a complete search
+ of the str field (the human readable name) */
+ swig_module_info *iter = start;
+ do {
+ size_t i = 0;
+ for (; i < iter->size; ++i) {
+ if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
+ return iter->types[i];
+ }
+ iter = iter->next;
+ } while (iter != end);
+ }
+
+ /* neither found a match */
+ return 0;
+}
+
+/*
+ Pack binary data into a string
+*/
+SWIGRUNTIME char *
+SWIG_PackData(char *c, void *ptr, size_t sz) {
+ static const char hex[17] = "0123456789abcdef";
+ const unsigned char *u = (unsigned char *) ptr;
+ const unsigned char *eu = u + sz;
+ for (; u != eu; ++u) {
+ unsigned char uu = *u;
+ *(c++) = hex[(uu & 0xf0) >> 4];
+ *(c++) = hex[uu & 0xf];
+ }
+ return c;
+}
+
+/*
+ Unpack binary data from a string
+*/
+SWIGRUNTIME const char *
+SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
+ unsigned char *u = (unsigned char *) ptr;
+ const unsigned char *eu = u + sz;
+ for (; u != eu; ++u) {
+ char d = *(c++);
+ unsigned char uu;
+ if ((d >= '0') && (d <= '9'))
+ uu = (unsigned char)((d - '0') << 4);
+ else if ((d >= 'a') && (d <= 'f'))
+ uu = (unsigned char)((d - ('a'-10)) << 4);
+ else
+ return (char *) 0;
+ d = *(c++);
+ if ((d >= '0') && (d <= '9'))
+ uu |= (unsigned char)(d - '0');
+ else if ((d >= 'a') && (d <= 'f'))
+ uu |= (unsigned char)(d - ('a'-10));
+ else
+ return (char *) 0;
+ *u = uu;
+ }
+ return c;
+}
+
+/*
+ Pack 'void *' into a string buffer.
+*/
+SWIGRUNTIME char *
+SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
+ char *r = buff;
+ if ((2*sizeof(void *) + 2) > bsz) return 0;
+ *(r++) = '_';
+ r = SWIG_PackData(r,&ptr,sizeof(void *));
+ if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
+ strcpy(r,name);
+ return buff;
+}
+
+SWIGRUNTIME const char *
+SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
+ if (*c != '_') {
+ if (strcmp(c,"NULL") == 0) {
+ *ptr = (void *) 0;
+ return name;
+ } else {
+ return 0;
+ }
+ }
+ return SWIG_UnpackData(++c,ptr,sizeof(void *));
+}
+
+SWIGRUNTIME char *
+SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
+ char *r = buff;
+ size_t lname = (name ? strlen(name) : 0);
+ if ((2*sz + 2 + lname) > bsz) return 0;
+ *(r++) = '_';
+ r = SWIG_PackData(r,ptr,sz);
+ if (lname) {
+ strncpy(r,name,lname+1);
+ } else {
+ *r = 0;
+ }
+ return buff;
+}
+
+SWIGRUNTIME const char *
+SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
+ if (*c != '_') {
+ if (strcmp(c,"NULL") == 0) {
+ memset(ptr,0,sz);
+ return name;
+ } else {
+ return 0;
+ }
+ }
+ return SWIG_UnpackData(++c,ptr,sz);
+}
+
+#ifdef __cplusplus
+}
+#endif
+
+/* Errors in SWIG */
+#define SWIG_UnknownError -1
+#define SWIG_IOError -2
+#define SWIG_RuntimeError -3
+#define SWIG_IndexError -4
+#define SWIG_TypeError -5
+#define SWIG_DivisionByZero -6
+#define SWIG_OverflowError -7
+#define SWIG_SyntaxError -8
+#define SWIG_ValueError -9
+#define SWIG_SystemError -10
+#define SWIG_AttributeError -11
+#define SWIG_MemoryError -12
+#define SWIG_NullReferenceError -13
+
+
+
+/* Compatibility macros for Python 3 */
+#if PY_VERSION_HEX >= 0x03000000
+
+#define PyClass_Check(obj) PyObject_IsInstance(obj, (PyObject *)&PyType_Type)
+#define PyInt_Check(x) PyLong_Check(x)
+#define PyInt_AsLong(x) PyLong_AsLong(x)
+#define PyInt_FromLong(x) PyLong_FromLong(x)
+#define PyInt_FromSize_t(x) PyLong_FromSize_t(x)
+#define PyString_Check(name) PyBytes_Check(name)
+#define PyString_FromString(x) PyUnicode_FromString(x)
+#define PyString_Format(fmt, args) PyUnicode_Format(fmt, args)
+#define PyString_AsString(str) PyBytes_AsString(str)
+#define PyString_Size(str) PyBytes_Size(str)
+#define PyString_InternFromString(key) PyUnicode_InternFromString(key)
+#define Py_TPFLAGS_HAVE_CLASS Py_TPFLAGS_BASETYPE
+#define PyString_AS_STRING(x) PyUnicode_AS_STRING(x)
+#define _PyLong_FromSsize_t(x) PyLong_FromSsize_t(x)
+
+#endif
+
+#ifndef Py_TYPE
+# define Py_TYPE(op) ((op)->ob_type)
+#endif
+
+/* SWIG APIs for compatibility of both Python 2 & 3 */
+
+#if PY_VERSION_HEX >= 0x03000000
+# define SWIG_Python_str_FromFormat PyUnicode_FromFormat
+#else
+# define SWIG_Python_str_FromFormat PyString_FromFormat
+#endif
+
+
+/* Warning: This function will allocate a new string in Python 3,
+ * so please call SWIG_Python_str_DelForPy3(x) to free the space.
+ */
+SWIGINTERN char*
+SWIG_Python_str_AsChar(PyObject *str)
+{
+#if PY_VERSION_HEX >= 0x03030000
+ return (char *)PyUnicode_AsUTF8(str);
+#elif PY_VERSION_HEX >= 0x03000000
+ char *newstr = 0;
+ str = PyUnicode_AsUTF8String(str);
+ if (str) {
+ char *cstr;
+ Py_ssize_t len;
+ if (PyBytes_AsStringAndSize(str, &cstr, &len) != -1) {
+ newstr = (char *) malloc(len+1);
+ if (newstr)
+ memcpy(newstr, cstr, len+1);
+ }
+ Py_XDECREF(str);
+ }
+ return newstr;
+#else
+ return PyString_AsString(str);
+#endif
+}
+
+#if PY_VERSION_HEX >= 0x03030000 || PY_VERSION_HEX < 0x03000000
+# define SWIG_Python_str_DelForPy3(x)
+#else
+# define SWIG_Python_str_DelForPy3(x) free( (void*) (x) )
+#endif
+
+
+SWIGINTERN PyObject*
+SWIG_Python_str_FromChar(const char *c)
+{
+#if PY_VERSION_HEX >= 0x03000000
+ return PyUnicode_FromString(c);
+#else
+ return PyString_FromString(c);
+#endif
+}
+
+#ifndef PyObject_DEL
+# define PyObject_DEL PyObject_Del
+#endif
+
+// SWIGPY_USE_CAPSULE is no longer used within SWIG itself, but some user
+// interface files check for it.
+# define SWIGPY_USE_CAPSULE
+# define SWIGPY_CAPSULE_NAME ("swig_runtime_data" SWIG_RUNTIME_VERSION ".type_pointer_capsule" SWIG_TYPE_TABLE_NAME)
+
+#if PY_VERSION_HEX < 0x03020000
+#define PyDescr_TYPE(x) (((PyDescrObject *)(x))->d_type)
+#define PyDescr_NAME(x) (((PyDescrObject *)(x))->d_name)
+#define Py_hash_t long
+#endif
+
+/* -----------------------------------------------------------------------------
+ * error manipulation
+ * ----------------------------------------------------------------------------- */
+
+SWIGRUNTIME PyObject*
+SWIG_Python_ErrorType(int code) {
+ PyObject* type = 0;
+ switch(code) {
+ case SWIG_MemoryError:
+ type = PyExc_MemoryError;
+ break;
+ case SWIG_IOError:
+ type = PyExc_IOError;
+ break;
+ case SWIG_RuntimeError:
+ type = PyExc_RuntimeError;
+ break;
+ case SWIG_IndexError:
+ type = PyExc_IndexError;
+ break;
+ case SWIG_TypeError:
+ type = PyExc_TypeError;
+ break;
+ case SWIG_DivisionByZero:
+ type = PyExc_ZeroDivisionError;
+ break;
+ case SWIG_OverflowError:
+ type = PyExc_OverflowError;
+ break;
+ case SWIG_SyntaxError:
+ type = PyExc_SyntaxError;
+ break;
+ case SWIG_ValueError:
+ type = PyExc_ValueError;
+ break;
+ case SWIG_SystemError:
+ type = PyExc_SystemError;
+ break;
+ case SWIG_AttributeError:
+ type = PyExc_AttributeError;
+ break;
+ default:
+ type = PyExc_RuntimeError;
+ }
+ return type;
+}
+
+
+SWIGRUNTIME void
+SWIG_Python_AddErrorMsg(const char* mesg)
+{
+ PyObject *type = 0;
+ PyObject *value = 0;
+ PyObject *traceback = 0;
+
+ if (PyErr_Occurred())
+ PyErr_Fetch(&type, &value, &traceback);
+ if (value) {
+ PyObject *old_str = PyObject_Str(value);
+ const char *tmp = SWIG_Python_str_AsChar(old_str);
+ PyErr_Clear();
+ Py_XINCREF(type);
+ if (tmp)
+ PyErr_Format(type, "%s %s", tmp, mesg);
+ else
+ PyErr_Format(type, "%s", mesg);
+ SWIG_Python_str_DelForPy3(tmp);
+ Py_DECREF(old_str);
+ Py_DECREF(value);
+ } else {
+ PyErr_SetString(PyExc_RuntimeError, mesg);
+ }
+}
+
+SWIGRUNTIME int
+SWIG_Python_TypeErrorOccurred(PyObject *obj)
+{
+ PyObject *error;
+ if (obj)
+ return 0;
+ error = PyErr_Occurred();
+ return error && PyErr_GivenExceptionMatches(error, PyExc_TypeError);
+}
+
+SWIGRUNTIME void
+SWIG_Python_RaiseOrModifyTypeError(const char *message)
+{
+ if (SWIG_Python_TypeErrorOccurred(NULL)) {
+ /* Use existing TypeError to preserve stacktrace and enhance with given message */
+ PyObject *newvalue;
+ PyObject *type = NULL, *value = NULL, *traceback = NULL;
+ PyErr_Fetch(&type, &value, &traceback);
+#if PY_VERSION_HEX >= 0x03000000
+ newvalue = PyUnicode_FromFormat("%S\nAdditional information:\n%s", value, message);
+#else
+ newvalue = PyString_FromFormat("%s\nAdditional information:\n%s", PyString_AsString(value), message);
+#endif
+ Py_XDECREF(value);
+ PyErr_Restore(type, newvalue, traceback);
+ } else {
+ /* Raise TypeError using given message */
+ PyErr_SetString(PyExc_TypeError, message);
+ }
+}
+
+#if defined(SWIG_PYTHON_NO_THREADS)
+# if defined(SWIG_PYTHON_THREADS)
+# undef SWIG_PYTHON_THREADS
+# endif
+#endif
+#if defined(SWIG_PYTHON_THREADS) /* Threading support is enabled */
+# if !defined(SWIG_PYTHON_USE_GIL) && !defined(SWIG_PYTHON_NO_USE_GIL)
+# define SWIG_PYTHON_USE_GIL
+# endif
+# if defined(SWIG_PYTHON_USE_GIL) /* Use PyGILState threads calls */
+# ifndef SWIG_PYTHON_INITIALIZE_THREADS
+# define SWIG_PYTHON_INITIALIZE_THREADS PyEval_InitThreads()
+# endif
+# ifdef __cplusplus /* C++ code */
+ class SWIG_Python_Thread_Block {
+ bool status;
+ PyGILState_STATE state;
+ public:
+ void end() { if (status) { PyGILState_Release(state); status = false;} }
+ SWIG_Python_Thread_Block() : status(true), state(PyGILState_Ensure()) {}
+ ~SWIG_Python_Thread_Block() { end(); }
+ };
+ class SWIG_Python_Thread_Allow {
+ bool status;
+ PyThreadState *save;
+ public:
+ void end() { if (status) { PyEval_RestoreThread(save); status = false; }}
+ SWIG_Python_Thread_Allow() : status(true), save(PyEval_SaveThread()) {}
+ ~SWIG_Python_Thread_Allow() { end(); }
+ };
+# define SWIG_PYTHON_THREAD_BEGIN_BLOCK SWIG_Python_Thread_Block _swig_thread_block
+# define SWIG_PYTHON_THREAD_END_BLOCK _swig_thread_block.end()
+# define SWIG_PYTHON_THREAD_BEGIN_ALLOW SWIG_Python_Thread_Allow _swig_thread_allow
+# define SWIG_PYTHON_THREAD_END_ALLOW _swig_thread_allow.end()
+# else /* C code */
+# define SWIG_PYTHON_THREAD_BEGIN_BLOCK PyGILState_STATE _swig_thread_block = PyGILState_Ensure()
+# define SWIG_PYTHON_THREAD_END_BLOCK PyGILState_Release(_swig_thread_block)
+# define SWIG_PYTHON_THREAD_BEGIN_ALLOW PyThreadState *_swig_thread_allow = PyEval_SaveThread()
+# define SWIG_PYTHON_THREAD_END_ALLOW PyEval_RestoreThread(_swig_thread_allow)
+# endif
+# else /* Old thread way, not implemented, user must provide it */
+# if !defined(SWIG_PYTHON_INITIALIZE_THREADS)
+# define SWIG_PYTHON_INITIALIZE_THREADS
+# endif
+# if !defined(SWIG_PYTHON_THREAD_BEGIN_BLOCK)
+# define SWIG_PYTHON_THREAD_BEGIN_BLOCK
+# endif
+# if !defined(SWIG_PYTHON_THREAD_END_BLOCK)
+# define SWIG_PYTHON_THREAD_END_BLOCK
+# endif
+# if !defined(SWIG_PYTHON_THREAD_BEGIN_ALLOW)
+# define SWIG_PYTHON_THREAD_BEGIN_ALLOW
+# endif
+# if !defined(SWIG_PYTHON_THREAD_END_ALLOW)
+# define SWIG_PYTHON_THREAD_END_ALLOW
+# endif
+# endif
+#else /* No thread support */
+# define SWIG_PYTHON_INITIALIZE_THREADS
+# define SWIG_PYTHON_THREAD_BEGIN_BLOCK
+# define SWIG_PYTHON_THREAD_END_BLOCK
+# define SWIG_PYTHON_THREAD_BEGIN_ALLOW
+# define SWIG_PYTHON_THREAD_END_ALLOW
+#endif
+
+/* -----------------------------------------------------------------------------
+ * Python API portion that goes into the runtime
+ * ----------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* -----------------------------------------------------------------------------
+ * Constant declarations
+ * ----------------------------------------------------------------------------- */
+
+/* Constant Types */
+#define SWIG_PY_POINTER 4
+#define SWIG_PY_BINARY 5
+
+/* Constant information structure */
+typedef struct swig_const_info {
+ int type;
+ const char *name;
+ long lvalue;
+ double dvalue;
+ void *pvalue;
+ swig_type_info **ptype;
+} swig_const_info;
+
+#ifdef __cplusplus
+}
+#endif
+
+
+/* -----------------------------------------------------------------------------
+ * pyrun.swg
+ *
+ * This file contains the runtime support for Python modules
+ * and includes code for managing global variables and pointer
+ * type checking.
+ *
+ * ----------------------------------------------------------------------------- */
+
+#if PY_VERSION_HEX < 0x02070000 /* 2.7.0 */
+# error "This version of SWIG only supports Python >= 2.7"
+#endif
+
+#if PY_VERSION_HEX >= 0x03000000 && PY_VERSION_HEX < 0x03020000
+# error "This version of SWIG only supports Python 3 >= 3.2"
+#endif
+
+/* Common SWIG API */
+
+/* for raw pointers */
+#define SWIG_Python_ConvertPtr(obj, pptr, type, flags) SWIG_Python_ConvertPtrAndOwn(obj, pptr, type, flags, 0)
+#define SWIG_ConvertPtr(obj, pptr, type, flags) SWIG_Python_ConvertPtr(obj, pptr, type, flags)
+#define SWIG_ConvertPtrAndOwn(obj,pptr,type,flags,own) SWIG_Python_ConvertPtrAndOwn(obj, pptr, type, flags, own)
+
+#ifdef SWIGPYTHON_BUILTIN
+#define SWIG_NewPointerObj(ptr, type, flags) SWIG_Python_NewPointerObj(self, ptr, type, flags)
+#else
+#define SWIG_NewPointerObj(ptr, type, flags) SWIG_Python_NewPointerObj(NULL, ptr, type, flags)
+#endif
+
+#define SWIG_InternalNewPointerObj(ptr, type, flags) SWIG_Python_NewPointerObj(NULL, ptr, type, flags)
+
+#define SWIG_CheckImplicit(ty) SWIG_Python_CheckImplicit(ty)
+#define SWIG_AcquirePtr(ptr, src) SWIG_Python_AcquirePtr(ptr, src)
+#define swig_owntype int
+
+/* for raw packed data */
+#define SWIG_ConvertPacked(obj, ptr, sz, ty) SWIG_Python_ConvertPacked(obj, ptr, sz, ty)
+#define SWIG_NewPackedObj(ptr, sz, type) SWIG_Python_NewPackedObj(ptr, sz, type)
+
+/* for class or struct pointers */
+#define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
+#define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
+
+/* for C or C++ function pointers */
+#define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_Python_ConvertFunctionPtr(obj, pptr, type)
+#define SWIG_NewFunctionPtrObj(ptr, type) SWIG_Python_NewPointerObj(NULL, ptr, type, 0)
+
+/* for C++ member pointers, ie, member methods */
+#define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_Python_ConvertPacked(obj, ptr, sz, ty)
+#define SWIG_NewMemberObj(ptr, sz, type) SWIG_Python_NewPackedObj(ptr, sz, type)
+
+
+/* Runtime API */
+
+#define SWIG_GetModule(clientdata) SWIG_Python_GetModule(clientdata)
+#define SWIG_SetModule(clientdata, pointer) SWIG_Python_SetModule(pointer)
+#define SWIG_NewClientData(obj) SwigPyClientData_New(obj)
+
+#define SWIG_SetErrorObj SWIG_Python_SetErrorObj
+#define SWIG_SetErrorMsg SWIG_Python_SetErrorMsg
+#define SWIG_ErrorType(code) SWIG_Python_ErrorType(code)
+#define SWIG_Error(code, msg) SWIG_Python_SetErrorMsg(SWIG_ErrorType(code), msg)
+#define SWIG_fail goto fail
+
+
+/* Runtime API implementation */
+
+/* Error manipulation */
+
+SWIGINTERN void
+SWIG_Python_SetErrorObj(PyObject *errtype, PyObject *obj) {
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ PyErr_SetObject(errtype, obj);
+ Py_DECREF(obj);
+ SWIG_PYTHON_THREAD_END_BLOCK;
+}
+
+SWIGINTERN void
+SWIG_Python_SetErrorMsg(PyObject *errtype, const char *msg) {
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ PyErr_SetString(errtype, msg);
+ SWIG_PYTHON_THREAD_END_BLOCK;
+}
+
+#define SWIG_Python_Raise(obj, type, desc) SWIG_Python_SetErrorObj(SWIG_Python_ExceptionType(desc), obj)
+
+/* Set a constant value */
+
+#if defined(SWIGPYTHON_BUILTIN)
+
+SWIGINTERN void
+SwigPyBuiltin_AddPublicSymbol(PyObject *seq, const char *key) {
+ PyObject *s = PyString_InternFromString(key);
+ PyList_Append(seq, s);
+ Py_DECREF(s);
+}
+
+SWIGINTERN void
+SWIG_Python_SetConstant(PyObject *d, PyObject *public_interface, const char *name, PyObject *obj) {
+ PyDict_SetItemString(d, name, obj);
+ Py_DECREF(obj);
+ if (public_interface)
+ SwigPyBuiltin_AddPublicSymbol(public_interface, name);
+}
+
+#else
+
+SWIGINTERN void
+SWIG_Python_SetConstant(PyObject *d, const char *name, PyObject *obj) {
+ PyDict_SetItemString(d, name, obj);
+ Py_DECREF(obj);
+}
+
+#endif
+
+/* Append a value to the result obj */
+
+SWIGINTERN PyObject*
+SWIG_Python_AppendOutput(PyObject* result, PyObject* obj) {
+ if (!result) {
+ result = obj;
+ } else if (result == Py_None) {
+ Py_DECREF(result);
+ result = obj;
+ } else {
+ if (!PyList_Check(result)) {
+ PyObject *o2 = result;
+ result = PyList_New(1);
+ PyList_SetItem(result, 0, o2);
+ }
+ PyList_Append(result,obj);
+ Py_DECREF(obj);
+ }
+ return result;
+}
+
+/* Unpack the argument tuple */
+
+SWIGINTERN Py_ssize_t
+SWIG_Python_UnpackTuple(PyObject *args, const char *name, Py_ssize_t min, Py_ssize_t max, PyObject **objs)
+{
+ if (!args) {
+ if (!min && !max) {
+ return 1;
+ } else {
+ PyErr_Format(PyExc_TypeError, "%s expected %s%d arguments, got none",
+ name, (min == max ? "" : "at least "), (int)min);
+ return 0;
+ }
+ }
+ if (!PyTuple_Check(args)) {
+ if (min <= 1 && max >= 1) {
+ Py_ssize_t i;
+ objs[0] = args;
+ for (i = 1; i < max; ++i) {
+ objs[i] = 0;
+ }
+ return 2;
+ }
+ PyErr_SetString(PyExc_SystemError, "UnpackTuple() argument list is not a tuple");
+ return 0;
+ } else {
+ Py_ssize_t l = PyTuple_GET_SIZE(args);
+ if (l < min) {
+ PyErr_Format(PyExc_TypeError, "%s expected %s%d arguments, got %d",
+ name, (min == max ? "" : "at least "), (int)min, (int)l);
+ return 0;
+ } else if (l > max) {
+ PyErr_Format(PyExc_TypeError, "%s expected %s%d arguments, got %d",
+ name, (min == max ? "" : "at most "), (int)max, (int)l);
+ return 0;
+ } else {
+ Py_ssize_t i;
+ for (i = 0; i < l; ++i) {
+ objs[i] = PyTuple_GET_ITEM(args, i);
+ }
+ for (; l < max; ++l) {
+ objs[l] = 0;
+ }
+ return i + 1;
+ }
+ }
+}
+
+SWIGINTERN int
+SWIG_Python_CheckNoKeywords(PyObject *kwargs, const char *name) {
+ int no_kwargs = 1;
+ if (kwargs) {
+ assert(PyDict_Check(kwargs));
+ if (PyDict_Size(kwargs) > 0) {
+ PyErr_Format(PyExc_TypeError, "%s() does not take keyword arguments", name);
+ no_kwargs = 0;
+ }
+ }
+ return no_kwargs;
+}
+
+/* A functor is a function object with one single object argument */
+#define SWIG_Python_CallFunctor(functor, obj) PyObject_CallFunctionObjArgs(functor, obj, NULL);
+
+/*
+ Helper for static pointer initialization for both C and C++ code, for example
+ static PyObject *SWIG_STATIC_POINTER(MyVar) = NewSomething(...);
+*/
+#ifdef __cplusplus
+#define SWIG_STATIC_POINTER(var) var
+#else
+#define SWIG_STATIC_POINTER(var) var = 0; if (!var) var
+#endif
+
+/* -----------------------------------------------------------------------------
+ * Pointer declarations
+ * ----------------------------------------------------------------------------- */
+
+/* Flags for new pointer objects */
+#define SWIG_POINTER_NOSHADOW (SWIG_POINTER_OWN << 1)
+#define SWIG_POINTER_NEW (SWIG_POINTER_NOSHADOW | SWIG_POINTER_OWN)
+
+#define SWIG_POINTER_IMPLICIT_CONV (SWIG_POINTER_DISOWN << 1)
+
+#define SWIG_BUILTIN_TP_INIT (SWIG_POINTER_OWN << 2)
+#define SWIG_BUILTIN_INIT (SWIG_BUILTIN_TP_INIT | SWIG_POINTER_OWN)
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* The python void return value */
+
+SWIGRUNTIMEINLINE PyObject *
+SWIG_Py_Void(void)
+{
+ PyObject *none = Py_None;
+ Py_INCREF(none);
+ return none;
+}
+
+/* SwigPyClientData */
+
+typedef struct {
+ PyObject *klass;
+ PyObject *newraw;
+ PyObject *newargs;
+ PyObject *destroy;
+ int delargs;
+ int implicitconv;
+ PyTypeObject *pytype;
+} SwigPyClientData;
+
+SWIGRUNTIMEINLINE int
+SWIG_Python_CheckImplicit(swig_type_info *ty)
+{
+ SwigPyClientData *data = (SwigPyClientData *)ty->clientdata;
+ int fail = data ? data->implicitconv : 0;
+ if (fail)
+ PyErr_SetString(PyExc_TypeError, "Implicit conversion is prohibited for explicit constructors.");
+ return fail;
+}
+
+SWIGRUNTIMEINLINE PyObject *
+SWIG_Python_ExceptionType(swig_type_info *desc) {
+ SwigPyClientData *data = desc ? (SwigPyClientData *) desc->clientdata : 0;
+ PyObject *klass = data ? data->klass : 0;
+ return (klass ? klass : PyExc_RuntimeError);
+}
+
+
+SWIGRUNTIME SwigPyClientData *
+SwigPyClientData_New(PyObject* obj)
+{
+ if (!obj) {
+ return 0;
+ } else {
+ SwigPyClientData *data = (SwigPyClientData *)malloc(sizeof(SwigPyClientData));
+ /* the klass element */
+ data->klass = obj;
+ Py_INCREF(data->klass);
+ /* the newraw method and newargs arguments used to create a new raw instance */
+ if (PyClass_Check(obj)) {
+ data->newraw = 0;
+ data->newargs = obj;
+ Py_INCREF(obj);
+ } else {
+ data->newraw = PyObject_GetAttrString(data->klass, "__new__");
+ if (data->newraw) {
+ Py_INCREF(data->newraw);
+ data->newargs = PyTuple_New(1);
+ PyTuple_SetItem(data->newargs, 0, obj);
+ } else {
+ data->newargs = obj;
+ }
+ Py_INCREF(data->newargs);
+ }
+ /* the destroy method, aka as the C++ delete method */
+ data->destroy = PyObject_GetAttrString(data->klass, "__swig_destroy__");
+ if (PyErr_Occurred()) {
+ PyErr_Clear();
+ data->destroy = 0;
+ }
+ if (data->destroy) {
+ int flags;
+ Py_INCREF(data->destroy);
+ flags = PyCFunction_GET_FLAGS(data->destroy);
+ data->delargs = !(flags & (METH_O));
+ } else {
+ data->delargs = 0;
+ }
+ data->implicitconv = 0;
+ data->pytype = 0;
+ return data;
+ }
+}
+
+SWIGRUNTIME void
+SwigPyClientData_Del(SwigPyClientData *data) {
+ Py_XDECREF(data->newraw);
+ Py_XDECREF(data->newargs);
+ Py_XDECREF(data->destroy);
+}
+
+/* =============== SwigPyObject =====================*/
+
+typedef struct {
+ PyObject_HEAD
+ void *ptr;
+ swig_type_info *ty;
+ int own;
+ PyObject *next;
+#ifdef SWIGPYTHON_BUILTIN
+ PyObject *dict;
+#endif
+} SwigPyObject;
+
+
+#ifdef SWIGPYTHON_BUILTIN
+
+SWIGRUNTIME PyObject *
+SwigPyObject_get___dict__(PyObject *v, PyObject *SWIGUNUSEDPARM(args))
+{
+ SwigPyObject *sobj = (SwigPyObject *)v;
+
+ if (!sobj->dict)
+ sobj->dict = PyDict_New();
+
+ Py_INCREF(sobj->dict);
+ return sobj->dict;
+}
+
+#endif
+
+SWIGRUNTIME PyObject *
+SwigPyObject_long(SwigPyObject *v)
+{
+ return PyLong_FromVoidPtr(v->ptr);
+}
+
+SWIGRUNTIME PyObject *
+SwigPyObject_format(const char* fmt, SwigPyObject *v)
+{
+ PyObject *res = NULL;
+ PyObject *args = PyTuple_New(1);
+ if (args) {
+ if (PyTuple_SetItem(args, 0, SwigPyObject_long(v)) == 0) {
+ PyObject *ofmt = SWIG_Python_str_FromChar(fmt);
+ if (ofmt) {
+#if PY_VERSION_HEX >= 0x03000000
+ res = PyUnicode_Format(ofmt,args);
+#else
+ res = PyString_Format(ofmt,args);
+#endif
+ Py_DECREF(ofmt);
+ }
+ Py_DECREF(args);
+ }
+ }
+ return res;
+}
+
+SWIGRUNTIME PyObject *
+SwigPyObject_oct(SwigPyObject *v)
+{
+ return SwigPyObject_format("%o",v);
+}
+
+SWIGRUNTIME PyObject *
+SwigPyObject_hex(SwigPyObject *v)
+{
+ return SwigPyObject_format("%x",v);
+}
+
+SWIGRUNTIME PyObject *
+SwigPyObject_repr(SwigPyObject *v)
+{
+ const char *name = SWIG_TypePrettyName(v->ty);
+ PyObject *repr = SWIG_Python_str_FromFormat("<Swig Object of type '%s' at %p>", (name ? name : "unknown"), (void *)v);
+ if (v->next) {
+ PyObject *nrep = SwigPyObject_repr((SwigPyObject *)v->next);
+# if PY_VERSION_HEX >= 0x03000000
+ PyObject *joined = PyUnicode_Concat(repr, nrep);
+ Py_DecRef(repr);
+ Py_DecRef(nrep);
+ repr = joined;
+# else
+ PyString_ConcatAndDel(&repr,nrep);
+# endif
+ }
+ return repr;
+}
+
+/* We need a version taking two PyObject* parameters so it's a valid
+ * PyCFunction to use in swigobject_methods[]. */
+SWIGRUNTIME PyObject *
+SwigPyObject_repr2(PyObject *v, PyObject *SWIGUNUSEDPARM(args))
+{
+ return SwigPyObject_repr((SwigPyObject*)v);
+}
+
+SWIGRUNTIME int
+SwigPyObject_compare(SwigPyObject *v, SwigPyObject *w)
+{
+ void *i = v->ptr;
+ void *j = w->ptr;
+ return (i < j) ? -1 : ((i > j) ? 1 : 0);
+}
+
+/* Added for Python 3.x, would it also be useful for Python 2.x? */
+SWIGRUNTIME PyObject*
+SwigPyObject_richcompare(SwigPyObject *v, SwigPyObject *w, int op)
+{
+ PyObject* res;
+ if( op != Py_EQ && op != Py_NE ) {
+ Py_INCREF(Py_NotImplemented);
+ return Py_NotImplemented;
+ }
+ res = PyBool_FromLong( (SwigPyObject_compare(v, w)==0) == (op == Py_EQ) ? 1 : 0);
+ return res;
+}
+
+
+SWIGRUNTIME PyTypeObject* SwigPyObject_TypeOnce(void);
+
+#ifdef SWIGPYTHON_BUILTIN
+static swig_type_info *SwigPyObject_stype = 0;
+SWIGRUNTIME PyTypeObject*
+SwigPyObject_type(void) {
+ SwigPyClientData *cd;
+ assert(SwigPyObject_stype);
+ cd = (SwigPyClientData*) SwigPyObject_stype->clientdata;
+ assert(cd);
+ assert(cd->pytype);
+ return cd->pytype;
+}
+#else
+SWIGRUNTIME PyTypeObject*
+SwigPyObject_type(void) {
+ static PyTypeObject *SWIG_STATIC_POINTER(type) = SwigPyObject_TypeOnce();
+ return type;
+}
+#endif
+
+SWIGRUNTIMEINLINE int
+SwigPyObject_Check(PyObject *op) {
+#ifdef SWIGPYTHON_BUILTIN
+ PyTypeObject *target_tp = SwigPyObject_type();
+ if (PyType_IsSubtype(op->ob_type, target_tp))
+ return 1;
+ return (strcmp(op->ob_type->tp_name, "SwigPyObject") == 0);
+#else
+ return (Py_TYPE(op) == SwigPyObject_type())
+ || (strcmp(Py_TYPE(op)->tp_name,"SwigPyObject") == 0);
+#endif
+}
+
+SWIGRUNTIME PyObject *
+SwigPyObject_New(void *ptr, swig_type_info *ty, int own);
+
+SWIGRUNTIME void
+SwigPyObject_dealloc(PyObject *v)
+{
+ SwigPyObject *sobj = (SwigPyObject *) v;
+ PyObject *next = sobj->next;
+ if (sobj->own == SWIG_POINTER_OWN) {
+ swig_type_info *ty = sobj->ty;
+ SwigPyClientData *data = ty ? (SwigPyClientData *) ty->clientdata : 0;
+ PyObject *destroy = data ? data->destroy : 0;
+ if (destroy) {
+ /* destroy is always a VARARGS method */
+ PyObject *res;
+
+ /* PyObject_CallFunction() has the potential to silently drop
+ the active exception. In cases of unnamed temporary
+ variable or where we just finished iterating over a generator
+ StopIteration will be active right now, and this needs to
+ remain true upon return from SwigPyObject_dealloc. So save
+ and restore. */
+
+ PyObject *type = NULL, *value = NULL, *traceback = NULL;
+ PyErr_Fetch(&type, &value, &traceback);
+
+ if (data->delargs) {
+ /* we need to create a temporary object to carry the destroy operation */
+ PyObject *tmp = SwigPyObject_New(sobj->ptr, ty, 0);
+ res = SWIG_Python_CallFunctor(destroy, tmp);
+ Py_DECREF(tmp);
+ } else {
+ PyCFunction meth = PyCFunction_GET_FUNCTION(destroy);
+ PyObject *mself = PyCFunction_GET_SELF(destroy);
+ res = ((*meth)(mself, v));
+ }
+ if (!res)
+ PyErr_WriteUnraisable(destroy);
+
+ PyErr_Restore(type, value, traceback);
+
+ Py_XDECREF(res);
+ }
+#if !defined(SWIG_PYTHON_SILENT_MEMLEAK)
+ else {
+ const char *name = SWIG_TypePrettyName(ty);
+ printf("swig/python detected a memory leak of type '%s', no destructor found.\n", (name ? name : "unknown"));
+ }
+#endif
+ }
+ Py_XDECREF(next);
+ PyObject_DEL(v);
+}
+
+SWIGRUNTIME PyObject*
+SwigPyObject_append(PyObject* v, PyObject* next)
+{
+ SwigPyObject *sobj = (SwigPyObject *) v;
+ if (!SwigPyObject_Check(next)) {
+ PyErr_SetString(PyExc_TypeError, "Attempt to append a non SwigPyObject");
+ return NULL;
+ }
+ sobj->next = next;
+ Py_INCREF(next);
+ return SWIG_Py_Void();
+}
+
+SWIGRUNTIME PyObject*
+SwigPyObject_next(PyObject* v, PyObject *SWIGUNUSEDPARM(args))
+{
+ SwigPyObject *sobj = (SwigPyObject *) v;
+ if (sobj->next) {
+ Py_INCREF(sobj->next);
+ return sobj->next;
+ } else {
+ return SWIG_Py_Void();
+ }
+}
+
+SWIGINTERN PyObject*
+SwigPyObject_disown(PyObject* v, PyObject *SWIGUNUSEDPARM(args))
+{
+ SwigPyObject *sobj = (SwigPyObject *)v;
+ sobj->own = 0;
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject*
+SwigPyObject_acquire(PyObject* v, PyObject *SWIGUNUSEDPARM(args))
+{
+ SwigPyObject *sobj = (SwigPyObject *)v;
+ sobj->own = SWIG_POINTER_OWN;
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject*
+SwigPyObject_own(PyObject *v, PyObject *args)
+{
+ PyObject *val = 0;
+ if (!PyArg_UnpackTuple(args, "own", 0, 1, &val)) {
+ return NULL;
+ } else {
+ SwigPyObject *sobj = (SwigPyObject *)v;
+ PyObject *obj = PyBool_FromLong(sobj->own);
+ if (val) {
+ if (PyObject_IsTrue(val)) {
+ SwigPyObject_acquire(v,args);
+ } else {
+ SwigPyObject_disown(v,args);
+ }
+ }
+ return obj;
+ }
+}
+
+static PyMethodDef
+swigobject_methods[] = {
+ {"disown", SwigPyObject_disown, METH_NOARGS, "releases ownership of the pointer"},
+ {"acquire", SwigPyObject_acquire, METH_NOARGS, "acquires ownership of the pointer"},
+ {"own", SwigPyObject_own, METH_VARARGS, "returns/sets ownership of the pointer"},
+ {"append", SwigPyObject_append, METH_O, "appends another 'this' object"},
+ {"next", SwigPyObject_next, METH_NOARGS, "returns the next 'this' object"},
+ {"__repr__",SwigPyObject_repr2, METH_NOARGS, "returns object representation"},
+ {0, 0, 0, 0}
+};
+
+SWIGRUNTIME PyTypeObject*
+SwigPyObject_TypeOnce(void) {
+ static char swigobject_doc[] = "Swig object carries a C/C++ instance pointer";
+
+ static PyNumberMethods SwigPyObject_as_number = {
+ (binaryfunc)0, /*nb_add*/
+ (binaryfunc)0, /*nb_subtract*/
+ (binaryfunc)0, /*nb_multiply*/
+ /* nb_divide removed in Python 3 */
+#if PY_VERSION_HEX < 0x03000000
+ (binaryfunc)0, /*nb_divide*/
+#endif
+ (binaryfunc)0, /*nb_remainder*/
+ (binaryfunc)0, /*nb_divmod*/
+ (ternaryfunc)0,/*nb_power*/
+ (unaryfunc)0, /*nb_negative*/
+ (unaryfunc)0, /*nb_positive*/
+ (unaryfunc)0, /*nb_absolute*/
+ (inquiry)0, /*nb_nonzero*/
+ 0, /*nb_invert*/
+ 0, /*nb_lshift*/
+ 0, /*nb_rshift*/
+ 0, /*nb_and*/
+ 0, /*nb_xor*/
+ 0, /*nb_or*/
+#if PY_VERSION_HEX < 0x03000000
+ 0, /*nb_coerce*/
+#endif
+ (unaryfunc)SwigPyObject_long, /*nb_int*/
+#if PY_VERSION_HEX < 0x03000000
+ (unaryfunc)SwigPyObject_long, /*nb_long*/
+#else
+ 0, /*nb_reserved*/
+#endif
+ (unaryfunc)0, /*nb_float*/
+#if PY_VERSION_HEX < 0x03000000
+ (unaryfunc)SwigPyObject_oct, /*nb_oct*/
+ (unaryfunc)SwigPyObject_hex, /*nb_hex*/
+#endif
+#if PY_VERSION_HEX >= 0x03050000 /* 3.5 */
+ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /* nb_inplace_add -> nb_inplace_matrix_multiply */
+#elif PY_VERSION_HEX >= 0x03000000 /* 3.0 */
+ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /* nb_inplace_add -> nb_index, nb_inplace_divide removed */
+#else
+ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /* nb_inplace_add -> nb_index */
+#endif
+ };
+
+ static PyTypeObject swigpyobject_type;
+ static int type_init = 0;
+ if (!type_init) {
+ const PyTypeObject tmp = {
+#if PY_VERSION_HEX >= 0x03000000
+ PyVarObject_HEAD_INIT(NULL, 0)
+#else
+ PyObject_HEAD_INIT(NULL)
+ 0, /* ob_size */
+#endif
+ "SwigPyObject", /* tp_name */
+ sizeof(SwigPyObject), /* tp_basicsize */
+ 0, /* tp_itemsize */
+ (destructor)SwigPyObject_dealloc, /* tp_dealloc */
+ 0, /* tp_print */
+ (getattrfunc)0, /* tp_getattr */
+ (setattrfunc)0, /* tp_setattr */
+#if PY_VERSION_HEX >= 0x03000000
+ 0, /* tp_reserved in 3.0.1, tp_compare in 3.0.0 but not used */
+#else
+ (cmpfunc)SwigPyObject_compare, /* tp_compare */
+#endif
+ (reprfunc)SwigPyObject_repr, /* tp_repr */
+ &SwigPyObject_as_number, /* tp_as_number */
+ 0, /* tp_as_sequence */
+ 0, /* tp_as_mapping */
+ (hashfunc)0, /* tp_hash */
+ (ternaryfunc)0, /* tp_call */
+ 0, /* tp_str */
+ PyObject_GenericGetAttr, /* tp_getattro */
+ 0, /* tp_setattro */
+ 0, /* tp_as_buffer */
+ Py_TPFLAGS_DEFAULT, /* tp_flags */
+ swigobject_doc, /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ (richcmpfunc)SwigPyObject_richcompare,/* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ swigobject_methods, /* tp_methods */
+ 0, /* tp_members */
+ 0, /* tp_getset */
+ 0, /* tp_base */
+ 0, /* tp_dict */
+ 0, /* tp_descr_get */
+ 0, /* tp_descr_set */
+ 0, /* tp_dictoffset */
+ 0, /* tp_init */
+ 0, /* tp_alloc */
+ 0, /* tp_new */
+ 0, /* tp_free */
+ 0, /* tp_is_gc */
+ 0, /* tp_bases */
+ 0, /* tp_mro */
+ 0, /* tp_cache */
+ 0, /* tp_subclasses */
+ 0, /* tp_weaklist */
+ 0, /* tp_del */
+ 0, /* tp_version_tag */
+#if PY_VERSION_HEX >= 0x03040000
+ 0, /* tp_finalize */
+#endif
+#if PY_VERSION_HEX >= 0x03080000
+ 0, /* tp_vectorcall */
+#endif
+#if (PY_VERSION_HEX >= 0x03080000) && (PY_VERSION_HEX < 0x03090000)
+ 0, /* tp_print */
+#endif
+#ifdef COUNT_ALLOCS
+ 0, /* tp_allocs */
+ 0, /* tp_frees */
+ 0, /* tp_maxalloc */
+ 0, /* tp_prev */
+ 0 /* tp_next */
+#endif
+ };
+ swigpyobject_type = tmp;
+ type_init = 1;
+ if (PyType_Ready(&swigpyobject_type) < 0)
+ return NULL;
+ }
+ return &swigpyobject_type;
+}
+
+SWIGRUNTIME PyObject *
+SwigPyObject_New(void *ptr, swig_type_info *ty, int own)
+{
+ SwigPyObject *sobj = PyObject_NEW(SwigPyObject, SwigPyObject_type());
+ if (sobj) {
+ sobj->ptr = ptr;
+ sobj->ty = ty;
+ sobj->own = own;
+ sobj->next = 0;
+ }
+ return (PyObject *)sobj;
+}
+
+/* -----------------------------------------------------------------------------
+ * Implements a simple Swig Packed type, and use it instead of string
+ * ----------------------------------------------------------------------------- */
+
+typedef struct {
+ PyObject_HEAD
+ void *pack;
+ swig_type_info *ty;
+ size_t size;
+} SwigPyPacked;
+
+SWIGRUNTIME PyObject *
+SwigPyPacked_repr(SwigPyPacked *v)
+{
+ char result[SWIG_BUFFER_SIZE];
+ if (SWIG_PackDataName(result, v->pack, v->size, 0, sizeof(result))) {
+ return SWIG_Python_str_FromFormat("<Swig Packed at %s%s>", result, v->ty->name);
+ } else {
+ return SWIG_Python_str_FromFormat("<Swig Packed %s>", v->ty->name);
+ }
+}
+
+SWIGRUNTIME PyObject *
+SwigPyPacked_str(SwigPyPacked *v)
+{
+ char result[SWIG_BUFFER_SIZE];
+ if (SWIG_PackDataName(result, v->pack, v->size, 0, sizeof(result))){
+ return SWIG_Python_str_FromFormat("%s%s", result, v->ty->name);
+ } else {
+ return SWIG_Python_str_FromChar(v->ty->name);
+ }
+}
+
+SWIGRUNTIME int
+SwigPyPacked_compare(SwigPyPacked *v, SwigPyPacked *w)
+{
+ size_t i = v->size;
+ size_t j = w->size;
+ int s = (i < j) ? -1 : ((i > j) ? 1 : 0);
+ return s ? s : strncmp((const char *)v->pack, (const char *)w->pack, 2*v->size);
+}
+
+SWIGRUNTIME PyTypeObject* SwigPyPacked_TypeOnce(void);
+
+SWIGRUNTIME PyTypeObject*
+SwigPyPacked_type(void) {
+ static PyTypeObject *SWIG_STATIC_POINTER(type) = SwigPyPacked_TypeOnce();
+ return type;
+}
+
+SWIGRUNTIMEINLINE int
+SwigPyPacked_Check(PyObject *op) {
+ return ((op)->ob_type == SwigPyPacked_TypeOnce())
+ || (strcmp((op)->ob_type->tp_name,"SwigPyPacked") == 0);
+}
+
+SWIGRUNTIME void
+SwigPyPacked_dealloc(PyObject *v)
+{
+ if (SwigPyPacked_Check(v)) {
+ SwigPyPacked *sobj = (SwigPyPacked *) v;
+ free(sobj->pack);
+ }
+ PyObject_DEL(v);
+}
+
+SWIGRUNTIME PyTypeObject*
+SwigPyPacked_TypeOnce(void) {
+ static char swigpacked_doc[] = "Swig object carries a C/C++ instance pointer";
+ static PyTypeObject swigpypacked_type;
+ static int type_init = 0;
+ if (!type_init) {
+ const PyTypeObject tmp = {
+#if PY_VERSION_HEX>=0x03000000
+ PyVarObject_HEAD_INIT(NULL, 0)
+#else
+ PyObject_HEAD_INIT(NULL)
+ 0, /* ob_size */
+#endif
+ "SwigPyPacked", /* tp_name */
+ sizeof(SwigPyPacked), /* tp_basicsize */
+ 0, /* tp_itemsize */
+ (destructor)SwigPyPacked_dealloc, /* tp_dealloc */
+ 0, /* tp_print */
+ (getattrfunc)0, /* tp_getattr */
+ (setattrfunc)0, /* tp_setattr */
+#if PY_VERSION_HEX>=0x03000000
+ 0, /* tp_reserved in 3.0.1 */
+#else
+ (cmpfunc)SwigPyPacked_compare, /* tp_compare */
+#endif
+ (reprfunc)SwigPyPacked_repr, /* tp_repr */
+ 0, /* tp_as_number */
+ 0, /* tp_as_sequence */
+ 0, /* tp_as_mapping */
+ (hashfunc)0, /* tp_hash */
+ (ternaryfunc)0, /* tp_call */
+ (reprfunc)SwigPyPacked_str, /* tp_str */
+ PyObject_GenericGetAttr, /* tp_getattro */
+ 0, /* tp_setattro */
+ 0, /* tp_as_buffer */
+ Py_TPFLAGS_DEFAULT, /* tp_flags */
+ swigpacked_doc, /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ 0, /* tp_methods */
+ 0, /* tp_members */
+ 0, /* tp_getset */
+ 0, /* tp_base */
+ 0, /* tp_dict */
+ 0, /* tp_descr_get */
+ 0, /* tp_descr_set */
+ 0, /* tp_dictoffset */
+ 0, /* tp_init */
+ 0, /* tp_alloc */
+ 0, /* tp_new */
+ 0, /* tp_free */
+ 0, /* tp_is_gc */
+ 0, /* tp_bases */
+ 0, /* tp_mro */
+ 0, /* tp_cache */
+ 0, /* tp_subclasses */
+ 0, /* tp_weaklist */
+ 0, /* tp_del */
+ 0, /* tp_version_tag */
+#if PY_VERSION_HEX >= 0x03040000
+ 0, /* tp_finalize */
+#endif
+#if PY_VERSION_HEX >= 0x03080000
+ 0, /* tp_vectorcall */
+#endif
+#if (PY_VERSION_HEX >= 0x03080000) && (PY_VERSION_HEX < 0x03090000)
+ 0, /* tp_print */
+#endif
+#ifdef COUNT_ALLOCS
+ 0, /* tp_allocs */
+ 0, /* tp_frees */
+ 0, /* tp_maxalloc */
+ 0, /* tp_prev */
+ 0 /* tp_next */
+#endif
+ };
+ swigpypacked_type = tmp;
+ type_init = 1;
+ if (PyType_Ready(&swigpypacked_type) < 0)
+ return NULL;
+ }
+ return &swigpypacked_type;
+}
+
+SWIGRUNTIME PyObject *
+SwigPyPacked_New(void *ptr, size_t size, swig_type_info *ty)
+{
+ SwigPyPacked *sobj = PyObject_NEW(SwigPyPacked, SwigPyPacked_type());
+ if (sobj) {
+ void *pack = malloc(size);
+ if (pack) {
+ memcpy(pack, ptr, size);
+ sobj->pack = pack;
+ sobj->ty = ty;
+ sobj->size = size;
+ } else {
+ PyObject_DEL((PyObject *) sobj);
+ sobj = 0;
+ }
+ }
+ return (PyObject *) sobj;
+}
+
+SWIGRUNTIME swig_type_info *
+SwigPyPacked_UnpackData(PyObject *obj, void *ptr, size_t size)
+{
+ if (SwigPyPacked_Check(obj)) {
+ SwigPyPacked *sobj = (SwigPyPacked *)obj;
+ if (sobj->size != size) return 0;
+ memcpy(ptr, sobj->pack, size);
+ return sobj->ty;
+ } else {
+ return 0;
+ }
+}
+
+/* -----------------------------------------------------------------------------
+ * pointers/data manipulation
+ * ----------------------------------------------------------------------------- */
+
+static PyObject *Swig_This_global = NULL;
+
+SWIGRUNTIME PyObject *
+SWIG_This(void)
+{
+ if (Swig_This_global == NULL)
+ Swig_This_global = SWIG_Python_str_FromChar("this");
+ return Swig_This_global;
+}
+
+/* #define SWIG_PYTHON_SLOW_GETSET_THIS */
+
+/* TODO: I don't know how to implement the fast getset in Python 3 right now */
+#if PY_VERSION_HEX>=0x03000000
+#define SWIG_PYTHON_SLOW_GETSET_THIS
+#endif
+
+SWIGRUNTIME SwigPyObject *
+SWIG_Python_GetSwigThis(PyObject *pyobj)
+{
+ PyObject *obj;
+
+ if (SwigPyObject_Check(pyobj))
+ return (SwigPyObject *) pyobj;
+
+#ifdef SWIGPYTHON_BUILTIN
+ (void)obj;
+# ifdef PyWeakref_CheckProxy
+ if (PyWeakref_CheckProxy(pyobj)) {
+ pyobj = PyWeakref_GET_OBJECT(pyobj);
+ if (pyobj && SwigPyObject_Check(pyobj))
+ return (SwigPyObject*) pyobj;
+ }
+# endif
+ return NULL;
+#else
+
+ obj = 0;
+
+#if !defined(SWIG_PYTHON_SLOW_GETSET_THIS)
+ if (PyInstance_Check(pyobj)) {
+ obj = _PyInstance_Lookup(pyobj, SWIG_This());
+ } else {
+ PyObject **dictptr = _PyObject_GetDictPtr(pyobj);
+ if (dictptr != NULL) {
+ PyObject *dict = *dictptr;
+ obj = dict ? PyDict_GetItem(dict, SWIG_This()) : 0;
+ } else {
+#ifdef PyWeakref_CheckProxy
+ if (PyWeakref_CheckProxy(pyobj)) {
+ PyObject *wobj = PyWeakref_GET_OBJECT(pyobj);
+ return wobj ? SWIG_Python_GetSwigThis(wobj) : 0;
+ }
+#endif
+ obj = PyObject_GetAttr(pyobj,SWIG_This());
+ if (obj) {
+ Py_DECREF(obj);
+ } else {
+ if (PyErr_Occurred()) PyErr_Clear();
+ return 0;
+ }
+ }
+ }
+#else
+ obj = PyObject_GetAttr(pyobj,SWIG_This());
+ if (obj) {
+ Py_DECREF(obj);
+ } else {
+ if (PyErr_Occurred()) PyErr_Clear();
+ return 0;
+ }
+#endif
+ if (obj && !SwigPyObject_Check(obj)) {
+ /* a PyObject is called 'this', try to get the 'real this'
+ SwigPyObject from it */
+ return SWIG_Python_GetSwigThis(obj);
+ }
+ return (SwigPyObject *)obj;
+#endif
+}
+
+/* Acquire a pointer value */
+
+SWIGRUNTIME int
+SWIG_Python_AcquirePtr(PyObject *obj, int own) {
+ if (own == SWIG_POINTER_OWN) {
+ SwigPyObject *sobj = SWIG_Python_GetSwigThis(obj);
+ if (sobj) {
+ int oldown = sobj->own;
+ sobj->own = own;
+ return oldown;
+ }
+ }
+ return 0;
+}
+
+/* Convert a pointer value */
+
+SWIGRUNTIME int
+SWIG_Python_ConvertPtrAndOwn(PyObject *obj, void **ptr, swig_type_info *ty, int flags, int *own) {
+ int res;
+ SwigPyObject *sobj;
+ int implicit_conv = (flags & SWIG_POINTER_IMPLICIT_CONV) != 0;
+
+ if (!obj)
+ return SWIG_ERROR;
+ if (obj == Py_None && !implicit_conv) {
+ if (ptr)
+ *ptr = 0;
+ return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
+ }
+
+ res = SWIG_ERROR;
+
+ sobj = SWIG_Python_GetSwigThis(obj);
+ if (own)
+ *own = 0;
+ while (sobj) {
+ void *vptr = sobj->ptr;
+ if (ty) {
+ swig_type_info *to = sobj->ty;
+ if (to == ty) {
+ /* no type cast needed */
+ if (ptr) *ptr = vptr;
+ break;
+ } else {
+ swig_cast_info *tc = SWIG_TypeCheck(to->name,ty);
+ if (!tc) {
+ sobj = (SwigPyObject *)sobj->next;
+ } else {
+ if (ptr) {
+ int newmemory = 0;
+ *ptr = SWIG_TypeCast(tc,vptr,&newmemory);
+ if (newmemory == SWIG_CAST_NEW_MEMORY) {
+ assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
+ if (own)
+ *own = *own | SWIG_CAST_NEW_MEMORY;
+ }
+ }
+ break;
+ }
+ }
+ } else {
+ if (ptr) *ptr = vptr;
+ break;
+ }
+ }
+ if (sobj) {
+ if (own)
+ *own = *own | sobj->own;
+ if (flags & SWIG_POINTER_DISOWN) {
+ sobj->own = 0;
+ }
+ res = SWIG_OK;
+ } else {
+ if (implicit_conv) {
+ SwigPyClientData *data = ty ? (SwigPyClientData *) ty->clientdata : 0;
+ if (data && !data->implicitconv) {
+ PyObject *klass = data->klass;
+ if (klass) {
+ PyObject *impconv;
+ data->implicitconv = 1; /* avoid recursion and call 'explicit' constructors*/
+ impconv = SWIG_Python_CallFunctor(klass, obj);
+ data->implicitconv = 0;
+ if (PyErr_Occurred()) {
+ PyErr_Clear();
+ impconv = 0;
+ }
+ if (impconv) {
+ SwigPyObject *iobj = SWIG_Python_GetSwigThis(impconv);
+ if (iobj) {
+ void *vptr;
+ res = SWIG_Python_ConvertPtrAndOwn((PyObject*)iobj, &vptr, ty, 0, 0);
+ if (SWIG_IsOK(res)) {
+ if (ptr) {
+ *ptr = vptr;
+ /* transfer the ownership to 'ptr' */
+ iobj->own = 0;
+ res = SWIG_AddCast(res);
+ res = SWIG_AddNewMask(res);
+ } else {
+ res = SWIG_AddCast(res);
+ }
+ }
+ }
+ Py_DECREF(impconv);
+ }
+ }
+ }
+ if (!SWIG_IsOK(res) && obj == Py_None) {
+ if (ptr)
+ *ptr = 0;
+ if (PyErr_Occurred())
+ PyErr_Clear();
+ res = SWIG_OK;
+ }
+ }
+ }
+ return res;
+}
+
+/* Convert a function ptr value */
+
+SWIGRUNTIME int
+SWIG_Python_ConvertFunctionPtr(PyObject *obj, void **ptr, swig_type_info *ty) {
+ if (!PyCFunction_Check(obj)) {
+ return SWIG_ConvertPtr(obj, ptr, ty, 0);
+ } else {
+ void *vptr = 0;
+ swig_cast_info *tc;
+
+ /* here we get the method pointer for callbacks */
+ const char *doc = (((PyCFunctionObject *)obj) -> m_ml -> ml_doc);
+ const char *desc = doc ? strstr(doc, "swig_ptr: ") : 0;
+ if (desc)
+ desc = ty ? SWIG_UnpackVoidPtr(desc + 10, &vptr, ty->name) : 0;
+ if (!desc)
+ return SWIG_ERROR;
+ tc = SWIG_TypeCheck(desc,ty);
+ if (tc) {
+ int newmemory = 0;
+ *ptr = SWIG_TypeCast(tc,vptr,&newmemory);
+ assert(!newmemory); /* newmemory handling not yet implemented */
+ } else {
+ return SWIG_ERROR;
+ }
+ return SWIG_OK;
+ }
+}
+
+/* Convert a packed pointer value */
+
+SWIGRUNTIME int
+SWIG_Python_ConvertPacked(PyObject *obj, void *ptr, size_t sz, swig_type_info *ty) {
+ swig_type_info *to = SwigPyPacked_UnpackData(obj, ptr, sz);
+ if (!to) return SWIG_ERROR;
+ if (ty) {
+ if (to != ty) {
+ /* check type cast? */
+ swig_cast_info *tc = SWIG_TypeCheck(to->name,ty);
+ if (!tc) return SWIG_ERROR;
+ }
+ }
+ return SWIG_OK;
+}
+
+/* -----------------------------------------------------------------------------
+ * Create a new pointer object
+ * ----------------------------------------------------------------------------- */
+
+/*
+ Create a new instance object, without calling __init__, and set the
+ 'this' attribute.
+*/
+
+SWIGRUNTIME PyObject*
+SWIG_Python_NewShadowInstance(SwigPyClientData *data, PyObject *swig_this)
+{
+ PyObject *inst = 0;
+ PyObject *newraw = data->newraw;
+ if (newraw) {
+ inst = PyObject_Call(newraw, data->newargs, NULL);
+ if (inst) {
+#if !defined(SWIG_PYTHON_SLOW_GETSET_THIS)
+ PyObject **dictptr = _PyObject_GetDictPtr(inst);
+ if (dictptr != NULL) {
+ PyObject *dict = *dictptr;
+ if (dict == NULL) {
+ dict = PyDict_New();
+ *dictptr = dict;
+ PyDict_SetItem(dict, SWIG_This(), swig_this);
+ }
+ }
+#else
+ if (PyObject_SetAttr(inst, SWIG_This(), swig_this) == -1) {
+ Py_DECREF(inst);
+ inst = 0;
+ }
+#endif
+ }
+ } else {
+#if PY_VERSION_HEX >= 0x03000000
+ PyObject *empty_args = PyTuple_New(0);
+ if (empty_args) {
+ PyObject *empty_kwargs = PyDict_New();
+ if (empty_kwargs) {
+ inst = ((PyTypeObject *)data->newargs)->tp_new((PyTypeObject *)data->newargs, empty_args, empty_kwargs);
+ Py_DECREF(empty_kwargs);
+ if (inst) {
+ if (PyObject_SetAttr(inst, SWIG_This(), swig_this) == -1) {
+ Py_DECREF(inst);
+ inst = 0;
+ } else {
+ Py_TYPE(inst)->tp_flags &= ~Py_TPFLAGS_VALID_VERSION_TAG;
+ }
+ }
+ }
+ Py_DECREF(empty_args);
+ }
+#else
+ PyObject *dict = PyDict_New();
+ if (dict) {
+ PyDict_SetItem(dict, SWIG_This(), swig_this);
+ inst = PyInstance_NewRaw(data->newargs, dict);
+ Py_DECREF(dict);
+ }
+#endif
+ }
+ return inst;
+}
+
+SWIGRUNTIME int
+SWIG_Python_SetSwigThis(PyObject *inst, PyObject *swig_this)
+{
+#if !defined(SWIG_PYTHON_SLOW_GETSET_THIS)
+ PyObject **dictptr = _PyObject_GetDictPtr(inst);
+ if (dictptr != NULL) {
+ PyObject *dict = *dictptr;
+ if (dict == NULL) {
+ dict = PyDict_New();
+ *dictptr = dict;
+ }
+ return PyDict_SetItem(dict, SWIG_This(), swig_this);
+ }
+#endif
+ return PyObject_SetAttr(inst, SWIG_This(), swig_this);
+}
+
+
+SWIGINTERN PyObject *
+SWIG_Python_InitShadowInstance(PyObject *args) {
+ PyObject *obj[2];
+ if (!SWIG_Python_UnpackTuple(args, "swiginit", 2, 2, obj)) {
+ return NULL;
+ } else {
+ SwigPyObject *sthis = SWIG_Python_GetSwigThis(obj[0]);
+ if (sthis) {
+ SwigPyObject_append((PyObject*) sthis, obj[1]);
+ } else {
+ if (SWIG_Python_SetSwigThis(obj[0], obj[1]) != 0)
+ return NULL;
+ }
+ return SWIG_Py_Void();
+ }
+}
+
+/* Create a new pointer object */
+
+SWIGRUNTIME PyObject *
+SWIG_Python_NewPointerObj(PyObject *self, void *ptr, swig_type_info *type, int flags) {
+ SwigPyClientData *clientdata;
+ PyObject * robj;
+ int own;
+
+ if (!ptr)
+ return SWIG_Py_Void();
+
+ clientdata = type ? (SwigPyClientData *)(type->clientdata) : 0;
+ own = (flags & SWIG_POINTER_OWN) ? SWIG_POINTER_OWN : 0;
+ if (clientdata && clientdata->pytype) {
+ SwigPyObject *newobj;
+ if (flags & SWIG_BUILTIN_TP_INIT) {
+ newobj = (SwigPyObject*) self;
+ if (newobj->ptr) {
+ PyObject *next_self = clientdata->pytype->tp_alloc(clientdata->pytype, 0);
+ while (newobj->next)
+ newobj = (SwigPyObject *) newobj->next;
+ newobj->next = next_self;
+ newobj = (SwigPyObject *)next_self;
+#ifdef SWIGPYTHON_BUILTIN
+ newobj->dict = 0;
+#endif
+ }
+ } else {
+ newobj = PyObject_New(SwigPyObject, clientdata->pytype);
+#ifdef SWIGPYTHON_BUILTIN
+ newobj->dict = 0;
+#endif
+ }
+ if (newobj) {
+ newobj->ptr = ptr;
+ newobj->ty = type;
+ newobj->own = own;
+ newobj->next = 0;
+ return (PyObject*) newobj;
+ }
+ return SWIG_Py_Void();
+ }
+
+ assert(!(flags & SWIG_BUILTIN_TP_INIT));
+
+ robj = SwigPyObject_New(ptr, type, own);
+ if (robj && clientdata && !(flags & SWIG_POINTER_NOSHADOW)) {
+ PyObject *inst = SWIG_Python_NewShadowInstance(clientdata, robj);
+ Py_DECREF(robj);
+ robj = inst;
+ }
+ return robj;
+}
+
+/* Create a new packed object */
+
+SWIGRUNTIMEINLINE PyObject *
+SWIG_Python_NewPackedObj(void *ptr, size_t sz, swig_type_info *type) {
+ return ptr ? SwigPyPacked_New((void *) ptr, sz, type) : SWIG_Py_Void();
+}
+
+/* -----------------------------------------------------------------------------*
+ * Get type list
+ * -----------------------------------------------------------------------------*/
+
+#ifdef SWIG_LINK_RUNTIME
+void *SWIG_ReturnGlobalTypeList(void *);
+#endif
+
+SWIGRUNTIME swig_module_info *
+SWIG_Python_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
+ static void *type_pointer = (void *)0;
+ /* first check if module already created */
+ if (!type_pointer) {
+#ifdef SWIG_LINK_RUNTIME
+ type_pointer = SWIG_ReturnGlobalTypeList((void *)0);
+#else
+ type_pointer = PyCapsule_Import(SWIGPY_CAPSULE_NAME, 0);
+ if (PyErr_Occurred()) {
+ PyErr_Clear();
+ type_pointer = (void *)0;
+ }
+#endif
+ }
+ return (swig_module_info *) type_pointer;
+}
+
+SWIGRUNTIME void
+SWIG_Python_DestroyModule(PyObject *obj)
+{
+ swig_module_info *swig_module = (swig_module_info *) PyCapsule_GetPointer(obj, SWIGPY_CAPSULE_NAME);
+ swig_type_info **types = swig_module->types;
+ size_t i;
+ for (i =0; i < swig_module->size; ++i) {
+ swig_type_info *ty = types[i];
+ if (ty->owndata) {
+ SwigPyClientData *data = (SwigPyClientData *) ty->clientdata;
+ if (data) SwigPyClientData_Del(data);
+ }
+ }
+ Py_DECREF(SWIG_This());
+ Swig_This_global = NULL;
+}
+
+SWIGRUNTIME void
+SWIG_Python_SetModule(swig_module_info *swig_module) {
+#if PY_VERSION_HEX >= 0x03000000
+ /* Add a dummy module object into sys.modules */
+ PyObject *module = PyImport_AddModule("swig_runtime_data" SWIG_RUNTIME_VERSION);
+#else
+ static PyMethodDef swig_empty_runtime_method_table[] = { {NULL, NULL, 0, NULL} }; /* Sentinel */
+ PyObject *module = Py_InitModule("swig_runtime_data" SWIG_RUNTIME_VERSION, swig_empty_runtime_method_table);
+#endif
+ PyObject *pointer = PyCapsule_New((void *) swig_module, SWIGPY_CAPSULE_NAME, SWIG_Python_DestroyModule);
+ if (pointer && module) {
+ PyModule_AddObject(module, "type_pointer_capsule" SWIG_TYPE_TABLE_NAME, pointer);
+ } else {
+ Py_XDECREF(pointer);
+ }
+}
+
+/* The python cached type query */
+SWIGRUNTIME PyObject *
+SWIG_Python_TypeCache(void) {
+ static PyObject *SWIG_STATIC_POINTER(cache) = PyDict_New();
+ return cache;
+}
+
+SWIGRUNTIME swig_type_info *
+SWIG_Python_TypeQuery(const char *type)
+{
+ PyObject *cache = SWIG_Python_TypeCache();
+ PyObject *key = SWIG_Python_str_FromChar(type);
+ PyObject *obj = PyDict_GetItem(cache, key);
+ swig_type_info *descriptor;
+ if (obj) {
+ descriptor = (swig_type_info *) PyCapsule_GetPointer(obj, NULL);
+ } else {
+ swig_module_info *swig_module = SWIG_GetModule(0);
+ descriptor = SWIG_TypeQueryModule(swig_module, swig_module, type);
+ if (descriptor) {
+ obj = PyCapsule_New((void*) descriptor, NULL, NULL);
+ PyDict_SetItem(cache, key, obj);
+ Py_DECREF(obj);
+ }
+ }
+ Py_DECREF(key);
+ return descriptor;
+}
+
+/*
+ For backward compatibility only
+*/
+#define SWIG_POINTER_EXCEPTION 0
+#define SWIG_arg_fail(arg) SWIG_Python_ArgFail(arg)
+#define SWIG_MustGetPtr(p, type, argnum, flags) SWIG_Python_MustGetPtr(p, type, argnum, flags)
+
+SWIGRUNTIME int
+SWIG_Python_AddErrMesg(const char* mesg, int infront)
+{
+ if (PyErr_Occurred()) {
+ PyObject *type = 0;
+ PyObject *value = 0;
+ PyObject *traceback = 0;
+ PyErr_Fetch(&type, &value, &traceback);
+ if (value) {
+ PyObject *old_str = PyObject_Str(value);
+ const char *tmp = SWIG_Python_str_AsChar(old_str);
+ const char *errmesg = tmp ? tmp : "Invalid error message";
+ Py_XINCREF(type);
+ PyErr_Clear();
+ if (infront) {
+ PyErr_Format(type, "%s %s", mesg, errmesg);
+ } else {
+ PyErr_Format(type, "%s %s", errmesg, mesg);
+ }
+ SWIG_Python_str_DelForPy3(tmp);
+ Py_DECREF(old_str);
+ }
+ return 1;
+ } else {
+ return 0;
+ }
+}
+
+SWIGRUNTIME int
+SWIG_Python_ArgFail(int argnum)
+{
+ if (PyErr_Occurred()) {
+ /* add information about failing argument */
+ char mesg[256];
+ PyOS_snprintf(mesg, sizeof(mesg), "argument number %d:", argnum);
+ return SWIG_Python_AddErrMesg(mesg, 1);
+ } else {
+ return 0;
+ }
+}
+
+SWIGRUNTIMEINLINE const char *
+SwigPyObject_GetDesc(PyObject *self)
+{
+ SwigPyObject *v = (SwigPyObject *)self;
+ swig_type_info *ty = v ? v->ty : 0;
+ return ty ? ty->str : "";
+}
+
+SWIGRUNTIME void
+SWIG_Python_TypeError(const char *type, PyObject *obj)
+{
+ if (type) {
+#if defined(SWIG_COBJECT_TYPES)
+ if (obj && SwigPyObject_Check(obj)) {
+ const char *otype = (const char *) SwigPyObject_GetDesc(obj);
+ if (otype) {
+ PyErr_Format(PyExc_TypeError, "a '%s' is expected, 'SwigPyObject(%s)' is received",
+ type, otype);
+ return;
+ }
+ } else
+#endif
+ {
+ const char *otype = (obj ? obj->ob_type->tp_name : 0);
+ if (otype) {
+ PyObject *str = PyObject_Str(obj);
+ const char *cstr = str ? SWIG_Python_str_AsChar(str) : 0;
+ if (cstr) {
+ PyErr_Format(PyExc_TypeError, "a '%s' is expected, '%s(%s)' is received",
+ type, otype, cstr);
+ SWIG_Python_str_DelForPy3(cstr);
+ } else {
+ PyErr_Format(PyExc_TypeError, "a '%s' is expected, '%s' is received",
+ type, otype);
+ }
+ Py_XDECREF(str);
+ return;
+ }
+ }
+ PyErr_Format(PyExc_TypeError, "a '%s' is expected", type);
+ } else {
+ PyErr_Format(PyExc_TypeError, "unexpected type is received");
+ }
+}
+
+
+/* Convert a pointer value, signal an exception on a type mismatch */
+SWIGRUNTIME void *
+SWIG_Python_MustGetPtr(PyObject *obj, swig_type_info *ty, int SWIGUNUSEDPARM(argnum), int flags) {
+ void *result;
+ if (SWIG_Python_ConvertPtr(obj, &result, ty, flags) == -1) {
+ PyErr_Clear();
+#if SWIG_POINTER_EXCEPTION
+ if (flags) {
+ SWIG_Python_TypeError(SWIG_TypePrettyName(ty), obj);
+ SWIG_Python_ArgFail(argnum);
+ }
+#endif
+ }
+ return result;
+}
+
+#ifdef SWIGPYTHON_BUILTIN
+SWIGRUNTIME int
+SWIG_Python_NonDynamicSetAttr(PyObject *obj, PyObject *name, PyObject *value) {
+ PyTypeObject *tp = obj->ob_type;
+ PyObject *descr;
+ PyObject *encoded_name;
+ descrsetfunc f;
+ int res = -1;
+
+# ifdef Py_USING_UNICODE
+ if (PyString_Check(name)) {
+ name = PyUnicode_Decode(PyString_AsString(name), PyString_Size(name), NULL, NULL);
+ if (!name)
+ return -1;
+ } else if (!PyUnicode_Check(name))
+# else
+ if (!PyString_Check(name))
+# endif
+ {
+ PyErr_Format(PyExc_TypeError, "attribute name must be string, not '%.200s'", name->ob_type->tp_name);
+ return -1;
+ } else {
+ Py_INCREF(name);
+ }
+
+ if (!tp->tp_dict) {
+ if (PyType_Ready(tp) < 0)
+ goto done;
+ }
+
+ descr = _PyType_Lookup(tp, name);
+ f = NULL;
+ if (descr != NULL)
+ f = descr->ob_type->tp_descr_set;
+ if (!f) {
+ if (PyString_Check(name)) {
+ encoded_name = name;
+ Py_INCREF(name);
+ } else {
+ encoded_name = PyUnicode_AsUTF8String(name);
+ if (!encoded_name)
+ return -1;
+ }
+ PyErr_Format(PyExc_AttributeError, "'%.100s' object has no attribute '%.200s'", tp->tp_name, PyString_AsString(encoded_name));
+ Py_DECREF(encoded_name);
+ } else {
+ res = f(descr, obj, value);
+ }
+
+ done:
+ Py_DECREF(name);
+ return res;
+}
+#endif
+
+
+#ifdef __cplusplus
+}
+#endif
+
+
+
+#define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
+
+#define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
+
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* Method creation and docstring support functions */
+
+SWIGINTERN PyMethodDef *SWIG_PythonGetProxyDoc(const char *name);
+SWIGINTERN PyObject *SWIG_PyInstanceMethod_New(PyObject *SWIGUNUSEDPARM(self), PyObject *func);
+SWIGINTERN PyObject *SWIG_PyStaticMethod_New(PyObject *SWIGUNUSEDPARM(self), PyObject *func);
+
+#ifdef __cplusplus
+}
+#endif
+
+
+ #define SWIG_exception(code, msg) do { SWIG_Error(code, msg); SWIG_fail;; } while(0)
+
+
+/* -------- TYPES TABLE (BEGIN) -------- */
+
+#define SWIGTYPE_p_Cdi swig_types[0]
+#define SWIGTYPE_p_CdiGrid swig_types[1]
+#define SWIGTYPE_p_CdiTaxis swig_types[2]
+#define SWIGTYPE_p_CdiVariable swig_types[3]
+#define SWIGTYPE_p_CdiZaxis swig_types[4]
+#define SWIGTYPE_p_allocator_type swig_types[5]
+#define SWIGTYPE_p_char swig_types[6]
+#define SWIGTYPE_p_difference_type swig_types[7]
+#define SWIGTYPE_p_double swig_types[8]
+#define SWIGTYPE_p_float swig_types[9]
+#define SWIGTYPE_p_key_type swig_types[10]
+#define SWIGTYPE_p_mapped_type swig_types[11]
+#define SWIGTYPE_p_p_PyObject swig_types[12]
+#define SWIGTYPE_p_p_double swig_types[13]
+#define SWIGTYPE_p_size_type swig_types[14]
+#define SWIGTYPE_p_std__allocatorT_CdiVariable_t swig_types[15]
+#define SWIGTYPE_p_std__allocatorT_double_t swig_types[16]
+#define SWIGTYPE_p_std__allocatorT_int_t swig_types[17]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t swig_types[18]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t swig_types[19]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t swig_types[20]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t swig_types[21]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t swig_types[22]
+#define SWIGTYPE_p_std__allocatorT_std__string_t swig_types[23]
+#define SWIGTYPE_p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t swig_types[24]
+#define SWIGTYPE_p_std__invalid_argument swig_types[25]
+#define SWIGTYPE_p_std__lessT_int_t swig_types[26]
+#define SWIGTYPE_p_std__lessT_std__string_t swig_types[27]
+#define SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t swig_types[28]
+#define SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t swig_types[29]
+#define SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t swig_types[30]
+#define SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t swig_types[31]
+#define SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t swig_types[32]
+#define SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t swig_types[33]
+#define SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t swig_types[34]
+#define SWIGTYPE_p_std__vectorT_float_std__allocatorT_float_t_t swig_types[35]
+#define SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t swig_types[36]
+#define SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t swig_types[37]
+#define SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t swig_types[38]
+#define SWIGTYPE_p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t swig_types[39]
+#define SWIGTYPE_p_swig__SwigPyIterator swig_types[40]
+#define SWIGTYPE_p_value_type swig_types[41]
+static swig_type_info *swig_types[43];
+static swig_module_info swig_module = {swig_types, 42, 0, 0, 0, 0};
+#define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
+#define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
+
+/* -------- TYPES TABLE (END) -------- */
+
+#ifdef SWIG_TypeQuery
+# undef SWIG_TypeQuery
+#endif
+#define SWIG_TypeQuery SWIG_Python_TypeQuery
+
+/*-----------------------------------------------
+ @(target):= _Cdi.so
+ ------------------------------------------------*/
+#if PY_VERSION_HEX >= 0x03000000
+# define SWIG_init PyInit__Cdi
+
+#else
+# define SWIG_init init_Cdi
+
+#endif
+#define SWIG_name "_Cdi"
+
+#define SWIGVERSION 0x040002
+#define SWIG_VERSION SWIGVERSION
+
+
+#define SWIG_as_voidptr(a) const_cast< void * >(static_cast< const void * >(a))
+#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),reinterpret_cast< void** >(a))
+
+
+#include <stdexcept>
+
+
+namespace swig {
+ class SwigPtr_PyObject {
+ protected:
+ PyObject *_obj;
+
+ public:
+ SwigPtr_PyObject() :_obj(0)
+ {
+ }
+
+ SwigPtr_PyObject(const SwigPtr_PyObject& item) : _obj(item._obj)
+ {
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ Py_XINCREF(_obj);
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ }
+
+ SwigPtr_PyObject(PyObject *obj, bool initial_ref = true) :_obj(obj)
+ {
+ if (initial_ref) {
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ Py_XINCREF(_obj);
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ }
+ }
+
+ SwigPtr_PyObject & operator=(const SwigPtr_PyObject& item)
+ {
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ Py_XINCREF(item._obj);
+ Py_XDECREF(_obj);
+ _obj = item._obj;
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return *this;
+ }
+
+ ~SwigPtr_PyObject()
+ {
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ Py_XDECREF(_obj);
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ }
+
+ operator PyObject *() const
+ {
+ return _obj;
+ }
+
+ PyObject *operator->() const
+ {
+ return _obj;
+ }
+ };
+}
+
+
+namespace swig {
+ struct SwigVar_PyObject : SwigPtr_PyObject {
+ SwigVar_PyObject(PyObject* obj = 0) : SwigPtr_PyObject(obj, false) { }
+
+ SwigVar_PyObject & operator = (PyObject* obj)
+ {
+ Py_XDECREF(_obj);
+ _obj = obj;
+ return *this;
+ }
+ };
+}
+
+
+#define SWIG_FILE_WITH_INIT
+#include "cdi.hpp"
+
+
+#include <typeinfo>
+#include <stdexcept>
+
+
+#if defined(__GNUC__)
+# if __GNUC__ == 2 && __GNUC_MINOR <= 96
+# define SWIG_STD_NOMODERN_STL
+# endif
+#endif
+
+
+#include <string>
+
+
+#include <stddef.h>
+
+
+#include <iostream>
+
+#if PY_VERSION_HEX >= 0x03020000
+# define SWIGPY_SLICE_ARG(obj) ((PyObject*) (obj))
+#else
+# define SWIGPY_SLICE_ARG(obj) ((PySliceObject*) (obj))
+#endif
+
+
+namespace swig {
+ struct stop_iteration {
+ };
+
+ struct SwigPyIterator {
+ private:
+ SwigPtr_PyObject _seq;
+
+ protected:
+ SwigPyIterator(PyObject *seq) : _seq(seq)
+ {
+ }
+
+ public:
+ virtual ~SwigPyIterator() {}
+
+ // Access iterator method, required by Python
+ virtual PyObject *value() const = 0;
+
+ // Forward iterator method, required by Python
+ virtual SwigPyIterator *incr(size_t n = 1) = 0;
+
+ // Backward iterator method, very common in C++, but not required in Python
+ virtual SwigPyIterator *decr(size_t /*n*/ = 1)
+ {
+ throw stop_iteration();
+ }
+
+ // Random access iterator methods, but not required in Python
+ virtual ptrdiff_t distance(const SwigPyIterator &/*x*/) const
+ {
+ throw std::invalid_argument("operation not supported");
+ }
+
+ virtual bool equal (const SwigPyIterator &/*x*/) const
+ {
+ throw std::invalid_argument("operation not supported");
+ }
+
+ // C++ common/needed methods
+ virtual SwigPyIterator *copy() const = 0;
+
+ PyObject *next()
+ {
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK; // disable threads
+ PyObject *obj = value();
+ incr();
+ SWIG_PYTHON_THREAD_END_BLOCK; // re-enable threads
+ return obj;
+ }
+
+ /* Make an alias for Python 3.x */
+ PyObject *__next__()
+ {
+ return next();
+ }
+
+ PyObject *previous()
+ {
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK; // disable threads
+ decr();
+ PyObject *obj = value();
+ SWIG_PYTHON_THREAD_END_BLOCK; // re-enable threads
+ return obj;
+ }
+
+ SwigPyIterator *advance(ptrdiff_t n)
+ {
+ return (n > 0) ? incr(n) : decr(-n);
+ }
+
+ bool operator == (const SwigPyIterator& x) const
+ {
+ return equal(x);
+ }
+
+ bool operator != (const SwigPyIterator& x) const
+ {
+ return ! operator==(x);
+ }
+
+ SwigPyIterator& operator += (ptrdiff_t n)
+ {
+ return *advance(n);
+ }
+
+ SwigPyIterator& operator -= (ptrdiff_t n)
+ {
+ return *advance(-n);
+ }
+
+ SwigPyIterator* operator + (ptrdiff_t n) const
+ {
+ return copy()->advance(n);
+ }
+
+ SwigPyIterator* operator - (ptrdiff_t n) const
+ {
+ return copy()->advance(-n);
+ }
+
+ ptrdiff_t operator - (const SwigPyIterator& x) const
+ {
+ return x.distance(*this);
+ }
+
+ static swig_type_info* descriptor() {
+ static int init = 0;
+ static swig_type_info* desc = 0;
+ if (!init) {
+ desc = SWIG_TypeQuery("swig::SwigPyIterator *");
+ init = 1;
+ }
+ return desc;
+ }
+ };
+
+#if defined(SWIGPYTHON_BUILTIN)
+ inline PyObject* make_output_iterator_builtin (PyObject *pyself)
+ {
+ Py_INCREF(pyself);
+ return pyself;
+ }
+#endif
+}
+
+
+SWIGINTERN int
+SWIG_AsVal_double (PyObject *obj, double *val)
+{
+ int res = SWIG_TypeError;
+ if (PyFloat_Check(obj)) {
+ if (val) *val = PyFloat_AsDouble(obj);
+ return SWIG_OK;
+#if PY_VERSION_HEX < 0x03000000
+ } else if (PyInt_Check(obj)) {
+ if (val) *val = (double) PyInt_AsLong(obj);
+ return SWIG_OK;
+#endif
+ } else if (PyLong_Check(obj)) {
+ double v = PyLong_AsDouble(obj);
+ if (!PyErr_Occurred()) {
+ if (val) *val = v;
+ return SWIG_OK;
+ } else {
+ PyErr_Clear();
+ }
+ }
+#ifdef SWIG_PYTHON_CAST_MODE
+ {
+ int dispatch = 0;
+ double d = PyFloat_AsDouble(obj);
+ if (!PyErr_Occurred()) {
+ if (val) *val = d;
+ return SWIG_AddCast(SWIG_OK);
+ } else {
+ PyErr_Clear();
+ }
+ if (!dispatch) {
+ long v = PyLong_AsLong(obj);
+ if (!PyErr_Occurred()) {
+ if (val) *val = v;
+ return SWIG_AddCast(SWIG_AddCast(SWIG_OK));
+ } else {
+ PyErr_Clear();
+ }
+ }
+ }
+#endif
+ return res;
+}
+
+
+#include <float.h>
+
+
+#include <math.h>
+
+
+SWIGINTERNINLINE int
+SWIG_CanCastAsInteger(double *d, double min, double max) {
+ double x = *d;
+ if ((min <= x && x <= max)) {
+ double fx = floor(x);
+ double cx = ceil(x);
+ double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
+ if ((errno == EDOM) || (errno == ERANGE)) {
+ errno = 0;
+ } else {
+ double summ, reps, diff;
+ if (rd < x) {
+ diff = x - rd;
+ } else if (rd > x) {
+ diff = rd - x;
+ } else {
+ return 1;
+ }
+ summ = rd + x;
+ reps = diff/summ;
+ if (reps < 8*DBL_EPSILON) {
+ *d = rd;
+ return 1;
+ }
+ }
+ }
+ return 0;
+}
+
+
+SWIGINTERN int
+SWIG_AsVal_unsigned_SS_long (PyObject *obj, unsigned long *val)
+{
+#if PY_VERSION_HEX < 0x03000000
+ if (PyInt_Check(obj)) {
+ long v = PyInt_AsLong(obj);
+ if (v >= 0) {
+ if (val) *val = v;
+ return SWIG_OK;
+ } else {
+ return SWIG_OverflowError;
+ }
+ } else
+#endif
+ if (PyLong_Check(obj)) {
+ unsigned long v = PyLong_AsUnsignedLong(obj);
+ if (!PyErr_Occurred()) {
+ if (val) *val = v;
+ return SWIG_OK;
+ } else {
+ PyErr_Clear();
+ return SWIG_OverflowError;
+ }
+ }
+#ifdef SWIG_PYTHON_CAST_MODE
+ {
+ int dispatch = 0;
+ unsigned long v = PyLong_AsUnsignedLong(obj);
+ if (!PyErr_Occurred()) {
+ if (val) *val = v;
+ return SWIG_AddCast(SWIG_OK);
+ } else {
+ PyErr_Clear();
+ }
+ if (!dispatch) {
+ double d;
+ int res = SWIG_AddCast(SWIG_AsVal_double (obj,&d));
+ if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
+ if (val) *val = (unsigned long)(d);
+ return res;
+ }
+ }
+ }
+#endif
+ return SWIG_TypeError;
+}
+
+
+#include <limits.h>
+#if !defined(SWIG_NO_LLONG_MAX)
+# if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
+# define LLONG_MAX __LONG_LONG_MAX__
+# define LLONG_MIN (-LLONG_MAX - 1LL)
+# define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
+# endif
+#endif
+
+
+#if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
+# define SWIG_LONG_LONG_AVAILABLE
+#endif
+
+
+#ifdef SWIG_LONG_LONG_AVAILABLE
+SWIGINTERN int
+SWIG_AsVal_unsigned_SS_long_SS_long (PyObject *obj, unsigned long long *val)
+{
+ int res = SWIG_TypeError;
+ if (PyLong_Check(obj)) {
+ unsigned long long v = PyLong_AsUnsignedLongLong(obj);
+ if (!PyErr_Occurred()) {
+ if (val) *val = v;
+ return SWIG_OK;
+ } else {
+ PyErr_Clear();
+ res = SWIG_OverflowError;
+ }
+ } else {
+ unsigned long v;
+ res = SWIG_AsVal_unsigned_SS_long (obj,&v);
+ if (SWIG_IsOK(res)) {
+ if (val) *val = v;
+ return res;
+ }
+ }
+#ifdef SWIG_PYTHON_CAST_MODE
+ {
+ const double mant_max = 1LL << DBL_MANT_DIG;
+ double d;
+ res = SWIG_AsVal_double (obj,&d);
+ if (SWIG_IsOK(res) && !SWIG_CanCastAsInteger(&d, 0, mant_max))
+ return SWIG_OverflowError;
+ if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
+ if (val) *val = (unsigned long long)(d);
+ return SWIG_AddCast(res);
+ }
+ res = SWIG_TypeError;
+ }
+#endif
+ return res;
+}
+#endif
+
+
+SWIGINTERNINLINE int
+SWIG_AsVal_size_t (PyObject * obj, size_t *val)
+{
+ int res = SWIG_TypeError;
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ if (sizeof(size_t) <= sizeof(unsigned long)) {
+#endif
+ unsigned long v;
+ res = SWIG_AsVal_unsigned_SS_long (obj, val ? &v : 0);
+ if (SWIG_IsOK(res) && val) *val = static_cast< size_t >(v);
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
+ unsigned long long v;
+ res = SWIG_AsVal_unsigned_SS_long_SS_long (obj, val ? &v : 0);
+ if (SWIG_IsOK(res) && val) *val = static_cast< size_t >(v);
+ }
+#endif
+ return res;
+}
+
+
+ #define SWIG_From_long PyInt_FromLong
+
+
+#ifdef SWIG_LONG_LONG_AVAILABLE
+SWIGINTERNINLINE PyObject*
+SWIG_From_long_SS_long (long long value)
+{
+ return ((value < LONG_MIN) || (value > LONG_MAX)) ?
+ PyLong_FromLongLong(value) : PyInt_FromLong(static_cast< long >(value));
+}
+#endif
+
+
+SWIGINTERNINLINE PyObject *
+SWIG_From_ptrdiff_t (ptrdiff_t value)
+{
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ if (sizeof(ptrdiff_t) <= sizeof(long)) {
+#endif
+ return SWIG_From_long (static_cast< long >(value));
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ } else {
+ /* assume sizeof(ptrdiff_t) <= sizeof(long long) */
+ return SWIG_From_long_SS_long (static_cast< long long >(value));
+ }
+#endif
+}
+
+
+SWIGINTERNINLINE PyObject*
+ SWIG_From_bool (bool value)
+{
+ return PyBool_FromLong(value ? 1 : 0);
+}
+
+
+SWIGINTERN int
+SWIG_AsVal_long (PyObject *obj, long* val)
+{
+#if PY_VERSION_HEX < 0x03000000
+ if (PyInt_Check(obj)) {
+ if (val) *val = PyInt_AsLong(obj);
+ return SWIG_OK;
+ } else
+#endif
+ if (PyLong_Check(obj)) {
+ long v = PyLong_AsLong(obj);
+ if (!PyErr_Occurred()) {
+ if (val) *val = v;
+ return SWIG_OK;
+ } else {
+ PyErr_Clear();
+ return SWIG_OverflowError;
+ }
+ }
+#ifdef SWIG_PYTHON_CAST_MODE
+ {
+ int dispatch = 0;
+ long v = PyInt_AsLong(obj);
+ if (!PyErr_Occurred()) {
+ if (val) *val = v;
+ return SWIG_AddCast(SWIG_OK);
+ } else {
+ PyErr_Clear();
+ }
+ if (!dispatch) {
+ double d;
+ int res = SWIG_AddCast(SWIG_AsVal_double (obj,&d));
+ if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
+ if (val) *val = (long)(d);
+ return res;
+ }
+ }
+ }
+#endif
+ return SWIG_TypeError;
+}
+
+
+#ifdef SWIG_LONG_LONG_AVAILABLE
+SWIGINTERN int
+SWIG_AsVal_long_SS_long (PyObject *obj, long long *val)
+{
+ int res = SWIG_TypeError;
+ if (PyLong_Check(obj)) {
+ long long v = PyLong_AsLongLong(obj);
+ if (!PyErr_Occurred()) {
+ if (val) *val = v;
+ return SWIG_OK;
+ } else {
+ PyErr_Clear();
+ res = SWIG_OverflowError;
+ }
+ } else {
+ long v;
+ res = SWIG_AsVal_long (obj,&v);
+ if (SWIG_IsOK(res)) {
+ if (val) *val = v;
+ return res;
+ }
+ }
+#ifdef SWIG_PYTHON_CAST_MODE
+ {
+ const double mant_max = 1LL << DBL_MANT_DIG;
+ const double mant_min = -mant_max;
+ double d;
+ res = SWIG_AsVal_double (obj,&d);
+ if (SWIG_IsOK(res) && !SWIG_CanCastAsInteger(&d, mant_min, mant_max))
+ return SWIG_OverflowError;
+ if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, mant_min, mant_max)) {
+ if (val) *val = (long long)(d);
+ return SWIG_AddCast(res);
+ }
+ res = SWIG_TypeError;
+ }
+#endif
+ return res;
+}
+#endif
+
+
+SWIGINTERNINLINE int
+SWIG_AsVal_ptrdiff_t (PyObject * obj, ptrdiff_t *val)
+{
+ int res = SWIG_TypeError;
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ if (sizeof(ptrdiff_t) <= sizeof(long)) {
+#endif
+ long v;
+ res = SWIG_AsVal_long (obj, val ? &v : 0);
+ if (SWIG_IsOK(res) && val) *val = static_cast< ptrdiff_t >(v);
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ } else if (sizeof(ptrdiff_t) <= sizeof(long long)) {
+ long long v;
+ res = SWIG_AsVal_long_SS_long (obj, val ? &v : 0);
+ if (SWIG_IsOK(res) && val) *val = static_cast< ptrdiff_t >(v);
+ }
+#endif
+ return res;
+}
+
+
+#include <algorithm>
+
+
+#include <vector>
+
+
+#include <utility>
+
+
+#include <map>
+
+
+#include <algorithm>
+
+
+namespace swig {
+ template <class Type>
+ struct noconst_traits {
+ typedef Type noconst_type;
+ };
+
+ template <class Type>
+ struct noconst_traits<const Type> {
+ typedef Type noconst_type;
+ };
+
+ /*
+ type categories
+ */
+ struct pointer_category { };
+ struct value_category { };
+
+ /*
+ General traits that provides type_name and type_info
+ */
+ template <class Type> struct traits { };
+
+ template <class Type>
+ inline const char* type_name() {
+ return traits<typename noconst_traits<Type >::noconst_type >::type_name();
+ }
+
+ template <class Type> struct traits_info {
+ static swig_type_info *type_query(std::string name) {
+ name += " *";
+ return SWIG_TypeQuery(name.c_str());
+ }
+ static swig_type_info *type_info() {
+ static swig_type_info *info = type_query(type_name<Type>());
+ return info;
+ }
+ };
+
+ /*
+ Partial specialization for pointers (traits_info)
+ */
+ template <class Type> struct traits_info<Type *> {
+ static swig_type_info *type_query(std::string name) {
+ name += " *";
+ return SWIG_TypeQuery(name.c_str());
+ }
+ static swig_type_info *type_info() {
+ static swig_type_info *info = type_query(type_name<Type>());
+ return info;
+ }
+ };
+
+ template <class Type>
+ inline swig_type_info *type_info() {
+ return traits_info<Type>::type_info();
+ }
+
+ /*
+ Partial specialization for pointers (traits)
+ */
+ template <class Type> struct traits <Type *> {
+ typedef pointer_category category;
+ static std::string make_ptr_name(const char* name) {
+ std::string ptrname = name;
+ ptrname += " *";
+ return ptrname;
+ }
+ static const char* type_name() {
+ static std::string name = make_ptr_name(swig::type_name<Type>());
+ return name.c_str();
+ }
+ };
+
+ template <class Type, class Category>
+ struct traits_as { };
+
+ template <class Type, class Category>
+ struct traits_check { };
+
+}
+
+
+namespace swig {
+ /*
+ Traits that provides the from method
+ */
+ template <class Type> struct traits_from_ptr {
+ static PyObject *from(Type *val, int owner = 0) {
+ return SWIG_InternalNewPointerObj(val, type_info<Type>(), owner);
+ }
+ };
+
+ template <class Type> struct traits_from {
+ static PyObject *from(const Type& val) {
+ return traits_from_ptr<Type>::from(new Type(val), 1);
+ }
+ };
+
+ template <class Type> struct traits_from<Type *> {
+ static PyObject *from(Type* val) {
+ return traits_from_ptr<Type>::from(val, 0);
+ }
+ };
+
+ template <class Type> struct traits_from<const Type *> {
+ static PyObject *from(const Type* val) {
+ return traits_from_ptr<Type>::from(const_cast<Type*>(val), 0);
+ }
+ };
+
+
+ template <class Type>
+ inline PyObject *from(const Type& val) {
+ return traits_from<Type>::from(val);
+ }
+
+ template <class Type>
+ inline PyObject *from_ptr(Type* val, int owner) {
+ return traits_from_ptr<Type>::from(val, owner);
+ }
+
+ /*
+ Traits that provides the asval/as/check method
+ */
+ template <class Type>
+ struct traits_asptr {
+ static int asptr(PyObject *obj, Type **val) {
+ int res = SWIG_ERROR;
+ swig_type_info *descriptor = type_info<Type>();
+ if (val) {
+ Type *p = 0;
+ int newmem = 0;
+ res = descriptor ? SWIG_ConvertPtrAndOwn(obj, (void **)&p, descriptor, 0, &newmem) : SWIG_ERROR;
+ if (SWIG_IsOK(res)) {
+ if (newmem & SWIG_CAST_NEW_MEMORY) {
+ res |= SWIG_NEWOBJMASK;
+ }
+ *val = p;
+ }
+ } else {
+ res = descriptor ? SWIG_ConvertPtr(obj, 0, descriptor, 0) : SWIG_ERROR;
+ }
+ return res;
+ }
+ };
+
+ template <class Type>
+ inline int asptr(PyObject *obj, Type **vptr) {
+ return traits_asptr<Type>::asptr(obj, vptr);
+ }
+
+ template <class Type>
+ struct traits_asval {
+ static int asval(PyObject *obj, Type *val) {
+ if (val) {
+ Type *p = 0;
+ int res = traits_asptr<Type>::asptr(obj, &p);
+ if (!SWIG_IsOK(res)) return res;
+ if (p) {
+ typedef typename noconst_traits<Type>::noconst_type noconst_type;
+ *(const_cast<noconst_type*>(val)) = *p;
+ if (SWIG_IsNewObj(res)){
+ delete p;
+ res = SWIG_DelNewMask(res);
+ }
+ return res;
+ } else {
+ return SWIG_ERROR;
+ }
+ } else {
+ return traits_asptr<Type>::asptr(obj, (Type **)(0));
+ }
+ }
+ };
+
+ template <class Type> struct traits_asval<Type*> {
+ static int asval(PyObject *obj, Type **val) {
+ if (val) {
+ typedef typename noconst_traits<Type>::noconst_type noconst_type;
+ noconst_type *p = 0;
+ int res = traits_asptr<noconst_type>::asptr(obj, &p);
+ if (SWIG_IsOK(res)) {
+ *(const_cast<noconst_type**>(val)) = p;
+ }
+ return res;
+ } else {
+ return traits_asptr<Type>::asptr(obj, (Type **)(0));
+ }
+ }
+ };
+
+ template <class Type>
+ inline int asval(PyObject *obj, Type *val) {
+ return traits_asval<Type>::asval(obj, val);
+ }
+
+ template <class Type>
+ struct traits_as<Type, value_category> {
+ static Type as(PyObject *obj) {
+ Type v;
+ int res = asval(obj, &v);
+ if (!obj || !SWIG_IsOK(res)) {
+ if (!PyErr_Occurred()) {
+ ::SWIG_Error(SWIG_TypeError, swig::type_name<Type>());
+ }
+ throw std::invalid_argument("bad type");
+ }
+ return v;
+ }
+ };
+
+ template <class Type>
+ struct traits_as<Type, pointer_category> {
+ static Type as(PyObject *obj) {
+ Type *v = 0;
+ int res = (obj ? traits_asptr<Type>::asptr(obj, &v) : SWIG_ERROR);
+ if (SWIG_IsOK(res) && v) {
+ if (SWIG_IsNewObj(res)) {
+ Type r(*v);
+ delete v;
+ return r;
+ } else {
+ return *v;
+ }
+ } else {
+ if (!PyErr_Occurred()) {
+ SWIG_Error(SWIG_TypeError, swig::type_name<Type>());
+ }
+ throw std::invalid_argument("bad type");
+ }
+ }
+ };
+
+ template <class Type>
+ struct traits_as<Type*, pointer_category> {
+ static Type* as(PyObject *obj) {
+ Type *v = 0;
+ int res = (obj ? traits_asptr<Type>::asptr(obj, &v) : SWIG_ERROR);
+ if (SWIG_IsOK(res)) {
+ return v;
+ } else {
+ if (!PyErr_Occurred()) {
+ SWIG_Error(SWIG_TypeError, swig::type_name<Type>());
+ }
+ throw std::invalid_argument("bad type");
+ }
+ }
+ };
+
+ template <class Type>
+ inline Type as(PyObject *obj) {
+ return traits_as<Type, typename traits<Type>::category>::as(obj);
+ }
+
+ template <class Type>
+ struct traits_check<Type, value_category> {
+ static bool check(PyObject *obj) {
+ int res = obj ? asval(obj, (Type *)(0)) : SWIG_ERROR;
+ return SWIG_IsOK(res) ? true : false;
+ }
+ };
+
+ template <class Type>
+ struct traits_check<Type, pointer_category> {
+ static bool check(PyObject *obj) {
+ int res = obj ? asptr(obj, (Type **)(0)) : SWIG_ERROR;
+ return SWIG_IsOK(res) ? true : false;
+ }
+ };
+
+ template <class Type>
+ inline bool check(PyObject *obj) {
+ return traits_check<Type, typename traits<Type>::category>::check(obj);
+ }
+}
+
+
+#include <functional>
+
+namespace std {
+ template <>
+ struct less <PyObject *>
+ {
+ bool
+ operator()(PyObject * v, PyObject *w) const
+ {
+ bool res;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ res = PyObject_RichCompareBool(v, w, Py_LT) ? true : false;
+ /* This may fall into a case of inconsistent
+ eg. ObjA > ObjX > ObjB
+ but ObjA < ObjB
+ */
+ if( PyErr_Occurred() && PyErr_ExceptionMatches(PyExc_TypeError) )
+ {
+ /* Objects can't be compared, this mostly occurred in Python 3.0 */
+ /* Compare their ptr directly for a workaround */
+ res = (v < w);
+ PyErr_Clear();
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return res;
+ }
+ };
+
+ template <>
+ struct less <swig::SwigPtr_PyObject>
+ {
+ bool
+ operator()(const swig::SwigPtr_PyObject& v, const swig::SwigPtr_PyObject& w) const
+ {
+ return std::less<PyObject *>()(v, w);
+ }
+ };
+
+ template <>
+ struct less <swig::SwigVar_PyObject>
+ {
+ bool
+ operator()(const swig::SwigVar_PyObject& v, const swig::SwigVar_PyObject& w) const
+ {
+ return std::less<PyObject *>()(v, w);
+ }
+ };
+
+}
+
+namespace swig {
+ template <> struct traits<PyObject *> {
+ typedef value_category category;
+ static const char* type_name() { return "PyObject *"; }
+ };
+
+ template <> struct traits_asval<PyObject * > {
+ typedef PyObject * value_type;
+ static int asval(PyObject *obj, value_type *val) {
+ if (val) *val = obj;
+ return SWIG_OK;
+ }
+ };
+
+ template <>
+ struct traits_check<PyObject *, value_category> {
+ static bool check(PyObject *) {
+ return true;
+ }
+ };
+
+ template <> struct traits_from<PyObject *> {
+ typedef PyObject * value_type;
+ static PyObject *from(const value_type& val) {
+ Py_XINCREF(val);
+ return val;
+ }
+ };
+
+}
+
+namespace swig {
+ template <class Difference>
+ inline size_t
+ check_index(Difference i, size_t size, bool insert = false) {
+ if ( i < 0 ) {
+ if ((size_t) (-i) <= size)
+ return (size_t) (i + size);
+ } else if ( (size_t) i < size ) {
+ return (size_t) i;
+ } else if (insert && ((size_t) i == size)) {
+ return size;
+ }
+ throw std::out_of_range("index out of range");
+ }
+
+ template <class Difference>
+ void
+ slice_adjust(Difference i, Difference j, Py_ssize_t step, size_t size, Difference &ii, Difference &jj, bool insert = false) {
+ if (step == 0) {
+ throw std::invalid_argument("slice step cannot be zero");
+ } else if (step > 0) {
+ // Required range: 0 <= i < size, 0 <= j < size, i <= j
+ if (i < 0) {
+ ii = 0;
+ } else if (i < (Difference)size) {
+ ii = i;
+ } else if (insert && (i >= (Difference)size)) {
+ ii = (Difference)size;
+ }
+ if (j < 0) {
+ jj = 0;
+ } else {
+ jj = (j < (Difference)size) ? j : (Difference)size;
+ }
+ if (jj < ii)
+ jj = ii;
+ } else {
+ // Required range: -1 <= i < size-1, -1 <= j < size-1, i >= j
+ if (i < -1) {
+ ii = -1;
+ } else if (i < (Difference) size) {
+ ii = i;
+ } else if (i >= (Difference)(size-1)) {
+ ii = (Difference)(size-1);
+ }
+ if (j < -1) {
+ jj = -1;
+ } else {
+ jj = (j < (Difference)size ) ? j : (Difference)(size-1);
+ }
+ if (ii < jj)
+ ii = jj;
+ }
+ }
+
+ template <class Sequence, class Difference>
+ inline typename Sequence::iterator
+ getpos(Sequence* self, Difference i) {
+ typename Sequence::iterator pos = self->begin();
+ std::advance(pos, check_index(i,self->size()));
+ return pos;
+ }
+
+ template <class Sequence, class Difference>
+ inline typename Sequence::const_iterator
+ cgetpos(const Sequence* self, Difference i) {
+ typename Sequence::const_iterator pos = self->begin();
+ std::advance(pos, check_index(i,self->size()));
+ return pos;
+ }
+
+ template <class Sequence>
+ inline void
+ erase(Sequence* seq, const typename Sequence::iterator& position) {
+ seq->erase(position);
+ }
+
+ template <class Sequence>
+ struct traits_reserve {
+ static void reserve(Sequence & /*seq*/, typename Sequence::size_type /*n*/) {
+ // This should be specialized for types that support reserve
+ }
+ };
+
+ template <class Sequence, class Difference>
+ inline Sequence*
+ getslice(const Sequence* self, Difference i, Difference j, Py_ssize_t step) {
+ typename Sequence::size_type size = self->size();
+ Difference ii = 0;
+ Difference jj = 0;
+ swig::slice_adjust(i, j, step, size, ii, jj);
+
+ if (step > 0) {
+ typename Sequence::const_iterator sb = self->begin();
+ typename Sequence::const_iterator se = self->begin();
+ std::advance(sb,ii);
+ std::advance(se,jj);
+ if (step == 1) {
+ return new Sequence(sb, se);
+ } else {
+ Sequence *sequence = new Sequence();
+ swig::traits_reserve<Sequence>::reserve(*sequence, (jj - ii + step - 1) / step);
+ typename Sequence::const_iterator it = sb;
+ while (it!=se) {
+ sequence->push_back(*it);
+ for (Py_ssize_t c=0; c<step && it!=se; ++c)
+ it++;
+ }
+ return sequence;
+ }
+ } else {
+ Sequence *sequence = new Sequence();
+ swig::traits_reserve<Sequence>::reserve(*sequence, (ii - jj - step - 1) / -step);
+ typename Sequence::const_reverse_iterator sb = self->rbegin();
+ typename Sequence::const_reverse_iterator se = self->rbegin();
+ std::advance(sb,size-ii-1);
+ std::advance(se,size-jj-1);
+ typename Sequence::const_reverse_iterator it = sb;
+ while (it!=se) {
+ sequence->push_back(*it);
+ for (Py_ssize_t c=0; c<-step && it!=se; ++c)
+ it++;
+ }
+ return sequence;
+ }
+ }
+
+ template <class Sequence, class Difference, class InputSeq>
+ inline void
+ setslice(Sequence* self, Difference i, Difference j, Py_ssize_t step, const InputSeq& is = InputSeq()) {
+ typename Sequence::size_type size = self->size();
+ Difference ii = 0;
+ Difference jj = 0;
+ swig::slice_adjust(i, j, step, size, ii, jj, true);
+ if (step > 0) {
+ if (step == 1) {
+ size_t ssize = jj - ii;
+ if (ssize <= is.size()) {
+ // expanding/staying the same size
+ swig::traits_reserve<Sequence>::reserve(*self, self->size() - ssize + is.size());
+ typename Sequence::iterator sb = self->begin();
+ typename InputSeq::const_iterator isit = is.begin();
+ std::advance(sb,ii);
+ std::advance(isit, jj - ii);
+ self->insert(std::copy(is.begin(), isit, sb), isit, is.end());
+ } else {
+ // shrinking
+ typename Sequence::iterator sb = self->begin();
+ typename Sequence::iterator se = self->begin();
+ std::advance(sb,ii);
+ std::advance(se,jj);
+ self->erase(sb,se);
+ sb = self->begin();
+ std::advance(sb,ii);
+ self->insert(sb, is.begin(), is.end());
+ }
+ } else {
+ size_t replacecount = (jj - ii + step - 1) / step;
+ if (is.size() != replacecount) {
+ char msg[1024];
+ sprintf(msg, "attempt to assign sequence of size %lu to extended slice of size %lu", (unsigned long)is.size(), (unsigned long)replacecount);
+ throw std::invalid_argument(msg);
+ }
+ typename Sequence::const_iterator isit = is.begin();
+ typename Sequence::iterator it = self->begin();
+ std::advance(it,ii);
+ for (size_t rc=0; rc<replacecount && it != self->end(); ++rc) {
+ *it++ = *isit++;
+ for (Py_ssize_t c=0; c<(step-1) && it != self->end(); ++c)
+ it++;
+ }
+ }
+ } else {
+ size_t replacecount = (ii - jj - step - 1) / -step;
+ if (is.size() != replacecount) {
+ char msg[1024];
+ sprintf(msg, "attempt to assign sequence of size %lu to extended slice of size %lu", (unsigned long)is.size(), (unsigned long)replacecount);
+ throw std::invalid_argument(msg);
+ }
+ typename Sequence::const_iterator isit = is.begin();
+ typename Sequence::reverse_iterator it = self->rbegin();
+ std::advance(it,size-ii-1);
+ for (size_t rc=0; rc<replacecount && it != self->rend(); ++rc) {
+ *it++ = *isit++;
+ for (Py_ssize_t c=0; c<(-step-1) && it != self->rend(); ++c)
+ it++;
+ }
+ }
+ }
+
+ template <class Sequence, class Difference>
+ inline void
+ delslice(Sequence* self, Difference i, Difference j, Py_ssize_t step) {
+ typename Sequence::size_type size = self->size();
+ Difference ii = 0;
+ Difference jj = 0;
+ swig::slice_adjust(i, j, step, size, ii, jj, true);
+ if (step > 0) {
+ typename Sequence::iterator sb = self->begin();
+ std::advance(sb,ii);
+ if (step == 1) {
+ typename Sequence::iterator se = self->begin();
+ std::advance(se,jj);
+ self->erase(sb,se);
+ } else {
+ typename Sequence::iterator it = sb;
+ size_t delcount = (jj - ii + step - 1) / step;
+ while (delcount) {
+ it = self->erase(it);
+ for (Py_ssize_t c=0; c<(step-1) && it != self->end(); ++c)
+ it++;
+ delcount--;
+ }
+ }
+ } else {
+ typename Sequence::reverse_iterator sb = self->rbegin();
+ std::advance(sb,size-ii-1);
+ typename Sequence::reverse_iterator it = sb;
+ size_t delcount = (ii - jj - step - 1) / -step;
+ while (delcount) {
+ it = typename Sequence::reverse_iterator(self->erase((++it).base()));
+ for (Py_ssize_t c=0; c<(-step-1) && it != self->rend(); ++c)
+ it++;
+ delcount--;
+ }
+ }
+ }
+}
+
+
+#if defined(__SUNPRO_CC) && defined(_RWSTD_VER)
+# if !defined(SWIG_NO_STD_NOITERATOR_TRAITS_STL)
+# define SWIG_STD_NOITERATOR_TRAITS_STL
+# endif
+#endif
+
+#if !defined(SWIG_STD_NOITERATOR_TRAITS_STL)
+#include <iterator>
+#else
+namespace std {
+ template <class Iterator>
+ struct iterator_traits {
+ typedef ptrdiff_t difference_type;
+ typedef typename Iterator::value_type value_type;
+ };
+
+ template <class Iterator, class Category,class T, class Reference, class Pointer, class Distance>
+ struct iterator_traits<__reverse_bi_iterator<Iterator,Category,T,Reference,Pointer,Distance> > {
+ typedef Distance difference_type;
+ typedef T value_type;
+ };
+
+ template <class T>
+ struct iterator_traits<T*> {
+ typedef T value_type;
+ typedef ptrdiff_t difference_type;
+ };
+
+ template<typename _InputIterator>
+ inline typename iterator_traits<_InputIterator>::difference_type
+ distance(_InputIterator __first, _InputIterator __last)
+ {
+ typename iterator_traits<_InputIterator>::difference_type __n = 0;
+ while (__first != __last) {
+ ++__first; ++__n;
+ }
+ return __n;
+ }
+}
+#endif
+
+
+namespace swig {
+ template<typename OutIterator>
+ class SwigPyIterator_T : public SwigPyIterator
+ {
+ public:
+ typedef OutIterator out_iterator;
+ typedef typename std::iterator_traits<out_iterator>::value_type value_type;
+ typedef SwigPyIterator_T<out_iterator> self_type;
+
+ SwigPyIterator_T(out_iterator curr, PyObject *seq)
+ : SwigPyIterator(seq), current(curr)
+ {
+ }
+
+ const out_iterator& get_current() const
+ {
+ return current;
+ }
+
+
+ bool equal (const SwigPyIterator &iter) const
+ {
+ const self_type *iters = dynamic_cast<const self_type *>(&iter);
+ if (iters) {
+ return (current == iters->get_current());
+ } else {
+ throw std::invalid_argument("bad iterator type");
+ }
+ }
+
+ ptrdiff_t distance(const SwigPyIterator &iter) const
+ {
+ const self_type *iters = dynamic_cast<const self_type *>(&iter);
+ if (iters) {
+ return std::distance(current, iters->get_current());
+ } else {
+ throw std::invalid_argument("bad iterator type");
+ }
+ }
+
+ protected:
+ out_iterator current;
+ };
+
+ template <class ValueType>
+ struct from_oper
+ {
+ typedef const ValueType& argument_type;
+ typedef PyObject *result_type;
+ result_type operator()(argument_type v) const
+ {
+ return swig::from(v);
+ }
+ };
+
+ template<typename OutIterator,
+ typename ValueType = typename std::iterator_traits<OutIterator>::value_type,
+ typename FromOper = from_oper<ValueType> >
+ class SwigPyForwardIteratorOpen_T : public SwigPyIterator_T<OutIterator>
+ {
+ public:
+ FromOper from;
+ typedef OutIterator out_iterator;
+ typedef ValueType value_type;
+ typedef SwigPyIterator_T<out_iterator> base;
+ typedef SwigPyForwardIteratorOpen_T<OutIterator, ValueType, FromOper> self_type;
+
+ SwigPyForwardIteratorOpen_T(out_iterator curr, PyObject *seq)
+ : SwigPyIterator_T<OutIterator>(curr, seq)
+ {
+ }
+
+ PyObject *value() const {
+ return from(static_cast<const value_type&>(*(base::current)));
+ }
+
+ SwigPyIterator *copy() const
+ {
+ return new self_type(*this);
+ }
+
+ SwigPyIterator *incr(size_t n = 1)
+ {
+ while (n--) {
+ ++base::current;
+ }
+ return this;
+ }
+
+ };
+
+ template<typename OutIterator,
+ typename ValueType = typename std::iterator_traits<OutIterator>::value_type,
+ typename FromOper = from_oper<ValueType> >
+ class SwigPyIteratorOpen_T : public SwigPyForwardIteratorOpen_T<OutIterator, ValueType, FromOper>
+ {
+ public:
+ FromOper from;
+ typedef OutIterator out_iterator;
+ typedef ValueType value_type;
+ typedef SwigPyIterator_T<out_iterator> base;
+ typedef SwigPyIteratorOpen_T<OutIterator, ValueType, FromOper> self_type;
+
+ SwigPyIteratorOpen_T(out_iterator curr, PyObject *seq)
+ : SwigPyForwardIteratorOpen_T<OutIterator>(curr, seq)
+ {
+ }
+
+ SwigPyIterator *decr(size_t n = 1)
+ {
+ while (n--) {
+ --base::current;
+ }
+ return this;
+ }
+ };
+
+ template<typename OutIterator,
+ typename ValueType = typename std::iterator_traits<OutIterator>::value_type,
+ typename FromOper = from_oper<ValueType> >
+ class SwigPyForwardIteratorClosed_T : public SwigPyIterator_T<OutIterator>
+ {
+ public:
+ FromOper from;
+ typedef OutIterator out_iterator;
+ typedef ValueType value_type;
+ typedef SwigPyIterator_T<out_iterator> base;
+ typedef SwigPyForwardIteratorClosed_T<OutIterator, ValueType, FromOper> self_type;
+
+ SwigPyForwardIteratorClosed_T(out_iterator curr, out_iterator first, out_iterator last, PyObject *seq)
+ : SwigPyIterator_T<OutIterator>(curr, seq), begin(first), end(last)
+ {
+ }
+
+ PyObject *value() const {
+ if (base::current == end) {
+ throw stop_iteration();
+ } else {
+ return from(static_cast<const value_type&>(*(base::current)));
+ }
+ }
+
+ SwigPyIterator *copy() const
+ {
+ return new self_type(*this);
+ }
+
+ SwigPyIterator *incr(size_t n = 1)
+ {
+ while (n--) {
+ if (base::current == end) {
+ throw stop_iteration();
+ } else {
+ ++base::current;
+ }
+ }
+ return this;
+ }
+
+ protected:
+ out_iterator begin;
+ out_iterator end;
+ };
+
+ template<typename OutIterator,
+ typename ValueType = typename std::iterator_traits<OutIterator>::value_type,
+ typename FromOper = from_oper<ValueType> >
+ class SwigPyIteratorClosed_T : public SwigPyForwardIteratorClosed_T<OutIterator,ValueType,FromOper>
+ {
+ public:
+ FromOper from;
+ typedef OutIterator out_iterator;
+ typedef ValueType value_type;
+ typedef SwigPyIterator_T<out_iterator> base;
+ typedef SwigPyForwardIteratorClosed_T<OutIterator, ValueType, FromOper> base0;
+ typedef SwigPyIteratorClosed_T<OutIterator, ValueType, FromOper> self_type;
+
+ SwigPyIteratorClosed_T(out_iterator curr, out_iterator first, out_iterator last, PyObject *seq)
+ : SwigPyForwardIteratorClosed_T<OutIterator,ValueType,FromOper>(curr, first, last, seq)
+ {
+ }
+
+ SwigPyIterator *decr(size_t n = 1)
+ {
+ while (n--) {
+ if (base::current == base0::begin) {
+ throw stop_iteration();
+ } else {
+ --base::current;
+ }
+ }
+ return this;
+ }
+ };
+
+
+ template<typename OutIter>
+ inline SwigPyIterator*
+ make_output_forward_iterator(const OutIter& current, const OutIter& begin,const OutIter& end, PyObject *seq = 0)
+ {
+ return new SwigPyForwardIteratorClosed_T<OutIter>(current, begin, end, seq);
+ }
+
+ template<typename OutIter>
+ inline SwigPyIterator*
+ make_output_iterator(const OutIter& current, const OutIter& begin,const OutIter& end, PyObject *seq = 0)
+ {
+ return new SwigPyIteratorClosed_T<OutIter>(current, begin, end, seq);
+ }
+
+ template<typename OutIter>
+ inline SwigPyIterator*
+ make_output_forward_iterator(const OutIter& current, PyObject *seq = 0)
+ {
+ return new SwigPyForwardIteratorOpen_T<OutIter>(current, seq);
+ }
+
+ template<typename OutIter>
+ inline SwigPyIterator*
+ make_output_iterator(const OutIter& current, PyObject *seq = 0)
+ {
+ return new SwigPyIteratorOpen_T<OutIter>(current, seq);
+ }
+
+}
+
+
+namespace swig
+{
+ template <class T>
+ struct SwigPySequence_Ref
+ {
+ SwigPySequence_Ref(PyObject* seq, Py_ssize_t index)
+ : _seq(seq), _index(index)
+ {
+ }
+
+ operator T () const
+ {
+ swig::SwigVar_PyObject item = PySequence_GetItem(_seq, _index);
+ try {
+ return swig::as<T>(item);
+ } catch (const std::invalid_argument& e) {
+ char msg[1024];
+ sprintf(msg, "in sequence element %d ", (int)_index);
+ if (!PyErr_Occurred()) {
+ ::SWIG_Error(SWIG_TypeError, swig::type_name<T>());
+ }
+ SWIG_Python_AddErrorMsg(msg);
+ SWIG_Python_AddErrorMsg(e.what());
+ throw;
+ }
+ }
+
+ SwigPySequence_Ref& operator=(const T& v)
+ {
+ PySequence_SetItem(_seq, _index, swig::from<T>(v));
+ return *this;
+ }
+
+ private:
+ PyObject* _seq;
+ Py_ssize_t _index;
+ };
+
+ template <class T>
+ struct SwigPySequence_ArrowProxy
+ {
+ SwigPySequence_ArrowProxy(const T& x): m_value(x) {}
+ const T* operator->() const { return &m_value; }
+ operator const T*() const { return &m_value; }
+ T m_value;
+ };
+
+ template <class T, class Reference >
+ struct SwigPySequence_InputIterator
+ {
+ typedef SwigPySequence_InputIterator<T, Reference > self;
+
+ typedef std::random_access_iterator_tag iterator_category;
+ typedef Reference reference;
+ typedef T value_type;
+ typedef T* pointer;
+ typedef Py_ssize_t difference_type;
+
+ SwigPySequence_InputIterator()
+ {
+ }
+
+ SwigPySequence_InputIterator(PyObject* seq, Py_ssize_t index)
+ : _seq(seq), _index(index)
+ {
+ }
+
+ reference operator*() const
+ {
+ return reference(_seq, _index);
+ }
+
+ SwigPySequence_ArrowProxy<T>
+ operator->() const {
+ return SwigPySequence_ArrowProxy<T>(operator*());
+ }
+
+ bool operator==(const self& ri) const
+ {
+ return (_index == ri._index) && (_seq == ri._seq);
+ }
+
+ bool operator!=(const self& ri) const
+ {
+ return !(operator==(ri));
+ }
+
+ self& operator ++ ()
+ {
+ ++_index;
+ return *this;
+ }
+
+ self& operator -- ()
+ {
+ --_index;
+ return *this;
+ }
+
+ self& operator += (difference_type n)
+ {
+ _index += n;
+ return *this;
+ }
+
+ self operator +(difference_type n) const
+ {
+ return self(_seq, _index + n);
+ }
+
+ self& operator -= (difference_type n)
+ {
+ _index -= n;
+ return *this;
+ }
+
+ self operator -(difference_type n) const
+ {
+ return self(_seq, _index - n);
+ }
+
+ difference_type operator - (const self& ri) const
+ {
+ return _index - ri._index;
+ }
+
+ bool operator < (const self& ri) const
+ {
+ return _index < ri._index;
+ }
+
+ reference
+ operator[](difference_type n) const
+ {
+ return reference(_seq, _index + n);
+ }
+
+ private:
+ PyObject* _seq;
+ difference_type _index;
+ };
+
+ // STL container wrapper around a Python sequence
+ template <class T>
+ struct SwigPySequence_Cont
+ {
+ typedef SwigPySequence_Ref<T> reference;
+ typedef const SwigPySequence_Ref<T> const_reference;
+ typedef T value_type;
+ typedef T* pointer;
+ typedef Py_ssize_t difference_type;
+ typedef size_t size_type;
+ typedef const pointer const_pointer;
+ typedef SwigPySequence_InputIterator<T, reference> iterator;
+ typedef SwigPySequence_InputIterator<T, const_reference> const_iterator;
+
+ SwigPySequence_Cont(PyObject* seq) : _seq(0)
+ {
+ if (!PySequence_Check(seq)) {
+ throw std::invalid_argument("a sequence is expected");
+ }
+ _seq = seq;
+ Py_INCREF(_seq);
+ }
+
+ ~SwigPySequence_Cont()
+ {
+ Py_XDECREF(_seq);
+ }
+
+ size_type size() const
+ {
+ return static_cast<size_type>(PySequence_Size(_seq));
+ }
+
+ bool empty() const
+ {
+ return size() == 0;
+ }
+
+ iterator begin()
+ {
+ return iterator(_seq, 0);
+ }
+
+ const_iterator begin() const
+ {
+ return const_iterator(_seq, 0);
+ }
+
+ iterator end()
+ {
+ return iterator(_seq, size());
+ }
+
+ const_iterator end() const
+ {
+ return const_iterator(_seq, size());
+ }
+
+ reference operator[](difference_type n)
+ {
+ return reference(_seq, n);
+ }
+
+ const_reference operator[](difference_type n) const
+ {
+ return const_reference(_seq, n);
+ }
+
+ bool check() const
+ {
+ Py_ssize_t s = size();
+ for (Py_ssize_t i = 0; i < s; ++i) {
+ swig::SwigVar_PyObject item = PySequence_GetItem(_seq, i);
+ if (!swig::check<value_type>(item))
+ return false;
+ }
+ return true;
+ }
+
+ private:
+ PyObject* _seq;
+ };
+
+}
+
+
+SWIGINTERN int
+SWIG_AsVal_int (PyObject * obj, int *val)
+{
+ long v;
+ int res = SWIG_AsVal_long (obj, &v);
+ if (SWIG_IsOK(res)) {
+ if ((v < INT_MIN || v > INT_MAX)) {
+ return SWIG_OverflowError;
+ } else {
+ if (val) *val = static_cast< int >(v);
+ }
+ }
+ return res;
+}
+
+
+SWIGINTERNINLINE PyObject*
+ SWIG_From_int (int value)
+{
+ return PyInt_FromLong((long) value);
+}
+
+
+namespace swig {
+ template <> struct traits< int > {
+ typedef value_category category;
+ static const char* type_name() { return"int"; }
+ };
+ template <> struct traits_asval< int > {
+ typedef int value_type;
+ static int asval(PyObject *obj, value_type *val) {
+ return SWIG_AsVal_int (obj, val);
+ }
+ };
+ template <> struct traits_from< int > {
+ typedef int value_type;
+ static PyObject *from(const value_type& val) {
+ return SWIG_From_int (val);
+ }
+ };
+}
+
+
+namespace swig {
+ template <class SwigPySeq, class Seq>
+ inline void
+ assign(const SwigPySeq& swigpyseq, Seq* seq) {
+ // seq->assign(swigpyseq.begin(), swigpyseq.end()); // not used as not always implemented
+ typedef typename SwigPySeq::value_type value_type;
+ typename SwigPySeq::const_iterator it = swigpyseq.begin();
+ for (;it != swigpyseq.end(); ++it) {
+ seq->insert(seq->end(),(value_type)(*it));
+ }
+ }
+
+ template <class Seq, class T = typename Seq::value_type >
+ struct traits_asptr_stdseq {
+ typedef Seq sequence;
+ typedef T value_type;
+
+ static int asptr(PyObject *obj, sequence **seq) {
+ if (obj == Py_None || SWIG_Python_GetSwigThis(obj)) {
+ sequence *p;
+ swig_type_info *descriptor = swig::type_info<sequence>();
+ if (descriptor && SWIG_IsOK(::SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0))) {
+ if (seq) *seq = p;
+ return SWIG_OLDOBJ;
+ }
+ } else if (PySequence_Check(obj)) {
+ try {
+ SwigPySequence_Cont<value_type> swigpyseq(obj);
+ if (seq) {
+ sequence *pseq = new sequence();
+ assign(swigpyseq, pseq);
+ *seq = pseq;
+ return SWIG_NEWOBJ;
+ } else {
+ return swigpyseq.check() ? SWIG_OK : SWIG_ERROR;
+ }
+ } catch (std::exception& e) {
+ if (seq) {
+ if (!PyErr_Occurred()) {
+ PyErr_SetString(PyExc_TypeError, e.what());
+ }
+ }
+ return SWIG_ERROR;
+ }
+ }
+ return SWIG_ERROR;
+ }
+ };
+
+ template <class Seq, class T = typename Seq::value_type >
+ struct traits_from_stdseq {
+ typedef Seq sequence;
+ typedef T value_type;
+ typedef typename Seq::size_type size_type;
+ typedef typename sequence::const_iterator const_iterator;
+
+ static PyObject *from(const sequence& seq) {
+#ifdef SWIG_PYTHON_EXTRA_NATIVE_CONTAINERS
+ swig_type_info *desc = swig::type_info<sequence>();
+ if (desc && desc->clientdata) {
+ return SWIG_InternalNewPointerObj(new sequence(seq), desc, SWIG_POINTER_OWN);
+ }
+#endif
+ size_type size = seq.size();
+ if (size <= (size_type)INT_MAX) {
+ PyObject *obj = PyTuple_New((Py_ssize_t)size);
+ Py_ssize_t i = 0;
+ for (const_iterator it = seq.begin(); it != seq.end(); ++it, ++i) {
+ PyTuple_SetItem(obj,i,swig::from<value_type>(*it));
+ }
+ return obj;
+ } else {
+ PyErr_SetString(PyExc_OverflowError,"sequence size not valid in python");
+ return NULL;
+ }
+ }
+ };
+}
+
+
+ namespace swig {
+ template <class T>
+ struct traits_reserve<std::vector<T> > {
+ static void reserve(std::vector<T> &seq, typename std::vector<T>::size_type n) {
+ seq.reserve(n);
+ }
+ };
+
+ template <class T>
+ struct traits_asptr<std::vector<T> > {
+ static int asptr(PyObject *obj, std::vector<T> **vec) {
+ return traits_asptr_stdseq<std::vector<T> >::asptr(obj, vec);
+ }
+ };
+
+ template <class T>
+ struct traits_from<std::vector<T> > {
+ static PyObject *from(const std::vector<T>& vec) {
+ return traits_from_stdseq<std::vector<T> >::from(vec);
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::vector< int, std::allocator< int > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "int" "," "std::allocator< int >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_vector_Sl_int_Sg__iterator(std::vector< int > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_vector_Sl_int_Sg____nonzero__(std::vector< int > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_vector_Sl_int_Sg____bool__(std::vector< int > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::vector< int >::size_type std_vector_Sl_int_Sg____len__(std::vector< int > const *self){
+ return self->size();
+ }
+
+SWIGINTERNINLINE PyObject*
+SWIG_From_unsigned_SS_long (unsigned long value)
+{
+ return (value > LONG_MAX) ?
+ PyLong_FromUnsignedLong(value) : PyInt_FromLong(static_cast< long >(value));
+}
+
+
+#ifdef SWIG_LONG_LONG_AVAILABLE
+SWIGINTERNINLINE PyObject*
+SWIG_From_unsigned_SS_long_SS_long (unsigned long long value)
+{
+ return (value > LONG_MAX) ?
+ PyLong_FromUnsignedLongLong(value) : PyInt_FromLong(static_cast< long >(value));
+}
+#endif
+
+
+SWIGINTERNINLINE PyObject *
+SWIG_From_size_t (size_t value)
+{
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ if (sizeof(size_t) <= sizeof(unsigned long)) {
+#endif
+ return SWIG_From_unsigned_SS_long (static_cast< unsigned long >(value));
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ } else {
+ /* assume sizeof(size_t) <= sizeof(unsigned long long) */
+ return SWIG_From_unsigned_SS_long_SS_long (static_cast< unsigned long long >(value));
+ }
+#endif
+}
+
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg____getslice__(std::vector< int > *self,std::vector< int >::difference_type i,std::vector< int >::difference_type j){
+ return swig::getslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_int_Sg____setslice____SWIG_0(std::vector< int > *self,std::vector< int >::difference_type i,std::vector< int >::difference_type j){
+ swig::setslice(self, i, j, 1, std::vector< int,std::allocator< int > >());
+ }
+SWIGINTERN void std_vector_Sl_int_Sg____setslice____SWIG_1(std::vector< int > *self,std::vector< int >::difference_type i,std::vector< int >::difference_type j,std::vector< int,std::allocator< int > > const &v){
+ swig::setslice(self, i, j, 1, v);
+ }
+SWIGINTERN void std_vector_Sl_int_Sg____delslice__(std::vector< int > *self,std::vector< int >::difference_type i,std::vector< int >::difference_type j){
+ swig::delslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_int_Sg____delitem____SWIG_0(std::vector< int > *self,std::vector< int >::difference_type i){
+ swig::erase(self, swig::getpos(self, i));
+ }
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg____getitem____SWIG_0(std::vector< int > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return NULL;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< int,std::allocator< int > >::difference_type id = i;
+ std::vector< int,std::allocator< int > >::difference_type jd = j;
+ return swig::getslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_int_Sg____setitem____SWIG_0(std::vector< int > *self,PySliceObject *slice,std::vector< int,std::allocator< int > > const &v){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< int,std::allocator< int > >::difference_type id = i;
+ std::vector< int,std::allocator< int > >::difference_type jd = j;
+ swig::setslice(self, id, jd, step, v);
+ }
+SWIGINTERN void std_vector_Sl_int_Sg____setitem____SWIG_1(std::vector< int > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< int,std::allocator< int > >::difference_type id = i;
+ std::vector< int,std::allocator< int > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_int_Sg____delitem____SWIG_1(std::vector< int > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< int,std::allocator< int > >::difference_type id = i;
+ std::vector< int,std::allocator< int > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN std::vector< int >::value_type const &std_vector_Sl_int_Sg____getitem____SWIG_1(std::vector< int > const *self,std::vector< int >::difference_type i){
+ return *(swig::cgetpos(self, i));
+ }
+
+namespace swig {
+ static PyObject* container_owner_attribute() {
+ static PyObject* attr = SWIG_Python_str_FromChar("__swig_container");
+ return attr;
+ }
+
+ template <typename T>
+ struct container_owner {
+ // By default, do not add the back-reference (for value types)
+ // Specialization below will check the reference for pointer types.
+ static bool back_reference(PyObject* /*child*/, PyObject* /*owner*/) {
+ return false;
+ }
+ };
+
+ template <>
+ struct container_owner<swig::pointer_category> {
+ /*
+ * Call to add a back-reference to the owning object when returning a
+ * reference from a container. Will only set the reference if child
+ * is a SWIG wrapper object that does not own the pointer.
+ *
+ * returns whether the reference was set or not
+ */
+ static bool back_reference(PyObject* child, PyObject* owner) {
+ SwigPyObject* swigThis = SWIG_Python_GetSwigThis(child);
+ if (swigThis && (swigThis->own & SWIG_POINTER_OWN) != SWIG_POINTER_OWN) {
+ return PyObject_SetAttr(child, container_owner_attribute(), owner) != -1;
+ }
+ return false;
+ }
+ };
+}
+
+SWIGINTERN void std_vector_Sl_int_Sg____setitem____SWIG_2(std::vector< int > *self,std::vector< int >::difference_type i,std::vector< int >::value_type const &x){
+ *(swig::getpos(self,i)) = x;
+ }
+SWIGINTERN std::vector< int >::value_type std_vector_Sl_int_Sg__pop(std::vector< int > *self){
+ if (self->size() == 0)
+ throw std::out_of_range("pop from empty container");
+ std::vector< int,std::allocator< int > >::value_type x = self->back();
+ self->pop_back();
+ return x;
+ }
+SWIGINTERN void std_vector_Sl_int_Sg__append(std::vector< int > *self,std::vector< int >::value_type const &x){
+ self->push_back(x);
+ }
+SWIGINTERN std::vector< int >::iterator std_vector_Sl_int_Sg__erase__SWIG_0(std::vector< int > *self,std::vector< int >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< int >::iterator std_vector_Sl_int_Sg__erase__SWIG_1(std::vector< int > *self,std::vector< int >::iterator first,std::vector< int >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< int >::iterator std_vector_Sl_int_Sg__insert__SWIG_0(std::vector< int > *self,std::vector< int >::iterator pos,std::vector< int >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_int_Sg__insert__SWIG_1(std::vector< int > *self,std::vector< int >::iterator pos,std::vector< int >::size_type n,std::vector< int >::value_type const &x){ self->insert(pos, n, x); }
+
+ #define SWIG_From_double PyFloat_FromDouble
+
+
+namespace swig {
+ template <> struct traits< double > {
+ typedef value_category category;
+ static const char* type_name() { return"double"; }
+ };
+ template <> struct traits_asval< double > {
+ typedef double value_type;
+ static int asval(PyObject *obj, value_type *val) {
+ return SWIG_AsVal_double (obj, val);
+ }
+ };
+ template <> struct traits_from< double > {
+ typedef double value_type;
+ static PyObject *from(const value_type& val) {
+ return SWIG_From_double (val);
+ }
+ };
+}
+
+
+ namespace swig {
+ template <> struct traits<std::vector< double, std::allocator< double > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "double" "," "std::allocator< double >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_vector_Sl_double_Sg__iterator(std::vector< double > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_vector_Sl_double_Sg____nonzero__(std::vector< double > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_vector_Sl_double_Sg____bool__(std::vector< double > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::vector< double >::size_type std_vector_Sl_double_Sg____len__(std::vector< double > const *self){
+ return self->size();
+ }
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg____getslice__(std::vector< double > *self,std::vector< double >::difference_type i,std::vector< double >::difference_type j){
+ return swig::getslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_double_Sg____setslice____SWIG_0(std::vector< double > *self,std::vector< double >::difference_type i,std::vector< double >::difference_type j){
+ swig::setslice(self, i, j, 1, std::vector< double,std::allocator< double > >());
+ }
+SWIGINTERN void std_vector_Sl_double_Sg____setslice____SWIG_1(std::vector< double > *self,std::vector< double >::difference_type i,std::vector< double >::difference_type j,std::vector< double,std::allocator< double > > const &v){
+ swig::setslice(self, i, j, 1, v);
+ }
+SWIGINTERN void std_vector_Sl_double_Sg____delslice__(std::vector< double > *self,std::vector< double >::difference_type i,std::vector< double >::difference_type j){
+ swig::delslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_double_Sg____delitem____SWIG_0(std::vector< double > *self,std::vector< double >::difference_type i){
+ swig::erase(self, swig::getpos(self, i));
+ }
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg____getitem____SWIG_0(std::vector< double > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return NULL;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< double,std::allocator< double > >::difference_type id = i;
+ std::vector< double,std::allocator< double > >::difference_type jd = j;
+ return swig::getslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_double_Sg____setitem____SWIG_0(std::vector< double > *self,PySliceObject *slice,std::vector< double,std::allocator< double > > const &v){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< double,std::allocator< double > >::difference_type id = i;
+ std::vector< double,std::allocator< double > >::difference_type jd = j;
+ swig::setslice(self, id, jd, step, v);
+ }
+SWIGINTERN void std_vector_Sl_double_Sg____setitem____SWIG_1(std::vector< double > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< double,std::allocator< double > >::difference_type id = i;
+ std::vector< double,std::allocator< double > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_double_Sg____delitem____SWIG_1(std::vector< double > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< double,std::allocator< double > >::difference_type id = i;
+ std::vector< double,std::allocator< double > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN std::vector< double >::value_type const &std_vector_Sl_double_Sg____getitem____SWIG_1(std::vector< double > const *self,std::vector< double >::difference_type i){
+ return *(swig::cgetpos(self, i));
+ }
+SWIGINTERN void std_vector_Sl_double_Sg____setitem____SWIG_2(std::vector< double > *self,std::vector< double >::difference_type i,std::vector< double >::value_type const &x){
+ *(swig::getpos(self,i)) = x;
+ }
+SWIGINTERN std::vector< double >::value_type std_vector_Sl_double_Sg__pop(std::vector< double > *self){
+ if (self->size() == 0)
+ throw std::out_of_range("pop from empty container");
+ std::vector< double,std::allocator< double > >::value_type x = self->back();
+ self->pop_back();
+ return x;
+ }
+SWIGINTERN void std_vector_Sl_double_Sg__append(std::vector< double > *self,std::vector< double >::value_type const &x){
+ self->push_back(x);
+ }
+SWIGINTERN std::vector< double >::iterator std_vector_Sl_double_Sg__erase__SWIG_0(std::vector< double > *self,std::vector< double >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< double >::iterator std_vector_Sl_double_Sg__erase__SWIG_1(std::vector< double > *self,std::vector< double >::iterator first,std::vector< double >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< double >::iterator std_vector_Sl_double_Sg__insert__SWIG_0(std::vector< double > *self,std::vector< double >::iterator pos,std::vector< double >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_double_Sg__insert__SWIG_1(std::vector< double > *self,std::vector< double >::iterator pos,std::vector< double >::size_type n,std::vector< double >::value_type const &x){ self->insert(pos, n, x); }
+
+ namespace swig {
+ template <> struct traits<std::vector< std::vector< double,std::allocator< double > >, std::allocator< std::vector< double,std::allocator< double > > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "std::vector< double,std::allocator< double > >" "," "std::allocator< std::vector< double,std::allocator< double > > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_vector_Sl_std_vector_Sl_double_Sg__Sg__iterator(std::vector< std::vector< double > > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_vector_Sl_std_vector_Sl_double_Sg__Sg____nonzero__(std::vector< std::vector< double > > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_vector_Sl_std_vector_Sl_double_Sg__Sg____bool__(std::vector< std::vector< double > > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::vector< std::vector< double > >::size_type std_vector_Sl_std_vector_Sl_double_Sg__Sg____len__(std::vector< std::vector< double > > const *self){
+ return self->size();
+ }
+SWIGINTERN std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *std_vector_Sl_std_vector_Sl_double_Sg__Sg____getslice__(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i,std::vector< std::vector< double > >::difference_type j){
+ return swig::getslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg____setslice____SWIG_0(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i,std::vector< std::vector< double > >::difference_type j){
+ swig::setslice(self, i, j, 1, std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >());
+ }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg____setslice____SWIG_1(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i,std::vector< std::vector< double > >::difference_type j,std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &v){
+ swig::setslice(self, i, j, 1, v);
+ }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg____delslice__(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i,std::vector< std::vector< double > >::difference_type j){
+ swig::delslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg____delitem____SWIG_0(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i){
+ swig::erase(self, swig::getpos(self, i));
+ }
+SWIGINTERN std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_0(std::vector< std::vector< double > > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return NULL;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type id = i;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type jd = j;
+ return swig::getslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_0(std::vector< std::vector< double > > *self,PySliceObject *slice,std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &v){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type id = i;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type jd = j;
+ swig::setslice(self, id, jd, step, v);
+ }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_1(std::vector< std::vector< double > > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type id = i;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg____delitem____SWIG_1(std::vector< std::vector< double > > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type id = i;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN std::vector< std::vector< double > >::value_type const &std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_1(std::vector< std::vector< double > > const *self,std::vector< std::vector< double > >::difference_type i){
+ return *(swig::cgetpos(self, i));
+ }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_2(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i,std::vector< std::vector< double > >::value_type const &x){
+ *(swig::getpos(self,i)) = x;
+ }
+SWIGINTERN std::vector< std::vector< double > >::value_type std_vector_Sl_std_vector_Sl_double_Sg__Sg__pop(std::vector< std::vector< double > > *self){
+ if (self->size() == 0)
+ throw std::out_of_range("pop from empty container");
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type x = self->back();
+ self->pop_back();
+ return x;
+ }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg__append(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::value_type const &x){
+ self->push_back(x);
+ }
+SWIGINTERN std::vector< std::vector< double > >::iterator std_vector_Sl_std_vector_Sl_double_Sg__Sg__erase__SWIG_0(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< std::vector< double > >::iterator std_vector_Sl_std_vector_Sl_double_Sg__Sg__erase__SWIG_1(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::iterator first,std::vector< std::vector< double > >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< std::vector< double > >::iterator std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_0(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::iterator pos,std::vector< std::vector< double > >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_1(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::iterator pos,std::vector< std::vector< double > >::size_type n,std::vector< std::vector< double > >::value_type const &x){ self->insert(pos, n, x); }
+
+SWIGINTERN swig_type_info*
+SWIG_pchar_descriptor(void)
+{
+ static int init = 0;
+ static swig_type_info* info = 0;
+ if (!init) {
+ info = SWIG_TypeQuery("_p_char");
+ init = 1;
+ }
+ return info;
+}
+
+
+SWIGINTERN int
+SWIG_AsCharPtrAndSize(PyObject *obj, char** cptr, size_t* psize, int *alloc)
+{
+#if PY_VERSION_HEX>=0x03000000
+#if defined(SWIG_PYTHON_STRICT_BYTE_CHAR)
+ if (PyBytes_Check(obj))
+#else
+ if (PyUnicode_Check(obj))
+#endif
+#else
+ if (PyString_Check(obj))
+#endif
+ {
+ char *cstr; Py_ssize_t len;
+ int ret = SWIG_OK;
+#if PY_VERSION_HEX>=0x03000000
+#if !defined(SWIG_PYTHON_STRICT_BYTE_CHAR)
+ if (!alloc && cptr) {
+ /* We can't allow converting without allocation, since the internal
+ representation of string in Python 3 is UCS-2/UCS-4 but we require
+ a UTF-8 representation.
+ TODO(bhy) More detailed explanation */
+ return SWIG_RuntimeError;
+ }
+ obj = PyUnicode_AsUTF8String(obj);
+ if (!obj)
+ return SWIG_TypeError;
+ if (alloc)
+ *alloc = SWIG_NEWOBJ;
+#endif
+ if (PyBytes_AsStringAndSize(obj, &cstr, &len) == -1)
+ return SWIG_TypeError;
+#else
+ if (PyString_AsStringAndSize(obj, &cstr, &len) == -1)
+ return SWIG_TypeError;
+#endif
+ if (cptr) {
+ if (alloc) {
+ if (*alloc == SWIG_NEWOBJ) {
+ *cptr = reinterpret_cast< char* >(memcpy(new char[len + 1], cstr, sizeof(char)*(len + 1)));
+ *alloc = SWIG_NEWOBJ;
+ } else {
+ *cptr = cstr;
+ *alloc = SWIG_OLDOBJ;
+ }
+ } else {
+#if PY_VERSION_HEX>=0x03000000
+#if defined(SWIG_PYTHON_STRICT_BYTE_CHAR)
+ *cptr = PyBytes_AsString(obj);
+#else
+ assert(0); /* Should never reach here with Unicode strings in Python 3 */
+#endif
+#else
+ *cptr = SWIG_Python_str_AsChar(obj);
+ if (!*cptr)
+ ret = SWIG_TypeError;
+#endif
+ }
+ }
+ if (psize) *psize = len + 1;
+#if PY_VERSION_HEX>=0x03000000 && !defined(SWIG_PYTHON_STRICT_BYTE_CHAR)
+ Py_XDECREF(obj);
+#endif
+ return ret;
+ } else {
+#if defined(SWIG_PYTHON_2_UNICODE)
+#if defined(SWIG_PYTHON_STRICT_BYTE_CHAR)
+#error "Cannot use both SWIG_PYTHON_2_UNICODE and SWIG_PYTHON_STRICT_BYTE_CHAR at once"
+#endif
+#if PY_VERSION_HEX<0x03000000
+ if (PyUnicode_Check(obj)) {
+ char *cstr; Py_ssize_t len;
+ if (!alloc && cptr) {
+ return SWIG_RuntimeError;
+ }
+ obj = PyUnicode_AsUTF8String(obj);
+ if (!obj)
+ return SWIG_TypeError;
+ if (PyString_AsStringAndSize(obj, &cstr, &len) != -1) {
+ if (cptr) {
+ if (alloc) *alloc = SWIG_NEWOBJ;
+ *cptr = reinterpret_cast< char* >(memcpy(new char[len + 1], cstr, sizeof(char)*(len + 1)));
+ }
+ if (psize) *psize = len + 1;
+
+ Py_XDECREF(obj);
+ return SWIG_OK;
+ } else {
+ Py_XDECREF(obj);
+ }
+ }
+#endif
+#endif
+
+ swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
+ if (pchar_descriptor) {
+ void* vptr = 0;
+ if (SWIG_ConvertPtr(obj, &vptr, pchar_descriptor, 0) == SWIG_OK) {
+ if (cptr) *cptr = (char *) vptr;
+ if (psize) *psize = vptr ? (strlen((char *)vptr) + 1) : 0;
+ if (alloc) *alloc = SWIG_OLDOBJ;
+ return SWIG_OK;
+ }
+ }
+ }
+ return SWIG_TypeError;
+}
+
+
+SWIGINTERN int
+SWIG_AsPtr_std_string (PyObject * obj, std::string **val)
+{
+ char* buf = 0 ; size_t size = 0; int alloc = SWIG_OLDOBJ;
+ if (SWIG_IsOK((SWIG_AsCharPtrAndSize(obj, &buf, &size, &alloc)))) {
+ if (buf) {
+ if (val) *val = new std::string(buf, size - 1);
+ if (alloc == SWIG_NEWOBJ) delete[] buf;
+ return SWIG_NEWOBJ;
+ } else {
+ if (val) *val = 0;
+ return SWIG_OLDOBJ;
+ }
+ } else {
+ static int init = 0;
+ static swig_type_info* descriptor = 0;
+ if (!init) {
+ descriptor = SWIG_TypeQuery("std::string" " *");
+ init = 1;
+ }
+ if (descriptor) {
+ std::string *vptr;
+ int res = SWIG_ConvertPtr(obj, (void**)&vptr, descriptor, 0);
+ if (SWIG_IsOK(res) && val) *val = vptr;
+ return res;
+ }
+ }
+ return SWIG_ERROR;
+}
+
+
+SWIGINTERN int
+SWIG_AsVal_std_string (PyObject * obj, std::string *val)
+{
+ std::string* v = (std::string *) 0;
+ int res = SWIG_AsPtr_std_string (obj, &v);
+ if (!SWIG_IsOK(res)) return res;
+ if (v) {
+ if (val) *val = *v;
+ if (SWIG_IsNewObj(res)) {
+ delete v;
+ res = SWIG_DelNewMask(res);
+ }
+ return res;
+ }
+ return SWIG_ERROR;
+}
+
+
+SWIGINTERNINLINE PyObject *
+SWIG_FromCharPtrAndSize(const char* carray, size_t size)
+{
+ if (carray) {
+ if (size > INT_MAX) {
+ swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
+ return pchar_descriptor ?
+ SWIG_InternalNewPointerObj(const_cast< char * >(carray), pchar_descriptor, 0) : SWIG_Py_Void();
+ } else {
+#if PY_VERSION_HEX >= 0x03000000
+#if defined(SWIG_PYTHON_STRICT_BYTE_CHAR)
+ return PyBytes_FromStringAndSize(carray, static_cast< Py_ssize_t >(size));
+#else
+ return PyUnicode_DecodeUTF8(carray, static_cast< Py_ssize_t >(size), "surrogateescape");
+#endif
+#else
+ return PyString_FromStringAndSize(carray, static_cast< Py_ssize_t >(size));
+#endif
+ }
+ } else {
+ return SWIG_Py_Void();
+ }
+}
+
+
+SWIGINTERNINLINE PyObject *
+SWIG_From_std_string (const std::string& s)
+{
+ return SWIG_FromCharPtrAndSize(s.data(), s.size());
+}
+
+
+namespace swig {
+ template <> struct traits< std::string > {
+ typedef value_category category;
+ static const char* type_name() { return"std::string"; }
+ };
+ template <> struct traits_asval< std::string > {
+ typedef std::string value_type;
+ static int asval(PyObject *obj, value_type *val) {
+ return SWIG_AsVal_std_string (obj, val);
+ }
+ };
+ template <> struct traits_from< std::string > {
+ typedef std::string value_type;
+ static PyObject *from(const value_type& val) {
+ return SWIG_From_std_string (val);
+ }
+ };
+}
+
+
+ namespace swig {
+ template <> struct traits<std::vector< std::string, std::allocator< std::string > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "std::string" "," "std::allocator< std::string >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_vector_Sl_std_string_Sg__iterator(std::vector< std::string > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_vector_Sl_std_string_Sg____nonzero__(std::vector< std::string > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_vector_Sl_std_string_Sg____bool__(std::vector< std::string > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::vector< std::string >::size_type std_vector_Sl_std_string_Sg____len__(std::vector< std::string > const *self){
+ return self->size();
+ }
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg____getslice__(std::vector< std::string > *self,std::vector< std::string >::difference_type i,std::vector< std::string >::difference_type j){
+ return swig::getslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_std_string_Sg____setslice____SWIG_0(std::vector< std::string > *self,std::vector< std::string >::difference_type i,std::vector< std::string >::difference_type j){
+ swig::setslice(self, i, j, 1, std::vector< std::string,std::allocator< std::string > >());
+ }
+SWIGINTERN void std_vector_Sl_std_string_Sg____setslice____SWIG_1(std::vector< std::string > *self,std::vector< std::string >::difference_type i,std::vector< std::string >::difference_type j,std::vector< std::string,std::allocator< std::string > > const &v){
+ swig::setslice(self, i, j, 1, v);
+ }
+SWIGINTERN void std_vector_Sl_std_string_Sg____delslice__(std::vector< std::string > *self,std::vector< std::string >::difference_type i,std::vector< std::string >::difference_type j){
+ swig::delslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_std_string_Sg____delitem____SWIG_0(std::vector< std::string > *self,std::vector< std::string >::difference_type i){
+ swig::erase(self, swig::getpos(self, i));
+ }
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg____getitem____SWIG_0(std::vector< std::string > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return NULL;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< std::string,std::allocator< std::string > >::difference_type id = i;
+ std::vector< std::string,std::allocator< std::string > >::difference_type jd = j;
+ return swig::getslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_std_string_Sg____setitem____SWIG_0(std::vector< std::string > *self,PySliceObject *slice,std::vector< std::string,std::allocator< std::string > > const &v){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< std::string,std::allocator< std::string > >::difference_type id = i;
+ std::vector< std::string,std::allocator< std::string > >::difference_type jd = j;
+ swig::setslice(self, id, jd, step, v);
+ }
+SWIGINTERN void std_vector_Sl_std_string_Sg____setitem____SWIG_1(std::vector< std::string > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< std::string,std::allocator< std::string > >::difference_type id = i;
+ std::vector< std::string,std::allocator< std::string > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_std_string_Sg____delitem____SWIG_1(std::vector< std::string > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< std::string,std::allocator< std::string > >::difference_type id = i;
+ std::vector< std::string,std::allocator< std::string > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN std::vector< std::string >::value_type const &std_vector_Sl_std_string_Sg____getitem____SWIG_1(std::vector< std::string > const *self,std::vector< std::string >::difference_type i){
+ return *(swig::cgetpos(self, i));
+ }
+SWIGINTERN void std_vector_Sl_std_string_Sg____setitem____SWIG_2(std::vector< std::string > *self,std::vector< std::string >::difference_type i,std::vector< std::string >::value_type const &x){
+ *(swig::getpos(self,i)) = x;
+ }
+SWIGINTERN std::vector< std::string >::value_type std_vector_Sl_std_string_Sg__pop(std::vector< std::string > *self){
+ if (self->size() == 0)
+ throw std::out_of_range("pop from empty container");
+ std::vector< std::string,std::allocator< std::string > >::value_type x = self->back();
+ self->pop_back();
+ return x;
+ }
+SWIGINTERN void std_vector_Sl_std_string_Sg__append(std::vector< std::string > *self,std::vector< std::string >::value_type const &x){
+ self->push_back(x);
+ }
+SWIGINTERN std::vector< std::string >::iterator std_vector_Sl_std_string_Sg__erase__SWIG_0(std::vector< std::string > *self,std::vector< std::string >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< std::string >::iterator std_vector_Sl_std_string_Sg__erase__SWIG_1(std::vector< std::string > *self,std::vector< std::string >::iterator first,std::vector< std::string >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< std::string >::iterator std_vector_Sl_std_string_Sg__insert__SWIG_0(std::vector< std::string > *self,std::vector< std::string >::iterator pos,std::vector< std::string >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_std_string_Sg__insert__SWIG_1(std::vector< std::string > *self,std::vector< std::string >::iterator pos,std::vector< std::string >::size_type n,std::vector< std::string >::value_type const &x){ self->insert(pos, n, x); }
+
+ namespace swig {
+ template <> struct traits< CdiVariable > {
+ typedef pointer_category category;
+ static const char* type_name() { return"CdiVariable"; }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::vector< CdiVariable, std::allocator< CdiVariable > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "CdiVariable" "," "std::allocator< CdiVariable >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_vector_Sl_CdiVariable_Sg__iterator(std::vector< CdiVariable > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_vector_Sl_CdiVariable_Sg____nonzero__(std::vector< CdiVariable > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_vector_Sl_CdiVariable_Sg____bool__(std::vector< CdiVariable > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::vector< CdiVariable >::size_type std_vector_Sl_CdiVariable_Sg____len__(std::vector< CdiVariable > const *self){
+ return self->size();
+ }
+SWIGINTERN std::vector< CdiVariable,std::allocator< CdiVariable > > *std_vector_Sl_CdiVariable_Sg____getslice__(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i,std::vector< CdiVariable >::difference_type j){
+ return swig::getslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg____setslice____SWIG_0(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i,std::vector< CdiVariable >::difference_type j){
+ swig::setslice(self, i, j, 1, std::vector< CdiVariable,std::allocator< CdiVariable > >());
+ }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg____setslice____SWIG_1(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i,std::vector< CdiVariable >::difference_type j,std::vector< CdiVariable,std::allocator< CdiVariable > > const &v){
+ swig::setslice(self, i, j, 1, v);
+ }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg____delslice__(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i,std::vector< CdiVariable >::difference_type j){
+ swig::delslice(self, i, j, 1);
+ }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg____delitem____SWIG_0(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i){
+ swig::erase(self, swig::getpos(self, i));
+ }
+SWIGINTERN std::vector< CdiVariable,std::allocator< CdiVariable > > *std_vector_Sl_CdiVariable_Sg____getitem____SWIG_0(std::vector< CdiVariable > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return NULL;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type id = i;
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type jd = j;
+ return swig::getslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg____setitem____SWIG_0(std::vector< CdiVariable > *self,PySliceObject *slice,std::vector< CdiVariable,std::allocator< CdiVariable > > const &v){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type id = i;
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type jd = j;
+ swig::setslice(self, id, jd, step, v);
+ }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg____setitem____SWIG_1(std::vector< CdiVariable > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type id = i;
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg____delitem____SWIG_1(std::vector< CdiVariable > *self,PySliceObject *slice){
+ Py_ssize_t i, j, step;
+ if( !PySlice_Check(slice) ) {
+ SWIG_Error(SWIG_TypeError, "Slice object expected.");
+ return;
+ }
+ PySlice_GetIndices(SWIGPY_SLICE_ARG(slice), (Py_ssize_t)self->size(), &i, &j, &step);
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type id = i;
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type jd = j;
+ swig::delslice(self, id, jd, step);
+ }
+SWIGINTERN std::vector< CdiVariable >::value_type const &std_vector_Sl_CdiVariable_Sg____getitem____SWIG_1(std::vector< CdiVariable > const *self,std::vector< CdiVariable >::difference_type i){
+ return *(swig::cgetpos(self, i));
+ }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg____setitem____SWIG_2(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i,std::vector< CdiVariable >::value_type const &x){
+ *(swig::getpos(self,i)) = x;
+ }
+SWIGINTERN std::vector< CdiVariable >::value_type std_vector_Sl_CdiVariable_Sg__pop(std::vector< CdiVariable > *self){
+ if (self->size() == 0)
+ throw std::out_of_range("pop from empty container");
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type x = self->back();
+ self->pop_back();
+ return x;
+ }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg__append(std::vector< CdiVariable > *self,std::vector< CdiVariable >::value_type const &x){
+ self->push_back(x);
+ }
+SWIGINTERN std::vector< CdiVariable >::iterator std_vector_Sl_CdiVariable_Sg__erase__SWIG_0(std::vector< CdiVariable > *self,std::vector< CdiVariable >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< CdiVariable >::iterator std_vector_Sl_CdiVariable_Sg__erase__SWIG_1(std::vector< CdiVariable > *self,std::vector< CdiVariable >::iterator first,std::vector< CdiVariable >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< CdiVariable >::iterator std_vector_Sl_CdiVariable_Sg__insert__SWIG_0(std::vector< CdiVariable > *self,std::vector< CdiVariable >::iterator pos,std::vector< CdiVariable >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg__insert__SWIG_1(std::vector< CdiVariable > *self,std::vector< CdiVariable >::iterator pos,std::vector< CdiVariable >::size_type n,std::vector< CdiVariable >::value_type const &x){ self->insert(pos, n, x); }
+
+ namespace swig {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ template <class T, class U >
+ struct traits_asptr<std::pair<T,U> > {
+ typedef std::pair<T,U> value_type;
+
+ static int get_pair(PyObject* first, PyObject* second,
+ std::pair<T,U> **val)
+ {
+ if (val) {
+ value_type *vp = (new std::pair<T,U>());
+ T *pfirst = &(vp->first);
+ int res1 = swig::asval((PyObject*)first, pfirst);
+ if (!SWIG_IsOK(res1)) {
+ delete vp;
+ return res1;
+ }
+ U *psecond = &(vp->second);
+ int res2 = swig::asval((PyObject*)second, psecond);
+ if (!SWIG_IsOK(res2)) {
+ delete vp;
+ return res2;
+ }
+ *val = vp;
+ return SWIG_AddNewMask(res1 > res2 ? res1 : res2);
+ } else {
+ T *pfirst = 0;
+ int res1 = swig::asval((PyObject*)first, pfirst);
+ if (!SWIG_IsOK(res1)) return res1;
+ U *psecond = 0;
+ int res2 = swig::asval((PyObject*)second, psecond);
+ if (!SWIG_IsOK(res2)) return res2;
+ return res1 > res2 ? res1 : res2;
+ }
+ }
+
+ static int asptr(PyObject *obj, std::pair<T,U> **val) {
+ int res = SWIG_ERROR;
+ if (PyTuple_Check(obj)) {
+ if (PyTuple_GET_SIZE(obj) == 2) {
+ res = get_pair(PyTuple_GET_ITEM(obj,0),PyTuple_GET_ITEM(obj,1), val);
+ }
+ } else if (PySequence_Check(obj)) {
+ if (PySequence_Size(obj) == 2) {
+ swig::SwigVar_PyObject first = PySequence_GetItem(obj,0);
+ swig::SwigVar_PyObject second = PySequence_GetItem(obj,1);
+ res = get_pair(first, second, val);
+ }
+ } else {
+ value_type *p = 0;
+ swig_type_info *descriptor = swig::type_info<value_type>();
+ res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
+ if (SWIG_IsOK(res) && val) *val = p;
+ }
+ return res;
+ }
+ };
+
+
+ template <class T, class U >
+ struct traits_from<std::pair<T,U> > {
+ static PyObject *from(const std::pair<T,U>& val) {
+ PyObject* obj = PyTuple_New(2);
+ PyTuple_SetItem(obj,0,swig::from(val.first));
+ PyTuple_SetItem(obj,1,swig::from(val.second));
+ return obj;
+ }
+ };
+ }
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ namespace swig {
+ template <> struct traits<std::pair< std::string, CdiVariable > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "std::string" "," "CdiVariable" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <class ValueType>
+ struct from_key_oper
+ {
+ typedef const ValueType& argument_type;
+ typedef PyObject *result_type;
+ result_type operator()(argument_type v) const
+ {
+ return swig::from(v.first);
+ }
+ };
+
+ template <class ValueType>
+ struct from_value_oper
+ {
+ typedef const ValueType& argument_type;
+ typedef PyObject *result_type;
+ result_type operator()(argument_type v) const
+ {
+ return swig::from(v.second);
+ }
+ };
+
+ template<class OutIterator, class FromOper, class ValueType = typename OutIterator::value_type>
+ struct SwigPyMapIterator_T : SwigPyIteratorClosed_T<OutIterator, ValueType, FromOper>
+ {
+ SwigPyMapIterator_T(OutIterator curr, OutIterator first, OutIterator last, PyObject *seq)
+ : SwigPyIteratorClosed_T<OutIterator,ValueType,FromOper>(curr, first, last, seq)
+ {
+ }
+ };
+
+
+ template<class OutIterator,
+ class FromOper = from_key_oper<typename OutIterator::value_type> >
+ struct SwigPyMapKeyIterator_T : SwigPyMapIterator_T<OutIterator, FromOper>
+ {
+ SwigPyMapKeyIterator_T(OutIterator curr, OutIterator first, OutIterator last, PyObject *seq)
+ : SwigPyMapIterator_T<OutIterator, FromOper>(curr, first, last, seq)
+ {
+ }
+ };
+
+ template<typename OutIter>
+ inline SwigPyIterator*
+ make_output_key_iterator(const OutIter& current, const OutIter& begin, const OutIter& end, PyObject *seq = 0)
+ {
+ return new SwigPyMapKeyIterator_T<OutIter>(current, begin, end, seq);
+ }
+
+ template<class OutIterator,
+ class FromOper = from_value_oper<typename OutIterator::value_type> >
+ struct SwigPyMapValueIterator_T : SwigPyMapIterator_T<OutIterator, FromOper>
+ {
+ SwigPyMapValueIterator_T(OutIterator curr, OutIterator first, OutIterator last, PyObject *seq)
+ : SwigPyMapIterator_T<OutIterator, FromOper>(curr, first, last, seq)
+ {
+ }
+ };
+
+
+ template<typename OutIter>
+ inline SwigPyIterator*
+ make_output_value_iterator(const OutIter& current, const OutIter& begin, const OutIter& end, PyObject *seq = 0)
+ {
+ return new SwigPyMapValueIterator_T<OutIter>(current, begin, end, seq);
+ }
+ }
+
+
+ namespace swig {
+ template <class SwigPySeq, class K, class T, class Compare, class Alloc >
+ inline void
+ assign(const SwigPySeq& swigpyseq, std::map<K,T,Compare,Alloc > *map) {
+ typedef typename std::map<K,T,Compare,Alloc >::value_type value_type;
+ typename SwigPySeq::const_iterator it = swigpyseq.begin();
+ for (;it != swigpyseq.end(); ++it) {
+ map->insert(value_type(it->first, it->second));
+ }
+ }
+
+ template <class K, class T, class Compare, class Alloc>
+ struct traits_asptr<std::map<K,T,Compare,Alloc > > {
+ typedef std::map<K,T,Compare,Alloc > map_type;
+ static int asptr(PyObject *obj, map_type **val) {
+ int res = SWIG_ERROR;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (PyDict_Check(obj)) {
+ SwigVar_PyObject items = PyObject_CallMethod(obj,(char *)"items",NULL);
+#if PY_VERSION_HEX >= 0x03000000
+ /* In Python 3.x the ".items()" method returns a dict_items object */
+ items = PySequence_Fast(items, ".items() didn't return a sequence!");
+#endif
+ res = traits_asptr_stdseq<map_type, std::pair<K, T> >::asptr(items, val);
+ } else {
+ map_type *p = 0;
+ swig_type_info *descriptor = swig::type_info<map_type>();
+ res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
+ if (SWIG_IsOK(res) && val) *val = p;
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return res;
+ }
+ };
+
+ template <class K, class T, class Compare, class Alloc >
+ struct traits_from<std::map<K,T,Compare,Alloc > > {
+ typedef std::map<K,T,Compare,Alloc > map_type;
+ typedef typename map_type::const_iterator const_iterator;
+ typedef typename map_type::size_type size_type;
+
+ static PyObject *asdict(const map_type& map) {
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ size_type size = map.size();
+ Py_ssize_t pysize = (size <= (size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject *obj = PyDict_New();
+ for (const_iterator i= map.begin(); i!= map.end(); ++i) {
+ swig::SwigVar_PyObject key = swig::from(i->first);
+ swig::SwigVar_PyObject val = swig::from(i->second);
+ PyDict_SetItem(obj, key, val);
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return obj;
+ }
+
+ static PyObject *from(const map_type& map) {
+ swig_type_info *desc = swig::type_info<map_type>();
+ if (desc && desc->clientdata) {
+ return SWIG_InternalNewPointerObj(new map_type(map), desc, SWIG_POINTER_OWN);
+ } else {
+ return asdict(map);
+ }
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< std::string, CdiVariable, std::less< std::string >, std::allocator< std::pair< std::string const,CdiVariable > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "std::string" "," "CdiVariable" "," "std::less< std::string >" "," "std::allocator< std::pair< std::string const,CdiVariable > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_std_string_Sc_CdiVariable_Sg__iterator(std::map< std::string,CdiVariable > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_map_Sl_std_string_Sc_CdiVariable_Sg____nonzero__(std::map< std::string,CdiVariable > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_map_Sl_std_string_Sc_CdiVariable_Sg____bool__(std::map< std::string,CdiVariable > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::map< std::string,CdiVariable >::size_type std_map_Sl_std_string_Sc_CdiVariable_Sg____len__(std::map< std::string,CdiVariable > const *self){
+ return self->size();
+ }
+SWIGINTERN std::map< std::string,CdiVariable >::mapped_type const &std_map_Sl_std_string_Sc_CdiVariable_Sg____getitem__(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::key_type const &key){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->find(key);
+ if (i != self->end())
+ return i->second;
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN void std_map_Sl_std_string_Sc_CdiVariable_Sg____delitem__(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::key_type const &key){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator i = self->find(key);
+ if (i != self->end())
+ self->erase(i);
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN bool std_map_Sl_std_string_Sc_CdiVariable_Sg__has_key(std::map< std::string,CdiVariable > const *self,std::map< std::string,CdiVariable >::key_type const &key){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN PyObject *std_map_Sl_std_string_Sc_CdiVariable_Sg__keys(std::map< std::string,CdiVariable > *self){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* keyList = PyList_New(pysize);
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(keyList, j, swig::from(i->first));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return keyList;
+ }
+SWIGINTERN PyObject *std_map_Sl_std_string_Sc_CdiVariable_Sg__values(std::map< std::string,CdiVariable > *self){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* valList = PyList_New(pysize);
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(valList, j, swig::from(i->second));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return valList;
+ }
+SWIGINTERN PyObject *std_map_Sl_std_string_Sc_CdiVariable_Sg__items(std::map< std::string,CdiVariable > *self){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* itemList = PyList_New(pysize);
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(itemList, j, swig::from(*i));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return itemList;
+ }
+SWIGINTERN bool std_map_Sl_std_string_Sc_CdiVariable_Sg____contains__(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_std_string_Sc_CdiVariable_Sg__key_iterator(std::map< std::string,CdiVariable > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_std_string_Sc_CdiVariable_Sg__value_iterator(std::map< std::string,CdiVariable > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN void std_map_Sl_std_string_Sc_CdiVariable_Sg____setitem____SWIG_0(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::key_type const &key){
+ self->erase(key);
+ }
+SWIGINTERN void std_map_Sl_std_string_Sc_CdiVariable_Sg____setitem____SWIG_1(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::key_type const &key,std::map< std::string,CdiVariable >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN PyObject *std_map_Sl_std_string_Sc_CdiVariable_Sg__asdict(std::map< std::string,CdiVariable > *self){
+ return swig::traits_from< std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > >::asdict(*self);
+ }
+SWIGINTERN void std_map_Sl_std_string_Sc_CdiVariable_Sg__erase__SWIG_1(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_std_string_Sc_CdiVariable_Sg__erase__SWIG_2(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::iterator first,std::map< std::string,CdiVariable >::iterator last){ self->erase(first, last); }
+
+ namespace swig {
+ template <> struct traits<std::pair< int, CdiVariable > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "int" "," "CdiVariable" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< int, CdiVariable, std::less< int >, std::allocator< std::pair< int const,CdiVariable > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "int" "," "CdiVariable" "," "std::less< int >" "," "std::allocator< std::pair< int const,CdiVariable > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiVariable_Sg__iterator(std::map< int,CdiVariable > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiVariable_Sg____nonzero__(std::map< int,CdiVariable > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiVariable_Sg____bool__(std::map< int,CdiVariable > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::map< int,CdiVariable >::size_type std_map_Sl_int_Sc_CdiVariable_Sg____len__(std::map< int,CdiVariable > const *self){
+ return self->size();
+ }
+SWIGINTERN std::map< int,CdiVariable >::mapped_type const &std_map_Sl_int_Sc_CdiVariable_Sg____getitem__(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::key_type const &key){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->find(key);
+ if (i != self->end())
+ return i->second;
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiVariable_Sg____delitem__(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::key_type const &key){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator i = self->find(key);
+ if (i != self->end())
+ self->erase(i);
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiVariable_Sg__has_key(std::map< int,CdiVariable > const *self,std::map< int,CdiVariable >::key_type const &key){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiVariable_Sg__keys(std::map< int,CdiVariable > *self){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* keyList = PyList_New(pysize);
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(keyList, j, swig::from(i->first));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return keyList;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiVariable_Sg__values(std::map< int,CdiVariable > *self){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* valList = PyList_New(pysize);
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(valList, j, swig::from(i->second));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return valList;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiVariable_Sg__items(std::map< int,CdiVariable > *self){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* itemList = PyList_New(pysize);
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(itemList, j, swig::from(*i));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return itemList;
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiVariable_Sg____contains__(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiVariable_Sg__key_iterator(std::map< int,CdiVariable > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiVariable_Sg__value_iterator(std::map< int,CdiVariable > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiVariable_Sg____setitem____SWIG_0(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::key_type const &key){
+ self->erase(key);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiVariable_Sg____setitem____SWIG_1(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::key_type const &key,std::map< int,CdiVariable >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiVariable_Sg__asdict(std::map< int,CdiVariable > *self){
+ return swig::traits_from< std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > >::asdict(*self);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiVariable_Sg__erase__SWIG_1(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_int_Sc_CdiVariable_Sg__erase__SWIG_2(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::iterator first,std::map< int,CdiVariable >::iterator last){ self->erase(first, last); }
+
+ namespace swig {
+ template <> struct traits< CdiTaxis > {
+ typedef pointer_category category;
+ static const char* type_name() { return"CdiTaxis"; }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::pair< int, CdiTaxis > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "int" "," "CdiTaxis" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< int, CdiTaxis, std::less< int >, std::allocator< std::pair< int const,CdiTaxis > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "int" "," "CdiTaxis" "," "std::less< int >" "," "std::allocator< std::pair< int const,CdiTaxis > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiTaxis_Sg__iterator(std::map< int,CdiTaxis > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiTaxis_Sg____nonzero__(std::map< int,CdiTaxis > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiTaxis_Sg____bool__(std::map< int,CdiTaxis > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::map< int,CdiTaxis >::size_type std_map_Sl_int_Sc_CdiTaxis_Sg____len__(std::map< int,CdiTaxis > const *self){
+ return self->size();
+ }
+SWIGINTERN std::map< int,CdiTaxis >::mapped_type const &std_map_Sl_int_Sc_CdiTaxis_Sg____getitem__(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::key_type const &key){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->find(key);
+ if (i != self->end())
+ return i->second;
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiTaxis_Sg____delitem__(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::key_type const &key){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator i = self->find(key);
+ if (i != self->end())
+ self->erase(i);
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiTaxis_Sg__has_key(std::map< int,CdiTaxis > const *self,std::map< int,CdiTaxis >::key_type const &key){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiTaxis_Sg__keys(std::map< int,CdiTaxis > *self){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* keyList = PyList_New(pysize);
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(keyList, j, swig::from(i->first));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return keyList;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiTaxis_Sg__values(std::map< int,CdiTaxis > *self){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* valList = PyList_New(pysize);
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(valList, j, swig::from(i->second));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return valList;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiTaxis_Sg__items(std::map< int,CdiTaxis > *self){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* itemList = PyList_New(pysize);
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(itemList, j, swig::from(*i));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return itemList;
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiTaxis_Sg____contains__(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiTaxis_Sg__key_iterator(std::map< int,CdiTaxis > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiTaxis_Sg__value_iterator(std::map< int,CdiTaxis > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiTaxis_Sg____setitem____SWIG_0(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::key_type const &key){
+ self->erase(key);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiTaxis_Sg____setitem____SWIG_1(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::key_type const &key,std::map< int,CdiTaxis >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiTaxis_Sg__asdict(std::map< int,CdiTaxis > *self){
+ return swig::traits_from< std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > >::asdict(*self);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiTaxis_Sg__erase__SWIG_1(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_int_Sc_CdiTaxis_Sg__erase__SWIG_2(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::iterator first,std::map< int,CdiTaxis >::iterator last){ self->erase(first, last); }
+
+ namespace swig {
+ template <> struct traits< CdiZaxis > {
+ typedef pointer_category category;
+ static const char* type_name() { return"CdiZaxis"; }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::pair< int, CdiZaxis > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "int" "," "CdiZaxis" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< int, CdiZaxis, std::less< int >, std::allocator< std::pair< int const,CdiZaxis > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "int" "," "CdiZaxis" "," "std::less< int >" "," "std::allocator< std::pair< int const,CdiZaxis > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiZaxis_Sg__iterator(std::map< int,CdiZaxis > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiZaxis_Sg____nonzero__(std::map< int,CdiZaxis > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiZaxis_Sg____bool__(std::map< int,CdiZaxis > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::map< int,CdiZaxis >::size_type std_map_Sl_int_Sc_CdiZaxis_Sg____len__(std::map< int,CdiZaxis > const *self){
+ return self->size();
+ }
+SWIGINTERN std::map< int,CdiZaxis >::mapped_type const &std_map_Sl_int_Sc_CdiZaxis_Sg____getitem__(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::key_type const &key){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->find(key);
+ if (i != self->end())
+ return i->second;
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiZaxis_Sg____delitem__(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::key_type const &key){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator i = self->find(key);
+ if (i != self->end())
+ self->erase(i);
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiZaxis_Sg__has_key(std::map< int,CdiZaxis > const *self,std::map< int,CdiZaxis >::key_type const &key){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiZaxis_Sg__keys(std::map< int,CdiZaxis > *self){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* keyList = PyList_New(pysize);
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(keyList, j, swig::from(i->first));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return keyList;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiZaxis_Sg__values(std::map< int,CdiZaxis > *self){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* valList = PyList_New(pysize);
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(valList, j, swig::from(i->second));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return valList;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiZaxis_Sg__items(std::map< int,CdiZaxis > *self){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* itemList = PyList_New(pysize);
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(itemList, j, swig::from(*i));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return itemList;
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiZaxis_Sg____contains__(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiZaxis_Sg__key_iterator(std::map< int,CdiZaxis > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiZaxis_Sg__value_iterator(std::map< int,CdiZaxis > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiZaxis_Sg____setitem____SWIG_0(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::key_type const &key){
+ self->erase(key);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiZaxis_Sg____setitem____SWIG_1(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::key_type const &key,std::map< int,CdiZaxis >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiZaxis_Sg__asdict(std::map< int,CdiZaxis > *self){
+ return swig::traits_from< std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > >::asdict(*self);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiZaxis_Sg__erase__SWIG_1(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_int_Sc_CdiZaxis_Sg__erase__SWIG_2(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::iterator first,std::map< int,CdiZaxis >::iterator last){ self->erase(first, last); }
+
+ namespace swig {
+ template <> struct traits< CdiGrid > {
+ typedef pointer_category category;
+ static const char* type_name() { return"CdiGrid"; }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::pair< int, CdiGrid > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "int" "," "CdiGrid" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< int, CdiGrid, std::less< int >, std::allocator< std::pair< int const,CdiGrid > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "int" "," "CdiGrid" "," "std::less< int >" "," "std::allocator< std::pair< int const,CdiGrid > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiGrid_Sg__iterator(std::map< int,CdiGrid > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiGrid_Sg____nonzero__(std::map< int,CdiGrid > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiGrid_Sg____bool__(std::map< int,CdiGrid > const *self){
+ return !(self->empty());
+ }
+SWIGINTERN std::map< int,CdiGrid >::size_type std_map_Sl_int_Sc_CdiGrid_Sg____len__(std::map< int,CdiGrid > const *self){
+ return self->size();
+ }
+SWIGINTERN std::map< int,CdiGrid >::mapped_type const &std_map_Sl_int_Sc_CdiGrid_Sg____getitem__(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::key_type const &key){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->find(key);
+ if (i != self->end())
+ return i->second;
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiGrid_Sg____delitem__(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::key_type const &key){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator i = self->find(key);
+ if (i != self->end())
+ self->erase(i);
+ else
+ throw std::out_of_range("key not found");
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiGrid_Sg__has_key(std::map< int,CdiGrid > const *self,std::map< int,CdiGrid >::key_type const &key){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiGrid_Sg__keys(std::map< int,CdiGrid > *self){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* keyList = PyList_New(pysize);
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(keyList, j, swig::from(i->first));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return keyList;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiGrid_Sg__values(std::map< int,CdiGrid > *self){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* valList = PyList_New(pysize);
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(valList, j, swig::from(i->second));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return valList;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiGrid_Sg__items(std::map< int,CdiGrid > *self){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type size = self->size();
+ Py_ssize_t pysize = (size <= (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type) INT_MAX) ? (Py_ssize_t) size : -1;
+ SWIG_PYTHON_THREAD_BEGIN_BLOCK;
+ if (pysize < 0) {
+ PyErr_SetString(PyExc_OverflowError, "map size not valid in python");
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return NULL;
+ }
+ PyObject* itemList = PyList_New(pysize);
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->begin();
+ for (Py_ssize_t j = 0; j < pysize; ++i, ++j) {
+ PyList_SET_ITEM(itemList, j, swig::from(*i));
+ }
+ SWIG_PYTHON_THREAD_END_BLOCK;
+ return itemList;
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiGrid_Sg____contains__(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiGrid_Sg__key_iterator(std::map< int,CdiGrid > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN swig::SwigPyIterator *std_map_Sl_int_Sc_CdiGrid_Sg__value_iterator(std::map< int,CdiGrid > *self,PyObject **PYTHON_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(), self->end(), *PYTHON_SELF);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiGrid_Sg____setitem____SWIG_0(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::key_type const &key){
+ self->erase(key);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiGrid_Sg____setitem____SWIG_1(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::key_type const &key,std::map< int,CdiGrid >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN PyObject *std_map_Sl_int_Sc_CdiGrid_Sg__asdict(std::map< int,CdiGrid > *self){
+ return swig::traits_from< std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > >::asdict(*self);
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiGrid_Sg__erase__SWIG_1(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_int_Sc_CdiGrid_Sg__erase__SWIG_2(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::iterator first,std::map< int,CdiGrid >::iterator last){ self->erase(first, last); }
+
+SWIGINTERN int
+SWIG_AsVal_bool (PyObject *obj, bool *val)
+{
+ int r;
+ if (!PyBool_Check(obj))
+ return SWIG_ERROR;
+ r = PyObject_IsTrue(obj);
+ if (r == -1)
+ return SWIG_ERROR;
+ if (val) *val = r ? true : false;
+ return SWIG_OK;
+}
+
+
+SWIGINTERN int
+SWIG_AsCharArray(PyObject * obj, char *val, size_t size)
+{
+ char* cptr = 0; size_t csize = 0; int alloc = SWIG_OLDOBJ;
+ int res = SWIG_AsCharPtrAndSize(obj, &cptr, &csize, &alloc);
+ if (SWIG_IsOK(res)) {
+ /* special case of single char conversion when we don't need space for NUL */
+ if (size == 1 && csize == 2 && cptr && !cptr[1]) --csize;
+ if (csize <= size) {
+ if (val) {
+ if (csize) memcpy(val, cptr, csize*sizeof(char));
+ if (csize < size) memset(val + csize, 0, (size - csize)*sizeof(char));
+ }
+ if (alloc == SWIG_NEWOBJ) {
+ delete[] cptr;
+ res = SWIG_DelNewMask(res);
+ }
+ return res;
+ }
+ if (alloc == SWIG_NEWOBJ) delete[] cptr;
+ }
+ return SWIG_TypeError;
+}
+
+
+SWIGINTERN size_t
+SWIG_strnlen(const char* s, size_t maxlen)
+{
+ const char *p;
+ for (p = s; maxlen-- && *p; p++)
+ ;
+ return p - s;
+}
+
+
+
+
+
+SWIGINTERNINLINE PyObject *
+SWIG_FromCharPtr(const char *cptr)
+{
+ return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
+}
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+SWIGINTERN PyObject *_wrap_delete_SwigPyIterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_SwigPyIterator" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_value(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_value" "', argument " "1"" of type '" "swig::SwigPyIterator const *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ try {
+ result = (PyObject *)((swig::SwigPyIterator const *)arg1)->value();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_incr__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ size_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_incr" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "SwigPyIterator_incr" "', argument " "2"" of type '" "size_t""'");
+ }
+ arg2 = static_cast< size_t >(val2);
+ try {
+ result = (swig::SwigPyIterator *)(arg1)->incr(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_incr__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_incr" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ try {
+ result = (swig::SwigPyIterator *)(arg1)->incr();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_incr(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "SwigPyIterator_incr", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__SwigPyIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_SwigPyIterator_incr__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__SwigPyIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_SwigPyIterator_incr__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'SwigPyIterator_incr'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " swig::SwigPyIterator::incr(size_t)\n"
+ " swig::SwigPyIterator::incr()\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_decr__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ size_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_decr" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "SwigPyIterator_decr" "', argument " "2"" of type '" "size_t""'");
+ }
+ arg2 = static_cast< size_t >(val2);
+ try {
+ result = (swig::SwigPyIterator *)(arg1)->decr(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_decr__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_decr" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ try {
+ result = (swig::SwigPyIterator *)(arg1)->decr();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_decr(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "SwigPyIterator_decr", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__SwigPyIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_SwigPyIterator_decr__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__SwigPyIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_SwigPyIterator_decr__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'SwigPyIterator_decr'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " swig::SwigPyIterator::decr(size_t)\n"
+ " swig::SwigPyIterator::decr()\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_distance(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ swig::SwigPyIterator *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+ ptrdiff_t result;
+
+ if (!SWIG_Python_UnpackTuple(args, "SwigPyIterator_distance", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_distance" "', argument " "1"" of type '" "swig::SwigPyIterator const *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_swig__SwigPyIterator, 0 | 0);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "SwigPyIterator_distance" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "SwigPyIterator_distance" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ arg2 = reinterpret_cast< swig::SwigPyIterator * >(argp2);
+ try {
+ result = ((swig::SwigPyIterator const *)arg1)->distance((swig::SwigPyIterator const &)*arg2);
+ } catch(std::invalid_argument &_e) {
+ SWIG_Python_Raise(SWIG_NewPointerObj((new std::invalid_argument(static_cast< const std::invalid_argument& >(_e))),SWIGTYPE_p_std__invalid_argument,SWIG_POINTER_OWN), "std::invalid_argument", SWIGTYPE_p_std__invalid_argument); SWIG_fail;
+ }
+ resultobj = SWIG_From_ptrdiff_t(static_cast< ptrdiff_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_equal(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ swig::SwigPyIterator *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "SwigPyIterator_equal", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_equal" "', argument " "1"" of type '" "swig::SwigPyIterator const *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_swig__SwigPyIterator, 0 | 0);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "SwigPyIterator_equal" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "SwigPyIterator_equal" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ arg2 = reinterpret_cast< swig::SwigPyIterator * >(argp2);
+ try {
+ result = (bool)((swig::SwigPyIterator const *)arg1)->equal((swig::SwigPyIterator const &)*arg2);
+ } catch(std::invalid_argument &_e) {
+ SWIG_Python_Raise(SWIG_NewPointerObj((new std::invalid_argument(static_cast< const std::invalid_argument& >(_e))),SWIGTYPE_p_std__invalid_argument,SWIG_POINTER_OWN), "std::invalid_argument", SWIGTYPE_p_std__invalid_argument); SWIG_fail;
+ }
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_copy(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_copy" "', argument " "1"" of type '" "swig::SwigPyIterator const *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ result = (swig::SwigPyIterator *)((swig::SwigPyIterator const *)arg1)->copy();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_next(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_next" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ try {
+ result = (PyObject *)(arg1)->next();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator___next__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator___next__" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ try {
+ result = (PyObject *)(arg1)->__next__();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_previous(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_previous" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ try {
+ result = (PyObject *)(arg1)->previous();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator_advance(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ ptrdiff_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "SwigPyIterator_advance", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator_advance" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "SwigPyIterator_advance" "', argument " "2"" of type '" "ptrdiff_t""'");
+ }
+ arg2 = static_cast< ptrdiff_t >(val2);
+ try {
+ result = (swig::SwigPyIterator *)(arg1)->advance(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator___eq__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ swig::SwigPyIterator *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "SwigPyIterator___eq__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator___eq__" "', argument " "1"" of type '" "swig::SwigPyIterator const *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_swig__SwigPyIterator, 0 | 0);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "SwigPyIterator___eq__" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "SwigPyIterator___eq__" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ arg2 = reinterpret_cast< swig::SwigPyIterator * >(argp2);
+ result = (bool)((swig::SwigPyIterator const *)arg1)->operator ==((swig::SwigPyIterator const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ PyErr_Clear();
+ Py_INCREF(Py_NotImplemented);
+ return Py_NotImplemented;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator___ne__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ swig::SwigPyIterator *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "SwigPyIterator___ne__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator___ne__" "', argument " "1"" of type '" "swig::SwigPyIterator const *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_swig__SwigPyIterator, 0 | 0);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "SwigPyIterator___ne__" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "SwigPyIterator___ne__" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ arg2 = reinterpret_cast< swig::SwigPyIterator * >(argp2);
+ result = (bool)((swig::SwigPyIterator const *)arg1)->operator !=((swig::SwigPyIterator const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ PyErr_Clear();
+ Py_INCREF(Py_NotImplemented);
+ return Py_NotImplemented;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator___iadd__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ ptrdiff_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "SwigPyIterator___iadd__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator___iadd__" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "SwigPyIterator___iadd__" "', argument " "2"" of type '" "ptrdiff_t""'");
+ }
+ arg2 = static_cast< ptrdiff_t >(val2);
+ try {
+ result = (swig::SwigPyIterator *) &(arg1)->operator +=(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator___isub__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ ptrdiff_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "SwigPyIterator___isub__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator___isub__" "', argument " "1"" of type '" "swig::SwigPyIterator *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "SwigPyIterator___isub__" "', argument " "2"" of type '" "ptrdiff_t""'");
+ }
+ arg2 = static_cast< ptrdiff_t >(val2);
+ try {
+ result = (swig::SwigPyIterator *) &(arg1)->operator -=(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator___add__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ ptrdiff_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "SwigPyIterator___add__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator___add__" "', argument " "1"" of type '" "swig::SwigPyIterator const *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "SwigPyIterator___add__" "', argument " "2"" of type '" "ptrdiff_t""'");
+ }
+ arg2 = static_cast< ptrdiff_t >(val2);
+ try {
+ result = (swig::SwigPyIterator *)((swig::SwigPyIterator const *)arg1)->operator +(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ PyErr_Clear();
+ Py_INCREF(Py_NotImplemented);
+ return Py_NotImplemented;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator___sub____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ ptrdiff_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ swig::SwigPyIterator *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator___sub__" "', argument " "1"" of type '" "swig::SwigPyIterator const *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "SwigPyIterator___sub__" "', argument " "2"" of type '" "ptrdiff_t""'");
+ }
+ arg2 = static_cast< ptrdiff_t >(val2);
+ try {
+ result = (swig::SwigPyIterator *)((swig::SwigPyIterator const *)arg1)->operator -(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_SetErrorObj(PyExc_StopIteration, SWIG_Py_Void());
+ SWIG_fail;
+ }
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ PyErr_Clear();
+ Py_INCREF(Py_NotImplemented);
+ return Py_NotImplemented;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator___sub____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ swig::SwigPyIterator *arg1 = (swig::SwigPyIterator *) 0 ;
+ swig::SwigPyIterator *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ ptrdiff_t result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_swig__SwigPyIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "SwigPyIterator___sub__" "', argument " "1"" of type '" "swig::SwigPyIterator const *""'");
+ }
+ arg1 = reinterpret_cast< swig::SwigPyIterator * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_swig__SwigPyIterator, 0 | 0);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "SwigPyIterator___sub__" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "SwigPyIterator___sub__" "', argument " "2"" of type '" "swig::SwigPyIterator const &""'");
+ }
+ arg2 = reinterpret_cast< swig::SwigPyIterator * >(argp2);
+ result = ((swig::SwigPyIterator const *)arg1)->operator -((swig::SwigPyIterator const &)*arg2);
+ resultobj = SWIG_From_ptrdiff_t(static_cast< ptrdiff_t >(result));
+ return resultobj;
+fail:
+ PyErr_Clear();
+ Py_INCREF(Py_NotImplemented);
+ return Py_NotImplemented;
+}
+
+
+SWIGINTERN PyObject *_wrap_SwigPyIterator___sub__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "SwigPyIterator___sub__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__SwigPyIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[1], 0, SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_SwigPyIterator___sub____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__SwigPyIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_SwigPyIterator___sub____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ Py_INCREF(Py_NotImplemented);
+ return Py_NotImplemented;
+}
+
+
+SWIGINTERN PyObject *SwigPyIterator_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_swig__SwigPyIterator, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *_wrap_IntVector_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_iterator" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (swig::SwigPyIterator *)std_vector_Sl_int_Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___nonzero__" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (bool)std_vector_Sl_int_Sg____nonzero__((std::vector< int > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___bool__" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (bool)std_vector_Sl_int_Sg____bool__((std::vector< int > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___len__" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = std_vector_Sl_int_Sg____len__((std::vector< int > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___getslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ std::vector< int >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "IntVector___getslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___getslice__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector___getslice__" "', argument " "2"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "IntVector___getslice__" "', argument " "3"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< int >::difference_type >(val3);
+ try {
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg____getslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___setslice____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ std::vector< int >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___setslice__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector___setslice__" "', argument " "2"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "IntVector___setslice__" "', argument " "3"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< int >::difference_type >(val3);
+ try {
+ std_vector_Sl_int_Sg____setslice____SWIG_0(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___setslice____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ std::vector< int >::difference_type arg3 ;
+ std::vector< int,std::allocator< int > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___setslice__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector___setslice__" "', argument " "2"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "IntVector___setslice__" "', argument " "3"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< int >::difference_type >(val3);
+ {
+ std::vector< int,std::allocator< int > > *ptr = (std::vector< int,std::allocator< int > > *)0;
+ res4 = swig::asptr(swig_obj[3], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "IntVector___setslice__" "', argument " "4"" of type '" "std::vector< int,std::allocator< int > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "IntVector___setslice__" "', argument " "4"" of type '" "std::vector< int,std::allocator< int > > const &""'");
+ }
+ arg4 = ptr;
+ }
+ try {
+ std_vector_Sl_int_Sg____setslice____SWIG_1(arg1,arg2,arg3,(std::vector< int,std::allocator< int > > const &)*arg4);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___setslice__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "IntVector___setslice__", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector___setslice____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_IntVector___setslice____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'IntVector___setslice__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< int >::__setslice__(std::vector< int >::difference_type,std::vector< int >::difference_type)\n"
+ " std::vector< int >::__setslice__(std::vector< int >::difference_type,std::vector< int >::difference_type,std::vector< int,std::allocator< int > > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___delslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ std::vector< int >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "IntVector___delslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___delslice__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector___delslice__" "', argument " "2"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "IntVector___delslice__" "', argument " "3"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< int >::difference_type >(val3);
+ try {
+ std_vector_Sl_int_Sg____delslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___delitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___delitem__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector___delitem__" "', argument " "2"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ try {
+ std_vector_Sl_int_Sg____delitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___getitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___getitem__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector___getitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg____getitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ std::vector< int,std::allocator< int > > *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___setitem__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ {
+ std::vector< int,std::allocator< int > > *ptr = (std::vector< int,std::allocator< int > > *)0;
+ res3 = swig::asptr(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "IntVector___setitem__" "', argument " "3"" of type '" "std::vector< int,std::allocator< int > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "IntVector___setitem__" "', argument " "3"" of type '" "std::vector< int,std::allocator< int > > const &""'");
+ }
+ arg3 = ptr;
+ }
+ try {
+ std_vector_Sl_int_Sg____setitem____SWIG_0(arg1,arg2,(std::vector< int,std::allocator< int > > const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___setitem__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_int_Sg____setitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___delitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___delitem__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector___delitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_int_Sg____delitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___delitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "IntVector___delitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_IntVector___delitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector___delitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'IntVector___delitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< int >::__delitem__(std::vector< int >::difference_type)\n"
+ " std::vector< int >::__delitem__(PySliceObject *)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___getitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< int >::value_type *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___getitem__" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector___getitem__" "', argument " "2"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ try {
+ result = (std::vector< int >::value_type *) &std_vector_Sl_int_Sg____getitem____SWIG_1((std::vector< int > const *)arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_From_int(static_cast< int >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< int >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___getitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "IntVector___getitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_IntVector___getitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector___getitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'IntVector___getitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< int >::__getitem__(PySliceObject *)\n"
+ " std::vector< int >::__getitem__(std::vector< int >::difference_type) const\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___setitem____SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ std::vector< int >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< int >::value_type temp3 ;
+ int val3 ;
+ int ecode3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector___setitem__" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector___setitem__" "', argument " "2"" of type '" "std::vector< int >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_int(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "IntVector___setitem__" "', argument " "3"" of type '" "std::vector< int >::value_type""'");
+ }
+ temp3 = static_cast< std::vector< int >::value_type >(val3);
+ arg3 = &temp3;
+ try {
+ std_vector_Sl_int_Sg____setitem____SWIG_2(arg1,arg2,(int const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "IntVector___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_IntVector___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_IntVector___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector___setitem____SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'IntVector___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< int >::__setitem__(PySliceObject *,std::vector< int,std::allocator< int > > const &)\n"
+ " std::vector< int >::__setitem__(PySliceObject *)\n"
+ " std::vector< int >::__setitem__(std::vector< int >::difference_type,std::vector< int >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_pop(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::value_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_pop" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ try {
+ result = (std::vector< int >::value_type)std_vector_Sl_int_Sg__pop(arg1);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_append(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::value_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "IntVector_append", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_append" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector_append" "', argument " "2"" of type '" "std::vector< int >::value_type""'");
+ }
+ temp2 = static_cast< std::vector< int >::value_type >(val2);
+ arg2 = &temp2;
+ std_vector_Sl_int_Sg__append(arg1,(int const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_IntVector__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::vector< int > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::vector< int > *)new std::vector< int >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_IntVector__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< int > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::vector< int,std::allocator< int > > *ptr = (std::vector< int,std::allocator< int > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_IntVector" "', argument " "1"" of type '" "std::vector< int > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_IntVector" "', argument " "1"" of type '" "std::vector< int > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< int > *)new std::vector< int >((std::vector< int > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_empty" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (bool)((std::vector< int > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_size" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = ((std::vector< int > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "IntVector_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_swap" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "IntVector_swap" "', argument " "2"" of type '" "std::vector< int > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "IntVector_swap" "', argument " "2"" of type '" "std::vector< int > &""'");
+ }
+ arg2 = reinterpret_cast< std::vector< int > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_begin" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< int >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_end" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< int >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_rbegin" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< int >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_rend" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< int >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_clear" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< int > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_get_allocator" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = ((std::vector< int > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::vector< int >::allocator_type(static_cast< const std::vector< int >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_int_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_IntVector__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< int > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_IntVector" "', argument " "1"" of type '" "std::vector< int >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< int >::size_type >(val1);
+ result = (std::vector< int > *)new std::vector< int >(arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_pop_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_pop_back" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ (arg1)->pop_back();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_resize__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_resize" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector_resize" "', argument " "2"" of type '" "std::vector< int >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::size_type >(val2);
+ (arg1)->resize(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< int >::iterator result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_erase" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_erase" "', argument " "2"" of type '" "std::vector< int >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_erase" "', argument " "2"" of type '" "std::vector< int >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_int_Sg__erase__SWIG_0(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< int >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::iterator arg2 ;
+ std::vector< int >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< int >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_erase" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_erase" "', argument " "2"" of type '" "std::vector< int >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_erase" "', argument " "2"" of type '" "std::vector< int >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_erase" "', argument " "3"" of type '" "std::vector< int >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_erase" "', argument " "3"" of type '" "std::vector< int >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_int_Sg__erase__SWIG_1(arg1,arg2,arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< int >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "IntVector_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_IntVector_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_IntVector_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'IntVector_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< int >::erase(std::vector< int >::iterator)\n"
+ " std::vector< int >::erase(std::vector< int >::iterator,std::vector< int >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_IntVector__SWIG_3(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int >::size_type arg1 ;
+ std::vector< int >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< int >::value_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::vector< int > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_IntVector" "', argument " "1"" of type '" "std::vector< int >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< int >::size_type >(val1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "new_IntVector" "', argument " "2"" of type '" "std::vector< int >::value_type""'");
+ }
+ temp2 = static_cast< std::vector< int >::value_type >(val2);
+ arg2 = &temp2;
+ result = (std::vector< int > *)new std::vector< int >(arg1,(std::vector< int >::value_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_IntVector(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_IntVector", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_IntVector__SWIG_0(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_IntVector__SWIG_2(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_IntVector__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_IntVector__SWIG_3(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_IntVector'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< int >::vector()\n"
+ " std::vector< int >::vector(std::vector< int > const &)\n"
+ " std::vector< int >::vector(std::vector< int >::size_type)\n"
+ " std::vector< int >::vector(std::vector< int >::size_type,std::vector< int >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_push_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::value_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "IntVector_push_back", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_push_back" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector_push_back" "', argument " "2"" of type '" "std::vector< int >::value_type""'");
+ }
+ temp2 = static_cast< std::vector< int >::value_type >(val2);
+ arg2 = &temp2;
+ (arg1)->push_back((std::vector< int >::value_type const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_front(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_front" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int >::value_type *) &((std::vector< int > const *)arg1)->front();
+ resultobj = SWIG_From_int(static_cast< int >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< int >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_back" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int >::value_type *) &((std::vector< int > const *)arg1)->back();
+ resultobj = SWIG_From_int(static_cast< int >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< int >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_assign(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::size_type arg2 ;
+ std::vector< int >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< int >::value_type temp3 ;
+ int val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "IntVector_assign", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_assign" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector_assign" "', argument " "2"" of type '" "std::vector< int >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::size_type >(val2);
+ ecode3 = SWIG_AsVal_int(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "IntVector_assign" "', argument " "3"" of type '" "std::vector< int >::value_type""'");
+ }
+ temp3 = static_cast< std::vector< int >::value_type >(val3);
+ arg3 = &temp3;
+ (arg1)->assign(arg2,(std::vector< int >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_resize__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::size_type arg2 ;
+ std::vector< int >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< int >::value_type temp3 ;
+ int val3 ;
+ int ecode3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_resize" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector_resize" "', argument " "2"" of type '" "std::vector< int >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::size_type >(val2);
+ ecode3 = SWIG_AsVal_int(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "IntVector_resize" "', argument " "3"" of type '" "std::vector< int >::value_type""'");
+ }
+ temp3 = static_cast< std::vector< int >::value_type >(val3);
+ arg3 = &temp3;
+ (arg1)->resize(arg2,(std::vector< int >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_resize(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "IntVector_resize", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector_resize__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector_resize__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'IntVector_resize'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< int >::resize(std::vector< int >::size_type)\n"
+ " std::vector< int >::resize(std::vector< int >::size_type,std::vector< int >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_insert__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::iterator arg2 ;
+ std::vector< int >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< int >::value_type temp3 ;
+ int val3 ;
+ int ecode3 = 0 ;
+ std::vector< int >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_insert" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_insert" "', argument " "2"" of type '" "std::vector< int >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_insert" "', argument " "2"" of type '" "std::vector< int >::iterator""'");
+ }
+ }
+ ecode3 = SWIG_AsVal_int(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "IntVector_insert" "', argument " "3"" of type '" "std::vector< int >::value_type""'");
+ }
+ temp3 = static_cast< std::vector< int >::value_type >(val3);
+ arg3 = &temp3;
+ result = std_vector_Sl_int_Sg__insert__SWIG_0(arg1,arg2,(int const &)*arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< int >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_insert__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::iterator arg2 ;
+ std::vector< int >::size_type arg3 ;
+ std::vector< int >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ std::vector< int >::value_type temp4 ;
+ int val4 ;
+ int ecode4 = 0 ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_insert" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_insert" "', argument " "2"" of type '" "std::vector< int >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "IntVector_insert" "', argument " "2"" of type '" "std::vector< int >::iterator""'");
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "IntVector_insert" "', argument " "3"" of type '" "std::vector< int >::size_type""'");
+ }
+ arg3 = static_cast< std::vector< int >::size_type >(val3);
+ ecode4 = SWIG_AsVal_int(swig_obj[3], &val4);
+ if (!SWIG_IsOK(ecode4)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "IntVector_insert" "', argument " "4"" of type '" "std::vector< int >::value_type""'");
+ }
+ temp4 = static_cast< std::vector< int >::value_type >(val4);
+ arg4 = &temp4;
+ std_vector_Sl_int_Sg__insert__SWIG_1(arg1,arg2,arg3,(int const &)*arg4);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_insert(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "IntVector_insert", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector_insert__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[3], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector_insert__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'IntVector_insert'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< int >::insert(std::vector< int >::iterator,std::vector< int >::value_type const &)\n"
+ " std::vector< int >::insert(std::vector< int >::iterator,std::vector< int >::size_type,std::vector< int >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_reserve(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "IntVector_reserve", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_reserve" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "IntVector_reserve" "', argument " "2"" of type '" "std::vector< int >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< int >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_IntVector_capacity(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "IntVector_capacity" "', argument " "1"" of type '" "std::vector< int > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = ((std::vector< int > const *)arg1)->capacity();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_IntVector(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_IntVector" "', argument " "1"" of type '" "std::vector< int > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *IntVector_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *IntVector_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_DoubleVector_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_iterator" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (swig::SwigPyIterator *)std_vector_Sl_double_Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___nonzero__" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (bool)std_vector_Sl_double_Sg____nonzero__((std::vector< double > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___bool__" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (bool)std_vector_Sl_double_Sg____bool__((std::vector< double > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___len__" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = std_vector_Sl_double_Sg____len__((std::vector< double > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___getslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ std::vector< double >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleVector___getslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___getslice__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector___getslice__" "', argument " "2"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleVector___getslice__" "', argument " "3"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< double >::difference_type >(val3);
+ try {
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg____getslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___setslice____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ std::vector< double >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___setslice__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector___setslice__" "', argument " "2"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleVector___setslice__" "', argument " "3"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< double >::difference_type >(val3);
+ try {
+ std_vector_Sl_double_Sg____setslice____SWIG_0(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___setslice____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ std::vector< double >::difference_type arg3 ;
+ std::vector< double,std::allocator< double > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___setslice__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector___setslice__" "', argument " "2"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleVector___setslice__" "', argument " "3"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< double >::difference_type >(val3);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res4 = swig::asptr(swig_obj[3], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "DoubleVector___setslice__" "', argument " "4"" of type '" "std::vector< double,std::allocator< double > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleVector___setslice__" "', argument " "4"" of type '" "std::vector< double,std::allocator< double > > const &""'");
+ }
+ arg4 = ptr;
+ }
+ try {
+ std_vector_Sl_double_Sg____setslice____SWIG_1(arg1,arg2,arg3,(std::vector< double,std::allocator< double > > const &)*arg4);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___setslice__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleVector___setslice__", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___setslice____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleVector___setslice____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleVector___setslice__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< double >::__setslice__(std::vector< double >::difference_type,std::vector< double >::difference_type)\n"
+ " std::vector< double >::__setslice__(std::vector< double >::difference_type,std::vector< double >::difference_type,std::vector< double,std::allocator< double > > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___delslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ std::vector< double >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleVector___delslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___delslice__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector___delslice__" "', argument " "2"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleVector___delslice__" "', argument " "3"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< double >::difference_type >(val3);
+ try {
+ std_vector_Sl_double_Sg____delslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___delitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___delitem__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector___delitem__" "', argument " "2"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ try {
+ std_vector_Sl_double_Sg____delitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___getitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___getitem__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector___getitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg____getitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ std::vector< double,std::allocator< double > > *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___setitem__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res3 = swig::asptr(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "DoubleVector___setitem__" "', argument " "3"" of type '" "std::vector< double,std::allocator< double > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleVector___setitem__" "', argument " "3"" of type '" "std::vector< double,std::allocator< double > > const &""'");
+ }
+ arg3 = ptr;
+ }
+ try {
+ std_vector_Sl_double_Sg____setitem____SWIG_0(arg1,arg2,(std::vector< double,std::allocator< double > > const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___setitem__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_double_Sg____setitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___delitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___delitem__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector___delitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_double_Sg____delitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___delitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleVector___delitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___delitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___delitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleVector___delitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< double >::__delitem__(std::vector< double >::difference_type)\n"
+ " std::vector< double >::__delitem__(PySliceObject *)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___getitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< double >::value_type *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___getitem__" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector___getitem__" "', argument " "2"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ try {
+ result = (std::vector< double >::value_type *) &std_vector_Sl_double_Sg____getitem____SWIG_1((std::vector< double > const *)arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_From_double(static_cast< double >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< double >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___getitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleVector___getitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___getitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___getitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleVector___getitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< double >::__getitem__(PySliceObject *)\n"
+ " std::vector< double >::__getitem__(std::vector< double >::difference_type) const\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___setitem____SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ std::vector< double >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< double >::value_type temp3 ;
+ double val3 ;
+ int ecode3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector___setitem__" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector___setitem__" "', argument " "2"" of type '" "std::vector< double >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_double(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleVector___setitem__" "', argument " "3"" of type '" "std::vector< double >::value_type""'");
+ }
+ temp3 = static_cast< std::vector< double >::value_type >(val3);
+ arg3 = &temp3;
+ try {
+ std_vector_Sl_double_Sg____setitem____SWIG_2(arg1,arg2,(double const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleVector___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleVector___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___setitem____SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleVector___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< double >::__setitem__(PySliceObject *,std::vector< double,std::allocator< double > > const &)\n"
+ " std::vector< double >::__setitem__(PySliceObject *)\n"
+ " std::vector< double >::__setitem__(std::vector< double >::difference_type,std::vector< double >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_pop(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::value_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_pop" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ try {
+ result = (std::vector< double >::value_type)std_vector_Sl_double_Sg__pop(arg1);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_From_double(static_cast< double >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_append(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::value_type temp2 ;
+ double val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleVector_append", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_append" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_double(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector_append" "', argument " "2"" of type '" "std::vector< double >::value_type""'");
+ }
+ temp2 = static_cast< std::vector< double >::value_type >(val2);
+ arg2 = &temp2;
+ std_vector_Sl_double_Sg__append(arg1,(double const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleVector__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::vector< double > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::vector< double > *)new std::vector< double >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleVector__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< double > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_DoubleVector" "', argument " "1"" of type '" "std::vector< double > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_DoubleVector" "', argument " "1"" of type '" "std::vector< double > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< double > *)new std::vector< double >((std::vector< double > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_empty" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (bool)((std::vector< double > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_size" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = ((std::vector< double > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleVector_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_swap" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "DoubleVector_swap" "', argument " "2"" of type '" "std::vector< double > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleVector_swap" "', argument " "2"" of type '" "std::vector< double > &""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_begin" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< double >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_end" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< double >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_rbegin" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< double >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_rend" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< double >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_clear" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< double > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_get_allocator" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = ((std::vector< double > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::vector< double >::allocator_type(static_cast< const std::vector< double >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_double_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleVector__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< double > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_DoubleVector" "', argument " "1"" of type '" "std::vector< double >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< double >::size_type >(val1);
+ result = (std::vector< double > *)new std::vector< double >(arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_pop_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_pop_back" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ (arg1)->pop_back();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_resize__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_resize" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector_resize" "', argument " "2"" of type '" "std::vector< double >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::size_type >(val2);
+ (arg1)->resize(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< double >::iterator result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_erase" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_erase" "', argument " "2"" of type '" "std::vector< double >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_erase" "', argument " "2"" of type '" "std::vector< double >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_double_Sg__erase__SWIG_0(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< double >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::iterator arg2 ;
+ std::vector< double >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< double >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_erase" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_erase" "', argument " "2"" of type '" "std::vector< double >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_erase" "', argument " "2"" of type '" "std::vector< double >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_erase" "', argument " "3"" of type '" "std::vector< double >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_erase" "', argument " "3"" of type '" "std::vector< double >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_double_Sg__erase__SWIG_1(arg1,arg2,arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< double >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleVector_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_DoubleVector_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_DoubleVector_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleVector_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< double >::erase(std::vector< double >::iterator)\n"
+ " std::vector< double >::erase(std::vector< double >::iterator,std::vector< double >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleVector__SWIG_3(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double >::size_type arg1 ;
+ std::vector< double >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< double >::value_type temp2 ;
+ double val2 ;
+ int ecode2 = 0 ;
+ std::vector< double > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_DoubleVector" "', argument " "1"" of type '" "std::vector< double >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< double >::size_type >(val1);
+ ecode2 = SWIG_AsVal_double(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "new_DoubleVector" "', argument " "2"" of type '" "std::vector< double >::value_type""'");
+ }
+ temp2 = static_cast< std::vector< double >::value_type >(val2);
+ arg2 = &temp2;
+ result = (std::vector< double > *)new std::vector< double >(arg1,(std::vector< double >::value_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleVector(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_DoubleVector", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_DoubleVector__SWIG_0(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_DoubleVector__SWIG_2(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_DoubleVector__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_DoubleVector__SWIG_3(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_DoubleVector'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< double >::vector()\n"
+ " std::vector< double >::vector(std::vector< double > const &)\n"
+ " std::vector< double >::vector(std::vector< double >::size_type)\n"
+ " std::vector< double >::vector(std::vector< double >::size_type,std::vector< double >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_push_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::value_type temp2 ;
+ double val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleVector_push_back", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_push_back" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_double(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector_push_back" "', argument " "2"" of type '" "std::vector< double >::value_type""'");
+ }
+ temp2 = static_cast< std::vector< double >::value_type >(val2);
+ arg2 = &temp2;
+ (arg1)->push_back((std::vector< double >::value_type const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_front(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_front" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double >::value_type *) &((std::vector< double > const *)arg1)->front();
+ resultobj = SWIG_From_double(static_cast< double >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< double >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_back" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double >::value_type *) &((std::vector< double > const *)arg1)->back();
+ resultobj = SWIG_From_double(static_cast< double >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< double >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_assign(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::size_type arg2 ;
+ std::vector< double >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< double >::value_type temp3 ;
+ double val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleVector_assign", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_assign" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector_assign" "', argument " "2"" of type '" "std::vector< double >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::size_type >(val2);
+ ecode3 = SWIG_AsVal_double(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleVector_assign" "', argument " "3"" of type '" "std::vector< double >::value_type""'");
+ }
+ temp3 = static_cast< std::vector< double >::value_type >(val3);
+ arg3 = &temp3;
+ (arg1)->assign(arg2,(std::vector< double >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_resize__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::size_type arg2 ;
+ std::vector< double >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< double >::value_type temp3 ;
+ double val3 ;
+ int ecode3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_resize" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector_resize" "', argument " "2"" of type '" "std::vector< double >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::size_type >(val2);
+ ecode3 = SWIG_AsVal_double(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleVector_resize" "', argument " "3"" of type '" "std::vector< double >::value_type""'");
+ }
+ temp3 = static_cast< std::vector< double >::value_type >(val3);
+ arg3 = &temp3;
+ (arg1)->resize(arg2,(std::vector< double >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_resize(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleVector_resize", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector_resize__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector_resize__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleVector_resize'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< double >::resize(std::vector< double >::size_type)\n"
+ " std::vector< double >::resize(std::vector< double >::size_type,std::vector< double >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_insert__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::iterator arg2 ;
+ std::vector< double >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< double >::value_type temp3 ;
+ double val3 ;
+ int ecode3 = 0 ;
+ std::vector< double >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_insert" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_insert" "', argument " "2"" of type '" "std::vector< double >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_insert" "', argument " "2"" of type '" "std::vector< double >::iterator""'");
+ }
+ }
+ ecode3 = SWIG_AsVal_double(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleVector_insert" "', argument " "3"" of type '" "std::vector< double >::value_type""'");
+ }
+ temp3 = static_cast< std::vector< double >::value_type >(val3);
+ arg3 = &temp3;
+ result = std_vector_Sl_double_Sg__insert__SWIG_0(arg1,arg2,(double const &)*arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< double >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_insert__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::iterator arg2 ;
+ std::vector< double >::size_type arg3 ;
+ std::vector< double >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ std::vector< double >::value_type temp4 ;
+ double val4 ;
+ int ecode4 = 0 ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_insert" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_insert" "', argument " "2"" of type '" "std::vector< double >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleVector_insert" "', argument " "2"" of type '" "std::vector< double >::iterator""'");
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleVector_insert" "', argument " "3"" of type '" "std::vector< double >::size_type""'");
+ }
+ arg3 = static_cast< std::vector< double >::size_type >(val3);
+ ecode4 = SWIG_AsVal_double(swig_obj[3], &val4);
+ if (!SWIG_IsOK(ecode4)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "DoubleVector_insert" "', argument " "4"" of type '" "std::vector< double >::value_type""'");
+ }
+ temp4 = static_cast< std::vector< double >::value_type >(val4);
+ arg4 = &temp4;
+ std_vector_Sl_double_Sg__insert__SWIG_1(arg1,arg2,arg3,(double const &)*arg4);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_insert(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleVector_insert", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector_insert__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[3], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector_insert__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleVector_insert'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< double >::insert(std::vector< double >::iterator,std::vector< double >::value_type const &)\n"
+ " std::vector< double >::insert(std::vector< double >::iterator,std::vector< double >::size_type,std::vector< double >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_reserve(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleVector_reserve", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_reserve" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleVector_reserve" "', argument " "2"" of type '" "std::vector< double >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< double >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleVector_capacity(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleVector_capacity" "', argument " "1"" of type '" "std::vector< double > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = ((std::vector< double > const *)arg1)->capacity();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_DoubleVector(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_DoubleVector" "', argument " "1"" of type '" "std::vector< double > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *DoubleVector_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *DoubleVector_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_iterator" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (swig::SwigPyIterator *)std_vector_Sl_std_vector_Sl_double_Sg__Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___nonzero__" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (bool)std_vector_Sl_std_vector_Sl_double_Sg__Sg____nonzero__((std::vector< std::vector< double > > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___bool__" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (bool)std_vector_Sl_std_vector_Sl_double_Sg__Sg____bool__((std::vector< std::vector< double > > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___len__" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = std_vector_Sl_std_vector_Sl_double_Sg__Sg____len__((std::vector< std::vector< double > > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___getslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ std::vector< std::vector< double > >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleDoubleVector___getslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___getslice__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector___getslice__" "', argument " "2"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleDoubleVector___getslice__" "', argument " "3"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< std::vector< double > >::difference_type >(val3);
+ try {
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)std_vector_Sl_std_vector_Sl_double_Sg__Sg____getslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___setslice____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ std::vector< std::vector< double > >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___setslice__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector___setslice__" "', argument " "2"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleDoubleVector___setslice__" "', argument " "3"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< std::vector< double > >::difference_type >(val3);
+ try {
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg____setslice____SWIG_0(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___setslice____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ std::vector< std::vector< double > >::difference_type arg3 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___setslice__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector___setslice__" "', argument " "2"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleDoubleVector___setslice__" "', argument " "3"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< std::vector< double > >::difference_type >(val3);
+ {
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *ptr = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)0;
+ res4 = swig::asptr(swig_obj[3], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "DoubleDoubleVector___setslice__" "', argument " "4"" of type '" "std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector___setslice__" "', argument " "4"" of type '" "std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &""'");
+ }
+ arg4 = ptr;
+ }
+ try {
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg____setslice____SWIG_1(arg1,arg2,arg3,(std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &)*arg4);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___setslice__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleDoubleVector___setslice__", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector___setslice____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector___setslice____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleDoubleVector___setslice__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::vector< double > >::__setslice__(std::vector< std::vector< double > >::difference_type,std::vector< std::vector< double > >::difference_type)\n"
+ " std::vector< std::vector< double > >::__setslice__(std::vector< std::vector< double > >::difference_type,std::vector< std::vector< double > >::difference_type,std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___delslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ std::vector< std::vector< double > >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleDoubleVector___delslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___delslice__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector___delslice__" "', argument " "2"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleDoubleVector___delslice__" "', argument " "3"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< std::vector< double > >::difference_type >(val3);
+ try {
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg____delslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___delitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___delitem__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector___delitem__" "', argument " "2"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ try {
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg____delitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___getitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___getitem__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector___getitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___setitem__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ {
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *ptr = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)0;
+ res3 = swig::asptr(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "DoubleDoubleVector___setitem__" "', argument " "3"" of type '" "std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector___setitem__" "', argument " "3"" of type '" "std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &""'");
+ }
+ arg3 = ptr;
+ }
+ try {
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_0(arg1,arg2,(std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___setitem__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___delitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___delitem__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector___delitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg____delitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___delitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleDoubleVector___delitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector___delitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector___delitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleDoubleVector___delitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::vector< double > >::__delitem__(std::vector< std::vector< double > >::difference_type)\n"
+ " std::vector< std::vector< double > >::__delitem__(PySliceObject *)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___getitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< std::vector< double > >::value_type *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___getitem__" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector___getitem__" "', argument " "2"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ try {
+ result = (std::vector< std::vector< double > >::value_type *) &std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_1((std::vector< std::vector< double > > const *)arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = swig::from(static_cast< std::vector< double,std::allocator< double > > >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< std::vector< double > >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___getitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleDoubleVector___getitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector___getitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector___getitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleDoubleVector___getitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::vector< double > >::__getitem__(PySliceObject *)\n"
+ " std::vector< std::vector< double > >::__getitem__(std::vector< std::vector< double > >::difference_type) const\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___setitem____SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ std::vector< std::vector< double > >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector___setitem__" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector___setitem__" "', argument " "2"" of type '" "std::vector< std::vector< double > >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res3 = swig::asptr(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "DoubleDoubleVector___setitem__" "', argument " "3"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector___setitem__" "', argument " "3"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ arg3 = ptr;
+ }
+ try {
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_2(arg1,arg2,(std::vector< double,std::allocator< double > > const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleDoubleVector___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector___setitem____SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleDoubleVector___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::vector< double > >::__setitem__(PySliceObject *,std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &)\n"
+ " std::vector< std::vector< double > >::__setitem__(PySliceObject *)\n"
+ " std::vector< std::vector< double > >::__setitem__(std::vector< std::vector< double > >::difference_type,std::vector< std::vector< double > >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_pop(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::value_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_pop" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ try {
+ result = std_vector_Sl_std_vector_Sl_double_Sg__Sg__pop(arg1);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = swig::from(static_cast< std::vector< double,std::allocator< double > > >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_append(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleDoubleVector_append", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_append" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res2 = swig::asptr(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "DoubleDoubleVector_append" "', argument " "2"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector_append" "', argument " "2"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg__append(arg1,(std::vector< double,std::allocator< double > > const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleDoubleVector__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::vector< std::vector< double > > *)new std::vector< std::vector< double > >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleDoubleVector__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double,std::allocator< double > > > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< std::vector< double > > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *ptr = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_DoubleDoubleVector" "', argument " "1"" of type '" "std::vector< std::vector< double,std::allocator< double > > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_DoubleDoubleVector" "', argument " "1"" of type '" "std::vector< std::vector< double,std::allocator< double > > > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< std::vector< double > > *)new std::vector< std::vector< double > >((std::vector< std::vector< double,std::allocator< double > > > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_empty" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (bool)((std::vector< std::vector< double > > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_size" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = ((std::vector< std::vector< double > > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double,std::allocator< double > > > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleDoubleVector_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_swap" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "DoubleDoubleVector_swap" "', argument " "2"" of type '" "std::vector< std::vector< double,std::allocator< double > > > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector_swap" "', argument " "2"" of type '" "std::vector< std::vector< double,std::allocator< double > > > &""'");
+ }
+ arg2 = reinterpret_cast< std::vector< std::vector< double,std::allocator< double > > > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_begin" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_end" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_rbegin" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::vector< double > >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_rend" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::vector< double > >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_clear" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< std::vector< double,std::allocator< double > > > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_get_allocator" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = ((std::vector< std::vector< double > > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::vector< std::vector< double > >::allocator_type(static_cast< const std::vector< std::vector< double > >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleDoubleVector__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< std::vector< double > > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_DoubleDoubleVector" "', argument " "1"" of type '" "std::vector< std::vector< double > >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< std::vector< double > >::size_type >(val1);
+ result = (std::vector< std::vector< double > > *)new std::vector< std::vector< double > >(arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_pop_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_pop_back" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ (arg1)->pop_back();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_resize__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_resize" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector_resize" "', argument " "2"" of type '" "std::vector< std::vector< double > >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::size_type >(val2);
+ (arg1)->resize(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< std::vector< double > >::iterator result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_erase" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_erase" "', argument " "2"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_erase" "', argument " "2"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_std_vector_Sl_double_Sg__Sg__erase__SWIG_0(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::iterator arg2 ;
+ std::vector< std::vector< double > >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< std::vector< double > >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_erase" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_erase" "', argument " "2"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_erase" "', argument " "2"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_erase" "', argument " "3"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_erase" "', argument " "3"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_std_vector_Sl_double_Sg__Sg__erase__SWIG_1(arg1,arg2,arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleDoubleVector_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_DoubleDoubleVector_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_DoubleDoubleVector_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleDoubleVector_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::vector< double > >::erase(std::vector< std::vector< double > >::iterator)\n"
+ " std::vector< std::vector< double > >::erase(std::vector< std::vector< double > >::iterator,std::vector< std::vector< double > >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleDoubleVector__SWIG_3(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > >::size_type arg1 ;
+ std::vector< std::vector< double > >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::vector< std::vector< double > > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_DoubleDoubleVector" "', argument " "1"" of type '" "std::vector< std::vector< double > >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< std::vector< double > >::size_type >(val1);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res2 = swig::asptr(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "new_DoubleDoubleVector" "', argument " "2"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_DoubleDoubleVector" "', argument " "2"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ result = (std::vector< std::vector< double > > *)new std::vector< std::vector< double > >(arg1,(std::vector< std::vector< double > >::value_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_DoubleDoubleVector(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_DoubleDoubleVector", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_DoubleDoubleVector__SWIG_0(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_DoubleDoubleVector__SWIG_2(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_DoubleDoubleVector__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[1], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_DoubleDoubleVector__SWIG_3(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_DoubleDoubleVector'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::vector< double > >::vector()\n"
+ " std::vector< std::vector< double > >::vector(std::vector< std::vector< double,std::allocator< double > > > const &)\n"
+ " std::vector< std::vector< double > >::vector(std::vector< std::vector< double > >::size_type)\n"
+ " std::vector< std::vector< double > >::vector(std::vector< std::vector< double > >::size_type,std::vector< std::vector< double > >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_push_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleDoubleVector_push_back", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_push_back" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res2 = swig::asptr(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "DoubleDoubleVector_push_back" "', argument " "2"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector_push_back" "', argument " "2"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ (arg1)->push_back((std::vector< std::vector< double > >::value_type const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_front(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_front" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (std::vector< std::vector< double > >::value_type *) &((std::vector< std::vector< double > > const *)arg1)->front();
+ resultobj = swig::from(static_cast< std::vector< double,std::allocator< double > > >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< std::vector< double > >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_back" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (std::vector< std::vector< double > >::value_type *) &((std::vector< std::vector< double > > const *)arg1)->back();
+ resultobj = swig::from(static_cast< std::vector< double,std::allocator< double > > >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< std::vector< double > >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_assign(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::size_type arg2 ;
+ std::vector< std::vector< double > >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleDoubleVector_assign", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_assign" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector_assign" "', argument " "2"" of type '" "std::vector< std::vector< double > >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::size_type >(val2);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res3 = swig::asptr(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "DoubleDoubleVector_assign" "', argument " "3"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector_assign" "', argument " "3"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ arg3 = ptr;
+ }
+ (arg1)->assign(arg2,(std::vector< std::vector< double > >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_resize__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::size_type arg2 ;
+ std::vector< std::vector< double > >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_resize" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector_resize" "', argument " "2"" of type '" "std::vector< std::vector< double > >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::size_type >(val2);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res3 = swig::asptr(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "DoubleDoubleVector_resize" "', argument " "3"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector_resize" "', argument " "3"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ arg3 = ptr;
+ }
+ (arg1)->resize(arg2,(std::vector< std::vector< double > >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_resize(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleDoubleVector_resize", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector_resize__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector_resize__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleDoubleVector_resize'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::vector< double > >::resize(std::vector< std::vector< double > >::size_type)\n"
+ " std::vector< std::vector< double > >::resize(std::vector< std::vector< double > >::size_type,std::vector< std::vector< double > >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_insert__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::iterator arg2 ;
+ std::vector< std::vector< double > >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ int res3 = SWIG_OLDOBJ ;
+ std::vector< std::vector< double > >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_insert" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_insert" "', argument " "2"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_insert" "', argument " "2"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ }
+ }
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res3 = swig::asptr(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "DoubleDoubleVector_insert" "', argument " "3"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector_insert" "', argument " "3"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ arg3 = ptr;
+ }
+ result = std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_0(arg1,arg2,(std::vector< double,std::allocator< double > > const &)*arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_insert__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::iterator arg2 ;
+ std::vector< std::vector< double > >::size_type arg3 ;
+ std::vector< std::vector< double > >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_insert" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_insert" "', argument " "2"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "DoubleDoubleVector_insert" "', argument " "2"" of type '" "std::vector< std::vector< double > >::iterator""'");
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "DoubleDoubleVector_insert" "', argument " "3"" of type '" "std::vector< std::vector< double > >::size_type""'");
+ }
+ arg3 = static_cast< std::vector< std::vector< double > >::size_type >(val3);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res4 = swig::asptr(swig_obj[3], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "DoubleDoubleVector_insert" "', argument " "4"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "DoubleDoubleVector_insert" "', argument " "4"" of type '" "std::vector< std::vector< double > >::value_type const &""'");
+ }
+ arg4 = ptr;
+ }
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_1(arg1,arg2,arg3,(std::vector< double,std::allocator< double > > const &)*arg4);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_insert(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "DoubleDoubleVector_insert", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector_insert__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector_insert__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'DoubleDoubleVector_insert'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::vector< double > >::insert(std::vector< std::vector< double > >::iterator,std::vector< std::vector< double > >::value_type const &)\n"
+ " std::vector< std::vector< double > >::insert(std::vector< std::vector< double > >::iterator,std::vector< std::vector< double > >::size_type,std::vector< std::vector< double > >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_reserve(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "DoubleDoubleVector_reserve", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_reserve" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "DoubleDoubleVector_reserve" "', argument " "2"" of type '" "std::vector< std::vector< double > >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_DoubleDoubleVector_capacity(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double > >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "DoubleDoubleVector_capacity" "', argument " "1"" of type '" "std::vector< std::vector< double > > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = ((std::vector< std::vector< double > > const *)arg1)->capacity();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_DoubleDoubleVector(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_DoubleDoubleVector" "', argument " "1"" of type '" "std::vector< std::vector< double > > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *DoubleDoubleVector_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *DoubleDoubleVector_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_StringVector_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_iterator" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (swig::SwigPyIterator *)std_vector_Sl_std_string_Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___nonzero__" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (bool)std_vector_Sl_std_string_Sg____nonzero__((std::vector< std::string > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___bool__" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (bool)std_vector_Sl_std_string_Sg____bool__((std::vector< std::string > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___len__" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = std_vector_Sl_std_string_Sg____len__((std::vector< std::string > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___getslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ std::vector< std::string >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "StringVector___getslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___getslice__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector___getslice__" "', argument " "2"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "StringVector___getslice__" "', argument " "3"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< std::string >::difference_type >(val3);
+ try {
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg____getslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___setslice____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ std::vector< std::string >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___setslice__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector___setslice__" "', argument " "2"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "StringVector___setslice__" "', argument " "3"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< std::string >::difference_type >(val3);
+ try {
+ std_vector_Sl_std_string_Sg____setslice____SWIG_0(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___setslice____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ std::vector< std::string >::difference_type arg3 ;
+ std::vector< std::string,std::allocator< std::string > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___setslice__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector___setslice__" "', argument " "2"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "StringVector___setslice__" "', argument " "3"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< std::string >::difference_type >(val3);
+ {
+ std::vector< std::string,std::allocator< std::string > > *ptr = (std::vector< std::string,std::allocator< std::string > > *)0;
+ res4 = swig::asptr(swig_obj[3], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "StringVector___setslice__" "', argument " "4"" of type '" "std::vector< std::string,std::allocator< std::string > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector___setslice__" "', argument " "4"" of type '" "std::vector< std::string,std::allocator< std::string > > const &""'");
+ }
+ arg4 = ptr;
+ }
+ try {
+ std_vector_Sl_std_string_Sg____setslice____SWIG_1(arg1,arg2,arg3,(std::vector< std::string,std::allocator< std::string > > const &)*arg4);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___setslice__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "StringVector___setslice__", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_StringVector___setslice____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector___setslice____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'StringVector___setslice__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::string >::__setslice__(std::vector< std::string >::difference_type,std::vector< std::string >::difference_type)\n"
+ " std::vector< std::string >::__setslice__(std::vector< std::string >::difference_type,std::vector< std::string >::difference_type,std::vector< std::string,std::allocator< std::string > > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___delslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ std::vector< std::string >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "StringVector___delslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___delslice__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector___delslice__" "', argument " "2"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "StringVector___delslice__" "', argument " "3"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< std::string >::difference_type >(val3);
+ try {
+ std_vector_Sl_std_string_Sg____delslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___delitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___delitem__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector___delitem__" "', argument " "2"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ try {
+ std_vector_Sl_std_string_Sg____delitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___getitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___getitem__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector___getitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg____getitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ std::vector< std::string,std::allocator< std::string > > *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___setitem__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ {
+ std::vector< std::string,std::allocator< std::string > > *ptr = (std::vector< std::string,std::allocator< std::string > > *)0;
+ res3 = swig::asptr(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "StringVector___setitem__" "', argument " "3"" of type '" "std::vector< std::string,std::allocator< std::string > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector___setitem__" "', argument " "3"" of type '" "std::vector< std::string,std::allocator< std::string > > const &""'");
+ }
+ arg3 = ptr;
+ }
+ try {
+ std_vector_Sl_std_string_Sg____setitem____SWIG_0(arg1,arg2,(std::vector< std::string,std::allocator< std::string > > const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___setitem__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_std_string_Sg____setitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___delitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___delitem__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector___delitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_std_string_Sg____delitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___delitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "StringVector___delitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_StringVector___delitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_StringVector___delitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'StringVector___delitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::string >::__delitem__(std::vector< std::string >::difference_type)\n"
+ " std::vector< std::string >::__delitem__(PySliceObject *)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___getitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< std::string >::value_type *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___getitem__" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector___getitem__" "', argument " "2"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ try {
+ result = (std::vector< std::string >::value_type *) &std_vector_Sl_std_string_Sg____getitem____SWIG_1((std::vector< std::string > const *)arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< std::string >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___getitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "StringVector___getitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_StringVector___getitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_StringVector___getitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'StringVector___getitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::string >::__getitem__(PySliceObject *)\n"
+ " std::vector< std::string >::__getitem__(std::vector< std::string >::difference_type) const\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___setitem____SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ std::vector< std::string >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector___setitem__" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector___setitem__" "', argument " "2"" of type '" "std::vector< std::string >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ {
+ std::string *ptr = (std::string *)0;
+ res3 = SWIG_AsPtr_std_string(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "StringVector___setitem__" "', argument " "3"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector___setitem__" "', argument " "3"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ arg3 = ptr;
+ }
+ try {
+ std_vector_Sl_std_string_Sg____setitem____SWIG_2(arg1,arg2,(std::string const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "StringVector___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_StringVector___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[2], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector___setitem____SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'StringVector___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::string >::__setitem__(PySliceObject *,std::vector< std::string,std::allocator< std::string > > const &)\n"
+ " std::vector< std::string >::__setitem__(PySliceObject *)\n"
+ " std::vector< std::string >::__setitem__(std::vector< std::string >::difference_type,std::vector< std::string >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_pop(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::value_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_pop" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ try {
+ result = std_vector_Sl_std_string_Sg__pop(arg1);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_From_std_string(static_cast< std::string >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_append(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "StringVector_append", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_append" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "StringVector_append" "', argument " "2"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector_append" "', argument " "2"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ std_vector_Sl_std_string_Sg__append(arg1,(std::string const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_StringVector__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::vector< std::string > *)new std::vector< std::string >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_StringVector__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< std::string > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::vector< std::string,std::allocator< std::string > > *ptr = (std::vector< std::string,std::allocator< std::string > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_StringVector" "', argument " "1"" of type '" "std::vector< std::string > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_StringVector" "', argument " "1"" of type '" "std::vector< std::string > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< std::string > *)new std::vector< std::string >((std::vector< std::string > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_empty" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (bool)((std::vector< std::string > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_size" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = ((std::vector< std::string > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "StringVector_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_swap" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "StringVector_swap" "', argument " "2"" of type '" "std::vector< std::string > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector_swap" "', argument " "2"" of type '" "std::vector< std::string > &""'");
+ }
+ arg2 = reinterpret_cast< std::vector< std::string > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_begin" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::string >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_end" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::string >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_rbegin" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::string >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_rend" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::string >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_clear" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< std::string > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_get_allocator" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = ((std::vector< std::string > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::vector< std::string >::allocator_type(static_cast< const std::vector< std::string >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__string_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_StringVector__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< std::string > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_StringVector" "', argument " "1"" of type '" "std::vector< std::string >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< std::string >::size_type >(val1);
+ result = (std::vector< std::string > *)new std::vector< std::string >(arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_pop_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_pop_back" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ (arg1)->pop_back();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_resize__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_resize" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector_resize" "', argument " "2"" of type '" "std::vector< std::string >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::size_type >(val2);
+ (arg1)->resize(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< std::string >::iterator result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_erase" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_erase" "', argument " "2"" of type '" "std::vector< std::string >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_erase" "', argument " "2"" of type '" "std::vector< std::string >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_std_string_Sg__erase__SWIG_0(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::string >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::iterator arg2 ;
+ std::vector< std::string >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< std::string >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_erase" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_erase" "', argument " "2"" of type '" "std::vector< std::string >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_erase" "', argument " "2"" of type '" "std::vector< std::string >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_erase" "', argument " "3"" of type '" "std::vector< std::string >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_erase" "', argument " "3"" of type '" "std::vector< std::string >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_std_string_Sg__erase__SWIG_1(arg1,arg2,arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::string >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "StringVector_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_StringVector_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_StringVector_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'StringVector_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::string >::erase(std::vector< std::string >::iterator)\n"
+ " std::vector< std::string >::erase(std::vector< std::string >::iterator,std::vector< std::string >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_StringVector__SWIG_3(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string >::size_type arg1 ;
+ std::vector< std::string >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::vector< std::string > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_StringVector" "', argument " "1"" of type '" "std::vector< std::string >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< std::string >::size_type >(val1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "new_StringVector" "', argument " "2"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_StringVector" "', argument " "2"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ result = (std::vector< std::string > *)new std::vector< std::string >(arg1,(std::vector< std::string >::value_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_StringVector(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_StringVector", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_StringVector__SWIG_0(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_StringVector__SWIG_2(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_StringVector__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[1], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_StringVector__SWIG_3(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_StringVector'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::string >::vector()\n"
+ " std::vector< std::string >::vector(std::vector< std::string > const &)\n"
+ " std::vector< std::string >::vector(std::vector< std::string >::size_type)\n"
+ " std::vector< std::string >::vector(std::vector< std::string >::size_type,std::vector< std::string >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_push_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "StringVector_push_back", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_push_back" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "StringVector_push_back" "', argument " "2"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector_push_back" "', argument " "2"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ (arg1)->push_back((std::vector< std::string >::value_type const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_front(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_front" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string >::value_type *) &((std::vector< std::string > const *)arg1)->front();
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< std::string >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_back" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string >::value_type *) &((std::vector< std::string > const *)arg1)->back();
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ (void)swig::container_owner<swig::traits<std::vector< std::string >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_assign(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::size_type arg2 ;
+ std::vector< std::string >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "StringVector_assign", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_assign" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector_assign" "', argument " "2"" of type '" "std::vector< std::string >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::size_type >(val2);
+ {
+ std::string *ptr = (std::string *)0;
+ res3 = SWIG_AsPtr_std_string(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "StringVector_assign" "', argument " "3"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector_assign" "', argument " "3"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ arg3 = ptr;
+ }
+ (arg1)->assign(arg2,(std::vector< std::string >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_resize__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::size_type arg2 ;
+ std::vector< std::string >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_resize" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector_resize" "', argument " "2"" of type '" "std::vector< std::string >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::size_type >(val2);
+ {
+ std::string *ptr = (std::string *)0;
+ res3 = SWIG_AsPtr_std_string(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "StringVector_resize" "', argument " "3"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector_resize" "', argument " "3"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ arg3 = ptr;
+ }
+ (arg1)->resize(arg2,(std::vector< std::string >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_resize(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "StringVector_resize", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_StringVector_resize__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[2], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector_resize__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'StringVector_resize'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::string >::resize(std::vector< std::string >::size_type)\n"
+ " std::vector< std::string >::resize(std::vector< std::string >::size_type,std::vector< std::string >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_insert__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::iterator arg2 ;
+ std::vector< std::string >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ int res3 = SWIG_OLDOBJ ;
+ std::vector< std::string >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_insert" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_insert" "', argument " "2"" of type '" "std::vector< std::string >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_insert" "', argument " "2"" of type '" "std::vector< std::string >::iterator""'");
+ }
+ }
+ {
+ std::string *ptr = (std::string *)0;
+ res3 = SWIG_AsPtr_std_string(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "StringVector_insert" "', argument " "3"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector_insert" "', argument " "3"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ arg3 = ptr;
+ }
+ result = std_vector_Sl_std_string_Sg__insert__SWIG_0(arg1,arg2,(std::string const &)*arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< std::string >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_insert__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::iterator arg2 ;
+ std::vector< std::string >::size_type arg3 ;
+ std::vector< std::string >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_insert" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_insert" "', argument " "2"" of type '" "std::vector< std::string >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "StringVector_insert" "', argument " "2"" of type '" "std::vector< std::string >::iterator""'");
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "StringVector_insert" "', argument " "3"" of type '" "std::vector< std::string >::size_type""'");
+ }
+ arg3 = static_cast< std::vector< std::string >::size_type >(val3);
+ {
+ std::string *ptr = (std::string *)0;
+ res4 = SWIG_AsPtr_std_string(swig_obj[3], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "StringVector_insert" "', argument " "4"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "StringVector_insert" "', argument " "4"" of type '" "std::vector< std::string >::value_type const &""'");
+ }
+ arg4 = ptr;
+ }
+ std_vector_Sl_std_string_Sg__insert__SWIG_1(arg1,arg2,arg3,(std::string const &)*arg4);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_insert(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "StringVector_insert", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[2], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector_insert__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[3], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector_insert__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'StringVector_insert'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< std::string >::insert(std::vector< std::string >::iterator,std::vector< std::string >::value_type const &)\n"
+ " std::vector< std::string >::insert(std::vector< std::string >::iterator,std::vector< std::string >::size_type,std::vector< std::string >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_reserve(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "StringVector_reserve", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_reserve" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "StringVector_reserve" "', argument " "2"" of type '" "std::vector< std::string >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< std::string >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_StringVector_capacity(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "StringVector_capacity" "', argument " "1"" of type '" "std::vector< std::string > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = ((std::vector< std::string > const *)arg1)->capacity();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_StringVector(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_StringVector" "', argument " "1"" of type '" "std::vector< std::string > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *StringVector_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *StringVector_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_VarsVector_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_iterator" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (swig::SwigPyIterator *)std_vector_Sl_CdiVariable_Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___nonzero__" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (bool)std_vector_Sl_CdiVariable_Sg____nonzero__((std::vector< CdiVariable > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___bool__" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (bool)std_vector_Sl_CdiVariable_Sg____bool__((std::vector< CdiVariable > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___len__" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = std_vector_Sl_CdiVariable_Sg____len__((std::vector< CdiVariable > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___getslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ std::vector< CdiVariable >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsVector___getslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___getslice__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector___getslice__" "', argument " "2"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "VarsVector___getslice__" "', argument " "3"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< CdiVariable >::difference_type >(val3);
+ try {
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)std_vector_Sl_CdiVariable_Sg____getslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___setslice____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ std::vector< CdiVariable >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___setslice__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector___setslice__" "', argument " "2"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "VarsVector___setslice__" "', argument " "3"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< CdiVariable >::difference_type >(val3);
+ try {
+ std_vector_Sl_CdiVariable_Sg____setslice____SWIG_0(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___setslice____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ std::vector< CdiVariable >::difference_type arg3 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___setslice__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector___setslice__" "', argument " "2"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "VarsVector___setslice__" "', argument " "3"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< CdiVariable >::difference_type >(val3);
+ {
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *ptr = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)0;
+ res4 = swig::asptr(swig_obj[3], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "VarsVector___setslice__" "', argument " "4"" of type '" "std::vector< CdiVariable,std::allocator< CdiVariable > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector___setslice__" "', argument " "4"" of type '" "std::vector< CdiVariable,std::allocator< CdiVariable > > const &""'");
+ }
+ arg4 = ptr;
+ }
+ try {
+ std_vector_Sl_CdiVariable_Sg____setslice____SWIG_1(arg1,arg2,arg3,(std::vector< CdiVariable,std::allocator< CdiVariable > > const &)*arg4);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___setslice__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsVector___setslice__", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsVector___setslice____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector___setslice____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsVector___setslice__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< CdiVariable >::__setslice__(std::vector< CdiVariable >::difference_type,std::vector< CdiVariable >::difference_type)\n"
+ " std::vector< CdiVariable >::__setslice__(std::vector< CdiVariable >::difference_type,std::vector< CdiVariable >::difference_type,std::vector< CdiVariable,std::allocator< CdiVariable > > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___delslice__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ std::vector< CdiVariable >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsVector___delslice__", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___delslice__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector___delslice__" "', argument " "2"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "VarsVector___delslice__" "', argument " "3"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg3 = static_cast< std::vector< CdiVariable >::difference_type >(val3);
+ try {
+ std_vector_Sl_CdiVariable_Sg____delslice__(arg1,arg2,arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___delitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___delitem__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector___delitem__" "', argument " "2"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ try {
+ std_vector_Sl_CdiVariable_Sg____delitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___getitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___getitem__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector___getitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)std_vector_Sl_CdiVariable_Sg____getitem____SWIG_0(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___setitem__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ {
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *ptr = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)0;
+ res3 = swig::asptr(swig_obj[2], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "VarsVector___setitem__" "', argument " "3"" of type '" "std::vector< CdiVariable,std::allocator< CdiVariable > > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector___setitem__" "', argument " "3"" of type '" "std::vector< CdiVariable,std::allocator< CdiVariable > > const &""'");
+ }
+ arg3 = ptr;
+ }
+ try {
+ std_vector_Sl_CdiVariable_Sg____setitem____SWIG_0(arg1,arg2,(std::vector< CdiVariable,std::allocator< CdiVariable > > const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___setitem__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector___setitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_CdiVariable_Sg____setitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___delitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ PySliceObject *arg2 = (PySliceObject *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___delitem__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ {
+ if (!PySlice_Check(swig_obj[1])) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector___delitem__" "', argument " "2"" of type '" "PySliceObject *""'");
+ }
+ arg2 = (PySliceObject *) swig_obj[1];
+ }
+ try {
+ std_vector_Sl_CdiVariable_Sg____delitem____SWIG_1(arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___delitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsVector___delitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_VarsVector___delitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsVector___delitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsVector___delitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< CdiVariable >::__delitem__(std::vector< CdiVariable >::difference_type)\n"
+ " std::vector< CdiVariable >::__delitem__(PySliceObject *)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___getitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< CdiVariable >::value_type *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___getitem__" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector___getitem__" "', argument " "2"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ try {
+ result = (std::vector< CdiVariable >::value_type *) &std_vector_Sl_CdiVariable_Sg____getitem____SWIG_1((std::vector< CdiVariable > const *)arg1,arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiVariable, 0 | 0 );
+ (void)swig::container_owner<swig::traits<std::vector< CdiVariable >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___getitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsVector___getitem__", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_VarsVector___getitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsVector___getitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsVector___getitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< CdiVariable >::__getitem__(PySliceObject *)\n"
+ " std::vector< CdiVariable >::__getitem__(std::vector< CdiVariable >::difference_type) const\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___setitem____SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ std::vector< CdiVariable >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector___setitem__" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector___setitem__" "', argument " "2"" of type '" "std::vector< CdiVariable >::difference_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "VarsVector___setitem__" "', argument " "3"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector___setitem__" "', argument " "3"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ arg3 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp3);
+ try {
+ std_vector_Sl_CdiVariable_Sg____setitem____SWIG_2(arg1,arg2,(CdiVariable const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsVector___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ return _wrap_VarsVector___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ _v = PySlice_Check(argv[1]);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[2], 0, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector___setitem____SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsVector___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< CdiVariable >::__setitem__(PySliceObject *,std::vector< CdiVariable,std::allocator< CdiVariable > > const &)\n"
+ " std::vector< CdiVariable >::__setitem__(PySliceObject *)\n"
+ " std::vector< CdiVariable >::__setitem__(std::vector< CdiVariable >::difference_type,std::vector< CdiVariable >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_pop(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::value_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_pop" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ try {
+ result = std_vector_Sl_CdiVariable_Sg__pop(arg1);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj((new std::vector< CdiVariable >::value_type(static_cast< const std::vector< CdiVariable >::value_type& >(result))), SWIGTYPE_p_CdiVariable, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_append(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsVector_append", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_append" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsVector_append" "', argument " "2"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector_append" "', argument " "2"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp2);
+ std_vector_Sl_CdiVariable_Sg__append(arg1,(CdiVariable const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsVector__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::vector< CdiVariable > *)new std::vector< CdiVariable >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsVector__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< CdiVariable > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *ptr = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_VarsVector" "', argument " "1"" of type '" "std::vector< CdiVariable > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_VarsVector" "', argument " "1"" of type '" "std::vector< CdiVariable > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< CdiVariable > *)new std::vector< CdiVariable >((std::vector< CdiVariable > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_empty" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (bool)((std::vector< CdiVariable > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_size" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = ((std::vector< CdiVariable > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsVector_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_swap" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsVector_swap" "', argument " "2"" of type '" "std::vector< CdiVariable > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector_swap" "', argument " "2"" of type '" "std::vector< CdiVariable > &""'");
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_begin" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_end" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_rbegin" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< CdiVariable >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_rend" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< CdiVariable >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_clear" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< CdiVariable > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_get_allocator" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = ((std::vector< CdiVariable > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::vector< CdiVariable >::allocator_type(static_cast< const std::vector< CdiVariable >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_CdiVariable_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsVector__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< CdiVariable > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_VarsVector" "', argument " "1"" of type '" "std::vector< CdiVariable >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< CdiVariable >::size_type >(val1);
+ result = (std::vector< CdiVariable > *)new std::vector< CdiVariable >(arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_pop_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_pop_back" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ (arg1)->pop_back();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_resize__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_resize" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector_resize" "', argument " "2"" of type '" "std::vector< CdiVariable >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::size_type >(val2);
+ (arg1)->resize(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< CdiVariable >::iterator result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_erase" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_erase" "', argument " "2"" of type '" "std::vector< CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_erase" "', argument " "2"" of type '" "std::vector< CdiVariable >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_CdiVariable_Sg__erase__SWIG_0(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::iterator arg2 ;
+ std::vector< CdiVariable >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< CdiVariable >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_erase" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_erase" "', argument " "2"" of type '" "std::vector< CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_erase" "', argument " "2"" of type '" "std::vector< CdiVariable >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_erase" "', argument " "3"" of type '" "std::vector< CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_erase" "', argument " "3"" of type '" "std::vector< CdiVariable >::iterator""'");
+ }
+ }
+ result = std_vector_Sl_CdiVariable_Sg__erase__SWIG_1(arg1,arg2,arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsVector_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_VarsVector_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_VarsVector_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsVector_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< CdiVariable >::erase(std::vector< CdiVariable >::iterator)\n"
+ " std::vector< CdiVariable >::erase(std::vector< CdiVariable >::iterator,std::vector< CdiVariable >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsVector__SWIG_3(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable >::size_type arg1 ;
+ std::vector< CdiVariable >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ std::vector< CdiVariable > *result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ ecode1 = SWIG_AsVal_size_t(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_VarsVector" "', argument " "1"" of type '" "std::vector< CdiVariable >::size_type""'");
+ }
+ arg1 = static_cast< std::vector< CdiVariable >::size_type >(val1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "new_VarsVector" "', argument " "2"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_VarsVector" "', argument " "2"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp2);
+ result = (std::vector< CdiVariable > *)new std::vector< CdiVariable >(arg1,(std::vector< CdiVariable >::value_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsVector(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_VarsVector", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_VarsVector__SWIG_0(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_VarsVector__SWIG_2(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsVector__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[1], 0, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsVector__SWIG_3(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_VarsVector'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< CdiVariable >::vector()\n"
+ " std::vector< CdiVariable >::vector(std::vector< CdiVariable > const &)\n"
+ " std::vector< CdiVariable >::vector(std::vector< CdiVariable >::size_type)\n"
+ " std::vector< CdiVariable >::vector(std::vector< CdiVariable >::size_type,std::vector< CdiVariable >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_push_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsVector_push_back", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_push_back" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsVector_push_back" "', argument " "2"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector_push_back" "', argument " "2"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp2);
+ (arg1)->push_back((std::vector< CdiVariable >::value_type const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_front(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_front" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (std::vector< CdiVariable >::value_type *) &((std::vector< CdiVariable > const *)arg1)->front();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiVariable, 0 | 0 );
+ (void)swig::container_owner<swig::traits<std::vector< CdiVariable >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_back(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::value_type *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_back" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (std::vector< CdiVariable >::value_type *) &((std::vector< CdiVariable > const *)arg1)->back();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiVariable, 0 | 0 );
+ (void)swig::container_owner<swig::traits<std::vector< CdiVariable >::value_type>::category>::back_reference(resultobj, swig_obj[0]);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_assign(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::size_type arg2 ;
+ std::vector< CdiVariable >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsVector_assign", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_assign" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector_assign" "', argument " "2"" of type '" "std::vector< CdiVariable >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::size_type >(val2);
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "VarsVector_assign" "', argument " "3"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector_assign" "', argument " "3"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ arg3 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp3);
+ (arg1)->assign(arg2,(std::vector< CdiVariable >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_resize__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::size_type arg2 ;
+ std::vector< CdiVariable >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_resize" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector_resize" "', argument " "2"" of type '" "std::vector< CdiVariable >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::size_type >(val2);
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "VarsVector_resize" "', argument " "3"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector_resize" "', argument " "3"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ arg3 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp3);
+ (arg1)->resize(arg2,(std::vector< CdiVariable >::value_type const &)*arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_resize(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsVector_resize", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsVector_resize__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[2], 0, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector_resize__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsVector_resize'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< CdiVariable >::resize(std::vector< CdiVariable >::size_type)\n"
+ " std::vector< CdiVariable >::resize(std::vector< CdiVariable >::size_type,std::vector< CdiVariable >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_insert__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::iterator arg2 ;
+ std::vector< CdiVariable >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+ std::vector< CdiVariable >::iterator result;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_insert" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_insert" "', argument " "2"" of type '" "std::vector< CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_insert" "', argument " "2"" of type '" "std::vector< CdiVariable >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "VarsVector_insert" "', argument " "3"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector_insert" "', argument " "3"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ arg3 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp3);
+ result = std_vector_Sl_CdiVariable_Sg__insert__SWIG_0(arg1,arg2,(CdiVariable const &)*arg3);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_insert__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::iterator arg2 ;
+ std::vector< CdiVariable >::size_type arg3 ;
+ std::vector< CdiVariable >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ void *argp4 = 0 ;
+ int res4 = 0 ;
+
+ if ((nobjs < 4) || (nobjs > 4)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_insert" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_insert" "', argument " "2"" of type '" "std::vector< CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsVector_insert" "', argument " "2"" of type '" "std::vector< CdiVariable >::iterator""'");
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "VarsVector_insert" "', argument " "3"" of type '" "std::vector< CdiVariable >::size_type""'");
+ }
+ arg3 = static_cast< std::vector< CdiVariable >::size_type >(val3);
+ res4 = SWIG_ConvertPtr(swig_obj[3], &argp4, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "VarsVector_insert" "', argument " "4"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ if (!argp4) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsVector_insert" "', argument " "4"" of type '" "std::vector< CdiVariable >::value_type const &""'");
+ }
+ arg4 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp4);
+ std_vector_Sl_CdiVariable_Sg__insert__SWIG_1(arg1,arg2,arg3,(CdiVariable const &)*arg4);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_insert(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[5] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsVector_insert", 0, 4, argv))) SWIG_fail;
+ --argc;
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[2], 0, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector_insert__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[3], 0, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector_insert__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsVector_insert'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::vector< CdiVariable >::insert(std::vector< CdiVariable >::iterator,std::vector< CdiVariable >::value_type const &)\n"
+ " std::vector< CdiVariable >::insert(std::vector< CdiVariable >::iterator,std::vector< CdiVariable >::size_type,std::vector< CdiVariable >::value_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_reserve(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsVector_reserve", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_reserve" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsVector_reserve" "', argument " "2"" of type '" "std::vector< CdiVariable >::size_type""'");
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsVector_capacity(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsVector_capacity" "', argument " "1"" of type '" "std::vector< CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = ((std::vector< CdiVariable > const *)arg1)->capacity();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_VarsVector(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_VarsVector" "', argument " "1"" of type '" "std::vector< CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *VarsVector_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *VarsVector_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_VarsMap__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::less< std::string > *arg1 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1, SWIGTYPE_p_std__lessT_std__string_t, 0 | 0);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_VarsMap" "', argument " "1"" of type '" "std::less< std::string > const &""'");
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_VarsMap" "', argument " "1"" of type '" "std::less< std::string > const &""'");
+ }
+ arg1 = reinterpret_cast< std::less< std::string > * >(argp1);
+ result = (std::map< std::string,CdiVariable > *)new std::map< std::string,CdiVariable >((std::less< std::string > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_iterator" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_std_string_Sc_CdiVariable_Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap___nonzero__" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (bool)std_map_Sl_std_string_Sc_CdiVariable_Sg____nonzero__((std::map< std::string,CdiVariable > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap___bool__" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (bool)std_map_Sl_std_string_Sc_CdiVariable_Sg____bool__((std::map< std::string,CdiVariable > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< std::string,CdiVariable >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap___len__" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = std_map_Sl_std_string_Sc_CdiVariable_Sg____len__((std::map< std::string,CdiVariable > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap___getitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+ std::map< std::string,CdiVariable >::mapped_type *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsMap___getitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap___getitem__" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap___getitem__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap___getitem__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ try {
+ result = (std::map< std::string,CdiVariable >::mapped_type *) &std_map_Sl_std_string_Sc_CdiVariable_Sg____getitem__(arg1,(std::string const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap___delitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsMap___delitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap___delitem__" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap___delitem__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap___delitem__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ try {
+ std_map_Sl_std_string_Sc_CdiVariable_Sg____delitem__(arg1,(std::string const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_has_key(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsMap_has_key", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_has_key" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap_has_key" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap_has_key" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ result = (bool)std_map_Sl_std_string_Sc_CdiVariable_Sg__has_key((std::map< std::string,CdiVariable > const *)arg1,(std::string const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_keys(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_keys" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (PyObject *)std_map_Sl_std_string_Sc_CdiVariable_Sg__keys(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_values(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_values" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (PyObject *)std_map_Sl_std_string_Sc_CdiVariable_Sg__values(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_items(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_items" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (PyObject *)std_map_Sl_std_string_Sc_CdiVariable_Sg__items(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap___contains__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsMap___contains__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap___contains__" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap___contains__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap___contains__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ result = (bool)std_map_Sl_std_string_Sc_CdiVariable_Sg____contains__(arg1,(std::string const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_key_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_key_iterator" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_std_string_Sc_CdiVariable_Sg__key_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_value_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_value_iterator" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_std_string_Sc_CdiVariable_Sg__value_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap___setitem__" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap___setitem__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap___setitem__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ std_map_Sl_std_string_Sc_CdiVariable_Sg____setitem____SWIG_0(arg1,(std::string const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ std::map< std::string,CdiVariable >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap___setitem__" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap___setitem__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap___setitem__" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "VarsMap___setitem__" "', argument " "3"" of type '" "std::map< std::string,CdiVariable >::mapped_type const &""'");
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap___setitem__" "', argument " "3"" of type '" "std::map< std::string,CdiVariable >::mapped_type const &""'");
+ }
+ arg3 = reinterpret_cast< std::map< std::string,CdiVariable >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_std_string_Sc_CdiVariable_Sg____setitem____SWIG_1(arg1,(std::string const &)*arg2,(CdiVariable const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsMap___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[1], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsMap___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[1], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[2], 0, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsMap___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsMap___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< std::string,CdiVariable >::__setitem__(std::map< std::string,CdiVariable >::key_type const &)\n"
+ " std::map< std::string,CdiVariable >::__setitem__(std::map< std::string,CdiVariable >::key_type const &,std::map< std::string,CdiVariable >::mapped_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_asdict(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_asdict" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (PyObject *)std_map_Sl_std_string_Sc_CdiVariable_Sg__asdict(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsMap__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::map< std::string,CdiVariable > *)new std::map< std::string,CdiVariable >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsMap__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< std::string,CdiVariable > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *ptr = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_VarsMap" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_VarsMap" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< std::string,CdiVariable > *)new std::map< std::string,CdiVariable >((std::map< std::string,CdiVariable > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsMap(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[2] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_VarsMap", 0, 1, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_VarsMap__SWIG_1(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ int res = SWIG_ConvertPtr(argv[0], 0, SWIGTYPE_p_std__lessT_std__string_t, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsMap__SWIG_0(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsMap__SWIG_2(self, argc, argv);
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_VarsMap'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< std::string,CdiVariable >::map(std::less< std::string > const &)\n"
+ " std::map< std::string,CdiVariable >::map()\n"
+ " std::map< std::string,CdiVariable >::map(std::map< std::string,CdiVariable > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_empty" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (bool)((std::map< std::string,CdiVariable > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< std::string,CdiVariable >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_size" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = ((std::map< std::string,CdiVariable > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsMap_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_swap" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap_swap" "', argument " "2"" of type '" "std::map< std::string,CdiVariable > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap_swap" "', argument " "2"" of type '" "std::map< std::string,CdiVariable > &""'");
+ }
+ arg2 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< std::string,CdiVariable >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_begin" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< std::string,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< std::string,CdiVariable >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_end" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< std::string,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< std::string,CdiVariable >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_rbegin" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< std::string,CdiVariable >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< std::string,CdiVariable >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_rend" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< std::string,CdiVariable >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_clear" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< std::pair< std::string const,CdiVariable > > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_get_allocator" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = ((std::map< std::string,CdiVariable > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::map< std::string,CdiVariable >::allocator_type(static_cast< const std::map< std::string,CdiVariable >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::map< std::string,CdiVariable >::size_type result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_erase" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap_erase" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap_erase" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ result = (arg1)->erase((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_count(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+ std::map< std::string,CdiVariable >::size_type result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsMap_count", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_count" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap_count" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap_count" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ result = ((std::map< std::string,CdiVariable > const *)arg1)->count((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_erase" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsMap_erase" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< std::string,CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< std::string,CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsMap_erase" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::iterator""'");
+ }
+ }
+ std_map_Sl_std_string_Sc_CdiVariable_Sg__erase__SWIG_1(arg1,arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_erase__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::iterator arg2 ;
+ std::map< std::string,CdiVariable >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_erase" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsMap_erase" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< std::string,CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< std::string,CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsMap_erase" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsMap_erase" "', argument " "3"" of type '" "std::map< std::string,CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< std::string,CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< std::string,CdiVariable >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsMap_erase" "', argument " "3"" of type '" "std::map< std::string,CdiVariable >::iterator""'");
+ }
+ }
+ std_map_Sl_std_string_Sc_CdiVariable_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsMap_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< std::string,CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_VarsMap_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[1], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsMap_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< std::string,CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< std::string,CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_VarsMap_erase__SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsMap_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< std::string,CdiVariable >::erase(std::map< std::string,CdiVariable >::key_type const &)\n"
+ " std::map< std::string,CdiVariable >::erase(std::map< std::string,CdiVariable >::iterator)\n"
+ " std::map< std::string,CdiVariable >::erase(std::map< std::string,CdiVariable >::iterator,std::map< std::string,CdiVariable >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_find(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+ std::map< std::string,CdiVariable >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsMap_find", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_find" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap_find" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap_find" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ result = (arg1)->find((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< std::string,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_lower_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+ std::map< std::string,CdiVariable >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsMap_lower_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_lower_bound" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap_lower_bound" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap_lower_bound" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ result = (arg1)->lower_bound((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< std::string,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsMap_upper_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+ std::map< std::string,CdiVariable >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsMap_upper_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsMap_upper_bound" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsMap_upper_bound" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsMap_upper_bound" "', argument " "2"" of type '" "std::map< std::string,CdiVariable >::key_type const &""'");
+ }
+ arg2 = ptr;
+ }
+ result = (arg1)->upper_bound((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< std::string,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_VarsMap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_VarsMap" "', argument " "1"" of type '" "std::map< std::string,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *VarsMap_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *VarsMap_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_VarsByCode__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::less< int > *arg1 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1, SWIGTYPE_p_std__lessT_int_t, 0 | 0);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_VarsByCode" "', argument " "1"" of type '" "std::less< int > const &""'");
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_VarsByCode" "', argument " "1"" of type '" "std::less< int > const &""'");
+ }
+ arg1 = reinterpret_cast< std::less< int > * >(argp1);
+ result = (std::map< int,CdiVariable > *)new std::map< int,CdiVariable >((std::less< int > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_iterator" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiVariable_Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode___nonzero__" "', argument " "1"" of type '" "std::map< int,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (bool)std_map_Sl_int_Sc_CdiVariable_Sg____nonzero__((std::map< int,CdiVariable > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode___bool__" "', argument " "1"" of type '" "std::map< int,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (bool)std_map_Sl_int_Sc_CdiVariable_Sg____bool__((std::map< int,CdiVariable > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiVariable >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode___len__" "', argument " "1"" of type '" "std::map< int,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = std_map_Sl_int_Sc_CdiVariable_Sg____len__((std::map< int,CdiVariable > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode___getitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiVariable >::mapped_type *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsByCode___getitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode___getitem__" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode___getitem__" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ try {
+ result = (std::map< int,CdiVariable >::mapped_type *) &std_map_Sl_int_Sc_CdiVariable_Sg____getitem__(arg1,(int const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiVariable, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode___delitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsByCode___delitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode___delitem__" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode___delitem__" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ try {
+ std_map_Sl_int_Sc_CdiVariable_Sg____delitem__(arg1,(int const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_has_key(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsByCode_has_key", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_has_key" "', argument " "1"" of type '" "std::map< int,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode_has_key" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiVariable_Sg__has_key((std::map< int,CdiVariable > const *)arg1,(int const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_keys(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_keys" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiVariable_Sg__keys(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_values(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_values" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiVariable_Sg__values(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_items(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_items" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiVariable_Sg__items(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode___contains__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsByCode___contains__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode___contains__" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode___contains__" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiVariable_Sg____contains__(arg1,(int const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_key_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_key_iterator" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiVariable_Sg__key_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_value_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_value_iterator" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiVariable_Sg__value_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode___setitem__" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode___setitem__" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ std_map_Sl_int_Sc_CdiVariable_Sg____setitem____SWIG_0(arg1,(int const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ std::map< int,CdiVariable >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode___setitem__" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode___setitem__" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3, SWIGTYPE_p_CdiVariable, 0 | 0);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "VarsByCode___setitem__" "', argument " "3"" of type '" "std::map< int,CdiVariable >::mapped_type const &""'");
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsByCode___setitem__" "', argument " "3"" of type '" "std::map< int,CdiVariable >::mapped_type const &""'");
+ }
+ arg3 = reinterpret_cast< std::map< int,CdiVariable >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_int_Sc_CdiVariable_Sg____setitem____SWIG_1(arg1,(int const &)*arg2,(CdiVariable const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsByCode___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsByCode___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[2], 0, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsByCode___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsByCode___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiVariable >::__setitem__(std::map< int,CdiVariable >::key_type const &)\n"
+ " std::map< int,CdiVariable >::__setitem__(std::map< int,CdiVariable >::key_type const &,std::map< int,CdiVariable >::mapped_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_asdict(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_asdict" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiVariable_Sg__asdict(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsByCode__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::map< int,CdiVariable > *)new std::map< int,CdiVariable >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsByCode__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< int,CdiVariable > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *ptr = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_VarsByCode" "', argument " "1"" of type '" "std::map< int,CdiVariable > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_VarsByCode" "', argument " "1"" of type '" "std::map< int,CdiVariable > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< int,CdiVariable > *)new std::map< int,CdiVariable >((std::map< int,CdiVariable > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_VarsByCode(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[2] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_VarsByCode", 0, 1, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_VarsByCode__SWIG_1(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ int res = SWIG_ConvertPtr(argv[0], 0, SWIGTYPE_p_std__lessT_int_t, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsByCode__SWIG_0(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsByCode__SWIG_2(self, argc, argv);
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_VarsByCode'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiVariable >::map(std::less< int > const &)\n"
+ " std::map< int,CdiVariable >::map()\n"
+ " std::map< int,CdiVariable >::map(std::map< int,CdiVariable > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_empty" "', argument " "1"" of type '" "std::map< int,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (bool)((std::map< int,CdiVariable > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiVariable >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_size" "', argument " "1"" of type '" "std::map< int,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = ((std::map< int,CdiVariable > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsByCode_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_swap" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "VarsByCode_swap" "', argument " "2"" of type '" "std::map< int,CdiVariable > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "VarsByCode_swap" "', argument " "2"" of type '" "std::map< int,CdiVariable > &""'");
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiVariable > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiVariable >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_begin" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiVariable >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_end" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiVariable >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_rbegin" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiVariable >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiVariable >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_rend" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiVariable >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_clear" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< std::pair< int const,CdiVariable > > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_get_allocator" "', argument " "1"" of type '" "std::map< int,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = ((std::map< int,CdiVariable > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::map< int,CdiVariable >::allocator_type(static_cast< const std::map< int,CdiVariable >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiVariable >::size_type result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_erase" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode_erase" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->erase((std::map< int,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_count(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiVariable >::size_type result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsByCode_count", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_count" "', argument " "1"" of type '" "std::map< int,CdiVariable > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode_count" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = ((std::map< int,CdiVariable > const *)arg1)->count((std::map< int,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_erase" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsByCode_erase" "', argument " "2"" of type '" "std::map< int,CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsByCode_erase" "', argument " "2"" of type '" "std::map< int,CdiVariable >::iterator""'");
+ }
+ }
+ std_map_Sl_int_Sc_CdiVariable_Sg__erase__SWIG_1(arg1,arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_erase__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::iterator arg2 ;
+ std::map< int,CdiVariable >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_erase" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsByCode_erase" "', argument " "2"" of type '" "std::map< int,CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsByCode_erase" "', argument " "2"" of type '" "std::map< int,CdiVariable >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsByCode_erase" "', argument " "3"" of type '" "std::map< int,CdiVariable >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiVariable >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiVariable >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "VarsByCode_erase" "', argument " "3"" of type '" "std::map< int,CdiVariable >::iterator""'");
+ }
+ }
+ std_map_Sl_int_Sc_CdiVariable_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "VarsByCode_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_VarsByCode_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsByCode_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_VarsByCode_erase__SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'VarsByCode_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiVariable >::erase(std::map< int,CdiVariable >::key_type const &)\n"
+ " std::map< int,CdiVariable >::erase(std::map< int,CdiVariable >::iterator)\n"
+ " std::map< int,CdiVariable >::erase(std::map< int,CdiVariable >::iterator,std::map< int,CdiVariable >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_find(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiVariable >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsByCode_find", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_find" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode_find" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->find((std::map< int,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_lower_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiVariable >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsByCode_lower_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_lower_bound" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode_lower_bound" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->lower_bound((std::map< int,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_VarsByCode_upper_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiVariable >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "VarsByCode_upper_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "VarsByCode_upper_bound" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "VarsByCode_upper_bound" "', argument " "2"" of type '" "std::map< int,CdiVariable >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->upper_bound((std::map< int,CdiVariable >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiVariable >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_VarsByCode(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_VarsByCode" "', argument " "1"" of type '" "std::map< int,CdiVariable > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *VarsByCode_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *VarsByCode_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_TaxesMap__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::less< int > *arg1 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1, SWIGTYPE_p_std__lessT_int_t, 0 | 0);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_TaxesMap" "', argument " "1"" of type '" "std::less< int > const &""'");
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_TaxesMap" "', argument " "1"" of type '" "std::less< int > const &""'");
+ }
+ arg1 = reinterpret_cast< std::less< int > * >(argp1);
+ result = (std::map< int,CdiTaxis > *)new std::map< int,CdiTaxis >((std::less< int > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_iterator" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiTaxis_Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap___nonzero__" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (bool)std_map_Sl_int_Sc_CdiTaxis_Sg____nonzero__((std::map< int,CdiTaxis > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap___bool__" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (bool)std_map_Sl_int_Sc_CdiTaxis_Sg____bool__((std::map< int,CdiTaxis > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiTaxis >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap___len__" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = std_map_Sl_int_Sc_CdiTaxis_Sg____len__((std::map< int,CdiTaxis > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap___getitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiTaxis >::mapped_type *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "TaxesMap___getitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap___getitem__" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap___getitem__" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ try {
+ result = (std::map< int,CdiTaxis >::mapped_type *) &std_map_Sl_int_Sc_CdiTaxis_Sg____getitem__(arg1,(int const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap___delitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "TaxesMap___delitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap___delitem__" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap___delitem__" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ try {
+ std_map_Sl_int_Sc_CdiTaxis_Sg____delitem__(arg1,(int const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_has_key(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "TaxesMap_has_key", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_has_key" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap_has_key" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiTaxis_Sg__has_key((std::map< int,CdiTaxis > const *)arg1,(int const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_keys(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_keys" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiTaxis_Sg__keys(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_values(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_values" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiTaxis_Sg__values(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_items(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_items" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiTaxis_Sg__items(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap___contains__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "TaxesMap___contains__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap___contains__" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap___contains__" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiTaxis_Sg____contains__(arg1,(int const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_key_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_key_iterator" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiTaxis_Sg__key_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_value_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_value_iterator" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiTaxis_Sg__value_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap___setitem__" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap___setitem__" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ std_map_Sl_int_Sc_CdiTaxis_Sg____setitem____SWIG_0(arg1,(int const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ std::map< int,CdiTaxis >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap___setitem__" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap___setitem__" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3, SWIGTYPE_p_CdiTaxis, 0 | 0);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "TaxesMap___setitem__" "', argument " "3"" of type '" "std::map< int,CdiTaxis >::mapped_type const &""'");
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "TaxesMap___setitem__" "', argument " "3"" of type '" "std::map< int,CdiTaxis >::mapped_type const &""'");
+ }
+ arg3 = reinterpret_cast< std::map< int,CdiTaxis >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_int_Sc_CdiTaxis_Sg____setitem____SWIG_1(arg1,(int const &)*arg2,(CdiTaxis const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "TaxesMap___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_TaxesMap___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[2], 0, SWIGTYPE_p_CdiTaxis, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_TaxesMap___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'TaxesMap___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiTaxis >::__setitem__(std::map< int,CdiTaxis >::key_type const &)\n"
+ " std::map< int,CdiTaxis >::__setitem__(std::map< int,CdiTaxis >::key_type const &,std::map< int,CdiTaxis >::mapped_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_asdict(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_asdict" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiTaxis_Sg__asdict(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_TaxesMap__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::map< int,CdiTaxis > *)new std::map< int,CdiTaxis >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_TaxesMap__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< int,CdiTaxis > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *ptr = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_TaxesMap" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_TaxesMap" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< int,CdiTaxis > *)new std::map< int,CdiTaxis >((std::map< int,CdiTaxis > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_TaxesMap(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[2] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_TaxesMap", 0, 1, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_TaxesMap__SWIG_1(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ int res = SWIG_ConvertPtr(argv[0], 0, SWIGTYPE_p_std__lessT_int_t, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_TaxesMap__SWIG_0(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_TaxesMap__SWIG_2(self, argc, argv);
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_TaxesMap'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiTaxis >::map(std::less< int > const &)\n"
+ " std::map< int,CdiTaxis >::map()\n"
+ " std::map< int,CdiTaxis >::map(std::map< int,CdiTaxis > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_empty" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (bool)((std::map< int,CdiTaxis > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiTaxis >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_size" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = ((std::map< int,CdiTaxis > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "TaxesMap_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_swap" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "TaxesMap_swap" "', argument " "2"" of type '" "std::map< int,CdiTaxis > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "TaxesMap_swap" "', argument " "2"" of type '" "std::map< int,CdiTaxis > &""'");
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiTaxis >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_begin" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiTaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiTaxis >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_end" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiTaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiTaxis >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_rbegin" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiTaxis >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiTaxis >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_rend" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiTaxis >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_clear" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< std::pair< int const,CdiTaxis > > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_get_allocator" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = ((std::map< int,CdiTaxis > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::map< int,CdiTaxis >::allocator_type(static_cast< const std::map< int,CdiTaxis >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiTaxis >::size_type result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_erase" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->erase((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_count(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiTaxis >::size_type result;
+
+ if (!SWIG_Python_UnpackTuple(args, "TaxesMap_count", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_count" "', argument " "1"" of type '" "std::map< int,CdiTaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap_count" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = ((std::map< int,CdiTaxis > const *)arg1)->count((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_erase" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "TaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiTaxis >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiTaxis >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "TaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::iterator""'");
+ }
+ }
+ std_map_Sl_int_Sc_CdiTaxis_Sg__erase__SWIG_1(arg1,arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_erase__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::iterator arg2 ;
+ std::map< int,CdiTaxis >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_erase" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "TaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiTaxis >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiTaxis >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "TaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "TaxesMap_erase" "', argument " "3"" of type '" "std::map< int,CdiTaxis >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiTaxis >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiTaxis >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "TaxesMap_erase" "', argument " "3"" of type '" "std::map< int,CdiTaxis >::iterator""'");
+ }
+ }
+ std_map_Sl_int_Sc_CdiTaxis_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "TaxesMap_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiTaxis >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_TaxesMap_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_TaxesMap_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiTaxis >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiTaxis >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_TaxesMap_erase__SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'TaxesMap_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiTaxis >::erase(std::map< int,CdiTaxis >::key_type const &)\n"
+ " std::map< int,CdiTaxis >::erase(std::map< int,CdiTaxis >::iterator)\n"
+ " std::map< int,CdiTaxis >::erase(std::map< int,CdiTaxis >::iterator,std::map< int,CdiTaxis >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_find(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiTaxis >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "TaxesMap_find", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_find" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap_find" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->find((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiTaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_lower_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiTaxis >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "TaxesMap_lower_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_lower_bound" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap_lower_bound" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->lower_bound((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiTaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_TaxesMap_upper_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiTaxis >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "TaxesMap_upper_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "TaxesMap_upper_bound" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "TaxesMap_upper_bound" "', argument " "2"" of type '" "std::map< int,CdiTaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->upper_bound((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiTaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_TaxesMap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_TaxesMap" "', argument " "1"" of type '" "std::map< int,CdiTaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *TaxesMap_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *TaxesMap_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_ZaxesMap__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::less< int > *arg1 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1, SWIGTYPE_p_std__lessT_int_t, 0 | 0);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_ZaxesMap" "', argument " "1"" of type '" "std::less< int > const &""'");
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_ZaxesMap" "', argument " "1"" of type '" "std::less< int > const &""'");
+ }
+ arg1 = reinterpret_cast< std::less< int > * >(argp1);
+ result = (std::map< int,CdiZaxis > *)new std::map< int,CdiZaxis >((std::less< int > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_iterator" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiZaxis_Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap___nonzero__" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (bool)std_map_Sl_int_Sc_CdiZaxis_Sg____nonzero__((std::map< int,CdiZaxis > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap___bool__" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (bool)std_map_Sl_int_Sc_CdiZaxis_Sg____bool__((std::map< int,CdiZaxis > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiZaxis >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap___len__" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = std_map_Sl_int_Sc_CdiZaxis_Sg____len__((std::map< int,CdiZaxis > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap___getitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiZaxis >::mapped_type *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "ZaxesMap___getitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap___getitem__" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap___getitem__" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ try {
+ result = (std::map< int,CdiZaxis >::mapped_type *) &std_map_Sl_int_Sc_CdiZaxis_Sg____getitem__(arg1,(int const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap___delitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "ZaxesMap___delitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap___delitem__" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap___delitem__" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ try {
+ std_map_Sl_int_Sc_CdiZaxis_Sg____delitem__(arg1,(int const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_has_key(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "ZaxesMap_has_key", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_has_key" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap_has_key" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiZaxis_Sg__has_key((std::map< int,CdiZaxis > const *)arg1,(int const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_keys(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_keys" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiZaxis_Sg__keys(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_values(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_values" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiZaxis_Sg__values(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_items(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_items" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiZaxis_Sg__items(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap___contains__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "ZaxesMap___contains__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap___contains__" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap___contains__" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiZaxis_Sg____contains__(arg1,(int const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_key_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_key_iterator" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiZaxis_Sg__key_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_value_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_value_iterator" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiZaxis_Sg__value_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap___setitem__" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap___setitem__" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ std_map_Sl_int_Sc_CdiZaxis_Sg____setitem____SWIG_0(arg1,(int const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ std::map< int,CdiZaxis >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap___setitem__" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap___setitem__" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3, SWIGTYPE_p_CdiZaxis, 0 | 0);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "ZaxesMap___setitem__" "', argument " "3"" of type '" "std::map< int,CdiZaxis >::mapped_type const &""'");
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "ZaxesMap___setitem__" "', argument " "3"" of type '" "std::map< int,CdiZaxis >::mapped_type const &""'");
+ }
+ arg3 = reinterpret_cast< std::map< int,CdiZaxis >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_int_Sc_CdiZaxis_Sg____setitem____SWIG_1(arg1,(int const &)*arg2,(CdiZaxis const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "ZaxesMap___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_ZaxesMap___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[2], 0, SWIGTYPE_p_CdiZaxis, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_ZaxesMap___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'ZaxesMap___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiZaxis >::__setitem__(std::map< int,CdiZaxis >::key_type const &)\n"
+ " std::map< int,CdiZaxis >::__setitem__(std::map< int,CdiZaxis >::key_type const &,std::map< int,CdiZaxis >::mapped_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_asdict(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_asdict" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiZaxis_Sg__asdict(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_ZaxesMap__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::map< int,CdiZaxis > *)new std::map< int,CdiZaxis >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_ZaxesMap__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< int,CdiZaxis > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *ptr = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_ZaxesMap" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_ZaxesMap" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< int,CdiZaxis > *)new std::map< int,CdiZaxis >((std::map< int,CdiZaxis > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_ZaxesMap(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[2] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_ZaxesMap", 0, 1, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_ZaxesMap__SWIG_1(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ int res = SWIG_ConvertPtr(argv[0], 0, SWIGTYPE_p_std__lessT_int_t, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_ZaxesMap__SWIG_0(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_ZaxesMap__SWIG_2(self, argc, argv);
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_ZaxesMap'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiZaxis >::map(std::less< int > const &)\n"
+ " std::map< int,CdiZaxis >::map()\n"
+ " std::map< int,CdiZaxis >::map(std::map< int,CdiZaxis > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_empty" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (bool)((std::map< int,CdiZaxis > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiZaxis >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_size" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = ((std::map< int,CdiZaxis > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "ZaxesMap_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_swap" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "ZaxesMap_swap" "', argument " "2"" of type '" "std::map< int,CdiZaxis > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "ZaxesMap_swap" "', argument " "2"" of type '" "std::map< int,CdiZaxis > &""'");
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiZaxis >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_begin" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiZaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiZaxis >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_end" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiZaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiZaxis >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_rbegin" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiZaxis >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiZaxis >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_rend" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiZaxis >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_clear" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< std::pair< int const,CdiZaxis > > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_get_allocator" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = ((std::map< int,CdiZaxis > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::map< int,CdiZaxis >::allocator_type(static_cast< const std::map< int,CdiZaxis >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiZaxis >::size_type result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_erase" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->erase((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_count(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiZaxis >::size_type result;
+
+ if (!SWIG_Python_UnpackTuple(args, "ZaxesMap_count", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_count" "', argument " "1"" of type '" "std::map< int,CdiZaxis > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap_count" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = ((std::map< int,CdiZaxis > const *)arg1)->count((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_erase" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "ZaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiZaxis >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiZaxis >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "ZaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::iterator""'");
+ }
+ }
+ std_map_Sl_int_Sc_CdiZaxis_Sg__erase__SWIG_1(arg1,arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_erase__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::iterator arg2 ;
+ std::map< int,CdiZaxis >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_erase" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "ZaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiZaxis >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiZaxis >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "ZaxesMap_erase" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "ZaxesMap_erase" "', argument " "3"" of type '" "std::map< int,CdiZaxis >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiZaxis >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiZaxis >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "ZaxesMap_erase" "', argument " "3"" of type '" "std::map< int,CdiZaxis >::iterator""'");
+ }
+ }
+ std_map_Sl_int_Sc_CdiZaxis_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "ZaxesMap_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiZaxis >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_ZaxesMap_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_ZaxesMap_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiZaxis >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiZaxis >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_ZaxesMap_erase__SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'ZaxesMap_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiZaxis >::erase(std::map< int,CdiZaxis >::key_type const &)\n"
+ " std::map< int,CdiZaxis >::erase(std::map< int,CdiZaxis >::iterator)\n"
+ " std::map< int,CdiZaxis >::erase(std::map< int,CdiZaxis >::iterator,std::map< int,CdiZaxis >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_find(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiZaxis >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "ZaxesMap_find", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_find" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap_find" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->find((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiZaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_lower_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiZaxis >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "ZaxesMap_lower_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_lower_bound" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap_lower_bound" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->lower_bound((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiZaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_ZaxesMap_upper_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiZaxis >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "ZaxesMap_upper_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ZaxesMap_upper_bound" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ZaxesMap_upper_bound" "', argument " "2"" of type '" "std::map< int,CdiZaxis >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->upper_bound((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiZaxis >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_ZaxesMap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_ZaxesMap" "', argument " "1"" of type '" "std::map< int,CdiZaxis > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *ZaxesMap_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *ZaxesMap_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_GridsMap__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::less< int > *arg1 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1, SWIGTYPE_p_std__lessT_int_t, 0 | 0);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_GridsMap" "', argument " "1"" of type '" "std::less< int > const &""'");
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_GridsMap" "', argument " "1"" of type '" "std::less< int > const &""'");
+ }
+ arg1 = reinterpret_cast< std::less< int > * >(argp1);
+ result = (std::map< int,CdiGrid > *)new std::map< int,CdiGrid >((std::less< int > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_iterator" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiGrid_Sg__iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap___nonzero__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap___nonzero__" "', argument " "1"" of type '" "std::map< int,CdiGrid > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (bool)std_map_Sl_int_Sc_CdiGrid_Sg____nonzero__((std::map< int,CdiGrid > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap___bool__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap___bool__" "', argument " "1"" of type '" "std::map< int,CdiGrid > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (bool)std_map_Sl_int_Sc_CdiGrid_Sg____bool__((std::map< int,CdiGrid > const *)arg1);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap___len__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiGrid >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap___len__" "', argument " "1"" of type '" "std::map< int,CdiGrid > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = std_map_Sl_int_Sc_CdiGrid_Sg____len__((std::map< int,CdiGrid > const *)arg1);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap___getitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiGrid >::mapped_type *result = 0 ;
+
+ if (!SWIG_Python_UnpackTuple(args, "GridsMap___getitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap___getitem__" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap___getitem__" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ try {
+ result = (std::map< int,CdiGrid >::mapped_type *) &std_map_Sl_int_Sc_CdiGrid_Sg____getitem__(arg1,(int const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiGrid, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap___delitem__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "GridsMap___delitem__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap___delitem__" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap___delitem__" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ try {
+ std_map_Sl_int_Sc_CdiGrid_Sg____delitem__(arg1,(int const &)*arg2);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_has_key(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "GridsMap_has_key", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_has_key" "', argument " "1"" of type '" "std::map< int,CdiGrid > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap_has_key" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiGrid_Sg__has_key((std::map< int,CdiGrid > const *)arg1,(int const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_keys(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_keys" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiGrid_Sg__keys(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_values(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_values" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiGrid_Sg__values(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_items(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_items" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiGrid_Sg__items(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap___contains__(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ bool result;
+
+ if (!SWIG_Python_UnpackTuple(args, "GridsMap___contains__", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap___contains__" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap___contains__" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiGrid_Sg____contains__(arg1,(int const &)*arg2);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_key_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_key_iterator" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiGrid_Sg__key_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_value_iterator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ PyObject **arg2 = (PyObject **) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ swig::SwigPyIterator *result = 0 ;
+
+ arg2 = &swig_obj[0];
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_value_iterator" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (swig::SwigPyIterator *)std_map_Sl_int_Sc_CdiGrid_Sg__value_iterator(arg1,arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__SwigPyIterator, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap___setitem____SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap___setitem__" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap___setitem__" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ std_map_Sl_int_Sc_CdiGrid_Sg____setitem____SWIG_0(arg1,(int const &)*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap___setitem____SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ std::map< int,CdiGrid >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap___setitem__" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap___setitem__" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3, SWIGTYPE_p_CdiGrid, 0 | 0);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "GridsMap___setitem__" "', argument " "3"" of type '" "std::map< int,CdiGrid >::mapped_type const &""'");
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "GridsMap___setitem__" "', argument " "3"" of type '" "std::map< int,CdiGrid >::mapped_type const &""'");
+ }
+ arg3 = reinterpret_cast< std::map< int,CdiGrid >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_int_Sc_CdiGrid_Sg____setitem____SWIG_1(arg1,(int const &)*arg2,(CdiGrid const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap___setitem__(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "GridsMap___setitem__", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_GridsMap___setitem____SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_ConvertPtr(argv[2], 0, SWIGTYPE_p_CdiGrid, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_GridsMap___setitem____SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'GridsMap___setitem__'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiGrid >::__setitem__(std::map< int,CdiGrid >::key_type const &)\n"
+ " std::map< int,CdiGrid >::__setitem__(std::map< int,CdiGrid >::key_type const &,std::map< int,CdiGrid >::mapped_type const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_asdict(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ PyObject *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_asdict" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (PyObject *)std_map_Sl_int_Sc_CdiGrid_Sg__asdict(arg1);
+ resultobj = result;
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_GridsMap__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (std::map< int,CdiGrid > *)new std::map< int,CdiGrid >();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_GridsMap__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< int,CdiGrid > *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ {
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *ptr = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *)0;
+ res1 = swig::asptr(swig_obj[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_GridsMap" "', argument " "1"" of type '" "std::map< int,CdiGrid > const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "new_GridsMap" "', argument " "1"" of type '" "std::map< int,CdiGrid > const &""'");
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< int,CdiGrid > *)new std::map< int,CdiGrid >((std::map< int,CdiGrid > const &)*arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, SWIG_POINTER_NEW | 0 );
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_GridsMap(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[2] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_GridsMap", 0, 1, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_GridsMap__SWIG_1(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ int res = SWIG_ConvertPtr(argv[0], 0, SWIGTYPE_p_std__lessT_int_t, SWIG_POINTER_NO_NULL | 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_GridsMap__SWIG_0(self, argc, argv);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_GridsMap__SWIG_2(self, argc, argv);
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_GridsMap'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiGrid >::map(std::less< int > const &)\n"
+ " std::map< int,CdiGrid >::map()\n"
+ " std::map< int,CdiGrid >::map(std::map< int,CdiGrid > const &)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_empty(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_empty" "', argument " "1"" of type '" "std::map< int,CdiGrid > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (bool)((std::map< int,CdiGrid > const *)arg1)->empty();
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_size(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiGrid >::size_type result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_size" "', argument " "1"" of type '" "std::map< int,CdiGrid > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = ((std::map< int,CdiGrid > const *)arg1)->size();
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_swap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "GridsMap_swap", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_swap" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2, SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "GridsMap_swap" "', argument " "2"" of type '" "std::map< int,CdiGrid > &""'");
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "GridsMap_swap" "', argument " "2"" of type '" "std::map< int,CdiGrid > &""'");
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiGrid > * >(argp2);
+ (arg1)->swap(*arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_begin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiGrid >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_begin" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (arg1)->begin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiGrid >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_end(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiGrid >::iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_end" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (arg1)->end();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiGrid >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_rbegin(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiGrid >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_rbegin" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (arg1)->rbegin();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiGrid >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_rend(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiGrid >::reverse_iterator result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_rend" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (arg1)->rend();
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiGrid >::reverse_iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_clear(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_clear" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ (arg1)->clear();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_get_allocator(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::allocator< std::pair< int const,CdiGrid > > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_get_allocator" "', argument " "1"" of type '" "std::map< int,CdiGrid > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = ((std::map< int,CdiGrid > const *)arg1)->get_allocator();
+ resultobj = SWIG_NewPointerObj((new std::map< int,CdiGrid >::allocator_type(static_cast< const std::map< int,CdiGrid >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_erase__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiGrid >::size_type result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_erase" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap_erase" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->erase((std::map< int,CdiGrid >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_count(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiGrid >::size_type result;
+
+ if (!SWIG_Python_UnpackTuple(args, "GridsMap_count", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_count" "', argument " "1"" of type '" "std::map< int,CdiGrid > const *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap_count" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = ((std::map< int,CdiGrid > const *)arg1)->count((std::map< int,CdiGrid >::key_type const &)*arg2);
+ resultobj = SWIG_From_size_t(static_cast< size_t >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_erase__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_erase" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "GridsMap_erase" "', argument " "2"" of type '" "std::map< int,CdiGrid >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiGrid >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiGrid >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "GridsMap_erase" "', argument " "2"" of type '" "std::map< int,CdiGrid >::iterator""'");
+ }
+ }
+ std_map_Sl_int_Sc_CdiGrid_Sg__erase__SWIG_1(arg1,arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_erase__SWIG_2(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::iterator arg2 ;
+ std::map< int,CdiGrid >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::SwigPyIterator *iter2 = 0 ;
+ int res2 ;
+ swig::SwigPyIterator *iter3 = 0 ;
+ int res3 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_erase" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], SWIG_as_voidptrptr(&iter2), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "GridsMap_erase" "', argument " "2"" of type '" "std::map< int,CdiGrid >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiGrid >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiGrid >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "GridsMap_erase" "', argument " "2"" of type '" "std::map< int,CdiGrid >::iterator""'");
+ }
+ }
+ res3 = SWIG_ConvertPtr(swig_obj[2], SWIG_as_voidptrptr(&iter3), swig::SwigPyIterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "GridsMap_erase" "', argument " "3"" of type '" "std::map< int,CdiGrid >::iterator""'");
+ } else {
+ swig::SwigPyIterator_T<std::map< int,CdiGrid >::iterator > *iter_t = dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiGrid >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), "in method '" "GridsMap_erase" "', argument " "3"" of type '" "std::map< int,CdiGrid >::iterator""'");
+ }
+ }
+ std_map_Sl_int_Sc_CdiGrid_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_erase(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "GridsMap_erase", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiGrid >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_GridsMap_erase__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_GridsMap_erase__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiGrid >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::SwigPyIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::SwigPyIterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::SwigPyIterator_T<std::map< int,CdiGrid >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_GridsMap_erase__SWIG_2(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'GridsMap_erase'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " std::map< int,CdiGrid >::erase(std::map< int,CdiGrid >::key_type const &)\n"
+ " std::map< int,CdiGrid >::erase(std::map< int,CdiGrid >::iterator)\n"
+ " std::map< int,CdiGrid >::erase(std::map< int,CdiGrid >::iterator,std::map< int,CdiGrid >::iterator)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_find(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiGrid >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "GridsMap_find", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_find" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap_find" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->find((std::map< int,CdiGrid >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiGrid >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_lower_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiGrid >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "GridsMap_lower_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_lower_bound" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap_lower_bound" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->lower_bound((std::map< int,CdiGrid >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiGrid >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_GridsMap_upper_bound(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+ std::map< int,CdiGrid >::iterator result;
+
+ if (!SWIG_Python_UnpackTuple(args, "GridsMap_upper_bound", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "GridsMap_upper_bound" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "GridsMap_upper_bound" "', argument " "2"" of type '" "std::map< int,CdiGrid >::key_type""'");
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->upper_bound((std::map< int,CdiGrid >::key_type const &)*arg2);
+ resultobj = SWIG_NewPointerObj(swig::make_output_iterator(static_cast< const std::map< int,CdiGrid >::iterator & >(result)),
+ swig::SwigPyIterator::descriptor(),SWIG_POINTER_OWN);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_GridsMap(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_GridsMap" "', argument " "1"" of type '" "std::map< int,CdiGrid > *""'");
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *GridsMap_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *GridsMap_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_CdiGrid__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ CdiGrid *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (CdiGrid *)new CdiGrid();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiGrid, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_CdiGrid__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ int arg1 ;
+ int val1 ;
+ int ecode1 = 0 ;
+ CdiGrid *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ ecode1 = SWIG_AsVal_int(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_CdiGrid" "', argument " "1"" of type '" "int""'");
+ }
+ arg1 = static_cast< int >(val1);
+ result = (CdiGrid *)new CdiGrid(arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiGrid, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_CdiGrid(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[2] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_CdiGrid", 0, 1, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_CdiGrid__SWIG_0(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_int(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_CdiGrid__SWIG_1(self, argc, argv);
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_CdiGrid'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " CdiGrid::CdiGrid()\n"
+ " CdiGrid::CdiGrid(int)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_CdiGrid(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_CdiGrid" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_gridID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_gridID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_gridID_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_gridID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->gridID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_gridID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_gridID_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->gridID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_type_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_type_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_type_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_type_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->type = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_type_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_type_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->type);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_size_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_size_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_size_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_size_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->size = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_size_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_size_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->size);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xsize_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_xsize_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xsize_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_xsize_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->xsize = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xsize_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xsize_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->xsize);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ysize_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_ysize_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ysize_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_ysize_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ysize = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ysize_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ysize_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->ysize);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_prec_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_prec_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_prec_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_prec_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->prec = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_prec_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_prec_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->prec);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ncorner_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_ncorner_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ncorner_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_ncorner_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ncorner = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ncorner_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ncorner_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->ncorner);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_hasXValues_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ bool arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_hasXValues_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_hasXValues_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_bool(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_hasXValues_set" "', argument " "2"" of type '" "bool""'");
+ }
+ arg2 = static_cast< bool >(val2);
+ if (arg1) (arg1)->hasXValues = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_hasXValues_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_hasXValues_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (bool) ((arg1)->hasXValues);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_hasYValues_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ bool arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_hasYValues_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_hasYValues_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_bool(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_hasYValues_set" "', argument " "2"" of type '" "bool""'");
+ }
+ arg2 = static_cast< bool >(val2);
+ if (arg1) (arg1)->hasYValues = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_hasYValues_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_hasYValues_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (bool) ((arg1)->hasYValues);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_hasBounds_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ bool arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_hasBounds_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_hasBounds_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_bool(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiGrid_hasBounds_set" "', argument " "2"" of type '" "bool""'");
+ }
+ arg2 = static_cast< bool >(val2);
+ if (arg1) (arg1)->hasBounds = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_hasBounds_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ bool result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_hasBounds_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (bool) ((arg1)->hasBounds);
+ resultobj = SWIG_From_bool(static_cast< bool >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xvalues_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_xvalues_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xvalues_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_xvalues_set" "', argument " "2"" of type '" "std::vector< double,std::allocator< double > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->xvalues = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xvalues_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xvalues_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->xvalues);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_yvalues_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_yvalues_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_yvalues_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_yvalues_set" "', argument " "2"" of type '" "std::vector< double,std::allocator< double > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->yvalues = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_yvalues_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_yvalues_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->yvalues);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xbounds_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_xbounds_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xbounds_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_xbounds_set" "', argument " "2"" of type '" "std::vector< double,std::allocator< double > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->xbounds = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xbounds_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xbounds_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->xbounds);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ybounds_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_ybounds_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ybounds_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_ybounds_set" "', argument " "2"" of type '" "std::vector< double,std::allocator< double > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->ybounds = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ybounds_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ybounds_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->ybounds);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_xname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xname_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_xname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiGrid_xname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->xname = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xname_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->xname);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xlongname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_xlongname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xlongname_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_xlongname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiGrid_xlongname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->xlongname = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xlongname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xlongname_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->xlongname);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xstdname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_xstdname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xstdname_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_xstdname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiGrid_xstdname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->xstdname = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xstdname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xstdname_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->xstdname);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xunits_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_xunits_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xunits_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_xunits_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiGrid_xunits_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->xunits = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_xunits_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_xunits_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->xunits);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_yname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_yname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_yname_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_yname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiGrid_yname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->yname = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_yname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_yname_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->yname);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ylongname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_ylongname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ylongname_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_ylongname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiGrid_ylongname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->ylongname = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ylongname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ylongname_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->ylongname);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ystdname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_ystdname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ystdname_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_ystdname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiGrid_ystdname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->ystdname = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_ystdname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_ystdname_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->ystdname);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_yunits_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_yunits_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_yunits_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_yunits_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiGrid_yunits_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->yunits = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_yunits_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_yunits_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->yunits);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_name_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_name_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_name_set" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_name_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiGrid_name_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->name = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_name_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_name_get" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->name);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_getValues(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_getValues" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ (arg1)->getValues();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_getBounds(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_getBounds" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ (arg1)->getBounds();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_getValuesAsPointer(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ double *arg2 = (double *) 0 ;
+ double *arg3 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_getValuesAsPointer", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_getValuesAsPointer" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_double, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_getValuesAsPointer" "', argument " "2"" of type '" "double *""'");
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3,SWIGTYPE_p_double, 0 | 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "CdiGrid_getValuesAsPointer" "', argument " "3"" of type '" "double *""'");
+ }
+ arg3 = reinterpret_cast< double * >(argp3);
+ (arg1)->getValuesAsPointer(arg2,arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_getBoundsAsPointer(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ double *arg2 = (double *) 0 ;
+ double *arg3 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_getBoundsAsPointer", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_getBoundsAsPointer" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_double, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_getBoundsAsPointer" "', argument " "2"" of type '" "double *""'");
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3,SWIGTYPE_p_double, 0 | 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "CdiGrid_getBoundsAsPointer" "', argument " "3"" of type '" "double *""'");
+ }
+ arg3 = reinterpret_cast< double * >(argp3);
+ (arg1)->getBoundsAsPointer(arg2,arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_getFloatVals(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ float *arg2 = (float *) 0 ;
+ float *arg3 = (float *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_getFloatVals", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_getFloatVals" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_float, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_getFloatVals" "', argument " "2"" of type '" "float *""'");
+ }
+ arg2 = reinterpret_cast< float * >(argp2);
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3,SWIGTYPE_p_float, 0 | 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "CdiGrid_getFloatVals" "', argument " "3"" of type '" "float *""'");
+ }
+ arg3 = reinterpret_cast< float * >(argp3);
+ (arg1)->getFloatVals(arg2,arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiGrid_getFloatBounds(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ float *arg2 = (float *) 0 ;
+ float *arg3 = (float *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+ PyObject *swig_obj[3] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiGrid_getFloatBounds", 3, 3, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiGrid_getFloatBounds" "', argument " "1"" of type '" "CdiGrid *""'");
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_float, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiGrid_getFloatBounds" "', argument " "2"" of type '" "float *""'");
+ }
+ arg2 = reinterpret_cast< float * >(argp2);
+ res3 = SWIG_ConvertPtr(swig_obj[2], &argp3,SWIGTYPE_p_float, 0 | 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "CdiGrid_getFloatBounds" "', argument " "3"" of type '" "float *""'");
+ }
+ arg3 = reinterpret_cast< float * >(argp3);
+ (arg1)->getFloatBounds(arg2,arg3);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *CdiGrid_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_CdiGrid, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *CdiGrid_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_CdiTaxis__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ CdiTaxis *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (CdiTaxis *)new CdiTaxis();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiTaxis, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_CdiTaxis__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ int arg1 ;
+ int val1 ;
+ int ecode1 = 0 ;
+ CdiTaxis *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ ecode1 = SWIG_AsVal_int(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_CdiTaxis" "', argument " "1"" of type '" "int""'");
+ }
+ arg1 = static_cast< int >(val1);
+ result = (CdiTaxis *)new CdiTaxis(arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiTaxis, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_CdiTaxis(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[2] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_CdiTaxis", 0, 1, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_CdiTaxis__SWIG_0(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_int(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_CdiTaxis__SWIG_1(self, argc, argv);
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_CdiTaxis'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " CdiTaxis::CdiTaxis()\n"
+ " CdiTaxis::CdiTaxis(int)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_CdiTaxis(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_CdiTaxis" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_taxisID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_taxisID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_taxisID_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_taxisID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->taxisID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_taxisID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_taxisID_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->taxisID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_ntsteps_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_ntsteps_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_ntsteps_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_ntsteps_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ntsteps = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_ntsteps_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_ntsteps_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->ntsteps);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_unit_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_unit_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_unit_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_unit_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->unit = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_unit_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_unit_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->unit);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_rdate_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_rdate_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_rdate_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_rdate_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->rdate = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_rdate_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_rdate_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->rdate);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_rtime_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_rtime_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_rtime_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_rtime_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->rtime = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_rtime_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_rtime_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->rtime);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_vdate_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_vdate_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_vdate_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_vdate_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->vdate = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_vdate_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_vdate_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->vdate);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_vtime_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_vtime_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_vtime_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_vtime_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->vtime = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_vtime_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_vtime_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->vtime);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_type_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_type_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_type_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_type_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->type = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_type_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_type_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->type);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_calendar_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_calendar_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_calendar_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_calendar_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->calendar = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_calendar_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_calendar_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->calendar);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_hasBounds_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_hasBounds_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_hasBounds_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiTaxis_hasBounds_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->hasBounds = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_hasBounds_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_hasBounds_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->hasBounds);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_name_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ char *arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ char temp2[CDI_MAX_NAME] ;
+ int res2 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_name_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_name_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ res2 = SWIG_AsCharArray(swig_obj[1], temp2, CDI_MAX_NAME);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiTaxis_name_set" "', argument " "2"" of type '" "char [CDI_MAX_NAME]""'");
+ }
+ arg2 = reinterpret_cast< char * >(temp2);
+ if (arg2) memcpy(arg1->name,arg2,CDI_MAX_NAME*sizeof(char));
+ else memset(arg1->name,0,CDI_MAX_NAME*sizeof(char));
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_name_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ char *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_name_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (char *)(char *) ((arg1)->name);
+ {
+ size_t size = SWIG_strnlen(result, CDI_MAX_NAME);
+
+
+
+ resultobj = SWIG_FromCharPtrAndSize(result, size);
+ }
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_unitname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ char *arg2 = (char *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 ;
+ char *buf2 = 0 ;
+ int alloc2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiTaxis_unitname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_unitname_set" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ res2 = SWIG_AsCharPtrAndSize(swig_obj[1], &buf2, NULL, &alloc2);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiTaxis_unitname_set" "', argument " "2"" of type '" "char const *""'");
+ }
+ arg2 = reinterpret_cast< char * >(buf2);
+ if (arg2) {
+ size_t size = strlen(reinterpret_cast< const char * >(reinterpret_cast< const char * >(arg2))) + 1;
+ arg1->unitname = (char const *)reinterpret_cast< char* >(memcpy(new char[size], arg2, sizeof(char)*(size)));
+ } else {
+ arg1->unitname = 0;
+ }
+ resultobj = SWIG_Py_Void();
+ if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
+ return resultobj;
+fail:
+ if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiTaxis_unitname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ char *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiTaxis_unitname_get" "', argument " "1"" of type '" "CdiTaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (char *) ((arg1)->unitname);
+ resultobj = SWIG_FromCharPtr((const char *)result);
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *CdiTaxis_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_CdiTaxis, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *CdiTaxis_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_CdiZaxis__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ CdiZaxis *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (CdiZaxis *)new CdiZaxis();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiZaxis, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_CdiZaxis__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ int arg1 ;
+ int val1 ;
+ int ecode1 = 0 ;
+ CdiZaxis *result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ ecode1 = SWIG_AsVal_int(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_CdiZaxis" "', argument " "1"" of type '" "int""'");
+ }
+ arg1 = static_cast< int >(val1);
+ result = (CdiZaxis *)new CdiZaxis(arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiZaxis, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_CdiZaxis(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[2] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_CdiZaxis", 0, 1, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_CdiZaxis__SWIG_0(self, argc, argv);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_int(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_CdiZaxis__SWIG_1(self, argc, argv);
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_CdiZaxis'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " CdiZaxis::CdiZaxis()\n"
+ " CdiZaxis::CdiZaxis(int)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_CdiZaxis(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_CdiZaxis" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_zaxisID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_zaxisID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_zaxisID_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiZaxis_zaxisID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->zaxisID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_zaxisID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_zaxisID_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->zaxisID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_type_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_type_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_type_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiZaxis_type_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->type = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_type_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_type_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->type);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_ltype_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_ltype_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_ltype_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiZaxis_ltype_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ltype = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_ltype_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_ltype_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->ltype);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_size_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_size_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_size_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiZaxis_size_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->size = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_size_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_size_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->size);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_prec_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_prec_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_prec_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiZaxis_prec_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->prec = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_prec_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_prec_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->prec);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_plevels_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ double *arg2 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_plevels_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_plevels_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_plevels_set" "', argument " "2"" of type '" "double *""'");
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ if (arg1) (arg1)->plevels = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_plevels_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ double *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_plevels_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (double *) ((arg1)->plevels);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_plbounds_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ double *arg2 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_plbounds_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_plbounds_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_plbounds_set" "', argument " "2"" of type '" "double *""'");
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ if (arg1) (arg1)->plbounds = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_plbounds_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ double *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_plbounds_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (double *) ((arg1)->plbounds);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_pubounds_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ double *arg2 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_pubounds_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_pubounds_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_pubounds_set" "', argument " "2"" of type '" "double *""'");
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ if (arg1) (arg1)->pubounds = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_pubounds_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ double *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_pubounds_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (double *) ((arg1)->pubounds);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_pweights_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ double *arg2 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_pweights_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_pweights_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_pweights_set" "', argument " "2"" of type '" "double *""'");
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ if (arg1) (arg1)->pweights = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_pweights_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ double *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_pweights_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (double *) ((arg1)->pweights);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_levels_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_levels_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_levels_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_levels_set" "', argument " "2"" of type '" "std::vector< double,std::allocator< double > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->levels = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_levels_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_levels_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->levels);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_lbounds_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_lbounds_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_lbounds_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_lbounds_set" "', argument " "2"" of type '" "std::vector< double,std::allocator< double > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->lbounds = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_lbounds_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_lbounds_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->lbounds);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_ubounds_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_ubounds_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_ubounds_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_ubounds_set" "', argument " "2"" of type '" "std::vector< double,std::allocator< double > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->ubounds = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_ubounds_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_ubounds_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->ubounds);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_weights_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_weights_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_weights_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_weights_set" "', argument " "2"" of type '" "std::vector< double,std::allocator< double > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->weights = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_weights_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_weights_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->weights);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_name_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_name_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_name_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_name_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiZaxis_name_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->name = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_name_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_name_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::string *) & ((arg1)->name);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_longname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_longname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_longname_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_longname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiZaxis_longname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->longname = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_longname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_longname_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::string *) & ((arg1)->longname);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_units_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiZaxis_units_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_units_set" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiZaxis_units_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiZaxis_units_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->units = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiZaxis_units_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiZaxis_units_get" "', argument " "1"" of type '" "CdiZaxis *""'");
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::string *) & ((arg1)->units);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *CdiZaxis_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_CdiZaxis, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *CdiZaxis_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_CdiVariable__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **SWIGUNUSEDPARM(swig_obj)) {
+ PyObject *resultobj = 0;
+ CdiVariable *result = 0 ;
+
+ if ((nobjs < 0) || (nobjs > 0)) SWIG_fail;
+ result = (CdiVariable *)new CdiVariable();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiVariable, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_CdiVariable__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ int arg1 ;
+ int arg2 ;
+ int arg3 ;
+ int val1 ;
+ int ecode1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ int val3 ;
+ int ecode3 = 0 ;
+ CdiVariable *result = 0 ;
+
+ if ((nobjs < 3) || (nobjs > 3)) SWIG_fail;
+ ecode1 = SWIG_AsVal_int(swig_obj[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "new_CdiVariable" "', argument " "1"" of type '" "int""'");
+ }
+ arg1 = static_cast< int >(val1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "new_CdiVariable" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ ecode3 = SWIG_AsVal_int(swig_obj[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "new_CdiVariable" "', argument " "3"" of type '" "int""'");
+ }
+ arg3 = static_cast< int >(val3);
+ result = (CdiVariable *)new CdiVariable(arg1,arg2,arg3);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiVariable, SWIG_POINTER_NEW | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_new_CdiVariable(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[4] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "new_CdiVariable", 0, 3, argv))) SWIG_fail;
+ --argc;
+ if (argc == 0) {
+ return _wrap_new_CdiVariable__SWIG_0(self, argc, argv);
+ }
+ if (argc == 3) {
+ int _v;
+ {
+ int res = SWIG_AsVal_int(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_CdiVariable__SWIG_1(self, argc, argv);
+ }
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'new_CdiVariable'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " CdiVariable::CdiVariable()\n"
+ " CdiVariable::CdiVariable(int,int,int)\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_CdiVariable(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_CdiVariable" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_varID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_varID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_varID_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_varID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->varID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_varID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_varID_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->varID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_zaxisID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_zaxisID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_zaxisID_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_zaxisID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->zaxisID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_zaxisID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_zaxisID_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->zaxisID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_gridID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_gridID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_gridID_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_gridID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->gridID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_gridID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_gridID_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->gridID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_taxisID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_taxisID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_taxisID_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_taxisID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->taxisID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_taxisID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_taxisID_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->taxisID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_timeID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_timeID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_timeID_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_timeID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->timeID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_timeID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_timeID_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->timeID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_vlistID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_vlistID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_vlistID_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_vlistID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->vlistID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_vlistID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_vlistID_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->vlistID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_size_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_size_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_size_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_size_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->size = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_size_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_size_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->size);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_code_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_code_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_code_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_code_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->code = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_code_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_code_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->code);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_datatype_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_datatype_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_datatype_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_datatype_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->datatype = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_datatype_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_datatype_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->datatype);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_streamID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_streamID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_streamID_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_streamID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->streamID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_streamID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_streamID_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->streamID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_name_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_name_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_name_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiVariable_name_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiVariable_name_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->name = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_name_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_name_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::string *) & ((arg1)->name);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_longname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_longname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_longname_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiVariable_longname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiVariable_longname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->longname = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_longname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_longname_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::string *) & ((arg1)->longname);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_units_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_units_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_units_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiVariable_units_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiVariable_units_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->units = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_units_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_units_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::string *) & ((arg1)->units);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_stdname_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_stdname_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_stdname_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(swig_obj[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiVariable_stdname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "CdiVariable_stdname_set" "', argument " "2"" of type '" "std::string const &""'");
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->stdname = *arg2;
+ resultobj = SWIG_Py_Void();
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return resultobj;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_stdname_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::string *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_stdname_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::string *) & ((arg1)->stdname);
+ resultobj = SWIG_From_std_string(static_cast< std::string >(*result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_missval_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ double arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_missval_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_missval_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_double(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_missval_set" "', argument " "2"" of type '" "double""'");
+ }
+ arg2 = static_cast< double >(val2);
+ if (arg1) (arg1)->missval = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_missval_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ double result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_missval_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (double) ((arg1)->missval);
+ resultobj = SWIG_From_double(static_cast< double >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_values_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_values_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_values_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiVariable_values_set" "', argument " "2"" of type '" "std::vector< double,std::allocator< double > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->values = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_values_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_values_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->values);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_valuesWithLevel_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *arg2 = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_valuesWithLevel_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_valuesWithLevel_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiVariable_valuesWithLevel_set" "', argument " "2"" of type '" "std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > * >(argp2);
+ if (arg1) (arg1)->valuesWithLevel = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_valuesWithLevel_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_valuesWithLevel_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)& ((arg1)->valuesWithLevel);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_grid_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ CdiGrid *arg2 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_grid_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_grid_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiVariable_grid_set" "', argument " "2"" of type '" "CdiGrid *""'");
+ }
+ arg2 = reinterpret_cast< CdiGrid * >(argp2);
+ if (arg1) (arg1)->grid = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_grid_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ CdiGrid *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_grid_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (CdiGrid *)& ((arg1)->grid);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiGrid, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_zaxis_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ CdiZaxis *arg2 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_zaxis_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_zaxis_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiVariable_zaxis_set" "', argument " "2"" of type '" "CdiZaxis *""'");
+ }
+ arg2 = reinterpret_cast< CdiZaxis * >(argp2);
+ if (arg1) (arg1)->zaxis = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_zaxis_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ CdiZaxis *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_zaxis_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (CdiZaxis *)& ((arg1)->zaxis);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_taxis_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ CdiTaxis *arg2 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "CdiVariable_taxis_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_taxis_set" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "CdiVariable_taxis_set" "', argument " "2"" of type '" "CdiTaxis *""'");
+ }
+ arg2 = reinterpret_cast< CdiTaxis * >(argp2);
+ if (arg1) (arg1)->taxis = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_taxis_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ CdiTaxis *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_taxis_get" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (CdiTaxis *)& ((arg1)->taxis);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_sinfo(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_sinfo" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ (arg1)->sinfo();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getValues(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_getValues" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ (arg1)->getValues();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getValuesWithLevel__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_getValuesWithLevel" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_getValuesWithLevel" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ (arg1)->getValuesWithLevel(arg2);
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getValuesWithLevel__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_getValuesWithLevel" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ (arg1)->getValuesWithLevel();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getValuesWithLevel(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "CdiVariable_getValuesWithLevel", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_CdiVariable_getValuesWithLevel__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_CdiVariable_getValuesWithLevel__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'CdiVariable_getValuesWithLevel'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " CdiVariable::getValuesWithLevel(int)\n"
+ " CdiVariable::getValuesWithLevel()\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getFValues(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ SwigValueWrapper< std::vector< float,std::allocator< float > > > result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_getFValues" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (arg1)->getFValues();
+ resultobj = SWIG_NewPointerObj((new std::vector< float,std::allocator< float > >(static_cast< const std::vector< float,std::allocator< float > >& >(result))), SWIGTYPE_p_std__vectorT_float_std__allocatorT_float_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getFValuesWithLevel__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ SwigValueWrapper< std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > > > result;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_getFValuesWithLevel" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_getFValuesWithLevel" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ result = (arg1)->getFValuesWithLevel(arg2);
+ resultobj = SWIG_NewPointerObj((new std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > >(static_cast< const std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > >& >(result))), SWIGTYPE_p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getFValuesWithLevel__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > > > result;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_getFValuesWithLevel" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (arg1)->getFValuesWithLevel();
+ resultobj = SWIG_NewPointerObj((new std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > >(static_cast< const std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > >& >(result))), SWIGTYPE_p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t, SWIG_POINTER_OWN | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getFValuesWithLevel(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "CdiVariable_getFValuesWithLevel", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_CdiVariable_getFValuesWithLevel__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_CdiVariable_getFValuesWithLevel__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'CdiVariable_getFValuesWithLevel'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " CdiVariable::getFValuesWithLevel(int)\n"
+ " CdiVariable::getFValuesWithLevel()\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getValuesAsPointer(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ double *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_getValuesAsPointer" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (double *)(arg1)->getValuesAsPointer();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getValuesWithLevelAsPointer__SWIG_0(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ double **result = 0 ;
+
+ if ((nobjs < 2) || (nobjs > 2)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_getValuesWithLevelAsPointer" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "CdiVariable_getValuesWithLevelAsPointer" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ result = (double **)(arg1)->getValuesWithLevelAsPointer(arg2);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_p_double, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getValuesWithLevelAsPointer__SWIG_1(PyObject *SWIGUNUSEDPARM(self), Py_ssize_t nobjs, PyObject **swig_obj) {
+ PyObject *resultobj = 0;
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double **result = 0 ;
+
+ if ((nobjs < 1) || (nobjs > 1)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "CdiVariable_getValuesWithLevelAsPointer" "', argument " "1"" of type '" "CdiVariable *""'");
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (double **)(arg1)->getValuesWithLevelAsPointer();
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_p_double, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_CdiVariable_getValuesWithLevelAsPointer(PyObject *self, PyObject *args) {
+ Py_ssize_t argc;
+ PyObject *argv[3] = {
+ 0
+ };
+
+ if (!(argc = SWIG_Python_UnpackTuple(args, "CdiVariable_getValuesWithLevelAsPointer", 0, 2, argv))) SWIG_fail;
+ --argc;
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_CdiVariable_getValuesWithLevelAsPointer__SWIG_1(self, argc, argv);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_CdiVariable_getValuesWithLevelAsPointer__SWIG_0(self, argc, argv);
+ }
+ }
+ }
+
+fail:
+ SWIG_Python_RaiseOrModifyTypeError("Wrong number or type of arguments for overloaded function 'CdiVariable_getValuesWithLevelAsPointer'.\n"
+ " Possible C/C++ prototypes are:\n"
+ " CdiVariable::getValuesWithLevelAsPointer(int)\n"
+ " CdiVariable::getValuesWithLevelAsPointer()\n");
+ return 0;
+}
+
+
+SWIGINTERN PyObject *CdiVariable_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_CdiVariable, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *CdiVariable_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+SWIGINTERN PyObject *_wrap_new_Cdi(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ char *arg1 = (char *) 0 ;
+ int res1 ;
+ char *buf1 = 0 ;
+ int alloc1 = 0 ;
+ PyObject *swig_obj[1] ;
+ Cdi *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_AsCharPtrAndSize(swig_obj[0], &buf1, NULL, &alloc1);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "new_Cdi" "', argument " "1"" of type '" "char const *""'");
+ }
+ arg1 = reinterpret_cast< char * >(buf1);
+ result = (Cdi *)new Cdi((char const *)arg1);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_Cdi, SWIG_POINTER_NEW | 0 );
+ if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
+ return resultobj;
+fail:
+ if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_delete_Cdi(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_Cdi" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ delete arg1;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_streamID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_streamID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_streamID_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "Cdi_streamID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->streamID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_streamID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_streamID_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->streamID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_vlistID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_vlistID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_vlistID_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "Cdi_vlistID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->vlistID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_vlistID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_vlistID_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->vlistID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_nvars_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_nvars_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_nvars_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "Cdi_nvars_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->nvars = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_nvars_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_nvars_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->nvars);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_nzaxes_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_nzaxes_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_nzaxes_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "Cdi_nzaxes_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->nzaxes = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_nzaxes_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_nzaxes_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->nzaxes);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_ngrids_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_ngrids_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_ngrids_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "Cdi_ngrids_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ngrids = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_ngrids_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_ngrids_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->ngrids);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_ntaxes_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_ntaxes_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_ntaxes_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "Cdi_ntaxes_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ntaxes = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_ntaxes_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_ntaxes_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->ntaxes);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_taxisID_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_taxisID_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_taxisID_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(swig_obj[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "Cdi_taxisID_set" "', argument " "2"" of type '" "int""'");
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->taxisID = arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_taxisID_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ int result;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_taxisID_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->taxisID);
+ resultobj = SWIG_From_int(static_cast< int >(result));
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_varnames_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::vector< std::string,std::allocator< std::string > > *arg2 = (std::vector< std::string,std::allocator< std::string > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_varnames_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_varnames_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Cdi_varnames_set" "', argument " "2"" of type '" "std::vector< std::string,std::allocator< std::string > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< std::string,std::allocator< std::string > > * >(argp2);
+ if (arg1) (arg1)->varnames = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_varnames_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_varnames_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::vector< std::string,std::allocator< std::string > > *)& ((arg1)->varnames);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_codes_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::vector< int,std::allocator< int > > *arg2 = (std::vector< int,std::allocator< int > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_codes_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_codes_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Cdi_codes_set" "', argument " "2"" of type '" "std::vector< int,std::allocator< int > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< int,std::allocator< int > > * >(argp2);
+ if (arg1) (arg1)->codes = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_codes_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_codes_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::vector< int,std::allocator< int > > *)& ((arg1)->codes);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_variables_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *arg2 = (std::vector< CdiVariable,std::allocator< CdiVariable > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_variables_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_variables_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Cdi_variables_set" "', argument " "2"" of type '" "std::vector< CdiVariable,std::allocator< CdiVariable > > *""'");
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable,std::allocator< CdiVariable > > * >(argp2);
+ if (arg1) (arg1)->variables = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_variables_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_variables_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)& ((arg1)->variables);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_var_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *arg2 = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_var_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_var_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Cdi_var_set" "', argument " "2"" of type '" "std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *""'");
+ }
+ arg2 = reinterpret_cast< std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > * >(argp2);
+ if (arg1) (arg1)->var = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_var_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_var_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *)& ((arg1)->var);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_varByCode_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *arg2 = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_varByCode_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_varByCode_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Cdi_varByCode_set" "', argument " "2"" of type '" "std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *""'");
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > * >(argp2);
+ if (arg1) (arg1)->varByCode = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_varByCode_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_varByCode_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *)& ((arg1)->varByCode);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_taxes_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *arg2 = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_taxes_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_taxes_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Cdi_taxes_set" "', argument " "2"" of type '" "std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *""'");
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > * >(argp2);
+ if (arg1) (arg1)->taxes = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_taxes_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_taxes_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *)& ((arg1)->taxes);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_zaxes_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *arg2 = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_zaxes_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_zaxes_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Cdi_zaxes_set" "', argument " "2"" of type '" "std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *""'");
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > * >(argp2);
+ if (arg1) (arg1)->zaxes = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_zaxes_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_zaxes_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *)& ((arg1)->zaxes);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_grids_set(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *arg2 = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ PyObject *swig_obj[2] ;
+
+ if (!SWIG_Python_UnpackTuple(args, "Cdi_grids_set", 2, 2, swig_obj)) SWIG_fail;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_grids_set" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(swig_obj[1], &argp2,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "Cdi_grids_set" "', argument " "2"" of type '" "std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *""'");
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > * >(argp2);
+ if (arg1) (arg1)->grids = *arg2;
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_grids_get(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *result = 0 ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_grids_get" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *)& ((arg1)->grids);
+ resultobj = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *_wrap_Cdi_griddes(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *resultobj = 0;
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ PyObject *swig_obj[1] ;
+
+ if (!args) SWIG_fail;
+ swig_obj[0] = args;
+ res1 = SWIG_ConvertPtr(swig_obj[0], &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "Cdi_griddes" "', argument " "1"" of type '" "Cdi *""'");
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ (arg1)->griddes();
+ resultobj = SWIG_Py_Void();
+ return resultobj;
+fail:
+ return NULL;
+}
+
+
+SWIGINTERN PyObject *Cdi_swigregister(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ PyObject *obj;
+ if (!SWIG_Python_UnpackTuple(args, "swigregister", 1, 1, &obj)) return NULL;
+ SWIG_TypeNewClientData(SWIGTYPE_p_Cdi, SWIG_NewClientData(obj));
+ return SWIG_Py_Void();
+}
+
+SWIGINTERN PyObject *Cdi_swiginit(PyObject *SWIGUNUSEDPARM(self), PyObject *args) {
+ return SWIG_Python_InitShadowInstance(args);
+}
+
+static PyMethodDef SwigMethods[] = {
+ { "SWIG_PyInstanceMethod_New", SWIG_PyInstanceMethod_New, METH_O, NULL},
+ { "delete_SwigPyIterator", _wrap_delete_SwigPyIterator, METH_O, NULL},
+ { "SwigPyIterator_value", _wrap_SwigPyIterator_value, METH_O, NULL},
+ { "SwigPyIterator_incr", _wrap_SwigPyIterator_incr, METH_VARARGS, NULL},
+ { "SwigPyIterator_decr", _wrap_SwigPyIterator_decr, METH_VARARGS, NULL},
+ { "SwigPyIterator_distance", _wrap_SwigPyIterator_distance, METH_VARARGS, NULL},
+ { "SwigPyIterator_equal", _wrap_SwigPyIterator_equal, METH_VARARGS, NULL},
+ { "SwigPyIterator_copy", _wrap_SwigPyIterator_copy, METH_O, NULL},
+ { "SwigPyIterator_next", _wrap_SwigPyIterator_next, METH_O, NULL},
+ { "SwigPyIterator___next__", _wrap_SwigPyIterator___next__, METH_O, NULL},
+ { "SwigPyIterator_previous", _wrap_SwigPyIterator_previous, METH_O, NULL},
+ { "SwigPyIterator_advance", _wrap_SwigPyIterator_advance, METH_VARARGS, NULL},
+ { "SwigPyIterator___eq__", _wrap_SwigPyIterator___eq__, METH_VARARGS, NULL},
+ { "SwigPyIterator___ne__", _wrap_SwigPyIterator___ne__, METH_VARARGS, NULL},
+ { "SwigPyIterator___iadd__", _wrap_SwigPyIterator___iadd__, METH_VARARGS, NULL},
+ { "SwigPyIterator___isub__", _wrap_SwigPyIterator___isub__, METH_VARARGS, NULL},
+ { "SwigPyIterator___add__", _wrap_SwigPyIterator___add__, METH_VARARGS, NULL},
+ { "SwigPyIterator___sub__", _wrap_SwigPyIterator___sub__, METH_VARARGS, NULL},
+ { "SwigPyIterator_swigregister", SwigPyIterator_swigregister, METH_O, NULL},
+ { "IntVector_iterator", _wrap_IntVector_iterator, METH_O, NULL},
+ { "IntVector___nonzero__", _wrap_IntVector___nonzero__, METH_O, NULL},
+ { "IntVector___bool__", _wrap_IntVector___bool__, METH_O, NULL},
+ { "IntVector___len__", _wrap_IntVector___len__, METH_O, NULL},
+ { "IntVector___getslice__", _wrap_IntVector___getslice__, METH_VARARGS, NULL},
+ { "IntVector___setslice__", _wrap_IntVector___setslice__, METH_VARARGS, NULL},
+ { "IntVector___delslice__", _wrap_IntVector___delslice__, METH_VARARGS, NULL},
+ { "IntVector___delitem__", _wrap_IntVector___delitem__, METH_VARARGS, NULL},
+ { "IntVector___getitem__", _wrap_IntVector___getitem__, METH_VARARGS, NULL},
+ { "IntVector___setitem__", _wrap_IntVector___setitem__, METH_VARARGS, NULL},
+ { "IntVector_pop", _wrap_IntVector_pop, METH_O, NULL},
+ { "IntVector_append", _wrap_IntVector_append, METH_VARARGS, NULL},
+ { "IntVector_empty", _wrap_IntVector_empty, METH_O, NULL},
+ { "IntVector_size", _wrap_IntVector_size, METH_O, NULL},
+ { "IntVector_swap", _wrap_IntVector_swap, METH_VARARGS, NULL},
+ { "IntVector_begin", _wrap_IntVector_begin, METH_O, NULL},
+ { "IntVector_end", _wrap_IntVector_end, METH_O, NULL},
+ { "IntVector_rbegin", _wrap_IntVector_rbegin, METH_O, NULL},
+ { "IntVector_rend", _wrap_IntVector_rend, METH_O, NULL},
+ { "IntVector_clear", _wrap_IntVector_clear, METH_O, NULL},
+ { "IntVector_get_allocator", _wrap_IntVector_get_allocator, METH_O, NULL},
+ { "IntVector_pop_back", _wrap_IntVector_pop_back, METH_O, NULL},
+ { "IntVector_erase", _wrap_IntVector_erase, METH_VARARGS, NULL},
+ { "new_IntVector", _wrap_new_IntVector, METH_VARARGS, NULL},
+ { "IntVector_push_back", _wrap_IntVector_push_back, METH_VARARGS, NULL},
+ { "IntVector_front", _wrap_IntVector_front, METH_O, NULL},
+ { "IntVector_back", _wrap_IntVector_back, METH_O, NULL},
+ { "IntVector_assign", _wrap_IntVector_assign, METH_VARARGS, NULL},
+ { "IntVector_resize", _wrap_IntVector_resize, METH_VARARGS, NULL},
+ { "IntVector_insert", _wrap_IntVector_insert, METH_VARARGS, NULL},
+ { "IntVector_reserve", _wrap_IntVector_reserve, METH_VARARGS, NULL},
+ { "IntVector_capacity", _wrap_IntVector_capacity, METH_O, NULL},
+ { "delete_IntVector", _wrap_delete_IntVector, METH_O, NULL},
+ { "IntVector_swigregister", IntVector_swigregister, METH_O, NULL},
+ { "IntVector_swiginit", IntVector_swiginit, METH_VARARGS, NULL},
+ { "DoubleVector_iterator", _wrap_DoubleVector_iterator, METH_O, NULL},
+ { "DoubleVector___nonzero__", _wrap_DoubleVector___nonzero__, METH_O, NULL},
+ { "DoubleVector___bool__", _wrap_DoubleVector___bool__, METH_O, NULL},
+ { "DoubleVector___len__", _wrap_DoubleVector___len__, METH_O, NULL},
+ { "DoubleVector___getslice__", _wrap_DoubleVector___getslice__, METH_VARARGS, NULL},
+ { "DoubleVector___setslice__", _wrap_DoubleVector___setslice__, METH_VARARGS, NULL},
+ { "DoubleVector___delslice__", _wrap_DoubleVector___delslice__, METH_VARARGS, NULL},
+ { "DoubleVector___delitem__", _wrap_DoubleVector___delitem__, METH_VARARGS, NULL},
+ { "DoubleVector___getitem__", _wrap_DoubleVector___getitem__, METH_VARARGS, NULL},
+ { "DoubleVector___setitem__", _wrap_DoubleVector___setitem__, METH_VARARGS, NULL},
+ { "DoubleVector_pop", _wrap_DoubleVector_pop, METH_O, NULL},
+ { "DoubleVector_append", _wrap_DoubleVector_append, METH_VARARGS, NULL},
+ { "DoubleVector_empty", _wrap_DoubleVector_empty, METH_O, NULL},
+ { "DoubleVector_size", _wrap_DoubleVector_size, METH_O, NULL},
+ { "DoubleVector_swap", _wrap_DoubleVector_swap, METH_VARARGS, NULL},
+ { "DoubleVector_begin", _wrap_DoubleVector_begin, METH_O, NULL},
+ { "DoubleVector_end", _wrap_DoubleVector_end, METH_O, NULL},
+ { "DoubleVector_rbegin", _wrap_DoubleVector_rbegin, METH_O, NULL},
+ { "DoubleVector_rend", _wrap_DoubleVector_rend, METH_O, NULL},
+ { "DoubleVector_clear", _wrap_DoubleVector_clear, METH_O, NULL},
+ { "DoubleVector_get_allocator", _wrap_DoubleVector_get_allocator, METH_O, NULL},
+ { "DoubleVector_pop_back", _wrap_DoubleVector_pop_back, METH_O, NULL},
+ { "DoubleVector_erase", _wrap_DoubleVector_erase, METH_VARARGS, NULL},
+ { "new_DoubleVector", _wrap_new_DoubleVector, METH_VARARGS, NULL},
+ { "DoubleVector_push_back", _wrap_DoubleVector_push_back, METH_VARARGS, NULL},
+ { "DoubleVector_front", _wrap_DoubleVector_front, METH_O, NULL},
+ { "DoubleVector_back", _wrap_DoubleVector_back, METH_O, NULL},
+ { "DoubleVector_assign", _wrap_DoubleVector_assign, METH_VARARGS, NULL},
+ { "DoubleVector_resize", _wrap_DoubleVector_resize, METH_VARARGS, NULL},
+ { "DoubleVector_insert", _wrap_DoubleVector_insert, METH_VARARGS, NULL},
+ { "DoubleVector_reserve", _wrap_DoubleVector_reserve, METH_VARARGS, NULL},
+ { "DoubleVector_capacity", _wrap_DoubleVector_capacity, METH_O, NULL},
+ { "delete_DoubleVector", _wrap_delete_DoubleVector, METH_O, NULL},
+ { "DoubleVector_swigregister", DoubleVector_swigregister, METH_O, NULL},
+ { "DoubleVector_swiginit", DoubleVector_swiginit, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_iterator", _wrap_DoubleDoubleVector_iterator, METH_O, NULL},
+ { "DoubleDoubleVector___nonzero__", _wrap_DoubleDoubleVector___nonzero__, METH_O, NULL},
+ { "DoubleDoubleVector___bool__", _wrap_DoubleDoubleVector___bool__, METH_O, NULL},
+ { "DoubleDoubleVector___len__", _wrap_DoubleDoubleVector___len__, METH_O, NULL},
+ { "DoubleDoubleVector___getslice__", _wrap_DoubleDoubleVector___getslice__, METH_VARARGS, NULL},
+ { "DoubleDoubleVector___setslice__", _wrap_DoubleDoubleVector___setslice__, METH_VARARGS, NULL},
+ { "DoubleDoubleVector___delslice__", _wrap_DoubleDoubleVector___delslice__, METH_VARARGS, NULL},
+ { "DoubleDoubleVector___delitem__", _wrap_DoubleDoubleVector___delitem__, METH_VARARGS, NULL},
+ { "DoubleDoubleVector___getitem__", _wrap_DoubleDoubleVector___getitem__, METH_VARARGS, NULL},
+ { "DoubleDoubleVector___setitem__", _wrap_DoubleDoubleVector___setitem__, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_pop", _wrap_DoubleDoubleVector_pop, METH_O, NULL},
+ { "DoubleDoubleVector_append", _wrap_DoubleDoubleVector_append, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_empty", _wrap_DoubleDoubleVector_empty, METH_O, NULL},
+ { "DoubleDoubleVector_size", _wrap_DoubleDoubleVector_size, METH_O, NULL},
+ { "DoubleDoubleVector_swap", _wrap_DoubleDoubleVector_swap, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_begin", _wrap_DoubleDoubleVector_begin, METH_O, NULL},
+ { "DoubleDoubleVector_end", _wrap_DoubleDoubleVector_end, METH_O, NULL},
+ { "DoubleDoubleVector_rbegin", _wrap_DoubleDoubleVector_rbegin, METH_O, NULL},
+ { "DoubleDoubleVector_rend", _wrap_DoubleDoubleVector_rend, METH_O, NULL},
+ { "DoubleDoubleVector_clear", _wrap_DoubleDoubleVector_clear, METH_O, NULL},
+ { "DoubleDoubleVector_get_allocator", _wrap_DoubleDoubleVector_get_allocator, METH_O, NULL},
+ { "DoubleDoubleVector_pop_back", _wrap_DoubleDoubleVector_pop_back, METH_O, NULL},
+ { "DoubleDoubleVector_erase", _wrap_DoubleDoubleVector_erase, METH_VARARGS, NULL},
+ { "new_DoubleDoubleVector", _wrap_new_DoubleDoubleVector, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_push_back", _wrap_DoubleDoubleVector_push_back, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_front", _wrap_DoubleDoubleVector_front, METH_O, NULL},
+ { "DoubleDoubleVector_back", _wrap_DoubleDoubleVector_back, METH_O, NULL},
+ { "DoubleDoubleVector_assign", _wrap_DoubleDoubleVector_assign, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_resize", _wrap_DoubleDoubleVector_resize, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_insert", _wrap_DoubleDoubleVector_insert, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_reserve", _wrap_DoubleDoubleVector_reserve, METH_VARARGS, NULL},
+ { "DoubleDoubleVector_capacity", _wrap_DoubleDoubleVector_capacity, METH_O, NULL},
+ { "delete_DoubleDoubleVector", _wrap_delete_DoubleDoubleVector, METH_O, NULL},
+ { "DoubleDoubleVector_swigregister", DoubleDoubleVector_swigregister, METH_O, NULL},
+ { "DoubleDoubleVector_swiginit", DoubleDoubleVector_swiginit, METH_VARARGS, NULL},
+ { "StringVector_iterator", _wrap_StringVector_iterator, METH_O, NULL},
+ { "StringVector___nonzero__", _wrap_StringVector___nonzero__, METH_O, NULL},
+ { "StringVector___bool__", _wrap_StringVector___bool__, METH_O, NULL},
+ { "StringVector___len__", _wrap_StringVector___len__, METH_O, NULL},
+ { "StringVector___getslice__", _wrap_StringVector___getslice__, METH_VARARGS, NULL},
+ { "StringVector___setslice__", _wrap_StringVector___setslice__, METH_VARARGS, NULL},
+ { "StringVector___delslice__", _wrap_StringVector___delslice__, METH_VARARGS, NULL},
+ { "StringVector___delitem__", _wrap_StringVector___delitem__, METH_VARARGS, NULL},
+ { "StringVector___getitem__", _wrap_StringVector___getitem__, METH_VARARGS, NULL},
+ { "StringVector___setitem__", _wrap_StringVector___setitem__, METH_VARARGS, NULL},
+ { "StringVector_pop", _wrap_StringVector_pop, METH_O, NULL},
+ { "StringVector_append", _wrap_StringVector_append, METH_VARARGS, NULL},
+ { "StringVector_empty", _wrap_StringVector_empty, METH_O, NULL},
+ { "StringVector_size", _wrap_StringVector_size, METH_O, NULL},
+ { "StringVector_swap", _wrap_StringVector_swap, METH_VARARGS, NULL},
+ { "StringVector_begin", _wrap_StringVector_begin, METH_O, NULL},
+ { "StringVector_end", _wrap_StringVector_end, METH_O, NULL},
+ { "StringVector_rbegin", _wrap_StringVector_rbegin, METH_O, NULL},
+ { "StringVector_rend", _wrap_StringVector_rend, METH_O, NULL},
+ { "StringVector_clear", _wrap_StringVector_clear, METH_O, NULL},
+ { "StringVector_get_allocator", _wrap_StringVector_get_allocator, METH_O, NULL},
+ { "StringVector_pop_back", _wrap_StringVector_pop_back, METH_O, NULL},
+ { "StringVector_erase", _wrap_StringVector_erase, METH_VARARGS, NULL},
+ { "new_StringVector", _wrap_new_StringVector, METH_VARARGS, NULL},
+ { "StringVector_push_back", _wrap_StringVector_push_back, METH_VARARGS, NULL},
+ { "StringVector_front", _wrap_StringVector_front, METH_O, NULL},
+ { "StringVector_back", _wrap_StringVector_back, METH_O, NULL},
+ { "StringVector_assign", _wrap_StringVector_assign, METH_VARARGS, NULL},
+ { "StringVector_resize", _wrap_StringVector_resize, METH_VARARGS, NULL},
+ { "StringVector_insert", _wrap_StringVector_insert, METH_VARARGS, NULL},
+ { "StringVector_reserve", _wrap_StringVector_reserve, METH_VARARGS, NULL},
+ { "StringVector_capacity", _wrap_StringVector_capacity, METH_O, NULL},
+ { "delete_StringVector", _wrap_delete_StringVector, METH_O, NULL},
+ { "StringVector_swigregister", StringVector_swigregister, METH_O, NULL},
+ { "StringVector_swiginit", StringVector_swiginit, METH_VARARGS, NULL},
+ { "VarsVector_iterator", _wrap_VarsVector_iterator, METH_O, NULL},
+ { "VarsVector___nonzero__", _wrap_VarsVector___nonzero__, METH_O, NULL},
+ { "VarsVector___bool__", _wrap_VarsVector___bool__, METH_O, NULL},
+ { "VarsVector___len__", _wrap_VarsVector___len__, METH_O, NULL},
+ { "VarsVector___getslice__", _wrap_VarsVector___getslice__, METH_VARARGS, NULL},
+ { "VarsVector___setslice__", _wrap_VarsVector___setslice__, METH_VARARGS, NULL},
+ { "VarsVector___delslice__", _wrap_VarsVector___delslice__, METH_VARARGS, NULL},
+ { "VarsVector___delitem__", _wrap_VarsVector___delitem__, METH_VARARGS, NULL},
+ { "VarsVector___getitem__", _wrap_VarsVector___getitem__, METH_VARARGS, NULL},
+ { "VarsVector___setitem__", _wrap_VarsVector___setitem__, METH_VARARGS, NULL},
+ { "VarsVector_pop", _wrap_VarsVector_pop, METH_O, NULL},
+ { "VarsVector_append", _wrap_VarsVector_append, METH_VARARGS, NULL},
+ { "VarsVector_empty", _wrap_VarsVector_empty, METH_O, NULL},
+ { "VarsVector_size", _wrap_VarsVector_size, METH_O, NULL},
+ { "VarsVector_swap", _wrap_VarsVector_swap, METH_VARARGS, NULL},
+ { "VarsVector_begin", _wrap_VarsVector_begin, METH_O, NULL},
+ { "VarsVector_end", _wrap_VarsVector_end, METH_O, NULL},
+ { "VarsVector_rbegin", _wrap_VarsVector_rbegin, METH_O, NULL},
+ { "VarsVector_rend", _wrap_VarsVector_rend, METH_O, NULL},
+ { "VarsVector_clear", _wrap_VarsVector_clear, METH_O, NULL},
+ { "VarsVector_get_allocator", _wrap_VarsVector_get_allocator, METH_O, NULL},
+ { "VarsVector_pop_back", _wrap_VarsVector_pop_back, METH_O, NULL},
+ { "VarsVector_erase", _wrap_VarsVector_erase, METH_VARARGS, NULL},
+ { "new_VarsVector", _wrap_new_VarsVector, METH_VARARGS, NULL},
+ { "VarsVector_push_back", _wrap_VarsVector_push_back, METH_VARARGS, NULL},
+ { "VarsVector_front", _wrap_VarsVector_front, METH_O, NULL},
+ { "VarsVector_back", _wrap_VarsVector_back, METH_O, NULL},
+ { "VarsVector_assign", _wrap_VarsVector_assign, METH_VARARGS, NULL},
+ { "VarsVector_resize", _wrap_VarsVector_resize, METH_VARARGS, NULL},
+ { "VarsVector_insert", _wrap_VarsVector_insert, METH_VARARGS, NULL},
+ { "VarsVector_reserve", _wrap_VarsVector_reserve, METH_VARARGS, NULL},
+ { "VarsVector_capacity", _wrap_VarsVector_capacity, METH_O, NULL},
+ { "delete_VarsVector", _wrap_delete_VarsVector, METH_O, NULL},
+ { "VarsVector_swigregister", VarsVector_swigregister, METH_O, NULL},
+ { "VarsVector_swiginit", VarsVector_swiginit, METH_VARARGS, NULL},
+ { "VarsMap_iterator", _wrap_VarsMap_iterator, METH_O, NULL},
+ { "VarsMap___nonzero__", _wrap_VarsMap___nonzero__, METH_O, NULL},
+ { "VarsMap___bool__", _wrap_VarsMap___bool__, METH_O, NULL},
+ { "VarsMap___len__", _wrap_VarsMap___len__, METH_O, NULL},
+ { "VarsMap___getitem__", _wrap_VarsMap___getitem__, METH_VARARGS, NULL},
+ { "VarsMap___delitem__", _wrap_VarsMap___delitem__, METH_VARARGS, NULL},
+ { "VarsMap_has_key", _wrap_VarsMap_has_key, METH_VARARGS, NULL},
+ { "VarsMap_keys", _wrap_VarsMap_keys, METH_O, NULL},
+ { "VarsMap_values", _wrap_VarsMap_values, METH_O, NULL},
+ { "VarsMap_items", _wrap_VarsMap_items, METH_O, NULL},
+ { "VarsMap___contains__", _wrap_VarsMap___contains__, METH_VARARGS, NULL},
+ { "VarsMap_key_iterator", _wrap_VarsMap_key_iterator, METH_O, NULL},
+ { "VarsMap_value_iterator", _wrap_VarsMap_value_iterator, METH_O, NULL},
+ { "VarsMap___setitem__", _wrap_VarsMap___setitem__, METH_VARARGS, NULL},
+ { "VarsMap_asdict", _wrap_VarsMap_asdict, METH_O, NULL},
+ { "new_VarsMap", _wrap_new_VarsMap, METH_VARARGS, NULL},
+ { "VarsMap_empty", _wrap_VarsMap_empty, METH_O, NULL},
+ { "VarsMap_size", _wrap_VarsMap_size, METH_O, NULL},
+ { "VarsMap_swap", _wrap_VarsMap_swap, METH_VARARGS, NULL},
+ { "VarsMap_begin", _wrap_VarsMap_begin, METH_O, NULL},
+ { "VarsMap_end", _wrap_VarsMap_end, METH_O, NULL},
+ { "VarsMap_rbegin", _wrap_VarsMap_rbegin, METH_O, NULL},
+ { "VarsMap_rend", _wrap_VarsMap_rend, METH_O, NULL},
+ { "VarsMap_clear", _wrap_VarsMap_clear, METH_O, NULL},
+ { "VarsMap_get_allocator", _wrap_VarsMap_get_allocator, METH_O, NULL},
+ { "VarsMap_count", _wrap_VarsMap_count, METH_VARARGS, NULL},
+ { "VarsMap_erase", _wrap_VarsMap_erase, METH_VARARGS, NULL},
+ { "VarsMap_find", _wrap_VarsMap_find, METH_VARARGS, NULL},
+ { "VarsMap_lower_bound", _wrap_VarsMap_lower_bound, METH_VARARGS, NULL},
+ { "VarsMap_upper_bound", _wrap_VarsMap_upper_bound, METH_VARARGS, NULL},
+ { "delete_VarsMap", _wrap_delete_VarsMap, METH_O, NULL},
+ { "VarsMap_swigregister", VarsMap_swigregister, METH_O, NULL},
+ { "VarsMap_swiginit", VarsMap_swiginit, METH_VARARGS, NULL},
+ { "VarsByCode_iterator", _wrap_VarsByCode_iterator, METH_O, NULL},
+ { "VarsByCode___nonzero__", _wrap_VarsByCode___nonzero__, METH_O, NULL},
+ { "VarsByCode___bool__", _wrap_VarsByCode___bool__, METH_O, NULL},
+ { "VarsByCode___len__", _wrap_VarsByCode___len__, METH_O, NULL},
+ { "VarsByCode___getitem__", _wrap_VarsByCode___getitem__, METH_VARARGS, NULL},
+ { "VarsByCode___delitem__", _wrap_VarsByCode___delitem__, METH_VARARGS, NULL},
+ { "VarsByCode_has_key", _wrap_VarsByCode_has_key, METH_VARARGS, NULL},
+ { "VarsByCode_keys", _wrap_VarsByCode_keys, METH_O, NULL},
+ { "VarsByCode_values", _wrap_VarsByCode_values, METH_O, NULL},
+ { "VarsByCode_items", _wrap_VarsByCode_items, METH_O, NULL},
+ { "VarsByCode___contains__", _wrap_VarsByCode___contains__, METH_VARARGS, NULL},
+ { "VarsByCode_key_iterator", _wrap_VarsByCode_key_iterator, METH_O, NULL},
+ { "VarsByCode_value_iterator", _wrap_VarsByCode_value_iterator, METH_O, NULL},
+ { "VarsByCode___setitem__", _wrap_VarsByCode___setitem__, METH_VARARGS, NULL},
+ { "VarsByCode_asdict", _wrap_VarsByCode_asdict, METH_O, NULL},
+ { "new_VarsByCode", _wrap_new_VarsByCode, METH_VARARGS, NULL},
+ { "VarsByCode_empty", _wrap_VarsByCode_empty, METH_O, NULL},
+ { "VarsByCode_size", _wrap_VarsByCode_size, METH_O, NULL},
+ { "VarsByCode_swap", _wrap_VarsByCode_swap, METH_VARARGS, NULL},
+ { "VarsByCode_begin", _wrap_VarsByCode_begin, METH_O, NULL},
+ { "VarsByCode_end", _wrap_VarsByCode_end, METH_O, NULL},
+ { "VarsByCode_rbegin", _wrap_VarsByCode_rbegin, METH_O, NULL},
+ { "VarsByCode_rend", _wrap_VarsByCode_rend, METH_O, NULL},
+ { "VarsByCode_clear", _wrap_VarsByCode_clear, METH_O, NULL},
+ { "VarsByCode_get_allocator", _wrap_VarsByCode_get_allocator, METH_O, NULL},
+ { "VarsByCode_count", _wrap_VarsByCode_count, METH_VARARGS, NULL},
+ { "VarsByCode_erase", _wrap_VarsByCode_erase, METH_VARARGS, NULL},
+ { "VarsByCode_find", _wrap_VarsByCode_find, METH_VARARGS, NULL},
+ { "VarsByCode_lower_bound", _wrap_VarsByCode_lower_bound, METH_VARARGS, NULL},
+ { "VarsByCode_upper_bound", _wrap_VarsByCode_upper_bound, METH_VARARGS, NULL},
+ { "delete_VarsByCode", _wrap_delete_VarsByCode, METH_O, NULL},
+ { "VarsByCode_swigregister", VarsByCode_swigregister, METH_O, NULL},
+ { "VarsByCode_swiginit", VarsByCode_swiginit, METH_VARARGS, NULL},
+ { "TaxesMap_iterator", _wrap_TaxesMap_iterator, METH_O, NULL},
+ { "TaxesMap___nonzero__", _wrap_TaxesMap___nonzero__, METH_O, NULL},
+ { "TaxesMap___bool__", _wrap_TaxesMap___bool__, METH_O, NULL},
+ { "TaxesMap___len__", _wrap_TaxesMap___len__, METH_O, NULL},
+ { "TaxesMap___getitem__", _wrap_TaxesMap___getitem__, METH_VARARGS, NULL},
+ { "TaxesMap___delitem__", _wrap_TaxesMap___delitem__, METH_VARARGS, NULL},
+ { "TaxesMap_has_key", _wrap_TaxesMap_has_key, METH_VARARGS, NULL},
+ { "TaxesMap_keys", _wrap_TaxesMap_keys, METH_O, NULL},
+ { "TaxesMap_values", _wrap_TaxesMap_values, METH_O, NULL},
+ { "TaxesMap_items", _wrap_TaxesMap_items, METH_O, NULL},
+ { "TaxesMap___contains__", _wrap_TaxesMap___contains__, METH_VARARGS, NULL},
+ { "TaxesMap_key_iterator", _wrap_TaxesMap_key_iterator, METH_O, NULL},
+ { "TaxesMap_value_iterator", _wrap_TaxesMap_value_iterator, METH_O, NULL},
+ { "TaxesMap___setitem__", _wrap_TaxesMap___setitem__, METH_VARARGS, NULL},
+ { "TaxesMap_asdict", _wrap_TaxesMap_asdict, METH_O, NULL},
+ { "new_TaxesMap", _wrap_new_TaxesMap, METH_VARARGS, NULL},
+ { "TaxesMap_empty", _wrap_TaxesMap_empty, METH_O, NULL},
+ { "TaxesMap_size", _wrap_TaxesMap_size, METH_O, NULL},
+ { "TaxesMap_swap", _wrap_TaxesMap_swap, METH_VARARGS, NULL},
+ { "TaxesMap_begin", _wrap_TaxesMap_begin, METH_O, NULL},
+ { "TaxesMap_end", _wrap_TaxesMap_end, METH_O, NULL},
+ { "TaxesMap_rbegin", _wrap_TaxesMap_rbegin, METH_O, NULL},
+ { "TaxesMap_rend", _wrap_TaxesMap_rend, METH_O, NULL},
+ { "TaxesMap_clear", _wrap_TaxesMap_clear, METH_O, NULL},
+ { "TaxesMap_get_allocator", _wrap_TaxesMap_get_allocator, METH_O, NULL},
+ { "TaxesMap_count", _wrap_TaxesMap_count, METH_VARARGS, NULL},
+ { "TaxesMap_erase", _wrap_TaxesMap_erase, METH_VARARGS, NULL},
+ { "TaxesMap_find", _wrap_TaxesMap_find, METH_VARARGS, NULL},
+ { "TaxesMap_lower_bound", _wrap_TaxesMap_lower_bound, METH_VARARGS, NULL},
+ { "TaxesMap_upper_bound", _wrap_TaxesMap_upper_bound, METH_VARARGS, NULL},
+ { "delete_TaxesMap", _wrap_delete_TaxesMap, METH_O, NULL},
+ { "TaxesMap_swigregister", TaxesMap_swigregister, METH_O, NULL},
+ { "TaxesMap_swiginit", TaxesMap_swiginit, METH_VARARGS, NULL},
+ { "ZaxesMap_iterator", _wrap_ZaxesMap_iterator, METH_O, NULL},
+ { "ZaxesMap___nonzero__", _wrap_ZaxesMap___nonzero__, METH_O, NULL},
+ { "ZaxesMap___bool__", _wrap_ZaxesMap___bool__, METH_O, NULL},
+ { "ZaxesMap___len__", _wrap_ZaxesMap___len__, METH_O, NULL},
+ { "ZaxesMap___getitem__", _wrap_ZaxesMap___getitem__, METH_VARARGS, NULL},
+ { "ZaxesMap___delitem__", _wrap_ZaxesMap___delitem__, METH_VARARGS, NULL},
+ { "ZaxesMap_has_key", _wrap_ZaxesMap_has_key, METH_VARARGS, NULL},
+ { "ZaxesMap_keys", _wrap_ZaxesMap_keys, METH_O, NULL},
+ { "ZaxesMap_values", _wrap_ZaxesMap_values, METH_O, NULL},
+ { "ZaxesMap_items", _wrap_ZaxesMap_items, METH_O, NULL},
+ { "ZaxesMap___contains__", _wrap_ZaxesMap___contains__, METH_VARARGS, NULL},
+ { "ZaxesMap_key_iterator", _wrap_ZaxesMap_key_iterator, METH_O, NULL},
+ { "ZaxesMap_value_iterator", _wrap_ZaxesMap_value_iterator, METH_O, NULL},
+ { "ZaxesMap___setitem__", _wrap_ZaxesMap___setitem__, METH_VARARGS, NULL},
+ { "ZaxesMap_asdict", _wrap_ZaxesMap_asdict, METH_O, NULL},
+ { "new_ZaxesMap", _wrap_new_ZaxesMap, METH_VARARGS, NULL},
+ { "ZaxesMap_empty", _wrap_ZaxesMap_empty, METH_O, NULL},
+ { "ZaxesMap_size", _wrap_ZaxesMap_size, METH_O, NULL},
+ { "ZaxesMap_swap", _wrap_ZaxesMap_swap, METH_VARARGS, NULL},
+ { "ZaxesMap_begin", _wrap_ZaxesMap_begin, METH_O, NULL},
+ { "ZaxesMap_end", _wrap_ZaxesMap_end, METH_O, NULL},
+ { "ZaxesMap_rbegin", _wrap_ZaxesMap_rbegin, METH_O, NULL},
+ { "ZaxesMap_rend", _wrap_ZaxesMap_rend, METH_O, NULL},
+ { "ZaxesMap_clear", _wrap_ZaxesMap_clear, METH_O, NULL},
+ { "ZaxesMap_get_allocator", _wrap_ZaxesMap_get_allocator, METH_O, NULL},
+ { "ZaxesMap_count", _wrap_ZaxesMap_count, METH_VARARGS, NULL},
+ { "ZaxesMap_erase", _wrap_ZaxesMap_erase, METH_VARARGS, NULL},
+ { "ZaxesMap_find", _wrap_ZaxesMap_find, METH_VARARGS, NULL},
+ { "ZaxesMap_lower_bound", _wrap_ZaxesMap_lower_bound, METH_VARARGS, NULL},
+ { "ZaxesMap_upper_bound", _wrap_ZaxesMap_upper_bound, METH_VARARGS, NULL},
+ { "delete_ZaxesMap", _wrap_delete_ZaxesMap, METH_O, NULL},
+ { "ZaxesMap_swigregister", ZaxesMap_swigregister, METH_O, NULL},
+ { "ZaxesMap_swiginit", ZaxesMap_swiginit, METH_VARARGS, NULL},
+ { "GridsMap_iterator", _wrap_GridsMap_iterator, METH_O, NULL},
+ { "GridsMap___nonzero__", _wrap_GridsMap___nonzero__, METH_O, NULL},
+ { "GridsMap___bool__", _wrap_GridsMap___bool__, METH_O, NULL},
+ { "GridsMap___len__", _wrap_GridsMap___len__, METH_O, NULL},
+ { "GridsMap___getitem__", _wrap_GridsMap___getitem__, METH_VARARGS, NULL},
+ { "GridsMap___delitem__", _wrap_GridsMap___delitem__, METH_VARARGS, NULL},
+ { "GridsMap_has_key", _wrap_GridsMap_has_key, METH_VARARGS, NULL},
+ { "GridsMap_keys", _wrap_GridsMap_keys, METH_O, NULL},
+ { "GridsMap_values", _wrap_GridsMap_values, METH_O, NULL},
+ { "GridsMap_items", _wrap_GridsMap_items, METH_O, NULL},
+ { "GridsMap___contains__", _wrap_GridsMap___contains__, METH_VARARGS, NULL},
+ { "GridsMap_key_iterator", _wrap_GridsMap_key_iterator, METH_O, NULL},
+ { "GridsMap_value_iterator", _wrap_GridsMap_value_iterator, METH_O, NULL},
+ { "GridsMap___setitem__", _wrap_GridsMap___setitem__, METH_VARARGS, NULL},
+ { "GridsMap_asdict", _wrap_GridsMap_asdict, METH_O, NULL},
+ { "new_GridsMap", _wrap_new_GridsMap, METH_VARARGS, NULL},
+ { "GridsMap_empty", _wrap_GridsMap_empty, METH_O, NULL},
+ { "GridsMap_size", _wrap_GridsMap_size, METH_O, NULL},
+ { "GridsMap_swap", _wrap_GridsMap_swap, METH_VARARGS, NULL},
+ { "GridsMap_begin", _wrap_GridsMap_begin, METH_O, NULL},
+ { "GridsMap_end", _wrap_GridsMap_end, METH_O, NULL},
+ { "GridsMap_rbegin", _wrap_GridsMap_rbegin, METH_O, NULL},
+ { "GridsMap_rend", _wrap_GridsMap_rend, METH_O, NULL},
+ { "GridsMap_clear", _wrap_GridsMap_clear, METH_O, NULL},
+ { "GridsMap_get_allocator", _wrap_GridsMap_get_allocator, METH_O, NULL},
+ { "GridsMap_count", _wrap_GridsMap_count, METH_VARARGS, NULL},
+ { "GridsMap_erase", _wrap_GridsMap_erase, METH_VARARGS, NULL},
+ { "GridsMap_find", _wrap_GridsMap_find, METH_VARARGS, NULL},
+ { "GridsMap_lower_bound", _wrap_GridsMap_lower_bound, METH_VARARGS, NULL},
+ { "GridsMap_upper_bound", _wrap_GridsMap_upper_bound, METH_VARARGS, NULL},
+ { "delete_GridsMap", _wrap_delete_GridsMap, METH_O, NULL},
+ { "GridsMap_swigregister", GridsMap_swigregister, METH_O, NULL},
+ { "GridsMap_swiginit", GridsMap_swiginit, METH_VARARGS, NULL},
+ { "new_CdiGrid", _wrap_new_CdiGrid, METH_VARARGS, NULL},
+ { "delete_CdiGrid", _wrap_delete_CdiGrid, METH_O, NULL},
+ { "CdiGrid_gridID_set", _wrap_CdiGrid_gridID_set, METH_VARARGS, NULL},
+ { "CdiGrid_gridID_get", _wrap_CdiGrid_gridID_get, METH_O, NULL},
+ { "CdiGrid_type_set", _wrap_CdiGrid_type_set, METH_VARARGS, NULL},
+ { "CdiGrid_type_get", _wrap_CdiGrid_type_get, METH_O, NULL},
+ { "CdiGrid_size_set", _wrap_CdiGrid_size_set, METH_VARARGS, NULL},
+ { "CdiGrid_size_get", _wrap_CdiGrid_size_get, METH_O, NULL},
+ { "CdiGrid_xsize_set", _wrap_CdiGrid_xsize_set, METH_VARARGS, NULL},
+ { "CdiGrid_xsize_get", _wrap_CdiGrid_xsize_get, METH_O, NULL},
+ { "CdiGrid_ysize_set", _wrap_CdiGrid_ysize_set, METH_VARARGS, NULL},
+ { "CdiGrid_ysize_get", _wrap_CdiGrid_ysize_get, METH_O, NULL},
+ { "CdiGrid_prec_set", _wrap_CdiGrid_prec_set, METH_VARARGS, NULL},
+ { "CdiGrid_prec_get", _wrap_CdiGrid_prec_get, METH_O, NULL},
+ { "CdiGrid_ncorner_set", _wrap_CdiGrid_ncorner_set, METH_VARARGS, NULL},
+ { "CdiGrid_ncorner_get", _wrap_CdiGrid_ncorner_get, METH_O, NULL},
+ { "CdiGrid_hasXValues_set", _wrap_CdiGrid_hasXValues_set, METH_VARARGS, NULL},
+ { "CdiGrid_hasXValues_get", _wrap_CdiGrid_hasXValues_get, METH_O, NULL},
+ { "CdiGrid_hasYValues_set", _wrap_CdiGrid_hasYValues_set, METH_VARARGS, NULL},
+ { "CdiGrid_hasYValues_get", _wrap_CdiGrid_hasYValues_get, METH_O, NULL},
+ { "CdiGrid_hasBounds_set", _wrap_CdiGrid_hasBounds_set, METH_VARARGS, NULL},
+ { "CdiGrid_hasBounds_get", _wrap_CdiGrid_hasBounds_get, METH_O, NULL},
+ { "CdiGrid_xvalues_set", _wrap_CdiGrid_xvalues_set, METH_VARARGS, NULL},
+ { "CdiGrid_xvalues_get", _wrap_CdiGrid_xvalues_get, METH_O, NULL},
+ { "CdiGrid_yvalues_set", _wrap_CdiGrid_yvalues_set, METH_VARARGS, NULL},
+ { "CdiGrid_yvalues_get", _wrap_CdiGrid_yvalues_get, METH_O, NULL},
+ { "CdiGrid_xbounds_set", _wrap_CdiGrid_xbounds_set, METH_VARARGS, NULL},
+ { "CdiGrid_xbounds_get", _wrap_CdiGrid_xbounds_get, METH_O, NULL},
+ { "CdiGrid_ybounds_set", _wrap_CdiGrid_ybounds_set, METH_VARARGS, NULL},
+ { "CdiGrid_ybounds_get", _wrap_CdiGrid_ybounds_get, METH_O, NULL},
+ { "CdiGrid_xname_set", _wrap_CdiGrid_xname_set, METH_VARARGS, NULL},
+ { "CdiGrid_xname_get", _wrap_CdiGrid_xname_get, METH_O, NULL},
+ { "CdiGrid_xlongname_set", _wrap_CdiGrid_xlongname_set, METH_VARARGS, NULL},
+ { "CdiGrid_xlongname_get", _wrap_CdiGrid_xlongname_get, METH_O, NULL},
+ { "CdiGrid_xstdname_set", _wrap_CdiGrid_xstdname_set, METH_VARARGS, NULL},
+ { "CdiGrid_xstdname_get", _wrap_CdiGrid_xstdname_get, METH_O, NULL},
+ { "CdiGrid_xunits_set", _wrap_CdiGrid_xunits_set, METH_VARARGS, NULL},
+ { "CdiGrid_xunits_get", _wrap_CdiGrid_xunits_get, METH_O, NULL},
+ { "CdiGrid_yname_set", _wrap_CdiGrid_yname_set, METH_VARARGS, NULL},
+ { "CdiGrid_yname_get", _wrap_CdiGrid_yname_get, METH_O, NULL},
+ { "CdiGrid_ylongname_set", _wrap_CdiGrid_ylongname_set, METH_VARARGS, NULL},
+ { "CdiGrid_ylongname_get", _wrap_CdiGrid_ylongname_get, METH_O, NULL},
+ { "CdiGrid_ystdname_set", _wrap_CdiGrid_ystdname_set, METH_VARARGS, NULL},
+ { "CdiGrid_ystdname_get", _wrap_CdiGrid_ystdname_get, METH_O, NULL},
+ { "CdiGrid_yunits_set", _wrap_CdiGrid_yunits_set, METH_VARARGS, NULL},
+ { "CdiGrid_yunits_get", _wrap_CdiGrid_yunits_get, METH_O, NULL},
+ { "CdiGrid_name_set", _wrap_CdiGrid_name_set, METH_VARARGS, NULL},
+ { "CdiGrid_name_get", _wrap_CdiGrid_name_get, METH_O, NULL},
+ { "CdiGrid_getValues", _wrap_CdiGrid_getValues, METH_O, NULL},
+ { "CdiGrid_getBounds", _wrap_CdiGrid_getBounds, METH_O, NULL},
+ { "CdiGrid_getValuesAsPointer", _wrap_CdiGrid_getValuesAsPointer, METH_VARARGS, NULL},
+ { "CdiGrid_getBoundsAsPointer", _wrap_CdiGrid_getBoundsAsPointer, METH_VARARGS, NULL},
+ { "CdiGrid_getFloatVals", _wrap_CdiGrid_getFloatVals, METH_VARARGS, NULL},
+ { "CdiGrid_getFloatBounds", _wrap_CdiGrid_getFloatBounds, METH_VARARGS, NULL},
+ { "CdiGrid_swigregister", CdiGrid_swigregister, METH_O, NULL},
+ { "CdiGrid_swiginit", CdiGrid_swiginit, METH_VARARGS, NULL},
+ { "new_CdiTaxis", _wrap_new_CdiTaxis, METH_VARARGS, NULL},
+ { "delete_CdiTaxis", _wrap_delete_CdiTaxis, METH_O, NULL},
+ { "CdiTaxis_taxisID_set", _wrap_CdiTaxis_taxisID_set, METH_VARARGS, NULL},
+ { "CdiTaxis_taxisID_get", _wrap_CdiTaxis_taxisID_get, METH_O, NULL},
+ { "CdiTaxis_ntsteps_set", _wrap_CdiTaxis_ntsteps_set, METH_VARARGS, NULL},
+ { "CdiTaxis_ntsteps_get", _wrap_CdiTaxis_ntsteps_get, METH_O, NULL},
+ { "CdiTaxis_unit_set", _wrap_CdiTaxis_unit_set, METH_VARARGS, NULL},
+ { "CdiTaxis_unit_get", _wrap_CdiTaxis_unit_get, METH_O, NULL},
+ { "CdiTaxis_rdate_set", _wrap_CdiTaxis_rdate_set, METH_VARARGS, NULL},
+ { "CdiTaxis_rdate_get", _wrap_CdiTaxis_rdate_get, METH_O, NULL},
+ { "CdiTaxis_rtime_set", _wrap_CdiTaxis_rtime_set, METH_VARARGS, NULL},
+ { "CdiTaxis_rtime_get", _wrap_CdiTaxis_rtime_get, METH_O, NULL},
+ { "CdiTaxis_vdate_set", _wrap_CdiTaxis_vdate_set, METH_VARARGS, NULL},
+ { "CdiTaxis_vdate_get", _wrap_CdiTaxis_vdate_get, METH_O, NULL},
+ { "CdiTaxis_vtime_set", _wrap_CdiTaxis_vtime_set, METH_VARARGS, NULL},
+ { "CdiTaxis_vtime_get", _wrap_CdiTaxis_vtime_get, METH_O, NULL},
+ { "CdiTaxis_type_set", _wrap_CdiTaxis_type_set, METH_VARARGS, NULL},
+ { "CdiTaxis_type_get", _wrap_CdiTaxis_type_get, METH_O, NULL},
+ { "CdiTaxis_calendar_set", _wrap_CdiTaxis_calendar_set, METH_VARARGS, NULL},
+ { "CdiTaxis_calendar_get", _wrap_CdiTaxis_calendar_get, METH_O, NULL},
+ { "CdiTaxis_hasBounds_set", _wrap_CdiTaxis_hasBounds_set, METH_VARARGS, NULL},
+ { "CdiTaxis_hasBounds_get", _wrap_CdiTaxis_hasBounds_get, METH_O, NULL},
+ { "CdiTaxis_name_set", _wrap_CdiTaxis_name_set, METH_VARARGS, NULL},
+ { "CdiTaxis_name_get", _wrap_CdiTaxis_name_get, METH_O, NULL},
+ { "CdiTaxis_unitname_set", _wrap_CdiTaxis_unitname_set, METH_VARARGS, NULL},
+ { "CdiTaxis_unitname_get", _wrap_CdiTaxis_unitname_get, METH_O, NULL},
+ { "CdiTaxis_swigregister", CdiTaxis_swigregister, METH_O, NULL},
+ { "CdiTaxis_swiginit", CdiTaxis_swiginit, METH_VARARGS, NULL},
+ { "new_CdiZaxis", _wrap_new_CdiZaxis, METH_VARARGS, NULL},
+ { "delete_CdiZaxis", _wrap_delete_CdiZaxis, METH_O, NULL},
+ { "CdiZaxis_zaxisID_set", _wrap_CdiZaxis_zaxisID_set, METH_VARARGS, NULL},
+ { "CdiZaxis_zaxisID_get", _wrap_CdiZaxis_zaxisID_get, METH_O, NULL},
+ { "CdiZaxis_type_set", _wrap_CdiZaxis_type_set, METH_VARARGS, NULL},
+ { "CdiZaxis_type_get", _wrap_CdiZaxis_type_get, METH_O, NULL},
+ { "CdiZaxis_ltype_set", _wrap_CdiZaxis_ltype_set, METH_VARARGS, NULL},
+ { "CdiZaxis_ltype_get", _wrap_CdiZaxis_ltype_get, METH_O, NULL},
+ { "CdiZaxis_size_set", _wrap_CdiZaxis_size_set, METH_VARARGS, NULL},
+ { "CdiZaxis_size_get", _wrap_CdiZaxis_size_get, METH_O, NULL},
+ { "CdiZaxis_prec_set", _wrap_CdiZaxis_prec_set, METH_VARARGS, NULL},
+ { "CdiZaxis_prec_get", _wrap_CdiZaxis_prec_get, METH_O, NULL},
+ { "CdiZaxis_plevels_set", _wrap_CdiZaxis_plevels_set, METH_VARARGS, NULL},
+ { "CdiZaxis_plevels_get", _wrap_CdiZaxis_plevels_get, METH_O, NULL},
+ { "CdiZaxis_plbounds_set", _wrap_CdiZaxis_plbounds_set, METH_VARARGS, NULL},
+ { "CdiZaxis_plbounds_get", _wrap_CdiZaxis_plbounds_get, METH_O, NULL},
+ { "CdiZaxis_pubounds_set", _wrap_CdiZaxis_pubounds_set, METH_VARARGS, NULL},
+ { "CdiZaxis_pubounds_get", _wrap_CdiZaxis_pubounds_get, METH_O, NULL},
+ { "CdiZaxis_pweights_set", _wrap_CdiZaxis_pweights_set, METH_VARARGS, NULL},
+ { "CdiZaxis_pweights_get", _wrap_CdiZaxis_pweights_get, METH_O, NULL},
+ { "CdiZaxis_levels_set", _wrap_CdiZaxis_levels_set, METH_VARARGS, NULL},
+ { "CdiZaxis_levels_get", _wrap_CdiZaxis_levels_get, METH_O, NULL},
+ { "CdiZaxis_lbounds_set", _wrap_CdiZaxis_lbounds_set, METH_VARARGS, NULL},
+ { "CdiZaxis_lbounds_get", _wrap_CdiZaxis_lbounds_get, METH_O, NULL},
+ { "CdiZaxis_ubounds_set", _wrap_CdiZaxis_ubounds_set, METH_VARARGS, NULL},
+ { "CdiZaxis_ubounds_get", _wrap_CdiZaxis_ubounds_get, METH_O, NULL},
+ { "CdiZaxis_weights_set", _wrap_CdiZaxis_weights_set, METH_VARARGS, NULL},
+ { "CdiZaxis_weights_get", _wrap_CdiZaxis_weights_get, METH_O, NULL},
+ { "CdiZaxis_name_set", _wrap_CdiZaxis_name_set, METH_VARARGS, NULL},
+ { "CdiZaxis_name_get", _wrap_CdiZaxis_name_get, METH_O, NULL},
+ { "CdiZaxis_longname_set", _wrap_CdiZaxis_longname_set, METH_VARARGS, NULL},
+ { "CdiZaxis_longname_get", _wrap_CdiZaxis_longname_get, METH_O, NULL},
+ { "CdiZaxis_units_set", _wrap_CdiZaxis_units_set, METH_VARARGS, NULL},
+ { "CdiZaxis_units_get", _wrap_CdiZaxis_units_get, METH_O, NULL},
+ { "CdiZaxis_swigregister", CdiZaxis_swigregister, METH_O, NULL},
+ { "CdiZaxis_swiginit", CdiZaxis_swiginit, METH_VARARGS, NULL},
+ { "new_CdiVariable", _wrap_new_CdiVariable, METH_VARARGS, NULL},
+ { "delete_CdiVariable", _wrap_delete_CdiVariable, METH_O, NULL},
+ { "CdiVariable_varID_set", _wrap_CdiVariable_varID_set, METH_VARARGS, NULL},
+ { "CdiVariable_varID_get", _wrap_CdiVariable_varID_get, METH_O, NULL},
+ { "CdiVariable_zaxisID_set", _wrap_CdiVariable_zaxisID_set, METH_VARARGS, NULL},
+ { "CdiVariable_zaxisID_get", _wrap_CdiVariable_zaxisID_get, METH_O, NULL},
+ { "CdiVariable_gridID_set", _wrap_CdiVariable_gridID_set, METH_VARARGS, NULL},
+ { "CdiVariable_gridID_get", _wrap_CdiVariable_gridID_get, METH_O, NULL},
+ { "CdiVariable_taxisID_set", _wrap_CdiVariable_taxisID_set, METH_VARARGS, NULL},
+ { "CdiVariable_taxisID_get", _wrap_CdiVariable_taxisID_get, METH_O, NULL},
+ { "CdiVariable_timeID_set", _wrap_CdiVariable_timeID_set, METH_VARARGS, NULL},
+ { "CdiVariable_timeID_get", _wrap_CdiVariable_timeID_get, METH_O, NULL},
+ { "CdiVariable_vlistID_set", _wrap_CdiVariable_vlistID_set, METH_VARARGS, NULL},
+ { "CdiVariable_vlistID_get", _wrap_CdiVariable_vlistID_get, METH_O, NULL},
+ { "CdiVariable_size_set", _wrap_CdiVariable_size_set, METH_VARARGS, NULL},
+ { "CdiVariable_size_get", _wrap_CdiVariable_size_get, METH_O, NULL},
+ { "CdiVariable_code_set", _wrap_CdiVariable_code_set, METH_VARARGS, NULL},
+ { "CdiVariable_code_get", _wrap_CdiVariable_code_get, METH_O, NULL},
+ { "CdiVariable_datatype_set", _wrap_CdiVariable_datatype_set, METH_VARARGS, NULL},
+ { "CdiVariable_datatype_get", _wrap_CdiVariable_datatype_get, METH_O, NULL},
+ { "CdiVariable_streamID_set", _wrap_CdiVariable_streamID_set, METH_VARARGS, NULL},
+ { "CdiVariable_streamID_get", _wrap_CdiVariable_streamID_get, METH_O, NULL},
+ { "CdiVariable_name_set", _wrap_CdiVariable_name_set, METH_VARARGS, NULL},
+ { "CdiVariable_name_get", _wrap_CdiVariable_name_get, METH_O, NULL},
+ { "CdiVariable_longname_set", _wrap_CdiVariable_longname_set, METH_VARARGS, NULL},
+ { "CdiVariable_longname_get", _wrap_CdiVariable_longname_get, METH_O, NULL},
+ { "CdiVariable_units_set", _wrap_CdiVariable_units_set, METH_VARARGS, NULL},
+ { "CdiVariable_units_get", _wrap_CdiVariable_units_get, METH_O, NULL},
+ { "CdiVariable_stdname_set", _wrap_CdiVariable_stdname_set, METH_VARARGS, NULL},
+ { "CdiVariable_stdname_get", _wrap_CdiVariable_stdname_get, METH_O, NULL},
+ { "CdiVariable_missval_set", _wrap_CdiVariable_missval_set, METH_VARARGS, NULL},
+ { "CdiVariable_missval_get", _wrap_CdiVariable_missval_get, METH_O, NULL},
+ { "CdiVariable_values_set", _wrap_CdiVariable_values_set, METH_VARARGS, NULL},
+ { "CdiVariable_values_get", _wrap_CdiVariable_values_get, METH_O, NULL},
+ { "CdiVariable_valuesWithLevel_set", _wrap_CdiVariable_valuesWithLevel_set, METH_VARARGS, NULL},
+ { "CdiVariable_valuesWithLevel_get", _wrap_CdiVariable_valuesWithLevel_get, METH_O, NULL},
+ { "CdiVariable_grid_set", _wrap_CdiVariable_grid_set, METH_VARARGS, NULL},
+ { "CdiVariable_grid_get", _wrap_CdiVariable_grid_get, METH_O, NULL},
+ { "CdiVariable_zaxis_set", _wrap_CdiVariable_zaxis_set, METH_VARARGS, NULL},
+ { "CdiVariable_zaxis_get", _wrap_CdiVariable_zaxis_get, METH_O, NULL},
+ { "CdiVariable_taxis_set", _wrap_CdiVariable_taxis_set, METH_VARARGS, NULL},
+ { "CdiVariable_taxis_get", _wrap_CdiVariable_taxis_get, METH_O, NULL},
+ { "CdiVariable_sinfo", _wrap_CdiVariable_sinfo, METH_O, NULL},
+ { "CdiVariable_getValues", _wrap_CdiVariable_getValues, METH_O, NULL},
+ { "CdiVariable_getValuesWithLevel", _wrap_CdiVariable_getValuesWithLevel, METH_VARARGS, NULL},
+ { "CdiVariable_getFValues", _wrap_CdiVariable_getFValues, METH_O, NULL},
+ { "CdiVariable_getFValuesWithLevel", _wrap_CdiVariable_getFValuesWithLevel, METH_VARARGS, NULL},
+ { "CdiVariable_getValuesAsPointer", _wrap_CdiVariable_getValuesAsPointer, METH_O, NULL},
+ { "CdiVariable_getValuesWithLevelAsPointer", _wrap_CdiVariable_getValuesWithLevelAsPointer, METH_VARARGS, NULL},
+ { "CdiVariable_swigregister", CdiVariable_swigregister, METH_O, NULL},
+ { "CdiVariable_swiginit", CdiVariable_swiginit, METH_VARARGS, NULL},
+ { "new_Cdi", _wrap_new_Cdi, METH_O, NULL},
+ { "delete_Cdi", _wrap_delete_Cdi, METH_O, NULL},
+ { "Cdi_streamID_set", _wrap_Cdi_streamID_set, METH_VARARGS, NULL},
+ { "Cdi_streamID_get", _wrap_Cdi_streamID_get, METH_O, NULL},
+ { "Cdi_vlistID_set", _wrap_Cdi_vlistID_set, METH_VARARGS, NULL},
+ { "Cdi_vlistID_get", _wrap_Cdi_vlistID_get, METH_O, NULL},
+ { "Cdi_nvars_set", _wrap_Cdi_nvars_set, METH_VARARGS, NULL},
+ { "Cdi_nvars_get", _wrap_Cdi_nvars_get, METH_O, NULL},
+ { "Cdi_nzaxes_set", _wrap_Cdi_nzaxes_set, METH_VARARGS, NULL},
+ { "Cdi_nzaxes_get", _wrap_Cdi_nzaxes_get, METH_O, NULL},
+ { "Cdi_ngrids_set", _wrap_Cdi_ngrids_set, METH_VARARGS, NULL},
+ { "Cdi_ngrids_get", _wrap_Cdi_ngrids_get, METH_O, NULL},
+ { "Cdi_ntaxes_set", _wrap_Cdi_ntaxes_set, METH_VARARGS, NULL},
+ { "Cdi_ntaxes_get", _wrap_Cdi_ntaxes_get, METH_O, NULL},
+ { "Cdi_taxisID_set", _wrap_Cdi_taxisID_set, METH_VARARGS, NULL},
+ { "Cdi_taxisID_get", _wrap_Cdi_taxisID_get, METH_O, NULL},
+ { "Cdi_varnames_set", _wrap_Cdi_varnames_set, METH_VARARGS, NULL},
+ { "Cdi_varnames_get", _wrap_Cdi_varnames_get, METH_O, NULL},
+ { "Cdi_codes_set", _wrap_Cdi_codes_set, METH_VARARGS, NULL},
+ { "Cdi_codes_get", _wrap_Cdi_codes_get, METH_O, NULL},
+ { "Cdi_variables_set", _wrap_Cdi_variables_set, METH_VARARGS, NULL},
+ { "Cdi_variables_get", _wrap_Cdi_variables_get, METH_O, NULL},
+ { "Cdi_var_set", _wrap_Cdi_var_set, METH_VARARGS, NULL},
+ { "Cdi_var_get", _wrap_Cdi_var_get, METH_O, NULL},
+ { "Cdi_varByCode_set", _wrap_Cdi_varByCode_set, METH_VARARGS, NULL},
+ { "Cdi_varByCode_get", _wrap_Cdi_varByCode_get, METH_O, NULL},
+ { "Cdi_taxes_set", _wrap_Cdi_taxes_set, METH_VARARGS, NULL},
+ { "Cdi_taxes_get", _wrap_Cdi_taxes_get, METH_O, NULL},
+ { "Cdi_zaxes_set", _wrap_Cdi_zaxes_set, METH_VARARGS, NULL},
+ { "Cdi_zaxes_get", _wrap_Cdi_zaxes_get, METH_O, NULL},
+ { "Cdi_grids_set", _wrap_Cdi_grids_set, METH_VARARGS, NULL},
+ { "Cdi_grids_get", _wrap_Cdi_grids_get, METH_O, NULL},
+ { "Cdi_griddes", _wrap_Cdi_griddes, METH_O, NULL},
+ { "Cdi_swigregister", Cdi_swigregister, METH_O, NULL},
+ { "Cdi_swiginit", Cdi_swiginit, METH_VARARGS, NULL},
+ { NULL, NULL, 0, NULL }
+};
+
+static PyMethodDef SwigMethods_proxydocs[] = {
+ { NULL, NULL, 0, NULL }
+};
+
+
+/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
+
+static swig_type_info _swigt__p_Cdi = {"_p_Cdi", "Cdi *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_CdiGrid = {"_p_CdiGrid", "std::map< int,CdiGrid >::mapped_type *|CdiGrid *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_CdiTaxis = {"_p_CdiTaxis", "std::map< int,CdiTaxis >::mapped_type *|CdiTaxis *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_CdiVariable = {"_p_CdiVariable", "std::map< std::string,CdiVariable >::mapped_type *|std::vector< CdiVariable >::value_type *|std::map< int,CdiVariable >::mapped_type *|CdiVariable *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_CdiZaxis = {"_p_CdiZaxis", "std::map< int,CdiZaxis >::mapped_type *|CdiZaxis *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_allocator_type = {"_p_allocator_type", "allocator_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_difference_type = {"_p_difference_type", "difference_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_key_type = {"_p_key_type", "key_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_mapped_type = {"_p_mapped_type", "mapped_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_p_PyObject = {"_p_p_PyObject", "PyObject **", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_p_double = {"_p_p_double", "double **", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_size_type = {"_p_size_type", "size_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_CdiVariable_t = {"_p_std__allocatorT_CdiVariable_t", "std::vector< CdiVariable >::allocator_type *|std::allocator< CdiVariable > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_double_t = {"_p_std__allocatorT_double_t", "std::vector< double >::allocator_type *|std::allocator< double > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_int_t = {"_p_std__allocatorT_int_t", "std::vector< int >::allocator_type *|std::allocator< int > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t = {"_p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t", "std::map< int,CdiGrid >::allocator_type *|std::allocator< std::pair< int const,CdiGrid > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t = {"_p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t", "std::map< int,CdiTaxis >::allocator_type *|std::allocator< std::pair< int const,CdiTaxis > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t = {"_p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t", "std::map< int,CdiVariable >::allocator_type *|std::allocator< std::pair< int const,CdiVariable > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t = {"_p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t", "std::map< int,CdiZaxis >::allocator_type *|std::allocator< std::pair< int const,CdiZaxis > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t = {"_p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t", "std::allocator< std::pair< std::string const,CdiVariable > > *|std::map< std::string,CdiVariable >::allocator_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__string_t = {"_p_std__allocatorT_std__string_t", "std::vector< std::string >::allocator_type *|std::allocator< std::string > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t = {"_p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t", "std::vector< std::vector< double > >::allocator_type *|std::allocator< std::vector< double,std::allocator< double > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__invalid_argument = {"_p_std__invalid_argument", "std::invalid_argument *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__lessT_int_t = {"_p_std__lessT_int_t", "std::less< int > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__lessT_std__string_t = {"_p_std__lessT_std__string_t", "std::less< std::string > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t = {"_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t", "std::map< int,CdiGrid > *|std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t = {"_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t", "std::map< int,CdiTaxis > *|std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t = {"_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t", "std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *|std::map< int,CdiVariable > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t = {"_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t", "std::map< int,CdiZaxis > *|std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t = {"_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t", "std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *|std::map< std::string,CdiVariable > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t = {"_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t", "std::vector< CdiVariable,std::allocator< CdiVariable > > *|std::vector< CdiVariable > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_double_std__allocatorT_double_t_t = {"_p_std__vectorT_double_std__allocatorT_double_t_t", "std::vector< double,std::allocator< double > > *|std::vector< double > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_float_std__allocatorT_float_t_t = {"_p_std__vectorT_float_std__allocatorT_float_t_t", "std::vector< float,std::allocator< float > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_int_std__allocatorT_int_t_t = {"_p_std__vectorT_int_std__allocatorT_int_t_t", "std::vector< int,std::allocator< int > > *|std::vector< int > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_std__string_std__allocatorT_std__string_t_t = {"_p_std__vectorT_std__string_std__allocatorT_std__string_t_t", "std::vector< std::string,std::allocator< std::string > > *|std::vector< std::string > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t = {"_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t", "std::vector< std::vector< double > > *|std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *|std::vector< std::vector< double,std::allocator< double > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t = {"_p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t", "std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_swig__SwigPyIterator = {"_p_swig__SwigPyIterator", "swig::SwigPyIterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_value_type = {"_p_value_type", "value_type *", 0, 0, (void*)0, 0};
+
+static swig_type_info *swig_type_initial[] = {
+ &_swigt__p_Cdi,
+ &_swigt__p_CdiGrid,
+ &_swigt__p_CdiTaxis,
+ &_swigt__p_CdiVariable,
+ &_swigt__p_CdiZaxis,
+ &_swigt__p_allocator_type,
+ &_swigt__p_char,
+ &_swigt__p_difference_type,
+ &_swigt__p_double,
+ &_swigt__p_float,
+ &_swigt__p_key_type,
+ &_swigt__p_mapped_type,
+ &_swigt__p_p_PyObject,
+ &_swigt__p_p_double,
+ &_swigt__p_size_type,
+ &_swigt__p_std__allocatorT_CdiVariable_t,
+ &_swigt__p_std__allocatorT_double_t,
+ &_swigt__p_std__allocatorT_int_t,
+ &_swigt__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t,
+ &_swigt__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t,
+ &_swigt__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t,
+ &_swigt__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t,
+ &_swigt__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t,
+ &_swigt__p_std__allocatorT_std__string_t,
+ &_swigt__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t,
+ &_swigt__p_std__invalid_argument,
+ &_swigt__p_std__lessT_int_t,
+ &_swigt__p_std__lessT_std__string_t,
+ &_swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t,
+ &_swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t,
+ &_swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t,
+ &_swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t,
+ &_swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t,
+ &_swigt__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t,
+ &_swigt__p_std__vectorT_double_std__allocatorT_double_t_t,
+ &_swigt__p_std__vectorT_float_std__allocatorT_float_t_t,
+ &_swigt__p_std__vectorT_int_std__allocatorT_int_t_t,
+ &_swigt__p_std__vectorT_std__string_std__allocatorT_std__string_t_t,
+ &_swigt__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t,
+ &_swigt__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t,
+ &_swigt__p_swig__SwigPyIterator,
+ &_swigt__p_value_type,
+};
+
+static swig_cast_info _swigc__p_Cdi[] = { {&_swigt__p_Cdi, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_CdiGrid[] = { {&_swigt__p_CdiGrid, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_CdiTaxis[] = { {&_swigt__p_CdiTaxis, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_CdiVariable[] = { {&_swigt__p_CdiVariable, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_CdiZaxis[] = { {&_swigt__p_CdiZaxis, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_allocator_type[] = { {&_swigt__p_allocator_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_difference_type[] = { {&_swigt__p_difference_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_key_type[] = { {&_swigt__p_key_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_mapped_type[] = { {&_swigt__p_mapped_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_p_PyObject[] = { {&_swigt__p_p_PyObject, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_p_double[] = { {&_swigt__p_p_double, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_size_type[] = { {&_swigt__p_size_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_CdiVariable_t[] = { {&_swigt__p_std__allocatorT_CdiVariable_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_double_t[] = { {&_swigt__p_std__allocatorT_double_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_int_t[] = { {&_swigt__p_std__allocatorT_int_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__string_t[] = { {&_swigt__p_std__allocatorT_std__string_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t[] = { {&_swigt__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__invalid_argument[] = { {&_swigt__p_std__invalid_argument, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__lessT_int_t[] = { {&_swigt__p_std__lessT_int_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__lessT_std__string_t[] = { {&_swigt__p_std__lessT_std__string_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t[] = { {&_swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t[] = { {&_swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t[] = { {&_swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t[] = { {&_swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t[] = { {&_swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t[] = { {&_swigt__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_double_std__allocatorT_double_t_t[] = { {&_swigt__p_std__vectorT_double_std__allocatorT_double_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_float_std__allocatorT_float_t_t[] = { {&_swigt__p_std__vectorT_float_std__allocatorT_float_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_int_std__allocatorT_int_t_t[] = { {&_swigt__p_std__vectorT_int_std__allocatorT_int_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_std__string_std__allocatorT_std__string_t_t[] = { {&_swigt__p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t[] = { {&_swigt__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t[] = { {&_swigt__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_swig__SwigPyIterator[] = { {&_swigt__p_swig__SwigPyIterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_value_type[] = { {&_swigt__p_value_type, 0, 0, 0},{0, 0, 0, 0}};
+
+static swig_cast_info *swig_cast_initial[] = {
+ _swigc__p_Cdi,
+ _swigc__p_CdiGrid,
+ _swigc__p_CdiTaxis,
+ _swigc__p_CdiVariable,
+ _swigc__p_CdiZaxis,
+ _swigc__p_allocator_type,
+ _swigc__p_char,
+ _swigc__p_difference_type,
+ _swigc__p_double,
+ _swigc__p_float,
+ _swigc__p_key_type,
+ _swigc__p_mapped_type,
+ _swigc__p_p_PyObject,
+ _swigc__p_p_double,
+ _swigc__p_size_type,
+ _swigc__p_std__allocatorT_CdiVariable_t,
+ _swigc__p_std__allocatorT_double_t,
+ _swigc__p_std__allocatorT_int_t,
+ _swigc__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t,
+ _swigc__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t,
+ _swigc__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t,
+ _swigc__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t,
+ _swigc__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t,
+ _swigc__p_std__allocatorT_std__string_t,
+ _swigc__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t,
+ _swigc__p_std__invalid_argument,
+ _swigc__p_std__lessT_int_t,
+ _swigc__p_std__lessT_std__string_t,
+ _swigc__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t,
+ _swigc__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t,
+ _swigc__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t,
+ _swigc__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t,
+ _swigc__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t,
+ _swigc__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t,
+ _swigc__p_std__vectorT_double_std__allocatorT_double_t_t,
+ _swigc__p_std__vectorT_float_std__allocatorT_float_t_t,
+ _swigc__p_std__vectorT_int_std__allocatorT_int_t_t,
+ _swigc__p_std__vectorT_std__string_std__allocatorT_std__string_t_t,
+ _swigc__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t,
+ _swigc__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t,
+ _swigc__p_swig__SwigPyIterator,
+ _swigc__p_value_type,
+};
+
+
+/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
+
+static swig_const_info swig_const_table[] = {
+{0, 0, 0, 0.0, 0, 0}};
+
+#ifdef __cplusplus
+}
+#endif
+/* -----------------------------------------------------------------------------
+ * Type initialization:
+ * This problem is tough by the requirement that no dynamic
+ * memory is used. Also, since swig_type_info structures store pointers to
+ * swig_cast_info structures and swig_cast_info structures store pointers back
+ * to swig_type_info structures, we need some lookup code at initialization.
+ * The idea is that swig generates all the structures that are needed.
+ * The runtime then collects these partially filled structures.
+ * The SWIG_InitializeModule function takes these initial arrays out of
+ * swig_module, and does all the lookup, filling in the swig_module.types
+ * array with the correct data and linking the correct swig_cast_info
+ * structures together.
+ *
+ * The generated swig_type_info structures are assigned statically to an initial
+ * array. We just loop through that array, and handle each type individually.
+ * First we lookup if this type has been already loaded, and if so, use the
+ * loaded structure instead of the generated one. Then we have to fill in the
+ * cast linked list. The cast data is initially stored in something like a
+ * two-dimensional array. Each row corresponds to a type (there are the same
+ * number of rows as there are in the swig_type_initial array). Each entry in
+ * a column is one of the swig_cast_info structures for that type.
+ * The cast_initial array is actually an array of arrays, because each row has
+ * a variable number of columns. So to actually build the cast linked list,
+ * we find the array of casts associated with the type, and loop through it
+ * adding the casts to the list. The one last trick we need to do is making
+ * sure the type pointer in the swig_cast_info struct is correct.
+ *
+ * First off, we lookup the cast->type name to see if it is already loaded.
+ * There are three cases to handle:
+ * 1) If the cast->type has already been loaded AND the type we are adding
+ * casting info to has not been loaded (it is in this module), THEN we
+ * replace the cast->type pointer with the type pointer that has already
+ * been loaded.
+ * 2) If BOTH types (the one we are adding casting info to, and the
+ * cast->type) are loaded, THEN the cast info has already been loaded by
+ * the previous module so we just ignore it.
+ * 3) Finally, if cast->type has not already been loaded, then we add that
+ * swig_cast_info to the linked list (because the cast->type) pointer will
+ * be correct.
+ * ----------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+extern "C" {
+#if 0
+} /* c-mode */
+#endif
+#endif
+
+#if 0
+#define SWIGRUNTIME_DEBUG
+#endif
+
+
+SWIGRUNTIME void
+SWIG_InitializeModule(void *clientdata) {
+ size_t i;
+ swig_module_info *module_head, *iter;
+ int init;
+
+ /* check to see if the circular list has been setup, if not, set it up */
+ if (swig_module.next==0) {
+ /* Initialize the swig_module */
+ swig_module.type_initial = swig_type_initial;
+ swig_module.cast_initial = swig_cast_initial;
+ swig_module.next = &swig_module;
+ init = 1;
+ } else {
+ init = 0;
+ }
+
+ /* Try and load any already created modules */
+ module_head = SWIG_GetModule(clientdata);
+ if (!module_head) {
+ /* This is the first module loaded for this interpreter */
+ /* so set the swig module into the interpreter */
+ SWIG_SetModule(clientdata, &swig_module);
+ } else {
+ /* the interpreter has loaded a SWIG module, but has it loaded this one? */
+ iter=module_head;
+ do {
+ if (iter==&swig_module) {
+ /* Our module is already in the list, so there's nothing more to do. */
+ return;
+ }
+ iter=iter->next;
+ } while (iter!= module_head);
+
+ /* otherwise we must add our module into the list */
+ swig_module.next = module_head->next;
+ module_head->next = &swig_module;
+ }
+
+ /* When multiple interpreters are used, a module could have already been initialized in
+ a different interpreter, but not yet have a pointer in this interpreter.
+ In this case, we do not want to continue adding types... everything should be
+ set up already */
+ if (init == 0) return;
+
+ /* Now work on filling in swig_module.types */
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
+#endif
+ for (i = 0; i < swig_module.size; ++i) {
+ swig_type_info *type = 0;
+ swig_type_info *ret;
+ swig_cast_info *cast;
+
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
+#endif
+
+ /* if there is another module already loaded */
+ if (swig_module.next != &swig_module) {
+ type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
+ }
+ if (type) {
+ /* Overwrite clientdata field */
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: found type %s\n", type->name);
+#endif
+ if (swig_module.type_initial[i]->clientdata) {
+ type->clientdata = swig_module.type_initial[i]->clientdata;
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
+#endif
+ }
+ } else {
+ type = swig_module.type_initial[i];
+ }
+
+ /* Insert casting types */
+ cast = swig_module.cast_initial[i];
+ while (cast->type) {
+ /* Don't need to add information already in the list */
+ ret = 0;
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
+#endif
+ if (swig_module.next != &swig_module) {
+ ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
+#ifdef SWIGRUNTIME_DEBUG
+ if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
+#endif
+ }
+ if (ret) {
+ if (type == swig_module.type_initial[i]) {
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
+#endif
+ cast->type = ret;
+ ret = 0;
+ } else {
+ /* Check for casting already in the list */
+ swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
+#ifdef SWIGRUNTIME_DEBUG
+ if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
+#endif
+ if (!ocast) ret = 0;
+ }
+ }
+
+ if (!ret) {
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
+#endif
+ if (type->cast) {
+ type->cast->prev = cast;
+ cast->next = type->cast;
+ }
+ type->cast = cast;
+ }
+ cast++;
+ }
+ /* Set entry in modules->types array equal to the type */
+ swig_module.types[i] = type;
+ }
+ swig_module.types[i] = 0;
+
+#ifdef SWIGRUNTIME_DEBUG
+ printf("**** SWIG_InitializeModule: Cast List ******\n");
+ for (i = 0; i < swig_module.size; ++i) {
+ int j = 0;
+ swig_cast_info *cast = swig_module.cast_initial[i];
+ printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
+ while (cast->type) {
+ printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
+ cast++;
+ ++j;
+ }
+ printf("---- Total casts: %d\n",j);
+ }
+ printf("**** SWIG_InitializeModule: Cast List ******\n");
+#endif
+}
+
+/* This function will propagate the clientdata field of type to
+* any new swig_type_info structures that have been added into the list
+* of equivalent types. It is like calling
+* SWIG_TypeClientData(type, clientdata) a second time.
+*/
+SWIGRUNTIME void
+SWIG_PropagateClientData(void) {
+ size_t i;
+ swig_cast_info *equiv;
+ static int init_run = 0;
+
+ if (init_run) return;
+ init_run = 1;
+
+ for (i = 0; i < swig_module.size; i++) {
+ if (swig_module.types[i]->clientdata) {
+ equiv = swig_module.types[i]->cast;
+ while (equiv) {
+ if (!equiv->converter) {
+ if (equiv->type && !equiv->type->clientdata)
+ SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
+ }
+ equiv = equiv->next;
+ }
+ }
+ }
+}
+
+#ifdef __cplusplus
+#if 0
+{
+ /* c-mode */
+#endif
+}
+#endif
+
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+ /* Python-specific SWIG API */
+#define SWIG_newvarlink() SWIG_Python_newvarlink()
+#define SWIG_addvarlink(p, name, get_attr, set_attr) SWIG_Python_addvarlink(p, name, get_attr, set_attr)
+#define SWIG_InstallConstants(d, constants) SWIG_Python_InstallConstants(d, constants)
+
+ /* -----------------------------------------------------------------------------
+ * global variable support code.
+ * ----------------------------------------------------------------------------- */
+
+ typedef struct swig_globalvar {
+ char *name; /* Name of global variable */
+ PyObject *(*get_attr)(void); /* Return the current value */
+ int (*set_attr)(PyObject *); /* Set the value */
+ struct swig_globalvar *next;
+ } swig_globalvar;
+
+ typedef struct swig_varlinkobject {
+ PyObject_HEAD
+ swig_globalvar *vars;
+ } swig_varlinkobject;
+
+ SWIGINTERN PyObject *
+ swig_varlink_repr(swig_varlinkobject *SWIGUNUSEDPARM(v)) {
+#if PY_VERSION_HEX >= 0x03000000
+ return PyUnicode_InternFromString("<Swig global variables>");
+#else
+ return PyString_FromString("<Swig global variables>");
+#endif
+ }
+
+ SWIGINTERN PyObject *
+ swig_varlink_str(swig_varlinkobject *v) {
+#if PY_VERSION_HEX >= 0x03000000
+ PyObject *str = PyUnicode_InternFromString("(");
+ PyObject *tail;
+ PyObject *joined;
+ swig_globalvar *var;
+ for (var = v->vars; var; var=var->next) {
+ tail = PyUnicode_FromString(var->name);
+ joined = PyUnicode_Concat(str, tail);
+ Py_DecRef(str);
+ Py_DecRef(tail);
+ str = joined;
+ if (var->next) {
+ tail = PyUnicode_InternFromString(", ");
+ joined = PyUnicode_Concat(str, tail);
+ Py_DecRef(str);
+ Py_DecRef(tail);
+ str = joined;
+ }
+ }
+ tail = PyUnicode_InternFromString(")");
+ joined = PyUnicode_Concat(str, tail);
+ Py_DecRef(str);
+ Py_DecRef(tail);
+ str = joined;
+#else
+ PyObject *str = PyString_FromString("(");
+ swig_globalvar *var;
+ for (var = v->vars; var; var=var->next) {
+ PyString_ConcatAndDel(&str,PyString_FromString(var->name));
+ if (var->next) PyString_ConcatAndDel(&str,PyString_FromString(", "));
+ }
+ PyString_ConcatAndDel(&str,PyString_FromString(")"));
+#endif
+ return str;
+ }
+
+ SWIGINTERN void
+ swig_varlink_dealloc(swig_varlinkobject *v) {
+ swig_globalvar *var = v->vars;
+ while (var) {
+ swig_globalvar *n = var->next;
+ free(var->name);
+ free(var);
+ var = n;
+ }
+ }
+
+ SWIGINTERN PyObject *
+ swig_varlink_getattr(swig_varlinkobject *v, char *n) {
+ PyObject *res = NULL;
+ swig_globalvar *var = v->vars;
+ while (var) {
+ if (strcmp(var->name,n) == 0) {
+ res = (*var->get_attr)();
+ break;
+ }
+ var = var->next;
+ }
+ if (res == NULL && !PyErr_Occurred()) {
+ PyErr_Format(PyExc_AttributeError, "Unknown C global variable '%s'", n);
+ }
+ return res;
+ }
+
+ SWIGINTERN int
+ swig_varlink_setattr(swig_varlinkobject *v, char *n, PyObject *p) {
+ int res = 1;
+ swig_globalvar *var = v->vars;
+ while (var) {
+ if (strcmp(var->name,n) == 0) {
+ res = (*var->set_attr)(p);
+ break;
+ }
+ var = var->next;
+ }
+ if (res == 1 && !PyErr_Occurred()) {
+ PyErr_Format(PyExc_AttributeError, "Unknown C global variable '%s'", n);
+ }
+ return res;
+ }
+
+ SWIGINTERN PyTypeObject*
+ swig_varlink_type(void) {
+ static char varlink__doc__[] = "Swig var link object";
+ static PyTypeObject varlink_type;
+ static int type_init = 0;
+ if (!type_init) {
+ const PyTypeObject tmp = {
+#if PY_VERSION_HEX >= 0x03000000
+ PyVarObject_HEAD_INIT(NULL, 0)
+#else
+ PyObject_HEAD_INIT(NULL)
+ 0, /* ob_size */
+#endif
+ "swigvarlink", /* tp_name */
+ sizeof(swig_varlinkobject), /* tp_basicsize */
+ 0, /* tp_itemsize */
+ (destructor) swig_varlink_dealloc, /* tp_dealloc */
+ 0, /* tp_print */
+ (getattrfunc) swig_varlink_getattr, /* tp_getattr */
+ (setattrfunc) swig_varlink_setattr, /* tp_setattr */
+ 0, /* tp_compare */
+ (reprfunc) swig_varlink_repr, /* tp_repr */
+ 0, /* tp_as_number */
+ 0, /* tp_as_sequence */
+ 0, /* tp_as_mapping */
+ 0, /* tp_hash */
+ 0, /* tp_call */
+ (reprfunc) swig_varlink_str, /* tp_str */
+ 0, /* tp_getattro */
+ 0, /* tp_setattro */
+ 0, /* tp_as_buffer */
+ 0, /* tp_flags */
+ varlink__doc__, /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* tp_iter -> tp_weaklist */
+ 0, /* tp_del */
+ 0, /* tp_version_tag */
+#if PY_VERSION_HEX >= 0x03040000
+ 0, /* tp_finalize */
+#endif
+#if PY_VERSION_HEX >= 0x03080000
+ 0, /* tp_vectorcall */
+#endif
+#if (PY_VERSION_HEX >= 0x03080000) && (PY_VERSION_HEX < 0x03090000)
+ 0, /* tp_print */
+#endif
+#ifdef COUNT_ALLOCS
+ 0, /* tp_allocs */
+ 0, /* tp_frees */
+ 0, /* tp_maxalloc */
+ 0, /* tp_prev */
+ 0 /* tp_next */
+#endif
+ };
+ varlink_type = tmp;
+ type_init = 1;
+ if (PyType_Ready(&varlink_type) < 0)
+ return NULL;
+ }
+ return &varlink_type;
+ }
+
+ /* Create a variable linking object for use later */
+ SWIGINTERN PyObject *
+ SWIG_Python_newvarlink(void) {
+ swig_varlinkobject *result = PyObject_NEW(swig_varlinkobject, swig_varlink_type());
+ if (result) {
+ result->vars = 0;
+ }
+ return ((PyObject*) result);
+ }
+
+ SWIGINTERN void
+ SWIG_Python_addvarlink(PyObject *p, const char *name, PyObject *(*get_attr)(void), int (*set_attr)(PyObject *p)) {
+ swig_varlinkobject *v = (swig_varlinkobject *) p;
+ swig_globalvar *gv = (swig_globalvar *) malloc(sizeof(swig_globalvar));
+ if (gv) {
+ size_t size = strlen(name)+1;
+ gv->name = (char *)malloc(size);
+ if (gv->name) {
+ memcpy(gv->name, name, size);
+ gv->get_attr = get_attr;
+ gv->set_attr = set_attr;
+ gv->next = v->vars;
+ }
+ }
+ v->vars = gv;
+ }
+
+ SWIGINTERN PyObject *
+ SWIG_globals(void) {
+ static PyObject *globals = 0;
+ if (!globals) {
+ globals = SWIG_newvarlink();
+ }
+ return globals;
+ }
+
+ /* -----------------------------------------------------------------------------
+ * constants/methods manipulation
+ * ----------------------------------------------------------------------------- */
+
+ /* Install Constants */
+ SWIGINTERN void
+ SWIG_Python_InstallConstants(PyObject *d, swig_const_info constants[]) {
+ PyObject *obj = 0;
+ size_t i;
+ for (i = 0; constants[i].type; ++i) {
+ switch(constants[i].type) {
+ case SWIG_PY_POINTER:
+ obj = SWIG_InternalNewPointerObj(constants[i].pvalue, *(constants[i]).ptype,0);
+ break;
+ case SWIG_PY_BINARY:
+ obj = SWIG_NewPackedObj(constants[i].pvalue, constants[i].lvalue, *(constants[i].ptype));
+ break;
+ default:
+ obj = 0;
+ break;
+ }
+ if (obj) {
+ PyDict_SetItemString(d, constants[i].name, obj);
+ Py_DECREF(obj);
+ }
+ }
+ }
+
+ /* -----------------------------------------------------------------------------*/
+ /* Fix SwigMethods to carry the callback ptrs when needed */
+ /* -----------------------------------------------------------------------------*/
+
+ SWIGINTERN void
+ SWIG_Python_FixMethods(PyMethodDef *methods,
+ swig_const_info *const_table,
+ swig_type_info **types,
+ swig_type_info **types_initial) {
+ size_t i;
+ for (i = 0; methods[i].ml_name; ++i) {
+ const char *c = methods[i].ml_doc;
+ if (!c) continue;
+ c = strstr(c, "swig_ptr: ");
+ if (c) {
+ int j;
+ swig_const_info *ci = 0;
+ const char *name = c + 10;
+ for (j = 0; const_table[j].type; ++j) {
+ if (strncmp(const_table[j].name, name,
+ strlen(const_table[j].name)) == 0) {
+ ci = &(const_table[j]);
+ break;
+ }
+ }
+ if (ci) {
+ void *ptr = (ci->type == SWIG_PY_POINTER) ? ci->pvalue : 0;
+ if (ptr) {
+ size_t shift = (ci->ptype) - types;
+ swig_type_info *ty = types_initial[shift];
+ size_t ldoc = (c - methods[i].ml_doc);
+ size_t lptr = strlen(ty->name)+2*sizeof(void*)+2;
+ char *ndoc = (char*)malloc(ldoc + lptr + 10);
+ if (ndoc) {
+ char *buff = ndoc;
+ memcpy(buff, methods[i].ml_doc, ldoc);
+ buff += ldoc;
+ memcpy(buff, "swig_ptr: ", 10);
+ buff += 10;
+ SWIG_PackVoidPtr(buff, ptr, ty->name, lptr);
+ methods[i].ml_doc = ndoc;
+ }
+ }
+ }
+ }
+ }
+ }
+
+ /* -----------------------------------------------------------------------------
+ * Method creation and docstring support functions
+ * ----------------------------------------------------------------------------- */
+
+ /* -----------------------------------------------------------------------------
+ * Function to find the method definition with the correct docstring for the
+ * proxy module as opposed to the low-level API
+ * ----------------------------------------------------------------------------- */
+
+ SWIGINTERN PyMethodDef *SWIG_PythonGetProxyDoc(const char *name) {
+ /* Find the function in the modified method table */
+ size_t offset = 0;
+ int found = 0;
+ while (SwigMethods_proxydocs[offset].ml_meth != NULL) {
+ if (strcmp(SwigMethods_proxydocs[offset].ml_name, name) == 0) {
+ found = 1;
+ break;
+ }
+ offset++;
+ }
+ /* Use the copy with the modified docstring if available */
+ return found ? &SwigMethods_proxydocs[offset] : NULL;
+ }
+
+ /* -----------------------------------------------------------------------------
+ * Wrapper of PyInstanceMethod_New() used in Python 3
+ * It is exported to the generated module, used for -fastproxy
+ * ----------------------------------------------------------------------------- */
+
+ SWIGINTERN PyObject *SWIG_PyInstanceMethod_New(PyObject *SWIGUNUSEDPARM(self), PyObject *func) {
+ if (PyCFunction_Check(func)) {
+ PyCFunctionObject *funcobj = (PyCFunctionObject *)func;
+ PyMethodDef *ml = SWIG_PythonGetProxyDoc(funcobj->m_ml->ml_name);
+ if (ml)
+ func = PyCFunction_NewEx(ml, funcobj->m_self, funcobj->m_module);
+ }
+#if PY_VERSION_HEX >= 0x03000000
+ return PyInstanceMethod_New(func);
+#else
+ return PyMethod_New(func, NULL, NULL);
+#endif
+ }
+
+ /* -----------------------------------------------------------------------------
+ * Wrapper of PyStaticMethod_New()
+ * It is exported to the generated module, used for -fastproxy
+ * ----------------------------------------------------------------------------- */
+
+ SWIGINTERN PyObject *SWIG_PyStaticMethod_New(PyObject *SWIGUNUSEDPARM(self), PyObject *func) {
+ if (PyCFunction_Check(func)) {
+ PyCFunctionObject *funcobj = (PyCFunctionObject *)func;
+ PyMethodDef *ml = SWIG_PythonGetProxyDoc(funcobj->m_ml->ml_name);
+ if (ml)
+ func = PyCFunction_NewEx(ml, funcobj->m_self, funcobj->m_module);
+ }
+ return PyStaticMethod_New(func);
+ }
+
+#ifdef __cplusplus
+}
+#endif
+
+/* -----------------------------------------------------------------------------*
+ * Partial Init method
+ * -----------------------------------------------------------------------------*/
+
+#ifdef __cplusplus
+extern "C"
+#endif
+
+SWIGEXPORT
+#if PY_VERSION_HEX >= 0x03000000
+PyObject*
+#else
+void
+#endif
+SWIG_init(void) {
+ PyObject *m, *d, *md, *globals;
+
+#if PY_VERSION_HEX >= 0x03000000
+ static struct PyModuleDef SWIG_module = {
+ PyModuleDef_HEAD_INIT,
+ SWIG_name,
+ NULL,
+ -1,
+ SwigMethods,
+ NULL,
+ NULL,
+ NULL,
+ NULL
+ };
+#endif
+
+#if defined(SWIGPYTHON_BUILTIN)
+ static SwigPyClientData SwigPyObject_clientdata = {
+ 0, 0, 0, 0, 0, 0, 0
+ };
+ static PyGetSetDef this_getset_def = {
+ (char *)"this", &SwigPyBuiltin_ThisClosure, NULL, NULL, NULL
+ };
+ static SwigPyGetSet thisown_getset_closure = {
+ SwigPyObject_own,
+ SwigPyObject_own
+ };
+ static PyGetSetDef thisown_getset_def = {
+ (char *)"thisown", SwigPyBuiltin_GetterClosure, SwigPyBuiltin_SetterClosure, NULL, &thisown_getset_closure
+ };
+ PyTypeObject *builtin_pytype;
+ int builtin_base_count;
+ swig_type_info *builtin_basetype;
+ PyObject *tuple;
+ PyGetSetDescrObject *static_getset;
+ PyTypeObject *metatype;
+ PyTypeObject *swigpyobject;
+ SwigPyClientData *cd;
+ PyObject *public_interface, *public_symbol;
+ PyObject *this_descr;
+ PyObject *thisown_descr;
+ PyObject *self = 0;
+ int i;
+
+ (void)builtin_pytype;
+ (void)builtin_base_count;
+ (void)builtin_basetype;
+ (void)tuple;
+ (void)static_getset;
+ (void)self;
+
+ /* Metaclass is used to implement static member variables */
+ metatype = SwigPyObjectType();
+ assert(metatype);
+#endif
+
+ (void)globals;
+
+ /* Create singletons now to avoid potential deadlocks with multi-threaded usage after module initialization */
+ SWIG_This();
+ SWIG_Python_TypeCache();
+ SwigPyPacked_type();
+#ifndef SWIGPYTHON_BUILTIN
+ SwigPyObject_type();
+#endif
+
+ /* Fix SwigMethods to carry the callback ptrs when needed */
+ SWIG_Python_FixMethods(SwigMethods, swig_const_table, swig_types, swig_type_initial);
+
+#if PY_VERSION_HEX >= 0x03000000
+ m = PyModule_Create(&SWIG_module);
+#else
+ m = Py_InitModule(SWIG_name, SwigMethods);
+#endif
+
+ md = d = PyModule_GetDict(m);
+ (void)md;
+
+ SWIG_InitializeModule(0);
+
+#ifdef SWIGPYTHON_BUILTIN
+ swigpyobject = SwigPyObject_TypeOnce();
+
+ SwigPyObject_stype = SWIG_MangledTypeQuery("_p_SwigPyObject");
+ assert(SwigPyObject_stype);
+ cd = (SwigPyClientData*) SwigPyObject_stype->clientdata;
+ if (!cd) {
+ SwigPyObject_stype->clientdata = &SwigPyObject_clientdata;
+ SwigPyObject_clientdata.pytype = swigpyobject;
+ } else if (swigpyobject->tp_basicsize != cd->pytype->tp_basicsize) {
+ PyErr_SetString(PyExc_RuntimeError, "Import error: attempted to load two incompatible swig-generated modules.");
+# if PY_VERSION_HEX >= 0x03000000
+ return NULL;
+# else
+ return;
+# endif
+ }
+
+ /* All objects have a 'this' attribute */
+ this_descr = PyDescr_NewGetSet(SwigPyObject_type(), &this_getset_def);
+ (void)this_descr;
+
+ /* All objects have a 'thisown' attribute */
+ thisown_descr = PyDescr_NewGetSet(SwigPyObject_type(), &thisown_getset_def);
+ (void)thisown_descr;
+
+ public_interface = PyList_New(0);
+ public_symbol = 0;
+ (void)public_symbol;
+
+ PyDict_SetItemString(md, "__all__", public_interface);
+ Py_DECREF(public_interface);
+ for (i = 0; SwigMethods[i].ml_name != NULL; ++i)
+ SwigPyBuiltin_AddPublicSymbol(public_interface, SwigMethods[i].ml_name);
+ for (i = 0; swig_const_table[i].name != 0; ++i)
+ SwigPyBuiltin_AddPublicSymbol(public_interface, swig_const_table[i].name);
+#endif
+
+ SWIG_InstallConstants(d,swig_const_table);
+
+
+ // thread safe initialization
+ swig::container_owner_attribute();
+
+#if PY_VERSION_HEX >= 0x03000000
+ return m;
+#else
+ return;
+#endif
+}
+
diff --git a/interfaces/ruby/cdi_wrapper.cpp b/interfaces/ruby/cdi_wrapper.cpp
new file mode 100644
index 000000000..701e66dcd
--- /dev/null
+++ b/interfaces/ruby/cdi_wrapper.cpp
@@ -0,0 +1,33805 @@
+/* ----------------------------------------------------------------------------
+ * This file was automatically generated by SWIG (http://www.swig.org).
+ * Version 4.0.2
+ *
+ * This file is not intended to be easily readable and contains a number of
+ * coding conventions designed to improve portability and efficiency. Do not make
+ * changes to this file unless you know what you are doing--modify the SWIG
+ * interface file instead.
+ * ----------------------------------------------------------------------------- */
+
+
+#ifndef SWIGRUBY
+#define SWIGRUBY
+#endif
+
+
+
+#ifdef __cplusplus
+/* SwigValueWrapper is described in swig.swg */
+template<typename T> class SwigValueWrapper {
+ struct SwigMovePointer {
+ T *ptr;
+ SwigMovePointer(T *p) : ptr(p) { }
+ ~SwigMovePointer() { delete ptr; }
+ SwigMovePointer& operator=(SwigMovePointer& rhs) { T* oldptr = ptr; ptr = 0; delete oldptr; ptr = rhs.ptr; rhs.ptr = 0; return *this; }
+ } pointer;
+ SwigValueWrapper& operator=(const SwigValueWrapper<T>& rhs);
+ SwigValueWrapper(const SwigValueWrapper<T>& rhs);
+public:
+ SwigValueWrapper() : pointer(0) { }
+ SwigValueWrapper& operator=(const T& t) { SwigMovePointer tmp(new T(t)); pointer = tmp; return *this; }
+ operator T&() const { return *pointer.ptr; }
+ T *operator&() { return pointer.ptr; }
+};
+
+template <typename T> T SwigValueInit() {
+ return T();
+}
+#endif
+
+/* -----------------------------------------------------------------------------
+ * This section contains generic SWIG labels for method/variable
+ * declarations/attributes, and other compiler dependent labels.
+ * ----------------------------------------------------------------------------- */
+
+/* template workaround for compilers that cannot correctly implement the C++ standard */
+#ifndef SWIGTEMPLATEDISAMBIGUATOR
+# if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
+# define SWIGTEMPLATEDISAMBIGUATOR template
+# elif defined(__HP_aCC)
+/* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
+/* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
+# define SWIGTEMPLATEDISAMBIGUATOR template
+# else
+# define SWIGTEMPLATEDISAMBIGUATOR
+# endif
+#endif
+
+/* inline attribute */
+#ifndef SWIGINLINE
+# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
+# define SWIGINLINE inline
+# else
+# define SWIGINLINE
+# endif
+#endif
+
+/* attribute recognised by some compilers to avoid 'unused' warnings */
+#ifndef SWIGUNUSED
+# if defined(__GNUC__)
+# if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
+# define SWIGUNUSED __attribute__ ((__unused__))
+# else
+# define SWIGUNUSED
+# endif
+# elif defined(__ICC)
+# define SWIGUNUSED __attribute__ ((__unused__))
+# else
+# define SWIGUNUSED
+# endif
+#endif
+
+#ifndef SWIG_MSC_UNSUPPRESS_4505
+# if defined(_MSC_VER)
+# pragma warning(disable : 4505) /* unreferenced local function has been removed */
+# endif
+#endif
+
+#ifndef SWIGUNUSEDPARM
+# ifdef __cplusplus
+# define SWIGUNUSEDPARM(p)
+# else
+# define SWIGUNUSEDPARM(p) p SWIGUNUSED
+# endif
+#endif
+
+/* internal SWIG method */
+#ifndef SWIGINTERN
+# define SWIGINTERN static SWIGUNUSED
+#endif
+
+/* internal inline SWIG method */
+#ifndef SWIGINTERNINLINE
+# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
+#endif
+
+/* exporting methods */
+#if defined(__GNUC__)
+# if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
+# ifndef GCC_HASCLASSVISIBILITY
+# define GCC_HASCLASSVISIBILITY
+# endif
+# endif
+#endif
+
+#ifndef SWIGEXPORT
+# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
+# if defined(STATIC_LINKED)
+# define SWIGEXPORT
+# else
+# define SWIGEXPORT __declspec(dllexport)
+# endif
+# else
+# if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
+# define SWIGEXPORT __attribute__ ((visibility("default")))
+# else
+# define SWIGEXPORT
+# endif
+# endif
+#endif
+
+/* calling conventions for Windows */
+#ifndef SWIGSTDCALL
+# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
+# define SWIGSTDCALL __stdcall
+# else
+# define SWIGSTDCALL
+# endif
+#endif
+
+/* Deal with Microsoft's attempt at deprecating C standard runtime functions */
+#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
+# define _CRT_SECURE_NO_DEPRECATE
+#endif
+
+/* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
+#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
+# define _SCL_SECURE_NO_DEPRECATE
+#endif
+
+/* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
+#if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
+# define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
+#endif
+
+/* Intel's compiler complains if a variable which was never initialised is
+ * cast to void, which is a common idiom which we use to indicate that we
+ * are aware a variable isn't used. So we just silence that warning.
+ * See: https://github.com/swig/swig/issues/192 for more discussion.
+ */
+#ifdef __INTEL_COMPILER
+# pragma warning disable 592
+#endif
+
+/* -----------------------------------------------------------------------------
+ * This section contains generic SWIG labels for method/variable
+ * declarations/attributes, and other compiler dependent labels.
+ * ----------------------------------------------------------------------------- */
+
+/* template workaround for compilers that cannot correctly implement the C++ standard */
+#ifndef SWIGTEMPLATEDISAMBIGUATOR
+# if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
+# define SWIGTEMPLATEDISAMBIGUATOR template
+# elif defined(__HP_aCC)
+/* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
+/* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
+# define SWIGTEMPLATEDISAMBIGUATOR template
+# else
+# define SWIGTEMPLATEDISAMBIGUATOR
+# endif
+#endif
+
+/* inline attribute */
+#ifndef SWIGINLINE
+# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
+# define SWIGINLINE inline
+# else
+# define SWIGINLINE
+# endif
+#endif
+
+/* attribute recognised by some compilers to avoid 'unused' warnings */
+#ifndef SWIGUNUSED
+# if defined(__GNUC__)
+# if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
+# define SWIGUNUSED __attribute__ ((__unused__))
+# else
+# define SWIGUNUSED
+# endif
+# elif defined(__ICC)
+# define SWIGUNUSED __attribute__ ((__unused__))
+# else
+# define SWIGUNUSED
+# endif
+#endif
+
+#ifndef SWIG_MSC_UNSUPPRESS_4505
+# if defined(_MSC_VER)
+# pragma warning(disable : 4505) /* unreferenced local function has been removed */
+# endif
+#endif
+
+#ifndef SWIGUNUSEDPARM
+# ifdef __cplusplus
+# define SWIGUNUSEDPARM(p)
+# else
+# define SWIGUNUSEDPARM(p) p SWIGUNUSED
+# endif
+#endif
+
+/* internal SWIG method */
+#ifndef SWIGINTERN
+# define SWIGINTERN static SWIGUNUSED
+#endif
+
+/* internal inline SWIG method */
+#ifndef SWIGINTERNINLINE
+# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
+#endif
+
+/* exporting methods */
+#if defined(__GNUC__)
+# if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
+# ifndef GCC_HASCLASSVISIBILITY
+# define GCC_HASCLASSVISIBILITY
+# endif
+# endif
+#endif
+
+#ifndef SWIGEXPORT
+# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
+# if defined(STATIC_LINKED)
+# define SWIGEXPORT
+# else
+# define SWIGEXPORT __declspec(dllexport)
+# endif
+# else
+# if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
+# define SWIGEXPORT __attribute__ ((visibility("default")))
+# else
+# define SWIGEXPORT
+# endif
+# endif
+#endif
+
+/* calling conventions for Windows */
+#ifndef SWIGSTDCALL
+# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
+# define SWIGSTDCALL __stdcall
+# else
+# define SWIGSTDCALL
+# endif
+#endif
+
+/* Deal with Microsoft's attempt at deprecating C standard runtime functions */
+#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
+# define _CRT_SECURE_NO_DEPRECATE
+#endif
+
+/* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
+#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
+# define _SCL_SECURE_NO_DEPRECATE
+#endif
+
+/* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
+#if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
+# define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
+#endif
+
+/* Intel's compiler complains if a variable which was never initialised is
+ * cast to void, which is a common idiom which we use to indicate that we
+ * are aware a variable isn't used. So we just silence that warning.
+ * See: https://github.com/swig/swig/issues/192 for more discussion.
+ */
+#ifdef __INTEL_COMPILER
+# pragma warning disable 592
+#endif
+
+/* -----------------------------------------------------------------------------
+ * swigrun.swg
+ *
+ * This file contains generic C API SWIG runtime support for pointer
+ * type checking.
+ * ----------------------------------------------------------------------------- */
+
+/* This should only be incremented when either the layout of swig_type_info changes,
+ or for whatever reason, the runtime changes incompatibly */
+#define SWIG_RUNTIME_VERSION "4"
+
+/* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
+#ifdef SWIG_TYPE_TABLE
+# define SWIG_QUOTE_STRING(x) #x
+# define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
+# define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
+#else
+# define SWIG_TYPE_TABLE_NAME
+#endif
+
+/*
+ You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
+ creating a static or dynamic library from the SWIG runtime code.
+ In 99.9% of the cases, SWIG just needs to declare them as 'static'.
+
+ But only do this if strictly necessary, ie, if you have problems
+ with your compiler or suchlike.
+*/
+
+#ifndef SWIGRUNTIME
+# define SWIGRUNTIME SWIGINTERN
+#endif
+
+#ifndef SWIGRUNTIMEINLINE
+# define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
+#endif
+
+/* Generic buffer size */
+#ifndef SWIG_BUFFER_SIZE
+# define SWIG_BUFFER_SIZE 1024
+#endif
+
+/* Flags for pointer conversions */
+#define SWIG_POINTER_DISOWN 0x1
+#define SWIG_CAST_NEW_MEMORY 0x2
+#define SWIG_POINTER_NO_NULL 0x4
+
+/* Flags for new pointer objects */
+#define SWIG_POINTER_OWN 0x1
+
+
+/*
+ Flags/methods for returning states.
+
+ The SWIG conversion methods, as ConvertPtr, return an integer
+ that tells if the conversion was successful or not. And if not,
+ an error code can be returned (see swigerrors.swg for the codes).
+
+ Use the following macros/flags to set or process the returning
+ states.
+
+ In old versions of SWIG, code such as the following was usually written:
+
+ if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
+ // success code
+ } else {
+ //fail code
+ }
+
+ Now you can be more explicit:
+
+ int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
+ if (SWIG_IsOK(res)) {
+ // success code
+ } else {
+ // fail code
+ }
+
+ which is the same really, but now you can also do
+
+ Type *ptr;
+ int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
+ if (SWIG_IsOK(res)) {
+ // success code
+ if (SWIG_IsNewObj(res) {
+ ...
+ delete *ptr;
+ } else {
+ ...
+ }
+ } else {
+ // fail code
+ }
+
+ I.e., now SWIG_ConvertPtr can return new objects and you can
+ identify the case and take care of the deallocation. Of course that
+ also requires SWIG_ConvertPtr to return new result values, such as
+
+ int SWIG_ConvertPtr(obj, ptr,...) {
+ if (<obj is ok>) {
+ if (<need new object>) {
+ *ptr = <ptr to new allocated object>;
+ return SWIG_NEWOBJ;
+ } else {
+ *ptr = <ptr to old object>;
+ return SWIG_OLDOBJ;
+ }
+ } else {
+ return SWIG_BADOBJ;
+ }
+ }
+
+ Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
+ more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
+ SWIG errors code.
+
+ Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
+ allows to return the 'cast rank', for example, if you have this
+
+ int food(double)
+ int fooi(int);
+
+ and you call
+
+ food(1) // cast rank '1' (1 -> 1.0)
+ fooi(1) // cast rank '0'
+
+ just use the SWIG_AddCast()/SWIG_CheckState()
+*/
+
+#define SWIG_OK (0)
+#define SWIG_ERROR (-1)
+#define SWIG_IsOK(r) (r >= 0)
+#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
+
+/* The CastRankLimit says how many bits are used for the cast rank */
+#define SWIG_CASTRANKLIMIT (1 << 8)
+/* The NewMask denotes the object was created (using new/malloc) */
+#define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
+/* The TmpMask is for in/out typemaps that use temporal objects */
+#define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
+/* Simple returning values */
+#define SWIG_BADOBJ (SWIG_ERROR)
+#define SWIG_OLDOBJ (SWIG_OK)
+#define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
+#define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
+/* Check, add and del mask methods */
+#define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
+#define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
+#define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
+#define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
+#define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
+#define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
+
+/* Cast-Rank Mode */
+#if defined(SWIG_CASTRANK_MODE)
+# ifndef SWIG_TypeRank
+# define SWIG_TypeRank unsigned long
+# endif
+# ifndef SWIG_MAXCASTRANK /* Default cast allowed */
+# define SWIG_MAXCASTRANK (2)
+# endif
+# define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
+# define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
+SWIGINTERNINLINE int SWIG_AddCast(int r) {
+ return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
+}
+SWIGINTERNINLINE int SWIG_CheckState(int r) {
+ return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
+}
+#else /* no cast-rank mode */
+# define SWIG_AddCast(r) (r)
+# define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
+#endif
+
+
+#include <string.h>
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef void *(*swig_converter_func)(void *, int *);
+typedef struct swig_type_info *(*swig_dycast_func)(void **);
+
+/* Structure to store information on one type */
+typedef struct swig_type_info {
+ const char *name; /* mangled name of this type */
+ const char *str; /* human readable name of this type */
+ swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
+ struct swig_cast_info *cast; /* linked list of types that can cast into this type */
+ void *clientdata; /* language specific type data */
+ int owndata; /* flag if the structure owns the clientdata */
+} swig_type_info;
+
+/* Structure to store a type and conversion function used for casting */
+typedef struct swig_cast_info {
+ swig_type_info *type; /* pointer to type that is equivalent to this type */
+ swig_converter_func converter; /* function to cast the void pointers */
+ struct swig_cast_info *next; /* pointer to next cast in linked list */
+ struct swig_cast_info *prev; /* pointer to the previous cast */
+} swig_cast_info;
+
+/* Structure used to store module information
+ * Each module generates one structure like this, and the runtime collects
+ * all of these structures and stores them in a circularly linked list.*/
+typedef struct swig_module_info {
+ swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
+ size_t size; /* Number of types in this module */
+ struct swig_module_info *next; /* Pointer to next element in circularly linked list */
+ swig_type_info **type_initial; /* Array of initially generated type structures */
+ swig_cast_info **cast_initial; /* Array of initially generated casting structures */
+ void *clientdata; /* Language specific module data */
+} swig_module_info;
+
+/*
+ Compare two type names skipping the space characters, therefore
+ "char*" == "char *" and "Class<int>" == "Class<int >", etc.
+
+ Return 0 when the two name types are equivalent, as in
+ strncmp, but skipping ' '.
+*/
+SWIGRUNTIME int
+SWIG_TypeNameComp(const char *f1, const char *l1,
+ const char *f2, const char *l2) {
+ for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
+ while ((*f1 == ' ') && (f1 != l1)) ++f1;
+ while ((*f2 == ' ') && (f2 != l2)) ++f2;
+ if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
+ }
+ return (int)((l1 - f1) - (l2 - f2));
+}
+
+/*
+ Check type equivalence in a name list like <name1>|<name2>|...
+ Return 0 if equal, -1 if nb < tb, 1 if nb > tb
+*/
+SWIGRUNTIME int
+SWIG_TypeCmp(const char *nb, const char *tb) {
+ int equiv = 1;
+ const char* te = tb + strlen(tb);
+ const char* ne = nb;
+ while (equiv != 0 && *ne) {
+ for (nb = ne; *ne; ++ne) {
+ if (*ne == '|') break;
+ }
+ equiv = SWIG_TypeNameComp(nb, ne, tb, te);
+ if (*ne) ++ne;
+ }
+ return equiv;
+}
+
+/*
+ Check type equivalence in a name list like <name1>|<name2>|...
+ Return 0 if not equal, 1 if equal
+*/
+SWIGRUNTIME int
+SWIG_TypeEquiv(const char *nb, const char *tb) {
+ return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
+}
+
+/*
+ Check the typename
+*/
+SWIGRUNTIME swig_cast_info *
+SWIG_TypeCheck(const char *c, swig_type_info *ty) {
+ if (ty) {
+ swig_cast_info *iter = ty->cast;
+ while (iter) {
+ if (strcmp(iter->type->name, c) == 0) {
+ if (iter == ty->cast)
+ return iter;
+ /* Move iter to the top of the linked list */
+ iter->prev->next = iter->next;
+ if (iter->next)
+ iter->next->prev = iter->prev;
+ iter->next = ty->cast;
+ iter->prev = 0;
+ if (ty->cast) ty->cast->prev = iter;
+ ty->cast = iter;
+ return iter;
+ }
+ iter = iter->next;
+ }
+ }
+ return 0;
+}
+
+/*
+ Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
+*/
+SWIGRUNTIME swig_cast_info *
+SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
+ if (ty) {
+ swig_cast_info *iter = ty->cast;
+ while (iter) {
+ if (iter->type == from) {
+ if (iter == ty->cast)
+ return iter;
+ /* Move iter to the top of the linked list */
+ iter->prev->next = iter->next;
+ if (iter->next)
+ iter->next->prev = iter->prev;
+ iter->next = ty->cast;
+ iter->prev = 0;
+ if (ty->cast) ty->cast->prev = iter;
+ ty->cast = iter;
+ return iter;
+ }
+ iter = iter->next;
+ }
+ }
+ return 0;
+}
+
+/*
+ Cast a pointer up an inheritance hierarchy
+*/
+SWIGRUNTIMEINLINE void *
+SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
+ return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
+}
+
+/*
+ Dynamic pointer casting. Down an inheritance hierarchy
+*/
+SWIGRUNTIME swig_type_info *
+SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
+ swig_type_info *lastty = ty;
+ if (!ty || !ty->dcast) return ty;
+ while (ty && (ty->dcast)) {
+ ty = (*ty->dcast)(ptr);
+ if (ty) lastty = ty;
+ }
+ return lastty;
+}
+
+/*
+ Return the name associated with this type
+*/
+SWIGRUNTIMEINLINE const char *
+SWIG_TypeName(const swig_type_info *ty) {
+ return ty->name;
+}
+
+/*
+ Return the pretty name associated with this type,
+ that is an unmangled type name in a form presentable to the user.
+*/
+SWIGRUNTIME const char *
+SWIG_TypePrettyName(const swig_type_info *type) {
+ /* The "str" field contains the equivalent pretty names of the
+ type, separated by vertical-bar characters. We choose
+ to print the last name, as it is often (?) the most
+ specific. */
+ if (!type) return NULL;
+ if (type->str != NULL) {
+ const char *last_name = type->str;
+ const char *s;
+ for (s = type->str; *s; s++)
+ if (*s == '|') last_name = s+1;
+ return last_name;
+ }
+ else
+ return type->name;
+}
+
+/*
+ Set the clientdata field for a type
+*/
+SWIGRUNTIME void
+SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
+ swig_cast_info *cast = ti->cast;
+ /* if (ti->clientdata == clientdata) return; */
+ ti->clientdata = clientdata;
+
+ while (cast) {
+ if (!cast->converter) {
+ swig_type_info *tc = cast->type;
+ if (!tc->clientdata) {
+ SWIG_TypeClientData(tc, clientdata);
+ }
+ }
+ cast = cast->next;
+ }
+}
+SWIGRUNTIME void
+SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
+ SWIG_TypeClientData(ti, clientdata);
+ ti->owndata = 1;
+}
+
+/*
+ Search for a swig_type_info structure only by mangled name
+ Search is a O(log #types)
+
+ We start searching at module start, and finish searching when start == end.
+ Note: if start == end at the beginning of the function, we go all the way around
+ the circular list.
+*/
+SWIGRUNTIME swig_type_info *
+SWIG_MangledTypeQueryModule(swig_module_info *start,
+ swig_module_info *end,
+ const char *name) {
+ swig_module_info *iter = start;
+ do {
+ if (iter->size) {
+ size_t l = 0;
+ size_t r = iter->size - 1;
+ do {
+ /* since l+r >= 0, we can (>> 1) instead (/ 2) */
+ size_t i = (l + r) >> 1;
+ const char *iname = iter->types[i]->name;
+ if (iname) {
+ int compare = strcmp(name, iname);
+ if (compare == 0) {
+ return iter->types[i];
+ } else if (compare < 0) {
+ if (i) {
+ r = i - 1;
+ } else {
+ break;
+ }
+ } else if (compare > 0) {
+ l = i + 1;
+ }
+ } else {
+ break; /* should never happen */
+ }
+ } while (l <= r);
+ }
+ iter = iter->next;
+ } while (iter != end);
+ return 0;
+}
+
+/*
+ Search for a swig_type_info structure for either a mangled name or a human readable name.
+ It first searches the mangled names of the types, which is a O(log #types)
+ If a type is not found it then searches the human readable names, which is O(#types).
+
+ We start searching at module start, and finish searching when start == end.
+ Note: if start == end at the beginning of the function, we go all the way around
+ the circular list.
+*/
+SWIGRUNTIME swig_type_info *
+SWIG_TypeQueryModule(swig_module_info *start,
+ swig_module_info *end,
+ const char *name) {
+ /* STEP 1: Search the name field using binary search */
+ swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
+ if (ret) {
+ return ret;
+ } else {
+ /* STEP 2: If the type hasn't been found, do a complete search
+ of the str field (the human readable name) */
+ swig_module_info *iter = start;
+ do {
+ size_t i = 0;
+ for (; i < iter->size; ++i) {
+ if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
+ return iter->types[i];
+ }
+ iter = iter->next;
+ } while (iter != end);
+ }
+
+ /* neither found a match */
+ return 0;
+}
+
+/*
+ Pack binary data into a string
+*/
+SWIGRUNTIME char *
+SWIG_PackData(char *c, void *ptr, size_t sz) {
+ static const char hex[17] = "0123456789abcdef";
+ const unsigned char *u = (unsigned char *) ptr;
+ const unsigned char *eu = u + sz;
+ for (; u != eu; ++u) {
+ unsigned char uu = *u;
+ *(c++) = hex[(uu & 0xf0) >> 4];
+ *(c++) = hex[uu & 0xf];
+ }
+ return c;
+}
+
+/*
+ Unpack binary data from a string
+*/
+SWIGRUNTIME const char *
+SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
+ unsigned char *u = (unsigned char *) ptr;
+ const unsigned char *eu = u + sz;
+ for (; u != eu; ++u) {
+ char d = *(c++);
+ unsigned char uu;
+ if ((d >= '0') && (d <= '9'))
+ uu = (unsigned char)((d - '0') << 4);
+ else if ((d >= 'a') && (d <= 'f'))
+ uu = (unsigned char)((d - ('a'-10)) << 4);
+ else
+ return (char *) 0;
+ d = *(c++);
+ if ((d >= '0') && (d <= '9'))
+ uu |= (unsigned char)(d - '0');
+ else if ((d >= 'a') && (d <= 'f'))
+ uu |= (unsigned char)(d - ('a'-10));
+ else
+ return (char *) 0;
+ *u = uu;
+ }
+ return c;
+}
+
+/*
+ Pack 'void *' into a string buffer.
+*/
+SWIGRUNTIME char *
+SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
+ char *r = buff;
+ if ((2*sizeof(void *) + 2) > bsz) return 0;
+ *(r++) = '_';
+ r = SWIG_PackData(r,&ptr,sizeof(void *));
+ if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
+ strcpy(r,name);
+ return buff;
+}
+
+SWIGRUNTIME const char *
+SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
+ if (*c != '_') {
+ if (strcmp(c,"NULL") == 0) {
+ *ptr = (void *) 0;
+ return name;
+ } else {
+ return 0;
+ }
+ }
+ return SWIG_UnpackData(++c,ptr,sizeof(void *));
+}
+
+SWIGRUNTIME char *
+SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
+ char *r = buff;
+ size_t lname = (name ? strlen(name) : 0);
+ if ((2*sz + 2 + lname) > bsz) return 0;
+ *(r++) = '_';
+ r = SWIG_PackData(r,ptr,sz);
+ if (lname) {
+ strncpy(r,name,lname+1);
+ } else {
+ *r = 0;
+ }
+ return buff;
+}
+
+SWIGRUNTIME const char *
+SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
+ if (*c != '_') {
+ if (strcmp(c,"NULL") == 0) {
+ memset(ptr,0,sz);
+ return name;
+ } else {
+ return 0;
+ }
+ }
+ return SWIG_UnpackData(++c,ptr,sz);
+}
+
+#ifdef __cplusplus
+}
+#endif
+
+/* Errors in SWIG */
+#define SWIG_UnknownError -1
+#define SWIG_IOError -2
+#define SWIG_RuntimeError -3
+#define SWIG_IndexError -4
+#define SWIG_TypeError -5
+#define SWIG_DivisionByZero -6
+#define SWIG_OverflowError -7
+#define SWIG_SyntaxError -8
+#define SWIG_ValueError -9
+#define SWIG_SystemError -10
+#define SWIG_AttributeError -11
+#define SWIG_MemoryError -12
+#define SWIG_NullReferenceError -13
+
+
+
+#include <ruby.h>
+
+/* Ruby 1.9.1 has a "memoisation optimisation" when compiling with GCC which
+ * breaks using rb_intern as an lvalue, as SWIG does. We work around this
+ * issue for now by disabling this.
+ * https://sourceforge.net/tracker/?func=detail&aid=2859614&group_id=1645&atid=101645
+ */
+#ifdef rb_intern
+# undef rb_intern
+#endif
+
+/* Remove global macros defined in Ruby's win32.h */
+#ifdef write
+# undef write
+#endif
+#ifdef read
+# undef read
+#endif
+#ifdef bind
+# undef bind
+#endif
+#ifdef close
+# undef close
+#endif
+#ifdef connect
+# undef connect
+#endif
+
+
+/* Ruby 1.7 defines NUM2LL(), LL2NUM() and ULL2NUM() macros */
+#ifndef NUM2LL
+#define NUM2LL(x) NUM2LONG((x))
+#endif
+#ifndef LL2NUM
+#define LL2NUM(x) INT2NUM((long) (x))
+#endif
+#ifndef ULL2NUM
+#define ULL2NUM(x) UINT2NUM((unsigned long) (x))
+#endif
+
+/* Ruby 1.7 doesn't (yet) define NUM2ULL() */
+#ifndef NUM2ULL
+#ifdef HAVE_LONG_LONG
+#define NUM2ULL(x) rb_num2ull((x))
+#else
+#define NUM2ULL(x) NUM2ULONG(x)
+#endif
+#endif
+
+/* RSTRING_LEN, etc are new in Ruby 1.9, but ->ptr and ->len no longer work */
+/* Define these for older versions so we can just write code the new way */
+#ifndef RSTRING_LEN
+# define RSTRING_LEN(x) RSTRING(x)->len
+#endif
+#ifndef RSTRING_PTR
+# define RSTRING_PTR(x) RSTRING(x)->ptr
+#endif
+#ifndef RSTRING_END
+# define RSTRING_END(x) (RSTRING_PTR(x) + RSTRING_LEN(x))
+#endif
+#ifndef RARRAY_LEN
+# define RARRAY_LEN(x) RARRAY(x)->len
+#endif
+#ifndef RARRAY_PTR
+# define RARRAY_PTR(x) RARRAY(x)->ptr
+#endif
+#ifndef RFLOAT_VALUE
+# define RFLOAT_VALUE(x) RFLOAT(x)->value
+#endif
+#ifndef DOUBLE2NUM
+# define DOUBLE2NUM(x) rb_float_new(x)
+#endif
+#ifndef RHASH_TBL
+# define RHASH_TBL(x) (RHASH(x)->tbl)
+#endif
+#ifndef RHASH_ITER_LEV
+# define RHASH_ITER_LEV(x) (RHASH(x)->iter_lev)
+#endif
+#ifndef RHASH_IFNONE
+# define RHASH_IFNONE(x) (RHASH(x)->ifnone)
+#endif
+#ifndef RHASH_SIZE
+# define RHASH_SIZE(x) (RHASH(x)->tbl->num_entries)
+#endif
+#ifndef RHASH_EMPTY_P
+# define RHASH_EMPTY_P(x) (RHASH_SIZE(x) == 0)
+#endif
+#ifndef RSTRUCT_LEN
+# define RSTRUCT_LEN(x) RSTRUCT(x)->len
+#endif
+#ifndef RSTRUCT_PTR
+# define RSTRUCT_PTR(x) RSTRUCT(x)->ptr
+#endif
+#ifndef RTYPEDDATA_P
+# define RTYPEDDATA_P(x) (TYPE(x) != T_DATA)
+#endif
+
+
+
+/*
+ * The following macros are used for providing the correct type of a
+ * function pointer to the Ruby C API.
+ * Starting with Ruby 2.7 (corresponding to RB_METHOD_DEFINITION_DECL being
+ * defined) these macros act transparently due to Ruby's moving away from
+ * ANYARGS and instead employing strict function signatures.
+ *
+ * Note: In case of C (not C++) the macros are transparent even before
+ * Ruby 2.7 due to the fact that the Ruby C API used function declarators
+ * with empty parentheses, which allows for an unspecified number of
+ * arguments.
+ *
+ * PROTECTFUNC(f) is used for the function pointer argument of the Ruby
+ * C API function rb_protect().
+ *
+ * VALUEFUNC(f) is used for the function pointer argument(s) of Ruby C API
+ * functions like rb_define_method() and rb_define_singleton_method().
+ *
+ * VOIDFUNC(f) is used to typecast a C function that implements either
+ * the "mark" or "free" stuff for a Ruby Data object, so that it can be
+ * passed as an argument to Ruby C API functions like Data_Wrap_Struct()
+ * and Data_Make_Struct().
+ *
+ * SWIG_RUBY_VOID_ANYARGS_FUNC(f) is used for the function pointer
+ * argument(s) of Ruby C API functions like rb_define_virtual_variable().
+ *
+ * SWIG_RUBY_INT_ANYARGS_FUNC(f) is used for the function pointer
+ * argument(s) of Ruby C API functions like st_foreach().
+ */
+#if defined(__cplusplus) && !defined(RB_METHOD_DEFINITION_DECL)
+# define PROTECTFUNC(f) ((VALUE (*)(VALUE)) f)
+# define VALUEFUNC(f) ((VALUE (*)(ANYARGS)) f)
+# define VOIDFUNC(f) ((RUBY_DATA_FUNC) f)
+# define SWIG_RUBY_VOID_ANYARGS_FUNC(f) ((void (*)(ANYARGS))(f))
+# define SWIG_RUBY_INT_ANYARGS_FUNC(f) ((int (*)(ANYARGS))(f))
+#else
+# define PROTECTFUNC(f) (f)
+# define VALUEFUNC(f) (f)
+# define VOIDFUNC(f) (f)
+# define SWIG_RUBY_VOID_ANYARGS_FUNC(f) (f)
+# define SWIG_RUBY_INT_ANYARGS_FUNC(f) (f)
+#endif
+
+/* Don't use for expressions have side effect */
+#ifndef RB_STRING_VALUE
+#define RB_STRING_VALUE(s) (TYPE(s) == T_STRING ? (s) : (*(volatile VALUE *)&(s) = rb_str_to_str(s)))
+#endif
+#ifndef StringValue
+#define StringValue(s) RB_STRING_VALUE(s)
+#endif
+#ifndef StringValuePtr
+#define StringValuePtr(s) RSTRING_PTR(RB_STRING_VALUE(s))
+#endif
+#ifndef StringValueLen
+#define StringValueLen(s) RSTRING_LEN(RB_STRING_VALUE(s))
+#endif
+#ifndef SafeStringValue
+#define SafeStringValue(v) do {\
+ StringValue(v);\
+ rb_check_safe_str(v);\
+} while (0)
+#endif
+
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+#define rb_define_alloc_func(klass, func) rb_define_singleton_method((klass), "new", VALUEFUNC((func)), -1)
+#define rb_undef_alloc_func(klass) rb_undef_method(CLASS_OF((klass)), "new")
+#endif
+
+static VALUE _mSWIG = Qnil;
+
+/* -----------------------------------------------------------------------------
+ * error manipulation
+ * ----------------------------------------------------------------------------- */
+
+
+/* Define some additional error types */
+#define SWIG_ObjectPreviouslyDeletedError -100
+
+
+/* Define custom exceptions for errors that do not map to existing Ruby
+ exceptions. Note this only works for C++ since a global cannot be
+ initialized by a function in C. For C, fallback to rb_eRuntimeError.*/
+
+SWIGINTERN VALUE
+getNullReferenceError(void) {
+ static int init = 0;
+ static VALUE rb_eNullReferenceError ;
+ if (!init) {
+ init = 1;
+ rb_eNullReferenceError = rb_define_class("NullReferenceError", rb_eRuntimeError);
+ }
+ return rb_eNullReferenceError;
+}
+
+SWIGINTERN VALUE
+getObjectPreviouslyDeletedError(void) {
+ static int init = 0;
+ static VALUE rb_eObjectPreviouslyDeleted ;
+ if (!init) {
+ init = 1;
+ rb_eObjectPreviouslyDeleted = rb_define_class("ObjectPreviouslyDeleted", rb_eRuntimeError);
+ }
+ return rb_eObjectPreviouslyDeleted;
+}
+
+
+SWIGINTERN VALUE
+SWIG_Ruby_ErrorType(int SWIG_code) {
+ VALUE type;
+ switch (SWIG_code) {
+ case SWIG_MemoryError:
+ type = rb_eNoMemError;
+ break;
+ case SWIG_IOError:
+ type = rb_eIOError;
+ break;
+ case SWIG_RuntimeError:
+ type = rb_eRuntimeError;
+ break;
+ case SWIG_IndexError:
+ type = rb_eIndexError;
+ break;
+ case SWIG_TypeError:
+ type = rb_eTypeError;
+ break;
+ case SWIG_DivisionByZero:
+ type = rb_eZeroDivError;
+ break;
+ case SWIG_OverflowError:
+ type = rb_eRangeError;
+ break;
+ case SWIG_SyntaxError:
+ type = rb_eSyntaxError;
+ break;
+ case SWIG_ValueError:
+ type = rb_eArgError;
+ break;
+ case SWIG_SystemError:
+ type = rb_eFatal;
+ break;
+ case SWIG_AttributeError:
+ type = rb_eRuntimeError;
+ break;
+ case SWIG_NullReferenceError:
+ type = getNullReferenceError();
+ break;
+ case SWIG_ObjectPreviouslyDeletedError:
+ type = getObjectPreviouslyDeletedError();
+ break;
+ case SWIG_UnknownError:
+ type = rb_eRuntimeError;
+ break;
+ default:
+ type = rb_eRuntimeError;
+ }
+ return type;
+}
+
+
+/* This function is called when a user inputs a wrong argument to
+ a method.
+ */
+SWIGINTERN
+const char* Ruby_Format_TypeError( const char* msg,
+ const char* type,
+ const char* name,
+ const int argn,
+ VALUE input )
+{
+ char buf[128];
+ VALUE str;
+ VALUE asStr;
+ if ( msg && *msg )
+ {
+ str = rb_str_new2(msg);
+ }
+ else
+ {
+ str = rb_str_new(NULL, 0);
+ }
+
+ str = rb_str_cat2( str, "Expected argument " );
+ sprintf( buf, "%d of type ", argn-1 );
+ str = rb_str_cat2( str, buf );
+ str = rb_str_cat2( str, type );
+ str = rb_str_cat2( str, ", but got " );
+ str = rb_str_cat2( str, rb_obj_classname(input) );
+ str = rb_str_cat2( str, " " );
+ asStr = rb_inspect(input);
+ if ( RSTRING_LEN(asStr) > 30 )
+ {
+ str = rb_str_cat( str, StringValuePtr(asStr), 30 );
+ str = rb_str_cat2( str, "..." );
+ }
+ else
+ {
+ str = rb_str_append( str, asStr );
+ }
+
+ if ( name )
+ {
+ str = rb_str_cat2( str, "\n\tin SWIG method '" );
+ str = rb_str_cat2( str, name );
+ str = rb_str_cat2( str, "'" );
+ }
+
+ return StringValuePtr( str );
+}
+
+/* This function is called when an overloaded method fails */
+SWIGINTERN
+void Ruby_Format_OverloadedError(
+ const int argc,
+ const int maxargs,
+ const char* method,
+ const char* prototypes
+ )
+{
+ const char* msg = "Wrong # of arguments";
+ if ( argc <= maxargs ) msg = "Wrong arguments";
+ rb_raise(rb_eArgError,"%s for overloaded method '%s'.\n"
+ "Possible C/C++ prototypes are:\n%s",
+ msg, method, prototypes);
+}
+
+/* -----------------------------------------------------------------------------
+ * rubytracking.swg
+ *
+ * This file contains support for tracking mappings from
+ * Ruby objects to C++ objects. This functionality is needed
+ * to implement mark functions for Ruby's mark and sweep
+ * garbage collector.
+ * ----------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#if !defined(ST_DATA_T_DEFINED)
+/* Needs to be explicitly included for Ruby 1.8 and earlier */
+#include <st.h>
+#endif
+
+/* Ruby 1.8 actually assumes the first case. */
+#if SIZEOF_VOIDP == SIZEOF_LONG
+# define SWIG2NUM(v) LONG2NUM((unsigned long)v)
+# define NUM2SWIG(x) (unsigned long)NUM2LONG(x)
+#elif SIZEOF_VOIDP == SIZEOF_LONG_LONG
+# define SWIG2NUM(v) LL2NUM((unsigned long long)v)
+# define NUM2SWIG(x) (unsigned long long)NUM2LL(x)
+#else
+# error sizeof(void*) is not the same as long or long long
+#endif
+
+/* Global hash table to store Trackings from C/C++
+ structs to Ruby Objects.
+*/
+static st_table* swig_ruby_trackings = NULL;
+
+static VALUE swig_ruby_trackings_count(ID id, VALUE *var) {
+ return SWIG2NUM(swig_ruby_trackings->num_entries);
+}
+
+
+/* Setup a hash table to store Trackings */
+SWIGRUNTIME void SWIG_RubyInitializeTrackings(void) {
+ /* Create a hash table to store Trackings from C++
+ objects to Ruby objects. */
+
+ /* Try to see if some other .so has already created a
+ tracking hash table, which we keep hidden in an instance var
+ in the SWIG module.
+ This is done to allow multiple DSOs to share the same
+ tracking table.
+ */
+ VALUE trackings_value = Qnil;
+ /* change the variable name so that we can mix modules
+ compiled with older SWIG's - this used to be called "@__trackings__" */
+ ID trackings_id = rb_intern( "@__safetrackings__" );
+ VALUE verbose = rb_gv_get("VERBOSE");
+ rb_gv_set("VERBOSE", Qfalse);
+ trackings_value = rb_ivar_get( _mSWIG, trackings_id );
+ rb_gv_set("VERBOSE", verbose);
+
+ /* The trick here is that we have to store the hash table
+ pointer in a Ruby variable. We do not want Ruby's GC to
+ treat this pointer as a Ruby object, so we convert it to
+ a Ruby numeric value. */
+ if (trackings_value == Qnil) {
+ /* No, it hasn't. Create one ourselves */
+ swig_ruby_trackings = st_init_numtable();
+ rb_ivar_set( _mSWIG, trackings_id, SWIG2NUM(swig_ruby_trackings) );
+ } else {
+ swig_ruby_trackings = (st_table*)NUM2SWIG(trackings_value);
+ }
+
+ rb_define_virtual_variable("SWIG_TRACKINGS_COUNT",
+ VALUEFUNC(swig_ruby_trackings_count),
+ SWIG_RUBY_VOID_ANYARGS_FUNC((rb_gvar_setter_t*)NULL));
+}
+
+/* Add a Tracking from a C/C++ struct to a Ruby object */
+SWIGRUNTIME void SWIG_RubyAddTracking(void* ptr, VALUE object) {
+ /* Store the mapping to the global hash table. */
+ st_insert(swig_ruby_trackings, (st_data_t)ptr, object);
+}
+
+/* Get the Ruby object that owns the specified C/C++ struct */
+SWIGRUNTIME VALUE SWIG_RubyInstanceFor(void* ptr) {
+ /* Now lookup the value stored in the global hash table */
+ VALUE value;
+
+ if (st_lookup(swig_ruby_trackings, (st_data_t)ptr, &value)) {
+ return value;
+ } else {
+ return Qnil;
+ }
+}
+
+/* Remove a Tracking from a C/C++ struct to a Ruby object. It
+ is very important to remove objects once they are destroyed
+ since the same memory address may be reused later to create
+ a new object. */
+SWIGRUNTIME void SWIG_RubyRemoveTracking(void* ptr) {
+ /* Delete the object from the hash table */
+ st_delete(swig_ruby_trackings, (st_data_t *)&ptr, NULL);
+}
+
+/* This is a helper method that unlinks a Ruby object from its
+ underlying C++ object. This is needed if the lifetime of the
+ Ruby object is longer than the C++ object. */
+SWIGRUNTIME void SWIG_RubyUnlinkObjects(void* ptr) {
+ VALUE object = SWIG_RubyInstanceFor(ptr);
+
+ if (object != Qnil) {
+ // object might have the T_ZOMBIE type, but that's just
+ // because the GC has flagged it as such for a deferred
+ // destruction. Until then, it's still a T_DATA object.
+ DATA_PTR(object) = 0;
+ }
+}
+
+/* This is a helper method that iterates over all the trackings
+ passing the C++ object pointer and its related Ruby object
+ to the passed callback function. */
+
+/* Proxy method to abstract the internal trackings datatype */
+static int swig_ruby_internal_iterate_callback(st_data_t ptr, st_data_t obj, st_data_t meth) {
+ ((void (*) (void *, VALUE))meth)((void *)ptr, (VALUE)obj);
+ return ST_CONTINUE;
+}
+
+SWIGRUNTIME void SWIG_RubyIterateTrackings( void(*meth)(void* ptr, VALUE obj) ) {
+ st_foreach(swig_ruby_trackings,
+ SWIG_RUBY_INT_ANYARGS_FUNC(swig_ruby_internal_iterate_callback),
+ (st_data_t)meth);
+}
+
+#ifdef __cplusplus
+}
+#endif
+
+/* -----------------------------------------------------------------------------
+ * Ruby API portion that goes into the runtime
+ * ----------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+SWIGINTERN VALUE
+SWIG_Ruby_AppendOutput(VALUE target, VALUE o) {
+ if (NIL_P(target)) {
+ target = o;
+ } else {
+ if (TYPE(target) != T_ARRAY) {
+ VALUE o2 = target;
+ target = rb_ary_new();
+ rb_ary_push(target, o2);
+ }
+ rb_ary_push(target, o);
+ }
+ return target;
+}
+
+/* For ruby1.8.4 and earlier. */
+#ifndef RUBY_INIT_STACK
+ RUBY_EXTERN void Init_stack(VALUE* addr);
+# define RUBY_INIT_STACK \
+ VALUE variable_in_this_stack_frame; \
+ Init_stack(&variable_in_this_stack_frame);
+#endif
+
+
+#ifdef __cplusplus
+}
+#endif
+
+
+/* -----------------------------------------------------------------------------
+ * rubyrun.swg
+ *
+ * This file contains the runtime support for Ruby modules
+ * and includes code for managing global variables and pointer
+ * type checking.
+ * ----------------------------------------------------------------------------- */
+
+/* For backward compatibility only */
+#define SWIG_POINTER_EXCEPTION 0
+
+/* for raw pointers */
+#define SWIG_ConvertPtr(obj, pptr, type, flags) SWIG_Ruby_ConvertPtrAndOwn(obj, pptr, type, flags, 0)
+#define SWIG_ConvertPtrAndOwn(obj,pptr,type,flags,own) SWIG_Ruby_ConvertPtrAndOwn(obj, pptr, type, flags, own)
+#define SWIG_NewPointerObj(ptr, type, flags) SWIG_Ruby_NewPointerObj(ptr, type, flags)
+#define SWIG_AcquirePtr(ptr, own) SWIG_Ruby_AcquirePtr(ptr, own)
+#define swig_owntype swig_ruby_owntype
+
+/* for raw packed data */
+#define SWIG_ConvertPacked(obj, ptr, sz, ty) SWIG_Ruby_ConvertPacked(obj, ptr, sz, ty, flags)
+#define SWIG_NewPackedObj(ptr, sz, type) SWIG_Ruby_NewPackedObj(ptr, sz, type)
+
+/* for class or struct pointers */
+#define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
+#define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
+
+/* for C or C++ function pointers */
+#define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
+#define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
+
+/* for C++ member pointers, ie, member methods */
+#define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_Ruby_ConvertPacked(obj, ptr, sz, ty)
+#define SWIG_NewMemberObj(ptr, sz, type) SWIG_Ruby_NewPackedObj(ptr, sz, type)
+
+
+/* Runtime API */
+
+#define SWIG_GetModule(clientdata) SWIG_Ruby_GetModule(clientdata)
+#define SWIG_SetModule(clientdata, pointer) SWIG_Ruby_SetModule(pointer)
+
+
+/* Error manipulation */
+
+#define SWIG_ErrorType(code) SWIG_Ruby_ErrorType(code)
+#define SWIG_Error(code, msg) rb_raise(SWIG_Ruby_ErrorType(code), "%s", msg)
+#define SWIG_fail goto fail
+
+
+/* Ruby-specific SWIG API */
+
+#define SWIG_InitRuntime() SWIG_Ruby_InitRuntime()
+#define SWIG_define_class(ty) SWIG_Ruby_define_class(ty)
+#define SWIG_NewClassInstance(value, ty) SWIG_Ruby_NewClassInstance(value, ty)
+#define SWIG_MangleStr(value) SWIG_Ruby_MangleStr(value)
+#define SWIG_CheckConvert(value, ty) SWIG_Ruby_CheckConvert(value, ty)
+
+#include "assert.h"
+
+/* -----------------------------------------------------------------------------
+ * pointers/data manipulation
+ * ----------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef struct {
+ VALUE klass;
+ VALUE mImpl;
+ void (*mark)(void *);
+ void (*destroy)(void *);
+ int trackObjects;
+} swig_class;
+
+
+/* Global pointer used to keep some internal SWIG stuff */
+static VALUE _cSWIG_Pointer = Qnil;
+static VALUE swig_runtime_data_type_pointer = Qnil;
+
+/* Global IDs used to keep some internal SWIG stuff */
+static ID swig_arity_id = 0;
+static ID swig_call_id = 0;
+
+/*
+ If your swig extension is to be run within an embedded ruby and has
+ director callbacks, you should set -DRUBY_EMBEDDED during compilation.
+ This will reset ruby's stack frame on each entry point from the main
+ program the first time a virtual director function is invoked (in a
+ non-recursive way).
+ If this is not done, you run the risk of Ruby trashing the stack.
+*/
+
+#ifdef RUBY_EMBEDDED
+
+# define SWIG_INIT_STACK \
+ if ( !swig_virtual_calls ) { RUBY_INIT_STACK } \
+ ++swig_virtual_calls;
+# define SWIG_RELEASE_STACK --swig_virtual_calls;
+# define Ruby_DirectorTypeMismatchException(x) \
+ rb_raise( rb_eTypeError, "%s", x ); return c_result;
+
+ static unsigned int swig_virtual_calls = 0;
+
+#else /* normal non-embedded extension */
+
+# define SWIG_INIT_STACK
+# define SWIG_RELEASE_STACK
+# define Ruby_DirectorTypeMismatchException(x) \
+ throw Swig::DirectorTypeMismatchException( x );
+
+#endif /* RUBY_EMBEDDED */
+
+
+SWIGRUNTIME VALUE
+getExceptionClass(void) {
+ static int init = 0;
+ static VALUE rubyExceptionClass ;
+ if (!init) {
+ init = 1;
+ rubyExceptionClass = rb_const_get(_mSWIG, rb_intern("Exception"));
+ }
+ return rubyExceptionClass;
+}
+
+/* This code checks to see if the Ruby object being raised as part
+ of an exception inherits from the Ruby class Exception. If so,
+ the object is simply returned. If not, then a new Ruby exception
+ object is created and that will be returned to Ruby.*/
+SWIGRUNTIME VALUE
+SWIG_Ruby_ExceptionType(swig_type_info *desc, VALUE obj) {
+ VALUE exceptionClass = getExceptionClass();
+ if (rb_obj_is_kind_of(obj, exceptionClass)) {
+ return obj;
+ } else {
+ return rb_exc_new3(rb_eRuntimeError, rb_obj_as_string(obj));
+ }
+}
+
+/* Initialize Ruby runtime support */
+SWIGRUNTIME void
+SWIG_Ruby_InitRuntime(void)
+{
+ if (_mSWIG == Qnil) {
+ _mSWIG = rb_define_module("SWIG");
+ swig_call_id = rb_intern("call");
+ swig_arity_id = rb_intern("arity");
+ }
+}
+
+/* Define Ruby class for C type */
+SWIGRUNTIME void
+SWIG_Ruby_define_class(swig_type_info *type)
+{
+ char *klass_name = (char *) malloc(4 + strlen(type->name) + 1);
+ sprintf(klass_name, "TYPE%s", type->name);
+ if (NIL_P(_cSWIG_Pointer)) {
+ _cSWIG_Pointer = rb_define_class_under(_mSWIG, "Pointer", rb_cObject);
+ rb_undef_method(CLASS_OF(_cSWIG_Pointer), "new");
+ }
+ rb_define_class_under(_mSWIG, klass_name, _cSWIG_Pointer);
+ free((void *) klass_name);
+}
+
+/* Create a new pointer object */
+SWIGRUNTIME VALUE
+SWIG_Ruby_NewPointerObj(void *ptr, swig_type_info *type, int flags)
+{
+ int own = flags & SWIG_POINTER_OWN;
+ int track;
+ char *klass_name;
+ swig_class *sklass;
+ VALUE klass;
+ VALUE obj;
+
+ if (!ptr)
+ return Qnil;
+
+ assert(type);
+ if (type->clientdata) {
+ sklass = (swig_class *) type->clientdata;
+
+ /* Are we tracking this class and have we already returned this Ruby object? */
+ track = sklass->trackObjects;
+ if (track) {
+ obj = SWIG_RubyInstanceFor(ptr);
+
+ /* Check the object's type and make sure it has the correct type.
+ It might not in cases where methods do things like
+ downcast methods. */
+ if (obj != Qnil) {
+ VALUE value = rb_iv_get(obj, "@__swigtype__");
+ const char* type_name = RSTRING_PTR(value);
+
+ if (strcmp(type->name, type_name) == 0) {
+ return obj;
+ }
+ }
+ }
+
+ /* Create a new Ruby object */
+ obj = Data_Wrap_Struct(sklass->klass, VOIDFUNC(sklass->mark),
+ ( own ? VOIDFUNC(sklass->destroy) :
+ (track ? VOIDFUNC(SWIG_RubyRemoveTracking) : 0 )
+ ), ptr);
+
+ /* If tracking is on for this class then track this object. */
+ if (track) {
+ SWIG_RubyAddTracking(ptr, obj);
+ }
+ } else {
+ klass_name = (char *) malloc(4 + strlen(type->name) + 1);
+ sprintf(klass_name, "TYPE%s", type->name);
+ klass = rb_const_get(_mSWIG, rb_intern(klass_name));
+ free((void *) klass_name);
+ obj = Data_Wrap_Struct(klass, 0, 0, ptr);
+ }
+ rb_iv_set(obj, "@__swigtype__", rb_str_new2(type->name));
+
+ return obj;
+}
+
+/* Create a new class instance (always owned) */
+SWIGRUNTIME VALUE
+SWIG_Ruby_NewClassInstance(VALUE klass, swig_type_info *type)
+{
+ VALUE obj;
+ swig_class *sklass = (swig_class *) type->clientdata;
+ obj = Data_Wrap_Struct(klass, VOIDFUNC(sklass->mark), VOIDFUNC(sklass->destroy), 0);
+ rb_iv_set(obj, "@__swigtype__", rb_str_new2(type->name));
+ return obj;
+}
+
+/* Get type mangle from class name */
+SWIGRUNTIMEINLINE char *
+SWIG_Ruby_MangleStr(VALUE obj)
+{
+ VALUE stype = rb_iv_get(obj, "@__swigtype__");
+ if (NIL_P(stype))
+ return NULL;
+ return StringValuePtr(stype);
+}
+
+/* Acquire a pointer value */
+typedef struct {
+ void (*datafree)(void *);
+ int own;
+} swig_ruby_owntype;
+
+SWIGRUNTIME swig_ruby_owntype
+SWIG_Ruby_AcquirePtr(VALUE obj, swig_ruby_owntype own) {
+ swig_ruby_owntype oldown = {0, 0};
+ if (TYPE(obj) == T_DATA && !RTYPEDDATA_P(obj)) {
+ oldown.datafree = RDATA(obj)->dfree;
+ RDATA(obj)->dfree = own.datafree;
+ }
+ return oldown;
+}
+
+/* Convert a pointer value */
+SWIGRUNTIME int
+SWIG_Ruby_ConvertPtrAndOwn(VALUE obj, void **ptr, swig_type_info *ty, int flags, swig_ruby_owntype *own)
+{
+ char *c;
+ swig_cast_info *tc;
+ void *vptr = 0;
+
+ /* Grab the pointer */
+ if (NIL_P(obj)) {
+ if (ptr)
+ *ptr = 0;
+ return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
+ } else {
+ if (TYPE(obj) != T_DATA || (TYPE(obj) == T_DATA && RTYPEDDATA_P(obj))) {
+ return SWIG_ERROR;
+ }
+ Data_Get_Struct(obj, void, vptr);
+ }
+
+ if (own) {
+ own->datafree = RDATA(obj)->dfree;
+ own->own = 0;
+ }
+
+ /* Check to see if the input object is giving up ownership
+ of the underlying C struct or C++ object. If so then we
+ need to reset the destructor since the Ruby object no
+ longer owns the underlying C++ object.*/
+ if (flags & SWIG_POINTER_DISOWN) {
+ /* Is tracking on for this class? */
+ int track = 0;
+ if (ty && ty->clientdata) {
+ swig_class *sklass = (swig_class *) ty->clientdata;
+ track = sklass->trackObjects;
+ }
+
+ if (track) {
+ /* We are tracking objects for this class. Thus we change the destructor
+ * to SWIG_RubyRemoveTracking. This allows us to
+ * remove the mapping from the C++ to Ruby object
+ * when the Ruby object is garbage collected. If we don't
+ * do this, then it is possible we will return a reference
+ * to a Ruby object that no longer exists thereby crashing Ruby. */
+ RDATA(obj)->dfree = SWIG_RubyRemoveTracking;
+ } else {
+ RDATA(obj)->dfree = 0;
+ }
+ }
+
+ /* Do type-checking if type info was provided */
+ if (ty) {
+ if (ty->clientdata) {
+ if (rb_obj_is_kind_of(obj, ((swig_class *) (ty->clientdata))->klass)) {
+ if (vptr == 0) {
+ /* The object has already been deleted */
+ return SWIG_ObjectPreviouslyDeletedError;
+ }
+ }
+ }
+ if ((c = SWIG_MangleStr(obj)) == NULL) {
+ return SWIG_ERROR;
+ }
+ tc = SWIG_TypeCheck(c, ty);
+ if (!tc) {
+ return SWIG_ERROR;
+ } else {
+ if (ptr) {
+ if (tc->type == ty) {
+ *ptr = vptr;
+ } else {
+ int newmemory = 0;
+ *ptr = SWIG_TypeCast(tc, vptr, &newmemory);
+ if (newmemory == SWIG_CAST_NEW_MEMORY) {
+ assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
+ if (own)
+ own->own = own->own | SWIG_CAST_NEW_MEMORY;
+ }
+ }
+ }
+ }
+ } else {
+ if (ptr)
+ *ptr = vptr;
+ }
+
+ return SWIG_OK;
+}
+
+/* Check convert */
+SWIGRUNTIMEINLINE int
+SWIG_Ruby_CheckConvert(VALUE obj, swig_type_info *ty)
+{
+ char *c = SWIG_MangleStr(obj);
+ if (!c) return 0;
+ return SWIG_TypeCheck(c,ty) != 0;
+}
+
+SWIGRUNTIME VALUE
+SWIG_Ruby_NewPackedObj(void *ptr, int sz, swig_type_info *type) {
+ char result[1024];
+ char *r = result;
+ if ((2*sz + 1 + strlen(type->name)) > 1000) return 0;
+ *(r++) = '_';
+ r = SWIG_PackData(r, ptr, sz);
+ strcpy(r, type->name);
+ return rb_str_new2(result);
+}
+
+/* Convert a packed pointer value */
+SWIGRUNTIME int
+SWIG_Ruby_ConvertPacked(VALUE obj, void *ptr, int sz, swig_type_info *ty) {
+ swig_cast_info *tc;
+ const char *c;
+
+ if (TYPE(obj) != T_STRING) goto type_error;
+ c = StringValuePtr(obj);
+ /* Pointer values must start with leading underscore */
+ if (*c != '_') goto type_error;
+ c++;
+ c = SWIG_UnpackData(c, ptr, sz);
+ if (ty) {
+ tc = SWIG_TypeCheck(c, ty);
+ if (!tc) goto type_error;
+ }
+ return SWIG_OK;
+
+ type_error:
+ return SWIG_ERROR;
+}
+
+SWIGRUNTIME swig_module_info *
+SWIG_Ruby_GetModule(void *SWIGUNUSEDPARM(clientdata))
+{
+ VALUE pointer;
+ swig_module_info *ret = 0;
+ VALUE verbose = rb_gv_get("VERBOSE");
+
+ /* temporarily disable warnings, since the pointer check causes warnings with 'ruby -w' */
+ rb_gv_set("VERBOSE", Qfalse);
+
+ /* first check if pointer already created */
+ pointer = rb_gv_get("$swig_runtime_data_type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME);
+ if (pointer != Qnil) {
+ Data_Get_Struct(pointer, swig_module_info, ret);
+ }
+
+ /* reinstate warnings */
+ rb_gv_set("VERBOSE", verbose);
+ return ret;
+}
+
+SWIGRUNTIME void
+SWIG_Ruby_SetModule(swig_module_info *pointer)
+{
+ /* register a new class */
+ VALUE cl = rb_define_class("swig_runtime_data", rb_cObject);
+ /* create and store the structure pointer to a global variable */
+ swig_runtime_data_type_pointer = Data_Wrap_Struct(cl, 0, 0, pointer);
+ rb_define_readonly_variable("$swig_runtime_data_type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, &swig_runtime_data_type_pointer);
+}
+
+/* This function can be used to check whether a proc or method or similarly
+ callable function has been passed. Usually used in a %typecheck, like:
+
+ %typecheck(c_callback_t, precedence=SWIG_TYPECHECK_POINTER) {
+ $result = SWIG_Ruby_isCallable( $input );
+ }
+ */
+SWIGINTERN
+int SWIG_Ruby_isCallable( VALUE proc )
+{
+ if ( rb_respond_to( proc, swig_call_id ) )
+ return 1;
+ return 0;
+}
+
+/* This function can be used to check the arity (number of arguments)
+ a proc or method can take. Usually used in a %typecheck.
+ Valid arities will be that equal to minimal or those < 0
+ which indicate a variable number of parameters at the end.
+ */
+SWIGINTERN
+int SWIG_Ruby_arity( VALUE proc, int minimal )
+{
+ if ( rb_respond_to( proc, swig_arity_id ) )
+ {
+ VALUE num = rb_funcall( proc, swig_arity_id, 0 );
+ int arity = NUM2INT(num);
+ if ( arity < 0 && (arity+1) < -minimal ) return 1;
+ if ( arity == minimal ) return 1;
+ return 1;
+ }
+ return 0;
+}
+
+
+#ifdef __cplusplus
+}
+#endif
+
+
+
+#define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
+
+#define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
+
+
+
+ #define SWIG_exception(code, msg) do { SWIG_Error(code, msg);; } while(0)
+
+
+/* -------- TYPES TABLE (BEGIN) -------- */
+
+#define SWIGTYPE_p_Cdi swig_types[0]
+#define SWIGTYPE_p_CdiGrid swig_types[1]
+#define SWIGTYPE_p_CdiTaxis swig_types[2]
+#define SWIGTYPE_p_CdiVariable swig_types[3]
+#define SWIGTYPE_p_CdiZaxis swig_types[4]
+#define SWIGTYPE_p_allocator_type swig_types[5]
+#define SWIGTYPE_p_char swig_types[6]
+#define SWIGTYPE_p_difference_type swig_types[7]
+#define SWIGTYPE_p_double swig_types[8]
+#define SWIGTYPE_p_float swig_types[9]
+#define SWIGTYPE_p_key_type swig_types[10]
+#define SWIGTYPE_p_mapped_type swig_types[11]
+#define SWIGTYPE_p_p_double swig_types[12]
+#define SWIGTYPE_p_p_void swig_types[13]
+#define SWIGTYPE_p_size_type swig_types[14]
+#define SWIGTYPE_p_std__allocatorT_CdiVariable_t swig_types[15]
+#define SWIGTYPE_p_std__allocatorT_double_t swig_types[16]
+#define SWIGTYPE_p_std__allocatorT_int_t swig_types[17]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t swig_types[18]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t swig_types[19]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t swig_types[20]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t swig_types[21]
+#define SWIGTYPE_p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t swig_types[22]
+#define SWIGTYPE_p_std__allocatorT_std__string_t swig_types[23]
+#define SWIGTYPE_p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t swig_types[24]
+#define SWIGTYPE_p_std__lessT_int_t swig_types[25]
+#define SWIGTYPE_p_std__lessT_std__string_t swig_types[26]
+#define SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t swig_types[27]
+#define SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator swig_types[28]
+#define SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__reverse_iterator swig_types[29]
+#define SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t swig_types[30]
+#define SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator swig_types[31]
+#define SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__reverse_iterator swig_types[32]
+#define SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t swig_types[33]
+#define SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator swig_types[34]
+#define SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__reverse_iterator swig_types[35]
+#define SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t swig_types[36]
+#define SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator swig_types[37]
+#define SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__reverse_iterator swig_types[38]
+#define SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t swig_types[39]
+#define SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator swig_types[40]
+#define SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__reverse_iterator swig_types[41]
+#define SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t swig_types[42]
+#define SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t swig_types[43]
+#define SWIGTYPE_p_std__vectorT_float_std__allocatorT_float_t_t swig_types[44]
+#define SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t swig_types[45]
+#define SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t swig_types[46]
+#define SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t swig_types[47]
+#define SWIGTYPE_p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t swig_types[48]
+#define SWIGTYPE_p_swig__ConstIterator swig_types[49]
+#define SWIGTYPE_p_swig__GC_VALUE swig_types[50]
+#define SWIGTYPE_p_swig__Iterator swig_types[51]
+#define SWIGTYPE_p_value_type swig_types[52]
+#define SWIGTYPE_p_void swig_types[53]
+static swig_type_info *swig_types[55];
+static swig_module_info swig_module = {swig_types, 54, 0, 0, 0, 0};
+#define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
+#define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
+
+/* -------- TYPES TABLE (END) -------- */
+
+#define SWIG_init Init_Cdi
+#define SWIG_name "Cdi"
+
+static VALUE mCdi;
+
+#define SWIG_RUBY_THREAD_BEGIN_BLOCK
+#define SWIG_RUBY_THREAD_END_BLOCK
+
+
+#define SWIGVERSION 0x040002
+#define SWIG_VERSION SWIGVERSION
+
+
+#define SWIG_as_voidptr(a) const_cast< void * >(static_cast< const void * >(a))
+#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),reinterpret_cast< void** >(a))
+
+
+#include <stdexcept>
+
+
+#define SWIG_FILE_WITH_INIT
+#include "cdi.hpp"
+
+
+#include <typeinfo>
+#include <stdexcept>
+
+
+namespace swig {
+ class SwigGCReferences {
+ VALUE _hash;
+
+ SwigGCReferences() : _hash(Qnil) {
+ }
+ ~SwigGCReferences() {
+ if (_hash != Qnil)
+ rb_gc_unregister_address(&_hash);
+ }
+ static void EndProcHandler(VALUE) {
+ // Ruby interpreter ending - _hash can no longer be accessed.
+ SwigGCReferences &s_references = instance();
+ s_references._hash = Qnil;
+ }
+ public:
+ static SwigGCReferences& instance() {
+ // Hash of all GC_VALUE's currently in use
+ static SwigGCReferences s_references;
+
+ return s_references;
+ }
+ static void initialize() {
+ SwigGCReferences &s_references = instance();
+ if (s_references._hash == Qnil) {
+ rb_set_end_proc(&EndProcHandler, Qnil);
+ s_references._hash = rb_hash_new();
+ rb_gc_register_address(&s_references._hash);
+ }
+ }
+ void GC_register(VALUE& obj) {
+ if (FIXNUM_P(obj) || SPECIAL_CONST_P(obj) || SYMBOL_P(obj))
+ return;
+ if (_hash != Qnil) {
+ VALUE val = rb_hash_aref(_hash, obj);
+ unsigned n = FIXNUM_P(val) ? NUM2UINT(val) : 0;
+ ++n;
+ rb_hash_aset(_hash, obj, INT2NUM(n));
+ }
+ }
+ void GC_unregister(const VALUE& obj) {
+ if (FIXNUM_P(obj) || SPECIAL_CONST_P(obj) || SYMBOL_P(obj))
+ return;
+ // this test should not be needed but I've noticed some very erratic
+ // behavior of none being unregistered in some very rare situations.
+ if (BUILTIN_TYPE(obj) == T_NONE)
+ return;
+ if (_hash != Qnil) {
+ VALUE val = rb_hash_aref(_hash, obj);
+ unsigned n = FIXNUM_P(val) ? NUM2UINT(val) : 1;
+ --n;
+ if (n)
+ rb_hash_aset(_hash, obj, INT2NUM(n));
+ else
+ rb_hash_delete(_hash, obj);
+ }
+ }
+ };
+
+ class GC_VALUE {
+ protected:
+ VALUE _obj;
+
+ static ID hash_id;
+ static ID lt_id;
+ static ID gt_id;
+ static ID eq_id;
+ static ID le_id;
+ static ID ge_id;
+
+ static ID pos_id;
+ static ID neg_id;
+ static ID inv_id;
+
+ static ID add_id;
+ static ID sub_id;
+ static ID mul_id;
+ static ID div_id;
+ static ID mod_id;
+
+ static ID and_id;
+ static ID or_id;
+ static ID xor_id;
+
+ static ID lshift_id;
+ static ID rshift_id;
+
+ struct OpArgs
+ {
+ VALUE src;
+ ID id;
+ int nargs;
+ VALUE target;
+ };
+
+
+ public:
+ GC_VALUE() : _obj(Qnil)
+ {
+ }
+
+ GC_VALUE(const GC_VALUE& item) : _obj(item._obj)
+ {
+ SwigGCReferences::instance().GC_register(_obj);
+ }
+
+ GC_VALUE(VALUE obj) :_obj(obj)
+ {
+ SwigGCReferences::instance().GC_register(_obj);
+ }
+
+ ~GC_VALUE()
+ {
+ SwigGCReferences::instance().GC_unregister(_obj);
+ }
+
+ GC_VALUE & operator=(const GC_VALUE& item)
+ {
+ SwigGCReferences::instance().GC_unregister(_obj);
+ _obj = item._obj;
+ SwigGCReferences::instance().GC_register(_obj);
+ return *this;
+ }
+
+ operator VALUE() const
+ {
+ return _obj;
+ }
+
+ VALUE inspect() const
+ {
+ return rb_inspect(_obj);
+ }
+
+ VALUE to_s() const
+ {
+ return rb_inspect(_obj);
+ }
+
+ static VALUE swig_rescue_swallow(VALUE, VALUE)
+ {
+ /*
+ VALUE errstr = rb_obj_as_string(rb_errinfo());
+ printf("Swallowing error: '%s'\n", RSTRING_PTR(StringValue(errstr)));
+ */
+ return Qnil; /* Swallow Ruby exception */
+ }
+
+ static VALUE swig_rescue_funcall(VALUE p)
+ {
+ OpArgs* args = (OpArgs*) p;
+ return rb_funcall(args->src, args->id, args->nargs, args->target);
+ }
+
+ bool relational_equal_op(const GC_VALUE& other, const ID& op_id, bool (*op_func)(const VALUE& a, const VALUE& b)) const
+ {
+ if (FIXNUM_P(_obj) && FIXNUM_P(other._obj)) {
+ return op_func(_obj, other._obj);
+ }
+ bool res = false;
+ VALUE ret = Qnil;
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ if (rb_respond_to(_obj, op_id)) {
+ OpArgs args;
+ args.src = _obj;
+ args.id = op_id;
+ args.nargs = 1;
+ args.target = VALUE(other);
+ ret = rb_rescue(VALUEFUNC(swig_rescue_funcall), VALUE(&args),
+ (VALUEFUNC(swig_rescue_swallow)), Qnil);
+ }
+ if (ret == Qnil) {
+ VALUE a = rb_funcall( _obj, hash_id, 0 );
+ VALUE b = rb_funcall( VALUE(other), hash_id, 0 );
+ res = op_func(a, b);
+ } else {
+ res = RTEST(ret);
+ }
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return res;
+ }
+
+ static bool operator_eq(const VALUE& a, const VALUE& b) { return a == b; }
+ static bool operator_lt(const VALUE& a, const VALUE& b) { return a < b; }
+ static bool operator_le(const VALUE& a, const VALUE& b) { return a <= b; }
+ static bool operator_gt(const VALUE& a, const VALUE& b) { return a > b; }
+ static bool operator_ge(const VALUE& a, const VALUE& b) { return a >= b; }
+
+ bool operator==(const GC_VALUE& other) const { return relational_equal_op(other, eq_id, operator_eq); }
+ bool operator<(const GC_VALUE& other) const { return relational_equal_op(other, lt_id, operator_lt); }
+ bool operator<=(const GC_VALUE& other) const { return relational_equal_op(other, le_id, operator_le); }
+ bool operator>(const GC_VALUE& other) const { return relational_equal_op(other, gt_id, operator_gt); }
+ bool operator>=(const GC_VALUE& other) const { return relational_equal_op(other, ge_id, operator_ge); }
+
+ bool operator!=(const GC_VALUE& other) const
+ {
+ return !(this->operator==(other));
+ }
+
+ GC_VALUE unary_op(const ID& op_id) const
+ {
+ VALUE ret = Qnil;
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ OpArgs args;
+ args.src = _obj;
+ args.id = op_id;
+ args.nargs = 0;
+ args.target = Qnil;
+ ret = rb_rescue(VALUEFUNC(swig_rescue_funcall), VALUE(&args),
+ (VALUEFUNC(swig_rescue_swallow)), Qnil);
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return ret;
+ }
+
+ GC_VALUE operator+() const { return unary_op(pos_id); }
+ GC_VALUE operator-() const { return unary_op(neg_id); }
+ GC_VALUE operator~() const { return unary_op(inv_id); }
+
+ GC_VALUE binary_op(const GC_VALUE& other, const ID& op_id) const
+ {
+ VALUE ret = Qnil;
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ OpArgs args;
+ args.src = _obj;
+ args.id = op_id;
+ args.nargs = 1;
+ args.target = VALUE(other);
+ ret = rb_rescue(VALUEFUNC(swig_rescue_funcall), VALUE(&args),
+ (VALUEFUNC(swig_rescue_swallow)), Qnil);
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return GC_VALUE(ret);
+ }
+
+ GC_VALUE operator+(const GC_VALUE& other) const { return binary_op(other, add_id); }
+ GC_VALUE operator-(const GC_VALUE& other) const { return binary_op(other, sub_id); }
+ GC_VALUE operator*(const GC_VALUE& other) const { return binary_op(other, mul_id); }
+ GC_VALUE operator/(const GC_VALUE& other) const { return binary_op(other, div_id); }
+ GC_VALUE operator%(const GC_VALUE& other) const { return binary_op(other, mod_id); }
+ GC_VALUE operator&(const GC_VALUE& other) const { return binary_op(other, and_id); }
+ GC_VALUE operator^(const GC_VALUE& other) const { return binary_op(other, xor_id); }
+ GC_VALUE operator|(const GC_VALUE& other) const { return binary_op(other, or_id); }
+ GC_VALUE operator<<(const GC_VALUE& other) const { return binary_op(other, lshift_id); }
+ GC_VALUE operator>>(const GC_VALUE& other) const { return binary_op(other, rshift_id); }
+ };
+
+ ID GC_VALUE::hash_id = rb_intern("hash");
+ ID GC_VALUE::lt_id = rb_intern("<");
+ ID GC_VALUE::gt_id = rb_intern(">");
+ ID GC_VALUE::eq_id = rb_intern("==");
+ ID GC_VALUE::le_id = rb_intern("<=");
+ ID GC_VALUE::ge_id = rb_intern(">=");
+
+ ID GC_VALUE::pos_id = rb_intern("+@");
+ ID GC_VALUE::neg_id = rb_intern("-@");
+ ID GC_VALUE::inv_id = rb_intern("~");
+
+ ID GC_VALUE::add_id = rb_intern("+");
+ ID GC_VALUE::sub_id = rb_intern("-");
+ ID GC_VALUE::mul_id = rb_intern("*");
+ ID GC_VALUE::div_id = rb_intern("/");
+ ID GC_VALUE::mod_id = rb_intern("%");
+
+ ID GC_VALUE::and_id = rb_intern("&");
+ ID GC_VALUE::or_id = rb_intern("|");
+ ID GC_VALUE::xor_id = rb_intern("^");
+
+ ID GC_VALUE::lshift_id = rb_intern("<<");
+ ID GC_VALUE::rshift_id = rb_intern(">>");
+
+ typedef GC_VALUE LANGUAGE_OBJ;
+
+} // namespace swig
+
+
+
+#if defined(__GNUC__)
+# if __GNUC__ == 2 && __GNUC_MINOR <= 96
+# define SWIG_STD_NOMODERN_STL
+# endif
+#endif
+
+
+#include <string>
+
+
+#include <stddef.h>
+
+
+#include <iostream>
+
+
+namespace swig {
+ struct stop_iteration {
+ };
+
+ /**
+ * Abstract base class used to represent all iterators of STL containers.
+ */
+ struct ConstIterator {
+ public:
+ typedef ConstIterator self_type;
+
+ protected:
+ GC_VALUE _seq;
+
+ protected:
+ ConstIterator(VALUE seq) : _seq(seq)
+ {
+ }
+
+ // Random access iterator methods, but not required in Ruby
+ virtual ptrdiff_t distance(const ConstIterator &x) const
+ {
+ throw std::invalid_argument("distance not supported");
+ }
+
+ virtual bool equal (const ConstIterator &x) const
+ {
+ throw std::invalid_argument("equal not supported");
+ }
+
+ virtual self_type* advance(ptrdiff_t n)
+ {
+ throw std::invalid_argument("advance not supported");
+ }
+
+ public:
+ virtual ~ConstIterator() {}
+
+ // Access iterator method, required by Ruby
+ virtual VALUE value() const {
+ throw std::invalid_argument("value not supported");
+ return Qnil;
+ };
+
+ virtual VALUE setValue( const VALUE& v ) {
+ throw std::invalid_argument("value= not supported");
+ return Qnil;
+ }
+
+ virtual self_type* next( size_t n = 1 )
+ {
+ return this->advance( n );
+ }
+
+ virtual self_type* previous( size_t n = 1 )
+ {
+ ptrdiff_t nn = n;
+ return this->advance( -nn );
+ }
+
+ virtual VALUE to_s() const {
+ throw std::invalid_argument("to_s not supported");
+ return Qnil;
+ }
+
+ virtual VALUE inspect() const {
+ throw std::invalid_argument("inspect not supported");
+ return Qnil;
+ }
+
+ virtual ConstIterator *dup() const
+ {
+ throw std::invalid_argument("dup not supported");
+ return NULL;
+ }
+
+ //
+ // C++ common/needed methods. We emulate a bidirectional
+ // operator, to be compatible with all the STL.
+ // The iterator traits will then tell the STL what type of
+ // iterator we really are.
+ //
+ ConstIterator() : _seq( Qnil )
+ {
+ }
+
+ ConstIterator( const self_type& b ) : _seq( b._seq )
+ {
+ }
+
+ self_type& operator=( const self_type& b )
+ {
+ _seq = b._seq;
+ return *this;
+ }
+
+ bool operator == (const ConstIterator& x) const
+ {
+ return equal(x);
+ }
+
+ bool operator != (const ConstIterator& x) const
+ {
+ return ! operator==(x);
+ }
+
+ // Pre-decrement operator
+ self_type& operator--()
+ {
+ return *previous();
+ }
+
+ // Pre-increment operator
+ self_type& operator++()
+ {
+ return *next();
+ }
+
+ // Post-decrement operator
+ self_type operator--(int)
+ {
+ self_type r = *this;
+ previous();
+ return r;
+ }
+
+ // Post-increment operator
+ self_type operator++(int)
+ {
+ self_type r = *this;
+ next();
+ return r;
+ }
+
+ ConstIterator& operator += (ptrdiff_t n)
+ {
+ return *advance(n);
+ }
+
+ ConstIterator& operator -= (ptrdiff_t n)
+ {
+ return *advance(-n);
+ }
+
+ ConstIterator* operator + (ptrdiff_t n) const
+ {
+ return dup()->advance(n);
+ }
+
+ ConstIterator* operator - (ptrdiff_t n) const
+ {
+ return dup()->advance(-n);
+ }
+
+ ptrdiff_t operator - (const ConstIterator& x) const
+ {
+ return x.distance(*this);
+ }
+
+ static swig_type_info* descriptor() {
+ static int init = 0;
+ static swig_type_info* desc = 0;
+ if (!init) {
+ desc = SWIG_TypeQuery("swig::ConstIterator *");
+ init = 1;
+ }
+ return desc;
+ }
+ };
+
+
+ /**
+ * Abstract base class used to represent all non-const iterators of STL containers.
+ *
+ */
+ struct Iterator : public ConstIterator {
+ public:
+ typedef Iterator self_type;
+
+ protected:
+ Iterator(VALUE seq) : ConstIterator(seq)
+ {
+ }
+
+ virtual self_type* advance(ptrdiff_t n)
+ {
+ throw std::invalid_argument("operation not supported");
+ }
+
+ public:
+ static swig_type_info* descriptor() {
+ static int init = 0;
+ static swig_type_info* desc = 0;
+ if (!init) {
+ desc = SWIG_TypeQuery("swig::Iterator *");
+ init = 1;
+ }
+ return desc;
+ }
+
+ virtual Iterator *dup() const
+ {
+ throw std::invalid_argument("dup not supported");
+ return NULL;
+ }
+
+ virtual self_type* next( size_t n = 1 )
+ {
+ return this->advance( n );
+ }
+
+ virtual self_type* previous( size_t n = 1 )
+ {
+ ptrdiff_t nn = n;
+ return this->advance( -nn );
+ }
+
+ bool operator == (const ConstIterator& x) const
+ {
+ return equal(x);
+ }
+
+ bool operator != (const Iterator& x) const
+ {
+ return ! operator==(x);
+ }
+
+ Iterator& operator += (ptrdiff_t n)
+ {
+ return *advance(n);
+ }
+
+ Iterator& operator -= (ptrdiff_t n)
+ {
+ return *advance(-n);
+ }
+
+ Iterator* operator + (ptrdiff_t n) const
+ {
+ return dup()->advance(n);
+ }
+
+ Iterator* operator - (ptrdiff_t n) const
+ {
+ return dup()->advance(-n);
+ }
+
+ ptrdiff_t operator - (const Iterator& x) const
+ {
+ return x.distance(*this);
+ }
+ };
+
+}
+
+
+SWIGINTERN VALUE
+SWIG_ruby_failed(VALUE SWIGUNUSEDPARM(arg1), VALUE SWIGUNUSEDPARM(arg2))
+{
+ return Qnil;
+}
+
+
+/*@SWIG:/usr/share/swig4.0/ruby/rubyprimtypes.swg,19,%ruby_aux_method@*/
+SWIGINTERN VALUE SWIG_AUX_NUM2ULONG(VALUE arg)
+{
+ VALUE *args = (VALUE *)arg;
+ VALUE obj = args[0];
+ VALUE type = TYPE(obj);
+ unsigned long *res = (unsigned long *)(args[1]);
+ *res = type == T_FIXNUM ? NUM2ULONG(obj) : rb_big2ulong(obj);
+ return obj;
+}
+/*@SWIG@*/
+
+SWIGINTERN int
+SWIG_AsVal_unsigned_SS_long (VALUE obj, unsigned long *val)
+{
+ VALUE type = TYPE(obj);
+ if ((type == T_FIXNUM) || (type == T_BIGNUM)) {
+ unsigned long v;
+ VALUE a[2];
+ a[0] = obj;
+ a[1] = (VALUE)(&v);
+ if (rb_rescue(VALUEFUNC(SWIG_AUX_NUM2ULONG), (VALUE)a, VALUEFUNC(SWIG_ruby_failed), 0) != Qnil) {
+ if (val) *val = v;
+ return SWIG_OK;
+ }
+ }
+ return SWIG_TypeError;
+}
+
+
+#include <limits.h>
+#if !defined(SWIG_NO_LLONG_MAX)
+# if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
+# define LLONG_MAX __LONG_LONG_MAX__
+# define LLONG_MIN (-LLONG_MAX - 1LL)
+# define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
+# endif
+#endif
+
+
+#if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
+# define SWIG_LONG_LONG_AVAILABLE
+#endif
+
+
+#ifdef SWIG_LONG_LONG_AVAILABLE
+/*@SWIG:/usr/share/swig4.0/ruby/rubyprimtypes.swg,19,%ruby_aux_method@*/
+SWIGINTERN VALUE SWIG_AUX_NUM2ULL(VALUE arg)
+{
+ VALUE *args = (VALUE *)arg;
+ VALUE obj = args[0];
+ VALUE type = TYPE(obj);
+ long long *res = (long long *)(args[1]);
+ *res = type == T_FIXNUM ? NUM2ULL(obj) : rb_big2ull(obj);
+ return obj;
+}
+/*@SWIG@*/
+
+SWIGINTERN int
+SWIG_AsVal_unsigned_SS_long_SS_long (VALUE obj, unsigned long long *val)
+{
+ VALUE type = TYPE(obj);
+ if ((type == T_FIXNUM) || (type == T_BIGNUM)) {
+ unsigned long long v;
+ VALUE a[2];
+ a[0] = obj;
+ a[1] = (VALUE)(&v);
+ if (rb_rescue(VALUEFUNC(SWIG_AUX_NUM2ULL), (VALUE)a, VALUEFUNC(SWIG_ruby_failed), 0) != Qnil) {
+ if (val) *val = v;
+ return SWIG_OK;
+ }
+ }
+ return SWIG_TypeError;
+}
+#endif
+
+
+SWIGINTERNINLINE int
+SWIG_AsVal_size_t (VALUE obj, size_t *val)
+{
+ int res = SWIG_TypeError;
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ if (sizeof(size_t) <= sizeof(unsigned long)) {
+#endif
+ unsigned long v;
+ res = SWIG_AsVal_unsigned_SS_long (obj, val ? &v : 0);
+ if (SWIG_IsOK(res) && val) *val = static_cast< size_t >(v);
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
+ unsigned long long v;
+ res = SWIG_AsVal_unsigned_SS_long_SS_long (obj, val ? &v : 0);
+ if (SWIG_IsOK(res) && val) *val = static_cast< size_t >(v);
+ }
+#endif
+ return res;
+}
+
+
+SWIGINTERNINLINE VALUE
+SWIG_From_bool (bool value)
+{
+ return value ? Qtrue : Qfalse;
+}
+
+
+/*@SWIG:/usr/share/swig4.0/ruby/rubyprimtypes.swg,19,%ruby_aux_method@*/
+SWIGINTERN VALUE SWIG_AUX_NUM2LONG(VALUE arg)
+{
+ VALUE *args = (VALUE *)arg;
+ VALUE obj = args[0];
+ VALUE type = TYPE(obj);
+ long *res = (long *)(args[1]);
+ *res = type == T_FIXNUM ? NUM2LONG(obj) : rb_big2long(obj);
+ return obj;
+}
+/*@SWIG@*/
+
+SWIGINTERN int
+SWIG_AsVal_long (VALUE obj, long* val)
+{
+ VALUE type = TYPE(obj);
+ if ((type == T_FIXNUM) || (type == T_BIGNUM)) {
+ long v;
+ VALUE a[2];
+ a[0] = obj;
+ a[1] = (VALUE)(&v);
+ if (rb_rescue(VALUEFUNC(SWIG_AUX_NUM2LONG), (VALUE)a, VALUEFUNC(SWIG_ruby_failed), 0) != Qnil) {
+ if (val) *val = v;
+ return SWIG_OK;
+ }
+ }
+ return SWIG_TypeError;
+}
+
+
+#ifdef SWIG_LONG_LONG_AVAILABLE
+/*@SWIG:/usr/share/swig4.0/ruby/rubyprimtypes.swg,19,%ruby_aux_method@*/
+SWIGINTERN VALUE SWIG_AUX_NUM2LL(VALUE arg)
+{
+ VALUE *args = (VALUE *)arg;
+ VALUE obj = args[0];
+ VALUE type = TYPE(obj);
+ long long *res = (long long *)(args[1]);
+ *res = type == T_FIXNUM ? NUM2LL(obj) : rb_big2ll(obj);
+ return obj;
+}
+/*@SWIG@*/
+
+SWIGINTERN int
+SWIG_AsVal_long_SS_long (VALUE obj, long long *val)
+{
+ VALUE type = TYPE(obj);
+ if ((type == T_FIXNUM) || (type == T_BIGNUM)) {
+ long long v;
+ VALUE a[2];
+ a[0] = obj;
+ a[1] = (VALUE)(&v);
+ if (rb_rescue(VALUEFUNC(SWIG_AUX_NUM2LL), (VALUE)a, VALUEFUNC(SWIG_ruby_failed), 0) != Qnil) {
+ if (val) *val = v;
+ return SWIG_OK;
+ }
+ }
+ return SWIG_TypeError;
+}
+#endif
+
+
+SWIGINTERNINLINE int
+SWIG_AsVal_ptrdiff_t (VALUE obj, ptrdiff_t *val)
+{
+ int res = SWIG_TypeError;
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ if (sizeof(ptrdiff_t) <= sizeof(long)) {
+#endif
+ long v;
+ res = SWIG_AsVal_long (obj, val ? &v : 0);
+ if (SWIG_IsOK(res) && val) *val = static_cast< ptrdiff_t >(v);
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ } else if (sizeof(ptrdiff_t) <= sizeof(long long)) {
+ long long v;
+ res = SWIG_AsVal_long_SS_long (obj, val ? &v : 0);
+ if (SWIG_IsOK(res) && val) *val = static_cast< ptrdiff_t >(v);
+ }
+#endif
+ return res;
+}
+
+
+ #define SWIG_From_long LONG2NUM
+
+
+#ifdef SWIG_LONG_LONG_AVAILABLE
+SWIGINTERNINLINE VALUE
+SWIG_From_long_SS_long (long long value)
+{
+ return LL2NUM(value);
+}
+#endif
+
+
+SWIGINTERNINLINE VALUE
+SWIG_From_ptrdiff_t (ptrdiff_t value)
+{
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ if (sizeof(ptrdiff_t) <= sizeof(long)) {
+#endif
+ return SWIG_From_long (static_cast< long >(value));
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ } else {
+ /* assume sizeof(ptrdiff_t) <= sizeof(long long) */
+ return SWIG_From_long_SS_long (static_cast< long long >(value));
+ }
+#endif
+}
+
+
+#include <algorithm>
+
+
+#include <vector>
+
+
+#include <utility>
+
+
+#include <map>
+
+
+#include <algorithm>
+
+
+SWIGINTERN int
+SWIG_AsVal_int (VALUE obj, int *val)
+{
+ long v;
+ int res = SWIG_AsVal_long (obj, &v);
+ if (SWIG_IsOK(res)) {
+ if ((v < INT_MIN || v > INT_MAX)) {
+ return SWIG_OverflowError;
+ } else {
+ if (val) *val = static_cast< int >(v);
+ }
+ }
+ return res;
+}
+
+
+SWIGINTERNINLINE VALUE
+SWIG_From_int (int value)
+{
+ return SWIG_From_long (value);
+}
+
+
+namespace swig {
+ template <class Type>
+ struct noconst_traits {
+ typedef Type noconst_type;
+ };
+
+ template <class Type>
+ struct noconst_traits<const Type> {
+ typedef Type noconst_type;
+ };
+
+ /*
+ type categories
+ */
+ struct pointer_category { };
+ struct value_category { };
+
+ /*
+ General traits that provides type_name and type_info
+ */
+ template <class Type> struct traits { };
+
+ template <class Type>
+ inline const char* type_name() {
+ return traits<typename noconst_traits<Type >::noconst_type >::type_name();
+ }
+
+ template <class Type> struct traits_info {
+ static swig_type_info *type_query(std::string name) {
+ name += " *";
+ return SWIG_TypeQuery(name.c_str());
+ }
+ static swig_type_info *type_info() {
+ static swig_type_info *info = type_query(type_name<Type>());
+ return info;
+ }
+ };
+
+ /*
+ Partial specialization for pointers (traits_info)
+ */
+ template <class Type> struct traits_info<Type *> {
+ static swig_type_info *type_query(std::string name) {
+ name += " *";
+ return SWIG_TypeQuery(name.c_str());
+ }
+ static swig_type_info *type_info() {
+ static swig_type_info *info = type_query(type_name<Type>());
+ return info;
+ }
+ };
+
+ template <class Type>
+ inline swig_type_info *type_info() {
+ return traits_info<Type>::type_info();
+ }
+
+ /*
+ Partial specialization for pointers (traits)
+ */
+ template <class Type> struct traits <Type *> {
+ typedef pointer_category category;
+ static std::string make_ptr_name(const char* name) {
+ std::string ptrname = name;
+ ptrname += " *";
+ return ptrname;
+ }
+ static const char* type_name() {
+ static std::string name = make_ptr_name(swig::type_name<Type>());
+ return name.c_str();
+ }
+ };
+
+ template <class Type, class Category>
+ struct traits_as { };
+
+ template <class Type, class Category>
+ struct traits_check { };
+
+}
+
+
+namespace swig {
+ template <class Type> struct traits_asptr;
+ template <class Type> struct traits_asval;
+ struct pointer_category;
+ template <class Type, class Category> struct traits_as;
+ template <class Type> struct traits_from;
+ template <class Type> struct traits_from_ptr;
+ template <class Type> struct noconst_traits;
+ template <class Type> swig_type_info* type_info();
+ template <class Type> const char* type_name();
+ template <class Type> VALUE from(const Type& val);
+}
+
+
+
+namespace swig {
+ /*
+ Traits that provides the from method
+ */
+ template <class Type> struct traits_from_ptr {
+ static VALUE from(Type *val, int owner = 0) {
+ return SWIG_NewPointerObj(val, type_info<Type>(), owner);
+ }
+ };
+
+ template <class Type> struct traits_from {
+ static VALUE from(const Type& val) {
+ return traits_from_ptr<Type>::from(new Type(val), 1);
+ }
+ };
+
+ template <class Type> struct traits_from<Type *> {
+ static VALUE from(Type* val) {
+ return traits_from_ptr<Type>::from(val, 0);
+ }
+ };
+
+ template <class Type> struct traits_from<const Type *> {
+ static VALUE from(const Type* val) {
+ return traits_from_ptr<Type>::from(const_cast<Type*>(val), 0);
+ }
+ };
+
+
+ template <class Type>
+ inline VALUE from(const Type& val) {
+ return traits_from<Type>::from(val);
+ }
+
+ template <class Type>
+ inline VALUE from_ptr(Type* val, int owner) {
+ return traits_from_ptr<Type>::from(val, owner);
+ }
+
+ /*
+ Traits that provides the asval/as/check method
+ */
+ template <class Type>
+ struct traits_asptr {
+ static int asptr(VALUE obj, Type **val) {
+ Type *p = 0;
+ swig_type_info *descriptor = type_info<Type>();
+ int res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
+ if (SWIG_IsOK(res)) {
+ if (val) *val = p;
+ }
+ return res;
+ }
+ };
+
+ template <class Type>
+ inline int asptr(VALUE obj, Type **vptr) {
+ return traits_asptr<Type>::asptr(obj, vptr);
+ }
+
+ template <class Type>
+ struct traits_asval {
+ static int asval(VALUE obj, Type *val) {
+ if (val) {
+ Type *p = 0;
+ int res = traits_asptr<Type>::asptr(obj, &p);
+ if (!SWIG_IsOK(res)) return res;
+ if (p) {
+ typedef typename noconst_traits<Type>::noconst_type noconst_type;
+ *(const_cast<noconst_type*>(val)) = *p;
+ if (SWIG_IsNewObj(res)){
+ delete p;
+ res = SWIG_DelNewMask(res);
+ }
+ return res;
+ } else {
+ return SWIG_ERROR;
+ }
+ } else {
+ return traits_asptr<Type>::asptr(obj, (Type **)(0));
+ }
+ }
+ };
+
+ template <class Type> struct traits_asval<Type*> {
+ static int asval(VALUE obj, Type **val) {
+ if (val) {
+ typedef typename noconst_traits<Type>::noconst_type noconst_type;
+ noconst_type *p = 0;
+ int res = traits_asptr<noconst_type>::asptr(obj, &p);
+ if (SWIG_IsOK(res)) {
+ *(const_cast<noconst_type**>(val)) = p;
+ }
+ return res;
+ } else {
+ return traits_asptr<Type>::asptr(obj, (Type **)(0));
+ }
+ }
+ };
+
+ template <class Type>
+ inline int asval(VALUE obj, Type *val) {
+ return traits_asval<Type>::asval(obj, val);
+ }
+
+ template <class Type>
+ struct traits_as<Type, value_category> {
+ static Type as(VALUE obj) {
+ Type v;
+ int res = asval(obj, &v);
+ if (!SWIG_IsOK(res)) {
+ VALUE lastErr = rb_gv_get("$!");
+ if (lastErr == Qnil) {
+ SWIG_Error(SWIG_TypeError, swig::type_name<Type>());
+ }
+ throw std::invalid_argument("bad type");
+ }
+ return v;
+ }
+ };
+
+ template <class Type>
+ struct traits_as<Type, pointer_category> {
+ static Type as(VALUE obj) {
+ Type *v = 0;
+ int res = traits_asptr<Type>::asptr(obj, &v);
+ if (SWIG_IsOK(res) && v) {
+ if (SWIG_IsNewObj(res)) {
+ Type r(*v);
+ delete v;
+ return r;
+ } else {
+ return *v;
+ }
+ } else {
+ VALUE lastErr = rb_gv_get("$!");
+ if (lastErr == Qnil) {
+ SWIG_Error(SWIG_TypeError, swig::type_name<Type>());
+ }
+ throw std::invalid_argument("bad type");
+ }
+ }
+ };
+
+ template <class Type>
+ struct traits_as<Type*, pointer_category> {
+ static Type* as(VALUE obj) {
+ Type *v = 0;
+ int res = traits_asptr<Type>::asptr(obj, &v);
+ if (SWIG_IsOK(res)) {
+ return v;
+ } else {
+ VALUE lastErr = rb_gv_get("$!");
+ if (lastErr == Qnil) {
+ SWIG_Error(SWIG_TypeError, swig::type_name<Type>());
+ }
+ throw std::invalid_argument("bad type");
+ }
+ }
+ };
+
+ template <class Type>
+ inline Type as(VALUE obj) {
+ return traits_as< Type, typename traits< Type >::category >::as(obj);
+ }
+
+ template <class Type>
+ struct traits_check<Type, value_category> {
+ static bool check(VALUE obj) {
+ int res = asval(obj, (Type *)(0));
+ return SWIG_IsOK(res) ? true : false;
+ }
+ };
+
+ template <class Type>
+ struct traits_check<Type, pointer_category> {
+ static bool check(VALUE obj) {
+ int res = asptr(obj, (Type **)(0));
+ return SWIG_IsOK(res) ? true : false;
+ }
+ };
+
+ template <class Type>
+ inline bool check(VALUE obj) {
+ return traits_check<Type, typename traits<Type>::category>::check(obj);
+ }
+}
+
+
+namespace swig {
+ template <> struct traits< int > {
+ typedef value_category category;
+ static const char* type_name() { return"int"; }
+ };
+ template <> struct traits_asval< int > {
+ typedef int value_type;
+ static int asval(VALUE obj, value_type *val) {
+ return SWIG_AsVal_int (obj, val);
+ }
+ };
+ template <> struct traits_from< int > {
+ typedef int value_type;
+ static VALUE from(const value_type& val) {
+ return SWIG_From_int (val);
+ }
+ };
+}
+
+
+#include <functional>
+
+
+namespace swig {
+ template < class T >
+ struct yield
+ {
+ bool
+ operator()( const T& v ) const
+ {
+ return RTEST( rb_yield( swig::from< T >(v) ) );
+ }
+ };
+
+
+ inline size_t
+ check_index(ptrdiff_t i, size_t size, bool insert = false) {
+ if ( i < 0 ) {
+ if ((size_t) (-i) <= size)
+ return (size_t) (i + size);
+ } else if ( (size_t) i < size ) {
+ return (size_t) i;
+ } else if (insert && ((size_t) i == size)) {
+ return size;
+ }
+
+ throw std::out_of_range("index out of range");
+ }
+
+ inline size_t
+ slice_index(ptrdiff_t i, size_t size) {
+ if ( i < 0 ) {
+ if ((size_t) (-i) <= size) {
+ return (size_t) (i + size);
+ } else {
+ throw std::out_of_range("index out of range");
+ }
+ } else {
+ return ( (size_t) i < size ) ? ((size_t) i) : size;
+ }
+ }
+
+ template <class Sequence, class Difference>
+ inline typename Sequence::iterator
+ getpos(Sequence* self, Difference i) {
+ typename Sequence::iterator pos = self->begin();
+ std::advance(pos, check_index(i,self->size()));
+ return pos;
+ }
+
+ template <class Sequence, class Difference>
+ inline typename Sequence::const_iterator
+ cgetpos(const Sequence* self, Difference i) {
+ typename Sequence::const_iterator pos = self->begin();
+ std::advance(pos, check_index(i,self->size()));
+ return pos;
+ }
+
+ template <class Sequence>
+ inline void
+ resize(Sequence *seq, typename Sequence::size_type n, typename Sequence::value_type x) {
+ seq->resize(n, x);
+ }
+
+ template <class Sequence, class Difference>
+ inline Sequence*
+ getslice(const Sequence* self, Difference i, Difference j) {
+ typename Sequence::size_type size = self->size();
+ typename Sequence::size_type ii = swig::check_index(i, size, (i == size && j == size));
+ typename Sequence::size_type jj = swig::slice_index(j, size);
+
+ if (jj > ii) {
+ typename Sequence::const_iterator vb = self->begin();
+ typename Sequence::const_iterator ve = self->begin();
+ std::advance(vb,ii);
+ std::advance(ve,jj);
+ return new Sequence(vb, ve);
+ } else {
+ return new Sequence();
+ }
+ }
+
+ template <class Sequence, class Difference, class InputSeq>
+ inline void
+ setslice(Sequence* self, Difference i, Difference j, const InputSeq& v) {
+ typename Sequence::size_type size = self->size();
+ typename Sequence::size_type ii = swig::check_index(i, size, true);
+ typename Sequence::size_type jj = swig::slice_index(j, size);
+ if (jj < ii) jj = ii;
+ size_t ssize = jj - ii;
+ if (ssize <= v.size()) {
+ typename Sequence::iterator sb = self->begin();
+ typename InputSeq::const_iterator vmid = v.begin();
+ std::advance(sb,ii);
+ std::advance(vmid, jj - ii);
+ self->insert(std::copy(v.begin(), vmid, sb), vmid, v.end());
+ } else {
+ typename Sequence::iterator sb = self->begin();
+ typename Sequence::iterator se = self->begin();
+ std::advance(sb,ii);
+ std::advance(se,jj);
+ self->erase(sb,se);
+ self->insert(sb, v.begin(), v.end());
+ }
+ }
+
+ template <class Sequence, class Difference>
+ inline void
+ delslice(Sequence* self, Difference i, Difference j) {
+ typename Sequence::size_type size = self->size();
+ typename Sequence::size_type ii = swig::check_index(i, size, true);
+ typename Sequence::size_type jj = swig::slice_index(j, size);
+ if (jj > ii) {
+ typename Sequence::iterator sb = self->begin();
+ typename Sequence::iterator se = self->begin();
+ std::advance(sb,ii);
+ std::advance(se,jj);
+ self->erase(sb,se);
+ }
+ }
+}
+
+
+#if defined(__SUNPRO_CC) && defined(_RWSTD_VER)
+# if !defined(SWIG_NO_STD_NOITERATOR_TRAITS_STL)
+# define SWIG_STD_NOITERATOR_TRAITS_STL
+# endif
+#endif
+
+#if !defined(SWIG_STD_NOITERATOR_TRAITS_STL)
+#include <iterator>
+#else
+namespace std {
+ template <class Iterator>
+ struct iterator_traits {
+ typedef ptrdiff_t difference_type;
+ typedef typename Iterator::value_type value_type;
+ };
+
+ template <class Iterator, class Category,class T, class Reference, class Pointer, class Distance>
+ struct iterator_traits<__reverse_bi_iterator<Iterator,Category,T,Reference,Pointer,Distance> > {
+ typedef Distance difference_type;
+ typedef T value_type;
+ };
+
+ template <class T>
+ struct iterator_traits<T*> {
+ typedef T value_type;
+ typedef ptrdiff_t difference_type;
+ };
+
+ template<typename _InputIterator>
+ inline typename iterator_traits<_InputIterator>::difference_type
+ distance(_InputIterator __first, _InputIterator __last)
+ {
+ typename iterator_traits<_InputIterator>::difference_type __n = 0;
+ while (__first != __last) {
+ ++__first; ++__n;
+ }
+ return __n;
+ }
+}
+#endif
+
+
+namespace swig {
+
+ /**
+ * Templated base classes for all custom const_iterators.
+ *
+ */
+ template<typename OutConstIterator>
+ class ConstIterator_T : public ConstIterator
+ {
+ public:
+ typedef OutConstIterator const_iter;
+ typedef typename std::iterator_traits<const_iter>::value_type value_type;
+ typedef ConstIterator_T<const_iter> self_type;
+
+ protected:
+
+
+ virtual bool equal (const ConstIterator &iter) const
+ {
+ const self_type *iters = dynamic_cast<const self_type *>(&iter);
+ if (iters) {
+ return (current == iters->get_current());
+ } else {
+ throw std::invalid_argument("bad iterator type");
+ }
+ }
+
+ virtual ptrdiff_t distance(const ConstIterator &iter) const
+ {
+ const self_type *iters = dynamic_cast<const self_type *>(&iter);
+ if (iters) {
+ return std::distance(current, iters->get_current());
+ } else {
+ throw std::invalid_argument("bad iterator type");
+ }
+ }
+
+ virtual ConstIterator* advance(ptrdiff_t n)
+ {
+ std::advance( current, n );
+ return this;
+ }
+
+ public:
+ ConstIterator_T() : ConstIterator(Qnil)
+ {
+ }
+
+ ConstIterator_T(const_iter curr, VALUE seq = Qnil)
+ : ConstIterator(seq), current(curr)
+ {
+ }
+
+ const const_iter& get_current() const
+ {
+ return current;
+ }
+
+ const value_type& operator*() const
+ {
+ return *current;
+ }
+
+ virtual VALUE inspect() const
+ {
+ VALUE ret = rb_str_new2("#<");
+ ret = rb_str_cat2( ret, rb_obj_classname(_seq) );
+ ret = rb_str_cat2( ret, "::const_iterator " );
+ VALUE cur = value();
+ ret = rb_str_concat( ret, rb_inspect(cur) );
+ ret = rb_str_cat2( ret, ">" );
+ return ret;
+ }
+
+ virtual VALUE to_s() const
+ {
+ VALUE ret = rb_str_new2( rb_obj_classname(_seq) );
+ ret = rb_str_cat2( ret, "::const_iterator " );
+ VALUE cur = value();
+ ret = rb_str_concat( ret, rb_obj_as_string(cur) );
+ return ret;
+ }
+
+ protected:
+ const_iter current;
+ };
+
+
+ /**
+ * Templated base classes for all custom non-const iterators.
+ *
+ */
+ template<typename InOutIterator>
+ class Iterator_T : public Iterator
+ {
+ public:
+ typedef InOutIterator nonconst_iter;
+
+ // Make this class iterator STL compatible, by using iterator_traits
+ typedef typename std::iterator_traits<nonconst_iter >::iterator_category iterator_category;
+ typedef typename std::iterator_traits<nonconst_iter >::value_type value_type;
+ typedef typename std::iterator_traits<nonconst_iter >::difference_type difference_type;
+ typedef typename std::iterator_traits<nonconst_iter >::pointer pointer;
+ typedef typename std::iterator_traits<nonconst_iter >::reference reference;
+
+ typedef Iterator base;
+ typedef Iterator_T< nonconst_iter > self_type;
+
+ protected:
+
+ virtual bool equal (const ConstIterator &iter) const
+ {
+ const self_type *iters = dynamic_cast<const self_type *>(&iter);
+ if (iters) {
+ return (current == iters->get_current());
+ } else {
+ throw std::invalid_argument("bad iterator type");
+ }
+ }
+
+ virtual ptrdiff_t distance(const ConstIterator &iter) const
+ {
+ const self_type *iters = dynamic_cast<const self_type *>(&iter);
+ if (iters) {
+ return std::distance(current, iters->get_current());
+ } else {
+ throw std::invalid_argument("bad iterator type");
+ }
+ }
+
+ virtual Iterator* advance(ptrdiff_t n)
+ {
+ std::advance( current, n );
+ return this;
+ }
+
+ public:
+
+ Iterator_T(nonconst_iter curr, VALUE seq = Qnil)
+ : Iterator(seq), current(curr)
+ {
+ }
+
+ const nonconst_iter& get_current() const
+ {
+ return current;
+ }
+
+ self_type& operator=( const self_type& b )
+ {
+ base::operator=( b );
+ return *this;
+ }
+
+ self_type& operator=( const value_type& b )
+ {
+ *current = b;
+ return *this;
+ }
+
+ const value_type& operator*() const
+ {
+ return *current;
+ }
+
+ value_type& operator*()
+ {
+ return *current;
+ }
+
+ virtual VALUE inspect() const
+ {
+ VALUE ret = rb_str_new2("#<");
+ ret = rb_str_cat2( ret, rb_obj_classname(_seq) );
+ ret = rb_str_cat2( ret, "::iterator " );
+ VALUE cur = value();
+ ret = rb_str_concat( ret, rb_inspect(cur) );
+ ret = rb_str_cat2( ret, ">" );
+ return ret;
+ }
+
+ virtual VALUE to_s() const
+ {
+ VALUE ret = rb_str_new2( rb_obj_classname(_seq) );
+ ret = rb_str_cat2( ret, "::iterator " );
+ VALUE cur = value();
+ ret = rb_str_concat( ret, rb_obj_as_string(cur) );
+ return ret;
+ }
+
+ protected:
+ nonconst_iter current;
+ };
+
+
+ /**
+ * Auxiliary functor to store the value of a ruby object inside
+ * a reference of a compatible C++ type. ie: Ruby -> C++
+ *
+ */
+ template <class ValueType>
+ struct asval_oper
+ {
+ typedef ValueType value_type;
+ typedef bool result_type;
+ bool operator()(VALUE obj, value_type& v) const
+ {
+ return ( swig::asval< value_type >(obj, &v) == SWIG_OK );
+ }
+ };
+
+ /**
+ * Auxiliary functor to return a ruby object from a C++ type.
+ * ie: C++ -> Ruby
+ *
+ */
+ template <class ValueType>
+ struct from_oper
+ {
+ typedef const ValueType& argument_type;
+ typedef VALUE result_type;
+ result_type operator()(argument_type v) const
+ {
+ return swig::from(v);
+ }
+ };
+
+
+ /**
+ * ConstIterator class for a const_iterator with no end() boundaries.
+ *
+ */
+ template<typename OutConstIterator,
+ typename ValueType = typename std::iterator_traits<OutConstIterator>::value_type,
+ typename FromOper = from_oper<ValueType> >
+ class ConstIteratorOpen_T : public ConstIterator_T<OutConstIterator>
+ {
+ public:
+ FromOper from;
+ typedef OutConstIterator const_iter;
+ typedef ValueType value_type;
+ typedef ConstIterator_T<const_iter> base;
+ typedef ConstIteratorOpen_T<OutConstIterator, ValueType, FromOper> self_type;
+
+ ConstIteratorOpen_T(const_iter curr, VALUE seq = Qnil)
+ : ConstIterator_T<OutConstIterator>(curr, seq)
+ {
+ }
+
+ virtual VALUE value() const {
+ return from(static_cast<const value_type&>(*(base::current)));
+ }
+
+ ConstIterator *dup() const
+ {
+ return new self_type(*this);
+ }
+ };
+
+ /**
+ * Iterator class for an iterator with no end() boundaries.
+ *
+ */
+ template<typename InOutIterator,
+ typename ValueType = typename std::iterator_traits<InOutIterator>::value_type,
+ typename FromOper = from_oper<ValueType>,
+ typename AsvalOper = asval_oper<ValueType> >
+ class IteratorOpen_T : public Iterator_T<InOutIterator>
+ {
+ public:
+ FromOper from;
+ AsvalOper asval;
+ typedef InOutIterator nonconst_iter;
+ typedef ValueType value_type;
+ typedef Iterator_T<nonconst_iter> base;
+ typedef IteratorOpen_T<InOutIterator, ValueType, FromOper, AsvalOper> self_type;
+
+ public:
+ IteratorOpen_T(nonconst_iter curr, VALUE seq = Qnil)
+ : Iterator_T<InOutIterator>(curr, seq)
+ {
+ }
+
+ virtual VALUE value() const {
+ return from(static_cast<const value_type&>(*(base::current)));
+ }
+
+ virtual VALUE setValue( const VALUE& v )
+ {
+ value_type& dst = *base::current;
+ if ( asval(v, dst) ) return v;
+ return Qnil;
+ }
+
+ Iterator *dup() const
+ {
+ return new self_type(*this);
+ }
+ };
+
+ /**
+ * ConstIterator class for a const_iterator where begin() and end() boundaries are known.
+ *
+ */
+ template<typename OutConstIterator,
+ typename ValueType = typename std::iterator_traits<OutConstIterator>::value_type,
+ typename FromOper = from_oper<ValueType> >
+ class ConstIteratorClosed_T : public ConstIterator_T<OutConstIterator>
+ {
+ public:
+ FromOper from;
+ typedef OutConstIterator const_iter;
+ typedef ValueType value_type;
+ typedef ConstIterator_T<const_iter> base;
+ typedef ConstIteratorClosed_T<OutConstIterator, ValueType, FromOper> self_type;
+
+ protected:
+ virtual ConstIterator* advance(ptrdiff_t n)
+ {
+ std::advance( base::current, n );
+ if ( base::current == end )
+ throw stop_iteration();
+ return this;
+ }
+
+ public:
+ ConstIteratorClosed_T(const_iter curr, const_iter first,
+ const_iter last, VALUE seq = Qnil)
+ : ConstIterator_T<OutConstIterator>(curr, seq), begin(first), end(last)
+ {
+ }
+
+ virtual VALUE value() const {
+ if (base::current == end) {
+ throw stop_iteration();
+ } else {
+ return from(static_cast<const value_type&>(*(base::current)));
+ }
+ }
+
+ ConstIterator *dup() const
+ {
+ return new self_type(*this);
+ }
+
+
+ private:
+ const_iter begin;
+ const_iter end;
+ };
+
+ /**
+ * Iterator class for a iterator where begin() and end() boundaries are known.
+ *
+ */
+ template<typename InOutIterator,
+ typename ValueType = typename std::iterator_traits<InOutIterator>::value_type,
+ typename FromOper = from_oper<ValueType>,
+ typename AsvalOper = asval_oper<ValueType> >
+ class IteratorClosed_T : public Iterator_T<InOutIterator>
+ {
+ public:
+ FromOper from;
+ AsvalOper asval;
+ typedef InOutIterator nonconst_iter;
+ typedef ValueType value_type;
+ typedef Iterator_T<nonconst_iter> base;
+ typedef IteratorClosed_T<InOutIterator, ValueType, FromOper, AsvalOper> self_type;
+
+ protected:
+ virtual Iterator* advance(ptrdiff_t n)
+ {
+ std::advance( base::current, n );
+ if ( base::current == end )
+ throw stop_iteration();
+ return this;
+ }
+
+ public:
+ IteratorClosed_T(nonconst_iter curr, nonconst_iter first,
+ nonconst_iter last, VALUE seq = Qnil)
+ : Iterator_T<InOutIterator>(curr, seq), begin(first), end(last)
+ {
+ }
+
+ virtual VALUE value() const {
+ if (base::current == end) {
+ throw stop_iteration();
+ } else {
+ return from(static_cast<const value_type&>(*(base::current)));
+ }
+ }
+
+ // Iterator setter method, required by Ruby
+ virtual VALUE setValue( const VALUE& v )
+ {
+ if (base::current == end)
+ throw stop_iteration();
+
+ value_type& dst = *base::current;
+ if ( asval( v, dst ) ) return v;
+ return Qnil;
+ }
+
+ Iterator *dup() const
+ {
+ return new self_type(*this);
+ }
+
+ private:
+ nonconst_iter begin;
+ nonconst_iter end;
+ };
+
+ /* Partial specialization for bools which don't allow de-referencing */
+ template< typename InOutIterator, typename FromOper, typename AsvalOper >
+ class IteratorOpen_T< InOutIterator, bool, FromOper, AsvalOper > :
+ public Iterator_T<InOutIterator>
+ {
+ public:
+ FromOper from;
+ AsvalOper asval;
+ typedef InOutIterator nonconst_iter;
+ typedef bool value_type;
+ typedef Iterator_T<nonconst_iter> base;
+ typedef IteratorOpen_T<InOutIterator, bool, FromOper, AsvalOper> self_type;
+
+ IteratorOpen_T(nonconst_iter curr, VALUE seq = Qnil)
+ : Iterator_T<InOutIterator>(curr, seq)
+ {
+ }
+
+ virtual VALUE value() const {
+ return from(static_cast<const value_type&>(*(base::current)));
+ }
+
+ virtual VALUE setValue( const VALUE& v )
+ {
+ bool tmp = *base::current;
+ if ( asval( v, tmp ) )
+ {
+ *base::current = tmp;
+ return v;
+ }
+ return Qnil;
+ }
+
+ Iterator *dup() const
+ {
+ return new self_type(*this);
+ }
+
+ };
+
+ /* Partial specialization for bools which don't allow de-referencing */
+ template< typename InOutIterator, typename FromOper, typename AsvalOper >
+ class IteratorClosed_T< InOutIterator, bool, FromOper, AsvalOper > :
+ public Iterator_T<InOutIterator>
+ {
+ public:
+ FromOper from;
+ AsvalOper asval;
+ typedef InOutIterator nonconst_iter;
+ typedef bool value_type;
+ typedef Iterator_T<nonconst_iter> base;
+ typedef IteratorClosed_T<InOutIterator, bool, FromOper, AsvalOper> self_type;
+
+ protected:
+ virtual Iterator* advance(ptrdiff_t n)
+ {
+ std::advance( base::current, n );
+ if ( base::current == end )
+ throw stop_iteration();
+ return this;
+ }
+
+ public:
+ IteratorClosed_T(nonconst_iter curr, nonconst_iter first,
+ nonconst_iter last, VALUE seq = Qnil)
+ : Iterator_T<InOutIterator>(curr, seq), begin(first), end(last)
+ {
+ }
+
+ virtual VALUE value() const {
+ if (base::current == end) {
+ throw stop_iteration();
+ } else {
+ return from(static_cast<const value_type&>(*(base::current)));
+ }
+ }
+
+ virtual VALUE setValue( const VALUE& v )
+ {
+ if (base::current == end)
+ throw stop_iteration();
+
+ bool tmp = *base::current;
+ if ( asval( v, tmp ) )
+ {
+ *base::current = tmp;
+ return v;
+ }
+ return Qnil;
+ }
+
+ Iterator *dup() const
+ {
+ return new self_type(*this);
+ }
+
+ private:
+ nonconst_iter begin;
+ nonconst_iter end;
+ };
+
+
+ /**
+ * Helper function used to wrap a bounded const_iterator. This is to be used in
+ * a %typemap(out), for example.
+ *
+ */
+ template<typename InOutIter>
+ inline Iterator*
+ make_nonconst_iterator(const InOutIter& current, const InOutIter& begin,
+ const InOutIter& end, VALUE seq = Qnil)
+ {
+ return new IteratorClosed_T<InOutIter>(current, begin, end, seq);
+ }
+
+ /**
+ * Helper function used to wrap an unbounded const_iterator. This is to be used in
+ * a %typemap(out), for example.
+ *
+ */
+ template<typename InOutIter>
+ inline Iterator*
+ make_nonconst_iterator(const InOutIter& current, VALUE seq = Qnil)
+ {
+ return new IteratorOpen_T<InOutIter>(current, seq);
+ }
+
+ /**
+ * Helper function used to wrap a bounded const_iterator. This is to be used in
+ * a %typemap(out), for example.
+ *
+ */
+ template<typename OutIter>
+ inline ConstIterator*
+ make_const_iterator(const OutIter& current, const OutIter& begin,
+ const OutIter& end, VALUE seq = Qnil)
+ {
+ return new ConstIteratorClosed_T<OutIter>(current, begin, end, seq);
+ }
+
+ /**
+ * Helper function used to wrap an unbounded const_iterator. This is to be used in
+ * a %typemap(out), for example.
+ *
+ */
+ template<typename OutIter>
+ inline ConstIterator*
+ make_const_iterator(const OutIter& current, VALUE seq = Qnil)
+ {
+ return new ConstIteratorOpen_T<OutIter>(current, seq);
+ }
+}
+
+
+namespace swig
+{
+
+ /**
+ * This class is a proxy class for references, used to return and set values
+ * of an element of a Ruby Array of stuff.
+ * It can be used by RubySequence_InputIterator to make it work with STL
+ * algorithms.
+ */
+ template <class T>
+ struct RubySequence_Ref
+ {
+ RubySequence_Ref(VALUE seq, int index)
+ : _seq(seq), _index(index)
+ {
+ }
+
+ operator T () const
+ {
+ VALUE item = rb_ary_entry(_seq, _index );
+ try {
+ return swig::as<T>(item);
+ } catch (const std::invalid_argument& e) {
+ char msg[1024];
+ sprintf(msg, "in sequence element %d ", _index);
+ VALUE lastErr = rb_gv_get("$!");
+ if ( lastErr == Qnil ) {
+ SWIG_Error(SWIG_TypeError, swig::type_name<T>());
+ }
+ VALUE str = rb_str_new2(msg);
+ str = rb_str_cat2( str, e.what() );
+ SWIG_Ruby_ExceptionType( NULL, str );
+ throw;
+ }
+ }
+
+ RubySequence_Ref& operator=(const T& v)
+ {
+ rb_ary_set(_seq, _index, swig::from< T >(v));
+ return *this;
+ }
+
+ private:
+ VALUE _seq;
+ int _index;
+ };
+
+
+ /**
+ * This class is a proxy to return a pointer to a class, usually
+ * RubySequence_Ref.
+ * It can be used by RubySequence_InputIterator to make it work with STL
+ * algorithms.
+ */
+ template <class T>
+ struct RubySequence_ArrowProxy
+ {
+ RubySequence_ArrowProxy(const T& x): m_value(x) {}
+ const T* operator->() const { return &m_value; }
+ operator const T*() const { return &m_value; }
+ T m_value;
+ };
+
+
+ /**
+ * Input Iterator. This adapator class is a random access iterator that
+ * allows you to use STL algorithms with a Ruby class (a Ruby Array by default).
+ */
+ template <class T, class Reference = RubySequence_Ref< T > >
+ struct RubySequence_InputIterator
+ {
+ typedef RubySequence_InputIterator<T, Reference > self;
+
+ typedef std::random_access_iterator_tag iterator_category;
+ typedef Reference reference;
+ typedef T value_type;
+ typedef T* pointer;
+ typedef ptrdiff_t difference_type;
+
+ RubySequence_InputIterator()
+ {
+ }
+
+ RubySequence_InputIterator(VALUE seq, int index)
+ : _seq(seq), _index(index)
+ {
+ }
+
+ reference operator*() const
+ {
+ return reference(_seq, _index);
+ }
+
+ RubySequence_ArrowProxy<T>
+ operator->() const {
+ return RubySequence_ArrowProxy<T>(operator*());
+ }
+
+ bool operator==(const self& ri) const
+ {
+ return (_index == ri._index) && (_seq == ri._seq);
+ }
+
+ bool operator!=(const self& ri) const
+ {
+ return !(operator==(ri));
+ }
+
+ self& operator ++ ()
+ {
+ ++_index;
+ return *this;
+ }
+
+ self& operator -- ()
+ {
+ --_index;
+ return *this;
+ }
+
+ self& operator += (difference_type n)
+ {
+ _index += n;
+ return *this;
+ }
+
+ self operator +(difference_type n) const
+ {
+ return self(_seq, _index + n);
+ }
+
+ self& operator -= (difference_type n)
+ {
+ _index -= n;
+ return *this;
+ }
+
+ self operator -(difference_type n) const
+ {
+ return self(_seq, _index - n);
+ }
+
+ difference_type operator - (const self& ri) const
+ {
+ return _index - ri._index;
+ }
+
+ bool operator < (const self& ri) const
+ {
+ return _index < ri._index;
+ }
+
+ reference
+ operator[](difference_type n) const
+ {
+ return reference(_seq, _index + n);
+ }
+
+ private:
+ VALUE _seq;
+ difference_type _index;
+ };
+
+
+ /**
+ * This adaptor class allows you to use a Ruby Array as if it was an STL
+ * container, giving it begin(), end(), and iterators.
+ */
+ template <class T>
+ struct RubySequence_Cont
+ {
+ typedef RubySequence_Ref<T> reference;
+ typedef const RubySequence_Ref<T> const_reference;
+ typedef T value_type;
+ typedef T* pointer;
+ typedef int difference_type;
+ typedef int size_type;
+ typedef const pointer const_pointer;
+ typedef RubySequence_InputIterator<T, reference> iterator;
+ typedef RubySequence_InputIterator<T, const_reference> const_iterator;
+
+ RubySequence_Cont(VALUE seq) : _seq(0)
+ {
+ if (!rb_obj_is_kind_of(seq, rb_cArray)) {
+ throw std::invalid_argument("an Array is expected");
+ }
+ _seq = seq;
+ }
+
+ ~RubySequence_Cont()
+ {
+ }
+
+ size_type size() const
+ {
+ return RARRAY_LEN(_seq);
+ }
+
+ bool empty() const
+ {
+ return size() == 0;
+ }
+
+ iterator begin()
+ {
+ return iterator(_seq, 0);
+ }
+
+ const_iterator begin() const
+ {
+ return const_iterator(_seq, 0);
+ }
+
+ iterator end()
+ {
+ return iterator(_seq, size());
+ }
+
+ const_iterator end() const
+ {
+ return const_iterator(_seq, size());
+ }
+
+ reference operator[](difference_type n)
+ {
+ return reference(_seq, n);
+ }
+
+ const_reference operator[](difference_type n) const
+ {
+ return const_reference(_seq, n);
+ }
+
+ bool check() const
+ {
+ int s = (int) size();
+ for (int i = 0; i < s; ++i) {
+ VALUE item = rb_ary_entry(_seq, i );
+ if (!swig::check<value_type>(item))
+ return false;
+ }
+ return true;
+ }
+
+ private:
+ VALUE _seq;
+ };
+
+}
+
+
+namespace swig {
+ template <class RubySeq, class Seq>
+ inline void
+ assign(const RubySeq& rubyseq, Seq* seq) {
+ // seq->assign(rubyseq.begin(), rubyseq.end()); // not used as not always implemented
+ typedef typename RubySeq::value_type value_type;
+ typename RubySeq::const_iterator it = rubyseq.begin();
+ for (;it != rubyseq.end(); ++it) {
+ seq->insert(seq->end(),(value_type)(*it));
+ }
+ }
+
+ template <class Seq, class T = typename Seq::value_type >
+ struct traits_asptr_stdseq {
+ typedef Seq sequence;
+ typedef T value_type;
+
+ static int asptr(VALUE obj, sequence **seq) {
+ if (rb_obj_is_kind_of(obj, rb_cArray) == Qtrue) {
+ try {
+ RubySequence_Cont<value_type> rubyseq(obj);
+ if (seq) {
+ sequence *pseq = new sequence();
+ assign(rubyseq, pseq);
+ *seq = pseq;
+ return SWIG_NEWOBJ;
+ } else {
+ return rubyseq.check() ? SWIG_OK : SWIG_ERROR;
+ }
+ } catch (const std::exception& e) {
+ if (seq) {
+ VALUE lastErr = rb_gv_get("$!");
+ if (lastErr == Qnil) {
+ rb_raise(rb_eTypeError, "%s", e.what());
+ }
+ }
+ return SWIG_ERROR;
+ }
+ } else {
+ sequence *p;
+ swig_type_info *descriptor = swig::type_info<sequence>();
+ if (descriptor && SWIG_IsOK(SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0))) {
+ if (seq) *seq = p;
+ return SWIG_OLDOBJ;
+ }
+ }
+ return SWIG_ERROR;
+ }
+ };
+
+ // Partial specialization for GC_VALUE's. No need to typecheck each
+ // element.
+ template< class Seq >
+ struct traits_asptr_stdseq< Seq, swig::GC_VALUE > {
+ typedef Seq sequence;
+ typedef swig::GC_VALUE value_type;
+
+ static int asptr(VALUE obj, sequence **seq) {
+ if (rb_obj_is_kind_of(obj, rb_cArray) == Qtrue) {
+ try {
+ if (seq) {
+ RubySequence_Cont<value_type> rubyseq(obj);
+ sequence *pseq = new sequence();
+ assign(rubyseq, pseq);
+ *seq = pseq;
+ return SWIG_NEWOBJ;
+ } else {
+ return true;
+ }
+ } catch (const std::exception& e) {
+ if (seq) {
+ VALUE lastErr = rb_gv_get("$!");
+ if (lastErr == Qnil) {
+ rb_raise(rb_eTypeError, "%s", e.what());
+ }
+ }
+ return SWIG_ERROR;
+ }
+ } else {
+ sequence *p;
+ swig_type_info *descriptor = swig::type_info<sequence>();
+ if (descriptor && SWIG_IsOK(SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0))) {
+ if (seq) *seq = p;
+ return SWIG_OLDOBJ;
+ }
+ }
+ return SWIG_ERROR;
+ }
+ };
+
+ template <class Seq, class T = typename Seq::value_type >
+ struct traits_from_stdseq {
+ typedef Seq sequence;
+ typedef T value_type;
+ typedef typename Seq::size_type size_type;
+ typedef typename sequence::const_iterator const_iterator;
+
+ static VALUE from(const sequence& seq) {
+
+
+
+
+
+
+ size_type size = seq.size();
+ if (size <= (size_type)INT_MAX) {
+ VALUE obj = rb_ary_new2((int)size);
+ int i = 0;
+ for (const_iterator it = seq.begin();
+ it != seq.end(); ++it, ++i) {
+ rb_ary_push(obj, swig::from< value_type >(*it));
+ }
+ rb_obj_freeze(obj); // treat as immutable result
+ return obj;
+ } else {
+ rb_raise(rb_eRangeError,"sequence size not valid in ruby");
+ return Qnil;
+ }
+ }
+ };
+}
+
+
+ namespace swig {
+ template <class T>
+ struct traits_asptr<std::vector<T> > {
+ static int asptr(VALUE obj, std::vector<T> **vec) {
+ return traits_asptr_stdseq<std::vector<T> >::asptr(obj, vec);
+ }
+ };
+
+ template <class T>
+ struct traits_from<std::vector<T> > {
+ static VALUE from(const std::vector<T>& vec) {
+ return traits_from_stdseq<std::vector<T> >::from(vec);
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::vector< int, std::allocator< int > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "int" "," "std::allocator< int >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg__dup(std::vector< int > *self){
+ return new std::vector< int,std::allocator< int > >(*self);
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg__inspect(std::vector< int > *self){
+ std::vector< int,std::allocator< int > >::const_iterator i = self->begin();
+ std::vector< int,std::allocator< int > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::vector< int,std::allocator< int > > >();
+ VALUE str = rb_str_new2(type_name);
+ str = rb_str_cat2( str, " [" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::vector< int,std::allocator< int > >::value_type >( *i );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "]" );
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg__to_a(std::vector< int > *self){
+ std::vector< int,std::allocator< int > >::const_iterator i = self->begin();
+ std::vector< int,std::allocator< int > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< int,std::allocator< int > >::value_type >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg__to_s(std::vector< int > *self){
+ std::vector< int,std::allocator< int > >::iterator i = self->begin();
+ std::vector< int,std::allocator< int > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< int,std::allocator< int > >::value_type >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg__slice(std::vector< int > *self,std::vector< int >::difference_type i,std::vector< int >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< int,std::allocator< int > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< int,std::allocator< int > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< int,std::allocator< int > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< int,std::allocator< int > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg__each(std::vector< int > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::vector< int,std::allocator< int > >::const_iterator i = self->begin();
+ std::vector< int,std::allocator< int > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from< std::vector< int,std::allocator< int > >::value_type >(*i);
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg____delete2__(std::vector< int > *self,std::vector< int >::value_type const &i){
+ VALUE r = Qnil;
+ return r;
+ }
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg__select(std::vector< int > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< int,std::allocator< int > >* r = new std::vector< int,std::allocator< int > >();
+ std::vector< int,std::allocator< int > >::const_iterator i = self->begin();
+ std::vector< int,std::allocator< int > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE v = swig::from< std::vector< int,std::allocator< int > >::value_type >(*i);
+ if ( RTEST( rb_yield(v) ) )
+ self->insert( r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg__delete_at(std::vector< int > *self,std::vector< int >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ std::vector< int,std::allocator< int > >::iterator at = swig::getpos(self, i);
+ r = swig::from< std::vector< int,std::allocator< int > >::value_type >( *(at) );
+ self->erase(at);
+ }
+ catch (const std::out_of_range&) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg__at(std::vector< int > const *self,std::vector< int >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< int,std::allocator< int > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg____getitem____SWIG_0(std::vector< int > const *self,std::vector< int >::difference_type i,std::vector< int >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< int,std::allocator< int > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< int,std::allocator< int > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< int,std::allocator< int > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< int,std::allocator< int > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg____getitem____SWIG_1(std::vector< int > const *self,std::vector< int >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< int,std::allocator< int > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg____getitem____SWIG_2(std::vector< int > const *self,VALUE i){
+ if ( rb_obj_is_kind_of( i, rb_cRange ) == Qfalse ) {
+ rb_raise( rb_eTypeError, "not a valid index or range" );
+ }
+
+ static ID id_end = rb_intern("end");
+ static ID id_start = rb_intern("begin");
+ static ID id_noend = rb_intern("exclude_end?");
+
+ VALUE start = rb_funcall( i, id_start, 0 );
+ VALUE end = rb_funcall( i, id_end, 0 );
+ bool noend = ( rb_funcall( i, id_noend, 0 ) == Qtrue );
+
+ int len = self->size();
+
+ int s = NUM2INT( start );
+ if ( s < 0 ) {
+ s = len + s;
+ if ( s < 0 )
+ return Qnil;
+ } else if ( s > len )
+ return Qnil;
+
+ int e = NUM2INT( end );
+ if ( e < 0 ) e = len + e;
+ if ( noend ) e -= 1;
+ if ( e < 0 ) e = -1;
+ if ( e >= len ) e = len - 1;
+ if ( s == len ) e = len - 1;
+
+ return swig::from< std::vector< int,std::allocator< int > >* >( swig::getslice(self, s, e+1) );
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg____setitem____SWIG_0(std::vector< int > *self,std::vector< int >::difference_type i,std::vector< int >::value_type const &x){
+ if ( i >= static_cast<std::vector< int,std::allocator< int > >::difference_type>( self->size()) )
+ swig::resize( self, i+1, x );
+ else
+ *(swig::getpos(self, i)) = x;
+
+ return swig::from< std::vector< int,std::allocator< int > >::value_type >( x );
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg____setitem____SWIG_1(std::vector< int > *self,std::vector< int >::difference_type i,std::vector< int >::difference_type length,std::vector< int,std::allocator< int > > const &v){
+
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< int,std::allocator< int > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< int,std::allocator< int > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< int,std::allocator< int > >::difference_type>(len) ) {
+ swig::resize( self, j, *(v.begin()) );
+ }
+
+ VALUE r = Qnil;
+ swig::setslice(self, i, j, v);
+ r = swig::from< const std::vector< int,std::allocator< int > >* >( &v );
+ return r;
+ }
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg__reject_bang(std::vector< int > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ self->erase( std::remove_if( self->begin(), self->end(),
+ swig::yield< std::vector< int,std::allocator< int > >::value_type >() ), self->end() );
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg__pop(std::vector< int > *self){
+ if (self->empty()) return Qnil;
+ std::vector< int,std::allocator< int > >::value_type x = self->back();
+ self->pop_back();
+ return swig::from< std::vector< int,std::allocator< int > >::value_type >( x );
+ }
+SWIGINTERN std::vector< int >::value_type const std_vector_Sl_int_Sg__push(std::vector< int > *self,std::vector< int >::value_type const &e){
+ self->push_back( e );
+ return e;
+ }
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg__reject(std::vector< int > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< int,std::allocator< int > >* r = new std::vector< int,std::allocator< int > >();
+ std::remove_copy_if( self->begin(), self->end(),
+ std::back_inserter(*r),
+ swig::yield< std::vector< int,std::allocator< int > >::value_type >() );
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg__shift(std::vector< int > *self){
+ if (self->empty()) return Qnil;
+ std::vector< int,std::allocator< int > >::value_type x = self->front();
+ self->erase( self->begin() );
+ return swig::from< std::vector< int,std::allocator< int > >::value_type >( x );
+ }
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg__insert__SWIG_0(std::vector< int > *self,std::vector< int >::difference_type pos,int argc,VALUE *argv,...){
+ std::size_t len = self->size();
+ std::size_t i = swig::check_index( pos, len, true );
+ std::vector< int,std::allocator< int > >::iterator start;
+
+ VALUE elem = argv[0];
+ int idx = 0;
+ try {
+ std::vector< int,std::allocator< int > >::value_type val = swig::as<std::vector< int,std::allocator< int > >::value_type>( elem );
+ if ( i >= len ) {
+ self->resize(i-1, val);
+ return self;
+ }
+ start = self->begin();
+ std::advance( start, i );
+ self->insert( start++, val );
+
+ for ( ++idx; idx < argc; ++idx )
+ {
+ elem = argv[idx];
+ val = swig::as<std::vector< int,std::allocator< int > >::value_type>( elem );
+ self->insert( start++, val );
+ }
+
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< int,std::allocator< int > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+
+
+ return self;
+ }
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg__unshift(std::vector< int > *self,int argc,VALUE *argv,...){
+ for ( int idx = argc-1; idx >= 0; --idx )
+ {
+ std::vector< int,std::allocator< int > >::iterator start = self->begin();
+ VALUE elem = argv[idx];
+ try {
+ std::vector< int,std::allocator< int > >::value_type val = swig::as<std::vector< int,std::allocator< int > >::value_type>( elem );
+ self->insert( start, val );
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< int,std::allocator< int > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+ }
+
+ return self;
+ }
+
+SWIGINTERNINLINE VALUE
+SWIG_From_unsigned_SS_long (unsigned long value)
+{
+ return ULONG2NUM(value);
+}
+
+
+#ifdef SWIG_LONG_LONG_AVAILABLE
+SWIGINTERNINLINE VALUE
+SWIG_From_unsigned_SS_long_SS_long (unsigned long long value)
+{
+ return ULL2NUM(value);
+}
+#endif
+
+
+SWIGINTERNINLINE VALUE
+SWIG_From_size_t (size_t value)
+{
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ if (sizeof(size_t) <= sizeof(unsigned long)) {
+#endif
+ return SWIG_From_unsigned_SS_long (static_cast< unsigned long >(value));
+#ifdef SWIG_LONG_LONG_AVAILABLE
+ } else {
+ /* assume sizeof(size_t) <= sizeof(unsigned long long) */
+ return SWIG_From_unsigned_SS_long_SS_long (static_cast< unsigned long long >(value));
+ }
+#endif
+}
+
+SWIGINTERN std::vector< int >::iterator std_vector_Sl_int_Sg__erase__SWIG_0(std::vector< int > *self,std::vector< int >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< int >::iterator std_vector_Sl_int_Sg__erase__SWIG_1(std::vector< int > *self,std::vector< int >::iterator first,std::vector< int >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< int >::iterator std_vector_Sl_int_Sg__insert__SWIG_1(std::vector< int > *self,std::vector< int >::iterator pos,std::vector< int >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_int_Sg__insert__SWIG_2(std::vector< int > *self,std::vector< int >::iterator pos,std::vector< int >::size_type n,std::vector< int >::value_type const &x){ self->insert(pos, n, x); }
+SWIGINTERN std::vector< int,std::allocator< int > > *std_vector_Sl_int_Sg__map_bang(std::vector< int > *self){
+
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "No block given" );
+
+ VALUE r = Qnil;
+ std::vector< int >::iterator i = self->begin();
+ std::vector< int >::iterator e = self->end();
+
+ try {
+ for ( ; i != e; ++i )
+ {
+ r = swig::from< int >( *i );
+ r = rb_yield( r );
+ *i = swig::as< int >( r );
+ }
+ }
+ catch (const std::invalid_argument&)
+ {
+ rb_raise(rb_eTypeError,
+ "Yield block did not return a valid element for " "std::vector");
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_int_Sg____delete__(std::vector< int > *self,int const &val){
+ VALUE r = Qnil;
+ std::vector<int >::iterator e = self->end();
+ std::vector<int >::iterator i = std::remove( self->begin(), e, val );
+ // remove dangling elements now
+ self->erase( i, e );
+
+ if ( i != e )
+ r = swig::from< int >( val );
+ else if ( rb_block_given_p() )
+ r = rb_yield(Qnil);
+ return r;
+ }
+
+/*@SWIG:/usr/share/swig4.0/ruby/rubyprimtypes.swg,19,%ruby_aux_method@*/
+SWIGINTERN VALUE SWIG_AUX_NUM2DBL(VALUE arg)
+{
+ VALUE *args = (VALUE *)arg;
+ VALUE obj = args[0];
+ VALUE type = TYPE(obj);
+ double *res = (double *)(args[1]);
+ *res = NUM2DBL(obj); (void)type;
+ return obj;
+}
+/*@SWIG@*/
+
+SWIGINTERN int
+SWIG_AsVal_double (VALUE obj, double *val)
+{
+ VALUE type = TYPE(obj);
+ if ((type == T_FLOAT) || (type == T_FIXNUM) || (type == T_BIGNUM)) {
+ double v;
+ VALUE a[2];
+ a[0] = obj;
+ a[1] = (VALUE)(&v);
+ if (rb_rescue(VALUEFUNC(SWIG_AUX_NUM2DBL), (VALUE)a, VALUEFUNC(SWIG_ruby_failed), 0) != Qnil) {
+ if (val) *val = v;
+ return SWIG_OK;
+ }
+ }
+ return SWIG_TypeError;
+}
+
+
+ #define SWIG_From_double rb_float_new
+
+
+namespace swig {
+ template <> struct traits< double > {
+ typedef value_category category;
+ static const char* type_name() { return"double"; }
+ };
+ template <> struct traits_asval< double > {
+ typedef double value_type;
+ static int asval(VALUE obj, value_type *val) {
+ return SWIG_AsVal_double (obj, val);
+ }
+ };
+ template <> struct traits_from< double > {
+ typedef double value_type;
+ static VALUE from(const value_type& val) {
+ return SWIG_From_double (val);
+ }
+ };
+}
+
+
+ namespace swig {
+ template <> struct traits<std::vector< double, std::allocator< double > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "double" "," "std::allocator< double >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg__dup(std::vector< double > *self){
+ return new std::vector< double,std::allocator< double > >(*self);
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg__inspect(std::vector< double > *self){
+ std::vector< double,std::allocator< double > >::const_iterator i = self->begin();
+ std::vector< double,std::allocator< double > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::vector< double,std::allocator< double > > >();
+ VALUE str = rb_str_new2(type_name);
+ str = rb_str_cat2( str, " [" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::vector< double,std::allocator< double > >::value_type >( *i );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "]" );
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg__to_a(std::vector< double > *self){
+ std::vector< double,std::allocator< double > >::const_iterator i = self->begin();
+ std::vector< double,std::allocator< double > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< double,std::allocator< double > >::value_type >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg__to_s(std::vector< double > *self){
+ std::vector< double,std::allocator< double > >::iterator i = self->begin();
+ std::vector< double,std::allocator< double > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< double,std::allocator< double > >::value_type >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg__slice(std::vector< double > *self,std::vector< double >::difference_type i,std::vector< double >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< double,std::allocator< double > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< double,std::allocator< double > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< double,std::allocator< double > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< double,std::allocator< double > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg__each(std::vector< double > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::vector< double,std::allocator< double > >::const_iterator i = self->begin();
+ std::vector< double,std::allocator< double > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from< std::vector< double,std::allocator< double > >::value_type >(*i);
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg____delete2__(std::vector< double > *self,std::vector< double >::value_type const &i){
+ VALUE r = Qnil;
+ return r;
+ }
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg__select(std::vector< double > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< double,std::allocator< double > >* r = new std::vector< double,std::allocator< double > >();
+ std::vector< double,std::allocator< double > >::const_iterator i = self->begin();
+ std::vector< double,std::allocator< double > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE v = swig::from< std::vector< double,std::allocator< double > >::value_type >(*i);
+ if ( RTEST( rb_yield(v) ) )
+ self->insert( r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg__delete_at(std::vector< double > *self,std::vector< double >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ std::vector< double,std::allocator< double > >::iterator at = swig::getpos(self, i);
+ r = swig::from< std::vector< double,std::allocator< double > >::value_type >( *(at) );
+ self->erase(at);
+ }
+ catch (const std::out_of_range&) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg__at(std::vector< double > const *self,std::vector< double >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< double,std::allocator< double > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg____getitem____SWIG_0(std::vector< double > const *self,std::vector< double >::difference_type i,std::vector< double >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< double,std::allocator< double > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< double,std::allocator< double > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< double,std::allocator< double > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< double,std::allocator< double > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg____getitem____SWIG_1(std::vector< double > const *self,std::vector< double >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< double,std::allocator< double > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg____getitem____SWIG_2(std::vector< double > const *self,VALUE i){
+ if ( rb_obj_is_kind_of( i, rb_cRange ) == Qfalse ) {
+ rb_raise( rb_eTypeError, "not a valid index or range" );
+ }
+
+ static ID id_end = rb_intern("end");
+ static ID id_start = rb_intern("begin");
+ static ID id_noend = rb_intern("exclude_end?");
+
+ VALUE start = rb_funcall( i, id_start, 0 );
+ VALUE end = rb_funcall( i, id_end, 0 );
+ bool noend = ( rb_funcall( i, id_noend, 0 ) == Qtrue );
+
+ int len = self->size();
+
+ int s = NUM2INT( start );
+ if ( s < 0 ) {
+ s = len + s;
+ if ( s < 0 )
+ return Qnil;
+ } else if ( s > len )
+ return Qnil;
+
+ int e = NUM2INT( end );
+ if ( e < 0 ) e = len + e;
+ if ( noend ) e -= 1;
+ if ( e < 0 ) e = -1;
+ if ( e >= len ) e = len - 1;
+ if ( s == len ) e = len - 1;
+
+ return swig::from< std::vector< double,std::allocator< double > >* >( swig::getslice(self, s, e+1) );
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg____setitem____SWIG_0(std::vector< double > *self,std::vector< double >::difference_type i,std::vector< double >::value_type const &x){
+ if ( i >= static_cast<std::vector< double,std::allocator< double > >::difference_type>( self->size()) )
+ swig::resize( self, i+1, x );
+ else
+ *(swig::getpos(self, i)) = x;
+
+ return swig::from< std::vector< double,std::allocator< double > >::value_type >( x );
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg____setitem____SWIG_1(std::vector< double > *self,std::vector< double >::difference_type i,std::vector< double >::difference_type length,std::vector< double,std::allocator< double > > const &v){
+
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< double,std::allocator< double > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< double,std::allocator< double > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< double,std::allocator< double > >::difference_type>(len) ) {
+ swig::resize( self, j, *(v.begin()) );
+ }
+
+ VALUE r = Qnil;
+ swig::setslice(self, i, j, v);
+ r = swig::from< const std::vector< double,std::allocator< double > >* >( &v );
+ return r;
+ }
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg__reject_bang(std::vector< double > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ self->erase( std::remove_if( self->begin(), self->end(),
+ swig::yield< std::vector< double,std::allocator< double > >::value_type >() ), self->end() );
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg__pop(std::vector< double > *self){
+ if (self->empty()) return Qnil;
+ std::vector< double,std::allocator< double > >::value_type x = self->back();
+ self->pop_back();
+ return swig::from< std::vector< double,std::allocator< double > >::value_type >( x );
+ }
+SWIGINTERN std::vector< double >::value_type const std_vector_Sl_double_Sg__push(std::vector< double > *self,std::vector< double >::value_type const &e){
+ self->push_back( e );
+ return e;
+ }
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg__reject(std::vector< double > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< double,std::allocator< double > >* r = new std::vector< double,std::allocator< double > >();
+ std::remove_copy_if( self->begin(), self->end(),
+ std::back_inserter(*r),
+ swig::yield< std::vector< double,std::allocator< double > >::value_type >() );
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg__shift(std::vector< double > *self){
+ if (self->empty()) return Qnil;
+ std::vector< double,std::allocator< double > >::value_type x = self->front();
+ self->erase( self->begin() );
+ return swig::from< std::vector< double,std::allocator< double > >::value_type >( x );
+ }
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg__insert__SWIG_0(std::vector< double > *self,std::vector< double >::difference_type pos,int argc,VALUE *argv,...){
+ std::size_t len = self->size();
+ std::size_t i = swig::check_index( pos, len, true );
+ std::vector< double,std::allocator< double > >::iterator start;
+
+ VALUE elem = argv[0];
+ int idx = 0;
+ try {
+ std::vector< double,std::allocator< double > >::value_type val = swig::as<std::vector< double,std::allocator< double > >::value_type>( elem );
+ if ( i >= len ) {
+ self->resize(i-1, val);
+ return self;
+ }
+ start = self->begin();
+ std::advance( start, i );
+ self->insert( start++, val );
+
+ for ( ++idx; idx < argc; ++idx )
+ {
+ elem = argv[idx];
+ val = swig::as<std::vector< double,std::allocator< double > >::value_type>( elem );
+ self->insert( start++, val );
+ }
+
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< double,std::allocator< double > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+
+
+ return self;
+ }
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg__unshift(std::vector< double > *self,int argc,VALUE *argv,...){
+ for ( int idx = argc-1; idx >= 0; --idx )
+ {
+ std::vector< double,std::allocator< double > >::iterator start = self->begin();
+ VALUE elem = argv[idx];
+ try {
+ std::vector< double,std::allocator< double > >::value_type val = swig::as<std::vector< double,std::allocator< double > >::value_type>( elem );
+ self->insert( start, val );
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< double,std::allocator< double > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+ }
+
+ return self;
+ }
+SWIGINTERN std::vector< double >::iterator std_vector_Sl_double_Sg__erase__SWIG_0(std::vector< double > *self,std::vector< double >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< double >::iterator std_vector_Sl_double_Sg__erase__SWIG_1(std::vector< double > *self,std::vector< double >::iterator first,std::vector< double >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< double >::iterator std_vector_Sl_double_Sg__insert__SWIG_1(std::vector< double > *self,std::vector< double >::iterator pos,std::vector< double >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_double_Sg__insert__SWIG_2(std::vector< double > *self,std::vector< double >::iterator pos,std::vector< double >::size_type n,std::vector< double >::value_type const &x){ self->insert(pos, n, x); }
+SWIGINTERN std::vector< double,std::allocator< double > > *std_vector_Sl_double_Sg__map_bang(std::vector< double > *self){
+
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "No block given" );
+
+ VALUE r = Qnil;
+ std::vector< double >::iterator i = self->begin();
+ std::vector< double >::iterator e = self->end();
+
+ try {
+ for ( ; i != e; ++i )
+ {
+ r = swig::from< double >( *i );
+ r = rb_yield( r );
+ *i = swig::as< double >( r );
+ }
+ }
+ catch (const std::invalid_argument&)
+ {
+ rb_raise(rb_eTypeError,
+ "Yield block did not return a valid element for " "std::vector");
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_double_Sg____delete__(std::vector< double > *self,double const &val){
+ VALUE r = Qnil;
+ std::vector<double >::iterator e = self->end();
+ std::vector<double >::iterator i = std::remove( self->begin(), e, val );
+ // remove dangling elements now
+ self->erase( i, e );
+
+ if ( i != e )
+ r = swig::from< double >( val );
+ else if ( rb_block_given_p() )
+ r = rb_yield(Qnil);
+ return r;
+ }
+
+ namespace swig {
+ template <> struct traits<std::vector< std::vector< double,std::allocator< double > >, std::allocator< std::vector< double,std::allocator< double > > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "std::vector< double,std::allocator< double > >" "," "std::allocator< std::vector< double,std::allocator< double > > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *std_vector_Sl_std_vector_Sl_double_Sg__Sg__dup(std::vector< std::vector< double > > *self){
+ return new std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >(*self);
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg__inspect(std::vector< std::vector< double > > *self){
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::const_iterator i = self->begin();
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > >();
+ VALUE str = rb_str_new2(type_name);
+ str = rb_str_cat2( str, " [" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >( *i );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "]" );
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg__to_a(std::vector< std::vector< double > > *self){
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::const_iterator i = self->begin();
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg__to_s(std::vector< std::vector< double > > *self){
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::iterator i = self->begin();
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg__slice(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i,std::vector< std::vector< double > >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *std_vector_Sl_std_vector_Sl_double_Sg__Sg__each(std::vector< std::vector< double > > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::const_iterator i = self->begin();
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >(*i);
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg____delete2__(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::value_type const &i){
+ VALUE r = Qnil;
+ return r;
+ }
+SWIGINTERN std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *std_vector_Sl_std_vector_Sl_double_Sg__Sg__select(std::vector< std::vector< double > > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >* r = new std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >();
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::const_iterator i = self->begin();
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE v = swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >(*i);
+ if ( RTEST( rb_yield(v) ) )
+ self->insert( r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg__delete_at(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::iterator at = swig::getpos(self, i);
+ r = swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >( *(at) );
+ self->erase(at);
+ }
+ catch (const std::out_of_range&) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg__at(std::vector< std::vector< double > > const *self,std::vector< std::vector< double > >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_0(std::vector< std::vector< double > > const *self,std::vector< std::vector< double > >::difference_type i,std::vector< std::vector< double > >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_1(std::vector< std::vector< double > > const *self,std::vector< std::vector< double > >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_2(std::vector< std::vector< double > > const *self,VALUE i){
+ if ( rb_obj_is_kind_of( i, rb_cRange ) == Qfalse ) {
+ rb_raise( rb_eTypeError, "not a valid index or range" );
+ }
+
+ static ID id_end = rb_intern("end");
+ static ID id_start = rb_intern("begin");
+ static ID id_noend = rb_intern("exclude_end?");
+
+ VALUE start = rb_funcall( i, id_start, 0 );
+ VALUE end = rb_funcall( i, id_end, 0 );
+ bool noend = ( rb_funcall( i, id_noend, 0 ) == Qtrue );
+
+ int len = self->size();
+
+ int s = NUM2INT( start );
+ if ( s < 0 ) {
+ s = len + s;
+ if ( s < 0 )
+ return Qnil;
+ } else if ( s > len )
+ return Qnil;
+
+ int e = NUM2INT( end );
+ if ( e < 0 ) e = len + e;
+ if ( noend ) e -= 1;
+ if ( e < 0 ) e = -1;
+ if ( e >= len ) e = len - 1;
+ if ( s == len ) e = len - 1;
+
+ return swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >* >( swig::getslice(self, s, e+1) );
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_0(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i,std::vector< std::vector< double > >::value_type const &x){
+ if ( i >= static_cast<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type>( self->size()) )
+ swig::resize( self, i+1, x );
+ else
+ *(swig::getpos(self, i)) = x;
+
+ return swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >( x );
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_1(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type i,std::vector< std::vector< double > >::difference_type length,std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &v){
+
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::difference_type>(len) ) {
+ swig::resize( self, j, *(v.begin()) );
+ }
+
+ VALUE r = Qnil;
+ swig::setslice(self, i, j, v);
+ r = swig::from< const std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >* >( &v );
+ return r;
+ }
+SWIGINTERN std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *std_vector_Sl_std_vector_Sl_double_Sg__Sg__reject_bang(std::vector< std::vector< double > > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ self->erase( std::remove_if( self->begin(), self->end(),
+ swig::yield< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >() ), self->end() );
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg__pop(std::vector< std::vector< double > > *self){
+ if (self->empty()) return Qnil;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type x = self->back();
+ self->pop_back();
+ return swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >( x );
+ }
+SWIGINTERN std::vector< std::vector< double > >::value_type const std_vector_Sl_std_vector_Sl_double_Sg__Sg__push(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::value_type const &e){
+ self->push_back( e );
+ return e;
+ }
+SWIGINTERN std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *std_vector_Sl_std_vector_Sl_double_Sg__Sg__reject(std::vector< std::vector< double > > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >* r = new std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >();
+ std::remove_copy_if( self->begin(), self->end(),
+ std::back_inserter(*r),
+ swig::yield< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >() );
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_vector_Sl_double_Sg__Sg__shift(std::vector< std::vector< double > > *self){
+ if (self->empty()) return Qnil;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type x = self->front();
+ self->erase( self->begin() );
+ return swig::from< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type >( x );
+ }
+SWIGINTERN std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_0(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::difference_type pos,int argc,VALUE *argv,...){
+ std::size_t len = self->size();
+ std::size_t i = swig::check_index( pos, len, true );
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::iterator start;
+
+ VALUE elem = argv[0];
+ int idx = 0;
+ try {
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type val = swig::as<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type>( elem );
+ if ( i >= len ) {
+ self->resize(i-1, val);
+ return self;
+ }
+ start = self->begin();
+ std::advance( start, i );
+ self->insert( start++, val );
+
+ for ( ++idx; idx < argc; ++idx )
+ {
+ elem = argv[idx];
+ val = swig::as<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type>( elem );
+ self->insert( start++, val );
+ }
+
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+
+
+ return self;
+ }
+SWIGINTERN std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *std_vector_Sl_std_vector_Sl_double_Sg__Sg__unshift(std::vector< std::vector< double > > *self,int argc,VALUE *argv,...){
+ for ( int idx = argc-1; idx >= 0; --idx )
+ {
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::iterator start = self->begin();
+ VALUE elem = argv[idx];
+ try {
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type val = swig::as<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type>( elem );
+ self->insert( start, val );
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+ }
+
+ return self;
+ }
+SWIGINTERN std::vector< std::vector< double > >::iterator std_vector_Sl_std_vector_Sl_double_Sg__Sg__erase__SWIG_0(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< std::vector< double > >::iterator std_vector_Sl_std_vector_Sl_double_Sg__Sg__erase__SWIG_1(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::iterator first,std::vector< std::vector< double > >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< std::vector< double > >::iterator std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_1(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::iterator pos,std::vector< std::vector< double > >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_2(std::vector< std::vector< double > > *self,std::vector< std::vector< double > >::iterator pos,std::vector< std::vector< double > >::size_type n,std::vector< std::vector< double > >::value_type const &x){ self->insert(pos, n, x); }
+
+SWIGINTERN swig_type_info*
+SWIG_pchar_descriptor(void)
+{
+ static int init = 0;
+ static swig_type_info* info = 0;
+ if (!init) {
+ info = SWIG_TypeQuery("_p_char");
+ init = 1;
+ }
+ return info;
+}
+
+
+SWIGINTERN int
+SWIG_AsCharPtrAndSize(VALUE obj, char** cptr, size_t* psize, int *alloc)
+{
+ if (TYPE(obj) == T_STRING) {
+ char *cstr = StringValuePtr(obj);
+ size_t size = RSTRING_LEN(obj) + 1;
+ if (cptr) {
+ if (alloc) {
+ if (*alloc == SWIG_NEWOBJ) {
+ *cptr = reinterpret_cast< char* >(memcpy(new char[size], cstr, sizeof(char)*(size)));
+ } else {
+ *cptr = cstr;
+ *alloc = SWIG_OLDOBJ;
+ }
+ }
+ }
+ if (psize) *psize = size;
+ return SWIG_OK;
+ } else {
+ swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
+ if (pchar_descriptor) {
+ void* vptr = 0;
+ if (SWIG_ConvertPtr(obj, &vptr, pchar_descriptor, 0) == SWIG_OK) {
+ if (cptr) *cptr = (char *)vptr;
+ if (psize) *psize = vptr ? (strlen((char*)vptr) + 1) : 0;
+ if (alloc) *alloc = SWIG_OLDOBJ;
+ return SWIG_OK;
+ }
+ }
+ }
+ return SWIG_TypeError;
+}
+
+
+SWIGINTERN int
+SWIG_AsPtr_std_string (VALUE obj, std::string **val)
+{
+ char* buf = 0 ; size_t size = 0; int alloc = SWIG_OLDOBJ;
+ if (SWIG_IsOK((SWIG_AsCharPtrAndSize(obj, &buf, &size, &alloc)))) {
+ if (buf) {
+ if (val) *val = new std::string(buf, size - 1);
+ if (alloc == SWIG_NEWOBJ) delete[] buf;
+ return SWIG_NEWOBJ;
+ } else {
+ if (val) *val = 0;
+ return SWIG_OLDOBJ;
+ }
+ } else {
+ static int init = 0;
+ static swig_type_info* descriptor = 0;
+ if (!init) {
+ descriptor = SWIG_TypeQuery("std::string" " *");
+ init = 1;
+ }
+ if (descriptor) {
+ std::string *vptr;
+ int res = SWIG_ConvertPtr(obj, (void**)&vptr, descriptor, 0);
+ if (SWIG_IsOK(res) && val) *val = vptr;
+ return res;
+ }
+ }
+ return SWIG_ERROR;
+}
+
+
+SWIGINTERN int
+SWIG_AsVal_std_string (VALUE obj, std::string *val)
+{
+ std::string* v = (std::string *) 0;
+ int res = SWIG_AsPtr_std_string (obj, &v);
+ if (!SWIG_IsOK(res)) return res;
+ if (v) {
+ if (val) *val = *v;
+ if (SWIG_IsNewObj(res)) {
+ delete v;
+ res = SWIG_DelNewMask(res);
+ }
+ return res;
+ }
+ return SWIG_ERROR;
+}
+
+
+SWIGINTERNINLINE VALUE
+SWIG_FromCharPtrAndSize(const char* carray, size_t size)
+{
+ if (carray) {
+ if (size > LONG_MAX) {
+ swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
+ return pchar_descriptor ?
+ SWIG_NewPointerObj(const_cast< char * >(carray), pchar_descriptor, 0) : Qnil;
+ } else {
+ return rb_str_new(carray, static_cast< long >(size));
+ }
+ } else {
+ return Qnil;
+ }
+}
+
+
+SWIGINTERNINLINE VALUE
+SWIG_From_std_string (const std::string& s)
+{
+ return SWIG_FromCharPtrAndSize(s.data(), s.size());
+}
+
+
+namespace swig {
+ template <> struct traits< std::string > {
+ typedef value_category category;
+ static const char* type_name() { return"std::string"; }
+ };
+ template <> struct traits_asval< std::string > {
+ typedef std::string value_type;
+ static int asval(VALUE obj, value_type *val) {
+ return SWIG_AsVal_std_string (obj, val);
+ }
+ };
+ template <> struct traits_from< std::string > {
+ typedef std::string value_type;
+ static VALUE from(const value_type& val) {
+ return SWIG_From_std_string (val);
+ }
+ };
+}
+
+
+ namespace swig {
+ template <> struct traits<std::vector< std::string, std::allocator< std::string > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "std::string" "," "std::allocator< std::string >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg__dup(std::vector< std::string > *self){
+ return new std::vector< std::string,std::allocator< std::string > >(*self);
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg__inspect(std::vector< std::string > *self){
+ std::vector< std::string,std::allocator< std::string > >::const_iterator i = self->begin();
+ std::vector< std::string,std::allocator< std::string > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::vector< std::string,std::allocator< std::string > > >();
+ VALUE str = rb_str_new2(type_name);
+ str = rb_str_cat2( str, " [" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >( *i );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "]" );
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg__to_a(std::vector< std::string > *self){
+ std::vector< std::string,std::allocator< std::string > >::const_iterator i = self->begin();
+ std::vector< std::string,std::allocator< std::string > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg__to_s(std::vector< std::string > *self){
+ std::vector< std::string,std::allocator< std::string > >::iterator i = self->begin();
+ std::vector< std::string,std::allocator< std::string > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg__slice(std::vector< std::string > *self,std::vector< std::string >::difference_type i,std::vector< std::string >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< std::string,std::allocator< std::string > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< std::string,std::allocator< std::string > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< std::string,std::allocator< std::string > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< std::string,std::allocator< std::string > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg__each(std::vector< std::string > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::vector< std::string,std::allocator< std::string > >::const_iterator i = self->begin();
+ std::vector< std::string,std::allocator< std::string > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >(*i);
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg____delete2__(std::vector< std::string > *self,std::vector< std::string >::value_type const &i){
+ VALUE r = Qnil;
+ return r;
+ }
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg__select(std::vector< std::string > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< std::string,std::allocator< std::string > >* r = new std::vector< std::string,std::allocator< std::string > >();
+ std::vector< std::string,std::allocator< std::string > >::const_iterator i = self->begin();
+ std::vector< std::string,std::allocator< std::string > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE v = swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >(*i);
+ if ( RTEST( rb_yield(v) ) )
+ self->insert( r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg__delete_at(std::vector< std::string > *self,std::vector< std::string >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ std::vector< std::string,std::allocator< std::string > >::iterator at = swig::getpos(self, i);
+ r = swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >( *(at) );
+ self->erase(at);
+ }
+ catch (const std::out_of_range&) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg__at(std::vector< std::string > const *self,std::vector< std::string >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg____getitem____SWIG_0(std::vector< std::string > const *self,std::vector< std::string >::difference_type i,std::vector< std::string >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< std::string,std::allocator< std::string > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< std::string,std::allocator< std::string > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< std::string,std::allocator< std::string > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< std::string,std::allocator< std::string > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg____getitem____SWIG_1(std::vector< std::string > const *self,std::vector< std::string >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg____getitem____SWIG_2(std::vector< std::string > const *self,VALUE i){
+ if ( rb_obj_is_kind_of( i, rb_cRange ) == Qfalse ) {
+ rb_raise( rb_eTypeError, "not a valid index or range" );
+ }
+
+ static ID id_end = rb_intern("end");
+ static ID id_start = rb_intern("begin");
+ static ID id_noend = rb_intern("exclude_end?");
+
+ VALUE start = rb_funcall( i, id_start, 0 );
+ VALUE end = rb_funcall( i, id_end, 0 );
+ bool noend = ( rb_funcall( i, id_noend, 0 ) == Qtrue );
+
+ int len = self->size();
+
+ int s = NUM2INT( start );
+ if ( s < 0 ) {
+ s = len + s;
+ if ( s < 0 )
+ return Qnil;
+ } else if ( s > len )
+ return Qnil;
+
+ int e = NUM2INT( end );
+ if ( e < 0 ) e = len + e;
+ if ( noend ) e -= 1;
+ if ( e < 0 ) e = -1;
+ if ( e >= len ) e = len - 1;
+ if ( s == len ) e = len - 1;
+
+ return swig::from< std::vector< std::string,std::allocator< std::string > >* >( swig::getslice(self, s, e+1) );
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg____setitem____SWIG_0(std::vector< std::string > *self,std::vector< std::string >::difference_type i,std::vector< std::string >::value_type const &x){
+ if ( i >= static_cast<std::vector< std::string,std::allocator< std::string > >::difference_type>( self->size()) )
+ swig::resize( self, i+1, x );
+ else
+ *(swig::getpos(self, i)) = x;
+
+ return swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >( x );
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg____setitem____SWIG_1(std::vector< std::string > *self,std::vector< std::string >::difference_type i,std::vector< std::string >::difference_type length,std::vector< std::string,std::allocator< std::string > > const &v){
+
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< std::string,std::allocator< std::string > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< std::string,std::allocator< std::string > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< std::string,std::allocator< std::string > >::difference_type>(len) ) {
+ swig::resize( self, j, *(v.begin()) );
+ }
+
+ VALUE r = Qnil;
+ swig::setslice(self, i, j, v);
+ r = swig::from< const std::vector< std::string,std::allocator< std::string > >* >( &v );
+ return r;
+ }
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg__reject_bang(std::vector< std::string > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ self->erase( std::remove_if( self->begin(), self->end(),
+ swig::yield< std::vector< std::string,std::allocator< std::string > >::value_type >() ), self->end() );
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg__pop(std::vector< std::string > *self){
+ if (self->empty()) return Qnil;
+ std::vector< std::string,std::allocator< std::string > >::value_type x = self->back();
+ self->pop_back();
+ return swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >( x );
+ }
+SWIGINTERN std::vector< std::string >::value_type const std_vector_Sl_std_string_Sg__push(std::vector< std::string > *self,std::vector< std::string >::value_type const &e){
+ self->push_back( e );
+ return e;
+ }
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg__reject(std::vector< std::string > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< std::string,std::allocator< std::string > >* r = new std::vector< std::string,std::allocator< std::string > >();
+ std::remove_copy_if( self->begin(), self->end(),
+ std::back_inserter(*r),
+ swig::yield< std::vector< std::string,std::allocator< std::string > >::value_type >() );
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg__shift(std::vector< std::string > *self){
+ if (self->empty()) return Qnil;
+ std::vector< std::string,std::allocator< std::string > >::value_type x = self->front();
+ self->erase( self->begin() );
+ return swig::from< std::vector< std::string,std::allocator< std::string > >::value_type >( x );
+ }
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg__insert__SWIG_0(std::vector< std::string > *self,std::vector< std::string >::difference_type pos,int argc,VALUE *argv,...){
+ std::size_t len = self->size();
+ std::size_t i = swig::check_index( pos, len, true );
+ std::vector< std::string,std::allocator< std::string > >::iterator start;
+
+ VALUE elem = argv[0];
+ int idx = 0;
+ try {
+ std::vector< std::string,std::allocator< std::string > >::value_type val = swig::as<std::vector< std::string,std::allocator< std::string > >::value_type>( elem );
+ if ( i >= len ) {
+ self->resize(i-1, val);
+ return self;
+ }
+ start = self->begin();
+ std::advance( start, i );
+ self->insert( start++, val );
+
+ for ( ++idx; idx < argc; ++idx )
+ {
+ elem = argv[idx];
+ val = swig::as<std::vector< std::string,std::allocator< std::string > >::value_type>( elem );
+ self->insert( start++, val );
+ }
+
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< std::string,std::allocator< std::string > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+
+
+ return self;
+ }
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg__unshift(std::vector< std::string > *self,int argc,VALUE *argv,...){
+ for ( int idx = argc-1; idx >= 0; --idx )
+ {
+ std::vector< std::string,std::allocator< std::string > >::iterator start = self->begin();
+ VALUE elem = argv[idx];
+ try {
+ std::vector< std::string,std::allocator< std::string > >::value_type val = swig::as<std::vector< std::string,std::allocator< std::string > >::value_type>( elem );
+ self->insert( start, val );
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< std::string,std::allocator< std::string > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+ }
+
+ return self;
+ }
+SWIGINTERN std::vector< std::string >::iterator std_vector_Sl_std_string_Sg__erase__SWIG_0(std::vector< std::string > *self,std::vector< std::string >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< std::string >::iterator std_vector_Sl_std_string_Sg__erase__SWIG_1(std::vector< std::string > *self,std::vector< std::string >::iterator first,std::vector< std::string >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< std::string >::iterator std_vector_Sl_std_string_Sg__insert__SWIG_1(std::vector< std::string > *self,std::vector< std::string >::iterator pos,std::vector< std::string >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_std_string_Sg__insert__SWIG_2(std::vector< std::string > *self,std::vector< std::string >::iterator pos,std::vector< std::string >::size_type n,std::vector< std::string >::value_type const &x){ self->insert(pos, n, x); }
+SWIGINTERN std::vector< std::string,std::allocator< std::string > > *std_vector_Sl_std_string_Sg__map_bang(std::vector< std::string > *self){
+
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "No block given" );
+
+ VALUE r = Qnil;
+ std::vector< std::string >::iterator i = self->begin();
+ std::vector< std::string >::iterator e = self->end();
+
+ try {
+ for ( ; i != e; ++i )
+ {
+ r = swig::from< std::string >( *i );
+ r = rb_yield( r );
+ *i = swig::as< std::string >( r );
+ }
+ }
+ catch (const std::invalid_argument&)
+ {
+ rb_raise(rb_eTypeError,
+ "Yield block did not return a valid element for " "std::vector");
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_std_string_Sg____delete__(std::vector< std::string > *self,std::string const &val){
+ VALUE r = Qnil;
+ std::vector<std::string >::iterator e = self->end();
+ std::vector<std::string >::iterator i = std::remove( self->begin(), e, val );
+ // remove dangling elements now
+ self->erase( i, e );
+
+ if ( i != e )
+ r = swig::from< std::string >( val );
+ else if ( rb_block_given_p() )
+ r = rb_yield(Qnil);
+ return r;
+ }
+
+ namespace swig {
+ template <> struct traits< CdiVariable > {
+ typedef pointer_category category;
+ static const char* type_name() { return"CdiVariable"; }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::vector< CdiVariable, std::allocator< CdiVariable > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::vector<" "CdiVariable" "," "std::allocator< CdiVariable >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::vector< CdiVariable,std::allocator< CdiVariable > > *std_vector_Sl_CdiVariable_Sg__dup(std::vector< CdiVariable > *self){
+ return new std::vector< CdiVariable,std::allocator< CdiVariable > >(*self);
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg__inspect(std::vector< CdiVariable > *self){
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::const_iterator i = self->begin();
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::vector< CdiVariable,std::allocator< CdiVariable > > >();
+ VALUE str = rb_str_new2(type_name);
+ str = rb_str_cat2( str, " [" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >( *i );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "]" );
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg__to_a(std::vector< CdiVariable > *self){
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::const_iterator i = self->begin();
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg__to_s(std::vector< CdiVariable > *self){
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::iterator i = self->begin();
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ tmp = swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg__slice(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i,std::vector< CdiVariable >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< CdiVariable,std::allocator< CdiVariable > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN std::vector< CdiVariable,std::allocator< CdiVariable > > *std_vector_Sl_CdiVariable_Sg__each(std::vector< CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::const_iterator i = self->begin();
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >(*i);
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg____delete2__(std::vector< CdiVariable > *self,std::vector< CdiVariable >::value_type const &i){
+ VALUE r = Qnil;
+ return r;
+ }
+SWIGINTERN std::vector< CdiVariable,std::allocator< CdiVariable > > *std_vector_Sl_CdiVariable_Sg__select(std::vector< CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< CdiVariable,std::allocator< CdiVariable > >* r = new std::vector< CdiVariable,std::allocator< CdiVariable > >();
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::const_iterator i = self->begin();
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::const_iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE v = swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >(*i);
+ if ( RTEST( rb_yield(v) ) )
+ self->insert( r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg__delete_at(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::iterator at = swig::getpos(self, i);
+ r = swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >( *(at) );
+ self->erase(at);
+ }
+ catch (const std::out_of_range&) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg__at(std::vector< CdiVariable > const *self,std::vector< CdiVariable >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg____getitem____SWIG_0(std::vector< CdiVariable > const *self,std::vector< CdiVariable >::difference_type i,std::vector< CdiVariable >::difference_type length){
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type>(len) )
+ j = len;
+
+ VALUE r = Qnil;
+ try {
+ r = swig::from< const std::vector< CdiVariable,std::allocator< CdiVariable > >* >( swig::getslice(self, i, j) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg____getitem____SWIG_1(std::vector< CdiVariable > const *self,std::vector< CdiVariable >::difference_type i){
+ VALUE r = Qnil;
+ try {
+ r = swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >( *(swig::cgetpos(self, i)) );
+ }
+ catch( const std::out_of_range& ) {
+ }
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg____getitem____SWIG_2(std::vector< CdiVariable > const *self,VALUE i){
+ if ( rb_obj_is_kind_of( i, rb_cRange ) == Qfalse ) {
+ rb_raise( rb_eTypeError, "not a valid index or range" );
+ }
+
+ static ID id_end = rb_intern("end");
+ static ID id_start = rb_intern("begin");
+ static ID id_noend = rb_intern("exclude_end?");
+
+ VALUE start = rb_funcall( i, id_start, 0 );
+ VALUE end = rb_funcall( i, id_end, 0 );
+ bool noend = ( rb_funcall( i, id_noend, 0 ) == Qtrue );
+
+ int len = self->size();
+
+ int s = NUM2INT( start );
+ if ( s < 0 ) {
+ s = len + s;
+ if ( s < 0 )
+ return Qnil;
+ } else if ( s > len )
+ return Qnil;
+
+ int e = NUM2INT( end );
+ if ( e < 0 ) e = len + e;
+ if ( noend ) e -= 1;
+ if ( e < 0 ) e = -1;
+ if ( e >= len ) e = len - 1;
+ if ( s == len ) e = len - 1;
+
+ return swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >* >( swig::getslice(self, s, e+1) );
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg____setitem____SWIG_0(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i,std::vector< CdiVariable >::value_type const &x){
+ if ( i >= static_cast<std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type>( self->size()) )
+ swig::resize( self, i+1, x );
+ else
+ *(swig::getpos(self, i)) = x;
+
+ return swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >( x );
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg____setitem____SWIG_1(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type i,std::vector< CdiVariable >::difference_type length,std::vector< CdiVariable,std::allocator< CdiVariable > > const &v){
+
+ if ( length < 0 )
+ return Qnil;
+ std::size_t len = self->size();
+ if ( i < 0 ) {
+ if ( i + static_cast<std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type>(len) < 0 )
+ return Qnil;
+ else
+ i = len + i;
+ }
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type j = length + i;
+ if ( j > static_cast<std::vector< CdiVariable,std::allocator< CdiVariable > >::difference_type>(len) ) {
+ swig::resize( self, j, *(v.begin()) );
+ }
+
+ VALUE r = Qnil;
+ swig::setslice(self, i, j, v);
+ r = swig::from< const std::vector< CdiVariable,std::allocator< CdiVariable > >* >( &v );
+ return r;
+ }
+SWIGINTERN std::vector< CdiVariable,std::allocator< CdiVariable > > *std_vector_Sl_CdiVariable_Sg__reject_bang(std::vector< CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ self->erase( std::remove_if( self->begin(), self->end(),
+ swig::yield< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >() ), self->end() );
+ return self;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg__pop(std::vector< CdiVariable > *self){
+ if (self->empty()) return Qnil;
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type x = self->back();
+ self->pop_back();
+ return swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >( x );
+ }
+SWIGINTERN std::vector< CdiVariable >::value_type const std_vector_Sl_CdiVariable_Sg__push(std::vector< CdiVariable > *self,std::vector< CdiVariable >::value_type const &e){
+ self->push_back( e );
+ return e;
+ }
+SWIGINTERN std::vector< CdiVariable,std::allocator< CdiVariable > > *std_vector_Sl_CdiVariable_Sg__reject(std::vector< CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::vector< CdiVariable,std::allocator< CdiVariable > >* r = new std::vector< CdiVariable,std::allocator< CdiVariable > >();
+ std::remove_copy_if( self->begin(), self->end(),
+ std::back_inserter(*r),
+ swig::yield< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >() );
+ return r;
+ }
+SWIGINTERN VALUE std_vector_Sl_CdiVariable_Sg__shift(std::vector< CdiVariable > *self){
+ if (self->empty()) return Qnil;
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type x = self->front();
+ self->erase( self->begin() );
+ return swig::from< std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type >( x );
+ }
+SWIGINTERN std::vector< CdiVariable,std::allocator< CdiVariable > > *std_vector_Sl_CdiVariable_Sg__insert__SWIG_0(std::vector< CdiVariable > *self,std::vector< CdiVariable >::difference_type pos,int argc,VALUE *argv,...){
+ std::size_t len = self->size();
+ std::size_t i = swig::check_index( pos, len, true );
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::iterator start;
+
+ VALUE elem = argv[0];
+ int idx = 0;
+ try {
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type val = swig::as<std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type>( elem );
+ if ( i >= len ) {
+ self->resize(i-1, val);
+ return self;
+ }
+ start = self->begin();
+ std::advance( start, i );
+ self->insert( start++, val );
+
+ for ( ++idx; idx < argc; ++idx )
+ {
+ elem = argv[idx];
+ val = swig::as<std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type>( elem );
+ self->insert( start++, val );
+ }
+
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+
+
+ return self;
+ }
+SWIGINTERN std::vector< CdiVariable,std::allocator< CdiVariable > > *std_vector_Sl_CdiVariable_Sg__unshift(std::vector< CdiVariable > *self,int argc,VALUE *argv,...){
+ for ( int idx = argc-1; idx >= 0; --idx )
+ {
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::iterator start = self->begin();
+ VALUE elem = argv[idx];
+ try {
+ std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type val = swig::as<std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type>( elem );
+ self->insert( start, val );
+ }
+ catch(const std::invalid_argument &)
+ {
+ rb_raise( rb_eArgError, "%s",
+ Ruby_Format_TypeError( "",
+ swig::type_name<std::vector< CdiVariable,std::allocator< CdiVariable > >::value_type>(),
+ __FUNCTION__, idx+2, elem ));
+ }
+ }
+
+ return self;
+ }
+SWIGINTERN std::vector< CdiVariable >::iterator std_vector_Sl_CdiVariable_Sg__erase__SWIG_0(std::vector< CdiVariable > *self,std::vector< CdiVariable >::iterator pos){ return self->erase(pos); }
+SWIGINTERN std::vector< CdiVariable >::iterator std_vector_Sl_CdiVariable_Sg__erase__SWIG_1(std::vector< CdiVariable > *self,std::vector< CdiVariable >::iterator first,std::vector< CdiVariable >::iterator last){ return self->erase(first, last); }
+SWIGINTERN std::vector< CdiVariable >::iterator std_vector_Sl_CdiVariable_Sg__insert__SWIG_1(std::vector< CdiVariable > *self,std::vector< CdiVariable >::iterator pos,std::vector< CdiVariable >::value_type const &x){ return self->insert(pos, x); }
+SWIGINTERN void std_vector_Sl_CdiVariable_Sg__insert__SWIG_2(std::vector< CdiVariable > *self,std::vector< CdiVariable >::iterator pos,std::vector< CdiVariable >::size_type n,std::vector< CdiVariable >::value_type const &x){ self->insert(pos, n, x); }
+
+ namespace swig {
+
+ template <class T, class U >
+ struct traits_asval<std::pair<T,U> > {
+ typedef std::pair<T,U> value_type;
+
+ static int get_pair(VALUE first, VALUE second,
+ std::pair<T,U> *val)
+ {
+ if (val) {
+ T *pfirst = &(val->first);
+ int res1 = swig::asval((VALUE)first, pfirst);
+ if (!SWIG_IsOK(res1)) return res1;
+ U *psecond = &(val->second);
+ int res2 = swig::asval((VALUE)second, psecond);
+ if (!SWIG_IsOK(res2)) return res2;
+ return res1 > res2 ? res1 : res2;
+ } else {
+ T *pfirst = 0;
+ int res1 = swig::asval((VALUE)first, pfirst);
+ if (!SWIG_IsOK(res1)) return res1;
+ U *psecond = 0;
+ int res2 = swig::asval((VALUE)second, psecond);
+ if (!SWIG_IsOK(res2)) return res2;
+ return res1 > res2 ? res1 : res2;
+ }
+ }
+
+ static int asval(VALUE obj, std::pair<T,U> *val) {
+ int res = SWIG_ERROR;
+ if ( TYPE(obj) == T_ARRAY ) {
+ if (RARRAY_LEN(obj) == 2) {
+ VALUE first = rb_ary_entry(obj,0);
+ VALUE second = rb_ary_entry(obj,1);
+ res = get_pair(first, second, val);
+ }
+ } else {
+ value_type *p;
+ swig_type_info *descriptor = swig::type_info<value_type>();
+ res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
+ if (SWIG_IsOK(res) && val) *val = *p;
+ }
+ return res;
+ }
+ };
+
+ template <class T, class U >
+ struct traits_asptr<std::pair<T,U> > {
+ typedef std::pair<T,U> value_type;
+
+ static int get_pair(VALUE first, VALUE second,
+ std::pair<T,U> **val)
+ {
+ if (val) {
+ value_type *vp = (new std::pair<T,U>());
+ T *pfirst = &(vp->first);
+ int res1 = swig::asval((VALUE)first, pfirst);
+ if (!SWIG_IsOK(res1)) {
+ delete vp;
+ return res1;
+ }
+ U *psecond = &(vp->second);
+ int res2 = swig::asval((VALUE)second, psecond);
+ if (!SWIG_IsOK(res2)) {
+ delete vp;
+ return res2;
+ }
+ *val = vp;
+ return SWIG_AddNewMask(res1 > res2 ? res1 : res2);
+ } else {
+ T *pfirst = 0;
+ int res1 = swig::asval((VALUE)first, pfirst);
+ if (!SWIG_IsOK(res1)) return res1;
+ U *psecond = 0;
+ int res2 = swig::asval((VALUE)second, psecond);
+ if (!SWIG_IsOK(res2)) return res2;
+ return res1 > res2 ? res1 : res2;
+ }
+ }
+
+ static int asptr(VALUE obj, std::pair<T,U> **val) {
+ int res = SWIG_ERROR;
+ if ( TYPE(obj) == T_ARRAY ) {
+ if ( RARRAY_LEN(obj) == 2) {
+ VALUE first = rb_ary_entry(obj,0);
+ VALUE second = rb_ary_entry(obj,1);
+ res = get_pair(first, second, val);
+ }
+ } else {
+ value_type *p;
+ swig_type_info *descriptor = swig::type_info<value_type>();
+ res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
+ if (SWIG_IsOK(res) && val) *val = p;
+ }
+ return res;
+ }
+ };
+
+
+
+ template <class T, class U >
+ struct traits_from<std::pair<T,U> > {
+ static VALUE _wrap_pair_second( VALUE self )
+ {
+ std::pair< typename swig::noconst_traits<T >::noconst_type,U>* p = NULL;
+ swig::asptr( self, &p );
+ return swig::from( p->second );
+ }
+
+ static VALUE _wrap_pair_second_eq( VALUE self, VALUE arg )
+ {
+ std::pair< typename swig::noconst_traits<T >::noconst_type,U>* p = NULL;
+ swig::asptr( self, &p );
+ return swig::from( p->second );
+ }
+
+ static VALUE from(const std::pair<T,U>& val) {
+ VALUE obj = rb_ary_new2(2);
+ rb_ary_push(obj, swig::from<typename swig::noconst_traits<T >::noconst_type>(val.first));
+ rb_ary_push(obj, swig::from(val.second));
+ rb_define_singleton_method(obj, "second",
+ VALUEFUNC(_wrap_pair_second), 0 );
+ rb_define_singleton_method(obj, "second=",
+ VALUEFUNC(_wrap_pair_second_eq), 1 );
+ rb_obj_freeze(obj); // treat as immutable tuple
+ return obj;
+ }
+ };
+
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::pair< std::string, CdiVariable > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "std::string" "," "CdiVariable" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <class ValueType>
+ struct from_key_oper
+ {
+ typedef const ValueType& argument_type;
+ typedef VALUE result_type;
+ result_type operator()(argument_type v) const
+ {
+ return swig::from(v.first);
+ }
+ };
+
+ template <class ValueType>
+ struct from_value_oper
+ {
+ typedef const ValueType& argument_type;
+ typedef VALUE result_type;
+ result_type operator()(argument_type v) const
+ {
+ return swig::from(v.second);
+ }
+ };
+
+ template<class OutIterator, class FromOper,
+ class ValueType = typename OutIterator::value_type>
+ struct MapIterator_T : ConstIteratorClosed_T<OutIterator, ValueType, FromOper>
+ {
+ MapIterator_T(OutIterator curr, OutIterator first, OutIterator last, VALUE seq)
+ : ConstIteratorClosed_T<OutIterator,ValueType,FromOper>(curr, first, last, seq)
+ {
+ }
+ };
+
+
+ template<class OutIterator,
+ class FromOper = from_key_oper<typename OutIterator::value_type> >
+ struct MapKeyIterator_T : MapIterator_T<OutIterator, FromOper>
+ {
+ MapKeyIterator_T(OutIterator curr, OutIterator first, OutIterator last, VALUE seq)
+ : MapIterator_T<OutIterator, FromOper>(curr, first, last, seq)
+ {
+ }
+ };
+
+ template<typename OutIter>
+ inline ConstIterator*
+ make_output_key_iterator(const OutIter& current, const OutIter& begin,
+ const OutIter& end, VALUE seq = 0)
+ {
+ return new MapKeyIterator_T<OutIter>(current, begin, end, seq);
+ }
+
+ template<class OutIterator,
+ class FromOper = from_value_oper<typename OutIterator::value_type> >
+ struct MapValueIterator_T : MapIterator_T<OutIterator, FromOper>
+ {
+ MapValueIterator_T(OutIterator curr, OutIterator first, OutIterator last, VALUE seq)
+ : MapIterator_T<OutIterator, FromOper>(curr, first, last, seq)
+ {
+ }
+ };
+
+
+ template<typename OutIter>
+ inline ConstIterator*
+ make_output_value_iterator(const OutIter& current, const OutIter& begin,
+ const OutIter& end, VALUE seq = 0)
+ {
+ return new MapValueIterator_T<OutIter>(current, begin, end, seq);
+ }
+ }
+
+
+ namespace swig {
+ template <class RubySeq, class K, class T >
+ inline void
+ assign(const RubySeq& rubyseq, std::map<K,T > *map) {
+ typedef typename std::map<K,T>::value_type value_type;
+ typename RubySeq::const_iterator it = rubyseq.begin();
+ for (;it != rubyseq.end(); ++it) {
+ map->insert(value_type(it->first, it->second));
+ }
+ }
+
+ template <class K, class T>
+ struct traits_asptr<std::map<K,T> > {
+ typedef std::map<K,T> map_type;
+ static int asptr(VALUE obj, map_type **val) {
+ int res = SWIG_ERROR;
+ if ( TYPE(obj) == T_HASH ) {
+ static ID id_to_a = rb_intern("to_a");
+ VALUE items = rb_funcall(obj, id_to_a, 0);
+ res = traits_asptr_stdseq<std::map<K,T>, std::pair<K, T> >::asptr(items, val);
+ } else {
+ map_type *p;
+ swig_type_info *descriptor = swig::type_info<map_type>();
+ res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
+ if (SWIG_IsOK(res) && val) *val = p;
+ }
+ return res;
+ }
+ };
+
+ template <class K, class T >
+ struct traits_from<std::map<K,T> > {
+ typedef std::map<K,T> map_type;
+ typedef typename map_type::const_iterator const_iterator;
+ typedef typename map_type::size_type size_type;
+
+ static VALUE from(const map_type& map) {
+ swig_type_info *desc = swig::type_info<map_type>();
+ if (desc && desc->clientdata) {
+ return SWIG_NewPointerObj(new map_type(map), desc, SWIG_POINTER_OWN);
+ } else {
+ size_type size = map.size();
+ int rubysize = (size <= (size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise( rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE obj = rb_hash_new();
+ for (const_iterator i= map.begin(); i!= map.end(); ++i) {
+ VALUE key = swig::from(i->first);
+ VALUE val = swig::from(i->second);
+ rb_hash_aset(obj, key, val);
+ }
+ return obj;
+ }
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< std::string, CdiVariable, std::less< std::string >, std::allocator< std::pair< std::string const,CdiVariable > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "std::string" "," "CdiVariable" "," "std::less< std::string >" "," "std::allocator< std::pair< std::string const,CdiVariable > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *std_map_Sl_std_string_Sc_CdiVariable_Sg__dup(std::map< std::string,CdiVariable > *self){
+ return new std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >(*self);
+ }
+SWIGINTERN VALUE std_map_Sl_std_string_Sc_CdiVariable_Sg____delete__(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::key_type const &key){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator i = self->find(key);
+ if (i != self->end()) {
+ self->erase(i);
+ return swig::from( key );
+ }
+ else {
+ return Qnil;
+ }
+ }
+SWIGINTERN bool std_map_Sl_std_string_Sc_CdiVariable_Sg__has_key(std::map< std::string,CdiVariable > const *self,std::map< std::string,CdiVariable >::key_type const &key){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN VALUE std_map_Sl_std_string_Sc_CdiVariable_Sg__keys(std::map< std::string,CdiVariable > *self){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->first) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *std_map_Sl_std_string_Sc_CdiVariable_Sg__each(std::map< std::string,CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE k, v;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ const std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::key_type& key = i->first;
+ const std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::mapped_type& val = i->second;
+
+ k = swig::from<std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::key_type>(key);
+ v = swig::from<std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::mapped_type>(val);
+ rb_yield_values(2, k, v);
+ }
+
+ return self;
+ }
+SWIGINTERN std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *std_map_Sl_std_string_Sc_CdiVariable_Sg__select(std::map< std::string,CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >* r = new std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE k = swig::from<std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::key_type>(i->first);
+ VALUE v = swig::from<std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::mapped_type>(i->second);
+ if ( RTEST( rb_yield_values(2, k, v) ) )
+ self->insert(r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_map_Sl_std_string_Sc_CdiVariable_Sg__values_at(std::map< std::string,CdiVariable > *self,int argc,VALUE *argv,...){
+
+ VALUE r = rb_ary_new();
+ ID id = rb_intern("[]");
+ swig_type_info* type = swig::type_info< std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > >();
+ VALUE me = SWIG_NewPointerObj( self, type, 0 );
+ for ( int i = 0; i < argc; ++i )
+ {
+ VALUE key = argv[i];
+ VALUE tmp = rb_funcall( me, id, 1, key );
+ rb_ary_push( r, tmp );
+ }
+
+ return r;
+ }
+SWIGINTERN std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *std_map_Sl_std_string_Sc_CdiVariable_Sg__each_key(std::map< std::string,CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->first );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_std_string_Sc_CdiVariable_Sg__values(std::map< std::string,CdiVariable > *self){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->second) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *std_map_Sl_std_string_Sc_CdiVariable_Sg__each_value(std::map< std::string,CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->second );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_std_string_Sc_CdiVariable_Sg__entries(std::map< std::string,CdiVariable > *self){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from<std::pair<std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::key_type,
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::mapped_type> >(*i) );
+ }
+ return ary;
+ }
+SWIGINTERN bool std_map_Sl_std_string_Sc_CdiVariable_Sg____contains__(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_std_string_Sc_CdiVariable_Sg__key_iterator(std::map< std::string,CdiVariable > *self,VALUE *RUBY_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_std_string_Sc_CdiVariable_Sg__value_iterator(std::map< std::string,CdiVariable > *self,VALUE *RUBY_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN VALUE std_map_Sl_std_string_Sc_CdiVariable_Sg____getitem__(std::map< std::string,CdiVariable > const *self,std::map< std::string,CdiVariable >::key_type const &key){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->find(key);
+ if ( i != self->end() )
+ return swig::from<std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::mapped_type>( i->second );
+ else
+ return Qnil;
+ }
+SWIGINTERN void std_map_Sl_std_string_Sc_CdiVariable_Sg____setitem__(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::key_type const &key,std::map< std::string,CdiVariable >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN VALUE std_map_Sl_std_string_Sc_CdiVariable_Sg__inspect(std::map< std::string,CdiVariable > *self){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > >();
+ VALUE str = rb_str_new2( type_name );
+ str = rb_str_cat2( str, " {" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::key_type >( i->first );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ str = rb_str_cat2( str, "=>" );
+ tmp = swig::from< std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::mapped_type >( i->second );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "}" );
+ return str;
+ }
+SWIGINTERN VALUE std_map_Sl_std_string_Sc_CdiVariable_Sg__to_a(std::map< std::string,CdiVariable > *self){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::key_type,
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::mapped_type> >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_map_Sl_std_string_Sc_CdiVariable_Sg__to_s(std::map< std::string,CdiVariable > *self){
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator i = self->begin();
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::key_type,
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::mapped_type> >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN void std_map_Sl_std_string_Sc_CdiVariable_Sg__erase__SWIG_1(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_std_string_Sc_CdiVariable_Sg__erase__SWIG_2(std::map< std::string,CdiVariable > *self,std::map< std::string,CdiVariable >::iterator first,std::map< std::string,CdiVariable >::iterator last){ self->erase(first, last); }
+
+ namespace swig {
+ template <> struct traits<std::pair< int, CdiVariable > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "int" "," "CdiVariable" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< int, CdiVariable, std::less< int >, std::allocator< std::pair< int const,CdiVariable > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "int" "," "CdiVariable" "," "std::less< int >" "," "std::allocator< std::pair< int const,CdiVariable > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *std_map_Sl_int_Sc_CdiVariable_Sg__dup(std::map< int,CdiVariable > *self){
+ return new std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >(*self);
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiVariable_Sg____delete__(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::key_type const &key){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator i = self->find(key);
+ if (i != self->end()) {
+ self->erase(i);
+ return swig::from( key );
+ }
+ else {
+ return Qnil;
+ }
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiVariable_Sg__has_key(std::map< int,CdiVariable > const *self,std::map< int,CdiVariable >::key_type const &key){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiVariable_Sg__keys(std::map< int,CdiVariable > *self){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->first) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *std_map_Sl_int_Sc_CdiVariable_Sg__each(std::map< int,CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE k, v;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ const std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::key_type& key = i->first;
+ const std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::mapped_type& val = i->second;
+
+ k = swig::from<std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::key_type>(key);
+ v = swig::from<std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::mapped_type>(val);
+ rb_yield_values(2, k, v);
+ }
+
+ return self;
+ }
+SWIGINTERN std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *std_map_Sl_int_Sc_CdiVariable_Sg__select(std::map< int,CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >* r = new std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE k = swig::from<std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::key_type>(i->first);
+ VALUE v = swig::from<std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::mapped_type>(i->second);
+ if ( RTEST( rb_yield_values(2, k, v) ) )
+ self->insert(r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiVariable_Sg__values_at(std::map< int,CdiVariable > *self,int argc,VALUE *argv,...){
+
+ VALUE r = rb_ary_new();
+ ID id = rb_intern("[]");
+ swig_type_info* type = swig::type_info< std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > >();
+ VALUE me = SWIG_NewPointerObj( self, type, 0 );
+ for ( int i = 0; i < argc; ++i )
+ {
+ VALUE key = argv[i];
+ VALUE tmp = rb_funcall( me, id, 1, key );
+ rb_ary_push( r, tmp );
+ }
+
+ return r;
+ }
+SWIGINTERN std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *std_map_Sl_int_Sc_CdiVariable_Sg__each_key(std::map< int,CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->first );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiVariable_Sg__values(std::map< int,CdiVariable > *self){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->second) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *std_map_Sl_int_Sc_CdiVariable_Sg__each_value(std::map< int,CdiVariable > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->second );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiVariable_Sg__entries(std::map< int,CdiVariable > *self){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from<std::pair<std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::key_type,
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::mapped_type> >(*i) );
+ }
+ return ary;
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiVariable_Sg____contains__(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_int_Sc_CdiVariable_Sg__key_iterator(std::map< int,CdiVariable > *self,VALUE *RUBY_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_int_Sc_CdiVariable_Sg__value_iterator(std::map< int,CdiVariable > *self,VALUE *RUBY_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiVariable_Sg____getitem__(std::map< int,CdiVariable > const *self,std::map< int,CdiVariable >::key_type const &key){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->find(key);
+ if ( i != self->end() )
+ return swig::from<std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::mapped_type>( i->second );
+ else
+ return Qnil;
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiVariable_Sg____setitem__(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::key_type const &key,std::map< int,CdiVariable >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiVariable_Sg__inspect(std::map< int,CdiVariable > *self){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > >();
+ VALUE str = rb_str_new2( type_name );
+ str = rb_str_cat2( str, " {" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::key_type >( i->first );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ str = rb_str_cat2( str, "=>" );
+ tmp = swig::from< std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::mapped_type >( i->second );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "}" );
+ return str;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiVariable_Sg__to_a(std::map< int,CdiVariable > *self){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::key_type,
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::mapped_type> >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiVariable_Sg__to_s(std::map< int,CdiVariable > *self){
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator i = self->begin();
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::key_type,
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::mapped_type> >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiVariable_Sg__erase__SWIG_1(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_int_Sc_CdiVariable_Sg__erase__SWIG_2(std::map< int,CdiVariable > *self,std::map< int,CdiVariable >::iterator first,std::map< int,CdiVariable >::iterator last){ self->erase(first, last); }
+
+ namespace swig {
+ template <> struct traits< CdiTaxis > {
+ typedef pointer_category category;
+ static const char* type_name() { return"CdiTaxis"; }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::pair< int, CdiTaxis > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "int" "," "CdiTaxis" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< int, CdiTaxis, std::less< int >, std::allocator< std::pair< int const,CdiTaxis > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "int" "," "CdiTaxis" "," "std::less< int >" "," "std::allocator< std::pair< int const,CdiTaxis > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *std_map_Sl_int_Sc_CdiTaxis_Sg__dup(std::map< int,CdiTaxis > *self){
+ return new std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >(*self);
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiTaxis_Sg____delete__(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::key_type const &key){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator i = self->find(key);
+ if (i != self->end()) {
+ self->erase(i);
+ return swig::from( key );
+ }
+ else {
+ return Qnil;
+ }
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiTaxis_Sg__has_key(std::map< int,CdiTaxis > const *self,std::map< int,CdiTaxis >::key_type const &key){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiTaxis_Sg__keys(std::map< int,CdiTaxis > *self){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->first) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *std_map_Sl_int_Sc_CdiTaxis_Sg__each(std::map< int,CdiTaxis > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE k, v;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ const std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::key_type& key = i->first;
+ const std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::mapped_type& val = i->second;
+
+ k = swig::from<std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::key_type>(key);
+ v = swig::from<std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::mapped_type>(val);
+ rb_yield_values(2, k, v);
+ }
+
+ return self;
+ }
+SWIGINTERN std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *std_map_Sl_int_Sc_CdiTaxis_Sg__select(std::map< int,CdiTaxis > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >* r = new std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE k = swig::from<std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::key_type>(i->first);
+ VALUE v = swig::from<std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::mapped_type>(i->second);
+ if ( RTEST( rb_yield_values(2, k, v) ) )
+ self->insert(r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiTaxis_Sg__values_at(std::map< int,CdiTaxis > *self,int argc,VALUE *argv,...){
+
+ VALUE r = rb_ary_new();
+ ID id = rb_intern("[]");
+ swig_type_info* type = swig::type_info< std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > >();
+ VALUE me = SWIG_NewPointerObj( self, type, 0 );
+ for ( int i = 0; i < argc; ++i )
+ {
+ VALUE key = argv[i];
+ VALUE tmp = rb_funcall( me, id, 1, key );
+ rb_ary_push( r, tmp );
+ }
+
+ return r;
+ }
+SWIGINTERN std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *std_map_Sl_int_Sc_CdiTaxis_Sg__each_key(std::map< int,CdiTaxis > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->first );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiTaxis_Sg__values(std::map< int,CdiTaxis > *self){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->second) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *std_map_Sl_int_Sc_CdiTaxis_Sg__each_value(std::map< int,CdiTaxis > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->second );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiTaxis_Sg__entries(std::map< int,CdiTaxis > *self){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from<std::pair<std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::key_type,
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::mapped_type> >(*i) );
+ }
+ return ary;
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiTaxis_Sg____contains__(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_int_Sc_CdiTaxis_Sg__key_iterator(std::map< int,CdiTaxis > *self,VALUE *RUBY_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_int_Sc_CdiTaxis_Sg__value_iterator(std::map< int,CdiTaxis > *self,VALUE *RUBY_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiTaxis_Sg____getitem__(std::map< int,CdiTaxis > const *self,std::map< int,CdiTaxis >::key_type const &key){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->find(key);
+ if ( i != self->end() )
+ return swig::from<std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::mapped_type>( i->second );
+ else
+ return Qnil;
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiTaxis_Sg____setitem__(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::key_type const &key,std::map< int,CdiTaxis >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiTaxis_Sg__inspect(std::map< int,CdiTaxis > *self){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > >();
+ VALUE str = rb_str_new2( type_name );
+ str = rb_str_cat2( str, " {" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::key_type >( i->first );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ str = rb_str_cat2( str, "=>" );
+ tmp = swig::from< std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::mapped_type >( i->second );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "}" );
+ return str;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiTaxis_Sg__to_a(std::map< int,CdiTaxis > *self){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::key_type,
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::mapped_type> >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiTaxis_Sg__to_s(std::map< int,CdiTaxis > *self){
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator i = self->begin();
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::key_type,
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::mapped_type> >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiTaxis_Sg__erase__SWIG_1(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_int_Sc_CdiTaxis_Sg__erase__SWIG_2(std::map< int,CdiTaxis > *self,std::map< int,CdiTaxis >::iterator first,std::map< int,CdiTaxis >::iterator last){ self->erase(first, last); }
+
+ namespace swig {
+ template <> struct traits< CdiZaxis > {
+ typedef pointer_category category;
+ static const char* type_name() { return"CdiZaxis"; }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::pair< int, CdiZaxis > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "int" "," "CdiZaxis" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< int, CdiZaxis, std::less< int >, std::allocator< std::pair< int const,CdiZaxis > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "int" "," "CdiZaxis" "," "std::less< int >" "," "std::allocator< std::pair< int const,CdiZaxis > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *std_map_Sl_int_Sc_CdiZaxis_Sg__dup(std::map< int,CdiZaxis > *self){
+ return new std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >(*self);
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiZaxis_Sg____delete__(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::key_type const &key){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator i = self->find(key);
+ if (i != self->end()) {
+ self->erase(i);
+ return swig::from( key );
+ }
+ else {
+ return Qnil;
+ }
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiZaxis_Sg__has_key(std::map< int,CdiZaxis > const *self,std::map< int,CdiZaxis >::key_type const &key){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiZaxis_Sg__keys(std::map< int,CdiZaxis > *self){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->first) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *std_map_Sl_int_Sc_CdiZaxis_Sg__each(std::map< int,CdiZaxis > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE k, v;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ const std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::key_type& key = i->first;
+ const std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::mapped_type& val = i->second;
+
+ k = swig::from<std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::key_type>(key);
+ v = swig::from<std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::mapped_type>(val);
+ rb_yield_values(2, k, v);
+ }
+
+ return self;
+ }
+SWIGINTERN std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *std_map_Sl_int_Sc_CdiZaxis_Sg__select(std::map< int,CdiZaxis > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >* r = new std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE k = swig::from<std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::key_type>(i->first);
+ VALUE v = swig::from<std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::mapped_type>(i->second);
+ if ( RTEST( rb_yield_values(2, k, v) ) )
+ self->insert(r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiZaxis_Sg__values_at(std::map< int,CdiZaxis > *self,int argc,VALUE *argv,...){
+
+ VALUE r = rb_ary_new();
+ ID id = rb_intern("[]");
+ swig_type_info* type = swig::type_info< std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > >();
+ VALUE me = SWIG_NewPointerObj( self, type, 0 );
+ for ( int i = 0; i < argc; ++i )
+ {
+ VALUE key = argv[i];
+ VALUE tmp = rb_funcall( me, id, 1, key );
+ rb_ary_push( r, tmp );
+ }
+
+ return r;
+ }
+SWIGINTERN std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *std_map_Sl_int_Sc_CdiZaxis_Sg__each_key(std::map< int,CdiZaxis > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->first );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiZaxis_Sg__values(std::map< int,CdiZaxis > *self){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->second) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *std_map_Sl_int_Sc_CdiZaxis_Sg__each_value(std::map< int,CdiZaxis > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->second );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiZaxis_Sg__entries(std::map< int,CdiZaxis > *self){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from<std::pair<std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::key_type,
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::mapped_type> >(*i) );
+ }
+ return ary;
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiZaxis_Sg____contains__(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_int_Sc_CdiZaxis_Sg__key_iterator(std::map< int,CdiZaxis > *self,VALUE *RUBY_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_int_Sc_CdiZaxis_Sg__value_iterator(std::map< int,CdiZaxis > *self,VALUE *RUBY_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiZaxis_Sg____getitem__(std::map< int,CdiZaxis > const *self,std::map< int,CdiZaxis >::key_type const &key){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->find(key);
+ if ( i != self->end() )
+ return swig::from<std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::mapped_type>( i->second );
+ else
+ return Qnil;
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiZaxis_Sg____setitem__(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::key_type const &key,std::map< int,CdiZaxis >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiZaxis_Sg__inspect(std::map< int,CdiZaxis > *self){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > >();
+ VALUE str = rb_str_new2( type_name );
+ str = rb_str_cat2( str, " {" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::key_type >( i->first );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ str = rb_str_cat2( str, "=>" );
+ tmp = swig::from< std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::mapped_type >( i->second );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "}" );
+ return str;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiZaxis_Sg__to_a(std::map< int,CdiZaxis > *self){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::key_type,
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::mapped_type> >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiZaxis_Sg__to_s(std::map< int,CdiZaxis > *self){
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator i = self->begin();
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::key_type,
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::mapped_type> >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiZaxis_Sg__erase__SWIG_1(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_int_Sc_CdiZaxis_Sg__erase__SWIG_2(std::map< int,CdiZaxis > *self,std::map< int,CdiZaxis >::iterator first,std::map< int,CdiZaxis >::iterator last){ self->erase(first, last); }
+
+ namespace swig {
+ template <> struct traits< CdiGrid > {
+ typedef pointer_category category;
+ static const char* type_name() { return"CdiGrid"; }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::pair< int, CdiGrid > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::pair<" "int" "," "CdiGrid" " >";
+ }
+ };
+ }
+
+
+ namespace swig {
+ template <> struct traits<std::map< int, CdiGrid, std::less< int >, std::allocator< std::pair< int const,CdiGrid > > > > {
+ typedef pointer_category category;
+ static const char* type_name() {
+ return "std::map<" "int" "," "CdiGrid" "," "std::less< int >" "," "std::allocator< std::pair< int const,CdiGrid > >" " >";
+ }
+ };
+ }
+
+SWIGINTERN std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *std_map_Sl_int_Sc_CdiGrid_Sg__dup(std::map< int,CdiGrid > *self){
+ return new std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >(*self);
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiGrid_Sg____delete__(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::key_type const &key){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator i = self->find(key);
+ if (i != self->end()) {
+ self->erase(i);
+ return swig::from( key );
+ }
+ else {
+ return Qnil;
+ }
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiGrid_Sg__has_key(std::map< int,CdiGrid > const *self,std::map< int,CdiGrid >::key_type const &key){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->find(key);
+ return i != self->end();
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiGrid_Sg__keys(std::map< int,CdiGrid > *self){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->first) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *std_map_Sl_int_Sc_CdiGrid_Sg__each(std::map< int,CdiGrid > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE k, v;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ const std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::key_type& key = i->first;
+ const std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::mapped_type& val = i->second;
+
+ k = swig::from<std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::key_type>(key);
+ v = swig::from<std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::mapped_type>(val);
+ rb_yield_values(2, k, v);
+ }
+
+ return self;
+ }
+SWIGINTERN std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *std_map_Sl_int_Sc_CdiGrid_Sg__select(std::map< int,CdiGrid > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given" );
+
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >* r = new std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ VALUE k = swig::from<std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::key_type>(i->first);
+ VALUE v = swig::from<std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::mapped_type>(i->second);
+ if ( RTEST( rb_yield_values(2, k, v) ) )
+ self->insert(r->end(), *i);
+ }
+
+ return r;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiGrid_Sg__values_at(std::map< int,CdiGrid > *self,int argc,VALUE *argv,...){
+
+ VALUE r = rb_ary_new();
+ ID id = rb_intern("[]");
+ swig_type_info* type = swig::type_info< std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > >();
+ VALUE me = SWIG_NewPointerObj( self, type, 0 );
+ for ( int i = 0; i < argc; ++i )
+ {
+ VALUE key = argv[i];
+ VALUE tmp = rb_funcall( me, id, 1, key );
+ rb_ary_push( r, tmp );
+ }
+
+ return r;
+ }
+SWIGINTERN std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *std_map_Sl_int_Sc_CdiGrid_Sg__each_key(std::map< int,CdiGrid > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->first );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiGrid_Sg__values(std::map< int,CdiGrid > *self){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from(i->second) );
+ }
+ return ary;
+ }
+SWIGINTERN std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *std_map_Sl_int_Sc_CdiGrid_Sg__each_value(std::map< int,CdiGrid > *self){
+ if ( !rb_block_given_p() )
+ rb_raise( rb_eArgError, "no block given");
+
+ VALUE r;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator e = self->end();
+ for ( ; i != e; ++i )
+ {
+ r = swig::from( i->second );
+ rb_yield(r);
+ }
+
+ return self;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiGrid_Sg__entries(std::map< int,CdiGrid > *self){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type size = self->size();
+ int rubysize = (size <= (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::size_type) INT_MAX) ? (int) size : -1;
+ if (rubysize < 0) {
+ SWIG_RUBY_THREAD_BEGIN_BLOCK;
+ rb_raise(rb_eRuntimeError, "map size not valid in Ruby");
+ SWIG_RUBY_THREAD_END_BLOCK;
+ return Qnil;
+ }
+ VALUE ary = rb_ary_new2(rubysize);
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator e = self->end();
+ for ( ; i != e; ++i ) {
+ rb_ary_push( ary, swig::from<std::pair<std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::key_type,
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::mapped_type> >(*i) );
+ }
+ return ary;
+ }
+SWIGINTERN bool std_map_Sl_int_Sc_CdiGrid_Sg____contains__(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::key_type const &key){
+ return self->find(key) != self->end();
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_int_Sc_CdiGrid_Sg__key_iterator(std::map< int,CdiGrid > *self,VALUE *RUBY_SELF){
+ return swig::make_output_key_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN swig::ConstIterator *std_map_Sl_int_Sc_CdiGrid_Sg__value_iterator(std::map< int,CdiGrid > *self,VALUE *RUBY_SELF){
+ return swig::make_output_value_iterator(self->begin(), self->begin(),
+ self->end(), *RUBY_SELF);
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiGrid_Sg____getitem__(std::map< int,CdiGrid > const *self,std::map< int,CdiGrid >::key_type const &key){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->find(key);
+ if ( i != self->end() )
+ return swig::from<std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::mapped_type>( i->second );
+ else
+ return Qnil;
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiGrid_Sg____setitem__(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::key_type const &key,std::map< int,CdiGrid >::mapped_type const &x){
+ (*self)[key] = x;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiGrid_Sg__inspect(std::map< int,CdiGrid > *self){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator e = self->end();
+ const char *type_name = swig::type_name< std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > >();
+ VALUE str = rb_str_new2( type_name );
+ str = rb_str_cat2( str, " {" );
+ bool comma = false;
+ VALUE tmp;
+ for ( ; i != e; ++i, comma = true )
+ {
+ if (comma) str = rb_str_cat2( str, "," );
+ tmp = swig::from< std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::key_type >( i->first );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ str = rb_str_cat2( str, "=>" );
+ tmp = swig::from< std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::mapped_type >( i->second );
+ tmp = rb_inspect( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ str = rb_str_cat2( str, "}" );
+ return str;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiGrid_Sg__to_a(std::map< int,CdiGrid > *self){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::const_iterator e = self->end();
+ VALUE ary = rb_ary_new2( std::distance( i, e ) );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::key_type,
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::mapped_type> >( *i );
+ rb_ary_push( ary, tmp );
+ }
+ return ary;
+ }
+SWIGINTERN VALUE std_map_Sl_int_Sc_CdiGrid_Sg__to_s(std::map< int,CdiGrid > *self){
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator i = self->begin();
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator e = self->end();
+ VALUE str = rb_str_new2( "" );
+ VALUE tmp;
+ for ( ; i != e; ++i )
+ {
+ // @todo: improve -- this should just be swig::from(*i)
+ tmp = swig::from< std::pair<std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::key_type,
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::mapped_type> >( *i );
+ tmp = rb_obj_as_string( tmp );
+ str = rb_str_buf_append( str, tmp );
+ }
+ return str;
+ }
+SWIGINTERN void std_map_Sl_int_Sc_CdiGrid_Sg__erase__SWIG_1(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::iterator position){ self->erase(position); }
+SWIGINTERN void std_map_Sl_int_Sc_CdiGrid_Sg__erase__SWIG_2(std::map< int,CdiGrid > *self,std::map< int,CdiGrid >::iterator first,std::map< int,CdiGrid >::iterator last){ self->erase(first, last); }
+
+SWIGINTERN int
+SWIG_AsVal_bool (VALUE obj, bool *val)
+{
+ if (obj == Qtrue) {
+ if (val) *val = true;
+ return SWIG_OK;
+ } else if (obj == Qfalse) {
+ if (val) *val = false;
+ return SWIG_OK;
+ } else {
+ int res = 0;
+ if (SWIG_AsVal_int (obj, &res) == SWIG_OK) {
+ if (val) *val = res ? true : false;
+ return SWIG_OK;
+ }
+ }
+ return SWIG_TypeError;
+}
+
+
+SWIGINTERN int
+SWIG_AsCharArray(VALUE obj, char *val, size_t size)
+{
+ char* cptr = 0; size_t csize = 0; int alloc = SWIG_OLDOBJ;
+ int res = SWIG_AsCharPtrAndSize(obj, &cptr, &csize, &alloc);
+ if (SWIG_IsOK(res)) {
+ /* special case of single char conversion when we don't need space for NUL */
+ if (size == 1 && csize == 2 && cptr && !cptr[1]) --csize;
+ if (csize <= size) {
+ if (val) {
+ if (csize) memcpy(val, cptr, csize*sizeof(char));
+ if (csize < size) memset(val + csize, 0, (size - csize)*sizeof(char));
+ }
+ if (alloc == SWIG_NEWOBJ) {
+ delete[] cptr;
+ res = SWIG_DelNewMask(res);
+ }
+ return res;
+ }
+ if (alloc == SWIG_NEWOBJ) delete[] cptr;
+ }
+ return SWIG_TypeError;
+}
+
+
+SWIGINTERN size_t
+SWIG_strnlen(const char* s, size_t maxlen)
+{
+ const char *p;
+ for (p = s; maxlen-- && *p; p++)
+ ;
+ return p - s;
+}
+
+
+
+
+
+SWIGINTERNINLINE VALUE
+SWIG_FromCharPtr(const char *cptr)
+{
+ return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
+}
+
+static swig_class SwigClassGC_VALUE;
+
+/*
+ Document-method: Cdi::GC_VALUE.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_GC_VALUE_inspect(int argc, VALUE *argv, VALUE self) {
+ swig::GC_VALUE *arg1 = (swig::GC_VALUE *) 0 ;
+ swig::GC_VALUE r1 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ r1 = self; arg1 = &r1;
+ result = (VALUE)((swig::GC_VALUE const *)arg1)->inspect();
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GC_VALUE.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_GC_VALUE_to_s(int argc, VALUE *argv, VALUE self) {
+ swig::GC_VALUE *arg1 = (swig::GC_VALUE *) 0 ;
+ swig::GC_VALUE r1 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ r1 = self; arg1 = &r1;
+ result = (VALUE)((swig::GC_VALUE const *)arg1)->to_s();
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+static swig_class SwigClassConstIterator;
+
+SWIGINTERN void
+free_swig_ConstIterator(void *self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *)self;
+ delete arg1;
+}
+
+SWIGINTERN VALUE
+_wrap_ConstIterator_value(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator const *","value", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ try {
+ result = (VALUE)((swig::ConstIterator const *)arg1)->value();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_Ruby_ExceptionType(NULL, Qnil);
+ SWIG_fail;
+ }
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ConstIterator.dup
+
+ call-seq:
+ dup -> ConstIterator
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_ConstIterator_dup(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator const *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ result = (swig::ConstIterator *)((swig::ConstIterator const *)arg1)->dup();
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ConstIterator.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_ConstIterator_inspect(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator const *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ result = (VALUE)((swig::ConstIterator const *)arg1)->inspect();
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ConstIterator.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_ConstIterator_to_s(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator const *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ result = (VALUE)((swig::ConstIterator const *)arg1)->to_s();
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ConstIterator_next__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ size_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator *","next", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "size_t","next", 2, argv[0] ));
+ }
+ arg2 = static_cast< size_t >(val2);
+ result = (swig::ConstIterator *)(arg1)->next(arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ConstIterator_next__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator *","next", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ try {
+ result = (swig::ConstIterator *)(arg1)->next();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_Ruby_ExceptionType(NULL, Qnil);
+ SWIG_fail;
+ }
+ }
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_ConstIterator_next(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 3) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__ConstIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_ConstIterator_next__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__ConstIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_ConstIterator_next__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "ConstIterator.next",
+ " swig::ConstIterator ConstIterator.next(size_t n)\n"
+ " swig::ConstIterator * ConstIterator.next()\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ConstIterator_previous__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ size_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator *","previous", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "size_t","previous", 2, argv[0] ));
+ }
+ arg2 = static_cast< size_t >(val2);
+ result = (swig::ConstIterator *)(arg1)->previous(arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ConstIterator_previous__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator *","previous", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ try {
+ result = (swig::ConstIterator *)(arg1)->previous();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_Ruby_ExceptionType(NULL, Qnil);
+ SWIG_fail;
+ }
+ }
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_ConstIterator_previous(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 3) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__ConstIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_ConstIterator_previous__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__ConstIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_ConstIterator_previous__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "ConstIterator.previous",
+ " swig::ConstIterator ConstIterator.previous(size_t n)\n"
+ " swig::ConstIterator * ConstIterator.previous()\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ConstIterator.==
+
+ call-seq:
+ ==(x) -> bool
+
+Equality comparison operator.
+*/
+SWIGINTERN VALUE
+_wrap_ConstIterator___eq__(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ swig::ConstIterator *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator const *","operator ==", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_swig__ConstIterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "swig::ConstIterator const &","operator ==", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "swig::ConstIterator const &","operator ==", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< swig::ConstIterator * >(argp2);
+ result = (bool)((swig::ConstIterator const *)arg1)->operator ==((swig::ConstIterator const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ConstIterator.+
+
+ call-seq:
+ +(n) -> ConstIterator
+
+Add operator.
+*/
+SWIGINTERN VALUE
+_wrap_ConstIterator___add__(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ ptrdiff_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator const *","operator +", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "ptrdiff_t","operator +", 2, argv[0] ));
+ }
+ arg2 = static_cast< ptrdiff_t >(val2);
+ try {
+ result = (swig::ConstIterator *)((swig::ConstIterator const *)arg1)->operator +(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_Ruby_ExceptionType(NULL, Qnil);
+ SWIG_fail;
+ }
+ }
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ConstIterator.-
+
+ call-seq:
+ -(n) -> ConstIterator
+ -(x) -> ptrdiff_t
+
+Substraction operator.
+*/
+SWIGINTERN VALUE
+_wrap_ConstIterator___sub____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ ptrdiff_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator const *","operator -", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "ptrdiff_t","operator -", 2, argv[0] ));
+ }
+ arg2 = static_cast< ptrdiff_t >(val2);
+ try {
+ result = (swig::ConstIterator *)((swig::ConstIterator const *)arg1)->operator -(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_Ruby_ExceptionType(NULL, Qnil);
+ SWIG_fail;
+ }
+ }
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ConstIterator___sub____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ swig::ConstIterator *arg1 = (swig::ConstIterator *) 0 ;
+ swig::ConstIterator *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ ptrdiff_t result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__ConstIterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::ConstIterator const *","operator -", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::ConstIterator * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_swig__ConstIterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "swig::ConstIterator const &","operator -", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "swig::ConstIterator const &","operator -", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< swig::ConstIterator * >(argp2);
+ result = ((swig::ConstIterator const *)arg1)->operator -((swig::ConstIterator const &)*arg2);
+ vresult = SWIG_From_ptrdiff_t(static_cast< ptrdiff_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_ConstIterator___sub__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 3) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__ConstIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_ConstIterator___sub____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__ConstIterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_ConstIterator___sub____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "ConstIterator.__sub__",
+ " swig::ConstIterator ConstIterator.__sub__(ptrdiff_t n)\n"
+ " ptrdiff_t ConstIterator.__sub__(swig::ConstIterator const &x)\n");
+
+ return Qnil;
+}
+
+
+static swig_class SwigClassIterator;
+
+SWIGINTERN VALUE
+_wrap_Iterator_valuee___(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ VALUE *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE temp2 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator *","setValue", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ temp2 = static_cast< VALUE >(argv[0]);
+ arg2 = &temp2;
+ result = (VALUE)(arg1)->setValue((VALUE const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::Iterator.dup
+
+ call-seq:
+ dup -> Iterator
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_Iterator_dup(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator const *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ result = (swig::Iterator *)((swig::Iterator const *)arg1)->dup();
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__Iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Iterator_next__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ size_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ swig::Iterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator *","next", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "size_t","next", 2, argv[0] ));
+ }
+ arg2 = static_cast< size_t >(val2);
+ result = (swig::Iterator *)(arg1)->next(arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Iterator_next__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator *","next", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ try {
+ result = (swig::Iterator *)(arg1)->next();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_Ruby_ExceptionType(NULL, Qnil);
+ SWIG_fail;
+ }
+ }
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_Iterator_next(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 3) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__Iterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_Iterator_next__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__Iterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_Iterator_next__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "Iterator.next",
+ " swig::Iterator Iterator.next(size_t n)\n"
+ " swig::Iterator * Iterator.next()\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Iterator_previous__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ size_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ swig::Iterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator *","previous", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "size_t","previous", 2, argv[0] ));
+ }
+ arg2 = static_cast< size_t >(val2);
+ result = (swig::Iterator *)(arg1)->previous(arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Iterator_previous__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator *","previous", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ try {
+ result = (swig::Iterator *)(arg1)->previous();
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_Ruby_ExceptionType(NULL, Qnil);
+ SWIG_fail;
+ }
+ }
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_Iterator_previous(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 3) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__Iterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_Iterator_previous__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__Iterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_Iterator_previous__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "Iterator.previous",
+ " swig::Iterator Iterator.previous(size_t n)\n"
+ " swig::Iterator * Iterator.previous()\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::Iterator.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_Iterator_inspect(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator const *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ result = (VALUE)((swig::Iterator const *)arg1)->inspect();
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::Iterator.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_Iterator_to_s(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator const *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ result = (VALUE)((swig::Iterator const *)arg1)->to_s();
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::Iterator.==
+
+ call-seq:
+ ==(x) -> bool
+
+Equality comparison operator.
+*/
+SWIGINTERN VALUE
+_wrap_Iterator___eq__(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ swig::Iterator *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator const *","operator ==", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_swig__Iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "swig::Iterator const &","operator ==", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "swig::Iterator const &","operator ==", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< swig::Iterator * >(argp2);
+ result = (bool)((swig::Iterator const *)arg1)->operator ==((swig::Iterator const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::Iterator.+
+
+ call-seq:
+ +(n) -> Iterator
+
+Add operator.
+*/
+SWIGINTERN VALUE
+_wrap_Iterator___add__(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ ptrdiff_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ swig::Iterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator const *","operator +", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "ptrdiff_t","operator +", 2, argv[0] ));
+ }
+ arg2 = static_cast< ptrdiff_t >(val2);
+ try {
+ result = (swig::Iterator *)((swig::Iterator const *)arg1)->operator +(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_Ruby_ExceptionType(NULL, Qnil);
+ SWIG_fail;
+ }
+ }
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__Iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::Iterator.-
+
+ call-seq:
+ -(n) -> Iterator
+ -(x) -> ptrdiff_t
+
+Substraction operator.
+*/
+SWIGINTERN VALUE
+_wrap_Iterator___sub____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ ptrdiff_t arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ swig::Iterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator const *","operator -", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "ptrdiff_t","operator -", 2, argv[0] ));
+ }
+ arg2 = static_cast< ptrdiff_t >(val2);
+ try {
+ result = (swig::Iterator *)((swig::Iterator const *)arg1)->operator -(arg2);
+ } catch(swig::stop_iteration &_e) {
+ {
+ (void)_e;
+ SWIG_Ruby_ExceptionType(NULL, Qnil);
+ SWIG_fail;
+ }
+ }
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__Iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Iterator___sub____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ swig::Iterator *arg1 = (swig::Iterator *) 0 ;
+ swig::Iterator *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ ptrdiff_t result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_swig__Iterator, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "swig::Iterator const *","operator -", 1, self ));
+ }
+ arg1 = reinterpret_cast< swig::Iterator * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_swig__Iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "swig::Iterator const &","operator -", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "swig::Iterator const &","operator -", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< swig::Iterator * >(argp2);
+ result = ((swig::Iterator const *)arg1)->operator -((swig::Iterator const &)*arg2);
+ vresult = SWIG_From_ptrdiff_t(static_cast< ptrdiff_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_Iterator___sub__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 3) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__Iterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_swig__Iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_Iterator___sub____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_swig__Iterator, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_Iterator___sub____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "Iterator.__sub__",
+ " swig::Iterator Iterator.__sub__(ptrdiff_t n)\n"
+ " ptrdiff_t Iterator.__sub__(swig::Iterator const &x)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_swig_Iterator(void *self) {
+ swig::Iterator *arg1 = (swig::Iterator *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassIntVector;
+
+/*
+ Document-method: Cdi::IntVector.dup
+
+ call-seq:
+ dup -> IntVector
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_dup(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_inspect(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (VALUE)std_vector_Sl_int_Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert IntVector to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_to_a(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (VALUE)std_vector_Sl_int_Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_to_s(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (VALUE)std_vector_Sl_int_Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.slice
+
+ call-seq:
+ slice(i, length) -> VALUE
+
+Return a slice (portion of) the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_slice(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ std::vector< int >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","slice", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","slice", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","slice", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< int >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_int_Sg__slice(arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.each
+
+ call-seq:
+ each -> IntVector
+
+Iterate thru each element in the IntVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_each(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_IntVector___delete2__(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::value_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","__delete2__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::value_type","__delete2__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::vector< int >::value_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_vector_Sl_int_Sg____delete2__(arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.select
+
+ call-seq:
+ select -> IntVector
+
+Iterate thru each element in the IntVector and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_select(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.delete_at
+
+ call-seq:
+ delete_at(i) -> VALUE
+
+Delete an element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_delete_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","delete_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","delete_at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_int_Sg__delete_at(arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.at
+
+ call-seq:
+ at(i) -> VALUE
+
+Return element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_int_Sg__at((std::vector< int > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.[]
+
+ call-seq:
+ [](i, length) -> VALUE
+ [](i) -> VALUE
+ [](i) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector___getitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ std::vector< int >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","__getitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< int >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_int_Sg____getitem____SWIG_0((std::vector< int > const *)arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_IntVector___getitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_int_Sg____getitem____SWIG_1((std::vector< int > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_IntVector___getitem____SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ VALUE arg2 = (VALUE) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ arg2 = argv[0];
+ try {
+ result = (VALUE)std_vector_Sl_int_Sg____getitem____SWIG_2((std::vector< int > const *)arg1,arg2);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_IntVector___getitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector___getitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ _v = (argv[1] != 0);
+ if (_v) {
+ return _wrap_IntVector___getitem____SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector___getitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "__getitem__",
+ " VALUE __getitem__(std::vector< int >::difference_type i, std::vector< int >::difference_type length)\n"
+ " VALUE __getitem__(std::vector< int >::difference_type i)\n"
+ " VALUE __getitem__(VALUE i)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.[]=
+
+ call-seq:
+ []=(i, x) -> VALUE
+ []=(i, length, v) -> VALUE
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector___setitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ std::vector< int >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< int >::value_type temp3 ;
+ int val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_int(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< int >::value_type","__setitem__", 3, argv[1] ));
+ }
+ temp3 = static_cast< std::vector< int >::value_type >(val3);
+ arg3 = &temp3;
+ try {
+ result = (VALUE)std_vector_Sl_int_Sg____setitem____SWIG_0(arg1,arg2,(int const &)*arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_IntVector___setitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ std::vector< int >::difference_type arg3 ;
+ std::vector< int,std::allocator< int > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","__setitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< int >::difference_type >(val3);
+ {
+ std::vector< int,std::allocator< int > > *ptr = (std::vector< int,std::allocator< int > > *)0;
+ res4 = swig::asptr(argv[2], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), Ruby_Format_TypeError( "", "std::vector< int,std::allocator< int > > const &","__setitem__", 4, argv[2] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< int,std::allocator< int > > const &","__setitem__", 4, argv[2]));
+ }
+ arg4 = ptr;
+ }
+ try {
+ result = (VALUE)std_vector_Sl_int_Sg____setitem____SWIG_1(arg1,arg2,arg3,(std::vector< int,std::allocator< int > > const &)*arg4);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_IntVector___setitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector___setitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_IntVector___setitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "__setitem__",
+ " VALUE __setitem__(std::vector< int >::difference_type i, std::vector< int >::value_type const &x)\n"
+ " VALUE __setitem__(std::vector< int >::difference_type i, std::vector< int >::difference_type length, std::vector< int,std::allocator< int > > const &v)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.reject!
+
+ call-seq:
+ reject! -> IntVector
+
+Iterate thru each element in the IntVector and reject those that fail a condition. A block must be provided. IntVector is modified in place.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_rejectN___(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","reject_bang", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg__reject_bang(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.pop
+
+ call-seq:
+ pop -> VALUE
+
+Remove and return element at the end of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_pop(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","pop", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (VALUE)std_vector_Sl_int_Sg__pop(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.push
+
+ call-seq:
+ push(e) -> std::vector< int >::value_type const
+
+Add an element at the end of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_push(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::value_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::vector< int >::value_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","push", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::value_type","push", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::vector< int >::value_type >(val2);
+ arg2 = &temp2;
+ result = (std::vector< int >::value_type)std_vector_Sl_int_Sg__push(arg1,(int const &)*arg2);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.reject
+
+ call-seq:
+ reject -> IntVector
+
+Iterate thru each element in the IntVector and reject those that fail a condition returning a new IntVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_reject(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","reject", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg__reject(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.shift
+
+ call-seq:
+ shift -> VALUE
+
+Remove and return element at the beginning of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_shift(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","shift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (VALUE)std_vector_Sl_int_Sg__shift(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.insert
+
+ call-seq:
+ insert(pos, argc) -> IntVector
+ insert(pos, x) -> std::vector< int >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_insert__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::difference_type arg2 ;
+ int arg3 ;
+ VALUE *arg4 = (VALUE *) 0 ;
+ void *arg5 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 2) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::difference_type","insert", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::difference_type >(val2);
+ {
+ arg3 = argc - 1;
+ arg4 = argv + 1;
+ }
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg__insert__SWIG_0(arg1,arg2,arg3,arg4,arg5);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.unshift
+
+ call-seq:
+ unshift(argc) -> IntVector
+
+Add one or more elements at the beginning of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_unshift(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","unshift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg__unshift(arg1,arg2,arg3,arg4);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_IntVector__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::vector< int > *)new std::vector< int >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_IntVector__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< int > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::vector< int,std::allocator< int > > *ptr = (std::vector< int,std::allocator< int > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const &","vector<(int)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< int > const &","vector<(int)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< int > *)new std::vector< int >((std::vector< int > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the IntVector is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (bool)((std::vector< int > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.size
+
+ call-seq:
+ size -> std::vector< int >::size_type
+
+Size or Length of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_size(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = ((std::vector< int > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_IntVector_swap(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< int > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< int > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::vector< int > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.begin
+
+ call-seq:
+ begin -> std::vector< int >::iterator
+
+Return an iterator to the beginning of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_begin(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< int >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.end
+
+ call-seq:
+ end -> std::vector< int >::iterator
+
+Return an iterator to past the end of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_end(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< int >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.rbegin
+
+ call-seq:
+ rbegin -> std::vector< int >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< int >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.rend
+
+ call-seq:
+ rend -> std::vector< int >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_rend(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< int >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.clear
+
+ call-seq:
+ clear
+
+Clear IntVector contents.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_clear(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_IntVector_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< int > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = ((std::vector< int > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::vector< int >::allocator_type(static_cast< const std::vector< int >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_int_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_IntVector__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< int >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< int > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< int >::size_type","vector<(int)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< int >::size_type >(val1);
+ result = (std::vector< int > *)new std::vector< int >(arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_resize__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::size_type >(val2);
+ (arg1)->resize(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.erase
+
+ call-seq:
+ erase(pos) -> std::vector< int >::iterator
+ erase(first, last) -> std::vector< int >::iterator
+
+Delete a portion of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< int >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ result = std_vector_Sl_int_Sg__erase__SWIG_0(arg1,arg2);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< int >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_IntVector_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::iterator arg2 ;
+ std::vector< int >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ swig::Iterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< int >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ res3 = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter3), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","erase", 3, argv[1] ));
+ } else {
+ swig::Iterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","erase", 3, argv[1] ));
+ }
+ }
+ result = std_vector_Sl_int_Sg__erase__SWIG_1(arg1,arg2,arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< int >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_IntVector_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_IntVector_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_IntVector_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "erase",
+ " std::vector< int >::iterator erase(std::vector< int >::iterator pos)\n"
+ " std::vector< int >::iterator erase(std::vector< int >::iterator first, std::vector< int >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_IntVector_allocate(VALUE self)
+#else
+_wrap_IntVector_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_IntVector__SWIG_3(int argc, VALUE *argv, VALUE self) {
+ std::vector< int >::size_type arg1 ;
+ std::vector< int >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< int >::value_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::vector< int > *result = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< int >::size_type","vector<(int)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< int >::size_type >(val1);
+ ecode2 = SWIG_AsVal_int(argv[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::value_type","vector<(int)>", 2, argv[1] ));
+ }
+ temp2 = static_cast< std::vector< int >::value_type >(val2);
+ arg2 = &temp2;
+ result = (std::vector< int > *)new std::vector< int >(arg1,(std::vector< int >::value_type const &)*arg2);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_IntVector(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[2];
+ int ii;
+
+ argc = nargs;
+ if (argc > 2) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_IntVector__SWIG_0(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_IntVector__SWIG_2(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_IntVector__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_IntVector__SWIG_3(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 2, "IntVector.new",
+ " IntVector.new()\n"
+ " IntVector.new(std::vector< int > const &other)\n"
+ " IntVector.new(std::vector< int >::size_type size)\n"
+ " IntVector.new(std::vector< int >::size_type size, std::vector< int >::value_type const &value)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.front
+
+ call-seq:
+ front -> std::vector< int >::value_type const &
+
+Return the first element in IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_front(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","front", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int >::value_type *) &((std::vector< int > const *)arg1)->front();
+ vresult = SWIG_From_int(static_cast< int >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.back
+
+ call-seq:
+ back -> std::vector< int >::value_type const &
+
+Return the last element in IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_back(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","back", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int >::value_type *) &((std::vector< int > const *)arg1)->back();
+ vresult = SWIG_From_int(static_cast< int >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.assign
+
+ call-seq:
+ assign(n, x)
+
+Assign a new IntVector or portion of it.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_assign(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::size_type arg2 ;
+ std::vector< int >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< int >::value_type temp3 ;
+ int val3 ;
+ int ecode3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","assign", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::size_type","assign", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::size_type >(val2);
+ ecode3 = SWIG_AsVal_int(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< int >::value_type","assign", 3, argv[1] ));
+ }
+ temp3 = static_cast< std::vector< int >::value_type >(val3);
+ arg3 = &temp3;
+ (arg1)->assign(arg2,(std::vector< int >::value_type const &)*arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_resize__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::size_type arg2 ;
+ std::vector< int >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< int >::value_type temp3 ;
+ int val3 ;
+ int ecode3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::size_type >(val2);
+ ecode3 = SWIG_AsVal_int(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< int >::value_type","resize", 3, argv[1] ));
+ }
+ temp3 = static_cast< std::vector< int >::value_type >(val3);
+ arg3 = &temp3;
+ (arg1)->resize(arg2,(std::vector< int >::value_type const &)*arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_IntVector_resize(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector_resize__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector_resize__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "IntVector.resize",
+ " void IntVector.resize(std::vector< int >::size_type new_size)\n"
+ " void IntVector.resize(std::vector< int >::size_type new_size, std::vector< int >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.insert
+
+ call-seq:
+ insert(pos, argc) -> IntVector
+ insert(pos, x) -> std::vector< int >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_insert__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::iterator arg2 ;
+ std::vector< int >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< int >::value_type temp3 ;
+ int val3 ;
+ int ecode3 = 0 ;
+ std::vector< int >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ ecode3 = SWIG_AsVal_int(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< int >::value_type","insert", 3, argv[1] ));
+ }
+ temp3 = static_cast< std::vector< int >::value_type >(val3);
+ arg3 = &temp3;
+ result = std_vector_Sl_int_Sg__insert__SWIG_1(arg1,arg2,(int const &)*arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< int >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_IntVector_insert__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::iterator arg2 ;
+ std::vector< int >::size_type arg3 ;
+ std::vector< int >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ std::vector< int >::value_type temp4 ;
+ int val4 ;
+ int ecode4 = 0 ;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< int >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< int >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< int >::size_type","insert", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< int >::size_type >(val3);
+ ecode4 = SWIG_AsVal_int(argv[2], &val4);
+ if (!SWIG_IsOK(ecode4)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode4), Ruby_Format_TypeError( "", "std::vector< int >::value_type","insert", 4, argv[2] ));
+ }
+ temp4 = static_cast< std::vector< int >::value_type >(val4);
+ arg4 = &temp4;
+ std_vector_Sl_int_Sg__insert__SWIG_2(arg1,arg2,arg3,(int const &)*arg4);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_IntVector_insert(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector_insert__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ if (argc <= 3) {
+ return _wrap_IntVector_insert__SWIG_0(nargs, args, self);
+ }
+ return _wrap_IntVector_insert__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< int,std::allocator< int > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< int >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[3], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_IntVector_insert__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "insert",
+ " std::vector< int,std::allocator< int > > insert(std::vector< int >::difference_type pos, int argc, VALUE *argv, ...)\n"
+ " std::vector< int >::iterator insert(std::vector< int >::iterator pos, std::vector< int >::value_type const &x)\n"
+ " void insert(std::vector< int >::iterator pos, std::vector< int >::size_type n, std::vector< int >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.reserve
+
+ call-seq:
+ reserve(n)
+
+Reserve memory in the IntVector for a number of elements.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_reserve(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ std::vector< int >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","reserve", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< int >::size_type","reserve", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< int >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.capacity
+
+ call-seq:
+ capacity -> std::vector< int >::size_type
+
+Reserved capacity of the IntVector.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_capacity(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > const *","capacity", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = ((std::vector< int > const *)arg1)->capacity();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_IntVector_mapN___(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","map_bang", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ result = (std::vector< int,std::allocator< int > > *)std_vector_Sl_int_Sg__map_bang(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::IntVector.delete
+
+ call-seq:
+ delete(val) -> VALUE
+
+Delete a matching element.
+*/
+SWIGINTERN VALUE
+_wrap_IntVector_delete(int argc, VALUE *argv, VALUE self) {
+ std::vector< int > *arg1 = (std::vector< int > *) 0 ;
+ int *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< int > *","__delete__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< int > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","__delete__", 2, argv[0] ));
+ }
+ temp2 = static_cast< int >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_vector_Sl_int_Sg____delete__(arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_vector_Sl_int_Sg_(void *self) {
+ std::vector< int > *arg1 = (std::vector< int > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassDoubleVector;
+
+/*
+ Document-method: Cdi::DoubleVector.dup
+
+ call-seq:
+ dup -> DoubleVector
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_dup(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_inspect(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (VALUE)std_vector_Sl_double_Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert DoubleVector to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_to_a(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (VALUE)std_vector_Sl_double_Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_to_s(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (VALUE)std_vector_Sl_double_Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.slice
+
+ call-seq:
+ slice(i, length) -> VALUE
+
+Return a slice (portion of) the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_slice(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ std::vector< double >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","slice", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","slice", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","slice", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< double >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_double_Sg__slice(arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.each
+
+ call-seq:
+ each -> DoubleVector
+
+Iterate thru each element in the DoubleVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_each(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleVector___delete2__(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::value_type temp2 ;
+ double val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","__delete2__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_double(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::value_type","__delete2__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::vector< double >::value_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_vector_Sl_double_Sg____delete2__(arg1,(double const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.select
+
+ call-seq:
+ select -> DoubleVector
+
+Iterate thru each element in the DoubleVector and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_select(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.delete_at
+
+ call-seq:
+ delete_at(i) -> VALUE
+
+Delete an element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_delete_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","delete_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","delete_at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_double_Sg__delete_at(arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.at
+
+ call-seq:
+ at(i) -> VALUE
+
+Return element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_double_Sg__at((std::vector< double > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.[]
+
+ call-seq:
+ [](i, length) -> VALUE
+ [](i) -> VALUE
+ [](i) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector___getitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ std::vector< double >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","__getitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< double >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_double_Sg____getitem____SWIG_0((std::vector< double > const *)arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleVector___getitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_double_Sg____getitem____SWIG_1((std::vector< double > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleVector___getitem____SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ VALUE arg2 = (VALUE) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ arg2 = argv[0];
+ try {
+ result = (VALUE)std_vector_Sl_double_Sg____getitem____SWIG_2((std::vector< double > const *)arg1,arg2);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleVector___getitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___getitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ _v = (argv[1] != 0);
+ if (_v) {
+ return _wrap_DoubleVector___getitem____SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___getitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "__getitem__",
+ " VALUE __getitem__(std::vector< double >::difference_type i, std::vector< double >::difference_type length)\n"
+ " VALUE __getitem__(std::vector< double >::difference_type i)\n"
+ " VALUE __getitem__(VALUE i)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.[]=
+
+ call-seq:
+ []=(i, x) -> VALUE
+ []=(i, length, v) -> VALUE
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector___setitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ std::vector< double >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< double >::value_type temp3 ;
+ double val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_double(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< double >::value_type","__setitem__", 3, argv[1] ));
+ }
+ temp3 = static_cast< std::vector< double >::value_type >(val3);
+ arg3 = &temp3;
+ try {
+ result = (VALUE)std_vector_Sl_double_Sg____setitem____SWIG_0(arg1,arg2,(double const &)*arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleVector___setitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ std::vector< double >::difference_type arg3 ;
+ std::vector< double,std::allocator< double > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","__setitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< double >::difference_type >(val3);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res4 = swig::asptr(argv[2], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > const &","__setitem__", 4, argv[2] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< double,std::allocator< double > > const &","__setitem__", 4, argv[2]));
+ }
+ arg4 = ptr;
+ }
+ try {
+ result = (VALUE)std_vector_Sl_double_Sg____setitem____SWIG_1(arg1,arg2,arg3,(std::vector< double,std::allocator< double > > const &)*arg4);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleVector___setitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector___setitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleVector___setitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "__setitem__",
+ " VALUE __setitem__(std::vector< double >::difference_type i, std::vector< double >::value_type const &x)\n"
+ " VALUE __setitem__(std::vector< double >::difference_type i, std::vector< double >::difference_type length, std::vector< double,std::allocator< double > > const &v)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.reject!
+
+ call-seq:
+ reject! -> DoubleVector
+
+Iterate thru each element in the DoubleVector and reject those that fail a condition. A block must be provided. DoubleVector is modified in place.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_rejectN___(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","reject_bang", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg__reject_bang(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.pop
+
+ call-seq:
+ pop -> VALUE
+
+Remove and return element at the end of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_pop(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","pop", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (VALUE)std_vector_Sl_double_Sg__pop(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.push
+
+ call-seq:
+ push(e) -> std::vector< double >::value_type const
+
+Add an element at the end of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_push(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::value_type temp2 ;
+ double val2 ;
+ int ecode2 = 0 ;
+ std::vector< double >::value_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","push", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_double(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::value_type","push", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::vector< double >::value_type >(val2);
+ arg2 = &temp2;
+ result = (std::vector< double >::value_type)std_vector_Sl_double_Sg__push(arg1,(double const &)*arg2);
+ vresult = SWIG_From_double(static_cast< double >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.reject
+
+ call-seq:
+ reject -> DoubleVector
+
+Iterate thru each element in the DoubleVector and reject those that fail a condition returning a new DoubleVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_reject(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","reject", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg__reject(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.shift
+
+ call-seq:
+ shift -> VALUE
+
+Remove and return element at the beginning of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_shift(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","shift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (VALUE)std_vector_Sl_double_Sg__shift(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.insert
+
+ call-seq:
+ insert(pos, argc) -> DoubleVector
+ insert(pos, x) -> std::vector< double >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_insert__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::difference_type arg2 ;
+ int arg3 ;
+ VALUE *arg4 = (VALUE *) 0 ;
+ void *arg5 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 2) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::difference_type","insert", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::difference_type >(val2);
+ {
+ arg3 = argc - 1;
+ arg4 = argv + 1;
+ }
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg__insert__SWIG_0(arg1,arg2,arg3,arg4,arg5);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.unshift
+
+ call-seq:
+ unshift(argc) -> DoubleVector
+
+Add one or more elements at the beginning of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_unshift(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","unshift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg__unshift(arg1,arg2,arg3,arg4);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_DoubleVector__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::vector< double > *)new std::vector< double >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_DoubleVector__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< double > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const &","vector<(double)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< double > const &","vector<(double)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< double > *)new std::vector< double >((std::vector< double > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the DoubleVector is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (bool)((std::vector< double > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.size
+
+ call-seq:
+ size -> std::vector< double >::size_type
+
+Size or Length of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_size(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = ((std::vector< double > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleVector_swap(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< double > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::vector< double > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.begin
+
+ call-seq:
+ begin -> std::vector< double >::iterator
+
+Return an iterator to the beginning of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_begin(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< double >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.end
+
+ call-seq:
+ end -> std::vector< double >::iterator
+
+Return an iterator to past the end of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_end(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< double >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.rbegin
+
+ call-seq:
+ rbegin -> std::vector< double >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< double >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.rend
+
+ call-seq:
+ rend -> std::vector< double >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_rend(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< double >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.clear
+
+ call-seq:
+ clear
+
+Clear DoubleVector contents.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_clear(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleVector_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< double > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = ((std::vector< double > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::vector< double >::allocator_type(static_cast< const std::vector< double >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_double_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_DoubleVector__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< double >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< double > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< double >::size_type","vector<(double)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< double >::size_type >(val1);
+ result = (std::vector< double > *)new std::vector< double >(arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_resize__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::size_type >(val2);
+ (arg1)->resize(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.erase
+
+ call-seq:
+ erase(pos) -> std::vector< double >::iterator
+ erase(first, last) -> std::vector< double >::iterator
+
+Delete a portion of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< double >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ result = std_vector_Sl_double_Sg__erase__SWIG_0(arg1,arg2);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< double >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleVector_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::iterator arg2 ;
+ std::vector< double >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ swig::Iterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< double >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ res3 = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter3), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","erase", 3, argv[1] ));
+ } else {
+ swig::Iterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","erase", 3, argv[1] ));
+ }
+ }
+ result = std_vector_Sl_double_Sg__erase__SWIG_1(arg1,arg2,arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< double >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleVector_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_DoubleVector_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_DoubleVector_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "erase",
+ " std::vector< double >::iterator erase(std::vector< double >::iterator pos)\n"
+ " std::vector< double >::iterator erase(std::vector< double >::iterator first, std::vector< double >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_DoubleVector_allocate(VALUE self)
+#else
+_wrap_DoubleVector_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_DoubleVector__SWIG_3(int argc, VALUE *argv, VALUE self) {
+ std::vector< double >::size_type arg1 ;
+ std::vector< double >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< double >::value_type temp2 ;
+ double val2 ;
+ int ecode2 = 0 ;
+ std::vector< double > *result = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< double >::size_type","vector<(double)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< double >::size_type >(val1);
+ ecode2 = SWIG_AsVal_double(argv[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::value_type","vector<(double)>", 2, argv[1] ));
+ }
+ temp2 = static_cast< std::vector< double >::value_type >(val2);
+ arg2 = &temp2;
+ result = (std::vector< double > *)new std::vector< double >(arg1,(std::vector< double >::value_type const &)*arg2);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_DoubleVector(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[2];
+ int ii;
+
+ argc = nargs;
+ if (argc > 2) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_DoubleVector__SWIG_0(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_DoubleVector__SWIG_2(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_DoubleVector__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_DoubleVector__SWIG_3(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 2, "DoubleVector.new",
+ " DoubleVector.new()\n"
+ " DoubleVector.new(std::vector< double > const &other)\n"
+ " DoubleVector.new(std::vector< double >::size_type size)\n"
+ " DoubleVector.new(std::vector< double >::size_type size, std::vector< double >::value_type const &value)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.front
+
+ call-seq:
+ front -> std::vector< double >::value_type const &
+
+Return the first element in DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_front(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","front", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double >::value_type *) &((std::vector< double > const *)arg1)->front();
+ vresult = SWIG_From_double(static_cast< double >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.back
+
+ call-seq:
+ back -> std::vector< double >::value_type const &
+
+Return the last element in DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_back(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","back", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double >::value_type *) &((std::vector< double > const *)arg1)->back();
+ vresult = SWIG_From_double(static_cast< double >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.assign
+
+ call-seq:
+ assign(n, x)
+
+Assign a new DoubleVector or portion of it.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_assign(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::size_type arg2 ;
+ std::vector< double >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< double >::value_type temp3 ;
+ double val3 ;
+ int ecode3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","assign", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::size_type","assign", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::size_type >(val2);
+ ecode3 = SWIG_AsVal_double(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< double >::value_type","assign", 3, argv[1] ));
+ }
+ temp3 = static_cast< std::vector< double >::value_type >(val3);
+ arg3 = &temp3;
+ (arg1)->assign(arg2,(std::vector< double >::value_type const &)*arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_resize__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::size_type arg2 ;
+ std::vector< double >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< double >::value_type temp3 ;
+ double val3 ;
+ int ecode3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::size_type >(val2);
+ ecode3 = SWIG_AsVal_double(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< double >::value_type","resize", 3, argv[1] ));
+ }
+ temp3 = static_cast< std::vector< double >::value_type >(val3);
+ arg3 = &temp3;
+ (arg1)->resize(arg2,(std::vector< double >::value_type const &)*arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleVector_resize(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector_resize__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector_resize__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "DoubleVector.resize",
+ " void DoubleVector.resize(std::vector< double >::size_type new_size)\n"
+ " void DoubleVector.resize(std::vector< double >::size_type new_size, std::vector< double >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.insert
+
+ call-seq:
+ insert(pos, argc) -> DoubleVector
+ insert(pos, x) -> std::vector< double >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_insert__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::iterator arg2 ;
+ std::vector< double >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< double >::value_type temp3 ;
+ double val3 ;
+ int ecode3 = 0 ;
+ std::vector< double >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ ecode3 = SWIG_AsVal_double(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< double >::value_type","insert", 3, argv[1] ));
+ }
+ temp3 = static_cast< std::vector< double >::value_type >(val3);
+ arg3 = &temp3;
+ result = std_vector_Sl_double_Sg__insert__SWIG_1(arg1,arg2,(double const &)*arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< double >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleVector_insert__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::iterator arg2 ;
+ std::vector< double >::size_type arg3 ;
+ std::vector< double >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ std::vector< double >::value_type temp4 ;
+ double val4 ;
+ int ecode4 = 0 ;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< double >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< double >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< double >::size_type","insert", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< double >::size_type >(val3);
+ ecode4 = SWIG_AsVal_double(argv[2], &val4);
+ if (!SWIG_IsOK(ecode4)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode4), Ruby_Format_TypeError( "", "std::vector< double >::value_type","insert", 4, argv[2] ));
+ }
+ temp4 = static_cast< std::vector< double >::value_type >(val4);
+ arg4 = &temp4;
+ std_vector_Sl_double_Sg__insert__SWIG_2(arg1,arg2,arg3,(double const &)*arg4);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleVector_insert(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector_insert__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ if (argc <= 3) {
+ return _wrap_DoubleVector_insert__SWIG_0(nargs, args, self);
+ }
+ return _wrap_DoubleVector_insert__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< double >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_double(argv[3], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleVector_insert__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "insert",
+ " std::vector< double,std::allocator< double > > insert(std::vector< double >::difference_type pos, int argc, VALUE *argv, ...)\n"
+ " std::vector< double >::iterator insert(std::vector< double >::iterator pos, std::vector< double >::value_type const &x)\n"
+ " void insert(std::vector< double >::iterator pos, std::vector< double >::size_type n, std::vector< double >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.reserve
+
+ call-seq:
+ reserve(n)
+
+Reserve memory in the DoubleVector for a number of elements.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_reserve(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ std::vector< double >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","reserve", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< double >::size_type","reserve", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< double >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.capacity
+
+ call-seq:
+ capacity -> std::vector< double >::size_type
+
+Reserved capacity of the DoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_capacity(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > const *","capacity", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = ((std::vector< double > const *)arg1)->capacity();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleVector_mapN___(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","map_bang", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)std_vector_Sl_double_Sg__map_bang(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleVector.delete
+
+ call-seq:
+ delete(val) -> VALUE
+
+Delete a matching element.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleVector_delete(int argc, VALUE *argv, VALUE self) {
+ std::vector< double > *arg1 = (std::vector< double > *) 0 ;
+ double *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double temp2 ;
+ double val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< double > *","__delete__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< double > * >(argp1);
+ ecode2 = SWIG_AsVal_double(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "double","__delete__", 2, argv[0] ));
+ }
+ temp2 = static_cast< double >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_vector_Sl_double_Sg____delete__(arg1,(double const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_vector_Sl_double_Sg_(void *self) {
+ std::vector< double > *arg1 = (std::vector< double > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassDoubleDoubleVector;
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.dup
+
+ call-seq:
+ dup -> DoubleDoubleVector
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_dup(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)std_vector_Sl_std_vector_Sl_double_Sg__Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_inspect(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert DoubleDoubleVector to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_to_a(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_to_s(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.slice
+
+ call-seq:
+ slice(i, length) -> VALUE
+
+Return a slice (portion of) the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_slice(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ std::vector< std::vector< double > >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","slice", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","slice", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","slice", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< std::vector< double > >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg__slice(arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.each
+
+ call-seq:
+ each -> DoubleDoubleVector
+
+Iterate thru each element in the DoubleDoubleVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_each(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)std_vector_Sl_std_vector_Sl_double_Sg__Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector___delete2__(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","__delete2__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res2 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::value_type const &","__delete2__", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double > >::value_type const &","__delete2__", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg____delete2__(arg1,(std::vector< double,std::allocator< double > > const &)*arg2);
+ vresult = result;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.select
+
+ call-seq:
+ select -> DoubleDoubleVector
+
+Iterate thru each element in the DoubleDoubleVector and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_select(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)std_vector_Sl_std_vector_Sl_double_Sg__Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.delete_at
+
+ call-seq:
+ delete_at(i) -> VALUE
+
+Delete an element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_delete_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","delete_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","delete_at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg__delete_at(arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.at
+
+ call-seq:
+ at(i) -> VALUE
+
+Return element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg__at((std::vector< std::vector< double > > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.[]
+
+ call-seq:
+ [](i, length) -> VALUE
+ [](i) -> VALUE
+ [](i) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector___getitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ std::vector< std::vector< double > >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","__getitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< std::vector< double > >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_0((std::vector< std::vector< double > > const *)arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector___getitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_1((std::vector< std::vector< double > > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector___getitem____SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ VALUE arg2 = (VALUE) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ arg2 = argv[0];
+ try {
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg____getitem____SWIG_2((std::vector< std::vector< double > > const *)arg1,arg2);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleDoubleVector___getitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector___getitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ _v = (argv[1] != 0);
+ if (_v) {
+ return _wrap_DoubleDoubleVector___getitem____SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector___getitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "__getitem__",
+ " VALUE __getitem__(std::vector< std::vector< double > >::difference_type i, std::vector< std::vector< double > >::difference_type length)\n"
+ " VALUE __getitem__(std::vector< std::vector< double > >::difference_type i)\n"
+ " VALUE __getitem__(VALUE i)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.[]=
+
+ call-seq:
+ []=(i, x) -> VALUE
+ []=(i, length, v) -> VALUE
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector___setitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ std::vector< std::vector< double > >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res3 = swig::asptr(argv[1], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::value_type const &","__setitem__", 3, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double > >::value_type const &","__setitem__", 3, argv[1]));
+ }
+ arg3 = ptr;
+ }
+ try {
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_0(arg1,arg2,(std::vector< double,std::allocator< double > > const &)*arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ vresult = result;
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector___setitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ std::vector< std::vector< double > >::difference_type arg3 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","__setitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< std::vector< double > >::difference_type >(val3);
+ {
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *ptr = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)0;
+ res4 = swig::asptr(argv[2], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), Ruby_Format_TypeError( "", "std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &","__setitem__", 4, argv[2] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &","__setitem__", 4, argv[2]));
+ }
+ arg4 = ptr;
+ }
+ try {
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg____setitem____SWIG_1(arg1,arg2,arg3,(std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &)*arg4);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleDoubleVector___setitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector___setitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector___setitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "__setitem__",
+ " VALUE __setitem__(std::vector< std::vector< double > >::difference_type i, std::vector< std::vector< double > >::value_type const &x)\n"
+ " VALUE __setitem__(std::vector< std::vector< double > >::difference_type i, std::vector< std::vector< double > >::difference_type length, std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > const &v)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.reject!
+
+ call-seq:
+ reject! -> DoubleDoubleVector
+
+Iterate thru each element in the DoubleDoubleVector and reject those that fail a condition. A block must be provided. DoubleDoubleVector is modified in place.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_rejectN___(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","reject_bang", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)std_vector_Sl_std_vector_Sl_double_Sg__Sg__reject_bang(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.pop
+
+ call-seq:
+ pop -> VALUE
+
+Remove and return element at the end of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_pop(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","pop", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg__pop(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.push
+
+ call-seq:
+ push(e) -> DoubleVector
+
+Add an element at the end of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_push(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::vector< std::vector< double > >::value_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","push", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res2 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::value_type const &","push", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double > >::value_type const &","push", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = std_vector_Sl_std_vector_Sl_double_Sg__Sg__push(arg1,(std::vector< double,std::allocator< double > > const &)*arg2);
+ vresult = swig::from(static_cast< std::vector< double,std::allocator< double > > >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.reject
+
+ call-seq:
+ reject -> DoubleDoubleVector
+
+Iterate thru each element in the DoubleDoubleVector and reject those that fail a condition returning a new DoubleDoubleVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_reject(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","reject", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)std_vector_Sl_std_vector_Sl_double_Sg__Sg__reject(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.shift
+
+ call-seq:
+ shift -> VALUE
+
+Remove and return element at the beginning of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_shift(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","shift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_vector_Sl_double_Sg__Sg__shift(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.insert
+
+ call-seq:
+ insert(pos, argc) -> DoubleDoubleVector
+ insert(pos, x) -> std::vector< std::vector< double > >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_insert__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::difference_type arg2 ;
+ int arg3 ;
+ VALUE *arg4 = (VALUE *) 0 ;
+ void *arg5 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 2) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::difference_type","insert", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::difference_type >(val2);
+ {
+ arg3 = argc - 1;
+ arg4 = argv + 1;
+ }
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_0(arg1,arg2,arg3,arg4,arg5);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.unshift
+
+ call-seq:
+ unshift(argc) -> DoubleDoubleVector
+
+Add one or more elements at the beginning of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_unshift(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","unshift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)std_vector_Sl_std_vector_Sl_double_Sg__Sg__unshift(arg1,arg2,arg3,arg4);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_DoubleDoubleVector__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::vector< std::vector< double > > *)new std::vector< std::vector< double > >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_DoubleDoubleVector__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double,std::allocator< double > > > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< std::vector< double > > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *ptr = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double,std::allocator< double > > > const &","vector<(std::vector<(double)>)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double,std::allocator< double > > > const &","vector<(std::vector<(double)>)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< std::vector< double > > *)new std::vector< std::vector< double > >((std::vector< std::vector< double,std::allocator< double > > > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the DoubleDoubleVector is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (bool)((std::vector< std::vector< double > > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.size
+
+ call-seq:
+ size -> std::vector< std::vector< double > >::size_type
+
+Size or Length of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_size(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double > >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = ((std::vector< std::vector< double > > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_swap(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double,std::allocator< double > > > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::vector< double,std::allocator< double > > > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double,std::allocator< double > > > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::vector< std::vector< double,std::allocator< double > > > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.begin
+
+ call-seq:
+ begin -> std::vector< std::vector< double > >::iterator
+
+Return an iterator to the beginning of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_begin(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double > >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.end
+
+ call-seq:
+ end -> std::vector< std::vector< double > >::iterator
+
+Return an iterator to past the end of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_end(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double > >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.rbegin
+
+ call-seq:
+ rbegin -> std::vector< std::vector< double > >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double > >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::vector< double > >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.rend
+
+ call-seq:
+ rend -> std::vector< std::vector< double > >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_rend(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double > >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::vector< double > >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.clear
+
+ call-seq:
+ clear
+
+Clear DoubleDoubleVector contents.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_clear(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< std::vector< double,std::allocator< double > > > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = ((std::vector< std::vector< double > > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::vector< std::vector< double > >::allocator_type(static_cast< const std::vector< std::vector< double > >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_DoubleDoubleVector__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< std::vector< double > > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::size_type","vector<(std::vector<(double)>)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< std::vector< double > >::size_type >(val1);
+ result = (std::vector< std::vector< double > > *)new std::vector< std::vector< double > >(arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_resize__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::size_type >(val2);
+ (arg1)->resize(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.erase
+
+ call-seq:
+ erase(pos) -> std::vector< std::vector< double > >::iterator
+ erase(first, last) -> std::vector< std::vector< double > >::iterator
+
+Delete a portion of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< std::vector< double > >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ result = std_vector_Sl_std_vector_Sl_double_Sg__Sg__erase__SWIG_0(arg1,arg2);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::iterator arg2 ;
+ std::vector< std::vector< double > >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ swig::Iterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< std::vector< double > >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ res3 = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter3), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","erase", 3, argv[1] ));
+ } else {
+ swig::Iterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","erase", 3, argv[1] ));
+ }
+ }
+ result = std_vector_Sl_std_vector_Sl_double_Sg__Sg__erase__SWIG_1(arg1,arg2,arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleDoubleVector_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_DoubleDoubleVector_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_DoubleDoubleVector_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "erase",
+ " std::vector< std::vector< double > >::iterator erase(std::vector< std::vector< double > >::iterator pos)\n"
+ " std::vector< std::vector< double > >::iterator erase(std::vector< std::vector< double > >::iterator first, std::vector< std::vector< double > >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_DoubleDoubleVector_allocate(VALUE self)
+#else
+_wrap_DoubleDoubleVector_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_DoubleDoubleVector__SWIG_3(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > >::size_type arg1 ;
+ std::vector< std::vector< double > >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::vector< std::vector< double > > *result = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::size_type","vector<(std::vector<(double)>)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< std::vector< double > >::size_type >(val1);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res2 = swig::asptr(argv[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::value_type const &","vector<(std::vector<(double)>)>", 2, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double > >::value_type const &","vector<(std::vector<(double)>)>", 2, argv[1]));
+ }
+ arg2 = ptr;
+ }
+ result = (std::vector< std::vector< double > > *)new std::vector< std::vector< double > >(arg1,(std::vector< std::vector< double > >::value_type const &)*arg2);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_DoubleDoubleVector(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[2];
+ int ii;
+
+ argc = nargs;
+ if (argc > 2) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_DoubleDoubleVector__SWIG_0(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_DoubleDoubleVector__SWIG_2(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_DoubleDoubleVector__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[1], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_DoubleDoubleVector__SWIG_3(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 2, "DoubleDoubleVector.new",
+ " DoubleDoubleVector.new()\n"
+ " DoubleDoubleVector.new(std::vector< std::vector< double,std::allocator< double > > > const &other)\n"
+ " DoubleDoubleVector.new(std::vector< std::vector< double > >::size_type size)\n"
+ " DoubleDoubleVector.new(std::vector< std::vector< double > >::size_type size, std::vector< std::vector< double > >::value_type const &value)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.front
+
+ call-seq:
+ front -> DoubleVector
+
+Return the first element in DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_front(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double > >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","front", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (std::vector< std::vector< double > >::value_type *) &((std::vector< std::vector< double > > const *)arg1)->front();
+ vresult = swig::from(static_cast< std::vector< double,std::allocator< double > > >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.back
+
+ call-seq:
+ back -> DoubleVector
+
+Return the last element in DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_back(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double > >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","back", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = (std::vector< std::vector< double > >::value_type *) &((std::vector< std::vector< double > > const *)arg1)->back();
+ vresult = swig::from(static_cast< std::vector< double,std::allocator< double > > >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.assign
+
+ call-seq:
+ assign(n, x)
+
+Assign a new DoubleDoubleVector or portion of it.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_assign(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::size_type arg2 ;
+ std::vector< std::vector< double > >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","assign", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::size_type","assign", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::size_type >(val2);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res3 = swig::asptr(argv[1], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::value_type const &","assign", 3, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double > >::value_type const &","assign", 3, argv[1]));
+ }
+ arg3 = ptr;
+ }
+ (arg1)->assign(arg2,(std::vector< std::vector< double > >::value_type const &)*arg3);
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_resize__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::size_type arg2 ;
+ std::vector< std::vector< double > >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::size_type >(val2);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res3 = swig::asptr(argv[1], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::value_type const &","resize", 3, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double > >::value_type const &","resize", 3, argv[1]));
+ }
+ arg3 = ptr;
+ }
+ (arg1)->resize(arg2,(std::vector< std::vector< double > >::value_type const &)*arg3);
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleDoubleVector_resize(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_DoubleDoubleVector_resize__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector_resize__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "DoubleDoubleVector.resize",
+ " void DoubleDoubleVector.resize(std::vector< std::vector< double > >::size_type new_size)\n"
+ " void DoubleDoubleVector.resize(std::vector< std::vector< double > >::size_type new_size, std::vector< std::vector< double > >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.insert
+
+ call-seq:
+ insert(pos, argc) -> DoubleDoubleVector
+ insert(pos, x) -> std::vector< std::vector< double > >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_insert__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::iterator arg2 ;
+ std::vector< std::vector< double > >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ int res3 = SWIG_OLDOBJ ;
+ std::vector< std::vector< double > >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res3 = swig::asptr(argv[1], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::value_type const &","insert", 3, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double > >::value_type const &","insert", 3, argv[1]));
+ }
+ arg3 = ptr;
+ }
+ result = std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_1(arg1,arg2,(std::vector< double,std::allocator< double > > const &)*arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::vector< double > >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_insert__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::iterator arg2 ;
+ std::vector< std::vector< double > >::size_type arg3 ;
+ std::vector< std::vector< double > >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< std::vector< double > >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::size_type","insert", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< std::vector< double > >::size_type >(val3);
+ {
+ std::vector< double,std::allocator< double > > *ptr = (std::vector< double,std::allocator< double > > *)0;
+ res4 = swig::asptr(argv[2], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::value_type const &","insert", 4, argv[2] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::vector< double > >::value_type const &","insert", 4, argv[2]));
+ }
+ arg4 = ptr;
+ }
+ std_vector_Sl_std_vector_Sl_double_Sg__Sg__insert__SWIG_2(arg1,arg2,arg3,(std::vector< double,std::allocator< double > > const &)*arg4);
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_DoubleDoubleVector_insert(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ int res = swig::asptr(argv[2], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector_insert__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ if (argc <= 3) {
+ return _wrap_DoubleDoubleVector_insert__SWIG_0(nargs, args, self);
+ }
+ return _wrap_DoubleDoubleVector_insert__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::vector< double > >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< double,std::allocator< double > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_DoubleDoubleVector_insert__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "insert",
+ " std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > insert(std::vector< std::vector< double > >::difference_type pos, int argc, VALUE *argv, ...)\n"
+ " std::vector< std::vector< double > >::iterator insert(std::vector< std::vector< double > >::iterator pos, std::vector< std::vector< double > >::value_type const &x)\n"
+ " void insert(std::vector< std::vector< double > >::iterator pos, std::vector< std::vector< double > >::size_type n, std::vector< std::vector< double > >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.reserve
+
+ call-seq:
+ reserve(n)
+
+Reserve memory in the DoubleDoubleVector for a number of elements.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_reserve(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ std::vector< std::vector< double > >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > *","reserve", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::vector< double > >::size_type","reserve", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::vector< double > >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::DoubleDoubleVector.capacity
+
+ call-seq:
+ capacity -> std::vector< std::vector< double > >::size_type
+
+Reserved capacity of the DoubleDoubleVector.
+*/
+SWIGINTERN VALUE
+_wrap_DoubleDoubleVector_capacity(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double > >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::vector< double > > const *","capacity", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::vector< double > > * >(argp1);
+ result = ((std::vector< std::vector< double > > const *)arg1)->capacity();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_vector_Sl_std_vector_Sl_double_Sg__Sg_(void *self) {
+ std::vector< std::vector< double > > *arg1 = (std::vector< std::vector< double > > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassStringVector;
+
+/*
+ Document-method: Cdi::StringVector.dup
+
+ call-seq:
+ dup -> StringVector
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_dup(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_inspect(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_string_Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert StringVector to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_to_a(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_string_Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_to_s(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_string_Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.slice
+
+ call-seq:
+ slice(i, length) -> VALUE
+
+Return a slice (portion of) the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_slice(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ std::vector< std::string >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","slice", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","slice", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","slice", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< std::string >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_std_string_Sg__slice(arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.each
+
+ call-seq:
+ each -> StringVector
+
+Iterate thru each element in the StringVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_each(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_StringVector___delete2__(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","__delete2__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::string >::value_type const &","__delete2__", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string >::value_type const &","__delete2__", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (VALUE)std_vector_Sl_std_string_Sg____delete2__(arg1,(std::string const &)*arg2);
+ vresult = result;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.select
+
+ call-seq:
+ select -> StringVector
+
+Iterate thru each element in the StringVector and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_select(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.delete_at
+
+ call-seq:
+ delete_at(i) -> VALUE
+
+Delete an element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_delete_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","delete_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","delete_at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_std_string_Sg__delete_at(arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.at
+
+ call-seq:
+ at(i) -> VALUE
+
+Return element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_std_string_Sg__at((std::vector< std::string > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.[]
+
+ call-seq:
+ [](i, length) -> VALUE
+ [](i) -> VALUE
+ [](i) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector___getitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ std::vector< std::string >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","__getitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< std::string >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_std_string_Sg____getitem____SWIG_0((std::vector< std::string > const *)arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_StringVector___getitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_std_string_Sg____getitem____SWIG_1((std::vector< std::string > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_StringVector___getitem____SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ VALUE arg2 = (VALUE) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ arg2 = argv[0];
+ try {
+ result = (VALUE)std_vector_Sl_std_string_Sg____getitem____SWIG_2((std::vector< std::string > const *)arg1,arg2);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_StringVector___getitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_StringVector___getitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ _v = (argv[1] != 0);
+ if (_v) {
+ return _wrap_StringVector___getitem____SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_StringVector___getitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "__getitem__",
+ " VALUE __getitem__(std::vector< std::string >::difference_type i, std::vector< std::string >::difference_type length)\n"
+ " VALUE __getitem__(std::vector< std::string >::difference_type i)\n"
+ " VALUE __getitem__(VALUE i)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.[]=
+
+ call-seq:
+ []=(i, x) -> VALUE
+ []=(i, length, v) -> VALUE
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector___setitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ std::vector< std::string >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ {
+ std::string *ptr = (std::string *)0;
+ res3 = SWIG_AsPtr_std_string(argv[1], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< std::string >::value_type const &","__setitem__", 3, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string >::value_type const &","__setitem__", 3, argv[1]));
+ }
+ arg3 = ptr;
+ }
+ try {
+ result = (VALUE)std_vector_Sl_std_string_Sg____setitem____SWIG_0(arg1,arg2,(std::string const &)*arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ vresult = result;
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_StringVector___setitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ std::vector< std::string >::difference_type arg3 ;
+ std::vector< std::string,std::allocator< std::string > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","__setitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< std::string >::difference_type >(val3);
+ {
+ std::vector< std::string,std::allocator< std::string > > *ptr = (std::vector< std::string,std::allocator< std::string > > *)0;
+ res4 = swig::asptr(argv[2], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), Ruby_Format_TypeError( "", "std::vector< std::string,std::allocator< std::string > > const &","__setitem__", 4, argv[2] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string,std::allocator< std::string > > const &","__setitem__", 4, argv[2]));
+ }
+ arg4 = ptr;
+ }
+ try {
+ result = (VALUE)std_vector_Sl_std_string_Sg____setitem____SWIG_1(arg1,arg2,arg3,(std::vector< std::string,std::allocator< std::string > > const &)*arg4);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_StringVector___setitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[2], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector___setitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector___setitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "__setitem__",
+ " VALUE __setitem__(std::vector< std::string >::difference_type i, std::vector< std::string >::value_type const &x)\n"
+ " VALUE __setitem__(std::vector< std::string >::difference_type i, std::vector< std::string >::difference_type length, std::vector< std::string,std::allocator< std::string > > const &v)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.reject!
+
+ call-seq:
+ reject! -> StringVector
+
+Iterate thru each element in the StringVector and reject those that fail a condition. A block must be provided. StringVector is modified in place.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_rejectN___(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","reject_bang", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg__reject_bang(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.pop
+
+ call-seq:
+ pop -> VALUE
+
+Remove and return element at the end of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_pop(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","pop", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_string_Sg__pop(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.push
+
+ call-seq:
+ push(e) -> std::vector< std::string >::value_type const
+
+Add an element at the end of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_push(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::vector< std::string >::value_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","push", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::string >::value_type const &","push", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string >::value_type const &","push", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = std_vector_Sl_std_string_Sg__push(arg1,(std::string const &)*arg2);
+ vresult = SWIG_From_std_string(static_cast< std::string >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.reject
+
+ call-seq:
+ reject -> StringVector
+
+Iterate thru each element in the StringVector and reject those that fail a condition returning a new StringVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_reject(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","reject", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg__reject(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.shift
+
+ call-seq:
+ shift -> VALUE
+
+Remove and return element at the beginning of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_shift(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","shift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (VALUE)std_vector_Sl_std_string_Sg__shift(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.insert
+
+ call-seq:
+ insert(pos, argc) -> StringVector
+ insert(pos, x) -> std::vector< std::string >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_insert__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::difference_type arg2 ;
+ int arg3 ;
+ VALUE *arg4 = (VALUE *) 0 ;
+ void *arg5 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 2) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::difference_type","insert", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::difference_type >(val2);
+ {
+ arg3 = argc - 1;
+ arg4 = argv + 1;
+ }
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg__insert__SWIG_0(arg1,arg2,arg3,arg4,arg5);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.unshift
+
+ call-seq:
+ unshift(argc) -> StringVector
+
+Add one or more elements at the beginning of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_unshift(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","unshift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg__unshift(arg1,arg2,arg3,arg4);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_StringVector__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::vector< std::string > *)new std::vector< std::string >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_StringVector__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< std::string > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::vector< std::string,std::allocator< std::string > > *ptr = (std::vector< std::string,std::allocator< std::string > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const &","vector<(std::string)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string > const &","vector<(std::string)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< std::string > *)new std::vector< std::string >((std::vector< std::string > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the StringVector is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (bool)((std::vector< std::string > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.size
+
+ call-seq:
+ size -> std::vector< std::string >::size_type
+
+Size or Length of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_size(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = ((std::vector< std::string > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_StringVector_swap(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::string > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::vector< std::string > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.begin
+
+ call-seq:
+ begin -> std::vector< std::string >::iterator
+
+Return an iterator to the beginning of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_begin(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::string >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.end
+
+ call-seq:
+ end -> std::vector< std::string >::iterator
+
+Return an iterator to past the end of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_end(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::string >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.rbegin
+
+ call-seq:
+ rbegin -> std::vector< std::string >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::string >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.rend
+
+ call-seq:
+ rend -> std::vector< std::string >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_rend(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::string >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.clear
+
+ call-seq:
+ clear
+
+Clear StringVector contents.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_clear(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_StringVector_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< std::string > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = ((std::vector< std::string > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::vector< std::string >::allocator_type(static_cast< const std::vector< std::string >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__string_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_StringVector__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< std::string > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< std::string >::size_type","vector<(std::string)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< std::string >::size_type >(val1);
+ result = (std::vector< std::string > *)new std::vector< std::string >(arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_resize__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::size_type >(val2);
+ (arg1)->resize(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.erase
+
+ call-seq:
+ erase(pos) -> std::vector< std::string >::iterator
+ erase(first, last) -> std::vector< std::string >::iterator
+
+Delete a portion of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< std::string >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ result = std_vector_Sl_std_string_Sg__erase__SWIG_0(arg1,arg2);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::string >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_StringVector_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::iterator arg2 ;
+ std::vector< std::string >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ swig::Iterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< std::string >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ res3 = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter3), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","erase", 3, argv[1] ));
+ } else {
+ swig::Iterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","erase", 3, argv[1] ));
+ }
+ }
+ result = std_vector_Sl_std_string_Sg__erase__SWIG_1(arg1,arg2,arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::string >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_StringVector_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_StringVector_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_StringVector_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "erase",
+ " std::vector< std::string >::iterator erase(std::vector< std::string >::iterator pos)\n"
+ " std::vector< std::string >::iterator erase(std::vector< std::string >::iterator first, std::vector< std::string >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_StringVector_allocate(VALUE self)
+#else
+_wrap_StringVector_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_StringVector__SWIG_3(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string >::size_type arg1 ;
+ std::vector< std::string >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::vector< std::string > *result = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< std::string >::size_type","vector<(std::string)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< std::string >::size_type >(val1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[1], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::string >::value_type const &","vector<(std::string)>", 2, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string >::value_type const &","vector<(std::string)>", 2, argv[1]));
+ }
+ arg2 = ptr;
+ }
+ result = (std::vector< std::string > *)new std::vector< std::string >(arg1,(std::vector< std::string >::value_type const &)*arg2);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_StringVector(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[2];
+ int ii;
+
+ argc = nargs;
+ if (argc > 2) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_StringVector__SWIG_0(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_StringVector__SWIG_2(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_StringVector__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[1], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_StringVector__SWIG_3(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 2, "StringVector.new",
+ " StringVector.new()\n"
+ " StringVector.new(std::vector< std::string > const &other)\n"
+ " StringVector.new(std::vector< std::string >::size_type size)\n"
+ " StringVector.new(std::vector< std::string >::size_type size, std::vector< std::string >::value_type const &value)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.front
+
+ call-seq:
+ front -> std::vector< std::string >::value_type const &
+
+Return the first element in StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_front(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","front", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string >::value_type *) &((std::vector< std::string > const *)arg1)->front();
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.back
+
+ call-seq:
+ back -> std::vector< std::string >::value_type const &
+
+Return the last element in StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_back(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","back", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string >::value_type *) &((std::vector< std::string > const *)arg1)->back();
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.assign
+
+ call-seq:
+ assign(n, x)
+
+Assign a new StringVector or portion of it.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_assign(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::size_type arg2 ;
+ std::vector< std::string >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","assign", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::size_type","assign", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::size_type >(val2);
+ {
+ std::string *ptr = (std::string *)0;
+ res3 = SWIG_AsPtr_std_string(argv[1], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< std::string >::value_type const &","assign", 3, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string >::value_type const &","assign", 3, argv[1]));
+ }
+ arg3 = ptr;
+ }
+ (arg1)->assign(arg2,(std::vector< std::string >::value_type const &)*arg3);
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_resize__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::size_type arg2 ;
+ std::vector< std::string >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ int res3 = SWIG_OLDOBJ ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::size_type >(val2);
+ {
+ std::string *ptr = (std::string *)0;
+ res3 = SWIG_AsPtr_std_string(argv[1], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< std::string >::value_type const &","resize", 3, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string >::value_type const &","resize", 3, argv[1]));
+ }
+ arg3 = ptr;
+ }
+ (arg1)->resize(arg2,(std::vector< std::string >::value_type const &)*arg3);
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_StringVector_resize(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_StringVector_resize__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[2], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector_resize__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "StringVector.resize",
+ " void StringVector.resize(std::vector< std::string >::size_type new_size)\n"
+ " void StringVector.resize(std::vector< std::string >::size_type new_size, std::vector< std::string >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.insert
+
+ call-seq:
+ insert(pos, argc) -> StringVector
+ insert(pos, x) -> std::vector< std::string >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_insert__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::iterator arg2 ;
+ std::vector< std::string >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ int res3 = SWIG_OLDOBJ ;
+ std::vector< std::string >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ {
+ std::string *ptr = (std::string *)0;
+ res3 = SWIG_AsPtr_std_string(argv[1], &ptr);
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< std::string >::value_type const &","insert", 3, argv[1] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string >::value_type const &","insert", 3, argv[1]));
+ }
+ arg3 = ptr;
+ }
+ result = std_vector_Sl_std_string_Sg__insert__SWIG_1(arg1,arg2,(std::string const &)*arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< std::string >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res3)) delete arg3;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_StringVector_insert__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::iterator arg2 ;
+ std::vector< std::string >::size_type arg3 ;
+ std::vector< std::string >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< std::string >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< std::string >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< std::string >::size_type","insert", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< std::string >::size_type >(val3);
+ {
+ std::string *ptr = (std::string *)0;
+ res4 = SWIG_AsPtr_std_string(argv[2], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), Ruby_Format_TypeError( "", "std::vector< std::string >::value_type const &","insert", 4, argv[2] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< std::string >::value_type const &","insert", 4, argv[2]));
+ }
+ arg4 = ptr;
+ }
+ std_vector_Sl_std_string_Sg__insert__SWIG_2(arg1,arg2,arg3,(std::string const &)*arg4);
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_StringVector_insert(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[2], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector_insert__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ if (argc <= 3) {
+ return _wrap_StringVector_insert__SWIG_0(nargs, args, self);
+ }
+ return _wrap_StringVector_insert__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< std::string,std::allocator< std::string > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< std::string >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[3], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_StringVector_insert__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "insert",
+ " std::vector< std::string,std::allocator< std::string > > insert(std::vector< std::string >::difference_type pos, int argc, VALUE *argv, ...)\n"
+ " std::vector< std::string >::iterator insert(std::vector< std::string >::iterator pos, std::vector< std::string >::value_type const &x)\n"
+ " void insert(std::vector< std::string >::iterator pos, std::vector< std::string >::size_type n, std::vector< std::string >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.reserve
+
+ call-seq:
+ reserve(n)
+
+Reserve memory in the StringVector for a number of elements.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_reserve(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::vector< std::string >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","reserve", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< std::string >::size_type","reserve", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< std::string >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.capacity
+
+ call-seq:
+ capacity -> std::vector< std::string >::size_type
+
+Reserved capacity of the StringVector.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_capacity(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > const *","capacity", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = ((std::vector< std::string > const *)arg1)->capacity();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_StringVector_mapN___(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","map_bang", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ result = (std::vector< std::string,std::allocator< std::string > > *)std_vector_Sl_std_string_Sg__map_bang(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::StringVector.delete
+
+ call-seq:
+ delete(val) -> VALUE
+
+Delete a matching element.
+*/
+SWIGINTERN VALUE
+_wrap_StringVector_delete(int argc, VALUE *argv, VALUE self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< std::string > *","__delete__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< std::string > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","__delete__", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","__delete__", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (VALUE)std_vector_Sl_std_string_Sg____delete__(arg1,(std::string const &)*arg2);
+ vresult = result;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_vector_Sl_std_string_Sg_(void *self) {
+ std::vector< std::string > *arg1 = (std::vector< std::string > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassVarsVector;
+
+/*
+ Document-method: Cdi::VarsVector.dup
+
+ call-seq:
+ dup -> VarsVector
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_dup(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)std_vector_Sl_CdiVariable_Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_inspect(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert VarsVector to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_to_a(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_to_s(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.slice
+
+ call-seq:
+ slice(i, length) -> VALUE
+
+Return a slice (portion of) the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_slice(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ std::vector< CdiVariable >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","slice", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","slice", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","slice", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< CdiVariable >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg__slice(arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.each
+
+ call-seq:
+ each -> VarsVector
+
+Iterate thru each element in the VarsVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_each(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)std_vector_Sl_CdiVariable_Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsVector___delete2__(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","__delete2__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::value_type const &","__delete2__", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable >::value_type const &","__delete2__", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp2);
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg____delete2__(arg1,(CdiVariable const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.select
+
+ call-seq:
+ select -> VarsVector
+
+Iterate thru each element in the VarsVector and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_select(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)std_vector_Sl_CdiVariable_Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.delete_at
+
+ call-seq:
+ delete_at(i) -> VALUE
+
+Delete an element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_delete_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","delete_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","delete_at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg__delete_at(arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.at
+
+ call-seq:
+ at(i) -> VALUE
+
+Return element at a certain index.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_at(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","at", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg__at((std::vector< CdiVariable > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.[]
+
+ call-seq:
+ [](i, length) -> VALUE
+ [](i) -> VALUE
+ [](i) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector___getitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ std::vector< CdiVariable >::difference_type arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","__getitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< CdiVariable >::difference_type >(val3);
+ try {
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg____getitem____SWIG_0((std::vector< CdiVariable > const *)arg1,arg2,arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsVector___getitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","__getitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg____getitem____SWIG_1((std::vector< CdiVariable > const *)arg1,arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsVector___getitem____SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ VALUE arg2 = (VALUE) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ arg2 = argv[0];
+ try {
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg____getitem____SWIG_2((std::vector< CdiVariable > const *)arg1,arg2);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_VarsVector___getitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsVector___getitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ _v = (argv[1] != 0);
+ if (_v) {
+ return _wrap_VarsVector___getitem____SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsVector___getitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "__getitem__",
+ " VALUE __getitem__(std::vector< CdiVariable >::difference_type i, std::vector< CdiVariable >::difference_type length)\n"
+ " VALUE __getitem__(std::vector< CdiVariable >::difference_type i)\n"
+ " VALUE __getitem__(VALUE i)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.[]=
+
+ call-seq:
+ []=(i, x) -> VALUE
+ []=(i, length, v) -> VALUE
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector___setitem____SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ std::vector< CdiVariable >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::value_type const &","__setitem__", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable >::value_type const &","__setitem__", 3, argv[1]));
+ }
+ arg3 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp3);
+ try {
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg____setitem____SWIG_0(arg1,arg2,(CdiVariable const &)*arg3);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsVector___setitem____SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ std::vector< CdiVariable >::difference_type arg3 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ ptrdiff_t val3 ;
+ int ecode3 = 0 ;
+ int res4 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","__setitem__", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ ecode3 = SWIG_AsVal_ptrdiff_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","__setitem__", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< CdiVariable >::difference_type >(val3);
+ {
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *ptr = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)0;
+ res4 = swig::asptr(argv[2], &ptr);
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), Ruby_Format_TypeError( "", "std::vector< CdiVariable,std::allocator< CdiVariable > > const &","__setitem__", 4, argv[2] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable,std::allocator< CdiVariable > > const &","__setitem__", 4, argv[2]));
+ }
+ arg4 = ptr;
+ }
+ try {
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg____setitem____SWIG_1(arg1,arg2,arg3,(std::vector< CdiVariable,std::allocator< CdiVariable > > const &)*arg4);
+ } catch(std::invalid_argument &_e) {
+ SWIG_exception_fail(SWIG_ValueError, (&_e)->what());
+ }
+ vresult = result;
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res4)) delete arg4;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_VarsVector___setitem__(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[2], &vptr, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector___setitem____SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ int res = swig::asptr(argv[3], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector___setitem____SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "__setitem__",
+ " VALUE __setitem__(std::vector< CdiVariable >::difference_type i, std::vector< CdiVariable >::value_type const &x)\n"
+ " VALUE __setitem__(std::vector< CdiVariable >::difference_type i, std::vector< CdiVariable >::difference_type length, std::vector< CdiVariable,std::allocator< CdiVariable > > const &v)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.reject!
+
+ call-seq:
+ reject! -> VarsVector
+
+Iterate thru each element in the VarsVector and reject those that fail a condition. A block must be provided. VarsVector is modified in place.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_rejectN___(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","reject_bang", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)std_vector_Sl_CdiVariable_Sg__reject_bang(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.pop
+
+ call-seq:
+ pop -> VALUE
+
+Remove and return element at the end of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_pop(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","pop", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg__pop(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.push
+
+ call-seq:
+ push(e) -> CdiVariable
+
+Add an element at the end of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_push(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::value_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ std::vector< CdiVariable >::value_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","push", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::value_type const &","push", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable >::value_type const &","push", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp2);
+ result = std_vector_Sl_CdiVariable_Sg__push(arg1,(CdiVariable const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::vector< CdiVariable >::value_type(static_cast< const std::vector< CdiVariable >::value_type& >(result))), SWIGTYPE_p_CdiVariable, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.reject
+
+ call-seq:
+ reject -> VarsVector
+
+Iterate thru each element in the VarsVector and reject those that fail a condition returning a new VarsVector. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_reject(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","reject", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)std_vector_Sl_CdiVariable_Sg__reject(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.shift
+
+ call-seq:
+ shift -> VALUE
+
+Remove and return element at the beginning of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_shift(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","shift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (VALUE)std_vector_Sl_CdiVariable_Sg__shift(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.insert
+
+ call-seq:
+ insert(pos, argc) -> VarsVector
+ insert(pos, x) -> std::vector< CdiVariable >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_insert__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::difference_type arg2 ;
+ int arg3 ;
+ VALUE *arg4 = (VALUE *) 0 ;
+ void *arg5 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ ptrdiff_t val2 ;
+ int ecode2 = 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 2) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_ptrdiff_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::difference_type","insert", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::difference_type >(val2);
+ {
+ arg3 = argc - 1;
+ arg4 = argv + 1;
+ }
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)std_vector_Sl_CdiVariable_Sg__insert__SWIG_0(arg1,arg2,arg3,arg4,arg5);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.unshift
+
+ call-seq:
+ unshift(argc) -> VarsVector
+
+Add one or more elements at the beginning of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_unshift(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","unshift", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)std_vector_Sl_CdiVariable_Sg__unshift(arg1,arg2,arg3,arg4);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_VarsVector__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::vector< CdiVariable > *)new std::vector< CdiVariable >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_VarsVector__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::vector< CdiVariable > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *ptr = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const &","vector<(CdiVariable)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable > const &","vector<(CdiVariable)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::vector< CdiVariable > *)new std::vector< CdiVariable >((std::vector< CdiVariable > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the VarsVector is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (bool)((std::vector< CdiVariable > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.size
+
+ call-seq:
+ size -> std::vector< CdiVariable >::size_type
+
+Size or Length of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_size(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = ((std::vector< CdiVariable > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsVector_swap(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< CdiVariable > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.begin
+
+ call-seq:
+ begin -> std::vector< CdiVariable >::iterator
+
+Return an iterator to the beginning of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_begin(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.end
+
+ call-seq:
+ end -> std::vector< CdiVariable >::iterator
+
+Return an iterator to past the end of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_end(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.rbegin
+
+ call-seq:
+ rbegin -> std::vector< CdiVariable >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< CdiVariable >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.rend
+
+ call-seq:
+ rend -> std::vector< CdiVariable >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_rend(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< CdiVariable >::reverse_iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.clear
+
+ call-seq:
+ clear
+
+Clear VarsVector contents.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_clear(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsVector_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< CdiVariable > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = ((std::vector< CdiVariable > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::vector< CdiVariable >::allocator_type(static_cast< const std::vector< CdiVariable >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_CdiVariable_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_VarsVector__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable >::size_type arg1 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ std::vector< CdiVariable > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::size_type","vector<(CdiVariable)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< CdiVariable >::size_type >(val1);
+ result = (std::vector< CdiVariable > *)new std::vector< CdiVariable >(arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_resize__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::size_type >(val2);
+ (arg1)->resize(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.erase
+
+ call-seq:
+ erase(pos) -> std::vector< CdiVariable >::iterator
+ erase(first, last) -> std::vector< CdiVariable >::iterator
+
+Delete a portion of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ std::vector< CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ result = std_vector_Sl_CdiVariable_Sg__erase__SWIG_0(arg1,arg2);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsVector_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::iterator arg2 ;
+ std::vector< CdiVariable >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ swig::Iterator *iter3 = 0 ;
+ int res3 ;
+ std::vector< CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","erase", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","erase", 2, argv[0] ));
+ }
+ }
+ res3 = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter3), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res3) || !iter3) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","erase", 3, argv[1] ));
+ } else {
+ swig::Iterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter3);
+ if (iter_t) {
+ arg3 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","erase", 3, argv[1] ));
+ }
+ }
+ result = std_vector_Sl_CdiVariable_Sg__erase__SWIG_1(arg1,arg2,arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_VarsVector_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_VarsVector_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[2], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ return _wrap_VarsVector_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "erase",
+ " std::vector< CdiVariable >::iterator erase(std::vector< CdiVariable >::iterator pos)\n"
+ " std::vector< CdiVariable >::iterator erase(std::vector< CdiVariable >::iterator first, std::vector< CdiVariable >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_VarsVector_allocate(VALUE self)
+#else
+_wrap_VarsVector_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_VarsVector__SWIG_3(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable >::size_type arg1 ;
+ std::vector< CdiVariable >::value_type *arg2 = 0 ;
+ size_t val1 ;
+ int ecode1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ std::vector< CdiVariable > *result = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_size_t(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::size_type","vector<(CdiVariable)>", 1, argv[0] ));
+ }
+ arg1 = static_cast< std::vector< CdiVariable >::size_type >(val1);
+ res2 = SWIG_ConvertPtr(argv[1], &argp2, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::value_type const &","vector<(CdiVariable)>", 2, argv[1] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable >::value_type const &","vector<(CdiVariable)>", 2, argv[1]));
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp2);
+ result = (std::vector< CdiVariable > *)new std::vector< CdiVariable >(arg1,(std::vector< CdiVariable >::value_type const &)*arg2);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_VarsVector(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[2];
+ int ii;
+
+ argc = nargs;
+ if (argc > 2) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_VarsVector__SWIG_0(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_VarsVector__SWIG_2(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsVector__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ {
+ int res = SWIG_AsVal_size_t(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsVector__SWIG_3(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 2, "VarsVector.new",
+ " VarsVector.new()\n"
+ " VarsVector.new(std::vector< CdiVariable > const &other)\n"
+ " VarsVector.new(std::vector< CdiVariable >::size_type size)\n"
+ " VarsVector.new(std::vector< CdiVariable >::size_type size, std::vector< CdiVariable >::value_type const &value)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.front
+
+ call-seq:
+ front -> CdiVariable
+
+Return the first element in VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_front(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","front", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (std::vector< CdiVariable >::value_type *) &((std::vector< CdiVariable > const *)arg1)->front();
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiVariable, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.back
+
+ call-seq:
+ back -> CdiVariable
+
+Return the last element in VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_back(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable >::value_type *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","back", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = (std::vector< CdiVariable >::value_type *) &((std::vector< CdiVariable > const *)arg1)->back();
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiVariable, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.assign
+
+ call-seq:
+ assign(n, x)
+
+Assign a new VarsVector or portion of it.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_assign(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::size_type arg2 ;
+ std::vector< CdiVariable >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","assign", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::size_type","assign", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::size_type >(val2);
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::value_type const &","assign", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable >::value_type const &","assign", 3, argv[1]));
+ }
+ arg3 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp3);
+ (arg1)->assign(arg2,(std::vector< CdiVariable >::value_type const &)*arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.resize
+
+ call-seq:
+ resize(new_size)
+ resize(new_size, x)
+
+Resize the size of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_resize__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::size_type arg2 ;
+ std::vector< CdiVariable >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","resize", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::size_type","resize", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::size_type >(val2);
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::value_type const &","resize", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable >::value_type const &","resize", 3, argv[1]));
+ }
+ arg3 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp3);
+ (arg1)->resize(arg2,(std::vector< CdiVariable >::value_type const &)*arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_VarsVector_resize(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsVector_resize__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[2], &vptr, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector_resize__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "VarsVector.resize",
+ " void VarsVector.resize(std::vector< CdiVariable >::size_type new_size)\n"
+ " void VarsVector.resize(std::vector< CdiVariable >::size_type new_size, std::vector< CdiVariable >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.insert
+
+ call-seq:
+ insert(pos, argc) -> VarsVector
+ insert(pos, x) -> std::vector< CdiVariable >::iterator
+ insert(pos, n, x)
+
+Insert one or more new elements in the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_insert__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::iterator arg2 ;
+ std::vector< CdiVariable >::value_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ void *argp3 ;
+ int res3 = 0 ;
+ std::vector< CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::value_type const &","insert", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable >::value_type const &","insert", 3, argv[1]));
+ }
+ arg3 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp3);
+ result = std_vector_Sl_CdiVariable_Sg__insert__SWIG_1(arg1,arg2,(CdiVariable const &)*arg3);
+ vresult = SWIG_NewPointerObj(swig::make_nonconst_iterator(static_cast< const std::vector< CdiVariable >::iterator & >(result),
+ self),
+ swig::Iterator::descriptor(),SWIG_POINTER_OWN);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsVector_insert__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::iterator arg2 ;
+ std::vector< CdiVariable >::size_type arg3 ;
+ std::vector< CdiVariable >::value_type *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::Iterator *iter2 = 0 ;
+ int res2 ;
+ size_t val3 ;
+ int ecode3 = 0 ;
+ void *argp4 ;
+ int res4 = 0 ;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","insert", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], SWIG_as_voidptrptr(&iter2), swig::Iterator::descriptor(), 0);
+ if (!SWIG_IsOK(res2) || !iter2) {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","insert", 2, argv[0] ));
+ } else {
+ swig::Iterator_T<std::vector< CdiVariable >::iterator > *iter_t = dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter2);
+ if (iter_t) {
+ arg2 = iter_t->get_current();
+ } else {
+ SWIG_exception_fail(SWIG_ArgError(SWIG_TypeError), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::iterator","insert", 2, argv[0] ));
+ }
+ }
+ ecode3 = SWIG_AsVal_size_t(argv[1], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::size_type","insert", 3, argv[1] ));
+ }
+ arg3 = static_cast< std::vector< CdiVariable >::size_type >(val3);
+ res4 = SWIG_ConvertPtr(argv[2], &argp4, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res4)) {
+ SWIG_exception_fail(SWIG_ArgError(res4), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::value_type const &","insert", 4, argv[2] ));
+ }
+ if (!argp4) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::vector< CdiVariable >::value_type const &","insert", 4, argv[2]));
+ }
+ arg4 = reinterpret_cast< std::vector< CdiVariable >::value_type * >(argp4);
+ std_vector_Sl_CdiVariable_Sg__insert__SWIG_2(arg1,arg2,arg3,(CdiVariable const &)*arg4);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_VarsVector_insert(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[5];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 5) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[2], &vptr, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector_insert__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_ptrdiff_t(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ if (argc <= 3) {
+ return _wrap_VarsVector_insert__SWIG_0(nargs, args, self);
+ }
+ return _wrap_VarsVector_insert__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ }
+ if (argc == 4) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::vector< CdiVariable,std::allocator< CdiVariable > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ swig::ConstIterator *iter = 0;
+ int res = SWIG_ConvertPtr(argv[1], SWIG_as_voidptrptr(&iter), swig::Iterator::descriptor(), 0);
+ _v = (SWIG_IsOK(res) && iter && (dynamic_cast<swig::Iterator_T<std::vector< CdiVariable >::iterator > *>(iter) != 0));
+ if (_v) {
+ {
+ int res = SWIG_AsVal_size_t(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[3], &vptr, SWIGTYPE_p_CdiVariable, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsVector_insert__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 5, "insert",
+ " std::vector< CdiVariable,std::allocator< CdiVariable > > insert(std::vector< CdiVariable >::difference_type pos, int argc, VALUE *argv, ...)\n"
+ " std::vector< CdiVariable >::iterator insert(std::vector< CdiVariable >::iterator pos, std::vector< CdiVariable >::value_type const &x)\n"
+ " void insert(std::vector< CdiVariable >::iterator pos, std::vector< CdiVariable >::size_type n, std::vector< CdiVariable >::value_type const &x)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.reserve
+
+ call-seq:
+ reserve(n)
+
+Reserve memory in the VarsVector for a number of elements.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_reserve(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ std::vector< CdiVariable >::size_type arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ size_t val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > *","reserve", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_size_t(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::vector< CdiVariable >::size_type","reserve", 2, argv[0] ));
+ }
+ arg2 = static_cast< std::vector< CdiVariable >::size_type >(val2);
+ (arg1)->reserve(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsVector.capacity
+
+ call-seq:
+ capacity -> std::vector< CdiVariable >::size_type
+
+Reserved capacity of the VarsVector.
+*/
+SWIGINTERN VALUE
+_wrap_VarsVector_capacity(int argc, VALUE *argv, VALUE self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::vector< CdiVariable > const *","capacity", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::vector< CdiVariable > * >(argp1);
+ result = ((std::vector< CdiVariable > const *)arg1)->capacity();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_vector_Sl_CdiVariable_Sg_(void *self) {
+ std::vector< CdiVariable > *arg1 = (std::vector< CdiVariable > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassVarsMap;
+
+SWIGINTERN VALUE
+_wrap_new_VarsMap__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::less< std::string > *arg1 = 0 ;
+ void *argp1 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(argv[0], &argp1, SWIGTYPE_p_std__lessT_std__string_t, 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::less< std::string > const &","map<(std::string,CdiVariable)>", 1, argv[0] ));
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::less< std::string > const &","map<(std::string,CdiVariable)>", 1, argv[0]));
+ }
+ arg1 = reinterpret_cast< std::less< std::string > * >(argp1);
+ result = (std::map< std::string,CdiVariable > *)new std::map< std::string,CdiVariable >((std::less< std::string > const &)*arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.dup
+
+ call-seq:
+ dup -> VarsMap
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_dup(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *)std_map_Sl_std_string_Sc_CdiVariable_Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.delete
+
+ call-seq:
+ delete(key) -> VALUE
+
+Delete a matching element.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_delete(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","__delete__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","__delete__", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","__delete__", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (VALUE)std_map_Sl_std_string_Sc_CdiVariable_Sg____delete__(arg1,(std::string const &)*arg2);
+ vresult = result;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_has_keyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > const *","has_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","has_key", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","has_key", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (bool)std_map_Sl_std_string_Sc_CdiVariable_Sg__has_key((std::map< std::string,CdiVariable > const *)arg1,(std::string const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.keys
+
+ call-seq:
+ keys -> VALUE
+
+Return an Array of key elements.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_keys(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","keys", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_std_string_Sc_CdiVariable_Sg__keys(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.each
+
+ call-seq:
+ each -> VarsMap
+
+Iterate thru each element in the VarsMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_each(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *)std_map_Sl_std_string_Sc_CdiVariable_Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.select
+
+ call-seq:
+ select -> VarsMap
+
+Iterate thru each element in the VarsMap and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_select(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *)std_map_Sl_std_string_Sc_CdiVariable_Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.values_at
+
+ call-seq:
+ values_at(argc) -> VALUE
+
+Return an Array of value elements matching the conditions.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_values_at(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","values_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (VALUE)std_map_Sl_std_string_Sc_CdiVariable_Sg__values_at(arg1,arg2,arg3,arg4);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.each_key
+
+ call-seq:
+ each_key -> VarsMap
+
+Iterate thru each key element in the VarsMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_each_key(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","each_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *)std_map_Sl_std_string_Sc_CdiVariable_Sg__each_key(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.values
+
+ call-seq:
+ values -> VALUE
+
+Return an Array of value elements.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_values(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","values", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_std_string_Sc_CdiVariable_Sg__values(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.each_value
+
+ call-seq:
+ each_value -> VarsMap
+
+Iterate thru each key element in the VarsMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_each_value(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","each_value", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *)std_map_Sl_std_string_Sc_CdiVariable_Sg__each_value(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_entries(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","entries", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_std_string_Sc_CdiVariable_Sg__entries(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_includeq___(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","__contains__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","__contains__", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","__contains__", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (bool)std_map_Sl_std_string_Sc_CdiVariable_Sg____contains__(arg1,(std::string const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_key_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","key_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_std_string_Sc_CdiVariable_Sg__key_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_value_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","value_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_std_string_Sc_CdiVariable_Sg__value_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.[]
+
+ call-seq:
+ [](key) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap___getitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","__getitem__", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","__getitem__", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (VALUE)std_map_Sl_std_string_Sc_CdiVariable_Sg____getitem__((std::map< std::string,CdiVariable > const *)arg1,(std::string const &)*arg2);
+ vresult = result;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.[]=
+
+ call-seq:
+ []=(key, x)
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap___setitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ std::map< std::string,CdiVariable >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","__setitem__", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","__setitem__", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::mapped_type const &","__setitem__", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::mapped_type const &","__setitem__", 3, argv[1]));
+ }
+ arg3 = reinterpret_cast< std::map< std::string,CdiVariable >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_std_string_Sc_CdiVariable_Sg____setitem__(arg1,(std::string const &)*arg2,(CdiVariable const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_inspect(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_std_string_Sc_CdiVariable_Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert VarsMap to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_to_a(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_std_string_Sc_CdiVariable_Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_to_s(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_std_string_Sc_CdiVariable_Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_VarsMap__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::map< std::string,CdiVariable > *)new std::map< std::string,CdiVariable >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_VarsMap_allocate(VALUE self)
+#else
+_wrap_VarsMap_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_VarsMap__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< std::string,CdiVariable > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *ptr = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > const &","map<(std::string,CdiVariable)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable > const &","map<(std::string,CdiVariable)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< std::string,CdiVariable > *)new std::map< std::string,CdiVariable >((std::map< std::string,CdiVariable > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_VarsMap(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[1];
+ int ii;
+
+ argc = nargs;
+ if (argc > 1) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_VarsMap__SWIG_1(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_std__lessT_std__string_t, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsMap__SWIG_0(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsMap__SWIG_2(nargs, args, self);
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 1, "VarsMap.new",
+ " VarsMap.new(std::less< std::string > const &other)\n"
+ " VarsMap.new()\n"
+ " VarsMap.new(std::map< std::string,CdiVariable > const &other)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the VarsMap is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (bool)((std::map< std::string,CdiVariable > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.size
+
+ call-seq:
+ size -> std::map< std::string,CdiVariable >::size_type
+
+Size or Length of the VarsMap.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_size(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = ((std::map< std::string,CdiVariable > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_swap(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.begin
+
+ call-seq:
+ begin -> std::map< std::string,CdiVariable >::iterator
+
+Return an iterator to the beginning of the VarsMap.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_begin(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj((new std::map< std::string,CdiVariable >::iterator(static_cast< const std::map< std::string,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.end
+
+ call-seq:
+ end -> std::map< std::string,CdiVariable >::iterator
+
+Return an iterator to past the end of the VarsMap.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_end(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj((new std::map< std::string,CdiVariable >::iterator(static_cast< const std::map< std::string,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.rbegin
+
+ call-seq:
+ rbegin -> std::map< std::string,CdiVariable >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the VarsMap.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj((new std::map< std::string,CdiVariable >::reverse_iterator(static_cast< const std::map< std::string,CdiVariable >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.rend
+
+ call-seq:
+ rend -> std::map< std::string,CdiVariable >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the VarsMap.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_rend(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj((new std::map< std::string,CdiVariable >::reverse_iterator(static_cast< const std::map< std::string,CdiVariable >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.clear
+
+ call-seq:
+ clear
+
+Clear VarsMap contents.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_clear(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< std::pair< std::string const,CdiVariable > > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ result = ((std::map< std::string,CdiVariable > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::map< std::string,CdiVariable >::allocator_type(static_cast< const std::map< std::string,CdiVariable >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.erase
+
+ call-seq:
+ erase(x) -> std::map< std::string,CdiVariable >::size_type
+ erase(position)
+ erase(first, last)
+
+Delete a portion of the VarsMap.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::map< std::string,CdiVariable >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","erase", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","erase", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (arg1)->erase((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_count(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::map< std::string,CdiVariable >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > const *","count", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","count", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","count", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = ((std::map< std::string,CdiVariable > const *)arg1)->count((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< std::string,CdiVariable >::iterator * >(argp2));
+ }
+ }
+ std_map_Sl_std_string_Sc_CdiVariable_Sg__erase__SWIG_1(arg1,arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_erase__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::iterator arg2 ;
+ std::map< std::string,CdiVariable >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< std::string,CdiVariable >::iterator * >(argp2));
+ }
+ }
+ {
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::iterator","erase", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::iterator","erase", 3, argv[1]));
+ } else {
+ arg3 = *(reinterpret_cast< std::map< std::string,CdiVariable >::iterator * >(argp3));
+ }
+ }
+ std_map_Sl_std_string_Sc_CdiVariable_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_VarsMap_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsMap_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ int res = SWIG_AsPtr_std_string(argv[1], (std::string**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsMap_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[2], &vptr, SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsMap_erase__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "VarsMap.erase",
+ " std::map< std::string,CdiVariable >::size_type VarsMap.erase(std::map< std::string,CdiVariable >::key_type const &x)\n"
+ " void VarsMap.erase(std::map< std::string,CdiVariable >::iterator position)\n"
+ " void VarsMap.erase(std::map< std::string,CdiVariable >::iterator first, std::map< std::string,CdiVariable >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsMap.find
+
+ call-seq:
+ find(x) -> std::map< std::string,CdiVariable >::iterator
+
+Find an element in the class.
+*/
+SWIGINTERN VALUE
+_wrap_VarsMap_find(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::map< std::string,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","find", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","find", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","find", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (arg1)->find((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< std::string,CdiVariable >::iterator(static_cast< const std::map< std::string,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_lower_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::map< std::string,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","lower_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","lower_bound", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","lower_bound", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (arg1)->lower_bound((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< std::string,CdiVariable >::iterator(static_cast< const std::map< std::string,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsMap_upper_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *) 0 ;
+ std::map< std::string,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+ std::map< std::string,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable > *","upper_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< std::string,CdiVariable > * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable >::key_type const &","upper_bound", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< std::string,CdiVariable >::key_type const &","upper_bound", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ result = (arg1)->upper_bound((std::map< std::string,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< std::string,CdiVariable >::iterator(static_cast< const std::map< std::string,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return vresult;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_map_Sl_std_string_Sc_CdiVariable_Sg_(void *self) {
+ std::map< std::string,CdiVariable > *arg1 = (std::map< std::string,CdiVariable > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassVarsByCode;
+
+SWIGINTERN VALUE
+_wrap_new_VarsByCode__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::less< int > *arg1 = 0 ;
+ void *argp1 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(argv[0], &argp1, SWIGTYPE_p_std__lessT_int_t, 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::less< int > const &","map<(int,CdiVariable)>", 1, argv[0] ));
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::less< int > const &","map<(int,CdiVariable)>", 1, argv[0]));
+ }
+ arg1 = reinterpret_cast< std::less< int > * >(argp1);
+ result = (std::map< int,CdiVariable > *)new std::map< int,CdiVariable >((std::less< int > const &)*arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.dup
+
+ call-seq:
+ dup -> VarsByCode
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_dup(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *)std_map_Sl_int_Sc_CdiVariable_Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.delete
+
+ call-seq:
+ delete(key) -> VALUE
+
+Delete a matching element.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_delete(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","__delete__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","__delete__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_map_Sl_int_Sc_CdiVariable_Sg____delete__(arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_has_keyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > const *","has_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","has_key", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiVariable_Sg__has_key((std::map< int,CdiVariable > const *)arg1,(int const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.keys
+
+ call-seq:
+ keys -> VALUE
+
+Return an Array of key elements.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_keys(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","keys", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiVariable_Sg__keys(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.each
+
+ call-seq:
+ each -> VarsByCode
+
+Iterate thru each element in the VarsByCode. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_each(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *)std_map_Sl_int_Sc_CdiVariable_Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.select
+
+ call-seq:
+ select -> VarsByCode
+
+Iterate thru each element in the VarsByCode and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_select(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *)std_map_Sl_int_Sc_CdiVariable_Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.values_at
+
+ call-seq:
+ values_at(argc) -> VALUE
+
+Return an Array of value elements matching the conditions.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_values_at(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","values_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (VALUE)std_map_Sl_int_Sc_CdiVariable_Sg__values_at(arg1,arg2,arg3,arg4);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.each_key
+
+ call-seq:
+ each_key -> VarsByCode
+
+Iterate thru each key element in the VarsByCode. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_each_key(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","each_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *)std_map_Sl_int_Sc_CdiVariable_Sg__each_key(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.values
+
+ call-seq:
+ values -> VALUE
+
+Return an Array of value elements.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_values(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","values", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiVariable_Sg__values(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.each_value
+
+ call-seq:
+ each_value -> VarsByCode
+
+Iterate thru each key element in the VarsByCode. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_each_value(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","each_value", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *)std_map_Sl_int_Sc_CdiVariable_Sg__each_value(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_entries(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","entries", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiVariable_Sg__entries(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_includeq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","__contains__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","__contains__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiVariable_Sg____contains__(arg1,(int const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_key_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","key_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_int_Sc_CdiVariable_Sg__key_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_value_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","value_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_int_Sc_CdiVariable_Sg__value_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.[]
+
+ call-seq:
+ [](key) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode___getitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","__getitem__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_map_Sl_int_Sc_CdiVariable_Sg____getitem__((std::map< int,CdiVariable > const *)arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.[]=
+
+ call-seq:
+ []=(key, x)
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode___setitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ std::map< int,CdiVariable >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","__setitem__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_CdiVariable, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::mapped_type const &","__setitem__", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiVariable >::mapped_type const &","__setitem__", 3, argv[1]));
+ }
+ arg3 = reinterpret_cast< std::map< int,CdiVariable >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_int_Sc_CdiVariable_Sg____setitem__(arg1,(int const &)*arg2,(CdiVariable const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_inspect(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiVariable_Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert VarsByCode to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_to_a(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiVariable_Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_to_s(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiVariable_Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_VarsByCode__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::map< int,CdiVariable > *)new std::map< int,CdiVariable >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_VarsByCode_allocate(VALUE self)
+#else
+_wrap_VarsByCode_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_VarsByCode__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< int,CdiVariable > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *ptr = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > const &","map<(int,CdiVariable)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiVariable > const &","map<(int,CdiVariable)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< int,CdiVariable > *)new std::map< int,CdiVariable >((std::map< int,CdiVariable > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_VarsByCode(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[1];
+ int ii;
+
+ argc = nargs;
+ if (argc > 1) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_VarsByCode__SWIG_1(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_std__lessT_int_t, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsByCode__SWIG_0(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_VarsByCode__SWIG_2(nargs, args, self);
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 1, "VarsByCode.new",
+ " VarsByCode.new(std::less< int > const &other)\n"
+ " VarsByCode.new()\n"
+ " VarsByCode.new(std::map< int,CdiVariable > const &other)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the VarsByCode is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (bool)((std::map< int,CdiVariable > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.size
+
+ call-seq:
+ size -> std::map< int,CdiVariable >::size_type
+
+Size or Length of the VarsByCode.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_size(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = ((std::map< int,CdiVariable > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_swap(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiVariable > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiVariable > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.begin
+
+ call-seq:
+ begin -> std::map< int,CdiVariable >::iterator
+
+Return an iterator to the beginning of the VarsByCode.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_begin(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiVariable >::iterator(static_cast< const std::map< int,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.end
+
+ call-seq:
+ end -> std::map< int,CdiVariable >::iterator
+
+Return an iterator to past the end of the VarsByCode.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_end(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiVariable >::iterator(static_cast< const std::map< int,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.rbegin
+
+ call-seq:
+ rbegin -> std::map< int,CdiVariable >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the VarsByCode.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiVariable >::reverse_iterator(static_cast< const std::map< int,CdiVariable >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.rend
+
+ call-seq:
+ rend -> std::map< int,CdiVariable >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the VarsByCode.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_rend(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiVariable >::reverse_iterator(static_cast< const std::map< int,CdiVariable >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.clear
+
+ call-seq:
+ clear
+
+Clear VarsByCode contents.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_clear(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< std::pair< int const,CdiVariable > > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ result = ((std::map< int,CdiVariable > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiVariable >::allocator_type(static_cast< const std::map< int,CdiVariable >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.erase
+
+ call-seq:
+ erase(x) -> std::map< int,CdiVariable >::size_type
+ erase(position)
+ erase(first, last)
+
+Delete a portion of the VarsByCode.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiVariable >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","erase", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->erase((std::map< int,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_count(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiVariable >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > const *","count", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","count", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = ((std::map< int,CdiVariable > const *)arg1)->count((std::map< int,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiVariable >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< int,CdiVariable >::iterator * >(argp2));
+ }
+ }
+ std_map_Sl_int_Sc_CdiVariable_Sg__erase__SWIG_1(arg1,arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_erase__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::iterator arg2 ;
+ std::map< int,CdiVariable >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiVariable >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< int,CdiVariable >::iterator * >(argp2));
+ }
+ }
+ {
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::iterator","erase", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiVariable >::iterator","erase", 3, argv[1]));
+ } else {
+ arg3 = *(reinterpret_cast< std::map< int,CdiVariable >::iterator * >(argp3));
+ }
+ }
+ std_map_Sl_int_Sc_CdiVariable_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_VarsByCode_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsByCode_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_VarsByCode_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[2], &vptr, SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_VarsByCode_erase__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "VarsByCode.erase",
+ " std::map< int,CdiVariable >::size_type VarsByCode.erase(std::map< int,CdiVariable >::key_type const &x)\n"
+ " void VarsByCode.erase(std::map< int,CdiVariable >::iterator position)\n"
+ " void VarsByCode.erase(std::map< int,CdiVariable >::iterator first, std::map< int,CdiVariable >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::VarsByCode.find
+
+ call-seq:
+ find(x) -> std::map< int,CdiVariable >::iterator
+
+Find an element in the class.
+*/
+SWIGINTERN VALUE
+_wrap_VarsByCode_find(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","find", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","find", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->find((std::map< int,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiVariable >::iterator(static_cast< const std::map< int,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_lower_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","lower_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","lower_bound", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->lower_bound((std::map< int,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiVariable >::iterator(static_cast< const std::map< int,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_VarsByCode_upper_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *) 0 ;
+ std::map< int,CdiVariable >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiVariable >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiVariable > *","upper_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiVariable > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable >::key_type","upper_bound", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiVariable >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->upper_bound((std::map< int,CdiVariable >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiVariable >::iterator(static_cast< const std::map< int,CdiVariable >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_map_Sl_int_Sc_CdiVariable_Sg_(void *self) {
+ std::map< int,CdiVariable > *arg1 = (std::map< int,CdiVariable > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassTaxesMap;
+
+SWIGINTERN VALUE
+_wrap_new_TaxesMap__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::less< int > *arg1 = 0 ;
+ void *argp1 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(argv[0], &argp1, SWIGTYPE_p_std__lessT_int_t, 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::less< int > const &","map<(int,CdiTaxis)>", 1, argv[0] ));
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::less< int > const &","map<(int,CdiTaxis)>", 1, argv[0]));
+ }
+ arg1 = reinterpret_cast< std::less< int > * >(argp1);
+ result = (std::map< int,CdiTaxis > *)new std::map< int,CdiTaxis >((std::less< int > const &)*arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.dup
+
+ call-seq:
+ dup -> TaxesMap
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_dup(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *)std_map_Sl_int_Sc_CdiTaxis_Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.delete
+
+ call-seq:
+ delete(key) -> VALUE
+
+Delete a matching element.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_delete(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","__delete__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","__delete__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_map_Sl_int_Sc_CdiTaxis_Sg____delete__(arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_has_keyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > const *","has_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","has_key", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiTaxis_Sg__has_key((std::map< int,CdiTaxis > const *)arg1,(int const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.keys
+
+ call-seq:
+ keys -> VALUE
+
+Return an Array of key elements.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_keys(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","keys", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiTaxis_Sg__keys(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.each
+
+ call-seq:
+ each -> TaxesMap
+
+Iterate thru each element in the TaxesMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_each(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *)std_map_Sl_int_Sc_CdiTaxis_Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.select
+
+ call-seq:
+ select -> TaxesMap
+
+Iterate thru each element in the TaxesMap and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_select(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *)std_map_Sl_int_Sc_CdiTaxis_Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.values_at
+
+ call-seq:
+ values_at(argc) -> VALUE
+
+Return an Array of value elements matching the conditions.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_values_at(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","values_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (VALUE)std_map_Sl_int_Sc_CdiTaxis_Sg__values_at(arg1,arg2,arg3,arg4);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.each_key
+
+ call-seq:
+ each_key -> TaxesMap
+
+Iterate thru each key element in the TaxesMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_each_key(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","each_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *)std_map_Sl_int_Sc_CdiTaxis_Sg__each_key(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.values
+
+ call-seq:
+ values -> VALUE
+
+Return an Array of value elements.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_values(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","values", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiTaxis_Sg__values(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.each_value
+
+ call-seq:
+ each_value -> TaxesMap
+
+Iterate thru each key element in the TaxesMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_each_value(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","each_value", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *)std_map_Sl_int_Sc_CdiTaxis_Sg__each_value(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_entries(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","entries", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiTaxis_Sg__entries(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_includeq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","__contains__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","__contains__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiTaxis_Sg____contains__(arg1,(int const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_key_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","key_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_int_Sc_CdiTaxis_Sg__key_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_value_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","value_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_int_Sc_CdiTaxis_Sg__value_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.[]
+
+ call-seq:
+ [](key) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap___getitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","__getitem__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_map_Sl_int_Sc_CdiTaxis_Sg____getitem__((std::map< int,CdiTaxis > const *)arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.[]=
+
+ call-seq:
+ []=(key, x)
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap___setitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ std::map< int,CdiTaxis >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","__setitem__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_CdiTaxis, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::mapped_type const &","__setitem__", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiTaxis >::mapped_type const &","__setitem__", 3, argv[1]));
+ }
+ arg3 = reinterpret_cast< std::map< int,CdiTaxis >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_int_Sc_CdiTaxis_Sg____setitem__(arg1,(int const &)*arg2,(CdiTaxis const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_inspect(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiTaxis_Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert TaxesMap to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_to_a(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiTaxis_Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_to_s(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiTaxis_Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_TaxesMap__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::map< int,CdiTaxis > *)new std::map< int,CdiTaxis >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_TaxesMap_allocate(VALUE self)
+#else
+_wrap_TaxesMap_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_TaxesMap__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< int,CdiTaxis > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *ptr = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > const &","map<(int,CdiTaxis)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiTaxis > const &","map<(int,CdiTaxis)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< int,CdiTaxis > *)new std::map< int,CdiTaxis >((std::map< int,CdiTaxis > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_TaxesMap(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[1];
+ int ii;
+
+ argc = nargs;
+ if (argc > 1) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_TaxesMap__SWIG_1(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_std__lessT_int_t, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_TaxesMap__SWIG_0(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_TaxesMap__SWIG_2(nargs, args, self);
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 1, "TaxesMap.new",
+ " TaxesMap.new(std::less< int > const &other)\n"
+ " TaxesMap.new()\n"
+ " TaxesMap.new(std::map< int,CdiTaxis > const &other)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the TaxesMap is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (bool)((std::map< int,CdiTaxis > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.size
+
+ call-seq:
+ size -> std::map< int,CdiTaxis >::size_type
+
+Size or Length of the TaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_size(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = ((std::map< int,CdiTaxis > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_swap(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiTaxis > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.begin
+
+ call-seq:
+ begin -> std::map< int,CdiTaxis >::iterator
+
+Return an iterator to the beginning of the TaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_begin(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiTaxis >::iterator(static_cast< const std::map< int,CdiTaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.end
+
+ call-seq:
+ end -> std::map< int,CdiTaxis >::iterator
+
+Return an iterator to past the end of the TaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_end(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiTaxis >::iterator(static_cast< const std::map< int,CdiTaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.rbegin
+
+ call-seq:
+ rbegin -> std::map< int,CdiTaxis >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the TaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiTaxis >::reverse_iterator(static_cast< const std::map< int,CdiTaxis >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.rend
+
+ call-seq:
+ rend -> std::map< int,CdiTaxis >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the TaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_rend(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiTaxis >::reverse_iterator(static_cast< const std::map< int,CdiTaxis >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.clear
+
+ call-seq:
+ clear
+
+Clear TaxesMap contents.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_clear(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< std::pair< int const,CdiTaxis > > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ result = ((std::map< int,CdiTaxis > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiTaxis >::allocator_type(static_cast< const std::map< int,CdiTaxis >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.erase
+
+ call-seq:
+ erase(x) -> std::map< int,CdiTaxis >::size_type
+ erase(position)
+ erase(first, last)
+
+Delete a portion of the TaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiTaxis >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","erase", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->erase((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_count(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiTaxis >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > const *","count", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","count", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = ((std::map< int,CdiTaxis > const *)arg1)->count((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiTaxis >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< int,CdiTaxis >::iterator * >(argp2));
+ }
+ }
+ std_map_Sl_int_Sc_CdiTaxis_Sg__erase__SWIG_1(arg1,arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_erase__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::iterator arg2 ;
+ std::map< int,CdiTaxis >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiTaxis >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< int,CdiTaxis >::iterator * >(argp2));
+ }
+ }
+ {
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::iterator","erase", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiTaxis >::iterator","erase", 3, argv[1]));
+ } else {
+ arg3 = *(reinterpret_cast< std::map< int,CdiTaxis >::iterator * >(argp3));
+ }
+ }
+ std_map_Sl_int_Sc_CdiTaxis_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_TaxesMap_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_TaxesMap_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_TaxesMap_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[2], &vptr, SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_TaxesMap_erase__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "TaxesMap.erase",
+ " std::map< int,CdiTaxis >::size_type TaxesMap.erase(std::map< int,CdiTaxis >::key_type const &x)\n"
+ " void TaxesMap.erase(std::map< int,CdiTaxis >::iterator position)\n"
+ " void TaxesMap.erase(std::map< int,CdiTaxis >::iterator first, std::map< int,CdiTaxis >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::TaxesMap.find
+
+ call-seq:
+ find(x) -> std::map< int,CdiTaxis >::iterator
+
+Find an element in the class.
+*/
+SWIGINTERN VALUE
+_wrap_TaxesMap_find(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiTaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","find", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","find", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->find((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiTaxis >::iterator(static_cast< const std::map< int,CdiTaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_lower_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiTaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","lower_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","lower_bound", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->lower_bound((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiTaxis >::iterator(static_cast< const std::map< int,CdiTaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_TaxesMap_upper_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *) 0 ;
+ std::map< int,CdiTaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiTaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis > *","upper_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiTaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis >::key_type","upper_bound", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiTaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->upper_bound((std::map< int,CdiTaxis >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiTaxis >::iterator(static_cast< const std::map< int,CdiTaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_map_Sl_int_Sc_CdiTaxis_Sg_(void *self) {
+ std::map< int,CdiTaxis > *arg1 = (std::map< int,CdiTaxis > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassZaxesMap;
+
+SWIGINTERN VALUE
+_wrap_new_ZaxesMap__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::less< int > *arg1 = 0 ;
+ void *argp1 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(argv[0], &argp1, SWIGTYPE_p_std__lessT_int_t, 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::less< int > const &","map<(int,CdiZaxis)>", 1, argv[0] ));
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::less< int > const &","map<(int,CdiZaxis)>", 1, argv[0]));
+ }
+ arg1 = reinterpret_cast< std::less< int > * >(argp1);
+ result = (std::map< int,CdiZaxis > *)new std::map< int,CdiZaxis >((std::less< int > const &)*arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.dup
+
+ call-seq:
+ dup -> ZaxesMap
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_dup(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *)std_map_Sl_int_Sc_CdiZaxis_Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.delete
+
+ call-seq:
+ delete(key) -> VALUE
+
+Delete a matching element.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_delete(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","__delete__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","__delete__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_map_Sl_int_Sc_CdiZaxis_Sg____delete__(arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_has_keyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > const *","has_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","has_key", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiZaxis_Sg__has_key((std::map< int,CdiZaxis > const *)arg1,(int const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.keys
+
+ call-seq:
+ keys -> VALUE
+
+Return an Array of key elements.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_keys(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","keys", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiZaxis_Sg__keys(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.each
+
+ call-seq:
+ each -> ZaxesMap
+
+Iterate thru each element in the ZaxesMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_each(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *)std_map_Sl_int_Sc_CdiZaxis_Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.select
+
+ call-seq:
+ select -> ZaxesMap
+
+Iterate thru each element in the ZaxesMap and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_select(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *)std_map_Sl_int_Sc_CdiZaxis_Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.values_at
+
+ call-seq:
+ values_at(argc) -> VALUE
+
+Return an Array of value elements matching the conditions.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_values_at(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","values_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (VALUE)std_map_Sl_int_Sc_CdiZaxis_Sg__values_at(arg1,arg2,arg3,arg4);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.each_key
+
+ call-seq:
+ each_key -> ZaxesMap
+
+Iterate thru each key element in the ZaxesMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_each_key(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","each_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *)std_map_Sl_int_Sc_CdiZaxis_Sg__each_key(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.values
+
+ call-seq:
+ values -> VALUE
+
+Return an Array of value elements.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_values(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","values", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiZaxis_Sg__values(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.each_value
+
+ call-seq:
+ each_value -> ZaxesMap
+
+Iterate thru each key element in the ZaxesMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_each_value(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","each_value", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *)std_map_Sl_int_Sc_CdiZaxis_Sg__each_value(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_entries(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","entries", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiZaxis_Sg__entries(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_includeq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","__contains__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","__contains__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiZaxis_Sg____contains__(arg1,(int const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_key_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","key_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_int_Sc_CdiZaxis_Sg__key_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_value_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","value_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_int_Sc_CdiZaxis_Sg__value_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.[]
+
+ call-seq:
+ [](key) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap___getitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","__getitem__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_map_Sl_int_Sc_CdiZaxis_Sg____getitem__((std::map< int,CdiZaxis > const *)arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.[]=
+
+ call-seq:
+ []=(key, x)
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap___setitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ std::map< int,CdiZaxis >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","__setitem__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_CdiZaxis, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::mapped_type const &","__setitem__", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiZaxis >::mapped_type const &","__setitem__", 3, argv[1]));
+ }
+ arg3 = reinterpret_cast< std::map< int,CdiZaxis >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_int_Sc_CdiZaxis_Sg____setitem__(arg1,(int const &)*arg2,(CdiZaxis const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_inspect(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiZaxis_Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert ZaxesMap to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_to_a(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiZaxis_Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_to_s(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiZaxis_Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_ZaxesMap__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::map< int,CdiZaxis > *)new std::map< int,CdiZaxis >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_ZaxesMap_allocate(VALUE self)
+#else
+_wrap_ZaxesMap_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_ZaxesMap__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< int,CdiZaxis > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *ptr = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > const &","map<(int,CdiZaxis)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiZaxis > const &","map<(int,CdiZaxis)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< int,CdiZaxis > *)new std::map< int,CdiZaxis >((std::map< int,CdiZaxis > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_ZaxesMap(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[1];
+ int ii;
+
+ argc = nargs;
+ if (argc > 1) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_ZaxesMap__SWIG_1(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_std__lessT_int_t, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_ZaxesMap__SWIG_0(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_ZaxesMap__SWIG_2(nargs, args, self);
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 1, "ZaxesMap.new",
+ " ZaxesMap.new(std::less< int > const &other)\n"
+ " ZaxesMap.new()\n"
+ " ZaxesMap.new(std::map< int,CdiZaxis > const &other)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the ZaxesMap is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (bool)((std::map< int,CdiZaxis > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.size
+
+ call-seq:
+ size -> std::map< int,CdiZaxis >::size_type
+
+Size or Length of the ZaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_size(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = ((std::map< int,CdiZaxis > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_swap(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiZaxis > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.begin
+
+ call-seq:
+ begin -> std::map< int,CdiZaxis >::iterator
+
+Return an iterator to the beginning of the ZaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_begin(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiZaxis >::iterator(static_cast< const std::map< int,CdiZaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.end
+
+ call-seq:
+ end -> std::map< int,CdiZaxis >::iterator
+
+Return an iterator to past the end of the ZaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_end(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiZaxis >::iterator(static_cast< const std::map< int,CdiZaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.rbegin
+
+ call-seq:
+ rbegin -> std::map< int,CdiZaxis >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the ZaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiZaxis >::reverse_iterator(static_cast< const std::map< int,CdiZaxis >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.rend
+
+ call-seq:
+ rend -> std::map< int,CdiZaxis >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the ZaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_rend(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiZaxis >::reverse_iterator(static_cast< const std::map< int,CdiZaxis >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.clear
+
+ call-seq:
+ clear
+
+Clear ZaxesMap contents.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_clear(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< std::pair< int const,CdiZaxis > > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ result = ((std::map< int,CdiZaxis > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiZaxis >::allocator_type(static_cast< const std::map< int,CdiZaxis >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.erase
+
+ call-seq:
+ erase(x) -> std::map< int,CdiZaxis >::size_type
+ erase(position)
+ erase(first, last)
+
+Delete a portion of the ZaxesMap.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiZaxis >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","erase", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->erase((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_count(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiZaxis >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > const *","count", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","count", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = ((std::map< int,CdiZaxis > const *)arg1)->count((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiZaxis >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< int,CdiZaxis >::iterator * >(argp2));
+ }
+ }
+ std_map_Sl_int_Sc_CdiZaxis_Sg__erase__SWIG_1(arg1,arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_erase__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::iterator arg2 ;
+ std::map< int,CdiZaxis >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiZaxis >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< int,CdiZaxis >::iterator * >(argp2));
+ }
+ }
+ {
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::iterator","erase", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiZaxis >::iterator","erase", 3, argv[1]));
+ } else {
+ arg3 = *(reinterpret_cast< std::map< int,CdiZaxis >::iterator * >(argp3));
+ }
+ }
+ std_map_Sl_int_Sc_CdiZaxis_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_ZaxesMap_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_ZaxesMap_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_ZaxesMap_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[2], &vptr, SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_ZaxesMap_erase__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "ZaxesMap.erase",
+ " std::map< int,CdiZaxis >::size_type ZaxesMap.erase(std::map< int,CdiZaxis >::key_type const &x)\n"
+ " void ZaxesMap.erase(std::map< int,CdiZaxis >::iterator position)\n"
+ " void ZaxesMap.erase(std::map< int,CdiZaxis >::iterator first, std::map< int,CdiZaxis >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::ZaxesMap.find
+
+ call-seq:
+ find(x) -> std::map< int,CdiZaxis >::iterator
+
+Find an element in the class.
+*/
+SWIGINTERN VALUE
+_wrap_ZaxesMap_find(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiZaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","find", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","find", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->find((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiZaxis >::iterator(static_cast< const std::map< int,CdiZaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_lower_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiZaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","lower_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","lower_bound", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->lower_bound((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiZaxis >::iterator(static_cast< const std::map< int,CdiZaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_ZaxesMap_upper_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *) 0 ;
+ std::map< int,CdiZaxis >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiZaxis >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis > *","upper_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiZaxis > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis >::key_type","upper_bound", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiZaxis >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->upper_bound((std::map< int,CdiZaxis >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiZaxis >::iterator(static_cast< const std::map< int,CdiZaxis >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_map_Sl_int_Sc_CdiZaxis_Sg_(void *self) {
+ std::map< int,CdiZaxis > *arg1 = (std::map< int,CdiZaxis > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassGridsMap;
+
+SWIGINTERN VALUE
+_wrap_new_GridsMap__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::less< int > *arg1 = 0 ;
+ void *argp1 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(argv[0], &argp1, SWIGTYPE_p_std__lessT_int_t, 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::less< int > const &","map<(int,CdiGrid)>", 1, argv[0] ));
+ }
+ if (!argp1) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::less< int > const &","map<(int,CdiGrid)>", 1, argv[0]));
+ }
+ arg1 = reinterpret_cast< std::less< int > * >(argp1);
+ result = (std::map< int,CdiGrid > *)new std::map< int,CdiGrid >((std::less< int > const &)*arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.dup
+
+ call-seq:
+ dup -> GridsMap
+
+Create a duplicate of the class and unfreeze it if needed.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_dup(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","dup", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *)std_map_Sl_int_Sc_CdiGrid_Sg__dup(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.delete
+
+ call-seq:
+ delete(key) -> VALUE
+
+Delete a matching element.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_delete(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","__delete__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","__delete__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_map_Sl_int_Sc_CdiGrid_Sg____delete__(arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_has_keyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > const *","has_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","has_key", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiGrid_Sg__has_key((std::map< int,CdiGrid > const *)arg1,(int const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.keys
+
+ call-seq:
+ keys -> VALUE
+
+Return an Array of key elements.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_keys(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","keys", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiGrid_Sg__keys(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.each
+
+ call-seq:
+ each -> GridsMap
+
+Iterate thru each element in the GridsMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_each(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","each", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *)std_map_Sl_int_Sc_CdiGrid_Sg__each(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.select
+
+ call-seq:
+ select -> GridsMap
+
+Iterate thru each element in the GridsMap and select those that match a condition. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_select(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","select", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *)std_map_Sl_int_Sc_CdiGrid_Sg__select(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.values_at
+
+ call-seq:
+ values_at(argc) -> VALUE
+
+Return an Array of value elements matching the conditions.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_values_at(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ int arg2 ;
+ VALUE *arg3 = (VALUE *) 0 ;
+ void *arg4 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if (argc < 1) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","values_at", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ {
+ arg2 = argc;
+ arg3 = argv;
+ }
+ result = (VALUE)std_map_Sl_int_Sc_CdiGrid_Sg__values_at(arg1,arg2,arg3,arg4);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.each_key
+
+ call-seq:
+ each_key -> GridsMap
+
+Iterate thru each key element in the GridsMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_each_key(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","each_key", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *)std_map_Sl_int_Sc_CdiGrid_Sg__each_key(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.values
+
+ call-seq:
+ values -> VALUE
+
+Return an Array of value elements.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_values(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","values", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiGrid_Sg__values(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.each_value
+
+ call-seq:
+ each_value -> GridsMap
+
+Iterate thru each key element in the GridsMap. A block must be provided.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_each_value(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","each_value", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *)std_map_Sl_int_Sc_CdiGrid_Sg__each_value(arg1);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_entries(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","entries", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiGrid_Sg__entries(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_includeq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","__contains__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","__contains__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (bool)std_map_Sl_int_Sc_CdiGrid_Sg____contains__(arg1,(int const &)*arg2);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_key_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","key_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_int_Sc_CdiGrid_Sg__key_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_value_iterator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ VALUE *arg2 = (VALUE *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ swig::ConstIterator *result = 0 ;
+ VALUE vresult = Qnil;
+
+ arg2 = &self;
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","value_iterator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (swig::ConstIterator *)std_map_Sl_int_Sc_CdiGrid_Sg__value_iterator(arg1,arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_swig__ConstIterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.[]
+
+ call-seq:
+ [](key) -> VALUE
+
+Element accessor/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap___getitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > const *","__getitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","__getitem__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (VALUE)std_map_Sl_int_Sc_CdiGrid_Sg____getitem__((std::map< int,CdiGrid > const *)arg1,(int const &)*arg2);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.[]=
+
+ call-seq:
+ []=(key, x)
+
+Element setter/slicing.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap___setitem__(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ std::map< int,CdiGrid >::mapped_type *arg3 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","__setitem__", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","__setitem__", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_CdiGrid, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::mapped_type const &","__setitem__", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiGrid >::mapped_type const &","__setitem__", 3, argv[1]));
+ }
+ arg3 = reinterpret_cast< std::map< int,CdiGrid >::mapped_type * >(argp3);
+ try {
+ std_map_Sl_int_Sc_CdiGrid_Sg____setitem__(arg1,(int const &)*arg2,(CdiGrid const &)*arg3);
+ } catch(std::out_of_range &_e) {
+ SWIG_exception_fail(SWIG_IndexError, (&_e)->what());
+ }
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.inspect
+
+ call-seq:
+ inspect -> VALUE
+
+Inspect class and its contents.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_inspect(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","inspect", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiGrid_Sg__inspect(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.to_a
+
+ call-seq:
+ to_a -> VALUE
+
+Convert GridsMap to an Array.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_to_a(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","to_a", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiGrid_Sg__to_a(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.to_s
+
+ call-seq:
+ to_s -> VALUE
+
+Convert class to a String representation.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_to_s(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ VALUE result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","to_s", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (VALUE)std_map_Sl_int_Sc_CdiGrid_Sg__to_s(arg1);
+ vresult = result;
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_GridsMap__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (std::map< int,CdiGrid > *)new std::map< int,CdiGrid >();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_GridsMap_allocate(VALUE self)
+#else
+_wrap_GridsMap_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_GridsMap__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = 0 ;
+ int res1 = SWIG_OLDOBJ ;
+ std::map< int,CdiGrid > *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ {
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *ptr = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *)0;
+ res1 = swig::asptr(argv[0], &ptr);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > const &","map<(int,CdiGrid)>", 1, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiGrid > const &","map<(int,CdiGrid)>", 1, argv[0]));
+ }
+ arg1 = ptr;
+ }
+ result = (std::map< int,CdiGrid > *)new std::map< int,CdiGrid >((std::map< int,CdiGrid > const &)*arg1);
+ DATA_PTR(self) = result;
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return self;
+fail:
+ if (SWIG_IsNewObj(res1)) delete arg1;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_GridsMap(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[1];
+ int ii;
+
+ argc = nargs;
+ if (argc > 1) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_GridsMap__SWIG_1(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_std__lessT_int_t, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_GridsMap__SWIG_0(nargs, args, self);
+ }
+ }
+ if (argc == 1) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_new_GridsMap__SWIG_2(nargs, args, self);
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 1, "GridsMap.new",
+ " GridsMap.new(std::less< int > const &other)\n"
+ " GridsMap.new()\n"
+ " GridsMap.new(std::map< int,CdiGrid > const &other)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.empty?
+
+ call-seq:
+ empty? -> bool
+
+Check if the GridsMap is empty or not.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_emptyq___(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > const *","empty", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (bool)((std::map< int,CdiGrid > const *)arg1)->empty();
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.size
+
+ call-seq:
+ size -> std::map< int,CdiGrid >::size_type
+
+Size or Length of the GridsMap.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_size(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > const *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = ((std::map< int,CdiGrid > const *)arg1)->size();
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_swap(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid > *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","swap", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > &","swap", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiGrid > &","swap", 2, argv[0]));
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiGrid > * >(argp2);
+ (arg1)->swap(*arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.begin
+
+ call-seq:
+ begin -> std::map< int,CdiGrid >::iterator
+
+Return an iterator to the beginning of the GridsMap.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_begin(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","begin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (arg1)->begin();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiGrid >::iterator(static_cast< const std::map< int,CdiGrid >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.end
+
+ call-seq:
+ end -> std::map< int,CdiGrid >::iterator
+
+Return an iterator to past the end of the GridsMap.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_end(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","end", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (arg1)->end();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiGrid >::iterator(static_cast< const std::map< int,CdiGrid >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.rbegin
+
+ call-seq:
+ rbegin -> std::map< int,CdiGrid >::reverse_iterator
+
+Return a reverse iterator to the beginning (the end) of the GridsMap.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_rbegin(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","rbegin", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (arg1)->rbegin();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiGrid >::reverse_iterator(static_cast< const std::map< int,CdiGrid >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.rend
+
+ call-seq:
+ rend -> std::map< int,CdiGrid >::reverse_iterator
+
+Return a reverse iterator to past the end (past the beginning) of the GridsMap.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_rend(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::reverse_iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","rend", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = (arg1)->rend();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiGrid >::reverse_iterator(static_cast< const std::map< int,CdiGrid >::reverse_iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__reverse_iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.clear
+
+ call-seq:
+ clear
+
+Clear GridsMap contents.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_clear(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","clear", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ (arg1)->clear();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_get_allocator(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::allocator< std::pair< int const,CdiGrid > > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > const *","get_allocator", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ result = ((std::map< int,CdiGrid > const *)arg1)->get_allocator();
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiGrid >::allocator_type(static_cast< const std::map< int,CdiGrid >::allocator_type& >(result))), SWIGTYPE_p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.erase
+
+ call-seq:
+ erase(x) -> std::map< int,CdiGrid >::size_type
+ erase(position)
+ erase(first, last)
+
+Delete a portion of the GridsMap.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_erase__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiGrid >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","erase", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->erase((std::map< int,CdiGrid >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_count(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiGrid >::size_type result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > const *","count", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","count", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = ((std::map< int,CdiGrid > const *)arg1)->count((std::map< int,CdiGrid >::key_type const &)*arg2);
+ vresult = SWIG_From_size_t(static_cast< size_t >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_erase__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::iterator arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiGrid >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< int,CdiGrid >::iterator * >(argp2));
+ }
+ }
+ std_map_Sl_int_Sc_CdiGrid_Sg__erase__SWIG_1(arg1,arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_erase__SWIG_2(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::iterator arg2 ;
+ std::map< int,CdiGrid >::iterator arg3 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 ;
+ int res2 = 0 ;
+ void *argp3 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","erase", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ {
+ res2 = SWIG_ConvertPtr(argv[0], &argp2, SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::iterator","erase", 2, argv[0] ));
+ }
+ if (!argp2) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiGrid >::iterator","erase", 2, argv[0]));
+ } else {
+ arg2 = *(reinterpret_cast< std::map< int,CdiGrid >::iterator * >(argp2));
+ }
+ }
+ {
+ res3 = SWIG_ConvertPtr(argv[1], &argp3, SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::iterator","erase", 3, argv[1] ));
+ }
+ if (!argp3) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::map< int,CdiGrid >::iterator","erase", 3, argv[1]));
+ } else {
+ arg3 = *(reinterpret_cast< std::map< int,CdiGrid >::iterator * >(argp3));
+ }
+ }
+ std_map_Sl_int_Sc_CdiGrid_Sg__erase__SWIG_2(arg1,arg2,arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_GridsMap_erase(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[4];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 4) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_GridsMap_erase__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_GridsMap_erase__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+ if (argc == 3) {
+ int _v;
+ int res = swig::asptr(argv[0], (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >**)(0));
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[2], &vptr, SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, SWIG_POINTER_NO_NULL);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_GridsMap_erase__SWIG_2(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 4, "GridsMap.erase",
+ " std::map< int,CdiGrid >::size_type GridsMap.erase(std::map< int,CdiGrid >::key_type const &x)\n"
+ " void GridsMap.erase(std::map< int,CdiGrid >::iterator position)\n"
+ " void GridsMap.erase(std::map< int,CdiGrid >::iterator first, std::map< int,CdiGrid >::iterator last)\n");
+
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::GridsMap.find
+
+ call-seq:
+ find(x) -> std::map< int,CdiGrid >::iterator
+
+Find an element in the class.
+*/
+SWIGINTERN VALUE
+_wrap_GridsMap_find(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiGrid >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","find", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","find", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->find((std::map< int,CdiGrid >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiGrid >::iterator(static_cast< const std::map< int,CdiGrid >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_lower_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiGrid >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","lower_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","lower_bound", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->lower_bound((std::map< int,CdiGrid >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiGrid >::iterator(static_cast< const std::map< int,CdiGrid >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_GridsMap_upper_bound(int argc, VALUE *argv, VALUE self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *) 0 ;
+ std::map< int,CdiGrid >::key_type *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid >::key_type temp2 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ std::map< int,CdiGrid >::iterator result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "std::map< int,CdiGrid > *","upper_bound", 1, self ));
+ }
+ arg1 = reinterpret_cast< std::map< int,CdiGrid > * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid >::key_type","upper_bound", 2, argv[0] ));
+ }
+ temp2 = static_cast< std::map< int,CdiGrid >::key_type >(val2);
+ arg2 = &temp2;
+ result = (arg1)->upper_bound((std::map< int,CdiGrid >::key_type const &)*arg2);
+ vresult = SWIG_NewPointerObj((new std::map< int,CdiGrid >::iterator(static_cast< const std::map< int,CdiGrid >::iterator& >(result))), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_std_map_Sl_int_Sc_CdiGrid_Sg_(void *self) {
+ std::map< int,CdiGrid > *arg1 = (std::map< int,CdiGrid > *)self;
+ delete arg1;
+}
+
+static swig_class SwigClassCdiGrid;
+
+SWIGINTERN VALUE
+_wrap_new_CdiGrid__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (CdiGrid *)new CdiGrid();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_CdiGrid_allocate(VALUE self)
+#else
+_wrap_CdiGrid_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_CdiGrid);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_CdiGrid__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ int arg1 ;
+ int val1 ;
+ int ecode1 = 0 ;
+ CdiGrid *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_int(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "int","CdiGrid", 1, argv[0] ));
+ }
+ arg1 = static_cast< int >(val1);
+ result = (CdiGrid *)new CdiGrid(arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_CdiGrid(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[1];
+ int ii;
+
+ argc = nargs;
+ if (argc > 1) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_CdiGrid__SWIG_0(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_int(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_CdiGrid__SWIG_1(nargs, args, self);
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 1, "CdiGrid.new",
+ " CdiGrid.new()\n"
+ " CdiGrid.new(int gridid)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_CdiGrid(void *self) {
+ CdiGrid *arg1 = (CdiGrid *)self;
+ delete arg1;
+}
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_gridID_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","gridID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","gridID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->gridID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_gridID_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","gridID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->gridID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_type_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","type", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","type", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->type = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_type_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","type", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->type);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::CdiGrid.size
+
+ call-seq:
+ size -> int
+
+Size or Length of the CdiGrid.
+*/
+/*
+ Document-method: Cdi::CdiGrid.size=
+
+ call-seq:
+ size=(x) -> int
+
+Size or Length of the CdiGrid.
+*/
+SWIGINTERN VALUE
+_wrap_CdiGrid_size_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","size", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->size = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_size_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->size);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xsize_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xsize", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","xsize", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->xsize = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xsize_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xsize", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->xsize);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ysize_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ysize", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","ysize", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ysize = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ysize_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ysize", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->ysize);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_prec_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","prec", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","prec", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->prec = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_prec_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","prec", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->prec);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ncorner_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ncorner", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","ncorner", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ncorner = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ncorner_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ncorner", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (int) ((arg1)->ncorner);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_hasXValues_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ bool arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","hasXValues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_bool(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "bool","hasXValues", 2, argv[0] ));
+ }
+ arg2 = static_cast< bool >(val2);
+ if (arg1) (arg1)->hasXValues = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_hasXValues_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","hasXValues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (bool) ((arg1)->hasXValues);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_hasYValues_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ bool arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","hasYValues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_bool(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "bool","hasYValues", 2, argv[0] ));
+ }
+ arg2 = static_cast< bool >(val2);
+ if (arg1) (arg1)->hasYValues = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_hasYValues_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","hasYValues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (bool) ((arg1)->hasYValues);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_hasBounds_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ bool arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","hasBounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ ecode2 = SWIG_AsVal_bool(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "bool","hasBounds", 2, argv[0] ));
+ }
+ arg2 = static_cast< bool >(val2);
+ if (arg1) (arg1)->hasBounds = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_hasBounds_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ bool result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","hasBounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (bool) ((arg1)->hasBounds);
+ vresult = SWIG_From_bool(static_cast< bool >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xvalues_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xvalues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > *","xvalues", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->xvalues = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xvalues_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xvalues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->xvalues);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_yvalues_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","yvalues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > *","yvalues", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->yvalues = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_yvalues_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","yvalues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->yvalues);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xbounds_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xbounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > *","xbounds", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->xbounds = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xbounds_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xbounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->xbounds);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ybounds_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ybounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > *","ybounds", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->ybounds = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ybounds_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ybounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->ybounds);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xname_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","xname", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","xname", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->xname = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xname_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->xname);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xlongname_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xlongname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","xlongname", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","xlongname", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->xlongname = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xlongname_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xlongname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->xlongname);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xstdname_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xstdname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","xstdname", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","xstdname", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->xstdname = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xstdname_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xstdname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->xstdname);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xunits_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xunits", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","xunits", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","xunits", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->xunits = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_xunits_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","xunits", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->xunits);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_yname_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","yname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","yname", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","yname", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->yname = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_yname_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","yname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->yname);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ylongname_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ylongname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","ylongname", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","ylongname", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->ylongname = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ylongname_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ylongname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->ylongname);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ystdname_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ystdname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","ystdname", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","ystdname", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->ystdname = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_ystdname_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","ystdname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->ystdname);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_yunits_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","yunits", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","yunits", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","yunits", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->yunits = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_yunits_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","yunits", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->yunits);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_name_set(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","name", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","name", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","name", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->name = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_name_get(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","name", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ result = (std::string *) & ((arg1)->name);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_getValues(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","getValues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ (arg1)->getValues();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_getBounds(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","getBounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ (arg1)->getBounds();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_getValuesAsPointer(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ double *arg2 = (double *) 0 ;
+ double *arg3 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","getValuesAsPointer", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_double, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "double *","getValuesAsPointer", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ res3 = SWIG_ConvertPtr(argv[1], &argp3,SWIGTYPE_p_double, 0 | 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "double *","getValuesAsPointer", 3, argv[1] ));
+ }
+ arg3 = reinterpret_cast< double * >(argp3);
+ (arg1)->getValuesAsPointer(arg2,arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_getBoundsAsPointer(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ double *arg2 = (double *) 0 ;
+ double *arg3 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","getBoundsAsPointer", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_double, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "double *","getBoundsAsPointer", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ res3 = SWIG_ConvertPtr(argv[1], &argp3,SWIGTYPE_p_double, 0 | 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "double *","getBoundsAsPointer", 3, argv[1] ));
+ }
+ arg3 = reinterpret_cast< double * >(argp3);
+ (arg1)->getBoundsAsPointer(arg2,arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_getFloatVals(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ float *arg2 = (float *) 0 ;
+ float *arg3 = (float *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","getFloatVals", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_float, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "float *","getFloatVals", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< float * >(argp2);
+ res3 = SWIG_ConvertPtr(argv[1], &argp3,SWIGTYPE_p_float, 0 | 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "float *","getFloatVals", 3, argv[1] ));
+ }
+ arg3 = reinterpret_cast< float * >(argp3);
+ (arg1)->getFloatVals(arg2,arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiGrid_getFloatBounds(int argc, VALUE *argv, VALUE self) {
+ CdiGrid *arg1 = (CdiGrid *) 0 ;
+ float *arg2 = (float *) 0 ;
+ float *arg3 = (float *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+ void *argp3 = 0 ;
+ int res3 = 0 ;
+
+ if ((argc < 2) || (argc > 2)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 2)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiGrid *","getFloatBounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiGrid * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_float, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "float *","getFloatBounds", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< float * >(argp2);
+ res3 = SWIG_ConvertPtr(argv[1], &argp3,SWIGTYPE_p_float, 0 | 0 );
+ if (!SWIG_IsOK(res3)) {
+ SWIG_exception_fail(SWIG_ArgError(res3), Ruby_Format_TypeError( "", "float *","getFloatBounds", 3, argv[1] ));
+ }
+ arg3 = reinterpret_cast< float * >(argp3);
+ (arg1)->getFloatBounds(arg2,arg3);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+static swig_class SwigClassCdiTaxis;
+
+SWIGINTERN VALUE
+_wrap_new_CdiTaxis__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (CdiTaxis *)new CdiTaxis();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_CdiTaxis_allocate(VALUE self)
+#else
+_wrap_CdiTaxis_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_CdiTaxis);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_CdiTaxis__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ int arg1 ;
+ int val1 ;
+ int ecode1 = 0 ;
+ CdiTaxis *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_int(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "int","CdiTaxis", 1, argv[0] ));
+ }
+ arg1 = static_cast< int >(val1);
+ result = (CdiTaxis *)new CdiTaxis(arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_CdiTaxis(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[1];
+ int ii;
+
+ argc = nargs;
+ if (argc > 1) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_CdiTaxis__SWIG_0(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_int(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_CdiTaxis__SWIG_1(nargs, args, self);
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 1, "CdiTaxis.new",
+ " CdiTaxis.new()\n"
+ " CdiTaxis.new(int vlistID)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_CdiTaxis(void *self) {
+ CdiTaxis *arg1 = (CdiTaxis *)self;
+ delete arg1;
+}
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_taxisID_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","taxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","taxisID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->taxisID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_taxisID_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","taxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->taxisID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_ntsteps_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","ntsteps", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","ntsteps", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ntsteps = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_ntsteps_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","ntsteps", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->ntsteps);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_unit_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","unit", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","unit", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->unit = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_unit_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","unit", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->unit);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_rdate_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","rdate", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","rdate", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->rdate = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_rdate_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","rdate", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->rdate);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_rtime_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","rtime", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","rtime", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->rtime = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_rtime_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","rtime", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->rtime);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_vdate_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","vdate", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","vdate", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->vdate = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_vdate_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","vdate", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->vdate);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_vtime_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","vtime", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","vtime", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->vtime = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_vtime_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","vtime", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->vtime);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_type_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","type", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","type", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->type = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_type_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","type", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->type);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_calendar_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","calendar", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","calendar", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->calendar = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_calendar_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","calendar", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->calendar);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_hasBounds_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","hasBounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","hasBounds", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->hasBounds = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_hasBounds_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","hasBounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (int) ((arg1)->hasBounds);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_name_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ char *arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ char temp2[CDI_MAX_NAME] ;
+ int res2 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","name", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ res2 = SWIG_AsCharArray(argv[0], temp2, CDI_MAX_NAME);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "char [CDI_MAX_NAME]","name", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< char * >(temp2);
+ if (arg2) memcpy(arg1->name,arg2,CDI_MAX_NAME*sizeof(char));
+ else memset(arg1->name,0,CDI_MAX_NAME*sizeof(char));
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_name_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ char *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","name", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (char *)(char *) ((arg1)->name);
+ {
+ size_t size = SWIG_strnlen(result, CDI_MAX_NAME);
+
+
+
+ vresult = SWIG_FromCharPtrAndSize(result, size);
+ }
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_unitname_set(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ char *arg2 = (char *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 ;
+ char *buf2 = 0 ;
+ int alloc2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","unitname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ res2 = SWIG_AsCharPtrAndSize(argv[0], &buf2, NULL, &alloc2);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "char const *","unitname", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< char * >(buf2);
+ if (arg2) {
+ size_t size = strlen(reinterpret_cast< const char * >(reinterpret_cast< const char * >(arg2))) + 1;
+ arg1->unitname = (char const *)reinterpret_cast< char* >(memcpy(new char[size], arg2, sizeof(char)*(size)));
+ } else {
+ arg1->unitname = 0;
+ }
+ if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
+ return Qnil;
+fail:
+ if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiTaxis_unitname_get(int argc, VALUE *argv, VALUE self) {
+ CdiTaxis *arg1 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ char *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiTaxis *","unitname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiTaxis * >(argp1);
+ result = (char *) ((arg1)->unitname);
+ vresult = SWIG_FromCharPtr((const char *)result);
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+static swig_class SwigClassCdiZaxis;
+
+SWIGINTERN VALUE
+_wrap_new_CdiZaxis__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (CdiZaxis *)new CdiZaxis();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_CdiZaxis_allocate(VALUE self)
+#else
+_wrap_CdiZaxis_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_CdiZaxis);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_CdiZaxis__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ int arg1 ;
+ int val1 ;
+ int ecode1 = 0 ;
+ CdiZaxis *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_int(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "int","CdiZaxis", 1, argv[0] ));
+ }
+ arg1 = static_cast< int >(val1);
+ result = (CdiZaxis *)new CdiZaxis(arg1);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_CdiZaxis(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[1];
+ int ii;
+
+ argc = nargs;
+ if (argc > 1) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_CdiZaxis__SWIG_0(nargs, args, self);
+ }
+ if (argc == 1) {
+ int _v;
+ {
+ int res = SWIG_AsVal_int(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_CdiZaxis__SWIG_1(nargs, args, self);
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 1, "CdiZaxis.new",
+ " CdiZaxis.new()\n"
+ " CdiZaxis.new(int zaxisid)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_CdiZaxis(void *self) {
+ CdiZaxis *arg1 = (CdiZaxis *)self;
+ delete arg1;
+}
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_zaxisID_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","zaxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","zaxisID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->zaxisID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_zaxisID_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","zaxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->zaxisID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_type_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","type", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","type", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->type = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_type_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","type", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->type);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_ltype_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","ltype", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","ltype", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ltype = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_ltype_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","ltype", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->ltype);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::CdiZaxis.size
+
+ call-seq:
+ size -> int
+
+Size or Length of the CdiZaxis.
+*/
+/*
+ Document-method: Cdi::CdiZaxis.size=
+
+ call-seq:
+ size=(x) -> int
+
+Size or Length of the CdiZaxis.
+*/
+SWIGINTERN VALUE
+_wrap_CdiZaxis_size_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","size", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->size = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_size_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->size);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_prec_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","prec", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","prec", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->prec = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_prec_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","prec", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (int) ((arg1)->prec);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_plevels_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ double *arg2 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","plevels", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "double *","plevels", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ if (arg1) (arg1)->plevels = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_plevels_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","plevels", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (double *) ((arg1)->plevels);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_plbounds_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ double *arg2 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","plbounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "double *","plbounds", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ if (arg1) (arg1)->plbounds = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_plbounds_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","plbounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (double *) ((arg1)->plbounds);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_pubounds_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ double *arg2 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","pubounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "double *","pubounds", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ if (arg1) (arg1)->pubounds = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_pubounds_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","pubounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (double *) ((arg1)->pubounds);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_pweights_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ double *arg2 = (double *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","pweights", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "double *","pweights", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< double * >(argp2);
+ if (arg1) (arg1)->pweights = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_pweights_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","pweights", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (double *) ((arg1)->pweights);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_levels_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","levels", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > *","levels", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->levels = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_levels_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","levels", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->levels);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_lbounds_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","lbounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > *","lbounds", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->lbounds = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_lbounds_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","lbounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->lbounds);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_ubounds_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","ubounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > *","ubounds", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->ubounds = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_ubounds_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","ubounds", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->ubounds);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_weights_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","weights", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > *","weights", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->weights = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_weights_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","weights", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->weights);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_name_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","name", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","name", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","name", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->name = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_name_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","name", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::string *) & ((arg1)->name);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_longname_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","longname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","longname", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","longname", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->longname = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_longname_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","longname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::string *) & ((arg1)->longname);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_units_set(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","units", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","units", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","units", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->units = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiZaxis_units_get(int argc, VALUE *argv, VALUE self) {
+ CdiZaxis *arg1 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiZaxis *","units", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiZaxis * >(argp1);
+ result = (std::string *) & ((arg1)->units);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+static swig_class SwigClassCdiVariable;
+
+SWIGINTERN VALUE
+_wrap_new_CdiVariable__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *result = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ result = (CdiVariable *)new CdiVariable();
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_CdiVariable_allocate(VALUE self)
+#else
+_wrap_CdiVariable_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_CdiVariable);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_CdiVariable__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ int arg1 ;
+ int arg2 ;
+ int arg3 ;
+ int val1 ;
+ int ecode1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ int val3 ;
+ int ecode3 = 0 ;
+ CdiVariable *result = 0 ;
+
+ if ((argc < 3) || (argc > 3)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 3)",argc); SWIG_fail;
+ }
+ ecode1 = SWIG_AsVal_int(argv[0], &val1);
+ if (!SWIG_IsOK(ecode1)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode1), Ruby_Format_TypeError( "", "int","CdiVariable", 1, argv[0] ));
+ }
+ arg1 = static_cast< int >(val1);
+ ecode2 = SWIG_AsVal_int(argv[1], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","CdiVariable", 2, argv[1] ));
+ }
+ arg2 = static_cast< int >(val2);
+ ecode3 = SWIG_AsVal_int(argv[2], &val3);
+ if (!SWIG_IsOK(ecode3)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode3), Ruby_Format_TypeError( "", "int","CdiVariable", 3, argv[2] ));
+ }
+ arg3 = static_cast< int >(val3);
+ result = (CdiVariable *)new CdiVariable(arg1,arg2,arg3);
+ DATA_PTR(self) = result;
+ return self;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_new_CdiVariable(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs;
+ if (argc > 3) SWIG_fail;
+ for (ii = 0; (ii < argc); ++ii) {
+ argv[ii] = args[ii];
+ }
+ if (argc == 0) {
+ return _wrap_new_CdiVariable__SWIG_0(nargs, args, self);
+ }
+ if (argc == 3) {
+ int _v;
+ {
+ int res = SWIG_AsVal_int(argv[0], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[2], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_new_CdiVariable__SWIG_1(nargs, args, self);
+ }
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "CdiVariable.new",
+ " CdiVariable.new()\n"
+ " CdiVariable.new(int streamid, int vlistid, int varid)\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_CdiVariable(void *self) {
+ CdiVariable *arg1 = (CdiVariable *)self;
+ delete arg1;
+}
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_varID_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","varID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","varID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->varID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_varID_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","varID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->varID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_zaxisID_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","zaxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","zaxisID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->zaxisID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_zaxisID_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","zaxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->zaxisID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_gridID_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","gridID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","gridID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->gridID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_gridID_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","gridID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->gridID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_taxisID_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","taxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","taxisID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->taxisID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_taxisID_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","taxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->taxisID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_timeID_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","timeID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","timeID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->timeID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_timeID_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","timeID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->timeID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_vlistID_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","vlistID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","vlistID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->vlistID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_vlistID_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","vlistID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->vlistID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::CdiVariable.size
+
+ call-seq:
+ size -> int
+
+Size or Length of the CdiVariable.
+*/
+/*
+ Document-method: Cdi::CdiVariable.size=
+
+ call-seq:
+ size=(x) -> int
+
+Size or Length of the CdiVariable.
+*/
+SWIGINTERN VALUE
+_wrap_CdiVariable_size_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","size", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->size = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_size_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","size", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->size);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_code_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","code", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","code", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->code = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_code_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","code", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->code);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_datatype_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","datatype", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","datatype", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->datatype = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_datatype_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","datatype", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->datatype);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_streamID_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","streamID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","streamID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->streamID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_streamID_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","streamID", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (int) ((arg1)->streamID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_name_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","name", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","name", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","name", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->name = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_name_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","name", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::string *) & ((arg1)->name);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_longname_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","longname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","longname", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","longname", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->longname = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_longname_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","longname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::string *) & ((arg1)->longname);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_units_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","units", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","units", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","units", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->units = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_units_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","units", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::string *) & ((arg1)->units);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_stdname_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::string *arg2 = 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int res2 = SWIG_OLDOBJ ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","stdname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ {
+ std::string *ptr = (std::string *)0;
+ res2 = SWIG_AsPtr_std_string(argv[0], &ptr);
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::string const &","stdname", 2, argv[0] ));
+ }
+ if (!ptr) {
+ SWIG_exception_fail(SWIG_ValueError, Ruby_Format_TypeError("invalid null reference ", "std::string const &","stdname", 2, argv[0]));
+ }
+ arg2 = ptr;
+ }
+ if (arg1) (arg1)->stdname = *arg2;
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+fail:
+ if (SWIG_IsNewObj(res2)) delete arg2;
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_stdname_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::string *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","stdname", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::string *) & ((arg1)->stdname);
+ vresult = SWIG_From_std_string(static_cast< std::string >(*result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_missval_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ double arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","missval", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_double(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "double","missval", 2, argv[0] ));
+ }
+ arg2 = static_cast< double >(val2);
+ if (arg1) (arg1)->missval = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_missval_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","missval", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (double) ((arg1)->missval);
+ vresult = SWIG_From_double(static_cast< double >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+/*
+ Document-method: Cdi::CdiVariable.values
+
+ call-seq:
+ values -> DoubleVector
+
+Return an Array of value elements.
+*/
+/*
+ Document-method: Cdi::CdiVariable.values=
+
+ call-seq:
+ values=(x) -> DoubleVector
+
+Return an Array of value elements.
+*/
+SWIGINTERN VALUE
+_wrap_CdiVariable_values_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::vector< double,std::allocator< double > > *arg2 = (std::vector< double,std::allocator< double > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","values", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< double,std::allocator< double > > *","values", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< double,std::allocator< double > > * >(argp2);
+ if (arg1) (arg1)->values = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_values_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< double,std::allocator< double > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","values", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::vector< double,std::allocator< double > > *)& ((arg1)->values);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_valuesWithLevel_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *arg2 = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","valuesWithLevel", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *","valuesWithLevel", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > * >(argp2);
+ if (arg1) (arg1)->valuesWithLevel = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_valuesWithLevel_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","valuesWithLevel", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *)& ((arg1)->valuesWithLevel);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_grid_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ CdiGrid *arg2 = (CdiGrid *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","grid", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_CdiGrid, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "CdiGrid *","grid", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< CdiGrid * >(argp2);
+ if (arg1) (arg1)->grid = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_grid_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ CdiGrid *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","grid", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (CdiGrid *)& ((arg1)->grid);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiGrid, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_zaxis_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ CdiZaxis *arg2 = (CdiZaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","zaxis", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "CdiZaxis *","zaxis", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< CdiZaxis * >(argp2);
+ if (arg1) (arg1)->zaxis = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_zaxis_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ CdiZaxis *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","zaxis", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (CdiZaxis *)& ((arg1)->zaxis);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiZaxis, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_taxis_set(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ CdiTaxis *arg2 = (CdiTaxis *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","taxis", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "CdiTaxis *","taxis", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< CdiTaxis * >(argp2);
+ if (arg1) (arg1)->taxis = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_taxis_get(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ CdiTaxis *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","taxis", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (CdiTaxis *)& ((arg1)->taxis);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_CdiTaxis, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_sinfo(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","sinfo", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ (arg1)->sinfo();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_getValues(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","getValues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ (arg1)->getValues();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_getValuesWithLevel__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","getValuesWithLevel", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","getValuesWithLevel", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ (arg1)->getValuesWithLevel(arg2);
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_getValuesWithLevel__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","getValuesWithLevel", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ (arg1)->getValuesWithLevel();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_CdiVariable_getValuesWithLevel(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 3) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_CdiVariable_getValuesWithLevel__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_CdiVariable_getValuesWithLevel__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "CdiVariable.getValuesWithLevel",
+ " void CdiVariable.getValuesWithLevel(int tsID)\n"
+ " void CdiVariable.getValuesWithLevel()\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_getFValues(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::vector< float,std::allocator< float > > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","getFValues", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (arg1)->getFValues();
+ vresult = SWIG_NewPointerObj((new std::vector< float,std::allocator< float > >(static_cast< const std::vector< float,std::allocator< float > >& >(result))), SWIGTYPE_p_std__vectorT_float_std__allocatorT_float_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_getFValuesWithLevel__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ SwigValueWrapper< std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","getFValuesWithLevel", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","getFValuesWithLevel", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ result = (arg1)->getFValuesWithLevel(arg2);
+ vresult = SWIG_NewPointerObj((new std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > >(static_cast< const std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > >& >(result))), SWIGTYPE_p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_getFValuesWithLevel__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ SwigValueWrapper< std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > > > result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","getFValuesWithLevel", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (arg1)->getFValuesWithLevel();
+ vresult = SWIG_NewPointerObj((new std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > >(static_cast< const std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > >& >(result))), SWIGTYPE_p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t, SWIG_POINTER_OWN | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_CdiVariable_getFValuesWithLevel(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 3) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_CdiVariable_getFValuesWithLevel__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_CdiVariable_getFValuesWithLevel__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "CdiVariable.getFValuesWithLevel",
+ " std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > > CdiVariable.getFValuesWithLevel(int tsID)\n"
+ " std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > > CdiVariable.getFValuesWithLevel()\n");
+
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_getValuesAsPointer(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","getValuesAsPointer", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (double *)(arg1)->getValuesAsPointer();
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_getValuesWithLevelAsPointer__SWIG_0(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+ double **result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","getValuesWithLevelAsPointer", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","getValuesWithLevelAsPointer", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ result = (double **)(arg1)->getValuesWithLevelAsPointer(arg2);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_p_double, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_CdiVariable_getValuesWithLevelAsPointer__SWIG_1(int argc, VALUE *argv, VALUE self) {
+ CdiVariable *arg1 = (CdiVariable *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ double **result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_CdiVariable, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "CdiVariable *","getValuesWithLevelAsPointer", 1, self ));
+ }
+ arg1 = reinterpret_cast< CdiVariable * >(argp1);
+ result = (double **)(arg1)->getValuesWithLevelAsPointer();
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_p_double, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE _wrap_CdiVariable_getValuesWithLevelAsPointer(int nargs, VALUE *args, VALUE self) {
+ int argc;
+ VALUE argv[3];
+ int ii;
+
+ argc = nargs + 1;
+ argv[0] = self;
+ if (argc > 3) SWIG_fail;
+ for (ii = 1; (ii < argc); ++ii) {
+ argv[ii] = args[ii-1];
+ }
+ if (argc == 1) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ return _wrap_CdiVariable_getValuesWithLevelAsPointer__SWIG_1(nargs, args, self);
+ }
+ }
+ if (argc == 2) {
+ int _v;
+ void *vptr = 0;
+ int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_CdiVariable, 0);
+ _v = SWIG_CheckState(res);
+ if (_v) {
+ {
+ int res = SWIG_AsVal_int(argv[1], NULL);
+ _v = SWIG_CheckState(res);
+ }
+ if (_v) {
+ return _wrap_CdiVariable_getValuesWithLevelAsPointer__SWIG_0(nargs, args, self);
+ }
+ }
+ }
+
+fail:
+ Ruby_Format_OverloadedError( argc, 3, "CdiVariable.getValuesWithLevelAsPointer",
+ " double CdiVariable.getValuesWithLevelAsPointer(int tsID)\n"
+ " double ** CdiVariable.getValuesWithLevelAsPointer()\n");
+
+ return Qnil;
+}
+
+
+static swig_class SwigClassCdi;
+
+SWIGINTERN VALUE
+#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
+_wrap_Cdi_allocate(VALUE self)
+#else
+_wrap_Cdi_allocate(int argc, VALUE *argv, VALUE self)
+#endif
+{
+ VALUE vresult = SWIG_NewClassInstance(self, SWIGTYPE_p_Cdi);
+#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
+ rb_obj_call_init(vresult, argc, argv);
+#endif
+ return vresult;
+}
+
+
+SWIGINTERN VALUE
+_wrap_new_Cdi(int argc, VALUE *argv, VALUE self) {
+ char *arg1 = (char *) 0 ;
+ int res1 ;
+ char *buf1 = 0 ;
+ int alloc1 = 0 ;
+ Cdi *result = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_AsCharPtrAndSize(argv[0], &buf1, NULL, &alloc1);
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "char const *","Cdi", 1, argv[0] ));
+ }
+ arg1 = reinterpret_cast< char * >(buf1);
+ result = (Cdi *)new Cdi((char const *)arg1);
+ DATA_PTR(self) = result;
+ if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
+ return self;
+fail:
+ if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
+ return Qnil;
+}
+
+
+SWIGINTERN void
+free_Cdi(void *self) {
+ Cdi *arg1 = (Cdi *)self;
+ delete arg1;
+}
+
+SWIGINTERN VALUE
+_wrap_Cdi_streamID_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","streamID", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","streamID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->streamID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_streamID_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","streamID", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->streamID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_vlistID_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","vlistID", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","vlistID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->vlistID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_vlistID_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","vlistID", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->vlistID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_nvars_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","nvars", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","nvars", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->nvars = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_nvars_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","nvars", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->nvars);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_nzaxes_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","nzaxes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","nzaxes", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->nzaxes = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_nzaxes_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","nzaxes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->nzaxes);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_ngrids_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","ngrids", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","ngrids", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ngrids = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_ngrids_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","ngrids", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->ngrids);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_ntaxes_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","ntaxes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","ntaxes", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->ntaxes = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_ntaxes_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","ntaxes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->ntaxes);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_taxisID_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ int arg2 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int val2 ;
+ int ecode2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","taxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ ecode2 = SWIG_AsVal_int(argv[0], &val2);
+ if (!SWIG_IsOK(ecode2)) {
+ SWIG_exception_fail(SWIG_ArgError(ecode2), Ruby_Format_TypeError( "", "int","taxisID", 2, argv[0] ));
+ }
+ arg2 = static_cast< int >(val2);
+ if (arg1) (arg1)->taxisID = arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_taxisID_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ int result;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","taxisID", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (int) ((arg1)->taxisID);
+ vresult = SWIG_From_int(static_cast< int >(result));
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_varnames_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::vector< std::string,std::allocator< std::string > > *arg2 = (std::vector< std::string,std::allocator< std::string > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","varnames", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< std::string,std::allocator< std::string > > *","varnames", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< std::string,std::allocator< std::string > > * >(argp2);
+ if (arg1) (arg1)->varnames = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_varnames_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< std::string,std::allocator< std::string > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","varnames", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::vector< std::string,std::allocator< std::string > > *)& ((arg1)->varnames);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_codes_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::vector< int,std::allocator< int > > *arg2 = (std::vector< int,std::allocator< int > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","codes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< int,std::allocator< int > > *","codes", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< int,std::allocator< int > > * >(argp2);
+ if (arg1) (arg1)->codes = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_codes_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< int,std::allocator< int > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","codes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::vector< int,std::allocator< int > > *)& ((arg1)->codes);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_variables_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *arg2 = (std::vector< CdiVariable,std::allocator< CdiVariable > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","variables", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::vector< CdiVariable,std::allocator< CdiVariable > > *","variables", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::vector< CdiVariable,std::allocator< CdiVariable > > * >(argp2);
+ if (arg1) (arg1)->variables = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_variables_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::vector< CdiVariable,std::allocator< CdiVariable > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","variables", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::vector< CdiVariable,std::allocator< CdiVariable > > *)& ((arg1)->variables);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_var_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *arg2 = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","var", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *","var", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > * >(argp2);
+ if (arg1) (arg1)->var = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_var_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","var", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *)& ((arg1)->var);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_varByCode_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *arg2 = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","varByCode", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *","varByCode", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > * >(argp2);
+ if (arg1) (arg1)->varByCode = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_varByCode_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","varByCode", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *)& ((arg1)->varByCode);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_taxes_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *arg2 = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","taxes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *","taxes", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > * >(argp2);
+ if (arg1) (arg1)->taxes = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_taxes_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","taxes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *)& ((arg1)->taxes);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_zaxes_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *arg2 = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","zaxes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *","zaxes", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > * >(argp2);
+ if (arg1) (arg1)->zaxes = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_zaxes_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","zaxes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *)& ((arg1)->zaxes);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_grids_set(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *arg2 = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ void *argp2 = 0 ;
+ int res2 = 0 ;
+
+ if ((argc < 1) || (argc > 1)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 1)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","grids", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ res2 = SWIG_ConvertPtr(argv[0], &argp2,SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ if (!SWIG_IsOK(res2)) {
+ SWIG_exception_fail(SWIG_ArgError(res2), Ruby_Format_TypeError( "", "std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *","grids", 2, argv[0] ));
+ }
+ arg2 = reinterpret_cast< std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > * >(argp2);
+ if (arg1) (arg1)->grids = *arg2;
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_grids_get(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+ std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *result = 0 ;
+ VALUE vresult = Qnil;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","grids", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ result = (std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *)& ((arg1)->grids);
+ vresult = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0 | 0 );
+ return vresult;
+fail:
+ return Qnil;
+}
+
+
+SWIGINTERN VALUE
+_wrap_Cdi_griddes(int argc, VALUE *argv, VALUE self) {
+ Cdi *arg1 = (Cdi *) 0 ;
+ void *argp1 = 0 ;
+ int res1 = 0 ;
+
+ if ((argc < 0) || (argc > 0)) {
+ rb_raise(rb_eArgError, "wrong # of arguments(%d for 0)",argc); SWIG_fail;
+ }
+ res1 = SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Cdi, 0 | 0 );
+ if (!SWIG_IsOK(res1)) {
+ SWIG_exception_fail(SWIG_ArgError(res1), Ruby_Format_TypeError( "", "Cdi *","griddes", 1, self ));
+ }
+ arg1 = reinterpret_cast< Cdi * >(argp1);
+ (arg1)->griddes();
+ return Qnil;
+fail:
+ return Qnil;
+}
+
+
+
+/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
+
+static void *_p_swig__IteratorTo_p_swig__ConstIterator(void *x, int *SWIGUNUSEDPARM(newmemory)) {
+ return (void *)((swig::ConstIterator *) ((swig::Iterator *) x));
+}
+static swig_type_info _swigt__p_Cdi = {"_p_Cdi", "Cdi *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_CdiGrid = {"_p_CdiGrid", "std::map< int,CdiGrid >::mapped_type *|CdiGrid *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_CdiTaxis = {"_p_CdiTaxis", "std::map< int,CdiTaxis >::mapped_type *|CdiTaxis *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_CdiVariable = {"_p_CdiVariable", "std::map< std::string,CdiVariable >::mapped_type *|std::vector< CdiVariable >::value_type *|std::map< int,CdiVariable >::mapped_type *|CdiVariable *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_CdiZaxis = {"_p_CdiZaxis", "std::map< int,CdiZaxis >::mapped_type *|CdiZaxis *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_allocator_type = {"_p_allocator_type", "allocator_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_difference_type = {"_p_difference_type", "difference_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_key_type = {"_p_key_type", "key_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_mapped_type = {"_p_mapped_type", "mapped_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_p_double = {"_p_p_double", "double **", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_p_void = {"_p_p_void", "void **|VALUE *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_size_type = {"_p_size_type", "size_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_CdiVariable_t = {"_p_std__allocatorT_CdiVariable_t", "std::vector< CdiVariable >::allocator_type *|std::allocator< CdiVariable > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_double_t = {"_p_std__allocatorT_double_t", "std::vector< double >::allocator_type *|std::allocator< double > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_int_t = {"_p_std__allocatorT_int_t", "std::vector< int >::allocator_type *|std::allocator< int > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t = {"_p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t", "std::map< int,CdiGrid >::allocator_type *|std::allocator< std::pair< int const,CdiGrid > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t = {"_p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t", "std::map< int,CdiTaxis >::allocator_type *|std::allocator< std::pair< int const,CdiTaxis > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t = {"_p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t", "std::map< int,CdiVariable >::allocator_type *|std::allocator< std::pair< int const,CdiVariable > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t = {"_p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t", "std::map< int,CdiZaxis >::allocator_type *|std::allocator< std::pair< int const,CdiZaxis > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t = {"_p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t", "std::allocator< std::pair< std::string const,CdiVariable > > *|std::map< std::string,CdiVariable >::allocator_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__string_t = {"_p_std__allocatorT_std__string_t", "std::vector< std::string >::allocator_type *|std::allocator< std::string > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t = {"_p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t", "std::vector< std::vector< double > >::allocator_type *|std::allocator< std::vector< double,std::allocator< double > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__lessT_int_t = {"_p_std__lessT_int_t", "std::less< int > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__lessT_std__string_t = {"_p_std__lessT_std__string_t", "std::less< std::string > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t = {"_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t", "std::map< int,CdiGrid > *|std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator = {"_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator", "std::map< int,CdiGrid >::iterator *|std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__reverse_iterator = {"_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__reverse_iterator", "std::map< int,CdiGrid >::reverse_iterator *|std::map< int,CdiGrid,std::less< int >,std::allocator< std::pair< int const,CdiGrid > > >::reverse_iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t = {"_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t", "std::map< int,CdiTaxis > *|std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator = {"_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator", "std::map< int,CdiTaxis >::iterator *|std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__reverse_iterator = {"_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__reverse_iterator", "std::map< int,CdiTaxis >::reverse_iterator *|std::map< int,CdiTaxis,std::less< int >,std::allocator< std::pair< int const,CdiTaxis > > >::reverse_iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t = {"_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t", "std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > > *|std::map< int,CdiVariable > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator = {"_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator", "std::map< int,CdiVariable >::iterator *|std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__reverse_iterator = {"_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__reverse_iterator", "std::map< int,CdiVariable >::reverse_iterator *|std::map< int,CdiVariable,std::less< int >,std::allocator< std::pair< int const,CdiVariable > > >::reverse_iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t = {"_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t", "std::map< int,CdiZaxis > *|std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator = {"_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator", "std::map< int,CdiZaxis >::iterator *|std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__reverse_iterator = {"_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__reverse_iterator", "std::map< int,CdiZaxis >::reverse_iterator *|std::map< int,CdiZaxis,std::less< int >,std::allocator< std::pair< int const,CdiZaxis > > >::reverse_iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t = {"_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t", "std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > > *|std::map< std::string,CdiVariable > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator = {"_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator", "std::map< std::string,CdiVariable >::iterator *|std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__reverse_iterator = {"_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__reverse_iterator", "std::map< std::string,CdiVariable >::reverse_iterator *|std::map< std::string,CdiVariable,std::less< std::string >,std::allocator< std::pair< std::string const,CdiVariable > > >::reverse_iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t = {"_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t", "std::vector< CdiVariable,std::allocator< CdiVariable > > *|std::vector< CdiVariable > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_double_std__allocatorT_double_t_t = {"_p_std__vectorT_double_std__allocatorT_double_t_t", "std::vector< double,std::allocator< double > > *|std::vector< double > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_float_std__allocatorT_float_t_t = {"_p_std__vectorT_float_std__allocatorT_float_t_t", "std::vector< float,std::allocator< float > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_int_std__allocatorT_int_t_t = {"_p_std__vectorT_int_std__allocatorT_int_t_t", "std::vector< int,std::allocator< int > > *|std::vector< int > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_std__string_std__allocatorT_std__string_t_t = {"_p_std__vectorT_std__string_std__allocatorT_std__string_t_t", "std::vector< std::string,std::allocator< std::string > > *|std::vector< std::string > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t = {"_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t", "std::vector< std::vector< double > > *|std::vector< std::vector< double,std::allocator< double > >,std::allocator< std::vector< double,std::allocator< double > > > > *|std::vector< std::vector< double,std::allocator< double > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t = {"_p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t", "std::vector< std::vector< float,std::allocator< float > >,std::allocator< std::vector< float,std::allocator< float > > > > *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_swig__ConstIterator = {"_p_swig__ConstIterator", "swig::ConstIterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_swig__GC_VALUE = {"_p_swig__GC_VALUE", "swig::GC_VALUE *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_swig__Iterator = {"_p_swig__Iterator", "swig::Iterator *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_value_type = {"_p_value_type", "value_type *", 0, 0, (void*)0, 0};
+static swig_type_info _swigt__p_void = {"_p_void", "VALUE|void *", 0, 0, (void*)0, 0};
+
+static swig_type_info *swig_type_initial[] = {
+ &_swigt__p_Cdi,
+ &_swigt__p_CdiGrid,
+ &_swigt__p_CdiTaxis,
+ &_swigt__p_CdiVariable,
+ &_swigt__p_CdiZaxis,
+ &_swigt__p_allocator_type,
+ &_swigt__p_char,
+ &_swigt__p_difference_type,
+ &_swigt__p_double,
+ &_swigt__p_float,
+ &_swigt__p_key_type,
+ &_swigt__p_mapped_type,
+ &_swigt__p_p_double,
+ &_swigt__p_p_void,
+ &_swigt__p_size_type,
+ &_swigt__p_std__allocatorT_CdiVariable_t,
+ &_swigt__p_std__allocatorT_double_t,
+ &_swigt__p_std__allocatorT_int_t,
+ &_swigt__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t,
+ &_swigt__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t,
+ &_swigt__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t,
+ &_swigt__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t,
+ &_swigt__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t,
+ &_swigt__p_std__allocatorT_std__string_t,
+ &_swigt__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t,
+ &_swigt__p_std__lessT_int_t,
+ &_swigt__p_std__lessT_std__string_t,
+ &_swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t,
+ &_swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator,
+ &_swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__reverse_iterator,
+ &_swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t,
+ &_swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator,
+ &_swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__reverse_iterator,
+ &_swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t,
+ &_swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator,
+ &_swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__reverse_iterator,
+ &_swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t,
+ &_swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator,
+ &_swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__reverse_iterator,
+ &_swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t,
+ &_swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator,
+ &_swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__reverse_iterator,
+ &_swigt__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t,
+ &_swigt__p_std__vectorT_double_std__allocatorT_double_t_t,
+ &_swigt__p_std__vectorT_float_std__allocatorT_float_t_t,
+ &_swigt__p_std__vectorT_int_std__allocatorT_int_t_t,
+ &_swigt__p_std__vectorT_std__string_std__allocatorT_std__string_t_t,
+ &_swigt__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t,
+ &_swigt__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t,
+ &_swigt__p_swig__ConstIterator,
+ &_swigt__p_swig__GC_VALUE,
+ &_swigt__p_swig__Iterator,
+ &_swigt__p_value_type,
+ &_swigt__p_void,
+};
+
+static swig_cast_info _swigc__p_Cdi[] = { {&_swigt__p_Cdi, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_CdiGrid[] = { {&_swigt__p_CdiGrid, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_CdiTaxis[] = { {&_swigt__p_CdiTaxis, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_CdiVariable[] = { {&_swigt__p_CdiVariable, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_CdiZaxis[] = { {&_swigt__p_CdiZaxis, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_allocator_type[] = { {&_swigt__p_allocator_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_difference_type[] = { {&_swigt__p_difference_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_key_type[] = { {&_swigt__p_key_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_mapped_type[] = { {&_swigt__p_mapped_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_p_double[] = { {&_swigt__p_p_double, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_p_void[] = { {&_swigt__p_p_void, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_size_type[] = { {&_swigt__p_size_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_CdiVariable_t[] = { {&_swigt__p_std__allocatorT_CdiVariable_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_double_t[] = { {&_swigt__p_std__allocatorT_double_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_int_t[] = { {&_swigt__p_std__allocatorT_int_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t[] = { {&_swigt__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__string_t[] = { {&_swigt__p_std__allocatorT_std__string_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t[] = { {&_swigt__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__lessT_int_t[] = { {&_swigt__p_std__lessT_int_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__lessT_std__string_t[] = { {&_swigt__p_std__lessT_std__string_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t[] = { {&_swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator[] = { {&_swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__reverse_iterator[] = { {&_swigt__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__reverse_iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t[] = { {&_swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator[] = { {&_swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__reverse_iterator[] = { {&_swigt__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__reverse_iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t[] = { {&_swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator[] = { {&_swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__reverse_iterator[] = { {&_swigt__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__reverse_iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t[] = { {&_swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator[] = { {&_swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__reverse_iterator[] = { {&_swigt__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__reverse_iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t[] = { {&_swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator[] = { {&_swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__reverse_iterator[] = { {&_swigt__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__reverse_iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t[] = { {&_swigt__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_double_std__allocatorT_double_t_t[] = { {&_swigt__p_std__vectorT_double_std__allocatorT_double_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_float_std__allocatorT_float_t_t[] = { {&_swigt__p_std__vectorT_float_std__allocatorT_float_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_int_std__allocatorT_int_t_t[] = { {&_swigt__p_std__vectorT_int_std__allocatorT_int_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_std__string_std__allocatorT_std__string_t_t[] = { {&_swigt__p_std__vectorT_std__string_std__allocatorT_std__string_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t[] = { {&_swigt__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t[] = { {&_swigt__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_swig__ConstIterator[] = { {&_swigt__p_swig__ConstIterator, 0, 0, 0}, {&_swigt__p_swig__Iterator, _p_swig__IteratorTo_p_swig__ConstIterator, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_swig__GC_VALUE[] = { {&_swigt__p_swig__GC_VALUE, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_swig__Iterator[] = { {&_swigt__p_swig__Iterator, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_value_type[] = { {&_swigt__p_value_type, 0, 0, 0},{0, 0, 0, 0}};
+static swig_cast_info _swigc__p_void[] = { {&_swigt__p_void, 0, 0, 0},{0, 0, 0, 0}};
+
+static swig_cast_info *swig_cast_initial[] = {
+ _swigc__p_Cdi,
+ _swigc__p_CdiGrid,
+ _swigc__p_CdiTaxis,
+ _swigc__p_CdiVariable,
+ _swigc__p_CdiZaxis,
+ _swigc__p_allocator_type,
+ _swigc__p_char,
+ _swigc__p_difference_type,
+ _swigc__p_double,
+ _swigc__p_float,
+ _swigc__p_key_type,
+ _swigc__p_mapped_type,
+ _swigc__p_p_double,
+ _swigc__p_p_void,
+ _swigc__p_size_type,
+ _swigc__p_std__allocatorT_CdiVariable_t,
+ _swigc__p_std__allocatorT_double_t,
+ _swigc__p_std__allocatorT_int_t,
+ _swigc__p_std__allocatorT_std__pairT_int_const_CdiGrid_t_t,
+ _swigc__p_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t,
+ _swigc__p_std__allocatorT_std__pairT_int_const_CdiVariable_t_t,
+ _swigc__p_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t,
+ _swigc__p_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t,
+ _swigc__p_std__allocatorT_std__string_t,
+ _swigc__p_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t,
+ _swigc__p_std__lessT_int_t,
+ _swigc__p_std__lessT_std__string_t,
+ _swigc__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t,
+ _swigc__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__iterator,
+ _swigc__p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t__reverse_iterator,
+ _swigc__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t,
+ _swigc__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__iterator,
+ _swigc__p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t__reverse_iterator,
+ _swigc__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t,
+ _swigc__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__iterator,
+ _swigc__p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t__reverse_iterator,
+ _swigc__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t,
+ _swigc__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__iterator,
+ _swigc__p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t__reverse_iterator,
+ _swigc__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t,
+ _swigc__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__iterator,
+ _swigc__p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t__reverse_iterator,
+ _swigc__p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t,
+ _swigc__p_std__vectorT_double_std__allocatorT_double_t_t,
+ _swigc__p_std__vectorT_float_std__allocatorT_float_t_t,
+ _swigc__p_std__vectorT_int_std__allocatorT_int_t_t,
+ _swigc__p_std__vectorT_std__string_std__allocatorT_std__string_t_t,
+ _swigc__p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t,
+ _swigc__p_std__vectorT_std__vectorT_float_std__allocatorT_float_t_t_std__allocatorT_std__vectorT_float_std__allocatorT_float_t_t_t_t,
+ _swigc__p_swig__ConstIterator,
+ _swigc__p_swig__GC_VALUE,
+ _swigc__p_swig__Iterator,
+ _swigc__p_value_type,
+ _swigc__p_void,
+};
+
+
+/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
+
+/* -----------------------------------------------------------------------------
+ * Type initialization:
+ * This problem is tough by the requirement that no dynamic
+ * memory is used. Also, since swig_type_info structures store pointers to
+ * swig_cast_info structures and swig_cast_info structures store pointers back
+ * to swig_type_info structures, we need some lookup code at initialization.
+ * The idea is that swig generates all the structures that are needed.
+ * The runtime then collects these partially filled structures.
+ * The SWIG_InitializeModule function takes these initial arrays out of
+ * swig_module, and does all the lookup, filling in the swig_module.types
+ * array with the correct data and linking the correct swig_cast_info
+ * structures together.
+ *
+ * The generated swig_type_info structures are assigned statically to an initial
+ * array. We just loop through that array, and handle each type individually.
+ * First we lookup if this type has been already loaded, and if so, use the
+ * loaded structure instead of the generated one. Then we have to fill in the
+ * cast linked list. The cast data is initially stored in something like a
+ * two-dimensional array. Each row corresponds to a type (there are the same
+ * number of rows as there are in the swig_type_initial array). Each entry in
+ * a column is one of the swig_cast_info structures for that type.
+ * The cast_initial array is actually an array of arrays, because each row has
+ * a variable number of columns. So to actually build the cast linked list,
+ * we find the array of casts associated with the type, and loop through it
+ * adding the casts to the list. The one last trick we need to do is making
+ * sure the type pointer in the swig_cast_info struct is correct.
+ *
+ * First off, we lookup the cast->type name to see if it is already loaded.
+ * There are three cases to handle:
+ * 1) If the cast->type has already been loaded AND the type we are adding
+ * casting info to has not been loaded (it is in this module), THEN we
+ * replace the cast->type pointer with the type pointer that has already
+ * been loaded.
+ * 2) If BOTH types (the one we are adding casting info to, and the
+ * cast->type) are loaded, THEN the cast info has already been loaded by
+ * the previous module so we just ignore it.
+ * 3) Finally, if cast->type has not already been loaded, then we add that
+ * swig_cast_info to the linked list (because the cast->type) pointer will
+ * be correct.
+ * ----------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+extern "C" {
+#if 0
+} /* c-mode */
+#endif
+#endif
+
+#if 0
+#define SWIGRUNTIME_DEBUG
+#endif
+
+
+SWIGRUNTIME void
+SWIG_InitializeModule(void *clientdata) {
+ size_t i;
+ swig_module_info *module_head, *iter;
+ int init;
+
+ /* check to see if the circular list has been setup, if not, set it up */
+ if (swig_module.next==0) {
+ /* Initialize the swig_module */
+ swig_module.type_initial = swig_type_initial;
+ swig_module.cast_initial = swig_cast_initial;
+ swig_module.next = &swig_module;
+ init = 1;
+ } else {
+ init = 0;
+ }
+
+ /* Try and load any already created modules */
+ module_head = SWIG_GetModule(clientdata);
+ if (!module_head) {
+ /* This is the first module loaded for this interpreter */
+ /* so set the swig module into the interpreter */
+ SWIG_SetModule(clientdata, &swig_module);
+ } else {
+ /* the interpreter has loaded a SWIG module, but has it loaded this one? */
+ iter=module_head;
+ do {
+ if (iter==&swig_module) {
+ /* Our module is already in the list, so there's nothing more to do. */
+ return;
+ }
+ iter=iter->next;
+ } while (iter!= module_head);
+
+ /* otherwise we must add our module into the list */
+ swig_module.next = module_head->next;
+ module_head->next = &swig_module;
+ }
+
+ /* When multiple interpreters are used, a module could have already been initialized in
+ a different interpreter, but not yet have a pointer in this interpreter.
+ In this case, we do not want to continue adding types... everything should be
+ set up already */
+ if (init == 0) return;
+
+ /* Now work on filling in swig_module.types */
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
+#endif
+ for (i = 0; i < swig_module.size; ++i) {
+ swig_type_info *type = 0;
+ swig_type_info *ret;
+ swig_cast_info *cast;
+
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
+#endif
+
+ /* if there is another module already loaded */
+ if (swig_module.next != &swig_module) {
+ type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
+ }
+ if (type) {
+ /* Overwrite clientdata field */
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: found type %s\n", type->name);
+#endif
+ if (swig_module.type_initial[i]->clientdata) {
+ type->clientdata = swig_module.type_initial[i]->clientdata;
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
+#endif
+ }
+ } else {
+ type = swig_module.type_initial[i];
+ }
+
+ /* Insert casting types */
+ cast = swig_module.cast_initial[i];
+ while (cast->type) {
+
+ /* Don't need to add information already in the list */
+ ret = 0;
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
+#endif
+ if (swig_module.next != &swig_module) {
+ ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
+#ifdef SWIGRUNTIME_DEBUG
+ if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
+#endif
+ }
+ if (ret) {
+ if (type == swig_module.type_initial[i]) {
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
+#endif
+ cast->type = ret;
+ ret = 0;
+ } else {
+ /* Check for casting already in the list */
+ swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
+#ifdef SWIGRUNTIME_DEBUG
+ if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
+#endif
+ if (!ocast) ret = 0;
+ }
+ }
+
+ if (!ret) {
+#ifdef SWIGRUNTIME_DEBUG
+ printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
+#endif
+ if (type->cast) {
+ type->cast->prev = cast;
+ cast->next = type->cast;
+ }
+ type->cast = cast;
+ }
+ cast++;
+ }
+ /* Set entry in modules->types array equal to the type */
+ swig_module.types[i] = type;
+ }
+ swig_module.types[i] = 0;
+
+#ifdef SWIGRUNTIME_DEBUG
+ printf("**** SWIG_InitializeModule: Cast List ******\n");
+ for (i = 0; i < swig_module.size; ++i) {
+ int j = 0;
+ swig_cast_info *cast = swig_module.cast_initial[i];
+ printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
+ while (cast->type) {
+ printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
+ cast++;
+ ++j;
+ }
+ printf("---- Total casts: %d\n",j);
+ }
+ printf("**** SWIG_InitializeModule: Cast List ******\n");
+#endif
+}
+
+/* This function will propagate the clientdata field of type to
+* any new swig_type_info structures that have been added into the list
+* of equivalent types. It is like calling
+* SWIG_TypeClientData(type, clientdata) a second time.
+*/
+SWIGRUNTIME void
+SWIG_PropagateClientData(void) {
+ size_t i;
+ swig_cast_info *equiv;
+ static int init_run = 0;
+
+ if (init_run) return;
+ init_run = 1;
+
+ for (i = 0; i < swig_module.size; i++) {
+ if (swig_module.types[i]->clientdata) {
+ equiv = swig_module.types[i]->cast;
+ while (equiv) {
+ if (!equiv->converter) {
+ if (equiv->type && !equiv->type->clientdata)
+ SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
+ }
+ equiv = equiv->next;
+ }
+ }
+ }
+}
+
+#ifdef __cplusplus
+#if 0
+{ /* c-mode */
+#endif
+}
+#endif
+
+/*
+
+*/
+#ifdef __cplusplus
+extern "C"
+#endif
+SWIGEXPORT void Init_Cdi(void) {
+ size_t i;
+
+ SWIG_InitRuntime();
+
+ SWIG_InitializeModule(0);
+ for (i = 0; i < swig_module.size; i++) {
+ SWIG_define_class(swig_module.types[i]);
+ }
+
+ SWIG_RubyInitializeTrackings();
+
+ SwigClassGC_VALUE.klass = rb_define_class("GC_VALUE", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_swig__GC_VALUE, (void *) &SwigClassGC_VALUE);
+ rb_undef_alloc_func(SwigClassGC_VALUE.klass);
+ rb_define_method(SwigClassGC_VALUE.klass, "inspect", VALUEFUNC(_wrap_GC_VALUE_inspect), -1);
+ rb_define_method(SwigClassGC_VALUE.klass, "to_s", VALUEFUNC(_wrap_GC_VALUE_to_s), -1);
+ SwigClassGC_VALUE.mark = 0;
+ SwigClassGC_VALUE.trackObjects = 0;
+
+ swig::SwigGCReferences::initialize();
+
+
+ SwigClassConstIterator.klass = rb_define_class("ConstIterator", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_swig__ConstIterator, (void *) &SwigClassConstIterator);
+ rb_undef_alloc_func(SwigClassConstIterator.klass);
+ rb_define_method(SwigClassConstIterator.klass, "value", VALUEFUNC(_wrap_ConstIterator_value), -1);
+ rb_define_method(SwigClassConstIterator.klass, "dup", VALUEFUNC(_wrap_ConstIterator_dup), -1);
+ rb_define_method(SwigClassConstIterator.klass, "inspect", VALUEFUNC(_wrap_ConstIterator_inspect), -1);
+ rb_define_method(SwigClassConstIterator.klass, "to_s", VALUEFUNC(_wrap_ConstIterator_to_s), -1);
+ rb_define_method(SwigClassConstIterator.klass, "next", VALUEFUNC(_wrap_ConstIterator_next), -1);
+ rb_define_method(SwigClassConstIterator.klass, "previous", VALUEFUNC(_wrap_ConstIterator_previous), -1);
+ rb_define_method(SwigClassConstIterator.klass, "==", VALUEFUNC(_wrap_ConstIterator___eq__), -1);
+ rb_define_method(SwigClassConstIterator.klass, "+", VALUEFUNC(_wrap_ConstIterator___add__), -1);
+ rb_define_method(SwigClassConstIterator.klass, "-", VALUEFUNC(_wrap_ConstIterator___sub__), -1);
+ SwigClassConstIterator.mark = 0;
+ SwigClassConstIterator.destroy = (void (*)(void *)) free_swig_ConstIterator;
+ SwigClassConstIterator.trackObjects = 0;
+
+ SwigClassIterator.klass = rb_define_class("Iterator", ((swig_class *) SWIGTYPE_p_swig__ConstIterator->clientdata)->klass);
+ SWIG_TypeClientData(SWIGTYPE_p_swig__Iterator, (void *) &SwigClassIterator);
+ rb_undef_alloc_func(SwigClassIterator.klass);
+ rb_define_method(SwigClassIterator.klass, "value=", VALUEFUNC(_wrap_Iterator_valuee___), -1);
+ rb_define_method(SwigClassIterator.klass, "dup", VALUEFUNC(_wrap_Iterator_dup), -1);
+ rb_define_method(SwigClassIterator.klass, "next", VALUEFUNC(_wrap_Iterator_next), -1);
+ rb_define_method(SwigClassIterator.klass, "previous", VALUEFUNC(_wrap_Iterator_previous), -1);
+ rb_define_method(SwigClassIterator.klass, "inspect", VALUEFUNC(_wrap_Iterator_inspect), -1);
+ rb_define_method(SwigClassIterator.klass, "to_s", VALUEFUNC(_wrap_Iterator_to_s), -1);
+ rb_define_method(SwigClassIterator.klass, "==", VALUEFUNC(_wrap_Iterator___eq__), -1);
+ rb_define_method(SwigClassIterator.klass, "+", VALUEFUNC(_wrap_Iterator___add__), -1);
+ rb_define_method(SwigClassIterator.klass, "-", VALUEFUNC(_wrap_Iterator___sub__), -1);
+ SwigClassIterator.mark = 0;
+ SwigClassIterator.destroy = (void (*)(void *)) free_swig_Iterator;
+ SwigClassIterator.trackObjects = 0;
+
+ SwigClassIntVector.klass = rb_define_class("IntVector", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__vectorT_int_std__allocatorT_int_t_t, (void *) &SwigClassIntVector);
+ rb_include_module(SwigClassIntVector.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassIntVector.klass, _wrap_IntVector_allocate);
+ rb_define_method(SwigClassIntVector.klass, "initialize", VALUEFUNC(_wrap_new_IntVector), -1);
+ rb_define_method(SwigClassIntVector.klass, "dup", VALUEFUNC(_wrap_IntVector_dup), -1);
+ rb_define_method(SwigClassIntVector.klass, "inspect", VALUEFUNC(_wrap_IntVector_inspect), -1);
+ rb_define_method(SwigClassIntVector.klass, "to_a", VALUEFUNC(_wrap_IntVector_to_a), -1);
+ rb_define_method(SwigClassIntVector.klass, "to_s", VALUEFUNC(_wrap_IntVector_to_s), -1);
+ rb_define_method(SwigClassIntVector.klass, "slice", VALUEFUNC(_wrap_IntVector_slice), -1);
+ rb_define_method(SwigClassIntVector.klass, "each", VALUEFUNC(_wrap_IntVector_each), -1);
+ rb_define_method(SwigClassIntVector.klass, "__delete2__", VALUEFUNC(_wrap_IntVector___delete2__), -1);
+ rb_define_method(SwigClassIntVector.klass, "select", VALUEFUNC(_wrap_IntVector_select), -1);
+ rb_define_method(SwigClassIntVector.klass, "delete_at", VALUEFUNC(_wrap_IntVector_delete_at), -1);
+ rb_define_method(SwigClassIntVector.klass, "at", VALUEFUNC(_wrap_IntVector_at), -1);
+ rb_define_method(SwigClassIntVector.klass, "[]", VALUEFUNC(_wrap_IntVector___getitem__), -1);
+ rb_define_method(SwigClassIntVector.klass, "[]=", VALUEFUNC(_wrap_IntVector___setitem__), -1);
+ rb_define_method(SwigClassIntVector.klass, "reject!", VALUEFUNC(_wrap_IntVector_rejectN___), -1);
+ rb_define_alias(SwigClassIntVector.klass, "delete_if", "reject!");
+ rb_define_method(SwigClassIntVector.klass, "pop", VALUEFUNC(_wrap_IntVector_pop), -1);
+ rb_define_method(SwigClassIntVector.klass, "push", VALUEFUNC(_wrap_IntVector_push), -1);
+ rb_define_alias(SwigClassIntVector.klass, "<<", "push");
+ rb_define_method(SwigClassIntVector.klass, "reject", VALUEFUNC(_wrap_IntVector_reject), -1);
+ rb_define_method(SwigClassIntVector.klass, "shift", VALUEFUNC(_wrap_IntVector_shift), -1);
+ rb_define_method(SwigClassIntVector.klass, "unshift", VALUEFUNC(_wrap_IntVector_unshift), -1);
+ rb_define_method(SwigClassIntVector.klass, "empty?", VALUEFUNC(_wrap_IntVector_emptyq___), -1);
+ rb_define_method(SwigClassIntVector.klass, "size", VALUEFUNC(_wrap_IntVector_size), -1);
+ rb_define_method(SwigClassIntVector.klass, "swap", VALUEFUNC(_wrap_IntVector_swap), -1);
+ rb_define_method(SwigClassIntVector.klass, "begin", VALUEFUNC(_wrap_IntVector_begin), -1);
+ rb_define_method(SwigClassIntVector.klass, "end", VALUEFUNC(_wrap_IntVector_end), -1);
+ rb_define_method(SwigClassIntVector.klass, "rbegin", VALUEFUNC(_wrap_IntVector_rbegin), -1);
+ rb_define_method(SwigClassIntVector.klass, "rend", VALUEFUNC(_wrap_IntVector_rend), -1);
+ rb_define_method(SwigClassIntVector.klass, "clear", VALUEFUNC(_wrap_IntVector_clear), -1);
+ rb_define_method(SwigClassIntVector.klass, "get_allocator", VALUEFUNC(_wrap_IntVector_get_allocator), -1);
+ rb_define_method(SwigClassIntVector.klass, "erase", VALUEFUNC(_wrap_IntVector_erase), -1);
+ rb_define_method(SwigClassIntVector.klass, "front", VALUEFUNC(_wrap_IntVector_front), -1);
+ rb_define_method(SwigClassIntVector.klass, "back", VALUEFUNC(_wrap_IntVector_back), -1);
+ rb_define_method(SwigClassIntVector.klass, "assign", VALUEFUNC(_wrap_IntVector_assign), -1);
+ rb_define_method(SwigClassIntVector.klass, "resize", VALUEFUNC(_wrap_IntVector_resize), -1);
+ rb_define_method(SwigClassIntVector.klass, "insert", VALUEFUNC(_wrap_IntVector_insert), -1);
+ rb_define_method(SwigClassIntVector.klass, "reserve", VALUEFUNC(_wrap_IntVector_reserve), -1);
+ rb_define_method(SwigClassIntVector.klass, "capacity", VALUEFUNC(_wrap_IntVector_capacity), -1);
+ rb_define_method(SwigClassIntVector.klass, "map!", VALUEFUNC(_wrap_IntVector_mapN___), -1);
+ rb_define_method(SwigClassIntVector.klass, "delete", VALUEFUNC(_wrap_IntVector_delete), -1);
+ SwigClassIntVector.mark = 0;
+ SwigClassIntVector.destroy = (void (*)(void *)) free_std_vector_Sl_int_Sg_;
+ SwigClassIntVector.trackObjects = 0;
+
+ SwigClassDoubleVector.klass = rb_define_class("DoubleVector", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__vectorT_double_std__allocatorT_double_t_t, (void *) &SwigClassDoubleVector);
+ rb_include_module(SwigClassDoubleVector.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassDoubleVector.klass, _wrap_DoubleVector_allocate);
+ rb_define_method(SwigClassDoubleVector.klass, "initialize", VALUEFUNC(_wrap_new_DoubleVector), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "dup", VALUEFUNC(_wrap_DoubleVector_dup), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "inspect", VALUEFUNC(_wrap_DoubleVector_inspect), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "to_a", VALUEFUNC(_wrap_DoubleVector_to_a), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "to_s", VALUEFUNC(_wrap_DoubleVector_to_s), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "slice", VALUEFUNC(_wrap_DoubleVector_slice), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "each", VALUEFUNC(_wrap_DoubleVector_each), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "__delete2__", VALUEFUNC(_wrap_DoubleVector___delete2__), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "select", VALUEFUNC(_wrap_DoubleVector_select), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "delete_at", VALUEFUNC(_wrap_DoubleVector_delete_at), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "at", VALUEFUNC(_wrap_DoubleVector_at), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "[]", VALUEFUNC(_wrap_DoubleVector___getitem__), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "[]=", VALUEFUNC(_wrap_DoubleVector___setitem__), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "reject!", VALUEFUNC(_wrap_DoubleVector_rejectN___), -1);
+ rb_define_alias(SwigClassDoubleVector.klass, "delete_if", "reject!");
+ rb_define_method(SwigClassDoubleVector.klass, "pop", VALUEFUNC(_wrap_DoubleVector_pop), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "push", VALUEFUNC(_wrap_DoubleVector_push), -1);
+ rb_define_alias(SwigClassDoubleVector.klass, "<<", "push");
+ rb_define_method(SwigClassDoubleVector.klass, "reject", VALUEFUNC(_wrap_DoubleVector_reject), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "shift", VALUEFUNC(_wrap_DoubleVector_shift), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "unshift", VALUEFUNC(_wrap_DoubleVector_unshift), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "empty?", VALUEFUNC(_wrap_DoubleVector_emptyq___), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "size", VALUEFUNC(_wrap_DoubleVector_size), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "swap", VALUEFUNC(_wrap_DoubleVector_swap), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "begin", VALUEFUNC(_wrap_DoubleVector_begin), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "end", VALUEFUNC(_wrap_DoubleVector_end), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "rbegin", VALUEFUNC(_wrap_DoubleVector_rbegin), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "rend", VALUEFUNC(_wrap_DoubleVector_rend), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "clear", VALUEFUNC(_wrap_DoubleVector_clear), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "get_allocator", VALUEFUNC(_wrap_DoubleVector_get_allocator), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "erase", VALUEFUNC(_wrap_DoubleVector_erase), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "front", VALUEFUNC(_wrap_DoubleVector_front), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "back", VALUEFUNC(_wrap_DoubleVector_back), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "assign", VALUEFUNC(_wrap_DoubleVector_assign), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "resize", VALUEFUNC(_wrap_DoubleVector_resize), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "insert", VALUEFUNC(_wrap_DoubleVector_insert), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "reserve", VALUEFUNC(_wrap_DoubleVector_reserve), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "capacity", VALUEFUNC(_wrap_DoubleVector_capacity), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "map!", VALUEFUNC(_wrap_DoubleVector_mapN___), -1);
+ rb_define_method(SwigClassDoubleVector.klass, "delete", VALUEFUNC(_wrap_DoubleVector_delete), -1);
+ SwigClassDoubleVector.mark = 0;
+ SwigClassDoubleVector.destroy = (void (*)(void *)) free_std_vector_Sl_double_Sg_;
+ SwigClassDoubleVector.trackObjects = 0;
+
+ SwigClassDoubleDoubleVector.klass = rb_define_class("DoubleDoubleVector", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__vectorT_std__vectorT_double_std__allocatorT_double_t_t_std__allocatorT_std__vectorT_double_std__allocatorT_double_t_t_t_t, (void *) &SwigClassDoubleDoubleVector);
+ rb_include_module(SwigClassDoubleDoubleVector.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassDoubleDoubleVector.klass, _wrap_DoubleDoubleVector_allocate);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "initialize", VALUEFUNC(_wrap_new_DoubleDoubleVector), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "dup", VALUEFUNC(_wrap_DoubleDoubleVector_dup), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "inspect", VALUEFUNC(_wrap_DoubleDoubleVector_inspect), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "to_a", VALUEFUNC(_wrap_DoubleDoubleVector_to_a), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "to_s", VALUEFUNC(_wrap_DoubleDoubleVector_to_s), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "slice", VALUEFUNC(_wrap_DoubleDoubleVector_slice), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "each", VALUEFUNC(_wrap_DoubleDoubleVector_each), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "__delete2__", VALUEFUNC(_wrap_DoubleDoubleVector___delete2__), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "select", VALUEFUNC(_wrap_DoubleDoubleVector_select), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "delete_at", VALUEFUNC(_wrap_DoubleDoubleVector_delete_at), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "at", VALUEFUNC(_wrap_DoubleDoubleVector_at), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "[]", VALUEFUNC(_wrap_DoubleDoubleVector___getitem__), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "[]=", VALUEFUNC(_wrap_DoubleDoubleVector___setitem__), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "reject!", VALUEFUNC(_wrap_DoubleDoubleVector_rejectN___), -1);
+ rb_define_alias(SwigClassDoubleDoubleVector.klass, "delete_if", "reject!");
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "pop", VALUEFUNC(_wrap_DoubleDoubleVector_pop), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "push", VALUEFUNC(_wrap_DoubleDoubleVector_push), -1);
+ rb_define_alias(SwigClassDoubleDoubleVector.klass, "<<", "push");
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "reject", VALUEFUNC(_wrap_DoubleDoubleVector_reject), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "shift", VALUEFUNC(_wrap_DoubleDoubleVector_shift), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "unshift", VALUEFUNC(_wrap_DoubleDoubleVector_unshift), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "empty?", VALUEFUNC(_wrap_DoubleDoubleVector_emptyq___), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "size", VALUEFUNC(_wrap_DoubleDoubleVector_size), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "swap", VALUEFUNC(_wrap_DoubleDoubleVector_swap), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "begin", VALUEFUNC(_wrap_DoubleDoubleVector_begin), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "end", VALUEFUNC(_wrap_DoubleDoubleVector_end), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "rbegin", VALUEFUNC(_wrap_DoubleDoubleVector_rbegin), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "rend", VALUEFUNC(_wrap_DoubleDoubleVector_rend), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "clear", VALUEFUNC(_wrap_DoubleDoubleVector_clear), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "get_allocator", VALUEFUNC(_wrap_DoubleDoubleVector_get_allocator), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "erase", VALUEFUNC(_wrap_DoubleDoubleVector_erase), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "front", VALUEFUNC(_wrap_DoubleDoubleVector_front), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "back", VALUEFUNC(_wrap_DoubleDoubleVector_back), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "assign", VALUEFUNC(_wrap_DoubleDoubleVector_assign), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "resize", VALUEFUNC(_wrap_DoubleDoubleVector_resize), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "insert", VALUEFUNC(_wrap_DoubleDoubleVector_insert), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "reserve", VALUEFUNC(_wrap_DoubleDoubleVector_reserve), -1);
+ rb_define_method(SwigClassDoubleDoubleVector.klass, "capacity", VALUEFUNC(_wrap_DoubleDoubleVector_capacity), -1);
+ SwigClassDoubleDoubleVector.mark = 0;
+ SwigClassDoubleDoubleVector.destroy = (void (*)(void *)) free_std_vector_Sl_std_vector_Sl_double_Sg__Sg_;
+ SwigClassDoubleDoubleVector.trackObjects = 0;
+
+ SwigClassStringVector.klass = rb_define_class("StringVector", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__vectorT_std__string_std__allocatorT_std__string_t_t, (void *) &SwigClassStringVector);
+ rb_include_module(SwigClassStringVector.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassStringVector.klass, _wrap_StringVector_allocate);
+ rb_define_method(SwigClassStringVector.klass, "initialize", VALUEFUNC(_wrap_new_StringVector), -1);
+ rb_define_method(SwigClassStringVector.klass, "dup", VALUEFUNC(_wrap_StringVector_dup), -1);
+ rb_define_method(SwigClassStringVector.klass, "inspect", VALUEFUNC(_wrap_StringVector_inspect), -1);
+ rb_define_method(SwigClassStringVector.klass, "to_a", VALUEFUNC(_wrap_StringVector_to_a), -1);
+ rb_define_method(SwigClassStringVector.klass, "to_s", VALUEFUNC(_wrap_StringVector_to_s), -1);
+ rb_define_method(SwigClassStringVector.klass, "slice", VALUEFUNC(_wrap_StringVector_slice), -1);
+ rb_define_method(SwigClassStringVector.klass, "each", VALUEFUNC(_wrap_StringVector_each), -1);
+ rb_define_method(SwigClassStringVector.klass, "__delete2__", VALUEFUNC(_wrap_StringVector___delete2__), -1);
+ rb_define_method(SwigClassStringVector.klass, "select", VALUEFUNC(_wrap_StringVector_select), -1);
+ rb_define_method(SwigClassStringVector.klass, "delete_at", VALUEFUNC(_wrap_StringVector_delete_at), -1);
+ rb_define_method(SwigClassStringVector.klass, "at", VALUEFUNC(_wrap_StringVector_at), -1);
+ rb_define_method(SwigClassStringVector.klass, "[]", VALUEFUNC(_wrap_StringVector___getitem__), -1);
+ rb_define_method(SwigClassStringVector.klass, "[]=", VALUEFUNC(_wrap_StringVector___setitem__), -1);
+ rb_define_method(SwigClassStringVector.klass, "reject!", VALUEFUNC(_wrap_StringVector_rejectN___), -1);
+ rb_define_alias(SwigClassStringVector.klass, "delete_if", "reject!");
+ rb_define_method(SwigClassStringVector.klass, "pop", VALUEFUNC(_wrap_StringVector_pop), -1);
+ rb_define_method(SwigClassStringVector.klass, "push", VALUEFUNC(_wrap_StringVector_push), -1);
+ rb_define_alias(SwigClassStringVector.klass, "<<", "push");
+ rb_define_method(SwigClassStringVector.klass, "reject", VALUEFUNC(_wrap_StringVector_reject), -1);
+ rb_define_method(SwigClassStringVector.klass, "shift", VALUEFUNC(_wrap_StringVector_shift), -1);
+ rb_define_method(SwigClassStringVector.klass, "unshift", VALUEFUNC(_wrap_StringVector_unshift), -1);
+ rb_define_method(SwigClassStringVector.klass, "empty?", VALUEFUNC(_wrap_StringVector_emptyq___), -1);
+ rb_define_method(SwigClassStringVector.klass, "size", VALUEFUNC(_wrap_StringVector_size), -1);
+ rb_define_method(SwigClassStringVector.klass, "swap", VALUEFUNC(_wrap_StringVector_swap), -1);
+ rb_define_method(SwigClassStringVector.klass, "begin", VALUEFUNC(_wrap_StringVector_begin), -1);
+ rb_define_method(SwigClassStringVector.klass, "end", VALUEFUNC(_wrap_StringVector_end), -1);
+ rb_define_method(SwigClassStringVector.klass, "rbegin", VALUEFUNC(_wrap_StringVector_rbegin), -1);
+ rb_define_method(SwigClassStringVector.klass, "rend", VALUEFUNC(_wrap_StringVector_rend), -1);
+ rb_define_method(SwigClassStringVector.klass, "clear", VALUEFUNC(_wrap_StringVector_clear), -1);
+ rb_define_method(SwigClassStringVector.klass, "get_allocator", VALUEFUNC(_wrap_StringVector_get_allocator), -1);
+ rb_define_method(SwigClassStringVector.klass, "erase", VALUEFUNC(_wrap_StringVector_erase), -1);
+ rb_define_method(SwigClassStringVector.klass, "front", VALUEFUNC(_wrap_StringVector_front), -1);
+ rb_define_method(SwigClassStringVector.klass, "back", VALUEFUNC(_wrap_StringVector_back), -1);
+ rb_define_method(SwigClassStringVector.klass, "assign", VALUEFUNC(_wrap_StringVector_assign), -1);
+ rb_define_method(SwigClassStringVector.klass, "resize", VALUEFUNC(_wrap_StringVector_resize), -1);
+ rb_define_method(SwigClassStringVector.klass, "insert", VALUEFUNC(_wrap_StringVector_insert), -1);
+ rb_define_method(SwigClassStringVector.klass, "reserve", VALUEFUNC(_wrap_StringVector_reserve), -1);
+ rb_define_method(SwigClassStringVector.klass, "capacity", VALUEFUNC(_wrap_StringVector_capacity), -1);
+ rb_define_method(SwigClassStringVector.klass, "map!", VALUEFUNC(_wrap_StringVector_mapN___), -1);
+ rb_define_method(SwigClassStringVector.klass, "delete", VALUEFUNC(_wrap_StringVector_delete), -1);
+ SwigClassStringVector.mark = 0;
+ SwigClassStringVector.destroy = (void (*)(void *)) free_std_vector_Sl_std_string_Sg_;
+ SwigClassStringVector.trackObjects = 0;
+
+ SwigClassVarsVector.klass = rb_define_class("VarsVector", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__vectorT_CdiVariable_std__allocatorT_CdiVariable_t_t, (void *) &SwigClassVarsVector);
+ rb_include_module(SwigClassVarsVector.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassVarsVector.klass, _wrap_VarsVector_allocate);
+ rb_define_method(SwigClassVarsVector.klass, "initialize", VALUEFUNC(_wrap_new_VarsVector), -1);
+ rb_define_method(SwigClassVarsVector.klass, "dup", VALUEFUNC(_wrap_VarsVector_dup), -1);
+ rb_define_method(SwigClassVarsVector.klass, "inspect", VALUEFUNC(_wrap_VarsVector_inspect), -1);
+ rb_define_method(SwigClassVarsVector.klass, "to_a", VALUEFUNC(_wrap_VarsVector_to_a), -1);
+ rb_define_method(SwigClassVarsVector.klass, "to_s", VALUEFUNC(_wrap_VarsVector_to_s), -1);
+ rb_define_method(SwigClassVarsVector.klass, "slice", VALUEFUNC(_wrap_VarsVector_slice), -1);
+ rb_define_method(SwigClassVarsVector.klass, "each", VALUEFUNC(_wrap_VarsVector_each), -1);
+ rb_define_method(SwigClassVarsVector.klass, "__delete2__", VALUEFUNC(_wrap_VarsVector___delete2__), -1);
+ rb_define_method(SwigClassVarsVector.klass, "select", VALUEFUNC(_wrap_VarsVector_select), -1);
+ rb_define_method(SwigClassVarsVector.klass, "delete_at", VALUEFUNC(_wrap_VarsVector_delete_at), -1);
+ rb_define_method(SwigClassVarsVector.klass, "at", VALUEFUNC(_wrap_VarsVector_at), -1);
+ rb_define_method(SwigClassVarsVector.klass, "[]", VALUEFUNC(_wrap_VarsVector___getitem__), -1);
+ rb_define_method(SwigClassVarsVector.klass, "[]=", VALUEFUNC(_wrap_VarsVector___setitem__), -1);
+ rb_define_method(SwigClassVarsVector.klass, "reject!", VALUEFUNC(_wrap_VarsVector_rejectN___), -1);
+ rb_define_alias(SwigClassVarsVector.klass, "delete_if", "reject!");
+ rb_define_method(SwigClassVarsVector.klass, "pop", VALUEFUNC(_wrap_VarsVector_pop), -1);
+ rb_define_method(SwigClassVarsVector.klass, "push", VALUEFUNC(_wrap_VarsVector_push), -1);
+ rb_define_alias(SwigClassVarsVector.klass, "<<", "push");
+ rb_define_method(SwigClassVarsVector.klass, "reject", VALUEFUNC(_wrap_VarsVector_reject), -1);
+ rb_define_method(SwigClassVarsVector.klass, "shift", VALUEFUNC(_wrap_VarsVector_shift), -1);
+ rb_define_method(SwigClassVarsVector.klass, "unshift", VALUEFUNC(_wrap_VarsVector_unshift), -1);
+ rb_define_method(SwigClassVarsVector.klass, "empty?", VALUEFUNC(_wrap_VarsVector_emptyq___), -1);
+ rb_define_method(SwigClassVarsVector.klass, "size", VALUEFUNC(_wrap_VarsVector_size), -1);
+ rb_define_method(SwigClassVarsVector.klass, "swap", VALUEFUNC(_wrap_VarsVector_swap), -1);
+ rb_define_method(SwigClassVarsVector.klass, "begin", VALUEFUNC(_wrap_VarsVector_begin), -1);
+ rb_define_method(SwigClassVarsVector.klass, "end", VALUEFUNC(_wrap_VarsVector_end), -1);
+ rb_define_method(SwigClassVarsVector.klass, "rbegin", VALUEFUNC(_wrap_VarsVector_rbegin), -1);
+ rb_define_method(SwigClassVarsVector.klass, "rend", VALUEFUNC(_wrap_VarsVector_rend), -1);
+ rb_define_method(SwigClassVarsVector.klass, "clear", VALUEFUNC(_wrap_VarsVector_clear), -1);
+ rb_define_method(SwigClassVarsVector.klass, "get_allocator", VALUEFUNC(_wrap_VarsVector_get_allocator), -1);
+ rb_define_method(SwigClassVarsVector.klass, "erase", VALUEFUNC(_wrap_VarsVector_erase), -1);
+ rb_define_method(SwigClassVarsVector.klass, "front", VALUEFUNC(_wrap_VarsVector_front), -1);
+ rb_define_method(SwigClassVarsVector.klass, "back", VALUEFUNC(_wrap_VarsVector_back), -1);
+ rb_define_method(SwigClassVarsVector.klass, "assign", VALUEFUNC(_wrap_VarsVector_assign), -1);
+ rb_define_method(SwigClassVarsVector.klass, "resize", VALUEFUNC(_wrap_VarsVector_resize), -1);
+ rb_define_method(SwigClassVarsVector.klass, "insert", VALUEFUNC(_wrap_VarsVector_insert), -1);
+ rb_define_method(SwigClassVarsVector.klass, "reserve", VALUEFUNC(_wrap_VarsVector_reserve), -1);
+ rb_define_method(SwigClassVarsVector.klass, "capacity", VALUEFUNC(_wrap_VarsVector_capacity), -1);
+ SwigClassVarsVector.mark = 0;
+ SwigClassVarsVector.destroy = (void (*)(void *)) free_std_vector_Sl_CdiVariable_Sg_;
+ SwigClassVarsVector.trackObjects = 0;
+
+ SwigClassVarsMap.klass = rb_define_class("VarsMap", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__mapT_std__string_CdiVariable_std__lessT_std__string_t_std__allocatorT_std__pairT_std__string_const_CdiVariable_t_t_t, (void *) &SwigClassVarsMap);
+ rb_include_module(SwigClassVarsMap.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassVarsMap.klass, _wrap_VarsMap_allocate);
+ rb_define_method(SwigClassVarsMap.klass, "initialize", VALUEFUNC(_wrap_new_VarsMap), -1);
+ rb_define_method(SwigClassVarsMap.klass, "dup", VALUEFUNC(_wrap_VarsMap_dup), -1);
+ rb_define_method(SwigClassVarsMap.klass, "delete", VALUEFUNC(_wrap_VarsMap_delete), -1);
+ rb_define_method(SwigClassVarsMap.klass, "has_key?", VALUEFUNC(_wrap_VarsMap_has_keyq___), -1);
+ rb_define_method(SwigClassVarsMap.klass, "keys", VALUEFUNC(_wrap_VarsMap_keys), -1);
+ rb_define_method(SwigClassVarsMap.klass, "each", VALUEFUNC(_wrap_VarsMap_each), -1);
+ rb_define_method(SwigClassVarsMap.klass, "select", VALUEFUNC(_wrap_VarsMap_select), -1);
+ rb_define_method(SwigClassVarsMap.klass, "values_at", VALUEFUNC(_wrap_VarsMap_values_at), -1);
+ rb_define_method(SwigClassVarsMap.klass, "each_key", VALUEFUNC(_wrap_VarsMap_each_key), -1);
+ rb_define_method(SwigClassVarsMap.klass, "values", VALUEFUNC(_wrap_VarsMap_values), -1);
+ rb_define_method(SwigClassVarsMap.klass, "each_value", VALUEFUNC(_wrap_VarsMap_each_value), -1);
+ rb_define_method(SwigClassVarsMap.klass, "entries", VALUEFUNC(_wrap_VarsMap_entries), -1);
+ rb_define_method(SwigClassVarsMap.klass, "include?", VALUEFUNC(_wrap_VarsMap_includeq___), -1);
+ rb_define_method(SwigClassVarsMap.klass, "key_iterator", VALUEFUNC(_wrap_VarsMap_key_iterator), -1);
+ rb_define_method(SwigClassVarsMap.klass, "value_iterator", VALUEFUNC(_wrap_VarsMap_value_iterator), -1);
+ rb_define_method(SwigClassVarsMap.klass, "[]", VALUEFUNC(_wrap_VarsMap___getitem__), -1);
+ rb_define_method(SwigClassVarsMap.klass, "[]=", VALUEFUNC(_wrap_VarsMap___setitem__), -1);
+ rb_define_method(SwigClassVarsMap.klass, "inspect", VALUEFUNC(_wrap_VarsMap_inspect), -1);
+ rb_define_method(SwigClassVarsMap.klass, "to_a", VALUEFUNC(_wrap_VarsMap_to_a), -1);
+ rb_define_method(SwigClassVarsMap.klass, "to_s", VALUEFUNC(_wrap_VarsMap_to_s), -1);
+ rb_define_method(SwigClassVarsMap.klass, "empty?", VALUEFUNC(_wrap_VarsMap_emptyq___), -1);
+ rb_define_method(SwigClassVarsMap.klass, "size", VALUEFUNC(_wrap_VarsMap_size), -1);
+ rb_define_method(SwigClassVarsMap.klass, "swap", VALUEFUNC(_wrap_VarsMap_swap), -1);
+ rb_define_method(SwigClassVarsMap.klass, "begin", VALUEFUNC(_wrap_VarsMap_begin), -1);
+ rb_define_method(SwigClassVarsMap.klass, "end", VALUEFUNC(_wrap_VarsMap_end), -1);
+ rb_define_method(SwigClassVarsMap.klass, "rbegin", VALUEFUNC(_wrap_VarsMap_rbegin), -1);
+ rb_define_method(SwigClassVarsMap.klass, "rend", VALUEFUNC(_wrap_VarsMap_rend), -1);
+ rb_define_method(SwigClassVarsMap.klass, "clear", VALUEFUNC(_wrap_VarsMap_clear), -1);
+ rb_define_method(SwigClassVarsMap.klass, "get_allocator", VALUEFUNC(_wrap_VarsMap_get_allocator), -1);
+ rb_define_method(SwigClassVarsMap.klass, "count", VALUEFUNC(_wrap_VarsMap_count), -1);
+ rb_define_method(SwigClassVarsMap.klass, "erase", VALUEFUNC(_wrap_VarsMap_erase), -1);
+ rb_define_method(SwigClassVarsMap.klass, "find", VALUEFUNC(_wrap_VarsMap_find), -1);
+ rb_define_method(SwigClassVarsMap.klass, "lower_bound", VALUEFUNC(_wrap_VarsMap_lower_bound), -1);
+ rb_define_method(SwigClassVarsMap.klass, "upper_bound", VALUEFUNC(_wrap_VarsMap_upper_bound), -1);
+ SwigClassVarsMap.mark = 0;
+ SwigClassVarsMap.destroy = (void (*)(void *)) free_std_map_Sl_std_string_Sc_CdiVariable_Sg_;
+ SwigClassVarsMap.trackObjects = 0;
+
+ SwigClassVarsByCode.klass = rb_define_class("VarsByCode", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__mapT_int_CdiVariable_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiVariable_t_t_t, (void *) &SwigClassVarsByCode);
+ rb_include_module(SwigClassVarsByCode.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassVarsByCode.klass, _wrap_VarsByCode_allocate);
+ rb_define_method(SwigClassVarsByCode.klass, "initialize", VALUEFUNC(_wrap_new_VarsByCode), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "dup", VALUEFUNC(_wrap_VarsByCode_dup), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "delete", VALUEFUNC(_wrap_VarsByCode_delete), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "has_key?", VALUEFUNC(_wrap_VarsByCode_has_keyq___), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "keys", VALUEFUNC(_wrap_VarsByCode_keys), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "each", VALUEFUNC(_wrap_VarsByCode_each), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "select", VALUEFUNC(_wrap_VarsByCode_select), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "values_at", VALUEFUNC(_wrap_VarsByCode_values_at), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "each_key", VALUEFUNC(_wrap_VarsByCode_each_key), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "values", VALUEFUNC(_wrap_VarsByCode_values), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "each_value", VALUEFUNC(_wrap_VarsByCode_each_value), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "entries", VALUEFUNC(_wrap_VarsByCode_entries), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "include?", VALUEFUNC(_wrap_VarsByCode_includeq___), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "key_iterator", VALUEFUNC(_wrap_VarsByCode_key_iterator), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "value_iterator", VALUEFUNC(_wrap_VarsByCode_value_iterator), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "[]", VALUEFUNC(_wrap_VarsByCode___getitem__), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "[]=", VALUEFUNC(_wrap_VarsByCode___setitem__), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "inspect", VALUEFUNC(_wrap_VarsByCode_inspect), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "to_a", VALUEFUNC(_wrap_VarsByCode_to_a), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "to_s", VALUEFUNC(_wrap_VarsByCode_to_s), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "empty?", VALUEFUNC(_wrap_VarsByCode_emptyq___), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "size", VALUEFUNC(_wrap_VarsByCode_size), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "swap", VALUEFUNC(_wrap_VarsByCode_swap), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "begin", VALUEFUNC(_wrap_VarsByCode_begin), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "end", VALUEFUNC(_wrap_VarsByCode_end), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "rbegin", VALUEFUNC(_wrap_VarsByCode_rbegin), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "rend", VALUEFUNC(_wrap_VarsByCode_rend), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "clear", VALUEFUNC(_wrap_VarsByCode_clear), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "get_allocator", VALUEFUNC(_wrap_VarsByCode_get_allocator), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "count", VALUEFUNC(_wrap_VarsByCode_count), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "erase", VALUEFUNC(_wrap_VarsByCode_erase), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "find", VALUEFUNC(_wrap_VarsByCode_find), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "lower_bound", VALUEFUNC(_wrap_VarsByCode_lower_bound), -1);
+ rb_define_method(SwigClassVarsByCode.klass, "upper_bound", VALUEFUNC(_wrap_VarsByCode_upper_bound), -1);
+ SwigClassVarsByCode.mark = 0;
+ SwigClassVarsByCode.destroy = (void (*)(void *)) free_std_map_Sl_int_Sc_CdiVariable_Sg_;
+ SwigClassVarsByCode.trackObjects = 0;
+
+ SwigClassTaxesMap.klass = rb_define_class("TaxesMap", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__mapT_int_CdiTaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiTaxis_t_t_t, (void *) &SwigClassTaxesMap);
+ rb_include_module(SwigClassTaxesMap.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassTaxesMap.klass, _wrap_TaxesMap_allocate);
+ rb_define_method(SwigClassTaxesMap.klass, "initialize", VALUEFUNC(_wrap_new_TaxesMap), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "dup", VALUEFUNC(_wrap_TaxesMap_dup), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "delete", VALUEFUNC(_wrap_TaxesMap_delete), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "has_key?", VALUEFUNC(_wrap_TaxesMap_has_keyq___), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "keys", VALUEFUNC(_wrap_TaxesMap_keys), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "each", VALUEFUNC(_wrap_TaxesMap_each), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "select", VALUEFUNC(_wrap_TaxesMap_select), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "values_at", VALUEFUNC(_wrap_TaxesMap_values_at), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "each_key", VALUEFUNC(_wrap_TaxesMap_each_key), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "values", VALUEFUNC(_wrap_TaxesMap_values), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "each_value", VALUEFUNC(_wrap_TaxesMap_each_value), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "entries", VALUEFUNC(_wrap_TaxesMap_entries), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "include?", VALUEFUNC(_wrap_TaxesMap_includeq___), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "key_iterator", VALUEFUNC(_wrap_TaxesMap_key_iterator), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "value_iterator", VALUEFUNC(_wrap_TaxesMap_value_iterator), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "[]", VALUEFUNC(_wrap_TaxesMap___getitem__), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "[]=", VALUEFUNC(_wrap_TaxesMap___setitem__), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "inspect", VALUEFUNC(_wrap_TaxesMap_inspect), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "to_a", VALUEFUNC(_wrap_TaxesMap_to_a), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "to_s", VALUEFUNC(_wrap_TaxesMap_to_s), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "empty?", VALUEFUNC(_wrap_TaxesMap_emptyq___), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "size", VALUEFUNC(_wrap_TaxesMap_size), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "swap", VALUEFUNC(_wrap_TaxesMap_swap), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "begin", VALUEFUNC(_wrap_TaxesMap_begin), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "end", VALUEFUNC(_wrap_TaxesMap_end), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "rbegin", VALUEFUNC(_wrap_TaxesMap_rbegin), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "rend", VALUEFUNC(_wrap_TaxesMap_rend), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "clear", VALUEFUNC(_wrap_TaxesMap_clear), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "get_allocator", VALUEFUNC(_wrap_TaxesMap_get_allocator), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "count", VALUEFUNC(_wrap_TaxesMap_count), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "erase", VALUEFUNC(_wrap_TaxesMap_erase), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "find", VALUEFUNC(_wrap_TaxesMap_find), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "lower_bound", VALUEFUNC(_wrap_TaxesMap_lower_bound), -1);
+ rb_define_method(SwigClassTaxesMap.klass, "upper_bound", VALUEFUNC(_wrap_TaxesMap_upper_bound), -1);
+ SwigClassTaxesMap.mark = 0;
+ SwigClassTaxesMap.destroy = (void (*)(void *)) free_std_map_Sl_int_Sc_CdiTaxis_Sg_;
+ SwigClassTaxesMap.trackObjects = 0;
+
+ SwigClassZaxesMap.klass = rb_define_class("ZaxesMap", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__mapT_int_CdiZaxis_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiZaxis_t_t_t, (void *) &SwigClassZaxesMap);
+ rb_include_module(SwigClassZaxesMap.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassZaxesMap.klass, _wrap_ZaxesMap_allocate);
+ rb_define_method(SwigClassZaxesMap.klass, "initialize", VALUEFUNC(_wrap_new_ZaxesMap), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "dup", VALUEFUNC(_wrap_ZaxesMap_dup), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "delete", VALUEFUNC(_wrap_ZaxesMap_delete), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "has_key?", VALUEFUNC(_wrap_ZaxesMap_has_keyq___), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "keys", VALUEFUNC(_wrap_ZaxesMap_keys), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "each", VALUEFUNC(_wrap_ZaxesMap_each), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "select", VALUEFUNC(_wrap_ZaxesMap_select), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "values_at", VALUEFUNC(_wrap_ZaxesMap_values_at), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "each_key", VALUEFUNC(_wrap_ZaxesMap_each_key), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "values", VALUEFUNC(_wrap_ZaxesMap_values), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "each_value", VALUEFUNC(_wrap_ZaxesMap_each_value), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "entries", VALUEFUNC(_wrap_ZaxesMap_entries), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "include?", VALUEFUNC(_wrap_ZaxesMap_includeq___), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "key_iterator", VALUEFUNC(_wrap_ZaxesMap_key_iterator), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "value_iterator", VALUEFUNC(_wrap_ZaxesMap_value_iterator), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "[]", VALUEFUNC(_wrap_ZaxesMap___getitem__), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "[]=", VALUEFUNC(_wrap_ZaxesMap___setitem__), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "inspect", VALUEFUNC(_wrap_ZaxesMap_inspect), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "to_a", VALUEFUNC(_wrap_ZaxesMap_to_a), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "to_s", VALUEFUNC(_wrap_ZaxesMap_to_s), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "empty?", VALUEFUNC(_wrap_ZaxesMap_emptyq___), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "size", VALUEFUNC(_wrap_ZaxesMap_size), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "swap", VALUEFUNC(_wrap_ZaxesMap_swap), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "begin", VALUEFUNC(_wrap_ZaxesMap_begin), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "end", VALUEFUNC(_wrap_ZaxesMap_end), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "rbegin", VALUEFUNC(_wrap_ZaxesMap_rbegin), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "rend", VALUEFUNC(_wrap_ZaxesMap_rend), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "clear", VALUEFUNC(_wrap_ZaxesMap_clear), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "get_allocator", VALUEFUNC(_wrap_ZaxesMap_get_allocator), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "count", VALUEFUNC(_wrap_ZaxesMap_count), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "erase", VALUEFUNC(_wrap_ZaxesMap_erase), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "find", VALUEFUNC(_wrap_ZaxesMap_find), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "lower_bound", VALUEFUNC(_wrap_ZaxesMap_lower_bound), -1);
+ rb_define_method(SwigClassZaxesMap.klass, "upper_bound", VALUEFUNC(_wrap_ZaxesMap_upper_bound), -1);
+ SwigClassZaxesMap.mark = 0;
+ SwigClassZaxesMap.destroy = (void (*)(void *)) free_std_map_Sl_int_Sc_CdiZaxis_Sg_;
+ SwigClassZaxesMap.trackObjects = 0;
+
+ SwigClassGridsMap.klass = rb_define_class("GridsMap", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_std__mapT_int_CdiGrid_std__lessT_int_t_std__allocatorT_std__pairT_int_const_CdiGrid_t_t_t, (void *) &SwigClassGridsMap);
+ rb_include_module(SwigClassGridsMap.klass, rb_eval_string("Enumerable"));
+ rb_define_alloc_func(SwigClassGridsMap.klass, _wrap_GridsMap_allocate);
+ rb_define_method(SwigClassGridsMap.klass, "initialize", VALUEFUNC(_wrap_new_GridsMap), -1);
+ rb_define_method(SwigClassGridsMap.klass, "dup", VALUEFUNC(_wrap_GridsMap_dup), -1);
+ rb_define_method(SwigClassGridsMap.klass, "delete", VALUEFUNC(_wrap_GridsMap_delete), -1);
+ rb_define_method(SwigClassGridsMap.klass, "has_key?", VALUEFUNC(_wrap_GridsMap_has_keyq___), -1);
+ rb_define_method(SwigClassGridsMap.klass, "keys", VALUEFUNC(_wrap_GridsMap_keys), -1);
+ rb_define_method(SwigClassGridsMap.klass, "each", VALUEFUNC(_wrap_GridsMap_each), -1);
+ rb_define_method(SwigClassGridsMap.klass, "select", VALUEFUNC(_wrap_GridsMap_select), -1);
+ rb_define_method(SwigClassGridsMap.klass, "values_at", VALUEFUNC(_wrap_GridsMap_values_at), -1);
+ rb_define_method(SwigClassGridsMap.klass, "each_key", VALUEFUNC(_wrap_GridsMap_each_key), -1);
+ rb_define_method(SwigClassGridsMap.klass, "values", VALUEFUNC(_wrap_GridsMap_values), -1);
+ rb_define_method(SwigClassGridsMap.klass, "each_value", VALUEFUNC(_wrap_GridsMap_each_value), -1);
+ rb_define_method(SwigClassGridsMap.klass, "entries", VALUEFUNC(_wrap_GridsMap_entries), -1);
+ rb_define_method(SwigClassGridsMap.klass, "include?", VALUEFUNC(_wrap_GridsMap_includeq___), -1);
+ rb_define_method(SwigClassGridsMap.klass, "key_iterator", VALUEFUNC(_wrap_GridsMap_key_iterator), -1);
+ rb_define_method(SwigClassGridsMap.klass, "value_iterator", VALUEFUNC(_wrap_GridsMap_value_iterator), -1);
+ rb_define_method(SwigClassGridsMap.klass, "[]", VALUEFUNC(_wrap_GridsMap___getitem__), -1);
+ rb_define_method(SwigClassGridsMap.klass, "[]=", VALUEFUNC(_wrap_GridsMap___setitem__), -1);
+ rb_define_method(SwigClassGridsMap.klass, "inspect", VALUEFUNC(_wrap_GridsMap_inspect), -1);
+ rb_define_method(SwigClassGridsMap.klass, "to_a", VALUEFUNC(_wrap_GridsMap_to_a), -1);
+ rb_define_method(SwigClassGridsMap.klass, "to_s", VALUEFUNC(_wrap_GridsMap_to_s), -1);
+ rb_define_method(SwigClassGridsMap.klass, "empty?", VALUEFUNC(_wrap_GridsMap_emptyq___), -1);
+ rb_define_method(SwigClassGridsMap.klass, "size", VALUEFUNC(_wrap_GridsMap_size), -1);
+ rb_define_method(SwigClassGridsMap.klass, "swap", VALUEFUNC(_wrap_GridsMap_swap), -1);
+ rb_define_method(SwigClassGridsMap.klass, "begin", VALUEFUNC(_wrap_GridsMap_begin), -1);
+ rb_define_method(SwigClassGridsMap.klass, "end", VALUEFUNC(_wrap_GridsMap_end), -1);
+ rb_define_method(SwigClassGridsMap.klass, "rbegin", VALUEFUNC(_wrap_GridsMap_rbegin), -1);
+ rb_define_method(SwigClassGridsMap.klass, "rend", VALUEFUNC(_wrap_GridsMap_rend), -1);
+ rb_define_method(SwigClassGridsMap.klass, "clear", VALUEFUNC(_wrap_GridsMap_clear), -1);
+ rb_define_method(SwigClassGridsMap.klass, "get_allocator", VALUEFUNC(_wrap_GridsMap_get_allocator), -1);
+ rb_define_method(SwigClassGridsMap.klass, "count", VALUEFUNC(_wrap_GridsMap_count), -1);
+ rb_define_method(SwigClassGridsMap.klass, "erase", VALUEFUNC(_wrap_GridsMap_erase), -1);
+ rb_define_method(SwigClassGridsMap.klass, "find", VALUEFUNC(_wrap_GridsMap_find), -1);
+ rb_define_method(SwigClassGridsMap.klass, "lower_bound", VALUEFUNC(_wrap_GridsMap_lower_bound), -1);
+ rb_define_method(SwigClassGridsMap.klass, "upper_bound", VALUEFUNC(_wrap_GridsMap_upper_bound), -1);
+ SwigClassGridsMap.mark = 0;
+ SwigClassGridsMap.destroy = (void (*)(void *)) free_std_map_Sl_int_Sc_CdiGrid_Sg_;
+ SwigClassGridsMap.trackObjects = 0;
+
+ SwigClassCdiGrid.klass = rb_define_class("CdiGrid", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_CdiGrid, (void *) &SwigClassCdiGrid);
+ rb_define_alloc_func(SwigClassCdiGrid.klass, _wrap_CdiGrid_allocate);
+ rb_define_method(SwigClassCdiGrid.klass, "initialize", VALUEFUNC(_wrap_new_CdiGrid), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "gridID=", VALUEFUNC(_wrap_CdiGrid_gridID_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "gridID", VALUEFUNC(_wrap_CdiGrid_gridID_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "type=", VALUEFUNC(_wrap_CdiGrid_type_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "type", VALUEFUNC(_wrap_CdiGrid_type_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "size=", VALUEFUNC(_wrap_CdiGrid_size_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "size", VALUEFUNC(_wrap_CdiGrid_size_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xsize=", VALUEFUNC(_wrap_CdiGrid_xsize_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xsize", VALUEFUNC(_wrap_CdiGrid_xsize_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ysize=", VALUEFUNC(_wrap_CdiGrid_ysize_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ysize", VALUEFUNC(_wrap_CdiGrid_ysize_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "prec=", VALUEFUNC(_wrap_CdiGrid_prec_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "prec", VALUEFUNC(_wrap_CdiGrid_prec_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ncorner=", VALUEFUNC(_wrap_CdiGrid_ncorner_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ncorner", VALUEFUNC(_wrap_CdiGrid_ncorner_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "hasXValues=", VALUEFUNC(_wrap_CdiGrid_hasXValues_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "hasXValues", VALUEFUNC(_wrap_CdiGrid_hasXValues_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "hasYValues=", VALUEFUNC(_wrap_CdiGrid_hasYValues_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "hasYValues", VALUEFUNC(_wrap_CdiGrid_hasYValues_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "hasBounds=", VALUEFUNC(_wrap_CdiGrid_hasBounds_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "hasBounds", VALUEFUNC(_wrap_CdiGrid_hasBounds_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xvalues=", VALUEFUNC(_wrap_CdiGrid_xvalues_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xvalues", VALUEFUNC(_wrap_CdiGrid_xvalues_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "yvalues=", VALUEFUNC(_wrap_CdiGrid_yvalues_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "yvalues", VALUEFUNC(_wrap_CdiGrid_yvalues_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xbounds=", VALUEFUNC(_wrap_CdiGrid_xbounds_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xbounds", VALUEFUNC(_wrap_CdiGrid_xbounds_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ybounds=", VALUEFUNC(_wrap_CdiGrid_ybounds_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ybounds", VALUEFUNC(_wrap_CdiGrid_ybounds_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xname=", VALUEFUNC(_wrap_CdiGrid_xname_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xname", VALUEFUNC(_wrap_CdiGrid_xname_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xlongname=", VALUEFUNC(_wrap_CdiGrid_xlongname_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xlongname", VALUEFUNC(_wrap_CdiGrid_xlongname_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xstdname=", VALUEFUNC(_wrap_CdiGrid_xstdname_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xstdname", VALUEFUNC(_wrap_CdiGrid_xstdname_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xunits=", VALUEFUNC(_wrap_CdiGrid_xunits_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "xunits", VALUEFUNC(_wrap_CdiGrid_xunits_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "yname=", VALUEFUNC(_wrap_CdiGrid_yname_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "yname", VALUEFUNC(_wrap_CdiGrid_yname_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ylongname=", VALUEFUNC(_wrap_CdiGrid_ylongname_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ylongname", VALUEFUNC(_wrap_CdiGrid_ylongname_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ystdname=", VALUEFUNC(_wrap_CdiGrid_ystdname_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "ystdname", VALUEFUNC(_wrap_CdiGrid_ystdname_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "yunits=", VALUEFUNC(_wrap_CdiGrid_yunits_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "yunits", VALUEFUNC(_wrap_CdiGrid_yunits_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "name=", VALUEFUNC(_wrap_CdiGrid_name_set), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "name", VALUEFUNC(_wrap_CdiGrid_name_get), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "getValues", VALUEFUNC(_wrap_CdiGrid_getValues), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "getBounds", VALUEFUNC(_wrap_CdiGrid_getBounds), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "getValuesAsPointer", VALUEFUNC(_wrap_CdiGrid_getValuesAsPointer), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "getBoundsAsPointer", VALUEFUNC(_wrap_CdiGrid_getBoundsAsPointer), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "getFloatVals", VALUEFUNC(_wrap_CdiGrid_getFloatVals), -1);
+ rb_define_method(SwigClassCdiGrid.klass, "getFloatBounds", VALUEFUNC(_wrap_CdiGrid_getFloatBounds), -1);
+ SwigClassCdiGrid.mark = 0;
+ SwigClassCdiGrid.destroy = (void (*)(void *)) free_CdiGrid;
+ SwigClassCdiGrid.trackObjects = 0;
+
+ SwigClassCdiTaxis.klass = rb_define_class("CdiTaxis", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_CdiTaxis, (void *) &SwigClassCdiTaxis);
+ rb_define_alloc_func(SwigClassCdiTaxis.klass, _wrap_CdiTaxis_allocate);
+ rb_define_method(SwigClassCdiTaxis.klass, "initialize", VALUEFUNC(_wrap_new_CdiTaxis), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "taxisID=", VALUEFUNC(_wrap_CdiTaxis_taxisID_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "taxisID", VALUEFUNC(_wrap_CdiTaxis_taxisID_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "ntsteps=", VALUEFUNC(_wrap_CdiTaxis_ntsteps_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "ntsteps", VALUEFUNC(_wrap_CdiTaxis_ntsteps_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "unit=", VALUEFUNC(_wrap_CdiTaxis_unit_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "unit", VALUEFUNC(_wrap_CdiTaxis_unit_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "rdate=", VALUEFUNC(_wrap_CdiTaxis_rdate_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "rdate", VALUEFUNC(_wrap_CdiTaxis_rdate_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "rtime=", VALUEFUNC(_wrap_CdiTaxis_rtime_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "rtime", VALUEFUNC(_wrap_CdiTaxis_rtime_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "vdate=", VALUEFUNC(_wrap_CdiTaxis_vdate_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "vdate", VALUEFUNC(_wrap_CdiTaxis_vdate_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "vtime=", VALUEFUNC(_wrap_CdiTaxis_vtime_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "vtime", VALUEFUNC(_wrap_CdiTaxis_vtime_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "type=", VALUEFUNC(_wrap_CdiTaxis_type_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "type", VALUEFUNC(_wrap_CdiTaxis_type_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "calendar=", VALUEFUNC(_wrap_CdiTaxis_calendar_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "calendar", VALUEFUNC(_wrap_CdiTaxis_calendar_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "hasBounds=", VALUEFUNC(_wrap_CdiTaxis_hasBounds_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "hasBounds", VALUEFUNC(_wrap_CdiTaxis_hasBounds_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "name=", VALUEFUNC(_wrap_CdiTaxis_name_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "name", VALUEFUNC(_wrap_CdiTaxis_name_get), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "unitname=", VALUEFUNC(_wrap_CdiTaxis_unitname_set), -1);
+ rb_define_method(SwigClassCdiTaxis.klass, "unitname", VALUEFUNC(_wrap_CdiTaxis_unitname_get), -1);
+ SwigClassCdiTaxis.mark = 0;
+ SwigClassCdiTaxis.destroy = (void (*)(void *)) free_CdiTaxis;
+ SwigClassCdiTaxis.trackObjects = 0;
+
+ SwigClassCdiZaxis.klass = rb_define_class("CdiZaxis", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_CdiZaxis, (void *) &SwigClassCdiZaxis);
+ rb_define_alloc_func(SwigClassCdiZaxis.klass, _wrap_CdiZaxis_allocate);
+ rb_define_method(SwigClassCdiZaxis.klass, "initialize", VALUEFUNC(_wrap_new_CdiZaxis), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "zaxisID=", VALUEFUNC(_wrap_CdiZaxis_zaxisID_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "zaxisID", VALUEFUNC(_wrap_CdiZaxis_zaxisID_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "type=", VALUEFUNC(_wrap_CdiZaxis_type_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "type", VALUEFUNC(_wrap_CdiZaxis_type_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "ltype=", VALUEFUNC(_wrap_CdiZaxis_ltype_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "ltype", VALUEFUNC(_wrap_CdiZaxis_ltype_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "size=", VALUEFUNC(_wrap_CdiZaxis_size_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "size", VALUEFUNC(_wrap_CdiZaxis_size_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "prec=", VALUEFUNC(_wrap_CdiZaxis_prec_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "prec", VALUEFUNC(_wrap_CdiZaxis_prec_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "plevels=", VALUEFUNC(_wrap_CdiZaxis_plevels_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "plevels", VALUEFUNC(_wrap_CdiZaxis_plevels_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "plbounds=", VALUEFUNC(_wrap_CdiZaxis_plbounds_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "plbounds", VALUEFUNC(_wrap_CdiZaxis_plbounds_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "pubounds=", VALUEFUNC(_wrap_CdiZaxis_pubounds_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "pubounds", VALUEFUNC(_wrap_CdiZaxis_pubounds_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "pweights=", VALUEFUNC(_wrap_CdiZaxis_pweights_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "pweights", VALUEFUNC(_wrap_CdiZaxis_pweights_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "levels=", VALUEFUNC(_wrap_CdiZaxis_levels_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "levels", VALUEFUNC(_wrap_CdiZaxis_levels_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "lbounds=", VALUEFUNC(_wrap_CdiZaxis_lbounds_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "lbounds", VALUEFUNC(_wrap_CdiZaxis_lbounds_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "ubounds=", VALUEFUNC(_wrap_CdiZaxis_ubounds_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "ubounds", VALUEFUNC(_wrap_CdiZaxis_ubounds_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "weights=", VALUEFUNC(_wrap_CdiZaxis_weights_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "weights", VALUEFUNC(_wrap_CdiZaxis_weights_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "name=", VALUEFUNC(_wrap_CdiZaxis_name_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "name", VALUEFUNC(_wrap_CdiZaxis_name_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "longname=", VALUEFUNC(_wrap_CdiZaxis_longname_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "longname", VALUEFUNC(_wrap_CdiZaxis_longname_get), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "units=", VALUEFUNC(_wrap_CdiZaxis_units_set), -1);
+ rb_define_method(SwigClassCdiZaxis.klass, "units", VALUEFUNC(_wrap_CdiZaxis_units_get), -1);
+ SwigClassCdiZaxis.mark = 0;
+ SwigClassCdiZaxis.destroy = (void (*)(void *)) free_CdiZaxis;
+ SwigClassCdiZaxis.trackObjects = 0;
+
+ SwigClassCdiVariable.klass = rb_define_class("CdiVariable", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_CdiVariable, (void *) &SwigClassCdiVariable);
+ rb_define_alloc_func(SwigClassCdiVariable.klass, _wrap_CdiVariable_allocate);
+ rb_define_method(SwigClassCdiVariable.klass, "initialize", VALUEFUNC(_wrap_new_CdiVariable), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "varID=", VALUEFUNC(_wrap_CdiVariable_varID_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "varID", VALUEFUNC(_wrap_CdiVariable_varID_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "zaxisID=", VALUEFUNC(_wrap_CdiVariable_zaxisID_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "zaxisID", VALUEFUNC(_wrap_CdiVariable_zaxisID_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "gridID=", VALUEFUNC(_wrap_CdiVariable_gridID_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "gridID", VALUEFUNC(_wrap_CdiVariable_gridID_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "taxisID=", VALUEFUNC(_wrap_CdiVariable_taxisID_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "taxisID", VALUEFUNC(_wrap_CdiVariable_taxisID_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "timeID=", VALUEFUNC(_wrap_CdiVariable_timeID_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "timeID", VALUEFUNC(_wrap_CdiVariable_timeID_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "vlistID=", VALUEFUNC(_wrap_CdiVariable_vlistID_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "vlistID", VALUEFUNC(_wrap_CdiVariable_vlistID_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "size=", VALUEFUNC(_wrap_CdiVariable_size_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "size", VALUEFUNC(_wrap_CdiVariable_size_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "code=", VALUEFUNC(_wrap_CdiVariable_code_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "code", VALUEFUNC(_wrap_CdiVariable_code_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "datatype=", VALUEFUNC(_wrap_CdiVariable_datatype_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "datatype", VALUEFUNC(_wrap_CdiVariable_datatype_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "streamID=", VALUEFUNC(_wrap_CdiVariable_streamID_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "streamID", VALUEFUNC(_wrap_CdiVariable_streamID_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "name=", VALUEFUNC(_wrap_CdiVariable_name_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "name", VALUEFUNC(_wrap_CdiVariable_name_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "longname=", VALUEFUNC(_wrap_CdiVariable_longname_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "longname", VALUEFUNC(_wrap_CdiVariable_longname_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "units=", VALUEFUNC(_wrap_CdiVariable_units_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "units", VALUEFUNC(_wrap_CdiVariable_units_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "stdname=", VALUEFUNC(_wrap_CdiVariable_stdname_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "stdname", VALUEFUNC(_wrap_CdiVariable_stdname_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "missval=", VALUEFUNC(_wrap_CdiVariable_missval_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "missval", VALUEFUNC(_wrap_CdiVariable_missval_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "values=", VALUEFUNC(_wrap_CdiVariable_values_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "values", VALUEFUNC(_wrap_CdiVariable_values_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "valuesWithLevel=", VALUEFUNC(_wrap_CdiVariable_valuesWithLevel_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "valuesWithLevel", VALUEFUNC(_wrap_CdiVariable_valuesWithLevel_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "grid=", VALUEFUNC(_wrap_CdiVariable_grid_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "grid", VALUEFUNC(_wrap_CdiVariable_grid_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "zaxis=", VALUEFUNC(_wrap_CdiVariable_zaxis_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "zaxis", VALUEFUNC(_wrap_CdiVariable_zaxis_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "taxis=", VALUEFUNC(_wrap_CdiVariable_taxis_set), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "taxis", VALUEFUNC(_wrap_CdiVariable_taxis_get), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "sinfo", VALUEFUNC(_wrap_CdiVariable_sinfo), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "getValues", VALUEFUNC(_wrap_CdiVariable_getValues), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "getValuesWithLevel", VALUEFUNC(_wrap_CdiVariable_getValuesWithLevel), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "getFValues", VALUEFUNC(_wrap_CdiVariable_getFValues), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "getFValuesWithLevel", VALUEFUNC(_wrap_CdiVariable_getFValuesWithLevel), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "getValuesAsPointer", VALUEFUNC(_wrap_CdiVariable_getValuesAsPointer), -1);
+ rb_define_method(SwigClassCdiVariable.klass, "getValuesWithLevelAsPointer", VALUEFUNC(_wrap_CdiVariable_getValuesWithLevelAsPointer), -1);
+ SwigClassCdiVariable.mark = 0;
+ SwigClassCdiVariable.destroy = (void (*)(void *)) free_CdiVariable;
+ SwigClassCdiVariable.trackObjects = 0;
+
+ SwigClassCdi.klass = rb_define_class("Cdi", rb_cObject);
+ SWIG_TypeClientData(SWIGTYPE_p_Cdi, (void *) &SwigClassCdi);
+ rb_define_alloc_func(SwigClassCdi.klass, _wrap_Cdi_allocate);
+ rb_define_method(SwigClassCdi.klass, "initialize", VALUEFUNC(_wrap_new_Cdi), -1);
+ rb_define_method(SwigClassCdi.klass, "streamID=", VALUEFUNC(_wrap_Cdi_streamID_set), -1);
+ rb_define_method(SwigClassCdi.klass, "streamID", VALUEFUNC(_wrap_Cdi_streamID_get), -1);
+ rb_define_method(SwigClassCdi.klass, "vlistID=", VALUEFUNC(_wrap_Cdi_vlistID_set), -1);
+ rb_define_method(SwigClassCdi.klass, "vlistID", VALUEFUNC(_wrap_Cdi_vlistID_get), -1);
+ rb_define_method(SwigClassCdi.klass, "nvars=", VALUEFUNC(_wrap_Cdi_nvars_set), -1);
+ rb_define_method(SwigClassCdi.klass, "nvars", VALUEFUNC(_wrap_Cdi_nvars_get), -1);
+ rb_define_method(SwigClassCdi.klass, "nzaxes=", VALUEFUNC(_wrap_Cdi_nzaxes_set), -1);
+ rb_define_method(SwigClassCdi.klass, "nzaxes", VALUEFUNC(_wrap_Cdi_nzaxes_get), -1);
+ rb_define_method(SwigClassCdi.klass, "ngrids=", VALUEFUNC(_wrap_Cdi_ngrids_set), -1);
+ rb_define_method(SwigClassCdi.klass, "ngrids", VALUEFUNC(_wrap_Cdi_ngrids_get), -1);
+ rb_define_method(SwigClassCdi.klass, "ntaxes=", VALUEFUNC(_wrap_Cdi_ntaxes_set), -1);
+ rb_define_method(SwigClassCdi.klass, "ntaxes", VALUEFUNC(_wrap_Cdi_ntaxes_get), -1);
+ rb_define_method(SwigClassCdi.klass, "taxisID=", VALUEFUNC(_wrap_Cdi_taxisID_set), -1);
+ rb_define_method(SwigClassCdi.klass, "taxisID", VALUEFUNC(_wrap_Cdi_taxisID_get), -1);
+ rb_define_method(SwigClassCdi.klass, "varnames=", VALUEFUNC(_wrap_Cdi_varnames_set), -1);
+ rb_define_method(SwigClassCdi.klass, "varnames", VALUEFUNC(_wrap_Cdi_varnames_get), -1);
+ rb_define_method(SwigClassCdi.klass, "codes=", VALUEFUNC(_wrap_Cdi_codes_set), -1);
+ rb_define_method(SwigClassCdi.klass, "codes", VALUEFUNC(_wrap_Cdi_codes_get), -1);
+ rb_define_method(SwigClassCdi.klass, "variables=", VALUEFUNC(_wrap_Cdi_variables_set), -1);
+ rb_define_method(SwigClassCdi.klass, "variables", VALUEFUNC(_wrap_Cdi_variables_get), -1);
+ rb_define_method(SwigClassCdi.klass, "var=", VALUEFUNC(_wrap_Cdi_var_set), -1);
+ rb_define_method(SwigClassCdi.klass, "var", VALUEFUNC(_wrap_Cdi_var_get), -1);
+ rb_define_method(SwigClassCdi.klass, "varByCode=", VALUEFUNC(_wrap_Cdi_varByCode_set), -1);
+ rb_define_method(SwigClassCdi.klass, "varByCode", VALUEFUNC(_wrap_Cdi_varByCode_get), -1);
+ rb_define_method(SwigClassCdi.klass, "taxes=", VALUEFUNC(_wrap_Cdi_taxes_set), -1);
+ rb_define_method(SwigClassCdi.klass, "taxes", VALUEFUNC(_wrap_Cdi_taxes_get), -1);
+ rb_define_method(SwigClassCdi.klass, "zaxes=", VALUEFUNC(_wrap_Cdi_zaxes_set), -1);
+ rb_define_method(SwigClassCdi.klass, "zaxes", VALUEFUNC(_wrap_Cdi_zaxes_get), -1);
+ rb_define_method(SwigClassCdi.klass, "grids=", VALUEFUNC(_wrap_Cdi_grids_set), -1);
+ rb_define_method(SwigClassCdi.klass, "grids", VALUEFUNC(_wrap_Cdi_grids_get), -1);
+ rb_define_method(SwigClassCdi.klass, "griddes", VALUEFUNC(_wrap_Cdi_griddes), -1);
+ SwigClassCdi.mark = 0;
+ SwigClassCdi.destroy = (void (*)(void *)) free_Cdi;
+ SwigClassCdi.trackObjects = 0;
+}
+
diff --git a/m4/libtool.m4 b/m4/libtool.m4
new file mode 100644
index 000000000..a3bc337b7
--- /dev/null
+++ b/m4/libtool.m4
@@ -0,0 +1,8369 @@
+# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*-
+#
+# Copyright (C) 1996-2001, 2003-2015 Free Software Foundation, Inc.
+# Written by Gordon Matzigkeit, 1996
+#
+# This file 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.
+
+m4_define([_LT_COPYING], [dnl
+# Copyright (C) 2014 Free Software Foundation, Inc.
+# This is free software; see the source for copying conditions. There is NO
+# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+# GNU Libtool 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 2 of of the License, or
+# (at your option) any later version.
+#
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program or library that is built
+# using GNU Libtool, you may include this file under the same
+# distribution terms that you use for the rest of that program.
+#
+# GNU Libtool 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/>.
+])
+
+# serial 58 LT_INIT
+
+
+# LT_PREREQ(VERSION)
+# ------------------
+# Complain and exit if this libtool version is less that VERSION.
+m4_defun([LT_PREREQ],
+[m4_if(m4_version_compare(m4_defn([LT_PACKAGE_VERSION]), [$1]), -1,
+ [m4_default([$3],
+ [m4_fatal([Libtool version $1 or higher is required],
+ 63)])],
+ [$2])])
+
+
+# _LT_CHECK_BUILDDIR
+# ------------------
+# Complain if the absolute build directory name contains unusual characters
+m4_defun([_LT_CHECK_BUILDDIR],
+[case `pwd` in
+ *\ * | *\ *)
+ AC_MSG_WARN([Libtool does not cope well with whitespace in `pwd`]) ;;
+esac
+])
+
+
+# LT_INIT([OPTIONS])
+# ------------------
+AC_DEFUN([LT_INIT],
+[AC_PREREQ([2.62])dnl We use AC_PATH_PROGS_FEATURE_CHECK
+AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl
+AC_BEFORE([$0], [LT_LANG])dnl
+AC_BEFORE([$0], [LT_OUTPUT])dnl
+AC_BEFORE([$0], [LTDL_INIT])dnl
+m4_require([_LT_CHECK_BUILDDIR])dnl
+
+dnl Autoconf doesn't catch unexpanded LT_ macros by default:
+m4_pattern_forbid([^_?LT_[A-Z_]+$])dnl
+m4_pattern_allow([^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$])dnl
+dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4
+dnl unless we require an AC_DEFUNed macro:
+AC_REQUIRE([LTOPTIONS_VERSION])dnl
+AC_REQUIRE([LTSUGAR_VERSION])dnl
+AC_REQUIRE([LTVERSION_VERSION])dnl
+AC_REQUIRE([LTOBSOLETE_VERSION])dnl
+m4_require([_LT_PROG_LTMAIN])dnl
+
+_LT_SHELL_INIT([SHELL=${CONFIG_SHELL-/bin/sh}])
+
+dnl Parse OPTIONS
+_LT_SET_OPTIONS([$0], [$1])
+
+# This can be used to rebuild libtool when needed
+LIBTOOL_DEPS=$ltmain
+
+# Always use our own libtool.
+LIBTOOL='$(SHELL) $(top_builddir)/libtool'
+AC_SUBST(LIBTOOL)dnl
+
+_LT_SETUP
+
+# Only expand once:
+m4_define([LT_INIT])
+])# LT_INIT
+
+# Old names:
+AU_ALIAS([AC_PROG_LIBTOOL], [LT_INIT])
+AU_ALIAS([AM_PROG_LIBTOOL], [LT_INIT])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_PROG_LIBTOOL], [])
+dnl AC_DEFUN([AM_PROG_LIBTOOL], [])
+
+
+# _LT_PREPARE_CC_BASENAME
+# -----------------------
+m4_defun([_LT_PREPARE_CC_BASENAME], [
+# Calculate cc_basename. Skip known compiler wrappers and cross-prefix.
+func_cc_basename ()
+{
+ for cc_temp in @S|@*""; do
+ case $cc_temp in
+ compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;;
+ distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;;
+ \-*) ;;
+ *) break;;
+ esac
+ done
+ func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
+}
+])# _LT_PREPARE_CC_BASENAME
+
+
+# _LT_CC_BASENAME(CC)
+# -------------------
+# It would be clearer to call AC_REQUIREs from _LT_PREPARE_CC_BASENAME,
+# but that macro is also expanded into generated libtool script, which
+# arranges for $SED and $ECHO to be set by different means.
+m4_defun([_LT_CC_BASENAME],
+[m4_require([_LT_PREPARE_CC_BASENAME])dnl
+AC_REQUIRE([_LT_DECL_SED])dnl
+AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl
+func_cc_basename $1
+cc_basename=$func_cc_basename_result
+])
+
+
+# _LT_FILEUTILS_DEFAULTS
+# ----------------------
+# It is okay to use these file commands and assume they have been set
+# sensibly after 'm4_require([_LT_FILEUTILS_DEFAULTS])'.
+m4_defun([_LT_FILEUTILS_DEFAULTS],
+[: ${CP="cp -f"}
+: ${MV="mv -f"}
+: ${RM="rm -f"}
+])# _LT_FILEUTILS_DEFAULTS
+
+
+# _LT_SETUP
+# ---------
+m4_defun([_LT_SETUP],
+[AC_REQUIRE([AC_CANONICAL_HOST])dnl
+AC_REQUIRE([AC_CANONICAL_BUILD])dnl
+AC_REQUIRE([_LT_PREPARE_SED_QUOTE_VARS])dnl
+AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl
+
+_LT_DECL([], [PATH_SEPARATOR], [1], [The PATH separator for the build system])dnl
+dnl
+_LT_DECL([], [host_alias], [0], [The host system])dnl
+_LT_DECL([], [host], [0])dnl
+_LT_DECL([], [host_os], [0])dnl
+dnl
+_LT_DECL([], [build_alias], [0], [The build system])dnl
+_LT_DECL([], [build], [0])dnl
+_LT_DECL([], [build_os], [0])dnl
+dnl
+AC_REQUIRE([AC_PROG_CC])dnl
+AC_REQUIRE([LT_PATH_LD])dnl
+AC_REQUIRE([LT_PATH_NM])dnl
+dnl
+AC_REQUIRE([AC_PROG_LN_S])dnl
+test -z "$LN_S" && LN_S="ln -s"
+_LT_DECL([], [LN_S], [1], [Whether we need soft or hard links])dnl
+dnl
+AC_REQUIRE([LT_CMD_MAX_LEN])dnl
+_LT_DECL([objext], [ac_objext], [0], [Object file suffix (normally "o")])dnl
+_LT_DECL([], [exeext], [0], [Executable file suffix (normally "")])dnl
+dnl
+m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+m4_require([_LT_CHECK_SHELL_FEATURES])dnl
+m4_require([_LT_PATH_CONVERSION_FUNCTIONS])dnl
+m4_require([_LT_CMD_RELOAD])dnl
+m4_require([_LT_CHECK_MAGIC_METHOD])dnl
+m4_require([_LT_CHECK_SHAREDLIB_FROM_LINKLIB])dnl
+m4_require([_LT_CMD_OLD_ARCHIVE])dnl
+m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl
+m4_require([_LT_WITH_SYSROOT])dnl
+m4_require([_LT_CMD_TRUNCATE])dnl
+
+_LT_CONFIG_LIBTOOL_INIT([
+# See if we are running on zsh, and set the options that allow our
+# commands through without removal of \ escapes INIT.
+if test -n "\${ZSH_VERSION+set}"; then
+ setopt NO_GLOB_SUBST
+fi
+])
+if test -n "${ZSH_VERSION+set}"; then
+ setopt NO_GLOB_SUBST
+fi
+
+_LT_CHECK_OBJDIR
+
+m4_require([_LT_TAG_COMPILER])dnl
+
+case $host_os in
+aix3*)
+ # AIX sometimes has problems with the GCC collect2 program. For some
+ # reason, if we set the COLLECT_NAMES environment variable, the problems
+ # vanish in a puff of smoke.
+ if test set != "${COLLECT_NAMES+set}"; then
+ COLLECT_NAMES=
+ export COLLECT_NAMES
+ fi
+ ;;
+esac
+
+# Global variables:
+ofile=libtool
+can_build_shared=yes
+
+# All known linkers require a '.a' archive for static linking (except MSVC,
+# which needs '.lib').
+libext=a
+
+with_gnu_ld=$lt_cv_prog_gnu_ld
+
+old_CC=$CC
+old_CFLAGS=$CFLAGS
+
+# Set sane defaults for various variables
+test -z "$CC" && CC=cc
+test -z "$LTCC" && LTCC=$CC
+test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS
+test -z "$LD" && LD=ld
+test -z "$ac_objext" && ac_objext=o
+
+_LT_CC_BASENAME([$compiler])
+
+# Only perform the check for file, if the check method requires it
+test -z "$MAGIC_CMD" && MAGIC_CMD=file
+case $deplibs_check_method in
+file_magic*)
+ if test "$file_magic_cmd" = '$MAGIC_CMD'; then
+ _LT_PATH_MAGIC
+ fi
+ ;;
+esac
+
+# Use C for the default configuration in the libtool script
+LT_SUPPORTED_TAG([CC])
+_LT_LANG_C_CONFIG
+_LT_LANG_DEFAULT_CONFIG
+_LT_CONFIG_COMMANDS
+])# _LT_SETUP
+
+
+# _LT_PREPARE_SED_QUOTE_VARS
+# --------------------------
+# Define a few sed substitution that help us do robust quoting.
+m4_defun([_LT_PREPARE_SED_QUOTE_VARS],
+[# Backslashify metacharacters that are still active within
+# double-quoted strings.
+sed_quote_subst='s/\([["`$\\]]\)/\\\1/g'
+
+# Same as above, but do not quote variable references.
+double_quote_subst='s/\([["`\\]]\)/\\\1/g'
+
+# Sed substitution to delay expansion of an escaped shell variable in a
+# double_quote_subst'ed string.
+delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g'
+
+# Sed substitution to delay expansion of an escaped single quote.
+delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g'
+
+# Sed substitution to avoid accidental globbing in evaled expressions
+no_glob_subst='s/\*/\\\*/g'
+])
+
+# _LT_PROG_LTMAIN
+# ---------------
+# Note that this code is called both from 'configure', and 'config.status'
+# now that we use AC_CONFIG_COMMANDS to generate libtool. Notably,
+# 'config.status' has no value for ac_aux_dir unless we are using Automake,
+# so we pass a copy along to make sure it has a sensible value anyway.
+m4_defun([_LT_PROG_LTMAIN],
+[m4_ifdef([AC_REQUIRE_AUX_FILE], [AC_REQUIRE_AUX_FILE([ltmain.sh])])dnl
+_LT_CONFIG_LIBTOOL_INIT([ac_aux_dir='$ac_aux_dir'])
+ltmain=$ac_aux_dir/ltmain.sh
+])# _LT_PROG_LTMAIN
+
+
+## ------------------------------------- ##
+## Accumulate code for creating libtool. ##
+## ------------------------------------- ##
+
+# So that we can recreate a full libtool script including additional
+# tags, we accumulate the chunks of code to send to AC_CONFIG_COMMANDS
+# in macros and then make a single call at the end using the 'libtool'
+# label.
+
+
+# _LT_CONFIG_LIBTOOL_INIT([INIT-COMMANDS])
+# ----------------------------------------
+# Register INIT-COMMANDS to be passed to AC_CONFIG_COMMANDS later.
+m4_define([_LT_CONFIG_LIBTOOL_INIT],
+[m4_ifval([$1],
+ [m4_append([_LT_OUTPUT_LIBTOOL_INIT],
+ [$1
+])])])
+
+# Initialize.
+m4_define([_LT_OUTPUT_LIBTOOL_INIT])
+
+
+# _LT_CONFIG_LIBTOOL([COMMANDS])
+# ------------------------------
+# Register COMMANDS to be passed to AC_CONFIG_COMMANDS later.
+m4_define([_LT_CONFIG_LIBTOOL],
+[m4_ifval([$1],
+ [m4_append([_LT_OUTPUT_LIBTOOL_COMMANDS],
+ [$1
+])])])
+
+# Initialize.
+m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS])
+
+
+# _LT_CONFIG_SAVE_COMMANDS([COMMANDS], [INIT_COMMANDS])
+# -----------------------------------------------------
+m4_defun([_LT_CONFIG_SAVE_COMMANDS],
+[_LT_CONFIG_LIBTOOL([$1])
+_LT_CONFIG_LIBTOOL_INIT([$2])
+])
+
+
+# _LT_FORMAT_COMMENT([COMMENT])
+# -----------------------------
+# Add leading comment marks to the start of each line, and a trailing
+# full-stop to the whole comment if one is not present already.
+m4_define([_LT_FORMAT_COMMENT],
+[m4_ifval([$1], [
+m4_bpatsubst([m4_bpatsubst([$1], [^ *], [# ])],
+ [['`$\]], [\\\&])]m4_bmatch([$1], [[!?.]$], [], [.])
+)])
+
+
+
+## ------------------------ ##
+## FIXME: Eliminate VARNAME ##
+## ------------------------ ##
+
+
+# _LT_DECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION], [IS-TAGGED?])
+# -------------------------------------------------------------------
+# CONFIGNAME is the name given to the value in the libtool script.
+# VARNAME is the (base) name used in the configure script.
+# VALUE may be 0, 1 or 2 for a computed quote escaped value based on
+# VARNAME. Any other value will be used directly.
+m4_define([_LT_DECL],
+[lt_if_append_uniq([lt_decl_varnames], [$2], [, ],
+ [lt_dict_add_subkey([lt_decl_dict], [$2], [libtool_name],
+ [m4_ifval([$1], [$1], [$2])])
+ lt_dict_add_subkey([lt_decl_dict], [$2], [value], [$3])
+ m4_ifval([$4],
+ [lt_dict_add_subkey([lt_decl_dict], [$2], [description], [$4])])
+ lt_dict_add_subkey([lt_decl_dict], [$2],
+ [tagged?], [m4_ifval([$5], [yes], [no])])])
+])
+
+
+# _LT_TAGDECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION])
+# --------------------------------------------------------
+m4_define([_LT_TAGDECL], [_LT_DECL([$1], [$2], [$3], [$4], [yes])])
+
+
+# lt_decl_tag_varnames([SEPARATOR], [VARNAME1...])
+# ------------------------------------------------
+m4_define([lt_decl_tag_varnames],
+[_lt_decl_filter([tagged?], [yes], $@)])
+
+
+# _lt_decl_filter(SUBKEY, VALUE, [SEPARATOR], [VARNAME1..])
+# ---------------------------------------------------------
+m4_define([_lt_decl_filter],
+[m4_case([$#],
+ [0], [m4_fatal([$0: too few arguments: $#])],
+ [1], [m4_fatal([$0: too few arguments: $#: $1])],
+ [2], [lt_dict_filter([lt_decl_dict], [$1], [$2], [], lt_decl_varnames)],
+ [3], [lt_dict_filter([lt_decl_dict], [$1], [$2], [$3], lt_decl_varnames)],
+ [lt_dict_filter([lt_decl_dict], $@)])[]dnl
+])
+
+
+# lt_decl_quote_varnames([SEPARATOR], [VARNAME1...])
+# --------------------------------------------------
+m4_define([lt_decl_quote_varnames],
+[_lt_decl_filter([value], [1], $@)])
+
+
+# lt_decl_dquote_varnames([SEPARATOR], [VARNAME1...])
+# ---------------------------------------------------
+m4_define([lt_decl_dquote_varnames],
+[_lt_decl_filter([value], [2], $@)])
+
+
+# lt_decl_varnames_tagged([SEPARATOR], [VARNAME1...])
+# ---------------------------------------------------
+m4_define([lt_decl_varnames_tagged],
+[m4_assert([$# <= 2])dnl
+_$0(m4_quote(m4_default([$1], [[, ]])),
+ m4_ifval([$2], [[$2]], [m4_dquote(lt_decl_tag_varnames)]),
+ m4_split(m4_normalize(m4_quote(_LT_TAGS)), [ ]))])
+m4_define([_lt_decl_varnames_tagged],
+[m4_ifval([$3], [lt_combine([$1], [$2], [_], $3)])])
+
+
+# lt_decl_all_varnames([SEPARATOR], [VARNAME1...])
+# ------------------------------------------------
+m4_define([lt_decl_all_varnames],
+[_$0(m4_quote(m4_default([$1], [[, ]])),
+ m4_if([$2], [],
+ m4_quote(lt_decl_varnames),
+ m4_quote(m4_shift($@))))[]dnl
+])
+m4_define([_lt_decl_all_varnames],
+[lt_join($@, lt_decl_varnames_tagged([$1],
+ lt_decl_tag_varnames([[, ]], m4_shift($@))))dnl
+])
+
+
+# _LT_CONFIG_STATUS_DECLARE([VARNAME])
+# ------------------------------------
+# Quote a variable value, and forward it to 'config.status' so that its
+# declaration there will have the same value as in 'configure'. VARNAME
+# must have a single quote delimited value for this to work.
+m4_define([_LT_CONFIG_STATUS_DECLARE],
+[$1='`$ECHO "$][$1" | $SED "$delay_single_quote_subst"`'])
+
+
+# _LT_CONFIG_STATUS_DECLARATIONS
+# ------------------------------
+# We delimit libtool config variables with single quotes, so when
+# we write them to config.status, we have to be sure to quote all
+# embedded single quotes properly. In configure, this macro expands
+# each variable declared with _LT_DECL (and _LT_TAGDECL) into:
+#
+# <var>='`$ECHO "$<var>" | $SED "$delay_single_quote_subst"`'
+m4_defun([_LT_CONFIG_STATUS_DECLARATIONS],
+[m4_foreach([_lt_var], m4_quote(lt_decl_all_varnames),
+ [m4_n([_LT_CONFIG_STATUS_DECLARE(_lt_var)])])])
+
+
+# _LT_LIBTOOL_TAGS
+# ----------------
+# Output comment and list of tags supported by the script
+m4_defun([_LT_LIBTOOL_TAGS],
+[_LT_FORMAT_COMMENT([The names of the tagged configurations supported by this script])dnl
+available_tags='_LT_TAGS'dnl
+])
+
+
+# _LT_LIBTOOL_DECLARE(VARNAME, [TAG])
+# -----------------------------------
+# Extract the dictionary values for VARNAME (optionally with TAG) and
+# expand to a commented shell variable setting:
+#
+# # Some comment about what VAR is for.
+# visible_name=$lt_internal_name
+m4_define([_LT_LIBTOOL_DECLARE],
+[_LT_FORMAT_COMMENT(m4_quote(lt_dict_fetch([lt_decl_dict], [$1],
+ [description])))[]dnl
+m4_pushdef([_libtool_name],
+ m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [libtool_name])))[]dnl
+m4_case(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [value])),
+ [0], [_libtool_name=[$]$1],
+ [1], [_libtool_name=$lt_[]$1],
+ [2], [_libtool_name=$lt_[]$1],
+ [_libtool_name=lt_dict_fetch([lt_decl_dict], [$1], [value])])[]dnl
+m4_ifval([$2], [_$2])[]m4_popdef([_libtool_name])[]dnl
+])
+
+
+# _LT_LIBTOOL_CONFIG_VARS
+# -----------------------
+# Produce commented declarations of non-tagged libtool config variables
+# suitable for insertion in the LIBTOOL CONFIG section of the 'libtool'
+# script. Tagged libtool config variables (even for the LIBTOOL CONFIG
+# section) are produced by _LT_LIBTOOL_TAG_VARS.
+m4_defun([_LT_LIBTOOL_CONFIG_VARS],
+[m4_foreach([_lt_var],
+ m4_quote(_lt_decl_filter([tagged?], [no], [], lt_decl_varnames)),
+ [m4_n([_LT_LIBTOOL_DECLARE(_lt_var)])])])
+
+
+# _LT_LIBTOOL_TAG_VARS(TAG)
+# -------------------------
+m4_define([_LT_LIBTOOL_TAG_VARS],
+[m4_foreach([_lt_var], m4_quote(lt_decl_tag_varnames),
+ [m4_n([_LT_LIBTOOL_DECLARE(_lt_var, [$1])])])])
+
+
+# _LT_TAGVAR(VARNAME, [TAGNAME])
+# ------------------------------
+m4_define([_LT_TAGVAR], [m4_ifval([$2], [$1_$2], [$1])])
+
+
+# _LT_CONFIG_COMMANDS
+# -------------------
+# Send accumulated output to $CONFIG_STATUS. Thanks to the lists of
+# variables for single and double quote escaping we saved from calls
+# to _LT_DECL, we can put quote escaped variables declarations
+# into 'config.status', and then the shell code to quote escape them in
+# for loops in 'config.status'. Finally, any additional code accumulated
+# from calls to _LT_CONFIG_LIBTOOL_INIT is expanded.
+m4_defun([_LT_CONFIG_COMMANDS],
+[AC_PROVIDE_IFELSE([LT_OUTPUT],
+ dnl If the libtool generation code has been placed in $CONFIG_LT,
+ dnl instead of duplicating it all over again into config.status,
+ dnl then we will have config.status run $CONFIG_LT later, so it
+ dnl needs to know what name is stored there:
+ [AC_CONFIG_COMMANDS([libtool],
+ [$SHELL $CONFIG_LT || AS_EXIT(1)], [CONFIG_LT='$CONFIG_LT'])],
+ dnl If the libtool generation code is destined for config.status,
+ dnl expand the accumulated commands and init code now:
+ [AC_CONFIG_COMMANDS([libtool],
+ [_LT_OUTPUT_LIBTOOL_COMMANDS], [_LT_OUTPUT_LIBTOOL_COMMANDS_INIT])])
+])#_LT_CONFIG_COMMANDS
+
+
+# Initialize.
+m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS_INIT],
+[
+
+# The HP-UX ksh and POSIX shell print the target directory to stdout
+# if CDPATH is set.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+sed_quote_subst='$sed_quote_subst'
+double_quote_subst='$double_quote_subst'
+delay_variable_subst='$delay_variable_subst'
+_LT_CONFIG_STATUS_DECLARATIONS
+LTCC='$LTCC'
+LTCFLAGS='$LTCFLAGS'
+compiler='$compiler_DEFAULT'
+
+# A function that is used when there is no print builtin or printf.
+func_fallback_echo ()
+{
+ eval 'cat <<_LTECHO_EOF
+\$[]1
+_LTECHO_EOF'
+}
+
+# Quote evaled strings.
+for var in lt_decl_all_varnames([[ \
+]], lt_decl_quote_varnames); do
+ case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
+ *[[\\\\\\\`\\"\\\$]]*)
+ eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes
+ ;;
+ *)
+ eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
+ ;;
+ esac
+done
+
+# Double-quote double-evaled strings.
+for var in lt_decl_all_varnames([[ \
+]], lt_decl_dquote_varnames); do
+ case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
+ *[[\\\\\\\`\\"\\\$]]*)
+ eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes
+ ;;
+ *)
+ eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
+ ;;
+ esac
+done
+
+_LT_OUTPUT_LIBTOOL_INIT
+])
+
+# _LT_GENERATED_FILE_INIT(FILE, [COMMENT])
+# ------------------------------------
+# Generate a child script FILE with all initialization necessary to
+# reuse the environment learned by the parent script, and make the
+# file executable. If COMMENT is supplied, it is inserted after the
+# '#!' sequence but before initialization text begins. After this
+# macro, additional text can be appended to FILE to form the body of
+# the child script. The macro ends with non-zero status if the
+# file could not be fully written (such as if the disk is full).
+m4_ifdef([AS_INIT_GENERATED],
+[m4_defun([_LT_GENERATED_FILE_INIT],[AS_INIT_GENERATED($@)])],
+[m4_defun([_LT_GENERATED_FILE_INIT],
+[m4_require([AS_PREPARE])]dnl
+[m4_pushdef([AS_MESSAGE_LOG_FD])]dnl
+[lt_write_fail=0
+cat >$1 <<_ASEOF || lt_write_fail=1
+#! $SHELL
+# Generated by $as_me.
+$2
+SHELL=\${CONFIG_SHELL-$SHELL}
+export SHELL
+_ASEOF
+cat >>$1 <<\_ASEOF || lt_write_fail=1
+AS_SHELL_SANITIZE
+_AS_PREPARE
+exec AS_MESSAGE_FD>&1
+_ASEOF
+test 0 = "$lt_write_fail" && chmod +x $1[]dnl
+m4_popdef([AS_MESSAGE_LOG_FD])])])# _LT_GENERATED_FILE_INIT
+
+# LT_OUTPUT
+# ---------
+# This macro allows early generation of the libtool script (before
+# AC_OUTPUT is called), incase it is used in configure for compilation
+# tests.
+AC_DEFUN([LT_OUTPUT],
+[: ${CONFIG_LT=./config.lt}
+AC_MSG_NOTICE([creating $CONFIG_LT])
+_LT_GENERATED_FILE_INIT(["$CONFIG_LT"],
+[# Run this file to recreate a libtool stub with the current configuration.])
+
+cat >>"$CONFIG_LT" <<\_LTEOF
+lt_cl_silent=false
+exec AS_MESSAGE_LOG_FD>>config.log
+{
+ echo
+ AS_BOX([Running $as_me.])
+} >&AS_MESSAGE_LOG_FD
+
+lt_cl_help="\
+'$as_me' creates a local libtool stub from the current configuration,
+for use in further configure time tests before the real libtool is
+generated.
+
+Usage: $[0] [[OPTIONS]]
+
+ -h, --help print this help, then exit
+ -V, --version print version number, then exit
+ -q, --quiet do not print progress messages
+ -d, --debug don't remove temporary files
+
+Report bugs to <bug-libtool@gnu.org>."
+
+lt_cl_version="\
+m4_ifset([AC_PACKAGE_NAME], [AC_PACKAGE_NAME ])config.lt[]dnl
+m4_ifset([AC_PACKAGE_VERSION], [ AC_PACKAGE_VERSION])
+configured by $[0], generated by m4_PACKAGE_STRING.
+
+Copyright (C) 2011 Free Software Foundation, Inc.
+This config.lt script is free software; the Free Software Foundation
+gives unlimited permision to copy, distribute and modify it."
+
+while test 0 != $[#]
+do
+ case $[1] in
+ --version | --v* | -V )
+ echo "$lt_cl_version"; exit 0 ;;
+ --help | --h* | -h )
+ echo "$lt_cl_help"; exit 0 ;;
+ --debug | --d* | -d )
+ debug=: ;;
+ --quiet | --q* | --silent | --s* | -q )
+ lt_cl_silent=: ;;
+
+ -*) AC_MSG_ERROR([unrecognized option: $[1]
+Try '$[0] --help' for more information.]) ;;
+
+ *) AC_MSG_ERROR([unrecognized argument: $[1]
+Try '$[0] --help' for more information.]) ;;
+ esac
+ shift
+done
+
+if $lt_cl_silent; then
+ exec AS_MESSAGE_FD>/dev/null
+fi
+_LTEOF
+
+cat >>"$CONFIG_LT" <<_LTEOF
+_LT_OUTPUT_LIBTOOL_COMMANDS_INIT
+_LTEOF
+
+cat >>"$CONFIG_LT" <<\_LTEOF
+AC_MSG_NOTICE([creating $ofile])
+_LT_OUTPUT_LIBTOOL_COMMANDS
+AS_EXIT(0)
+_LTEOF
+chmod +x "$CONFIG_LT"
+
+# configure is writing to config.log, but config.lt does its own redirection,
+# appending to config.log, which fails on DOS, as config.log is still kept
+# open by configure. Here we exec the FD to /dev/null, effectively closing
+# config.log, so it can be properly (re)opened and appended to by config.lt.
+lt_cl_success=:
+test yes = "$silent" &&
+ lt_config_lt_args="$lt_config_lt_args --quiet"
+exec AS_MESSAGE_LOG_FD>/dev/null
+$SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false
+exec AS_MESSAGE_LOG_FD>>config.log
+$lt_cl_success || AS_EXIT(1)
+])# LT_OUTPUT
+
+
+# _LT_CONFIG(TAG)
+# ---------------
+# If TAG is the built-in tag, create an initial libtool script with a
+# default configuration from the untagged config vars. Otherwise add code
+# to config.status for appending the configuration named by TAG from the
+# matching tagged config vars.
+m4_defun([_LT_CONFIG],
+[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+_LT_CONFIG_SAVE_COMMANDS([
+ m4_define([_LT_TAG], m4_if([$1], [], [C], [$1]))dnl
+ m4_if(_LT_TAG, [C], [
+ # See if we are running on zsh, and set the options that allow our
+ # commands through without removal of \ escapes.
+ if test -n "${ZSH_VERSION+set}"; then
+ setopt NO_GLOB_SUBST
+ fi
+
+ cfgfile=${ofile}T
+ trap "$RM \"$cfgfile\"; exit 1" 1 2 15
+ $RM "$cfgfile"
+
+ cat <<_LT_EOF >> "$cfgfile"
+#! $SHELL
+# Generated automatically by $as_me ($PACKAGE) $VERSION
+# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
+# NOTE: Changes made to this file will be lost: look at ltmain.sh.
+
+# Provide generalized library-building support services.
+# Written by Gordon Matzigkeit, 1996
+
+_LT_COPYING
+_LT_LIBTOOL_TAGS
+
+# Configured defaults for sys_lib_dlsearch_path munging.
+: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"}
+
+# ### BEGIN LIBTOOL CONFIG
+_LT_LIBTOOL_CONFIG_VARS
+_LT_LIBTOOL_TAG_VARS
+# ### END LIBTOOL CONFIG
+
+_LT_EOF
+
+ cat <<'_LT_EOF' >> "$cfgfile"
+
+# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE
+
+_LT_PREPARE_MUNGE_PATH_LIST
+_LT_PREPARE_CC_BASENAME
+
+# ### END FUNCTIONS SHARED WITH CONFIGURE
+
+_LT_EOF
+
+ case $host_os in
+ aix3*)
+ cat <<\_LT_EOF >> "$cfgfile"
+# AIX sometimes has problems with the GCC collect2 program. For some
+# reason, if we set the COLLECT_NAMES environment variable, the problems
+# vanish in a puff of smoke.
+if test set != "${COLLECT_NAMES+set}"; then
+ COLLECT_NAMES=
+ export COLLECT_NAMES
+fi
+_LT_EOF
+ ;;
+ esac
+
+ _LT_PROG_LTMAIN
+
+ # We use sed instead of cat because bash on DJGPP gets confused if
+ # if finds mixed CR/LF and LF-only lines. Since sed operates in
+ # text mode, it properly converts lines to CR/LF. This bash problem
+ # is reportedly fixed, but why not run on old versions too?
+ sed '$q' "$ltmain" >> "$cfgfile" \
+ || (rm -f "$cfgfile"; exit 1)
+
+ mv -f "$cfgfile" "$ofile" ||
+ (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile")
+ chmod +x "$ofile"
+],
+[cat <<_LT_EOF >> "$ofile"
+
+dnl Unfortunately we have to use $1 here, since _LT_TAG is not expanded
+dnl in a comment (ie after a #).
+# ### BEGIN LIBTOOL TAG CONFIG: $1
+_LT_LIBTOOL_TAG_VARS(_LT_TAG)
+# ### END LIBTOOL TAG CONFIG: $1
+_LT_EOF
+])dnl /m4_if
+],
+[m4_if([$1], [], [
+ PACKAGE='$PACKAGE'
+ VERSION='$VERSION'
+ RM='$RM'
+ ofile='$ofile'], [])
+])dnl /_LT_CONFIG_SAVE_COMMANDS
+])# _LT_CONFIG
+
+
+# LT_SUPPORTED_TAG(TAG)
+# ---------------------
+# Trace this macro to discover what tags are supported by the libtool
+# --tag option, using:
+# autoconf --trace 'LT_SUPPORTED_TAG:$1'
+AC_DEFUN([LT_SUPPORTED_TAG], [])
+
+
+# C support is built-in for now
+m4_define([_LT_LANG_C_enabled], [])
+m4_define([_LT_TAGS], [])
+
+
+# LT_LANG(LANG)
+# -------------
+# Enable libtool support for the given language if not already enabled.
+AC_DEFUN([LT_LANG],
+[AC_BEFORE([$0], [LT_OUTPUT])dnl
+m4_case([$1],
+ [C], [_LT_LANG(C)],
+ [C++], [_LT_LANG(CXX)],
+ [Go], [_LT_LANG(GO)],
+ [Java], [_LT_LANG(GCJ)],
+ [Fortran 77], [_LT_LANG(F77)],
+ [Fortran], [_LT_LANG(FC)],
+ [Windows Resource], [_LT_LANG(RC)],
+ [m4_ifdef([_LT_LANG_]$1[_CONFIG],
+ [_LT_LANG($1)],
+ [m4_fatal([$0: unsupported language: "$1"])])])dnl
+])# LT_LANG
+
+
+# _LT_LANG(LANGNAME)
+# ------------------
+m4_defun([_LT_LANG],
+[m4_ifdef([_LT_LANG_]$1[_enabled], [],
+ [LT_SUPPORTED_TAG([$1])dnl
+ m4_append([_LT_TAGS], [$1 ])dnl
+ m4_define([_LT_LANG_]$1[_enabled], [])dnl
+ _LT_LANG_$1_CONFIG($1)])dnl
+])# _LT_LANG
+
+
+m4_ifndef([AC_PROG_GO], [
+############################################################
+# NOTE: This macro has been submitted for inclusion into #
+# GNU Autoconf as AC_PROG_GO. When it is available in #
+# a released version of Autoconf we should remove this #
+# macro and use it instead. #
+############################################################
+m4_defun([AC_PROG_GO],
+[AC_LANG_PUSH(Go)dnl
+AC_ARG_VAR([GOC], [Go compiler command])dnl
+AC_ARG_VAR([GOFLAGS], [Go compiler flags])dnl
+_AC_ARG_VAR_LDFLAGS()dnl
+AC_CHECK_TOOL(GOC, gccgo)
+if test -z "$GOC"; then
+ if test -n "$ac_tool_prefix"; then
+ AC_CHECK_PROG(GOC, [${ac_tool_prefix}gccgo], [${ac_tool_prefix}gccgo])
+ fi
+fi
+if test -z "$GOC"; then
+ AC_CHECK_PROG(GOC, gccgo, gccgo, false)
+fi
+])#m4_defun
+])#m4_ifndef
+
+
+# _LT_LANG_DEFAULT_CONFIG
+# -----------------------
+m4_defun([_LT_LANG_DEFAULT_CONFIG],
+[AC_PROVIDE_IFELSE([AC_PROG_CXX],
+ [LT_LANG(CXX)],
+ [m4_define([AC_PROG_CXX], defn([AC_PROG_CXX])[LT_LANG(CXX)])])
+
+AC_PROVIDE_IFELSE([AC_PROG_F77],
+ [LT_LANG(F77)],
+ [m4_define([AC_PROG_F77], defn([AC_PROG_F77])[LT_LANG(F77)])])
+
+AC_PROVIDE_IFELSE([AC_PROG_FC],
+ [LT_LANG(FC)],
+ [m4_define([AC_PROG_FC], defn([AC_PROG_FC])[LT_LANG(FC)])])
+
+dnl The call to [A][M_PROG_GCJ] is quoted like that to stop aclocal
+dnl pulling things in needlessly.
+AC_PROVIDE_IFELSE([AC_PROG_GCJ],
+ [LT_LANG(GCJ)],
+ [AC_PROVIDE_IFELSE([A][M_PROG_GCJ],
+ [LT_LANG(GCJ)],
+ [AC_PROVIDE_IFELSE([LT_PROG_GCJ],
+ [LT_LANG(GCJ)],
+ [m4_ifdef([AC_PROG_GCJ],
+ [m4_define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[LT_LANG(GCJ)])])
+ m4_ifdef([A][M_PROG_GCJ],
+ [m4_define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[LT_LANG(GCJ)])])
+ m4_ifdef([LT_PROG_GCJ],
+ [m4_define([LT_PROG_GCJ], defn([LT_PROG_GCJ])[LT_LANG(GCJ)])])])])])
+
+AC_PROVIDE_IFELSE([AC_PROG_GO],
+ [LT_LANG(GO)],
+ [m4_define([AC_PROG_GO], defn([AC_PROG_GO])[LT_LANG(GO)])])
+
+AC_PROVIDE_IFELSE([LT_PROG_RC],
+ [LT_LANG(RC)],
+ [m4_define([LT_PROG_RC], defn([LT_PROG_RC])[LT_LANG(RC)])])
+])# _LT_LANG_DEFAULT_CONFIG
+
+# Obsolete macros:
+AU_DEFUN([AC_LIBTOOL_CXX], [LT_LANG(C++)])
+AU_DEFUN([AC_LIBTOOL_F77], [LT_LANG(Fortran 77)])
+AU_DEFUN([AC_LIBTOOL_FC], [LT_LANG(Fortran)])
+AU_DEFUN([AC_LIBTOOL_GCJ], [LT_LANG(Java)])
+AU_DEFUN([AC_LIBTOOL_RC], [LT_LANG(Windows Resource)])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_LIBTOOL_CXX], [])
+dnl AC_DEFUN([AC_LIBTOOL_F77], [])
+dnl AC_DEFUN([AC_LIBTOOL_FC], [])
+dnl AC_DEFUN([AC_LIBTOOL_GCJ], [])
+dnl AC_DEFUN([AC_LIBTOOL_RC], [])
+
+
+# _LT_TAG_COMPILER
+# ----------------
+m4_defun([_LT_TAG_COMPILER],
+[AC_REQUIRE([AC_PROG_CC])dnl
+
+_LT_DECL([LTCC], [CC], [1], [A C compiler])dnl
+_LT_DECL([LTCFLAGS], [CFLAGS], [1], [LTCC compiler flags])dnl
+_LT_TAGDECL([CC], [compiler], [1], [A language specific compiler])dnl
+_LT_TAGDECL([with_gcc], [GCC], [0], [Is the compiler the GNU compiler?])dnl
+
+# If no C compiler was specified, use CC.
+LTCC=${LTCC-"$CC"}
+
+# If no C compiler flags were specified, use CFLAGS.
+LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
+
+# Allow CC to be a program name with arguments.
+compiler=$CC
+])# _LT_TAG_COMPILER
+
+
+# _LT_COMPILER_BOILERPLATE
+# ------------------------
+# Check for compiler boilerplate output or warnings with
+# the simple compiler test code.
+m4_defun([_LT_COMPILER_BOILERPLATE],
+[m4_require([_LT_DECL_SED])dnl
+ac_outfile=conftest.$ac_objext
+echo "$lt_simple_compile_test_code" >conftest.$ac_ext
+eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_compiler_boilerplate=`cat conftest.err`
+$RM conftest*
+])# _LT_COMPILER_BOILERPLATE
+
+
+# _LT_LINKER_BOILERPLATE
+# ----------------------
+# Check for linker boilerplate output or warnings with
+# the simple link test code.
+m4_defun([_LT_LINKER_BOILERPLATE],
+[m4_require([_LT_DECL_SED])dnl
+ac_outfile=conftest.$ac_objext
+echo "$lt_simple_link_test_code" >conftest.$ac_ext
+eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
+_lt_linker_boilerplate=`cat conftest.err`
+$RM -r conftest*
+])# _LT_LINKER_BOILERPLATE
+
+# _LT_REQUIRED_DARWIN_CHECKS
+# -------------------------
+m4_defun_once([_LT_REQUIRED_DARWIN_CHECKS],[
+ case $host_os in
+ rhapsody* | darwin*)
+ AC_CHECK_TOOL([DSYMUTIL], [dsymutil], [:])
+ AC_CHECK_TOOL([NMEDIT], [nmedit], [:])
+ AC_CHECK_TOOL([LIPO], [lipo], [:])
+ AC_CHECK_TOOL([OTOOL], [otool], [:])
+ AC_CHECK_TOOL([OTOOL64], [otool64], [:])
+ _LT_DECL([], [DSYMUTIL], [1],
+ [Tool to manipulate archived DWARF debug symbol files on Mac OS X])
+ _LT_DECL([], [NMEDIT], [1],
+ [Tool to change global to local symbols on Mac OS X])
+ _LT_DECL([], [LIPO], [1],
+ [Tool to manipulate fat objects and archives on Mac OS X])
+ _LT_DECL([], [OTOOL], [1],
+ [ldd/readelf like tool for Mach-O binaries on Mac OS X])
+ _LT_DECL([], [OTOOL64], [1],
+ [ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4])
+
+ AC_CACHE_CHECK([for -single_module linker flag],[lt_cv_apple_cc_single_mod],
+ [lt_cv_apple_cc_single_mod=no
+ if test -z "$LT_MULTI_MODULE"; then
+ # By default we will add the -single_module flag. You can override
+ # by either setting the environment variable LT_MULTI_MODULE
+ # non-empty at configure time, or by adding -multi_module to the
+ # link flags.
+ rm -rf libconftest.dylib*
+ echo "int foo(void){return 1;}" > conftest.c
+ echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
+-dynamiclib -Wl,-single_module conftest.c" >&AS_MESSAGE_LOG_FD
+ $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
+ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err
+ _lt_result=$?
+ # If there is a non-empty error log, and "single_module"
+ # appears in it, assume the flag caused a linker warning
+ if test -s conftest.err && $GREP single_module conftest.err; then
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ # Otherwise, if the output was created with a 0 exit code from
+ # the compiler, it worked.
+ elif test -f libconftest.dylib && test 0 = "$_lt_result"; then
+ lt_cv_apple_cc_single_mod=yes
+ else
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ fi
+ rm -rf libconftest.dylib*
+ rm -f conftest.*
+ fi])
+
+ AC_CACHE_CHECK([for -exported_symbols_list linker flag],
+ [lt_cv_ld_exported_symbols_list],
+ [lt_cv_ld_exported_symbols_list=no
+ save_LDFLAGS=$LDFLAGS
+ echo "_main" > conftest.sym
+ LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym"
+ AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])],
+ [lt_cv_ld_exported_symbols_list=yes],
+ [lt_cv_ld_exported_symbols_list=no])
+ LDFLAGS=$save_LDFLAGS
+ ])
+
+ AC_CACHE_CHECK([for -force_load linker flag],[lt_cv_ld_force_load],
+ [lt_cv_ld_force_load=no
+ cat > conftest.c << _LT_EOF
+int forced_loaded() { return 2;}
+_LT_EOF
+ echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&AS_MESSAGE_LOG_FD
+ $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&AS_MESSAGE_LOG_FD
+ echo "$AR cru libconftest.a conftest.o" >&AS_MESSAGE_LOG_FD
+ $AR cru libconftest.a conftest.o 2>&AS_MESSAGE_LOG_FD
+ echo "$RANLIB libconftest.a" >&AS_MESSAGE_LOG_FD
+ $RANLIB libconftest.a 2>&AS_MESSAGE_LOG_FD
+ cat > conftest.c << _LT_EOF
+int main() { return 0;}
+_LT_EOF
+ echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&AS_MESSAGE_LOG_FD
+ $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err
+ _lt_result=$?
+ if test -s conftest.err && $GREP force_load conftest.err; then
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ elif test -f conftest && test 0 = "$_lt_result" && $GREP forced_load conftest >/dev/null 2>&1; then
+ lt_cv_ld_force_load=yes
+ else
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ fi
+ rm -f conftest.err libconftest.a conftest conftest.c
+ rm -rf conftest.dSYM
+ ])
+ case $host_os in
+ rhapsody* | darwin1.[[012]])
+ _lt_dar_allow_undefined='$wl-undefined ${wl}suppress' ;;
+ darwin1.*)
+ _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;;
+ darwin*) # darwin 5.x on
+ # if running on 10.5 or later, the deployment target defaults
+ # to the OS version, if on x86, and 10.4, the deployment
+ # target defaults to 10.4. Don't you love it?
+ case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in
+ 10.0,*86*-darwin8*|10.0,*-darwin[[91]]*)
+ _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;;
+ 10.[[012]][[,.]]*)
+ _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;;
+ 10.*)
+ _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;;
+ esac
+ ;;
+ esac
+ if test yes = "$lt_cv_apple_cc_single_mod"; then
+ _lt_dar_single_mod='$single_module'
+ fi
+ if test yes = "$lt_cv_ld_exported_symbols_list"; then
+ _lt_dar_export_syms=' $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym'
+ else
+ _lt_dar_export_syms='~$NMEDIT -s $output_objdir/$libname-symbols.expsym $lib'
+ fi
+ if test : != "$DSYMUTIL" && test no = "$lt_cv_ld_force_load"; then
+ _lt_dsymutil='~$DSYMUTIL $lib || :'
+ else
+ _lt_dsymutil=
+ fi
+ ;;
+ esac
+])
+
+
+# _LT_DARWIN_LINKER_FEATURES([TAG])
+# ---------------------------------
+# Checks for linker and compiler features on darwin
+m4_defun([_LT_DARWIN_LINKER_FEATURES],
+[
+ m4_require([_LT_REQUIRED_DARWIN_CHECKS])
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=no
+ _LT_TAGVAR(hardcode_direct, $1)=no
+ _LT_TAGVAR(hardcode_automatic, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
+ if test yes = "$lt_cv_ld_force_load"; then
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
+ m4_case([$1], [F77], [_LT_TAGVAR(compiler_needs_object, $1)=yes],
+ [FC], [_LT_TAGVAR(compiler_needs_object, $1)=yes])
+ else
+ _LT_TAGVAR(whole_archive_flag_spec, $1)=''
+ fi
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ _LT_TAGVAR(allow_undefined_flag, $1)=$_lt_dar_allow_undefined
+ case $cc_basename in
+ ifort*|nagfor*) _lt_dar_can_shared=yes ;;
+ *) _lt_dar_can_shared=$GCC ;;
+ esac
+ if test yes = "$_lt_dar_can_shared"; then
+ output_verbose_link_cmd=func_echo_all
+ _LT_TAGVAR(archive_cmds, $1)="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil"
+ _LT_TAGVAR(module_cmds, $1)="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil"
+ _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil"
+ _LT_TAGVAR(module_expsym_cmds, $1)="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil"
+ m4_if([$1], [CXX],
+[ if test yes != "$lt_cv_apple_cc_single_mod"; then
+ _LT_TAGVAR(archive_cmds, $1)="\$CC -r -keep_private_externs -nostdlib -o \$lib-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$lib-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring$_lt_dsymutil"
+ _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \$lib-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$lib-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring$_lt_dar_export_syms$_lt_dsymutil"
+ fi
+],[])
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+])
+
+# _LT_SYS_MODULE_PATH_AIX([TAGNAME])
+# ----------------------------------
+# Links a minimal program and checks the executable
+# for the system default hardcoded library path. In most cases,
+# this is /usr/lib:/lib, but when the MPI compilers are used
+# the location of the communication and MPI libs are included too.
+# If we don't find anything, use the default library path according
+# to the aix ld manual.
+# Store the results from the different compilers for each TAGNAME.
+# Allow to override them for all tags through lt_cv_aix_libpath.
+m4_defun([_LT_SYS_MODULE_PATH_AIX],
+[m4_require([_LT_DECL_SED])dnl
+if test set = "${lt_cv_aix_libpath+set}"; then
+ aix_libpath=$lt_cv_aix_libpath
+else
+ AC_CACHE_VAL([_LT_TAGVAR([lt_cv_aix_libpath_], [$1])],
+ [AC_LINK_IFELSE([AC_LANG_PROGRAM],[
+ lt_aix_libpath_sed='[
+ /Import File Strings/,/^$/ {
+ /^0/ {
+ s/^0 *\([^ ]*\) *$/\1/
+ p
+ }
+ }]'
+ _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ # Check for a 64-bit object if we didn't find anything.
+ if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then
+ _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
+ fi],[])
+ if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then
+ _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=/usr/lib:/lib
+ fi
+ ])
+ aix_libpath=$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])
+fi
+])# _LT_SYS_MODULE_PATH_AIX
+
+
+# _LT_SHELL_INIT(ARG)
+# -------------------
+m4_define([_LT_SHELL_INIT],
+[m4_divert_text([M4SH-INIT], [$1
+])])# _LT_SHELL_INIT
+
+
+
+# _LT_PROG_ECHO_BACKSLASH
+# -----------------------
+# Find how we can fake an echo command that does not interpret backslash.
+# In particular, with Autoconf 2.60 or later we add some code to the start
+# of the generated configure script that will find a shell with a builtin
+# printf (that we can use as an echo command).
+m4_defun([_LT_PROG_ECHO_BACKSLASH],
+[ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO
+ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO
+
+AC_MSG_CHECKING([how to print strings])
+# Test print first, because it will be a builtin if present.
+if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \
+ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then
+ ECHO='print -r --'
+elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then
+ ECHO='printf %s\n'
+else
+ # Use this function as a fallback that always works.
+ func_fallback_echo ()
+ {
+ eval 'cat <<_LTECHO_EOF
+$[]1
+_LTECHO_EOF'
+ }
+ ECHO='func_fallback_echo'
+fi
+
+# func_echo_all arg...
+# Invoke $ECHO with all args, space-separated.
+func_echo_all ()
+{
+ $ECHO "$*"
+}
+
+case $ECHO in
+ printf*) AC_MSG_RESULT([printf]) ;;
+ print*) AC_MSG_RESULT([print -r]) ;;
+ *) AC_MSG_RESULT([cat]) ;;
+esac
+
+m4_ifdef([_AS_DETECT_SUGGESTED],
+[_AS_DETECT_SUGGESTED([
+ test -n "${ZSH_VERSION+set}${BASH_VERSION+set}" || (
+ ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+ ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO
+ ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO
+ PATH=/empty FPATH=/empty; export PATH FPATH
+ test "X`printf %s $ECHO`" = "X$ECHO" \
+ || test "X`print -r -- $ECHO`" = "X$ECHO" )])])
+
+_LT_DECL([], [SHELL], [1], [Shell to use when invoking shell scripts])
+_LT_DECL([], [ECHO], [1], [An echo program that protects backslashes])
+])# _LT_PROG_ECHO_BACKSLASH
+
+
+# _LT_WITH_SYSROOT
+# ----------------
+AC_DEFUN([_LT_WITH_SYSROOT],
+[AC_MSG_CHECKING([for sysroot])
+AC_ARG_WITH([sysroot],
+[AS_HELP_STRING([--with-sysroot@<:@=DIR@:>@],
+ [Search for dependent libraries within DIR (or the compiler's sysroot
+ if not specified).])],
+[], [with_sysroot=no])
+
+dnl lt_sysroot will always be passed unquoted. We quote it here
+dnl in case the user passed a directory name.
+lt_sysroot=
+case $with_sysroot in #(
+ yes)
+ if test yes = "$GCC"; then
+ lt_sysroot=`$CC --print-sysroot 2>/dev/null`
+ fi
+ ;; #(
+ /*)
+ lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"`
+ ;; #(
+ no|'')
+ ;; #(
+ *)
+ AC_MSG_RESULT([$with_sysroot])
+ AC_MSG_ERROR([The sysroot must be an absolute path.])
+ ;;
+esac
+
+ AC_MSG_RESULT([${lt_sysroot:-no}])
+_LT_DECL([], [lt_sysroot], [0], [The root where to search for ]dnl
+[dependent libraries, and where our libraries should be installed.])])
+
+# _LT_ENABLE_LOCK
+# ---------------
+m4_defun([_LT_ENABLE_LOCK],
+[AC_ARG_ENABLE([libtool-lock],
+ [AS_HELP_STRING([--disable-libtool-lock],
+ [avoid locking (might break parallel builds)])])
+test no = "$enable_libtool_lock" || enable_libtool_lock=yes
+
+# Some flags need to be propagated to the compiler or linker for good
+# libtool support.
+case $host in
+ia64-*-hpux*)
+ # Find out what ABI is being produced by ac_compile, and set mode
+ # options accordingly.
+ echo 'int i;' > conftest.$ac_ext
+ if AC_TRY_EVAL(ac_compile); then
+ case `/usr/bin/file conftest.$ac_objext` in
+ *ELF-32*)
+ HPUX_IA64_MODE=32
+ ;;
+ *ELF-64*)
+ HPUX_IA64_MODE=64
+ ;;
+ esac
+ fi
+ rm -rf conftest*
+ ;;
+*-*-irix6*)
+ # Find out what ABI is being produced by ac_compile, and set linker
+ # options accordingly.
+ echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext
+ if AC_TRY_EVAL(ac_compile); then
+ if test yes = "$lt_cv_prog_gnu_ld"; then
+ case `/usr/bin/file conftest.$ac_objext` in
+ *32-bit*)
+ LD="${LD-ld} -melf32bsmip"
+ ;;
+ *N32*)
+ LD="${LD-ld} -melf32bmipn32"
+ ;;
+ *64-bit*)
+ LD="${LD-ld} -melf64bmip"
+ ;;
+ esac
+ else
+ case `/usr/bin/file conftest.$ac_objext` in
+ *32-bit*)
+ LD="${LD-ld} -32"
+ ;;
+ *N32*)
+ LD="${LD-ld} -n32"
+ ;;
+ *64-bit*)
+ LD="${LD-ld} -64"
+ ;;
+ esac
+ fi
+ fi
+ rm -rf conftest*
+ ;;
+
+mips64*-*linux*)
+ # Find out what ABI is being produced by ac_compile, and set linker
+ # options accordingly.
+ echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext
+ if AC_TRY_EVAL(ac_compile); then
+ emul=elf
+ case `/usr/bin/file conftest.$ac_objext` in
+ *32-bit*)
+ emul="${emul}32"
+ ;;
+ *64-bit*)
+ emul="${emul}64"
+ ;;
+ esac
+ case `/usr/bin/file conftest.$ac_objext` in
+ *MSB*)
+ emul="${emul}btsmip"
+ ;;
+ *LSB*)
+ emul="${emul}ltsmip"
+ ;;
+ esac
+ case `/usr/bin/file conftest.$ac_objext` in
+ *N32*)
+ emul="${emul}n32"
+ ;;
+ esac
+ LD="${LD-ld} -m $emul"
+ fi
+ rm -rf conftest*
+ ;;
+
+x86_64-*kfreebsd*-gnu|x86_64-*linux*|powerpc*-*linux*| \
+s390*-*linux*|s390*-*tpf*|sparc*-*linux*)
+ # Find out what ABI is being produced by ac_compile, and set linker
+ # options accordingly. Note that the listed cases only cover the
+ # situations where additional linker options are needed (such as when
+ # doing 32-bit compilation for a host where ld defaults to 64-bit, or
+ # vice versa); the common cases where no linker options are needed do
+ # not appear in the list.
+ echo 'int i;' > conftest.$ac_ext
+ if AC_TRY_EVAL(ac_compile); then
+ case `/usr/bin/file conftest.o` in
+ *32-bit*)
+ case $host in
+ x86_64-*kfreebsd*-gnu)
+ LD="${LD-ld} -m elf_i386_fbsd"
+ ;;
+ x86_64-*linux*)
+ case `/usr/bin/file conftest.o` in
+ *x86-64*)
+ LD="${LD-ld} -m elf32_x86_64"
+ ;;
+ *)
+ LD="${LD-ld} -m elf_i386"
+ ;;
+ esac
+ ;;
+ powerpc64le-*linux*)
+ LD="${LD-ld} -m elf32lppclinux"
+ ;;
+ powerpc64-*linux*)
+ LD="${LD-ld} -m elf32ppclinux"
+ ;;
+ s390x-*linux*)
+ LD="${LD-ld} -m elf_s390"
+ ;;
+ sparc64-*linux*)
+ LD="${LD-ld} -m elf32_sparc"
+ ;;
+ esac
+ ;;
+ *64-bit*)
+ case $host in
+ x86_64-*kfreebsd*-gnu)
+ LD="${LD-ld} -m elf_x86_64_fbsd"
+ ;;
+ x86_64-*linux*)
+ LD="${LD-ld} -m elf_x86_64"
+ ;;
+ powerpcle-*linux*)
+ LD="${LD-ld} -m elf64lppc"
+ ;;
+ powerpc-*linux*)
+ LD="${LD-ld} -m elf64ppc"
+ ;;
+ s390*-*linux*|s390*-*tpf*)
+ LD="${LD-ld} -m elf64_s390"
+ ;;
+ sparc*-*linux*)
+ LD="${LD-ld} -m elf64_sparc"
+ ;;
+ esac
+ ;;
+ esac
+ fi
+ rm -rf conftest*
+ ;;
+
+*-*-sco3.2v5*)
+ # On SCO OpenServer 5, we need -belf to get full-featured binaries.
+ SAVE_CFLAGS=$CFLAGS
+ CFLAGS="$CFLAGS -belf"
+ AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf,
+ [AC_LANG_PUSH(C)
+ AC_LINK_IFELSE([AC_LANG_PROGRAM([[]],[[]])],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no])
+ AC_LANG_POP])
+ if test yes != "$lt_cv_cc_needs_belf"; then
+ # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf
+ CFLAGS=$SAVE_CFLAGS
+ fi
+ ;;
+*-*solaris*)
+ # Find out what ABI is being produced by ac_compile, and set linker
+ # options accordingly.
+ echo 'int i;' > conftest.$ac_ext
+ if AC_TRY_EVAL(ac_compile); then
+ case `/usr/bin/file conftest.o` in
+ *64-bit*)
+ case $lt_cv_prog_gnu_ld in
+ yes*)
+ case $host in
+ i?86-*-solaris*|x86_64-*-solaris*)
+ LD="${LD-ld} -m elf_x86_64"
+ ;;
+ sparc*-*-solaris*)
+ LD="${LD-ld} -m elf64_sparc"
+ ;;
+ esac
+ # GNU ld 2.21 introduced _sol2 emulations. Use them if available.
+ if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then
+ LD=${LD-ld}_sol2
+ fi
+ ;;
+ *)
+ if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then
+ LD="${LD-ld} -64"
+ fi
+ ;;
+ esac
+ ;;
+ esac
+ fi
+ rm -rf conftest*
+ ;;
+esac
+
+need_locks=$enable_libtool_lock
+])# _LT_ENABLE_LOCK
+
+
+# _LT_PROG_AR
+# -----------
+m4_defun([_LT_PROG_AR],
+[AC_CHECK_TOOLS(AR, [ar], false)
+: ${AR=ar}
+: ${AR_FLAGS=cru}
+_LT_DECL([], [AR], [1], [The archiver])
+_LT_DECL([], [AR_FLAGS], [1], [Flags to create an archive])
+
+AC_CACHE_CHECK([for archiver @FILE support], [lt_cv_ar_at_file],
+ [lt_cv_ar_at_file=no
+ AC_COMPILE_IFELSE([AC_LANG_PROGRAM],
+ [echo conftest.$ac_objext > conftest.lst
+ lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&AS_MESSAGE_LOG_FD'
+ AC_TRY_EVAL([lt_ar_try])
+ if test 0 -eq "$ac_status"; then
+ # Ensure the archiver fails upon bogus file names.
+ rm -f conftest.$ac_objext libconftest.a
+ AC_TRY_EVAL([lt_ar_try])
+ if test 0 -ne "$ac_status"; then
+ lt_cv_ar_at_file=@
+ fi
+ fi
+ rm -f conftest.* libconftest.a
+ ])
+ ])
+
+if test no = "$lt_cv_ar_at_file"; then
+ archiver_list_spec=
+else
+ archiver_list_spec=$lt_cv_ar_at_file
+fi
+_LT_DECL([], [archiver_list_spec], [1],
+ [How to feed a file listing to the archiver])
+])# _LT_PROG_AR
+
+
+# _LT_CMD_OLD_ARCHIVE
+# -------------------
+m4_defun([_LT_CMD_OLD_ARCHIVE],
+[_LT_PROG_AR
+
+AC_CHECK_TOOL(STRIP, strip, :)
+test -z "$STRIP" && STRIP=:
+_LT_DECL([], [STRIP], [1], [A symbol stripping program])
+
+AC_CHECK_TOOL(RANLIB, ranlib, :)
+test -z "$RANLIB" && RANLIB=:
+_LT_DECL([], [RANLIB], [1],
+ [Commands used to install an old-style archive])
+
+# Determine commands to create old-style static archives.
+old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs'
+old_postinstall_cmds='chmod 644 $oldlib'
+old_postuninstall_cmds=
+
+if test -n "$RANLIB"; then
+ case $host_os in
+ bitrig* | openbsd*)
+ old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib"
+ ;;
+ *)
+ old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib"
+ ;;
+ esac
+ old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib"
+fi
+
+case $host_os in
+ darwin*)
+ lock_old_archive_extraction=yes ;;
+ *)
+ lock_old_archive_extraction=no ;;
+esac
+_LT_DECL([], [old_postinstall_cmds], [2])
+_LT_DECL([], [old_postuninstall_cmds], [2])
+_LT_TAGDECL([], [old_archive_cmds], [2],
+ [Commands used to build an old-style archive])
+_LT_DECL([], [lock_old_archive_extraction], [0],
+ [Whether to use a lock for old archive extraction])
+])# _LT_CMD_OLD_ARCHIVE
+
+
+# _LT_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS,
+# [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE])
+# ----------------------------------------------------------------
+# Check whether the given compiler option works
+AC_DEFUN([_LT_COMPILER_OPTION],
+[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+m4_require([_LT_DECL_SED])dnl
+AC_CACHE_CHECK([$1], [$2],
+ [$2=no
+ m4_if([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4])
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+ lt_compiler_flag="$3" ## exclude from sc_useless_quotes_in_assignment
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ # The option is referenced via a variable to avoid confusing sed.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD)
+ (eval "$lt_compile" 2>conftest.err)
+ ac_status=$?
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
+ if (exit $ac_status) && test -s "$ac_outfile"; then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings other than the usual output.
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
+ $2=yes
+ fi
+ fi
+ $RM conftest*
+])
+
+if test yes = "[$]$2"; then
+ m4_if([$5], , :, [$5])
+else
+ m4_if([$6], , :, [$6])
+fi
+])# _LT_COMPILER_OPTION
+
+# Old name:
+AU_ALIAS([AC_LIBTOOL_COMPILER_OPTION], [_LT_COMPILER_OPTION])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], [])
+
+
+# _LT_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS,
+# [ACTION-SUCCESS], [ACTION-FAILURE])
+# ----------------------------------------------------
+# Check whether the given linker option works
+AC_DEFUN([_LT_LINKER_OPTION],
+[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+m4_require([_LT_DECL_SED])dnl
+AC_CACHE_CHECK([$1], [$2],
+ [$2=no
+ save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS $3"
+ echo "$lt_simple_link_test_code" > conftest.$ac_ext
+ if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
+ # The linker can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ if test -s conftest.err; then
+ # Append any errors to the config.log.
+ cat conftest.err 1>&AS_MESSAGE_LOG_FD
+ $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
+ $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
+ if diff conftest.exp conftest.er2 >/dev/null; then
+ $2=yes
+ fi
+ else
+ $2=yes
+ fi
+ fi
+ $RM -r conftest*
+ LDFLAGS=$save_LDFLAGS
+])
+
+if test yes = "[$]$2"; then
+ m4_if([$4], , :, [$4])
+else
+ m4_if([$5], , :, [$5])
+fi
+])# _LT_LINKER_OPTION
+
+# Old name:
+AU_ALIAS([AC_LIBTOOL_LINKER_OPTION], [_LT_LINKER_OPTION])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], [])
+
+
+# LT_CMD_MAX_LEN
+#---------------
+AC_DEFUN([LT_CMD_MAX_LEN],
+[AC_REQUIRE([AC_CANONICAL_HOST])dnl
+# find the maximum length of command line arguments
+AC_MSG_CHECKING([the maximum length of command line arguments])
+AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl
+ i=0
+ teststring=ABCD
+
+ case $build_os in
+ msdosdjgpp*)
+ # On DJGPP, this test can blow up pretty badly due to problems in libc
+ # (any single argument exceeding 2000 bytes causes a buffer overrun
+ # during glob expansion). Even if it were fixed, the result of this
+ # check would be larger than it should be.
+ lt_cv_sys_max_cmd_len=12288; # 12K is about right
+ ;;
+
+ gnu*)
+ # Under GNU Hurd, this test is not required because there is
+ # no limit to the length of command line arguments.
+ # Libtool will interpret -1 as no limit whatsoever
+ lt_cv_sys_max_cmd_len=-1;
+ ;;
+
+ cygwin* | mingw* | cegcc*)
+ # On Win9x/ME, this test blows up -- it succeeds, but takes
+ # about 5 minutes as the teststring grows exponentially.
+ # Worse, since 9x/ME are not pre-emptively multitasking,
+ # you end up with a "frozen" computer, even though with patience
+ # the test eventually succeeds (with a max line length of 256k).
+ # Instead, let's just punt: use the minimum linelength reported by
+ # all of the supported platforms: 8192 (on NT/2K/XP).
+ lt_cv_sys_max_cmd_len=8192;
+ ;;
+
+ mint*)
+ # On MiNT this can take a long time and run out of memory.
+ lt_cv_sys_max_cmd_len=8192;
+ ;;
+
+ amigaos*)
+ # On AmigaOS with pdksh, this test takes hours, literally.
+ # So we just punt and use a minimum line length of 8192.
+ lt_cv_sys_max_cmd_len=8192;
+ ;;
+
+ bitrig* | darwin* | dragonfly* | freebsd* | netbsd* | openbsd*)
+ # This has been around since 386BSD, at least. Likely further.
+ if test -x /sbin/sysctl; then
+ lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax`
+ elif test -x /usr/sbin/sysctl; then
+ lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax`
+ else
+ lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs
+ fi
+ # And add a safety zone
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
+ ;;
+
+ interix*)
+ # We know the value 262144 and hardcode it with a safety zone (like BSD)
+ lt_cv_sys_max_cmd_len=196608
+ ;;
+
+ os2*)
+ # The test takes a long time on OS/2.
+ lt_cv_sys_max_cmd_len=8192
+ ;;
+
+ osf*)
+ # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure
+ # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not
+ # nice to cause kernel panics so lets avoid the loop below.
+ # First set a reasonable default.
+ lt_cv_sys_max_cmd_len=16384
+ #
+ if test -x /sbin/sysconfig; then
+ case `/sbin/sysconfig -q proc exec_disable_arg_limit` in
+ *1*) lt_cv_sys_max_cmd_len=-1 ;;
+ esac
+ fi
+ ;;
+ sco3.2v5*)
+ lt_cv_sys_max_cmd_len=102400
+ ;;
+ sysv5* | sco5v6* | sysv4.2uw2*)
+ kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null`
+ if test -n "$kargmax"; then
+ lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[[ ]]//'`
+ else
+ lt_cv_sys_max_cmd_len=32768
+ fi
+ ;;
+ *)
+ lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null`
+ if test -n "$lt_cv_sys_max_cmd_len" && \
+ test undefined != "$lt_cv_sys_max_cmd_len"; then
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
+ else
+ # Make teststring a little bigger before we do anything with it.
+ # a 1K string should be a reasonable start.
+ for i in 1 2 3 4 5 6 7 8; do
+ teststring=$teststring$teststring
+ done
+ SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}}
+ # If test is not a shell built-in, we'll probably end up computing a
+ # maximum length that is only half of the actual maximum length, but
+ # we can't tell.
+ while { test X`env echo "$teststring$teststring" 2>/dev/null` \
+ = "X$teststring$teststring"; } >/dev/null 2>&1 &&
+ test 17 != "$i" # 1/2 MB should be enough
+ do
+ i=`expr $i + 1`
+ teststring=$teststring$teststring
+ done
+ # Only check the string length outside the loop.
+ lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1`
+ teststring=
+ # Add a significant safety factor because C++ compilers can tack on
+ # massive amounts of additional arguments before passing them to the
+ # linker. It appears as though 1/2 is a usable value.
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2`
+ fi
+ ;;
+ esac
+])
+if test -n "$lt_cv_sys_max_cmd_len"; then
+ AC_MSG_RESULT($lt_cv_sys_max_cmd_len)
+else
+ AC_MSG_RESULT(none)
+fi
+max_cmd_len=$lt_cv_sys_max_cmd_len
+_LT_DECL([], [max_cmd_len], [0],
+ [What is the maximum length of a command?])
+])# LT_CMD_MAX_LEN
+
+# Old name:
+AU_ALIAS([AC_LIBTOOL_SYS_MAX_CMD_LEN], [LT_CMD_MAX_LEN])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], [])
+
+
+# _LT_HEADER_DLFCN
+# ----------------
+m4_defun([_LT_HEADER_DLFCN],
+[AC_CHECK_HEADERS([dlfcn.h], [], [], [AC_INCLUDES_DEFAULT])dnl
+])# _LT_HEADER_DLFCN
+
+
+# _LT_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE,
+# ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING)
+# ----------------------------------------------------------------
+m4_defun([_LT_TRY_DLOPEN_SELF],
+[m4_require([_LT_HEADER_DLFCN])dnl
+if test yes = "$cross_compiling"; then :
+ [$4]
+else
+ lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
+ lt_status=$lt_dlunknown
+ cat > conftest.$ac_ext <<_LT_EOF
+[#line $LINENO "configure"
+#include "confdefs.h"
+
+#if HAVE_DLFCN_H
+#include <dlfcn.h>
+#endif
+
+#include <stdio.h>
+
+#ifdef RTLD_GLOBAL
+# define LT_DLGLOBAL RTLD_GLOBAL
+#else
+# ifdef DL_GLOBAL
+# define LT_DLGLOBAL DL_GLOBAL
+# else
+# define LT_DLGLOBAL 0
+# endif
+#endif
+
+/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
+ find out it does not work in some platform. */
+#ifndef LT_DLLAZY_OR_NOW
+# ifdef RTLD_LAZY
+# define LT_DLLAZY_OR_NOW RTLD_LAZY
+# else
+# ifdef DL_LAZY
+# define LT_DLLAZY_OR_NOW DL_LAZY
+# else
+# ifdef RTLD_NOW
+# define LT_DLLAZY_OR_NOW RTLD_NOW
+# else
+# ifdef DL_NOW
+# define LT_DLLAZY_OR_NOW DL_NOW
+# else
+# define LT_DLLAZY_OR_NOW 0
+# endif
+# endif
+# endif
+# endif
+#endif
+
+/* When -fvisibility=hidden is used, assume the code has been annotated
+ correspondingly for the symbols needed. */
+#if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3))
+int fnord () __attribute__((visibility("default")));
+#endif
+
+int fnord () { return 42; }
+int main ()
+{
+ void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
+ int status = $lt_dlunknown;
+
+ if (self)
+ {
+ if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
+ else
+ {
+ if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
+ else puts (dlerror ());
+ }
+ /* dlclose (self); */
+ }
+ else
+ puts (dlerror ());
+
+ return status;
+}]
+_LT_EOF
+ if AC_TRY_EVAL(ac_link) && test -s "conftest$ac_exeext" 2>/dev/null; then
+ (./conftest; exit; ) >&AS_MESSAGE_LOG_FD 2>/dev/null
+ lt_status=$?
+ case x$lt_status in
+ x$lt_dlno_uscore) $1 ;;
+ x$lt_dlneed_uscore) $2 ;;
+ x$lt_dlunknown|x*) $3 ;;
+ esac
+ else :
+ # compilation failed
+ $3
+ fi
+fi
+rm -fr conftest*
+])# _LT_TRY_DLOPEN_SELF
+
+
+# LT_SYS_DLOPEN_SELF
+# ------------------
+AC_DEFUN([LT_SYS_DLOPEN_SELF],
+[m4_require([_LT_HEADER_DLFCN])dnl
+if test yes != "$enable_dlopen"; then
+ enable_dlopen=unknown
+ enable_dlopen_self=unknown
+ enable_dlopen_self_static=unknown
+else
+ lt_cv_dlopen=no
+ lt_cv_dlopen_libs=
+
+ case $host_os in
+ beos*)
+ lt_cv_dlopen=load_add_on
+ lt_cv_dlopen_libs=
+ lt_cv_dlopen_self=yes
+ ;;
+
+ mingw* | pw32* | cegcc*)
+ lt_cv_dlopen=LoadLibrary
+ lt_cv_dlopen_libs=
+ ;;
+
+ cygwin*)
+ lt_cv_dlopen=dlopen
+ lt_cv_dlopen_libs=
+ ;;
+
+ darwin*)
+ # if libdl is installed we need to link against it
+ AC_CHECK_LIB([dl], [dlopen],
+ [lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl],[
+ lt_cv_dlopen=dyld
+ lt_cv_dlopen_libs=
+ lt_cv_dlopen_self=yes
+ ])
+ ;;
+
+ tpf*)
+ # Don't try to run any link tests for TPF. We know it's impossible
+ # because TPF is a cross-compiler, and we know how we open DSOs.
+ lt_cv_dlopen=dlopen
+ lt_cv_dlopen_libs=
+ lt_cv_dlopen_self=no
+ ;;
+
+ *)
+ AC_CHECK_FUNC([shl_load],
+ [lt_cv_dlopen=shl_load],
+ [AC_CHECK_LIB([dld], [shl_load],
+ [lt_cv_dlopen=shl_load lt_cv_dlopen_libs=-ldld],
+ [AC_CHECK_FUNC([dlopen],
+ [lt_cv_dlopen=dlopen],
+ [AC_CHECK_LIB([dl], [dlopen],
+ [lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl],
+ [AC_CHECK_LIB([svld], [dlopen],
+ [lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-lsvld],
+ [AC_CHECK_LIB([dld], [dld_link],
+ [lt_cv_dlopen=dld_link lt_cv_dlopen_libs=-ldld])
+ ])
+ ])
+ ])
+ ])
+ ])
+ ;;
+ esac
+
+ if test no = "$lt_cv_dlopen"; then
+ enable_dlopen=no
+ else
+ enable_dlopen=yes
+ fi
+
+ case $lt_cv_dlopen in
+ dlopen)
+ save_CPPFLAGS=$CPPFLAGS
+ test yes = "$ac_cv_header_dlfcn_h" && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H"
+
+ save_LDFLAGS=$LDFLAGS
+ wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\"
+
+ save_LIBS=$LIBS
+ LIBS="$lt_cv_dlopen_libs $LIBS"
+
+ AC_CACHE_CHECK([whether a program can dlopen itself],
+ lt_cv_dlopen_self, [dnl
+ _LT_TRY_DLOPEN_SELF(
+ lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes,
+ lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross)
+ ])
+
+ if test yes = "$lt_cv_dlopen_self"; then
+ wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\"
+ AC_CACHE_CHECK([whether a statically linked program can dlopen itself],
+ lt_cv_dlopen_self_static, [dnl
+ _LT_TRY_DLOPEN_SELF(
+ lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes,
+ lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross)
+ ])
+ fi
+
+ CPPFLAGS=$save_CPPFLAGS
+ LDFLAGS=$save_LDFLAGS
+ LIBS=$save_LIBS
+ ;;
+ esac
+
+ case $lt_cv_dlopen_self in
+ yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;;
+ *) enable_dlopen_self=unknown ;;
+ esac
+
+ case $lt_cv_dlopen_self_static in
+ yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;;
+ *) enable_dlopen_self_static=unknown ;;
+ esac
+fi
+_LT_DECL([dlopen_support], [enable_dlopen], [0],
+ [Whether dlopen is supported])
+_LT_DECL([dlopen_self], [enable_dlopen_self], [0],
+ [Whether dlopen of programs is supported])
+_LT_DECL([dlopen_self_static], [enable_dlopen_self_static], [0],
+ [Whether dlopen of statically linked programs is supported])
+])# LT_SYS_DLOPEN_SELF
+
+# Old name:
+AU_ALIAS([AC_LIBTOOL_DLOPEN_SELF], [LT_SYS_DLOPEN_SELF])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], [])
+
+
+# _LT_COMPILER_C_O([TAGNAME])
+# ---------------------------
+# Check to see if options -c and -o are simultaneously supported by compiler.
+# This macro does not hard code the compiler like AC_PROG_CC_C_O.
+m4_defun([_LT_COMPILER_C_O],
+[m4_require([_LT_DECL_SED])dnl
+m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+m4_require([_LT_TAG_COMPILER])dnl
+AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext],
+ [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)],
+ [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no
+ $RM -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
+ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&AS_MESSAGE_LOG_FD
+ echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
+ $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
+ if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
+ _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes
+ fi
+ fi
+ chmod u+w . 2>&AS_MESSAGE_LOG_FD
+ $RM conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
+ $RM out/* && rmdir out
+ cd ..
+ $RM -r conftest
+ $RM conftest*
+])
+_LT_TAGDECL([compiler_c_o], [lt_cv_prog_compiler_c_o], [1],
+ [Does compiler simultaneously support -c and -o options?])
+])# _LT_COMPILER_C_O
+
+
+# _LT_COMPILER_FILE_LOCKS([TAGNAME])
+# ----------------------------------
+# Check to see if we can do hard links to lock some files if needed
+m4_defun([_LT_COMPILER_FILE_LOCKS],
+[m4_require([_LT_ENABLE_LOCK])dnl
+m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+_LT_COMPILER_C_O([$1])
+
+hard_links=nottested
+if test no = "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" && test no != "$need_locks"; then
+ # do not overwrite the value of need_locks provided by the user
+ AC_MSG_CHECKING([if we can lock with hard links])
+ hard_links=yes
+ $RM conftest*
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ touch conftest.a
+ ln conftest.a conftest.b 2>&5 || hard_links=no
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ AC_MSG_RESULT([$hard_links])
+ if test no = "$hard_links"; then
+ AC_MSG_WARN(['$CC' does not support '-c -o', so 'make -j' may be unsafe])
+ need_locks=warn
+ fi
+else
+ need_locks=no
+fi
+_LT_DECL([], [need_locks], [1], [Must we lock files when doing compilation?])
+])# _LT_COMPILER_FILE_LOCKS
+
+
+# _LT_CHECK_OBJDIR
+# ----------------
+m4_defun([_LT_CHECK_OBJDIR],
+[AC_CACHE_CHECK([for objdir], [lt_cv_objdir],
+[rm -f .libs 2>/dev/null
+mkdir .libs 2>/dev/null
+if test -d .libs; then
+ lt_cv_objdir=.libs
+else
+ # MS-DOS does not allow filenames that begin with a dot.
+ lt_cv_objdir=_libs
+fi
+rmdir .libs 2>/dev/null])
+objdir=$lt_cv_objdir
+_LT_DECL([], [objdir], [0],
+ [The name of the directory that contains temporary libtool files])dnl
+m4_pattern_allow([LT_OBJDIR])dnl
+AC_DEFINE_UNQUOTED([LT_OBJDIR], "$lt_cv_objdir/",
+ [Define to the sub-directory where libtool stores uninstalled libraries.])
+])# _LT_CHECK_OBJDIR
+
+
+# _LT_LINKER_HARDCODE_LIBPATH([TAGNAME])
+# --------------------------------------
+# Check hardcoding attributes.
+m4_defun([_LT_LINKER_HARDCODE_LIBPATH],
+[AC_MSG_CHECKING([how to hardcode library paths into programs])
+_LT_TAGVAR(hardcode_action, $1)=
+if test -n "$_LT_TAGVAR(hardcode_libdir_flag_spec, $1)" ||
+ test -n "$_LT_TAGVAR(runpath_var, $1)" ||
+ test yes = "$_LT_TAGVAR(hardcode_automatic, $1)"; then
+
+ # We can hardcode non-existent directories.
+ if test no != "$_LT_TAGVAR(hardcode_direct, $1)" &&
+ # If the only mechanism to avoid hardcoding is shlibpath_var, we
+ # have to relink, otherwise we might link with an installed library
+ # when we should be linking with a yet-to-be-installed one
+ ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" &&
+ test no != "$_LT_TAGVAR(hardcode_minus_L, $1)"; then
+ # Linking always hardcodes the temporary library directory.
+ _LT_TAGVAR(hardcode_action, $1)=relink
+ else
+ # We can link without hardcoding, and we can hardcode nonexisting dirs.
+ _LT_TAGVAR(hardcode_action, $1)=immediate
+ fi
+else
+ # We cannot hardcode anything, or else we can only hardcode existing
+ # directories.
+ _LT_TAGVAR(hardcode_action, $1)=unsupported
+fi
+AC_MSG_RESULT([$_LT_TAGVAR(hardcode_action, $1)])
+
+if test relink = "$_LT_TAGVAR(hardcode_action, $1)" ||
+ test yes = "$_LT_TAGVAR(inherit_rpath, $1)"; then
+ # Fast installation is not supported
+ enable_fast_install=no
+elif test yes = "$shlibpath_overrides_runpath" ||
+ test no = "$enable_shared"; then
+ # Fast installation is not necessary
+ enable_fast_install=needless
+fi
+_LT_TAGDECL([], [hardcode_action], [0],
+ [How to hardcode a shared library path into an executable])
+])# _LT_LINKER_HARDCODE_LIBPATH
+
+
+# _LT_CMD_STRIPLIB
+# ----------------
+m4_defun([_LT_CMD_STRIPLIB],
+[m4_require([_LT_DECL_EGREP])
+striplib=
+old_striplib=
+AC_MSG_CHECKING([whether stripping libraries is possible])
+if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then
+ test -z "$old_striplib" && old_striplib="$STRIP --strip-debug"
+ test -z "$striplib" && striplib="$STRIP --strip-unneeded"
+ AC_MSG_RESULT([yes])
+else
+# FIXME - insert some real tests, host_os isn't really good enough
+ case $host_os in
+ darwin*)
+ if test -n "$STRIP"; then
+ striplib="$STRIP -x"
+ old_striplib="$STRIP -S"
+ AC_MSG_RESULT([yes])
+ else
+ AC_MSG_RESULT([no])
+ fi
+ ;;
+ *)
+ AC_MSG_RESULT([no])
+ ;;
+ esac
+fi
+_LT_DECL([], [old_striplib], [1], [Commands to strip libraries])
+_LT_DECL([], [striplib], [1])
+])# _LT_CMD_STRIPLIB
+
+
+# _LT_PREPARE_MUNGE_PATH_LIST
+# ---------------------------
+# Make sure func_munge_path_list() is defined correctly.
+m4_defun([_LT_PREPARE_MUNGE_PATH_LIST],
+[[# func_munge_path_list VARIABLE PATH
+# -----------------------------------
+# VARIABLE is name of variable containing _space_ separated list of
+# directories to be munged by the contents of PATH, which is string
+# having a format:
+# "DIR[:DIR]:"
+# string "DIR[ DIR]" will be prepended to VARIABLE
+# ":DIR[:DIR]"
+# string "DIR[ DIR]" will be appended to VARIABLE
+# "DIRP[:DIRP]::[DIRA:]DIRA"
+# string "DIRP[ DIRP]" will be prepended to VARIABLE and string
+# "DIRA[ DIRA]" will be appended to VARIABLE
+# "DIR[:DIR]"
+# VARIABLE will be replaced by "DIR[ DIR]"
+func_munge_path_list ()
+{
+ case x@S|@2 in
+ x)
+ ;;
+ *:)
+ eval @S|@1=\"`$ECHO @S|@2 | $SED 's/:/ /g'` \@S|@@S|@1\"
+ ;;
+ x:*)
+ eval @S|@1=\"\@S|@@S|@1 `$ECHO @S|@2 | $SED 's/:/ /g'`\"
+ ;;
+ *::*)
+ eval @S|@1=\"\@S|@@S|@1\ `$ECHO @S|@2 | $SED -e 's/.*:://' -e 's/:/ /g'`\"
+ eval @S|@1=\"`$ECHO @S|@2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \@S|@@S|@1\"
+ ;;
+ *)
+ eval @S|@1=\"`$ECHO @S|@2 | $SED 's/:/ /g'`\"
+ ;;
+ esac
+}
+]])# _LT_PREPARE_PATH_LIST
+
+
+# _LT_SYS_DYNAMIC_LINKER([TAG])
+# -----------------------------
+# PORTME Fill in your ld.so characteristics
+m4_defun([_LT_SYS_DYNAMIC_LINKER],
+[AC_REQUIRE([AC_CANONICAL_HOST])dnl
+m4_require([_LT_DECL_EGREP])dnl
+m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+m4_require([_LT_DECL_OBJDUMP])dnl
+m4_require([_LT_DECL_SED])dnl
+m4_require([_LT_CHECK_SHELL_FEATURES])dnl
+m4_require([_LT_PREPARE_MUNGE_PATH_LIST])dnl
+AC_MSG_CHECKING([dynamic linker characteristics])
+m4_if([$1],
+ [], [
+if test yes = "$GCC"; then
+ case $host_os in
+ darwin*) lt_awk_arg='/^libraries:/,/LR/' ;;
+ *) lt_awk_arg='/^libraries:/' ;;
+ esac
+ case $host_os in
+ mingw* | cegcc*) lt_sed_strip_eq='s|=\([[A-Za-z]]:\)|\1|g' ;;
+ *) lt_sed_strip_eq='s|=/|/|g' ;;
+ esac
+ lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq`
+ case $lt_search_path_spec in
+ *\;*)
+ # if the path contains ";" then we assume it to be the separator
+ # otherwise default to the standard path separator (i.e. ":") - it is
+ # assumed that no part of a normal pathname contains ";" but that should
+ # okay in the real world where ";" in dirpaths is itself problematic.
+ lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'`
+ ;;
+ *)
+ lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"`
+ ;;
+ esac
+ # Ok, now we have the path, separated by spaces, we can step through it
+ # and add multilib dir if necessary...
+ lt_tmp_lt_search_path_spec=
+ lt_multi_os_dir=/`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null`
+ # ...but if some path component already ends with the multilib dir we assume
+ # that all is fine and trust -print-search-dirs as is (GCC 4.2? or newer).
+ case "$lt_multi_os_dir; $lt_search_path_spec " in
+ "/; "* | "/.; "* | "/./; "* | *"$lt_multi_os_dir "* | *"$lt_multi_os_dir/ "*)
+ lt_multi_os_dir=
+ ;;
+ esac
+ for lt_sys_path in $lt_search_path_spec; do
+ if test -d "$lt_sys_path$lt_multi_os_dir"; then
+ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path$lt_multi_os_dir"
+ elif test -n "$lt_multi_os_dir"; then
+ test -d "$lt_sys_path" && \
+ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path"
+ fi
+ done
+ lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk '
+BEGIN {RS = " "; FS = "/|\n";} {
+ lt_foo = "";
+ lt_count = 0;
+ for (lt_i = NF; lt_i > 0; lt_i--) {
+ if ($lt_i != "" && $lt_i != ".") {
+ if ($lt_i == "..") {
+ lt_count++;
+ } else {
+ if (lt_count == 0) {
+ lt_foo = "/" $lt_i lt_foo;
+ } else {
+ lt_count--;
+ }
+ }
+ }
+ }
+ if (lt_foo != "") { lt_freq[[lt_foo]]++; }
+ if (lt_freq[[lt_foo]] == 1) { print lt_foo; }
+}'`
+ # AWK program above erroneously prepends '/' to C:/dos/paths
+ # for these hosts.
+ case $host_os in
+ mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\
+ $SED 's|/\([[A-Za-z]]:\)|\1|g'` ;;
+ esac
+ sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP`
+else
+ sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
+fi])
+library_names_spec=
+libname_spec='lib$name'
+soname_spec=
+shrext_cmds=.so
+postinstall_cmds=
+postuninstall_cmds=
+finish_cmds=
+finish_eval=
+shlibpath_var=
+shlibpath_overrides_runpath=unknown
+version_type=none
+dynamic_linker="$host_os ld.so"
+sys_lib_dlsearch_path_spec="/lib /usr/lib"
+need_lib_prefix=unknown
+hardcode_into_libs=no
+
+# when you set need_version to no, make sure it does not cause -set_version
+# flags to be left without arguments
+need_version=unknown
+
+AC_ARG_VAR([LT_SYS_LIBRARY_PATH],
+[User-defined run-time library search path.])
+
+case $host_os in
+aix3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname.a'
+ shlibpath_var=LIBPATH
+
+ # AIX 3 has no versioning support, so we append a major version to the name.
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+
+aix[[4-9]]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ hardcode_into_libs=yes
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 supports IA64
+ library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ else
+ # With GCC up to 2.95.x, collect2 would create an import file
+ # for dependence libraries. The import file would start with
+ # the line '#! .'. This would cause the generated library to
+ # depend on '.', always an invalid library. This was fixed in
+ # development snapshots of GCC prior to 3.0.
+ case $host_os in
+ aix4 | aix4.[[01]] | aix4.[[01]].*)
+ if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
+ echo ' yes '
+ echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then
+ :
+ else
+ can_build_shared=no
+ fi
+ ;;
+ esac
+ # Using Import Files as archive members, it is possible to support
+ # filename-based versioning of shared library archives on AIX. While
+ # this would work for both with and without runtime linking, it will
+ # prevent static linking of such archives. So we do filename-based
+ # shared library versioning with .so extension only, which is used
+ # when both runtime linking and shared linking is enabled.
+ # Unfortunately, runtime linking may impact performance, so we do
+ # not want this to be the default eventually. Also, we use the
+ # versioned .so libs for executables only if there is the -brtl
+ # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only.
+ # To allow for filename-based versioning support, we need to create
+ # libNAME.so.V as an archive file, containing:
+ # *) an Import File, referring to the versioned filename of the
+ # archive as well as the shared archive member, telling the
+ # bitwidth (32 or 64) of that shared object, and providing the
+ # list of exported symbols of that shared object, eventually
+ # decorated with the 'weak' keyword
+ # *) the shared object with the F_LOADONLY flag set, to really avoid
+ # it being seen by the linker.
+ # At run time we better use the real file rather than another symlink,
+ # but for link time we create the symlink libNAME.so -> libNAME.so.V
+
+ case $with_aix_soname,$aix_use_runtimelinking in
+ # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct
+ # soname into executable. Probably we can add versioning support to
+ # collect2, so additional links can be useful in future.
+ aix,yes) # traditional libtool
+ dynamic_linker='AIX unversionable lib.so'
+ # If using run time linking (on AIX 4.2 or later) use lib<name>.so
+ # instead of lib<name>.a to let people know that these are not
+ # typical AIX shared libraries.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ aix,no) # traditional AIX only
+ dynamic_linker='AIX lib.a[(]lib.so.V[)]'
+ # We preserve .a as extension for shared libraries through AIX4.2
+ # and later when we are not doing run time linking.
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ svr4,*) # full svr4 only
+ dynamic_linker="AIX lib.so.V[(]$shared_archive_member_spec.o[)]"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,yes) # both, prefer svr4
+ dynamic_linker="AIX lib.so.V[(]$shared_archive_member_spec.o[)], lib.a[(]lib.so.V[)]"
+ library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
+ # unpreferred sharedlib libNAME.a needs extra handling
+ postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"'
+ postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"'
+ # We do not specify a path in Import Files, so LIBPATH fires.
+ shlibpath_overrides_runpath=yes
+ ;;
+ *,no) # both, prefer aix
+ dynamic_linker="AIX lib.a[(]lib.so.V[)], lib.so.V[(]$shared_archive_member_spec.o[)]"
+ library_names_spec='$libname$release.a $libname.a'
+ soname_spec='$libname$release$shared_ext$major'
+ # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling
+ postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)'
+ postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"'
+ ;;
+ esac
+ shlibpath_var=LIBPATH
+ fi
+ ;;
+
+amigaos*)
+ case $host_cpu in
+ powerpc)
+ # Since July 2007 AmigaOS4 officially supports .so libraries.
+ # When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ ;;
+ m68k)
+ library_names_spec='$libname.ixlibrary $libname.a'
+ # Create ${libname}_ixlibrary.a entries in /sys/libs.
+ finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
+ ;;
+ esac
+ ;;
+
+beos*)
+ library_names_spec='$libname$shared_ext'
+ dynamic_linker="$host_os ld.so"
+ shlibpath_var=LIBRARY_PATH
+ ;;
+
+bsdi[[45]]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
+ # the default ld.so.conf also contains /usr/contrib/lib and
+ # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
+ # libtool to hard-code these into programs
+ ;;
+
+cygwin* | mingw* | pw32* | cegcc*)
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+
+ case $GCC,$cc_basename in
+ yes,*)
+ # gcc
+ library_names_spec='$libname.dll.a'
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+
+ case $host_os in
+ cygwin*)
+ # Cygwin DLLs use 'cyg' prefix rather than 'lib'
+ soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext'
+m4_if([$1], [],[
+ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"])
+ ;;
+ mingw* | cegcc*)
+ # MinGW DLLs use traditional 'lib' prefix
+ soname_spec='$libname`echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext'
+ ;;
+ pw32*)
+ # pw32 DLLs use 'pw' prefix rather than 'lib'
+ library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext'
+ ;;
+ esac
+ dynamic_linker='Win32 ld.exe'
+ ;;
+
+ *,cl*)
+ # Native MSVC
+ libname_spec='$name'
+ soname_spec='$libname`echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext'
+ library_names_spec='$libname.dll.lib'
+
+ case $build_os in
+ mingw*)
+ sys_lib_search_path_spec=
+ lt_save_ifs=$IFS
+ IFS=';'
+ for lt_path in $LIB
+ do
+ IFS=$lt_save_ifs
+ # Let DOS variable expansion print the short 8.3 style file name.
+ lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
+ sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
+ done
+ IFS=$lt_save_ifs
+ # Convert to MSYS style.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([[a-zA-Z]]\\):| /\\1|g' -e 's|^ ||'`
+ ;;
+ cygwin*)
+ # Convert to unix form, then to dos form, then back to unix form
+ # but this time dos style (no spaces!) so that the unix form looks
+ # like /cygdrive/c/PROGRA~1:/cygdr...
+ sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
+ sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
+ sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ ;;
+ *)
+ sys_lib_search_path_spec=$LIB
+ if $ECHO "$sys_lib_search_path_spec" | [$GREP ';[c-zC-Z]:/' >/dev/null]; then
+ # It is most probably a Windows format PATH.
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
+ else
+ sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ fi
+ # FIXME: find the short name or the path components, as spaces are
+ # common. (e.g. "Program Files" -> "PROGRA~1")
+ ;;
+ esac
+
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ shlibpath_overrides_runpath=yes
+ dynamic_linker='Win32 link.exe'
+ ;;
+
+ *)
+ # Assume MSVC wrapper
+ library_names_spec='$libname`echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext $libname.lib'
+ dynamic_linker='Win32 ld.exe'
+ ;;
+ esac
+ # FIXME: first we should search . and the directory the executable is in
+ shlibpath_var=PATH
+ ;;
+
+darwin* | rhapsody*)
+ dynamic_linker="$host_os dyld"
+ version_type=darwin
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$major$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$major$shared_ext'
+ shlibpath_overrides_runpath=yes
+ shlibpath_var=DYLD_LIBRARY_PATH
+ shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
+m4_if([$1], [],[
+ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"])
+ sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
+ ;;
+
+dgux*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+freebsd* | dragonfly*)
+ # DragonFly does not have aout. When/if they implement a new
+ # versioning mechanism, adjust this.
+ if test -x /usr/bin/objformat; then
+ objformat=`/usr/bin/objformat`
+ else
+ case $host_os in
+ freebsd[[23]].*) objformat=aout ;;
+ *) objformat=elf ;;
+ esac
+ fi
+ version_type=freebsd-$objformat
+ case $version_type in
+ freebsd-elf*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ need_version=no
+ need_lib_prefix=no
+ ;;
+ freebsd-*)
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ need_version=yes
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_os in
+ freebsd2.*)
+ shlibpath_overrides_runpath=yes
+ ;;
+ freebsd3.[[01]]* | freebsdelf3.[[01]]*)
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ freebsd3.[[2-9]]* | freebsdelf3.[[2-9]]* | \
+ freebsd4.[[0-5]] | freebsdelf4.[[0-5]] | freebsd4.1.1 | freebsdelf4.1.1)
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+ *) # from 4.6 on, and DragonFly
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ esac
+ ;;
+
+haiku*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ dynamic_linker="$host_os runtime_loader"
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
+ hardcode_into_libs=yes
+ ;;
+
+hpux9* | hpux10* | hpux11*)
+ # Give a soname corresponding to the major version so that dld.sl refuses to
+ # link against other versions.
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ case $host_cpu in
+ ia64*)
+ shrext_cmds='.so'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.so"
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ if test 32 = "$HPUX_IA64_MODE"; then
+ sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux32
+ else
+ sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
+ sys_lib_dlsearch_path_spec=/usr/lib/hpux64
+ fi
+ ;;
+ hppa*64*)
+ shrext_cmds='.sl'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+ *)
+ shrext_cmds='.sl'
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=SHLIB_PATH
+ shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ ;;
+ esac
+ # HP-UX runs *really* slowly unless shared libraries are mode 555, ...
+ postinstall_cmds='chmod 555 $lib'
+ # or fails outright, so override atomically:
+ install_override_mode=555
+ ;;
+
+interix[[3-9]]*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+irix5* | irix6* | nonstopux*)
+ case $host_os in
+ nonstopux*) version_type=nonstopux ;;
+ *)
+ if test yes = "$lt_cv_prog_gnu_ld"; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ else
+ version_type=irix
+ fi ;;
+ esac
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext'
+ case $host_os in
+ irix5* | nonstopux*)
+ libsuff= shlibsuff=
+ ;;
+ *)
+ case $LD in # libtool.m4 will add one of these switches to LD
+ *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
+ libsuff= shlibsuff= libmagic=32-bit;;
+ *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
+ libsuff=32 shlibsuff=N32 libmagic=N32;;
+ *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
+ libsuff=64 shlibsuff=64 libmagic=64-bit;;
+ *) libsuff= shlibsuff= libmagic=never-match;;
+ esac
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff"
+ sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff"
+ hardcode_into_libs=yes
+ ;;
+
+# No shared lib support for Linux oldld, aout, or coff.
+linux*oldld* | linux*aout* | linux*coff*)
+ dynamic_linker=no
+ ;;
+
+linux*android*)
+ version_type=none # Android doesn't support versioned libraries.
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext'
+ soname_spec='$libname$release$shared_ext'
+ finish_cmds=
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ dynamic_linker='Android linker'
+ # Don't embed -rpath directories since the linker doesn't support them.
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ ;;
+
+# This must be glibc/ELF.
+linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+
+ # Some binutils ld are patched to set DT_RUNPATH
+ AC_CACHE_VAL([lt_cv_shlibpath_overrides_runpath],
+ [lt_cv_shlibpath_overrides_runpath=no
+ save_LDFLAGS=$LDFLAGS
+ save_libdir=$libdir
+ eval "libdir=/foo; wl=\"$_LT_TAGVAR(lt_prog_compiler_wl, $1)\"; \
+ LDFLAGS=\"\$LDFLAGS $_LT_TAGVAR(hardcode_libdir_flag_spec, $1)\""
+ AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])],
+ [AS_IF([ ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null],
+ [lt_cv_shlibpath_overrides_runpath=yes])])
+ LDFLAGS=$save_LDFLAGS
+ libdir=$save_libdir
+ ])
+ shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
+
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ # Ideally, we could use ldconfig to report *all* directores which are
+ # searched for libraries, however this is still not possible. Aside from not
+ # being certain /sbin/ldconfig is available, command
+ # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64,
+ # even though it is searched at run-time. Try to do the best guess by
+ # appending ld.so.conf contents (and includes) to the search path.
+ if test -f /etc/ld.so.conf; then
+ lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \[$]2)); skip = 1; } { if (!skip) print \[$]0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
+ sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
+ fi
+
+ # We used to test for /lib/ld.so.1 and disable shared libraries on
+ # powerpc, because MkLinux only supported shared libraries with the
+ # GNU dynamic linker. Since this was broken with cross compilers,
+ # most powerpc-linux boxes support dynamic linking these days and
+ # people can always --disable-shared, the test was removed, and we
+ # assume the GNU/Linux dynamic linker is in use.
+ dynamic_linker='GNU/Linux ld.so'
+ ;;
+
+netbsd*)
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ dynamic_linker='NetBSD (a.out) ld.so'
+ else
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ dynamic_linker='NetBSD ld.elf_so'
+ fi
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+
+newsos6)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+*nto* | *qnx*)
+ version_type=qnx
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ dynamic_linker='ldqnx.so'
+ ;;
+
+openbsd* | bitrig*)
+ version_type=sunos
+ sys_lib_dlsearch_path_spec=/usr/lib
+ need_lib_prefix=no
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ need_version=no
+ else
+ need_version=yes
+ fi
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+os2*)
+ libname_spec='$name'
+ version_type=windows
+ shrext_cmds=.dll
+ need_version=no
+ need_lib_prefix=no
+ # OS/2 can only load a DLL with a base name of 8 characters or less.
+ soname_spec='`test -n "$os2dllname" && libname="$os2dllname";
+ v=$($ECHO $release$versuffix | tr -d .-);
+ n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _);
+ $ECHO $n$v`$shared_ext'
+ library_names_spec='${libname}_dll.$libext'
+ dynamic_linker='OS/2 ld.exe'
+ shlibpath_var=BEGINLIBPATH
+ sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ postinstall_cmds='base_file=`basename \$file`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname~
+ chmod a+x \$dldir/$dlname~
+ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
+ eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
+ fi'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $RM \$dlpath'
+ ;;
+
+osf3* | osf4* | osf5*)
+ version_type=osf
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='$libname$release$shared_ext$major'
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+
+rdos*)
+ dynamic_linker=no
+ ;;
+
+solaris*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ # ldd complains unless libraries are executable
+ postinstall_cmds='chmod +x $lib'
+ ;;
+
+sunos4*)
+ version_type=sunos
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
+ finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ if test yes = "$with_gnu_ld"; then
+ need_lib_prefix=no
+ fi
+ need_version=yes
+ ;;
+
+sysv4 | sysv4.3*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_vendor in
+ sni)
+ shlibpath_overrides_runpath=no
+ need_lib_prefix=no
+ runpath_var=LD_RUN_PATH
+ ;;
+ siemens)
+ need_lib_prefix=no
+ ;;
+ motorola)
+ need_lib_prefix=no
+ need_version=no
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
+ ;;
+ esac
+ ;;
+
+sysv4*MP*)
+ if test -d /usr/nec; then
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext'
+ soname_spec='$libname$shared_ext.$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ fi
+ ;;
+
+sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
+ version_type=sco
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ if test yes = "$with_gnu_ld"; then
+ sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
+ else
+ sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
+ case $host_os in
+ sco3.2v5*)
+ sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
+ ;;
+ esac
+ fi
+ sys_lib_dlsearch_path_spec='/usr/lib'
+ ;;
+
+tpf*)
+ # TPF is a cross-target only. Preferred cross-host = GNU/Linux.
+ version_type=linux # correct to gnu/linux during the next big refactor
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+
+uts4*)
+ version_type=linux # correct to gnu/linux during the next big refactor
+ library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
+ soname_spec='$libname$release$shared_ext$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+*)
+ dynamic_linker=no
+ ;;
+esac
+AC_MSG_RESULT([$dynamic_linker])
+test no = "$dynamic_linker" && can_build_shared=no
+
+variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
+if test yes = "$GCC"; then
+ variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
+fi
+
+if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then
+ sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec
+fi
+
+if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then
+ sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec
+fi
+
+# remember unaugmented sys_lib_dlsearch_path content for libtool script decls...
+configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec
+
+# ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code
+func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH"
+
+# to be used as default LT_SYS_LIBRARY_PATH value in generated libtool
+configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH
+
+_LT_DECL([], [variables_saved_for_relink], [1],
+ [Variables whose values should be saved in libtool wrapper scripts and
+ restored at link time])
+_LT_DECL([], [need_lib_prefix], [0],
+ [Do we need the "lib" prefix for modules?])
+_LT_DECL([], [need_version], [0], [Do we need a version for libraries?])
+_LT_DECL([], [version_type], [0], [Library versioning type])
+_LT_DECL([], [runpath_var], [0], [Shared library runtime path variable])
+_LT_DECL([], [shlibpath_var], [0],[Shared library path variable])
+_LT_DECL([], [shlibpath_overrides_runpath], [0],
+ [Is shlibpath searched before the hard-coded library search path?])
+_LT_DECL([], [libname_spec], [1], [Format of library name prefix])
+_LT_DECL([], [library_names_spec], [1],
+ [[List of archive names. First name is the real one, the rest are links.
+ The last name is the one that the linker finds with -lNAME]])
+_LT_DECL([], [soname_spec], [1],
+ [[The coded name of the library, if different from the real name]])
+_LT_DECL([], [install_override_mode], [1],
+ [Permission mode override for installation of shared libraries])
+_LT_DECL([], [postinstall_cmds], [2],
+ [Command to use after installation of a shared archive])
+_LT_DECL([], [postuninstall_cmds], [2],
+ [Command to use after uninstallation of a shared archive])
+_LT_DECL([], [finish_cmds], [2],
+ [Commands used to finish a libtool library installation in a directory])
+_LT_DECL([], [finish_eval], [1],
+ [[As "finish_cmds", except a single script fragment to be evaled but
+ not shown]])
+_LT_DECL([], [hardcode_into_libs], [0],
+ [Whether we should hardcode library paths into libraries])
+_LT_DECL([], [sys_lib_search_path_spec], [2],
+ [Compile-time system search path for libraries])
+_LT_DECL([sys_lib_dlsearch_path_spec], [configure_time_dlsearch_path], [2],
+ [Detected run-time system search path for libraries])
+_LT_DECL([], [configure_time_lt_sys_library_path], [2],
+ [Explicit LT_SYS_LIBRARY_PATH set during ./configure time])
+])# _LT_SYS_DYNAMIC_LINKER
+
+
+# _LT_PATH_TOOL_PREFIX(TOOL)
+# --------------------------
+# find a file program that can recognize shared library
+AC_DEFUN([_LT_PATH_TOOL_PREFIX],
+[m4_require([_LT_DECL_EGREP])dnl
+AC_MSG_CHECKING([for $1])
+AC_CACHE_VAL(lt_cv_path_MAGIC_CMD,
+[case $MAGIC_CMD in
+[[\\/*] | ?:[\\/]*])
+ lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path.
+ ;;
+*)
+ lt_save_MAGIC_CMD=$MAGIC_CMD
+ lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
+dnl $ac_dummy forces splitting on constant user-supplied paths.
+dnl POSIX.2 word splitting is done only on the output of word expansions,
+dnl not every word. This closes a longstanding sh security hole.
+ ac_dummy="m4_if([$2], , $PATH, [$2])"
+ for ac_dir in $ac_dummy; do
+ IFS=$lt_save_ifs
+ test -z "$ac_dir" && ac_dir=.
+ if test -f "$ac_dir/$1"; then
+ lt_cv_path_MAGIC_CMD=$ac_dir/"$1"
+ if test -n "$file_magic_test_file"; then
+ case $deplibs_check_method in
+ "file_magic "*)
+ file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
+ MAGIC_CMD=$lt_cv_path_MAGIC_CMD
+ if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
+ $EGREP "$file_magic_regex" > /dev/null; then
+ :
+ else
+ cat <<_LT_EOF 1>&2
+
+*** Warning: the command libtool uses to detect shared libraries,
+*** $file_magic_cmd, produces output that libtool cannot recognize.
+*** The result is that libtool may fail to recognize shared libraries
+*** as such. This will affect the creation of libtool libraries that
+*** depend on shared libraries, but programs linked with such libtool
+*** libraries will work regardless of this problem. Nevertheless, you
+*** may want to report the problem to your system manager and/or to
+*** bug-libtool@gnu.org
+
+_LT_EOF
+ fi ;;
+ esac
+ fi
+ break
+ fi
+ done
+ IFS=$lt_save_ifs
+ MAGIC_CMD=$lt_save_MAGIC_CMD
+ ;;
+esac])
+MAGIC_CMD=$lt_cv_path_MAGIC_CMD
+if test -n "$MAGIC_CMD"; then
+ AC_MSG_RESULT($MAGIC_CMD)
+else
+ AC_MSG_RESULT(no)
+fi
+_LT_DECL([], [MAGIC_CMD], [0],
+ [Used to examine libraries when file_magic_cmd begins with "file"])dnl
+])# _LT_PATH_TOOL_PREFIX
+
+# Old name:
+AU_ALIAS([AC_PATH_TOOL_PREFIX], [_LT_PATH_TOOL_PREFIX])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_PATH_TOOL_PREFIX], [])
+
+
+# _LT_PATH_MAGIC
+# --------------
+# find a file program that can recognize a shared library
+m4_defun([_LT_PATH_MAGIC],
+[_LT_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH)
+if test -z "$lt_cv_path_MAGIC_CMD"; then
+ if test -n "$ac_tool_prefix"; then
+ _LT_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH)
+ else
+ MAGIC_CMD=:
+ fi
+fi
+])# _LT_PATH_MAGIC
+
+
+# LT_PATH_LD
+# ----------
+# find the pathname to the GNU or non-GNU linker
+AC_DEFUN([LT_PATH_LD],
+[AC_REQUIRE([AC_PROG_CC])dnl
+AC_REQUIRE([AC_CANONICAL_HOST])dnl
+AC_REQUIRE([AC_CANONICAL_BUILD])dnl
+m4_require([_LT_DECL_SED])dnl
+m4_require([_LT_DECL_EGREP])dnl
+m4_require([_LT_PROG_ECHO_BACKSLASH])dnl
+
+AC_ARG_WITH([gnu-ld],
+ [AS_HELP_STRING([--with-gnu-ld],
+ [assume the C compiler uses GNU ld @<:@default=no@:>@])],
+ [test no = "$withval" || with_gnu_ld=yes],
+ [with_gnu_ld=no])dnl
+
+ac_prog=ld
+if test yes = "$GCC"; then
+ # Check if gcc -print-prog-name=ld gives a path.
+ AC_MSG_CHECKING([for ld used by $CC])
+ case $host in
+ *-*-mingw*)
+ # gcc leaves a trailing carriage return, which upsets mingw
+ ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
+ *)
+ ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
+ esac
+ case $ac_prog in
+ # Accept absolute paths.
+ [[\\/]]* | ?:[[\\/]]*)
+ re_direlt='/[[^/]][[^/]]*/\.\./'
+ # Canonicalize the pathname of ld
+ ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'`
+ while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do
+ ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"`
+ done
+ test -z "$LD" && LD=$ac_prog
+ ;;
+ "")
+ # If it fails, then pretend we aren't using GCC.
+ ac_prog=ld
+ ;;
+ *)
+ # If it is relative, then search for the first ld in PATH.
+ with_gnu_ld=unknown
+ ;;
+ esac
+elif test yes = "$with_gnu_ld"; then
+ AC_MSG_CHECKING([for GNU ld])
+else
+ AC_MSG_CHECKING([for non-GNU ld])
+fi
+AC_CACHE_VAL(lt_cv_path_LD,
+[if test -z "$LD"; then
+ lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
+ for ac_dir in $PATH; do
+ IFS=$lt_save_ifs
+ test -z "$ac_dir" && ac_dir=.
+ if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
+ lt_cv_path_LD=$ac_dir/$ac_prog
+ # Check to see if the program is GNU ld. I'd rather use --version,
+ # but apparently some variants of GNU ld only accept -v.
+ # Break only if it was the GNU/non-GNU ld that we prefer.
+ case `"$lt_cv_path_LD" -v 2>&1 </dev/null` in
+ *GNU* | *'with BFD'*)
+ test no != "$with_gnu_ld" && break
+ ;;
+ *)
+ test yes != "$with_gnu_ld" && break
+ ;;
+ esac
+ fi
+ done
+ IFS=$lt_save_ifs
+else
+ lt_cv_path_LD=$LD # Let the user override the test with a path.
+fi])
+LD=$lt_cv_path_LD
+if test -n "$LD"; then
+ AC_MSG_RESULT($LD)
+else
+ AC_MSG_RESULT(no)
+fi
+test -z "$LD" && AC_MSG_ERROR([no acceptable ld found in \$PATH])
+_LT_PATH_LD_GNU
+AC_SUBST([LD])
+
+_LT_TAGDECL([], [LD], [1], [The linker used to build libraries])
+])# LT_PATH_LD
+
+# Old names:
+AU_ALIAS([AM_PROG_LD], [LT_PATH_LD])
+AU_ALIAS([AC_PROG_LD], [LT_PATH_LD])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AM_PROG_LD], [])
+dnl AC_DEFUN([AC_PROG_LD], [])
+
+
+# _LT_PATH_LD_GNU
+#- --------------
+m4_defun([_LT_PATH_LD_GNU],
+[AC_CACHE_CHECK([if the linker ($LD) is GNU ld], lt_cv_prog_gnu_ld,
+[# I'd rather use --version here, but apparently some GNU lds only accept -v.
+case `$LD -v 2>&1 </dev/null` in
+*GNU* | *'with BFD'*)
+ lt_cv_prog_gnu_ld=yes
+ ;;
+*)
+ lt_cv_prog_gnu_ld=no
+ ;;
+esac])
+with_gnu_ld=$lt_cv_prog_gnu_ld
+])# _LT_PATH_LD_GNU
+
+
+# _LT_CMD_RELOAD
+# --------------
+# find reload flag for linker
+# -- PORTME Some linkers may need a different reload flag.
+m4_defun([_LT_CMD_RELOAD],
+[AC_CACHE_CHECK([for $LD option to reload object files],
+ lt_cv_ld_reload_flag,
+ [lt_cv_ld_reload_flag='-r'])
+reload_flag=$lt_cv_ld_reload_flag
+case $reload_flag in
+"" | " "*) ;;
+*) reload_flag=" $reload_flag" ;;
+esac
+reload_cmds='$LD$reload_flag -o $output$reload_objs'
+case $host_os in
+ cygwin* | mingw* | pw32* | cegcc*)
+ if test yes != "$GCC"; then
+ reload_cmds=false
+ fi
+ ;;
+ darwin*)
+ if test yes = "$GCC"; then
+ reload_cmds='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs'
+ else
+ reload_cmds='$LD$reload_flag -o $output$reload_objs'
+ fi
+ ;;
+esac
+_LT_TAGDECL([], [reload_flag], [1], [How to create reloadable object files])dnl
+_LT_TAGDECL([], [reload_cmds], [2])dnl
+])# _LT_CMD_RELOAD
+
+
+# _LT_PATH_DD
+# -----------
+# find a working dd
+m4_defun([_LT_PATH_DD],
+[AC_CACHE_CHECK([for a working dd], [ac_cv_path_lt_DD],
+[printf 0123456789abcdef0123456789abcdef >conftest.i
+cat conftest.i conftest.i >conftest2.i
+: ${lt_DD:=$DD}
+AC_PATH_PROGS_FEATURE_CHECK([lt_DD], [dd],
+[if "$ac_path_lt_DD" bs=32 count=1 <conftest2.i >conftest.out 2>/dev/null; then
+ cmp -s conftest.i conftest.out \
+ && ac_cv_path_lt_DD="$ac_path_lt_DD" ac_path_lt_DD_found=:
+fi])
+rm -f conftest.i conftest2.i conftest.out])
+])# _LT_PATH_DD
+
+
+# _LT_CMD_TRUNCATE
+# ----------------
+# find command to truncate a binary pipe
+m4_defun([_LT_CMD_TRUNCATE],
+[m4_require([_LT_PATH_DD])
+AC_CACHE_CHECK([how to truncate binary pipes], [lt_cv_truncate_bin],
+[printf 0123456789abcdef0123456789abcdef >conftest.i
+cat conftest.i conftest.i >conftest2.i
+lt_cv_truncate_bin=
+if "$ac_cv_path_lt_DD" bs=32 count=1 <conftest2.i >conftest.out 2>/dev/null; then
+ cmp -s conftest.i conftest.out \
+ && lt_cv_truncate_bin="$ac_cv_path_lt_DD bs=4096 count=1"
+fi
+rm -f conftest.i conftest2.i conftest.out
+test -z "$lt_cv_truncate_bin" && lt_cv_truncate_bin="$SED -e 4q"])
+_LT_DECL([lt_truncate_bin], [lt_cv_truncate_bin], [1],
+ [Command to truncate a binary pipe])
+])# _LT_CMD_TRUNCATE
+
+
+# _LT_CHECK_MAGIC_METHOD
+# ----------------------
+# how to check for library dependencies
+# -- PORTME fill in with the dynamic library characteristics
+m4_defun([_LT_CHECK_MAGIC_METHOD],
+[m4_require([_LT_DECL_EGREP])
+m4_require([_LT_DECL_OBJDUMP])
+AC_CACHE_CHECK([how to recognize dependent libraries],
+lt_cv_deplibs_check_method,
+[lt_cv_file_magic_cmd='$MAGIC_CMD'
+lt_cv_file_magic_test_file=
+lt_cv_deplibs_check_method='unknown'
+# Need to set the preceding variable on all platforms that support
+# interlibrary dependencies.
+# 'none' -- dependencies not supported.
+# 'unknown' -- same as none, but documents that we really don't know.
+# 'pass_all' -- all dependencies passed with no checks.
+# 'test_compile' -- check by making test program.
+# 'file_magic [[regex]]' -- check by looking for files in library path
+# that responds to the $file_magic_cmd with a given extended regex.
+# If you have 'file' or equivalent on your system and you're not sure
+# whether 'pass_all' will *always* work, you probably want this one.
+
+case $host_os in
+aix[[4-9]]*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+beos*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+bsdi[[45]]*)
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib)'
+ lt_cv_file_magic_cmd='/usr/bin/file -L'
+ lt_cv_file_magic_test_file=/shlib/libc.so
+ ;;
+
+cygwin*)
+ # func_win32_libid is a shell function defined in ltmain.sh
+ lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
+ lt_cv_file_magic_cmd='func_win32_libid'
+ ;;
+
+mingw* | pw32*)
+ # Base MSYS/MinGW do not provide the 'file' command needed by
+ # func_win32_libid shell function, so use a weaker test based on 'objdump',
+ # unless we find 'file', for example because we are cross-compiling.
+ if ( file / ) >/dev/null 2>&1; then
+ lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
+ lt_cv_file_magic_cmd='func_win32_libid'
+ else
+ # Keep this pattern in sync with the one in func_win32_libid.
+ lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)'
+ lt_cv_file_magic_cmd='$OBJDUMP -f'
+ fi
+ ;;
+
+cegcc*)
+ # use the weaker test based on 'objdump'. See mingw*.
+ lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?'
+ lt_cv_file_magic_cmd='$OBJDUMP -f'
+ ;;
+
+darwin* | rhapsody*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+freebsd* | dragonfly*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
+ case $host_cpu in
+ i*86 )
+ # Not sure whether the presence of OpenBSD here was a mistake.
+ # Let's accept both of them until this is cleared up.
+ lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[[3-9]]86 (compact )?demand paged shared library'
+ lt_cv_file_magic_cmd=/usr/bin/file
+ lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*`
+ ;;
+ esac
+ else
+ lt_cv_deplibs_check_method=pass_all
+ fi
+ ;;
+
+haiku*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+hpux10.20* | hpux11*)
+ lt_cv_file_magic_cmd=/usr/bin/file
+ case $host_cpu in
+ ia64*)
+ lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64'
+ lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so
+ ;;
+ hppa*64*)
+ [lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]']
+ lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl
+ ;;
+ *)
+ lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]]\.[[0-9]]) shared library'
+ lt_cv_file_magic_test_file=/usr/lib/libc.sl
+ ;;
+ esac
+ ;;
+
+interix[[3-9]]*)
+ # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here
+ lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|\.a)$'
+ ;;
+
+irix5* | irix6* | nonstopux*)
+ case $LD in
+ *-32|*"-32 ") libmagic=32-bit;;
+ *-n32|*"-n32 ") libmagic=N32;;
+ *-64|*"-64 ") libmagic=64-bit;;
+ *) libmagic=never-match;;
+ esac
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+# This must be glibc/ELF.
+linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
+ lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$'
+ else
+ lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$'
+ fi
+ ;;
+
+newos6*)
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)'
+ lt_cv_file_magic_cmd=/usr/bin/file
+ lt_cv_file_magic_test_file=/usr/lib/libnls.so
+ ;;
+
+*nto* | *qnx*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+openbsd* | bitrig*)
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|\.so|_pic\.a)$'
+ else
+ lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$'
+ fi
+ ;;
+
+osf3* | osf4* | osf5*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+rdos*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+solaris*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+sysv4 | sysv4.3*)
+ case $host_vendor in
+ motorola)
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]'
+ lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*`
+ ;;
+ ncr)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+ sequent)
+ lt_cv_file_magic_cmd='/bin/file'
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )'
+ ;;
+ sni)
+ lt_cv_file_magic_cmd='/bin/file'
+ lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib"
+ lt_cv_file_magic_test_file=/lib/libc.so
+ ;;
+ siemens)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+ pc)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+ esac
+ ;;
+
+tpf*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+os2*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+esac
+])
+
+file_magic_glob=
+want_nocaseglob=no
+if test "$build" = "$host"; then
+ case $host_os in
+ mingw* | pw32*)
+ if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then
+ want_nocaseglob=yes
+ else
+ file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[[\1]]\/[[\1]]\/g;/g"`
+ fi
+ ;;
+ esac
+fi
+
+file_magic_cmd=$lt_cv_file_magic_cmd
+deplibs_check_method=$lt_cv_deplibs_check_method
+test -z "$deplibs_check_method" && deplibs_check_method=unknown
+
+_LT_DECL([], [deplibs_check_method], [1],
+ [Method to check whether dependent libraries are shared objects])
+_LT_DECL([], [file_magic_cmd], [1],
+ [Command to use when deplibs_check_method = "file_magic"])
+_LT_DECL([], [file_magic_glob], [1],
+ [How to find potential files when deplibs_check_method = "file_magic"])
+_LT_DECL([], [want_nocaseglob], [1],
+ [Find potential files using nocaseglob when deplibs_check_method = "file_magic"])
+])# _LT_CHECK_MAGIC_METHOD
+
+
+# LT_PATH_NM
+# ----------
+# find the pathname to a BSD- or MS-compatible name lister
+AC_DEFUN([LT_PATH_NM],
+[AC_REQUIRE([AC_PROG_CC])dnl
+AC_CACHE_CHECK([for BSD- or MS-compatible name lister (nm)], lt_cv_path_NM,
+[if test -n "$NM"; then
+ # Let the user override the test.
+ lt_cv_path_NM=$NM
+else
+ lt_nm_to_check=${ac_tool_prefix}nm
+ if test -n "$ac_tool_prefix" && test "$build" = "$host"; then
+ lt_nm_to_check="$lt_nm_to_check nm"
+ fi
+ for lt_tmp_nm in $lt_nm_to_check; do
+ lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
+ for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do
+ IFS=$lt_save_ifs
+ test -z "$ac_dir" && ac_dir=.
+ tmp_nm=$ac_dir/$lt_tmp_nm
+ if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext"; then
+ # Check to see if the nm accepts a BSD-compat flag.
+ # Adding the 'sed 1q' prevents false positives on HP-UX, which says:
+ # nm: unknown option "B" ignored
+ # Tru64's nm complains that /dev/null is an invalid object file
+ # MSYS converts /dev/null to NUL, MinGW nm treats NUL as empty
+ case $build_os in
+ mingw*) lt_bad_file=conftest.nm/nofile ;;
+ *) lt_bad_file=/dev/null ;;
+ esac
+ case `"$tmp_nm" -B $lt_bad_file 2>&1 | sed '1q'` in
+ *$lt_bad_file* | *'Invalid file or object type'*)
+ lt_cv_path_NM="$tmp_nm -B"
+ break 2
+ ;;
+ *)
+ case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in
+ */dev/null*)
+ lt_cv_path_NM="$tmp_nm -p"
+ break 2
+ ;;
+ *)
+ lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but
+ continue # so that we can try to find one that supports BSD flags
+ ;;
+ esac
+ ;;
+ esac
+ fi
+ done
+ IFS=$lt_save_ifs
+ done
+ : ${lt_cv_path_NM=no}
+fi])
+if test no != "$lt_cv_path_NM"; then
+ NM=$lt_cv_path_NM
+else
+ # Didn't find any BSD compatible name lister, look for dumpbin.
+ if test -n "$DUMPBIN"; then :
+ # Let the user override the test.
+ else
+ AC_CHECK_TOOLS(DUMPBIN, [dumpbin "link -dump"], :)
+ case `$DUMPBIN -symbols -headers /dev/null 2>&1 | sed '1q'` in
+ *COFF*)
+ DUMPBIN="$DUMPBIN -symbols -headers"
+ ;;
+ *)
+ DUMPBIN=:
+ ;;
+ esac
+ fi
+ AC_SUBST([DUMPBIN])
+ if test : != "$DUMPBIN"; then
+ NM=$DUMPBIN
+ fi
+fi
+test -z "$NM" && NM=nm
+AC_SUBST([NM])
+_LT_DECL([], [NM], [1], [A BSD- or MS-compatible name lister])dnl
+
+AC_CACHE_CHECK([the name lister ($NM) interface], [lt_cv_nm_interface],
+ [lt_cv_nm_interface="BSD nm"
+ echo "int some_variable = 0;" > conftest.$ac_ext
+ (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&AS_MESSAGE_LOG_FD)
+ (eval "$ac_compile" 2>conftest.err)
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&AS_MESSAGE_LOG_FD)
+ (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out)
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ (eval echo "\"\$as_me:$LINENO: output\"" >&AS_MESSAGE_LOG_FD)
+ cat conftest.out >&AS_MESSAGE_LOG_FD
+ if $GREP 'External.*some_variable' conftest.out > /dev/null; then
+ lt_cv_nm_interface="MS dumpbin"
+ fi
+ rm -f conftest*])
+])# LT_PATH_NM
+
+# Old names:
+AU_ALIAS([AM_PROG_NM], [LT_PATH_NM])
+AU_ALIAS([AC_PROG_NM], [LT_PATH_NM])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AM_PROG_NM], [])
+dnl AC_DEFUN([AC_PROG_NM], [])
+
+# _LT_CHECK_SHAREDLIB_FROM_LINKLIB
+# --------------------------------
+# how to determine the name of the shared library
+# associated with a specific link library.
+# -- PORTME fill in with the dynamic library characteristics
+m4_defun([_LT_CHECK_SHAREDLIB_FROM_LINKLIB],
+[m4_require([_LT_DECL_EGREP])
+m4_require([_LT_DECL_OBJDUMP])
+m4_require([_LT_DECL_DLLTOOL])
+AC_CACHE_CHECK([how to associate runtime and link libraries],
+lt_cv_sharedlib_from_linklib_cmd,
+[lt_cv_sharedlib_from_linklib_cmd='unknown'
+
+case $host_os in
+cygwin* | mingw* | pw32* | cegcc*)
+ # two different shell functions defined in ltmain.sh;
+ # decide which one to use based on capabilities of $DLLTOOL
+ case `$DLLTOOL --help 2>&1` in
+ *--identify-strict*)
+ lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib
+ ;;
+ *)
+ lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback
+ ;;
+ esac
+ ;;
+*)
+ # fallback: assume linklib IS sharedlib
+ lt_cv_sharedlib_from_linklib_cmd=$ECHO
+ ;;
+esac
+])
+sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd
+test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO
+
+_LT_DECL([], [sharedlib_from_linklib_cmd], [1],
+ [Command to associate shared and link libraries])
+])# _LT_CHECK_SHAREDLIB_FROM_LINKLIB
+
+
+# _LT_PATH_MANIFEST_TOOL
+# ----------------------
+# locate the manifest tool
+m4_defun([_LT_PATH_MANIFEST_TOOL],
+[AC_CHECK_TOOL(MANIFEST_TOOL, mt, :)
+test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt
+AC_CACHE_CHECK([if $MANIFEST_TOOL is a manifest tool], [lt_cv_path_mainfest_tool],
+ [lt_cv_path_mainfest_tool=no
+ echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&AS_MESSAGE_LOG_FD
+ $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ if $GREP 'Manifest Tool' conftest.out > /dev/null; then
+ lt_cv_path_mainfest_tool=yes
+ fi
+ rm -f conftest*])
+if test yes != "$lt_cv_path_mainfest_tool"; then
+ MANIFEST_TOOL=:
+fi
+_LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl
+])# _LT_PATH_MANIFEST_TOOL
+
+
+# _LT_DLL_DEF_P([FILE])
+# ---------------------
+# True iff FILE is a Windows DLL '.def' file.
+# Keep in sync with func_dll_def_p in the libtool script
+AC_DEFUN([_LT_DLL_DEF_P],
+[dnl
+ test DEF = "`$SED -n dnl
+ -e '\''s/^[[ ]]*//'\'' dnl Strip leading whitespace
+ -e '\''/^\(;.*\)*$/d'\'' dnl Delete empty lines and comments
+ -e '\''s/^\(EXPORTS\|LIBRARY\)\([[ ]].*\)*$/DEF/p'\'' dnl
+ -e q dnl Only consider the first "real" line
+ $1`" dnl
+])# _LT_DLL_DEF_P
+
+
+# LT_LIB_M
+# --------
+# check for math library
+AC_DEFUN([LT_LIB_M],
+[AC_REQUIRE([AC_CANONICAL_HOST])dnl
+LIBM=
+case $host in
+*-*-beos* | *-*-cegcc* | *-*-cygwin* | *-*-haiku* | *-*-pw32* | *-*-darwin*)
+ # These system don't have libm, or don't need it
+ ;;
+*-ncr-sysv4.3*)
+ AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM=-lmw)
+ AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm")
+ ;;
+*)
+ AC_CHECK_LIB(m, cos, LIBM=-lm)
+ ;;
+esac
+AC_SUBST([LIBM])
+])# LT_LIB_M
+
+# Old name:
+AU_ALIAS([AC_CHECK_LIBM], [LT_LIB_M])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_CHECK_LIBM], [])
+
+
+# _LT_COMPILER_NO_RTTI([TAGNAME])
+# -------------------------------
+m4_defun([_LT_COMPILER_NO_RTTI],
+[m4_require([_LT_TAG_COMPILER])dnl
+
+_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=
+
+if test yes = "$GCC"; then
+ case $cc_basename in
+ nvcc*)
+ _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -Xcompiler -fno-builtin' ;;
+ *)
+ _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' ;;
+ esac
+
+ _LT_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions],
+ lt_cv_prog_compiler_rtti_exceptions,
+ [-fno-rtti -fno-exceptions], [],
+ [_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"])
+fi
+_LT_TAGDECL([no_builtin_flag], [lt_prog_compiler_no_builtin_flag], [1],
+ [Compiler flag to turn off builtin functions])
+])# _LT_COMPILER_NO_RTTI
+
+
+# _LT_CMD_GLOBAL_SYMBOLS
+# ----------------------
+m4_defun([_LT_CMD_GLOBAL_SYMBOLS],
+[AC_REQUIRE([AC_CANONICAL_HOST])dnl
+AC_REQUIRE([AC_PROG_CC])dnl
+AC_REQUIRE([AC_PROG_AWK])dnl
+AC_REQUIRE([LT_PATH_NM])dnl
+AC_REQUIRE([LT_PATH_LD])dnl
+m4_require([_LT_DECL_SED])dnl
+m4_require([_LT_DECL_EGREP])dnl
+m4_require([_LT_TAG_COMPILER])dnl
+
+# Check for command to grab the raw symbol name followed by C symbol from nm.
+AC_MSG_CHECKING([command to parse $NM output from $compiler object])
+AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe],
+[
+# These are sane defaults that work on at least a few old systems.
+# [They come from Ultrix. What could be older than Ultrix?!! ;)]
+
+# Character class describing NM global symbol codes.
+symcode='[[BCDEGRST]]'
+
+# Regexp to match symbols that can be accessed directly from C.
+sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)'
+
+# Define system-specific variables.
+case $host_os in
+aix*)
+ symcode='[[BCDT]]'
+ ;;
+cygwin* | mingw* | pw32* | cegcc*)
+ symcode='[[ABCDGISTW]]'
+ ;;
+hpux*)
+ if test ia64 = "$host_cpu"; then
+ symcode='[[ABCDEGRST]]'
+ fi
+ ;;
+irix* | nonstopux*)
+ symcode='[[BCDEGRST]]'
+ ;;
+osf*)
+ symcode='[[BCDEGQRST]]'
+ ;;
+solaris*)
+ symcode='[[BDRT]]'
+ ;;
+sco3.2v5*)
+ symcode='[[DT]]'
+ ;;
+sysv4.2uw2*)
+ symcode='[[DT]]'
+ ;;
+sysv5* | sco5v6* | unixware* | OpenUNIX*)
+ symcode='[[ABDT]]'
+ ;;
+sysv4)
+ symcode='[[DFNSTU]]'
+ ;;
+esac
+
+# If we're using GNU nm, then use its standard symbol codes.
+case `$NM -V 2>&1` in
+*GNU* | *'with BFD'*)
+ symcode='[[ABCDGIRSTW]]' ;;
+esac
+
+if test "$lt_cv_nm_interface" = "MS dumpbin"; then
+ # Gets list of data symbols to import.
+ lt_cv_sys_global_symbol_to_import="sed -n -e 's/^I .* \(.*\)$/\1/p'"
+ # Adjust the below global symbol transforms to fixup imported variables.
+ lt_cdecl_hook=" -e 's/^I .* \(.*\)$/extern __declspec(dllimport) char \1;/p'"
+ lt_c_name_hook=" -e 's/^I .* \(.*\)$/ {\"\1\", (void *) 0},/p'"
+ lt_c_name_lib_hook="\
+ -e 's/^I .* \(lib.*\)$/ {\"\1\", (void *) 0},/p'\
+ -e 's/^I .* \(.*\)$/ {\"lib\1\", (void *) 0},/p'"
+else
+ # Disable hooks by default.
+ lt_cv_sys_global_symbol_to_import=
+ lt_cdecl_hook=
+ lt_c_name_hook=
+ lt_c_name_lib_hook=
+fi
+
+# Transform an extracted symbol line into a proper C declaration.
+# Some systems (esp. on ia64) link data and code symbols differently,
+# so use this general approach.
+lt_cv_sys_global_symbol_to_cdecl="sed -n"\
+$lt_cdecl_hook\
+" -e 's/^T .* \(.*\)$/extern int \1();/p'"\
+" -e 's/^$symcode$symcode* .* \(.*\)$/extern char \1;/p'"
+
+# Transform an extracted symbol line into symbol name and symbol address
+lt_cv_sys_global_symbol_to_c_name_address="sed -n"\
+$lt_c_name_hook\
+" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\
+" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/p'"
+
+# Transform an extracted symbol line into symbol name with lib prefix and
+# symbol address.
+lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n"\
+$lt_c_name_lib_hook\
+" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\
+" -e 's/^$symcode$symcode* .* \(lib.*\)$/ {\"\1\", (void *) \&\1},/p'"\
+" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"lib\1\", (void *) \&\1},/p'"
+
+# Handle CRLF in mingw tool chain
+opt_cr=
+case $build_os in
+mingw*)
+ opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp
+ ;;
+esac
+
+# Try without a prefix underscore, then with it.
+for ac_symprfx in "" "_"; do
+
+ # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol.
+ symxfrm="\\1 $ac_symprfx\\2 \\2"
+
+ # Write the raw and C identifiers.
+ if test "$lt_cv_nm_interface" = "MS dumpbin"; then
+ # Fake it for dumpbin and say T for any non-static function,
+ # D for any global variable and I for any imported variable.
+ # Also find C++ and __fastcall symbols from MSVC++,
+ # which start with @ or ?.
+ lt_cv_sys_global_symbol_pipe="$AWK ['"\
+" {last_section=section; section=\$ 3};"\
+" /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\
+" /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\
+" /^ *Symbol name *: /{split(\$ 0,sn,\":\"); si=substr(sn[2],2)};"\
+" /^ *Type *: code/{print \"T\",si,substr(si,length(prfx))};"\
+" /^ *Type *: data/{print \"I\",si,substr(si,length(prfx))};"\
+" \$ 0!~/External *\|/{next};"\
+" / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\
+" {if(hide[section]) next};"\
+" {f=\"D\"}; \$ 0~/\(\).*\|/{f=\"T\"};"\
+" {split(\$ 0,a,/\||\r/); split(a[2],s)};"\
+" s[1]~/^[@?]/{print f,s[1],s[1]; next};"\
+" s[1]~prfx {split(s[1],t,\"@\"); print f,t[1],substr(t[1],length(prfx))}"\
+" ' prfx=^$ac_symprfx]"
+ else
+ lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'"
+ fi
+ lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'"
+
+ # Check to see that the pipe works correctly.
+ pipe_works=no
+
+ rm -f conftest*
+ cat > conftest.$ac_ext <<_LT_EOF
+#ifdef __cplusplus
+extern "C" {
+#endif
+char nm_test_var;
+void nm_test_func(void);
+void nm_test_func(void){}
+#ifdef __cplusplus
+}
+#endif
+int main(){nm_test_var='a';nm_test_func();return(0);}
+_LT_EOF
+
+ if AC_TRY_EVAL(ac_compile); then
+ # Now try to grab the symbols.
+ nlist=conftest.nm
+ if AC_TRY_EVAL(NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) && test -s "$nlist"; then
+ # Try sorting and uniquifying the output.
+ if sort "$nlist" | uniq > "$nlist"T; then
+ mv -f "$nlist"T "$nlist"
+ else
+ rm -f "$nlist"T
+ fi
+
+ # Make sure that we snagged all the symbols we need.
+ if $GREP ' nm_test_var$' "$nlist" >/dev/null; then
+ if $GREP ' nm_test_func$' "$nlist" >/dev/null; then
+ cat <<_LT_EOF > conftest.$ac_ext
+/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */
+#if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE
+/* DATA imports from DLLs on WIN32 can't be const, because runtime
+ relocations are performed -- see ld's documentation on pseudo-relocs. */
+# define LT@&t@_DLSYM_CONST
+#elif defined __osf__
+/* This system does not cope well with relocations in const data. */
+# define LT@&t@_DLSYM_CONST
+#else
+# define LT@&t@_DLSYM_CONST const
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+_LT_EOF
+ # Now generate the symbol file.
+ eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext'
+
+ cat <<_LT_EOF >> conftest.$ac_ext
+
+/* The mapping between symbol names and symbols. */
+LT@&t@_DLSYM_CONST struct {
+ const char *name;
+ void *address;
+}
+lt__PROGRAM__LTX_preloaded_symbols[[]] =
+{
+ { "@PROGRAM@", (void *) 0 },
+_LT_EOF
+ $SED "s/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext
+ cat <<\_LT_EOF >> conftest.$ac_ext
+ {0, (void *) 0}
+};
+
+/* This works around a problem in FreeBSD linker */
+#ifdef FREEBSD_WORKAROUND
+static const void *lt_preloaded_setup() {
+ return lt__PROGRAM__LTX_preloaded_symbols;
+}
+#endif
+
+#ifdef __cplusplus
+}
+#endif
+_LT_EOF
+ # Now try linking the two files.
+ mv conftest.$ac_objext conftstm.$ac_objext
+ lt_globsym_save_LIBS=$LIBS
+ lt_globsym_save_CFLAGS=$CFLAGS
+ LIBS=conftstm.$ac_objext
+ CFLAGS="$CFLAGS$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)"
+ if AC_TRY_EVAL(ac_link) && test -s conftest$ac_exeext; then
+ pipe_works=yes
+ fi
+ LIBS=$lt_globsym_save_LIBS
+ CFLAGS=$lt_globsym_save_CFLAGS
+ else
+ echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD
+ fi
+ else
+ echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD
+ fi
+ else
+ echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD
+ fi
+ else
+ echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD
+ cat conftest.$ac_ext >&5
+ fi
+ rm -rf conftest* conftst*
+
+ # Do not use the global_symbol_pipe unless it works.
+ if test yes = "$pipe_works"; then
+ break
+ else
+ lt_cv_sys_global_symbol_pipe=
+ fi
+done
+])
+if test -z "$lt_cv_sys_global_symbol_pipe"; then
+ lt_cv_sys_global_symbol_to_cdecl=
+fi
+if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then
+ AC_MSG_RESULT(failed)
+else
+ AC_MSG_RESULT(ok)
+fi
+
+# Response file support.
+if test "$lt_cv_nm_interface" = "MS dumpbin"; then
+ nm_file_list_spec='@'
+elif $NM --help 2>/dev/null | grep '[[@]]FILE' >/dev/null; then
+ nm_file_list_spec='@'
+fi
+
+_LT_DECL([global_symbol_pipe], [lt_cv_sys_global_symbol_pipe], [1],
+ [Take the output of nm and produce a listing of raw symbols and C names])
+_LT_DECL([global_symbol_to_cdecl], [lt_cv_sys_global_symbol_to_cdecl], [1],
+ [Transform the output of nm in a proper C declaration])
+_LT_DECL([global_symbol_to_import], [lt_cv_sys_global_symbol_to_import], [1],
+ [Transform the output of nm into a list of symbols to manually relocate])
+_LT_DECL([global_symbol_to_c_name_address],
+ [lt_cv_sys_global_symbol_to_c_name_address], [1],
+ [Transform the output of nm in a C name address pair])
+_LT_DECL([global_symbol_to_c_name_address_lib_prefix],
+ [lt_cv_sys_global_symbol_to_c_name_address_lib_prefix], [1],
+ [Transform the output of nm in a C name address pair when lib prefix is needed])
+_LT_DECL([nm_interface], [lt_cv_nm_interface], [1],
+ [The name lister interface])
+_LT_DECL([], [nm_file_list_spec], [1],
+ [Specify filename containing input files for $NM])
+]) # _LT_CMD_GLOBAL_SYMBOLS
+
+
+# _LT_COMPILER_PIC([TAGNAME])
+# ---------------------------
+m4_defun([_LT_COMPILER_PIC],
+[m4_require([_LT_TAG_COMPILER])dnl
+_LT_TAGVAR(lt_prog_compiler_wl, $1)=
+_LT_TAGVAR(lt_prog_compiler_pic, $1)=
+_LT_TAGVAR(lt_prog_compiler_static, $1)=
+
+m4_if([$1], [CXX], [
+ # C++ specific cases for pic, static, wl, etc.
+ if test yes = "$GXX"; then
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
+
+ case $host_os in
+ aix*)
+ # All AIX code is PIC.
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ fi
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ m68k)
+ # FIXME: we need at least 68020 code to build shared libraries, but
+ # adding the '-m68020' flag to GCC prevents building anything better,
+ # like '-m68040'.
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4'
+ ;;
+ esac
+ ;;
+
+ beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
+ # PIC is the default for these OSes.
+ ;;
+ mingw* | cygwin* | os2* | pw32* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ # Although the cygwin gcc ignores -fPIC, still need this for old-style
+ # (--disable-auto-import) libraries
+ m4_if([$1], [GCJ], [],
+ [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'])
+ case $host_os in
+ os2*)
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-static'
+ ;;
+ esac
+ ;;
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common'
+ ;;
+ *djgpp*)
+ # DJGPP does not support shared libraries at all
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)=
+ ;;
+ haiku*)
+ # PIC is the default for Haiku.
+ # The "-static" flag exists, but is broken.
+ _LT_TAGVAR(lt_prog_compiler_static, $1)=
+ ;;
+ interix[[3-9]]*)
+ # Interix 3.x gcc -fpic/-fPIC options generate broken code.
+ # Instead, we relocate shared libraries at runtime.
+ ;;
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic
+ fi
+ ;;
+ hpux*)
+ # PIC is the default for 64-bit PA HP-UX, but not for 32-bit
+ # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
+ # sets the default TLS model and affects inlining.
+ case $host_cpu in
+ hppa*64*)
+ ;;
+ *)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ esac
+ ;;
+ *qnx* | *nto*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared'
+ ;;
+ *)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ esac
+ else
+ case $host_os in
+ aix[[4-9]]*)
+ # All AIX code is PIC.
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ else
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp'
+ fi
+ ;;
+ chorus*)
+ case $cc_basename in
+ cxch68*)
+ # Green Hills C++ Compiler
+ # _LT_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a"
+ ;;
+ esac
+ ;;
+ mingw* | cygwin* | os2* | pw32* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ m4_if([$1], [GCJ], [],
+ [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'])
+ ;;
+ dgux*)
+ case $cc_basename in
+ ec++*)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ ;;
+ ghcx*)
+ # Green Hills C++ Compiler
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ freebsd* | dragonfly*)
+ # FreeBSD uses GNU C++
+ ;;
+ hpux9* | hpux10* | hpux11*)
+ case $cc_basename in
+ CC*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-a ${wl}archive'
+ if test ia64 != "$host_cpu"; then
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z'
+ fi
+ ;;
+ aCC*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-a ${wl}archive'
+ case $host_cpu in
+ hppa*64*|ia64*)
+ # +Z the default
+ ;;
+ *)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z'
+ ;;
+ esac
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ interix*)
+ # This is c89, which is MS Visual C++ (no shared libs)
+ # Anyone wants to do a port?
+ ;;
+ irix5* | irix6* | nonstopux*)
+ case $cc_basename in
+ CC*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ # CC pic flag -KPIC is the default.
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ case $cc_basename in
+ KCC*)
+ # KAI C++ Compiler
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ ecpc* )
+ # old Intel C++ for x86_64, which still supported -KPIC.
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
+ ;;
+ icpc* )
+ # Intel C++, used to be incompatible with GCC.
+ # ICC 10 doesn't accept -KPIC any more.
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
+ ;;
+ pgCC* | pgcpp*)
+ # Portland Group C++ compiler
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+ cxx*)
+ # Compaq C++
+ # Make sure the PIC flag is empty. It appears that all Alpha
+ # Linux and Compaq Tru64 Unix objects are PIC.
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)=
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+ xlc* | xlC* | bgxl[[cC]]* | mpixl[[cC]]*)
+ # IBM XL 8.0, 9.0 on PPC and BlueGene
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink'
+ ;;
+ *)
+ case `$CC -V 2>&1 | sed 5q` in
+ *Sun\ C*)
+ # Sun C++ 5.9
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
+ ;;
+ esac
+ ;;
+ esac
+ ;;
+ lynxos*)
+ ;;
+ m88k*)
+ ;;
+ mvs*)
+ case $cc_basename in
+ cxx*)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ netbsd*)
+ ;;
+ *qnx* | *nto*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared'
+ ;;
+ osf3* | osf4* | osf5*)
+ case $cc_basename in
+ KCC*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,'
+ ;;
+ RCC*)
+ # Rational C++ 2.4.1
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ ;;
+ cxx*)
+ # Digital/Compaq C++
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # Make sure the PIC flag is empty. It appears that all Alpha
+ # Linux and Compaq Tru64 Unix objects are PIC.
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)=
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ psos*)
+ ;;
+ solaris*)
+ case $cc_basename in
+ CC* | sunCC*)
+ # Sun C++ 4.2, 5.x and Centerline C++
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
+ ;;
+ gcx*)
+ # Green Hills C++ Compiler
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ sunos4*)
+ case $cc_basename in
+ CC*)
+ # Sun C++ 4.x
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+ lcc*)
+ # Lucid
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
+ case $cc_basename in
+ CC*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+ esac
+ ;;
+ tandem*)
+ case $cc_basename in
+ NCC*)
+ # NonStop-UX NCC 3.20
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ vxworks*)
+ ;;
+ *)
+ _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
+ ;;
+ esac
+ fi
+],
+[
+ if test yes = "$GCC"; then
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
+
+ case $host_os in
+ aix*)
+ # All AIX code is PIC.
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ fi
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ m68k)
+ # FIXME: we need at least 68020 code to build shared libraries, but
+ # adding the '-m68020' flag to GCC prevents building anything better,
+ # like '-m68040'.
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4'
+ ;;
+ esac
+ ;;
+
+ beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
+ # PIC is the default for these OSes.
+ ;;
+
+ mingw* | cygwin* | pw32* | os2* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ # Although the cygwin gcc ignores -fPIC, still need this for old-style
+ # (--disable-auto-import) libraries
+ m4_if([$1], [GCJ], [],
+ [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'])
+ case $host_os in
+ os2*)
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-static'
+ ;;
+ esac
+ ;;
+
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common'
+ ;;
+
+ haiku*)
+ # PIC is the default for Haiku.
+ # The "-static" flag exists, but is broken.
+ _LT_TAGVAR(lt_prog_compiler_static, $1)=
+ ;;
+
+ hpux*)
+ # PIC is the default for 64-bit PA HP-UX, but not for 32-bit
+ # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
+ # sets the default TLS model and affects inlining.
+ case $host_cpu in
+ hppa*64*)
+ # +Z the default
+ ;;
+ *)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ esac
+ ;;
+
+ interix[[3-9]]*)
+ # Interix 3.x gcc -fpic/-fPIC options generate broken code.
+ # Instead, we relocate shared libraries at runtime.
+ ;;
+
+ msdosdjgpp*)
+ # Just because we use GCC doesn't mean we suddenly get shared libraries
+ # on systems that don't support them.
+ _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
+ enable_shared=no
+ ;;
+
+ *nto* | *qnx*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic
+ fi
+ ;;
+
+ *)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ esac
+
+ case $cc_basename in
+ nvcc*) # Cuda Compiler Driver 2.2
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Xlinker '
+ if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)="-Xcompiler $_LT_TAGVAR(lt_prog_compiler_pic, $1)"
+ fi
+ ;;
+ esac
+ else
+ # PORTME Check for flag to pass linker flags through the system compiler.
+ case $host_os in
+ aix*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ if test ia64 = "$host_cpu"; then
+ # AIX 5 now supports IA64 processor
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ else
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp'
+ fi
+ ;;
+
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common'
+ case $cc_basename in
+ nagfor*)
+ # NAG Fortran compiler
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+ esac
+ ;;
+
+ mingw* | cygwin* | pw32* | os2* | cegcc*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ m4_if([$1], [GCJ], [],
+ [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'])
+ case $host_os in
+ os2*)
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-static'
+ ;;
+ esac
+ ;;
+
+ hpux9* | hpux10* | hpux11*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
+ # not for PA HP-UX.
+ case $host_cpu in
+ hppa*64*|ia64*)
+ # +Z the default
+ ;;
+ *)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z'
+ ;;
+ esac
+ # Is there a better lt_prog_compiler_static that works with the bundled CC?
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-a ${wl}archive'
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # PIC (with -KPIC) is the default.
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+
+ linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ case $cc_basename in
+ # old Intel for x86_64, which still supported -KPIC.
+ ecc*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
+ ;;
+ # icc used to be incompatible with GCC.
+ # ICC 10 doesn't accept -KPIC any more.
+ icc* | ifort*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
+ ;;
+ # Lahey Fortran 8.1.
+ lf95*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='--shared'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='--static'
+ ;;
+ nagfor*)
+ # NAG Fortran compiler
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+ tcc*)
+ # Fabrice Bellard et al's Tiny C Compiler
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
+ ;;
+ pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
+ # Portland Group compilers (*not* the Pentium gcc compiler,
+ # which looks to be a dead project)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+ ccc*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # All Alpha code is PIC.
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+ xl* | bgxl* | bgf* | mpixl*)
+ # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink'
+ ;;
+ *)
+ case `$CC -V 2>&1 | sed 5q` in
+ *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [[1-7]].* | *Sun*Fortran*\ 8.[[0-3]]*)
+ # Sun Fortran 8.3 passes all unrecognized flags to the linker
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)=''
+ ;;
+ *Sun\ F* | *Sun*Fortran*)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
+ ;;
+ *Sun\ C*)
+ # Sun C 5.9
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ ;;
+ *Intel*\ [[CF]]*Compiler*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
+ ;;
+ *Portland\ Group*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+ esac
+ ;;
+ esac
+ ;;
+
+ newsos6)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ *nto* | *qnx*)
+ # QNX uses GNU C++, but need to define -shared option too, otherwise
+ # it will coredump.
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared'
+ ;;
+
+ osf3* | osf4* | osf5*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # All OSF/1 code is PIC.
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+
+ rdos*)
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+
+ solaris*)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ case $cc_basename in
+ f77* | f90* | f95* | sunf77* | sunf90* | sunf95*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';;
+ *)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';;
+ esac
+ ;;
+
+ sunos4*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ sysv4 | sysv4.2uw2* | sysv4.3*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ fi
+ ;;
+
+ sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ unicos*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
+ ;;
+
+ uts4*)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ *)
+ _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
+ ;;
+ esac
+ fi
+])
+case $host_os in
+ # For platforms that do not support PIC, -DPIC is meaningless:
+ *djgpp*)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)=
+ ;;
+ *)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])"
+ ;;
+esac
+
+AC_CACHE_CHECK([for $compiler option to produce PIC],
+ [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)],
+ [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_prog_compiler_pic, $1)])
+_LT_TAGVAR(lt_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)
+
+#
+# Check to make sure the PIC flag actually works.
+#
+if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then
+ _LT_COMPILER_OPTION([if $compiler PIC flag $_LT_TAGVAR(lt_prog_compiler_pic, $1) works],
+ [_LT_TAGVAR(lt_cv_prog_compiler_pic_works, $1)],
+ [$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])], [],
+ [case $_LT_TAGVAR(lt_prog_compiler_pic, $1) in
+ "" | " "*) ;;
+ *) _LT_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_TAGVAR(lt_prog_compiler_pic, $1)" ;;
+ esac],
+ [_LT_TAGVAR(lt_prog_compiler_pic, $1)=
+ _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no])
+fi
+_LT_TAGDECL([pic_flag], [lt_prog_compiler_pic], [1],
+ [Additional compiler flags for building library objects])
+
+_LT_TAGDECL([wl], [lt_prog_compiler_wl], [1],
+ [How to pass a linker flag through the compiler])
+#
+# Check to make sure the static flag actually works.
+#
+wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) eval lt_tmp_static_flag=\"$_LT_TAGVAR(lt_prog_compiler_static, $1)\"
+_LT_LINKER_OPTION([if $compiler static flag $lt_tmp_static_flag works],
+ _LT_TAGVAR(lt_cv_prog_compiler_static_works, $1),
+ $lt_tmp_static_flag,
+ [],
+ [_LT_TAGVAR(lt_prog_compiler_static, $1)=])
+_LT_TAGDECL([link_static_flag], [lt_prog_compiler_static], [1],
+ [Compiler flag to prevent dynamic linking])
+])# _LT_COMPILER_PIC
+
+
+# _LT_LINKER_SHLIBS([TAGNAME])
+# ----------------------------
+# See if the linker supports building shared libraries.
+m4_defun([_LT_LINKER_SHLIBS],
+[AC_REQUIRE([LT_PATH_LD])dnl
+AC_REQUIRE([LT_PATH_NM])dnl
+m4_require([_LT_PATH_MANIFEST_TOOL])dnl
+m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+m4_require([_LT_DECL_EGREP])dnl
+m4_require([_LT_DECL_SED])dnl
+m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl
+m4_require([_LT_TAG_COMPILER])dnl
+AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries])
+m4_if([$1], [CXX], [
+ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*']
+ case $host_os in
+ aix[[4-9]]*)
+ # If we're using GNU nm, then we don't want the "-C" option.
+ # -C means demangle to GNU nm, but means don't demangle to AIX nm.
+ # Without the "-l" option, or with the "-B" option, AIX nm treats
+ # weak defined symbols like other global defined symbols, whereas
+ # GNU nm marks them as "W".
+ # While the 'weak' keyword is ignored in the Export File, we need
+ # it in the Import File for the 'aix-soname' feature, so we have
+ # to replace the "-B" option with "-P" for AIX nm.
+ if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
+ _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols'
+ else
+ _LT_TAGVAR(export_symbols_cmds, $1)='`func_echo_all $NM | $SED -e '\''s/B\([[^B]]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && ([substr](\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols'
+ fi
+ ;;
+ pw32*)
+ _LT_TAGVAR(export_symbols_cmds, $1)=$ltdll_cmds
+ ;;
+ cygwin* | mingw* | cegcc*)
+ case $cc_basename in
+ cl*)
+ _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
+ ;;
+ *)
+ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols'
+ _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname']
+ ;;
+ esac
+ ;;
+ *)
+ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ ;;
+ esac
+], [
+ runpath_var=
+ _LT_TAGVAR(allow_undefined_flag, $1)=
+ _LT_TAGVAR(always_export_symbols, $1)=no
+ _LT_TAGVAR(archive_cmds, $1)=
+ _LT_TAGVAR(archive_expsym_cmds, $1)=
+ _LT_TAGVAR(compiler_needs_object, $1)=no
+ _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)=
+ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ _LT_TAGVAR(hardcode_automatic, $1)=no
+ _LT_TAGVAR(hardcode_direct, $1)=no
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=no
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=
+ _LT_TAGVAR(hardcode_minus_L, $1)=no
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
+ _LT_TAGVAR(inherit_rpath, $1)=no
+ _LT_TAGVAR(link_all_deplibs, $1)=unknown
+ _LT_TAGVAR(module_cmds, $1)=
+ _LT_TAGVAR(module_expsym_cmds, $1)=
+ _LT_TAGVAR(old_archive_from_new_cmds, $1)=
+ _LT_TAGVAR(old_archive_from_expsyms_cmds, $1)=
+ _LT_TAGVAR(thread_safe_flag_spec, $1)=
+ _LT_TAGVAR(whole_archive_flag_spec, $1)=
+ # include_expsyms should be a list of space-separated symbols to be *always*
+ # included in the symbol list
+ _LT_TAGVAR(include_expsyms, $1)=
+ # exclude_expsyms can be an extended regexp of symbols to exclude
+ # it will be wrapped by ' (' and ')$', so one must not match beginning or
+ # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc',
+ # as well as any symbol that contains 'd'.
+ _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*']
+ # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
+ # platforms (ab)use it in PIC code, but their linkers get confused if
+ # the symbol is explicitly referenced. Since portable code cannot
+ # rely on this symbol name, it's probably fine to never include it in
+ # preloaded symbol tables.
+ # Exclude shared library initialization/finalization symbols.
+dnl Note also adjust exclude_expsyms for C++ above.
+ extract_expsyms_cmds=
+
+ case $host_os in
+ cygwin* | mingw* | pw32* | cegcc*)
+ # FIXME: the MSVC++ port hasn't been tested in a loooong time
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ if test yes != "$GCC"; then
+ with_gnu_ld=no
+ fi
+ ;;
+ interix*)
+ # we just hope/assume this is gcc and not c89 (= MSVC++)
+ with_gnu_ld=yes
+ ;;
+ openbsd* | bitrig*)
+ with_gnu_ld=no
+ ;;
+ esac
+
+ _LT_TAGVAR(ld_shlibs, $1)=yes
+
+ # On some targets, GNU ld is compatible enough with the native linker
+ # that we're better off using the native interface for both.
+ lt_use_gnu_ld_interface=no
+ if test yes = "$with_gnu_ld"; then
+ case $host_os in
+ aix*)
+ # The AIX port of GNU ld has always aspired to compatibility
+ # with the native linker. However, as the warning in the GNU ld
+ # block says, versions before 2.19.5* couldn't really create working
+ # shared libraries, regardless of the interface used.
+ case `$LD -v 2>&1` in
+ *\ \(GNU\ Binutils\)\ 2.19.5*) ;;
+ *\ \(GNU\ Binutils\)\ 2.[[2-9]]*) ;;
+ *\ \(GNU\ Binutils\)\ [[3-9]]*) ;;
+ *)
+ lt_use_gnu_ld_interface=yes
+ ;;
+ esac
+ ;;
+ *)
+ lt_use_gnu_ld_interface=yes
+ ;;
+ esac
+ fi
+
+ if test yes = "$lt_use_gnu_ld_interface"; then
+ # If archive_cmds runs LD, not CC, wlarc should be empty
+ wlarc='$wl'
+
+ # Set some defaults for GNU ld with shared library support. These
+ # are reset later if shared libraries are not supported. Putting them
+ # here allows them to be overridden if necessary.
+ runpath_var=LD_RUN_PATH
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic'
+ # ancient GNU ld didn't support --whole-archive et. al.
+ if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
+ _LT_TAGVAR(whole_archive_flag_spec, $1)=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive'
+ else
+ _LT_TAGVAR(whole_archive_flag_spec, $1)=
+ fi
+ supports_anon_versioning=no
+ case `$LD -v | $SED -e 's/([^)]\+)\s\+//' 2>&1` in
+ *GNU\ gold*) supports_anon_versioning=yes ;;
+ *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11
+ *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
+ *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
+ *\ 2.11.*) ;; # other 2.11 versions
+ *) supports_anon_versioning=yes ;;
+ esac
+
+ # See if GNU ld supports shared libraries.
+ case $host_os in
+ aix[[3-9]]*)
+ # On AIX/PPC, the GNU linker is very broken
+ if test ia64 != "$host_cpu"; then
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: the GNU linker, at least up to release 2.19, is reported
+*** to be unable to reliably create shared libraries on AIX.
+*** Therefore, libtool is disabling shared libraries support. If you
+*** really care for shared libraries, you may want to install binutils
+*** 2.20 or above, or modify your PATH so that a non-GNU linker is found.
+*** You will then need to restart the configuration process.
+
+_LT_EOF
+ fi
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)=''
+ ;;
+ m68k)
+ _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ ;;
+ esac
+ ;;
+
+ beos*)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ # Joseph Beckenbach <jrb3@best.com> says some releases of gcc
+ # support --undefined. This deserves some investigation. FIXME
+ _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless,
+ # as there is no search path for DLLs.
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-all-symbols'
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ _LT_TAGVAR(always_export_symbols, $1)=no
+ _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols'
+ _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname']
+
+ if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ # If the export-symbols file already is a .def file, use it as
+ # is; otherwise, prepend EXPORTS...
+ _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then
+ cp $export_symbols $output_objdir/$soname.def;
+ else
+ echo EXPORTS > $output_objdir/$soname.def;
+ cat $export_symbols >> $output_objdir/$soname.def;
+ fi~
+ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ haiku*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ ;;
+
+ os2*)
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ shrext_cmds=.dll
+ _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ _LT_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ ;;
+
+ interix[[3-9]]*)
+ _LT_TAGVAR(hardcode_direct, $1)=no
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E'
+ # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
+ # Instead, shared libraries are loaded at an image base (0x10000000 by
+ # default) and relocated if they conflict, which is a slow very memory
+ # consuming and fragmenting process. To avoid this, we pick a random,
+ # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
+ # time. Moving up from 0x10000000 also allows more sbrk(2) space.
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ ;;
+
+ gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
+ tmp_diet=no
+ if test linux-dietlibc = "$host_os"; then
+ case $cc_basename in
+ diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
+ esac
+ fi
+ if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
+ && test no = "$tmp_diet"
+ then
+ tmp_addflag=' $pic_flag'
+ tmp_sharedflag='-shared'
+ case $cc_basename,$host_cpu in
+ pgcc*) # Portland Group C compiler
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ tmp_addflag=' $pic_flag'
+ ;;
+ pgf77* | pgf90* | pgf95* | pgfortran*)
+ # Portland Group f77 and f90 compilers
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ tmp_addflag=' $pic_flag -Mnomain' ;;
+ ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
+ tmp_addflag=' -i_dynamic' ;;
+ efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
+ tmp_addflag=' -i_dynamic -nofor_main' ;;
+ ifc* | ifort*) # Intel Fortran compiler
+ tmp_addflag=' -nofor_main' ;;
+ lf95*) # Lahey Fortran 8.1
+ _LT_TAGVAR(whole_archive_flag_spec, $1)=
+ tmp_sharedflag='--shared' ;;
+ nagfor*) # NAGFOR 5.3
+ tmp_sharedflag='-Wl,-shared' ;;
+ xl[[cC]]* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL C 8.0 on PPC (deal with xlf below)
+ tmp_sharedflag='-qmkshrobj'
+ tmp_addflag= ;;
+ nvcc*) # Cuda Compiler Driver 2.2
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ _LT_TAGVAR(compiler_needs_object, $1)=yes
+ ;;
+ esac
+ case `$CC -V 2>&1 | sed 5q` in
+ *Sun\ C*) # Sun C 5.9
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ _LT_TAGVAR(compiler_needs_object, $1)=yes
+ tmp_sharedflag='-G' ;;
+ *Sun\ F*) # Sun Fortran 8.3
+ tmp_sharedflag='-G' ;;
+ esac
+ _LT_TAGVAR(archive_cmds, $1)='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+
+ if test yes = "$supports_anon_versioning"; then
+ _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib'
+ fi
+
+ case $cc_basename in
+ tcc*)
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='-rdynamic'
+ ;;
+ xlf* | bgf* | bgxlf* | mpixlf*)
+ # IBM XL Fortran 10.1 on PPC cannot create shared libs itself
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='--whole-archive$convenience --no-whole-archive'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib'
+ if test yes = "$supports_anon_versioning"; then
+ _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
+ fi
+ ;;
+ esac
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
+ wlarc=
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ fi
+ ;;
+
+ solaris*)
+ if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: The releases 2.8.* of the GNU linker cannot reliably
+*** create shared libraries on Solaris systems. Therefore, libtool
+*** is disabling shared libraries support. We urge you to upgrade GNU
+*** binutils to release 2.9.1 or newer. Another option is to modify
+*** your PATH or compiler configuration so that the native linker is
+*** used, and then restart.
+
+_LT_EOF
+ elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
+ case `$LD -v 2>&1` in
+ *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.1[[0-5]].*)
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ cat <<_LT_EOF 1>&2
+
+*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot
+*** reliably create shared libraries on SCO systems. Therefore, libtool
+*** is disabling shared libraries support. We urge you to upgrade GNU
+*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
+*** your PATH or compiler configuration so that the native linker is
+*** used, and then restart.
+
+_LT_EOF
+ ;;
+ *)
+ # For security reasons, it is highly recommended that you always
+ # use absolute paths for naming shared libraries, and exclude the
+ # DT_RUNPATH tag from executables and libraries. But doing so
+ # requires that you compile everything twice, which is a pain.
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+ ;;
+
+ sunos4*)
+ _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ wlarc=
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ *)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+
+ if test no = "$_LT_TAGVAR(ld_shlibs, $1)"; then
+ runpath_var=
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)=
+ _LT_TAGVAR(whole_archive_flag_spec, $1)=
+ fi
+ else
+ # PORTME fill in a description of your system's linker (not GNU ld)
+ case $host_os in
+ aix3*)
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ _LT_TAGVAR(always_export_symbols, $1)=yes
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
+ # Note: this linker hardcodes the directories in LIBPATH if there
+ # are no directories specified by -L.
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then
+ # Neither direct hardcoding nor static linking is supported with a
+ # broken collect2.
+ _LT_TAGVAR(hardcode_direct, $1)=unsupported
+ fi
+ ;;
+
+ aix[[4-9]]*)
+ if test ia64 = "$host_cpu"; then
+ # On IA64, the linker does run time linking by default, so we don't
+ # have to do anything special.
+ aix_use_runtimelinking=no
+ exp_sym_flag='-Bexport'
+ no_entry_flag=
+ else
+ # If we're using GNU nm, then we don't want the "-C" option.
+ # -C means demangle to GNU nm, but means don't demangle to AIX nm.
+ # Without the "-l" option, or with the "-B" option, AIX nm treats
+ # weak defined symbols like other global defined symbols, whereas
+ # GNU nm marks them as "W".
+ # While the 'weak' keyword is ignored in the Export File, we need
+ # it in the Import File for the 'aix-soname' feature, so we have
+ # to replace the "-B" option with "-P" for AIX nm.
+ if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
+ _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols'
+ else
+ _LT_TAGVAR(export_symbols_cmds, $1)='`func_echo_all $NM | $SED -e '\''s/B\([[^B]]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && ([substr](\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols'
+ fi
+ aix_use_runtimelinking=no
+
+ # Test if we are trying to use run time linking or normal
+ # AIX style linking. If -brtl is somewhere in LDFLAGS, we
+ # have runtime linking enabled, and use it for executables.
+ # For shared libraries, we enable/disable runtime linking
+ # depending on the kind of the shared library created -
+ # when "with_aix_soname,aix_use_runtimelinking" is:
+ # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables
+ # "aix,yes" lib.so shared, rtl:yes, for executables
+ # lib.a static archive
+ # "both,no" lib.so.V(shr.o) shared, rtl:yes
+ # lib.a(lib.so.V) shared, rtl:no, for executables
+ # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a(lib.so.V) shared, rtl:no
+ # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a static archive
+ case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*)
+ for ld_flag in $LDFLAGS; do
+ if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then
+ aix_use_runtimelinking=yes
+ break
+ fi
+ done
+ if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # With aix-soname=svr4, we create the lib.so.V shared archives only,
+ # so we don't have lib.a shared libs to link our executables.
+ # We have to force runtime linking in this case.
+ aix_use_runtimelinking=yes
+ LDFLAGS="$LDFLAGS -Wl,-brtl"
+ fi
+ ;;
+ esac
+
+ exp_sym_flag='-bexport'
+ no_entry_flag='-bnoentry'
+ fi
+
+ # When large executables or shared objects are built, AIX ld can
+ # have problems creating the table of contents. If linking a library
+ # or program results in "error TOC overflow" add -mminimal-toc to
+ # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
+ # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
+
+ _LT_TAGVAR(archive_cmds, $1)=''
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=yes
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=':'
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ _LT_TAGVAR(file_list_spec, $1)='$wl-f,'
+ case $with_aix_soname,$aix_use_runtimelinking in
+ aix,*) ;; # traditional, no import file
+ svr4,* | *,yes) # use import file
+ # The Import File defines what to hardcode.
+ _LT_TAGVAR(hardcode_direct, $1)=no
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=no
+ ;;
+ esac
+
+ if test yes = "$GCC"; then
+ case $host_os in aix4.[[012]]|aix4.[[012]].*)
+ # We only want to do this on AIX 4.2 and lower, the check
+ # below for broken collect2 doesn't work under 4.3+
+ collect2name=`$CC -print-prog-name=collect2`
+ if test -f "$collect2name" &&
+ strings "$collect2name" | $GREP resolve_lib_name >/dev/null
+ then
+ # We have reworked collect2
+ :
+ else
+ # We have old collect2
+ _LT_TAGVAR(hardcode_direct, $1)=unsupported
+ # It fails to find uninstalled libraries when the uninstalled
+ # path is not listed in the libpath. Setting hardcode_minus_L
+ # to unsupported forces relinking
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=
+ fi
+ ;;
+ esac
+ shared_flag='-shared'
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag="$shared_flag "'$wl-G'
+ fi
+ # Need to ensure runtime linking is disabled for the traditional
+ # shared library, or the linker may eventually find shared libraries
+ # /with/ Import File - we do not want to mix them.
+ shared_flag_aix='-shared'
+ shared_flag_svr4='-shared $wl-G'
+ else
+ # not using gcc
+ if test ia64 = "$host_cpu"; then
+ # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
+ # chokes on -Wl,-G. The following line is correct:
+ shared_flag='-G'
+ else
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag='$wl-G'
+ else
+ shared_flag='$wl-bM:SRE'
+ fi
+ shared_flag_aix='$wl-bM:SRE'
+ shared_flag_svr4='$wl-G'
+ fi
+ fi
+
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-bexpall'
+ # It seems that -bexpall does not export symbols beginning with
+ # underscore (_), so it is better to generate a list of symbols to export.
+ _LT_TAGVAR(always_export_symbols, $1)=yes
+ if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # Warning - without using the other runtime loading flags (-brtl),
+ # -berok will link without error, but may produce a broken library.
+ _LT_TAGVAR(allow_undefined_flag, $1)='-berok'
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ _LT_SYS_MODULE_PATH_AIX([$1])
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath"
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag
+ else
+ if test ia64 = "$host_cpu"; then
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R $libdir:/usr/lib:/lib'
+ _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs"
+ _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols"
+ else
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ _LT_SYS_MODULE_PATH_AIX([$1])
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath"
+ # Warning - without using the other run time loading flags,
+ # -berok will link without error, but may produce a broken library.
+ _LT_TAGVAR(no_undefined_flag, $1)=' $wl-bernotok'
+ _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-berok'
+ if test yes = "$with_gnu_ld"; then
+ # We only use this code for GNU lds that support --whole-archive.
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive$convenience $wl--no-whole-archive'
+ else
+ # Exported symbols can be pulled into shared objects from archives
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience'
+ fi
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=yes
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d'
+ # -brtl affects multiple linker settings, -berok does not and is overridden later
+ compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([[, ]]\\)%-berok\\1%g"`'
+ if test svr4 != "$with_aix_soname"; then
+ # This is similar to how AIX traditionally builds its shared libraries.
+ _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname'
+ fi
+ if test aix != "$with_aix_soname"; then
+ _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp'
+ else
+ # used by -dlpreopen to get the symbols
+ _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$MV $output_objdir/$realname.d/$soname $output_objdir'
+ fi
+ _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$RM -r $output_objdir/$realname.d'
+ fi
+ fi
+ ;;
+
+ amigaos*)
+ case $host_cpu in
+ powerpc)
+ # see comment about AmigaOS4 .so support
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)=''
+ ;;
+ m68k)
+ _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ ;;
+ esac
+ ;;
+
+ bsdi[[45]]*)
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ # hardcode_libdir_flag_spec is actually meaningless, as there is
+ # no search path for DLLs.
+ case $cc_basename in
+ cl*)
+ # Native MSVC
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' '
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ _LT_TAGVAR(always_export_symbols, $1)=yes
+ _LT_TAGVAR(file_list_spec, $1)='@'
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames='
+ _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then
+ cp "$export_symbols" "$output_objdir/$soname.def";
+ echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp";
+ else
+ $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp;
+ fi~
+ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
+ linknames='
+ # The linker will not automatically build a static lib if we build a DLL.
+ # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true'
+ _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
+ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1,DATA/'\'' | $SED -e '\''/^[[AITW]][[ ]]/s/.*[[ ]]//'\'' | sort | uniq > $export_symbols'
+ # Don't use ranlib
+ _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib'
+ _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~
+ lt_tool_outputfile="@TOOL_OUTPUT@"~
+ case $lt_outputfile in
+ *.exe|*.EXE) ;;
+ *)
+ lt_outputfile=$lt_outputfile.exe
+ lt_tool_outputfile=$lt_tool_outputfile.exe
+ ;;
+ esac~
+ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then
+ $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
+ $RM "$lt_outputfile.manifest";
+ fi'
+ ;;
+ *)
+ # Assume MSVC wrapper
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' '
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ _LT_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames='
+ # The linker will automatically build a .lib file if we build a DLL.
+ _LT_TAGVAR(old_archive_from_new_cmds, $1)='true'
+ # FIXME: Should let the user specify the lib program.
+ _LT_TAGVAR(old_archive_cmds, $1)='lib -OUT:$oldlib$oldobjs$old_deplibs'
+ _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ ;;
+ esac
+ ;;
+
+ darwin* | rhapsody*)
+ _LT_DARWIN_LINKER_FEATURES($1)
+ ;;
+
+ dgux*)
+ _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
+ # support. Future versions do this automatically, but an explicit c++rt0.o
+ # does not break anything, and helps significantly (at the cost of a little
+ # extra space).
+ freebsd2.2*)
+ _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ # Unfortunately, older versions of FreeBSD 2 do not have this feature.
+ freebsd2.*)
+ _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ # FreeBSD 3 and greater uses gcc -shared to do shared libraries.
+ freebsd* | dragonfly*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ hpux9*)
+ if test yes = "$GCC"; then
+ _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ fi
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E'
+ ;;
+
+ hpux10*)
+ if test yes,no = "$GCC,$with_gnu_ld"; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
+ fi
+ if test no = "$with_gnu_ld"; then
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=yes
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E'
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ fi
+ ;;
+
+ hpux11*)
+ if test yes,no = "$GCC,$with_gnu_ld"; then
+ case $host_cpu in
+ hppa*64*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ ia64*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ else
+ case $host_cpu in
+ hppa*64*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ ia64*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ m4_if($1, [], [
+ # Older versions of the 11.00 compiler do not understand -b yet
+ # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does)
+ _LT_LINKER_OPTION([if $CC understands -b],
+ _LT_TAGVAR(lt_cv_prog_compiler__b, $1), [-b],
+ [_LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'],
+ [_LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'])],
+ [_LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'])
+ ;;
+ esac
+ fi
+ if test no = "$with_gnu_ld"; then
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ case $host_cpu in
+ hppa*64*|ia64*)
+ _LT_TAGVAR(hardcode_direct, $1)=no
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+ *)
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=yes
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E'
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ ;;
+ esac
+ fi
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ if test yes = "$GCC"; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ # Try to use the -exported_symbol ld option, if it does not
+ # work, assume that -exports_file does not work either and
+ # implicitly export all symbols.
+ # This should be the same for all languages, so no per-tag cache variable.
+ AC_CACHE_CHECK([whether the $host_os linker accepts -exported_symbol],
+ [lt_cv_irix_exported_symbol],
+ [save_LDFLAGS=$LDFLAGS
+ LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null"
+ AC_LINK_IFELSE(
+ [AC_LANG_SOURCE(
+ [AC_LANG_CASE([C], [[int foo (void) { return 0; }]],
+ [C++], [[int foo (void) { return 0; }]],
+ [Fortran 77], [[
+ subroutine foo
+ end]],
+ [Fortran], [[
+ subroutine foo
+ end]])])],
+ [lt_cv_irix_exported_symbol=yes],
+ [lt_cv_irix_exported_symbol=no])
+ LDFLAGS=$save_LDFLAGS])
+ if test yes = "$lt_cv_irix_exported_symbol"; then
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib'
+ fi
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib'
+ fi
+ _LT_TAGVAR(archive_cmds_need_lc, $1)='no'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_TAGVAR(inherit_rpath, $1)=yes
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ ;;
+
+ linux*)
+ case $cc_basename in
+ tcc*)
+ # Fabrice Bellard et al's Tiny C Compiler
+ _LT_TAGVAR(ld_shlibs, $1)=yes
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
+ fi
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ newsos6)
+ _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ *nto* | *qnx*)
+ ;;
+
+ openbsd* | bitrig*)
+ if test -f /usr/libexec/ld.so; then
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=yes
+ if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E'
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir'
+ fi
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ os2*)
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ shrext_cmds=.dll
+ _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ _LT_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ ;;
+
+ osf3*)
+ if test yes = "$GCC"; then
+ _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ else
+ _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ fi
+ _LT_TAGVAR(archive_cmds_need_lc, $1)='no'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+ ;;
+
+ osf4* | osf5*) # as osf3* with the addition of -msym flag
+ if test yes = "$GCC"; then
+ _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ else
+ _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
+ $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp'
+
+ # Both c and cxx compiler support -rpath directly
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir'
+ fi
+ _LT_TAGVAR(archive_cmds_need_lc, $1)='no'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+ ;;
+
+ solaris*)
+ _LT_TAGVAR(no_undefined_flag, $1)=' -z defs'
+ if test yes = "$GCC"; then
+ wlarc='$wl'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
+ else
+ case `$CC -V 2>&1` in
+ *"Compilers 5.0"*)
+ wlarc=''
+ _LT_TAGVAR(archive_cmds, $1)='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
+ ;;
+ *)
+ wlarc='$wl'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
+ ;;
+ esac
+ fi
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ case $host_os in
+ solaris2.[[0-5]] | solaris2.[[0-5]].*) ;;
+ *)
+ # The compiler driver will combine and reorder linker options,
+ # but understands '-z linker_flag'. GCC discards it without '$wl',
+ # but is careful enough not to reorder.
+ # Supported since Solaris 2.6 (maybe 2.5.1?)
+ if test yes = "$GCC"; then
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract'
+ else
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract'
+ fi
+ ;;
+ esac
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ ;;
+
+ sunos4*)
+ if test sequent = "$host_vendor"; then
+ # Use $CC to link under sequent, because it throws in some extra .o
+ # files that make .init and .fini sections work.
+ _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
+ fi
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ sysv4)
+ case $host_vendor in
+ sni)
+ _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(hardcode_direct, $1)=yes # is this really true???
+ ;;
+ siemens)
+ ## LD is ld it makes a PLAMLIB
+ ## CC just makes a GrossModule.
+ _LT_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs'
+ _LT_TAGVAR(hardcode_direct, $1)=no
+ ;;
+ motorola)
+ _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie
+ ;;
+ esac
+ runpath_var='LD_RUN_PATH'
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ sysv4.3*)
+ _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ runpath_var=LD_RUN_PATH
+ hardcode_runpath_var=yes
+ _LT_TAGVAR(ld_shlibs, $1)=yes
+ fi
+ ;;
+
+ sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*)
+ _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text'
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=no
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ runpath_var='LD_RUN_PATH'
+
+ if test yes = "$GCC"; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ fi
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6*)
+ # Note: We CANNOT use -z defs as we might desire, because we do not
+ # link with -lc, and that would cause any symbols used from libc to
+ # always be unresolved, which means just about no library would
+ # ever link correctly. If we're not using GNU ld we use -z text
+ # though, which does catch some bad symbols but isn't as heavy-handed
+ # as -z defs.
+ _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text'
+ _LT_TAGVAR(allow_undefined_flag, $1)='$wl-z,nodefs'
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=no
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R,$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=':'
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-Bexport'
+ runpath_var='LD_RUN_PATH'
+
+ if test yes = "$GCC"; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ fi
+ ;;
+
+ uts4*)
+ _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ *)
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+
+ if test sni = "$host_vendor"; then
+ case $host in
+ sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-Blargedynsym'
+ ;;
+ esac
+ fi
+ fi
+])
+AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)])
+test no = "$_LT_TAGVAR(ld_shlibs, $1)" && can_build_shared=no
+
+_LT_TAGVAR(with_gnu_ld, $1)=$with_gnu_ld
+
+_LT_DECL([], [libext], [0], [Old archive suffix (normally "a")])dnl
+_LT_DECL([], [shrext_cmds], [1], [Shared library suffix (normally ".so")])dnl
+_LT_DECL([], [extract_expsyms_cmds], [2],
+ [The commands to extract the exported symbol list from a shared archive])
+
+#
+# Do we need to explicitly link libc?
+#
+case "x$_LT_TAGVAR(archive_cmds_need_lc, $1)" in
+x|xyes)
+ # Assume -lc should be added
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=yes
+
+ if test yes,yes = "$GCC,$enable_shared"; then
+ case $_LT_TAGVAR(archive_cmds, $1) in
+ *'~'*)
+ # FIXME: we may have to deal with multi-command sequences.
+ ;;
+ '$CC '*)
+ # Test whether the compiler implicitly links with -lc since on some
+ # systems, -lgcc has to come before -lc. If gcc already passes -lc
+ # to ld, don't add -lc before -lgcc.
+ AC_CACHE_CHECK([whether -lc should be explicitly linked in],
+ [lt_cv_]_LT_TAGVAR(archive_cmds_need_lc, $1),
+ [$RM conftest*
+ echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ if AC_TRY_EVAL(ac_compile) 2>conftest.err; then
+ soname=conftest
+ lib=conftest
+ libobjs=conftest.$ac_objext
+ deplibs=
+ wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1)
+ pic_flag=$_LT_TAGVAR(lt_prog_compiler_pic, $1)
+ compiler_flags=-v
+ linker_flags=-v
+ verstring=
+ output_objdir=.
+ libname=conftest
+ lt_save_allow_undefined_flag=$_LT_TAGVAR(allow_undefined_flag, $1)
+ _LT_TAGVAR(allow_undefined_flag, $1)=
+ if AC_TRY_EVAL(_LT_TAGVAR(archive_cmds, $1) 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1)
+ then
+ lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=no
+ else
+ lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=yes
+ fi
+ _LT_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag
+ else
+ cat conftest.err 1>&5
+ fi
+ $RM conftest*
+ ])
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=$lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)
+ ;;
+ esac
+ fi
+ ;;
+esac
+
+_LT_TAGDECL([build_libtool_need_lc], [archive_cmds_need_lc], [0],
+ [Whether or not to add -lc for building shared libraries])
+_LT_TAGDECL([allow_libtool_libs_with_static_runtimes],
+ [enable_shared_with_static_runtimes], [0],
+ [Whether or not to disallow shared libs when runtime libs are static])
+_LT_TAGDECL([], [export_dynamic_flag_spec], [1],
+ [Compiler flag to allow reflexive dlopens])
+_LT_TAGDECL([], [whole_archive_flag_spec], [1],
+ [Compiler flag to generate shared objects directly from archives])
+_LT_TAGDECL([], [compiler_needs_object], [1],
+ [Whether the compiler copes with passing no objects directly])
+_LT_TAGDECL([], [old_archive_from_new_cmds], [2],
+ [Create an old-style archive from a shared archive])
+_LT_TAGDECL([], [old_archive_from_expsyms_cmds], [2],
+ [Create a temporary old-style archive to link instead of a shared archive])
+_LT_TAGDECL([], [archive_cmds], [2], [Commands used to build a shared archive])
+_LT_TAGDECL([], [archive_expsym_cmds], [2])
+_LT_TAGDECL([], [module_cmds], [2],
+ [Commands used to build a loadable module if different from building
+ a shared archive.])
+_LT_TAGDECL([], [module_expsym_cmds], [2])
+_LT_TAGDECL([], [with_gnu_ld], [1],
+ [Whether we are building with GNU ld or not])
+_LT_TAGDECL([], [allow_undefined_flag], [1],
+ [Flag that allows shared libraries with undefined symbols to be built])
+_LT_TAGDECL([], [no_undefined_flag], [1],
+ [Flag that enforces no undefined symbols])
+_LT_TAGDECL([], [hardcode_libdir_flag_spec], [1],
+ [Flag to hardcode $libdir into a binary during linking.
+ This must work even if $libdir does not exist])
+_LT_TAGDECL([], [hardcode_libdir_separator], [1],
+ [Whether we need a single "-rpath" flag with a separated argument])
+_LT_TAGDECL([], [hardcode_direct], [0],
+ [Set to "yes" if using DIR/libNAME$shared_ext during linking hardcodes
+ DIR into the resulting binary])
+_LT_TAGDECL([], [hardcode_direct_absolute], [0],
+ [Set to "yes" if using DIR/libNAME$shared_ext during linking hardcodes
+ DIR into the resulting binary and the resulting library dependency is
+ "absolute", i.e impossible to change by setting $shlibpath_var if the
+ library is relocated])
+_LT_TAGDECL([], [hardcode_minus_L], [0],
+ [Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+ into the resulting binary])
+_LT_TAGDECL([], [hardcode_shlibpath_var], [0],
+ [Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+ into the resulting binary])
+_LT_TAGDECL([], [hardcode_automatic], [0],
+ [Set to "yes" if building a shared library automatically hardcodes DIR
+ into the library and all subsequent libraries and executables linked
+ against it])
+_LT_TAGDECL([], [inherit_rpath], [0],
+ [Set to yes if linker adds runtime paths of dependent libraries
+ to runtime path list])
+_LT_TAGDECL([], [link_all_deplibs], [0],
+ [Whether libtool must link a program against all its dependency libraries])
+_LT_TAGDECL([], [always_export_symbols], [0],
+ [Set to "yes" if exported symbols are required])
+_LT_TAGDECL([], [export_symbols_cmds], [2],
+ [The commands to list exported symbols])
+_LT_TAGDECL([], [exclude_expsyms], [1],
+ [Symbols that should not be listed in the preloaded symbols])
+_LT_TAGDECL([], [include_expsyms], [1],
+ [Symbols that must always be exported])
+_LT_TAGDECL([], [prelink_cmds], [2],
+ [Commands necessary for linking programs (against libraries) with templates])
+_LT_TAGDECL([], [postlink_cmds], [2],
+ [Commands necessary for finishing linking programs])
+_LT_TAGDECL([], [file_list_spec], [1],
+ [Specify filename containing input files])
+dnl FIXME: Not yet implemented
+dnl _LT_TAGDECL([], [thread_safe_flag_spec], [1],
+dnl [Compiler flag to generate thread safe objects])
+])# _LT_LINKER_SHLIBS
+
+
+# _LT_LANG_C_CONFIG([TAG])
+# ------------------------
+# Ensure that the configuration variables for a C compiler are suitably
+# defined. These variables are subsequently used by _LT_CONFIG to write
+# the compiler configuration to 'libtool'.
+m4_defun([_LT_LANG_C_CONFIG],
+[m4_require([_LT_DECL_EGREP])dnl
+lt_save_CC=$CC
+AC_LANG_PUSH(C)
+
+# Source file extension for C test sources.
+ac_ext=c
+
+# Object file extension for compiled C test sources.
+objext=o
+_LT_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code="int some_variable = 0;"
+
+# Code to be used in simple link tests
+lt_simple_link_test_code='int main(){return(0);}'
+
+_LT_TAG_COMPILER
+# Save the default compiler, since it gets overwritten when the other
+# tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP.
+compiler_DEFAULT=$CC
+
+# save warnings/boilerplate of simple test code
+_LT_COMPILER_BOILERPLATE
+_LT_LINKER_BOILERPLATE
+
+## CAVEAT EMPTOR:
+## There is no encapsulation within the following macros, do not change
+## the running order or otherwise move them around unless you know exactly
+## what you are doing...
+if test -n "$compiler"; then
+ _LT_COMPILER_NO_RTTI($1)
+ _LT_COMPILER_PIC($1)
+ _LT_COMPILER_C_O($1)
+ _LT_COMPILER_FILE_LOCKS($1)
+ _LT_LINKER_SHLIBS($1)
+ _LT_SYS_DYNAMIC_LINKER($1)
+ _LT_LINKER_HARDCODE_LIBPATH($1)
+ LT_SYS_DLOPEN_SELF
+ _LT_CMD_STRIPLIB
+
+ # Report what library types will actually be built
+ AC_MSG_CHECKING([if libtool supports shared libraries])
+ AC_MSG_RESULT([$can_build_shared])
+
+ AC_MSG_CHECKING([whether to build shared libraries])
+ test no = "$can_build_shared" && enable_shared=no
+
+ # On AIX, shared libraries and static libraries use the same namespace, and
+ # are all built from PIC.
+ case $host_os in
+ aix3*)
+ test yes = "$enable_shared" && enable_static=no
+ if test -n "$RANLIB"; then
+ archive_cmds="$archive_cmds~\$RANLIB \$lib"
+ postinstall_cmds='$RANLIB $lib'
+ fi
+ ;;
+
+ aix[[4-9]]*)
+ if test ia64 != "$host_cpu"; then
+ case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in
+ yes,aix,yes) ;; # shared object as lib.so file only
+ yes,svr4,*) ;; # shared object as lib.so archive member only
+ yes,*) enable_static=no ;; # shared object in lib.a archive as well
+ esac
+ fi
+ ;;
+ esac
+ AC_MSG_RESULT([$enable_shared])
+
+ AC_MSG_CHECKING([whether to build static libraries])
+ # Make sure either enable_shared or enable_static is yes.
+ test yes = "$enable_shared" || enable_static=yes
+ AC_MSG_RESULT([$enable_static])
+
+ _LT_CONFIG($1)
+fi
+AC_LANG_POP
+CC=$lt_save_CC
+])# _LT_LANG_C_CONFIG
+
+
+# _LT_LANG_CXX_CONFIG([TAG])
+# --------------------------
+# Ensure that the configuration variables for a C++ compiler are suitably
+# defined. These variables are subsequently used by _LT_CONFIG to write
+# the compiler configuration to 'libtool'.
+m4_defun([_LT_LANG_CXX_CONFIG],
+[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+m4_require([_LT_DECL_EGREP])dnl
+m4_require([_LT_PATH_MANIFEST_TOOL])dnl
+if test -n "$CXX" && ( test no != "$CXX" &&
+ ( (test g++ = "$CXX" && `g++ -v >/dev/null 2>&1` ) ||
+ (test g++ != "$CXX"))); then
+ AC_PROG_CXXCPP
+else
+ _lt_caught_CXX_error=yes
+fi
+
+AC_LANG_PUSH(C++)
+_LT_TAGVAR(archive_cmds_need_lc, $1)=no
+_LT_TAGVAR(allow_undefined_flag, $1)=
+_LT_TAGVAR(always_export_symbols, $1)=no
+_LT_TAGVAR(archive_expsym_cmds, $1)=
+_LT_TAGVAR(compiler_needs_object, $1)=no
+_LT_TAGVAR(export_dynamic_flag_spec, $1)=
+_LT_TAGVAR(hardcode_direct, $1)=no
+_LT_TAGVAR(hardcode_direct_absolute, $1)=no
+_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
+_LT_TAGVAR(hardcode_libdir_separator, $1)=
+_LT_TAGVAR(hardcode_minus_L, $1)=no
+_LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
+_LT_TAGVAR(hardcode_automatic, $1)=no
+_LT_TAGVAR(inherit_rpath, $1)=no
+_LT_TAGVAR(module_cmds, $1)=
+_LT_TAGVAR(module_expsym_cmds, $1)=
+_LT_TAGVAR(link_all_deplibs, $1)=unknown
+_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
+_LT_TAGVAR(reload_flag, $1)=$reload_flag
+_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
+_LT_TAGVAR(no_undefined_flag, $1)=
+_LT_TAGVAR(whole_archive_flag_spec, $1)=
+_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no
+
+# Source file extension for C++ test sources.
+ac_ext=cpp
+
+# Object file extension for compiled C++ test sources.
+objext=o
+_LT_TAGVAR(objext, $1)=$objext
+
+# No sense in running all these tests if we already determined that
+# the CXX compiler isn't working. Some variables (like enable_shared)
+# are currently assumed to apply to all compilers on this platform,
+# and will be corrupted by setting them based on a non-working compiler.
+if test yes != "$_lt_caught_CXX_error"; then
+ # Code to be used in simple compile tests
+ lt_simple_compile_test_code="int some_variable = 0;"
+
+ # Code to be used in simple link tests
+ lt_simple_link_test_code='int main(int, char *[[]]) { return(0); }'
+
+ # ltmain only uses $CC for tagged configurations so make sure $CC is set.
+ _LT_TAG_COMPILER
+
+ # save warnings/boilerplate of simple test code
+ _LT_COMPILER_BOILERPLATE
+ _LT_LINKER_BOILERPLATE
+
+ # Allow CC to be a program name with arguments.
+ lt_save_CC=$CC
+ lt_save_CFLAGS=$CFLAGS
+ lt_save_LD=$LD
+ lt_save_GCC=$GCC
+ GCC=$GXX
+ lt_save_with_gnu_ld=$with_gnu_ld
+ lt_save_path_LD=$lt_cv_path_LD
+ if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then
+ lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx
+ else
+ $as_unset lt_cv_prog_gnu_ld
+ fi
+ if test -n "${lt_cv_path_LDCXX+set}"; then
+ lt_cv_path_LD=$lt_cv_path_LDCXX
+ else
+ $as_unset lt_cv_path_LD
+ fi
+ test -z "${LDCXX+set}" || LD=$LDCXX
+ CC=${CXX-"c++"}
+ CFLAGS=$CXXFLAGS
+ compiler=$CC
+ _LT_TAGVAR(compiler, $1)=$CC
+ _LT_CC_BASENAME([$compiler])
+
+ if test -n "$compiler"; then
+ # We don't want -fno-exception when compiling C++ code, so set the
+ # no_builtin_flag separately
+ if test yes = "$GXX"; then
+ _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin'
+ else
+ _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=
+ fi
+
+ if test yes = "$GXX"; then
+ # Set up default GNU C++ configuration
+
+ LT_PATH_LD
+
+ # Check if GNU C++ uses GNU ld as the underlying linker, since the
+ # archiving commands below assume that GNU ld is being used.
+ if test yes = "$with_gnu_ld"; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic'
+
+ # If archive_cmds runs LD, not CC, wlarc should be empty
+ # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to
+ # investigate it a little bit more. (MM)
+ wlarc='$wl'
+
+ # ancient GNU ld didn't support --whole-archive et. al.
+ if eval "`$CC -print-prog-name=ld` --help 2>&1" |
+ $GREP 'no-whole-archive' > /dev/null; then
+ _LT_TAGVAR(whole_archive_flag_spec, $1)=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive'
+ else
+ _LT_TAGVAR(whole_archive_flag_spec, $1)=
+ fi
+ else
+ with_gnu_ld=no
+ wlarc=
+
+ # A generic and very simple default shared library creation
+ # command for GNU C++ for the case where it uses the native
+ # linker, instead of GNU ld. If possible, this setting should
+ # overridden to take advantage of the native linker features on
+ # the platform it is being used on.
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib'
+ fi
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
+
+ else
+ GXX=no
+ with_gnu_ld=no
+ wlarc=
+ fi
+
+ # PORTME: fill in a description of your system's C++ link characteristics
+ AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries])
+ _LT_TAGVAR(ld_shlibs, $1)=yes
+ case $host_os in
+ aix3*)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ aix[[4-9]]*)
+ if test ia64 = "$host_cpu"; then
+ # On IA64, the linker does run time linking by default, so we don't
+ # have to do anything special.
+ aix_use_runtimelinking=no
+ exp_sym_flag='-Bexport'
+ no_entry_flag=
+ else
+ aix_use_runtimelinking=no
+
+ # Test if we are trying to use run time linking or normal
+ # AIX style linking. If -brtl is somewhere in LDFLAGS, we
+ # have runtime linking enabled, and use it for executables.
+ # For shared libraries, we enable/disable runtime linking
+ # depending on the kind of the shared library created -
+ # when "with_aix_soname,aix_use_runtimelinking" is:
+ # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables
+ # "aix,yes" lib.so shared, rtl:yes, for executables
+ # lib.a static archive
+ # "both,no" lib.so.V(shr.o) shared, rtl:yes
+ # lib.a(lib.so.V) shared, rtl:no, for executables
+ # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a(lib.so.V) shared, rtl:no
+ # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables
+ # lib.a static archive
+ case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*)
+ for ld_flag in $LDFLAGS; do
+ case $ld_flag in
+ *-brtl*)
+ aix_use_runtimelinking=yes
+ break
+ ;;
+ esac
+ done
+ if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # With aix-soname=svr4, we create the lib.so.V shared archives only,
+ # so we don't have lib.a shared libs to link our executables.
+ # We have to force runtime linking in this case.
+ aix_use_runtimelinking=yes
+ LDFLAGS="$LDFLAGS -Wl,-brtl"
+ fi
+ ;;
+ esac
+
+ exp_sym_flag='-bexport'
+ no_entry_flag='-bnoentry'
+ fi
+
+ # When large executables or shared objects are built, AIX ld can
+ # have problems creating the table of contents. If linking a library
+ # or program results in "error TOC overflow" add -mminimal-toc to
+ # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
+ # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
+
+ _LT_TAGVAR(archive_cmds, $1)=''
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=yes
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=':'
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ _LT_TAGVAR(file_list_spec, $1)='$wl-f,'
+ case $with_aix_soname,$aix_use_runtimelinking in
+ aix,*) ;; # no import file
+ svr4,* | *,yes) # use import file
+ # The Import File defines what to hardcode.
+ _LT_TAGVAR(hardcode_direct, $1)=no
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=no
+ ;;
+ esac
+
+ if test yes = "$GXX"; then
+ case $host_os in aix4.[[012]]|aix4.[[012]].*)
+ # We only want to do this on AIX 4.2 and lower, the check
+ # below for broken collect2 doesn't work under 4.3+
+ collect2name=`$CC -print-prog-name=collect2`
+ if test -f "$collect2name" &&
+ strings "$collect2name" | $GREP resolve_lib_name >/dev/null
+ then
+ # We have reworked collect2
+ :
+ else
+ # We have old collect2
+ _LT_TAGVAR(hardcode_direct, $1)=unsupported
+ # It fails to find uninstalled libraries when the uninstalled
+ # path is not listed in the libpath. Setting hardcode_minus_L
+ # to unsupported forces relinking
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=
+ fi
+ esac
+ shared_flag='-shared'
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag=$shared_flag' $wl-G'
+ fi
+ # Need to ensure runtime linking is disabled for the traditional
+ # shared library, or the linker may eventually find shared libraries
+ # /with/ Import File - we do not want to mix them.
+ shared_flag_aix='-shared'
+ shared_flag_svr4='-shared $wl-G'
+ else
+ # not using gcc
+ if test ia64 = "$host_cpu"; then
+ # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
+ # chokes on -Wl,-G. The following line is correct:
+ shared_flag='-G'
+ else
+ if test yes = "$aix_use_runtimelinking"; then
+ shared_flag='$wl-G'
+ else
+ shared_flag='$wl-bM:SRE'
+ fi
+ shared_flag_aix='$wl-bM:SRE'
+ shared_flag_svr4='$wl-G'
+ fi
+ fi
+
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-bexpall'
+ # It seems that -bexpall does not export symbols beginning with
+ # underscore (_), so it is better to generate a list of symbols to
+ # export.
+ _LT_TAGVAR(always_export_symbols, $1)=yes
+ if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then
+ # Warning - without using the other runtime loading flags (-brtl),
+ # -berok will link without error, but may produce a broken library.
+ # The "-G" linker flag allows undefined symbols.
+ _LT_TAGVAR(no_undefined_flag, $1)='-bernotok'
+ # Determine the default libpath from the value encoded in an empty
+ # executable.
+ _LT_SYS_MODULE_PATH_AIX([$1])
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath"
+
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag
+ else
+ if test ia64 = "$host_cpu"; then
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R $libdir:/usr/lib:/lib'
+ _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs"
+ _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols"
+ else
+ # Determine the default libpath from the value encoded in an
+ # empty executable.
+ _LT_SYS_MODULE_PATH_AIX([$1])
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath"
+ # Warning - without using the other run time loading flags,
+ # -berok will link without error, but may produce a broken library.
+ _LT_TAGVAR(no_undefined_flag, $1)=' $wl-bernotok'
+ _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-berok'
+ if test yes = "$with_gnu_ld"; then
+ # We only use this code for GNU lds that support --whole-archive.
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive$convenience $wl--no-whole-archive'
+ else
+ # Exported symbols can be pulled into shared objects from archives
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience'
+ fi
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=yes
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d'
+ # -brtl affects multiple linker settings, -berok does not and is overridden later
+ compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([[, ]]\\)%-berok\\1%g"`'
+ if test svr4 != "$with_aix_soname"; then
+ # This is similar to how AIX traditionally builds its shared
+ # libraries. Need -bnortl late, we may have -brtl in LDFLAGS.
+ _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname'
+ fi
+ if test aix != "$with_aix_soname"; then
+ _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp'
+ else
+ # used by -dlpreopen to get the symbols
+ _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$MV $output_objdir/$realname.d/$soname $output_objdir'
+ fi
+ _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$RM -r $output_objdir/$realname.d'
+ fi
+ fi
+ ;;
+
+ beos*)
+ if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ # Joseph Beckenbach <jrb3@best.com> says some releases of gcc
+ # support --undefined. This deserves some investigation. FIXME
+ _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ chorus*)
+ case $cc_basename in
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+
+ cygwin* | mingw* | pw32* | cegcc*)
+ case $GXX,$cc_basename in
+ ,cl* | no,cl*)
+ # Native MSVC
+ # hardcode_libdir_flag_spec is actually meaningless, as there is
+ # no search path for DLLs.
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' '
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ _LT_TAGVAR(always_export_symbols, $1)=yes
+ _LT_TAGVAR(file_list_spec, $1)='@'
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=.dll
+ # FIXME: Setting linknames here is a bad hack.
+ _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames='
+ _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then
+ cp "$export_symbols" "$output_objdir/$soname.def";
+ echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp";
+ else
+ $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp;
+ fi~
+ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
+ linknames='
+ # The linker will not automatically build a static lib if we build a DLL.
+ # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true'
+ _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ # Don't use ranlib
+ _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib'
+ _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~
+ lt_tool_outputfile="@TOOL_OUTPUT@"~
+ case $lt_outputfile in
+ *.exe|*.EXE) ;;
+ *)
+ lt_outputfile=$lt_outputfile.exe
+ lt_tool_outputfile=$lt_tool_outputfile.exe
+ ;;
+ esac~
+ func_to_tool_file "$lt_outputfile"~
+ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then
+ $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
+ $RM "$lt_outputfile.manifest";
+ fi'
+ ;;
+ *)
+ # g++
+ # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless,
+ # as there is no search path for DLLs.
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-all-symbols'
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ _LT_TAGVAR(always_export_symbols, $1)=no
+ _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+
+ if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ # If the export-symbols file already is a .def file, use it as
+ # is; otherwise, prepend EXPORTS...
+ _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then
+ cp $export_symbols $output_objdir/$soname.def;
+ else
+ echo EXPORTS > $output_objdir/$soname.def;
+ cat $export_symbols >> $output_objdir/$soname.def;
+ fi~
+ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+ ;;
+ darwin* | rhapsody*)
+ _LT_DARWIN_LINKER_FEATURES($1)
+ ;;
+
+ os2*)
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_TAGVAR(allow_undefined_flag, $1)=unsupported
+ shrext_cmds=.dll
+ _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
+ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
+ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
+ $ECHO EXPORTS >> $output_objdir/$libname.def~
+ prefix_cmds="$SED"~
+ if test EXPORTS = "`$SED 1q $export_symbols`"; then
+ prefix_cmds="$prefix_cmds -e 1d";
+ fi~
+ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
+ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
+ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
+ emximp -o $lib $output_objdir/$libname.def'
+ _LT_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
+ _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ ;;
+
+ dgux*)
+ case $cc_basename in
+ ec++*)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ ghcx*)
+ # Green Hills C++ Compiler
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+
+ freebsd2.*)
+ # C++ shared libraries reported to be fairly broken before
+ # switch to ELF
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+
+ freebsd-elf*)
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=no
+ ;;
+
+ freebsd* | dragonfly*)
+ # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF
+ # conventions
+ _LT_TAGVAR(ld_shlibs, $1)=yes
+ ;;
+
+ haiku*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ ;;
+
+ hpux9*)
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E'
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH,
+ # but as the default
+ # location of the library.
+
+ case $cc_basename in
+ CC*)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ aCC*)
+ _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -b $wl+b $wl$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
+ ;;
+ *)
+ if test yes = "$GXX"; then
+ _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
+ else
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+ ;;
+
+ hpux10*|hpux11*)
+ if test no = "$with_gnu_ld"; then
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ case $host_cpu in
+ hppa*64*|ia64*)
+ ;;
+ *)
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E'
+ ;;
+ esac
+ fi
+ case $host_cpu in
+ hppa*64*|ia64*)
+ _LT_TAGVAR(hardcode_direct, $1)=no
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+ *)
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=yes
+ _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH,
+ # but as the default
+ # location of the library.
+ ;;
+ esac
+
+ case $cc_basename in
+ CC*)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ aCC*)
+ case $host_cpu in
+ hppa*64*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ ia64*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ *)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ esac
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
+ ;;
+ *)
+ if test yes = "$GXX"; then
+ if test no = "$with_gnu_ld"; then
+ case $host_cpu in
+ hppa*64*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ ia64*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ *)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ esac
+ fi
+ else
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+ ;;
+
+ interix[[3-9]]*)
+ _LT_TAGVAR(hardcode_direct, $1)=no
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E'
+ # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
+ # Instead, shared libraries are loaded at an image base (0x10000000 by
+ # default) and relocated if they conflict, which is a slow very memory
+ # consuming and fragmenting process. To avoid this, we pick a random,
+ # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
+ # time. Moving up from 0x10000000 also allows more sbrk(2) space.
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
+ ;;
+ irix5* | irix6*)
+ case $cc_basename in
+ CC*)
+ # SGI C++
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+
+ # Archives containing C++ object files must be created using
+ # "CC -ar", where "CC" is the IRIX C++ compiler. This is
+ # necessary to make sure instantiated templates are included
+ # in the archive.
+ _LT_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs'
+ ;;
+ *)
+ if test yes = "$GXX"; then
+ if test no = "$with_gnu_ld"; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ else
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` -o $lib'
+ fi
+ fi
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ ;;
+ esac
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_TAGVAR(inherit_rpath, $1)=yes
+ ;;
+
+ linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
+ case $cc_basename in
+ KCC*)
+ # Kuck and Associates, Inc. (KAI) C++ Compiler
+
+ # KCC will only create a shared library if the output file
+ # ends with ".so" (or ".sl" for HP-UX), so rename the library
+ # to its proper name (with version) after linking.
+ _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib $wl-retain-symbols-file,$export_symbols; mv \$templib $lib'
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
+
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic'
+
+ # Archives containing C++ object files must be created using
+ # "CC -Bstatic", where "CC" is the KAI C++ compiler.
+ _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs'
+ ;;
+ icpc* | ecpc* )
+ # Intel C++
+ with_gnu_ld=yes
+ # version 8.0 and above of icpc choke on multiply defined symbols
+ # if we add $predep_objects and $postdep_objects, however 7.1 and
+ # earlier do not add the objects themselves.
+ case `$CC -V 2>&1` in
+ *"Version 7."*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ ;;
+ *) # Version 8.0 or newer
+ tmp_idyn=
+ case $host_cpu in
+ ia64*) tmp_idyn=' -i_dynamic';;
+ esac
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ ;;
+ esac
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=no
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic'
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive$convenience $wl--no-whole-archive'
+ ;;
+ pgCC* | pgcpp*)
+ # Portland Group C++ compiler
+ case `$CC -V` in
+ *pgCC\ [[1-5]].* | *pgcpp\ [[1-5]].*)
+ _LT_TAGVAR(prelink_cmds, $1)='tpldir=Template.dir~
+ rm -rf $tpldir~
+ $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~
+ compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"'
+ _LT_TAGVAR(old_archive_cmds, $1)='tpldir=Template.dir~
+ rm -rf $tpldir~
+ $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~
+ $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~
+ $RANLIB $oldlib'
+ _LT_TAGVAR(archive_cmds, $1)='tpldir=Template.dir~
+ rm -rf $tpldir~
+ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~
+ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='tpldir=Template.dir~
+ rm -rf $tpldir~
+ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~
+ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ ;;
+ *) # Version 6 and above use weak symbols
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
+ ;;
+ esac
+
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl--rpath $wl$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic'
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ ;;
+ cxx*)
+ # Compaq C++
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib $wl-retain-symbols-file $wl$export_symbols'
+
+ runpath_var=LD_RUN_PATH
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed'
+ ;;
+ xl* | mpixl* | bgxl*)
+ # IBM XL 8.0 on PPC, with GNU ld
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
+ if test yes = "$supports_anon_versioning"; then
+ _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~
+ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+ echo "local: *; };" >> $output_objdir/$libname.ver~
+ $CC -qmkshrobj $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib'
+ fi
+ ;;
+ *)
+ case `$CC -V 2>&1 | sed 5q` in
+ *Sun\ C*)
+ # Sun C++ 5.9
+ _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file $wl$export_symbols'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
+ _LT_TAGVAR(compiler_needs_object, $1)=yes
+
+ # Not sure whether something based on
+ # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1
+ # would be better.
+ output_verbose_link_cmd='func_echo_all'
+
+ # Archives containing C++ object files must be created using
+ # "CC -xar", where "CC" is the Sun C++ compiler. This is
+ # necessary to make sure instantiated templates are included
+ # in the archive.
+ _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs'
+ ;;
+ esac
+ ;;
+ esac
+ ;;
+
+ lynxos*)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+
+ m88k*)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+
+ mvs*)
+ case $cc_basename in
+ cxx*)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
+ _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags'
+ wlarc=
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ fi
+ # Workaround some broken pre-1.5 toolchains
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"'
+ ;;
+
+ *nto* | *qnx*)
+ _LT_TAGVAR(ld_shlibs, $1)=yes
+ ;;
+
+ openbsd* | bitrig*)
+ if test -f /usr/libexec/ld.so; then
+ _LT_TAGVAR(hardcode_direct, $1)=yes
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_TAGVAR(hardcode_direct_absolute, $1)=yes
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir'
+ if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`"; then
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file,$export_symbols -o $lib'
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E'
+ _LT_TAGVAR(whole_archive_flag_spec, $1)=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive'
+ fi
+ output_verbose_link_cmd=func_echo_all
+ else
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ osf3* | osf4* | osf5*)
+ case $cc_basename in
+ KCC*)
+ # Kuck and Associates, Inc. (KAI) C++ Compiler
+
+ # KCC will only create a shared library if the output file
+ # ends with ".so" (or ".sl" for HP-UX), so rename the library
+ # to its proper name (with version) after linking.
+ _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
+
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Archives containing C++ object files must be created using
+ # the KAI C++ compiler.
+ case $host in
+ osf3*) _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;;
+ *) _LT_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' ;;
+ esac
+ ;;
+ RCC*)
+ # Rational C++ 2.4.1
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ cxx*)
+ case $host in
+ osf3*)
+ _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $soname `test -n "$verstring" && func_echo_all "$wl-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ ;;
+ *)
+ _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~
+ echo "-hidden">> $lib.exp~
+ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname $wl-input $wl$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~
+ $RM $lib.exp'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir'
+ ;;
+ esac
+
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
+ ;;
+ *)
+ if test yes,no = "$GXX,$with_gnu_ld"; then
+ _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*'
+ case $host in
+ osf3*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ ;;
+ *)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
+ ;;
+ esac
+
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
+
+ else
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+ ;;
+
+ psos*)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+
+ sunos4*)
+ case $cc_basename in
+ CC*)
+ # Sun C++ 4.x
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ lcc*)
+ # Lucid
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+
+ solaris*)
+ case $cc_basename in
+ CC* | sunCC*)
+ # Sun C++ 4.2, 5.x and Centerline C++
+ _LT_TAGVAR(archive_cmds_need_lc,$1)=yes
+ _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs'
+ _LT_TAGVAR(archive_cmds, $1)='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -G$allow_undefined_flag $wl-M $wl$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
+
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ case $host_os in
+ solaris2.[[0-5]] | solaris2.[[0-5]].*) ;;
+ *)
+ # The compiler driver will combine and reorder linker options,
+ # but understands '-z linker_flag'.
+ # Supported since Solaris 2.6 (maybe 2.5.1?)
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract'
+ ;;
+ esac
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+
+ output_verbose_link_cmd='func_echo_all'
+
+ # Archives containing C++ object files must be created using
+ # "CC -xar", where "CC" is the Sun C++ compiler. This is
+ # necessary to make sure instantiated templates are included
+ # in the archive.
+ _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs'
+ ;;
+ gcx*)
+ # Green Hills C++ Compiler
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib'
+
+ # The C++ compiler must be used to create the archive.
+ _LT_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs'
+ ;;
+ *)
+ # GNU C++ compiler with Solaris linker
+ if test yes,no = "$GXX,$with_gnu_ld"; then
+ _LT_TAGVAR(no_undefined_flag, $1)=' $wl-z ${wl}defs'
+ if $CC --version | $GREP -v '^2\.7' > /dev/null; then
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -shared $pic_flag -nostdlib $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
+ else
+ # g++ 2.7 appears to require '-G' NOT '-shared' on this
+ # platform.
+ _LT_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
+ $CC -G -nostdlib $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
+ fi
+
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R $wl$libdir'
+ case $host_os in
+ solaris2.[[0-5]] | solaris2.[[0-5]].*) ;;
+ *)
+ _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract'
+ ;;
+ esac
+ fi
+ ;;
+ esac
+ ;;
+
+ sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*)
+ _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text'
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=no
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ runpath_var='LD_RUN_PATH'
+
+ case $cc_basename in
+ CC*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ ;;
+
+ sysv5* | sco3.2v5* | sco5v6*)
+ # Note: We CANNOT use -z defs as we might desire, because we do not
+ # link with -lc, and that would cause any symbols used from libc to
+ # always be unresolved, which means just about no library would
+ # ever link correctly. If we're not using GNU ld we use -z text
+ # though, which does catch some bad symbols but isn't as heavy-handed
+ # as -z defs.
+ _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text'
+ _LT_TAGVAR(allow_undefined_flag, $1)='$wl-z,nodefs'
+ _LT_TAGVAR(archive_cmds_need_lc, $1)=no
+ _LT_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R,$libdir'
+ _LT_TAGVAR(hardcode_libdir_separator, $1)=':'
+ _LT_TAGVAR(link_all_deplibs, $1)=yes
+ _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-Bexport'
+ runpath_var='LD_RUN_PATH'
+
+ case $cc_basename in
+ CC*)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(old_archive_cmds, $1)='$CC -Tprelink_objects $oldobjs~
+ '"$_LT_TAGVAR(old_archive_cmds, $1)"
+ _LT_TAGVAR(reload_cmds, $1)='$CC -Tprelink_objects $reload_objs~
+ '"$_LT_TAGVAR(reload_cmds, $1)"
+ ;;
+ *)
+ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ ;;
+
+ tandem*)
+ case $cc_basename in
+ NCC*)
+ # NonStop-UX NCC 3.20
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+
+ vxworks*)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+
+ AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)])
+ test no = "$_LT_TAGVAR(ld_shlibs, $1)" && can_build_shared=no
+
+ _LT_TAGVAR(GCC, $1)=$GXX
+ _LT_TAGVAR(LD, $1)=$LD
+
+ ## CAVEAT EMPTOR:
+ ## There is no encapsulation within the following macros, do not change
+ ## the running order or otherwise move them around unless you know exactly
+ ## what you are doing...
+ _LT_SYS_HIDDEN_LIBDEPS($1)
+ _LT_COMPILER_PIC($1)
+ _LT_COMPILER_C_O($1)
+ _LT_COMPILER_FILE_LOCKS($1)
+ _LT_LINKER_SHLIBS($1)
+ _LT_SYS_DYNAMIC_LINKER($1)
+ _LT_LINKER_HARDCODE_LIBPATH($1)
+
+ _LT_CONFIG($1)
+ fi # test -n "$compiler"
+
+ CC=$lt_save_CC
+ CFLAGS=$lt_save_CFLAGS
+ LDCXX=$LD
+ LD=$lt_save_LD
+ GCC=$lt_save_GCC
+ with_gnu_ld=$lt_save_with_gnu_ld
+ lt_cv_path_LDCXX=$lt_cv_path_LD
+ lt_cv_path_LD=$lt_save_path_LD
+ lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld
+ lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld
+fi # test yes != "$_lt_caught_CXX_error"
+
+AC_LANG_POP
+])# _LT_LANG_CXX_CONFIG
+
+
+# _LT_FUNC_STRIPNAME_CNF
+# ----------------------
+# func_stripname_cnf prefix suffix name
+# strip PREFIX and SUFFIX off of NAME.
+# PREFIX and SUFFIX must not contain globbing or regex special
+# characters, hashes, percent signs, but SUFFIX may contain a leading
+# dot (in which case that matches only a dot).
+#
+# This function is identical to the (non-XSI) version of func_stripname,
+# except this one can be used by m4 code that may be executed by configure,
+# rather than the libtool script.
+m4_defun([_LT_FUNC_STRIPNAME_CNF],[dnl
+AC_REQUIRE([_LT_DECL_SED])
+AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])
+func_stripname_cnf ()
+{
+ case @S|@2 in
+ .*) func_stripname_result=`$ECHO "@S|@3" | $SED "s%^@S|@1%%; s%\\\\@S|@2\$%%"`;;
+ *) func_stripname_result=`$ECHO "@S|@3" | $SED "s%^@S|@1%%; s%@S|@2\$%%"`;;
+ esac
+} # func_stripname_cnf
+])# _LT_FUNC_STRIPNAME_CNF
+
+
+# _LT_SYS_HIDDEN_LIBDEPS([TAGNAME])
+# ---------------------------------
+# Figure out "hidden" library dependencies from verbose
+# compiler output when linking a shared library.
+# Parse the compiler output and extract the necessary
+# objects, libraries and library flags.
+m4_defun([_LT_SYS_HIDDEN_LIBDEPS],
+[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
+AC_REQUIRE([_LT_FUNC_STRIPNAME_CNF])dnl
+# Dependencies to place before and after the object being linked:
+_LT_TAGVAR(predep_objects, $1)=
+_LT_TAGVAR(postdep_objects, $1)=
+_LT_TAGVAR(predeps, $1)=
+_LT_TAGVAR(postdeps, $1)=
+_LT_TAGVAR(compiler_lib_search_path, $1)=
+
+dnl we can't use the lt_simple_compile_test_code here,
+dnl because it contains code intended for an executable,
+dnl not a library. It's possible we should let each
+dnl tag define a new lt_????_link_test_code variable,
+dnl but it's only used here...
+m4_if([$1], [], [cat > conftest.$ac_ext <<_LT_EOF
+int a;
+void foo (void) { a = 0; }
+_LT_EOF
+], [$1], [CXX], [cat > conftest.$ac_ext <<_LT_EOF
+class Foo
+{
+public:
+ Foo (void) { a = 0; }
+private:
+ int a;
+};
+_LT_EOF
+], [$1], [F77], [cat > conftest.$ac_ext <<_LT_EOF
+ subroutine foo
+ implicit none
+ integer*4 a
+ a=0
+ return
+ end
+_LT_EOF
+], [$1], [FC], [cat > conftest.$ac_ext <<_LT_EOF
+ subroutine foo
+ implicit none
+ integer a
+ a=0
+ return
+ end
+_LT_EOF
+], [$1], [GCJ], [cat > conftest.$ac_ext <<_LT_EOF
+public class foo {
+ private int a;
+ public void bar (void) {
+ a = 0;
+ }
+};
+_LT_EOF
+], [$1], [GO], [cat > conftest.$ac_ext <<_LT_EOF
+package foo
+func foo() {
+}
+_LT_EOF
+])
+
+_lt_libdeps_save_CFLAGS=$CFLAGS
+case "$CC $CFLAGS " in #(
+*\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;;
+*\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;;
+*\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;;
+esac
+
+dnl Parse the compiler output and extract the necessary
+dnl objects, libraries and library flags.
+if AC_TRY_EVAL(ac_compile); then
+ # Parse the compiler output and extract the necessary
+ # objects, libraries and library flags.
+
+ # Sentinel used to keep track of whether or not we are before
+ # the conftest object file.
+ pre_test_object_deps_done=no
+
+ for p in `eval "$output_verbose_link_cmd"`; do
+ case $prev$p in
+
+ -L* | -R* | -l*)
+ # Some compilers place space between "-{L,R}" and the path.
+ # Remove the space.
+ if test x-L = "$p" ||
+ test x-R = "$p"; then
+ prev=$p
+ continue
+ fi
+
+ # Expand the sysroot to ease extracting the directories later.
+ if test -z "$prev"; then
+ case $p in
+ -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;;
+ -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;;
+ -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;;
+ esac
+ fi
+ case $p in
+ =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;;
+ esac
+ if test no = "$pre_test_object_deps_done"; then
+ case $prev in
+ -L | -R)
+ # Internal compiler library paths should come after those
+ # provided the user. The postdeps already come after the
+ # user supplied libs so there is no need to process them.
+ if test -z "$_LT_TAGVAR(compiler_lib_search_path, $1)"; then
+ _LT_TAGVAR(compiler_lib_search_path, $1)=$prev$p
+ else
+ _LT_TAGVAR(compiler_lib_search_path, $1)="${_LT_TAGVAR(compiler_lib_search_path, $1)} $prev$p"
+ fi
+ ;;
+ # The "-l" case would never come before the object being
+ # linked, so don't bother handling this case.
+ esac
+ else
+ if test -z "$_LT_TAGVAR(postdeps, $1)"; then
+ _LT_TAGVAR(postdeps, $1)=$prev$p
+ else
+ _LT_TAGVAR(postdeps, $1)="${_LT_TAGVAR(postdeps, $1)} $prev$p"
+ fi
+ fi
+ prev=
+ ;;
+
+ *.lto.$objext) ;; # Ignore GCC LTO objects
+ *.$objext)
+ # This assumes that the test object file only shows up
+ # once in the compiler output.
+ if test "$p" = "conftest.$objext"; then
+ pre_test_object_deps_done=yes
+ continue
+ fi
+
+ if test no = "$pre_test_object_deps_done"; then
+ if test -z "$_LT_TAGVAR(predep_objects, $1)"; then
+ _LT_TAGVAR(predep_objects, $1)=$p
+ else
+ _LT_TAGVAR(predep_objects, $1)="$_LT_TAGVAR(predep_objects, $1) $p"
+ fi
+ else
+ if test -z "$_LT_TAGVAR(postdep_objects, $1)"; then
+ _LT_TAGVAR(postdep_objects, $1)=$p
+ else
+ _LT_TAGVAR(postdep_objects, $1)="$_LT_TAGVAR(postdep_objects, $1) $p"
+ fi
+ fi
+ ;;
+
+ *) ;; # Ignore the rest.
+
+ esac
+ done
+
+ # Clean up.
+ rm -f a.out a.exe
+else
+ echo "libtool.m4: error: problem compiling $1 test program"
+fi
+
+$RM -f confest.$objext
+CFLAGS=$_lt_libdeps_save_CFLAGS
+
+# PORTME: override above test on systems where it is broken
+m4_if([$1], [CXX],
+[case $host_os in
+interix[[3-9]]*)
+ # Interix 3.5 installs completely hosed .la files for C++, so rather than
+ # hack all around it, let's just trust "g++" to DTRT.
+ _LT_TAGVAR(predep_objects,$1)=
+ _LT_TAGVAR(postdep_objects,$1)=
+ _LT_TAGVAR(postdeps,$1)=
+ ;;
+esac
+])
+
+case " $_LT_TAGVAR(postdeps, $1) " in
+*" -lc "*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;;
+esac
+ _LT_TAGVAR(compiler_lib_search_dirs, $1)=
+if test -n "${_LT_TAGVAR(compiler_lib_search_path, $1)}"; then
+ _LT_TAGVAR(compiler_lib_search_dirs, $1)=`echo " ${_LT_TAGVAR(compiler_lib_search_path, $1)}" | $SED -e 's! -L! !g' -e 's!^ !!'`
+fi
+_LT_TAGDECL([], [compiler_lib_search_dirs], [1],
+ [The directories searched by this compiler when creating a shared library])
+_LT_TAGDECL([], [predep_objects], [1],
+ [Dependencies to place before and after the objects being linked to
+ create a shared library])
+_LT_TAGDECL([], [postdep_objects], [1])
+_LT_TAGDECL([], [predeps], [1])
+_LT_TAGDECL([], [postdeps], [1])
+_LT_TAGDECL([], [compiler_lib_search_path], [1],
+ [The library search path used internally by the compiler when linking
+ a shared library])
+])# _LT_SYS_HIDDEN_LIBDEPS
+
+
+# _LT_LANG_F77_CONFIG([TAG])
+# --------------------------
+# Ensure that the configuration variables for a Fortran 77 compiler are
+# suitably defined. These variables are subsequently used by _LT_CONFIG
+# to write the compiler configuration to 'libtool'.
+m4_defun([_LT_LANG_F77_CONFIG],
+[AC_LANG_PUSH(Fortran 77)
+if test -z "$F77" || test no = "$F77"; then
+ _lt_disable_F77=yes
+fi
+
+_LT_TAGVAR(archive_cmds_need_lc, $1)=no
+_LT_TAGVAR(allow_undefined_flag, $1)=
+_LT_TAGVAR(always_export_symbols, $1)=no
+_LT_TAGVAR(archive_expsym_cmds, $1)=
+_LT_TAGVAR(export_dynamic_flag_spec, $1)=
+_LT_TAGVAR(hardcode_direct, $1)=no
+_LT_TAGVAR(hardcode_direct_absolute, $1)=no
+_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
+_LT_TAGVAR(hardcode_libdir_separator, $1)=
+_LT_TAGVAR(hardcode_minus_L, $1)=no
+_LT_TAGVAR(hardcode_automatic, $1)=no
+_LT_TAGVAR(inherit_rpath, $1)=no
+_LT_TAGVAR(module_cmds, $1)=
+_LT_TAGVAR(module_expsym_cmds, $1)=
+_LT_TAGVAR(link_all_deplibs, $1)=unknown
+_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
+_LT_TAGVAR(reload_flag, $1)=$reload_flag
+_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
+_LT_TAGVAR(no_undefined_flag, $1)=
+_LT_TAGVAR(whole_archive_flag_spec, $1)=
+_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no
+
+# Source file extension for f77 test sources.
+ac_ext=f
+
+# Object file extension for compiled f77 test sources.
+objext=o
+_LT_TAGVAR(objext, $1)=$objext
+
+# No sense in running all these tests if we already determined that
+# the F77 compiler isn't working. Some variables (like enable_shared)
+# are currently assumed to apply to all compilers on this platform,
+# and will be corrupted by setting them based on a non-working compiler.
+if test yes != "$_lt_disable_F77"; then
+ # Code to be used in simple compile tests
+ lt_simple_compile_test_code="\
+ subroutine t
+ return
+ end
+"
+
+ # Code to be used in simple link tests
+ lt_simple_link_test_code="\
+ program t
+ end
+"
+
+ # ltmain only uses $CC for tagged configurations so make sure $CC is set.
+ _LT_TAG_COMPILER
+
+ # save warnings/boilerplate of simple test code
+ _LT_COMPILER_BOILERPLATE
+ _LT_LINKER_BOILERPLATE
+
+ # Allow CC to be a program name with arguments.
+ lt_save_CC=$CC
+ lt_save_GCC=$GCC
+ lt_save_CFLAGS=$CFLAGS
+ CC=${F77-"f77"}
+ CFLAGS=$FFLAGS
+ compiler=$CC
+ _LT_TAGVAR(compiler, $1)=$CC
+ _LT_CC_BASENAME([$compiler])
+ GCC=$G77
+ if test -n "$compiler"; then
+ AC_MSG_CHECKING([if libtool supports shared libraries])
+ AC_MSG_RESULT([$can_build_shared])
+
+ AC_MSG_CHECKING([whether to build shared libraries])
+ test no = "$can_build_shared" && enable_shared=no
+
+ # On AIX, shared libraries and static libraries use the same namespace, and
+ # are all built from PIC.
+ case $host_os in
+ aix3*)
+ test yes = "$enable_shared" && enable_static=no
+ if test -n "$RANLIB"; then
+ archive_cmds="$archive_cmds~\$RANLIB \$lib"
+ postinstall_cmds='$RANLIB $lib'
+ fi
+ ;;
+ aix[[4-9]]*)
+ if test ia64 != "$host_cpu"; then
+ case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in
+ yes,aix,yes) ;; # shared object as lib.so file only
+ yes,svr4,*) ;; # shared object as lib.so archive member only
+ yes,*) enable_static=no ;; # shared object in lib.a archive as well
+ esac
+ fi
+ ;;
+ esac
+ AC_MSG_RESULT([$enable_shared])
+
+ AC_MSG_CHECKING([whether to build static libraries])
+ # Make sure either enable_shared or enable_static is yes.
+ test yes = "$enable_shared" || enable_static=yes
+ AC_MSG_RESULT([$enable_static])
+
+ _LT_TAGVAR(GCC, $1)=$G77
+ _LT_TAGVAR(LD, $1)=$LD
+
+ ## CAVEAT EMPTOR:
+ ## There is no encapsulation within the following macros, do not change
+ ## the running order or otherwise move them around unless you know exactly
+ ## what you are doing...
+ _LT_COMPILER_PIC($1)
+ _LT_COMPILER_C_O($1)
+ _LT_COMPILER_FILE_LOCKS($1)
+ _LT_LINKER_SHLIBS($1)
+ _LT_SYS_DYNAMIC_LINKER($1)
+ _LT_LINKER_HARDCODE_LIBPATH($1)
+
+ _LT_CONFIG($1)
+ fi # test -n "$compiler"
+
+ GCC=$lt_save_GCC
+ CC=$lt_save_CC
+ CFLAGS=$lt_save_CFLAGS
+fi # test yes != "$_lt_disable_F77"
+
+AC_LANG_POP
+])# _LT_LANG_F77_CONFIG
+
+
+# _LT_LANG_FC_CONFIG([TAG])
+# -------------------------
+# Ensure that the configuration variables for a Fortran compiler are
+# suitably defined. These variables are subsequently used by _LT_CONFIG
+# to write the compiler configuration to 'libtool'.
+m4_defun([_LT_LANG_FC_CONFIG],
+[AC_LANG_PUSH(Fortran)
+
+if test -z "$FC" || test no = "$FC"; then
+ _lt_disable_FC=yes
+fi
+
+_LT_TAGVAR(archive_cmds_need_lc, $1)=no
+_LT_TAGVAR(allow_undefined_flag, $1)=
+_LT_TAGVAR(always_export_symbols, $1)=no
+_LT_TAGVAR(archive_expsym_cmds, $1)=
+_LT_TAGVAR(export_dynamic_flag_spec, $1)=
+_LT_TAGVAR(hardcode_direct, $1)=no
+_LT_TAGVAR(hardcode_direct_absolute, $1)=no
+_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
+_LT_TAGVAR(hardcode_libdir_separator, $1)=
+_LT_TAGVAR(hardcode_minus_L, $1)=no
+_LT_TAGVAR(hardcode_automatic, $1)=no
+_LT_TAGVAR(inherit_rpath, $1)=no
+_LT_TAGVAR(module_cmds, $1)=
+_LT_TAGVAR(module_expsym_cmds, $1)=
+_LT_TAGVAR(link_all_deplibs, $1)=unknown
+_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
+_LT_TAGVAR(reload_flag, $1)=$reload_flag
+_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
+_LT_TAGVAR(no_undefined_flag, $1)=
+_LT_TAGVAR(whole_archive_flag_spec, $1)=
+_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no
+
+# Source file extension for fc test sources.
+ac_ext=${ac_fc_srcext-f}
+
+# Object file extension for compiled fc test sources.
+objext=o
+_LT_TAGVAR(objext, $1)=$objext
+
+# No sense in running all these tests if we already determined that
+# the FC compiler isn't working. Some variables (like enable_shared)
+# are currently assumed to apply to all compilers on this platform,
+# and will be corrupted by setting them based on a non-working compiler.
+if test yes != "$_lt_disable_FC"; then
+ # Code to be used in simple compile tests
+ lt_simple_compile_test_code="\
+ subroutine t
+ return
+ end
+"
+
+ # Code to be used in simple link tests
+ lt_simple_link_test_code="\
+ program t
+ end
+"
+
+ # ltmain only uses $CC for tagged configurations so make sure $CC is set.
+ _LT_TAG_COMPILER
+
+ # save warnings/boilerplate of simple test code
+ _LT_COMPILER_BOILERPLATE
+ _LT_LINKER_BOILERPLATE
+
+ # Allow CC to be a program name with arguments.
+ lt_save_CC=$CC
+ lt_save_GCC=$GCC
+ lt_save_CFLAGS=$CFLAGS
+ CC=${FC-"f95"}
+ CFLAGS=$FCFLAGS
+ compiler=$CC
+ GCC=$ac_cv_fc_compiler_gnu
+
+ _LT_TAGVAR(compiler, $1)=$CC
+ _LT_CC_BASENAME([$compiler])
+
+ if test -n "$compiler"; then
+ AC_MSG_CHECKING([if libtool supports shared libraries])
+ AC_MSG_RESULT([$can_build_shared])
+
+ AC_MSG_CHECKING([whether to build shared libraries])
+ test no = "$can_build_shared" && enable_shared=no
+
+ # On AIX, shared libraries and static libraries use the same namespace, and
+ # are all built from PIC.
+ case $host_os in
+ aix3*)
+ test yes = "$enable_shared" && enable_static=no
+ if test -n "$RANLIB"; then
+ archive_cmds="$archive_cmds~\$RANLIB \$lib"
+ postinstall_cmds='$RANLIB $lib'
+ fi
+ ;;
+ aix[[4-9]]*)
+ if test ia64 != "$host_cpu"; then
+ case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in
+ yes,aix,yes) ;; # shared object as lib.so file only
+ yes,svr4,*) ;; # shared object as lib.so archive member only
+ yes,*) enable_static=no ;; # shared object in lib.a archive as well
+ esac
+ fi
+ ;;
+ esac
+ AC_MSG_RESULT([$enable_shared])
+
+ AC_MSG_CHECKING([whether to build static libraries])
+ # Make sure either enable_shared or enable_static is yes.
+ test yes = "$enable_shared" || enable_static=yes
+ AC_MSG_RESULT([$enable_static])
+
+ _LT_TAGVAR(GCC, $1)=$ac_cv_fc_compiler_gnu
+ _LT_TAGVAR(LD, $1)=$LD
+
+ ## CAVEAT EMPTOR:
+ ## There is no encapsulation within the following macros, do not change
+ ## the running order or otherwise move them around unless you know exactly
+ ## what you are doing...
+ _LT_SYS_HIDDEN_LIBDEPS($1)
+ _LT_COMPILER_PIC($1)
+ _LT_COMPILER_C_O($1)
+ _LT_COMPILER_FILE_LOCKS($1)
+ _LT_LINKER_SHLIBS($1)
+ _LT_SYS_DYNAMIC_LINKER($1)
+ _LT_LINKER_HARDCODE_LIBPATH($1)
+
+ _LT_CONFIG($1)
+ fi # test -n "$compiler"
+
+ GCC=$lt_save_GCC
+ CC=$lt_save_CC
+ CFLAGS=$lt_save_CFLAGS
+fi # test yes != "$_lt_disable_FC"
+
+AC_LANG_POP
+])# _LT_LANG_FC_CONFIG
+
+
+# _LT_LANG_GCJ_CONFIG([TAG])
+# --------------------------
+# Ensure that the configuration variables for the GNU Java Compiler compiler
+# are suitably defined. These variables are subsequently used by _LT_CONFIG
+# to write the compiler configuration to 'libtool'.
+m4_defun([_LT_LANG_GCJ_CONFIG],
+[AC_REQUIRE([LT_PROG_GCJ])dnl
+AC_LANG_SAVE
+
+# Source file extension for Java test sources.
+ac_ext=java
+
+# Object file extension for compiled Java test sources.
+objext=o
+_LT_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code="class foo {}"
+
+# Code to be used in simple link tests
+lt_simple_link_test_code='public class conftest { public static void main(String[[]] argv) {}; }'
+
+# ltmain only uses $CC for tagged configurations so make sure $CC is set.
+_LT_TAG_COMPILER
+
+# save warnings/boilerplate of simple test code
+_LT_COMPILER_BOILERPLATE
+_LT_LINKER_BOILERPLATE
+
+# Allow CC to be a program name with arguments.
+lt_save_CC=$CC
+lt_save_CFLAGS=$CFLAGS
+lt_save_GCC=$GCC
+GCC=yes
+CC=${GCJ-"gcj"}
+CFLAGS=$GCJFLAGS
+compiler=$CC
+_LT_TAGVAR(compiler, $1)=$CC
+_LT_TAGVAR(LD, $1)=$LD
+_LT_CC_BASENAME([$compiler])
+
+# GCJ did not exist at the time GCC didn't implicitly link libc in.
+_LT_TAGVAR(archive_cmds_need_lc, $1)=no
+
+_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
+_LT_TAGVAR(reload_flag, $1)=$reload_flag
+_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
+
+## CAVEAT EMPTOR:
+## There is no encapsulation within the following macros, do not change
+## the running order or otherwise move them around unless you know exactly
+## what you are doing...
+if test -n "$compiler"; then
+ _LT_COMPILER_NO_RTTI($1)
+ _LT_COMPILER_PIC($1)
+ _LT_COMPILER_C_O($1)
+ _LT_COMPILER_FILE_LOCKS($1)
+ _LT_LINKER_SHLIBS($1)
+ _LT_LINKER_HARDCODE_LIBPATH($1)
+
+ _LT_CONFIG($1)
+fi
+
+AC_LANG_RESTORE
+
+GCC=$lt_save_GCC
+CC=$lt_save_CC
+CFLAGS=$lt_save_CFLAGS
+])# _LT_LANG_GCJ_CONFIG
+
+
+# _LT_LANG_GO_CONFIG([TAG])
+# --------------------------
+# Ensure that the configuration variables for the GNU Go compiler
+# are suitably defined. These variables are subsequently used by _LT_CONFIG
+# to write the compiler configuration to 'libtool'.
+m4_defun([_LT_LANG_GO_CONFIG],
+[AC_REQUIRE([LT_PROG_GO])dnl
+AC_LANG_SAVE
+
+# Source file extension for Go test sources.
+ac_ext=go
+
+# Object file extension for compiled Go test sources.
+objext=o
+_LT_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code="package main; func main() { }"
+
+# Code to be used in simple link tests
+lt_simple_link_test_code='package main; func main() { }'
+
+# ltmain only uses $CC for tagged configurations so make sure $CC is set.
+_LT_TAG_COMPILER
+
+# save warnings/boilerplate of simple test code
+_LT_COMPILER_BOILERPLATE
+_LT_LINKER_BOILERPLATE
+
+# Allow CC to be a program name with arguments.
+lt_save_CC=$CC
+lt_save_CFLAGS=$CFLAGS
+lt_save_GCC=$GCC
+GCC=yes
+CC=${GOC-"gccgo"}
+CFLAGS=$GOFLAGS
+compiler=$CC
+_LT_TAGVAR(compiler, $1)=$CC
+_LT_TAGVAR(LD, $1)=$LD
+_LT_CC_BASENAME([$compiler])
+
+# Go did not exist at the time GCC didn't implicitly link libc in.
+_LT_TAGVAR(archive_cmds_need_lc, $1)=no
+
+_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
+_LT_TAGVAR(reload_flag, $1)=$reload_flag
+_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
+
+## CAVEAT EMPTOR:
+## There is no encapsulation within the following macros, do not change
+## the running order or otherwise move them around unless you know exactly
+## what you are doing...
+if test -n "$compiler"; then
+ _LT_COMPILER_NO_RTTI($1)
+ _LT_COMPILER_PIC($1)
+ _LT_COMPILER_C_O($1)
+ _LT_COMPILER_FILE_LOCKS($1)
+ _LT_LINKER_SHLIBS($1)
+ _LT_LINKER_HARDCODE_LIBPATH($1)
+
+ _LT_CONFIG($1)
+fi
+
+AC_LANG_RESTORE
+
+GCC=$lt_save_GCC
+CC=$lt_save_CC
+CFLAGS=$lt_save_CFLAGS
+])# _LT_LANG_GO_CONFIG
+
+
+# _LT_LANG_RC_CONFIG([TAG])
+# -------------------------
+# Ensure that the configuration variables for the Windows resource compiler
+# are suitably defined. These variables are subsequently used by _LT_CONFIG
+# to write the compiler configuration to 'libtool'.
+m4_defun([_LT_LANG_RC_CONFIG],
+[AC_REQUIRE([LT_PROG_RC])dnl
+AC_LANG_SAVE
+
+# Source file extension for RC test sources.
+ac_ext=rc
+
+# Object file extension for compiled RC test sources.
+objext=o
+_LT_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }'
+
+# Code to be used in simple link tests
+lt_simple_link_test_code=$lt_simple_compile_test_code
+
+# ltmain only uses $CC for tagged configurations so make sure $CC is set.
+_LT_TAG_COMPILER
+
+# save warnings/boilerplate of simple test code
+_LT_COMPILER_BOILERPLATE
+_LT_LINKER_BOILERPLATE
+
+# Allow CC to be a program name with arguments.
+lt_save_CC=$CC
+lt_save_CFLAGS=$CFLAGS
+lt_save_GCC=$GCC
+GCC=
+CC=${RC-"windres"}
+CFLAGS=
+compiler=$CC
+_LT_TAGVAR(compiler, $1)=$CC
+_LT_CC_BASENAME([$compiler])
+_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes
+
+if test -n "$compiler"; then
+ :
+ _LT_CONFIG($1)
+fi
+
+GCC=$lt_save_GCC
+AC_LANG_RESTORE
+CC=$lt_save_CC
+CFLAGS=$lt_save_CFLAGS
+])# _LT_LANG_RC_CONFIG
+
+
+# LT_PROG_GCJ
+# -----------
+AC_DEFUN([LT_PROG_GCJ],
+[m4_ifdef([AC_PROG_GCJ], [AC_PROG_GCJ],
+ [m4_ifdef([A][M_PROG_GCJ], [A][M_PROG_GCJ],
+ [AC_CHECK_TOOL(GCJ, gcj,)
+ test set = "${GCJFLAGS+set}" || GCJFLAGS="-g -O2"
+ AC_SUBST(GCJFLAGS)])])[]dnl
+])
+
+# Old name:
+AU_ALIAS([LT_AC_PROG_GCJ], [LT_PROG_GCJ])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([LT_AC_PROG_GCJ], [])
+
+
+# LT_PROG_GO
+# ----------
+AC_DEFUN([LT_PROG_GO],
+[AC_CHECK_TOOL(GOC, gccgo,)
+])
+
+
+# LT_PROG_RC
+# ----------
+AC_DEFUN([LT_PROG_RC],
+[AC_CHECK_TOOL(RC, windres,)
+])
+
+# Old name:
+AU_ALIAS([LT_AC_PROG_RC], [LT_PROG_RC])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([LT_AC_PROG_RC], [])
+
+
+# _LT_DECL_EGREP
+# --------------
+# If we don't have a new enough Autoconf to choose the best grep
+# available, choose the one first in the user's PATH.
+m4_defun([_LT_DECL_EGREP],
+[AC_REQUIRE([AC_PROG_EGREP])dnl
+AC_REQUIRE([AC_PROG_FGREP])dnl
+test -z "$GREP" && GREP=grep
+_LT_DECL([], [GREP], [1], [A grep program that handles long lines])
+_LT_DECL([], [EGREP], [1], [An ERE matcher])
+_LT_DECL([], [FGREP], [1], [A literal string matcher])
+dnl Non-bleeding-edge autoconf doesn't subst GREP, so do it here too
+AC_SUBST([GREP])
+])
+
+
+# _LT_DECL_OBJDUMP
+# --------------
+# If we don't have a new enough Autoconf to choose the best objdump
+# available, choose the one first in the user's PATH.
+m4_defun([_LT_DECL_OBJDUMP],
+[AC_CHECK_TOOL(OBJDUMP, objdump, false)
+test -z "$OBJDUMP" && OBJDUMP=objdump
+_LT_DECL([], [OBJDUMP], [1], [An object symbol dumper])
+AC_SUBST([OBJDUMP])
+])
+
+# _LT_DECL_DLLTOOL
+# ----------------
+# Ensure DLLTOOL variable is set.
+m4_defun([_LT_DECL_DLLTOOL],
+[AC_CHECK_TOOL(DLLTOOL, dlltool, false)
+test -z "$DLLTOOL" && DLLTOOL=dlltool
+_LT_DECL([], [DLLTOOL], [1], [DLL creation program])
+AC_SUBST([DLLTOOL])
+])
+
+# _LT_DECL_SED
+# ------------
+# Check for a fully-functional sed program, that truncates
+# as few characters as possible. Prefer GNU sed if found.
+m4_defun([_LT_DECL_SED],
+[AC_PROG_SED
+test -z "$SED" && SED=sed
+Xsed="$SED -e 1s/^X//"
+_LT_DECL([], [SED], [1], [A sed program that does not truncate output])
+_LT_DECL([], [Xsed], ["\$SED -e 1s/^X//"],
+ [Sed that helps us avoid accidentally triggering echo(1) options like -n])
+])# _LT_DECL_SED
+
+m4_ifndef([AC_PROG_SED], [
+############################################################
+# NOTE: This macro has been submitted for inclusion into #
+# GNU Autoconf as AC_PROG_SED. When it is available in #
+# a released version of Autoconf we should remove this #
+# macro and use it instead. #
+############################################################
+
+m4_defun([AC_PROG_SED],
+[AC_MSG_CHECKING([for a sed that does not truncate output])
+AC_CACHE_VAL(lt_cv_path_SED,
+[# Loop through the user's path and test for sed and gsed.
+# Then use that list of sed's as ones to test for truncation.
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for lt_ac_prog in sed gsed; do
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then
+ lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext"
+ fi
+ done
+ done
+done
+IFS=$as_save_IFS
+lt_ac_max=0
+lt_ac_count=0
+# Add /usr/xpg4/bin/sed as it is typically found on Solaris
+# along with /bin/sed that truncates output.
+for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do
+ test ! -f "$lt_ac_sed" && continue
+ cat /dev/null > conftest.in
+ lt_ac_count=0
+ echo $ECHO_N "0123456789$ECHO_C" >conftest.in
+ # Check for GNU sed and select it if it is found.
+ if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then
+ lt_cv_path_SED=$lt_ac_sed
+ break
+ fi
+ while true; do
+ cat conftest.in conftest.in >conftest.tmp
+ mv conftest.tmp conftest.in
+ cp conftest.in conftest.nl
+ echo >>conftest.nl
+ $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break
+ cmp -s conftest.out conftest.nl || break
+ # 10000 chars as input seems more than enough
+ test 10 -lt "$lt_ac_count" && break
+ lt_ac_count=`expr $lt_ac_count + 1`
+ if test "$lt_ac_count" -gt "$lt_ac_max"; then
+ lt_ac_max=$lt_ac_count
+ lt_cv_path_SED=$lt_ac_sed
+ fi
+ done
+done
+])
+SED=$lt_cv_path_SED
+AC_SUBST([SED])
+AC_MSG_RESULT([$SED])
+])#AC_PROG_SED
+])#m4_ifndef
+
+# Old name:
+AU_ALIAS([LT_AC_PROG_SED], [AC_PROG_SED])
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([LT_AC_PROG_SED], [])
+
+
+# _LT_CHECK_SHELL_FEATURES
+# ------------------------
+# Find out whether the shell is Bourne or XSI compatible,
+# or has some other useful features.
+m4_defun([_LT_CHECK_SHELL_FEATURES],
+[if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then
+ lt_unset=unset
+else
+ lt_unset=false
+fi
+_LT_DECL([], [lt_unset], [0], [whether the shell understands "unset"])dnl
+
+# test EBCDIC or ASCII
+case `echo X|tr X '\101'` in
+ A) # ASCII based system
+ # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr
+ lt_SP2NL='tr \040 \012'
+ lt_NL2SP='tr \015\012 \040\040'
+ ;;
+ *) # EBCDIC based system
+ lt_SP2NL='tr \100 \n'
+ lt_NL2SP='tr \r\n \100\100'
+ ;;
+esac
+_LT_DECL([SP2NL], [lt_SP2NL], [1], [turn spaces into newlines])dnl
+_LT_DECL([NL2SP], [lt_NL2SP], [1], [turn newlines into spaces])dnl
+])# _LT_CHECK_SHELL_FEATURES
+
+
+# _LT_PATH_CONVERSION_FUNCTIONS
+# -----------------------------
+# Determine what file name conversion functions should be used by
+# func_to_host_file (and, implicitly, by func_to_host_path). These are needed
+# for certain cross-compile configurations and native mingw.
+m4_defun([_LT_PATH_CONVERSION_FUNCTIONS],
+[AC_REQUIRE([AC_CANONICAL_HOST])dnl
+AC_REQUIRE([AC_CANONICAL_BUILD])dnl
+AC_MSG_CHECKING([how to convert $build file names to $host format])
+AC_CACHE_VAL(lt_cv_to_host_file_cmd,
+[case $host in
+ *-*-mingw* )
+ case $build in
+ *-*-mingw* ) # actually msys
+ lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32
+ ;;
+ *-*-cygwin* )
+ lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32
+ ;;
+ * ) # otherwise, assume *nix
+ lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32
+ ;;
+ esac
+ ;;
+ *-*-cygwin* )
+ case $build in
+ *-*-mingw* ) # actually msys
+ lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin
+ ;;
+ *-*-cygwin* )
+ lt_cv_to_host_file_cmd=func_convert_file_noop
+ ;;
+ * ) # otherwise, assume *nix
+ lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin
+ ;;
+ esac
+ ;;
+ * ) # unhandled hosts (and "normal" native builds)
+ lt_cv_to_host_file_cmd=func_convert_file_noop
+ ;;
+esac
+])
+to_host_file_cmd=$lt_cv_to_host_file_cmd
+AC_MSG_RESULT([$lt_cv_to_host_file_cmd])
+_LT_DECL([to_host_file_cmd], [lt_cv_to_host_file_cmd],
+ [0], [convert $build file names to $host format])dnl
+
+AC_MSG_CHECKING([how to convert $build file names to toolchain format])
+AC_CACHE_VAL(lt_cv_to_tool_file_cmd,
+[#assume ordinary cross tools, or native build.
+lt_cv_to_tool_file_cmd=func_convert_file_noop
+case $host in
+ *-*-mingw* )
+ case $build in
+ *-*-mingw* ) # actually msys
+ lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32
+ ;;
+ esac
+ ;;
+esac
+])
+to_tool_file_cmd=$lt_cv_to_tool_file_cmd
+AC_MSG_RESULT([$lt_cv_to_tool_file_cmd])
+_LT_DECL([to_tool_file_cmd], [lt_cv_to_tool_file_cmd],
+ [0], [convert $build files to toolchain format])dnl
+])# _LT_PATH_CONVERSION_FUNCTIONS
diff --git a/m4/ltoptions.m4 b/m4/ltoptions.m4
new file mode 100644
index 000000000..94b082976
--- /dev/null
+++ b/m4/ltoptions.m4
@@ -0,0 +1,437 @@
+# Helper functions for option handling. -*- Autoconf -*-
+#
+# Copyright (C) 2004-2005, 2007-2009, 2011-2015 Free Software
+# Foundation, Inc.
+# Written by Gary V. Vaughan, 2004
+#
+# This file 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.
+
+# serial 8 ltoptions.m4
+
+# This is to help aclocal find these macros, as it can't see m4_define.
+AC_DEFUN([LTOPTIONS_VERSION], [m4_if([1])])
+
+
+# _LT_MANGLE_OPTION(MACRO-NAME, OPTION-NAME)
+# ------------------------------------------
+m4_define([_LT_MANGLE_OPTION],
+[[_LT_OPTION_]m4_bpatsubst($1__$2, [[^a-zA-Z0-9_]], [_])])
+
+
+# _LT_SET_OPTION(MACRO-NAME, OPTION-NAME)
+# ---------------------------------------
+# Set option OPTION-NAME for macro MACRO-NAME, and if there is a
+# matching handler defined, dispatch to it. Other OPTION-NAMEs are
+# saved as a flag.
+m4_define([_LT_SET_OPTION],
+[m4_define(_LT_MANGLE_OPTION([$1], [$2]))dnl
+m4_ifdef(_LT_MANGLE_DEFUN([$1], [$2]),
+ _LT_MANGLE_DEFUN([$1], [$2]),
+ [m4_warning([Unknown $1 option '$2'])])[]dnl
+])
+
+
+# _LT_IF_OPTION(MACRO-NAME, OPTION-NAME, IF-SET, [IF-NOT-SET])
+# ------------------------------------------------------------
+# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise.
+m4_define([_LT_IF_OPTION],
+[m4_ifdef(_LT_MANGLE_OPTION([$1], [$2]), [$3], [$4])])
+
+
+# _LT_UNLESS_OPTIONS(MACRO-NAME, OPTION-LIST, IF-NOT-SET)
+# -------------------------------------------------------
+# Execute IF-NOT-SET unless all options in OPTION-LIST for MACRO-NAME
+# are set.
+m4_define([_LT_UNLESS_OPTIONS],
+[m4_foreach([_LT_Option], m4_split(m4_normalize([$2])),
+ [m4_ifdef(_LT_MANGLE_OPTION([$1], _LT_Option),
+ [m4_define([$0_found])])])[]dnl
+m4_ifdef([$0_found], [m4_undefine([$0_found])], [$3
+])[]dnl
+])
+
+
+# _LT_SET_OPTIONS(MACRO-NAME, OPTION-LIST)
+# ----------------------------------------
+# OPTION-LIST is a space-separated list of Libtool options associated
+# with MACRO-NAME. If any OPTION has a matching handler declared with
+# LT_OPTION_DEFINE, dispatch to that macro; otherwise complain about
+# the unknown option and exit.
+m4_defun([_LT_SET_OPTIONS],
+[# Set options
+m4_foreach([_LT_Option], m4_split(m4_normalize([$2])),
+ [_LT_SET_OPTION([$1], _LT_Option)])
+
+m4_if([$1],[LT_INIT],[
+ dnl
+ dnl Simply set some default values (i.e off) if boolean options were not
+ dnl specified:
+ _LT_UNLESS_OPTIONS([LT_INIT], [dlopen], [enable_dlopen=no
+ ])
+ _LT_UNLESS_OPTIONS([LT_INIT], [win32-dll], [enable_win32_dll=no
+ ])
+ dnl
+ dnl If no reference was made to various pairs of opposing options, then
+ dnl we run the default mode handler for the pair. For example, if neither
+ dnl 'shared' nor 'disable-shared' was passed, we enable building of shared
+ dnl archives by default:
+ _LT_UNLESS_OPTIONS([LT_INIT], [shared disable-shared], [_LT_ENABLE_SHARED])
+ _LT_UNLESS_OPTIONS([LT_INIT], [static disable-static], [_LT_ENABLE_STATIC])
+ _LT_UNLESS_OPTIONS([LT_INIT], [pic-only no-pic], [_LT_WITH_PIC])
+ _LT_UNLESS_OPTIONS([LT_INIT], [fast-install disable-fast-install],
+ [_LT_ENABLE_FAST_INSTALL])
+ _LT_UNLESS_OPTIONS([LT_INIT], [aix-soname=aix aix-soname=both aix-soname=svr4],
+ [_LT_WITH_AIX_SONAME([aix])])
+ ])
+])# _LT_SET_OPTIONS
+
+
+## --------------------------------- ##
+## Macros to handle LT_INIT options. ##
+## --------------------------------- ##
+
+# _LT_MANGLE_DEFUN(MACRO-NAME, OPTION-NAME)
+# -----------------------------------------
+m4_define([_LT_MANGLE_DEFUN],
+[[_LT_OPTION_DEFUN_]m4_bpatsubst(m4_toupper([$1__$2]), [[^A-Z0-9_]], [_])])
+
+
+# LT_OPTION_DEFINE(MACRO-NAME, OPTION-NAME, CODE)
+# -----------------------------------------------
+m4_define([LT_OPTION_DEFINE],
+[m4_define(_LT_MANGLE_DEFUN([$1], [$2]), [$3])[]dnl
+])# LT_OPTION_DEFINE
+
+
+# dlopen
+# ------
+LT_OPTION_DEFINE([LT_INIT], [dlopen], [enable_dlopen=yes
+])
+
+AU_DEFUN([AC_LIBTOOL_DLOPEN],
+[_LT_SET_OPTION([LT_INIT], [dlopen])
+AC_DIAGNOSE([obsolete],
+[$0: Remove this warning and the call to _LT_SET_OPTION when you
+put the 'dlopen' option into LT_INIT's first parameter.])
+])
+
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_LIBTOOL_DLOPEN], [])
+
+
+# win32-dll
+# ---------
+# Declare package support for building win32 dll's.
+LT_OPTION_DEFINE([LT_INIT], [win32-dll],
+[enable_win32_dll=yes
+
+case $host in
+*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*)
+ AC_CHECK_TOOL(AS, as, false)
+ AC_CHECK_TOOL(DLLTOOL, dlltool, false)
+ AC_CHECK_TOOL(OBJDUMP, objdump, false)
+ ;;
+esac
+
+test -z "$AS" && AS=as
+_LT_DECL([], [AS], [1], [Assembler program])dnl
+
+test -z "$DLLTOOL" && DLLTOOL=dlltool
+_LT_DECL([], [DLLTOOL], [1], [DLL creation program])dnl
+
+test -z "$OBJDUMP" && OBJDUMP=objdump
+_LT_DECL([], [OBJDUMP], [1], [Object dumper program])dnl
+])# win32-dll
+
+AU_DEFUN([AC_LIBTOOL_WIN32_DLL],
+[AC_REQUIRE([AC_CANONICAL_HOST])dnl
+_LT_SET_OPTION([LT_INIT], [win32-dll])
+AC_DIAGNOSE([obsolete],
+[$0: Remove this warning and the call to _LT_SET_OPTION when you
+put the 'win32-dll' option into LT_INIT's first parameter.])
+])
+
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_LIBTOOL_WIN32_DLL], [])
+
+
+# _LT_ENABLE_SHARED([DEFAULT])
+# ----------------------------
+# implement the --enable-shared flag, and supports the 'shared' and
+# 'disable-shared' LT_INIT options.
+# DEFAULT is either 'yes' or 'no'. If omitted, it defaults to 'yes'.
+m4_define([_LT_ENABLE_SHARED],
+[m4_define([_LT_ENABLE_SHARED_DEFAULT], [m4_if($1, no, no, yes)])dnl
+AC_ARG_ENABLE([shared],
+ [AS_HELP_STRING([--enable-shared@<:@=PKGS@:>@],
+ [build shared libraries @<:@default=]_LT_ENABLE_SHARED_DEFAULT[@:>@])],
+ [p=${PACKAGE-default}
+ case $enableval in
+ yes) enable_shared=yes ;;
+ no) enable_shared=no ;;
+ *)
+ enable_shared=no
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
+ for pkg in $enableval; do
+ IFS=$lt_save_ifs
+ if test "X$pkg" = "X$p"; then
+ enable_shared=yes
+ fi
+ done
+ IFS=$lt_save_ifs
+ ;;
+ esac],
+ [enable_shared=]_LT_ENABLE_SHARED_DEFAULT)
+
+ _LT_DECL([build_libtool_libs], [enable_shared], [0],
+ [Whether or not to build shared libraries])
+])# _LT_ENABLE_SHARED
+
+LT_OPTION_DEFINE([LT_INIT], [shared], [_LT_ENABLE_SHARED([yes])])
+LT_OPTION_DEFINE([LT_INIT], [disable-shared], [_LT_ENABLE_SHARED([no])])
+
+# Old names:
+AC_DEFUN([AC_ENABLE_SHARED],
+[_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[shared])
+])
+
+AC_DEFUN([AC_DISABLE_SHARED],
+[_LT_SET_OPTION([LT_INIT], [disable-shared])
+])
+
+AU_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)])
+AU_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)])
+
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AM_ENABLE_SHARED], [])
+dnl AC_DEFUN([AM_DISABLE_SHARED], [])
+
+
+
+# _LT_ENABLE_STATIC([DEFAULT])
+# ----------------------------
+# implement the --enable-static flag, and support the 'static' and
+# 'disable-static' LT_INIT options.
+# DEFAULT is either 'yes' or 'no'. If omitted, it defaults to 'yes'.
+m4_define([_LT_ENABLE_STATIC],
+[m4_define([_LT_ENABLE_STATIC_DEFAULT], [m4_if($1, no, no, yes)])dnl
+AC_ARG_ENABLE([static],
+ [AS_HELP_STRING([--enable-static@<:@=PKGS@:>@],
+ [build static libraries @<:@default=]_LT_ENABLE_STATIC_DEFAULT[@:>@])],
+ [p=${PACKAGE-default}
+ case $enableval in
+ yes) enable_static=yes ;;
+ no) enable_static=no ;;
+ *)
+ enable_static=no
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
+ for pkg in $enableval; do
+ IFS=$lt_save_ifs
+ if test "X$pkg" = "X$p"; then
+ enable_static=yes
+ fi
+ done
+ IFS=$lt_save_ifs
+ ;;
+ esac],
+ [enable_static=]_LT_ENABLE_STATIC_DEFAULT)
+
+ _LT_DECL([build_old_libs], [enable_static], [0],
+ [Whether or not to build static libraries])
+])# _LT_ENABLE_STATIC
+
+LT_OPTION_DEFINE([LT_INIT], [static], [_LT_ENABLE_STATIC([yes])])
+LT_OPTION_DEFINE([LT_INIT], [disable-static], [_LT_ENABLE_STATIC([no])])
+
+# Old names:
+AC_DEFUN([AC_ENABLE_STATIC],
+[_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[static])
+])
+
+AC_DEFUN([AC_DISABLE_STATIC],
+[_LT_SET_OPTION([LT_INIT], [disable-static])
+])
+
+AU_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)])
+AU_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)])
+
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AM_ENABLE_STATIC], [])
+dnl AC_DEFUN([AM_DISABLE_STATIC], [])
+
+
+
+# _LT_ENABLE_FAST_INSTALL([DEFAULT])
+# ----------------------------------
+# implement the --enable-fast-install flag, and support the 'fast-install'
+# and 'disable-fast-install' LT_INIT options.
+# DEFAULT is either 'yes' or 'no'. If omitted, it defaults to 'yes'.
+m4_define([_LT_ENABLE_FAST_INSTALL],
+[m4_define([_LT_ENABLE_FAST_INSTALL_DEFAULT], [m4_if($1, no, no, yes)])dnl
+AC_ARG_ENABLE([fast-install],
+ [AS_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@],
+ [optimize for fast installation @<:@default=]_LT_ENABLE_FAST_INSTALL_DEFAULT[@:>@])],
+ [p=${PACKAGE-default}
+ case $enableval in
+ yes) enable_fast_install=yes ;;
+ no) enable_fast_install=no ;;
+ *)
+ enable_fast_install=no
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
+ for pkg in $enableval; do
+ IFS=$lt_save_ifs
+ if test "X$pkg" = "X$p"; then
+ enable_fast_install=yes
+ fi
+ done
+ IFS=$lt_save_ifs
+ ;;
+ esac],
+ [enable_fast_install=]_LT_ENABLE_FAST_INSTALL_DEFAULT)
+
+_LT_DECL([fast_install], [enable_fast_install], [0],
+ [Whether or not to optimize for fast installation])dnl
+])# _LT_ENABLE_FAST_INSTALL
+
+LT_OPTION_DEFINE([LT_INIT], [fast-install], [_LT_ENABLE_FAST_INSTALL([yes])])
+LT_OPTION_DEFINE([LT_INIT], [disable-fast-install], [_LT_ENABLE_FAST_INSTALL([no])])
+
+# Old names:
+AU_DEFUN([AC_ENABLE_FAST_INSTALL],
+[_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[fast-install])
+AC_DIAGNOSE([obsolete],
+[$0: Remove this warning and the call to _LT_SET_OPTION when you put
+the 'fast-install' option into LT_INIT's first parameter.])
+])
+
+AU_DEFUN([AC_DISABLE_FAST_INSTALL],
+[_LT_SET_OPTION([LT_INIT], [disable-fast-install])
+AC_DIAGNOSE([obsolete],
+[$0: Remove this warning and the call to _LT_SET_OPTION when you put
+the 'disable-fast-install' option into LT_INIT's first parameter.])
+])
+
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_ENABLE_FAST_INSTALL], [])
+dnl AC_DEFUN([AM_DISABLE_FAST_INSTALL], [])
+
+
+# _LT_WITH_AIX_SONAME([DEFAULT])
+# ----------------------------------
+# implement the --with-aix-soname flag, and support the `aix-soname=aix'
+# and `aix-soname=both' and `aix-soname=svr4' LT_INIT options. DEFAULT
+# is either `aix', `both' or `svr4'. If omitted, it defaults to `aix'.
+m4_define([_LT_WITH_AIX_SONAME],
+[m4_define([_LT_WITH_AIX_SONAME_DEFAULT], [m4_if($1, svr4, svr4, m4_if($1, both, both, aix))])dnl
+shared_archive_member_spec=
+case $host,$enable_shared in
+power*-*-aix[[5-9]]*,yes)
+ AC_MSG_CHECKING([which variant of shared library versioning to provide])
+ AC_ARG_WITH([aix-soname],
+ [AS_HELP_STRING([--with-aix-soname=aix|svr4|both],
+ [shared library versioning (aka "SONAME") variant to provide on AIX, @<:@default=]_LT_WITH_AIX_SONAME_DEFAULT[@:>@.])],
+ [case $withval in
+ aix|svr4|both)
+ ;;
+ *)
+ AC_MSG_ERROR([Unknown argument to --with-aix-soname])
+ ;;
+ esac
+ lt_cv_with_aix_soname=$with_aix_soname],
+ [AC_CACHE_VAL([lt_cv_with_aix_soname],
+ [lt_cv_with_aix_soname=]_LT_WITH_AIX_SONAME_DEFAULT)
+ with_aix_soname=$lt_cv_with_aix_soname])
+ AC_MSG_RESULT([$with_aix_soname])
+ if test aix != "$with_aix_soname"; then
+ # For the AIX way of multilib, we name the shared archive member
+ # based on the bitwidth used, traditionally 'shr.o' or 'shr_64.o',
+ # and 'shr.imp' or 'shr_64.imp', respectively, for the Import File.
+ # Even when GNU compilers ignore OBJECT_MODE but need '-maix64' flag,
+ # the AIX toolchain works better with OBJECT_MODE set (default 32).
+ if test 64 = "${OBJECT_MODE-32}"; then
+ shared_archive_member_spec=shr_64
+ else
+ shared_archive_member_spec=shr
+ fi
+ fi
+ ;;
+*)
+ with_aix_soname=aix
+ ;;
+esac
+
+_LT_DECL([], [shared_archive_member_spec], [0],
+ [Shared archive member basename, for filename based shared library versioning on AIX])dnl
+])# _LT_WITH_AIX_SONAME
+
+LT_OPTION_DEFINE([LT_INIT], [aix-soname=aix], [_LT_WITH_AIX_SONAME([aix])])
+LT_OPTION_DEFINE([LT_INIT], [aix-soname=both], [_LT_WITH_AIX_SONAME([both])])
+LT_OPTION_DEFINE([LT_INIT], [aix-soname=svr4], [_LT_WITH_AIX_SONAME([svr4])])
+
+
+# _LT_WITH_PIC([MODE])
+# --------------------
+# implement the --with-pic flag, and support the 'pic-only' and 'no-pic'
+# LT_INIT options.
+# MODE is either 'yes' or 'no'. If omitted, it defaults to 'both'.
+m4_define([_LT_WITH_PIC],
+[AC_ARG_WITH([pic],
+ [AS_HELP_STRING([--with-pic@<:@=PKGS@:>@],
+ [try to use only PIC/non-PIC objects @<:@default=use both@:>@])],
+ [lt_p=${PACKAGE-default}
+ case $withval in
+ yes|no) pic_mode=$withval ;;
+ *)
+ pic_mode=default
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
+ for lt_pkg in $withval; do
+ IFS=$lt_save_ifs
+ if test "X$lt_pkg" = "X$lt_p"; then
+ pic_mode=yes
+ fi
+ done
+ IFS=$lt_save_ifs
+ ;;
+ esac],
+ [pic_mode=m4_default([$1], [default])])
+
+_LT_DECL([], [pic_mode], [0], [What type of objects to build])dnl
+])# _LT_WITH_PIC
+
+LT_OPTION_DEFINE([LT_INIT], [pic-only], [_LT_WITH_PIC([yes])])
+LT_OPTION_DEFINE([LT_INIT], [no-pic], [_LT_WITH_PIC([no])])
+
+# Old name:
+AU_DEFUN([AC_LIBTOOL_PICMODE],
+[_LT_SET_OPTION([LT_INIT], [pic-only])
+AC_DIAGNOSE([obsolete],
+[$0: Remove this warning and the call to _LT_SET_OPTION when you
+put the 'pic-only' option into LT_INIT's first parameter.])
+])
+
+dnl aclocal-1.4 backwards compatibility:
+dnl AC_DEFUN([AC_LIBTOOL_PICMODE], [])
+
+## ----------------- ##
+## LTDL_INIT Options ##
+## ----------------- ##
+
+m4_define([_LTDL_MODE], [])
+LT_OPTION_DEFINE([LTDL_INIT], [nonrecursive],
+ [m4_define([_LTDL_MODE], [nonrecursive])])
+LT_OPTION_DEFINE([LTDL_INIT], [recursive],
+ [m4_define([_LTDL_MODE], [recursive])])
+LT_OPTION_DEFINE([LTDL_INIT], [subproject],
+ [m4_define([_LTDL_MODE], [subproject])])
+
+m4_define([_LTDL_TYPE], [])
+LT_OPTION_DEFINE([LTDL_INIT], [installable],
+ [m4_define([_LTDL_TYPE], [installable])])
+LT_OPTION_DEFINE([LTDL_INIT], [convenience],
+ [m4_define([_LTDL_TYPE], [convenience])])
diff --git a/m4/ltsugar.m4 b/m4/ltsugar.m4
new file mode 100644
index 000000000..48bc9344a
--- /dev/null
+++ b/m4/ltsugar.m4
@@ -0,0 +1,124 @@
+# ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*-
+#
+# Copyright (C) 2004-2005, 2007-2008, 2011-2015 Free Software
+# Foundation, Inc.
+# Written by Gary V. Vaughan, 2004
+#
+# This file 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.
+
+# serial 6 ltsugar.m4
+
+# This is to help aclocal find these macros, as it can't see m4_define.
+AC_DEFUN([LTSUGAR_VERSION], [m4_if([0.1])])
+
+
+# lt_join(SEP, ARG1, [ARG2...])
+# -----------------------------
+# Produce ARG1SEPARG2...SEPARGn, omitting [] arguments and their
+# associated separator.
+# Needed until we can rely on m4_join from Autoconf 2.62, since all earlier
+# versions in m4sugar had bugs.
+m4_define([lt_join],
+[m4_if([$#], [1], [],
+ [$#], [2], [[$2]],
+ [m4_if([$2], [], [], [[$2]_])$0([$1], m4_shift(m4_shift($@)))])])
+m4_define([_lt_join],
+[m4_if([$#$2], [2], [],
+ [m4_if([$2], [], [], [[$1$2]])$0([$1], m4_shift(m4_shift($@)))])])
+
+
+# lt_car(LIST)
+# lt_cdr(LIST)
+# ------------
+# Manipulate m4 lists.
+# These macros are necessary as long as will still need to support
+# Autoconf-2.59, which quotes differently.
+m4_define([lt_car], [[$1]])
+m4_define([lt_cdr],
+[m4_if([$#], 0, [m4_fatal([$0: cannot be called without arguments])],
+ [$#], 1, [],
+ [m4_dquote(m4_shift($@))])])
+m4_define([lt_unquote], $1)
+
+
+# lt_append(MACRO-NAME, STRING, [SEPARATOR])
+# ------------------------------------------
+# Redefine MACRO-NAME to hold its former content plus 'SEPARATOR''STRING'.
+# Note that neither SEPARATOR nor STRING are expanded; they are appended
+# to MACRO-NAME as is (leaving the expansion for when MACRO-NAME is invoked).
+# No SEPARATOR is output if MACRO-NAME was previously undefined (different
+# than defined and empty).
+#
+# This macro is needed until we can rely on Autoconf 2.62, since earlier
+# versions of m4sugar mistakenly expanded SEPARATOR but not STRING.
+m4_define([lt_append],
+[m4_define([$1],
+ m4_ifdef([$1], [m4_defn([$1])[$3]])[$2])])
+
+
+
+# lt_combine(SEP, PREFIX-LIST, INFIX, SUFFIX1, [SUFFIX2...])
+# ----------------------------------------------------------
+# Produce a SEP delimited list of all paired combinations of elements of
+# PREFIX-LIST with SUFFIX1 through SUFFIXn. Each element of the list
+# has the form PREFIXmINFIXSUFFIXn.
+# Needed until we can rely on m4_combine added in Autoconf 2.62.
+m4_define([lt_combine],
+[m4_if(m4_eval([$# > 3]), [1],
+ [m4_pushdef([_Lt_sep], [m4_define([_Lt_sep], m4_defn([lt_car]))])]]dnl
+[[m4_foreach([_Lt_prefix], [$2],
+ [m4_foreach([_Lt_suffix],
+ ]m4_dquote(m4_dquote(m4_shift(m4_shift(m4_shift($@)))))[,
+ [_Lt_sep([$1])[]m4_defn([_Lt_prefix])[$3]m4_defn([_Lt_suffix])])])])])
+
+
+# lt_if_append_uniq(MACRO-NAME, VARNAME, [SEPARATOR], [UNIQ], [NOT-UNIQ])
+# -----------------------------------------------------------------------
+# Iff MACRO-NAME does not yet contain VARNAME, then append it (delimited
+# by SEPARATOR if supplied) and expand UNIQ, else NOT-UNIQ.
+m4_define([lt_if_append_uniq],
+[m4_ifdef([$1],
+ [m4_if(m4_index([$3]m4_defn([$1])[$3], [$3$2$3]), [-1],
+ [lt_append([$1], [$2], [$3])$4],
+ [$5])],
+ [lt_append([$1], [$2], [$3])$4])])
+
+
+# lt_dict_add(DICT, KEY, VALUE)
+# -----------------------------
+m4_define([lt_dict_add],
+[m4_define([$1($2)], [$3])])
+
+
+# lt_dict_add_subkey(DICT, KEY, SUBKEY, VALUE)
+# --------------------------------------------
+m4_define([lt_dict_add_subkey],
+[m4_define([$1($2:$3)], [$4])])
+
+
+# lt_dict_fetch(DICT, KEY, [SUBKEY])
+# ----------------------------------
+m4_define([lt_dict_fetch],
+[m4_ifval([$3],
+ m4_ifdef([$1($2:$3)], [m4_defn([$1($2:$3)])]),
+ m4_ifdef([$1($2)], [m4_defn([$1($2)])]))])
+
+
+# lt_if_dict_fetch(DICT, KEY, [SUBKEY], VALUE, IF-TRUE, [IF-FALSE])
+# -----------------------------------------------------------------
+m4_define([lt_if_dict_fetch],
+[m4_if(lt_dict_fetch([$1], [$2], [$3]), [$4],
+ [$5],
+ [$6])])
+
+
+# lt_dict_filter(DICT, [SUBKEY], VALUE, [SEPARATOR], KEY, [...])
+# --------------------------------------------------------------
+m4_define([lt_dict_filter],
+[m4_if([$5], [], [],
+ [lt_join(m4_quote(m4_default([$4], [[, ]])),
+ lt_unquote(m4_split(m4_normalize(m4_foreach(_Lt_key, lt_car([m4_shiftn(4, $@)]),
+ [lt_if_dict_fetch([$1], _Lt_key, [$2], [$3], [_Lt_key ])])))))])[]dnl
+])
diff --git a/m4/ltversion.m4 b/m4/ltversion.m4
new file mode 100644
index 000000000..fa04b52a3
--- /dev/null
+++ b/m4/ltversion.m4
@@ -0,0 +1,23 @@
+# ltversion.m4 -- version numbers -*- Autoconf -*-
+#
+# Copyright (C) 2004, 2011-2015 Free Software Foundation, Inc.
+# Written by Scott James Remnant, 2004
+#
+# This file 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.
+
+# @configure_input@
+
+# serial 4179 ltversion.m4
+# This file is part of GNU Libtool
+
+m4_define([LT_PACKAGE_VERSION], [2.4.6])
+m4_define([LT_PACKAGE_REVISION], [2.4.6])
+
+AC_DEFUN([LTVERSION_VERSION],
+[macro_version='2.4.6'
+macro_revision='2.4.6'
+_LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?])
+_LT_DECL(, macro_revision, 0)
+])
diff --git a/m4/lt~obsolete.m4 b/m4/lt~obsolete.m4
new file mode 100644
index 000000000..c6b26f88f
--- /dev/null
+++ b/m4/lt~obsolete.m4
@@ -0,0 +1,99 @@
+# lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*-
+#
+# Copyright (C) 2004-2005, 2007, 2009, 2011-2015 Free Software
+# Foundation, Inc.
+# Written by Scott James Remnant, 2004.
+#
+# This file 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.
+
+# serial 5 lt~obsolete.m4
+
+# These exist entirely to fool aclocal when bootstrapping libtool.
+#
+# In the past libtool.m4 has provided macros via AC_DEFUN (or AU_DEFUN),
+# which have later been changed to m4_define as they aren't part of the
+# exported API, or moved to Autoconf or Automake where they belong.
+#
+# The trouble is, aclocal is a bit thick. It'll see the old AC_DEFUN
+# in /usr/share/aclocal/libtool.m4 and remember it, then when it sees us
+# using a macro with the same name in our local m4/libtool.m4 it'll
+# pull the old libtool.m4 in (it doesn't see our shiny new m4_define
+# and doesn't know about Autoconf macros at all.)
+#
+# So we provide this file, which has a silly filename so it's always
+# included after everything else. This provides aclocal with the
+# AC_DEFUNs it wants, but when m4 processes it, it doesn't do anything
+# because those macros already exist, or will be overwritten later.
+# We use AC_DEFUN over AU_DEFUN for compatibility with aclocal-1.6.
+#
+# Anytime we withdraw an AC_DEFUN or AU_DEFUN, remember to add it here.
+# Yes, that means every name once taken will need to remain here until
+# we give up compatibility with versions before 1.7, at which point
+# we need to keep only those names which we still refer to.
+
+# This is to help aclocal find these macros, as it can't see m4_define.
+AC_DEFUN([LTOBSOLETE_VERSION], [m4_if([1])])
+
+m4_ifndef([AC_LIBTOOL_LINKER_OPTION], [AC_DEFUN([AC_LIBTOOL_LINKER_OPTION])])
+m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP])])
+m4_ifndef([_LT_AC_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH])])
+m4_ifndef([_LT_AC_SHELL_INIT], [AC_DEFUN([_LT_AC_SHELL_INIT])])
+m4_ifndef([_LT_AC_SYS_LIBPATH_AIX], [AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX])])
+m4_ifndef([_LT_PROG_LTMAIN], [AC_DEFUN([_LT_PROG_LTMAIN])])
+m4_ifndef([_LT_AC_TAGVAR], [AC_DEFUN([_LT_AC_TAGVAR])])
+m4_ifndef([AC_LTDL_ENABLE_INSTALL], [AC_DEFUN([AC_LTDL_ENABLE_INSTALL])])
+m4_ifndef([AC_LTDL_PREOPEN], [AC_DEFUN([AC_LTDL_PREOPEN])])
+m4_ifndef([_LT_AC_SYS_COMPILER], [AC_DEFUN([_LT_AC_SYS_COMPILER])])
+m4_ifndef([_LT_AC_LOCK], [AC_DEFUN([_LT_AC_LOCK])])
+m4_ifndef([AC_LIBTOOL_SYS_OLD_ARCHIVE], [AC_DEFUN([AC_LIBTOOL_SYS_OLD_ARCHIVE])])
+m4_ifndef([_LT_AC_TRY_DLOPEN_SELF], [AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF])])
+m4_ifndef([AC_LIBTOOL_PROG_CC_C_O], [AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O])])
+m4_ifndef([AC_LIBTOOL_SYS_HARD_LINK_LOCKS], [AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS])])
+m4_ifndef([AC_LIBTOOL_OBJDIR], [AC_DEFUN([AC_LIBTOOL_OBJDIR])])
+m4_ifndef([AC_LTDL_OBJDIR], [AC_DEFUN([AC_LTDL_OBJDIR])])
+m4_ifndef([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH], [AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH])])
+m4_ifndef([AC_LIBTOOL_SYS_LIB_STRIP], [AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP])])
+m4_ifndef([AC_PATH_MAGIC], [AC_DEFUN([AC_PATH_MAGIC])])
+m4_ifndef([AC_PROG_LD_GNU], [AC_DEFUN([AC_PROG_LD_GNU])])
+m4_ifndef([AC_PROG_LD_RELOAD_FLAG], [AC_DEFUN([AC_PROG_LD_RELOAD_FLAG])])
+m4_ifndef([AC_DEPLIBS_CHECK_METHOD], [AC_DEFUN([AC_DEPLIBS_CHECK_METHOD])])
+m4_ifndef([AC_LIBTOOL_PROG_COMPILER_NO_RTTI], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI])])
+m4_ifndef([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE], [AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE])])
+m4_ifndef([AC_LIBTOOL_PROG_COMPILER_PIC], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC])])
+m4_ifndef([AC_LIBTOOL_PROG_LD_SHLIBS], [AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS])])
+m4_ifndef([AC_LIBTOOL_POSTDEP_PREDEP], [AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP])])
+m4_ifndef([LT_AC_PROG_EGREP], [AC_DEFUN([LT_AC_PROG_EGREP])])
+m4_ifndef([LT_AC_PROG_SED], [AC_DEFUN([LT_AC_PROG_SED])])
+m4_ifndef([_LT_CC_BASENAME], [AC_DEFUN([_LT_CC_BASENAME])])
+m4_ifndef([_LT_COMPILER_BOILERPLATE], [AC_DEFUN([_LT_COMPILER_BOILERPLATE])])
+m4_ifndef([_LT_LINKER_BOILERPLATE], [AC_DEFUN([_LT_LINKER_BOILERPLATE])])
+m4_ifndef([_AC_PROG_LIBTOOL], [AC_DEFUN([_AC_PROG_LIBTOOL])])
+m4_ifndef([AC_LIBTOOL_SETUP], [AC_DEFUN([AC_LIBTOOL_SETUP])])
+m4_ifndef([_LT_AC_CHECK_DLFCN], [AC_DEFUN([_LT_AC_CHECK_DLFCN])])
+m4_ifndef([AC_LIBTOOL_SYS_DYNAMIC_LINKER], [AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER])])
+m4_ifndef([_LT_AC_TAGCONFIG], [AC_DEFUN([_LT_AC_TAGCONFIG])])
+m4_ifndef([AC_DISABLE_FAST_INSTALL], [AC_DEFUN([AC_DISABLE_FAST_INSTALL])])
+m4_ifndef([_LT_AC_LANG_CXX], [AC_DEFUN([_LT_AC_LANG_CXX])])
+m4_ifndef([_LT_AC_LANG_F77], [AC_DEFUN([_LT_AC_LANG_F77])])
+m4_ifndef([_LT_AC_LANG_GCJ], [AC_DEFUN([_LT_AC_LANG_GCJ])])
+m4_ifndef([AC_LIBTOOL_LANG_C_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG])])
+m4_ifndef([_LT_AC_LANG_C_CONFIG], [AC_DEFUN([_LT_AC_LANG_C_CONFIG])])
+m4_ifndef([AC_LIBTOOL_LANG_CXX_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG])])
+m4_ifndef([_LT_AC_LANG_CXX_CONFIG], [AC_DEFUN([_LT_AC_LANG_CXX_CONFIG])])
+m4_ifndef([AC_LIBTOOL_LANG_F77_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_F77_CONFIG])])
+m4_ifndef([_LT_AC_LANG_F77_CONFIG], [AC_DEFUN([_LT_AC_LANG_F77_CONFIG])])
+m4_ifndef([AC_LIBTOOL_LANG_GCJ_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_GCJ_CONFIG])])
+m4_ifndef([_LT_AC_LANG_GCJ_CONFIG], [AC_DEFUN([_LT_AC_LANG_GCJ_CONFIG])])
+m4_ifndef([AC_LIBTOOL_LANG_RC_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_RC_CONFIG])])
+m4_ifndef([_LT_AC_LANG_RC_CONFIG], [AC_DEFUN([_LT_AC_LANG_RC_CONFIG])])
+m4_ifndef([AC_LIBTOOL_CONFIG], [AC_DEFUN([AC_LIBTOOL_CONFIG])])
+m4_ifndef([_LT_AC_FILE_LTDLL_C], [AC_DEFUN([_LT_AC_FILE_LTDLL_C])])
+m4_ifndef([_LT_REQUIRED_DARWIN_CHECKS], [AC_DEFUN([_LT_REQUIRED_DARWIN_CHECKS])])
+m4_ifndef([_LT_AC_PROG_CXXCPP], [AC_DEFUN([_LT_AC_PROG_CXXCPP])])
+m4_ifndef([_LT_PREPARE_SED_QUOTE_VARS], [AC_DEFUN([_LT_PREPARE_SED_QUOTE_VARS])])
+m4_ifndef([_LT_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_PROG_ECHO_BACKSLASH])])
+m4_ifndef([_LT_PROG_F77], [AC_DEFUN([_LT_PROG_F77])])
+m4_ifndef([_LT_PROG_FC], [AC_DEFUN([_LT_PROG_FC])])
+m4_ifndef([_LT_PROG_CXX], [AC_DEFUN([_LT_PROG_CXX])])
diff --git a/src/Makefile.in b/src/Makefile.in
new file mode 100644
index 000000000..725a35f05
--- /dev/null
+++ b/src/Makefile.in
@@ -0,0 +1,1614 @@
+# Makefile.in generated by automake 1.16.5 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2021 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.
+
+@SET_MAKE@
+
+
+
+VPATH = @srcdir@
+am__is_gnu_make = { \
+ if test -z '$(MAKELEVEL)'; then \
+ false; \
+ elif test -n '$(MAKE_HOST)'; then \
+ true; \
+ elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
+ true; \
+ else \
+ false; \
+ fi; \
+}
+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@
+EXTRA_PROGRAMS = make_fint$(EXEEXT)
+@ENABLE_CDI_LIB_TRUE@am__append_1 = libcdi.la
+@ENABLE_CDI_LIB_TRUE@@ENABLE_CF_INTERFACE_TRUE@am__append_2 = cdi.inc
+@ENABLE_CDI_LIB_TRUE@@ENABLE_ISOC_INTERFACE_TRUE@am__append_3 = $(mo_cdi_mod)
+@ENABLE_CDI_LIB_TRUE@@ENABLE_ISOC_INTERFACE_TRUE@am__append_4 = libcdi_f2003.la
+@ENABLE_CDI_LIB_TRUE@@ENABLE_ISOC_INTERFACE_TRUE@am__append_5 = pkgconfig/cdi_f2003.pc
+@ENABLE_CDI_LIB_TRUE@@ENABLE_MPI_TRUE@am__append_6 = cdipio.h
+@ENABLE_CDI_LIB_TRUE@@ENABLE_MPI_TRUE@am__append_7 = libcdipio.la
+@ENABLE_CDI_LIB_TRUE@@ENABLE_MPI_TRUE@am__append_8 = pkgconfig/cdipio.pc
+@ENABLE_CDI_LIB_TRUE@@ENABLE_CF_INTERFACE_TRUE@@ENABLE_MPI_TRUE@am__append_9 = cdipio.inc
+@ENABLE_CDI_LIB_FALSE@am__append_10 = libcdi.la
+@ENABLE_CDI_LIB_FALSE@@ENABLE_ISOC_INTERFACE_TRUE@am__append_11 = libcdi_f2003.la
+@ENABLE_CDI_LIB_FALSE@@ENABLE_MPI_TRUE@am__append_12 = libcdipio.la
+@with_on_demand_check_programs_TRUE@am__append_13 = libcdiresunpack.la
+@with_on_demand_check_programs_FALSE@am__append_14 = libcdiresunpack.la
+# TODO: this needs a refactoring but for now we set this macro here and not in
+# config.h because the macro is used in several files that do not include the
+# header file directly.
+@ENABLE_MPI_TRUE@am__append_15 = -DUSE_MPI
+@ENABLE_CF_INTERFACE_TRUE@am__append_16 = \
+@ENABLE_CF_INTERFACE_TRUE@ cdiFortran.c \
+@ENABLE_CF_INTERFACE_TRUE@ cfortran.h
+
+@HAVE_LIBGRIB_API_TRUE@am__append_17 = \
+@HAVE_LIBGRIB_API_TRUE@ gribapi_utilities.c \
+@HAVE_LIBGRIB_API_TRUE@ stream_gribapi.c
+
+@ENABLE_CF_INTERFACE_TRUE@am__append_18 = \
+@ENABLE_CF_INTERFACE_TRUE@ cdipioFortran.c \
+@ENABLE_CF_INTERFACE_TRUE@ cfortran.h
+
+@HAVE_PARALLEL_NC4_TRUE@am__append_19 = pio_cdf_int.c
+@ENABLE_ISOC_INTERFACE_TRUE@am__append_20 = $(mo_cdi_mod)
+subdir = src
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = \
+ $(top_srcdir)/m4/acx_assert_lang_is_fortran_variant.m4 \
+ $(top_srcdir)/m4/acx_c_package.m4 \
+ $(top_srcdir)/m4/acx_cfortran_flags.m4 \
+ $(top_srcdir)/m4/acx_check_cfortran.m4 \
+ $(top_srcdir)/m4/acx_check_strptr_convert.m4 \
+ $(top_srcdir)/m4/acx_execinfo.m4 \
+ $(top_srcdir)/m4/acx_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_fortran_include_flag.m4 \
+ $(top_srcdir)/m4/acx_fortran_package.m4 \
+ $(top_srcdir)/m4/acx_lang_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_package.m4 \
+ $(top_srcdir)/m4/acx_lt_problems.m4 \
+ $(top_srcdir)/m4/acx_m4_list_to_quoted_strings.m4 \
+ $(top_srcdir)/m4/acx_mpirun.m4 $(top_srcdir)/m4/acx_mv_obj.m4 \
+ $(top_srcdir)/m4/acx_option_search_libs.m4 \
+ $(top_srcdir)/m4/acx_options.m4 \
+ $(top_srcdir)/m4/acx_prog_cc_posix.m4 \
+ $(top_srcdir)/m4/acx_sl_fc_mod_path_flag.m4 \
+ $(top_srcdir)/m4/acx_sl_mod_suffix.m4 \
+ $(top_srcdir)/m4/acx_tls_xlc_retry.m4 \
+ $(top_srcdir)/m4/acx_use_libtool_configuration.m4 \
+ $(top_srcdir)/m4/acx_uuid.m4 $(top_srcdir)/m4/asx_tr_arg.m4 \
+ $(top_srcdir)/m4/asx_unset.m4 $(top_srcdir)/m4/ax_pthread.m4 \
+ $(top_srcdir)/m4/ax_python_devel.m4 $(top_srcdir)/m4/ax_tls.m4 \
+ $(top_srcdir)/m4/kpse_libtool.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)/m4/pkg.m4 $(top_srcdir)/acinclude.m4 \
+ $(top_srcdir)/m4/ac_lang_program_fortran.m4 \
+ $(top_srcdir)/m4/acx_lang_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_c_check_include.m4 \
+ $(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+ $(ACLOCAL_M4)
+DIST_COMMON = $(srcdir)/Makefile.am $(am__include_HEADERS_DIST) \
+ $(am__DIST_COMMON)
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = 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)$(cmakedir)" \
+ "$(DESTDIR)$(pkgconfigdir)" "$(DESTDIR)$(includedir)" \
+ "$(DESTDIR)$(includedir)"
+LTLIBRARIES = $(lib_LTLIBRARIES) $(noinst_LTLIBRARIES)
+libcdi_la_LIBADD =
+am__libcdi_la_SOURCES_DIST = async_worker.c async_worker.h basetime.c \
+ basetime.h binary.c binary.h calendar.c calendar.h cdf.c cdf.h \
+ cdf_config.h cdf_int.c cdf_int.h cdf_lazy_grid.c \
+ cdf_lazy_grid.h cdf_read.c cdf_records.c cdf_util.c cdf_util.h \
+ cdf_write.c cdi.h cdi_across.c cdi_across.h cdi_att.c \
+ cdi_att.h cdi_cksum.c cdi_cksum.h cdi_datetime.c \
+ cdi_datetime.h cdi_error.c cdi_fdb.c cdi_fdb.h cdi_int.c \
+ cdi_int.h cdi_key.c cdi_key.h cdi_limits.h cdi_query.c \
+ cdi_util.c cdi_uuid.h cgribex.h cgribexlib.c cksum.c cksum.h \
+ dmemory.c dmemory.h dtypes.h error.c error.h exse.h extra.h \
+ extralib.c file.c file.h gaussian_latitudes.c \
+ get_num_missvals.c get_num_missvals.h grb_read.c grb_write.c \
+ gribapi.c gribapi.h gribapi_utilities.h grid.c grid.h ieg.h \
+ ieglib.c input_file.c input_file.h institution.c institution.h \
+ iterator.c iterator.h iterator_fallback.c iterator_fallback.h \
+ iterator_grib.c iterator_grib.h julian_date.c julian_date.h \
+ model.c model.h namespace.c namespace.h normalize_month.h \
+ referenceCounting.c referenceCounting.h resource_handle.c \
+ resource_handle.h serialize.c serialize.h service.h \
+ servicelib.c stream.c stream_cdf.h stream_cdf_i.c \
+ stream_cdf_o.c stream_cdf_postdef.h stream_cdf_time.c \
+ stream_cgribex.c stream_cgribex.h stream_ext.c stream_ext.h \
+ stream_grb.c stream_grb.h stream_gribapi.h stream_ieg.c \
+ stream_ieg.h stream_read.c stream_record.c stream_scan.c \
+ stream_scan.h stream_srv.c stream_srv.h stream_var.c \
+ stream_write.c subtype.c subtype.h swap.c swap.h table.c \
+ table.h tablepar.h taxis.c taxis.h tsteps.c util.c varscan.c \
+ varscan.h version.c vlist.c vlist.h vlist_var.c vlist_var.h \
+ vlist_var_key.c vlist_var_pack.c zaxis.c zaxis.h cdiFortran.c \
+ cfortran.h gribapi_utilities.c stream_gribapi.c
+@ENABLE_CF_INTERFACE_TRUE@am__objects_1 = cdiFortran.lo
+@HAVE_LIBGRIB_API_TRUE@am__objects_2 = gribapi_utilities.lo \
+@HAVE_LIBGRIB_API_TRUE@ stream_gribapi.lo
+am_libcdi_la_OBJECTS = async_worker.lo basetime.lo binary.lo \
+ calendar.lo cdf.lo cdf_int.lo cdf_lazy_grid.lo cdf_read.lo \
+ cdf_records.lo cdf_util.lo cdf_write.lo cdi_across.lo \
+ cdi_att.lo cdi_cksum.lo cdi_datetime.lo cdi_error.lo \
+ cdi_fdb.lo cdi_int.lo cdi_key.lo cdi_query.lo cdi_util.lo \
+ cgribexlib.lo cksum.lo dmemory.lo error.lo extralib.lo file.lo \
+ gaussian_latitudes.lo get_num_missvals.lo grb_read.lo \
+ grb_write.lo gribapi.lo grid.lo ieglib.lo input_file.lo \
+ institution.lo iterator.lo iterator_fallback.lo \
+ iterator_grib.lo julian_date.lo model.lo namespace.lo \
+ referenceCounting.lo resource_handle.lo serialize.lo \
+ servicelib.lo stream.lo stream_cdf_i.lo stream_cdf_o.lo \
+ stream_cdf_time.lo stream_cgribex.lo stream_ext.lo \
+ stream_grb.lo stream_ieg.lo stream_read.lo stream_record.lo \
+ stream_scan.lo stream_srv.lo stream_var.lo stream_write.lo \
+ subtype.lo swap.lo table.lo taxis.lo tsteps.lo util.lo \
+ varscan.lo version.lo vlist.lo vlist_var.lo vlist_var_key.lo \
+ vlist_var_pack.lo zaxis.lo $(am__objects_1) $(am__objects_2)
+libcdi_la_OBJECTS = $(am_libcdi_la_OBJECTS)
+AM_V_lt = $(am__v_lt_@AM_V@)
+am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
+am__v_lt_0 = --silent
+am__v_lt_1 =
+@ENABLE_CDI_LIB_FALSE@am_libcdi_la_rpath =
+@ENABLE_CDI_LIB_TRUE@am_libcdi_la_rpath = -rpath $(libdir)
+libcdi_f2003_la_DEPENDENCIES = libcdi.la
+am_libcdi_f2003_la_OBJECTS = mo_cdi.lo
+libcdi_f2003_la_OBJECTS = $(am_libcdi_f2003_la_OBJECTS)
+@ENABLE_CDI_LIB_FALSE@@ENABLE_ISOC_INTERFACE_TRUE@am_libcdi_f2003_la_rpath =
+@ENABLE_CDI_LIB_TRUE@@ENABLE_ISOC_INTERFACE_TRUE@am_libcdi_f2003_la_rpath = \
+@ENABLE_CDI_LIB_TRUE@@ENABLE_ISOC_INTERFACE_TRUE@ -rpath \
+@ENABLE_CDI_LIB_TRUE@@ENABLE_ISOC_INTERFACE_TRUE@ $(libdir)
+am__DEPENDENCIES_1 =
+libcdipio_la_DEPENDENCIES = libcdi.la $(am__DEPENDENCIES_1) \
+ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
+ $(am__DEPENDENCIES_1)
+am__libcdipio_la_SOURCES_DIST = cdipio.h pio.c pio.h pio_cdf_int.h \
+ pio_client.c pio_client.h pio_comm.c pio_comm.h pio_conf.c \
+ pio_conf.h pio_dbuffer.c pio_dbuffer.h pio_dist_grid.c \
+ pio_dist_grid.h pio_id_set.h pio_idxlist_cache.c \
+ pio_idxlist_cache.h pio_impl.h pio_interface.c pio_interface.h \
+ pio_mpi_fw_at_all.c pio_mpi_fw_at_reblock.c \
+ pio_mpi_fw_ordered.c pio_mpinonb.c pio_posixasynch.c \
+ pio_posixfpguardsendrecv.c pio_posixnonb.c pio_record_send.c \
+ pio_roles.c pio_rpc.c pio_rpc.h pio_serialize.c \
+ pio_serialize.h pio_server.c pio_server.h pio_util.c \
+ pio_util.h pio_xmap_cache.c pio_xmap_cache.h resource_unpack.c \
+ resource_unpack.h cdipioFortran.c cfortran.h pio_cdf_int.c
+@ENABLE_CF_INTERFACE_TRUE@am__objects_3 = cdipioFortran.lo
+@HAVE_PARALLEL_NC4_TRUE@am__objects_4 = pio_cdf_int.lo
+am_libcdipio_la_OBJECTS = pio.lo pio_client.lo pio_comm.lo pio_conf.lo \
+ pio_dbuffer.lo pio_dist_grid.lo pio_idxlist_cache.lo \
+ pio_interface.lo pio_mpi_fw_at_all.lo pio_mpi_fw_at_reblock.lo \
+ pio_mpi_fw_ordered.lo pio_mpinonb.lo pio_posixasynch.lo \
+ pio_posixfpguardsendrecv.lo pio_posixnonb.lo \
+ pio_record_send.lo pio_roles.lo pio_rpc.lo pio_serialize.lo \
+ pio_server.lo pio_util.lo pio_xmap_cache.lo resource_unpack.lo \
+ $(am__objects_3) $(am__objects_4)
+libcdipio_la_OBJECTS = $(am_libcdipio_la_OBJECTS)
+@ENABLE_CDI_LIB_FALSE@@ENABLE_MPI_TRUE@am_libcdipio_la_rpath =
+@ENABLE_CDI_LIB_TRUE@@ENABLE_MPI_TRUE@am_libcdipio_la_rpath = -rpath \
+@ENABLE_CDI_LIB_TRUE@@ENABLE_MPI_TRUE@ $(libdir)
+libcdiresunpack_la_DEPENDENCIES = libcdi.la
+am_libcdiresunpack_la_OBJECTS = resource_unpack.lo
+libcdiresunpack_la_OBJECTS = $(am_libcdiresunpack_la_OBJECTS)
+@with_on_demand_check_programs_FALSE@am_libcdiresunpack_la_rpath =
+@with_on_demand_check_programs_TRUE@am_libcdiresunpack_la_rpath =
+am_make_fint_OBJECTS = make_fint-make_fint.$(OBJEXT)
+make_fint_OBJECTS = $(am_make_fint_OBJECTS)
+make_fint_DEPENDENCIES = $(LIBOBJS)
+make_fint_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(make_fint_CFLAGS) \
+ $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@
+AM_V_P = $(am__v_P_@AM_V@)
+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_@AM_V@)
+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
+am__v_GEN_0 = @echo " GEN " $@;
+am__v_GEN_1 =
+AM_V_at = $(am__v_at_@AM_V@)
+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
+am__v_at_0 = @
+am__v_at_1 =
+DEFAULT_INCLUDES = -I.@am__isrc@
+depcomp = $(SHELL) $(top_srcdir)/config/depcomp
+am__maybe_remake_depfiles = depfiles
+am__depfiles_remade = $(DEPDIR)/getline.Po \
+ ./$(DEPDIR)/async_worker.Plo ./$(DEPDIR)/basetime.Plo \
+ ./$(DEPDIR)/binary.Plo ./$(DEPDIR)/calendar.Plo \
+ ./$(DEPDIR)/cdf.Plo ./$(DEPDIR)/cdf_int.Plo \
+ ./$(DEPDIR)/cdf_lazy_grid.Plo ./$(DEPDIR)/cdf_read.Plo \
+ ./$(DEPDIR)/cdf_records.Plo ./$(DEPDIR)/cdf_util.Plo \
+ ./$(DEPDIR)/cdf_write.Plo ./$(DEPDIR)/cdiFortran.Plo \
+ ./$(DEPDIR)/cdi_across.Plo ./$(DEPDIR)/cdi_att.Plo \
+ ./$(DEPDIR)/cdi_cksum.Plo ./$(DEPDIR)/cdi_datetime.Plo \
+ ./$(DEPDIR)/cdi_error.Plo ./$(DEPDIR)/cdi_fdb.Plo \
+ ./$(DEPDIR)/cdi_int.Plo ./$(DEPDIR)/cdi_key.Plo \
+ ./$(DEPDIR)/cdi_query.Plo ./$(DEPDIR)/cdi_util.Plo \
+ ./$(DEPDIR)/cdipioFortran.Plo ./$(DEPDIR)/cgribexlib.Plo \
+ ./$(DEPDIR)/cksum.Plo ./$(DEPDIR)/dmemory.Plo \
+ ./$(DEPDIR)/error.Plo ./$(DEPDIR)/extralib.Plo \
+ ./$(DEPDIR)/file.Plo ./$(DEPDIR)/gaussian_latitudes.Plo \
+ ./$(DEPDIR)/get_num_missvals.Plo ./$(DEPDIR)/grb_read.Plo \
+ ./$(DEPDIR)/grb_write.Plo ./$(DEPDIR)/gribapi.Plo \
+ ./$(DEPDIR)/gribapi_utilities.Plo ./$(DEPDIR)/grid.Plo \
+ ./$(DEPDIR)/ieglib.Plo ./$(DEPDIR)/input_file.Plo \
+ ./$(DEPDIR)/institution.Plo ./$(DEPDIR)/iterator.Plo \
+ ./$(DEPDIR)/iterator_fallback.Plo \
+ ./$(DEPDIR)/iterator_grib.Plo ./$(DEPDIR)/julian_date.Plo \
+ ./$(DEPDIR)/make_fint-make_fint.Po ./$(DEPDIR)/model.Plo \
+ ./$(DEPDIR)/namespace.Plo ./$(DEPDIR)/pio.Plo \
+ ./$(DEPDIR)/pio_cdf_int.Plo ./$(DEPDIR)/pio_client.Plo \
+ ./$(DEPDIR)/pio_comm.Plo ./$(DEPDIR)/pio_conf.Plo \
+ ./$(DEPDIR)/pio_dbuffer.Plo ./$(DEPDIR)/pio_dist_grid.Plo \
+ ./$(DEPDIR)/pio_idxlist_cache.Plo \
+ ./$(DEPDIR)/pio_interface.Plo \
+ ./$(DEPDIR)/pio_mpi_fw_at_all.Plo \
+ ./$(DEPDIR)/pio_mpi_fw_at_reblock.Plo \
+ ./$(DEPDIR)/pio_mpi_fw_ordered.Plo ./$(DEPDIR)/pio_mpinonb.Plo \
+ ./$(DEPDIR)/pio_posixasynch.Plo \
+ ./$(DEPDIR)/pio_posixfpguardsendrecv.Plo \
+ ./$(DEPDIR)/pio_posixnonb.Plo ./$(DEPDIR)/pio_record_send.Plo \
+ ./$(DEPDIR)/pio_roles.Plo ./$(DEPDIR)/pio_rpc.Plo \
+ ./$(DEPDIR)/pio_serialize.Plo ./$(DEPDIR)/pio_server.Plo \
+ ./$(DEPDIR)/pio_util.Plo ./$(DEPDIR)/pio_xmap_cache.Plo \
+ ./$(DEPDIR)/referenceCounting.Plo \
+ ./$(DEPDIR)/resource_handle.Plo \
+ ./$(DEPDIR)/resource_unpack.Plo ./$(DEPDIR)/serialize.Plo \
+ ./$(DEPDIR)/servicelib.Plo ./$(DEPDIR)/stream.Plo \
+ ./$(DEPDIR)/stream_cdf_i.Plo ./$(DEPDIR)/stream_cdf_o.Plo \
+ ./$(DEPDIR)/stream_cdf_time.Plo ./$(DEPDIR)/stream_cgribex.Plo \
+ ./$(DEPDIR)/stream_ext.Plo ./$(DEPDIR)/stream_grb.Plo \
+ ./$(DEPDIR)/stream_gribapi.Plo ./$(DEPDIR)/stream_ieg.Plo \
+ ./$(DEPDIR)/stream_read.Plo ./$(DEPDIR)/stream_record.Plo \
+ ./$(DEPDIR)/stream_scan.Plo ./$(DEPDIR)/stream_srv.Plo \
+ ./$(DEPDIR)/stream_var.Plo ./$(DEPDIR)/stream_write.Plo \
+ ./$(DEPDIR)/subtype.Plo ./$(DEPDIR)/swap.Plo \
+ ./$(DEPDIR)/table.Plo ./$(DEPDIR)/taxis.Plo \
+ ./$(DEPDIR)/tsteps.Plo ./$(DEPDIR)/util.Plo \
+ ./$(DEPDIR)/varscan.Plo ./$(DEPDIR)/version.Plo \
+ ./$(DEPDIR)/vlist.Plo ./$(DEPDIR)/vlist_var.Plo \
+ ./$(DEPDIR)/vlist_var_key.Plo ./$(DEPDIR)/vlist_var_pack.Plo \
+ ./$(DEPDIR)/zaxis.Plo
+am__mv = mv -f
+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_@AM_V@)
+am__v_CC_ = $(am__v_CC_@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_@AM_V@)
+am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
+am__v_CCLD_0 = @echo " CCLD " $@;
+am__v_CCLD_1 =
+LTFCCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
+AM_V_FC = $(am__v_FC_@AM_V@)
+am__v_FC_ = $(am__v_FC_@AM_DEFAULT_V@)
+am__v_FC_0 = @echo " FC " $@;
+am__v_FC_1 =
+FCLD = $(FC)
+FCLINK = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) \
+ $(AM_LDFLAGS) $(LDFLAGS) -o $@
+AM_V_FCLD = $(am__v_FCLD_@AM_V@)
+am__v_FCLD_ = $(am__v_FCLD_@AM_DEFAULT_V@)
+am__v_FCLD_0 = @echo " FCLD " $@;
+am__v_FCLD_1 =
+SOURCES = $(libcdi_la_SOURCES) $(libcdi_f2003_la_SOURCES) \
+ $(libcdipio_la_SOURCES) $(libcdiresunpack_la_SOURCES) \
+ $(make_fint_SOURCES)
+DIST_SOURCES = $(am__libcdi_la_SOURCES_DIST) \
+ $(libcdi_f2003_la_SOURCES) $(am__libcdipio_la_SOURCES_DIST) \
+ $(libcdiresunpack_la_SOURCES) $(make_fint_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
+DATA = $(nodist_cmake_DATA) $(nodist_pkgconfig_DATA)
+am__include_HEADERS_DIST = calendar.h cdi.h cdi_datetime.h \
+ julian_date.h cdi.inc cdipio.h cdipio.inc
+HEADERS = $(include_HEADERS) $(nodist_include_HEADERS)
+am__extra_recursive_targets = examples-recursive
+am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) \
+ config.h.in
+# 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)`
+am__DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/config.h.in \
+ $(top_srcdir)/config/depcomp getline.c
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CSCOPE = @CSCOPE@
+CTAGS = @CTAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DCE_UUIDROOT = @DCE_UUIDROOT@
+DCE_UUID_C_INCLUDE = @DCE_UUID_C_INCLUDE@
+DCE_UUID_C_LIB = @DCE_UUID_C_LIB@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECCODES_INCLUDE = @ECCODES_INCLUDE@
+ECCODES_LIBS = @ECCODES_LIBS@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+ENABLE_ACROSS = @ENABLE_ACROSS@
+ENABLE_CDI_LIB = @ENABLE_CDI_LIB@
+ENABLE_CGRIBEX = @ENABLE_CGRIBEX@
+ENABLE_EXTRA = @ENABLE_EXTRA@
+ENABLE_GRIB = @ENABLE_GRIB@
+ENABLE_IEG = @ENABLE_IEG@
+ENABLE_MPI = @ENABLE_MPI@
+ENABLE_NC2 = @ENABLE_NC2@
+ENABLE_NC4 = @ENABLE_NC4@
+ENABLE_NC4HDF5 = @ENABLE_NC4HDF5@
+ENABLE_NC4SZLIB = @ENABLE_NC4SZLIB@
+ENABLE_NETCDF = @ENABLE_NETCDF@
+ENABLE_SERVICE = @ENABLE_SERVICE@
+ETAGS = @ETAGS@
+EXEEXT = @EXEEXT@
+F77 = @F77@
+FC = @FC@
+FCFLAGS = @FCFLAGS@
+FCFLAGS_f90 = @FCFLAGS_f90@
+FCMODCASE = @FCMODCASE@
+FCMODEXT = @FCMODEXT@
+FC_DEFINE = @FC_DEFINE@
+FC_MOD_FLAG = @FC_MOD_FLAG@
+FC_OPTINC = @FC_OPTINC@
+FDB5_INCLUDE = @FDB5_INCLUDE@
+FDB5_LIBS = @FDB5_LIBS@
+FFLAGS = @FFLAGS@
+FGREP = @FGREP@
+GREP = @GREP@
+GRIB_API_INCLUDE = @GRIB_API_INCLUDE@
+GRIB_API_LIBS = @GRIB_API_LIBS@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBRT = @LIBRT@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
+MAINT = @MAINT@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+MPIROOT = @MPIROOT@
+MPI_C_INCLUDE = @MPI_C_INCLUDE@
+MPI_C_LIB = @MPI_C_LIB@
+MPI_FC_LIB = @MPI_FC_LIB@
+MPI_FC_MOD = @MPI_FC_MOD@
+MPI_LAUNCH = @MPI_LAUNCH@
+NC_CONFIG = @NC_CONFIG@
+NETCDF_INCLUDE = @NETCDF_INCLUDE@
+NETCDF_LIBS = @NETCDF_LIBS@
+NETCDF_ROOT = @NETCDF_ROOT@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OPENMP_CFLAGS = @OPENMP_CFLAGS@
+OSSP_UUIDROOT = @OSSP_UUIDROOT@
+OSSP_UUID_C_INCLUDE = @OSSP_UUID_C_INCLUDE@
+OSSP_UUID_C_LIB = @OSSP_UUID_C_LIB@
+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@
+PKG_CONFIG = @PKG_CONFIG@
+PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
+PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
+PPM_CORE_C_INCLUDE = @PPM_CORE_C_INCLUDE@
+PPM_CORE_C_LIB = @PPM_CORE_C_LIB@
+PTHREAD_CC = @PTHREAD_CC@
+PTHREAD_CFLAGS = @PTHREAD_CFLAGS@
+PTHREAD_CXX = @PTHREAD_CXX@
+PTHREAD_LIBS = @PTHREAD_LIBS@
+PYTHON = @PYTHON@
+PYTHON_CPPFLAGS = @PYTHON_CPPFLAGS@
+PYTHON_EXEC_PREFIX = @PYTHON_EXEC_PREFIX@
+PYTHON_EXTRA_LDFLAGS = @PYTHON_EXTRA_LDFLAGS@
+PYTHON_EXTRA_LIBS = @PYTHON_EXTRA_LIBS@
+PYTHON_LIBS = @PYTHON_LIBS@
+PYTHON_PLATFORM = @PYTHON_PLATFORM@
+PYTHON_PLATFORM_SITE_PKG = @PYTHON_PLATFORM_SITE_PKG@
+PYTHON_PREFIX = @PYTHON_PREFIX@
+PYTHON_SITE_PKG = @PYTHON_SITE_PKG@
+PYTHON_VERSION = @PYTHON_VERSION@
+RANLIB = @RANLIB@
+RUBY = @RUBY@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+SWIG = @SWIG@
+SYSTEM_TYPE = @SYSTEM_TYPE@
+SZLIB_INCLUDE = @SZLIB_INCLUDE@
+SZLIB_LIBS = @SZLIB_LIBS@
+THREADS_INCLUDE = @THREADS_INCLUDE@
+THREADS_LIBS = @THREADS_LIBS@
+UTIL_LINUX_UUIDROOT = @UTIL_LINUX_UUIDROOT@
+UTIL_LINUX_UUID_C_INCLUDE = @UTIL_LINUX_UUID_C_INCLUDE@
+UTIL_LINUX_UUID_C_LIB = @UTIL_LINUX_UUID_C_LIB@
+UUID_C_INCLUDE = @UUID_C_INCLUDE@
+UUID_C_LIB = @UUID_C_LIB@
+VERSION = @VERSION@
+YAXT_C_INCLUDE = @YAXT_C_INCLUDE@
+YAXT_C_LIB = @YAXT_C_LIB@
+YAXT_FC_LIB = @YAXT_FC_LIB@
+YAXT_FC_MOD = @YAXT_FC_MOD@
+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@
+ac_ct_F77 = @ac_ct_F77@
+ac_ct_FC = @ac_ct_FC@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+ax_pthread_config = @ax_pthread_config@
+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@
+pkgpyexecdir = @pkgpyexecdir@
+pkgpythondir = @pkgpythondir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+pyexecdir = @pyexecdir@
+pythondir = @pythondir@
+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@
+lib_LTLIBRARIES = $(am__append_1) $(am__append_4) $(am__append_7)
+check_LTLIBRARIES = $(am__append_13)
+noinst_LTLIBRARIES = $(am__append_10) $(am__append_11) \
+ $(am__append_12) $(am__append_14)
+EXTRA_DIST = \
+ cdilib.c \
+ make_cdilib
+
+@FC_MOD_UPPERCASE_FALSE@mo_cdi_mod = mo_cdi.$(FCMODEXT)
+@FC_MOD_UPPERCASE_TRUE@mo_cdi_mod = MO_CDI.$(FCMODEXT)
+@ENABLE_CDI_LIB_TRUE@include_HEADERS = calendar.h cdi.h cdi_datetime.h \
+@ENABLE_CDI_LIB_TRUE@ julian_date.h $(am__append_2) \
+@ENABLE_CDI_LIB_TRUE@ $(am__append_6) $(am__append_9)
+@ENABLE_CDI_LIB_TRUE@nodist_include_HEADERS = $(am__append_3)
+@ENABLE_CDI_LIB_TRUE@pkgconfigdir = $(libdir)/pkgconfig
+@ENABLE_CDI_LIB_TRUE@nodist_pkgconfig_DATA = pkgconfig/cdi.pc \
+@ENABLE_CDI_LIB_TRUE@ $(am__append_5) $(am__append_8)
+@ENABLE_CDI_LIB_TRUE@cmakedir = $(libdir)/cmake/cdi
+@ENABLE_CDI_LIB_TRUE@nodist_cmake_DATA = \
+@ENABLE_CDI_LIB_TRUE@ cmake/cdi/cdi-config-version.cmake \
+@ENABLE_CDI_LIB_TRUE@ cmake/cdi/cdi-config.cmake
+
+AM_CPPFLAGS = $(PPM_CORE_C_INCLUDE) $(YAXT_C_INCLUDE) $(MPI_C_INCLUDE) \
+ $(am__append_15)
+libcdiresunpack_la_SOURCES = \
+ resource_unpack.c \
+ resource_unpack.h
+
+libcdiresunpack_la_LIBADD = libcdi.la
+make_fint_SOURCES = make_fint.c
+make_fint_CFLAGS = -static
+make_fint_LDADD = $(LIBOBJS)
+libcdi_la_SOURCES = async_worker.c async_worker.h basetime.c \
+ basetime.h binary.c binary.h calendar.c calendar.h cdf.c cdf.h \
+ cdf_config.h cdf_int.c cdf_int.h cdf_lazy_grid.c \
+ cdf_lazy_grid.h cdf_read.c cdf_records.c cdf_util.c cdf_util.h \
+ cdf_write.c cdi.h cdi_across.c cdi_across.h cdi_att.c \
+ cdi_att.h cdi_cksum.c cdi_cksum.h cdi_datetime.c \
+ cdi_datetime.h cdi_error.c cdi_fdb.c cdi_fdb.h cdi_int.c \
+ cdi_int.h cdi_key.c cdi_key.h cdi_limits.h cdi_query.c \
+ cdi_util.c cdi_uuid.h cgribex.h cgribexlib.c cksum.c cksum.h \
+ dmemory.c dmemory.h dtypes.h error.c error.h exse.h extra.h \
+ extralib.c file.c file.h gaussian_latitudes.c \
+ get_num_missvals.c get_num_missvals.h grb_read.c grb_write.c \
+ gribapi.c gribapi.h gribapi_utilities.h grid.c grid.h ieg.h \
+ ieglib.c input_file.c input_file.h institution.c institution.h \
+ iterator.c iterator.h iterator_fallback.c iterator_fallback.h \
+ iterator_grib.c iterator_grib.h julian_date.c julian_date.h \
+ model.c model.h namespace.c namespace.h normalize_month.h \
+ referenceCounting.c referenceCounting.h resource_handle.c \
+ resource_handle.h serialize.c serialize.h service.h \
+ servicelib.c stream.c stream_cdf.h stream_cdf_i.c \
+ stream_cdf_o.c stream_cdf_postdef.h stream_cdf_time.c \
+ stream_cgribex.c stream_cgribex.h stream_ext.c stream_ext.h \
+ stream_grb.c stream_grb.h stream_gribapi.h stream_ieg.c \
+ stream_ieg.h stream_read.c stream_record.c stream_scan.c \
+ stream_scan.h stream_srv.c stream_srv.h stream_var.c \
+ stream_write.c subtype.c subtype.h swap.c swap.h table.c \
+ table.h tablepar.h taxis.c taxis.h tsteps.c util.c varscan.c \
+ varscan.h version.c vlist.c vlist.h vlist_var.c vlist_var.h \
+ vlist_var_key.c vlist_var_pack.c zaxis.c zaxis.h \
+ $(am__append_16) $(am__append_17)
+libcdi_f2003_la_SOURCES = mo_cdi.f90
+libcdi_f2003_la_LIBADD = libcdi.la
+libcdipio_la_SOURCES = cdipio.h pio.c pio.h pio_cdf_int.h pio_client.c \
+ pio_client.h pio_comm.c pio_comm.h pio_conf.c pio_conf.h \
+ pio_dbuffer.c pio_dbuffer.h pio_dist_grid.c pio_dist_grid.h \
+ pio_id_set.h pio_idxlist_cache.c pio_idxlist_cache.h \
+ pio_impl.h pio_interface.c pio_interface.h pio_mpi_fw_at_all.c \
+ pio_mpi_fw_at_reblock.c pio_mpi_fw_ordered.c pio_mpinonb.c \
+ pio_posixasynch.c pio_posixfpguardsendrecv.c pio_posixnonb.c \
+ pio_record_send.c pio_roles.c pio_rpc.c pio_rpc.h \
+ pio_serialize.c pio_serialize.h pio_server.c pio_server.h \
+ pio_util.c pio_util.h pio_xmap_cache.c pio_xmap_cache.h \
+ resource_unpack.c resource_unpack.h $(am__append_18) \
+ $(am__append_19)
+libcdipio_la_LIBADD = libcdi.la $(LIBRT) $(PPM_CORE_C_LIB) $(YAXT_C_LIB) $(MPI_C_LIB)
+MOSTLYCLEANFILES = make_fint $(am__append_20)
+MAINTAINERCLEANFILES = \
+ cdi.inc \
+ cdiFortran.c \
+ cdilib.c \
+ cdipio.inc \
+ cdipioFortran.c \
+ mo_cdi.f90
+
+
+# Compile programs using Libtool:
+COMPILE = $(LTCOMPILE)
+FCCOMPILE = $(LTFCCOMPILE)
+PPFCCOMPILE = $(LTPPFCCOMPILE)
+CXXCOMPILE = $(LTCXXCOMPILE)
+
+# Compile *.F90 without CPPFLAGS, which are normally meant for the C compiler
+# and might not be compatible with the Fortran compiler:
+LTPPFCCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
+
+all: config.h
+ $(MAKE) $(AM_MAKEFLAGS) all-am
+
+.SUFFIXES:
+.SUFFIXES: .c .f90 .lo .o .obj
+$(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 src/Makefile'; \
+ $(am__cd) $(top_srcdir) && \
+ $(AUTOMAKE) --foreign src/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__maybe_remake_depfiles)'; \
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
+ 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):
+
+config.h: stamp-h1
+ @test -f $@ || rm -f stamp-h1
+ @test -f $@ || $(MAKE) $(AM_MAKEFLAGS) stamp-h1
+
+stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status
+ @rm -f stamp-h1
+ cd $(top_builddir) && $(SHELL) ./config.status src/config.h
+$(srcdir)/config.h.in: @MAINTAINER_MODE_TRUE@ $(am__configure_deps)
+ ($(am__cd) $(top_srcdir) && $(AUTOHEADER))
+ rm -f stamp-h1
+ touch $@
+
+distclean-hdr:
+ -rm -f config.h stamp-h1
+
+clean-checkLTLIBRARIES:
+ -test -z "$(check_LTLIBRARIES)" || rm -f $(check_LTLIBRARIES)
+ @list='$(check_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}; \
+ }
+
+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}; \
+ }
+
+clean-noinstLTLIBRARIES:
+ -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
+ @list='$(noinst_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}; \
+ }
+
+libcdi.la: $(libcdi_la_OBJECTS) $(libcdi_la_DEPENDENCIES) $(EXTRA_libcdi_la_DEPENDENCIES)
+ $(AM_V_CCLD)$(LINK) $(am_libcdi_la_rpath) $(libcdi_la_OBJECTS) $(libcdi_la_LIBADD) $(LIBS)
+
+libcdi_f2003.la: $(libcdi_f2003_la_OBJECTS) $(libcdi_f2003_la_DEPENDENCIES) $(EXTRA_libcdi_f2003_la_DEPENDENCIES)
+ $(AM_V_FCLD)$(FCLINK) $(am_libcdi_f2003_la_rpath) $(libcdi_f2003_la_OBJECTS) $(libcdi_f2003_la_LIBADD) $(LIBS)
+
+libcdipio.la: $(libcdipio_la_OBJECTS) $(libcdipio_la_DEPENDENCIES) $(EXTRA_libcdipio_la_DEPENDENCIES)
+ $(AM_V_CCLD)$(LINK) $(am_libcdipio_la_rpath) $(libcdipio_la_OBJECTS) $(libcdipio_la_LIBADD) $(LIBS)
+
+libcdiresunpack.la: $(libcdiresunpack_la_OBJECTS) $(libcdiresunpack_la_DEPENDENCIES) $(EXTRA_libcdiresunpack_la_DEPENDENCIES)
+ $(AM_V_CCLD)$(LINK) $(am_libcdiresunpack_la_rpath) $(libcdiresunpack_la_OBJECTS) $(libcdiresunpack_la_LIBADD) $(LIBS)
+
+make_fint$(EXEEXT): $(make_fint_OBJECTS) $(make_fint_DEPENDENCIES) $(EXTRA_make_fint_DEPENDENCIES)
+ @rm -f make_fint$(EXEEXT)
+ $(AM_V_CCLD)$(make_fint_LINK) $(make_fint_OBJECTS) $(make_fint_LDADD) $(LIBS)
+
+mostlyclean-compile:
+ -rm -f *.$(OBJEXT)
+
+distclean-compile:
+ -rm -f *.tab.c
+
+@AMDEP_TRUE@@am__include@ @am__quote@$(DEPDIR)/getline.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/async_worker.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/basetime.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/binary.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/calendar.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdf.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdf_int.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdf_lazy_grid.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdf_read.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdf_records.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdf_util.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdf_write.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdiFortran.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_across.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_att.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_cksum.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_datetime.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_error.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_fdb.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_int.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_key.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_query.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdi_util.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdipioFortran.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cgribexlib.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cksum.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dmemory.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/error.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/extralib.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/file.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gaussian_latitudes.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/get_num_missvals.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/grb_read.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/grb_write.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gribapi.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gribapi_utilities.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/grid.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ieglib.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/input_file.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/institution.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/iterator.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/iterator_fallback.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/iterator_grib.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/julian_date.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/make_fint-make_fint.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/model.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/namespace.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_cdf_int.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_client.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_comm.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_conf.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_dbuffer.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_dist_grid.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_idxlist_cache.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_interface.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_mpi_fw_at_all.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_mpi_fw_at_reblock.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_mpi_fw_ordered.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_mpinonb.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_posixasynch.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_posixfpguardsendrecv.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_posixnonb.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_record_send.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_roles.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_rpc.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_serialize.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_server.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_util.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_xmap_cache.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/referenceCounting.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/resource_handle.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/resource_unpack.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/serialize.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/servicelib.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_cdf_i.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_cdf_o.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_cdf_time.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_cgribex.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_ext.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_grb.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_gribapi.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_ieg.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_read.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_record.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_scan.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_srv.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_var.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_write.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/subtype.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/swap.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/table.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/taxis.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tsteps.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/util.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/varscan.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/version.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vlist.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vlist_var.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vlist_var_key.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vlist_var_pack.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/zaxis.Plo@am__quote@ # am--include-marker
+
+$(am__depfiles_remade):
+ @$(MKDIR_P) $(@D)
+ @echo '# dummy' >$@-t && $(am__mv) $@-t $@
+
+am--depfiles: $(am__depfiles_remade)
+
+.c.o:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
+
+.c.obj:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
+
+.c.lo:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
+
+make_fint-make_fint.o: make_fint.c
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(make_fint_CFLAGS) $(CFLAGS) -MT make_fint-make_fint.o -MD -MP -MF $(DEPDIR)/make_fint-make_fint.Tpo -c -o make_fint-make_fint.o `test -f 'make_fint.c' || echo '$(srcdir)/'`make_fint.c
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/make_fint-make_fint.Tpo $(DEPDIR)/make_fint-make_fint.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='make_fint.c' object='make_fint-make_fint.o' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(make_fint_CFLAGS) $(CFLAGS) -c -o make_fint-make_fint.o `test -f 'make_fint.c' || echo '$(srcdir)/'`make_fint.c
+
+make_fint-make_fint.obj: make_fint.c
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(make_fint_CFLAGS) $(CFLAGS) -MT make_fint-make_fint.obj -MD -MP -MF $(DEPDIR)/make_fint-make_fint.Tpo -c -o make_fint-make_fint.obj `if test -f 'make_fint.c'; then $(CYGPATH_W) 'make_fint.c'; else $(CYGPATH_W) '$(srcdir)/make_fint.c'; fi`
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/make_fint-make_fint.Tpo $(DEPDIR)/make_fint-make_fint.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='make_fint.c' object='make_fint-make_fint.obj' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(make_fint_CFLAGS) $(CFLAGS) -c -o make_fint-make_fint.obj `if test -f 'make_fint.c'; then $(CYGPATH_W) 'make_fint.c'; else $(CYGPATH_W) '$(srcdir)/make_fint.c'; fi`
+
+.f90.o:
+ $(AM_V_FC)$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
+
+.f90.obj:
+ $(AM_V_FC)$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
+
+.f90.lo:
+ $(AM_V_FC)$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
+
+mostlyclean-libtool:
+ -rm -f *.lo
+
+clean-libtool:
+ -rm -rf .libs _libs
+install-nodist_cmakeDATA: $(nodist_cmake_DATA)
+ @$(NORMAL_INSTALL)
+ @list='$(nodist_cmake_DATA)'; test -n "$(cmakedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(cmakedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(cmakedir)" || exit 1; \
+ fi; \
+ for p in $$list; do \
+ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
+ echo "$$d$$p"; \
+ done | $(am__base_list) | \
+ while read files; do \
+ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(cmakedir)'"; \
+ $(INSTALL_DATA) $$files "$(DESTDIR)$(cmakedir)" || exit $$?; \
+ done
+
+uninstall-nodist_cmakeDATA:
+ @$(NORMAL_UNINSTALL)
+ @list='$(nodist_cmake_DATA)'; test -n "$(cmakedir)" || list=; \
+ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
+ dir='$(DESTDIR)$(cmakedir)'; $(am__uninstall_files_from_dir)
+install-nodist_pkgconfigDATA: $(nodist_pkgconfig_DATA)
+ @$(NORMAL_INSTALL)
+ @list='$(nodist_pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgconfigdir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)" || exit 1; \
+ fi; \
+ for p in $$list; do \
+ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
+ echo "$$d$$p"; \
+ done | $(am__base_list) | \
+ while read files; do \
+ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \
+ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \
+ done
+
+uninstall-nodist_pkgconfigDATA:
+ @$(NORMAL_UNINSTALL)
+ @list='$(nodist_pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \
+ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
+ dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir)
+install-includeHEADERS: $(include_HEADERS)
+ @$(NORMAL_INSTALL)
+ @list='$(include_HEADERS)'; test -n "$(includedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(includedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(includedir)" || exit 1; \
+ fi; \
+ for p in $$list; do \
+ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
+ echo "$$d$$p"; \
+ done | $(am__base_list) | \
+ while read files; do \
+ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(includedir)'"; \
+ $(INSTALL_HEADER) $$files "$(DESTDIR)$(includedir)" || exit $$?; \
+ done
+
+uninstall-includeHEADERS:
+ @$(NORMAL_UNINSTALL)
+ @list='$(include_HEADERS)'; test -n "$(includedir)" || list=; \
+ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
+ dir='$(DESTDIR)$(includedir)'; $(am__uninstall_files_from_dir)
+install-nodist_includeHEADERS: $(nodist_include_HEADERS)
+ @$(NORMAL_INSTALL)
+ @list='$(nodist_include_HEADERS)'; test -n "$(includedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(includedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(includedir)" || exit 1; \
+ fi; \
+ for p in $$list; do \
+ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
+ echo "$$d$$p"; \
+ done | $(am__base_list) | \
+ while read files; do \
+ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(includedir)'"; \
+ $(INSTALL_HEADER) $$files "$(DESTDIR)$(includedir)" || exit $$?; \
+ done
+
+uninstall-nodist_includeHEADERS:
+ @$(NORMAL_UNINSTALL)
+ @list='$(nodist_include_HEADERS)'; test -n "$(includedir)" || list=; \
+ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
+ dir='$(DESTDIR)$(includedir)'; $(am__uninstall_files_from_dir)
+examples-local:
+
+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: $(BUILT_SOURCES)
+ $(MAKE) $(AM_MAKEFLAGS) distdir-am
+
+distdir-am: $(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
+ $(MAKE) $(AM_MAKEFLAGS) $(check_LTLIBRARIES)
+check: check-am
+all-am: Makefile $(LTLIBRARIES) $(DATA) $(HEADERS) config.h
+install-EXTRAPROGRAMS: install-libLTLIBRARIES
+
+install-checkLTLIBRARIES: install-libLTLIBRARIES
+
+installdirs:
+ for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(cmakedir)" "$(DESTDIR)$(pkgconfigdir)" "$(DESTDIR)$(includedir)" "$(DESTDIR)$(includedir)"; 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:
+ -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
+
+clean-generic:
+
+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."
+ -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
+clean: clean-am
+
+clean-am: clean-checkLTLIBRARIES clean-generic clean-libLTLIBRARIES \
+ clean-libtool clean-noinstLTLIBRARIES mostlyclean-am
+
+distclean: distclean-am
+ -rm -f $(DEPDIR)/getline.Po
+ -rm -f ./$(DEPDIR)/async_worker.Plo
+ -rm -f ./$(DEPDIR)/basetime.Plo
+ -rm -f ./$(DEPDIR)/binary.Plo
+ -rm -f ./$(DEPDIR)/calendar.Plo
+ -rm -f ./$(DEPDIR)/cdf.Plo
+ -rm -f ./$(DEPDIR)/cdf_int.Plo
+ -rm -f ./$(DEPDIR)/cdf_lazy_grid.Plo
+ -rm -f ./$(DEPDIR)/cdf_read.Plo
+ -rm -f ./$(DEPDIR)/cdf_records.Plo
+ -rm -f ./$(DEPDIR)/cdf_util.Plo
+ -rm -f ./$(DEPDIR)/cdf_write.Plo
+ -rm -f ./$(DEPDIR)/cdiFortran.Plo
+ -rm -f ./$(DEPDIR)/cdi_across.Plo
+ -rm -f ./$(DEPDIR)/cdi_att.Plo
+ -rm -f ./$(DEPDIR)/cdi_cksum.Plo
+ -rm -f ./$(DEPDIR)/cdi_datetime.Plo
+ -rm -f ./$(DEPDIR)/cdi_error.Plo
+ -rm -f ./$(DEPDIR)/cdi_fdb.Plo
+ -rm -f ./$(DEPDIR)/cdi_int.Plo
+ -rm -f ./$(DEPDIR)/cdi_key.Plo
+ -rm -f ./$(DEPDIR)/cdi_query.Plo
+ -rm -f ./$(DEPDIR)/cdi_util.Plo
+ -rm -f ./$(DEPDIR)/cdipioFortran.Plo
+ -rm -f ./$(DEPDIR)/cgribexlib.Plo
+ -rm -f ./$(DEPDIR)/cksum.Plo
+ -rm -f ./$(DEPDIR)/dmemory.Plo
+ -rm -f ./$(DEPDIR)/error.Plo
+ -rm -f ./$(DEPDIR)/extralib.Plo
+ -rm -f ./$(DEPDIR)/file.Plo
+ -rm -f ./$(DEPDIR)/gaussian_latitudes.Plo
+ -rm -f ./$(DEPDIR)/get_num_missvals.Plo
+ -rm -f ./$(DEPDIR)/grb_read.Plo
+ -rm -f ./$(DEPDIR)/grb_write.Plo
+ -rm -f ./$(DEPDIR)/gribapi.Plo
+ -rm -f ./$(DEPDIR)/gribapi_utilities.Plo
+ -rm -f ./$(DEPDIR)/grid.Plo
+ -rm -f ./$(DEPDIR)/ieglib.Plo
+ -rm -f ./$(DEPDIR)/input_file.Plo
+ -rm -f ./$(DEPDIR)/institution.Plo
+ -rm -f ./$(DEPDIR)/iterator.Plo
+ -rm -f ./$(DEPDIR)/iterator_fallback.Plo
+ -rm -f ./$(DEPDIR)/iterator_grib.Plo
+ -rm -f ./$(DEPDIR)/julian_date.Plo
+ -rm -f ./$(DEPDIR)/make_fint-make_fint.Po
+ -rm -f ./$(DEPDIR)/model.Plo
+ -rm -f ./$(DEPDIR)/namespace.Plo
+ -rm -f ./$(DEPDIR)/pio.Plo
+ -rm -f ./$(DEPDIR)/pio_cdf_int.Plo
+ -rm -f ./$(DEPDIR)/pio_client.Plo
+ -rm -f ./$(DEPDIR)/pio_comm.Plo
+ -rm -f ./$(DEPDIR)/pio_conf.Plo
+ -rm -f ./$(DEPDIR)/pio_dbuffer.Plo
+ -rm -f ./$(DEPDIR)/pio_dist_grid.Plo
+ -rm -f ./$(DEPDIR)/pio_idxlist_cache.Plo
+ -rm -f ./$(DEPDIR)/pio_interface.Plo
+ -rm -f ./$(DEPDIR)/pio_mpi_fw_at_all.Plo
+ -rm -f ./$(DEPDIR)/pio_mpi_fw_at_reblock.Plo
+ -rm -f ./$(DEPDIR)/pio_mpi_fw_ordered.Plo
+ -rm -f ./$(DEPDIR)/pio_mpinonb.Plo
+ -rm -f ./$(DEPDIR)/pio_posixasynch.Plo
+ -rm -f ./$(DEPDIR)/pio_posixfpguardsendrecv.Plo
+ -rm -f ./$(DEPDIR)/pio_posixnonb.Plo
+ -rm -f ./$(DEPDIR)/pio_record_send.Plo
+ -rm -f ./$(DEPDIR)/pio_roles.Plo
+ -rm -f ./$(DEPDIR)/pio_rpc.Plo
+ -rm -f ./$(DEPDIR)/pio_serialize.Plo
+ -rm -f ./$(DEPDIR)/pio_server.Plo
+ -rm -f ./$(DEPDIR)/pio_util.Plo
+ -rm -f ./$(DEPDIR)/pio_xmap_cache.Plo
+ -rm -f ./$(DEPDIR)/referenceCounting.Plo
+ -rm -f ./$(DEPDIR)/resource_handle.Plo
+ -rm -f ./$(DEPDIR)/resource_unpack.Plo
+ -rm -f ./$(DEPDIR)/serialize.Plo
+ -rm -f ./$(DEPDIR)/servicelib.Plo
+ -rm -f ./$(DEPDIR)/stream.Plo
+ -rm -f ./$(DEPDIR)/stream_cdf_i.Plo
+ -rm -f ./$(DEPDIR)/stream_cdf_o.Plo
+ -rm -f ./$(DEPDIR)/stream_cdf_time.Plo
+ -rm -f ./$(DEPDIR)/stream_cgribex.Plo
+ -rm -f ./$(DEPDIR)/stream_ext.Plo
+ -rm -f ./$(DEPDIR)/stream_grb.Plo
+ -rm -f ./$(DEPDIR)/stream_gribapi.Plo
+ -rm -f ./$(DEPDIR)/stream_ieg.Plo
+ -rm -f ./$(DEPDIR)/stream_read.Plo
+ -rm -f ./$(DEPDIR)/stream_record.Plo
+ -rm -f ./$(DEPDIR)/stream_scan.Plo
+ -rm -f ./$(DEPDIR)/stream_srv.Plo
+ -rm -f ./$(DEPDIR)/stream_var.Plo
+ -rm -f ./$(DEPDIR)/stream_write.Plo
+ -rm -f ./$(DEPDIR)/subtype.Plo
+ -rm -f ./$(DEPDIR)/swap.Plo
+ -rm -f ./$(DEPDIR)/table.Plo
+ -rm -f ./$(DEPDIR)/taxis.Plo
+ -rm -f ./$(DEPDIR)/tsteps.Plo
+ -rm -f ./$(DEPDIR)/util.Plo
+ -rm -f ./$(DEPDIR)/varscan.Plo
+ -rm -f ./$(DEPDIR)/version.Plo
+ -rm -f ./$(DEPDIR)/vlist.Plo
+ -rm -f ./$(DEPDIR)/vlist_var.Plo
+ -rm -f ./$(DEPDIR)/vlist_var_key.Plo
+ -rm -f ./$(DEPDIR)/vlist_var_pack.Plo
+ -rm -f ./$(DEPDIR)/zaxis.Plo
+ -rm -f Makefile
+distclean-am: clean-am distclean-compile distclean-generic \
+ distclean-hdr distclean-tags
+
+dvi: dvi-am
+
+dvi-am:
+
+examples: examples-am
+
+examples-am: examples-local
+
+html: html-am
+
+html-am:
+
+info: info-am
+
+info-am:
+
+install-data-am: install-includeHEADERS install-nodist_cmakeDATA \
+ install-nodist_includeHEADERS install-nodist_pkgconfigDATA
+
+install-dvi: install-dvi-am
+
+install-dvi-am:
+
+install-exec-am: install-libLTLIBRARIES
+
+install-html: install-html-am
+
+install-html-am:
+
+install-info: install-info-am
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-am
+
+install-pdf-am:
+
+install-ps: install-ps-am
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+ -rm -f $(DEPDIR)/getline.Po
+ -rm -f ./$(DEPDIR)/async_worker.Plo
+ -rm -f ./$(DEPDIR)/basetime.Plo
+ -rm -f ./$(DEPDIR)/binary.Plo
+ -rm -f ./$(DEPDIR)/calendar.Plo
+ -rm -f ./$(DEPDIR)/cdf.Plo
+ -rm -f ./$(DEPDIR)/cdf_int.Plo
+ -rm -f ./$(DEPDIR)/cdf_lazy_grid.Plo
+ -rm -f ./$(DEPDIR)/cdf_read.Plo
+ -rm -f ./$(DEPDIR)/cdf_records.Plo
+ -rm -f ./$(DEPDIR)/cdf_util.Plo
+ -rm -f ./$(DEPDIR)/cdf_write.Plo
+ -rm -f ./$(DEPDIR)/cdiFortran.Plo
+ -rm -f ./$(DEPDIR)/cdi_across.Plo
+ -rm -f ./$(DEPDIR)/cdi_att.Plo
+ -rm -f ./$(DEPDIR)/cdi_cksum.Plo
+ -rm -f ./$(DEPDIR)/cdi_datetime.Plo
+ -rm -f ./$(DEPDIR)/cdi_error.Plo
+ -rm -f ./$(DEPDIR)/cdi_fdb.Plo
+ -rm -f ./$(DEPDIR)/cdi_int.Plo
+ -rm -f ./$(DEPDIR)/cdi_key.Plo
+ -rm -f ./$(DEPDIR)/cdi_query.Plo
+ -rm -f ./$(DEPDIR)/cdi_util.Plo
+ -rm -f ./$(DEPDIR)/cdipioFortran.Plo
+ -rm -f ./$(DEPDIR)/cgribexlib.Plo
+ -rm -f ./$(DEPDIR)/cksum.Plo
+ -rm -f ./$(DEPDIR)/dmemory.Plo
+ -rm -f ./$(DEPDIR)/error.Plo
+ -rm -f ./$(DEPDIR)/extralib.Plo
+ -rm -f ./$(DEPDIR)/file.Plo
+ -rm -f ./$(DEPDIR)/gaussian_latitudes.Plo
+ -rm -f ./$(DEPDIR)/get_num_missvals.Plo
+ -rm -f ./$(DEPDIR)/grb_read.Plo
+ -rm -f ./$(DEPDIR)/grb_write.Plo
+ -rm -f ./$(DEPDIR)/gribapi.Plo
+ -rm -f ./$(DEPDIR)/gribapi_utilities.Plo
+ -rm -f ./$(DEPDIR)/grid.Plo
+ -rm -f ./$(DEPDIR)/ieglib.Plo
+ -rm -f ./$(DEPDIR)/input_file.Plo
+ -rm -f ./$(DEPDIR)/institution.Plo
+ -rm -f ./$(DEPDIR)/iterator.Plo
+ -rm -f ./$(DEPDIR)/iterator_fallback.Plo
+ -rm -f ./$(DEPDIR)/iterator_grib.Plo
+ -rm -f ./$(DEPDIR)/julian_date.Plo
+ -rm -f ./$(DEPDIR)/make_fint-make_fint.Po
+ -rm -f ./$(DEPDIR)/model.Plo
+ -rm -f ./$(DEPDIR)/namespace.Plo
+ -rm -f ./$(DEPDIR)/pio.Plo
+ -rm -f ./$(DEPDIR)/pio_cdf_int.Plo
+ -rm -f ./$(DEPDIR)/pio_client.Plo
+ -rm -f ./$(DEPDIR)/pio_comm.Plo
+ -rm -f ./$(DEPDIR)/pio_conf.Plo
+ -rm -f ./$(DEPDIR)/pio_dbuffer.Plo
+ -rm -f ./$(DEPDIR)/pio_dist_grid.Plo
+ -rm -f ./$(DEPDIR)/pio_idxlist_cache.Plo
+ -rm -f ./$(DEPDIR)/pio_interface.Plo
+ -rm -f ./$(DEPDIR)/pio_mpi_fw_at_all.Plo
+ -rm -f ./$(DEPDIR)/pio_mpi_fw_at_reblock.Plo
+ -rm -f ./$(DEPDIR)/pio_mpi_fw_ordered.Plo
+ -rm -f ./$(DEPDIR)/pio_mpinonb.Plo
+ -rm -f ./$(DEPDIR)/pio_posixasynch.Plo
+ -rm -f ./$(DEPDIR)/pio_posixfpguardsendrecv.Plo
+ -rm -f ./$(DEPDIR)/pio_posixnonb.Plo
+ -rm -f ./$(DEPDIR)/pio_record_send.Plo
+ -rm -f ./$(DEPDIR)/pio_roles.Plo
+ -rm -f ./$(DEPDIR)/pio_rpc.Plo
+ -rm -f ./$(DEPDIR)/pio_serialize.Plo
+ -rm -f ./$(DEPDIR)/pio_server.Plo
+ -rm -f ./$(DEPDIR)/pio_util.Plo
+ -rm -f ./$(DEPDIR)/pio_xmap_cache.Plo
+ -rm -f ./$(DEPDIR)/referenceCounting.Plo
+ -rm -f ./$(DEPDIR)/resource_handle.Plo
+ -rm -f ./$(DEPDIR)/resource_unpack.Plo
+ -rm -f ./$(DEPDIR)/serialize.Plo
+ -rm -f ./$(DEPDIR)/servicelib.Plo
+ -rm -f ./$(DEPDIR)/stream.Plo
+ -rm -f ./$(DEPDIR)/stream_cdf_i.Plo
+ -rm -f ./$(DEPDIR)/stream_cdf_o.Plo
+ -rm -f ./$(DEPDIR)/stream_cdf_time.Plo
+ -rm -f ./$(DEPDIR)/stream_cgribex.Plo
+ -rm -f ./$(DEPDIR)/stream_ext.Plo
+ -rm -f ./$(DEPDIR)/stream_grb.Plo
+ -rm -f ./$(DEPDIR)/stream_gribapi.Plo
+ -rm -f ./$(DEPDIR)/stream_ieg.Plo
+ -rm -f ./$(DEPDIR)/stream_read.Plo
+ -rm -f ./$(DEPDIR)/stream_record.Plo
+ -rm -f ./$(DEPDIR)/stream_scan.Plo
+ -rm -f ./$(DEPDIR)/stream_srv.Plo
+ -rm -f ./$(DEPDIR)/stream_var.Plo
+ -rm -f ./$(DEPDIR)/stream_write.Plo
+ -rm -f ./$(DEPDIR)/subtype.Plo
+ -rm -f ./$(DEPDIR)/swap.Plo
+ -rm -f ./$(DEPDIR)/table.Plo
+ -rm -f ./$(DEPDIR)/taxis.Plo
+ -rm -f ./$(DEPDIR)/tsteps.Plo
+ -rm -f ./$(DEPDIR)/util.Plo
+ -rm -f ./$(DEPDIR)/varscan.Plo
+ -rm -f ./$(DEPDIR)/version.Plo
+ -rm -f ./$(DEPDIR)/vlist.Plo
+ -rm -f ./$(DEPDIR)/vlist_var.Plo
+ -rm -f ./$(DEPDIR)/vlist_var_key.Plo
+ -rm -f ./$(DEPDIR)/vlist_var_pack.Plo
+ -rm -f ./$(DEPDIR)/zaxis.Plo
+ -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-includeHEADERS uninstall-libLTLIBRARIES \
+ uninstall-nodist_cmakeDATA uninstall-nodist_includeHEADERS \
+ uninstall-nodist_pkgconfigDATA
+
+.MAKE: all check-am install-am install-strip
+
+.PHONY: CTAGS GTAGS TAGS all all-am am--depfiles check check-am clean \
+ clean-checkLTLIBRARIES clean-generic clean-libLTLIBRARIES \
+ clean-libtool clean-noinstLTLIBRARIES cscopelist-am ctags \
+ ctags-am distclean distclean-compile distclean-generic \
+ distclean-hdr distclean-libtool distclean-tags distdir dvi \
+ dvi-am examples-am examples-local html html-am info info-am \
+ install install-am install-data install-data-am install-dvi \
+ install-dvi-am install-exec install-exec-am install-html \
+ install-html-am install-includeHEADERS install-info \
+ install-info-am install-libLTLIBRARIES install-man \
+ install-nodist_cmakeDATA install-nodist_includeHEADERS \
+ install-nodist_pkgconfigDATA 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-includeHEADERS \
+ uninstall-libLTLIBRARIES uninstall-nodist_cmakeDATA \
+ uninstall-nodist_includeHEADERS uninstall-nodist_pkgconfigDATA
+
+.PRECIOUS: Makefile
+
+
+@MAINTAINER_MODE_TRUE@cdi.inc: cdi.h make_fint.c
+@MAINTAINER_MODE_TRUE@ $(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) make_fint
+@MAINTAINER_MODE_TRUE@ $(AM_V_GEN)$(top_builddir)/libtool --mode=execute ./make_fint -o $(@D) $<
+@MAINTAINER_MODE_TRUE@cdiFortran.c: cdi.inc
+@MAINTAINER_MODE_TRUE@ $(AM_V_at)test -f $@ || rm -f $<
+@MAINTAINER_MODE_TRUE@ $(AM_V_at)test -f $@ || $(MAKE) $(AM_MAKEFLAGS) $<
+
+@MAINTAINER_MODE_TRUE@cdipio.inc: cdipio.h make_fint.c cdi.inc
+@MAINTAINER_MODE_TRUE@ $(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) make_fint
+@MAINTAINER_MODE_TRUE@ $(AM_V_GEN)$(top_builddir)/libtool --mode=execute ./make_fint -o $(@D) $<
+@MAINTAINER_MODE_TRUE@cdipioFortran.c: cdipio.inc
+@MAINTAINER_MODE_TRUE@ $(AM_V_at)test -f $@ || rm -f $<
+@MAINTAINER_MODE_TRUE@ $(AM_V_at)test -f $@ || $(MAKE) $(AM_MAKEFLAGS) $<
+
+@MAINTAINER_MODE_TRUE@mo_cdi.f90: cdi.h $(top_srcdir)/interfaces/f2003/bindGen.rb
+@MAINTAINER_MODE_TRUE@ $(AM_V_GEN)$(RUBY) $(top_srcdir)/interfaces/f2003/bindGen.rb $< $@
+
+@MAINTAINER_MODE_TRUE@cdilib.c: $(libcdi_la_SOURCES) $(srcdir)/make_cdilib
+@MAINTAINER_MODE_TRUE@ $(AM_V_GEN)CPP='$(CPP)' $(srcdir)/make_cdilib $(srcdir)
+@MAINTAINER_MODE_FALSE@cdiFortran.c cdi.inc cdipioFortran.c cdipio.inc mo_cdi.f90 cdilib.c:
+@MAINTAINER_MODE_FALSE@ @:;{ \
+@MAINTAINER_MODE_FALSE@ echo "ERROR: cannot generate '$@' when the maintainer mode is disabled:"; \
+@MAINTAINER_MODE_FALSE@ echo " re-configure with the '--enable-maintainer-mode' option"; \
+@MAINTAINER_MODE_FALSE@ } >&2; exit 1
+
+$(mo_cdi_mod): mo_cdi.lo
+ $(AM_V_at)test -f $@ || rm -f $<
+ $(AM_V_at)test -f $@ || $(MAKE) $(AM_MAKEFLAGS) $<
+
+cmake/cdi/cdi-config.cmake: $(top_builddir)/config.status cmake/cdi/cdi-config.cmake.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+
+cmake/cdi/cdi-config-version.cmake: $(top_builddir)/config.status cmake/cdi/cdi-config-version.cmake.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+
+pkgconfig/cdi.pc: $(top_builddir)/config.status $(srcdir)/pkgconfig/cdi.pc.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+
+pkgconfig/cdipio.pc: $(top_builddir)/config.status $(srcdir)/pkgconfig/cdipio.pc.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+
+pkgconfig/cdi_f2003.pc: $(top_builddir)/config.status $(srcdir)/pkgconfig/cdi_f2003.pc.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+
+# 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/src/cdi.inc b/src/cdi.inc
new file mode 100644
index 000000000..bac5cadaa
--- /dev/null
+++ b/src/cdi.inc
@@ -0,0 +1,2629 @@
+! This file was automatically generated, don't edit!
+!
+! Fortran interface for CDI library version 2.4.0
+!
+! Author:
+! -------
+! Uwe Schulzweida, MPI-MET, Hamburg, April 2024
+!
+
+!
+! Start of fortran interface for the following routines (make_fint.c)
+!
+ INTEGER CDI_MAX_NAME
+ PARAMETER (CDI_MAX_NAME = 256)
+ INTEGER CDI_UNDEFID
+ PARAMETER (CDI_UNDEFID = -1)
+ INTEGER CDI_GLOBAL
+ PARAMETER (CDI_GLOBAL = -1)
+ INTEGER CDI_XAXIS
+ PARAMETER (CDI_XAXIS = 1)
+ INTEGER CDI_YAXIS
+ PARAMETER (CDI_YAXIS = 2)
+!
+! Byte order
+!
+ INTEGER CDI_BIGENDIAN
+ PARAMETER (CDI_BIGENDIAN = 0)
+ INTEGER CDI_LITTLEENDIAN
+ PARAMETER (CDI_LITTLEENDIAN = 1)
+ INTEGER CDI_PDPENDIAN
+ PARAMETER (CDI_PDPENDIAN = 2)
+ INTEGER CDI_REAL
+ PARAMETER (CDI_REAL = 1)
+ INTEGER CDI_COMP
+ PARAMETER (CDI_COMP = 2)
+ INTEGER CDI_BOTH
+ PARAMETER (CDI_BOTH = 3)
+!
+! Error identifier
+!
+ INTEGER CDI_NOERR
+ PARAMETER (CDI_NOERR = 0)
+ INTEGER CDI_EEOF
+ PARAMETER (CDI_EEOF = -1)
+ INTEGER CDI_ETMOF
+ PARAMETER (CDI_ETMOF = -9)
+ INTEGER CDI_ESYSTEM
+ PARAMETER (CDI_ESYSTEM = -10)
+ INTEGER CDI_EINVAL
+ PARAMETER (CDI_EINVAL = -20)
+ INTEGER CDI_EISDIR
+ PARAMETER (CDI_EISDIR = -21)
+ INTEGER CDI_EISEMPTY
+ PARAMETER (CDI_EISEMPTY = -22)
+ INTEGER CDI_EUFTYPE
+ PARAMETER (CDI_EUFTYPE = -23)
+ INTEGER CDI_ELIBNAVAIL
+ PARAMETER (CDI_ELIBNAVAIL = -24)
+ INTEGER CDI_EUFSTRUCT
+ PARAMETER (CDI_EUFSTRUCT = -25)
+ INTEGER CDI_EUNC4
+ PARAMETER (CDI_EUNC4 = -26)
+ INTEGER CDI_EDIMSIZE
+ PARAMETER (CDI_EDIMSIZE = -27)
+ INTEGER CDI_EQENF
+ PARAMETER (CDI_EQENF = -50)
+ INTEGER CDI_EQNAVAIL
+ PARAMETER (CDI_EQNAVAIL = -51)
+ INTEGER CDI_ELIMIT
+ PARAMETER (CDI_ELIMIT = -99)
+!
+! File types
+!
+ INTEGER CDI_FILETYPE_GRB
+ PARAMETER (CDI_FILETYPE_GRB = 1)
+ INTEGER CDI_FILETYPE_GRB2
+ PARAMETER (CDI_FILETYPE_GRB2 = 2)
+ INTEGER CDI_FILETYPE_NC
+ PARAMETER (CDI_FILETYPE_NC = 3)
+ INTEGER CDI_FILETYPE_NC2
+ PARAMETER (CDI_FILETYPE_NC2 = 4)
+ INTEGER CDI_FILETYPE_NC4
+ PARAMETER (CDI_FILETYPE_NC4 = 5)
+ INTEGER CDI_FILETYPE_NC4C
+ PARAMETER (CDI_FILETYPE_NC4C = 6)
+ INTEGER CDI_FILETYPE_NC5
+ PARAMETER (CDI_FILETYPE_NC5 = 7)
+ INTEGER CDI_FILETYPE_SRV
+ PARAMETER (CDI_FILETYPE_SRV = 8)
+ INTEGER CDI_FILETYPE_EXT
+ PARAMETER (CDI_FILETYPE_EXT = 9)
+ INTEGER CDI_FILETYPE_IEG
+ PARAMETER (CDI_FILETYPE_IEG = 10)
+ INTEGER CDI_FILETYPE_NCZARR
+ PARAMETER (CDI_FILETYPE_NCZARR = 11)
+!
+! Compatibility defines for release 1.8.3 (obsolete defines)
+!
+ INTEGER FILETYPE_GRB
+ PARAMETER (FILETYPE_GRB = 1)
+ INTEGER FILETYPE_GRB2
+ PARAMETER (FILETYPE_GRB2 = 2)
+ INTEGER FILETYPE_NC
+ PARAMETER (FILETYPE_NC = 3)
+ INTEGER FILETYPE_NC2
+ PARAMETER (FILETYPE_NC2 = 4)
+ INTEGER FILETYPE_NC4
+ PARAMETER (FILETYPE_NC4 = 5)
+!
+! Protocols (in filename/URI)
+!
+ INTEGER CDI_PROTOCOL_OTHER
+ PARAMETER (CDI_PROTOCOL_OTHER = 0)
+ INTEGER CDI_PROTOCOL_FILE
+ PARAMETER (CDI_PROTOCOL_FILE = 1)
+ INTEGER CDI_PROTOCOL_FDB
+ PARAMETER (CDI_PROTOCOL_FDB = 2)
+ INTEGER CDI_PROTOCOL_ACROSS
+ PARAMETER (CDI_PROTOCOL_ACROSS = 3)
+!
+! Compress types
+!
+ INTEGER CDI_COMPRESS_NONE
+ PARAMETER (CDI_COMPRESS_NONE = 0)
+ INTEGER CDI_COMPRESS_SZIP
+ PARAMETER (CDI_COMPRESS_SZIP = 1)
+ INTEGER CDI_COMPRESS_AEC
+ PARAMETER (CDI_COMPRESS_AEC = 2)
+ INTEGER CDI_COMPRESS_ZIP
+ PARAMETER (CDI_COMPRESS_ZIP = 3)
+ INTEGER CDI_COMPRESS_JPEG
+ PARAMETER (CDI_COMPRESS_JPEG = 4)
+ INTEGER CDI_COMPRESS_FILTER
+ PARAMETER (CDI_COMPRESS_FILTER = 5)
+!
+! external data types
+!
+!
+! Compatibility defines for release 1.8.3 (obsolete defines)
+!
+ INTEGER DATATYPE_PACK16
+ PARAMETER (DATATYPE_PACK16 = 16)
+ INTEGER DATATYPE_PACK24
+ PARAMETER (DATATYPE_PACK24 = 24)
+ INTEGER DATATYPE_FLT32
+ PARAMETER (DATATYPE_FLT32 = 132)
+ INTEGER DATATYPE_FLT64
+ PARAMETER (DATATYPE_FLT64 = 164)
+ INTEGER DATATYPE_INT32
+ PARAMETER (DATATYPE_INT32 = 232)
+ INTEGER DATATYPE_INT
+ PARAMETER (DATATYPE_INT = 251)
+ INTEGER CDI_DATATYPE_PACK
+ PARAMETER (CDI_DATATYPE_PACK = 0)
+ INTEGER CDI_DATATYPE_PACK1
+ PARAMETER (CDI_DATATYPE_PACK1 = 1)
+ INTEGER CDI_DATATYPE_PACK2
+ PARAMETER (CDI_DATATYPE_PACK2 = 2)
+ INTEGER CDI_DATATYPE_PACK3
+ PARAMETER (CDI_DATATYPE_PACK3 = 3)
+ INTEGER CDI_DATATYPE_PACK4
+ PARAMETER (CDI_DATATYPE_PACK4 = 4)
+ INTEGER CDI_DATATYPE_PACK5
+ PARAMETER (CDI_DATATYPE_PACK5 = 5)
+ INTEGER CDI_DATATYPE_PACK6
+ PARAMETER (CDI_DATATYPE_PACK6 = 6)
+ INTEGER CDI_DATATYPE_PACK7
+ PARAMETER (CDI_DATATYPE_PACK7 = 7)
+ INTEGER CDI_DATATYPE_PACK8
+ PARAMETER (CDI_DATATYPE_PACK8 = 8)
+ INTEGER CDI_DATATYPE_PACK9
+ PARAMETER (CDI_DATATYPE_PACK9 = 9)
+ INTEGER CDI_DATATYPE_PACK10
+ PARAMETER (CDI_DATATYPE_PACK10 = 10)
+ INTEGER CDI_DATATYPE_PACK11
+ PARAMETER (CDI_DATATYPE_PACK11 = 11)
+ INTEGER CDI_DATATYPE_PACK12
+ PARAMETER (CDI_DATATYPE_PACK12 = 12)
+ INTEGER CDI_DATATYPE_PACK13
+ PARAMETER (CDI_DATATYPE_PACK13 = 13)
+ INTEGER CDI_DATATYPE_PACK14
+ PARAMETER (CDI_DATATYPE_PACK14 = 14)
+ INTEGER CDI_DATATYPE_PACK15
+ PARAMETER (CDI_DATATYPE_PACK15 = 15)
+ INTEGER CDI_DATATYPE_PACK16
+ PARAMETER (CDI_DATATYPE_PACK16 = 16)
+ INTEGER CDI_DATATYPE_PACK17
+ PARAMETER (CDI_DATATYPE_PACK17 = 17)
+ INTEGER CDI_DATATYPE_PACK18
+ PARAMETER (CDI_DATATYPE_PACK18 = 18)
+ INTEGER CDI_DATATYPE_PACK19
+ PARAMETER (CDI_DATATYPE_PACK19 = 19)
+ INTEGER CDI_DATATYPE_PACK20
+ PARAMETER (CDI_DATATYPE_PACK20 = 20)
+ INTEGER CDI_DATATYPE_PACK21
+ PARAMETER (CDI_DATATYPE_PACK21 = 21)
+ INTEGER CDI_DATATYPE_PACK22
+ PARAMETER (CDI_DATATYPE_PACK22 = 22)
+ INTEGER CDI_DATATYPE_PACK23
+ PARAMETER (CDI_DATATYPE_PACK23 = 23)
+ INTEGER CDI_DATATYPE_PACK24
+ PARAMETER (CDI_DATATYPE_PACK24 = 24)
+ INTEGER CDI_DATATYPE_PACK25
+ PARAMETER (CDI_DATATYPE_PACK25 = 25)
+ INTEGER CDI_DATATYPE_PACK26
+ PARAMETER (CDI_DATATYPE_PACK26 = 26)
+ INTEGER CDI_DATATYPE_PACK27
+ PARAMETER (CDI_DATATYPE_PACK27 = 27)
+ INTEGER CDI_DATATYPE_PACK28
+ PARAMETER (CDI_DATATYPE_PACK28 = 28)
+ INTEGER CDI_DATATYPE_PACK29
+ PARAMETER (CDI_DATATYPE_PACK29 = 29)
+ INTEGER CDI_DATATYPE_PACK30
+ PARAMETER (CDI_DATATYPE_PACK30 = 30)
+ INTEGER CDI_DATATYPE_PACK31
+ PARAMETER (CDI_DATATYPE_PACK31 = 31)
+ INTEGER CDI_DATATYPE_PACK32
+ PARAMETER (CDI_DATATYPE_PACK32 = 32)
+ INTEGER CDI_DATATYPE_CPX32
+ PARAMETER (CDI_DATATYPE_CPX32 = 64)
+ INTEGER CDI_DATATYPE_CPX64
+ PARAMETER (CDI_DATATYPE_CPX64 = 128)
+ INTEGER CDI_DATATYPE_FLT32
+ PARAMETER (CDI_DATATYPE_FLT32 = 132)
+ INTEGER CDI_DATATYPE_FLT64
+ PARAMETER (CDI_DATATYPE_FLT64 = 164)
+ INTEGER CDI_DATATYPE_INT8
+ PARAMETER (CDI_DATATYPE_INT8 = 208)
+ INTEGER CDI_DATATYPE_INT16
+ PARAMETER (CDI_DATATYPE_INT16 = 216)
+ INTEGER CDI_DATATYPE_INT32
+ PARAMETER (CDI_DATATYPE_INT32 = 232)
+ INTEGER CDI_DATATYPE_UINT8
+ PARAMETER (CDI_DATATYPE_UINT8 = 308)
+ INTEGER CDI_DATATYPE_UINT16
+ PARAMETER (CDI_DATATYPE_UINT16 = 316)
+ INTEGER CDI_DATATYPE_UINT32
+ PARAMETER (CDI_DATATYPE_UINT32 = 332)
+!
+! internal data types
+!
+ INTEGER CDI_DATATYPE_INT
+ PARAMETER (CDI_DATATYPE_INT = 251)
+ INTEGER CDI_DATATYPE_FLT
+ PARAMETER (CDI_DATATYPE_FLT = 252)
+ INTEGER CDI_DATATYPE_TXT
+ PARAMETER (CDI_DATATYPE_TXT = 253)
+ INTEGER CDI_DATATYPE_CPX
+ PARAMETER (CDI_DATATYPE_CPX = 254)
+ INTEGER CDI_DATATYPE_UCHAR
+ PARAMETER (CDI_DATATYPE_UCHAR = 255)
+ INTEGER CDI_DATATYPE_LONG
+ PARAMETER (CDI_DATATYPE_LONG = 256)
+ INTEGER CDI_DATATYPE_UINT
+ PARAMETER (CDI_DATATYPE_UINT = 257)
+!
+! Chunk types
+!
+ INTEGER CDI_CHUNK_AUTO
+ PARAMETER (CDI_CHUNK_AUTO = 1)
+ INTEGER CDI_CHUNK_GRID
+ PARAMETER (CDI_CHUNK_GRID = 2)
+ INTEGER CDI_CHUNK_LINES
+ PARAMETER (CDI_CHUNK_LINES = 3)
+!
+! GRID types
+!
+ INTEGER GRID_GENERIC
+ PARAMETER (GRID_GENERIC = 1)
+ INTEGER GRID_GAUSSIAN
+ PARAMETER (GRID_GAUSSIAN = 2)
+ INTEGER GRID_GAUSSIAN_REDUCED
+ PARAMETER (GRID_GAUSSIAN_REDUCED = 3)
+ INTEGER GRID_LONLAT
+ PARAMETER (GRID_LONLAT = 4)
+ INTEGER GRID_SPECTRAL
+ PARAMETER (GRID_SPECTRAL = 5)
+ INTEGER GRID_FOURIER
+ PARAMETER (GRID_FOURIER = 6)
+ INTEGER GRID_GME
+ PARAMETER (GRID_GME = 7)
+ INTEGER GRID_TRAJECTORY
+ PARAMETER (GRID_TRAJECTORY = 8)
+ INTEGER GRID_UNSTRUCTURED
+ PARAMETER (GRID_UNSTRUCTURED = 9)
+ INTEGER GRID_CURVILINEAR
+ PARAMETER (GRID_CURVILINEAR = 10)
+ INTEGER GRID_PROJECTION
+ PARAMETER (GRID_PROJECTION = 12)
+ INTEGER GRID_CHARXY
+ PARAMETER (GRID_CHARXY = 13)
+ INTEGER CDI_PROJ_RLL
+ PARAMETER (CDI_PROJ_RLL = 21)
+ INTEGER CDI_PROJ_LCC
+ PARAMETER (CDI_PROJ_LCC = 22)
+ INTEGER CDI_PROJ_LAEA
+ PARAMETER (CDI_PROJ_LAEA = 23)
+ INTEGER CDI_PROJ_SINU
+ PARAMETER (CDI_PROJ_SINU = 24)
+ INTEGER CDI_PROJ_STERE
+ PARAMETER (CDI_PROJ_STERE = 25)
+ INTEGER CDI_PROJ_HEALPIX
+ PARAMETER (CDI_PROJ_HEALPIX = 26)
+!
+! ZAXIS types
+!
+ INTEGER ZAXIS_SURFACE
+ PARAMETER (ZAXIS_SURFACE = 0)
+ INTEGER ZAXIS_GENERIC
+ PARAMETER (ZAXIS_GENERIC = 1)
+ INTEGER ZAXIS_HYBRID
+ PARAMETER (ZAXIS_HYBRID = 2)
+ INTEGER ZAXIS_HYBRID_HALF
+ PARAMETER (ZAXIS_HYBRID_HALF = 3)
+ INTEGER ZAXIS_PRESSURE
+ PARAMETER (ZAXIS_PRESSURE = 4)
+ INTEGER ZAXIS_HEIGHT
+ PARAMETER (ZAXIS_HEIGHT = 5)
+ INTEGER ZAXIS_DEPTH_BELOW_SEA
+ PARAMETER (ZAXIS_DEPTH_BELOW_SEA = 6)
+ INTEGER ZAXIS_DEPTH_BELOW_LAND
+ PARAMETER (ZAXIS_DEPTH_BELOW_LAND = 7)
+ INTEGER ZAXIS_ISENTROPIC
+ PARAMETER (ZAXIS_ISENTROPIC = 8)
+ INTEGER ZAXIS_TRAJECTORY
+ PARAMETER (ZAXIS_TRAJECTORY = 9)
+ INTEGER ZAXIS_ALTITUDE
+ PARAMETER (ZAXIS_ALTITUDE = 10)
+ INTEGER ZAXIS_SIGMA
+ PARAMETER (ZAXIS_SIGMA = 11)
+ INTEGER ZAXIS_MEANSEA
+ PARAMETER (ZAXIS_MEANSEA = 12)
+ INTEGER ZAXIS_TOA
+ PARAMETER (ZAXIS_TOA = 13)
+ INTEGER ZAXIS_SEA_BOTTOM
+ PARAMETER (ZAXIS_SEA_BOTTOM = 14)
+ INTEGER ZAXIS_ATMOSPHERE
+ PARAMETER (ZAXIS_ATMOSPHERE = 15)
+ INTEGER ZAXIS_CLOUD_BASE
+ PARAMETER (ZAXIS_CLOUD_BASE = 16)
+ INTEGER ZAXIS_CLOUD_TOP
+ PARAMETER (ZAXIS_CLOUD_TOP = 17)
+ INTEGER ZAXIS_ISOTHERM_ZERO
+ PARAMETER (ZAXIS_ISOTHERM_ZERO = 18)
+ INTEGER ZAXIS_SNOW
+ PARAMETER (ZAXIS_SNOW = 19)
+ INTEGER ZAXIS_LAKE_BOTTOM
+ PARAMETER (ZAXIS_LAKE_BOTTOM = 20)
+ INTEGER ZAXIS_SEDIMENT_BOTTOM
+ PARAMETER (ZAXIS_SEDIMENT_BOTTOM = 21)
+ INTEGER ZAXIS_SEDIMENT_BOTTOM_TA
+ PARAMETER (ZAXIS_SEDIMENT_BOTTOM_TA = 22)
+ INTEGER ZAXIS_SEDIMENT_BOTTOM_TW
+ PARAMETER (ZAXIS_SEDIMENT_BOTTOM_TW = 23)
+ INTEGER ZAXIS_MIX_LAYER
+ PARAMETER (ZAXIS_MIX_LAYER = 24)
+ INTEGER ZAXIS_REFERENCE
+ PARAMETER (ZAXIS_REFERENCE = 25)
+ INTEGER ZAXIS_CHAR
+ PARAMETER (ZAXIS_CHAR = 26)
+ INTEGER ZAXIS_TROPOPAUSE
+ PARAMETER (ZAXIS_TROPOPAUSE = 27)
+!
+! SUBTYPE types
+!
+ INTEGER MAX_KV_PAIRS_MATCH
+ PARAMETER (MAX_KV_PAIRS_MATCH = 10)
+!
+! Data structure defining a key-value search, possibly with multiple
+! key-value pairs in combination.
+!
+! Currently, only multiple pairs combined by AND are supported.
+!
+!
+! TIME types
+!
+ INTEGER TIME_CONSTANT
+ PARAMETER (TIME_CONSTANT = 0)
+ INTEGER TIME_VARYING
+ PARAMETER (TIME_VARYING = 1)
+ INTEGER TIME_VARIABLE
+ PARAMETER (TIME_VARIABLE = 1)
+!
+! TSTEP types
+!
+ INTEGER TSTEP_CONSTANT
+ PARAMETER (TSTEP_CONSTANT = 0)
+ INTEGER TSTEP_INSTANT
+ PARAMETER (TSTEP_INSTANT = 1)
+ INTEGER TSTEP_AVG
+ PARAMETER (TSTEP_AVG = 2)
+ INTEGER TSTEP_ACCUM
+ PARAMETER (TSTEP_ACCUM = 3)
+ INTEGER TSTEP_MAX
+ PARAMETER (TSTEP_MAX = 4)
+ INTEGER TSTEP_MIN
+ PARAMETER (TSTEP_MIN = 5)
+ INTEGER TSTEP_DIFF
+ PARAMETER (TSTEP_DIFF = 6)
+ INTEGER TSTEP_RMS
+ PARAMETER (TSTEP_RMS = 7)
+ INTEGER TSTEP_SD
+ PARAMETER (TSTEP_SD = 8)
+ INTEGER TSTEP_COV
+ PARAMETER (TSTEP_COV = 9)
+ INTEGER TSTEP_RATIO
+ PARAMETER (TSTEP_RATIO = 10)
+ INTEGER TSTEP_SUM
+ PARAMETER (TSTEP_SUM = 11)
+ INTEGER TSTEP_RANGE
+ PARAMETER (TSTEP_RANGE = 12)
+ INTEGER TSTEP_INSTANT2
+ PARAMETER (TSTEP_INSTANT2 = 13)
+ INTEGER TSTEP_INSTANT3
+ PARAMETER (TSTEP_INSTANT3 = 14)
+!
+! TAXIS types
+!
+ INTEGER TAXIS_ABSOLUTE
+ PARAMETER (TAXIS_ABSOLUTE = 1)
+ INTEGER TAXIS_RELATIVE
+ PARAMETER (TAXIS_RELATIVE = 2)
+ INTEGER TAXIS_FORECAST
+ PARAMETER (TAXIS_FORECAST = 3)
+!
+! TUNIT types
+!
+ INTEGER TUNIT_SECOND
+ PARAMETER (TUNIT_SECOND = 1)
+ INTEGER TUNIT_MINUTE
+ PARAMETER (TUNIT_MINUTE = 2)
+ INTEGER TUNIT_QUARTER
+ PARAMETER (TUNIT_QUARTER = 3)
+ INTEGER TUNIT_30MINUTES
+ PARAMETER (TUNIT_30MINUTES = 4)
+ INTEGER TUNIT_HOUR
+ PARAMETER (TUNIT_HOUR = 5)
+ INTEGER TUNIT_3HOURS
+ PARAMETER (TUNIT_3HOURS = 6)
+ INTEGER TUNIT_6HOURS
+ PARAMETER (TUNIT_6HOURS = 7)
+ INTEGER TUNIT_12HOURS
+ PARAMETER (TUNIT_12HOURS = 8)
+ INTEGER TUNIT_DAY
+ PARAMETER (TUNIT_DAY = 9)
+ INTEGER TUNIT_MONTH
+ PARAMETER (TUNIT_MONTH = 10)
+ INTEGER TUNIT_YEAR
+ PARAMETER (TUNIT_YEAR = 11)
+!
+! CALENDAR types
+!
+ INTEGER CALENDAR_STANDARD
+ PARAMETER (CALENDAR_STANDARD = 0)
+ INTEGER CALENDAR_GREGORIAN
+ PARAMETER (CALENDAR_GREGORIAN = 1)
+ INTEGER CALENDAR_PROLEPTIC
+ PARAMETER (CALENDAR_PROLEPTIC = 2)
+ INTEGER CALENDAR_360DAYS
+ PARAMETER (CALENDAR_360DAYS = 3)
+ INTEGER CALENDAR_365DAYS
+ PARAMETER (CALENDAR_365DAYS = 4)
+ INTEGER CALENDAR_366DAYS
+ PARAMETER (CALENDAR_366DAYS = 5)
+ INTEGER CALENDAR_NONE
+ PARAMETER (CALENDAR_NONE = 6)
+!
+! number of unsigned char needed to store UUID
+!
+ INTEGER CDI_UUID_SIZE
+ PARAMETER (CDI_UUID_SIZE = 16)
+!
+! Structs that are used to return data to the user
+!
+!
+! Opaque types
+!
+!
+! CDI control routines
+!
+! cdiReset
+ EXTERNAL cdiReset
+
+ CHARACTER(80) cdiStringError
+! (INTEGER cdiErrno)
+ EXTERNAL cdiStringError
+
+! cdiDebug
+! (INTEGER debug)
+ EXTERNAL cdiDebug
+
+ CHARACTER(80) cdiLibraryVersion
+ EXTERNAL cdiLibraryVersion
+
+! cdiPrintVersion
+ EXTERNAL cdiPrintVersion
+
+ INTEGER cdiHaveFiletype
+! (INTEGER filetype)
+ EXTERNAL cdiHaveFiletype
+
+! cdiDefMissval
+! (DOUBLEPRECISION missval)
+ EXTERNAL cdiDefMissval
+
+ DOUBLEPRECISION cdiInqMissval
+ EXTERNAL cdiInqMissval
+
+! cdiDefGlobal
+! (CHARACTER*(*) string,
+! INTEGER val)
+ EXTERNAL cdiDefGlobal
+
+ INTEGER namespaceNew
+ EXTERNAL namespaceNew
+
+! namespaceSetActive
+! (INTEGER namespaceID)
+ EXTERNAL namespaceSetActive
+
+ INTEGER namespaceGetActive
+ EXTERNAL namespaceGetActive
+
+! namespaceDelete
+! (INTEGER namespaceID)
+ EXTERNAL namespaceDelete
+
+!
+! CDI converter routines
+!
+!
+! parameter
+!
+! cdiParamToString
+! (INTEGER param,
+! CHARACTER*(*) paramstr,
+! INTEGER maxlen)
+ EXTERNAL cdiParamToString
+
+! cdiDecodeParam
+! (INTEGER param,
+! INTEGER pnum,
+! INTEGER pcat,
+! INTEGER pdis)
+ EXTERNAL cdiDecodeParam
+
+ INTEGER cdiEncodeParam
+! (INTEGER pnum,
+! INTEGER pcat,
+! INTEGER pdis)
+ EXTERNAL cdiEncodeParam
+
+!
+! date format: YYYYMMDD
+!
+!
+! time format: hhmmss
+!
+! cdiDecodeDate
+! (INTEGER date,
+! INTEGER year,
+! INTEGER month,
+! INTEGER day)
+ EXTERNAL cdiDecodeDate
+
+ INTEGER cdiEncodeDate
+! (INTEGER year,
+! INTEGER month,
+! INTEGER day)
+ EXTERNAL cdiEncodeDate
+
+! cdiDecodeTime
+! (INTEGER time,
+! INTEGER hour,
+! INTEGER minute,
+! INTEGER second)
+ EXTERNAL cdiDecodeTime
+
+ INTEGER cdiEncodeTime
+! (INTEGER hour,
+! INTEGER minute,
+! INTEGER second)
+ EXTERNAL cdiEncodeTime
+
+!
+! STREAM control routines
+!
+ INTEGER cdiGetFiletype
+! (CHARACTER*(*) uri,
+! INTEGER byteorder)
+ EXTERNAL cdiGetFiletype
+
+ INTEGER streamOpenRead
+! (CHARACTER*(*) path)
+ EXTERNAL streamOpenRead
+
+ INTEGER streamOpenWrite
+! (CHARACTER*(*) path,
+! INTEGER filetype)
+ EXTERNAL streamOpenWrite
+
+ INTEGER streamOpenAppend
+! (CHARACTER*(*) path)
+ EXTERNAL streamOpenAppend
+
+! streamClose
+! (INTEGER streamID)
+ EXTERNAL streamClose
+
+! streamSync
+! (INTEGER streamID)
+ EXTERNAL streamSync
+
+! streamDefMaxSteps
+! (INTEGER streamID,
+! INTEGER maxSteps)
+ EXTERNAL streamDefMaxSteps
+
+! streamDefNumWorker
+! (INTEGER streamID,
+! INTEGER numWorker)
+ EXTERNAL streamDefNumWorker
+
+ INTEGER streamInqNumSteps
+! (INTEGER streamID)
+ EXTERNAL streamInqNumSteps
+
+! streamDefVlist
+! (INTEGER streamID,
+! INTEGER vlistID)
+ EXTERNAL streamDefVlist
+
+ INTEGER streamInqVlist
+! (INTEGER streamID)
+ EXTERNAL streamInqVlist
+
+ INTEGER streamInqFiletype
+! (INTEGER streamID)
+ EXTERNAL streamInqFiletype
+
+! streamDefByteorder
+! (INTEGER streamID,
+! INTEGER byteorder)
+ EXTERNAL streamDefByteorder
+
+ INTEGER streamInqByteorder
+! (INTEGER streamID)
+ EXTERNAL streamInqByteorder
+
+! streamDefShuffle
+! (INTEGER streamID,
+! INTEGER shuffle)
+ EXTERNAL streamDefShuffle
+
+! streamDefFilter
+! (INTEGER streamID,
+! INTEGER filterId,
+! INTEGER nparams,
+! INTEGER params)
+ EXTERNAL streamDefFilter
+
+! streamDefCompType
+! (INTEGER streamID,
+! INTEGER comptype)
+ EXTERNAL streamDefCompType
+
+ INTEGER streamInqCompType
+! (INTEGER streamID)
+ EXTERNAL streamInqCompType
+
+! streamDefCompLevel
+! (INTEGER streamID,
+! INTEGER complevel)
+ EXTERNAL streamDefCompLevel
+
+ INTEGER streamInqCompLevel
+! (INTEGER streamID)
+ EXTERNAL streamInqCompLevel
+
+ INTEGER streamDefTimestep
+! (INTEGER streamID,
+! INTEGER tsID)
+ EXTERNAL streamDefTimestep
+
+ INTEGER streamInqTimestep
+! (INTEGER streamID,
+! INTEGER tsID)
+ EXTERNAL streamInqTimestep
+
+ INTEGER streamInqCurTimestepID
+! (INTEGER streamID)
+ EXTERNAL streamInqCurTimestepID
+
+ CHARACTER(80) streamFilename
+! (INTEGER streamID)
+ EXTERNAL streamFilename
+
+ CHARACTER(80) streamFilesuffix
+! (INTEGER filetype)
+ EXTERNAL streamFilesuffix
+
+ INTEGER streamNvals
+! (INTEGER streamID)
+ EXTERNAL streamNvals
+
+ INTEGER streamInqNvars
+! (INTEGER streamID)
+ EXTERNAL streamInqNvars
+
+!
+! STREAM var I/O routines (random access)
+!
+! streamWriteVar
+! (INTEGER streamID,
+! INTEGER varID,
+! DOUBLEPRECISION data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamWriteVar
+
+! streamWriteVarF
+! (INTEGER streamID,
+! INTEGER varID,
+! REAL data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamWriteVarF
+
+! streamReadVar
+! (INTEGER streamID,
+! INTEGER varID,
+! DOUBLEPRECISION data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamReadVar
+
+! streamReadVarF
+! (INTEGER streamID,
+! INTEGER varID,
+! REAL data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamReadVarF
+
+! streamWriteVarSlice
+! (INTEGER streamID,
+! INTEGER varID,
+! INTEGER levelID,
+! DOUBLEPRECISION data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamWriteVarSlice
+
+! streamWriteVarSliceF
+! (INTEGER streamID,
+! INTEGER varID,
+! INTEGER levelID,
+! REAL data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamWriteVarSliceF
+
+! streamReadVarSlice
+! (INTEGER streamID,
+! INTEGER varID,
+! INTEGER levelID,
+! DOUBLEPRECISION data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamReadVarSlice
+
+! streamReadVarSliceF
+! (INTEGER streamID,
+! INTEGER varID,
+! INTEGER levelID,
+! REAL data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamReadVarSliceF
+
+! streamWriteVarChunk
+! (INTEGER streamID,
+! INTEGER varID,
+! INTEGER rect(2,*),
+! DOUBLEPRECISION data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamWriteVarChunk
+
+! streamWriteVarChunkF
+! (INTEGER streamID,
+! INTEGER varID,
+! INTEGER rect(2,*),
+! REAL data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamWriteVarChunkF
+
+!
+! STREAM record I/O routines (sequential access)
+!
+! streamDefRecord
+! (INTEGER streamID,
+! INTEGER varID,
+! INTEGER levelID)
+ EXTERNAL streamDefRecord
+
+! streamInqRecord
+! (INTEGER streamID,
+! INTEGER varID,
+! INTEGER levelID)
+ EXTERNAL streamInqRecord
+
+! streamWriteRecord
+! (INTEGER streamID,
+! DOUBLEPRECISION data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamWriteRecord
+
+! streamWriteRecordF
+! (INTEGER streamID,
+! REAL data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamWriteRecordF
+
+! streamReadRecord
+! (INTEGER streamID,
+! DOUBLEPRECISION data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamReadRecord
+
+! streamReadRecordF
+! (INTEGER streamID,
+! REAL data(*),
+! INTEGER numMissVals)
+ EXTERNAL streamReadRecordF
+
+! streamCopyRecord
+! (INTEGER streamIDdest,
+! INTEGER streamIDsrc)
+ EXTERNAL streamCopyRecord
+
+!
+! File driven I/O (may yield better performance than using the streamXXX functions)
+!
+!
+! Creation & Destruction
+!
+!
+! Advancing an iterator
+!
+!
+! Introspecting metadata
+!
+!
+! All outXXX arguments to these functions may be NULL.
+!
+!
+! Reading data
+!
+!
+! TODO[NH]: Add functions to read partial fields.
+!
+!
+! Direct access to grib fields
+!
+!
+! Callthroughs to GRIB-API
+!
+!
+! Convenience functions for accessing GRIB-API keys
+!
+!
+! VLIST routines
+!
+ INTEGER vlistCreate
+ EXTERNAL vlistCreate
+
+! vlistDestroy
+! (INTEGER vlistID)
+ EXTERNAL vlistDestroy
+
+ INTEGER vlistDuplicate
+! (INTEGER vlistID)
+ EXTERNAL vlistDuplicate
+
+! vlistCopy
+! (INTEGER vlistID2,
+! INTEGER vlistID1)
+ EXTERNAL vlistCopy
+
+! vlistCopyFlag
+! (INTEGER vlistID2,
+! INTEGER vlistID1)
+ EXTERNAL vlistCopyFlag
+
+! vlistClearFlag
+! (INTEGER vlistID)
+ EXTERNAL vlistClearFlag
+
+! vlistCat
+! (INTEGER vlistID2,
+! INTEGER vlistID1)
+ EXTERNAL vlistCat
+
+! vlistMerge
+! (INTEGER vlistID2,
+! INTEGER vlistID1)
+ EXTERNAL vlistMerge
+
+! vlistPrint
+! (INTEGER vlistID)
+ EXTERNAL vlistPrint
+
+ INTEGER vlistNumber
+! (INTEGER vlistID)
+ EXTERNAL vlistNumber
+
+ INTEGER vlistNvars
+! (INTEGER vlistID)
+ EXTERNAL vlistNvars
+
+ INTEGER vlistNgrids
+! (INTEGER vlistID)
+ EXTERNAL vlistNgrids
+
+ INTEGER vlistNzaxis
+! (INTEGER vlistID)
+ EXTERNAL vlistNzaxis
+
+ INTEGER vlistNsubtypes
+! (INTEGER vlistID)
+ EXTERNAL vlistNsubtypes
+
+! vlistDefNtsteps
+! (INTEGER vlistID,
+! INTEGER nts)
+ EXTERNAL vlistDefNtsteps
+
+ INTEGER vlistNtsteps
+! (INTEGER vlistID)
+ EXTERNAL vlistNtsteps
+
+ INTEGER vlistGridsizeMax
+! (INTEGER vlistID)
+ EXTERNAL vlistGridsizeMax
+
+ INTEGER vlistGrid
+! (INTEGER vlistID,
+! INTEGER index)
+ EXTERNAL vlistGrid
+
+ INTEGER vlistGridIndex
+! (INTEGER vlistID,
+! INTEGER gridID)
+ EXTERNAL vlistGridIndex
+
+! vlistChangeGridIndex
+! (INTEGER vlistID,
+! INTEGER index,
+! INTEGER gridID)
+ EXTERNAL vlistChangeGridIndex
+
+! vlistChangeGrid
+! (INTEGER vlistID,
+! INTEGER gridID1,
+! INTEGER gridID2)
+ EXTERNAL vlistChangeGrid
+
+ INTEGER vlistZaxis
+! (INTEGER vlistID,
+! INTEGER index)
+ EXTERNAL vlistZaxis
+
+ INTEGER vlistZaxisIndex
+! (INTEGER vlistID,
+! INTEGER zaxisID)
+ EXTERNAL vlistZaxisIndex
+
+! vlistChangeZaxisIndex
+! (INTEGER vlistID,
+! INTEGER index,
+! INTEGER zaxisID)
+ EXTERNAL vlistChangeZaxisIndex
+
+! vlistChangeZaxis
+! (INTEGER vlistID,
+! INTEGER zaxisID1,
+! INTEGER zaxisID2)
+ EXTERNAL vlistChangeZaxis
+
+ INTEGER vlistNrecs
+! (INTEGER vlistID)
+ EXTERNAL vlistNrecs
+
+ INTEGER vlistSubtype
+! (INTEGER vlistID,
+! INTEGER index)
+ EXTERNAL vlistSubtype
+
+ INTEGER vlistSubtypeIndex
+! (INTEGER vlistID,
+! INTEGER subtypeID)
+ EXTERNAL vlistSubtypeIndex
+
+! vlistDefTaxis
+! (INTEGER vlistID,
+! INTEGER taxisID)
+ EXTERNAL vlistDefTaxis
+
+ INTEGER vlistInqTaxis
+! (INTEGER vlistID)
+ EXTERNAL vlistInqTaxis
+
+! vlistDefTable
+! (INTEGER vlistID,
+! INTEGER tableID)
+ EXTERNAL vlistDefTable
+
+ INTEGER vlistInqTable
+! (INTEGER vlistID)
+ EXTERNAL vlistInqTable
+
+! vlistDefInstitut
+! (INTEGER vlistID,
+! INTEGER instID)
+ EXTERNAL vlistDefInstitut
+
+ INTEGER vlistInqInstitut
+! (INTEGER vlistID)
+ EXTERNAL vlistInqInstitut
+
+! vlistDefModel
+! (INTEGER vlistID,
+! INTEGER modelID)
+ EXTERNAL vlistDefModel
+
+ INTEGER vlistInqModel
+! (INTEGER vlistID)
+ EXTERNAL vlistInqModel
+
+!
+! VLIST VAR routines
+!
+ INTEGER vlistDefVarTiles
+! (INTEGER vlistID,
+! INTEGER gridID,
+! INTEGER zaxisID,
+! INTEGER timetype,
+! INTEGER tilesetID)
+ EXTERNAL vlistDefVarTiles
+
+ INTEGER vlistDefVar
+! (INTEGER vlistID,
+! INTEGER gridID,
+! INTEGER zaxisID,
+! INTEGER timetype)
+ EXTERNAL vlistDefVar
+
+! vlistChangeVarGrid
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER gridID)
+ EXTERNAL vlistChangeVarGrid
+
+! vlistChangeVarZaxis
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER zaxisID)
+ EXTERNAL vlistChangeVarZaxis
+
+! vlistInqVar
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER gridID,
+! INTEGER zaxisID,
+! INTEGER timetype)
+ EXTERNAL vlistInqVar
+
+ INTEGER vlistInqVarGrid
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarGrid
+
+ INTEGER vlistInqVarZaxis
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarZaxis
+
+!
+! used in MPIOM
+!
+ INTEGER vlistInqVarID
+! (INTEGER vlistID,
+! INTEGER code)
+ EXTERNAL vlistInqVarID
+
+! vlistDefVarTimetype
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER timetype)
+ EXTERNAL vlistDefVarTimetype
+
+ INTEGER vlistInqVarTimetype
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarTimetype
+
+! vlistDefVarTsteptype
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER tsteptype)
+ EXTERNAL vlistDefVarTsteptype
+
+ INTEGER vlistInqVarTsteptype
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarTsteptype
+
+! vlistDefVarCompType
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER comptype)
+ EXTERNAL vlistDefVarCompType
+
+ INTEGER vlistInqVarCompType
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarCompType
+
+! vlistDefVarCompLevel
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER complevel)
+ EXTERNAL vlistDefVarCompLevel
+
+ INTEGER vlistInqVarCompLevel
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarCompLevel
+
+! vlistDefVarParam
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER param)
+ EXTERNAL vlistDefVarParam
+
+ INTEGER vlistInqVarParam
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarParam
+
+! vlistDefVarCode
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER code)
+ EXTERNAL vlistDefVarCode
+
+ INTEGER vlistInqVarCode
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarCode
+
+! vlistDefVarDatatype
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER datatype)
+ EXTERNAL vlistDefVarDatatype
+
+ INTEGER vlistInqVarDatatype
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarDatatype
+
+! vlistDefVarXYZ
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER xyz)
+ EXTERNAL vlistDefVarXYZ
+
+ INTEGER vlistInqVarXYZ
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarXYZ
+
+! vlistDefVarNSB
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER nsb)
+ EXTERNAL vlistDefVarNSB
+
+ INTEGER vlistInqVarNSB
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarNSB
+
+ INTEGER vlistInqVarNumber
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarNumber
+
+! vlistDefVarInstitut
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER instID)
+ EXTERNAL vlistDefVarInstitut
+
+ INTEGER vlistInqVarInstitut
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarInstitut
+
+! vlistDefVarModel
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER modelID)
+ EXTERNAL vlistDefVarModel
+
+ INTEGER vlistInqVarModel
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarModel
+
+! vlistDefVarTable
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER tableID)
+ EXTERNAL vlistDefVarTable
+
+ INTEGER vlistInqVarTable
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarTable
+
+! vlistDefVarName
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) name)
+ EXTERNAL vlistDefVarName
+
+! vlistInqVarName
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) name)
+ EXTERNAL vlistInqVarName
+
+ CHARACTER(80) vlistCopyVarName
+! (INTEGER vlistId,
+! INTEGER varId)
+ EXTERNAL vlistCopyVarName
+
+! vlistDefVarStdname
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) stdname)
+ EXTERNAL vlistDefVarStdname
+
+! vlistInqVarStdname
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) stdname)
+ EXTERNAL vlistInqVarStdname
+
+! vlistDefVarLongname
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) longname)
+ EXTERNAL vlistDefVarLongname
+
+! vlistInqVarLongname
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) longname)
+ EXTERNAL vlistInqVarLongname
+
+! vlistDefVarUnits
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) units)
+ EXTERNAL vlistDefVarUnits
+
+! vlistInqVarUnits
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) units)
+ EXTERNAL vlistInqVarUnits
+
+! vlistDefVarMissval
+! (INTEGER vlistID,
+! INTEGER varID,
+! DOUBLEPRECISION missval)
+ EXTERNAL vlistDefVarMissval
+
+ DOUBLEPRECISION vlistInqVarMissval
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarMissval
+
+ INTEGER vlistInqVarSize
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarSize
+
+! vlistDefIndex
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER levID,
+! INTEGER index)
+ EXTERNAL vlistDefIndex
+
+ INTEGER vlistInqIndex
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER levID)
+ EXTERNAL vlistInqIndex
+
+! vlistDefFlag
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER levID,
+! INTEGER flag)
+ EXTERNAL vlistDefFlag
+
+ INTEGER vlistInqFlag
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER levID)
+ EXTERNAL vlistInqFlag
+
+ INTEGER vlistFindVar
+! (INTEGER vlistID,
+! INTEGER fvarID)
+ EXTERNAL vlistFindVar
+
+ INTEGER vlistFindLevel
+! (INTEGER vlistID,
+! INTEGER fvarID,
+! INTEGER flevelID)
+ EXTERNAL vlistFindLevel
+
+ INTEGER vlistMergedVar
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistMergedVar
+
+ INTEGER vlistMergedLevel
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER levelID)
+ EXTERNAL vlistMergedLevel
+
+! cdiClearAdditionalKeys
+ EXTERNAL cdiClearAdditionalKeys
+
+! cdiDefAdditionalKey
+! (CHARACTER*(*) string)
+ EXTERNAL cdiDefAdditionalKey
+
+! vlistDefVarIntKey
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) name,
+! INTEGER value)
+ EXTERNAL vlistDefVarIntKey
+
+! vlistDefVarDblKey
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) name,
+! DOUBLEPRECISION value)
+ EXTERNAL vlistDefVarDblKey
+
+ INTEGER vlistHasVarKey
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) name)
+ EXTERNAL vlistHasVarKey
+
+ DOUBLEPRECISION vlistInqVarDblKey
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) name)
+ EXTERNAL vlistInqVarDblKey
+
+ INTEGER vlistInqVarIntKey
+! (INTEGER vlistID,
+! INTEGER varID,
+! CHARACTER*(*) name)
+ EXTERNAL vlistInqVarIntKey
+
+!
+! CDI attributes
+!
+ INTEGER cdiInqNatts
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER nattsp)
+ EXTERNAL cdiInqNatts
+
+ INTEGER cdiInqAtt
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER attrnum,
+! CHARACTER*(*) name,
+! INTEGER typep,
+! INTEGER lenp)
+ EXTERNAL cdiInqAtt
+
+ INTEGER cdiInqAttLen
+! (INTEGER cdiID,
+! INTEGER varID,
+! CHARACTER*(*) name)
+ EXTERNAL cdiInqAttLen
+
+ INTEGER cdiInqAttType
+! (INTEGER cdiID,
+! INTEGER varID,
+! CHARACTER*(*) name)
+ EXTERNAL cdiInqAttType
+
+ INTEGER cdiDelAtt
+! (INTEGER cdiID,
+! INTEGER varID,
+! CHARACTER*(*) name)
+ EXTERNAL cdiDelAtt
+
+ INTEGER cdiCopyAtts
+! (INTEGER cdiID1,
+! INTEGER varID1,
+! INTEGER cdiID2,
+! INTEGER varID2)
+ EXTERNAL cdiCopyAtts
+
+ INTEGER cdiDefAttInt
+! (INTEGER cdiID,
+! INTEGER varID,
+! CHARACTER*(*) name,
+! INTEGER type,
+! INTEGER len,
+! INTEGER ip(*))
+ EXTERNAL cdiDefAttInt
+
+ INTEGER cdiDefAttFlt
+! (INTEGER cdiID,
+! INTEGER varID,
+! CHARACTER*(*) name,
+! INTEGER type,
+! INTEGER len,
+! DOUBLEPRECISION dp(*))
+ EXTERNAL cdiDefAttFlt
+
+ INTEGER cdiDefAttTxt
+! (INTEGER cdiID,
+! INTEGER varID,
+! CHARACTER*(*) name,
+! INTEGER len,
+! CHARACTER*(*) tp_cbuf)
+ EXTERNAL cdiDefAttTxt
+
+ INTEGER cdiInqAttInt
+! (INTEGER cdiID,
+! INTEGER varID,
+! CHARACTER*(*) name,
+! INTEGER mlen,
+! INTEGER ip(*))
+ EXTERNAL cdiInqAttInt
+
+ INTEGER cdiInqAttFlt
+! (INTEGER cdiID,
+! INTEGER varID,
+! CHARACTER*(*) name,
+! INTEGER mlen,
+! DOUBLEPRECISION dp(*))
+ EXTERNAL cdiInqAttFlt
+
+ INTEGER cdiInqAttTxt
+! (INTEGER cdiID,
+! INTEGER varID,
+! CHARACTER*(*) name,
+! INTEGER mlen,
+! CHARACTER*(*) tp_cbuf)
+ EXTERNAL cdiInqAttTxt
+
+!
+! GRID routines
+!
+! gridName
+! (INTEGER gridtype,
+! CHARACTER*(*) gridname)
+ EXTERNAL gridName
+
+ CHARACTER(80) gridNamePtr
+! (INTEGER gridtype)
+ EXTERNAL gridNamePtr
+
+! gridCompress
+! (INTEGER gridID)
+ EXTERNAL gridCompress
+
+! gridDefMaskGME
+! (INTEGER gridID,
+! INTEGER mask(*))
+ EXTERNAL gridDefMaskGME
+
+ INTEGER gridInqMaskGME
+! (INTEGER gridID,
+! INTEGER mask(*))
+ EXTERNAL gridInqMaskGME
+
+! gridDefMask
+! (INTEGER gridID,
+! INTEGER mask(*))
+ EXTERNAL gridDefMask
+
+ INTEGER gridInqMask
+! (INTEGER gridID,
+! INTEGER mask(*))
+ EXTERNAL gridInqMask
+
+ INTEGER gridCreate
+! (INTEGER gridtype,
+! INTEGER size)
+ EXTERNAL gridCreate
+
+! gridDestroy
+! (INTEGER gridID)
+ EXTERNAL gridDestroy
+
+ INTEGER gridDuplicate
+! (INTEGER gridID)
+ EXTERNAL gridDuplicate
+
+! gridDefProj
+! (INTEGER gridID,
+! INTEGER projID)
+ EXTERNAL gridDefProj
+
+ INTEGER gridInqProj
+! (INTEGER gridID)
+ EXTERNAL gridInqProj
+
+ INTEGER gridInqProjType
+! (INTEGER gridID)
+ EXTERNAL gridInqProjType
+
+ INTEGER gridInqType
+! (INTEGER gridID)
+ EXTERNAL gridInqType
+
+ INTEGER gridInqSize
+! (INTEGER gridID)
+ EXTERNAL gridInqSize
+
+! gridDefXsize
+! (INTEGER gridID,
+! INTEGER xsize)
+ EXTERNAL gridDefXsize
+
+ INTEGER gridInqXsize
+! (INTEGER gridID)
+ EXTERNAL gridInqXsize
+
+! gridDefYsize
+! (INTEGER gridID,
+! INTEGER ysize)
+ EXTERNAL gridDefYsize
+
+ INTEGER gridInqYsize
+! (INTEGER gridID)
+ EXTERNAL gridInqYsize
+
+! gridDefNP
+! (INTEGER gridID,
+! INTEGER np)
+ EXTERNAL gridDefNP
+
+ INTEGER gridInqNP
+! (INTEGER gridID)
+ EXTERNAL gridInqNP
+
+! gridDefXvals
+! (INTEGER gridID,
+! DOUBLEPRECISION xvals(*))
+ EXTERNAL gridDefXvals
+
+ INTEGER gridInqXvals
+! (INTEGER gridID,
+! DOUBLEPRECISION xvals(*))
+ EXTERNAL gridInqXvals
+
+ INTEGER gridInqXvalsPart
+! (INTEGER gridID,
+! INTEGER start,
+! INTEGER size,
+! DOUBLEPRECISION xvals(*))
+ EXTERNAL gridInqXvalsPart
+
+ INTEGER gridInqXIsc
+! (INTEGER gridID)
+ EXTERNAL gridInqXIsc
+
+! gridDefYvals
+! (INTEGER gridID,
+! DOUBLEPRECISION yvals(*))
+ EXTERNAL gridDefYvals
+
+ INTEGER gridInqYvals
+! (INTEGER gridID,
+! DOUBLEPRECISION yvals(*))
+ EXTERNAL gridInqYvals
+
+ INTEGER gridInqYvalsPart
+! (INTEGER gridID,
+! INTEGER start,
+! INTEGER size,
+! DOUBLEPRECISION yvals(*))
+ EXTERNAL gridInqYvalsPart
+
+ INTEGER gridInqYIsc
+! (INTEGER gridID)
+ EXTERNAL gridInqYIsc
+
+!
+! CDI var keys
+!
+!
+! String keys
+!
+ INTEGER CDI_KEY_NAME
+ PARAMETER (CDI_KEY_NAME = 942)
+ INTEGER CDI_KEY_LONGNAME
+ PARAMETER (CDI_KEY_LONGNAME = 943)
+ INTEGER CDI_KEY_STDNAME
+ PARAMETER (CDI_KEY_STDNAME = 944)
+ INTEGER CDI_KEY_UNITS
+ PARAMETER (CDI_KEY_UNITS = 945)
+ INTEGER CDI_KEY_DATATYPE
+ PARAMETER (CDI_KEY_DATATYPE = 946)
+ INTEGER CDI_KEY_REFERENCEURI
+ PARAMETER (CDI_KEY_REFERENCEURI = 947)
+ INTEGER CDI_KEY_CHUNKS
+ PARAMETER (CDI_KEY_CHUNKS = 948)
+!
+! Integer keys
+!
+ INTEGER CDI_KEY_NUMBEROFGRIDUSED
+ PARAMETER (CDI_KEY_NUMBEROFGRIDUSED = 961)
+ INTEGER CDI_KEY_NUMBEROFGRIDINREFERENCE
+ PARAMETER (CDI_KEY_NUMBEROFGRIDINREFERENCE = 962)
+ INTEGER CDI_KEY_NUMBEROFVGRIDUSED
+ PARAMETER (CDI_KEY_NUMBEROFVGRIDUSED = 963)
+ INTEGER CDI_KEY_NLEV
+ PARAMETER (CDI_KEY_NLEV = 964)
+ INTEGER CDI_KEY_CHUNKTYPE
+ PARAMETER (CDI_KEY_CHUNKTYPE = 965)
+ INTEGER CDI_KEY_CHUNKSIZE
+ PARAMETER (CDI_KEY_CHUNKSIZE = 966)
+!
+! Floating point keys
+!
+ INTEGER CDI_KEY_MISSVAL
+ PARAMETER (CDI_KEY_MISSVAL = 701)
+ INTEGER CDI_KEY_ADDOFFSET
+ PARAMETER (CDI_KEY_ADDOFFSET = 702)
+ INTEGER CDI_KEY_SCALEFACTOR
+ PARAMETER (CDI_KEY_SCALEFACTOR = 703)
+!
+! Byte array keys
+!
+ INTEGER CDI_KEY_UUID
+ PARAMETER (CDI_KEY_UUID = 960)
+ INTEGER CDI_KEY_DIMNAME
+ PARAMETER (CDI_KEY_DIMNAME = 941)
+ INTEGER CDI_KEY_PSNAME
+ PARAMETER (CDI_KEY_PSNAME = 950)
+ INTEGER CDI_KEY_P0NAME
+ PARAMETER (CDI_KEY_P0NAME = 951)
+ INTEGER CDI_KEY_P0VALUE
+ PARAMETER (CDI_KEY_P0VALUE = 952)
+ INTEGER CDI_KEY_TABLESVERSION
+ PARAMETER (CDI_KEY_TABLESVERSION = 801)
+ INTEGER CDI_KEY_LOCALTABLESVERSION
+ PARAMETER (CDI_KEY_LOCALTABLESVERSION = 802)
+ INTEGER CDI_KEY_TYPEOFGENERATINGPROCESS
+ PARAMETER (CDI_KEY_TYPEOFGENERATINGPROCESS = 803)
+ INTEGER CDI_KEY_PRODUCTDEFINITIONTEMPLATE
+ PARAMETER (CDI_KEY_PRODUCTDEFINITIONTEMPLATE = 804)
+ INTEGER CDI_KEY_TYPEOFPROCESSEDDATA
+ PARAMETER (CDI_KEY_TYPEOFPROCESSEDDATA = 805)
+ INTEGER CDI_KEY_SHAPEOFTHEEARTH
+ PARAMETER (CDI_KEY_SHAPEOFTHEEARTH = 806)
+ INTEGER CDI_KEY_BACKGROUNDPROCESS
+ PARAMETER (CDI_KEY_BACKGROUNDPROCESS = 807)
+ INTEGER CDI_KEY_TYPEOFENSEMBLEFORECAST
+ PARAMETER (CDI_KEY_TYPEOFENSEMBLEFORECAST = 808)
+ INTEGER CDI_KEY_NUMBEROFFORECASTSINENSEMBLE
+ PARAMETER (CDI_KEY_NUMBEROFFORECASTSINENSEMBLE = 809)
+ INTEGER CDI_KEY_PERTURBATIONNUMBER
+ PARAMETER (CDI_KEY_PERTURBATIONNUMBER = 810)
+ INTEGER CDI_KEY_CENTRE
+ PARAMETER (CDI_KEY_CENTRE = 811)
+ INTEGER CDI_KEY_SUBCENTRE
+ PARAMETER (CDI_KEY_SUBCENTRE = 812)
+ INTEGER CDI_KEY_MPIMTYPE
+ PARAMETER (CDI_KEY_MPIMTYPE = 813)
+ INTEGER CDI_KEY_MPIMCLASS
+ PARAMETER (CDI_KEY_MPIMCLASS = 814)
+ INTEGER CDI_KEY_MPIMUSER
+ PARAMETER (CDI_KEY_MPIMUSER = 815)
+ INTEGER CDI_KEY_REVSTATUS
+ PARAMETER (CDI_KEY_REVSTATUS = 816)
+ INTEGER CDI_KEY_REVNUMBER
+ PARAMETER (CDI_KEY_REVNUMBER = 817)
+ INTEGER CDI_KEY_GRIB2LOCALSECTIONNUMBER
+ PARAMETER (CDI_KEY_GRIB2LOCALSECTIONNUMBER = 818)
+ INTEGER CDI_KEY_SECTION2PADDINGLENGTH
+ PARAMETER (CDI_KEY_SECTION2PADDINGLENGTH = 819)
+ INTEGER CDI_KEY_SECTION2PADDING
+ PARAMETER (CDI_KEY_SECTION2PADDING = 820)
+ INTEGER CDI_KEY_CONSTITUENTTYPE
+ PARAMETER (CDI_KEY_CONSTITUENTTYPE = 821)
+ INTEGER CDI_KEY_TYPEOFTIMEINCREMENT
+ PARAMETER (CDI_KEY_TYPEOFTIMEINCREMENT = 822)
+ INTEGER CDI_KEY_TYPEOFFIRSTFIXEDSURFACE
+ PARAMETER (CDI_KEY_TYPEOFFIRSTFIXEDSURFACE = 823)
+ INTEGER CDI_KEY_TYPEOFSECONDFIXEDSURFACE
+ PARAMETER (CDI_KEY_TYPEOFSECONDFIXEDSURFACE = 824)
+ INTEGER CDI_KEY_UVRELATIVETOGRID
+ PARAMETER (CDI_KEY_UVRELATIVETOGRID = 825)
+ INTEGER CDI_KEY_SCANNINGMODE
+ PARAMETER (CDI_KEY_SCANNINGMODE = 826)
+ INTEGER CDI_KEY_VDIMNAME
+ PARAMETER (CDI_KEY_VDIMNAME = 920)
+ INTEGER CDI_KEY_GRIDMAP_VARTYPE
+ PARAMETER (CDI_KEY_GRIDMAP_VARTYPE = 921)
+ INTEGER CDI_KEY_GRIDMAP_VARNAME
+ PARAMETER (CDI_KEY_GRIDMAP_VARNAME = 922)
+ INTEGER CDI_KEY_GRIDMAP_NAME
+ PARAMETER (CDI_KEY_GRIDMAP_NAME = 923)
+ INTEGER cdiDefKeyInt
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER key,
+! INTEGER value)
+ EXTERNAL cdiDefKeyInt
+
+ INTEGER cdiInqKeyInt
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER key,
+! INTEGER value)
+ EXTERNAL cdiInqKeyInt
+
+ INTEGER cdiDefKeyFloat
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER key,
+! DOUBLEPRECISION value)
+ EXTERNAL cdiDefKeyFloat
+
+!
+! cdiInqKeyFloat Get a float value from a key
+!
+ INTEGER cdiInqKeyFloat
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER key,
+! DOUBLEPRECISION value)
+ EXTERNAL cdiInqKeyFloat
+
+ INTEGER cdiDefKeyString
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER key,
+! CHARACTER*(*) string)
+ EXTERNAL cdiDefKeyString
+
+ INTEGER cdiInqKeyString
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER key,
+! CHARACTER*(*) string,
+! INTEGER length)
+ EXTERNAL cdiInqKeyString
+
+ INTEGER cdiInqKeyLen
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER key,
+! INTEGER length)
+ EXTERNAL cdiInqKeyLen
+
+ INTEGER cdiCopyKeys
+! (INTEGER cdiID1,
+! INTEGER varID1,
+! INTEGER cdiID2,
+! INTEGER varID2)
+ EXTERNAL cdiCopyKeys
+
+ INTEGER cdiCopyKey
+! (INTEGER cdiID1,
+! INTEGER varID1,
+! INTEGER key,
+! INTEGER cdiID2)
+ EXTERNAL cdiCopyKey
+
+ INTEGER cdiDeleteKey
+! (INTEGER cdiID,
+! INTEGER varID,
+! INTEGER key)
+ EXTERNAL cdiDeleteKey
+
+!
+! GRID routines
+!
+! gridDefXname
+! (INTEGER gridID,
+! CHARACTER*(*) xname)
+ EXTERNAL gridDefXname
+
+! gridInqXname
+! (INTEGER gridID,
+! CHARACTER*(*) xname)
+ EXTERNAL gridInqXname
+
+! gridDefXlongname
+! (INTEGER gridID,
+! CHARACTER*(*) xlongname)
+ EXTERNAL gridDefXlongname
+
+! gridInqXlongname
+! (INTEGER gridID,
+! CHARACTER*(*) xlongname)
+ EXTERNAL gridInqXlongname
+
+! gridDefXunits
+! (INTEGER gridID,
+! CHARACTER*(*) xunits)
+ EXTERNAL gridDefXunits
+
+! gridInqXunits
+! (INTEGER gridID,
+! CHARACTER*(*) xunits)
+ EXTERNAL gridInqXunits
+
+! gridDefYname
+! (INTEGER gridID,
+! CHARACTER*(*) yname)
+ EXTERNAL gridDefYname
+
+! gridInqYname
+! (INTEGER gridID,
+! CHARACTER*(*) yname)
+ EXTERNAL gridInqYname
+
+! gridDefYlongname
+! (INTEGER gridID,
+! CHARACTER*(*) ylongname)
+ EXTERNAL gridDefYlongname
+
+! gridInqYlongname
+! (INTEGER gridID,
+! CHARACTER*(*) ylongname)
+ EXTERNAL gridInqYlongname
+
+! gridDefYunits
+! (INTEGER gridID,
+! CHARACTER*(*) yunits)
+ EXTERNAL gridDefYunits
+
+! gridInqYunits
+! (INTEGER gridID,
+! CHARACTER*(*) yunits)
+ EXTERNAL gridInqYunits
+
+! gridDefDatatype
+! (INTEGER gridID,
+! INTEGER datatype)
+ EXTERNAL gridDefDatatype
+
+ INTEGER gridInqDatatype
+! (INTEGER gridID)
+ EXTERNAL gridInqDatatype
+
+ DOUBLEPRECISION gridInqXval
+! (INTEGER gridID,
+! INTEGER index)
+ EXTERNAL gridInqXval
+
+ DOUBLEPRECISION gridInqYval
+! (INTEGER gridID,
+! INTEGER index)
+ EXTERNAL gridInqYval
+
+ DOUBLEPRECISION gridInqXinc
+! (INTEGER gridID)
+ EXTERNAL gridInqXinc
+
+ DOUBLEPRECISION gridInqYinc
+! (INTEGER gridID)
+ EXTERNAL gridInqYinc
+
+ INTEGER gridIsCircular
+! (INTEGER gridID)
+ EXTERNAL gridIsCircular
+
+ INTEGER gridInqTrunc
+! (INTEGER gridID)
+ EXTERNAL gridInqTrunc
+
+! gridDefTrunc
+! (INTEGER gridID,
+! INTEGER trunc)
+ EXTERNAL gridDefTrunc
+
+!
+! Reference of an unstructured grid
+!
+! gridDefNumber
+! (INTEGER gridID,
+! INTEGER number)
+ EXTERNAL gridDefNumber
+
+ INTEGER gridInqNumber
+! (INTEGER gridID)
+ EXTERNAL gridInqNumber
+
+! gridDefPosition
+! (INTEGER gridID,
+! INTEGER position)
+ EXTERNAL gridDefPosition
+
+ INTEGER gridInqPosition
+! (INTEGER gridID)
+ EXTERNAL gridInqPosition
+
+! gridDefReference
+! (INTEGER gridID,
+! CHARACTER*(*) reference)
+ EXTERNAL gridDefReference
+
+ INTEGER gridInqReference
+! (INTEGER gridID,
+! CHARACTER*(*) reference)
+ EXTERNAL gridInqReference
+
+! gridDefUUID
+! (INTEGER gridID,
+! INTEGER*1(16) uuid)
+ EXTERNAL gridDefUUID
+
+! gridInqUUID
+! (INTEGER gridID,
+! INTEGER*1(16) uuid)
+ EXTERNAL gridInqUUID
+
+!
+! Rotated Lon/Lat grid
+!
+! gridDefParamRLL
+! (INTEGER gridID,
+! DOUBLEPRECISION xpole,
+! DOUBLEPRECISION ypole,
+! DOUBLEPRECISION angle)
+ EXTERNAL gridDefParamRLL
+
+! gridInqParamRLL
+! (INTEGER gridID,
+! DOUBLEPRECISION xpole,
+! DOUBLEPRECISION ypole,
+! DOUBLEPRECISION angle)
+ EXTERNAL gridInqParamRLL
+
+!
+! Hexagonal GME grid
+!
+! gridDefParamGME
+! (INTEGER gridID,
+! INTEGER nd,
+! INTEGER ni,
+! INTEGER ni2,
+! INTEGER ni3)
+ EXTERNAL gridDefParamGME
+
+! gridInqParamGME
+! (INTEGER gridID,
+! INTEGER nd,
+! INTEGER ni,
+! INTEGER ni2,
+! INTEGER ni3)
+ EXTERNAL gridInqParamGME
+
+! gridDefArea
+! (INTEGER gridID,
+! DOUBLEPRECISION area(*))
+ EXTERNAL gridDefArea
+
+! gridInqArea
+! (INTEGER gridID,
+! DOUBLEPRECISION area(*))
+ EXTERNAL gridInqArea
+
+ INTEGER gridHasArea
+! (INTEGER gridID)
+ EXTERNAL gridHasArea
+
+! gridDefNvertex
+! (INTEGER gridID,
+! INTEGER nvertex)
+ EXTERNAL gridDefNvertex
+
+ INTEGER gridInqNvertex
+! (INTEGER gridID)
+ EXTERNAL gridInqNvertex
+
+! gridDefXbounds
+! (INTEGER gridID,
+! DOUBLEPRECISION xbounds(*))
+ EXTERNAL gridDefXbounds
+
+ INTEGER gridInqXbounds
+! (INTEGER gridID,
+! DOUBLEPRECISION xbounds(*))
+ EXTERNAL gridInqXbounds
+
+ INTEGER gridInqXboundsPart
+! (INTEGER gridID,
+! INTEGER start,
+! INTEGER size,
+! DOUBLEPRECISION xbounds(*))
+ EXTERNAL gridInqXboundsPart
+
+! gridDefYbounds
+! (INTEGER gridID,
+! DOUBLEPRECISION ybounds(*))
+ EXTERNAL gridDefYbounds
+
+ INTEGER gridInqYbounds
+! (INTEGER gridID,
+! DOUBLEPRECISION ybounds(*))
+ EXTERNAL gridInqYbounds
+
+ INTEGER gridInqYboundsPart
+! (INTEGER gridID,
+! INTEGER start,
+! INTEGER size,
+! DOUBLEPRECISION ybounds(*))
+ EXTERNAL gridInqYboundsPart
+
+! gridDefReducedPoints
+! (INTEGER gridID,
+! INTEGER reducedPointsSize,
+! INTEGER reducedPoints(*))
+ EXTERNAL gridDefReducedPoints
+
+! gridInqReducedPoints
+! (INTEGER gridID,
+! INTEGER reducedPoints(*))
+ EXTERNAL gridInqReducedPoints
+
+! gridChangeType
+! (INTEGER gridID,
+! INTEGER gridtype)
+ EXTERNAL gridChangeType
+
+! gridDefComplexPacking
+! (INTEGER gridID,
+! INTEGER lpack)
+ EXTERNAL gridDefComplexPacking
+
+ INTEGER gridInqComplexPacking
+! (INTEGER gridID)
+ EXTERNAL gridInqComplexPacking
+
+!
+! ZAXIS routines
+!
+! zaxisName
+! (INTEGER zaxistype,
+! CHARACTER*(*) zaxisname)
+ EXTERNAL zaxisName
+
+ CHARACTER(80) zaxisNamePtr
+! (INTEGER leveltype)
+ EXTERNAL zaxisNamePtr
+
+ INTEGER zaxisCreate
+! (INTEGER zaxistype,
+! INTEGER size)
+ EXTERNAL zaxisCreate
+
+! zaxisDestroy
+! (INTEGER zaxisID)
+ EXTERNAL zaxisDestroy
+
+ INTEGER zaxisInqType
+! (INTEGER zaxisID)
+ EXTERNAL zaxisInqType
+
+ INTEGER zaxisInqSize
+! (INTEGER zaxisID)
+ EXTERNAL zaxisInqSize
+
+ INTEGER zaxisDuplicate
+! (INTEGER zaxisID)
+ EXTERNAL zaxisDuplicate
+
+! zaxisDefLevels
+! (INTEGER zaxisID,
+! DOUBLEPRECISION levels(*))
+ EXTERNAL zaxisDefLevels
+
+ INTEGER zaxisInqLevels
+! (INTEGER zaxisID,
+! DOUBLEPRECISION levels(*))
+ EXTERNAL zaxisInqLevels
+
+ INTEGER zaxisInqCLen
+! (INTEGER zaxisID)
+ EXTERNAL zaxisInqCLen
+
+! zaxisDefLevel
+! (INTEGER zaxisID,
+! INTEGER levelID,
+! DOUBLEPRECISION levels)
+ EXTERNAL zaxisDefLevel
+
+ DOUBLEPRECISION zaxisInqLevel
+! (INTEGER zaxisID,
+! INTEGER levelID)
+ EXTERNAL zaxisInqLevel
+
+! zaxisDefNlevRef
+! (INTEGER gridID,
+! INTEGER nhlev)
+ EXTERNAL zaxisDefNlevRef
+
+ INTEGER zaxisInqNlevRef
+! (INTEGER gridID)
+ EXTERNAL zaxisInqNlevRef
+
+! zaxisDefNumber
+! (INTEGER gridID,
+! INTEGER number)
+ EXTERNAL zaxisDefNumber
+
+ INTEGER zaxisInqNumber
+! (INTEGER gridID)
+ EXTERNAL zaxisInqNumber
+
+! zaxisDefUUID
+! (INTEGER zaxisID,
+! INTEGER*1(16) uuid)
+ EXTERNAL zaxisDefUUID
+
+! zaxisInqUUID
+! (INTEGER zaxisID,
+! INTEGER*1(16) uuid)
+ EXTERNAL zaxisInqUUID
+
+! zaxisDefName
+! (INTEGER zaxisID,
+! CHARACTER*(*) name_optional)
+ EXTERNAL zaxisDefName
+
+! zaxisInqName
+! (INTEGER zaxisID,
+! CHARACTER*(*) name)
+ EXTERNAL zaxisInqName
+
+! zaxisDefLongname
+! (INTEGER zaxisID,
+! CHARACTER*(*) longname_optional)
+ EXTERNAL zaxisDefLongname
+
+! zaxisInqLongname
+! (INTEGER zaxisID,
+! CHARACTER*(*) longname)
+ EXTERNAL zaxisInqLongname
+
+! zaxisDefUnits
+! (INTEGER zaxisID,
+! CHARACTER*(*) units_optional)
+ EXTERNAL zaxisDefUnits
+
+! zaxisInqUnits
+! (INTEGER zaxisID,
+! CHARACTER*(*) units)
+ EXTERNAL zaxisInqUnits
+
+! zaxisInqStdname
+! (INTEGER zaxisID,
+! CHARACTER*(*) stdname)
+ EXTERNAL zaxisInqStdname
+
+! zaxisDefDatatype
+! (INTEGER zaxisID,
+! INTEGER datatype)
+ EXTERNAL zaxisDefDatatype
+
+ INTEGER zaxisInqDatatype
+! (INTEGER zaxisID)
+ EXTERNAL zaxisInqDatatype
+
+! zaxisDefPositive
+! (INTEGER zaxisID,
+! INTEGER positive)
+ EXTERNAL zaxisDefPositive
+
+ INTEGER zaxisInqPositive
+! (INTEGER zaxisID)
+ EXTERNAL zaxisInqPositive
+
+! zaxisDefScalar
+! (INTEGER zaxisID)
+ EXTERNAL zaxisDefScalar
+
+ INTEGER zaxisInqScalar
+! (INTEGER zaxisID)
+ EXTERNAL zaxisInqScalar
+
+! zaxisDefVct
+! (INTEGER zaxisID,
+! INTEGER size,
+! DOUBLEPRECISION vct(*))
+ EXTERNAL zaxisDefVct
+
+! zaxisInqVct
+! (INTEGER zaxisID,
+! DOUBLEPRECISION vct(*))
+ EXTERNAL zaxisInqVct
+
+ INTEGER zaxisInqVctSize
+! (INTEGER zaxisID)
+ EXTERNAL zaxisInqVctSize
+
+! zaxisDefLbounds
+! (INTEGER zaxisID,
+! DOUBLEPRECISION lbounds(*))
+ EXTERNAL zaxisDefLbounds
+
+ INTEGER zaxisInqLbounds
+! (INTEGER zaxisID,
+! DOUBLEPRECISION lbounds_optional(*))
+ EXTERNAL zaxisInqLbounds
+
+ DOUBLEPRECISION zaxisInqLbound
+! (INTEGER zaxisID,
+! INTEGER index)
+ EXTERNAL zaxisInqLbound
+
+! zaxisDefUbounds
+! (INTEGER zaxisID,
+! DOUBLEPRECISION ubounds(*))
+ EXTERNAL zaxisDefUbounds
+
+ INTEGER zaxisInqUbounds
+! (INTEGER zaxisID,
+! DOUBLEPRECISION ubounds_optional(*))
+ EXTERNAL zaxisInqUbounds
+
+ DOUBLEPRECISION zaxisInqUbound
+! (INTEGER zaxisID,
+! INTEGER index)
+ EXTERNAL zaxisInqUbound
+
+! zaxisDefWeights
+! (INTEGER zaxisID,
+! DOUBLEPRECISION weights(*))
+ EXTERNAL zaxisDefWeights
+
+ INTEGER zaxisInqWeights
+! (INTEGER zaxisID,
+! DOUBLEPRECISION weights_optional(*))
+ EXTERNAL zaxisInqWeights
+
+! zaxisChangeType
+! (INTEGER zaxisID,
+! INTEGER zaxistype)
+ EXTERNAL zaxisChangeType
+
+!
+! TAXIS routines
+!
+ INTEGER taxisCreate
+! (INTEGER taxistype)
+ EXTERNAL taxisCreate
+
+! taxisDestroy
+! (INTEGER taxisID)
+ EXTERNAL taxisDestroy
+
+ INTEGER taxisDuplicate
+! (INTEGER taxisID)
+ EXTERNAL taxisDuplicate
+
+! taxisCopyTimestep
+! (INTEGER taxisIDdes,
+! INTEGER taxisIDsrc)
+ EXTERNAL taxisCopyTimestep
+
+! taxisDefType
+! (INTEGER taxisID,
+! INTEGER taxistype)
+ EXTERNAL taxisDefType
+
+ INTEGER taxisInqType
+! (INTEGER taxisID)
+ EXTERNAL taxisInqType
+
+! taxisDefVdate
+! (INTEGER taxisID,
+! INTEGER date)
+ EXTERNAL taxisDefVdate
+
+! taxisDefVtime
+! (INTEGER taxisID,
+! INTEGER time)
+ EXTERNAL taxisDefVtime
+
+ INTEGER taxisInqVdate
+! (INTEGER taxisID)
+ EXTERNAL taxisInqVdate
+
+ INTEGER taxisInqVtime
+! (INTEGER taxisID)
+ EXTERNAL taxisInqVtime
+
+! taxisDefRdate
+! (INTEGER taxisID,
+! INTEGER date)
+ EXTERNAL taxisDefRdate
+
+! taxisDefRtime
+! (INTEGER taxisID,
+! INTEGER time)
+ EXTERNAL taxisDefRtime
+
+ INTEGER taxisInqRdate
+! (INTEGER taxisID)
+ EXTERNAL taxisInqRdate
+
+ INTEGER taxisInqRtime
+! (INTEGER taxisID)
+ EXTERNAL taxisInqRtime
+
+ INTEGER taxisHasBounds
+! (INTEGER taxisID)
+ EXTERNAL taxisHasBounds
+
+! taxisWithBounds
+! (INTEGER taxisID)
+ EXTERNAL taxisWithBounds
+
+! taxisDeleteBounds
+! (INTEGER taxisID)
+ EXTERNAL taxisDeleteBounds
+
+! taxisDefVdateBounds
+! (INTEGER taxisID,
+! INTEGER vdate_lb,
+! INTEGER vdate_ub)
+ EXTERNAL taxisDefVdateBounds
+
+! taxisDefVtimeBounds
+! (INTEGER taxisID,
+! INTEGER vtime_lb,
+! INTEGER vtime_ub)
+ EXTERNAL taxisDefVtimeBounds
+
+! taxisInqVdateBounds
+! (INTEGER taxisID,
+! INTEGER vdate_lb,
+! INTEGER vdate_ub)
+ EXTERNAL taxisInqVdateBounds
+
+! taxisInqVtimeBounds
+! (INTEGER taxisID,
+! INTEGER vtime_lb,
+! INTEGER vtime_ub)
+ EXTERNAL taxisInqVtimeBounds
+
+! taxisDefCalendar
+! (INTEGER taxisID,
+! INTEGER calendar)
+ EXTERNAL taxisDefCalendar
+
+ INTEGER taxisInqCalendar
+! (INTEGER taxisID)
+ EXTERNAL taxisInqCalendar
+
+! taxisDefTunit
+! (INTEGER taxisID,
+! INTEGER tunit)
+ EXTERNAL taxisDefTunit
+
+ INTEGER taxisInqTunit
+! (INTEGER taxisID)
+ EXTERNAL taxisInqTunit
+
+! taxisDefForecastTunit
+! (INTEGER taxisID,
+! INTEGER tunit)
+ EXTERNAL taxisDefForecastTunit
+
+ INTEGER taxisInqForecastTunit
+! (INTEGER taxisID)
+ EXTERNAL taxisInqForecastTunit
+
+! taxisDefForecastPeriod
+! (INTEGER taxisID,
+! DOUBLEPRECISION fc_period)
+ EXTERNAL taxisDefForecastPeriod
+
+ DOUBLEPRECISION taxisInqForecastPeriod
+! (INTEGER taxisID)
+ EXTERNAL taxisInqForecastPeriod
+
+! taxisDefNumavg
+! (INTEGER taxisID,
+! INTEGER numavg)
+ EXTERNAL taxisDefNumavg
+
+ INTEGER taxisInqNumavg
+! (INTEGER taxisID)
+ EXTERNAL taxisInqNumavg
+
+ CHARACTER(80) taxisNamePtr
+! (INTEGER taxisID)
+ EXTERNAL taxisNamePtr
+
+ CHARACTER(80) tunitNamePtr
+! (INTEGER tunitID)
+ EXTERNAL tunitNamePtr
+
+!
+! Institut routines
+!
+ INTEGER institutDef
+! (INTEGER center,
+! INTEGER subcenter,
+! CHARACTER*(*) name,
+! CHARACTER*(*) longname)
+ EXTERNAL institutDef
+
+ INTEGER institutInq
+! (INTEGER center,
+! INTEGER subcenter,
+! CHARACTER*(*) name,
+! CHARACTER*(*) longname)
+ EXTERNAL institutInq
+
+ INTEGER institutInqNumber
+ EXTERNAL institutInqNumber
+
+ INTEGER institutInqCenter
+! (INTEGER instID)
+ EXTERNAL institutInqCenter
+
+ INTEGER institutInqSubcenter
+! (INTEGER instID)
+ EXTERNAL institutInqSubcenter
+
+ CHARACTER(80) institutInqNamePtr
+! (INTEGER instID)
+ EXTERNAL institutInqNamePtr
+
+ CHARACTER(80) institutInqLongnamePtr
+! (INTEGER instID)
+ EXTERNAL institutInqLongnamePtr
+
+!
+! Model routines
+!
+ INTEGER modelDef
+! (INTEGER instID,
+! INTEGER modelgribID,
+! CHARACTER*(*) name)
+ EXTERNAL modelDef
+
+ INTEGER modelInq
+! (INTEGER instID,
+! INTEGER modelgribID,
+! CHARACTER*(*) name)
+ EXTERNAL modelInq
+
+ INTEGER modelInqInstitut
+! (INTEGER modelID)
+ EXTERNAL modelInqInstitut
+
+ INTEGER modelInqGribID
+! (INTEGER modelID)
+ EXTERNAL modelInqGribID
+
+ CHARACTER(80) modelInqNamePtr
+! (INTEGER modelID)
+ EXTERNAL modelInqNamePtr
+
+!
+! Table routines
+!
+! tableWrite
+! (CHARACTER*(*) filename,
+! INTEGER tableID)
+ EXTERNAL tableWrite
+
+ INTEGER tableRead
+! (CHARACTER*(*) tablefile)
+ EXTERNAL tableRead
+
+ INTEGER tableDef
+! (INTEGER modelID,
+! INTEGER tablenum,
+! CHARACTER*(*) tablename)
+ EXTERNAL tableDef
+
+ CHARACTER(80) tableInqNamePtr
+! (INTEGER tableID)
+ EXTERNAL tableInqNamePtr
+
+ INTEGER tableInq
+! (INTEGER modelID,
+! INTEGER tablenum,
+! CHARACTER*(*) tablename)
+ EXTERNAL tableInq
+
+ INTEGER tableInqNumber
+ EXTERNAL tableInqNumber
+
+ INTEGER tableInqNum
+! (INTEGER tableID)
+ EXTERNAL tableInqNum
+
+ INTEGER tableInqModel
+! (INTEGER tableID)
+ EXTERNAL tableInqModel
+
+! tableInqEntry
+! (INTEGER tableID,
+! INTEGER id,
+! INTEGER ltype,
+! CHARACTER*(*) name,
+! CHARACTER*(*) longname,
+! CHARACTER*(*) units)
+ EXTERNAL tableInqEntry
+
+!
+! Subtype routines
+!
+ INTEGER subtypeCreate
+! (INTEGER subtype)
+ EXTERNAL subtypeCreate
+
+!
+! Gives a textual summary of the variable subtype
+!
+! subtypePrint
+! (INTEGER subtypeID)
+ EXTERNAL subtypePrint
+
+!
+! Compares two subtype data structures
+!
+ INTEGER subtypeCompare
+! (INTEGER subtypeID1,
+! INTEGER subtypeID2)
+ EXTERNAL subtypeCompare
+
+ INTEGER subtypeInqSize
+! (INTEGER subtypeID)
+ EXTERNAL subtypeInqSize
+
+ INTEGER subtypeInqActiveIndex
+! (INTEGER subtypeID)
+ EXTERNAL subtypeInqActiveIndex
+
+! subtypeDefActiveIndex
+! (INTEGER subtypeID,
+! INTEGER index)
+ EXTERNAL subtypeDefActiveIndex
+
+!
+! Generate a "query object" out of a key-value pair
+!
+!
+! Generate an AND-combined "query object" out of two previous query objects
+!
+ INTEGER subtypeInqTile
+! (INTEGER subtypeID,
+! INTEGER tileindex,
+! INTEGER attribute)
+ EXTERNAL subtypeInqTile
+
+ INTEGER subtypeInqAttribute
+! (INTEGER subtypeID,
+! INTEGER index,
+! CHARACTER*(*) key,
+! INTEGER outValue)
+ EXTERNAL subtypeInqAttribute
+
+ INTEGER vlistInqVarSubtype
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarSubtype
+
+! gribapiLibraryVersion
+! (INTEGER major_version,
+! INTEGER minor_version,
+! INTEGER revision_version)
+ EXTERNAL gribapiLibraryVersion
+
+!
+! Compatibility functions for release 1.8.3 (obsolete functions)
+!
+! zaxisDefLtype
+! (INTEGER zaxisID,
+! INTEGER ltype)
+ EXTERNAL zaxisDefLtype
+
+ INTEGER vlistInqVarTypeOfGeneratingProcess
+! (INTEGER vlistID,
+! INTEGER varID)
+ EXTERNAL vlistInqVarTypeOfGeneratingProcess
+
+! vlistDefVarTypeOfGeneratingProcess
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER typeOfGeneratingProcess)
+ EXTERNAL vlistDefVarTypeOfGeneratingProcess
+
+! vlistDefVarProductDefinitionTemplate
+! (INTEGER vlistID,
+! INTEGER varID,
+! INTEGER productDefinitionTemplate)
+ EXTERNAL vlistDefVarProductDefinitionTemplate
+
+!
+! End of fortran interface
+!
diff --git a/src/cdiFortran.c b/src/cdiFortran.c
new file mode 100644
index 000000000..ea63d5f7b
--- /dev/null
+++ b/src/cdiFortran.c
@@ -0,0 +1,814 @@
+// Automatically generated by make_fint.c, don't edit!
+
+// clang-format off
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#ifndef CDI_H_
+#include "cdi.h"
+#endif
+
+#ifdef HAVE_CF_INTERFACE
+
+#include <limits.h>
+#include <assert.h>
+
+#ifndef __CFORTRAN_LOADED
+# if defined __clang__
+# pragma GCC diagnostic push
+# pragma GCC diagnostic ignored "-Wreserved-id-macro"
+# endif
+# include "cfortran.h"
+# if defined __clang__
+# pragma GCC diagnostic pop
+# endif
+#endif
+/* These functions are meant to be called from Fortran and don't
+ * need an interface declaration in a C header. */
+#ifdef __clang__
+# pragma GCC diagnostic push
+# pragma GCC diagnostic ignored "-Wmissing-prototypes"
+#endif
+
+#ifdef CDI_H_
+
+static inline
+int SizeType_c2f(SizeType value_SizeType)
+{
+ assert(value_SizeType < INT_MAX);
+ return (int) value_SizeType;
+}
+
+#endif
+
+/* Start of fortran interface for the following routines (make_fint.c) */
+
+
+/* Byte order */
+
+
+/* Error identifier */
+
+
+/* File types */
+
+
+/* Compatibility defines for release 1.8.3 (obsolete defines) */
+
+
+/* Protocols (in filename/URI) */
+
+
+/* Compress types */
+
+
+/* external data types */
+
+
+/* Compatibility defines for release 1.8.3 (obsolete defines) */
+
+
+/* internal data types */
+
+
+/* Chunk types */
+
+
+/* GRID types */
+
+
+/* ZAXIS types */
+
+
+/* SUBTYPE types */
+
+
+/* Data structure defining a key-value search, possibly with multiple
+ key-value pairs in combination.
+
+ Currently, only multiple pairs combined by AND are supported. */
+
+
+/* TIME types */
+
+
+/* TSTEP types */
+
+
+/* TAXIS types */
+
+
+/* TUNIT types */
+
+
+/* CALENDAR types */
+
+
+/* number of unsigned char needed to store UUID */
+
+
+/* Structs that are used to return data to the user */
+
+
+/* Opaque types */
+
+
+/* CDI control routines */
+
+FCALLSCSUB0 (cdiReset, CDIRESET, cdireset)
+FCALLSCFUN1 (STRING, cdiStringError, CDISTRINGERROR, cdistringerror, INT)
+FCALLSCSUB1 (cdiDebug, CDIDEBUG, cdidebug, INT)
+FCALLSCFUN0 (STRING, cdiLibraryVersion, CDILIBRARYVERSION, cdilibraryversion)
+FCALLSCSUB0 (cdiPrintVersion, CDIPRINTVERSION, cdiprintversion)
+FCALLSCFUN1 (INT, cdiHaveFiletype, CDIHAVEFILETYPE, cdihavefiletype, INT)
+FCALLSCSUB1 (cdiDefMissval, CDIDEFMISSVAL, cdidefmissval, DOUBLE)
+FCALLSCFUN0 (DOUBLE, cdiInqMissval, CDIINQMISSVAL, cdiinqmissval)
+FCALLSCSUB2 (cdiDefGlobal, CDIDEFGLOBAL, cdidefglobal, STRING, INT)
+FCALLSCFUN0 (INT, namespaceNew, NAMESPACENEW, namespacenew)
+FCALLSCSUB1 (namespaceSetActive, NAMESPACESETACTIVE, namespacesetactive, INT)
+FCALLSCFUN0 (INT, namespaceGetActive, NAMESPACEGETACTIVE, namespacegetactive)
+FCALLSCSUB1 (namespaceDelete, NAMESPACEDELETE, namespacedelete, INT)
+
+/* CDI converter routines */
+
+
+/* parameter */
+
+FCALLSCSUB3 (cdiParamToString, CDIPARAMTOSTRING, cdiparamtostring, INT, PSTRING, INT)
+FCALLSCSUB4 (cdiDecodeParam, CDIDECODEPARAM, cdidecodeparam, INT, PINT, PINT, PINT)
+FCALLSCFUN3 (INT, cdiEncodeParam, CDIENCODEPARAM, cdiencodeparam, INT, INT, INT)
+
+/* date format: YYYYMMDD */
+
+
+/* time format: hhmmss */
+
+FCALLSCSUB4 (cdiDecodeDate, CDIDECODEDATE, cdidecodedate, INT, PINT, PINT, PINT)
+FCALLSCFUN3 (INT, cdiEncodeDate, CDIENCODEDATE, cdiencodedate, INT, INT, INT)
+FCALLSCSUB4 (cdiDecodeTime, CDIDECODETIME, cdidecodetime, INT, PINT, PINT, PINT)
+FCALLSCFUN3 (INT, cdiEncodeTime, CDIENCODETIME, cdiencodetime, INT, INT, INT)
+
+/* STREAM control routines */
+
+FCALLSCFUN2 (INT, cdiGetFiletype, CDIGETFILETYPE, cdigetfiletype, STRING, PINT)
+FCALLSCFUN1 (INT, streamOpenRead, STREAMOPENREAD, streamopenread, STRING)
+FCALLSCFUN2 (INT, streamOpenWrite, STREAMOPENWRITE, streamopenwrite, STRING, INT)
+FCALLSCFUN1 (INT, streamOpenAppend, STREAMOPENAPPEND, streamopenappend, STRING)
+FCALLSCSUB1 (streamClose, STREAMCLOSE, streamclose, INT)
+FCALLSCSUB1 (streamSync, STREAMSYNC, streamsync, INT)
+FCALLSCSUB2 (streamDefMaxSteps, STREAMDEFMAXSTEPS, streamdefmaxsteps, INT, INT)
+FCALLSCSUB2 (streamDefNumWorker, STREAMDEFNUMWORKER, streamdefnumworker, INT, INT)
+FCALLSCFUN1 (INT, streamInqNumSteps, STREAMINQNUMSTEPS, streaminqnumsteps, INT)
+FCALLSCSUB2 (streamDefVlist, STREAMDEFVLIST, streamdefvlist, INT, INT)
+FCALLSCFUN1 (INT, streamInqVlist, STREAMINQVLIST, streaminqvlist, INT)
+FCALLSCFUN1 (INT, streamInqFiletype, STREAMINQFILETYPE, streaminqfiletype, INT)
+FCALLSCSUB2 (streamDefByteorder, STREAMDEFBYTEORDER, streamdefbyteorder, INT, INT)
+FCALLSCFUN1 (INT, streamInqByteorder, STREAMINQBYTEORDER, streaminqbyteorder, INT)
+FCALLSCSUB2 (streamDefShuffle, STREAMDEFSHUFFLE, streamdefshuffle, INT, INT)
+FCALLSCSUB4 (streamDefFilter, STREAMDEFFILTER, streamdeffilter, INT, INT, INT, PINT)
+FCALLSCSUB2 (streamDefCompType, STREAMDEFCOMPTYPE, streamdefcomptype, INT, INT)
+FCALLSCFUN1 (INT, streamInqCompType, STREAMINQCOMPTYPE, streaminqcomptype, INT)
+FCALLSCSUB2 (streamDefCompLevel, STREAMDEFCOMPLEVEL, streamdefcomplevel, INT, INT)
+FCALLSCFUN1 (INT, streamInqCompLevel, STREAMINQCOMPLEVEL, streaminqcomplevel, INT)
+FCALLSCFUN2 (INT, streamDefTimestep, STREAMDEFTIMESTEP, streamdeftimestep, INT, INT)
+FCALLSCFUN2 (INT, streamInqTimestep, STREAMINQTIMESTEP, streaminqtimestep, INT, INT)
+FCALLSCFUN1 (INT, streamInqCurTimestepID, STREAMINQCURTIMESTEPID, streaminqcurtimestepid, INT)
+FCALLSCFUN1 (STRING, streamFilename, STREAMFILENAME, streamfilename, INT)
+FCALLSCFUN1 (STRING, streamFilesuffix, STREAMFILESUFFIX, streamfilesuffix, INT)
+static int streamNvals_fwrap(int streamID)
+{
+ SizeType v;
+ v = streamNvals(streamID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, streamNvals_fwrap, STREAMNVALS, streamnvals, INT)
+FCALLSCFUN1 (INT, streamInqNvars, STREAMINQNVARS, streaminqnvars, INT)
+
+/* STREAM var I/O routines (random access) */
+
+static void streamWriteVar_fwrap(int streamID, int varID, const double data[], int numMissVals)
+{
+ streamWriteVar(streamID, varID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB4 (streamWriteVar_fwrap, STREAMWRITEVAR, streamwritevar, INT, INT, DOUBLEV, INT)
+static void streamWriteVarF_fwrap(int streamID, int varID, const float data[], int numMissVals)
+{
+ streamWriteVarF(streamID, varID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB4 (streamWriteVarF_fwrap, STREAMWRITEVARF, streamwritevarf, INT, INT, FLOATV, INT)
+static void streamReadVar_fwrap(int streamID, int varID, double data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadVar(streamID, varID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB4 (streamReadVar_fwrap, STREAMREADVAR, streamreadvar, INT, INT, DOUBLEV, PINT)
+static void streamReadVarF_fwrap(int streamID, int varID, float data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadVarF(streamID, varID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB4 (streamReadVarF_fwrap, STREAMREADVARF, streamreadvarf, INT, INT, FLOATV, PINT)
+static void streamWriteVarSlice_fwrap(int streamID, int varID, int levelID, const double data[], int numMissVals)
+{
+ streamWriteVarSlice(streamID, varID, levelID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB5 (streamWriteVarSlice_fwrap, STREAMWRITEVARSLICE, streamwritevarslice, INT, INT, INT, DOUBLEV, INT)
+static void streamWriteVarSliceF_fwrap(int streamID, int varID, int levelID, const float data[], int numMissVals)
+{
+ streamWriteVarSliceF(streamID, varID, levelID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB5 (streamWriteVarSliceF_fwrap, STREAMWRITEVARSLICEF, streamwritevarslicef, INT, INT, INT, FLOATV, INT)
+static void streamReadVarSlice_fwrap(int streamID, int varID, int levelID, double data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadVarSlice(streamID, varID, levelID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB5 (streamReadVarSlice_fwrap, STREAMREADVARSLICE, streamreadvarslice, INT, INT, INT, DOUBLEV, PINT)
+static void streamReadVarSliceF_fwrap(int streamID, int varID, int levelID, float data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadVarSliceF(streamID, varID, levelID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB5 (streamReadVarSliceF_fwrap, STREAMREADVARSLICEF, streamreadvarslicef, INT, INT, INT, FLOATV, PINT)
+static void streamWriteVarChunk_fwrap(int streamID, int varID, const int rect[][2], const double data[], int numMissVals)
+{
+ streamWriteVarChunk(streamID, varID, rect, data, (SizeType)numMissVals);
+}
+FCALLSCSUB5 (streamWriteVarChunk_fwrap, STREAMWRITEVARCHUNK, streamwritevarchunk, INT, INT, INTVV, DOUBLEV, INT)
+static void streamWriteVarChunkF_fwrap(int streamID, int varID, const int rect[][2], const float data[], int numMissVals)
+{
+ streamWriteVarChunkF(streamID, varID, rect, data, (SizeType)numMissVals);
+}
+FCALLSCSUB5 (streamWriteVarChunkF_fwrap, STREAMWRITEVARCHUNKF, streamwritevarchunkf, INT, INT, INTVV, FLOATV, INT)
+
+/* STREAM record I/O routines (sequential access) */
+
+FCALLSCSUB3 (streamDefRecord, STREAMDEFRECORD, streamdefrecord, INT, INT, INT)
+FCALLSCSUB3 (streamInqRecord, STREAMINQRECORD, streaminqrecord, INT, PINT, PINT)
+static void streamWriteRecord_fwrap(int streamID, const double data[], int numMissVals)
+{
+ streamWriteRecord(streamID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB3 (streamWriteRecord_fwrap, STREAMWRITERECORD, streamwriterecord, INT, DOUBLEV, INT)
+static void streamWriteRecordF_fwrap(int streamID, const float data[], int numMissVals)
+{
+ streamWriteRecordF(streamID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB3 (streamWriteRecordF_fwrap, STREAMWRITERECORDF, streamwriterecordf, INT, FLOATV, INT)
+static void streamReadRecord_fwrap(int streamID, double data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadRecord(streamID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB3 (streamReadRecord_fwrap, STREAMREADRECORD, streamreadrecord, INT, DOUBLEV, PINT)
+static void streamReadRecordF_fwrap(int streamID, float data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadRecordF(streamID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB3 (streamReadRecordF_fwrap, STREAMREADRECORDF, streamreadrecordf, INT, FLOATV, PINT)
+FCALLSCSUB2 (streamCopyRecord, STREAMCOPYRECORD, streamcopyrecord, INT, INT)
+
+/* File driven I/O (may yield better performance than using the streamXXX functions) */
+
+
+/* Creation & Destruction */
+
+
+/* Advancing an iterator */
+
+
+/* Introspecting metadata */
+
+
+/* All outXXX arguments to these functions may be NULL. */
+
+
+/* Reading data */
+
+
+/* TODO[NH]: Add functions to read partial fields. */
+
+
+/* Direct access to grib fields */
+
+
+/* Callthroughs to GRIB-API */
+
+
+/* Convenience functions for accessing GRIB-API keys */
+
+
+/* VLIST routines */
+
+FCALLSCFUN0 (INT, vlistCreate, VLISTCREATE, vlistcreate)
+FCALLSCSUB1 (vlistDestroy, VLISTDESTROY, vlistdestroy, INT)
+FCALLSCFUN1 (INT, vlistDuplicate, VLISTDUPLICATE, vlistduplicate, INT)
+FCALLSCSUB2 (vlistCopy, VLISTCOPY, vlistcopy, INT, INT)
+FCALLSCSUB2 (vlistCopyFlag, VLISTCOPYFLAG, vlistcopyflag, INT, INT)
+FCALLSCSUB1 (vlistClearFlag, VLISTCLEARFLAG, vlistclearflag, INT)
+FCALLSCSUB2 (vlistCat, VLISTCAT, vlistcat, INT, INT)
+FCALLSCSUB2 (vlistMerge, VLISTMERGE, vlistmerge, INT, INT)
+FCALLSCSUB1 (vlistPrint, VLISTPRINT, vlistprint, INT)
+FCALLSCFUN1 (INT, vlistNumber, VLISTNUMBER, vlistnumber, INT)
+FCALLSCFUN1 (INT, vlistNvars, VLISTNVARS, vlistnvars, INT)
+FCALLSCFUN1 (INT, vlistNgrids, VLISTNGRIDS, vlistngrids, INT)
+FCALLSCFUN1 (INT, vlistNzaxis, VLISTNZAXIS, vlistnzaxis, INT)
+FCALLSCFUN1 (INT, vlistNsubtypes, VLISTNSUBTYPES, vlistnsubtypes, INT)
+FCALLSCSUB2 (vlistDefNtsteps, VLISTDEFNTSTEPS, vlistdefntsteps, INT, INT)
+FCALLSCFUN1 (INT, vlistNtsteps, VLISTNTSTEPS, vlistntsteps, INT)
+static int vlistGridsizeMax_fwrap(int vlistID)
+{
+ SizeType v;
+ v = vlistGridsizeMax(vlistID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, vlistGridsizeMax_fwrap, VLISTGRIDSIZEMAX, vlistgridsizemax, INT)
+FCALLSCFUN2 (INT, vlistGrid, VLISTGRID, vlistgrid, INT, INT)
+FCALLSCFUN2 (INT, vlistGridIndex, VLISTGRIDINDEX, vlistgridindex, INT, INT)
+FCALLSCSUB3 (vlistChangeGridIndex, VLISTCHANGEGRIDINDEX, vlistchangegridindex, INT, INT, INT)
+FCALLSCSUB3 (vlistChangeGrid, VLISTCHANGEGRID, vlistchangegrid, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistZaxis, VLISTZAXIS, vlistzaxis, INT, INT)
+FCALLSCFUN2 (INT, vlistZaxisIndex, VLISTZAXISINDEX, vlistzaxisindex, INT, INT)
+FCALLSCSUB3 (vlistChangeZaxisIndex, VLISTCHANGEZAXISINDEX, vlistchangezaxisindex, INT, INT, INT)
+FCALLSCSUB3 (vlistChangeZaxis, VLISTCHANGEZAXIS, vlistchangezaxis, INT, INT, INT)
+FCALLSCFUN1 (INT, vlistNrecs, VLISTNRECS, vlistnrecs, INT)
+FCALLSCFUN2 (INT, vlistSubtype, VLISTSUBTYPE, vlistsubtype, INT, INT)
+FCALLSCFUN2 (INT, vlistSubtypeIndex, VLISTSUBTYPEINDEX, vlistsubtypeindex, INT, INT)
+FCALLSCSUB2 (vlistDefTaxis, VLISTDEFTAXIS, vlistdeftaxis, INT, INT)
+FCALLSCFUN1 (INT, vlistInqTaxis, VLISTINQTAXIS, vlistinqtaxis, INT)
+FCALLSCSUB2 (vlistDefTable, VLISTDEFTABLE, vlistdeftable, INT, INT)
+FCALLSCFUN1 (INT, vlistInqTable, VLISTINQTABLE, vlistinqtable, INT)
+FCALLSCSUB2 (vlistDefInstitut, VLISTDEFINSTITUT, vlistdefinstitut, INT, INT)
+FCALLSCFUN1 (INT, vlistInqInstitut, VLISTINQINSTITUT, vlistinqinstitut, INT)
+FCALLSCSUB2 (vlistDefModel, VLISTDEFMODEL, vlistdefmodel, INT, INT)
+FCALLSCFUN1 (INT, vlistInqModel, VLISTINQMODEL, vlistinqmodel, INT)
+
+/* VLIST VAR routines */
+
+FCALLSCFUN5 (INT, vlistDefVarTiles, VLISTDEFVARTILES, vlistdefvartiles, INT, INT, INT, INT, INT)
+FCALLSCFUN4 (INT, vlistDefVar, VLISTDEFVAR, vlistdefvar, INT, INT, INT, INT)
+FCALLSCSUB3 (vlistChangeVarGrid, VLISTCHANGEVARGRID, vlistchangevargrid, INT, INT, INT)
+FCALLSCSUB3 (vlistChangeVarZaxis, VLISTCHANGEVARZAXIS, vlistchangevarzaxis, INT, INT, INT)
+FCALLSCSUB5 (vlistInqVar, VLISTINQVAR, vlistinqvar, INT, INT, PINT, PINT, PINT)
+FCALLSCFUN2 (INT, vlistInqVarGrid, VLISTINQVARGRID, vlistinqvargrid, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarZaxis, VLISTINQVARZAXIS, vlistinqvarzaxis, INT, INT)
+
+/* used in MPIOM */
+
+FCALLSCFUN2 (INT, vlistInqVarID, VLISTINQVARID, vlistinqvarid, INT, INT)
+FCALLSCSUB3 (vlistDefVarTimetype, VLISTDEFVARTIMETYPE, vlistdefvartimetype, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarTimetype, VLISTINQVARTIMETYPE, vlistinqvartimetype, INT, INT)
+FCALLSCSUB3 (vlistDefVarTsteptype, VLISTDEFVARTSTEPTYPE, vlistdefvartsteptype, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarTsteptype, VLISTINQVARTSTEPTYPE, vlistinqvartsteptype, INT, INT)
+FCALLSCSUB3 (vlistDefVarCompType, VLISTDEFVARCOMPTYPE, vlistdefvarcomptype, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarCompType, VLISTINQVARCOMPTYPE, vlistinqvarcomptype, INT, INT)
+FCALLSCSUB3 (vlistDefVarCompLevel, VLISTDEFVARCOMPLEVEL, vlistdefvarcomplevel, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarCompLevel, VLISTINQVARCOMPLEVEL, vlistinqvarcomplevel, INT, INT)
+FCALLSCSUB3 (vlistDefVarParam, VLISTDEFVARPARAM, vlistdefvarparam, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarParam, VLISTINQVARPARAM, vlistinqvarparam, INT, INT)
+FCALLSCSUB3 (vlistDefVarCode, VLISTDEFVARCODE, vlistdefvarcode, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarCode, VLISTINQVARCODE, vlistinqvarcode, INT, INT)
+FCALLSCSUB3 (vlistDefVarDatatype, VLISTDEFVARDATATYPE, vlistdefvardatatype, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarDatatype, VLISTINQVARDATATYPE, vlistinqvardatatype, INT, INT)
+FCALLSCSUB3 (vlistDefVarXYZ, VLISTDEFVARXYZ, vlistdefvarxyz, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarXYZ, VLISTINQVARXYZ, vlistinqvarxyz, INT, INT)
+FCALLSCSUB3 (vlistDefVarNSB, VLISTDEFVARNSB, vlistdefvarnsb, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarNSB, VLISTINQVARNSB, vlistinqvarnsb, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarNumber, VLISTINQVARNUMBER, vlistinqvarnumber, INT, INT)
+FCALLSCSUB3 (vlistDefVarInstitut, VLISTDEFVARINSTITUT, vlistdefvarinstitut, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarInstitut, VLISTINQVARINSTITUT, vlistinqvarinstitut, INT, INT)
+FCALLSCSUB3 (vlistDefVarModel, VLISTDEFVARMODEL, vlistdefvarmodel, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarModel, VLISTINQVARMODEL, vlistinqvarmodel, INT, INT)
+FCALLSCSUB3 (vlistDefVarTable, VLISTDEFVARTABLE, vlistdefvartable, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarTable, VLISTINQVARTABLE, vlistinqvartable, INT, INT)
+FCALLSCSUB3 (vlistDefVarName, VLISTDEFVARNAME, vlistdefvarname, INT, INT, STRING)
+FCALLSCSUB3 (vlistInqVarName, VLISTINQVARNAME, vlistinqvarname, INT, INT, PSTRING)
+FCALLSCFUN2 (STRING, vlistCopyVarName, VLISTCOPYVARNAME, vlistcopyvarname, INT, INT)
+FCALLSCSUB3 (vlistDefVarStdname, VLISTDEFVARSTDNAME, vlistdefvarstdname, INT, INT, STRING)
+FCALLSCSUB3 (vlistInqVarStdname, VLISTINQVARSTDNAME, vlistinqvarstdname, INT, INT, PSTRING)
+FCALLSCSUB3 (vlistDefVarLongname, VLISTDEFVARLONGNAME, vlistdefvarlongname, INT, INT, STRING)
+FCALLSCSUB3 (vlistInqVarLongname, VLISTINQVARLONGNAME, vlistinqvarlongname, INT, INT, PSTRING)
+FCALLSCSUB3 (vlistDefVarUnits, VLISTDEFVARUNITS, vlistdefvarunits, INT, INT, STRING)
+FCALLSCSUB3 (vlistInqVarUnits, VLISTINQVARUNITS, vlistinqvarunits, INT, INT, PSTRING)
+FCALLSCSUB3 (vlistDefVarMissval, VLISTDEFVARMISSVAL, vlistdefvarmissval, INT, INT, DOUBLE)
+FCALLSCFUN2 (DOUBLE, vlistInqVarMissval, VLISTINQVARMISSVAL, vlistinqvarmissval, INT, INT)
+static int vlistInqVarSize_fwrap(int vlistID, int varID)
+{
+ SizeType v;
+ v = vlistInqVarSize(vlistID, varID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, vlistInqVarSize_fwrap, VLISTINQVARSIZE, vlistinqvarsize, INT, INT)
+FCALLSCSUB4 (vlistDefIndex, VLISTDEFINDEX, vlistdefindex, INT, INT, INT, INT)
+FCALLSCFUN3 (INT, vlistInqIndex, VLISTINQINDEX, vlistinqindex, INT, INT, INT)
+FCALLSCSUB4 (vlistDefFlag, VLISTDEFFLAG, vlistdefflag, INT, INT, INT, INT)
+FCALLSCFUN3 (INT, vlistInqFlag, VLISTINQFLAG, vlistinqflag, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistFindVar, VLISTFINDVAR, vlistfindvar, INT, INT)
+FCALLSCFUN3 (INT, vlistFindLevel, VLISTFINDLEVEL, vlistfindlevel, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistMergedVar, VLISTMERGEDVAR, vlistmergedvar, INT, INT)
+FCALLSCFUN3 (INT, vlistMergedLevel, VLISTMERGEDLEVEL, vlistmergedlevel, INT, INT, INT)
+FCALLSCSUB0 (cdiClearAdditionalKeys, CDICLEARADDITIONALKEYS, cdiclearadditionalkeys)
+FCALLSCSUB1 (cdiDefAdditionalKey, CDIDEFADDITIONALKEY, cdidefadditionalkey, STRING)
+FCALLSCSUB4 (vlistDefVarIntKey, VLISTDEFVARINTKEY, vlistdefvarintkey, INT, INT, STRING, INT)
+FCALLSCSUB4 (vlistDefVarDblKey, VLISTDEFVARDBLKEY, vlistdefvardblkey, INT, INT, STRING, DOUBLE)
+FCALLSCFUN3 (INT, vlistHasVarKey, VLISTHASVARKEY, vlisthasvarkey, INT, INT, STRING)
+FCALLSCFUN3 (DOUBLE, vlistInqVarDblKey, VLISTINQVARDBLKEY, vlistinqvardblkey, INT, INT, STRING)
+FCALLSCFUN3 (INT, vlistInqVarIntKey, VLISTINQVARINTKEY, vlistinqvarintkey, INT, INT, STRING)
+
+/* CDI attributes */
+
+FCALLSCFUN3 (INT, cdiInqNatts, CDIINQNATTS, cdiinqnatts, INT, INT, PINT)
+FCALLSCFUN6 (INT, cdiInqAtt, CDIINQATT, cdiinqatt, INT, INT, INT, PSTRING, PINT, PINT)
+FCALLSCFUN3 (INT, cdiInqAttLen, CDIINQATTLEN, cdiinqattlen, INT, INT, STRING)
+FCALLSCFUN3 (INT, cdiInqAttType, CDIINQATTTYPE, cdiinqatttype, INT, INT, STRING)
+FCALLSCFUN3 (INT, cdiDelAtt, CDIDELATT, cdidelatt, INT, INT, STRING)
+FCALLSCFUN4 (INT, cdiCopyAtts, CDICOPYATTS, cdicopyatts, INT, INT, INT, INT)
+FCALLSCFUN6 (INT, cdiDefAttInt, CDIDEFATTINT, cdidefattint, INT, INT, STRING, INT, INT, INTV)
+FCALLSCFUN6 (INT, cdiDefAttFlt, CDIDEFATTFLT, cdidefattflt, INT, INT, STRING, INT, INT, DOUBLEV)
+FCALLSCFUN5 (INT, cdiDefAttTxt, CDIDEFATTTXT, cdidefatttxt, INT, INT, STRING, INT, PPSTRING)
+FCALLSCFUN5 (INT, cdiInqAttInt, CDIINQATTINT, cdiinqattint, INT, INT, STRING, INT, INTV)
+FCALLSCFUN5 (INT, cdiInqAttFlt, CDIINQATTFLT, cdiinqattflt, INT, INT, STRING, INT, DOUBLEV)
+FCALLSCFUN5 (INT, cdiInqAttTxt, CDIINQATTTXT, cdiinqatttxt, INT, INT, STRING, INT, PPSTRING)
+
+/* GRID routines */
+
+FCALLSCSUB2 (gridName, GRIDNAME, gridname, INT, PSTRING)
+FCALLSCFUN1 (STRING, gridNamePtr, GRIDNAMEPTR, gridnameptr, INT)
+FCALLSCSUB1 (gridCompress, GRIDCOMPRESS, gridcompress, INT)
+FCALLSCSUB2 (gridDefMaskGME, GRIDDEFMASKGME, griddefmaskgme, INT, INTV)
+FCALLSCFUN2 (INT, gridInqMaskGME, GRIDINQMASKGME, gridinqmaskgme, INT, INTV)
+FCALLSCSUB2 (gridDefMask, GRIDDEFMASK, griddefmask, INT, INTV)
+FCALLSCFUN2 (INT, gridInqMask, GRIDINQMASK, gridinqmask, INT, INTV)
+static int gridCreate_fwrap(int gridtype, int size)
+{
+ int v;
+ v = gridCreate(gridtype, (SizeType)size);
+ return v;
+}
+FCALLSCFUN2 (INT, gridCreate_fwrap, GRIDCREATE, gridcreate, INT, INT)
+FCALLSCSUB1 (gridDestroy, GRIDDESTROY, griddestroy, INT)
+FCALLSCFUN1 (INT, gridDuplicate, GRIDDUPLICATE, gridduplicate, INT)
+FCALLSCSUB2 (gridDefProj, GRIDDEFPROJ, griddefproj, INT, INT)
+FCALLSCFUN1 (INT, gridInqProj, GRIDINQPROJ, gridinqproj, INT)
+FCALLSCFUN1 (INT, gridInqProjType, GRIDINQPROJTYPE, gridinqprojtype, INT)
+FCALLSCFUN1 (INT, gridInqType, GRIDINQTYPE, gridinqtype, INT)
+static int gridInqSize_fwrap(int gridID)
+{
+ SizeType v;
+ v = gridInqSize(gridID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, gridInqSize_fwrap, GRIDINQSIZE, gridinqsize, INT)
+static void gridDefXsize_fwrap(int gridID, int xsize)
+{
+ gridDefXsize(gridID, (SizeType)xsize);
+}
+FCALLSCSUB2 (gridDefXsize_fwrap, GRIDDEFXSIZE, griddefxsize, INT, INT)
+static int gridInqXsize_fwrap(int gridID)
+{
+ SizeType v;
+ v = gridInqXsize(gridID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, gridInqXsize_fwrap, GRIDINQXSIZE, gridinqxsize, INT)
+static void gridDefYsize_fwrap(int gridID, int ysize)
+{
+ gridDefYsize(gridID, (SizeType)ysize);
+}
+FCALLSCSUB2 (gridDefYsize_fwrap, GRIDDEFYSIZE, griddefysize, INT, INT)
+static int gridInqYsize_fwrap(int gridID)
+{
+ SizeType v;
+ v = gridInqYsize(gridID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, gridInqYsize_fwrap, GRIDINQYSIZE, gridinqysize, INT)
+FCALLSCSUB2 (gridDefNP, GRIDDEFNP, griddefnp, INT, INT)
+FCALLSCFUN1 (INT, gridInqNP, GRIDINQNP, gridinqnp, INT)
+FCALLSCSUB2 (gridDefXvals, GRIDDEFXVALS, griddefxvals, INT, DOUBLEV)
+static int gridInqXvals_fwrap(int gridID, double xvals[])
+{
+ SizeType v;
+ v = gridInqXvals(gridID, xvals);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, gridInqXvals_fwrap, GRIDINQXVALS, gridinqxvals, INT, DOUBLEV)
+static int gridInqXvalsPart_fwrap(int gridID, int start, int size, double xvals[])
+{
+ SizeType v;
+ v = gridInqXvalsPart(gridID, start, (SizeType)size, xvals);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN4 (INT, gridInqXvalsPart_fwrap, GRIDINQXVALSPART, gridinqxvalspart, INT, INT, INT, DOUBLEV)
+FCALLSCFUN1 (INT, gridInqXIsc, GRIDINQXISC, gridinqxisc, INT)
+FCALLSCSUB2 (gridDefYvals, GRIDDEFYVALS, griddefyvals, INT, DOUBLEV)
+static int gridInqYvals_fwrap(int gridID, double yvals[])
+{
+ SizeType v;
+ v = gridInqYvals(gridID, yvals);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, gridInqYvals_fwrap, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV)
+static int gridInqYvalsPart_fwrap(int gridID, int start, int size, double yvals[])
+{
+ SizeType v;
+ v = gridInqYvalsPart(gridID, start, (SizeType)size, yvals);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN4 (INT, gridInqYvalsPart_fwrap, GRIDINQYVALSPART, gridinqyvalspart, INT, INT, INT, DOUBLEV)
+FCALLSCFUN1 (INT, gridInqYIsc, GRIDINQYISC, gridinqyisc, INT)
+
+/* CDI var keys */
+
+
+/* String keys */
+
+
+/* Integer keys */
+
+
+/* Floating point keys */
+
+
+/* Byte array keys */
+
+FCALLSCFUN4 (INT, cdiDefKeyInt, CDIDEFKEYINT, cdidefkeyint, INT, INT, INT, INT)
+FCALLSCFUN4 (INT, cdiInqKeyInt, CDIINQKEYINT, cdiinqkeyint, INT, INT, INT, PINT)
+FCALLSCFUN4 (INT, cdiDefKeyFloat, CDIDEFKEYFLOAT, cdidefkeyfloat, INT, INT, INT, DOUBLE)
+
+/* cdiInqKeyFloat Get a float value from a key */
+
+FCALLSCFUN4 (INT, cdiInqKeyFloat, CDIINQKEYFLOAT, cdiinqkeyfloat, INT, INT, INT, PDOUBLE)
+FCALLSCFUN4 (INT, cdiDefKeyString, CDIDEFKEYSTRING, cdidefkeystring, INT, INT, INT, STRING)
+FCALLSCFUN5 (INT, cdiInqKeyString, CDIINQKEYSTRING, cdiinqkeystring, INT, INT, INT, PSTRING, PINT)
+FCALLSCFUN4 (INT, cdiInqKeyLen, CDIINQKEYLEN, cdiinqkeylen, INT, INT, INT, PINT)
+FCALLSCFUN4 (INT, cdiCopyKeys, CDICOPYKEYS, cdicopykeys, INT, INT, INT, INT)
+FCALLSCFUN4 (INT, cdiCopyKey, CDICOPYKEY, cdicopykey, INT, INT, INT, INT)
+FCALLSCFUN3 (INT, cdiDeleteKey, CDIDELETEKEY, cdideletekey, INT, INT, INT)
+
+/* GRID routines */
+
+FCALLSCSUB2 (gridDefXname, GRIDDEFXNAME, griddefxname, INT, STRING)
+FCALLSCSUB2 (gridInqXname, GRIDINQXNAME, gridinqxname, INT, PSTRING)
+FCALLSCSUB2 (gridDefXlongname, GRIDDEFXLONGNAME, griddefxlongname, INT, STRING)
+FCALLSCSUB2 (gridInqXlongname, GRIDINQXLONGNAME, gridinqxlongname, INT, PSTRING)
+FCALLSCSUB2 (gridDefXunits, GRIDDEFXUNITS, griddefxunits, INT, STRING)
+FCALLSCSUB2 (gridInqXunits, GRIDINQXUNITS, gridinqxunits, INT, PSTRING)
+FCALLSCSUB2 (gridDefYname, GRIDDEFYNAME, griddefyname, INT, STRING)
+FCALLSCSUB2 (gridInqYname, GRIDINQYNAME, gridinqyname, INT, PSTRING)
+FCALLSCSUB2 (gridDefYlongname, GRIDDEFYLONGNAME, griddefylongname, INT, STRING)
+FCALLSCSUB2 (gridInqYlongname, GRIDINQYLONGNAME, gridinqylongname, INT, PSTRING)
+FCALLSCSUB2 (gridDefYunits, GRIDDEFYUNITS, griddefyunits, INT, STRING)
+FCALLSCSUB2 (gridInqYunits, GRIDINQYUNITS, gridinqyunits, INT, PSTRING)
+FCALLSCSUB2 (gridDefDatatype, GRIDDEFDATATYPE, griddefdatatype, INT, INT)
+FCALLSCFUN1 (INT, gridInqDatatype, GRIDINQDATATYPE, gridinqdatatype, INT)
+static double gridInqXval_fwrap(int gridID, int index)
+{
+ double v;
+ v = gridInqXval(gridID, (SizeType)index);
+ return v;
+}
+FCALLSCFUN2 (DOUBLE, gridInqXval_fwrap, GRIDINQXVAL, gridinqxval, INT, INT)
+static double gridInqYval_fwrap(int gridID, int index)
+{
+ double v;
+ v = gridInqYval(gridID, (SizeType)index);
+ return v;
+}
+FCALLSCFUN2 (DOUBLE, gridInqYval_fwrap, GRIDINQYVAL, gridinqyval, INT, INT)
+FCALLSCFUN1 (DOUBLE, gridInqXinc, GRIDINQXINC, gridinqxinc, INT)
+FCALLSCFUN1 (DOUBLE, gridInqYinc, GRIDINQYINC, gridinqyinc, INT)
+FCALLSCFUN1 (INT, gridIsCircular, GRIDISCIRCULAR, gridiscircular, INT)
+FCALLSCFUN1 (INT, gridInqTrunc, GRIDINQTRUNC, gridinqtrunc, INT)
+FCALLSCSUB2 (gridDefTrunc, GRIDDEFTRUNC, griddeftrunc, INT, INT)
+
+/* Reference of an unstructured grid */
+
+FCALLSCSUB2 (gridDefNumber, GRIDDEFNUMBER, griddefnumber, INT, INT)
+FCALLSCFUN1 (INT, gridInqNumber, GRIDINQNUMBER, gridinqnumber, INT)
+FCALLSCSUB2 (gridDefPosition, GRIDDEFPOSITION, griddefposition, INT, INT)
+FCALLSCFUN1 (INT, gridInqPosition, GRIDINQPOSITION, gridinqposition, INT)
+FCALLSCSUB2 (gridDefReference, GRIDDEFREFERENCE, griddefreference, INT, STRING)
+FCALLSCFUN2 (INT, gridInqReference, GRIDINQREFERENCE, gridinqreference, INT, PSTRING)
+FCALLSCSUB2 (gridDefUUID, GRIDDEFUUID, griddefuuid, INT, PVOID)
+FCALLSCSUB2 (gridInqUUID, GRIDINQUUID, gridinquuid, INT, PVOID)
+
+/* Rotated Lon/Lat grid */
+
+FCALLSCSUB4 (gridDefParamRLL, GRIDDEFPARAMRLL, griddefparamrll, INT, DOUBLE, DOUBLE, DOUBLE)
+FCALLSCSUB4 (gridInqParamRLL, GRIDINQPARAMRLL, gridinqparamrll, INT, PDOUBLE, PDOUBLE, PDOUBLE)
+
+/* Hexagonal GME grid */
+
+FCALLSCSUB5 (gridDefParamGME, GRIDDEFPARAMGME, griddefparamgme, INT, INT, INT, INT, INT)
+FCALLSCSUB5 (gridInqParamGME, GRIDINQPARAMGME, gridinqparamgme, INT, PINT, PINT, PINT, PINT)
+FCALLSCSUB2 (gridDefArea, GRIDDEFAREA, griddefarea, INT, DOUBLEV)
+FCALLSCSUB2 (gridInqArea, GRIDINQAREA, gridinqarea, INT, DOUBLEV)
+FCALLSCFUN1 (INT, gridHasArea, GRIDHASAREA, gridhasarea, INT)
+FCALLSCSUB2 (gridDefNvertex, GRIDDEFNVERTEX, griddefnvertex, INT, INT)
+FCALLSCFUN1 (INT, gridInqNvertex, GRIDINQNVERTEX, gridinqnvertex, INT)
+FCALLSCSUB2 (gridDefXbounds, GRIDDEFXBOUNDS, griddefxbounds, INT, DOUBLEV)
+static int gridInqXbounds_fwrap(int gridID, double xbounds[])
+{
+ SizeType v;
+ v = gridInqXbounds(gridID, xbounds);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, gridInqXbounds_fwrap, GRIDINQXBOUNDS, gridinqxbounds, INT, DOUBLEV)
+static int gridInqXboundsPart_fwrap(int gridID, int start, int size, double xbounds[])
+{
+ SizeType v;
+ v = gridInqXboundsPart(gridID, start, (SizeType)size, xbounds);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN4 (INT, gridInqXboundsPart_fwrap, GRIDINQXBOUNDSPART, gridinqxboundspart, INT, INT, INT, DOUBLEV)
+FCALLSCSUB2 (gridDefYbounds, GRIDDEFYBOUNDS, griddefybounds, INT, DOUBLEV)
+static int gridInqYbounds_fwrap(int gridID, double ybounds[])
+{
+ SizeType v;
+ v = gridInqYbounds(gridID, ybounds);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, gridInqYbounds_fwrap, GRIDINQYBOUNDS, gridinqybounds, INT, DOUBLEV)
+static int gridInqYboundsPart_fwrap(int gridID, int start, int size, double ybounds[])
+{
+ SizeType v;
+ v = gridInqYboundsPart(gridID, start, (SizeType)size, ybounds);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN4 (INT, gridInqYboundsPart_fwrap, GRIDINQYBOUNDSPART, gridinqyboundspart, INT, INT, INT, DOUBLEV)
+FCALLSCSUB3 (gridDefReducedPoints, GRIDDEFREDUCEDPOINTS, griddefreducedpoints, INT, INT, INTV)
+FCALLSCSUB2 (gridInqReducedPoints, GRIDINQREDUCEDPOINTS, gridinqreducedpoints, INT, INTV)
+FCALLSCSUB2 (gridChangeType, GRIDCHANGETYPE, gridchangetype, INT, INT)
+FCALLSCSUB2 (gridDefComplexPacking, GRIDDEFCOMPLEXPACKING, griddefcomplexpacking, INT, INT)
+FCALLSCFUN1 (INT, gridInqComplexPacking, GRIDINQCOMPLEXPACKING, gridinqcomplexpacking, INT)
+
+/* ZAXIS routines */
+
+FCALLSCSUB2 (zaxisName, ZAXISNAME, zaxisname, INT, PSTRING)
+FCALLSCFUN1 (STRING, zaxisNamePtr, ZAXISNAMEPTR, zaxisnameptr, INT)
+FCALLSCFUN2 (INT, zaxisCreate, ZAXISCREATE, zaxiscreate, INT, INT)
+FCALLSCSUB1 (zaxisDestroy, ZAXISDESTROY, zaxisdestroy, INT)
+FCALLSCFUN1 (INT, zaxisInqType, ZAXISINQTYPE, zaxisinqtype, INT)
+FCALLSCFUN1 (INT, zaxisInqSize, ZAXISINQSIZE, zaxisinqsize, INT)
+FCALLSCFUN1 (INT, zaxisDuplicate, ZAXISDUPLICATE, zaxisduplicate, INT)
+FCALLSCSUB2 (zaxisDefLevels, ZAXISDEFLEVELS, zaxisdeflevels, INT, DOUBLEV)
+FCALLSCFUN2 (INT, zaxisInqLevels, ZAXISINQLEVELS, zaxisinqlevels, INT, DOUBLEV)
+FCALLSCFUN1 (INT, zaxisInqCLen, ZAXISINQCLEN, zaxisinqclen, INT)
+FCALLSCSUB3 (zaxisDefLevel, ZAXISDEFLEVEL, zaxisdeflevel, INT, INT, DOUBLE)
+FCALLSCFUN2 (DOUBLE, zaxisInqLevel, ZAXISINQLEVEL, zaxisinqlevel, INT, INT)
+FCALLSCSUB2 (zaxisDefNlevRef, ZAXISDEFNLEVREF, zaxisdefnlevref, INT, INT)
+FCALLSCFUN1 (INT, zaxisInqNlevRef, ZAXISINQNLEVREF, zaxisinqnlevref, INT)
+FCALLSCSUB2 (zaxisDefNumber, ZAXISDEFNUMBER, zaxisdefnumber, INT, INT)
+FCALLSCFUN1 (INT, zaxisInqNumber, ZAXISINQNUMBER, zaxisinqnumber, INT)
+FCALLSCSUB2 (zaxisDefUUID, ZAXISDEFUUID, zaxisdefuuid, INT, PVOID)
+FCALLSCSUB2 (zaxisInqUUID, ZAXISINQUUID, zaxisinquuid, INT, PVOID)
+FCALLSCSUB2 (zaxisDefName, ZAXISDEFNAME, zaxisdefname, INT, STRING)
+FCALLSCSUB2 (zaxisInqName, ZAXISINQNAME, zaxisinqname, INT, PSTRING)
+FCALLSCSUB2 (zaxisDefLongname, ZAXISDEFLONGNAME, zaxisdeflongname, INT, STRING)
+FCALLSCSUB2 (zaxisInqLongname, ZAXISINQLONGNAME, zaxisinqlongname, INT, PSTRING)
+FCALLSCSUB2 (zaxisDefUnits, ZAXISDEFUNITS, zaxisdefunits, INT, STRING)
+FCALLSCSUB2 (zaxisInqUnits, ZAXISINQUNITS, zaxisinqunits, INT, PSTRING)
+FCALLSCSUB2 (zaxisInqStdname, ZAXISINQSTDNAME, zaxisinqstdname, INT, PSTRING)
+FCALLSCSUB2 (zaxisDefDatatype, ZAXISDEFDATATYPE, zaxisdefdatatype, INT, INT)
+FCALLSCFUN1 (INT, zaxisInqDatatype, ZAXISINQDATATYPE, zaxisinqdatatype, INT)
+FCALLSCSUB2 (zaxisDefPositive, ZAXISDEFPOSITIVE, zaxisdefpositive, INT, INT)
+FCALLSCFUN1 (INT, zaxisInqPositive, ZAXISINQPOSITIVE, zaxisinqpositive, INT)
+FCALLSCSUB1 (zaxisDefScalar, ZAXISDEFSCALAR, zaxisdefscalar, INT)
+FCALLSCFUN1 (INT, zaxisInqScalar, ZAXISINQSCALAR, zaxisinqscalar, INT)
+FCALLSCSUB3 (zaxisDefVct, ZAXISDEFVCT, zaxisdefvct, INT, INT, DOUBLEV)
+FCALLSCSUB2 (zaxisInqVct, ZAXISINQVCT, zaxisinqvct, INT, DOUBLEV)
+FCALLSCFUN1 (INT, zaxisInqVctSize, ZAXISINQVCTSIZE, zaxisinqvctsize, INT)
+FCALLSCSUB2 (zaxisDefLbounds, ZAXISDEFLBOUNDS, zaxisdeflbounds, INT, DOUBLEV)
+FCALLSCFUN2 (INT, zaxisInqLbounds, ZAXISINQLBOUNDS, zaxisinqlbounds, INT, DOUBLEV)
+FCALLSCFUN2 (DOUBLE, zaxisInqLbound, ZAXISINQLBOUND, zaxisinqlbound, INT, INT)
+FCALLSCSUB2 (zaxisDefUbounds, ZAXISDEFUBOUNDS, zaxisdefubounds, INT, DOUBLEV)
+FCALLSCFUN2 (INT, zaxisInqUbounds, ZAXISINQUBOUNDS, zaxisinqubounds, INT, DOUBLEV)
+FCALLSCFUN2 (DOUBLE, zaxisInqUbound, ZAXISINQUBOUND, zaxisinqubound, INT, INT)
+FCALLSCSUB2 (zaxisDefWeights, ZAXISDEFWEIGHTS, zaxisdefweights, INT, DOUBLEV)
+FCALLSCFUN2 (INT, zaxisInqWeights, ZAXISINQWEIGHTS, zaxisinqweights, INT, DOUBLEV)
+FCALLSCSUB2 (zaxisChangeType, ZAXISCHANGETYPE, zaxischangetype, INT, INT)
+
+/* TAXIS routines */
+
+FCALLSCFUN1 (INT, taxisCreate, TAXISCREATE, taxiscreate, INT)
+FCALLSCSUB1 (taxisDestroy, TAXISDESTROY, taxisdestroy, INT)
+FCALLSCFUN1 (INT, taxisDuplicate, TAXISDUPLICATE, taxisduplicate, INT)
+FCALLSCSUB2 (taxisCopyTimestep, TAXISCOPYTIMESTEP, taxiscopytimestep, INT, INT)
+FCALLSCSUB2 (taxisDefType, TAXISDEFTYPE, taxisdeftype, INT, INT)
+FCALLSCFUN1 (INT, taxisInqType, TAXISINQTYPE, taxisinqtype, INT)
+FCALLSCSUB2 (taxisDefVdate, TAXISDEFVDATE, taxisdefvdate, INT, INT)
+FCALLSCSUB2 (taxisDefVtime, TAXISDEFVTIME, taxisdefvtime, INT, INT)
+FCALLSCFUN1 (INT, taxisInqVdate, TAXISINQVDATE, taxisinqvdate, INT)
+FCALLSCFUN1 (INT, taxisInqVtime, TAXISINQVTIME, taxisinqvtime, INT)
+FCALLSCSUB2 (taxisDefRdate, TAXISDEFRDATE, taxisdefrdate, INT, INT)
+FCALLSCSUB2 (taxisDefRtime, TAXISDEFRTIME, taxisdefrtime, INT, INT)
+FCALLSCFUN1 (INT, taxisInqRdate, TAXISINQRDATE, taxisinqrdate, INT)
+FCALLSCFUN1 (INT, taxisInqRtime, TAXISINQRTIME, taxisinqrtime, INT)
+FCALLSCFUN1 (INT, taxisHasBounds, TAXISHASBOUNDS, taxishasbounds, INT)
+FCALLSCSUB1 (taxisWithBounds, TAXISWITHBOUNDS, taxiswithbounds, INT)
+FCALLSCSUB1 (taxisDeleteBounds, TAXISDELETEBOUNDS, taxisdeletebounds, INT)
+FCALLSCSUB3 (taxisDefVdateBounds, TAXISDEFVDATEBOUNDS, taxisdefvdatebounds, INT, INT, INT)
+FCALLSCSUB3 (taxisDefVtimeBounds, TAXISDEFVTIMEBOUNDS, taxisdefvtimebounds, INT, INT, INT)
+FCALLSCSUB3 (taxisInqVdateBounds, TAXISINQVDATEBOUNDS, taxisinqvdatebounds, INT, PINT, PINT)
+FCALLSCSUB3 (taxisInqVtimeBounds, TAXISINQVTIMEBOUNDS, taxisinqvtimebounds, INT, PINT, PINT)
+FCALLSCSUB2 (taxisDefCalendar, TAXISDEFCALENDAR, taxisdefcalendar, INT, INT)
+FCALLSCFUN1 (INT, taxisInqCalendar, TAXISINQCALENDAR, taxisinqcalendar, INT)
+FCALLSCSUB2 (taxisDefTunit, TAXISDEFTUNIT, taxisdeftunit, INT, INT)
+FCALLSCFUN1 (INT, taxisInqTunit, TAXISINQTUNIT, taxisinqtunit, INT)
+FCALLSCSUB2 (taxisDefForecastTunit, TAXISDEFFORECASTTUNIT, taxisdefforecasttunit, INT, INT)
+FCALLSCFUN1 (INT, taxisInqForecastTunit, TAXISINQFORECASTTUNIT, taxisinqforecasttunit, INT)
+FCALLSCSUB2 (taxisDefForecastPeriod, TAXISDEFFORECASTPERIOD, taxisdefforecastperiod, INT, DOUBLE)
+FCALLSCFUN1 (DOUBLE, taxisInqForecastPeriod, TAXISINQFORECASTPERIOD, taxisinqforecastperiod, INT)
+FCALLSCSUB2 (taxisDefNumavg, TAXISDEFNUMAVG, taxisdefnumavg, INT, INT)
+FCALLSCFUN1 (INT, taxisInqNumavg, TAXISINQNUMAVG, taxisinqnumavg, INT)
+FCALLSCFUN1 (STRING, taxisNamePtr, TAXISNAMEPTR, taxisnameptr, INT)
+FCALLSCFUN1 (STRING, tunitNamePtr, TUNITNAMEPTR, tunitnameptr, INT)
+
+/* Institut routines */
+
+FCALLSCFUN4 (INT, institutDef, INSTITUTDEF, institutdef, INT, INT, STRING, STRING)
+FCALLSCFUN4 (INT, institutInq, INSTITUTINQ, institutinq, INT, INT, STRING, STRING)
+FCALLSCFUN0 (INT, institutInqNumber, INSTITUTINQNUMBER, institutinqnumber)
+FCALLSCFUN1 (INT, institutInqCenter, INSTITUTINQCENTER, institutinqcenter, INT)
+FCALLSCFUN1 (INT, institutInqSubcenter, INSTITUTINQSUBCENTER, institutinqsubcenter, INT)
+FCALLSCFUN1 (STRING, institutInqNamePtr, INSTITUTINQNAMEPTR, institutinqnameptr, INT)
+FCALLSCFUN1 (STRING, institutInqLongnamePtr, INSTITUTINQLONGNAMEPTR, institutinqlongnameptr, INT)
+
+/* Model routines */
+
+FCALLSCFUN3 (INT, modelDef, MODELDEF, modeldef, INT, INT, STRING)
+FCALLSCFUN3 (INT, modelInq, MODELINQ, modelinq, INT, INT, STRING)
+FCALLSCFUN1 (INT, modelInqInstitut, MODELINQINSTITUT, modelinqinstitut, INT)
+FCALLSCFUN1 (INT, modelInqGribID, MODELINQGRIBID, modelinqgribid, INT)
+FCALLSCFUN1 (STRING, modelInqNamePtr, MODELINQNAMEPTR, modelinqnameptr, INT)
+
+/* Table routines */
+
+FCALLSCSUB2 (tableWrite, TABLEWRITE, tablewrite, STRING, INT)
+FCALLSCFUN1 (INT, tableRead, TABLEREAD, tableread, STRING)
+FCALLSCFUN3 (INT, tableDef, TABLEDEF, tabledef, INT, INT, STRING)
+FCALLSCFUN1 (STRING, tableInqNamePtr, TABLEINQNAMEPTR, tableinqnameptr, INT)
+FCALLSCFUN3 (INT, tableInq, TABLEINQ, tableinq, INT, INT, STRING)
+FCALLSCFUN0 (INT, tableInqNumber, TABLEINQNUMBER, tableinqnumber)
+FCALLSCFUN1 (INT, tableInqNum, TABLEINQNUM, tableinqnum, INT)
+FCALLSCFUN1 (INT, tableInqModel, TABLEINQMODEL, tableinqmodel, INT)
+FCALLSCSUB6 (tableInqEntry, TABLEINQENTRY, tableinqentry, INT, INT, INT, PSTRING, PSTRING, PSTRING)
+
+/* Subtype routines */
+
+FCALLSCFUN1 (INT, subtypeCreate, SUBTYPECREATE, subtypecreate, INT)
+
+/* Gives a textual summary of the variable subtype */
+
+FCALLSCSUB1 (subtypePrint, SUBTYPEPRINT, subtypeprint, INT)
+
+/* Compares two subtype data structures */
+
+FCALLSCFUN2 (INT, subtypeCompare, SUBTYPECOMPARE, subtypecompare, INT, INT)
+FCALLSCFUN1 (INT, subtypeInqSize, SUBTYPEINQSIZE, subtypeinqsize, INT)
+FCALLSCFUN1 (INT, subtypeInqActiveIndex, SUBTYPEINQACTIVEINDEX, subtypeinqactiveindex, INT)
+FCALLSCSUB2 (subtypeDefActiveIndex, SUBTYPEDEFACTIVEINDEX, subtypedefactiveindex, INT, INT)
+
+/* Generate a "query object" out of a key-value pair */
+
+
+/* Generate an AND-combined "query object" out of two previous query objects */
+
+FCALLSCFUN3 (INT, subtypeInqTile, SUBTYPEINQTILE, subtypeinqtile, INT, INT, INT)
+FCALLSCFUN4 (INT, subtypeInqAttribute, SUBTYPEINQATTRIBUTE, subtypeinqattribute, INT, INT, STRING, PINT)
+FCALLSCFUN2 (INT, vlistInqVarSubtype, VLISTINQVARSUBTYPE, vlistinqvarsubtype, INT, INT)
+FCALLSCSUB3 (gribapiLibraryVersion, GRIBAPILIBRARYVERSION, gribapilibraryversion, PINT, PINT, PINT)
+
+/* Compatibility functions for release 1.8.3 (obsolete functions) */
+
+FCALLSCSUB2 (zaxisDefLtype, ZAXISDEFLTYPE, zaxisdefltype, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarTypeOfGeneratingProcess, VLISTINQVARTYPEOFGENERATINGPROCESS, vlistinqvartypeofgeneratingprocess, INT, INT)
+FCALLSCSUB3 (vlistDefVarTypeOfGeneratingProcess, VLISTDEFVARTYPEOFGENERATINGPROCESS, vlistdefvartypeofgeneratingprocess, INT, INT, INT)
+FCALLSCSUB3 (vlistDefVarProductDefinitionTemplate, VLISTDEFVARPRODUCTDEFINITIONTEMPLATE, vlistdefvarproductdefinitiontemplate, INT, INT, INT)
+
+/* End of fortran interface */
+
+
+#if defined __clang__
+# pragma GCC diagnostic pop
+#endif
+
+// clang-format on
+
+#endif
diff --git a/src/cdilib.c b/src/cdilib.c
new file mode 100644
index 000000000..5355c07dd
--- /dev/null
+++ b/src/cdilib.c
@@ -0,0 +1,75789 @@
+
+/* Automatically generated by m300488 at 2024-04-08, do not edit */
+
+/* CDILIB_VERSION="2.4.0" */
+
+#if defined(_WIN32) || defined(_WIN64)
+#define restrict
+#define ssize_t long
+#else
+#define HAVE_UNISTD_H
+#endif
+
+#ifdef _ARCH_PWR6
+#pragma options nostrict
+#endif
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#ifndef _XOPEN_SOURCE
+#define _XOPEN_SOURCE 600
+#endif
+
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <ctype.h>
+#include <limits.h>
+#include <float.h>
+#include <math.h>
+#include <errno.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <stdbool.h>
+#include <assert.h>
+
+#ifdef HAVE_LIBGRIB_API
+#include <grib_api.h>
+#endif
+
+#ifdef HAVE_MMAP
+#include <sys/mman.h> /* mmap() is defined in this header */
+#endif
+
+#ifdef HAVE_LIBPTHREAD
+#include <pthread.h>
+#endif
+
+#ifdef HAVE_LIBSZ
+#include <szlib.h>
+#endif
+
+#ifndef HAVE_CONFIG_H
+#define HAVE_LIBGRIB 1
+#define HAVE_LIBCGRIBEX 1
+#define HAVE_LIBSERVICE 1
+#define HAVE_LIBEXTRA 1
+#define HAVE_LIBIEG 1
+#define CDI -1
+#endif
+
+#ifndef ASYNC_WORKER_H
+#define ASYNC_WORKER_H
+
+typedef struct AsyncJob AsyncJob;
+typedef struct AsyncManager AsyncManager;
+
+// a negative threadCount gives the number of cores that should remain unused by the worker threads, returns an error code
+int AsyncWorker_init(AsyncManager **jobManager, int threadCount);
+
+// executes work(data) in a worker thread, must be followed by a call to AsyncWorker_wait()
+AsyncJob *AsyncWorker_requestWork(AsyncManager *jobManager, int (*work)(void *data), void *data);
+
+// waits for the async job to finish and returns its result (or some other error code)
+int AsyncWorker_wait(AsyncManager *jobManager, AsyncJob *job);
+
+// return the number of workers that are currently idle
+int AsyncWorker_availableWorkers(AsyncManager *jobManager);
+
+// waits for all pending jobs to finish, stops all workers, returns a non-zero error code from a pending job if there were any
+int AsyncWorker_finalize(AsyncManager *jobManager);
+
+#endif
+#ifndef CDI_DATETIME_H
+#define CDI_DATETIME_H
+
+#include <stdbool.h>
+#include <stdint.h>
+
+// clang-format off
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef struct
+{
+ int year; // year of date
+ short month; // month of date
+ short day; // day of date
+} CdiDate;
+
+typedef struct
+{
+ short hour; // hour part of time
+ short minute; // minute part of time
+ short second; // second part of time
+ short ms; // milli-second part of time. 0<=ms<=999
+} CdiTime;
+
+typedef struct
+{
+ CdiDate date; // date elements
+ CdiTime time; // time elements
+} CdiDateTime;
+
+CdiDateTime cdiDateTime_set(int64_t date, int time);
+CdiDate cdiDate_set(int64_t date);
+CdiTime cdiTime_set(int time);
+int64_t cdiDate_get(CdiDate cdiDate);
+int cdiTime_get(CdiTime cdiTime);
+
+CdiDate cdiDate_encode(int year, int month, int day);
+void cdiDate_decode(CdiDate cdiDate, int *year, int *month, int *day);
+CdiTime cdiTime_encode(int hour, int minute, int second, int ms);
+void cdiTime_decode(CdiTime cdiTime, int *hour, int *minute, int *second, int *ms);
+
+void cdiDate_init(CdiDate *cdiDate);
+void cdiTime_init(CdiTime *cdiTime);
+void cdiDateTime_init(CdiDateTime *cdiDateTime);
+
+bool cdiDate_isEQ(CdiDate cdiDate1, CdiDate cdiDate2);
+bool cdiTime_isEQ(CdiTime cdiTime1, CdiTime cdiTime2);
+bool cdiDateTime_isEQ(CdiDateTime cdiDateTime1, CdiDateTime cdiDateTime2);
+bool cdiDateTime_isNE(CdiDateTime cdiDateTime1, CdiDateTime cdiDateTime2);
+bool cdiDateTime_isLT(CdiDateTime cdiDateTime1, CdiDateTime cdiDateTime2);
+bool cdiDateTime_isNull(CdiDateTime cdiDateTime);
+
+const char *CdiDateTime_string(CdiDateTime cdiDateTime);
+
+#ifdef __cplusplus
+}
+#endif
+
+// clang-format on
+
+#endif /* CDI_DATETIME_H */
+/*
+ CDI C header file
+
+ This is the only file that must be included to use the CDI library from C.
+*/
+
+#ifndef CDI_H_
+#define CDI_H_
+
+// clang-format off
+
+#include <stdio.h>
+#include <stdint.h> // int64_t
+#include <stdbool.h>
+#include <sys/types.h>
+
+#ifndef CDI_SIZE_TYPE
+#define CDI_SIZE_TYPE int
+#endif
+
+typedef CDI_SIZE_TYPE SizeType;
+
+//FINT_ON <--- don't change or remove this line!!!
+// Start of fortran interface for the following routines (make_fint.c)
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define CDI_MAX_NAME 256 // Max length of a name
+
+#define CDI_UNDEFID -1
+#define CDI_GLOBAL -1 // Global var ID for vlist and Z-axis
+#define CDI_XAXIS 1 // X-axis ID for grid
+#define CDI_YAXIS 2 // Y-axis ID for grid
+
+// Byte order
+
+#define CDI_BIGENDIAN 0 // Byte order BIGENDIAN
+#define CDI_LITTLEENDIAN 1 // Byte order LITTLEENDIAN
+#define CDI_PDPENDIAN 2
+
+#define CDI_REAL 1 // Real numbers
+#define CDI_COMP 2 // Complex numbers
+#define CDI_BOTH 3 // Both numbers
+
+// Error identifier
+
+#define CDI_NOERR 0 // No Error
+#define CDI_EEOF -1 // The end of file was encountered
+#define CDI_ETMOF -9 // Too many open files
+#define CDI_ESYSTEM -10 // Operating system error
+#define CDI_EINVAL -20 // Invalid argument
+#define CDI_EISDIR -21 // Is a directory
+#define CDI_EISEMPTY -22 // Is empty
+#define CDI_EUFTYPE -23 // Unsupported file type
+#define CDI_ELIBNAVAIL -24 // xxx library not available
+#define CDI_EUFSTRUCT -25 // Unsupported file structure
+#define CDI_EUNC4 -26 // Unsupported NetCDF4 structure
+#define CDI_EDIMSIZE -27 // Invalid dimension size
+#define CDI_EQENF -50 // Query entries not found
+#define CDI_EQNAVAIL -51 // Query not available for file type
+#define CDI_ELIMIT -99 // Internal limits exceeded
+
+// File types
+
+#define CDI_FILETYPE_GRB 1 // File type GRIB
+#define CDI_FILETYPE_GRB2 2 // File type GRIB version 2
+#define CDI_FILETYPE_NC 3 // File type NetCDF
+#define CDI_FILETYPE_NC2 4 // File type NetCDF version 2 (64-bit offset)
+#define CDI_FILETYPE_NC4 5 // File type NetCDF version 4
+#define CDI_FILETYPE_NC4C 6 // File type NetCDF version 4 (classic)
+#define CDI_FILETYPE_NC5 7 // File type NetCDF version 5 (64-bit data)
+#define CDI_FILETYPE_SRV 8 // File type SERVICE
+#define CDI_FILETYPE_EXT 9 // File type EXTRA
+#define CDI_FILETYPE_IEG 10 // File type IEG
+#define CDI_FILETYPE_NCZARR 11 // File type NetCDF NCZarr Data Model
+
+// Compatibility defines for release 1.8.3 (obsolete defines)
+#define FILETYPE_GRB 1 // File type GRIB
+#define FILETYPE_GRB2 2 // File type GRIB version 2
+#define FILETYPE_NC 3 // File type NetCDF
+#define FILETYPE_NC2 4 // File type NetCDF version 2 (64-bit offset)
+#define FILETYPE_NC4 5 // File type NetCDF version 4
+
+// Protocols (in filename/URI)
+
+#define CDI_PROTOCOL_OTHER 0 // Any other protocol (might be supported by NetCDF library)
+#define CDI_PROTOCOL_FILE 1
+#define CDI_PROTOCOL_FDB 2
+#define CDI_PROTOCOL_ACROSS 3
+
+// Compress types
+
+#define CDI_COMPRESS_NONE 0
+#define CDI_COMPRESS_SZIP 1
+#define CDI_COMPRESS_AEC 2
+#define CDI_COMPRESS_ZIP 3
+#define CDI_COMPRESS_JPEG 4
+#define CDI_COMPRESS_FILTER 5
+
+// external data types
+
+// Compatibility defines for release 1.8.3 (obsolete defines)
+#define DATATYPE_PACK16 16
+#define DATATYPE_PACK24 24
+#define DATATYPE_FLT32 132
+#define DATATYPE_FLT64 164
+#define DATATYPE_INT32 232
+#define DATATYPE_INT 251
+
+#define CDI_DATATYPE_PACK 0
+#define CDI_DATATYPE_PACK1 1
+#define CDI_DATATYPE_PACK2 2
+#define CDI_DATATYPE_PACK3 3
+#define CDI_DATATYPE_PACK4 4
+#define CDI_DATATYPE_PACK5 5
+#define CDI_DATATYPE_PACK6 6
+#define CDI_DATATYPE_PACK7 7
+#define CDI_DATATYPE_PACK8 8
+#define CDI_DATATYPE_PACK9 9
+#define CDI_DATATYPE_PACK10 10
+#define CDI_DATATYPE_PACK11 11
+#define CDI_DATATYPE_PACK12 12
+#define CDI_DATATYPE_PACK13 13
+#define CDI_DATATYPE_PACK14 14
+#define CDI_DATATYPE_PACK15 15
+#define CDI_DATATYPE_PACK16 16
+#define CDI_DATATYPE_PACK17 17
+#define CDI_DATATYPE_PACK18 18
+#define CDI_DATATYPE_PACK19 19
+#define CDI_DATATYPE_PACK20 20
+#define CDI_DATATYPE_PACK21 21
+#define CDI_DATATYPE_PACK22 22
+#define CDI_DATATYPE_PACK23 23
+#define CDI_DATATYPE_PACK24 24
+#define CDI_DATATYPE_PACK25 25
+#define CDI_DATATYPE_PACK26 26
+#define CDI_DATATYPE_PACK27 27
+#define CDI_DATATYPE_PACK28 28
+#define CDI_DATATYPE_PACK29 29
+#define CDI_DATATYPE_PACK30 30
+#define CDI_DATATYPE_PACK31 31
+#define CDI_DATATYPE_PACK32 32
+#define CDI_DATATYPE_CPX32 64
+#define CDI_DATATYPE_CPX64 128
+#define CDI_DATATYPE_FLT32 132
+#define CDI_DATATYPE_FLT64 164
+#define CDI_DATATYPE_INT8 208
+#define CDI_DATATYPE_INT16 216
+#define CDI_DATATYPE_INT32 232
+#define CDI_DATATYPE_UINT8 308
+#define CDI_DATATYPE_UINT16 316
+#define CDI_DATATYPE_UINT32 332
+
+// internal data types
+#define CDI_DATATYPE_INT 251
+#define CDI_DATATYPE_FLT 252
+#define CDI_DATATYPE_TXT 253
+#define CDI_DATATYPE_CPX 254
+#define CDI_DATATYPE_UCHAR 255
+#define CDI_DATATYPE_LONG 256
+#define CDI_DATATYPE_UINT 257
+
+// Chunk types
+
+#define CDI_CHUNK_AUTO 1 // use default chunk size
+#define CDI_CHUNK_GRID 2
+#define CDI_CHUNK_LINES 3
+
+// GRID types
+
+#define GRID_GENERIC 1 // Generic grid
+#define GRID_GAUSSIAN 2 // Regular Gaussian lon/lat grid
+#define GRID_GAUSSIAN_REDUCED 3 // Reduced Gaussian lon/lat grid
+#define GRID_LONLAT 4 // Regular longitude/latitude grid
+#define GRID_SPECTRAL 5 // Spherical harmonic coefficients (spectral gaussian)
+#define GRID_FOURIER 6 // Fourier coefficients (spectral gaussian)
+#define GRID_GME 7 // Icosahedral-hexagonal GME grid
+#define GRID_TRAJECTORY 8 // Trajectory
+#define GRID_UNSTRUCTURED 9 // General unstructured grid
+#define GRID_CURVILINEAR 10 // Curvilinear grid
+#define GRID_PROJECTION 12 // Projected coordinates
+#define GRID_CHARXY 13 // One horizontal character dimension
+
+#define CDI_PROJ_RLL 21 // Rotated Latitude Longitude
+#define CDI_PROJ_LCC 22 // Lambert Conformal Conic
+#define CDI_PROJ_LAEA 23 // Lambert Azimuthal Equal Area
+#define CDI_PROJ_SINU 24 // Sinusoidal
+#define CDI_PROJ_STERE 25 // Polar stereographic
+#define CDI_PROJ_HEALPIX 26 // Healpix
+
+// ZAXIS types
+
+#define ZAXIS_SURFACE 0 // Surface level
+#define ZAXIS_GENERIC 1 // Generic level
+#define ZAXIS_HYBRID 2 // Hybrid level
+#define ZAXIS_HYBRID_HALF 3 // Hybrid half level
+#define ZAXIS_PRESSURE 4 // Isobaric pressure level in Pascal
+#define ZAXIS_HEIGHT 5 // Height above ground
+#define ZAXIS_DEPTH_BELOW_SEA 6 // Depth below sea level in meters
+#define ZAXIS_DEPTH_BELOW_LAND 7 // Depth below land surface in centimeters
+#define ZAXIS_ISENTROPIC 8 // Isentropic
+#define ZAXIS_TRAJECTORY 9 // Trajectory
+#define ZAXIS_ALTITUDE 10 // Altitude above mean sea level in meters
+#define ZAXIS_SIGMA 11 // Sigma level
+#define ZAXIS_MEANSEA 12 // Mean sea level
+#define ZAXIS_TOA 13 // Norminal top of atmosphere
+#define ZAXIS_SEA_BOTTOM 14 // Sea bottom
+#define ZAXIS_ATMOSPHERE 15 // Entire atmosphere
+#define ZAXIS_CLOUD_BASE 16 // Cloud base level
+#define ZAXIS_CLOUD_TOP 17 // Level of cloud tops
+#define ZAXIS_ISOTHERM_ZERO 18 // Level of 0o C isotherm
+#define ZAXIS_SNOW 19 // Snow level
+#define ZAXIS_LAKE_BOTTOM 20 // Lake or River Bottom
+#define ZAXIS_SEDIMENT_BOTTOM 21 // Bottom Of Sediment Layer
+#define ZAXIS_SEDIMENT_BOTTOM_TA 22 // Bottom Of Thermally Active Sediment Layer
+#define ZAXIS_SEDIMENT_BOTTOM_TW 23 // Bottom Of Sediment Layer Penetrated By Thermal Wave
+#define ZAXIS_MIX_LAYER 24 // Mixing Layer
+#define ZAXIS_REFERENCE 25 // zaxis reference number
+#define ZAXIS_CHAR 26 // Area types
+#define ZAXIS_TROPOPAUSE 27 // Tropopause
+
+// SUBTYPE types
+
+enum {
+ SUBTYPE_TILES = 0 // Tiles variable
+};
+
+#define MAX_KV_PAIRS_MATCH 10
+
+/* Data structure defining a key-value search, possibly with multiple
+ key-value pairs in combination.
+
+ Currently, only multiple pairs combined by AND are supported.
+*/
+typedef struct {
+ int nAND; // no. of key-value pairs that have to match
+ int key_value_pairs[2][MAX_KV_PAIRS_MATCH]; // key-value pairs
+} subtype_query_t;
+
+
+
+// TIME types
+
+#define TIME_CONSTANT 0 // Time constant
+#define TIME_VARYING 1 // Time varying
+#define TIME_VARIABLE 1 // obsolete, use TIME_VARYING
+
+// TSTEP types
+
+#define TSTEP_CONSTANT 0 // obsolete, use TIME_CONSTANT
+#define TSTEP_INSTANT 1 // Instant
+#define TSTEP_AVG 2 // Average
+#define TSTEP_ACCUM 3 // Accumulation
+#define TSTEP_MAX 4 // Maximum
+#define TSTEP_MIN 5 // Minimum
+#define TSTEP_DIFF 6 // Difference
+#define TSTEP_RMS 7 // Root mean square
+#define TSTEP_SD 8 // Standard deviation
+#define TSTEP_COV 9 // Covariance
+#define TSTEP_RATIO 10 // Ratio
+#define TSTEP_SUM 11 // Summation
+#define TSTEP_RANGE 12
+#define TSTEP_INSTANT2 13
+#define TSTEP_INSTANT3 14
+
+// TAXIS types
+
+#define TAXIS_ABSOLUTE 1
+#define TAXIS_RELATIVE 2
+#define TAXIS_FORECAST 3
+
+// TUNIT types
+
+#define TUNIT_SECOND 1
+#define TUNIT_MINUTE 2
+#define TUNIT_QUARTER 3
+#define TUNIT_30MINUTES 4
+#define TUNIT_HOUR 5
+#define TUNIT_3HOURS 6
+#define TUNIT_6HOURS 7
+#define TUNIT_12HOURS 8
+#define TUNIT_DAY 9
+#define TUNIT_MONTH 10
+#define TUNIT_YEAR 11
+
+// CALENDAR types
+
+#define CALENDAR_STANDARD 0 // don't change this value (used also in cgribexlib)!
+#define CALENDAR_GREGORIAN 1
+#define CALENDAR_PROLEPTIC 2
+#define CALENDAR_360DAYS 3
+#define CALENDAR_365DAYS 4
+#define CALENDAR_366DAYS 5
+#define CALENDAR_NONE 6
+
+// number of unsigned char needed to store UUID
+#define CDI_UUID_SIZE 16
+
+// Structs that are used to return data to the user
+
+typedef struct CdiParam { int discipline; int category; int number; } CdiParam;
+
+
+// Opaque types
+typedef struct CdiIterator CdiIterator;
+typedef struct CdiGribIterator CdiGribIterator;
+
+// CDI control routines
+
+void cdiReset(void);
+
+const char *cdiStringError(int cdiErrno);
+void cdiDebug(int debug);
+
+const char *cdiLibraryVersion(void);
+void cdiPrintVersion(void);
+
+int cdiHaveFiletype(int filetype);
+
+void cdiDefMissval(double missval);
+double cdiInqMissval(void);
+void cdiDefGlobal(const char *string, int val);
+
+int namespaceNew(void);
+void namespaceSetActive(int namespaceID);
+int namespaceGetActive(void);
+void namespaceDelete(int namespaceID);
+
+
+// CDI converter routines
+
+// parameter
+
+void cdiParamToString(int param, char *paramstr, int maxlen);
+
+void cdiDecodeParam(int param, int *pnum, int *pcat, int *pdis);
+int cdiEncodeParam(int pnum, int pcat, int pdis);
+
+// date format: YYYYMMDD
+// time format: hhmmss
+
+void cdiDecodeDate(int date, int *year, int *month, int *day);
+int cdiEncodeDate(int year, int month, int day);
+
+void cdiDecodeTime(int time, int *hour, int *minute, int *second);
+int cdiEncodeTime(int hour, int minute, int second);
+
+
+// STREAM control routines
+
+int cdiGetFiletype(const char *uri, int *byteorder);
+int cdiGetProtocol(const char *uri, const char **filename);
+
+// streamOpenRead: Open a dataset for reading
+int streamOpenRead(const char *path);
+
+// streamOpenWrite: Create a new dataset
+int streamOpenWrite(const char *path, int filetype);
+
+int streamOpenAppend(const char *path);
+
+// streamClose: Close an open dataset
+void streamClose(int streamID);
+
+// streamSync: Synchronize an Open Dataset to Disk
+void streamSync(int streamID);
+
+void streamDefMaxSteps(int streamID, int maxSteps);
+void streamDefNumWorker(int streamID, int numWorker);
+
+int streamInqNumSteps(int streamID);
+
+// streamDefVlist: Define the Vlist for a stream
+void streamDefVlist(int streamID, int vlistID);
+
+// streamInqVlist: Get the Vlist of a stream
+int streamInqVlist(int streamID);
+
+// streamInqFiletype: Get the filetype
+int streamInqFiletype(int streamID);
+
+// streamDefByteorder: Define the byteorder
+void streamDefByteorder(int streamID, int byteorder);
+
+// streamInqByteorder: Get the byteorder
+int streamInqByteorder(int streamID);
+
+void streamDefShuffle(int streamID, int shuffle);
+
+void streamDefFilter(int streamID, int filterId, int nparams, const int *params);
+
+// streamDefCompType: Define compression type
+void streamDefCompType(int streamID, int comptype);
+
+// streamInqCompType: Get compression type
+int streamInqCompType(int streamID);
+
+// streamDefCompLevel: Define compression level
+void streamDefCompLevel(int streamID, int complevel);
+
+// streamInqCompLevel: Get compression level
+int streamInqCompLevel(int streamID);
+
+// streamDefTimestep: Define time step
+int streamDefTimestep(int streamID, int tsID);
+
+// streamInqTimestep: Get time step
+int streamInqTimestep(int streamID, int tsID);
+
+// PIO: query currently set timestep id
+int streamInqCurTimestepID(int streamID);
+
+const char *streamFilename(int streamID);
+const char *streamFilesuffix(int filetype);
+
+SizeType streamNvals(int streamID);
+
+int streamInqNvars(int streamID);
+
+// STREAM var I/O routines (random access)
+
+// streamWriteVar: Write a variable
+void streamWriteVar(int streamID, int varID, const double data[], SizeType numMissVals);
+void streamWriteVarF(int streamID, int varID, const float data[], SizeType numMissVals);
+
+// streamReadVar: Read a variable
+void streamReadVar(int streamID, int varID, double data[], SizeType *numMissVals);
+void streamReadVarF(int streamID, int varID, float data[], SizeType *numMissVals);
+void streamReadVarPart(int streamID, int varID, int varType, int start, SizeType size, void *data, SizeType *numMissVals, int memtype);
+
+// streamWriteVarSlice: Write a horizontal slice of a variable
+void streamWriteVarSlice(int streamID, int varID, int levelID, const double data[], SizeType numMissVals);
+void streamWriteVarSliceF(int streamID, int varID, int levelID, const float data[], SizeType numMissVals);
+void streamReadVarSlicePart(int streamID, int varID, int levelID, int varType, int start, SizeType size, void *data, SizeType *numMissVals, int memtype);
+
+// streamReadVarSlice: Read a horizontal slice of a variable
+void streamReadVarSlice(int streamID, int varID, int levelID, double data[], SizeType *numMissVals);
+void streamReadVarSliceF(int streamID, int varID, int levelID, float data[], SizeType *numMissVals);
+
+void streamWriteVarChunk(int streamID, int varID, const int rect[][2], const double data[], SizeType numMissVals);
+void streamWriteVarChunkF(int streamID, int varID, const int rect[][2], const float data[], SizeType numMissVals);
+
+
+// STREAM record I/O routines (sequential access)
+
+void streamDefRecord(int streamID, int varID, int levelID);
+void streamInqRecord(int streamID, int *varID, int *levelID);
+void streamWriteRecord(int streamID, const double data[], SizeType numMissVals);
+void streamWriteRecordF(int streamID, const float data[], SizeType numMissVals);
+void streamReadRecord(int streamID, double data[], SizeType *numMissVals);
+void streamReadRecordF(int streamID, float data[], SizeType *numMissVals);
+void streamCopyRecord(int streamIDdest, int streamIDsrc);
+
+void streamInqGRIBinfo(int streamID, int *intnum, float *fltnum, off_t *bignum);
+
+
+// File driven I/O (may yield better performance than using the streamXXX functions)
+
+// Creation & Destruction
+CdiIterator *cdiIterator_new(const char *path); // Requires a subsequent call to cdiIteratorNextField() to point the iterator at the first field.
+CdiIterator *cdiIterator_clone(CdiIterator *me);
+char *cdiIterator_serialize(CdiIterator *me); // Returns a malloc'ed string.
+CdiIterator *cdiIterator_deserialize(const char *description); // description is a string that was returned by cdiIteratorSerialize(). Returns a copy of the original iterator.
+void cdiIterator_print(CdiIterator *me, FILE *stream);
+void cdiIterator_delete(CdiIterator *me);
+
+// Advancing an iterator
+int cdiIterator_nextField(CdiIterator *me); // Points the iterator at the next field, returns CDI_EEOF if there are no more fields in the file.
+
+// Introspecting metadata
+// All outXXX arguments to these functions may be NULL.
+char *cdiIterator_inqStartTime(CdiIterator *me); // Returns the (start) time as an ISO-8601 coded string. The caller is responsible to Free() the returned string.
+char *cdiIterator_inqEndTime(CdiIterator *me); // Returns the end time of an integration period as an ISO-8601 coded string, or NULL if there is no end time. The caller is responsible to Free() the returned string.
+char *cdiIterator_inqRTime(CdiIterator *me); // Returns the reference date as an ISO-8601 coded string. The caller is responsible to Free() the returned string.
+char *cdiIterator_inqVTime(CdiIterator *me); // Returns the validity date as an ISO-8601 coded string. The caller is responsible to Free() the returned string.
+int cdiIterator_inqLevelType(CdiIterator *me, int levelSelector, char **outName_optional, char **outLongName_optional, char **outStdName_optional, char **outUnit_optional); // callers are responsible to Free() strings that they request
+int cdiIterator_inqLevel(CdiIterator *me, int levelSelector, double *outValue1_optional, double *outValue2_optional); // outValue2 is only written to if the level is a hybrid level
+int cdiIterator_inqLevelUuid(CdiIterator *me, int *outVgridNumber_optional, int *outLevelCount_optional, unsigned char outUuid_optional[CDI_UUID_SIZE]); // outUuid must point to a buffer of 16 bytes, returns an error code if no generalized zaxis is used.
+int cdiIterator_inqTile(CdiIterator *me, int *outTileIndex, int *outTileAttribute); // Returns CDI_EINVAL if there is no tile information connected to the current field, *outTileIndex and *outTileAttribute will be set to -1 in this case.
+int cdiIterator_inqTileCount(CdiIterator *me, int *outTileCount, int *outTileAttributeCount); // outTileAttributeCount is the count for the tile associated with the current field, a total attribute count cannot be inquired. Returns CDI_EINVAL if there is no tile information connected to the current field, *outTileCount and *outTileAttributeCount will be set to 0 in this case.
+CdiParam cdiIterator_inqParam(CdiIterator *me);
+void cdiIterator_inqParamParts(CdiIterator *me, int *outDiscipline, int *outCategory, int *outNumber); // Some FORTRAN compilers produce wrong code for the cdiIterator_inqParam()-wrapper, rendering it unusable from FORTRAN. This function is the workaround.
+int cdiIterator_inqDatatype(CdiIterator *me);
+int cdiIterator_inqFiletype(CdiIterator *me);
+int cdiIterator_inqTsteptype(CdiIterator *me);
+char *cdiIterator_inqVariableName(CdiIterator *me); // The caller is responsible to Free() the returned buffer.
+int cdiIterator_inqGridId(CdiIterator *me); // The returned id is only valid until the next call to cdiIteratorNextField().
+
+// Reading data
+void cdiIterator_readField(CdiIterator *me, double data[], SizeType *numMissVals_optional);
+void cdiIterator_readFieldF(CdiIterator *me, float data[], SizeType *numMissVals_optional);
+// TODO[NH]: Add functions to read partial fields.
+
+
+// Direct access to grib fields
+CdiGribIterator *cdiGribIterator_clone(CdiIterator *me); // Returns NULL if the associated file is not a GRIB file.
+void cdiGribIterator_delete(CdiGribIterator *me);
+
+// Callthroughs to GRIB-API
+int cdiGribIterator_getLong(CdiGribIterator *me, const char *key, long *value); // Same semantics as grib_get_long().
+int cdiGribIterator_getDouble(CdiGribIterator *me, const char *key, double *value); // Same semantics as grib_get_double().
+int cdiGribIterator_getLength(CdiGribIterator *me, const char *key, size_t *value); // Same semantics as grib_get_length().
+int cdiGribIterator_getString(CdiGribIterator *me, const char *key, char *value, size_t *length); // Same semantics as grib_get_string().
+int cdiGribIterator_getSize(CdiGribIterator *me, const char *key, size_t *value); // Same semantics as grib_get_size().
+int cdiGribIterator_getLongArray(CdiGribIterator *me, const char *key, long *value, size_t *array_size); // Same semantics as grib_get_long_array().
+int cdiGribIterator_getDoubleArray(CdiGribIterator *me, const char *key, double *value, size_t *array_size); // Same semantics as grib_get_double_array().
+
+// Convenience functions for accessing GRIB-API keys
+int cdiGribIterator_inqEdition(CdiGribIterator *me);
+long cdiGribIterator_inqLongValue(CdiGribIterator *me, const char *key); // Aborts on failure to fetch the given key.
+long cdiGribIterator_inqLongDefaultValue(CdiGribIterator *me, const char *key, long defaultValue); // Returns the default value if the given key is not present.
+double cdiGribIterator_inqDoubleValue(CdiGribIterator *me, const char *key); // Aborts on failure to fetch the given key.
+double cdiGribIterator_inqDoubleDefaultValue(CdiGribIterator *me, const char *key, double defaultValue); // Returns the default value if the given key is not present.
+char *cdiGribIterator_inqStringValue(CdiGribIterator *me, const char *key); // Returns a malloc'ed string.
+
+// VLIST routines
+
+// vlistCreate: Create a variable list
+int vlistCreate(void);
+
+// vlistDestroy: Destroy a variable list
+void vlistDestroy(int vlistID);
+
+// vlistDuplicate: Duplicate a variable list
+int vlistDuplicate(int vlistID);
+
+// vlistCopy: Copy a variable list
+void vlistCopy(int vlistID2, int vlistID1);
+
+// vlistCopyFlag: Copy some entries of a variable list
+void vlistCopyFlag(int vlistID2, int vlistID1);
+
+void vlistClearFlag(int vlistID);
+
+// vlistCat: Concatenate two variable lists
+void vlistCat(int vlistID2, int vlistID1);
+
+// vlistMerge: Merge two variable lists
+void vlistMerge(int vlistID2, int vlistID1);
+
+void vlistPrint(int vlistID);
+
+// vlistNumber: Number type in a variable list
+int vlistNumber(int vlistID);
+
+// vlistNvars: Number of variables in a variable list
+int vlistNvars(int vlistID);
+
+// vlistNgrids: Number of grids in a variable list
+int vlistNgrids(int vlistID);
+
+// vlistNzaxis: Number of zaxis in a variable list
+int vlistNzaxis(int vlistID);
+
+// vlistNsubtypes: Number of subtypes in a variable list
+int vlistNsubtypes(int vlistID);
+
+void vlistDefNtsteps(int vlistID, int nts);
+int vlistNtsteps(int vlistID);
+SizeType vlistGridsizeMax(int vlistID);
+int vlistGrid(int vlistID, int index);
+int vlistGridIndex(int vlistID, int gridID);
+void vlistChangeGridIndex(int vlistID, int index, int gridID);
+void vlistChangeGrid(int vlistID, int gridID1, int gridID2);
+int vlistZaxis(int vlistID, int index);
+int vlistZaxisIndex(int vlistID, int zaxisID);
+void vlistChangeZaxisIndex(int vlistID, int index, int zaxisID);
+void vlistChangeZaxis(int vlistID, int zaxisID1, int zaxisID2);
+int vlistNrecs(int vlistID);
+int vlistSubtype(int vlistID, int index);
+int vlistSubtypeIndex(int vlistID, int subtypeID);
+
+// vlistDefTaxis: Define the time axis of a variable list
+void vlistDefTaxis(int vlistID, int taxisID);
+
+// vlistInqTaxis: Get the time axis of a variable list
+int vlistInqTaxis(int vlistID);
+
+void vlistDefTable(int vlistID, int tableID);
+int vlistInqTable(int vlistID);
+void vlistDefInstitut(int vlistID, int instID);
+int vlistInqInstitut(int vlistID);
+void vlistDefModel(int vlistID, int modelID);
+int vlistInqModel(int vlistID);
+
+
+// VLIST VAR routines
+
+// vlistDefVarTiles: Create a new tile-based variable
+int vlistDefVarTiles(int vlistID, int gridID, int zaxisID, int timetype, int tilesetID);
+
+// vlistDefVar: Create a new variable
+int vlistDefVar(int vlistID, int gridID, int zaxisID, int timetype);
+
+void vlistChangeVarGrid(int vlistID, int varID, int gridID);
+void vlistChangeVarZaxis(int vlistID, int varID, int zaxisID);
+
+void vlistInqVar(int vlistID, int varID, int *gridID, int *zaxisID, int *timetype);
+int vlistInqVarGrid(int vlistID, int varID);
+int vlistInqVarZaxis(int vlistID, int varID);
+
+// used in MPIOM
+int vlistInqVarID(int vlistID, int code);
+
+void vlistDefVarTimetype(int vlistID, int varID, int timetype);
+int vlistInqVarTimetype(int vlistID, int varID);
+
+void vlistDefVarTsteptype(int vlistID, int varID, int tsteptype);
+
+// vlistInqVarTsteptype: Get the timestep type of a Variable
+int vlistInqVarTsteptype(int vlistID, int varID);
+
+void vlistDefVarCompType(int vlistID, int varID, int comptype);
+int vlistInqVarCompType(int vlistID, int varID);
+void vlistDefVarCompLevel(int vlistID, int varID, int complevel);
+int vlistInqVarCompLevel(int vlistID, int varID);
+
+// vlistDefVarParam: Define the parameter number of a Variable
+void vlistDefVarParam(int vlistID, int varID, int param);
+
+// vlistInqVarParam: Get the parameter number of a Variable
+int vlistInqVarParam(int vlistID, int varID);
+
+// vlistDefVarCode: Define the code number of a Variable
+void vlistDefVarCode(int vlistID, int varID, int code);
+
+// vlistInqVarCode: Get the code number of a Variable
+int vlistInqVarCode(int vlistID, int varID);
+
+// vlistDefVarDatatype: Define the data type of a Variable
+void vlistDefVarDatatype(int vlistID, int varID, int datatype);
+
+// vlistInqVarDatatype: Get the data type of a Variable
+int vlistInqVarDatatype(int vlistID, int varID);
+
+void vlistDefVarXYZ(int vlistID, int varID, int xyz);
+int vlistInqVarXYZ(int vlistID, int varID);
+
+void vlistDefVarNSB(int vlistID, int varID, int nsb);
+int vlistInqVarNSB(int vlistID, int varID);
+
+int vlistInqVarNumber(int vlistID, int varID);
+
+void vlistDefVarInstitut(int vlistID, int varID, int instID);
+int vlistInqVarInstitut(int vlistID, int varID);
+void vlistDefVarModel(int vlistID, int varID, int modelID);
+int vlistInqVarModel(int vlistID, int varID);
+void vlistDefVarTable(int vlistID, int varID, int tableID);
+int vlistInqVarTable(int vlistID, int varID);
+
+// vlistDefVarName: Define the name of a Variable
+void vlistDefVarName(int vlistID, int varID, const char *name);
+
+// vlistInqVarName: Get the name of a Variable
+void vlistInqVarName(int vlistID, int varID, char *name);
+
+// vlistCopyVarName: Safe and convenient version of vlistInqVarName
+char *vlistCopyVarName(int vlistId, int varId);
+
+// vlistDefVarStdname: Define the standard name of a Variable
+void vlistDefVarStdname(int vlistID, int varID, const char *stdname);
+
+// vlistInqVarStdname: Get the standard name of a Variable
+void vlistInqVarStdname(int vlistID, int varID, char *stdname);
+
+// vlistDefVarLongname: Define the long name of a Variable
+void vlistDefVarLongname(int vlistID, int varID, const char *longname);
+
+// vlistInqVarLongname: Get the long name of a Variable
+void vlistInqVarLongname(int vlistID, int varID, char *longname);
+
+// vlistDefVarUnits: Define the units of a Variable
+void vlistDefVarUnits(int vlistID, int varID, const char *units);
+
+// vlistInqVarUnits: Get the units of a Variable
+void vlistInqVarUnits(int vlistID, int varID, char *units);
+
+// vlistDefVarMissval: Define the missing value of a Variable
+void vlistDefVarMissval(int vlistID, int varID, double missval);
+
+// vlistInqVarMissval: Get the missing value of a Variable
+double vlistInqVarMissval(int vlistID, int varID);
+
+SizeType vlistInqVarSize(int vlistID, int varID);
+
+void vlistDefIndex(int vlistID, int varID, int levID, int index);
+int vlistInqIndex(int vlistID, int varID, int levID);
+void vlistDefFlag(int vlistID, int varID, int levID, int flag);
+int vlistInqFlag(int vlistID, int varID, int levID);
+int vlistFindVar(int vlistID, int fvarID);
+int vlistFindLevel(int vlistID, int fvarID, int flevelID);
+int vlistMergedVar(int vlistID, int varID);
+int vlistMergedLevel(int vlistID, int varID, int levelID);
+
+// cdiClearAdditionalKeys: Clear the list of additional GRIB keys
+void cdiClearAdditionalKeys(void);
+// cdiDefAdditionalKey: Register an additional GRIB key which is read when file is opened
+void cdiDefAdditionalKey(const char *string);
+
+// vlistDefVarIntKey: Set an arbitrary keyword/integer value pair for GRIB API
+void vlistDefVarIntKey(int vlistID, int varID, const char *name, int value);
+// vlistDefVarDblKey: Set an arbitrary keyword/double value pair for GRIB API
+void vlistDefVarDblKey(int vlistID, int varID, const char *name, double value);
+
+// vlistHasVarKey: returns 1 if meta-data key was read, 0 otherwise
+int vlistHasVarKey(int vlistID, int varID, const char *name);
+// vlistInqVarDblKey: raw access to GRIB meta-data
+double vlistInqVarDblKey(int vlistID, int varID, const char *name);
+// vlistInqVarIntKey: raw access to GRIB meta-data
+int vlistInqVarIntKey(int vlistID, int varID, const char *name);
+
+// CDI attributes
+
+// cdiInqNatts: Get number of attributes assigned to this variable
+int cdiInqNatts(int cdiID, int varID, int *nattsp);
+// cdiInqAtt: Get information about an attribute
+int cdiInqAtt(int cdiID, int varID, int attrnum, char *name, int *typep, int *lenp);
+int cdiInqAttLen(int cdiID, int varID, const char *name);
+int cdiInqAttType(int cdiID, int varID, const char *name);
+int cdiDelAtt(int cdiID, int varID, const char *name);
+
+int cdiCopyAtts(int cdiID1, int varID1, int cdiID2, int varID2);
+
+// cdiDefAttInt: Define an integer attribute
+int cdiDefAttInt(int cdiID, int varID, const char *name, int type, int len, const int ip[]);
+// cdiDefAttFlt: Define a floating point attribute
+int cdiDefAttFlt(int cdiID, int varID, const char *name, int type, int len, const double dp[]);
+// cdiDefAttTxt: Define a text attribute
+int cdiDefAttTxt(int cdiID, int varID, const char *name, int len, const char *tp_cbuf);
+
+// cdiInqAttInt: Get the value(s) of an integer attribute
+int cdiInqAttInt(int cdiID, int varID, const char *name, int mlen, int ip[]);
+// cdiInqAttFlt: Get the value(s) of a floating point attribute
+int cdiInqAttFlt(int cdiID, int varID, const char *name, int mlen, double dp[]);
+// cdiInqAttTxt: Get the value(s) of a text attribute
+int cdiInqAttTxt(int cdiID, int varID, const char *name, int mlen, char *tp_cbuf);
+
+
+// GRID routines
+
+void gridName(int gridtype, char *gridname);
+const char *gridNamePtr(int gridtype);
+
+void gridCompress(int gridID);
+
+void gridDefMaskGME(int gridID, const int mask[]);
+int gridInqMaskGME(int gridID, int mask[]);
+
+void gridDefMask(int gridID, const int mask[]);
+int gridInqMask(int gridID, int mask[]);
+
+// gridCreate: Create a horizontal Grid
+int gridCreate(int gridtype, SizeType size);
+
+// gridDestroy: Destroy a horizontal Grid
+void gridDestroy(int gridID);
+
+// gridDuplicate: Duplicate a Grid
+int gridDuplicate(int gridID);
+
+// gridDefProj: Define the projection ID of a Grid
+void gridDefProj(int gridID, int projID);
+
+// gridInqProj: Get the projection ID of a Grid
+int gridInqProj(int gridID);
+
+// gridInqProjType: Get the projection type
+int gridInqProjType(int gridID);
+
+// gridInqType: Get the type of a Grid
+int gridInqType(int gridID);
+
+// gridInqSize: Get the size of a Grid
+SizeType gridInqSize(int gridID);
+
+// gridDefXsize: Define the size of a X-axis
+void gridDefXsize(int gridID, SizeType xsize);
+
+// gridInqXsize: Get the size of a X-axis
+SizeType gridInqXsize(int gridID);
+
+// gridDefYsize: Define the size of a Y-axis
+void gridDefYsize(int gridID, SizeType ysize);
+
+// gridInqYsize: Get the size of a Y-axis
+SizeType gridInqYsize(int gridID);
+
+// gridDefNP: Define the number of parallels between a pole and the equator
+void gridDefNP(int gridID, int np);
+
+// gridInqNP: Get the number of parallels between a pole and the equator
+int gridInqNP(int gridID);
+
+// gridDefXvals: Define the values of a X-axis
+void gridDefXvals(int gridID, const double xvals[]);
+
+// gridInqXvals: Get all values of a X-axis
+SizeType gridInqXvals(int gridID, double xvals[]);
+SizeType gridInqXvalsPart(int gridID, int start, SizeType size, double xvals[]);
+const double *gridInqXvalsPtr(int gridID);
+
+// gridInqXIsc: Find out whether X-coordinate is of type CHAR
+int gridInqXIsc(int gridID);
+
+// gridInqXCvals: Get strings from X-axis in case grid is of type GRID_CHARXY
+SizeType gridInqXCvals(int gridID, char *xcvals[]);
+
+// gridDefYvals: Define the values of a Y-axis
+void gridDefYvals(int gridID, const double yvals[]);
+
+// gridInqYvals: Get all values of a Y-axis
+SizeType gridInqYvals(int gridID, double yvals[]);
+SizeType gridInqYvalsPart(int gridID, int start, SizeType size, double yvals[]);
+const double *gridInqYvalsPtr(int gridID);
+
+// gridInqYIsc: Find out whether Y-coordinate is of type CHAR
+int gridInqYIsc(int gridID);
+
+// gridInqYCvals: Get strings from Y-axis in case grid is of type GRID_CHARXY
+SizeType gridInqYCvals(int gridID, char *ycvals[]);
+
+// CDI var keys
+
+// String keys
+#define CDI_KEY_NAME 942 // Variable name
+#define CDI_KEY_LONGNAME 943 // Long name of the variable
+#define CDI_KEY_STDNAME 944 // CF Standard name of the variable
+#define CDI_KEY_UNITS 945 // Units of the variable
+#define CDI_KEY_DATATYPE 946 // Data type
+#define CDI_KEY_REFERENCEURI 947 // Reference URI to grid file
+#define CDI_KEY_CHUNKS 948 // Chunks
+
+// Integer keys
+#define CDI_KEY_NUMBEROFGRIDUSED 961 // GRIB2 numberOfGridUsed
+#define CDI_KEY_NUMBEROFGRIDINREFERENCE 962 // GRIB2 numberOfGridInReference
+#define CDI_KEY_NUMBEROFVGRIDUSED 963 // GRIB2 numberOfVGridUsed
+#define CDI_KEY_NLEV 964 // GRIB2 nlev
+#define CDI_KEY_CHUNKTYPE 965 // ChunkType: CDI_CHUNK_AUTO/CDI_CHUNK_GRID/CDI_CHUNK_LINES
+#define CDI_KEY_CHUNKSIZE 966 // ChunkSize
+
+// Floating point keys
+#define CDI_KEY_MISSVAL 701 // Missing value
+#define CDI_KEY_ADDOFFSET 702 // Add offset
+#define CDI_KEY_SCALEFACTOR 703 // Scale factor
+
+// Byte array keys
+#define CDI_KEY_UUID 960 // UUID for grid/Z-axis reference [size: CDI_UUID_SIZE]
+
+
+#define CDI_KEY_DIMNAME 941 // Dimension name
+
+#define CDI_KEY_PSNAME 950 // Z-axis surface pressure name
+#define CDI_KEY_P0NAME 951 // Z-axis reference pressure name
+#define CDI_KEY_P0VALUE 952 // Z-axis reference pressure in Pa
+
+#define CDI_KEY_TABLESVERSION 801 // GRIB2 tablesVersion
+#define CDI_KEY_LOCALTABLESVERSION 802 // GRIB2 localTablesVersion
+#define CDI_KEY_TYPEOFGENERATINGPROCESS 803 // GRIB2 typeOfGeneratingProcess
+#define CDI_KEY_PRODUCTDEFINITIONTEMPLATE 804 // GRIB2 productDefinitionTemplate
+#define CDI_KEY_TYPEOFPROCESSEDDATA 805 // GRIB2 typeOfProcessedData
+#define CDI_KEY_SHAPEOFTHEEARTH 806 // GRIB2 shapeOfTheEarth
+#define CDI_KEY_BACKGROUNDPROCESS 807 // GRIB2 backgroundProcess
+#define CDI_KEY_TYPEOFENSEMBLEFORECAST 808 // GRIB2 typeOfEnsembleForecast
+#define CDI_KEY_NUMBEROFFORECASTSINENSEMBLE 809 // GRIB2 numberOfForecastsInEnsemble
+#define CDI_KEY_PERTURBATIONNUMBER 810 // GRIB2 perturbationNumber
+#define CDI_KEY_CENTRE 811 // GRIB2 centre
+#define CDI_KEY_SUBCENTRE 812 // GRIB2 subCentre
+#define CDI_KEY_MPIMTYPE 813 // GRIB2 mpimType
+#define CDI_KEY_MPIMCLASS 814 // GRIB2 mpimClass
+#define CDI_KEY_MPIMUSER 815 // GRIB2 mpimUser
+#define CDI_KEY_REVSTATUS 816 // GRIB2 revStatus
+#define CDI_KEY_REVNUMBER 817 // GRIB2 revNumber
+#define CDI_KEY_GRIB2LOCALSECTIONNUMBER 818 // GRIB2 grib2LocalSectionNumber
+#define CDI_KEY_SECTION2PADDINGLENGTH 819 // GRIB2 length of section2Padding
+#define CDI_KEY_SECTION2PADDING 820 // GRIB2 section2Padding
+#define CDI_KEY_CONSTITUENTTYPE 821 // GRIB2 constituentType
+#define CDI_KEY_TYPEOFTIMEINCREMENT 822 // GRIB2 typeOfTimeIncrement
+#define CDI_KEY_TYPEOFFIRSTFIXEDSURFACE 823 // GRIB2 typeOfFirstFixedSurface
+#define CDI_KEY_TYPEOFSECONDFIXEDSURFACE 824 // GRIB2 typeOfSecondFixedSurface
+#define CDI_KEY_UVRELATIVETOGRID 825 // GRIB uvRelativeToGrid
+#define CDI_KEY_SCANNINGMODE 826 // GRIB scanningMode
+
+#define CDI_KEY_VDIMNAME 920 // Vertex dimension name
+#define CDI_KEY_GRIDMAP_VARTYPE 921 // Grid mapping var datatype
+#define CDI_KEY_GRIDMAP_VARNAME 922 // Grid mapping var name
+#define CDI_KEY_GRIDMAP_NAME 923 // Grid mapping name
+
+// cdiDefKeyInt: Define an integer value from a key
+int cdiDefKeyInt(int cdiID, int varID, int key, int value);
+
+// cdiInqKeyInt: Get an integer value from a key
+int cdiInqKeyInt(int cdiID, int varID, int key, int *value);
+
+// cdiDefKeyFloat: Define a float value from a key
+int cdiDefKeyFloat(int cdiID, int varID, int key, double value);
+
+// cdiInqKeyFloat Get a float value from a key
+int cdiInqKeyFloat(int cdiID, int varID, int key, double *value);
+
+// cdiDefKeyBytes: Define a byte array from a key
+int cdiDefKeyBytes(int cdiID, int varID, int key, const unsigned char bytes[], int length);
+
+// cdiInqKeyBytes: Get a byte array from a key
+int cdiInqKeyBytes(int cdiID, int varID, int key, unsigned char bytes[], int *length);
+
+// cdiDefKeyString: Define a string from a key
+int cdiDefKeyString(int cdiID, int varID, int key, const char *string);
+
+// cdiInqKeyString: Get a string from a key
+int cdiInqKeyString(int cdiID, int varID, int key, char *string, int *length);
+
+// cdiInqKeyLen: Get the length of the string representation of the key
+int cdiInqKeyLen(int cdiID, int varID, int key, int *length);
+
+int cdiCopyKeys(int cdiID1, int varID1, int cdiID2, int varID2);
+
+int cdiCopyKey(int cdiID1, int varID1, int key, int cdiID2);
+
+int cdiDeleteKey(int cdiID, int varID, int key);
+
+// GRID routines
+
+// gridDefXname: Define the name of a X-axis
+void gridDefXname(int gridID, const char *xname);
+
+// gridInqXname: Get the name of a X-axis
+void gridInqXname(int gridID, char *xname);
+
+// gridDefXlongname: Define the longname of a X-axis
+void gridDefXlongname(int gridID, const char *xlongname);
+
+// gridInqXlongname: Get the longname of a X-axis
+void gridInqXlongname(int gridID, char *xlongname);
+
+// gridDefXunits: Define the units of a X-axis
+void gridDefXunits(int gridID, const char *xunits);
+
+// gridInqXunits: Get the units of a X-axis
+void gridInqXunits(int gridID, char *xunits);
+
+// gridDefYname: Define the name of a Y-axis
+void gridDefYname(int gridID, const char *yname);
+
+// gridInqYname: Get the name of a Y-axis
+void gridInqYname(int gridID, char *yname);
+
+// gridDefYlongname: Define the longname of a Y-axis
+void gridDefYlongname(int gridID, const char *ylongname);
+
+// gridInqYlongname: Get the longname of a Y-axis
+void gridInqYlongname(int gridID, char *ylongname);
+
+// gridDefYunits: Define the units of a Y-axis
+void gridDefYunits(int gridID, const char *yunits);
+
+// gridInqYunits: Get the units of a Y-axis
+void gridInqYunits(int gridID, char *yunits);
+
+void gridDefDatatype(int gridID, int datatype);
+int gridInqDatatype(int gridID);
+
+// gridInqXval: Get one value of a X-axis
+double gridInqXval(int gridID, SizeType index);
+
+// gridInqYval: Get one value of a Y-axis
+double gridInqYval(int gridID, SizeType index);
+
+double gridInqXinc(int gridID);
+double gridInqYinc(int gridID);
+
+int gridIsCircular(int gridID);
+
+int gridInqTrunc(int gridID);
+void gridDefTrunc(int gridID, int trunc);
+
+// Reference of an unstructured grid
+
+// gridDefNumber: Define the reference number for an unstructured grid
+void gridDefNumber(int gridID, int number);
+
+// gridInqNumber: Get the reference number to an unstructured grid
+int gridInqNumber(int gridID);
+
+// gridDefPosition: Define the position of grid in the reference file
+void gridDefPosition(int gridID, int position);
+
+// gridInqPosition: Get the position of grid in the reference file
+int gridInqPosition(int gridID);
+
+// gridDefReference: Define the reference URI for an unstructured grid
+void gridDefReference(int gridID, const char *reference);
+
+// gridInqReference: Get the reference URI to an unstructured grid
+int gridInqReference(int gridID, char *reference);
+
+// gridDefUUID: Define the UUID of an unstructured grid
+void gridDefUUID(int gridID, const unsigned char uuid[CDI_UUID_SIZE]);
+
+// gridInqUUID: Get the UUID of an unstructured grid
+void gridInqUUID(int gridID, unsigned char uuid[CDI_UUID_SIZE]);
+
+// Rotated Lon/Lat grid
+void gridDefParamRLL(int gridID, double xpole, double ypole, double angle);
+void gridInqParamRLL(int gridID, double *xpole, double *ypole, double *angle);
+
+// Hexagonal GME grid
+void gridDefParamGME(int gridID, int nd, int ni, int ni2, int ni3);
+void gridInqParamGME(int gridID, int *nd, int *ni, int *ni2, int *ni3);
+
+void gridDefArea(int gridID, const double area[]);
+void gridInqArea(int gridID, double area[]);
+int gridHasArea(int gridID);
+
+// gridDefNvertex: Define the number of vertex of a Gridbox
+void gridDefNvertex(int gridID, int nvertex);
+
+// gridInqNvertex: Get the number of vertex of a Gridbox
+int gridInqNvertex(int gridID);
+
+// gridDefXbounds: Define the bounds of a X-axis
+void gridDefXbounds(int gridID, const double xbounds[]);
+
+// gridInqXbounds: Get the bounds of a X-axis
+SizeType gridInqXbounds(int gridID, double xbounds[]);
+SizeType gridInqXboundsPart(int gridID, int start, SizeType size, double xbounds[]);
+const double *gridInqXboundsPtr(int gridID);
+
+// gridDefYbounds: Define the bounds of a Y-axis
+void gridDefYbounds(int gridID, const double ybounds[]);
+
+// gridInqYbounds: Get the bounds of a Y-axis
+SizeType gridInqYbounds(int gridID, double ybounds[]);
+SizeType gridInqYboundsPart(int gridID, int start, SizeType size, double ybounds[]);
+const double *gridInqYboundsPtr(int gridID);
+
+void gridDefReducedPoints(int gridID, int reducedPointsSize, const int reducedPoints[]);
+void gridInqReducedPoints(int gridID, int reducedPoints[]);
+void gridChangeType(int gridID, int gridtype);
+
+void gridDefComplexPacking(int gridID, int lpack);
+int gridInqComplexPacking(int gridID);
+
+// ZAXIS routines
+
+void zaxisName(int zaxistype, char *zaxisname);
+const char *zaxisNamePtr(int leveltype);
+
+// zaxisCreate: Create a vertical Z-axis
+int zaxisCreate(int zaxistype, int size);
+
+// zaxisDestroy: Destroy a vertical Z-axis
+void zaxisDestroy(int zaxisID);
+
+// zaxisInqType: Get the type of a Z-axis
+int zaxisInqType(int zaxisID);
+
+// zaxisInqSize: Get the size of a Z-axis
+int zaxisInqSize(int zaxisID);
+
+// zaxisDuplicate: Duplicate a Z-axis
+int zaxisDuplicate(int zaxisID);
+
+// zaxisDefLevels: Define the levels of a Z-axis
+void zaxisDefLevels(int zaxisID, const double levels[]);
+
+// zaxisDefCvals: Define area types of a Z-axis
+void zaxisDefCvals(int zaxisID, const char *cvals[], int clength);
+
+// zaxisInqLevels: Get all levels of a Z-axis
+int zaxisInqLevels(int zaxisID, double levels[]);
+
+// zaxisInqCLen: Get maximal string length of character Z-axis
+int zaxisInqCLen(int zaxisID);
+
+// zaxisInqCVals: Get all string values of a character Z-axis
+int zaxisInqCVals(int zaxisID, char ***clevels);
+
+// zaxisDefLevel: Define one level of a Z-axis
+void zaxisDefLevel(int zaxisID, int levelID, double levels);
+
+// zaxisInqLevel: Get one level of a Z-axis
+double zaxisInqLevel(int zaxisID, int levelID);
+
+// zaxisDefNlevRef: Define the number of half levels of a generalized Z-axis
+void zaxisDefNlevRef(int gridID, int nhlev);
+
+// zaxisInqNlevRef: Get the number of half levels of a generalized Z-axis
+int zaxisInqNlevRef(int gridID);
+
+// zaxisDefNumber: Define the reference number for a generalized Z-axis
+void zaxisDefNumber(int gridID, int number);
+
+// zaxisInqNumber: Get the reference number to a generalized Z-axis
+int zaxisInqNumber(int gridID);
+
+// zaxisDefUUID: Define the UUID of a generalized Z-axis
+void zaxisDefUUID(int zaxisID, const unsigned char uuid[CDI_UUID_SIZE]);
+
+// zaxisInqUUID: Get the UUID of a generalized Z-axis
+void zaxisInqUUID(int zaxisID, unsigned char uuid[CDI_UUID_SIZE]);
+
+// zaxisDefName: Define the name of a Z-axis
+void zaxisDefName(int zaxisID, const char *name_optional);
+
+// zaxisInqName: Get the name of a Z-axis
+void zaxisInqName(int zaxisID, char *name);
+
+// zaxisDefLongname: Define the longname of a Z-axis
+void zaxisDefLongname(int zaxisID, const char *longname_optional);
+
+// zaxisInqLongname: Get the longname of a Z-axis
+void zaxisInqLongname(int zaxisID, char *longname);
+
+// zaxisDefUnits: Define the units of a Z-axis
+void zaxisDefUnits(int zaxisID, const char *units_optional);
+
+// zaxisInqUnits: Get the units of a Z-axis
+void zaxisInqUnits(int zaxisID, char *units);
+
+// zaxisInqStdname: Get the standard name of a Z-axis
+void zaxisInqStdname(int zaxisID, char *stdname);
+
+void zaxisDefDatatype(int zaxisID, int datatype);
+int zaxisInqDatatype(int zaxisID);
+
+void zaxisDefPositive(int zaxisID, int positive);
+int zaxisInqPositive(int zaxisID);
+
+void zaxisDefScalar(int zaxisID);
+int zaxisInqScalar(int zaxisID);
+
+void zaxisDefVct(int zaxisID, int size, const double vct[]);
+void zaxisInqVct(int zaxisID, double vct[]);
+int zaxisInqVctSize(int zaxisID);
+const double *zaxisInqVctPtr(int zaxisID);
+void zaxisDefLbounds(int zaxisID, const double lbounds[]);
+int zaxisInqLbounds(int zaxisID, double lbounds_optional[]);
+double zaxisInqLbound(int zaxisID, int index);
+void zaxisDefUbounds(int zaxisID, const double ubounds[]);
+int zaxisInqUbounds(int zaxisID, double ubounds_optional[]);
+double zaxisInqUbound(int zaxisID, int index);
+void zaxisDefWeights(int zaxisID, const double weights[]);
+int zaxisInqWeights(int zaxisID, double weights_optional[]);
+void zaxisChangeType(int zaxisID, int zaxistype);
+
+// TAXIS routines
+
+// taxisCreate: Create a Time axis
+int taxisCreate(int taxistype);
+
+// taxisDestroy: Destroy a Time axis
+void taxisDestroy(int taxisID);
+
+int taxisDuplicate(int taxisID);
+
+void taxisCopyTimestep(int taxisIDdes, int taxisIDsrc);
+
+void taxisDefType(int taxisID, int taxistype);
+int taxisInqType(int taxisID);
+
+// taxisDefVdate: Define the verification date
+void taxisDefVdate(int taxisID, int date);
+
+// taxisDefVtime: Define the verification time
+void taxisDefVtime(int taxisID, int time);
+
+// taxisInqVdate: Get the verification date
+int taxisInqVdate(int taxisID);
+
+// taxisInqVtime: Get the verification time
+int taxisInqVtime(int taxisID);
+
+// taxisDefRdate: Define the reference date
+void taxisDefRdate(int taxisID, int date);
+
+// taxisDefRtime: Define the reference time
+void taxisDefRtime(int taxisID, int time);
+
+// taxisInqRdate: Get the reference date
+int taxisInqRdate(int taxisID);
+
+// taxisInqRtime: Get the reference time
+int taxisInqRtime(int taxisID);
+
+int taxisHasBounds(int taxisID);
+void taxisWithBounds(int taxisID);
+
+void taxisDeleteBounds(int taxisID);
+
+void taxisDefVdateBounds(int taxisID, int vdate_lb, int vdate_ub);
+
+void taxisDefVtimeBounds(int taxisID, int vtime_lb, int vtime_ub);
+
+void taxisInqVdateBounds(int taxisID, int *vdate_lb, int *vdate_ub);
+
+void taxisInqVtimeBounds(int taxisID, int *vtime_lb, int *vtime_ub);
+
+// taxisDefCalendar: Define the calendar
+void taxisDefCalendar(int taxisID, int calendar);
+
+// taxisInqCalendar: Get the calendar
+int taxisInqCalendar(int taxisID);
+
+void taxisDefTunit(int taxisID, int tunit);
+int taxisInqTunit(int taxisID);
+
+void taxisDefForecastTunit(int taxisID, int tunit);
+int taxisInqForecastTunit(int taxisID);
+
+void taxisDefForecastPeriod(int taxisID, double fc_period);
+double taxisInqForecastPeriod(int taxisID);
+
+void taxisDefNumavg(int taxisID, int numavg);
+int taxisInqNumavg(int taxisID);
+
+const char *taxisNamePtr(int taxisID);
+const char *tunitNamePtr(int tunitID);
+
+
+// Institut routines
+
+int institutDef(int center, int subcenter, const char *name, const char *longname);
+int institutInq(int center, int subcenter, const char *name, const char *longname);
+int institutInqNumber(void);
+int institutInqCenter(int instID);
+int institutInqSubcenter(int instID);
+const char *institutInqNamePtr(int instID);
+const char *institutInqLongnamePtr(int instID);
+
+// Model routines
+
+int modelDef(int instID, int modelgribID, const char *name);
+int modelInq(int instID, int modelgribID, const char *name);
+int modelInqInstitut(int modelID) ;
+int modelInqGribID(int modelID);
+const char *modelInqNamePtr(int modelID);
+
+// Table routines
+
+// tableFWriteC: write table of parameters to FILE* in C language format
+void tableFWriteC(FILE *ptfp, int tableID);
+// tableWrite: write table of parameters to file in tabular format
+void tableWrite(const char *filename, int tableID);
+// tableRead: read table of parameters from file in tabular format
+int tableRead(const char *tablefile);
+int tableDef(int modelID, int tablenum, const char *tablename);
+
+const char *tableInqNamePtr(int tableID);
+
+int tableInq(int modelID, int tablenum, const char *tablename);
+int tableInqNumber(void);
+
+int tableInqNum(int tableID);
+int tableInqModel(int tableID);
+
+void tableInqEntry(int tableID, int id, int ltype, char *name, char *longname, char *units);
+
+// Subtype routines
+
+// subtypeCreate: Create a variable subtype
+int subtypeCreate(int subtype);
+
+// Gives a textual summary of the variable subtype
+void subtypePrint(int subtypeID);
+
+// Compares two subtype data structures
+int subtypeCompare(int subtypeID1, int subtypeID2);
+
+// subtypeInqSize: Get the size of a subtype (e.g. no. of tiles)
+int subtypeInqSize(int subtypeID);
+
+// subtypeInqActiveIndex: Get the currently active index of a subtype (e.g. current tile index)
+int subtypeInqActiveIndex(int subtypeID);
+
+// subtypeDefActiveIndex: Set the currently active index of a subtype (e.g. current tile index)
+void subtypeDefActiveIndex(int subtypeID, int index);
+
+// Generate a "query object" out of a key-value pair
+subtype_query_t keyValuePair(const char *key, int value);
+
+// Generate an AND-combined "query object" out of two previous query objects
+subtype_query_t matchAND(subtype_query_t q1, subtype_query_t q2);
+
+// subtypeInqSubEntry: Returns subtype entry ID for a given criterion
+int subtypeInqSubEntry(int subtypeID, subtype_query_t criterion);
+
+// subtypeInqTile: Specialized version of subtypeInqSubEntry looking for tile/attribute pair
+int subtypeInqTile(int subtypeID, int tileindex, int attribute);
+
+// subtypeInqAttribute: Inquire the value of a subtype attribute. Returns CDI_EINVAL if the attribute does not exist.
+int subtypeInqAttribute(int subtypeID, int index, const char *key, int *outValue);
+
+// vlistInqVarSubtype: Return subtype ID for a given variable
+int vlistInqVarSubtype(int vlistID, int varID);
+
+void gribapiLibraryVersion(int *major_version, int *minor_version, int *revision_version);
+
+// Compatibility functions for release 1.8.3 (obsolete functions)
+void zaxisDefLtype(int zaxisID, int ltype);
+int vlistInqVarTypeOfGeneratingProcess(int vlistID, int varID);
+void vlistDefVarTypeOfGeneratingProcess(int vlistID, int varID, int typeOfGeneratingProcess);
+void vlistDefVarProductDefinitionTemplate(int vlistID, int varID, int productDefinitionTemplate);
+
+#ifdef __cplusplus
+}
+#endif
+
+// End of fortran interface
+//FINT_OFF <--- don't change or remove this line!!!
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+// CDI query interface
+
+typedef struct
+{
+ int numEntries;
+ // Names
+ int numNames;
+ bool *namesFound;
+ char **names;
+ // Grid cell indices
+ int numCellidx;
+ bool *cellidxFound;
+ size_t *cellidx;
+ // Level indices
+ int numLevidx;
+ bool *levidxFound;
+ int *levidx;
+ // Time step indices
+ int numStepidx;
+ bool *stepidxFound;
+ int *stepidx;
+} CdiQuery;
+
+CdiQuery *cdiQueryCreate(void);
+CdiQuery *cdiQueryClone(const CdiQuery *query);
+void cdiQueryDelete(CdiQuery *query);
+void cdiQuerySetNames(CdiQuery *query, int numNames, char **names);
+void cdiQuerySetCellidx(CdiQuery *query, int numCellidx, size_t *cellidx);
+void cdiQuerySetLevidx(CdiQuery *query, int numLevidx, int *levidx);
+void cdiQuerySetStepidx(CdiQuery *query, int numStepidx, int *stepidx);
+size_t cdiQueryGetCellidx(const CdiQuery *query, int index);
+int cdiQueryName(CdiQuery *query, const char *name);
+int cdiQueryCellidx(CdiQuery *query, size_t cellidx);
+int cdiQueryLevidx(CdiQuery *query, int levidx);
+int cdiQueryStepidx(CdiQuery *query, int stepidx);
+int cdiQueryNumNames(const CdiQuery *query);
+int cdiQueryNumCellidx(const CdiQuery *query);
+int cdiQueryNumStepidx(const CdiQuery *query);
+int cdiQueryNumEntries(const CdiQuery *query);
+int cdiQueryNumEntriesFound(const CdiQuery *query);
+void cdiQueryPrint(const CdiQuery *query);
+void cdiQueryPrintEntriesNotFound(const CdiQuery *query);
+
+// streamOpenReadQuery: Open a dataset for reading and apply query
+int streamOpenReadQuery(const char *path, CdiQuery *query);
+
+// CDI interface for paraview vtkCDIReader.cxx
+
+
+// taxisDefRdatetime: Define the reference date/time
+void taxisDefRdatetime(int taxisID, CdiDateTime rDateTime);
+// taxisInqRdatetime: Get the reference date/time
+CdiDateTime taxisInqRdatetime(int taxisID);
+// taxisDefFdatetime: Define the forecast reference date/time
+void taxisDefFdatetime(int taxisID, CdiDateTime fDateTime);
+// taxisInqFdatetime: Get the forecast reference date/time
+CdiDateTime taxisInqFdatetime(int taxisID);
+// taxisDefVdatetime: Define the verification date/time
+void taxisDefVdatetime(int taxisID, CdiDateTime vDateTime);
+// taxisInqVdatetime: Get the verification date/time
+CdiDateTime taxisInqVdatetime(int taxisID);
+void taxisDefVdatetimeBounds(int taxisID, CdiDateTime vDateTime_lb, CdiDateTime vDateTime_ub);
+void taxisInqVdatetimeBounds(int taxisID, CdiDateTime *vDateTime_lb, CdiDateTime *vDateTime_ub);
+
+// date format: YYYYMMDD
+// time format: hhmmss
+
+int64_t date_to_julday(int calendar, int64_t date); // Used in paraview vtkCDIReader.cxx
+int64_t julday_to_date(int calendar, int64_t julday);
+
+int time_to_sec(int time); // Used in paraview vtkCDIReader.cxx
+int sec_to_time(int secofday);
+
+// CDI projection parameter interface
+
+struct CDI_GridProjParams
+{
+ double mv; // Missing value
+ double lon_0; // The East longitude of the meridian which is parallel to the Y-axis
+ double lat_0; // Latitude of the projection origin
+ double lat_1; // First latitude from the pole at which the secant cone cuts the sphere
+ double lat_2; // Second latitude at which the secant cone cuts the sphere
+ // lat_ts = lat_1;
+ double a; // Semi-major axis or earth radius in metres (optional)
+ double b; // Semi-minor axis in metres (optional)
+ double rf; // Inverse flattening (1/f) (optional)
+ double xval_0; // Longitude of the first grid point in degree (optional)
+ double yval_0; // Latitude of the first grid point in degree (optional)
+ double x_0; // False easting (optional)
+ double y_0; // False northing (optional)
+ double x_SP; // Longitude of southern pole
+ double y_SP; // Latitude of southern pole
+ int nside; // HEALPix number of points along a side (number of data points should be = 12 * nside * nside)
+ int order; // HEALPix ordering convention (0:ring; 1:nested)
+};
+
+void gridProjParamsInit(struct CDI_GridProjParams *gridProjParams);
+
+// Lambert Conformal Conic grid
+void gridDefParamsLCC(int gridID, struct CDI_GridProjParams gridProjParams);
+int gridInqParamsLCC(int gridID, struct CDI_GridProjParams *gridProjParams);
+
+// Polar stereographic grid
+void gridDefParamsSTERE(int gridID, struct CDI_GridProjParams gridProjParams);
+int gridInqParamsSTERE(int gridID, struct CDI_GridProjParams *gridProjParams);
+
+// HEALPix grid
+void gridDefParamsHEALPIX(int gridID, struct CDI_GridProjParams gridProjParams);
+int gridInqParamsHEALPIX(int gridID, struct CDI_GridProjParams *gridProjParams);
+
+#define HAVE_CDI_PROJ_FUNCS 1
+extern int (*proj_lonlat_to_lcc_func)(struct CDI_GridProjParams gpp, size_t, double*, double*);
+extern int (*proj_lcc_to_lonlat_func)(struct CDI_GridProjParams gpp, double, double, size_t, double*, double*);
+extern int (*proj_lonlat_to_stere_func)(struct CDI_GridProjParams gpp, size_t, double*, double*);
+extern int (*proj_stere_to_lonlat_func)(struct CDI_GridProjParams gpp, double, double, size_t, double*, double*);
+
+#ifdef __cplusplus
+}
+#endif
+
+// clang-format on
+
+#endif /* CDI_H_ */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _ERROR_H_
+#define _ERROR_H_
+
+// clang-format off
+
+#include <stdarg.h>
+#include <stdlib.h>
+#include <stdbool.h>
+
+#ifndef WITH_CALLER_NAME
+#define WITH_CALLER_NAME
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int _ExitOnError; // If set to 1, exit on error (default 1)
+extern int _Verbose; // If set to 1, errors are reported (default 1)
+extern int _Debug; // If set to 1, debuggig (default 0)
+
+void SysError_(const char *caller, const char *fmt, ...);
+void Error_(const char *caller, const char *fmt, ...);
+void Warning_(const char *caller, const char *fmt, ...);
+/* delegate used by Warning_ unless mode is PIO */
+void cdiWarning(const char *caller, const char *fmt, va_list ap);
+void Message_(const char *caller, const char *fmt, ...);
+
+#ifdef WITH_CALLER_NAME
+# define SysError(...) SysError_(__func__, __VA_ARGS__)
+# define Errorc(...) Error_( caller, __VA_ARGS__)
+# define Error(...) Error_(__func__, __VA_ARGS__)
+# define Warning(...) Warning_(__func__, __VA_ARGS__)
+# define Messagec(...) Message_( caller, __VA_ARGS__)
+# define Message(...) Message_(__func__, __VA_ARGS__)
+#else
+# define SysError(...) SysError_((void *), __VA_ARGS__)
+# define Errorc(...) Error_((void *), __VA_ARGS__)
+# define Error(...) Error_((void *), __VA_ARGS__)
+# define Warning(...) Warning_((void *), __VA_ARGS__)
+# define Messagec(...) Message_((void *), __VA_ARGS__)
+# define Message(...) Message_((void *), __VA_ARGS__)
+#endif
+
+/* If we're not using GNU C, elide __attribute__ */
+#ifndef __GNUC__
+# define __attribute__(x) /*NOTHING*/
+#endif
+
+void cdiAbortC(const char *caller, const char *filename,
+ const char *functionname, int line,
+ const char *errorString, ... )
+ __attribute__((noreturn));
+#define xabortC(caller, ...) \
+ cdiAbortC(caller, __FILE__, __func__, __LINE__, __VA_ARGS__ )
+#define xabort(...) \
+ cdiAbortC(NULL, __FILE__, __func__, __LINE__, __VA_ARGS__ )
+#define cdiAbort(file, func, line, ...) \
+ cdiAbortC(NULL, (file), (func), (line), __VA_ARGS__)
+
+#define xassert(arg) do { \
+ if ((arg)) { } else { \
+ xabort("assertion `" #arg "` failed");} \
+ } while(0)
+
+void
+cdiAbortC_serial(const char *caller, const char *filename,
+ const char *functionname, int line,
+ const char *errorString, va_list ap)
+ __attribute__((noreturn));
+
+
+bool cdiObsoleteInfo(const char *oldFunction, const char *newFunction);
+
+#if defined (__cplusplus)
+}
+#endif
+
+// clang-format on
+
+#endif /* _ERROR_H_ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBPTHREAD
+#include <pthread.h>
+#endif
+
+
+
+#include <stdbool.h>
+
+#ifdef HAVE_LIBPTHREAD
+#ifdef __APPLE__
+#include <dispatch/dispatch.h>
+#else
+#include <errno.h>
+#include <semaphore.h>
+#endif
+
+typedef struct sema
+{
+#ifdef __APPLE__
+ dispatch_semaphore_t sem;
+#else
+ sem_t sem;
+#endif
+} sema_t;
+#endif
+
+struct AsyncJob
+{
+ bool inUse;
+#ifdef HAVE_LIBPTHREAD
+ sema_t request, completion;
+#endif
+ int (*work)(void *data);
+ void *data;
+ int result;
+};
+
+struct AsyncManager
+{
+ int workerCount, idleWorkerCount;
+ AsyncJob *communicators;
+};
+
+#ifdef HAVE_LIBPTHREAD
+static inline int
+sema_init(sema_t *s, int pshared, uint32_t value)
+{
+ int status = 0;
+#ifdef __APPLE__
+ dispatch_semaphore_t *sem = &s->sem;
+
+ (void) pshared;
+ *sem = dispatch_semaphore_create(value);
+#else
+ status = sem_init(&s->sem, pshared, value);
+#endif
+ return status;
+}
+
+static inline int
+sema_wait(sema_t *s)
+{
+#ifdef __APPLE__
+ dispatch_semaphore_wait(s->sem, DISPATCH_TIME_FOREVER);
+#else
+ int r;
+
+ do
+ {
+ r = sem_wait(&s->sem);
+ }
+ while (r == -1 && errno == EINTR);
+#endif
+ return 0;
+}
+
+static inline int
+sema_post(sema_t *s)
+{
+#ifdef __APPLE__
+ dispatch_semaphore_signal(s->sem);
+#else
+ sem_post(&s->sem);
+#endif
+ return 0;
+}
+
+static void *
+workerMain(void *arg)
+{
+ AsyncJob *communicator = (AsyncJob *) arg;
+
+ while (true)
+ {
+ while (sema_wait(&communicator->request))
+ ;
+ if (communicator->work)
+ {
+ communicator->result = communicator->work(communicator->data);
+ if (sema_post(&communicator->completion)) xabort("sema_post() failed");
+ }
+ else
+ {
+ if (sema_post(&communicator->completion)) xabort("sema_post() failed");
+ break;
+ }
+ }
+
+ return NULL;
+}
+
+static void
+startWorker(AsyncJob *communicator)
+{
+ communicator->inUse = false;
+ communicator->work = NULL;
+ communicator->data = NULL;
+ communicator->result = 0;
+ if (sema_init(&communicator->request, 0, 0)) xabort("sema_init() failed");
+ if (sema_init(&communicator->completion, 0, 0)) xabort("sema_init() failed");
+
+ pthread_t worker;
+ if (pthread_create(&worker, NULL, workerMain, communicator)) xabort("pthread_create() failed");
+ if (pthread_detach(worker)) xabort("pthread_detach() failed");
+}
+#endif
+
+int
+AsyncWorker_init(AsyncManager **jobManager, int threadCount)
+{
+ if (threadCount <= 0)
+ {
+ xabort("CPU core count discovery not implemented yet");
+ return CDI_EINVAL; // TODO: discover CPU core count, and set threadCount to a sensible positive value
+ }
+
+ if (*jobManager) return CDI_NOERR;
+
+#ifdef HAVE_LIBPTHREAD
+ *jobManager = (AsyncManager *) malloc(sizeof(AsyncManager));
+ if (!*jobManager) return CDI_ESYSTEM;
+ (*jobManager)->workerCount = threadCount;
+ (*jobManager)->communicators = (AsyncJob *) malloc(threadCount * sizeof(AsyncJob));
+ if (!(*jobManager)->communicators) xabort("memory allocation failure");
+
+ for (int i = 0; i < threadCount; i++) startWorker(&((*jobManager)->communicators[i]));
+ (*jobManager)->idleWorkerCount = threadCount;
+#else
+
+ Error("pthread support not compiled in!");
+#endif
+
+ return CDI_NOERR;
+}
+
+AsyncJob *
+AsyncWorker_requestWork(AsyncManager *jobManager, int (*work)(void *data), void *data)
+{
+ if (!jobManager) xabort("AsyncWorker_requestWork() called without calling AsyncWorker_init() first");
+ if (!work)
+ xabort("AsyncWorker_requestWork() called without a valid function pointer"); // need to catch this condition to stop users from
+ // terminating our worker threads
+
+ // find an unused worker
+ if (!jobManager->idleWorkerCount) return NULL;
+
+ AsyncJob *worker = NULL;
+ for (int i = 0; i < jobManager->workerCount; i++)
+ {
+ if (!jobManager->communicators[i].inUse)
+ {
+ worker = &jobManager->communicators[i];
+ break;
+ }
+ }
+ if (!worker) xabort("internal error: idleWorkerCount is not in sync with the worker states, please report this bug");
+
+ // pass the request to that worker
+ jobManager->idleWorkerCount--;
+ worker->inUse = true;
+ worker->work = work;
+ worker->data = data;
+ worker->result = 0;
+#ifdef HAVE_LIBPTHREAD
+ if (sema_post(&worker->request)) xabort("sema_post() failed");
+#endif
+ return worker;
+}
+
+int
+AsyncWorker_wait(AsyncManager *jobManager, AsyncJob *job)
+{
+ if (!jobManager) xabort("AsyncWorker_wait() called without calling AsyncWorker_init() first");
+ if (job < jobManager->communicators) return CDI_EINVAL;
+ if (job >= jobManager->communicators + jobManager->workerCount) return CDI_EINVAL;
+ if (!job->inUse) return CDI_EINVAL;
+
+#ifdef HAVE_LIBPTHREAD
+ while (sema_wait(&job->completion))
+ ;
+#endif
+ int result = job->result;
+
+ // reset the communicator
+ job->work = NULL;
+ job->data = NULL;
+ job->result = 0;
+ job->inUse = false;
+ jobManager->idleWorkerCount++;
+
+ return result;
+}
+
+int
+AsyncWorker_availableWorkers(AsyncManager *jobManager)
+{
+ if (!jobManager) return 0;
+ return jobManager->idleWorkerCount;
+}
+
+int
+AsyncWorker_finalize(AsyncManager *jobManager)
+{
+ int result = CDI_NOERR;
+ if (!jobManager) return CDI_NOERR;
+
+ for (int i = 0; i < jobManager->workerCount; i++)
+ {
+ AsyncJob *curWorker = &jobManager->communicators[i];
+
+ // finish any pending job
+ if (curWorker->inUse)
+ {
+ AsyncWorker_wait(jobManager, curWorker);
+ if (curWorker->result) result = curWorker->result;
+ }
+
+ // send the teardown signal
+ curWorker->inUse = true;
+ curWorker->work = NULL;
+ curWorker->data = NULL;
+ curWorker->result = 0;
+#ifdef HAVE_LIBPTHREAD
+ if (sema_post(&curWorker->request)) xabort("sema_post() failed");
+#endif
+ // wait for the worker to exit
+ AsyncWorker_wait(jobManager, curWorker);
+ }
+
+ free(jobManager->communicators);
+ free(jobManager);
+
+ return result;
+}
+#ifndef _BASETIME_H
+#define _BASETIME_H
+
+#include <stdbool.h>
+
+typedef struct
+{
+ int ncvarid;
+ int ncdimid;
+ int ncvarboundsid;
+ int leadtimeid;
+ bool hasUnits;
+ bool isWRF; // true for time axis in WRF format
+} basetime_t;
+
+void basetimeInit(basetime_t *basetime);
+
+#endif /* _BASETIME_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <stddef.h> // for NULL
+
+void
+basetimeInit(basetime_t *basetime)
+{
+ if (basetime == NULL) Error("Internal problem! Basetime not allocated.");
+
+ if (basetime)
+ {
+ basetime->ncvarid = CDI_UNDEFID;
+ basetime->ncdimid = CDI_UNDEFID;
+ basetime->ncvarboundsid = CDI_UNDEFID;
+ basetime->leadtimeid = CDI_UNDEFID;
+ basetime->hasUnits = false;
+ basetime->isWRF = false;
+ }
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _FILE_H
+#define _FILE_H
+
+#include <stdio.h>
+#include <sys/types.h>
+
+#define FILE_UNDEFID -1
+
+#define FILE_TYPE_OPEN 1
+#define FILE_TYPE_FOPEN 2
+
+// buffer types for FILE_TYPE_OPEN
+#define FILE_BUFTYPE_STD 1
+#define FILE_BUFTYPE_MMAP 2
+
+const char *fileLibraryVersion(void);
+
+void fileDebug(int debug);
+
+void *filePtr(int fileID);
+
+int fileSetBufferType(int fileID, int type);
+void fileSetBufferSize(int fileID, long buffersize);
+
+int fileOpen(const char *filename, const char *mode);
+int fileOpen_serial(const char *filename, const char *mode);
+int fileClose(int fileID);
+int fileClose_serial(int fileID);
+
+char *fileInqName(int fileID);
+int fileInqMode(int fileID);
+
+int fileFlush(int fileID);
+void fileClearerr(int fileID);
+int fileEOF(int fileID);
+int filePtrEOF(void *fileptr);
+void fileRewind(int fileID);
+
+off_t fileGetPos(int fileID);
+int fileSetPos(int fileID, off_t offset, int whence);
+
+int fileGetc(int fileID);
+int filePtrGetc(void *fileptr);
+
+size_t filePtrRead(void *fileptr, void *restrict ptr, size_t size);
+size_t fileRead(int fileID, void *restrict ptr, size_t size);
+size_t fileWrite(int fileID, const void *restrict ptr, size_t size);
+
+#endif /* _FILE_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef SWAP_H_
+#define SWAP_H_
+
+void swap4byte(void *ptr, size_t size);
+void swap8byte(void *ptr, size_t size);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef DTYPES_H
+#define DTYPES_H
+
+#include <stdio.h>
+#include <limits.h>
+
+/* INT32 */
+
+#ifndef INT_MAX
+#error INT_MAX undefined
+#endif
+
+#undef INT32
+#if INT_MAX == 2147483647L
+#define INT32 int
+#elif LONG_MAX == 2147483647L
+#define INT32 long
+#endif
+
+/* INT64 */
+
+#ifndef LONG_MAX
+#error LONG_MAX undefined
+#endif
+
+#undef INT64
+#if LONG_MAX > 2147483647L
+#define INT64 long
+#else
+#define INT64 long long
+#endif
+
+/* FLT32 */
+
+#undef FLT32
+#define FLT32 float
+
+/* FLT64 */
+
+#undef FLT64
+#define FLT64 double
+
+/* UINT32 and UINT64 */
+
+#define UINT32 unsigned INT32
+#define UINT64 unsigned INT64
+
+#endif /* DTYPES_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef BINARY_H
+#define BINARY_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <inttypes.h>
+
+
+#ifndef HOST_ENDIANNESS
+#ifdef __cplusplus
+static const uint32_t HOST_ENDIANNESS_temp[1] = { UINT32_C(0x00030201) };
+#define HOST_ENDIANNESS (((const unsigned char *) HOST_ENDIANNESS_temp)[0])
+#else
+#define HOST_ENDIANNESS (((const unsigned char *) &(const uint32_t[1]){ UINT32_C(0x00030201) })[0])
+#endif
+#endif
+
+UINT32 get_UINT32(unsigned char *x);
+UINT32 get_SUINT32(unsigned char *x);
+UINT64 get_UINT64(unsigned char *x);
+UINT64 get_SUINT64(unsigned char *x);
+
+size_t binReadF77Block(int fileID, int byteswap);
+void binWriteF77Block(int fileID, int byteswap, size_t blocksize);
+
+int binReadInt32(int fileID, int byteswap, size_t size, INT32 *ptr);
+int binReadInt64(int fileID, int byteswap, size_t size, INT64 *ptr);
+
+int binWriteInt32(int fileID, int byteswap, size_t size, INT32 *ptr);
+int binWriteInt64(int fileID, int byteswap, size_t size, INT64 *ptr);
+
+int binWriteFlt32(int fileID, int byteswap, size_t size, FLT32 *ptr);
+int binWriteFlt64(int fileID, int byteswap, size_t size, FLT64 *ptr);
+
+#endif /* BINARY_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+UINT32
+get_UINT32(unsigned char *x)
+{
+ // clang-format off
+ switch (HOST_ENDIANNESS)
+ {
+ case CDI_BIGENDIAN:
+ return (((UINT32)x[0])<<24) + (((UINT32)x[1])<<16) + (((UINT32)x[2])<< 8) + (UINT32)x[3];
+ case CDI_LITTLEENDIAN:
+ return (((UINT32)x[3])<<24) + (((UINT32)x[2])<<16) + (((UINT32)x[1])<< 8) + (UINT32)x[0];
+ default:
+ Error("Unhandled endianness %d", HOST_ENDIANNESS);
+ return UINT32_C(0xFFFFFFFF);
+ }
+ // clang-format on
+}
+
+UINT32
+get_SUINT32(unsigned char *x)
+{
+ // clang-format off
+ switch (HOST_ENDIANNESS)
+ {
+ case CDI_BIGENDIAN:
+ return (((UINT32)x[3])<<24) + (((UINT32)x[2])<<16) + (((UINT32)x[1])<< 8) + (UINT32)x[0];
+ case CDI_LITTLEENDIAN:
+ return (((UINT32)x[0])<<24) + (((UINT32)x[1])<<16) + (((UINT32)x[2])<< 8) + (UINT32)x[3];
+ default:
+ Error("Unhandled endianness %d", HOST_ENDIANNESS);
+ return UINT32_C(0xFFFFFFFF);
+ }
+ // clang-format on
+}
+
+UINT64
+get_UINT64(unsigned char *x)
+{
+ // clang-format off
+ switch (HOST_ENDIANNESS)
+ {
+ case CDI_BIGENDIAN:
+ return (((UINT64)x[0])<<56) + (((UINT64)x[1])<<48) + (((UINT64)x[2])<<40) + (((UINT64)x[3])<<32) +
+ (((UINT64)x[4])<<24) + (((UINT64)x[5])<<16) + (((UINT64)x[6])<< 8) + (UINT64)x[7];
+ case CDI_LITTLEENDIAN:
+ return (((UINT64)x[7])<<56) + (((UINT64)x[6])<<48) + (((UINT64)x[5])<<40) + (((UINT64)x[4])<<32) +
+ (((UINT64)x[3])<<24) + (((UINT64)x[2])<<16) + (((UINT64)x[1])<< 8) + (UINT64)x[0];
+ default:
+ Error("Unhandled endianness %d", HOST_ENDIANNESS);
+ return UINT64_C(0xFFFFFFFFFFFFFFFF);
+ }
+ // clang-format on
+}
+
+UINT64
+get_SUINT64(unsigned char *x)
+{
+ // clang-format off
+ switch (HOST_ENDIANNESS)
+ {
+ case CDI_BIGENDIAN:
+ return (((UINT64)x[7])<<56) + (((UINT64)x[6])<<48) + (((UINT64)x[5])<<40) + (((UINT64)x[4])<<32) +
+ (((UINT64)x[3])<<24) + (((UINT64)x[2])<<16) + (((UINT64)x[1])<< 8) + (UINT64)x[0];
+ case CDI_LITTLEENDIAN:
+ return (((UINT64)x[0])<<56) + (((UINT64)x[1])<<48) + (((UINT64)x[2])<<40) + (((UINT64)x[3])<<32) +
+ (((UINT64)x[4])<<24) + (((UINT64)x[5])<<16) + (((UINT64)x[6])<< 8) + (UINT64)x[7];
+ default:
+ Error("Unhandled endianness %d", HOST_ENDIANNESS);
+ return UINT64_C(0xFFFFFFFFFFFFFFFF);
+ }
+ // clang-format on
+}
+
+size_t
+binReadF77Block(int fileID, int byteswap)
+{
+ unsigned char f77block[4];
+ size_t blocklen = 0;
+
+ if (fileRead(fileID, f77block, 4) == 4)
+ {
+ blocklen = byteswap ? get_SUINT32(f77block) : get_UINT32(f77block);
+ }
+
+ return blocklen;
+}
+
+void
+binWriteF77Block(int fileID, int byteswap, size_t blocksize)
+{
+ static const unsigned int s[4] = { 0, 8, 16, 24 };
+ const unsigned long ublocksize = (unsigned long) blocksize;
+ unsigned char f77block[4];
+
+ switch (HOST_ENDIANNESS)
+ {
+ case CDI_BIGENDIAN:
+ if (byteswap)
+ {
+ for (int i = 0; i <= 3; ++i) f77block[i] = (unsigned char) (ublocksize >> s[i]);
+ }
+ else
+ {
+ for (int i = 0; i <= 3; ++i) f77block[3 - i] = (unsigned char) (ublocksize >> s[i]);
+ }
+ break;
+ case CDI_LITTLEENDIAN:
+ if (byteswap)
+ {
+ for (int i = 0; i <= 3; ++i) f77block[3 - i] = (unsigned char) (ublocksize >> s[i]);
+ }
+ else
+ {
+ for (int i = 0; i <= 3; ++i) f77block[i] = (unsigned char) (ublocksize >> s[i]);
+ }
+ break;
+ default: Error("Unhandled endianness %d", HOST_ENDIANNESS);
+ }
+
+ if (fileWrite(fileID, f77block, 4) != 4) Error("Write failed on %s", fileInqName(fileID));
+}
+
+int
+binReadInt32(int fileID, int byteswap, size_t size, INT32 *ptr)
+{
+ if (sizeof(INT32) != 4) Error("Not implemented for %d byte integer!", sizeof(INT32));
+
+ fileRead(fileID, (void *) ptr, 4 * size);
+ if (byteswap) swap4byte(ptr, size);
+
+ return 0;
+}
+
+int
+binReadInt64(int fileID, int byteswap, size_t size, INT64 *ptr)
+{
+ if (sizeof(INT64) != 8) Error("Not implemented for %d byte integer!", sizeof(INT64));
+
+ fileRead(fileID, (void *) ptr, 8 * size);
+ if (byteswap) swap8byte(ptr, size);
+
+ return 0;
+}
+
+int
+binWriteInt32(int fileID, int byteswap, size_t size, INT32 *ptr)
+{
+ if (sizeof(INT32) != 4) Error("Not implemented for %d byte integer!", sizeof(INT32));
+
+ if (byteswap) swap4byte(ptr, size);
+ fileWrite(fileID, (void *) ptr, 4 * size);
+
+ return 0;
+}
+
+int
+binWriteInt64(int fileID, int byteswap, size_t size, INT64 *ptr)
+{
+ if (sizeof(INT64) != 8) Error("Not implemented for %d byte integer!", sizeof(INT64));
+
+ if (byteswap) swap8byte(ptr, size);
+ fileWrite(fileID, (void *) ptr, 8 * size);
+
+ return 0;
+}
+
+int
+binWriteFlt32(int fileID, int byteswap, size_t size, FLT32 *ptr)
+{
+ if (sizeof(FLT32) != 4) Error("Not implemented for %d byte float!", sizeof(FLT32));
+
+ if (byteswap) swap4byte(ptr, size);
+ fileWrite(fileID, (void *) ptr, 4 * size);
+
+ return 0;
+}
+
+int
+binWriteFlt64(int fileID, int byteswap, size_t size, FLT64 *ptr)
+{
+ if (sizeof(FLT64) != 8) Error("Not implemented for %d byte float!", sizeof(FLT64));
+
+ if (byteswap) swap8byte(ptr, size);
+ fileWrite(fileID, (void *) ptr, 8 * size);
+
+ return 0;
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CALENDAR_H
+#define CALENDAR_H
+
+#include <stdint.h> // int64_t
+
+// clang-format off
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void decode_calday(int daysPerYear, int days, int *year, int *month, int *day);
+int64_t encode_calday(int daysPerYear, int year, int month, int day);
+
+static inline int
+calendar_dpy(int calendar)
+{
+ int daysPerYear = 0;
+
+ if (calendar == CALENDAR_360DAYS) daysPerYear = 360;
+ else if (calendar == CALENDAR_365DAYS) daysPerYear = 365;
+ else if (calendar == CALENDAR_366DAYS) daysPerYear = 366;
+
+ return daysPerYear;
+}
+
+int days_per_year(int calendar, int year);
+int days_per_month(int calendar, int year, int month);
+
+#ifdef __cplusplus
+}
+#endif
+
+// clang-format on
+
+#endif
+#include <stdio.h>
+
+
+static const int month_360[12] = { 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30 };
+static const int month_365[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
+static const int month_366[12] = { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
+
+static const int *
+get_dayspermonth_array(int daysPerYear)
+{
+ // clang-format off
+ return (daysPerYear == 360) ? month_360 :
+ (daysPerYear == 365) ? month_365 :
+ (daysPerYear == 366) ? month_366 : NULL;
+ // clang-format on
+}
+
+int
+days_per_month(int calendar, int year, int month)
+{
+ int daysPerYear = calendar_dpy(calendar);
+ const int *daysPerMonthArray = (daysPerYear == 360) ? month_360 : ((daysPerYear == 365) ? month_365 : month_366);
+
+ int daysPerMonth = (month >= 1 && month <= 12) ? daysPerMonthArray[month - 1] : 0;
+
+ if (daysPerYear == 0 && month == 2) daysPerMonth = ((year % 4 == 0 && year % 100 != 0) || year % 400 == 0) ? 29 : 28;
+
+ return daysPerMonth;
+}
+
+int
+days_per_year(int calendar, int year)
+{
+ int daysPerYear = calendar_dpy(calendar);
+ if (daysPerYear == 0)
+ {
+ if (year == 1582 && (calendar == CALENDAR_STANDARD || calendar == CALENDAR_GREGORIAN))
+ daysPerYear = 355;
+ else if ((year % 4 == 0 && year % 100 != 0) || year % 400 == 0)
+ daysPerYear = 366;
+ else
+ daysPerYear = 365;
+ }
+
+ return daysPerYear;
+}
+
+void
+decode_calday(int daysPerYear, int days, int *year, int *month, int *day)
+{
+ *year = (days - 1) / daysPerYear;
+ days -= (*year * daysPerYear);
+
+ const int *daysPerMonthArray = get_dayspermonth_array(daysPerYear);
+
+ int i = 0;
+ if (daysPerMonthArray)
+ for (i = 0; i < 12; i++)
+ {
+ if (days > daysPerMonthArray[i])
+ days -= daysPerMonthArray[i];
+ else
+ break;
+ }
+
+ *month = i + 1;
+ *day = days;
+}
+
+int64_t
+encode_calday(int daysPerYear, int year, int month, int day)
+{
+ int64_t rval = (int64_t) daysPerYear * year + day;
+
+ const int *daysPerMonthArray = get_dayspermonth_array(daysPerYear);
+
+ if (daysPerMonthArray)
+ for (int i = 0; i < month - 1; i++) rval += daysPerMonthArray[i];
+
+ return rval;
+}
+#ifndef CDF_H
+#define CDF_H
+
+void cdfDebug(int debug);
+
+extern int CDF_Debug;
+
+const char *cdfLibraryVersion(void);
+
+int cdfOpen(const char *filename, const char *mode, int filetype);
+int cdf4Open(const char *filename, const char *mode, int *filetype);
+void cdfClose(int fileID);
+
+#endif /* CDF_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CDI_FDB_H
+#define CDI_FDB_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+extern int cdi_fdb_dummy;
+
+#ifdef HAVE_LIBFDB5
+
+#include <fdb5/api/fdb_c.h>
+
+typedef struct
+{
+ char *item;
+ char *keys[32];
+ char *values[32];
+ int numKeys;
+} KeyValueItem;
+
+typedef struct
+{
+ char *keys[32];
+ char *values[32];
+ int numKeys;
+} fdbKeyValueEntry;
+
+typedef struct
+{
+ int fdbIndex;
+ int date;
+ int time;
+ int param;
+ int levtype;
+ int ilevel;
+} RecordInfoEntry;
+
+void check_fdb_error(int errorNum);
+void cdi_fdb_delete_kvlist(int numItems, fdbKeyValueEntry *keyValueList);
+void decode_fdbitem(const char *fdbItem, KeyValueItem *keyValue);
+int cdi_fdb_fill_kvlist(fdb_handle_t *fdb, fdb_request_t *request, fdbKeyValueEntry **keyValueList);
+long cdi_fdb_read_record(fdb_handle_t *fdb, const fdbKeyValueEntry *keyValue, size_t *buffersize, void **gribbuffer);
+// int check_keyvalueList(int numItems, fdbKeyValueEntry *keyValueList);
+void print_keyvalueList(int numItems, fdbKeyValueEntry *keyValueList);
+void print_keyvalueList_sorted(int numItems, fdbKeyValueEntry *keyValueList, RecordInfoEntry *recordInfoList);
+void cdi_fdb_sort_datetime(int numItems, RecordInfoEntry *recordInfo);
+int get_num_records(int numItems, RecordInfoEntry *recordInfoList);
+int decode_keyvalue(int numItems, fdbKeyValueEntry *keyValueList, RecordInfoEntry *recordInfoList);
+int remove_duplicate_timesteps(RecordInfoEntry *recordInfoList, int numRecords, int numTimesteps, int *timestepRecordOffset);
+fdb_request_t *cdi_create_fdb_request(const char *filename);
+
+#endif
+
+#endif /* CDI_FDB_H */
+#ifndef CDF_CONFIG_H_
+#define CDF_CONFIG_H_
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBNETCDF
+
+#include <netcdf.h>
+
+#ifdef NC_FORMAT_64BIT_DATA
+#define HAVE_NETCDF5 1
+#endif
+
+#endif
+
+#endif
+#ifndef JULIAN_DATE_H
+#define JULIAN_DATE_H
+
+
+// clang-format off
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef struct
+{
+ int64_t julianDay;
+ double secondOfDay;
+} JulianDate;
+
+JulianDate julianDate_encode(int calendar, CdiDateTime dt);
+CdiDateTime julianDate_decode(int calendar, JulianDate julianDate);
+JulianDate julianDate_add_seconds(JulianDate julianDate, int64_t seconds);
+JulianDate julianDate_add(JulianDate julianDate1, JulianDate julianDate2);
+JulianDate julianDate_sub(JulianDate julianDate1, JulianDate julianDate2);
+double julianDate_to_seconds(JulianDate julianDate);
+
+double secofday_encode(CdiTime time);
+CdiTime secofday_decode(double secondOfDay);
+
+#ifdef __cplusplus
+}
+#endif
+
+// clang-format on
+
+#endif /* JULIAN_DATE_H */
+#ifndef RESOURCE_HANDLE_H
+#define RESOURCE_HANDLE_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <stdio.h>
+
+/*
+ * CDI internal handling of resource handles given to user code
+ */
+
+/*
+ * for reasons of compatibility with cfortran.h, the handle type is: int
+ */
+typedef int cdiResH;
+
+/* return 0 on equality, not 0 otherwise */
+typedef int (*valCompareFunc)(void *, void *);
+typedef void (*valDestroyFunc)(void *);
+typedef void (*valPrintFunc)(void *, FILE *);
+typedef int (*valGetPackSizeFunc)(void *, void *context);
+typedef void (*valPackFunc)(void *, void *buf, int size, int *pos, void *context);
+typedef int (*valTxCodeFunc)(void *);
+
+typedef struct
+{
+ valCompareFunc valCompare;
+ valDestroyFunc valDestroy;
+ valPrintFunc valPrint;
+ valGetPackSizeFunc valGetPackSize;
+ valPackFunc valPack;
+ valTxCodeFunc valTxCode;
+} resOps;
+
+enum
+{
+ RESH_IN_USE_BIT = 1 << 0,
+ RESH_SYNC_BIT = 1 << 1,
+ /* resource holds no value */
+ RESH_UNUSED = 0,
+ /* resource was deleted and needs to be synced */
+ RESH_DESYNC_DELETED = RESH_SYNC_BIT,
+ /* resource is synchronized */
+ RESH_IN_USE = RESH_IN_USE_BIT,
+ /* resource is in use, desynchronized and needs to be synced */
+ RESH_DESYNC_IN_USE = RESH_IN_USE_BIT | RESH_SYNC_BIT,
+};
+
+void reshListCreate(int namespaceID);
+void reshListDestruct(int namespaceID);
+int reshPut(void *, const resOps *);
+void reshReplace(cdiResH resH, void *p, const resOps *ops);
+void reshRemove(cdiResH, const resOps *);
+/*> doesn't check resource type */
+void reshDestroy(cdiResH);
+
+unsigned reshCountType(const resOps *resTypeOps);
+
+void *reshGetValue(const char *caller, const char *expressionString, cdiResH id, const resOps *ops);
+#define reshGetVal(resH, ops) reshGetValue(__func__, #resH, resH, ops)
+
+void reshGetResHListOfType(unsigned numIDs, int IDs[], const resOps *ops);
+
+enum cdiApplyRet
+{
+ CDI_APPLY_ERROR = -1,
+ CDI_APPLY_STOP,
+ CDI_APPLY_GO_ON,
+};
+enum cdiApplyRet cdiResHApply(enum cdiApplyRet (*func)(int id, void *res, const resOps *p, void *data), void *data);
+enum cdiApplyRet cdiResHFilterApply(const resOps *p, enum cdiApplyRet (*func)(int id, void *res, void *data), void *data);
+
+int reshPackBufferCreate(char **packBuf, int *packBufSize, void *context);
+void reshPackBufferDestroy(char **);
+int reshResourceGetPackSize_intern(int resh, const resOps *ops, void *context, const char *caller, const char *expressionString);
+#define reshResourceGetPackSize(resh, ops, context) reshResourceGetPackSize_intern(resh, ops, context, __func__, #resh)
+void reshPackResource_intern(int resh, const resOps *ops, void *buf, int buf_size, int *position, void *context, const char *caller,
+ const char *expressionString);
+#define reshPackResource(resh, ops, buf, buf_size, position, context) \
+ reshPackResource_intern(resh, ops, buf, buf_size, position, context, __func__, #resh)
+
+void reshSetStatus(cdiResH, const resOps *, int);
+int reshGetStatus(cdiResH, const resOps *);
+
+void reshLock(void);
+void reshUnlock(void);
+
+enum reshListMismatch
+{
+ cdiResHListOccupationMismatch,
+ cdiResHListResourceTypeMismatch,
+ cdiResHListResourceContentMismatch,
+};
+
+int reshListCompare(int nsp0, int nsp1);
+void reshListPrint(FILE *fp);
+int reshGetTxCode(cdiResH resH);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef TAXIS_H
+#define TAXIS_H
+
+#include <stdbool.h>
+
+#ifndef RESOURCE_HANDLE_H
+#endif
+
+typedef struct
+{
+ int self;
+ int datatype; // datatype
+ int type; // time type
+ int calendar;
+ int unit; // time units
+ int numavg;
+ CdiDateTime sDateTime; // start date/time
+ CdiDateTime vDateTime; // verification date/time
+ CdiDateTime rDateTime; // reference date/time
+ CdiDateTime fDateTime; // forecast reference date/time
+ CdiDateTime vDateTime_lb; // lower bounds of verification date/time
+ CdiDateTime vDateTime_ub; // upper bounds of verification date/time
+ double fc_period; // forecast time period
+ int fc_unit; // forecast time unit
+ char *name;
+ char *longname;
+ char *units;
+ bool climatology;
+ bool hasBounds;
+} taxis_t;
+
+// taxisInqSdatetime: Get the start date/time
+CdiDateTime taxisInqSdatetime(int taxisID);
+
+void ptaxisInit(taxis_t *taxis);
+void ptaxisCopy(taxis_t *dest, taxis_t *source);
+taxis_t *taxisPtr(int taxisID);
+void cdi_set_forecast_period(double timevalue, taxis_t *taxis);
+CdiDateTime cdi_decode_timeval(double timevalue, const taxis_t *taxis);
+double cdi_encode_timeval(CdiDateTime datetime, taxis_t *taxis);
+
+void ptaxisDefDatatype(taxis_t *taxisptr, int datatype);
+void ptaxisDefName(taxis_t *taxisptr, const char *name);
+void ptaxisDefLongname(taxis_t *taxisptr, const char *longname);
+void ptaxisDefUnits(taxis_t *taxisptr, const char *units);
+char *ptaxisAllocUnits(taxis_t *taxisptr, size_t len);
+void taxisDestroyKernel(taxis_t *taxisptr);
+#ifndef SX
+extern const resOps taxisOps;
+#endif
+
+int taxisUnpack(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context,
+ int checkForSameID);
+
+enum
+{
+ TAXIS_MAX_UNIT_STR_LEN = 9
+};
+
+#endif /* TAXIS_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CDI_LIMITS_H
+#define CDI_LIMITS_H
+
+#define MAX_DIMENSIONS 5 // maximum number of dimensions per variable
+#define MAX_DIMS_PS 16 // maximum number of dimensions per stream
+#define MAX_GRIDS_PS 128 // maximum number of different grids per stream
+#define MAX_ZAXES_PS 128 // maximum number of different zaxes per stream
+#define MAX_ATTRIBUTES 256 // maximum number of attributes per variable
+#define MAX_KEYS 64 // maximum number of keys per variable
+#define MAX_SUBTYPES_PS 128 // maximum number of different subtypes per stream
+
+#endif /* CDI_LIMITS_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _SERVICE_H
+#define _SERVICE_H
+
+typedef struct
+{
+ int checked;
+ int byteswap;
+ int header[8];
+ int hprec; /* header precision */
+ int dprec; /* data precision */
+ size_t datasize;
+ size_t buffersize;
+ void *buffer;
+} srvrec_t;
+
+const char *srvLibraryVersion(void);
+
+void srvDebug(int debug);
+
+int srvCheckFiletype(int fileID, int *swap);
+
+void *srvNew(void);
+void srvDelete(void *srv);
+
+int srvRead(int fileID, void *srv);
+void srvWrite(int fileID, void *srv);
+
+int srvInqHeader(void *srv, int *header);
+int srvInqDataSP(void *srv, float *data);
+int srvInqDataDP(void *srv, double *data);
+
+int srvDefHeader(void *srv, const int *header);
+int srvDefDataSP(void *srv, const float *data);
+int srvDefDataDP(void *srv, const double *data);
+
+#endif /* _SERVICE_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _EXTRA_H
+#define _EXTRA_H
+
+#define EXT_REAL 1
+#define EXT_COMP 2
+
+typedef struct
+{
+ int checked;
+ int byteswap;
+ int header[4];
+ int prec; /* single or double precison */
+ int number; /* real or complex */
+ size_t datasize;
+ size_t buffersize;
+ void *buffer;
+} extrec_t;
+
+const char *extLibraryVersion(void);
+
+void extDebug(int debug);
+
+int extCheckFiletype(int fileID, int *swap);
+
+void *extNew(void);
+void extDelete(void *ext);
+
+int extRead(int fileID, void *ext);
+int extWrite(int fileID, void *ext);
+
+int extInqHeader(void *ext, int *header);
+int extInqDataSP(void *ext, float *data);
+int extInqDataDP(void *ext, double *data);
+
+int extDefHeader(void *ext, const int *header);
+int extDefDataSP(void *ext, const float *data);
+int extDefDataDP(void *ext, const double *data);
+
+#endif /* _EXTRA_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _IEG_H
+#define _IEG_H
+
+// clang-format off
+
+/* Level Types */
+#define IEG_LTYPE_SURFACE 1
+#define IEG_LTYPE_99 99
+#define IEG_LTYPE_ISOBARIC 100
+#define IEG_LTYPE_MEANSEA 102
+#define IEG_LTYPE_ALTITUDE 103
+#define IEG_LTYPE_HEIGHT 105
+#define IEG_LTYPE_SIGMA 107
+#define IEG_LTYPE_HYBRID 109
+#define IEG_LTYPE_HYBRID_LAYER 110
+#define IEG_LTYPE_LANDDEPTH 111
+#define IEG_LTYPE_LANDDEPTH_LAYER 112
+#define IEG_LTYPE_SEADEPTH 160
+
+/*
+ * Data representation type (Grid Type) [Table 6]
+ */
+#define IEG_GTYPE_LATLON 0 /* latitude/longitude */
+#define IEG_GTYPE_LATLON_ROT 10 /* rotated latitude/longitude */
+
+#define IEG_P_CodeTable(x) (x[ 5]) /* Version number of code table */
+#define IEG_P_Parameter(x) (x[ 6]) /* Parameter indicator */
+#define IEG_P_LevelType(x) (x[ 7]) /* Type of level indicator */
+#define IEG_P_Level1(x) (x[ 8]) /* Level 1 */
+#define IEG_P_Level2(x) (x[ 9]) /* Level 2 */
+#define IEG_P_Year(x) (x[10]) /* Year of century (YY) */
+#define IEG_P_Month(x) (x[11]) /* Month (MM) */
+#define IEG_P_Day(x) (x[12]) /* Day (DD) */
+#define IEG_P_Hour(x) (x[13]) /* Hour (HH) */
+#define IEG_P_Minute(x) (x[14]) /* Minute (MM) */
+
+/*
+ * Macros for the grid definition section ( Section 2 )
+ */
+#define IEG_G_Size(x) (x[ 0])
+#define IEG_G_NumVCP(x) (x[3] == 10 ? (x[0]-42)/4 : (x[0]-32)/4)
+#define IEG_G_GridType(x) (x[ 3]) /* Data representation type */
+#define IEG_G_NumLon(x) (x[ 4]) /* Number of points along a parallel (Ni) */
+#define IEG_G_NumLat(x) (x[ 5]) /* Number of points along a meridian (Nj) */
+#define IEG_G_FirstLat(x) (x[ 6]) /* Latitude of the first grid point */
+#define IEG_G_FirstLon(x) (x[ 7]) /* Longitude of the first grid point */
+#define IEG_G_ResFlag(x) (x[ 8]) /* Resolution flag: 128 regular grid */
+#define IEG_G_LastLat(x) (x[ 9]) /* Latitude of the last grid point */
+#define IEG_G_LastLon(x) (x[10]) /* Longitude of the last grid point */
+#define IEG_G_LonIncr(x) (x[11]) /* i direction increment */
+#define IEG_G_LatIncr(x) (x[12]) /* j direction increment */
+#define IEG_G_ScanFlag(x) (x[13])
+#define IEG_G_LatSP(x) (x[16]) /* Latitude of the southern pole of rotation */
+#define IEG_G_LonSP(x) (x[17]) /* Longitude of the southern pole of rotation */
+#define IEG_G_ResFac(x) (x[18]) /* Resolution factor */
+
+// clang-format on
+
+typedef struct
+{
+ int checked;
+ int byteswap;
+ int dprec; /* data precision */
+ int ipdb[37];
+ double refval;
+ int igdb[22];
+ double vct[100];
+ size_t datasize;
+ size_t buffersize;
+ void *buffer;
+} iegrec_t;
+
+const char *iegLibraryVersion(void);
+
+void iegDebug(int debug);
+int iegCheckFiletype(int fileID, int *swap);
+
+void *iegNew(void);
+void iegDelete(void *ieg);
+void iegInitMem(void *ieg);
+
+int iegRead(int fileID, void *ieg);
+int iegWrite(int fileID, void *ieg);
+
+void iegCopyMeta(void *dieg, void *sieg);
+int iegInqHeader(void *ieg, int *header);
+int iegInqDataSP(void *ieg, float *data);
+int iegInqDataDP(void *ieg, double *data);
+
+int iegDefHeader(void *ieg, const int *header);
+int iegDefDataSP(void *ieg, const float *data);
+int iegDefDataDP(void *ieg, const double *data);
+
+#endif /* _IEG_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CDI_INT_H
+#define CDI_INT_H
+
+// strdup() from string.h
+#ifdef __STDC_ALLOC_LIB__
+#define __STDC_WANT_LIB_EXT2__ 1
+#else
+#undef _POSIX_C_SOURCE
+#define _POSIX_C_SOURCE 200809L
+#endif
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBFDB5
+#endif
+
+#include <assert.h>
+#include <stdio.h>
+#include <stdbool.h>
+#include <string.h>
+#include <errno.h>
+#include <limits.h>
+#include <math.h>
+#include <sys/types.h>
+
+
+#ifdef HAVE_LIBPTHREAD
+#include <pthread.h>
+extern pthread_mutex_t CDI_IO_Mutex;
+#define CDI_IO_LOCK() pthread_mutex_lock(&CDI_IO_Mutex)
+#define CDI_IO_UNLOCK() pthread_mutex_unlock(&CDI_IO_Mutex)
+#else
+#define CDI_IO_LOCK()
+#define CDI_IO_UNLOCK()
+#endif
+
+// Base file types
+
+#define CDI_FILETYPE_GRIB 100 // File type GRIB
+#define CDI_FILETYPE_NETCDF 101 // File type NetCDF
+
+// dummy use of unused parameters to silence compiler warnings
+#ifndef UNUSED
+#define UNUSED(x) (void) x
+#endif
+
+char *str_to_lower(char *str);
+bool strStartsWith(const char *vstr, const char *cstr);
+
+static inline bool
+str_is_equal(const char *x, const char *y)
+{
+ return (*x == *y) && strcmp(x, y) == 0;
+}
+
+#ifndef M_PI
+#define M_PI 3.14159265358979323846 /* pi */
+#endif
+
+#ifndef ERROR_H
+#endif
+#ifndef _BASETIME_H
+#endif
+#ifndef JULIAN_DATE_H
+#endif
+#ifndef TAXIS_H
+#endif
+#ifndef CDI_LIMITS_H
+#endif
+#ifndef _SERVICE_H
+#endif
+#ifndef _EXTRA_H
+#endif
+#ifndef _IEG_H
+#endif
+#ifndef RESOURCE_HANDLE_H
+#endif
+
+#define check_parg(arg) \
+ if (arg == 0) Warning("Argument '" #arg "' not allocated!")
+
+#ifdef __xlC__ /* performance problems on IBM */
+#ifndef DBL_IS_NAN
+#define DBL_IS_NAN(x) ((x) != (x))
+#endif
+#else
+#ifndef DBL_IS_NAN
+#if defined(HAVE_DECL_ISNAN)
+#define DBL_IS_NAN(x) (isnan(x))
+#elif defined(FP_NAN)
+#define DBL_IS_NAN(x) (fpclassify(x) == FP_NAN)
+#else
+#define DBL_IS_NAN(x) ((x) != (x))
+#endif
+#endif
+#endif
+
+#ifndef DBL_IS_EQUAL
+//#define DBL_IS_EQUAL(x,y) (!(x < y || y < x))
+#define DBL_IS_EQUAL(x, y) (DBL_IS_NAN(x) || DBL_IS_NAN(y) ? (DBL_IS_NAN(x) && DBL_IS_NAN(y)) : !(x < y || y < x))
+#endif
+
+#ifndef IS_EQUAL
+#define IS_NOT_EQUAL(x, y) (x < y || y < x)
+#define IS_EQUAL(x, y) (!IS_NOT_EQUAL(x, y))
+#endif
+
+enum
+{
+ TYPE_REC,
+ TYPE_VAR,
+};
+
+enum
+{
+ MEMTYPE_DOUBLE = 1,
+ MEMTYPE_FLOAT,
+};
+
+typedef struct
+{
+ void *buffer; // gribapi, cgribex
+ size_t buffersize; // gribapi, cgribex
+ off_t position; // file position
+ int param;
+ int ilevel;
+ int vdate;
+ int vtime;
+ int gridID;
+ int varID;
+ int levelID;
+ int prec; // ext, srv
+ void *objectp; // pointer to ieg, ext, srv or cgribex objects
+} Record;
+
+// data structure specifying tile-related meta-data. structure contains "-1" if this is no tile-variable.
+typedef struct
+{
+ int tileindex, totalno_of_tileattr_pairs, tileClassification, numberOfTiles, numberOfAttributes, attribute;
+} var_tile_t;
+
+typedef struct
+{
+ short perturbationNumber;
+ short typeOfGeneratingProcess;
+} VarScanKeys;
+
+static inline void
+varScanKeysInit(VarScanKeys *s)
+{
+ memset(s, 0, sizeof(VarScanKeys));
+}
+
+static inline bool
+varScanKeysIsEqual(const VarScanKeys *s1, const VarScanKeys *s2)
+{
+ return memcmp(s1, s2, sizeof(VarScanKeys)) == 0;
+}
+
+typedef struct
+{
+ off_t position;
+ size_t size;
+ size_t gridsize;
+ int zip;
+ int param;
+ int ilevel;
+ int ilevel2;
+ int ltype;
+ short tsteptype;
+ short varID;
+ int levelID;
+ short used;
+ char varname[32]; // needed for grib decoding with GRIB_API
+ VarScanKeys scanKeys;
+ var_tile_t tiles; // tile-related meta-data, currently for GRIB-API only.
+#ifdef HAVE_LIBFDB5
+ int fdbItemIndex;
+#endif
+} record_t;
+
+typedef struct
+{
+ int *recIDs; // IDs of non constant records
+ record_t *records;
+ int recordSize; // number of allocated records
+ int nrecs; // number of used records
+ // tsID=0 nallrecs
+ // tsID>0 number of non constant records
+ int nallrecs; // number of all records
+ int curRecID; // current record ID
+ int ncStepIndex; // NetCDF timestep index
+ off_t position; // timestep file position
+ taxis_t taxis;
+ bool next;
+} tsteps_t;
+
+typedef struct
+{
+ int nlevs;
+ int subtypeIndex; // corresponding tile in subtype_t structure (subtype->self)
+ int *recordID; // record IDs: [nlevs]
+ int *lindex; // level index
+} sleveltable_t;
+
+typedef struct
+{
+ sleveltable_t *recordTable; // record IDs for each subtype
+ int ncvarid;
+ int subtypeSize;
+ bool defmiss; // true: if missval is defined in file
+ bool isUsed;
+
+ int gridID;
+ int zaxisID;
+ int tsteptype; // TSTEP_*
+ int subtypeID; // subtype ID, e.g. for tile-related meta-data (currently for GRIB-API only).
+} svarinfo_t;
+
+typedef struct
+{
+ int ilev;
+ int mlev;
+ int ilevID;
+ int mlevID;
+} VCT;
+
+#ifdef HAVE_LIBNETCDF
+enum cdfIDIdx
+{
+ CDF_DIMID_E, // 3rd dimID of cube sphere grid (len=6)
+ CDF_DIMID_X,
+ CDF_DIMID_Y,
+ CDF_DIMID_RP, // reducedPoints
+ CDF_VARID_X,
+ CDF_VARID_Y,
+ CDF_VARID_RP, // reducedPoints
+ CDF_VARID_A,
+ CDF_SIZE_ncIDs,
+};
+
+typedef struct
+{
+ int ncIDs[CDF_SIZE_ncIDs];
+ int gridID;
+ long start;
+ long count;
+} ncgrid_t;
+#endif
+
+typedef struct
+{
+ int self;
+ int accesstype; // TYPE_REC or TYPE_VAR
+ int accessmode;
+ int filetype;
+ int byteorder;
+ int fileID;
+ int filemode;
+ int nrecs; // number of records
+ SizeType numvals;
+ char *filename;
+ Record *record;
+ CdiQuery *query;
+ svarinfo_t *vars;
+ int nvars; // number of variables
+ int varsAllocated;
+ int curTsID; // current timestep ID
+ int rtsteps; // number of tsteps accessed
+ long ntsteps; // number of tsteps : only set if all records accessed
+ int maxSteps; // max. number of timesteps (needed for CDI_FILETYPE_NCZARR)
+ tsteps_t *tsteps;
+ int tstepsTableSize;
+ int tstepsNextID;
+ basetime_t basetime;
+ int ncmode;
+ int vlistID;
+#ifdef HAVE_LIBNETCDF
+ int nc_complex_float_id;
+ int nc_complex_double_id;
+ ncgrid_t ncgrid[MAX_GRIDS_PS];
+ int zaxisID[MAX_ZAXES_PS]; // Warning: synchronous array to vlist_to_pointer(vlistID)->zaxisIDs
+ int nczvarID[MAX_ZAXES_PS];
+ int ncNumDims;
+ int ncDimID[MAX_DIMS_PS];
+ size_t ncDimLen[MAX_DIMS_PS];
+ VCT vct;
+ size_t chunkSizeTdim;
+ size_t chunkSizeZdim;
+#endif
+ long maxGlobalRecs;
+ int globalatts;
+ int localatts;
+ int unreduced;
+ int have_missval;
+ int shuffle;
+ // netcdf4/HDF5 filter
+ unsigned int filterId;
+ size_t numParams;
+ size_t maxParams;
+ unsigned int params[8];
+
+ int comptype; // compression type
+ int complevel; // compression level
+ bool sortname;
+ bool lockIO;
+
+ void *gribContainers;
+
+ int numWorker;
+ int nextGlobalRecId;
+ int cachedTsID;
+ void *jobs;
+ void *jobManager;
+
+ int protocol;
+ void *protocolData;
+
+#ifdef HAVE_LIBFDB5
+ int fdbNumItems;
+ fdbKeyValueEntry *fdbKeyValueList;
+#endif
+} stream_t;
+
+// Length of optional keyword/value pair list
+#define MAX_OPT_GRIB_ENTRIES 500
+
+enum cdi_convention
+{
+ CDI_CONVENTION_ECHAM,
+ CDI_CONVENTION_CF
+};
+
+// Data type specification for optional key/value pairs (GRIB)
+typedef enum
+{
+ t_double = 0,
+ t_int = 1
+} key_val_pair_datatype;
+
+// Data structure holding optional key/value pairs for GRIB
+typedef struct
+{
+ char *keyword; // keyword string
+ bool update;
+ key_val_pair_datatype data_type; // data type of this key/value pair
+ double dbl_val; // double value (data_type == t_double)
+ int int_val; // integer value (data_type == t_int)
+ int subtype_index; // tile index for this key-value pair
+} opt_key_val_pair_t;
+
+// enum for differenciating between the different times that we handle
+typedef enum
+{
+ kCdiTimeType_referenceTime,
+ kCdiTimeType_startTime,
+ kCdiTimeType_endTime
+} CdiTimeType;
+
+#define CDI_FILETYPE_UNDEF -1 // Unknown/not yet defined file type
+
+extern int cdiDebugExt;
+extern int CDI_Debug; // If set to 1, debuggig (default 0)
+extern int CDI_Recopt;
+extern bool CDI_gribapi_debug;
+extern bool CDI_gribapi_grib1;
+extern double CDI_Default_Missval;
+extern double CDI_Grid_Missval;
+extern int CDI_Default_InstID;
+extern int CDI_Default_ModelID;
+extern int CDI_Default_TableID;
+extern int cdiDefaultLeveltype;
+extern int CDI_Default_Calendar;
+// extern int cdiNcMissingValue;
+extern int CDI_Netcdf_Chunksizehint;
+extern int CDI_ChunkType;
+extern int CDI_Test;
+extern int CDI_Split_Ltype105;
+extern bool CDI_Lock_IO;
+extern bool CDI_Threadsafe;
+extern int cdiDataUnreduced;
+extern int cdiSortName;
+extern int cdiHaveMissval;
+extern bool CDI_Ignore_Att_Coordinates;
+extern bool CDI_Coordinates_Lon_Lat;
+extern bool CDI_Ignore_Valid_Range;
+extern int CDI_Skip_Records;
+extern const char *CDI_GRIB1_Template;
+extern const char *CDI_GRIB2_Template;
+extern int CDI_Convention;
+extern int CDI_Inventory_Mode;
+extern int CDI_Query_Abort;
+extern int CDI_Version_Info;
+extern int CDI_Convert_Cubesphere;
+extern int CDI_Read_Cell_Corners;
+extern int CDI_CMOR_Mode;
+extern int CDI_Reduce_Dim;
+extern int CDI_Shuffle;
+extern size_t CDI_Netcdf_Hdr_Pad;
+extern size_t CDI_Chunk_Cache;
+extern size_t CDI_Chunk_Cache_Max;
+extern bool CDI_Netcdf_Lazy_Grid_Load;
+extern int STREAM_Debug;
+
+extern char *cdiPartabPath;
+extern int cdiPartabIntern;
+extern const resOps streamOps;
+
+static inline stream_t *
+stream_to_pointer(int idx)
+{
+ return (stream_t *) reshGetVal(idx, &streamOps);
+}
+
+static inline void
+stream_check_ptr(const char *caller, stream_t *streamptr)
+{
+ if (streamptr == NULL) Errorc("stream undefined!");
+}
+
+int streamInqFileID(int streamID);
+
+void gridDefHasDims(int gridID, int hasdims);
+int gridInqHasDims(int gridID);
+int zaxisInqLevelID(int zaxisID, double level);
+
+void streamCheckID(const char *caller, int streamID);
+
+void streamDefineTaxis(int streamID);
+
+int streamsNewEntry(int filetype);
+void streamsInitEntry(int streamID);
+void cdiStreamSetupVlist(stream_t *streamptr, int vlistID);
+// default implementation of the overridable function
+void cdiStreamSetupVlist_(stream_t *streamptr, int vlistID);
+int stream_new_var(stream_t *streamptr, int gridID, int zaxisID, int tilesetID);
+
+int tstepsNewEntry(stream_t *streamptr);
+
+const char *strfiletype(int filetype);
+
+void cdi_generate_vars(stream_t *streamptr);
+
+void vlist_check_contents(int vlistID);
+
+void cdi_create_records(stream_t *streamptr, int tsID);
+
+void streamFCopyRecord(stream_t *streamptr2, stream_t *streamptr1, const char *container_name);
+
+int recordNewEntry(stream_t *streamptr, int tsID);
+
+void cdi_create_timesteps(int numTimesteps, stream_t *streamptr);
+
+void recordInitEntry(record_t *record);
+
+void cdiCheckZaxis(int zaxisID);
+
+void cdiDefAccesstype(int streamID, int type);
+int cdiInqAccesstype(int streamID);
+
+int getByteswap(int byteorder);
+
+void cdiStreamGetIndexList(unsigned numIDs, int IDs[]);
+
+void cdiInitialize(void);
+
+char *cdiEscapeSpaces(const char *string);
+char *cdiUnescapeSpaces(const char *string, const char **outStringEnd);
+
+enum
+{
+ CDI_UNIT_PA = 1,
+ CDI_UNIT_HPA,
+ CDI_UNIT_MM,
+ CDI_UNIT_CM,
+ CDI_UNIT_DM,
+ CDI_UNIT_M,
+};
+
+struct streamAssoc
+{
+ int streamID, vlistID;
+};
+
+struct streamAssoc streamUnpack(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context);
+
+int cdiStreamOpenDefaultDelegate(const char *filename, char filemode, int filetype, stream_t *streamptr,
+ int recordBufIsToBeCreated);
+
+int streamOpenID(const char *filename, char filemode, int filetype, int resH);
+
+void cdiStreamDefVlist_(int streamID, int vlistID);
+
+int cdiStreamWriteVar_(int streamID, int varID, int memtype, const void *data, SizeType numMissVals);
+
+void cdiStreamWriteVarChunk_(int streamID, int varID, int memtype, const int rect[][2], const void *data, SizeType numMissVals);
+void cdiStreamCloseDefaultDelegate(stream_t *streamptr, int recordBufIsToBeDeleted);
+
+int cdiStreamDefTimestep_(stream_t *streamptr, int tsID);
+
+void cdiStreamSync_(stream_t *streamptr);
+
+const char *cdiUnitNamePtr(int cdi_unit);
+
+enum
+{
+ // 8192 is known to work on most systems (4096 isn't on Alpha)
+ commonPageSize = 8192,
+};
+
+size_t cdiGetPageSize(bool largePageAlign);
+
+void zaxisGetIndexList(int nzaxis, int *zaxisIndexList);
+
+// clang-format off
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+// functions used in CDO !!!
+
+void cdiDefTableID(int tableID);
+
+void gridGenXvals(int xsize, double xfirst, double xlast, double xinc, double *xvals);
+void gridGenYvals(int gridtype, int ysize, double yfirst, double ylast, double yinc, double *yvals);
+
+static inline
+void cdi_check_gridsize_int_limit(const char *format, SizeType gridsize)
+{
+ if (gridsize > INT_MAX) Error("%s format grid size (%zu) limit exceeded (%zu)!", format, gridsize, INT_MAX);
+}
+
+bool cdiFiletypeIsExse(int filetype);
+int cdiBaseFiletype(int filetype);
+
+#ifdef __cplusplus
+}
+#endif
+
+// clang-format on
+
+#endif /* CDI_INT_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CDF_INT_H
+#define CDF_INT_H
+
+#ifdef HAVE_LIBNETCDF
+
+#include <netcdf.h>
+#include <stdint.h> // int64_t
+
+void cdf__create(const char *path, int cmode, int *idp);
+void cdf_create(const char *path, int cmode, int *idp);
+int cdf_open(const char *path, int omode, int *idp);
+void cdf_close(int ncid);
+
+void cdf_redef(int ncid);
+void cdf_enddef(int ncid, int streamID);
+void cdf__enddef(int ncid, int streamID, const size_t hdr_pad);
+void cdf_sync(int ncid);
+
+void cdf_inq(int ncid, int *ndimsp, int *nvarsp, int *ngattsp, int *unlimdimidp);
+
+void cdf_def_dim(int ncid, const char *name, size_t len, int *idp);
+void cdf_inq_dimid(int ncid, const char *name, int *dimidp);
+void cdf_inq_dim(int ncid, int dimid, char *name, size_t *lengthp);
+void cdf_inq_dimname(int ncid, int dimid, char *name);
+void cdf_inq_dimlen(int ncid, int dimid, size_t *lengthp);
+void cdf_def_var(int ncid, const char *name, nc_type xtype, int ndims, const int dimids[], int *varidp);
+void cdf_def_var_serial(int ncid, const char *name, nc_type xtype, int ndims, const int dimids[], int *varidp);
+void cdf_inq_varid(int ncid, const char *name, int *varidp);
+void cdf_inq_nvars(int ncid, int *nvarsp);
+void cdf_inq_var(int ncid, int varid, char *name, nc_type *xtypep, int *ndimsp, int dimids[], int *nattsp);
+void cdf_inq_varname(int ncid, int varid, char *name);
+void cdf_inq_vartype(int ncid, int varid, nc_type *xtypep);
+void cdf_inq_varndims(int ncid, int varid, int *ndimsp);
+void cdf_inq_vardimid(int ncid, int varid, int dimids[]);
+void cdf_inq_varnatts(int ncid, int varid, int *nattsp);
+
+void cdf_copy_att(int ncid_in, int varid_in, const char *name, int ncid_out, int varid_out);
+void cdf_put_var_text(int ncid, int varid, const char *tp);
+void cdf_put_var_uchar(int ncid, int varid, const unsigned char *up);
+void cdf_put_var_schar(int ncid, int varid, const signed char *cp);
+void cdf_put_var_short(int ncid, int varid, const short *sp);
+void cdf_put_var_int(int ncid, int varid, const int *ip);
+void cdf_put_var_long(int ncid, int varid, const long *lp);
+void cdf_put_var_float(int ncid, int varid, const float *fp);
+void cdf_put_var_double(int ncid, int varid, const double *dp);
+
+void cdf_get_var_text(int ncid, int varid, char *tp);
+void cdf_get_var_uchar(int ncid, int varid, unsigned char *up);
+void cdf_get_var_schar(int ncid, int varid, signed char *cp);
+void cdf_get_var_short(int ncid, int varid, short *sp);
+void cdf_get_var_int(int ncid, int varid, int *ip);
+void cdf_get_var_long(int ncid, int varid, long *lp);
+void cdf_get_var_float(int ncid, int varid, float *fp);
+void cdf_get_var_double(int ncid, int varid, double *dp);
+
+void cdf_get_var1_text(int ncid, int varid, const size_t index[], char *tp);
+
+void cdf_get_var1_double(int ncid, int varid, const size_t index[], double *dp);
+void cdf_put_var1_double(int ncid, int varid, const size_t index[], const double *dp);
+
+void cdf_get_vara_uchar(int ncid, int varid, const size_t start[], const size_t count[], unsigned char *tp);
+void cdf_get_vara_text(int ncid, int varid, const size_t start[], const size_t count[], char *tp);
+
+void cdf_get_vara_double(int ncid, int varid, const size_t start[], const size_t count[], double *dp);
+void cdf_put_vara_double(int ncid, int varid, const size_t start[], const size_t count[], const double *dp);
+
+void cdf_get_vara_float(int ncid, int varid, const size_t start[], const size_t count[], float *fp);
+void cdf_put_vara_float(int ncid, int varid, const size_t start[], const size_t count[], const float *fp);
+
+void cdf_get_vara_int(int ncid, int varid, const size_t start[], const size_t count[], int *dp);
+
+void cdf_get_vara(int ncid, int varid, const size_t start[], const size_t count[], void *cp);
+void cdf_put_vara(int ncid, int varid, const size_t start[], const size_t count[], const void *cp);
+
+void cdf_put_att_text(int ncid, int varid, const char *name, size_t len, const char *tp);
+void cdf_put_att_int(int ncid, int varid, const char *name, nc_type xtype, size_t len, const int *ip);
+void cdf_put_att_float(int ncid, int varid, const char *name, nc_type xtype, size_t len, const float *dp);
+void cdf_put_att_double(int ncid, int varid, const char *name, nc_type xtype, size_t len, const double *dp);
+
+void cdf_get_att_string(int ncid, int varid, const char *name, char **tp);
+void cdf_get_att_text(int ncid, int varid, const char *name, char *tp);
+void cdf_get_att_int(int ncid, int varid, const char *name, int *ip);
+void cdf_get_att_longlong(int ncid, int varid, const char *name, long long *llp);
+void cdf_get_att_double(int ncid, int varid, const char *name, double *dp);
+
+void cdf_inq_att(int ncid, int varid, const char *name, nc_type *xtypep, size_t *lenp);
+void cdf_inq_atttype(int ncid, int varid, const char *name, nc_type *xtypep);
+void cdf_inq_attlen(int ncid, int varid, const char *name, size_t *lenp);
+void cdf_inq_attname(int ncid, int varid, int attnum, char *name);
+void cdf_inq_attid(int ncid, int varid, const char *name, int *attnump);
+
+void cdf_def_var_chunking(int ncid, int varid, int storage, const size_t *chunksizesp);
+
+typedef int (*cdi_nc__create_funcp)(const char *path, int cmode, size_t initialsz, size_t *chunksizehintp, int *ncidp);
+
+typedef void (*cdi_cdf_def_var_funcp)(int ncid, const char *name, nc_type xtype, int ndims, const int dimids[], int *varidp);
+
+int cdi_nc_enddef_serial(int ncid, int streamID);
+int cdi_nc__enddef_serial(int ncid, int streamID, size_t hdr_pad, size_t v_align, size_t v_minfree, size_t r_align);
+typedef int (*cdi_nc_enddef_funcp)(int ncid, int streamID);
+typedef int (*cdi_nc__enddef_funcp)(int ncid, int streamID, size_t hdr_pad, size_t v_align, size_t v_minfree, size_t r_align);
+#endif
+
+#endif /* CDF_INT_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <ctype.h>
+
+
+#ifdef HAVE_LIBNETCDF
+const char *
+cdfLibraryVersion(void)
+{
+ return nc_inq_libvers();
+}
+
+int CDF_Debug = 0; // If set to 1, debugging
+
+void
+cdfDebug(int debug)
+{
+ CDF_Debug = debug;
+
+ if (CDF_Debug) Message("debug level %d", debug);
+}
+
+static void
+cdfComment(int ncid)
+{
+ static char comment[256] = "Climate Data Interface version ";
+ static bool init = false;
+
+ if (!init)
+ {
+ init = true;
+ const char *libvers = cdiLibraryVersion();
+
+ if (!isdigit((int) *libvers))
+ strcat(comment, "??");
+ else
+ strcat(comment, libvers);
+ strcat(comment, " (https://mpimet.mpg.de/cdi)");
+ }
+
+ cdf_put_att_text(ncid, NC_GLOBAL, "CDI", strlen(comment), comment);
+}
+
+static bool
+has_uri_scheme(const char *uri)
+{
+ const char *pos = strstr(uri, "://");
+ if (pos)
+ {
+ int len = pos - uri;
+ if (strncmp(uri, "file", len) == 0 || strncmp(uri, "https", len) == 0 || strncmp(uri, "s3", len) == 0) return true;
+ }
+
+ return false;
+}
+
+static int
+cdf_open_read(const char *filename, int *filetype)
+{
+ int ncid = -1;
+ int readmode = NC_NOWRITE;
+ int status = cdf_open(filename, readmode, &ncid);
+ if (status > 0 && ncid < 0) ncid = CDI_ESYSTEM;
+#ifdef HAVE_NETCDF4
+ else
+ {
+ int format = -1;
+ status = nc_inq_format(ncid, &format);
+ if (status == NC_NOERR && format == NC_FORMAT_NETCDF4_CLASSIC) *filetype = CDI_FILETYPE_NC4C;
+
+#ifdef NC_FORMATX_NCZARR
+ int modeNC;
+ status = nc_inq_format_extended(ncid, &format, &modeNC);
+ if (status == NC_NOERR && format == NC_FORMATX_NCZARR) *filetype = CDI_FILETYPE_NCZARR;
+#endif
+ }
+#endif
+
+ return ncid;
+}
+
+static int
+cdf_open_write(const char *filename, int *filetype)
+{
+ int ncid = -1;
+ int writemode = NC_CLOBBER;
+
+#ifdef NC_64BIT_OFFSET
+ if (*filetype == CDI_FILETYPE_NC2) writemode |= NC_64BIT_OFFSET;
+#endif
+#ifdef NC_64BIT_DATA
+ if (*filetype == CDI_FILETYPE_NC5) writemode |= NC_64BIT_DATA;
+#endif
+#ifdef HAVE_NETCDF4
+ if (*filetype == CDI_FILETYPE_NC4C) writemode |= (NC_NETCDF4 | NC_CLASSIC_MODEL);
+ if (*filetype == CDI_FILETYPE_NC4) writemode |= NC_NETCDF4;
+ if (*filetype == CDI_FILETYPE_NCZARR) writemode |= NC_NETCDF4;
+#endif
+ if (*filetype == CDI_FILETYPE_NCZARR)
+ {
+ if (!has_uri_scheme(filename))
+ {
+ fprintf(stderr, "URI scheme is missing in NCZarr path!\n");
+ return CDI_EINVAL;
+ }
+
+ cdf_create(filename, writemode, &ncid);
+ }
+ else
+ {
+ if (has_uri_scheme(filename)) fprintf(stderr, "URI scheme defined for non NCZarr Data Model!\n");
+
+ cdf__create(filename, writemode, &ncid);
+ }
+
+ return ncid;
+}
+
+static int
+cdfOpenFile(const char *filename, const char *mode, int *filetype)
+{
+ int ncid = -1;
+
+ if (filename == NULL)
+ {
+ ncid = CDI_EINVAL;
+ }
+ else
+ {
+ int fmode = tolower(*mode);
+ switch (fmode)
+ {
+ case 'r': ncid = cdf_open_read(filename, filetype); break;
+ case 'w':
+ ncid = cdf_open_write(filename, filetype);
+ if (ncid != CDI_EINVAL)
+ {
+ if (CDI_Version_Info) cdfComment(ncid);
+ cdf_put_att_text(ncid, NC_GLOBAL, "Conventions", 6, "CF-1.6");
+ }
+ break;
+ case 'a': cdf_open(filename, NC_WRITE, &ncid); break;
+ default: ncid = CDI_EINVAL;
+ }
+ }
+
+ return ncid;
+}
+
+int
+cdfOpen(const char *filename, const char *mode, int filetype)
+{
+ int fileID = -1;
+ bool open_file = true;
+
+ if (CDF_Debug) Message("Open %s with mode %c", filename, *mode);
+
+#ifndef NC_64BIT_OFFSET
+ if (filetype == CDI_FILETYPE_NC2) open_file = false;
+#endif
+#ifndef NC_64BIT_DATA
+ if (filetype == CDI_FILETYPE_NC5) open_file = false;
+#endif
+
+ if (open_file)
+ {
+ fileID = cdfOpenFile(filename, mode, &filetype);
+
+ if (CDF_Debug) Message("File %s opened with id %d", filename, fileID);
+ }
+ else
+ {
+ fileID = CDI_ELIBNAVAIL;
+ }
+
+ return fileID;
+}
+
+int
+cdf4Open(const char *filename, const char *mode, int *filetype)
+{
+ if (CDF_Debug) Message("Open %s with mode %c", filename, *mode);
+
+#ifdef HAVE_NETCDF4
+ int fileID = cdfOpenFile(filename, mode, filetype);
+ if (CDF_Debug) Message("File %s opened with id %d", filename, fileID);
+ return fileID;
+#else
+ return CDI_ELIBNAVAIL;
+#endif
+}
+
+static void
+cdfCloseFile(int fileID)
+{
+ cdf_close(fileID);
+}
+
+void
+cdfClose(int fileID)
+{
+ cdfCloseFile(fileID);
+}
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef NAMESPACE_H
+#define NAMESPACE_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+typedef struct
+{
+ int idx;
+ int nsp;
+} namespaceTuple_t;
+
+enum namespaceSwitch
+{
+ NSSWITCH_NO_SUCH_SWITCH = -1,
+ NSSWITCH_ABORT,
+ NSSWITCH_WARNING,
+ NSSWITCH_SERIALIZE_GET_SIZE,
+ NSSWITCH_SERIALIZE_PACK,
+ NSSWITCH_SERIALIZE_UNPACK,
+ NSSWITCH_FILE_OPEN,
+ NSSWITCH_FILE_WRITE,
+ NSSWITCH_FILE_CLOSE,
+ NSSWITCH_STREAM_OPEN_BACKEND,
+ NSSWITCH_STREAM_DEF_VLIST_,
+ NSSWITCH_STREAM_SETUP_VLIST,
+ NSSWITCH_STREAM_WRITE_VAR_,
+ NSSWITCH_STREAM_WRITE_VAR_CHUNK_,
+ NSSWITCH_STREAM_WRITE_VAR_PART_,
+ NSSWITCH_STREAM_WRITE_SCATTERED_VAR_PART_,
+ NSSWITCH_STREAM_CLOSE_BACKEND,
+ NSSWITCH_STREAM_DEF_TIMESTEP_,
+ NSSWITCH_STREAM_SYNC,
+ NSSWITCH_VLIST_DESTROY_,
+#ifdef HAVE_LIBNETCDF
+ NSSWITCH_NC__CREATE,
+ NSSWITCH_CDF_DEF_VAR,
+ NSSWITCH_NC_ENDDEF,
+ NSSWITCH_NC__ENDDEF,
+ NSSWITCH_CDF_DEF_TIMESTEP,
+ NSSWITCH_CDF_STREAM_SETUP,
+ NSSWITCH_CDF_POSTDEFACTION_GRID_PROP,
+#endif
+ NUM_NAMESPACE_SWITCH,
+};
+
+union namespaceSwitchValue
+{
+ void *data;
+ void (*func)(void);
+};
+
+#define NSSW_FUNC(p) ((union namespaceSwitchValue){ .func = (void (*)(void))(p) })
+#define NSSW_DATA(p) ((union namespaceSwitchValue){ .data = (void *) (p) })
+
+// int namespaceNew();
+// void namespaceDelete(int namespaceID);
+void namespaceCleanup(void);
+int namespaceGetNumber(void);
+// void namespaceSetActive(int namespaceID);
+// int namespaceGetActive ( void );
+int namespaceIdxEncode(namespaceTuple_t);
+int namespaceIdxEncode2(int, int);
+namespaceTuple_t namespaceResHDecode(int);
+int namespaceAdaptKey(int originResH, int originNamespace);
+int namespaceAdaptKey2(int);
+void namespaceSwitchSet(int sw, union namespaceSwitchValue value);
+union namespaceSwitchValue namespaceSwitchGet(int sw);
+/* reserve new dynamic key */
+int cdiNamespaceSwitchNewKey(void);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <sys/stat.h>
+
+
+#ifdef HAVE_LIBNETCDF
+
+void
+cdf_create(const char *path, int cmode, int *ncidp)
+{
+ int status = nc_create(path, cmode, ncidp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d mode=%d file=%s", *ncidp, cmode, path);
+
+ if (status != NC_NOERR) Error("%s: %s", path, nc_strerror(status));
+
+ int oldfill;
+ status = nc_set_fill(*ncidp, NC_NOFILL, &oldfill);
+
+ if (status != NC_NOERR) Error("%s: %s", path, nc_strerror(status));
+}
+
+void
+cdf__create(const char *path, int cmode, int *ncidp)
+{
+ int status = -1;
+ size_t chunksizehint = 0;
+
+ size_t initialsz = 0;
+
+#if defined(__SX__) || defined(ES)
+ chunksizehint = 16777216; // 16 MB
+#endif
+
+ if (CDI_Netcdf_Chunksizehint != CDI_UNDEFID) chunksizehint = (size_t) CDI_Netcdf_Chunksizehint;
+
+ cdi_nc__create_funcp my_nc__create = (cdi_nc__create_funcp) namespaceSwitchGet(NSSWITCH_NC__CREATE).func;
+ status = my_nc__create(path, cmode, initialsz, &chunksizehint, ncidp);
+
+ if (status != NC_NOERR)
+ {
+ if (CDF_Debug) Message("ncid=%d mode=%d chunksizehint=%zu file=%s", *ncidp, cmode, chunksizehint, path);
+ Error("%s: %s", path, nc_strerror(status));
+ }
+
+ int oldfill;
+ status = nc_set_fill(*ncidp, NC_NOFILL, &oldfill);
+
+ if (status != NC_NOERR) Error("%s: %s", path, nc_strerror(status));
+}
+
+int
+cdf_open(const char *path, int omode, int *ncidp)
+{
+ int status = 0;
+
+ if (strstr(path, ":/")) // ESDM and DAP
+ {
+ status = nc_open(path, omode, ncidp);
+ }
+ else
+ {
+ struct stat filestat;
+ if (stat(path, &filestat) != 0) SysError(path);
+
+ size_t chunksizehint = 0;
+#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
+ chunksizehint = (size_t) filestat.st_blksize * 4;
+ if (chunksizehint > (size_t) filestat.st_size) chunksizehint = (size_t) filestat.st_size;
+#endif
+ // if (chunksizehint < ChunkSizeMin) chunksizehint = ChunkSizeMin;
+ if (CDI_Netcdf_Chunksizehint != CDI_UNDEFID) chunksizehint = (size_t) CDI_Netcdf_Chunksizehint;
+
+ // FIXME: parallel part missing
+ status = nc__open(path, omode, &chunksizehint, ncidp);
+
+ if (CDF_Debug) Message("chunksizehint %zu", chunksizehint);
+ }
+
+ if (CDF_Debug) Message("ncid=%d mode=%d file=%s", *ncidp, omode, path);
+
+ if (CDF_Debug && status != NC_NOERR) Message("%s", nc_strerror(status));
+
+ return status;
+}
+
+void
+cdf_close(int ncid)
+{
+ int status = nc_close(ncid);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_redef(int ncid)
+{
+ int status = nc_redef(ncid);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+int
+cdi_nc_enddef_serial(int ncid, int streamID)
+{
+ (void) streamID;
+ return nc_enddef(ncid);
+}
+
+int
+cdi_nc__enddef_serial(int ncid, int streamID, size_t hdr_pad, size_t v_align, size_t v_minfree, size_t r_align)
+{
+ (void) streamID;
+ return nc__enddef(ncid, hdr_pad, v_align, v_minfree, r_align);
+}
+
+void
+cdf_enddef(int ncid, int streamID)
+{
+ cdi_nc_enddef_funcp my_nc_enddef = (cdi_nc_enddef_funcp) namespaceSwitchGet(NSSWITCH_NC_ENDDEF).func;
+ int status = my_nc_enddef(ncid, streamID);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf__enddef(int ncid, int streamID, const size_t hdr_pad)
+{
+ const size_t v_align = 4UL; // [B] Alignment of beginning of data section for fixed variables
+ const size_t v_minfree = 0UL; // [B] Pad at end of data section for fixed size variables
+ const size_t r_align = 4UL; // [B] Alignment of beginning of data section for record variables
+
+ // nc_enddef(ncid) is equivalent to nc__enddef(ncid, 0, 4, 0, 4)
+ cdi_nc__enddef_funcp my_nc__enddef = (cdi_nc__enddef_funcp) namespaceSwitchGet(NSSWITCH_NC_ENDDEF).func;
+ int status = my_nc__enddef(ncid, streamID, hdr_pad, v_align, v_minfree, r_align);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_sync(int ncid)
+{
+ int status = nc_sync(ncid);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq(int ncid, int *ndimsp, int *nvarsp, int *ngattsp, int *unlimdimidp)
+{
+ int status = nc_inq(ncid, ndimsp, nvarsp, ngattsp, unlimdimidp);
+
+ if (CDF_Debug || status != NC_NOERR)
+ Message("ncid=%d ndims=%d nvars=%d ngatts=%d unlimid=%d", ncid, *ndimsp, *nvarsp, *ngattsp, *unlimdimidp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_def_dim(int ncid, const char *name, size_t len, int *dimidp)
+{
+ int status = nc_def_dim(ncid, name, len, dimidp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d name=%s len=%d", ncid, name, len);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_dimid(int ncid, const char *name, int *dimidp)
+{
+ int status = nc_inq_dimid(ncid, name, dimidp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d name=%s dimid=%d", ncid, name, *dimidp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_dim(int ncid, int dimid, char *name, size_t *lengthp)
+{
+ int status = nc_inq_dim(ncid, dimid, name, lengthp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d dimid=%d length=%d name=%s", ncid, dimid, *lengthp, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_dimname(int ncid, int dimid, char *name)
+{
+ int status = nc_inq_dimname(ncid, dimid, name);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d dimid=%d name=%s", ncid, dimid, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_dimlen(int ncid, int dimid, size_t *lengthp)
+{
+ int status = nc_inq_dimlen(ncid, dimid, lengthp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d dimid=%d length=%d", ncid, dimid, *lengthp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_def_var(int ncid, const char *name, nc_type xtype, int ndims, const int dimids[], int *varidp)
+{
+ cdi_cdf_def_var_funcp my_cdf_def_var = (cdi_cdf_def_var_funcp) namespaceSwitchGet(NSSWITCH_CDF_DEF_VAR).func;
+ my_cdf_def_var(ncid, name, xtype, ndims, dimids, varidp);
+}
+
+void
+cdf_def_var_serial(int ncid, const char *name, nc_type xtype, int ndims, const int dimids[], int *varidp)
+{
+ int status = nc_def_var(ncid, name, xtype, ndims, dimids, varidp);
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d name=%s xtype=%d ndims=%d varid=%d", ncid, name, xtype, ndims, *varidp);
+ if (status == NC_NOERR)
+ {
+ int fileFormat;
+ status = nc_inq_format(ncid, &fileFormat);
+ if (status == NC_NOERR && (fileFormat == NC_FORMAT_NETCDF4 || fileFormat == NC_FORMAT_NETCDF4_CLASSIC))
+ status = nc_def_var_fill(ncid, *varidp, 1, NULL);
+ }
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_varid(int ncid, const char *name, int *varidp)
+{
+ int status = nc_inq_varid(ncid, name, varidp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d name=%s varid=%d", ncid, name, *varidp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_nvars(int ncid, int *nvarsp)
+{
+ int status = nc_inq_nvars(ncid, nvarsp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d nvars=%d", ncid, *nvarsp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_var(int ncid, int varid, char *name, nc_type *xtypep, int *ndimsp, int dimids[], int *nattsp)
+{
+ int status = nc_inq_var(ncid, varid, name, xtypep, ndimsp, dimids, nattsp);
+
+ if (CDF_Debug || status != NC_NOERR)
+ Message("ncid=%d varid=%d ndims=%d xtype=%d natts=%d name=%s", ncid, varid, *ndimsp, *xtypep, *nattsp, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_varname(int ncid, int varid, char *name)
+{
+ int status = nc_inq_varname(ncid, varid, name);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d name=%s", ncid, varid, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_vartype(int ncid, int varid, nc_type *xtypep)
+{
+ int status = nc_inq_vartype(ncid, varid, xtypep);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d xtype=%s", ncid, varid, *xtypep);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_varndims(int ncid, int varid, int *ndimsp)
+{
+ int status = nc_inq_varndims(ncid, varid, ndimsp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_vardimid(int ncid, int varid, int dimids[])
+{
+ int status = nc_inq_vardimid(ncid, varid, dimids);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_varnatts(int ncid, int varid, int *nattsp)
+{
+ int status = nc_inq_varnatts(ncid, varid, nattsp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d nattsp=%d", ncid, varid, *nattsp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_var_text(int ncid, int varid, const char *tp)
+{
+ int status = nc_put_var_text(ncid, varid, tp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("%d %d %s", ncid, varid, tp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_var_short(int ncid, int varid, const short *sp)
+{
+ int status = nc_put_var_short(ncid, varid, sp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("%d %d %hd", ncid, varid, *sp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_var_int(int ncid, int varid, const int *ip)
+{
+ int status = nc_put_var_int(ncid, varid, ip);
+
+ if (CDF_Debug || status != NC_NOERR) Message("%d %d %d", ncid, varid, *ip);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_var_long(int ncid, int varid, const long *lp)
+{
+ int status = nc_put_var_long(ncid, varid, lp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("%d %d %ld", ncid, varid, *lp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_var_float(int ncid, int varid, const float *fp)
+{
+ int status = nc_put_var_float(ncid, varid, fp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("%d %d %f", ncid, varid, *fp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+static const char *
+cdf_var_type(nc_type xtype)
+{
+ const char *ctype = "unknown";
+
+ // clang-format off
+ if (xtype == NC_BYTE ) ctype = "NC_BYTE";
+ else if (xtype == NC_CHAR ) ctype = "NC_CHAR";
+ else if (xtype == NC_SHORT ) ctype = "NC_SHORT";
+ else if (xtype == NC_INT ) ctype = "NC_INT";
+ else if (xtype == NC_FLOAT ) ctype = "NC_FLOAT";
+ else if (xtype == NC_DOUBLE) ctype = "NC_DOUBLE";
+#ifdef HAVE_NETCDF4
+ else if (xtype == NC_UBYTE ) ctype = "NC_UBYTE";
+ else if (xtype == NC_LONG ) ctype = "NC_LONG";
+ else if (xtype == NC_USHORT) ctype = "NC_USHORT";
+ else if (xtype == NC_UINT ) ctype = "NC_UINT";
+ else if (xtype == NC_INT64 ) ctype = "NC_INT64";
+ else if (xtype == NC_UINT64) ctype = "NC_UINT64";
+#endif
+ // clang-format on
+
+ return ctype;
+}
+
+static void
+minmaxval(size_t nvals, const double *array, double *minval, double *maxval)
+{
+ double minv = array[0];
+ double maxv = array[0];
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ minv = (array[i] < minv) ? array[i] : minv;
+ maxv = (array[i] > maxv) ? array[i] : maxv;
+ }
+
+ *minval = minv;
+ *maxval = maxv;
+}
+
+static void
+minmaxvalf(size_t nvals, const float *array, double *minval, double *maxval)
+{
+ float minv = array[0];
+ float maxv = array[0];
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ minv = (array[i] < minv) ? array[i] : minv;
+ maxv = (array[i] > maxv) ? array[i] : maxv;
+ }
+
+ *minval = minv;
+ *maxval = maxv;
+}
+
+void
+cdf_put_vara_double(int ncid, int varid, const size_t start[], const size_t count[], const double *dp)
+{
+ int status = nc_put_vara_double(ncid, varid, start, count, dp);
+
+ if (CDF_Debug || status != NC_NOERR)
+ {
+ char name[256];
+ nc_inq_varname(ncid, varid, name);
+ nc_type xtype;
+ nc_inq_vartype(ncid, varid, &xtype);
+ int ndims;
+ nc_inq_varndims(ncid, varid, &ndims);
+ double minval = 0.0, maxval = 0.0;
+ size_t nvals = 1;
+ for (int i = 0; i < ndims; ++i) nvals *= count[i];
+ minmaxval(nvals, dp, &minval, &maxval);
+ Message("name=%s type=%s minval=%f maxval=%f", name, cdf_var_type(xtype), minval, maxval);
+ }
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_vara_float(int ncid, int varid, const size_t start[], const size_t count[], const float *fp)
+{
+ int status = nc_put_vara_float(ncid, varid, start, count, fp);
+
+ if (CDF_Debug || status != NC_NOERR)
+ {
+ char name[256];
+ nc_inq_varname(ncid, varid, name);
+ nc_type xtype;
+ nc_inq_vartype(ncid, varid, &xtype);
+ int ndims;
+ nc_inq_varndims(ncid, varid, &ndims);
+ double minval = 0.0, maxval = 0.0;
+ size_t nvals = 1;
+ for (int i = 0; i < ndims; ++i) nvals *= count[i];
+ minmaxvalf(nvals, fp, &minval, &maxval);
+ Message("name=%s type=%s minval=%f maxval=%f", name, cdf_var_type(xtype), minval, maxval);
+ }
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_vara(int ncid, int varid, const size_t start[], const size_t count[], const void *cp)
+{
+ int status = nc_put_vara(ncid, varid, start, count, cp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_vara(int ncid, int varid, const size_t start[], const size_t count[], void *cp)
+{
+ int status = nc_get_vara(ncid, varid, start, count, cp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_vara_int(int ncid, int varid, const size_t start[], const size_t count[], int *dp)
+{
+ int status = nc_get_vara_int(ncid, varid, start, count, dp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_vara_double(int ncid, int varid, const size_t start[], const size_t count[], double *dp)
+{
+ int status = nc_get_vara_double(ncid, varid, start, count, dp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d start[0]=%zu count[0]=%zu", ncid, varid, start[0], count[0]);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_vara_float(int ncid, int varid, const size_t start[], const size_t count[], float *fp)
+{
+ int status = nc_get_vara_float(ncid, varid, start, count, fp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d start[0]=%zu count[0]=%zu", ncid, varid, start[0], count[0]);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_vara_text(int ncid, int varid, const size_t start[], const size_t count[], char *tp)
+{
+ int status = nc_get_vara_text(ncid, varid, start, count, tp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_vara_uchar(int ncid, int varid, const size_t start[], const size_t count[], unsigned char *tp)
+{
+ int status = nc_get_vara_uchar(ncid, varid, start, count, tp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_var_double(int ncid, int varid, const double *dp)
+{
+ int status = nc_put_var_double(ncid, varid, dp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d val0=%f", ncid, varid, *dp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_var1_text(int ncid, int varid, const size_t index[], char *tp)
+{
+ int status = nc_get_var1_text(ncid, varid, index, tp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_var1_double(int ncid, int varid, const size_t index[], double *dp)
+{
+ int status = nc_get_var1_double(ncid, varid, index, dp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_var1_double(int ncid, int varid, const size_t index[], const double *dp)
+{
+ int status = nc_put_var1_double(ncid, varid, index, dp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d val=%f", ncid, varid, *dp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_var_text(int ncid, int varid, char *tp)
+{
+ int status = nc_get_var_text(ncid, varid, tp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_var_short(int ncid, int varid, short *sp)
+{
+ int status = nc_get_var_short(ncid, varid, sp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_var_int(int ncid, int varid, int *ip)
+{
+ int status = nc_get_var_int(ncid, varid, ip);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_var_long(int ncid, int varid, long *lp)
+{
+ int status = nc_get_var_long(ncid, varid, lp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_var_float(int ncid, int varid, float *fp)
+{
+ int status = nc_get_var_float(ncid, varid, fp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d", ncid, varid);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_var_double(int ncid, int varid, double *dp)
+{
+ int status = nc_get_var_double(ncid, varid, dp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d val[0]=%f", ncid, varid, *dp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_copy_att(int ncid_in, int varid_in, const char *name, int ncid_out, int varid_out)
+{
+ int status = nc_copy_att(ncid_in, varid_in, name, ncid_out, varid_out);
+
+ if (CDF_Debug || status != NC_NOERR) Message("%d %d %s %d %d", ncid_in, varid_out, name, ncid_out, varid_out);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_att_text(int ncid, int varid, const char *name, size_t len, const char *tp)
+{
+ int status = nc_put_att_text(ncid, varid, name, len, tp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s text=%.*s", ncid, varid, name, (int) len, tp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_att_int(int ncid, int varid, const char *name, nc_type xtype, size_t len, const int *ip)
+{
+ int status = nc_put_att_int(ncid, varid, name, xtype, len, ip);
+
+ if (status == NC_ERANGE) status = NC_NOERR;
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s val=%d", ncid, varid, name, *ip);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_att_float(int ncid, int varid, const char *name, nc_type xtype, size_t len, const float *dp)
+{
+ int status = nc_put_att_float(ncid, varid, name, xtype, len, dp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s val=%g", ncid, varid, name, *dp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_put_att_double(int ncid, int varid, const char *name, nc_type xtype, size_t len, const double *dp)
+{
+ int status = nc_put_att_double(ncid, varid, name, xtype, len, dp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s val=%g", ncid, varid, name, *dp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_att_text(int ncid, int varid, const char *name, char *tp)
+{
+ int status = nc_get_att_text(ncid, varid, name, tp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d name=%s", ncid, varid, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_att_string(int ncid, int varid, const char *name, char **tp)
+{
+#ifdef HAVE_NETCDF4
+ int status = nc_get_att_string(ncid, varid, name, tp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d name=%s", ncid, varid, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+#endif
+}
+
+void
+cdf_get_att_int(int ncid, int varid, const char *name, int *ip)
+{
+ int status = nc_get_att_int(ncid, varid, name, ip);
+
+ if (status == NC_ERANGE) status = NC_NOERR;
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s val=%d", ncid, varid, name, *ip);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_get_att_longlong(int ncid, int varid, const char *name, long long *llp)
+{
+#ifdef HAVE_NETCDF4
+ int status = nc_get_att_longlong(ncid, varid, name, llp);
+
+ if (status == NC_ERANGE) status = NC_NOERR;
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s val=%lld", ncid, varid, name, *llp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+#endif
+}
+
+void
+cdf_get_att_double(int ncid, int varid, const char *name, double *dp)
+{
+ int status = nc_get_att_double(ncid, varid, name, dp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s val=%.9g", ncid, varid, name, *dp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_att(int ncid, int varid, const char *name, nc_type *xtypep, size_t *lenp)
+{
+ int status = nc_inq_att(ncid, varid, name, xtypep, lenp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s", ncid, varid, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_atttype(int ncid, int varid, const char *name, nc_type *xtypep)
+{
+ int status = nc_inq_atttype(ncid, varid, name, xtypep);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s", ncid, varid, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_attlen(int ncid, int varid, const char *name, size_t *lenp)
+{
+ int status = nc_inq_attlen(ncid, varid, name, lenp);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s len=%d", ncid, varid, name, *lenp);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_attname(int ncid, int varid, int attnum, char *name)
+{
+ int status = nc_inq_attname(ncid, varid, attnum, name);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d attnum=%d att=%s", ncid, varid, attnum, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+void
+cdf_inq_attid(int ncid, int varid, const char *name, int *attnump)
+{
+ int status = nc_inq_attid(ncid, varid, name, attnump);
+
+ if (CDF_Debug || status != NC_NOERR) Message("ncid=%d varid=%d att=%s", ncid, varid, name);
+
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+
+#ifdef HAVE_NETCDF4
+void
+cdf_def_var_chunking(int ncid, int varid, int storage, const size_t *chunksizesp)
+{
+ int status = nc_def_var_chunking(ncid, varid, storage, chunksizesp);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+}
+#endif
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _DMEMORY_H
+#define _DMEMORY_H
+
+// clang-format off
+
+#include <stdio.h>
+
+// if DEBUG_MEMORY is defined setenv MEMORY_DEBUG to debug memory
+#define DEBUG_MEMORY
+
+#ifndef WITH_FUNCTION_NAME
+#define WITH_FUNCTION_NAME
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern size_t memTotal(void);
+extern void memDebug(int debug);
+extern void memExitOnError(void);
+
+extern void *memRealloc(void *ptr, size_t size, const char *file, const char *functionname, int line);
+extern void *memCalloc(size_t nobjs, size_t size, const char *file, const char *functionname, int line);
+extern void *memMalloc(size_t size, const char *file, const char *functionname, int line);
+extern void memFree(void *ptr, const char *file, const char *functionname, int line);
+
+#ifdef __cplusplus
+}
+#endif
+
+#ifdef DEBUG_MEMORY
+
+#ifdef WITH_FUNCTION_NAME
+#define Realloc(p, s) memRealloc((p), (s), __FILE__, __func__, __LINE__)
+#define Calloc(n, s) memCalloc((n), (s), __FILE__, __func__, __LINE__)
+#define Malloc(s) memMalloc((s), __FILE__, __func__, __LINE__)
+#define Free(p) memFree((p), __FILE__, __func__, __LINE__)
+#else
+#define Realloc(p, s) memRealloc((p), (s), __FILE__, (void *) NULL, __LINE__)
+#define Calloc(n, s) memCalloc((n), (s), __FILE__, (void *) NULL, __LINE__)
+#define Malloc(s) memMalloc((s), __FILE__, (void *) NULL, __LINE__)
+#define Free(p) memFree((p), __FILE__, (void *) NULL, __LINE__)
+#endif
+
+#else
+
+#include <stdlib.h>
+
+#define Realloc(p, s) realloc((p), (s))
+#define Calloc(n, s) calloc((n), (s))
+#define Malloc(s) malloc((s))
+#define Free(p) free((p))
+
+#endif /* DEBUG_MEMORY */
+
+// clang-format on
+
+#endif /* _DMEMORY_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CDF_UTIL_H_
+#define CDF_UTIL_H_
+
+#include <stdbool.h>
+
+bool xtypeIsText(int xtype);
+
+int get_time_units(size_t len, const char *ptu);
+
+bool is_time_units(const char *timeunits);
+bool is_timeaxis_units(const char *timeunits);
+
+bool is_height_units(const char *units);
+bool is_pressure_units(const char *units);
+bool is_DBL_axis(/*const char *units,*/ const char *longname);
+bool is_depth_axis(const char *stdname, const char *longname);
+bool is_height_axis(const char *stdname, const char *longname);
+bool is_altitude_axis(const char *stdname, const char *longname);
+bool is_reference_axis(const char *stdname, const char *longname);
+
+bool is_lon_axis(const char *units, const char *stdname);
+bool is_lat_axis(const char *units, const char *stdname);
+
+bool is_x_axis(const char *units, const char *stdname);
+bool is_y_axis(const char *units, const char *stdname);
+
+void cdf_set_gridtype(const char *attstring, int *gridtype);
+void cdf_set_zaxistype(const char *attstring, int *zaxistype);
+int attribute_to_calendar(const char *attstring);
+
+#endif
+#include <string.h>
+#include <ctype.h>
+
+
+char *
+str_to_lower(char *str)
+{
+ if (str)
+ for (size_t i = 0; str[i]; ++i) str[i] = (char) tolower((int) str[i]);
+
+ return str;
+}
+
+bool
+strStartsWith(const char *vstr, const char *cstr)
+{
+ bool is_equal = false;
+ if (vstr && cstr)
+ {
+ size_t clen = strlen(cstr);
+ size_t vlen = strlen(vstr);
+ if (clen <= vlen) is_equal = (memcmp(vstr, cstr, clen) == 0);
+ }
+ return is_equal;
+}
+
+int
+get_time_units(size_t len, const char *ptu)
+{
+ int timeunit = -1;
+
+ while (isspace(*ptu) && len)
+ {
+ ptu++;
+ len--;
+ }
+
+ // clang-format off
+ if (len > 2)
+ {
+ if (strStartsWith(ptu, "sec")) timeunit = TUNIT_SECOND;
+ else if (strStartsWith(ptu, "minute")) timeunit = TUNIT_MINUTE;
+ else if (strStartsWith(ptu, "hour")) timeunit = TUNIT_HOUR;
+ else if (strStartsWith(ptu, "day")) timeunit = TUNIT_DAY;
+ else if (strStartsWith(ptu, "month")) timeunit = TUNIT_MONTH;
+ else if (strStartsWith(ptu, "calendar_month")) timeunit = TUNIT_MONTH;
+ else if (strStartsWith(ptu, "year")) timeunit = TUNIT_YEAR;
+ }
+ else if (len == 1 && ptu[0] == 's') timeunit = TUNIT_SECOND;
+ // clang-format on
+
+ return timeunit;
+}
+
+bool
+is_time_units(const char *timeunits)
+{
+ while (isspace(*timeunits)) timeunits++;
+
+ // clang-format off
+ return (strStartsWith(timeunits, "sec")
+ || strStartsWith(timeunits, "minute")
+ || strStartsWith(timeunits, "hour")
+ || strStartsWith(timeunits, "day")
+ || strStartsWith(timeunits, "month")
+ || strStartsWith(timeunits, "calendar_month")
+ || strStartsWith(timeunits, "year"));
+ // clang-format on
+}
+
+bool
+is_timeaxis_units(const char *timeunits)
+{
+ bool status = false;
+
+ size_t len = strlen(timeunits);
+ char *tu = (char *) malloc((len + 1) * sizeof(char));
+
+ for (size_t i = 0; i < len; i++) tu[i] = (char) tolower((int) timeunits[i]);
+
+ int timeunit = get_time_units(len, tu);
+ if (timeunit != -1)
+ {
+ size_t pos = 0;
+ while (!isspace(tu[pos]) && tu[pos] != 0) pos++;
+ if (tu[pos])
+ {
+ while (isspace(tu[pos])) pos++;
+
+ status = strStartsWith(tu + pos, "as") || strStartsWith(tu + pos, "since");
+ }
+ }
+
+ free(tu);
+
+ return status;
+}
+
+bool
+is_height_units(const char *units)
+{
+ int u0 = units[0];
+
+ // clang-format off
+ return ((u0=='m' && (!units[1] || strStartsWith(units, "meter")))
+ || (!units[2] && units[1]=='m' && (u0=='c' || u0=='d' || u0=='k'))
+ || (strStartsWith(units, "decimeter"))
+ || (strStartsWith(units, "centimeter"))
+ || (strStartsWith(units, "millimeter"))
+ || (strStartsWith(units, "kilometer")));
+ // clang-format on
+}
+
+bool
+is_pressure_units(const char *units)
+{
+ // clang-format off
+ return (strStartsWith(units, "millibar")
+ || strStartsWith(units, "mb")
+ || strStartsWith(units, "hectopas")
+ || strStartsWith(units, "hPa")
+ || strStartsWith(units, "pa")
+ || strStartsWith(units, "Pa"));
+ // clang-format on
+}
+
+bool
+is_DBL_axis(const char *longname)
+{
+ // clang-format off
+ return (str_is_equal(longname, "depth below land")
+ || str_is_equal(longname, "depth_below_land")
+ || str_is_equal(longname, "levels below the surface"));
+ // clang-format on
+}
+
+bool
+is_depth_axis(const char *stdname, const char *longname)
+{
+ // clang-format off
+ return (str_is_equal(stdname, "depth")
+ || str_is_equal(longname, "depth_below_sea")
+ || str_is_equal(longname, "depth below sea"));
+ // clang-format ofn
+}
+
+
+bool is_height_axis(const char *stdname, const char *longname)
+{
+ // clang-format off
+ return (str_is_equal(stdname, "height")
+ || str_is_equal(longname, "height")
+ || str_is_equal(longname, "height above the surface"));
+ // clang-format on
+}
+
+bool
+is_altitude_axis(const char *stdname, const char *longname)
+{
+ // clang-format off
+ return (str_is_equal(stdname, "altitude")
+ || str_is_equal(longname, "altitude"));
+ // clang-format on
+}
+
+bool
+is_reference_axis(const char *stdname, const char *longname)
+{
+ // clang-format off
+ return ((str_is_equal(longname, "generalized_height") || str_is_equal(longname, "generalized height"))
+ && str_is_equal(stdname, "height"));
+ // clang-format on
+}
+
+bool
+is_lon_axis(const char *units, const char *stdname)
+{
+ bool status = false;
+ char lc_units[16];
+
+ memcpy(lc_units, units, 15);
+ lc_units[15] = 0;
+ str_to_lower(lc_units);
+
+ if ((strStartsWith(lc_units, "degree") || strStartsWith(lc_units, "radian"))
+ && (strStartsWith(stdname, "grid_longitude") || strStartsWith(stdname, "longitude")))
+ {
+ status = true;
+ }
+ else if (strStartsWith(lc_units, "degree") && !strStartsWith(stdname, "grid_latitude") && !strStartsWith(stdname, "latitude"))
+ {
+ int ioff = 6;
+ if (lc_units[ioff] == 's') ioff++;
+ if (lc_units[ioff] == ' ') ioff++;
+ if (lc_units[ioff] == '_') ioff++;
+ if (lc_units[ioff] == 'e') status = true;
+ }
+
+ return status;
+}
+
+bool
+is_lat_axis(const char *units, const char *stdname)
+{
+ bool status = false;
+ char lc_units[16];
+
+ memcpy(lc_units, units, 15);
+ lc_units[15] = 0;
+ str_to_lower(lc_units);
+
+ if ((strStartsWith(lc_units, "degree") || strStartsWith(lc_units, "radian"))
+ && (strStartsWith(stdname, "grid_latitude") || strStartsWith(stdname, "latitude")))
+ {
+ status = true;
+ }
+ else if (strStartsWith(lc_units, "degree") && !strStartsWith(stdname, "grid_longitude") && !strStartsWith(stdname, "longitude"))
+ {
+ int ioff = 6;
+ if (lc_units[ioff] == 's') ioff++;
+ if (lc_units[ioff] == ' ') ioff++;
+ if (lc_units[ioff] == '_') ioff++;
+ if (lc_units[ioff] == 'n' || lc_units[ioff] == 's') status = true;
+ }
+
+ return status;
+}
+
+bool
+is_x_axis(const char *units, const char *stdname)
+{
+ (void) units;
+ return (str_is_equal(stdname, "projection_x_coordinate"));
+}
+
+bool
+is_y_axis(const char *units, const char *stdname)
+{
+ (void) units;
+ return (str_is_equal(stdname, "projection_y_coordinate"));
+}
+
+void
+cdf_set_gridtype(const char *attstring, int *gridtype)
+{
+ // clang-format off
+ if (str_is_equal(attstring, "gaussian_reduced")) *gridtype = GRID_GAUSSIAN_REDUCED;
+ else if (str_is_equal(attstring, "gaussian")) *gridtype = GRID_GAUSSIAN;
+ else if (strStartsWith(attstring, "spectral")) *gridtype = GRID_SPECTRAL;
+ else if (strStartsWith(attstring, "fourier")) *gridtype = GRID_FOURIER;
+ else if (str_is_equal(attstring, "trajectory")) *gridtype = GRID_TRAJECTORY;
+ else if (str_is_equal(attstring, "generic")) *gridtype = GRID_GENERIC;
+ else if (str_is_equal(attstring, "cell")) *gridtype = GRID_UNSTRUCTURED;
+ else if (str_is_equal(attstring, "unstructured")) *gridtype = GRID_UNSTRUCTURED;
+ else if (str_is_equal(attstring, "curvilinear")) ;
+ else if (str_is_equal(attstring, "characterxy")) *gridtype = GRID_CHARXY;
+ else if (str_is_equal(attstring, "sinusoidal")) ;
+ else if (str_is_equal(attstring, "laea")) ;
+ else if (str_is_equal(attstring, "lcc2")) ;
+ else if (str_is_equal(attstring, "linear")) ; // ignore grid type linear
+ else
+ {
+ static bool warn = true;
+ if (warn)
+ {
+ warn = false;
+ Warning("NetCDF attribute grid_type='%s' unsupported!", attstring);
+ }
+ }
+ // clang-format on
+}
+
+void
+cdf_set_zaxistype(const char *attstring, int *zaxistype)
+{
+ // clang-format off
+ if (str_is_equal(attstring, "toa")) *zaxistype = ZAXIS_TOA;
+ else if (str_is_equal(attstring, "tropopause")) *zaxistype = ZAXIS_TROPOPAUSE;
+ else if (str_is_equal(attstring, "cloudbase")) *zaxistype = ZAXIS_CLOUD_BASE;
+ else if (str_is_equal(attstring, "cloudtop")) *zaxistype = ZAXIS_CLOUD_TOP;
+ else if (str_is_equal(attstring, "isotherm0")) *zaxistype = ZAXIS_ISOTHERM_ZERO;
+ else if (str_is_equal(attstring, "seabottom")) *zaxistype = ZAXIS_SEA_BOTTOM;
+ else if (str_is_equal(attstring, "lakebottom")) *zaxistype = ZAXIS_LAKE_BOTTOM;
+ else if (str_is_equal(attstring, "sedimentbottom")) *zaxistype = ZAXIS_SEDIMENT_BOTTOM;
+ else if (str_is_equal(attstring, "sedimentbottomta")) *zaxistype = ZAXIS_SEDIMENT_BOTTOM_TA;
+ else if (str_is_equal(attstring, "sedimentbottomtw")) *zaxistype = ZAXIS_SEDIMENT_BOTTOM_TW;
+ else if (str_is_equal(attstring, "mixlayer")) *zaxistype = ZAXIS_MIX_LAYER;
+ else if (str_is_equal(attstring, "atmosphere")) *zaxistype = ZAXIS_ATMOSPHERE;
+ else
+ {
+ static bool warn = true;
+ if (warn)
+ {
+ warn = false;
+ Warning("NetCDF attribute level_type='%s' unsupported!", attstring);
+ }
+ }
+ // clang-format on
+}
+
+int
+attribute_to_calendar(const char *attstring)
+{
+ int calendar = CALENDAR_STANDARD;
+ // clang-format off
+ if (strStartsWith(attstring, "standard")) calendar = CALENDAR_STANDARD;
+ else if (strStartsWith(attstring, "gregorian")) calendar = CALENDAR_GREGORIAN;
+ else if (strStartsWith(attstring, "none")) calendar = CALENDAR_NONE;
+ else if (strStartsWith(attstring, "proleptic")) calendar = CALENDAR_PROLEPTIC;
+ else if (strStartsWith(attstring, "360")) calendar = CALENDAR_360DAYS;
+ else if (strStartsWith(attstring, "365") ||
+ strStartsWith(attstring, "noleap")) calendar = CALENDAR_365DAYS;
+ else if (strStartsWith(attstring, "366") ||
+ strStartsWith(attstring, "all_leap")) calendar = CALENDAR_366DAYS;
+ else Warning("calendar >%s< unsupported!", attstring);
+ // clang-format on
+ return calendar;
+}
+#ifndef CDI_KEY_H
+#define CDI_KEY_H
+
+
+// CDI key
+typedef struct
+{
+ int key; // CDI key
+ int type; // KEY_INT, KEY_FLOAT, KEY_BYTES
+ int length; // number of bytes in v.s
+ union
+ {
+ int i;
+ double d;
+ unsigned char *s;
+ } v;
+} cdi_key_t;
+
+typedef struct
+{
+ size_t nalloc; // number allocated >= nelems
+ size_t nelems; // length of the array
+ cdi_key_t value[MAX_KEYS];
+} cdi_keys_t;
+
+enum
+{
+ KEY_INT = 1,
+ KEY_FLOAT,
+ KEY_BYTES
+};
+
+void cdiDefVarKeyInt(cdi_keys_t *keysp, int key, int value);
+void cdiDefVarKeyFloat(cdi_keys_t *keysp, int key, double value);
+void cdiDefVarKeyBytes(cdi_keys_t *keysp, int key, const unsigned char *bytes, int length);
+int cdiInqVarKeyInt(const cdi_keys_t *keysp, int key);
+int cdiInqVarKeyBytes(const cdi_keys_t *keysp, int key, unsigned char *bytes, int *length);
+
+cdi_key_t *find_key(cdi_keys_t *keysp, int key);
+const char *cdiInqVarKeyStringPtr(const cdi_keys_t *keysp, int key);
+
+static inline const char *
+cdiInqVarKeyString(const cdi_keys_t *keysp, int key)
+{
+ const char *string = cdiInqVarKeyStringPtr(keysp, key);
+ if (string == NULL) string = "";
+ return string;
+}
+
+int cdiCopyVarKey(const cdi_keys_t *keysp1, int key, cdi_keys_t *keysp2);
+void cdiCopyVarKeys(const cdi_keys_t *keysp1, cdi_keys_t *keysp2);
+void cdiDeleteVarKeys(cdi_keys_t *keysp);
+void cdiDeleteKeys(int cdiID, int varID);
+void cdiPrintKeys(int cdiID, int varID);
+
+void cdiInitKeys(cdi_keys_t *keysp);
+
+int cdi_key_compare(cdi_keys_t *keyspa, cdi_keys_t *keyspb, int keynum);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CDI_ATT_H
+#define CDI_ATT_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifndef CDI_LIMITS_H
+#endif
+
+// CDI attribute
+// clang-format off
+typedef struct
+{
+ size_t xsz; // amount of space at xvalue
+ size_t namesz; // size of name
+ char *name; // attribute name
+ int indtype; // internal data type of xvalue (INT, FLT or TXT)
+ int exdtype; // external data type
+ // indtype exdtype
+ // TXT TXT
+ // INT INT16, INT32
+ // FLT FLT32, FLT64
+ size_t nelems; // number of elements
+ void *xvalue; // the actual data
+} cdi_att_t;
+// clang-format on
+
+// clang-format off
+typedef struct
+{
+ size_t nalloc; // number allocated >= nelems
+ size_t nelems; // length of the array
+ cdi_att_t value[MAX_ATTRIBUTES];
+} cdi_atts_t;
+// clang-format on
+
+int cdiDeleteAtts(int vlistID, int varID);
+int cdiAttsGetSize(void *p, int varID, void *context);
+void cdiAttsPack(void *p, int varID, void *buf, int size, int *position, void *context);
+void cdiAttsUnpack(int cdiID, int varID, void *buf, int size, int *position, void *context);
+
+int cdi_att_compare(cdi_atts_t *attspa, cdi_atts_t *attspb, int attnum);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef GRID_H
+#define GRID_H
+
+#include <stdbool.h>
+
+
+typedef unsigned char mask_t;
+
+typedef struct grid_t grid_t;
+
+enum gridPropInq
+{
+ GRID_PROP_MASK,
+ GRID_PROP_MASK_GME,
+ GRID_PROP_XVALS,
+ GRID_PROP_YVALS,
+ GRID_PROP_AREA,
+ GRID_PROP_XBOUNDS,
+ GRID_PROP_YBOUNDS,
+};
+
+struct gridVirtTable
+{
+ void (*destroy)(grid_t *gridptr);
+ grid_t *(*copy)(grid_t *gridptr);
+ void (*copyScalarFields)(grid_t *gridptrOrig, grid_t *gridptrDup);
+ void (*copyArrayFields)(grid_t *gridptrOrig, grid_t *gridptrDup);
+ void (*defXVals)(grid_t *gridptr, const double *xvals);
+ void (*defYVals)(grid_t *gridptr, const double *yvals);
+ void (*defMask)(grid_t *gridptr, const int *mask);
+ void (*defMaskGME)(grid_t *gridptr, const int *mask);
+ void (*defXBounds)(grid_t *gridptr, const double *xbounds);
+ void (*defYBounds)(grid_t *gridptr, const double *ybounds);
+ void (*defArea)(grid_t *gridptr, const double *area);
+ double (*inqXVal)(grid_t *gridptr, SizeType index);
+ double (*inqYVal)(grid_t *gridptr, SizeType index);
+ SizeType (*inqXVals)(grid_t *gridptr, double *xvals);
+ SizeType (*inqXValsPart)(grid_t *gridptr, int start, SizeType length, double *xvals);
+ SizeType (*inqYVals)(grid_t *gridptr, double *yvals);
+ SizeType (*inqYValsPart)(grid_t *gridptr, int start, SizeType length, double *yvals);
+ const double *(*inqXValsPtr)(grid_t *gridptr);
+ const double *(*inqYValsPtr)(grid_t *gridptr);
+#ifndef USE_MPI
+ int (*inqXIsc)(grid_t *gridptr);
+ int (*inqYIsc)(grid_t *gridptr);
+ SizeType (*inqXCvals)(grid_t *gridptr, char **xcvals);
+ SizeType (*inqYCvals)(grid_t *gridptr, char **ycvals);
+ const char **(*inqXCvalsPtr)(grid_t *gridptr);
+ const char **(*inqYCvalsPtr)(grid_t *gridptr);
+#endif
+ double (*inqXInc)(grid_t *gridptr);
+ double (*inqYInc)(grid_t *gridptr);
+ // return true if for both grids, any xval and all yval differ
+ bool (*compareXYFull)(grid_t *gridRef, grid_t *gridTest);
+ // return if for both grids, x[0], y[0], x[size-1] and y[size-1] are respectively equal
+ bool (*compareXYAO)(grid_t *gridRef, grid_t *gridTest);
+ void (*inqArea)(grid_t *gridptr, double *area);
+ const double *(*inqAreaPtr)(grid_t *gridptr);
+ /* return 1 if inq property is set */
+ int (*inqPropPresence)(grid_t *gridptr, enum gridPropInq inq);
+ SizeType (*inqMask)(grid_t *gridptr, int *mask);
+ int (*inqMaskGME)(grid_t *gridptr, int *mask_gme);
+ SizeType (*inqXBounds)(grid_t *gridptr, double *xbounds);
+ SizeType (*inqYBounds)(grid_t *gridptr, double *ybounds);
+ const double *(*inqXBoundsPtr)(grid_t *gridptr);
+ const double *(*inqYBoundsPtr)(grid_t *gridptr);
+ int txCode;
+ int (*getPackSize)(grid_t *gridptr, void *context);
+ int (*getPackSizeScalars)(grid_t *gridptr, void *context);
+ int (*getPackSizeArrays)(grid_t *gridptr, void *context);
+ int (*unpack)(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context, int force_id);
+ grid_t *(*unpackScalars)(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context,
+ int force_id, int *memberMaskP);
+ void (*unpackArrays)(grid_t *gridptr, int memberMask, char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos,
+ int originNamespace, void *context);
+ void (*pack)(grid_t *gridptr, void *packBuffer, int packBufferSize, int *packBufferPos, void *context);
+ /* return member mask */
+ int (*packScalars)(grid_t *gridptr, void *packBuffer, int packBufferSize, int *packBufferPos, void *context);
+ void (*packArrays)(grid_t *gridptr, int memberMask, void *packBuffer, int packBufferSize, int *packBufferPos, void *context);
+};
+
+struct gridaxis_t
+{
+ size_t size; // number of values
+ short flag; // 0: undefined 1:vals 2:first+inc
+ double first, last, inc;
+ double *vals;
+ double *bounds;
+ cdi_keys_t keys;
+#ifndef USE_MPI
+ int clength;
+ char **cvals;
+#endif
+};
+
+// GME Grid
+struct grid_gme_t
+{
+ int nd, ni, ni2, ni3; // parameter for GRID_GME
+};
+
+struct grid_t
+{
+ char *name;
+ int self;
+ size_t size;
+ int type; // grid type
+ int datatype; // grid data type (used only internal in gridComplete())
+ int proj; // grid projection
+ int projtype; // grid projection type
+ mask_t *mask;
+ mask_t *mask_gme;
+ double *area;
+ struct grid_gme_t gme;
+ int trunc; // parameter for GRID_SPECTRAL
+ int nvertex;
+ int *reducedPoints;
+ int reducedPointsSize;
+ int np; // number of parallels between a pole and the equator
+ signed char isCyclic; // three possible states:
+ // -1 if unknown,
+ // 0 if found not cyclic, or
+ // 1 for global cyclic grids
+ bool lcomplex;
+ bool hasdims;
+ struct gridaxis_t x;
+ struct gridaxis_t y;
+ const struct gridVirtTable *vtable;
+ cdi_keys_t keys;
+ cdi_atts_t atts;
+ void *extraData;
+};
+
+void grid_init(grid_t *gridptr);
+void cdiGridTypeInit(grid_t *gridptr, int gridtype, size_t size);
+void grid_free(grid_t *gridptr);
+grid_t *grid_to_pointer(int gridID);
+extern const struct gridVirtTable cdiGridVtable;
+
+unsigned cdiGridCount(void);
+
+void gridVerifyProj(int gridID);
+
+double gridInqXincInMeter(int gridID);
+double gridInqYincInMeter(int gridID);
+
+// const double *gridInqXvalsPtr(int gridID);
+// const double *gridInqYvalsPtr(int gridID);
+
+const char **gridInqXCvalsPtr(int gridID);
+const char **gridInqYCvalsPtr(int gridID);
+
+// const double *gridInqXboundsPtr(int gridID);
+// const double *gridInqYboundsPtr(int gridID);
+const double *gridInqAreaPtr(int gridID);
+
+int gridInqPropPresence(int gridID, enum gridPropInq inq);
+
+int gridGenerate(const grid_t *grid);
+
+// int gridIsEqual(int gridID1, int gridID2);
+
+void cdiGridGetIndexList(unsigned, int *);
+
+int gridUnpack(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context, int force_id);
+
+/* apply func to each grid */
+enum cdiApplyRet cdiGridApply(enum cdiApplyRet (*func)(int id, void *res, void *data), void *data);
+
+struct addIfNewRes
+{
+ int Id;
+ int isNew;
+};
+
+struct addIfNewRes cdiVlistAddGridIfNew(int vlistID, grid_t *grid, int mode);
+
+int gridVerifyProjParamsLCC(struct CDI_GridProjParams *gpp);
+int gridVerifyProjParamsSTERE(struct CDI_GridProjParams *gpp);
+int gridVerifyProjParamsHEALPIX(struct CDI_GridProjParams *gpp);
+
+bool isGaussianLatitudes(size_t nlats, const double *latitudes);
+void gaussianLatitudes(size_t nlats, double *latitudes, double *weights);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _STREAM_CDF_H
+#define _STREAM_CDF_H
+
+
+enum
+{
+ POSITIVE_UP = 1,
+ POSITIVE_DOWN = 2,
+};
+
+enum
+{
+ CDF_MAX_TIME_UNIT_STR /* maximum length of time unit string */
+ = TAXIS_MAX_UNIT_STR_LEN /* longest result from tunitNamePtr */
+ + 7 /* room for " since " */
+ + 7 + 1 + 2 + 1 + 2 /* room for year with 7 digits,
+ * dashes and 2 digits for month and day */
+ + 1 + 2 + 1 + 2 + 1 + 2 /* room for " " and 2 digit hour, minute,
+ * second */
+ + 1 /* and terminating '\0' */
+};
+
+int cdfDefVar(stream_t *streamptr, int varID);
+void cdfDefCoordinateVars(stream_t *streamptr);
+void cdfDefTimestep(stream_t *streamptr, int tsID, size_t valCount);
+int cdfInqTimestep(stream_t *streamptr, int tsID);
+int cdfInqContents(stream_t *streamptr);
+
+void cdfEndDef(stream_t *streamptr);
+void cdfDefRecord(stream_t *streamptr);
+
+void cdfCopyRecord(stream_t *streamptr2, stream_t *streamptr1);
+
+void cdfDefineAttributes(int filetype, int vlistID, int varID, int fileID, int ncvarID);
+
+void cdf_read_record(stream_t *streamptr, int memtype, void *data, size_t *numMissVals);
+void cdf_write_record(stream_t *streamptr, int memtype, const void *data, size_t numMissVals);
+
+void cdf_read_var(stream_t *streamptr, int varID, int memtype, void *data, size_t *numMissVals);
+void cdf_write_var(stream_t *streamptr, int varID, int memtype, const void *data, size_t numMissVals);
+
+void cdf_read_var_slice(stream_t *streamptr, int varID, int levelID, int memtype, void *data, size_t *numMissVals);
+void cdf_write_var_slice(stream_t *streamptr, int varID, int levelID, int memtype, const void *data, size_t numMissVals);
+
+void cdf_write_var_chunk(stream_t *streamptr, int varID, int memtype, const int rect[][2], const void *data, size_t numMissVals);
+
+void cdfDefVarDeflate(int ncid, int ncvarid, int shuffle, int deflateLevel);
+void cdfDefTime(stream_t *streamptr);
+
+void cdf_scale_add(size_t size, double *data, double addoffset, double scalefactor);
+
+int cdfDefDatatype(int datatype, stream_t *streamptr);
+
+void cdf_create_records(stream_t *streamptr, int tsID);
+
+#define ChunkSizeMax 65536
+#define ChunkSizeLim 16777216
+size_t calc_chunksize_x(int chunkType, int chunkSize, size_t xsize, bool yIsUndefined);
+size_t calc_chunksize_y(int chunkType, size_t gridsize, size_t xsize, size_t ysize);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CDF_LAZY_GRID_H_
+#define CDF_LAZY_GRID_H_
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_MMAP
+#include <unistd.h>
+#include <sys/mman.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#endif
+
+#ifdef HAVE_LIBPTHREAD
+#include <pthread.h>
+#endif
+
+#include <string.h>
+
+
+struct xyValGet
+{
+ double scalefactor, addoffset;
+ size_t start[3], count[3], size, dimsize;
+ int datasetNCId, varNCId;
+ short ndims;
+};
+
+struct cdfLazyGridIds
+{
+ int datasetNCId, varNCId;
+};
+
+struct cdfLazyGrid
+{
+ grid_t base;
+ const struct gridVirtTable *baseVtable;
+ struct cdfLazyGridIds cellAreaGet, xBoundsGet, yBoundsGet;
+ struct xyValGet xValsGet, yValsGet;
+#ifdef HAVE_LIBPTHREAD
+ pthread_mutex_t loadSerialize;
+#endif
+};
+
+extern double *cdfPendingLoad;
+
+void cdfLazyGridRenew(struct cdfLazyGrid *restrict *restrict gridpptr, int gridtype);
+void cdfBaseGridRenew(struct cdfLazyGrid *restrict *restrict gridpptr, int gridtype);
+
+void cdfLazyGridDestroy(struct cdfLazyGrid *lazyGrid);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBNETCDF
+
+static struct gridVirtTable cdfLazyGridVtable;
+double *cdfPendingLoad;
+#ifdef HAVE_LIBPTHREAD
+static pthread_once_t cdfLazyInitialized = PTHREAD_ONCE_INIT;
+#else
+static bool cdfLazyInitialized;
+#endif
+
+#ifdef HAVE_LIBPTHREAD
+#define lock_lazy_load(plGrid) pthread_mutex_lock(&((plGrid)->loadSerialize))
+#define unlock_lazy_load(plGrid) pthread_mutex_unlock(&((plGrid)->loadSerialize))
+#define destroy_lazy_load_lock(plGrid) pthread_mutex_destroy(&((plGrid)->loadSerialize))
+#define init_lazy_load_lock(plGrid) pthread_mutex_init(&((plGrid)->loadSerialize), NULL)
+#else
+#define lock_lazy_load(plGrid)
+#define unlock_lazy_load(plGrid)
+#define destroy_lazy_load_lock(plGrid)
+#define init_lazy_load_lock(plGrid)
+#endif
+
+void
+cdfLazyGridDestroy(struct cdfLazyGrid *lazyGrid)
+{
+ lazyGrid->base.extraData = NULL;
+ if (lazyGrid->base.area == cdfPendingLoad) lazyGrid->base.area = NULL;
+ if (lazyGrid->base.x.vals == cdfPendingLoad) lazyGrid->base.x.vals = NULL;
+ if (lazyGrid->base.y.vals == cdfPendingLoad) lazyGrid->base.y.vals = NULL;
+ if (lazyGrid->base.x.bounds == cdfPendingLoad) lazyGrid->base.x.bounds = NULL;
+ if (lazyGrid->base.y.bounds == cdfPendingLoad) lazyGrid->base.y.bounds = NULL;
+ destroy_lazy_load_lock(lazyGrid);
+}
+
+static void
+cdfLazyGridDelete(grid_t *grid)
+{
+ struct cdfLazyGrid *cdfGrid = (struct cdfLazyGrid *) grid;
+ void (*baseDestroy)(grid_t * grid) = cdfGrid->baseVtable->destroy;
+ cdfLazyGridDestroy(cdfGrid);
+ baseDestroy(grid);
+}
+
+static void
+cdfLazyGridDestroyOnce(void)
+{
+ /*
+#ifdef HAVE_MMAP
+ size_t pgSize = cdiGetPageSize(false);
+ munmap(cdfPendingLoad, pgSize);
+#endif
+ */
+}
+
+static void
+cdfLazyGridDefArea(grid_t *grid, const double *area)
+{
+ struct cdfLazyGrid *cdfGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(cdfGrid);
+ if (grid->area == cdfPendingLoad) grid->area = NULL;
+ cdfGrid->cellAreaGet.datasetNCId = -1;
+ cdfGrid->cellAreaGet.varNCId = -1;
+ cdfGrid->baseVtable->defArea(grid, area);
+ unlock_lazy_load(cdfGrid);
+}
+
+static const double *
+cdfLazyGridInqAreaPtr(grid_t *grid)
+{
+ struct cdfLazyGrid *lazyGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(lazyGrid);
+ if (grid->area == cdfPendingLoad)
+ {
+ grid->area = (double *) Malloc(grid->size * sizeof(double));
+ cdf_get_var_double(lazyGrid->cellAreaGet.datasetNCId, lazyGrid->cellAreaGet.varNCId, grid->area);
+ }
+ unlock_lazy_load(lazyGrid);
+ return lazyGrid->baseVtable->inqAreaPtr(grid);
+}
+
+static void
+cdfLazyGridInqArea(grid_t *grid, double *area)
+{
+ grid->vtable->inqAreaPtr(grid);
+ struct cdfLazyGrid *lazyGrid = (struct cdfLazyGrid *) grid;
+ lazyGrid->baseVtable->inqArea(grid, area);
+}
+
+static void
+cdfLazyLoadXYVals(struct xyValGet *valsGet, double **valsp)
+{
+ double *grid_vals = (double *) Malloc(valsGet->size * sizeof(double));
+ *valsp = grid_vals;
+ if (valsGet->ndims == 3)
+ cdf_get_vara_double(valsGet->datasetNCId, valsGet->varNCId, valsGet->start, valsGet->count, grid_vals);
+ else
+ cdf_get_var_double(valsGet->datasetNCId, valsGet->varNCId, grid_vals);
+ cdf_scale_add(valsGet->size, grid_vals, valsGet->addoffset, valsGet->scalefactor);
+}
+
+static const double *
+cdfLazyGridInqXValsPtr(grid_t *grid)
+{
+ struct cdfLazyGrid *lazyGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(lazyGrid);
+ if (grid->x.vals == cdfPendingLoad) cdfLazyLoadXYVals(&lazyGrid->xValsGet, &grid->x.vals);
+ unlock_lazy_load(lazyGrid);
+ return lazyGrid->baseVtable->inqXValsPtr(grid);
+}
+
+static const double *
+cdfLazyGridInqYValsPtr(grid_t *grid)
+{
+ struct cdfLazyGrid *lazyGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(lazyGrid);
+ if (grid->y.vals == cdfPendingLoad) cdfLazyLoadXYVals(&lazyGrid->yValsGet, &grid->y.vals);
+ unlock_lazy_load(lazyGrid);
+ return lazyGrid->baseVtable->inqYValsPtr(grid);
+}
+
+static double
+cdfLazyGridInqXYVal(grid_t *grid, size_t index, const struct xyValGet *valsGet, double *vals,
+ const double *(*inqValsPtr)(grid_t *gridptr))
+{
+ size_t size = valsGet->size;
+ double v;
+ if (vals == cdfPendingLoad)
+ {
+ // prevent full load if only first/last values get inspected
+ if (index == 0 || index == size - 1)
+ {
+ size_t indexND[3];
+ if (valsGet->ndims == 3)
+ {
+ indexND[0] = 0;
+ indexND[1] = index / valsGet->count[2];
+ indexND[2] = index % valsGet->count[2];
+ }
+ else if (valsGet->ndims == 2)
+ {
+ indexND[0] = index / grid->x.size;
+ indexND[1] = index % grid->x.size;
+ }
+ else
+ indexND[0] = index;
+ cdf_get_var1_double(valsGet->datasetNCId, valsGet->varNCId, indexND, &v);
+ }
+ else
+ {
+ const double *grid_vals = inqValsPtr(grid);
+ v = grid_vals[index];
+ }
+ }
+ else if (vals)
+ v = vals[index];
+ else
+ v = 0.0;
+
+ return v;
+}
+
+static void
+cdfLazyGridDefXVals(grid_t *grid, const double *vals)
+{
+ struct cdfLazyGrid *cdfGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(cdfGrid);
+ if (grid->x.vals == cdfPendingLoad) grid->x.vals = NULL;
+ cdfGrid->xValsGet.datasetNCId = -1;
+ cdfGrid->xValsGet.varNCId = -1;
+ cdfGrid->baseVtable->defXVals(grid, vals);
+ unlock_lazy_load(cdfGrid);
+}
+
+static void
+cdfLazyGridDefYVals(grid_t *grid, const double *vals)
+{
+ struct cdfLazyGrid *cdfGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(cdfGrid);
+ if (grid->y.vals == cdfPendingLoad) grid->y.vals = NULL;
+ cdfGrid->yValsGet.datasetNCId = -1;
+ cdfGrid->yValsGet.varNCId = -1;
+ cdfGrid->baseVtable->defYVals(grid, vals);
+ unlock_lazy_load(cdfGrid);
+}
+
+static double
+cdfLazyGridInqXVal(grid_t *grid, SizeType index)
+{
+ struct cdfLazyGrid *lazyGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(lazyGrid);
+ const double rv = cdfLazyGridInqXYVal(grid, index, &lazyGrid->xValsGet, grid->x.vals, grid->vtable->inqXValsPtr);
+ unlock_lazy_load(lazyGrid);
+ return rv;
+}
+
+static double
+cdfLazyGridInqYVal(grid_t *grid, SizeType index)
+{
+ struct cdfLazyGrid *lazyGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(lazyGrid);
+ const double rv = cdfLazyGridInqXYVal(grid, index, &lazyGrid->yValsGet, grid->y.vals, grid->vtable->inqYValsPtr);
+ unlock_lazy_load(lazyGrid);
+ return rv;
+}
+
+static bool
+cdfLazyXYValGetCompare(struct cdfLazyGrid *lazyGridRef, struct cdfLazyGrid *lazyGridTest)
+{
+ struct xyValGet *valsGetXRef = &lazyGridRef->xValsGet, *valsGetYRef = &lazyGridRef->yValsGet,
+ *valsGetXTest = &lazyGridTest->xValsGet, *valsGetYTest = &lazyGridTest->yValsGet;
+ if (valsGetXRef->datasetNCId == -1 || valsGetXTest->datasetNCId == -1 || valsGetYRef->datasetNCId == -1
+ || valsGetYTest->datasetNCId == -1)
+ return lazyGridRef->baseVtable->compareXYFull(&lazyGridRef->base, &lazyGridTest->base);
+
+ return valsGetXRef->datasetNCId != valsGetXTest->datasetNCId || valsGetXRef->varNCId != valsGetXTest->varNCId
+ || valsGetYRef->datasetNCId != valsGetYTest->datasetNCId || valsGetYRef->varNCId != valsGetYTest->varNCId;
+}
+
+static bool
+cdfLazyCompareXYFull(grid_t *gridRef, grid_t *gridTest)
+{
+ bool diff;
+ struct cdfLazyGrid *lazyGridRef = (struct cdfLazyGrid *) gridRef;
+ if (gridTest->vtable == &cdfLazyGridVtable)
+ diff = cdfLazyXYValGetCompare(lazyGridRef, (struct cdfLazyGrid *) gridTest);
+ else
+ diff = lazyGridRef->baseVtable->compareXYFull(gridRef, gridTest);
+ return diff;
+}
+
+static bool
+cdfLazyCompareXYAO(grid_t *gridRef, grid_t *gridTest)
+{
+ bool diff;
+ struct cdfLazyGrid *lazyGridRef = (struct cdfLazyGrid *) gridRef;
+ if (gridTest->vtable == &cdfLazyGridVtable)
+ diff = cdfLazyXYValGetCompare(lazyGridRef, (struct cdfLazyGrid *) gridTest);
+ else
+ diff = lazyGridRef->baseVtable->compareXYAO(gridRef, gridTest);
+ return diff;
+}
+
+static const double *
+cdfLazyGridInqXBoundsPtr(grid_t *grid)
+{
+ struct cdfLazyGrid *lazyGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(lazyGrid);
+ if (grid->x.bounds == cdfPendingLoad)
+ {
+ grid->x.bounds = (double *) Malloc((size_t) grid->nvertex * grid->size * sizeof(double));
+ cdf_get_var_double(lazyGrid->xBoundsGet.datasetNCId, lazyGrid->xBoundsGet.varNCId, grid->x.bounds);
+ }
+ unlock_lazy_load(lazyGrid);
+ return lazyGrid->baseVtable->inqXBoundsPtr(grid);
+}
+
+static void
+cdfLazyGridDefXBounds(grid_t *grid, const double *xbounds)
+{
+ struct cdfLazyGrid *cdfGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(cdfGrid);
+ if (grid->x.bounds == cdfPendingLoad) grid->x.bounds = NULL;
+ cdfGrid->xBoundsGet.datasetNCId = -1;
+ cdfGrid->xBoundsGet.varNCId = -1;
+ cdfGrid->baseVtable->defXBounds(grid, xbounds);
+ unlock_lazy_load(cdfGrid);
+}
+
+static void
+cdfLazyGridDefYBounds(grid_t *grid, const double *ybounds)
+{
+ struct cdfLazyGrid *cdfGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(cdfGrid);
+ if (grid->y.bounds == cdfPendingLoad) grid->y.bounds = NULL;
+ cdfGrid->yBoundsGet.datasetNCId = -1;
+ cdfGrid->yBoundsGet.varNCId = -1;
+ cdfGrid->baseVtable->defYBounds(grid, ybounds);
+ unlock_lazy_load(cdfGrid);
+}
+
+static const double *
+cdfLazyGridInqYBoundsPtr(grid_t *grid)
+{
+ struct cdfLazyGrid *lazyGrid = (struct cdfLazyGrid *) grid;
+ lock_lazy_load(lazyGrid);
+ if (grid->y.bounds == cdfPendingLoad)
+ {
+ grid->y.bounds = (double *) Malloc((size_t) grid->nvertex * grid->size * sizeof(double));
+ cdf_get_var_double(lazyGrid->yBoundsGet.datasetNCId, lazyGrid->yBoundsGet.varNCId, grid->y.bounds);
+ }
+ unlock_lazy_load(lazyGrid);
+ return lazyGrid->baseVtable->inqYBoundsPtr(grid);
+}
+
+static void
+cdfLazyGridCopyScalarFields(grid_t *gridptrOrig, grid_t *gridptrDup)
+{
+ struct cdfLazyGrid *lazyGridDup = (struct cdfLazyGrid *) gridptrDup, *lazyGridOrig = (struct cdfLazyGrid *) gridptrOrig;
+ lazyGridOrig->baseVtable->copyScalarFields(gridptrOrig, &lazyGridDup->base);
+ lazyGridDup->baseVtable = lazyGridOrig->baseVtable;
+ lazyGridDup->cellAreaGet = lazyGridOrig->cellAreaGet;
+ lazyGridDup->xBoundsGet = lazyGridOrig->xBoundsGet;
+ lazyGridDup->yBoundsGet = lazyGridOrig->yBoundsGet;
+ lazyGridDup->xValsGet = lazyGridOrig->xValsGet;
+ lazyGridDup->yValsGet = lazyGridOrig->yValsGet;
+ init_lazy_load_lock(lazyGridDup);
+}
+
+static void
+cdfLazyGridCopyArrayFields(grid_t *gridptrOrig, grid_t *gridptrDup)
+{
+ const size_t reducedPointsSize = (size_t) gridptrOrig->reducedPointsSize;
+ const size_t gridsize = gridptrOrig->size;
+ const int gridtype = gridptrOrig->type;
+ const int irregular = (gridtype == GRID_CURVILINEAR || gridtype == GRID_UNSTRUCTURED);
+
+ if (reducedPointsSize)
+ {
+ gridptrDup->reducedPoints = (int *) Malloc(reducedPointsSize * sizeof(int));
+ memcpy(gridptrDup->reducedPoints, gridptrOrig->reducedPoints, reducedPointsSize * sizeof(int));
+ }
+
+ if (gridptrOrig->x.vals != NULL && gridptrOrig->x.vals != cdfPendingLoad)
+ {
+ const size_t size = irregular ? gridsize : gridptrOrig->x.size;
+ gridptrDup->x.vals = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->x.vals, gridptrOrig->x.vals, size * sizeof(double));
+ }
+
+ if (gridptrOrig->y.vals != NULL && gridptrOrig->y.vals != cdfPendingLoad)
+ {
+ const size_t size = irregular ? gridsize : gridptrOrig->y.size;
+ gridptrDup->y.vals = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->y.vals, gridptrOrig->y.vals, size * sizeof(double));
+ }
+
+ if (gridptrOrig->x.bounds != NULL && gridptrOrig->x.bounds != cdfPendingLoad)
+ {
+ const size_t size = (irregular ? gridsize : gridptrOrig->x.size) * (size_t) gridptrOrig->nvertex;
+ gridptrDup->x.bounds = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->x.bounds, gridptrOrig->x.bounds, size * sizeof(double));
+ }
+
+ if (gridptrOrig->y.bounds != NULL && gridptrOrig->y.bounds != cdfPendingLoad)
+ {
+ const size_t size = (irregular ? gridsize : gridptrOrig->y.size) * (size_t) gridptrOrig->nvertex;
+ gridptrDup->y.bounds = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->y.bounds, gridptrOrig->y.bounds, size * sizeof(double));
+ }
+
+ {
+ if (gridptrOrig->area != NULL && gridptrOrig->area != cdfPendingLoad)
+ {
+ const size_t size = gridsize;
+ gridptrDup->area = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->area, gridptrOrig->area, size * sizeof(double));
+ }
+ }
+
+ if (gridptrOrig->mask != NULL)
+ {
+ const size_t size = gridsize;
+ gridptrDup->mask = (mask_t *) Malloc(size * sizeof(mask_t));
+ memcpy(gridptrDup->mask, gridptrOrig->mask, size * sizeof(mask_t));
+ }
+
+ if (gridptrOrig->mask_gme != NULL)
+ {
+ const size_t size = gridsize;
+ gridptrDup->mask_gme = (mask_t *) Malloc(size * sizeof(mask_t));
+ memcpy(gridptrDup->mask_gme, gridptrOrig->mask_gme, size * sizeof(mask_t));
+ }
+}
+
+static grid_t *
+cdfLazyGridCopy(grid_t *gridptrOrig)
+{
+ struct cdfLazyGrid *lazyGridDup = (struct cdfLazyGrid *) Malloc(sizeof(*lazyGridDup));
+ gridptrOrig->vtable->copyScalarFields(gridptrOrig, &lazyGridDup->base);
+ gridptrOrig->vtable->copyArrayFields(gridptrOrig, &lazyGridDup->base);
+ return &lazyGridDup->base;
+}
+
+static void
+cdfLazyGridInitOnce(void)
+{
+ cdfLazyGridVtable = cdiGridVtable;
+ cdfLazyGridVtable.destroy = cdfLazyGridDelete;
+ cdfLazyGridVtable.copy = cdfLazyGridCopy;
+ cdfLazyGridVtable.copyScalarFields = cdfLazyGridCopyScalarFields;
+ cdfLazyGridVtable.copyArrayFields = cdfLazyGridCopyArrayFields;
+ cdfLazyGridVtable.defArea = cdfLazyGridDefArea;
+ cdfLazyGridVtable.inqAreaPtr = cdfLazyGridInqAreaPtr;
+ cdfLazyGridVtable.inqArea = cdfLazyGridInqArea;
+ cdfLazyGridVtable.inqXValsPtr = cdfLazyGridInqXValsPtr;
+ cdfLazyGridVtable.inqYValsPtr = cdfLazyGridInqYValsPtr;
+ cdfLazyGridVtable.inqXVal = cdfLazyGridInqXVal;
+ cdfLazyGridVtable.inqYVal = cdfLazyGridInqYVal;
+ cdfLazyGridVtable.defXVals = cdfLazyGridDefXVals;
+ cdfLazyGridVtable.defYVals = cdfLazyGridDefYVals;
+ cdfLazyGridVtable.compareXYFull = cdfLazyCompareXYFull;
+ cdfLazyGridVtable.compareXYAO = cdfLazyCompareXYAO;
+ cdfLazyGridVtable.defXBounds = cdfLazyGridDefXBounds;
+ cdfLazyGridVtable.defYBounds = cdfLazyGridDefYBounds;
+ cdfLazyGridVtable.inqXBoundsPtr = cdfLazyGridInqXBoundsPtr;
+ cdfLazyGridVtable.inqYBoundsPtr = cdfLazyGridInqYBoundsPtr;
+ /* create inaccessible memory area, if possible, this serves as
+ * dummy value for pointers to data not yet loaded */
+ /*
+#ifdef HAVE_MMAP
+ {
+ size_t pgSize = cdiGetPageSize(false);
+ static const char devZero[] = "/dev/zero";
+ int fd = open(devZero, O_RDWR);
+ if (fd == -1)
+ SysError("Could not open %s to map anonymous memory", devZero);
+ void *cdfInvalid = mmap(NULL, pgSize, PROT_NONE, MAP_PRIVATE, fd, 0);
+ if (cdfInvalid == MAP_FAILED)
+ SysError("Could not mmap anonymous memory");
+ cdfPendingLoad = cdfInvalid;
+ int rc = close(fd);
+ if (rc == -1)
+ SysError("Could not close %s file handle %d after mapping anonymous"
+ " memory", devZero, fd);
+ }
+#else
+ */
+ cdfPendingLoad = (double *) &cdfPendingLoad;
+ // #endif
+ atexit(cdfLazyGridDestroyOnce);
+#ifndef HAVE_LIBPTHREAD
+ cdfLazyInitialized = true;
+#endif
+}
+
+static void
+cdfBaseGridInit(grid_t *grid, int gridtype)
+{
+ grid_init(grid);
+ cdiGridTypeInit(grid, gridtype, 0);
+}
+
+static void
+cdfLazyGridInit(struct cdfLazyGrid *grid, int gridtype)
+{
+#ifdef HAVE_LIBPTHREAD
+ pthread_once(&cdfLazyInitialized, cdfLazyGridInitOnce);
+#else
+ if (!cdfLazyInitialized) cdfLazyGridInitOnce();
+#endif
+ cdfBaseGridInit(&grid->base, gridtype);
+ grid->baseVtable = grid->base.vtable;
+ grid->cellAreaGet.datasetNCId = -1;
+ grid->cellAreaGet.varNCId = -1;
+ grid->xValsGet.datasetNCId = -1;
+ grid->xValsGet.varNCId = -1;
+ grid->yValsGet.datasetNCId = -1;
+ grid->yValsGet.varNCId = -1;
+ grid->xBoundsGet.datasetNCId = -1;
+ grid->xBoundsGet.varNCId = -1;
+ grid->yBoundsGet.datasetNCId = -1;
+ grid->yBoundsGet.varNCId = -1;
+ grid->base.vtable = &cdfLazyGridVtable;
+ init_lazy_load_lock(grid);
+}
+
+void
+cdfLazyGridRenew(struct cdfLazyGrid *restrict *restrict gridpptr, int gridtype)
+{
+ struct cdfLazyGrid *restrict grid = *gridpptr;
+ if (!grid) *gridpptr = grid = (struct cdfLazyGrid *) Malloc(sizeof(*grid));
+ cdfLazyGridInit(grid, gridtype);
+}
+
+void
+cdfBaseGridRenew(struct cdfLazyGrid *restrict *restrict gridpptr, int gridtype)
+{
+ struct cdfLazyGrid *restrict grid = *gridpptr;
+ if (!grid) *gridpptr = grid = (struct cdfLazyGrid *) Malloc(sizeof(grid_t));
+ cdfBaseGridInit((grid_t *) grid, gridtype);
+}
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CDI_CKSUM_H_
+#define CDI_CKSUM_H_
+
+#include <inttypes.h>
+
+/* single checksum computation over one array */
+uint32_t cdiCheckSum(int type, int count, const void *data);
+
+/* composable check-sum computation,
+ * 0. datatype,
+ * 1. init,
+ * 2. partial, appendable computation, and
+ * 3. final checksum-computation
+ */
+struct cdiCheckSumState
+{
+ uint32_t sum;
+ off_t len;
+};
+
+void cdiCheckSumRStart(struct cdiCheckSumState *state);
+void cdiCheckSumRAdd(struct cdiCheckSumState *state, int type, int count, const void *data);
+uint32_t cdiCheckSumRValue(struct cdiCheckSumState state);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <inttypes.h>
+#include <sys/types.h>
+
+void memcrc_r(uint32_t *state, const unsigned char *block, size_t block_len);
+
+void memcrc_r_eswap(uint32_t *state, const unsigned char *elems, size_t num_elems, size_t elem_size);
+
+uint32_t memcrc_finish(uint32_t *state, off_t total_size);
+
+uint32_t memcrc(const unsigned char *b, size_t n);
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifndef SERIALIZE_H
+#define SERIALIZE_H
+
+#include <string.h>
+
+#ifndef CDI_CKSUM_H_
+#endif
+#ifndef CDI_KEY_H_
+#endif
+#ifndef ERROR_H
+#endif
+
+/*
+ * Generic interfaces for (de-)marshalling
+ */
+int serializeGetSize(int count, int datatype, void *context);
+void serializePack(const void *data, int count, int datatype, void *buf, int buf_size, int *position, void *context);
+void serializeUnpack(const void *buf, int buf_size, int *position, void *data, int count, int datatype, void *context);
+
+/*
+ * (de-)marshalling function for key/value structures
+ */
+static inline int
+serializeKeysGetPackSize(const cdi_keys_t *keysp, void *context)
+{
+ int packBuffSize = 0;
+
+ int nelems = keysp->nelems;
+ packBuffSize += serializeGetSize(1, CDI_DATATYPE_INT, context);
+ for (int keyid = 0; keyid < nelems; keyid++)
+ {
+ const cdi_key_t *keyp = &(keysp->value[keyid]);
+ int type = keyp->type;
+ packBuffSize += serializeGetSize(1, CDI_DATATYPE_INT, context); // key
+ packBuffSize += serializeGetSize(1, CDI_DATATYPE_INT, context); // type
+ if (type == KEY_BYTES)
+ {
+ int length = keyp->length;
+ packBuffSize += serializeGetSize(1, CDI_DATATYPE_INT, context) + serializeGetSize(length, CDI_DATATYPE_TXT, context);
+ }
+ else if (type == KEY_INT)
+ {
+ packBuffSize += serializeGetSize(1, CDI_DATATYPE_INT, context);
+ }
+ else if (type == KEY_FLOAT)
+ {
+ packBuffSize += serializeGetSize(1, CDI_DATATYPE_FLT64, context);
+ }
+ }
+ packBuffSize += serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+ return packBuffSize;
+}
+
+static inline void
+serializeKeysPack(const cdi_keys_t *keysp, void *buf, int buf_size, int *position, void *context)
+{
+ uint32_t d = 0;
+
+ int nelems = keysp->nelems;
+ serializePack(&nelems, 1, CDI_DATATYPE_INT, buf, buf_size, position, context);
+ for (int keyid = 0; keyid < nelems; keyid++)
+ {
+ const cdi_key_t *keyp = &(keysp->value[keyid]);
+ int key = keyp->key;
+ int type = keyp->type;
+ serializePack(&key, 1, CDI_DATATYPE_INT, buf, buf_size, position, context);
+ serializePack(&type, 1, CDI_DATATYPE_INT, buf, buf_size, position, context);
+ if (type == KEY_BYTES)
+ {
+ int length = keyp->length;
+ serializePack(&length, 1, CDI_DATATYPE_INT, buf, buf_size, position, context);
+ serializePack(keyp->v.s, length, CDI_DATATYPE_TXT, buf, buf_size, position, context);
+ d ^= cdiCheckSum(CDI_DATATYPE_TXT, length, keyp->v.s);
+ }
+ else if (type == KEY_INT)
+ {
+ serializePack(&keyp->v.i, 1, CDI_DATATYPE_INT, buf, buf_size, position, context);
+ }
+ else if (type == KEY_FLOAT)
+ {
+ serializePack(&keyp->v.d, 1, CDI_DATATYPE_FLT64, buf, buf_size, position, context);
+ }
+ }
+
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, buf, buf_size, position, context);
+}
+
+static inline void
+serializeKeysUnpack(const void *buf, int buf_size, int *position, cdi_keys_t *keysp, void *context)
+{
+ uint32_t d, d2 = 0;
+ void *buffer = NULL;
+ int buffersize = 0;
+
+ int nelems;
+ serializeUnpack(buf, buf_size, position, &nelems, 1, CDI_DATATYPE_INT, context);
+ for (int i = 0; i < nelems; ++i)
+ {
+ int key, type;
+ serializeUnpack(buf, buf_size, position, &key, 1, CDI_DATATYPE_INT, context);
+ serializeUnpack(buf, buf_size, position, &type, 1, CDI_DATATYPE_INT, context);
+ if (type == KEY_BYTES)
+ {
+ int length;
+ serializeUnpack(buf, buf_size, position, &length, 1, CDI_DATATYPE_INT, context);
+ if (length > buffersize)
+ {
+ buffersize = length;
+ buffer = realloc(buffer, buffersize);
+ }
+ serializeUnpack(buf, buf_size, position, buffer, length, CDI_DATATYPE_TXT, context);
+ cdiDefVarKeyBytes(keysp, key, (unsigned char *) buffer, length);
+ d2 ^= cdiCheckSum(CDI_DATATYPE_TXT, length, buffer);
+ }
+ else if (type == KEY_INT)
+ {
+ int ival;
+ serializeUnpack(buf, buf_size, position, &ival, 1, CDI_DATATYPE_INT, context);
+ cdiDefVarKeyInt(keysp, key, ival);
+ }
+ else if (type == KEY_FLOAT)
+ {
+ double dval;
+ serializeUnpack(buf, buf_size, position, &dval, 1, CDI_DATATYPE_FLT64, context);
+ cdiDefVarKeyFloat(keysp, key, dval);
+ }
+ }
+ serializeUnpack(buf, buf_size, position, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(d == d2);
+ if (buffer) free(buffer);
+}
+
+/*
+ * (de-)marshalling function for common data structures
+ */
+static inline int
+serializeStrTabGetPackSize(const char **strTab, int numStr, void *context)
+{
+ xassert(numStr >= 0);
+ int packBuffSize = 0;
+ for (size_t i = 0; i < (size_t) numStr; ++i)
+ {
+ size_t len = strlen(strTab[i]);
+ packBuffSize += serializeGetSize(1, CDI_DATATYPE_INT, context) + serializeGetSize((int) len, CDI_DATATYPE_TXT, context);
+ }
+ packBuffSize += serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+ return packBuffSize;
+}
+
+static inline void
+serializeStrTabPack(const char **strTab, int numStr, void *buf, int buf_size, int *position, void *context)
+{
+ uint32_t d = 0;
+ xassert(numStr >= 0);
+ for (size_t i = 0; i < (size_t) numStr; ++i)
+ {
+ int len = (int) strlen(strTab[i]);
+ serializePack(&len, 1, CDI_DATATYPE_INT, buf, buf_size, position, context);
+ serializePack(strTab[i], len, CDI_DATATYPE_TXT, buf, buf_size, position, context);
+ d ^= cdiCheckSum(CDI_DATATYPE_TXT, len, strTab[i]);
+ }
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, buf, buf_size, position, context);
+}
+
+static inline void
+serializeStrTabUnpack(const void *buf, int buf_size, int *position, char **strTab, int numStr, void *context)
+{
+ uint32_t d, d2 = 0;
+ xassert(numStr >= 0);
+ for (size_t i = 0; i < (size_t) numStr; ++i)
+ {
+ int len;
+ serializeUnpack(buf, buf_size, position, &len, 1, CDI_DATATYPE_INT, context);
+ serializeUnpack(buf, buf_size, position, strTab[i], len, CDI_DATATYPE_TXT, context);
+ strTab[i][len] = '\0';
+ d2 ^= cdiCheckSum(CDI_DATATYPE_TXT, len, strTab[i]);
+ }
+ serializeUnpack(buf, buf_size, position, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(d == d2);
+}
+
+/*
+ * Interfaces for marshalling within a single memory domain
+ */
+int serializeGetSizeInCore(int count, int datatype, void *context);
+void serializePackInCore(const void *data, int count, int datatype, void *buf, int buf_size, int *position, void *context);
+void serializeUnpackInCore(const void *buf, int buf_size, int *position, void *data, int count, int datatype, void *context);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <inttypes.h>
+#include <sys/types.h>
+#include <stdlib.h>
+
+
+uint32_t
+cdiCheckSum(int type, int count, const void *buffer)
+{
+ uint32_t s = 0U;
+ xassert(count >= 0);
+ size_t elemSize = (size_t) serializeGetSizeInCore(1, type, NULL);
+ memcrc_r_eswap(&s, (const unsigned char *) buffer, (size_t) count, elemSize);
+ s = memcrc_finish(&s, (off_t) (elemSize * (size_t) count));
+ return s;
+}
+
+void
+cdiCheckSumRStart(struct cdiCheckSumState *state)
+{
+ state->sum = 0U;
+ state->len = 0;
+}
+
+void
+cdiCheckSumRAdd(struct cdiCheckSumState *state, int type, int count, const void *buffer)
+{
+ size_t elemSize = (size_t) serializeGetSizeInCore(1, type, NULL);
+ memcrc_r_eswap(&state->sum, (const unsigned char *) buffer, (size_t) count, elemSize);
+ state->len += (off_t) (elemSize * (size_t) count);
+}
+
+uint32_t
+cdiCheckSumRValue(struct cdiCheckSumState state)
+{
+ return memcrc_finish(&state.sum, state.len);
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
+const char *
+cdiStringError(int cdiErrno)
+{
+ // clang-format off
+ static const char UnknownError[] = "Unknown Error";
+ static const char _ETMOF[] = "Too many open files";
+ static const char _EINVAL[] = "Invalid argument";
+ static const char _EISDIR[] = "Is a directory";
+ static const char _EISEMPTY[] = "File is empty";
+ static const char _EUFTYPE[] = "Unsupported file type";
+ static const char _ELIBNAVAIL[] = "Unsupported file type (library support not compiled in)";
+ static const char _EUFSTRUCT[] = "Unsupported file structure";
+ static const char _EUNC4[] = "Unsupported NetCDF4 structure";
+ static const char _EDIMSIZE[] = "Invalid dimension size";
+ static const char _EQENF[] = "Query entries not found";
+ static const char _EQNAVAIL[] = "Query not available for file type";
+ static const char _ELIMIT[] = "Internal limits exceeded";
+
+ switch (cdiErrno) {
+ case CDI_ESYSTEM:
+ {
+ const char *cp = strerror(errno);
+ if (cp == NULL) break;
+ return cp;
+ }
+ case CDI_ETMOF: return _ETMOF;
+ case CDI_EINVAL: return _EINVAL;
+ case CDI_EISDIR: return _EISDIR;
+ case CDI_EISEMPTY: return _EISEMPTY;
+ case CDI_EUFTYPE: return _EUFTYPE;
+ case CDI_ELIBNAVAIL: return _ELIBNAVAIL;
+ case CDI_EUFSTRUCT: return _EUFSTRUCT;
+ case CDI_EUNC4: return _EUNC4;
+ case CDI_EDIMSIZE: return _EDIMSIZE;
+ case CDI_EQENF: return _EQENF;
+ case CDI_EQNAVAIL: return _EQNAVAIL;
+ case CDI_ELIMIT: return _ELIMIT;
+ }
+ // clang-format on
+ return UnknownError;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+/* DO NOT REMOVE the config.h include file under any circumstances,
+ * it's very much needed on some platforms */
+#if defined(HAVE_CONFIG_H)
+#endif
+/* DO NOT REMOVE the above config.h include file under any
+ * circumstances as long as it's the autoconf configuration header
+ * used to build this package. When it's missing on some platforms,
+ * some poor person has to do long, tedious debugging sessions, where
+ * struct offsets almost imperceptibly change from one file to the
+ * next to find out what happened */
+
+#include <stdio.h>
+#include <stdlib.h>
+
+// ==================================================================
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+
+ // clang-format off
+void
+cdiDecodeDate(int date, int *year, int *month, int *day)
+{
+ int iyear = date / 10000;
+ *year = iyear;
+ int idate = date - iyear * 10000;
+ if (idate < 0) idate = -idate;
+ int imonth = idate / 100;
+ *month = imonth;
+ *day = idate - imonth * 100;
+}
+
+int
+cdiEncodeDate(int year, int month, int day)
+{
+ int iyear = abs(year);
+ int date = iyear * 10000 + month * 100 + day;
+ if (year < 0) date = -date;
+
+ return date;
+}
+
+void
+cdiDecodeTime(int time, int *hour, int *minute, int *second)
+{
+ int ihour = time / 10000, itime = time - ihour * 10000, iminute = itime / 100;
+ *hour = ihour;
+ *minute = iminute;
+ *second = itime - iminute * 100;
+}
+
+int
+cdiEncodeTime(int hour, int minute, int second)
+{
+ return hour * 10000 + minute * 100 + second;
+}
+ // clang-format on
+
+#ifdef __cplusplus
+}
+#endif
+// ==================================================================
+
+CdiDate
+cdiDate_set(int64_t date)
+{
+ int64_t iyear = date / 10000;
+ int year = (int) iyear;
+ int64_t idate = date - iyear * 10000;
+ if (idate < 0) idate = -idate;
+ int64_t imonth = idate / 100;
+ int month = (int) imonth;
+ int day = (int) (idate - imonth * 100);
+
+ CdiDate cdiDate;
+ cdiDate.year = year;
+ cdiDate.month = (short) month;
+ cdiDate.day = (short) day;
+
+ return cdiDate;
+}
+
+CdiTime
+cdiTime_set(int time)
+{
+ int hour, minute, second, ms = 0;
+ cdiDecodeTime(time, &hour, &minute, &second);
+
+ CdiTime cdiTime;
+ cdiTime.hour = (short) hour;
+ cdiTime.minute = (short) minute;
+ cdiTime.second = (short) second;
+ cdiTime.ms = (short) ms;
+
+ return cdiTime;
+}
+
+CdiDateTime
+cdiDateTime_set(int64_t date, int time)
+{
+ CdiDateTime cdiDateTime;
+ cdiDateTime.date = cdiDate_set(date);
+ cdiDateTime.time = cdiTime_set(time);
+
+ return cdiDateTime;
+}
+
+int64_t
+cdiDate_get(CdiDate cdiDate)
+{
+ int64_t iyear = abs(cdiDate.year);
+ int64_t date = iyear * 10000 + cdiDate.month * 100 + cdiDate.day;
+ if (cdiDate.year < 0) date = -date;
+
+ return date;
+}
+
+int
+cdiTime_get(CdiTime cdiTime)
+{
+ return cdiEncodeTime(cdiTime.hour, cdiTime.minute, cdiTime.second);
+}
+
+CdiDate
+cdiDate_encode(int year, int month, int day)
+{
+ CdiDate cdiDate;
+ cdiDate.year = year;
+ cdiDate.month = (short) month;
+ cdiDate.day = (short) day;
+
+ return cdiDate;
+}
+
+void
+cdiDate_decode(CdiDate cdiDate, int *year, int *month, int *day)
+{
+ *year = cdiDate.year;
+ *month = cdiDate.month;
+ *day = cdiDate.day;
+}
+
+CdiTime
+cdiTime_encode(int hour, int minute, int second, int ms)
+{
+ CdiTime cdiTime;
+ cdiTime.hour = (short) hour;
+ cdiTime.minute = (short) minute;
+ cdiTime.second = (short) second;
+ cdiTime.ms = (short) ms;
+
+ return cdiTime;
+}
+
+void
+cdiTime_decode(CdiTime cdiTime, int *hour, int *minute, int *second, int *ms)
+{
+ *hour = cdiTime.hour;
+ *minute = cdiTime.minute;
+ *second = cdiTime.second;
+ *ms = cdiTime.ms;
+}
+
+void
+cdiDate_init(CdiDate *cdiDate)
+{
+ cdiDate->year = 0;
+ cdiDate->month = 0;
+ cdiDate->day = 0;
+}
+
+void
+cdiTime_init(CdiTime *cdiTime)
+{
+ cdiTime->hour = 0;
+ cdiTime->minute = 0;
+ cdiTime->second = 0;
+ cdiTime->ms = 0;
+}
+
+void
+cdiDateTime_init(CdiDateTime *cdiDateTime)
+{
+ cdiDate_init(&cdiDateTime->date);
+ cdiTime_init(&cdiDateTime->time);
+}
+
+bool
+cdiDate_isEQ(CdiDate cdiDate1, CdiDate cdiDate2)
+{
+ // clang-format off
+ return (cdiDate1.year == cdiDate2.year
+ && cdiDate1.month == cdiDate2.month
+ && cdiDate1.day == cdiDate2.day);
+ // clang-format on
+}
+
+bool
+cdiTime_isEQ(CdiTime cdiTime1, CdiTime cdiTime2)
+{
+ // clang-format off
+ return (cdiTime1.hour == cdiTime2.hour
+ && cdiTime1.minute == cdiTime2.minute
+ && cdiTime1.second == cdiTime2.second
+ && cdiTime1.ms == cdiTime2.ms);
+ // clang-format on
+}
+
+bool
+cdiDateTime_isEQ(CdiDateTime cdiDateTime1, CdiDateTime cdiDateTime2)
+{
+ // clang-format off
+ return (cdiDateTime1.date.year == cdiDateTime2.date.year
+ && cdiDateTime1.date.month == cdiDateTime2.date.month
+ && cdiDateTime1.date.day == cdiDateTime2.date.day
+ && cdiDateTime1.time.hour == cdiDateTime2.time.hour
+ && cdiDateTime1.time.minute == cdiDateTime2.time.minute
+ && cdiDateTime1.time.second == cdiDateTime2.time.second
+ && cdiDateTime1.time.ms == cdiDateTime2.time.ms);
+ // clang-format on
+}
+
+bool
+cdiDateTime_isNE(CdiDateTime cdiDateTime1, CdiDateTime cdiDateTime2)
+{
+ return !cdiDateTime_isEQ(cdiDateTime1, cdiDateTime2);
+}
+
+bool
+cdiDateTime_isLT(CdiDateTime cdiDateTime1, CdiDateTime cdiDateTime2)
+{
+ int64_t date1 = cdiDate_get(cdiDateTime1.date);
+ int64_t date2 = cdiDate_get(cdiDateTime2.date);
+ int time1 = cdiTime_get(cdiDateTime1.time);
+ int time2 = cdiTime_get(cdiDateTime2.time);
+ return (date1 < date2 || (date1 == date2 && time1 < time2));
+}
+
+bool
+cdiDateTime_isNull(CdiDateTime cdiDateTime)
+{
+ // clang-format off
+ return (cdiDateTime.date.year == 0
+ && cdiDateTime.date.month == 0
+ && cdiDateTime.date.day == 0
+ && cdiDateTime.time.hour == 0
+ && cdiDateTime.time.minute == 0
+ && cdiDateTime.time.second == 0
+ && cdiDateTime.time.ms == 0);
+ // clang-format on
+}
+
+#define DATE_FORMAT "%5.4d-%2.2d-%2.2d"
+#define TIME_FORMAT "%2.2d:%2.2d:%2.2d"
+
+const char *
+CdiDateTime_string(CdiDateTime cdiDateTime)
+{
+ int year, month, day;
+ cdiDate_decode(cdiDateTime.date, &year, &month, &day);
+ int hour, minute, second, ms;
+ cdiTime_decode(cdiDateTime.time, &hour, &minute, &second, &ms);
+
+ static char datetimeString[64];
+ snprintf(datetimeString, sizeof(datetimeString), DATE_FORMAT "T" TIME_FORMAT, year, month, day, hour, minute, second);
+
+ return datetimeString;
+}
+#ifndef GRIBAPI_H
+#define GRIBAPI_H
+
+#ifdef HAVE_LIBGRIB_API
+#include <grib_api.h>
+#ifndef ERROR_H
+#endif
+#endif
+
+#ifndef CDI_INT_H
+#endif
+
+// clang-format off
+
+#define GRIBAPI_MISSVAL -9.E33
+
+// GRIB2 Level Types
+#define GRIB2_LTYPE_SURFACE 1
+#define GRIB2_LTYPE_CLOUD_BASE 2
+#define GRIB2_LTYPE_CLOUD_TOP 3
+#define GRIB2_LTYPE_ISOTHERM0 4
+#define GRIB2_LTYPE_TROPOPAUSE 7
+#define GRIB2_LTYPE_TOA 8
+#define GRIB2_LTYPE_SEA_BOTTOM 9
+#define GRIB2_LTYPE_ATMOSPHERE 10
+#define GRIB2_LTYPE_ISOBARIC 100
+#define GRIB2_LTYPE_MEANSEA 101
+#define GRIB2_LTYPE_ALTITUDE 102
+#define GRIB2_LTYPE_HEIGHT 103
+#define GRIB2_LTYPE_SIGMA 104
+#define GRIB2_LTYPE_HYBRID 105
+#define GRIB2_LTYPE_LANDDEPTH 106
+#define GRIB2_LTYPE_ISENTROPIC 107
+#define GRIB2_LTYPE_SNOW 114
+#define GRIB2_LTYPE_REFERENCE 150
+#define GRIB2_LTYPE_SEADEPTH 160 // Depth Below Sea Level
+#define GRIB2_LTYPE_LAKE_BOTTOM 162 // Lake or River Bottom
+#define GRIB2_LTYPE_SEDIMENT_BOTTOM 163 // Bottom Of Sediment Layer
+#define GRIB2_LTYPE_SEDIMENT_BOTTOM_TA 164 // Bottom Of Thermally Active Sediment Layer
+#define GRIB2_LTYPE_SEDIMENT_BOTTOM_TW 165 // Bottom Of Sediment Layer Penetrated By Thermal Wave
+#define GRIB2_LTYPE_MIX_LAYER 166 // Mixing Layer
+
+// GRIB2 Data representation type (Grid Type)
+#define GRIB2_GTYPE_LATLON 0 // Latitude/longitude (or equidistant cylindrical, or Plate Carree)
+#define GRIB2_GTYPE_LATLON_ROT 1 // Rotated Latitude/longitude
+#define GRIB2_GTYPE_LATLON_STR 2 // Stretched Latitude/longitude
+#define GRIB2_GTYPE_LATLON_ROTSTR 3 // Stretched and Rotated Latitude/longitude
+#define GRIB2_GTYPE_STERE 20 // Polar stereographic projection
+#define GRIB2_GTYPE_LCC 30 // Lambert conformal
+#define GRIB2_GTYPE_GAUSSIAN 40 // Gaussian latitude/longitude
+#define GRIB2_GTYPE_GAUSSIAN_ROT 41 // Rotated Gaussian latitude/longitude
+#define GRIB2_GTYPE_GAUSSIAN_STR 42 // Stretched Gaussian latitude/longitude
+#define GRIB2_GTYPE_GAUSSIAN_ROTSTR 43 // Stretched and rotated Gaussian latitude/longitude
+#define GRIB2_GTYPE_SPECTRAL 50 // Spherical harmonic coefficients
+#define GRIB2_GTYPE_GME 100 // Triangular grid based on an icosahedron (GME)
+#define GRIB2_GTYPE_UNSTRUCTURED 101 // General Unstructured Grid
+#define GRIB2_GTYPE_HEALPIX 150 // HEALPix Grid
+
+const char *gribapiLibraryVersionString(void);
+void gribContainersNew(stream_t *streamptr);
+void gribContainersDelete(stream_t *streamptr);
+
+#ifdef HAVE_LIBGRIB_API
+
+#ifdef ECCODES_VERSION
+#if ECCODES_VERSION >= 23000
+#define HAVE_GRIBAPI_FLOAT_INTERFACE 1
+#endif
+#endif
+
+static inline int have_gribapi_float_interface(void)
+{
+#ifdef HAVE_GRIBAPI_FLOAT_INTERFACE
+ return 1;
+#else
+ return 0;
+#endif
+}
+
+static inline int my_grib_set_double(grib_handle* h, const char* key, double val)
+{
+ if (CDI_gribapi_debug)
+ fprintf(stderr, "grib_set_double(\tgrib_handle* h, \"%s\", %f)\n", key, val);
+
+ int retVal = grib_set_double(h, key, val);
+ if (retVal != 0)
+ fprintf(stderr, "!!! failed call to grib_set_double(\tgrib_handle* h, \"%s\", %f) !!!\n", key, val);
+ return retVal;
+}
+
+static inline int my_grib_set_long(grib_handle* h, const char* key, long val)
+{
+ if (CDI_gribapi_debug)
+ fprintf(stderr, "grib_set_long( \tgrib_handle* h, \"%s\", %ld)\n", key, val);
+
+ int retVal = grib_set_long(h, key, val);
+ if (retVal != 0)
+ fprintf(stderr, "!!! failed call to grib_set_long( \tgrib_handle* h, \"%s\", %ld) !!!\n", key, val);
+ return retVal;
+}
+
+static inline int my_grib_set_string(grib_handle* h, const char* key, const char* val, size_t* length)
+{
+ if (CDI_gribapi_debug)
+ fprintf(stderr, "grib_set_string(\tgrib_handle* h, \"%s\", \"%s\")\n", key, val);
+
+ int ret_val = grib_set_string(h, key, val, length);
+ if (ret_val != 0)
+ fprintf(stderr, "!!! grib_set_string(\tgrib_handle* h, \"%s\", \"%s\") !!!\n", key, val);
+ return ret_val;
+}
+#endif
+
+typedef struct {
+ bool init;
+ void *gribHandle;
+}
+gribContainer_t;
+
+// clang-format on
+
+#endif /* GRIBAPI_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CGRIBEX_H
+#define CGRIBEX_H
+
+// clang-format off
+
+#include <stdio.h>
+#include <stdbool.h>
+#include <sys/types.h>
+
+#define GRIB_MISSVAL -9.E33
+
+// GRIB1 Level Types
+#define GRIB1_LTYPE_SURFACE 1
+#define GRIB1_LTYPE_CLOUD_BASE 2
+#define GRIB1_LTYPE_CLOUD_TOP 3
+#define GRIB1_LTYPE_ISOTHERM0 4
+#define GRIB1_LTYPE_TROPOPAUSE 7
+#define GRIB1_LTYPE_TOA 8
+#define GRIB1_LTYPE_SEA_BOTTOM 9
+#define GRIB1_LTYPE_ATMOSPHERE 10
+#define GRIB1_LTYPE_99 99
+#define GRIB1_LTYPE_ISOBARIC 100
+#define GRIB1_LTYPE_ISOBARIC_PA 210
+#define GRIB1_LTYPE_MEANSEA 102
+#define GRIB1_LTYPE_ALTITUDE 103
+#define GRIB1_LTYPE_HEIGHT 105
+#define GRIB1_LTYPE_SIGMA 107
+#define GRIB1_LTYPE_SIGMA_LAYER 108
+#define GRIB1_LTYPE_HYBRID 109
+#define GRIB1_LTYPE_HYBRID_LAYER 110
+#define GRIB1_LTYPE_LANDDEPTH 111
+#define GRIB1_LTYPE_LANDDEPTH_LAYER 112
+#define GRIB1_LTYPE_ISENTROPIC 113
+#define GRIB1_LTYPE_SEADEPTH 160 // Depth Below Sea Level
+#define GRIB1_LTYPE_LAKE_BOTTOM 162 // Lake or River Bottom
+#define GRIB1_LTYPE_SEDIMENT_BOTTOM 163 // Bottom Of Sediment Layer
+#define GRIB1_LTYPE_SEDIMENT_BOTTOM_TA 164 // Bottom Of Thermally Active Sediment Layer
+#define GRIB1_LTYPE_SEDIMENT_BOTTOM_TW 165 // Bottom Of Sediment Layer Penetrated By Thermal Wave
+#define GRIB1_LTYPE_MIX_LAYER 166 // Mixing Layer
+
+// GRIB1 Data representation type (Grid Type) [Table 6]
+#define GRIB1_GTYPE_LATLON 0 // latitude/longitude
+#define GRIB1_GTYPE_LATLON_ROT 10 // rotated latitude/longitude
+#define GRIB1_GTYPE_LATLON_STR 20 // stretched latitude/longitude
+#define GRIB1_GTYPE_LATLON_ROTSTR 30 // rotated and stretched latitude/longitude
+#define GRIB1_GTYPE_GAUSSIAN 4 // gaussian grid
+#define GRIB1_GTYPE_GAUSSIAN_ROT 14 // rotated gaussian grid
+#define GRIB1_GTYPE_GAUSSIAN_STR 24 // stretched gaussian grid
+#define GRIB1_GTYPE_GAUSSIAN_ROTSTR 34 // rotated and stretched gaussian grid
+#define GRIB1_GTYPE_LCC 3 // Lambert conformal
+#define GRIB1_GTYPE_SPECTRAL 50 // spherical harmonics
+#define GRIB1_GTYPE_GME 192 // hexagonal GME grid
+
+// Macros for the indicator section ( Section 0 )
+#define ISEC0_GRIB_Len (isec0[ 0]) // Number of octets in the GRIB message
+#define ISEC0_GRIB_Version (isec0[ 1]) // GRIB edition number
+
+
+// Macros for the product definition section ( Section 1 )
+#define ISEC1_TABLE4_MINUTE 0
+#define ISEC1_TABLE4_HOUR 1
+#define ISEC1_TABLE4_DAY 2
+#define ISEC1_TABLE4_3HOURS 10
+#define ISEC1_TABLE4_6HOURS 11
+#define ISEC1_TABLE4_12HOURS 12
+#define ISEC1_TABLE4_QUARTER 13
+#define ISEC1_TABLE4_30MINUTES 14
+
+
+#define ISEC1_CodeTable (isec1[ 0]) // Version number of code table
+#define ISEC1_CenterID (isec1[ 1]) // Identification of centre
+#define ISEC1_ModelID (isec1[ 2]) // Identification of model
+#define ISEC1_GridDefinition (isec1[ 3]) // Grid definition
+#define ISEC1_Sec2Or3Flag (isec1[ 4]) // Section 2 or 3 included
+#define ISEC1_Parameter (isec1[ 5]) // Parameter indicator
+#define ISEC1_LevelType (isec1[ 6]) // Type of level indicator
+#define ISEC1_Level1 (isec1[ 7]) // Level 1
+#define ISEC1_Level2 (isec1[ 8]) // Level 2
+#define ISEC1_Year (isec1[ 9]) // Year of century (YY)
+#define ISEC1_Month (isec1[10]) // Month (MM)
+#define ISEC1_Day (isec1[11]) // Day (DD)
+#define ISEC1_Hour (isec1[12]) // Hour (HH)
+#define ISEC1_Minute (isec1[13]) // Minute (MM)
+#define ISEC1_TimeUnit (isec1[14]) // Time unit indicator
+#define ISEC1_TimePeriod1 (isec1[15]) // P1 Time period
+#define ISEC1_TimePeriod2 (isec1[16]) // P2 Time period
+#define ISEC1_TimeRange (isec1[17]) // Time range indicator
+#define ISEC1_AvgNum (isec1[18]) // Number of products included in an average
+#define ISEC1_AvgMiss (isec1[19]) // Number of products missing from an average
+#define ISEC1_Century (isec1[20]) // Century
+#define ISEC1_SubCenterID (isec1[21]) // Subcenter identifier
+#define ISEC1_DecScaleFactor (isec1[22]) // Decimal scale factor
+#define ISEC1_LocalFLag (isec1[23]) // Flag field to indicate local use in isec1
+
+#define ISEC1_ECMWF_LocalExtension (isec1[36])
+#define ISEC1_ECMWF_Class (isec1[37])
+
+
+// Macros for the grid definition section ( Section 2 )
+#define ISEC2_GridType (isec2[ 0]) // Data representation type
+
+// Triangular grids
+
+#define ISEC2_GME_NI2 (isec2[ 1]) // Number of factor 2 in factorisation of Ni
+#define ISEC2_GME_NI3 (isec2[ 2]) // Number of factor 3 in factorisation of Ni
+#define ISEC2_GME_ND (isec2[ 3]) // Nubmer of diamonds
+#define ISEC2_GME_NI (isec2[ 4]) // Number of tri. subdiv. of the icosahedron
+#define ISEC2_GME_AFlag (isec2[ 5]) // Flag for orientation of diamonds (Table A)
+#define ISEC2_GME_LatPP (isec2[ 6]) // Latitude of pole point
+#define ISEC2_GME_LonPP (isec2[ 7]) // Longitude of pole point
+#define ISEC2_GME_LonMPL (isec2[ 8]) // Longitude of the first diamond
+#define ISEC2_GME_BFlag (isec2[ 9]) // Flag for storage sequence (Table B)
+
+// Spherical harmonic coeficients
+
+#define ISEC2_PentaJ (isec2[ 1]) // J pentagonal resolution parameter
+#define ISEC2_PentaK (isec2[ 2]) // K pentagonal resolution parameter
+#define ISEC2_PentaM (isec2[ 3]) // M pentagonal resolution parameter
+#define ISEC2_RepType (isec2[ 4]) // Representation type
+#define ISEC2_RepMode (isec2[ 5]) // Representation mode
+
+// Gaussian grids
+
+#define ISEC2_NumLon (isec2[ 1]) // Number of points along a parallel (Ni)
+#define ISEC2_NumLat (isec2[ 2]) // Number of points along a meridian (Nj)
+#define ISEC2_FirstLat (isec2[ 3]) // Latitude of the first grid point
+#define ISEC2_FirstLon (isec2[ 4]) // Longitude of the first grid point
+#define ISEC2_ResFlag (isec2[ 5]) // Resolution flag: 128 regular grid
+#define ISEC2_LastLat (isec2[ 6]) // Latitude of the last grid point
+#define ISEC2_LastLon (isec2[ 7]) // Longitude of the last grid point
+#define ISEC2_LonIncr (isec2[ 8]) // i direction increment
+#define ISEC2_LatIncr (isec2[ 9]) // j direction increment
+#define ISEC2_NumPar (isec2[ 9]) // Number of parallels between a pole and the E.
+#define ISEC2_ScanFlag (isec2[10]) // Scanning mode flags
+#define ISEC2_NumVCP (isec2[11]) // Number of vertical coordinate parameters
+
+// Lambert
+
+#define ISEC2_Lambert_Lov (isec2[ 6]) // Orientation of the grid
+#define ISEC2_Lambert_dx (isec2[ 8]) // X-direction grid length
+#define ISEC2_Lambert_dy (isec2[ 9]) // Y-direction grid length
+#define ISEC2_Lambert_ProjFlag (isec2[12]) // Projection centre flag
+#define ISEC2_Lambert_LatS1 (isec2[13]) // First lat at which the secant cone cuts the sphere
+#define ISEC2_Lambert_LatS2 (isec2[14]) // Second lat at which the secant cone cuts the sphere
+#define ISEC2_Lambert_LatSP (isec2[19]) // Latitude of the southern pole
+#define ISEC2_Lambert_LonSP (isec2[20]) // Longitude of the southern pole
+
+
+#define ISEC2_Reduced (isec2[16]) // 0: regular, 1: reduced grid
+
+#define ISEC2_ReducedPointsPtr (&isec2[22])
+#define ISEC2_ReducedPoints(i) (isec2[22+i]) // Number of points along each parallel
+
+
+#define ISEC2_LatSP (isec2[12]) // Latitude of the southern pole of rotation
+#define ISEC2_LonSP (isec2[13]) // Longitude of the southern pole of rotation
+
+#define FSEC2_RotAngle (fsec2[ 0]) // Angle of rotation
+#define FSEC2_StrFact (fsec2[ 1]) // Stretching factor
+
+// Macros for the bit map section ( Section 3 )
+
+#define ISEC3_PredefBitmap (isec3[ 0]) // Predefined bitmap
+#define ISEC3_MissVal (isec3[ 1]) // Missing data value for integers
+#define FSEC3_MissVal (fsec3[ 1]) // Missing data value for floats
+
+// Macros for the binary data section ( Section 4 )
+
+#define ISEC4_NumValues (isec4[ 0]) // Number of data values for encode/decode
+#define ISEC4_NumBits (isec4[ 1]) // Number of bits used for each encoded value
+#define ISEC4_NumNonMissValues (isec4[20]) // Number of non-missing values
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+void gribFixZSE(int flag); // 1: Fix ZeroShiftError of simple packed spherical harmonics
+void gribSetConst(int flag); // 1: Don't pack constant fields on regular grids
+void gribSetDebug(int debug); // 1: Debugging
+void gribSetRound(int round);
+void gribSetRefDP(double refval);
+void gribSetRefSP(float refval);
+void gribSetValueCheck(int vcheck);
+
+
+void gribExSP(int *isec0, int *isec1, int *isec2, float *fsec2, int *isec3,
+ float *fsec3, int *isec4, float *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, const char *hoper, int *kret);
+
+void gribExDP(int *isec0, int *isec1, int *isec2, double *fsec2, int *isec3,
+ double *fsec3, int *isec4, double *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, const char *hoper, int *kret);
+
+
+const char *cgribexLibraryVersion(void);
+
+void gribDebug(int debug);
+void gribSetCalendar(int calendar);
+
+void gribDateTimeX(int *isec1, int *date, int *time, int *startDate, int *startTime);
+void gribDateTime(int *isec1, int *date, int *time);
+int gribRefDate(const int *isec1);
+int gribRefTime(const int *isec1);
+
+bool gribTimeIsFC(const int *isec1);
+
+void gribPrintSec0(int *isec0);
+void gribPrintSec1(int *isec0, int *isec1);
+void gribPrintSec2DP(int *isec0, int *isec2, double *fsec2);
+void gribPrintSec2SP(int *isec0, int *isec2, float *fsec2);
+void gribPrintSec3DP(int *isec0, int *isec3, double *fsec3);
+void gribPrintSec3SP(int *isec0, int *isec3, float *fsec3);
+void gribPrintSec4DP(int *isec0, int *isec4, double *fsec4);
+void gribPrintSec4SP(int *isec0, int *isec4, float *fsec4);
+void gribPrintSec4Wave(int *isec4);
+
+void gribPrintALL(int nrec, long offset, long recpos, long recsize, unsigned char *gribbuffer);
+void gribPrintPDS(int nrec, long recpos, long recsize, unsigned char *gribbuffer);
+void gribPrintGDS(int nrec, long recpos, long recsize, unsigned char *gribbuffer);
+void gribPrintBMS(int nrec, long recpos, long recsize, unsigned char *gribbuffer);
+void gribPrintBDS(int nrec, long recpos, long recsize, unsigned char *gribbuffer);
+void gribCheck1(int nrec, long recpos, long recsize, unsigned char *gribbuffer);
+void gribRepair1(int nrec, long recsize, unsigned char *gribbuffer);
+
+int gribGetZip(size_t recsize, unsigned char *gribbuffer, size_t *urecsize);
+
+int gribBzip(unsigned char *dbuf, long dbufsize, unsigned char *sbuf, long sbufsize);
+int gribZip(unsigned char *dbuf, long dbufsize, unsigned char *sbuf, long sbufsize);
+int gribUnzip(unsigned char *dbuf, long dbufsize, unsigned char *sbuf, long sbufsize);
+
+int gribOpen(const char *filename, const char *mode);
+void gribClose(int fileID);
+
+int gribRead(int fileID, void *buffer, size_t *buffersize);
+int gribWrite(int fileID, void *buffer, size_t buffersize);
+off_t gribGetPos(int fileID);
+size_t gribGetSize(int fileID);
+int gribCheckSeek(int fileID, long *offset, int *version);
+int gribFileSeek(int fileID, long *offset);
+size_t gribReadSize(int fileID);
+int gribVersion(unsigned char *buffer, size_t buffersize);
+
+int grib_info_for_grads(off_t recpos, long recsize, unsigned char *gribbuffer, int *intnum, float *fltnum, off_t *bignum);
+
+double calculate_pfactor_float(const float* spectralField, long fieldTruncation, long subsetTruncation);
+double calculate_pfactor_double(const double* spectralField, long fieldTruncation, long subsetTruncation);
+
+#ifdef __cplusplus
+}
+#endif
+
+// clang-format on
+
+#endif /* CGRIBEX_H */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <ctype.h>
+
+
+#ifdef HAVE_LIBCGRIBEX
+#endif
+
+#ifdef HAVE_LIBPTHREAD
+#include <pthread.h>
+pthread_mutex_t CDI_IO_Mutex = PTHREAD_MUTEX_INITIALIZER;
+#endif
+
+int CDI_Default_Calendar = CALENDAR_PROLEPTIC;
+
+int CDI_Default_InstID = CDI_UNDEFID;
+int CDI_Default_ModelID = CDI_UNDEFID;
+int CDI_Default_TableID = CDI_UNDEFID;
+// int cdiNcMissingValue = CDI_UNDEFID;
+int CDI_Netcdf_Chunksizehint = CDI_UNDEFID;
+int CDI_Split_Ltype105 = CDI_UNDEFID;
+
+bool CDI_Ignore_Att_Coordinates = false;
+bool CDI_Coordinates_Lon_Lat = false;
+bool CDI_Ignore_Valid_Range = false;
+int CDI_Skip_Records = 0;
+const char *CDI_GRIB1_Template = NULL;
+const char *CDI_GRIB2_Template = NULL;
+int CDI_Convention = CDI_CONVENTION_ECHAM;
+int CDI_Inventory_Mode = 1;
+int CDI_Version_Info = 1;
+int CDI_Query_Abort = 1;
+int CDI_Convert_Cubesphere = 1;
+int CDI_Read_Cell_Corners = 1;
+int CDI_CMOR_Mode = 0;
+int CDI_Reduce_Dim = 0;
+int CDI_Shuffle = 0;
+int CDI_Test = 0;
+size_t CDI_Netcdf_Hdr_Pad = 0UL;
+size_t CDI_Chunk_Cache = 0UL;
+size_t CDI_Chunk_Cache_Max = 0UL;
+bool CDI_Netcdf_Lazy_Grid_Load = false;
+
+char *cdiPartabPath = NULL;
+int cdiPartabIntern = 1;
+
+double CDI_Default_Missval = -9.E33;
+double CDI_Grid_Missval = -9999.;
+
+// clang-format off
+static const char Filetypes[][9] = {
+ "UNKNOWN",
+ "GRIB",
+ "GRIB2",
+ "NetCDF",
+ "NetCDF2",
+ "NetCDF4",
+ "NetCDF4c",
+ "NetCDF5",
+ "SERVICE",
+ "EXTRA",
+ "IEG",
+ "NCZarr",
+ "HDF5",
+};
+// clang-format on
+
+int CDI_Debug = 0; // If set to 1, debugging
+int CDI_Recopt = 0;
+
+bool CDI_gribapi_debug = false;
+bool CDI_gribapi_grib1 = false;
+bool CDI_Lock_IO = false;
+bool CDI_Threadsafe = false;
+int cdiDefaultLeveltype = -1;
+int cdiDataUnreduced = 0;
+int cdiSortName = 0;
+int cdiHaveMissval = 0;
+
+static long
+cdi_getenv_int(const char *envName)
+{
+ long envValue = -1;
+
+ char *envString = getenv(envName);
+ if (envString)
+ {
+ long fact = 1;
+ int len = (int) strlen(envString);
+ for (int loop = 0; loop < len; loop++)
+ {
+ if (!isdigit((int) envString[loop]))
+ {
+ switch (tolower((int) envString[loop]))
+ {
+ case 'k': fact = 1024; break;
+ case 'm': fact = 1048576; break;
+ case 'g': fact = 1073741824; break;
+ default:
+ fact = 0;
+ Warning("Invalid number string in %s: %s", envName, envString);
+ Warning("%s must comprise only digits [0-9].", envName);
+ break;
+ }
+ break;
+ }
+ }
+
+ if (fact) envValue = fact * atol(envString);
+
+ if (CDI_Debug) Message("set %s to %ld", envName, envValue);
+ }
+
+ return envValue;
+}
+
+static void
+cdiPrintDefaults(void)
+{
+ fprintf(stderr,
+ "default instID : %d\n"
+ "default modelID : %d\n"
+ "default tableID : %d\n"
+ "default missval : %g\n",
+ CDI_Default_InstID, CDI_Default_ModelID, CDI_Default_TableID, CDI_Default_Missval);
+}
+
+#ifdef HAVE_LIBFDB5
+#include <fdb5/fdb5_config.h>
+#endif
+
+void
+cdiPrintVersion(void)
+{
+ fprintf(stdout, " CDI library version : %s\n", cdiLibraryVersion());
+#ifdef HAVE_LIBCGRIBEX
+ fprintf(stdout, " cgribex library version : %s\n", cgribexLibraryVersion());
+#endif
+#ifdef HAVE_LIBGRIB_API
+ fprintf(stdout, " ecCodes library version : %s\n", gribapiLibraryVersionString());
+#endif
+#ifdef HAVE_LIBNETCDF
+ fprintf(stdout, " NetCDF library version : %s\n", cdfLibraryVersion());
+#endif
+#ifdef HAVE_LIBSERVICE
+ fprintf(stdout, " exse library version : %s\n", srvLibraryVersion());
+#endif
+ fprintf(stdout, " FILE library version : %s\n", fileLibraryVersion());
+#ifdef HAVE_LIBFDB5
+ fprintf(stdout, " FDB5 library version : %s\n", fdb5_version());
+#endif
+}
+
+static void
+cdiPrintDatatypes(void)
+{
+#define XSTRING(x) #x
+#define STRING(x) XSTRING(x)
+
+ fprintf(stderr,
+ "+-------------+-------+\n"
+ "| types | bytes |\n"
+ "+-------------+-------+\n"
+ "| void * | %3d |\n"
+ "+-------------+-------+\n"
+ "| char | %3d |\n"
+ "+-------------+-------+\n"
+ "| bool | %3d |\n"
+ "| short | %3d |\n"
+ "| int | %3d |\n"
+ "| long | %3d |\n"
+ "| long long | %3d |\n"
+ "| size_t | %3d |\n"
+ "| off_t | %3d |\n"
+ "+-------------+-------+\n"
+ "| float | %3d |\n"
+ "| double | %3d |\n"
+ "| long double | %3d |\n"
+ "+-------------+-------+\n\n",
+ (int) sizeof(void *), (int) sizeof(char), (int) sizeof(bool), (int) sizeof(short), (int) sizeof(int), (int) sizeof(long),
+ (int) sizeof(long long), (int) sizeof(size_t), (int) sizeof(off_t), (int) sizeof(float), (int) sizeof(double),
+ (int) sizeof(long double));
+
+ fprintf(stderr,
+ "+-------------+-----------+\n"
+ "| INT32 | %-9s |\n"
+ "| INT64 | %-9s |\n"
+ "| FLT32 | %-9s |\n"
+ "| FLT64 | %-9s |\n"
+ "| SizeType | %-9s |\n"
+ "+-------------+-----------+\n",
+ STRING(INT32), STRING(INT64), STRING(FLT32), STRING(FLT64), STRING(CDI_SIZE_TYPE));
+
+ fprintf(stderr, "\n byte ordering is %s\n\n",
+ ((HOST_ENDIANNESS == CDI_BIGENDIAN)
+ ? "BIGENDIAN"
+ : ((HOST_ENDIANNESS == CDI_LITTLEENDIAN) ? "LITTLEENDIAN" : "Unhandled endianness!")));
+
+#undef STRING
+#undef XSTRING
+}
+
+void
+cdiDebug(int level)
+{
+ unsigned ulevel = (level == 1) ? (1U << 16) : (unsigned) level;
+
+ if (ulevel & 2) CDI_Debug = 1;
+ if (ulevel & 4) memDebug(1);
+ if (ulevel & 8) fileDebug(1);
+
+ if (ulevel & 16)
+ {
+#ifdef HAVE_LIBCGRIBEX
+ gribSetDebug(1);
+#endif
+#ifdef HAVE_LIBNETCDF
+ cdfDebug(1);
+#endif
+#ifdef HAVE_LIBSERVICE
+ srvDebug(1);
+#endif
+#ifdef HAVE_LIBEXTRA
+ extDebug(1);
+#endif
+#ifdef HAVE_LIBIEG
+ iegDebug(1);
+#endif
+ }
+
+ if (CDI_Debug)
+ {
+ cdiPrintDefaults();
+ cdiPrintDatatypes();
+ }
+}
+
+int
+cdiHaveFiletype(int filetype)
+{
+ int status = 0;
+
+ switch (filetype)
+ {
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: status = 1; break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: status = 1; break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: status = 1; break;
+#endif
+#ifdef HAVE_LIBGRIB
+#if defined HAVE_LIBGRIB_API || defined HAVE_LIBCGRIBEX
+ case CDI_FILETYPE_GRB: status = 1; break;
+#endif
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRB2: status = 1; break;
+#endif
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NC: status = 1; break;
+#ifdef HAVE_NETCDF2
+ case CDI_FILETYPE_NC2: status = 1; break;
+#endif
+#ifdef HAVE_NETCDF4
+ case CDI_FILETYPE_NC4: status = 1; break;
+ case CDI_FILETYPE_NC4C: status = 1; break;
+#endif
+#ifdef HAVE_NCZARR
+ case CDI_FILETYPE_NCZARR: status = 1; break;
+#endif
+#ifdef HAVE_NETCDF5
+ case CDI_FILETYPE_NC5: status = 1; break;
+#endif
+#endif
+ default: status = 0; break;
+ }
+
+ return status;
+}
+
+void
+cdiDefTableID(int tableID)
+{
+ CDI_Default_TableID = tableID;
+ int modelID = CDI_Default_ModelID = tableInqModel(tableID);
+ CDI_Default_InstID = modelInqInstitut(modelID);
+}
+
+void
+cdiSetEccodesGrib1(bool value)
+{
+#ifndef HAVE_LIBGRIB_API
+ if (value)
+ {
+ Warning("ecCodes support not compiled in, used CGRIBEX to decode/encode GRIB1 records!");
+ value = false;
+ }
+#endif
+ CDI_gribapi_grib1 = value;
+}
+
+void
+cdiInitialize(void)
+{
+ static bool Init_CDI = false;
+
+ if (!Init_CDI)
+ {
+ Init_CDI = true;
+ char *envstr;
+ long value;
+
+#ifdef HAVE_LIBCGRIBEX
+ gribFixZSE(1); // 1: Fix ZeroShiftError of simple packed spherical harmonics
+ gribSetConst(1); // 1: Don't pack constant fields on regular grids
+#endif
+#ifdef HAVE_LIBGRIB_API
+ grib_multi_support_off(NULL);
+#endif
+
+ value = cdi_getenv_int("CDI_DEBUG");
+ if (value >= 0) CDI_Debug = (int) value;
+
+ value = cdi_getenv_int("CDI_GRIBAPI_DEBUG");
+ if (value >= 0) CDI_gribapi_debug = (bool) value;
+
+ value = cdi_getenv_int("CDI_ECCODES_DEBUG");
+ if (value >= 0) CDI_gribapi_debug = (bool) value;
+
+ value = cdi_getenv_int("CDI_ECCODES_GRIB1");
+ if (value >= 0) cdiSetEccodesGrib1((bool) value);
+
+ value = cdi_getenv_int("CDI_LOCK_IO");
+ if (value >= 0) CDI_Lock_IO = (bool) value;
+
+ value = cdi_getenv_int("CDI_READ_CELL_CORNERS");
+ if (value >= 0) CDI_Read_Cell_Corners = (int) value;
+
+ value = cdi_getenv_int("CDI_RECOPT");
+ if (value >= 0) CDI_Recopt = (int) value;
+
+ value = cdi_getenv_int("CDI_REGULARGRID");
+ if (value >= 0) cdiDataUnreduced = (int) value;
+
+ value = cdi_getenv_int("CDI_SORTNAME");
+ if (value >= 0) cdiSortName = (int) value;
+
+ value = cdi_getenv_int("CDI_HAVE_MISSVAL");
+ if (value >= 0) cdiHaveMissval = (int) value;
+
+ value = cdi_getenv_int("CDI_LEVELTYPE");
+ if (value >= 0) cdiDefaultLeveltype = (int) value;
+
+ value = cdi_getenv_int("CDI_NETCDF_HDR_PAD");
+ if (value >= 0) CDI_Netcdf_Hdr_Pad = (size_t) value;
+
+ value = cdi_getenv_int("CDI_CHUNK_CACHE");
+ if (value >= 0) CDI_Chunk_Cache = (size_t) value;
+
+ value = cdi_getenv_int("CDI_CHUNK_CACHE_MAX");
+ if (value >= 0) CDI_Chunk_Cache_Max = (size_t) value;
+
+ value = cdi_getenv_int("CDI_TEST");
+ if (value >= 0) CDI_Test = (size_t) value;
+
+ envstr = getenv("CDI_GRIB1_TEMPLATE");
+ if (envstr) CDI_GRIB1_Template = envstr;
+
+ envstr = getenv("CDI_GRIB2_TEMPLATE");
+ if (envstr) CDI_GRIB2_Template = envstr;
+
+ envstr = getenv("CDI_SHUFFLE");
+ if (envstr) CDI_Shuffle = atoi(envstr);
+
+ envstr = getenv("CDI_MISSVAL");
+ if (envstr) CDI_Default_Missval = atof(envstr);
+ /*
+ envstr = getenv("NC_MISSING_VALUE");
+ if ( envstr ) cdiNcMissingValue = atoi(envstr);
+ */
+ envstr = getenv("NC_CHUNKSIZEHINT");
+ if (envstr) CDI_Netcdf_Chunksizehint = atoi(envstr);
+
+ envstr = getenv("SPLIT_LTYPE_105");
+ if (envstr) CDI_Split_Ltype105 = atoi(envstr);
+
+ envstr = getenv("IGNORE_ATT_COORDINATES");
+ if (envstr) CDI_Ignore_Att_Coordinates = atoi(envstr) > 0;
+
+ envstr = getenv("CDI_COORDINATES_LONLAT");
+ if (envstr) CDI_Coordinates_Lon_Lat = atoi(envstr) > 0;
+
+ envstr = getenv("IGNORE_VALID_RANGE");
+ if (envstr) CDI_Ignore_Valid_Range = atoi(envstr) > 0;
+
+ envstr = getenv("CDI_SKIP_RECORDS");
+ if (envstr)
+ {
+ CDI_Skip_Records = atoi(envstr);
+ CDI_Skip_Records = CDI_Skip_Records > 0 ? CDI_Skip_Records : 0;
+ }
+
+ envstr = getenv("CDI_CONVENTION");
+ if (envstr)
+ {
+ if (str_is_equal(envstr, "CF") || str_is_equal(envstr, "cf"))
+ {
+ CDI_Convention = CDI_CONVENTION_CF;
+ if (CDI_Debug) Message("CDI convention was set to CF!");
+ }
+ }
+
+ envstr = getenv("CDI_INVENTORY_MODE");
+ if (envstr)
+ {
+ if (strncmp(envstr, "time", 4) == 0)
+ {
+ CDI_Inventory_Mode = 2;
+ if (CDI_Debug) Message("Inventory mode was set to timestep!");
+ }
+ }
+
+ envstr = getenv("CDI_QUERY_ABORT");
+ if (envstr)
+ {
+ int ival = atoi(envstr);
+ if (ival == 0 || ival == 1)
+ {
+ CDI_Query_Abort = ival;
+ if (CDI_Debug) Message("CDI_Query_Abort = %s", envstr);
+ }
+ }
+
+ envstr = getenv("CDI_VERSION_INFO");
+ if (envstr)
+ {
+ int ival = atoi(envstr);
+ if (ival == 0 || ival == 1)
+ {
+ CDI_Version_Info = ival;
+ if (CDI_Debug) Message("CDI_Version_Info = %s", envstr);
+ }
+ }
+
+ envstr = getenv("CDI_CONVERT_CUBESPHERE");
+ if (envstr)
+ {
+ int ival = atoi(envstr);
+ if (ival == 0 || ival == 1)
+ {
+ CDI_Convert_Cubesphere = ival;
+ if (CDI_Debug) Message("CDI_Convert_Cubesphere = %s", envstr);
+ }
+ }
+
+ envstr = getenv("CDI_CALENDAR");
+ if (envstr)
+ {
+ // clang-format off
+ if (strncmp(envstr, "standard", 8) == 0) CDI_Default_Calendar = CALENDAR_STANDARD;
+ else if (strncmp(envstr, "gregorian", 9) == 0) CDI_Default_Calendar = CALENDAR_GREGORIAN;
+ else if (strncmp(envstr, "proleptic", 9) == 0) CDI_Default_Calendar = CALENDAR_PROLEPTIC;
+ else if (strncmp(envstr, "360days", 7) == 0) CDI_Default_Calendar = CALENDAR_360DAYS;
+ else if (strncmp(envstr, "365days", 7) == 0) CDI_Default_Calendar = CALENDAR_365DAYS;
+ else if (strncmp(envstr, "366days", 7) == 0) CDI_Default_Calendar = CALENDAR_366DAYS;
+ else if (strncmp(envstr, "none", 4) == 0) CDI_Default_Calendar = CALENDAR_NONE;
+ // clang-format on
+ if (CDI_Debug) Message("Default calendar set to %s!", envstr);
+ }
+#ifdef HAVE_LIBCGRIBEX
+ gribSetCalendar(CDI_Default_Calendar);
+#endif
+
+ envstr = getenv("PARTAB_INTERN");
+ if (envstr) cdiPartabIntern = atoi(envstr);
+
+ envstr = getenv("PARTAB_PATH");
+ if (envstr) cdiPartabPath = strdup(envstr);
+ }
+}
+
+const char *
+strfiletype(int filetype)
+{
+ int size = (int) (sizeof(Filetypes) / sizeof(char *));
+ return (filetype > 0 && filetype < size) ? Filetypes[filetype] : Filetypes[0];
+}
+
+void
+cdiDefGlobal(const char *string, int value)
+{
+ // clang-format off
+ if (str_is_equal(string, "REGULARGRID")) cdiDataUnreduced = value;
+ else if (str_is_equal(string, "LOCKIO")) CDI_Lock_IO = (bool) value;
+ else if (str_is_equal(string, "THREADSAFE")) CDI_Threadsafe = (bool) value;
+ else if (str_is_equal(string, "ECCODES_DEBUG")) CDI_gribapi_debug = (bool) value;
+ else if (str_is_equal(string, "ECCODES_GRIB1")) cdiSetEccodesGrib1((bool) value);
+ else if (str_is_equal(string, "SORTNAME")) cdiSortName = value;
+ else if (str_is_equal(string, "HAVE_MISSVAL")) cdiHaveMissval = value;
+ else if (str_is_equal(string, "NC_CHUNKSIZEHINT")) CDI_Netcdf_Chunksizehint = value;
+ else if (str_is_equal(string, "READ_CELL_CORNERS")) CDI_Read_Cell_Corners = value;
+ else if (str_is_equal(string, "CMOR_MODE")) CDI_CMOR_Mode = value;
+ else if (str_is_equal(string, "REDUCE_DIM")) CDI_Reduce_Dim = value;
+ else if (str_is_equal(string, "NETCDF_HDR_PAD")) CDI_Netcdf_Hdr_Pad = (size_t) value;
+ else if (str_is_equal(string, "NETCDF_LAZY_GRID_LOAD")) CDI_Netcdf_Lazy_Grid_Load = (bool) value;
+ else Warning("Unsupported global key: %s", string);
+ // clang-format on
+}
+
+void
+cdiDefMissval(double missval)
+{
+ cdiInitialize();
+
+ CDI_Default_Missval = missval;
+}
+
+double
+cdiInqMissval(void)
+{
+ cdiInitialize();
+
+ return CDI_Default_Missval;
+}
+
+bool
+cdiFiletypeIsExse(int filetype)
+{
+ return (filetype == CDI_FILETYPE_SRV || filetype == CDI_FILETYPE_EXT || filetype == CDI_FILETYPE_IEG);
+}
+
+int
+cdiBaseFiletype(int filetype)
+{
+ switch (filetype)
+ {
+ case CDI_FILETYPE_GRB:
+ case CDI_FILETYPE_GRB2: return CDI_FILETYPE_GRIB;
+ case CDI_FILETYPE_NC:
+ case CDI_FILETYPE_NC2:
+ case CDI_FILETYPE_NC4:
+ case CDI_FILETYPE_NC4C:
+ case CDI_FILETYPE_NCZARR:
+ case CDI_FILETYPE_NC5: return CDI_FILETYPE_NETCDF;
+ }
+
+ return filetype;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <string.h>
+#include <stdlib.h>
+
+static int
+sum_found(int listSize, bool *listFound)
+{
+ int numFound = 0;
+ for (int i = 0; i < listSize; ++i) numFound += listFound[i];
+ return numFound;
+}
+
+static int
+sum_not_found(int listSize, bool *listFound)
+{
+ return listSize - sum_found(listSize, listFound);
+}
+
+void
+cdiQueryInit(CdiQuery *query)
+{
+ query->numEntries = 0;
+
+ query->numNames = 0;
+ query->names = NULL;
+ query->namesFound = NULL;
+
+ query->numCellidx = 0;
+ query->cellidx = NULL;
+ query->cellidxFound = NULL;
+
+ query->numLevidx = 0;
+ query->levidx = NULL;
+ query->levidxFound = NULL;
+
+ query->numStepidx = 0;
+ query->stepidx = NULL;
+ query->stepidxFound = NULL;
+}
+
+CdiQuery *
+cdiQueryCreate(void)
+{
+ CdiQuery *query = (CdiQuery *) malloc(sizeof(CdiQuery));
+ cdiQueryInit(query);
+ return query;
+}
+
+void
+cdiQueryDelete(CdiQuery *query)
+{
+ if (query)
+ {
+ if (query->numNames)
+ {
+ for (int i = 0; i < query->numNames; ++i) free(query->names[i]);
+ free(query->names);
+ free(query->namesFound);
+ }
+
+ if (query->numCellidx)
+ {
+ free(query->cellidx);
+ free(query->cellidxFound);
+ }
+
+ if (query->numLevidx)
+ {
+ free(query->levidx);
+ free(query->levidxFound);
+ }
+
+ if (query->numStepidx)
+ {
+ free(query->stepidx);
+ free(query->stepidxFound);
+ }
+
+ cdiQueryInit(query);
+ free(query);
+ }
+}
+
+int
+cdiQueryNumNames(const CdiQuery *query)
+{
+ return query ? query->numNames : 0;
+}
+
+int
+cdiQueryNumCellidx(const CdiQuery *query)
+{
+ return query ? query->numCellidx : 0;
+}
+
+int
+cdiQueryNumStepidx(const CdiQuery *query)
+{
+ return query ? query->numStepidx : 0;
+}
+
+int
+cdiQueryNumEntries(const CdiQuery *query)
+{
+ return query ? query->numEntries : 0;
+}
+
+void
+cdiQuerySetNames(CdiQuery *query, int numEntries, char **names)
+{
+ if (numEntries)
+ {
+ query->numEntries += numEntries;
+ query->numNames = numEntries;
+ query->namesFound = (bool *) calloc(numEntries, sizeof(bool));
+ query->names = (char **) malloc(numEntries * sizeof(char *));
+ for (int i = 0; i < numEntries; ++i) query->names[i] = strdup(names[i]);
+ }
+}
+
+void
+cdiQuerySetCellidx(CdiQuery *query, int numEntries, size_t *cellidx)
+{
+ if (numEntries)
+ {
+ query->numEntries += numEntries;
+ query->numCellidx = numEntries;
+ query->cellidxFound = (bool *) calloc(numEntries, sizeof(bool));
+ query->cellidx = (size_t *) malloc(numEntries * sizeof(size_t));
+ for (int i = 0; i < numEntries; ++i) query->cellidx[i] = cellidx[i];
+ }
+}
+
+void
+cdiQuerySetLevidx(CdiQuery *query, int numEntries, int *levidx)
+{
+ if (numEntries)
+ {
+ query->numEntries += numEntries;
+ query->numLevidx = numEntries;
+ query->levidxFound = (bool *) calloc(numEntries, sizeof(bool));
+ query->levidx = (int *) malloc(numEntries * sizeof(int));
+ for (int i = 0; i < numEntries; ++i) query->levidx[i] = levidx[i];
+ }
+}
+
+void
+cdiQuerySetStepidx(CdiQuery *query, int numEntries, int *stepidx)
+{
+ if (numEntries)
+ {
+ query->numEntries += numEntries;
+ query->numStepidx = numEntries;
+ query->stepidxFound = (bool *) calloc(numEntries, sizeof(bool));
+ query->stepidx = (int *) malloc(numEntries * sizeof(int));
+ for (int i = 0; i < numEntries; ++i) query->stepidx[i] = stepidx[i];
+ }
+}
+
+size_t
+cdiQueryGetCellidx(const CdiQuery *query, int index)
+{
+ return (index >= 0 && index < query->numCellidx) ? query->cellidx[index] : (size_t) -1;
+}
+
+CdiQuery *
+cdiQueryClone(const CdiQuery *query)
+{
+ CdiQuery *queryOut = cdiQueryCreate();
+
+ if (query)
+ {
+ cdiQuerySetNames(queryOut, query->numNames, query->names);
+ cdiQuerySetCellidx(queryOut, query->numCellidx, query->cellidx);
+ cdiQuerySetLevidx(queryOut, query->numLevidx, query->levidx);
+ cdiQuerySetStepidx(queryOut, query->numStepidx, query->stepidx);
+ }
+
+ return queryOut;
+}
+
+static void
+print_list_compact_int(int n, const int *list)
+{
+ for (int i = 0; i < n; ++i)
+ {
+ int value = list[i];
+ printf(" %d", value);
+ if ((i + 2) < n && (value + 1) == list[i + 1] && (value + 2) == list[i + 2])
+ {
+ printf("/to/");
+ int last = list[++i];
+ while ((i + 1) < n && (last + 1) == list[i + 1]) last = list[++i];
+ printf("%d", last);
+ }
+ }
+ printf("\n");
+}
+
+void
+cdiQueryPrint(const CdiQuery *query)
+{
+ if (query)
+ {
+ if (query->numNames)
+ {
+ printf("Names:");
+ for (int i = 0; i < query->numNames; ++i) printf(" %s", query->names[i]);
+ printf("\n");
+ }
+
+ if (query->numCellidx)
+ {
+ printf("Cellidx:");
+ for (int i = 0; i < query->numCellidx; ++i) printf(" %zu", query->cellidx[i]);
+ printf("\n");
+ }
+
+ if (query->numLevidx)
+ {
+ printf("Levidx:");
+ print_list_compact_int(query->numLevidx, query->levidx);
+ }
+
+ if (query->numStepidx)
+ {
+ printf("Stepidx:");
+ print_list_compact_int(query->numStepidx, query->stepidx);
+ }
+ }
+}
+
+int
+cdiQueryNumEntriesFound(const CdiQuery *query)
+{
+ int numEntriesFound = 0;
+
+ if (query)
+ {
+ if (query->numNames) numEntriesFound += sum_found(query->numNames, query->namesFound);
+ if (query->numCellidx) numEntriesFound += sum_found(query->numCellidx, query->cellidxFound);
+ if (query->numLevidx) numEntriesFound += sum_found(query->numLevidx, query->levidxFound);
+ if (query->numStepidx) numEntriesFound += sum_found(query->numStepidx, query->stepidxFound);
+ }
+
+ return numEntriesFound;
+}
+
+void
+cdiQueryPrintEntriesNotFound(const CdiQuery *query)
+{
+ if (query)
+ {
+ int numEntriesNotFound = cdiQueryNumEntries(query) - cdiQueryNumEntriesFound(query);
+ if (numEntriesNotFound > 0)
+ {
+ if (query->numNames)
+ {
+ if (sum_not_found(query->numNames, query->namesFound) > 0)
+ {
+ printf("Name not found:");
+ for (int i = 0; i < query->numNames; ++i)
+ if (!query->namesFound[i]) printf(" %s", query->names[i]);
+ printf("\n");
+ }
+ }
+
+ if (query->numCellidx)
+ {
+ if (sum_not_found(query->numCellidx, query->cellidxFound) > 0)
+ {
+ printf("Grid cell index not found:");
+ for (int i = 0; i < query->numCellidx; ++i)
+ if (!query->cellidxFound[i]) printf(" %zu", query->cellidx[i]);
+ printf("\n");
+ }
+ }
+
+ if (query->numLevidx)
+ {
+ if (sum_not_found(query->numLevidx, query->levidxFound) > 0)
+ {
+ printf("Level index not found:");
+ for (int i = 0; i < query->numLevidx; ++i)
+ if (!query->levidxFound[i]) printf(" %d", query->levidx[i]);
+ printf("\n");
+ }
+ }
+
+ if (query->numStepidx)
+ {
+ if (sum_not_found(query->numStepidx, query->stepidxFound) > 0)
+ {
+ printf("Step index not found:");
+ for (int i = 0; i < query->numStepidx; ++i)
+ if (!query->stepidxFound[i]) printf(" %d", query->stepidx[i]);
+ printf("\n");
+ }
+ }
+ }
+ }
+}
+
+int
+cdiQueryName(CdiQuery *query, const char *name)
+{
+ if (query && query->numNames && name && *name)
+ {
+ for (int i = 0; i < query->numNames; ++i)
+ if (strcmp(name, query->names[i]) == 0)
+ {
+ query->namesFound[i] = true;
+ return 0;
+ }
+ }
+
+ return -1;
+}
+
+int
+cdiQueryCellidx(CdiQuery *query, size_t cellidx)
+{
+ if (query && query->numCellidx)
+ {
+ for (int i = 0; i < query->numCellidx; ++i)
+ if (query->cellidx[i] == cellidx)
+ {
+ query->cellidxFound[i] = true;
+ return 0;
+ }
+ }
+
+ return -1;
+}
+
+int
+cdiQueryLevidx(CdiQuery *query, int levidx)
+{
+ if (query && query->numLevidx)
+ {
+ for (int i = 0; i < query->numLevidx; ++i)
+ if (query->levidx[i] == levidx)
+ {
+ query->levidxFound[i] = true;
+ return 0;
+ }
+ }
+
+ return -1;
+}
+
+int
+cdiQueryStepidx(CdiQuery *query, int stepidx)
+{
+ if (query && query->numStepidx)
+ {
+ for (int i = 0; i < query->numStepidx; ++i)
+ if (query->stepidx[i] == stepidx)
+ {
+ query->stepidxFound[i] = true;
+ return 0;
+ }
+ }
+
+ return -1;
+}
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <unistd.h>
+
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+void
+cdiDecodeParam(int param, int *pnum, int *pcat, int *pdis)
+{
+ unsigned uparam = (unsigned) param;
+
+ *pdis = (int) (0xffU & uparam);
+ *pcat = (int) (0xffU & (uparam >> 8));
+ unsigned upnum = 0xffffU & (uparam >> 16);
+ if (upnum > 0x7fffU) upnum = 0x8000U - upnum;
+ *pnum = (int) upnum;
+}
+
+int
+cdiEncodeParam(int pnum, int pcat, int pdis)
+{
+ if (pcat < 0 || pcat > 255) pcat = 255;
+ if (pdis < 0 || pdis > 255) pdis = 255;
+
+ unsigned upnum = (unsigned) pnum;
+ if (pnum < 0) upnum = (unsigned) (0x8000 - pnum);
+
+ unsigned uparam = (upnum << 16) | (((unsigned) pcat) << 8) | (unsigned) pdis;
+
+ return (int) uparam;
+}
+
+void
+cdiParamToString(int param, char *paramstr, int maxlen)
+{
+ int dis, cat, num;
+ cdiDecodeParam(param, &num, &cat, &dis);
+
+ size_t umaxlen = maxlen >= 0 ? (unsigned) maxlen : 0U;
+ int len;
+ if (dis == 255 && (cat == 255 || cat == 0))
+ len = snprintf(paramstr, umaxlen, "%d", num);
+ else if (dis == 255)
+ len = snprintf(paramstr, umaxlen, "%d.%d", num, cat);
+ else
+ len = snprintf(paramstr, umaxlen, "%d.%d.%d", num, cat, dis);
+
+ if (len >= maxlen || len < 0) fprintf(stderr, "Internal problem (%s): size of input string is too small!\n", __func__);
+}
+
+const char *
+cdiUnitNamePtr(int cdi_unit)
+{
+ const char *cdiUnits[] = {
+ /* 0 */ "undefined",
+ /* 1 */ "Pa",
+ /* 2 */ "hPa",
+ /* 3 */ "mm",
+ /* 4 */ "cm",
+ /* 5 */ "dm",
+ /* 6 */ "m",
+ };
+ enum
+ {
+ numUnits = (int) (sizeof(cdiUnits) / sizeof(char *))
+ };
+ const char *name = (cdi_unit > 0 && cdi_unit < numUnits) ? cdiUnits[cdi_unit] : NULL;
+
+ return name;
+}
+
+size_t
+cdiGetPageSize(bool largePageAlign)
+{
+ long pagesize = -1L;
+#if HAVE_DECL__SC_LARGE_PAGESIZE || HAVE_DECL__SC_PAGE_SIZE || HAVE_DECL__SC_PAGESIZE
+ bool nameAssigned = false;
+ int name = 0;
+#if HAVE_DECL__SC_LARGE_PAGESIZE
+ if (largePageAlign)
+ {
+ name = _SC_LARGE_PAGESIZE;
+ nameAssigned = true;
+ }
+ else
+#else
+ (void) largePageAlign;
+#endif
+ {
+#if HAVE_DECL__SC_PAGESIZE || HAVE_DECL__SC_PAGE_SIZE
+ name =
+#if HAVE_DECL__SC_PAGESIZE
+ _SC_PAGESIZE;
+#else
+ _SC_PAGE_SIZE;
+#endif
+ nameAssigned = true;
+#endif
+ }
+ if (nameAssigned) pagesize = sysconf(name);
+#endif
+ if (pagesize == -1L)
+ pagesize =
+#if HAVE_DECL_PAGESIZE
+ PAGESIZE;
+#elif HAVE_DECL_PAGE_SIZE
+ PAGE_SIZE;
+#else
+ commonPageSize;
+#endif
+ return (size_t) pagesize;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+// Automatically generated by m214003 at 2024-01-13, do not edit
+
+// CGRIBEXLIB_VERSION="2.2.0"
+
+#if __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ > 5) || defined(__clang__)
+#pragma GCC diagnostic push
+#pragma GCC diagnostic ignored "-Wconversion"
+#pragma GCC diagnostic ignored "-Wsign-conversion"
+#pragma GCC diagnostic warning "-Wstrict-overflow"
+#endif
+
+#ifdef _ARCH_PWR6
+#pragma options nostrict
+#include <ppu_intrinsics.h>
+#endif
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <string.h>
+#include <ctype.h>
+#include <stdarg.h>
+#include <stdbool.h>
+#include <sys/types.h>
+#include <inttypes.h>
+
+
+#ifndef CGRIBEX_TEMPLATES_H
+#define CGRIBEX_TEMPLATES_H
+
+// clang-format off
+#define CAT(X,Y) X##_##Y
+#define TEMPLATE(X,Y) CAT(X,Y)
+// clang-format on
+
+#endif
+#ifndef GRIB_INT_H
+#define GRIB_INT_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <inttypes.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <math.h>
+#include <float.h>
+
+// clang-format off
+
+#ifndef CGRIBEX_H
+#endif
+#ifndef ERROR_H
+#endif
+#ifndef TYPES_H
+#endif
+
+
+#ifndef UCHAR
+#define UCHAR unsigned char
+#endif
+
+
+#if defined (CRAY) || defined (SX) || defined (__uxpch__)
+#define VECTORCODE 1
+#endif
+
+
+#ifdef VECTORCODE
+#ifdef INT32
+# define GRIBPACK unsigned INT32
+# define PACK_GRIB packInt32
+# define UNPACK_GRIB unpackInt32
+#else
+# define GRIBPACK unsigned INT64
+# define PACK_GRIB packInt64
+# define UNPACK_GRIB unpackInt64
+#endif
+#else
+# define GRIBPACK unsigned char
+#endif
+
+#ifndef HOST_ENDIANNESS
+#ifdef __cplusplus
+static const uint32_t HOST_ENDIANNESS_temp[1] = { UINT32_C(0x00030201) };
+#define HOST_ENDIANNESS (((const unsigned char *)HOST_ENDIANNESS_temp)[0])
+#else
+#define HOST_ENDIANNESS (((const unsigned char *)&(const uint32_t[1]){UINT32_C(0x00030201)})[0])
+#endif
+#endif
+
+#define IS_BIGENDIAN() (HOST_ENDIANNESS == 0)
+
+#if defined (__xlC__) /* performance problems on IBM */
+#ifndef DBL_IS_NAN
+# define DBL_IS_NAN(x) ((x) != (x))
+#endif
+#else
+#ifndef DBL_IS_NAN
+#if defined (HAVE_DECL_ISNAN)
+# define DBL_IS_NAN(x) (isnan(x))
+#elif defined (FP_NAN)
+# define DBL_IS_NAN(x) (fpclassify(x) == FP_NAN)
+#else
+# define DBL_IS_NAN(x) ((x) != (x))
+#endif
+#endif
+#endif
+
+#ifndef IS_EQUAL
+# define IS_NOT_EQUAL(x,y) (x < y || y < x)
+# define IS_EQUAL(x,y) (!IS_NOT_EQUAL(x,y))
+#endif
+
+/* dummy use of unused parameters to silence compiler warnings */
+#ifndef UNUSED
+#define UNUSED(x) (void)(x)
+#endif
+
+#define JP24SET 0xFFFFFF /* 2**24 (---> 16777215) */
+#define JP23SET 0x7FFFFF /* 2**23 - 1 (---> 8388607) */
+
+#define POW_2_M24 0.000000059604644775390625 /* pow(2.0, -24.0) */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define intpow2(x) (ldexp(1.0, (x)))
+
+static inline int
+gribrec_len(unsigned b1, unsigned b2, unsigned b3)
+{
+ /*
+ If bit 7 of b1 is set, we have to rescale by factor of 120.
+ This is a fixup to get round the restriction on product lengths
+ due to the count being only 24 bits. It is only possible because
+ the (default) rounding for GRIB products is 120 bytes.
+ */
+ const int needRescaling = b1 & (1 << 7);
+
+ int gribsize = (int)((((b1&127) << 16)+(b2<<8) + b3));
+
+ if ( needRescaling ) gribsize *= 120;
+
+ return gribsize;
+
+}
+
+unsigned correct_bdslen(unsigned bdslen, long recsize, long gribpos);
+
+/* CDI converter routines */
+
+/* param format: DDDCCCNNN */
+
+void cdiDecodeParam(int param, int *pnum, int *pcat, int *pdis);
+int cdiEncodeParam(int pnum, int pcat, int pdis);
+
+/* date format: YYYYMMDD */
+/* time format: hhmmss */
+
+void cdiDecodeDate(int date, int *year, int *month, int *day);
+int cdiEncodeDate(int year, int month, int day);
+
+void cdiDecodeTime(int time, int *hour, int *minute, int *second);
+int cdiEncodeTime(int hour, int minute, int second);
+
+/* CALENDAR types */
+
+#define CALENDAR_STANDARD 0 /* don't change this value (used also in cgribexlib)! */
+#define CALENDAR_GREGORIAN 1
+#define CALENDAR_PROLEPTIC 2
+#define CALENDAR_360DAYS 3
+#define CALENDAR_365DAYS 4
+#define CALENDAR_366DAYS 5
+#define CALENDAR_NONE 6
+
+extern FILE *grprsm;
+
+extern int CGRIBEX_Debug, CGRIBEX_Fix_ZSE, CGRIBEX_Const;
+extern int CGRIBEX_grib_calendar;
+
+void gprintf(const char *caller, const char *fmt, ...);
+
+void grsdef(void);
+
+void prtbin(int kin, int knbit, int *kout, int *kerr);
+void confp3(double pval, int *kexp, int *kmant, int kbits, int kround);
+double decfp2(int kexp, int kmant);
+void ref2ibm(double *pref, int kbits);
+
+void scale_complex_double(double *fpdata, int pcStart, int pcScale, int trunc, int inv);
+void scale_complex_float(float *fpdata, int pcStart, int pcScale, int trunc, int inv);
+void scatter_complex_double(double *fpdata, int pcStart, int trunc, int nsp);
+void scatter_complex_float(float *fpdata, int pcStart, int trunc, int nsp);
+void gather_complex_double(double *fpdata, size_t pcStart, size_t trunc, size_t nsp);
+void gather_complex_float(float *fpdata, size_t pcStart, size_t trunc, size_t nsp);
+
+int qu2reg2(double *pfield, int *kpoint, int klat, int klon,
+ double *ztemp, double msval, int *kret);
+int qu2reg3_double(double *pfield, int *kpoint, int klat, int klon,
+ double msval, int *kret, int omisng, int operio, int oveggy);
+int qu2reg3_float(float *pfield, int *kpoint, int klat, int klon,
+ float msval, int *kret, int omisng, int operio, int oveggy);
+
+#ifdef INT32
+long packInt32(unsigned INT32 *up, unsigned char *cp, long bc, long tc);
+#endif
+long packInt64(unsigned INT64 *up, unsigned char *cp, long bc, long tc);
+#ifdef INT32
+long unpackInt32(const unsigned char *cp, unsigned INT32 *up, long bc, long tc);
+#endif
+long unpackInt64(const unsigned char *cp, unsigned INT64 *up, long bc, long tc);
+
+void grib_encode_double(int *isec0, int *isec1, int *isec2, double *fsec2, int *isec3,
+ double *fsec3, int *isec4, double *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, int efunc, int *kret);
+void grib_encode_float(int *isec0, int *isec1, int *isec2, float *fsec2, int *isec3,
+ float *fsec3, int *isec4, float *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, int efunc, int *kret);
+
+void grib_decode_double(int *isec0, int *isec1, int *isec2, double *fsec2, int *isec3,
+ double *fsec3, int *isec4, double *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, int dfunc, int *kret);
+void grib_decode_float(int *isec0, int *isec1, int *isec2, float *fsec2, int *isec3,
+ float *fsec3, int *isec4, float *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, int dfunc, int *kret);
+
+
+int grib1Sections(unsigned char *gribbuffer, long gribbufsize, unsigned char **pdsp,
+ unsigned char **gdsp, unsigned char **bmsp, unsigned char **bdsp, long *gribrecsize);
+int grib2Sections(unsigned char *gribbuffer, long gribbufsize, unsigned char **idsp,
+ unsigned char **lusp, unsigned char **gdsp, unsigned char **pdsp,
+ unsigned char **drsp, unsigned char **bmsp, unsigned char **bdsp);
+
+#ifdef __cplusplus
+}
+#endif
+
+// clang-format on
+
+#endif /* GRIB_INT_H */
+#ifndef GRIBDECODE_H
+#define GRIBDECODE_H
+
+// clang-format off
+
+#define UNDEFINED 9.999e20
+
+
+#define GET_INT3(a,b,c) ((1-(int) ((unsigned) (a & 128) >> 6)) * (int) (((a & 127) << 16)+(b<<8)+c))
+#define GET_INT2(a,b) ((1-(int) ((unsigned) (a & 128) >> 6)) * (int) (((a & 127) << 8) + b))
+#define GET_INT1(a) ((1-(int) ((unsigned) (a & 128) >> 6)) * (int) (a&127))
+
+/* this requires a 32-bit default integer machine */
+#define GET_UINT4(a,b,c,d) ((unsigned) ((a << 24) + (b << 16) + (c << 8) + (d)))
+#define GET_UINT3(a,b,c) ((unsigned) ((a << 16) + (b << 8) + (c)))
+#define GET_UINT2(a,b) ((unsigned) ((a << 8) + (b)))
+#define GET_UINT1(a) ((unsigned) (a))
+
+#define BUDG_START(s) (s[0]=='B' && s[1]=='U' && s[2]=='D' && s[3]=='G')
+#define TIDE_START(s) (s[0]=='T' && s[1]=='I' && s[2]=='D' && s[3]=='E')
+#define GRIB_START(s) (s[0]=='G' && s[1]=='R' && s[2]=='I' && s[3]=='B')
+#define GRIB_FIN(s) (s[0]=='7' && s[1]=='7' && s[2]=='7' && s[3]=='7')
+
+/* GRIB1 Section 0: Indicator Section (IS) */
+
+#define GRIB1_SECLEN(s) GET_UINT3(s[ 4], s[ 5], s[ 6])
+#define GRIB_EDITION(s) GET_UINT1(s[ 7])
+
+/* GRIB1 Section 1: Product Definition Section (PDS) */
+
+#define PDS_Len GET_UINT3(pds[ 0], pds[ 1], pds[ 2])
+#define PDS_CodeTable GET_UINT1(pds[ 3])
+#define PDS_CenterID GET_UINT1(pds[ 4])
+#define PDS_ModelID GET_UINT1(pds[ 5])
+#define PDS_GridDefinition GET_UINT1(pds[ 6])
+#define PDS_Sec2Or3Flag GET_UINT1(pds[ 7])
+#define PDS_HAS_GDS ((pds[7] & 128) != 0)
+#define PDS_HAS_BMS ((pds[7] & 64) != 0)
+#define PDS_Parameter GET_UINT1(pds[ 8])
+#define PDS_LevelType GET_UINT1(pds[ 9])
+#define PDS_Level1 (pds[10])
+#define PDS_Level2 (pds[11])
+#define PDS_Level GET_UINT2(pds[10], pds[11])
+#define PDS_Year GET_INT1(pds[12])
+#define PDS_Month GET_UINT1(pds[13])
+#define PDS_Day GET_UINT1(pds[14])
+#define PDS_Hour GET_UINT1(pds[15])
+#define PDS_Minute GET_UINT1(pds[16])
+#define PDS_Date (PDS_Year*10000+PDS_Month*100+PDS_Day)
+#define PDS_Time (PDS_Hour*100+PDS_Minute)
+#define PDS_TimeUnit GET_UINT1(pds[17])
+#define PDS_TimePeriod1 GET_UINT1(pds[18])
+#define PDS_TimePeriod2 GET_UINT1(pds[19])
+#define PDS_TimeRange GET_UINT1(pds[20])
+#define PDS_AvgNum GET_UINT2(pds[21], pds[22])
+#define PDS_AvgMiss GET_UINT1(pds[23])
+#define PDS_Century GET_UINT1(pds[24])
+#define PDS_Subcenter GET_UINT1(pds[25])
+#define PDS_DecimalScale GET_INT2(pds[26],pds[27])
+
+
+/* GRIB1 Section 2: Grid Description Section (GDS) */
+
+#define GDS_Len ((gds) == NULL ? 0 : GET_UINT3(gds[0], gds[1], gds[2]))
+#define GDS_NV GET_UINT1(gds[ 3])
+#define GDS_PVPL GET_UINT1(gds[ 4])
+#define GDS_PV ((gds[3] == 0) ? -1 : (int) gds[4] - 1)
+#define GDS_PL ((gds[4] == 0xFF) ? -1 : (int) gds[3] * 4 + (int) gds[4] - 1)
+#define GDS_GridType GET_UINT1(gds[ 5])
+
+
+/* GRIB1 Triangular grid of DWD */
+#define GDS_GME_NI2 GET_UINT2(gds[ 6], gds[ 7])
+#define GDS_GME_NI3 GET_UINT2(gds[ 8], gds[ 9])
+#define GDS_GME_ND GET_UINT3(gds[10], gds[11], gds[12])
+#define GDS_GME_NI GET_UINT3(gds[13], gds[14], gds[15])
+#define GDS_GME_AFlag GET_UINT1(gds[16])
+#define GDS_GME_LatPP GET_INT3(gds[17], gds[18], gds[19])
+#define GDS_GME_LonPP GET_INT3(gds[20], gds[21], gds[22])
+#define GDS_GME_LonMPL GET_INT3(gds[23], gds[24], gds[25])
+#define GDS_GME_BFlag GET_UINT1(gds[27])
+
+/* GRIB1 Spectral */
+#define GDS_PentaJ GET_UINT2(gds[ 6], gds[ 7])
+#define GDS_PentaK GET_UINT2(gds[ 8], gds[ 9])
+#define GDS_PentaM GET_UINT2(gds[10], gds[11])
+#define GDS_RepType GET_UINT1(gds[12])
+#define GDS_RepMode GET_UINT1(gds[13])
+
+/* GRIB1 Regular grid */
+#define GDS_NumLon GET_UINT2(gds[ 6], gds[ 7])
+#define GDS_NumLat GET_UINT2(gds[ 8], gds[ 9])
+#define GDS_FirstLat GET_INT3(gds[10], gds[11], gds[12])
+#define GDS_FirstLon GET_INT3(gds[13], gds[14], gds[15])
+#define GDS_ResFlag GET_UINT1(gds[16])
+#define GDS_LastLat GET_INT3(gds[17], gds[18], gds[19])
+#define GDS_LastLon GET_INT3(gds[20], gds[21], gds[22])
+#define GDS_LonIncr GET_UINT2(gds[23], gds[24])
+#define GDS_LatIncr GET_UINT2(gds[25], gds[26])
+#define GDS_NumPar GET_UINT2(gds[25], gds[26])
+#define GDS_ScanFlag GET_UINT1(gds[27])
+#define GDS_LatSP GET_INT3(gds[32], gds[33], gds[34])
+#define GDS_LonSP GET_INT3(gds[35], gds[36], gds[37])
+#define GDS_RotAngle (GET_Real(&(gds[38])))
+
+/* GRIB1 Lambert */
+#define GDS_Lambert_Lov GET_INT3(gds[17], gds[18], gds[19])
+#define GDS_Lambert_dx GET_INT3(gds[20], gds[21], gds[22])
+#define GDS_Lambert_dy GET_INT3(gds[23], gds[24], gds[25])
+#define GDS_Lambert_ProjFlag GET_UINT1(gds[26])
+#define GDS_Lambert_LatS1 GET_INT3(gds[28], gds[29], gds[30])
+#define GDS_Lambert_LatS2 GET_INT3(gds[31], gds[32], gds[33])
+#define GDS_Lambert_LatSP GET_INT3(gds[34], gds[35], gds[36])
+#define GDS_Lambert_LonSP GET_INT3(gds[37], gds[37], gds[37])
+
+/* GRIB1 Section 3: Bit Map Section (BMS) */
+
+#define BMS_Len ((bms) == NULL ? 0 : GET_UINT3(bms[0], bms[1], bms[2]))
+#define BMS_UnusedBits (bms[3])
+#define BMS_Bitmap ((bms) == NULL ? NULL : (bms)+6)
+#define BMS_BitmapSize (((((bms[0]<<16)+(bms[1]<<8)+bms[2]) - 6)<<3) - bms[3])
+
+/* GRIB1 Section 4: Binary Data Section (BDS) */
+
+#define BDS_Len GET_UINT3(bds[0], bds[1], bds[2])
+#define BDS_Flag (bds[3])
+#define BDS_BinScale GET_INT2(bds[ 4], bds[ 5])
+#define BDS_RefValue (decfp2((int)bds[ 6], (int)(GET_UINT3(bds[7], bds[8], bds[9]))))
+#define BDS_NumBits ((int) bds[10])
+#define BDS_RealCoef (decfp2((int)bds[zoff+11], (int)(GET_UINT3(bds[zoff+12], bds[zoff+13], bds[zoff+14]))))
+#define BDS_PackData ((int) ((bds[zoff+11]<<8) + bds[zoff+12]))
+#define BDS_Power GET_INT2(bds[zoff+13], bds[zoff+14])
+#define BDS_Z (bds[13])
+
+/* GRIB1 Section 5: End Section (ES) */
+
+/* GRIB2 */
+
+#define GRIB2_SECLEN(section) (GET_UINT4(section[0], section[1], section[2], section[3]))
+#define GRIB2_SECNUM(section) (GET_UINT1(section[4]))
+
+// clang-format on
+
+#endif /* GRIBDECODE_H */
+#ifndef CGRIBEX_GRIB_ENCODE_H
+#define CGRIBEX_GRIB_ENCODE_H
+
+#include <limits.h>
+
+// clang-format off
+
+#define PutnZero(n) \
+{ \
+ for ( size_t i___ = z >= 0 ? (size_t)z : 0; i___ < (size_t)(z+n); i___++ ) lGrib[i___] = 0; \
+ z += n; \
+}
+
+#define Put1Byte(Value) (lGrib[z++] = (GRIBPACK)(Value))
+#define Put2Byte(Value) ((lGrib[z++] = (GRIBPACK)((Value) >> 8)), \
+ (lGrib[z++] = (GRIBPACK)(Value)))
+#define Put3Byte(Value) ((lGrib[z++] = (GRIBPACK)((Value) >> 16)), \
+ (lGrib[z++] = (GRIBPACK)((Value) >> 8)), \
+ (lGrib[z++] = (GRIBPACK)(Value)))
+#define Put4Byte(Value) ((lGrib[z++] = (GRIBPACK)((Value) >> 24)), \
+ (lGrib[z++] = (GRIBPACK)((Value) >> 16)), \
+ (lGrib[z++] = (GRIBPACK)((Value) >> 8)), \
+ (lGrib[z++] = (GRIBPACK)(Value)))
+
+#define Put1Int(Value) {ival = Value; if ( ival < 0 ) ival = 0x80 - ival; Put1Byte(ival);}
+#define Put2Int(Value) {ival = Value; if ( ival < 0 ) ival = 0x8000 - ival; Put2Byte(ival);}
+#define Put3Int(Value) {ival = Value; if ( ival < 0 ) ival = 0x800000 - ival; Put3Byte(ival);}
+
+enum {
+ BitsPerInt = (int) (sizeof(int) * CHAR_BIT),
+};
+
+
+#define Put1Real(Value) \
+{ \
+ confp3(Value, &exponent, &mantissa, BitsPerInt, 1); \
+ Put1Byte(exponent); \
+ Put3Byte(mantissa); \
+}
+
+// clang-format on
+
+#endif /* CGRIBEX_GRIB_ENCODE_H */
+#ifndef CODEC_COMMON_H
+#define CODEC_COMMON_H
+#define gribSwapByteOrder_uint16(ui16) ((uint16_t) ((ui16 << 8) | (ui16 >> 8)))
+#endif /* CODEC_COMMON_H */
+/*
+icc -g -Wall -O3 -march=native -std=c99 -qopt-report=5 -DTEST_MINMAXVAL -qopenmp -DOMP_SIMD minmax_val.c
+ result on hama2 (icc 16.0.0):
+ float:
+minmax_val: fmin: -500000 fmax: 499999 time: 1.22s
+simd : fmin: -500000 fmax: 499999 time: 1.20s
+ double:
+minmax_val: fmin: -500000 fmax: 499999 time: 2.86s
+orig : fmin: -500000 fmax: 499999 time: 2.74s
+simd : fmin: -500000 fmax: 499999 time: 2.70s
+avx : fmin: -500000 fmax: 499999 time: 2.99s
+
+gcc -g -Wall -O3 -march=native -std=c99 -DTEST_MINMAXVAL -fopenmp -DOMP_SIMD -Wa,-q minmax_val.c
+ result on thunder5 (gcc 6.1.0):
+float:
+minmax_val: fmin: -500000 fmax: 499999 time: 8.25s
+ simd : fmin: -500000 fmax: 499999 time: 1.24s
+double:
+minmax_val: fmin: -500000 fmax: 499999 time: 2.73s
+ orig : fmin: -500000 fmax: 499999 time: 9.24s
+ simd : fmin: -500000 fmax: 499999 time: 2.78s
+ avx : fmin: -500000 fmax: 499999 time: 2.90s
+
+gcc -g -Wall -O3 -march=native -std=c99 -DTEST_MINMAXVAL minmax_val.c
+ result on bailung (gcc 4.8.2):
+ orig : fmin: -500000 fmax: 499999 time: 4.82s
+ sse2 : fmin: -500000 fmax: 499999 time: 4.83s
+
+gcc -g -Wall -O3 -march=native -std=c99 -DTEST_MINMAXVAL -fopenmp -DOMP_SIMD -Wa,-q minmax_val.c
+ result on thunder5 (gcc 4.8.2):
+ orig : fmin: -500000 fmax: 499999 time: 3.10s
+ simd : fmin: -500000 fmax: 499999 time: 3.10s # omp simd in gcc 4.9
+ avx : fmin: -500000 fmax: 499999 time: 2.84s
+
+icc -g -Wall -O3 -march=native -std=c99 -qopt-report=5 -DTEST_MINMAXVAL -openmp -DOMP_SIMD minmax_val.c
+ result on thunder5 (icc 14.0.2):
+ orig : fmin: -500000 fmax: 499999 time: 2.83s
+ simd : fmin: -500000 fmax: 499999 time: 2.83s
+ avx : fmin: -500000 fmax: 499999 time: 2.92s
+
+xlc_r -g -O3 -qhot -q64 -qarch=auto -qtune=auto -qreport -DTEST_MINMAXVAL minmax_val.c
+ result on blizzard (xlc 12):
+ orig : fmin: -500000 fmax: 499999 time: 7.26s
+ pwr6u6 : fmin: -500000 fmax: 499999 time: 5.92s
+*/
+#ifdef _ARCH_PWR6
+#pragma options nostrict
+#endif
+
+#ifdef OMP_SIMD
+#include <omp.h>
+#endif
+
+#include <stdlib.h>
+
+// #undef _GET_X86_COUNTER
+// #undef _GET_IBM_COUNTER
+// #undef _GET_MACH_COUNTER
+// #undef _ARCH_PWR6
+
+#if defined(_GET_IBM_COUNTER)
+#include <libhpc.h>
+#elif defined(_GET_X86_COUNTER)
+#include <x86intrin.h>
+#elif defined(_GET_MACH_COUNTER)
+#include <mach/mach_time.h>
+#endif
+
+#if defined(__GNUC__) && !defined(__ICC) && !defined(__clang__)
+#if (__GNUC__ >= 4) && (__GNUC_MINOR__ >= 4)
+#define GNUC_PUSH_POP
+#endif
+#endif
+
+#ifndef DISABLE_SIMD
+#if defined(__GNUC__) && (__GNUC__ >= 4)
+#elif defined(__ICC) && (__ICC >= 1100)
+#elif defined(__clang__)
+#else
+#define DISABLE_SIMD
+#endif
+#endif
+
+#ifdef DISABLE_SIMD
+#define DISABLE_SIMD_MINMAXVAL
+#endif
+
+#ifndef TEST_MINMAXVAL
+#define DISABLE_SIMD_MINMAXVAL
+#endif
+
+#ifdef DISABLE_SIMD_MINMAXVAL
+#ifdef ENABLE_AVX
+#define _ENABLE_AVX
+#endif
+#ifdef ENABLE_SSE2
+#define _ENABLE_SSE2
+#endif
+#endif
+
+#ifndef DISABLE_SIMD_MINMAXVAL
+#ifdef __AVX__
+#define _ENABLE_AVX
+#endif
+#ifdef __SSE2__
+#define _ENABLE_SSE2
+#endif
+#endif
+
+#include <float.h>
+#include <stdint.h>
+#include <inttypes.h>
+
+#if defined(_ENABLE_AVX)
+#include <immintrin.h>
+#elif defined(_ENABLE_SSE2)
+#include <emmintrin.h>
+#endif
+
+#if defined(_ENABLE_AVX)
+
+static void
+avx_minmax_val_double(const double *restrict buf, size_t nframes, double *min, double *max)
+{
+ double fmin[4], fmax[4];
+ __m256d current_max, current_min, work;
+
+ // load max and min values into all four slots of the YMM registers
+ current_min = _mm256_set1_pd(*min);
+ current_max = _mm256_set1_pd(*max);
+
+ // Work input until "buf" reaches 32 byte alignment
+ while (((unsigned long) buf) % 32 != 0 && nframes > 0)
+ {
+
+ // Load the next double into the work buffer
+ work = _mm256_set1_pd(*buf);
+ current_min = _mm256_min_pd(current_min, work);
+ current_max = _mm256_max_pd(current_max, work);
+ buf++;
+ nframes--;
+ }
+
+ while (nframes >= 16)
+ {
+
+ (void) _mm_prefetch((const char *) (buf + 8), _MM_HINT_NTA);
+
+ work = _mm256_load_pd(buf);
+ current_min = _mm256_min_pd(current_min, work);
+ current_max = _mm256_max_pd(current_max, work);
+ buf += 4;
+
+ work = _mm256_load_pd(buf);
+ current_min = _mm256_min_pd(current_min, work);
+ current_max = _mm256_max_pd(current_max, work);
+ buf += 4;
+
+ (void) _mm_prefetch((const char *) (buf + 8), _MM_HINT_NTA);
+
+ work = _mm256_load_pd(buf);
+ current_min = _mm256_min_pd(current_min, work);
+ current_max = _mm256_max_pd(current_max, work);
+ buf += 4;
+
+ work = _mm256_load_pd(buf);
+ current_min = _mm256_min_pd(current_min, work);
+ current_max = _mm256_max_pd(current_max, work);
+ buf += 4;
+ nframes -= 16;
+ }
+
+ // work through aligned buffers
+ while (nframes >= 4)
+ {
+ work = _mm256_load_pd(buf);
+ current_min = _mm256_min_pd(current_min, work);
+ current_max = _mm256_max_pd(current_max, work);
+ buf += 4;
+ nframes -= 4;
+ }
+
+ // work through the remainung values
+ while (nframes > 0)
+ {
+ work = _mm256_set1_pd(*buf);
+ current_min = _mm256_min_pd(current_min, work);
+ current_max = _mm256_max_pd(current_max, work);
+ buf++;
+ nframes--;
+ }
+
+ // find min & max value through shuffle tricks
+
+ work = current_min;
+ work = _mm256_shuffle_pd(work, work, 5);
+ work = _mm256_min_pd(work, current_min);
+ current_min = work;
+ work = _mm256_permute2f128_pd(work, work, 1);
+ work = _mm256_min_pd(work, current_min);
+ _mm256_storeu_pd(fmin, work);
+
+ work = current_max;
+ work = current_max;
+ work = _mm256_shuffle_pd(work, work, 5);
+ work = _mm256_max_pd(work, current_max);
+ current_max = work;
+ work = _mm256_permute2f128_pd(work, work, 1);
+ work = _mm256_max_pd(work, current_max);
+ _mm256_storeu_pd(fmax, work);
+
+ *min = fmin[0];
+ *max = fmax[0];
+
+ return;
+}
+
+#elif defined(_ENABLE_SSE2)
+
+static void
+sse2_minmax_val_double(const double *restrict buf, size_t nframes, double *min, double *max)
+{
+ __m128d current_max, current_min, work;
+
+ // load starting max and min values into all slots of the XMM registers
+ current_min = _mm_set1_pd(*min);
+ current_max = _mm_set1_pd(*max);
+
+ // work on input until buf reaches 16 byte alignment
+ while (((unsigned long) buf) % 16 != 0 && nframes > 0)
+ {
+
+ // load one double and replicate
+ work = _mm_set1_pd(*buf);
+ current_min = _mm_min_pd(current_min, work);
+ current_max = _mm_max_pd(current_max, work);
+ buf++;
+ nframes--;
+ }
+
+ while (nframes >= 8)
+ {
+ // use 64 byte prefetch for double octetts
+ // __builtin_prefetch(buf+64,0,0); // for GCC 4.3.2 +
+
+ work = _mm_load_pd(buf);
+ current_min = _mm_min_pd(current_min, work);
+ current_max = _mm_max_pd(current_max, work);
+ buf += 2;
+ work = _mm_load_pd(buf);
+ current_min = _mm_min_pd(current_min, work);
+ current_max = _mm_max_pd(current_max, work);
+ buf += 2;
+ work = _mm_load_pd(buf);
+ current_min = _mm_min_pd(current_min, work);
+ current_max = _mm_max_pd(current_max, work);
+ buf += 2;
+ work = _mm_load_pd(buf);
+ current_min = _mm_min_pd(current_min, work);
+ current_max = _mm_max_pd(current_max, work);
+ buf += 2;
+ nframes -= 8;
+ }
+
+ // work through smaller chunks of aligned buffers without prefetching
+ while (nframes >= 2)
+ {
+ work = _mm_load_pd(buf);
+ current_min = _mm_min_pd(current_min, work);
+ current_max = _mm_max_pd(current_max, work);
+ buf += 2;
+ nframes -= 2;
+ }
+
+ // work through the remaining value
+ while (nframes > 0)
+ {
+ // load the last double and replicate
+ work = _mm_set1_pd(*buf);
+ current_min = _mm_min_pd(current_min, work);
+ current_max = _mm_max_pd(current_max, work);
+ buf++;
+ nframes--;
+ }
+
+ // find final min and max value through shuffle tricks
+ work = current_min;
+ work = _mm_shuffle_pd(work, work, _MM_SHUFFLE2(0, 1));
+ work = _mm_min_pd(work, current_min);
+ _mm_store_sd(min, work);
+ work = current_max;
+ work = _mm_shuffle_pd(work, work, _MM_SHUFFLE2(0, 1));
+ work = _mm_max_pd(work, current_max);
+ _mm_store_sd(max, work);
+
+ return;
+}
+
+#endif // SIMD
+
+#if defined(_ARCH_PWR6)
+static void
+pwr6_minmax_val_double_unrolled6(const double *restrict data, size_t datasize, double *fmin, double *fmax)
+{
+#define __UNROLL_DEPTH_1 6
+
+ // to allow pipelining we have to unroll
+
+ {
+ size_t residual = datasize % __UNROLL_DEPTH_1;
+ size_t ofs = datasize - residual;
+ double dmin[__UNROLL_DEPTH_1];
+ double dmax[__UNROLL_DEPTH_1];
+
+ for (size_t j = 0; j < __UNROLL_DEPTH_1; ++j)
+ {
+ dmin[j] = data[0];
+ dmax[j] = data[0];
+ }
+
+ for (size_t i = 0; i < datasize - residual; i += __UNROLL_DEPTH_1)
+ {
+ for (size_t j = 0; j < __UNROLL_DEPTH_1; ++j)
+ {
+ dmin[j] = __fsel(dmin[j] - data[i + j], data[i + j], dmin[j]);
+ dmax[j] = __fsel(data[i + j] - dmax[j], data[i + j], dmax[j]);
+ }
+ }
+
+ for (size_t j = 0; j < residual; ++j)
+ {
+ dmin[j] = __fsel(dmin[j] - data[ofs + j], data[ofs + j], dmin[j]);
+ dmax[j] = __fsel(data[ofs + j] - dmax[j], data[ofs + j], dmax[j]);
+ }
+
+ for (size_t j = 0; j < __UNROLL_DEPTH_1; ++j)
+ {
+ *fmin = __fsel(*fmin - dmin[j], dmin[j], *fmin);
+ *fmax = __fsel(dmax[j] - *fmax, dmax[j], *fmax);
+ }
+ }
+#undef __UNROLL_DEPTH_1
+}
+#endif
+
+// clang-format off
+#if defined(TEST_MINMAXVAL) && defined(__GNUC__)
+static void minmax_val_double_orig(const double *restrict data, size_t datasize, double *fmin, double *fmax) __attribute__((noinline));
+static void minmax_val_double_simd(const double *restrict data, size_t datasize, double *fmin, double *fmax) __attribute__((noinline));
+static void minmax_val_double_omp(const double *restrict data, size_t datasize, double *fmin, double *fmax) __attribute__((noinline));
+static void minmax_val_float(const float *restrict data, long datasize, float *fmin, float *fmax) __attribute__((noinline));
+static void minmax_val_float_simd(const float *restrict data, size_t datasize, float *fmin, float *fmax) __attribute__((noinline));
+#endif
+// clang-format on
+
+#if defined(GNUC_PUSH_POP)
+#pragma GCC push_options
+#pragma GCC optimize("O3", "fast-math")
+#endif
+static void
+minmax_val_double_orig(const double *restrict data, size_t datasize, double *fmin, double *fmax)
+{
+ double dmin = *fmin, dmax = *fmax;
+
+#if defined(CRAY)
+#pragma _CRI ivdep
+#elif defined(SX)
+#pragma vdir nodep
+#elif defined(__uxp__)
+#pragma loop novrec
+#elif defined(__ICC)
+#pragma ivdep
+#endif
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ dmin = (dmin < data[i]) ? dmin : data[i];
+ dmax = (dmax > data[i]) ? dmax : data[i];
+ }
+
+ *fmin = dmin;
+ *fmax = dmax;
+}
+
+static void
+minmax_val_float(const float *restrict data, long idatasize, float *fmin, float *fmax)
+{
+ size_t datasize = (size_t) idatasize;
+ float dmin = *fmin, dmax = *fmax;
+
+#if defined(CRAY)
+#pragma _CRI ivdep
+#elif defined(SX)
+#pragma vdir nodep
+#elif defined(__uxp__)
+#pragma loop novrec
+#elif defined(__ICC)
+#pragma ivdep
+#endif
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ dmin = (dmin < data[i]) ? dmin : data[i];
+ dmax = (dmax > data[i]) ? dmax : data[i];
+ }
+
+ *fmin = dmin;
+ *fmax = dmax;
+}
+#if defined(GNUC_PUSH_POP)
+#pragma GCC pop_options
+#endif
+
+// TEST
+#if defined(OMP_SIMD)
+
+#if defined(GNUC_PUSH_POP)
+#pragma GCC push_options
+#pragma GCC optimize("O3", "fast-math")
+#endif
+static void
+minmax_val_double_omp(const double *restrict data, size_t datasize, double *fmin, double *fmax)
+{
+ double dmin = *fmin, dmax = *fmax;
+
+#if defined(_OPENMP)
+#pragma omp parallel for simd reduction(min : dmin) reduction(max : dmax)
+#endif
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ dmin = (dmin < data[i]) ? dmin : data[i];
+ dmax = (dmax > data[i]) ? dmax : data[i];
+ }
+
+ *fmin = dmin;
+ *fmax = dmax;
+}
+
+static void
+minmax_val_double_simd(const double *restrict data, size_t datasize, double *fmin, double *fmax)
+{
+ double dmin = *fmin, dmax = *fmax;
+
+#ifdef _OPENMP
+#pragma omp simd reduction(min : dmin) reduction(max : dmax)
+#endif
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ dmin = (dmin < data[i]) ? dmin : data[i];
+ dmax = (dmax > data[i]) ? dmax : data[i];
+ }
+
+ *fmin = dmin;
+ *fmax = dmax;
+}
+
+static void
+minmax_val_float_simd(const float *restrict data, size_t datasize, float *fmin, float *fmax)
+{
+ float dmin = *fmin, dmax = *fmax;
+
+#if defined(_OPENMP)
+#pragma omp simd reduction(min : dmin) reduction(max : dmax)
+#endif
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ dmin = (dmin < data[i]) ? dmin : data[i];
+ dmax = (dmax > data[i]) ? dmax : data[i];
+ }
+
+ *fmin = dmin;
+ *fmax = dmax;
+}
+#if defined(GNUC_PUSH_POP)
+#pragma GCC pop_options
+#endif
+#endif
+
+static void
+minmax_val_double(const double *restrict data, long idatasize, double *fmin, double *fmax)
+{
+#if defined(_GET_X86_COUNTER) || defined(_GET_MACH_COUNTER)
+ uint64_t start_minmax, end_minmax;
+#endif
+ size_t datasize = (size_t) idatasize;
+
+ if (idatasize >= 1)
+ ;
+ else
+ return;
+
+#if defined(_GET_X86_COUNTER)
+ start_minmax = _rdtsc();
+#endif
+#if defined(_GET_MACH_COUNTER)
+ start_minmax = mach_absolute_time();
+#endif
+
+#if defined(_ENABLE_AVX)
+
+ avx_minmax_val_double(data, datasize, fmin, fmax);
+
+#elif defined(_ENABLE_SSE2)
+
+ sse2_minmax_val_double(data, datasize, fmin, fmax);
+
+#else
+
+#if defined(_ARCH_PWR6)
+#define __UNROLL_DEPTH_1 6
+
+ // to allow pipelining we have to unroll
+
+#if defined(_GET_IBM_COUNTER)
+ hpmStart(1, "minmax fsel");
+#endif
+
+ pwr6_minmax_val_double_unrolled6(data, datasize, fmin, fmax);
+
+#if defined(_GET_IBM_COUNTER)
+ hpmStop(1);
+#endif
+
+#undef __UNROLL_DEPTH_1
+
+#else // original loop
+
+#if defined(_GET_IBM_COUNTER)
+ hpmStart(1, "minmax base");
+#endif
+
+ minmax_val_double_orig(data, datasize, fmin, fmax);
+
+#if defined(_GET_IBM_COUNTER)
+ hpmStop(1);
+#endif
+
+#endif // _ARCH_PWR6 && original loop
+#endif // SIMD
+
+#if defined(_GET_X86_COUNTER) || defined(_GET_MACH_COUNTER)
+#if defined(_GET_X86_COUNTER)
+ end_minmax = _rdtsc();
+#endif
+#if defined(_GET_MACH_COUNTER)
+ end_minmax = mach_absolute_time();
+#endif
+#if defined(_ENABLE_AVX)
+ printf("AVX minmax cycles:: %" PRIu64 "\n", end_minmax - start_minmax);
+ fprintf(stderr, "AVX min: %lf max: %lf\n", *fmin, *fmax);
+#elif defined(_ENABLE_SSE2)
+ printf("SSE2 minmax cycles:: %" PRIu64 "\n", end_minmax - start_minmax);
+ fprintf(stderr, "SSE2 min: %lf max: %lf\n", *fmin, *fmax);
+#else
+ printf("loop minmax cycles:: %" PRIu64 "\n", end_minmax - start_minmax);
+ fprintf(stderr, "loop min: %lf max: %lf\n", *fmin, *fmax);
+#endif
+#endif
+
+ return;
+}
+
+#if defined(TEST_MINMAXVAL)
+
+#include <stdio.h>
+#include <sys/time.h>
+
+static double
+dtime()
+{
+ double tseconds = 0.0;
+ struct timeval mytime;
+ gettimeofday(&mytime, NULL);
+ tseconds = (double) (mytime.tv_sec + (double) mytime.tv_usec * 1.0e-6);
+ return (tseconds);
+}
+
+#define NRUN 10000
+
+int
+main(void)
+{
+ long datasize = 1000000;
+ double t_begin, t_end;
+
+ printf("datasize %ld\n", datasize);
+#if defined(_OPENMP)
+ printf("_OPENMP=%d\n", _OPENMP);
+#endif
+
+#if defined(__ICC)
+ printf("icc\n");
+#elif defined(__clang__)
+ printf("clang\n");
+#elif defined(__GNUC__)
+ printf("gcc\n");
+#endif
+
+ {
+ float fmin, fmax;
+ float *data_sp = (float *) malloc(datasize * sizeof(float));
+
+ for (long i = 0; i < datasize / 2; ++i) data_sp[i] = (float) (i);
+ for (long i = datasize / 2; i < datasize; ++i) data_sp[i] = (float) (-datasize + i);
+
+ printf("float:\n");
+
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ fmin = fmax = data_sp[0];
+ minmax_val_float(data_sp, datasize, &fmin, &fmax);
+ }
+ t_end = dtime();
+ printf("minmax_val: fmin: %ld fmax: %ld time: %6.2fs\n", (long) fmin, (long) fmax, t_end - t_begin);
+
+#if defined(OMP_SIMD)
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ fmin = fmax = data_sp[0];
+ minmax_val_float_simd(data_sp, datasize, &fmin, &fmax);
+ }
+ t_end = dtime();
+ printf("simd : fmin: %ld fmax: %ld time: %6.2fs\n", (long) fmin, (long) fmax, t_end - t_begin);
+#endif
+
+ free(data_sp);
+ }
+
+ {
+ double fmin, fmax;
+ double *data_dp = (double *) malloc(datasize * sizeof(double));
+
+ // for (long i = datasize-1; i >= 0; --i) data[i] = (double) (-datasize/2 + i);
+ for (long i = 0; i < datasize / 2; ++i) data_dp[i] = (double) (i);
+ for (long i = datasize / 2; i < datasize; ++i) data_dp[i] = (double) (-datasize + i);
+
+ printf("double:\n");
+
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ fmin = fmax = data_dp[0];
+ minmax_val_double(data_dp, datasize, &fmin, &fmax);
+ }
+ t_end = dtime();
+ printf("minmax_val: fmin: %ld fmax: %ld time: %6.2fs\n", (long) fmin, (long) fmax, t_end - t_begin);
+
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ fmin = fmax = data_dp[0];
+ minmax_val_double_orig(data_dp, datasize, &fmin, &fmax);
+ }
+ t_end = dtime();
+ printf("orig : fmin: %ld fmax: %ld time: %6.2fs\n", (long) fmin, (long) fmax, t_end - t_begin);
+
+#if defined(OMP_SIMD)
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ fmin = fmax = data_dp[0];
+ minmax_val_double_simd(data_dp, datasize, &fmin, &fmax);
+ }
+ t_end = dtime();
+ printf("simd : fmin: %ld fmax: %ld time: %6.2fs\n", (long) fmin, (long) fmax, t_end - t_begin);
+
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ fmin = fmax = data_dp[0];
+ minmax_val_double_omp(data_dp, datasize, &fmin, &fmax);
+ }
+ t_end = dtime();
+ printf("openmp %d : fmin: %ld fmax: %ld time: %6.2fs\n", omp_get_max_threads(), (long) fmin, (long) fmax, t_end - t_begin);
+#endif
+
+#if defined(_ENABLE_AVX)
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ fmin = fmax = data_dp[0];
+ avx_minmax_val_double(data_dp, datasize, &fmin, &fmax);
+ }
+ t_end = dtime();
+ printf("avx : fmin: %ld fmax: %ld time: %6.2fs\n", (long) fmin, (long) fmax, t_end - t_begin);
+#elif defined(_ENABLE_SSE2)
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ fmin = fmax = data_dp[0];
+ sse2_minmax_val_double(data_dp, datasize, &fmin, &fmax);
+ }
+ t_end = dtime();
+ printf("sse2 : fmin: %ld fmax: %ld time: %6.2fs\n", (long) fmin, (long) fmax, t_end - t_begin);
+#endif
+#if defined(_ARCH_PWR6)
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ fmin = fmax = data_dp[0];
+ pwr6_minmax_val_double_unrolled6(data_dp, datasize, &fmin, &fmax);
+ }
+ t_end = dtime();
+ printf("pwr6u6 : fmin: %ld fmax: %ld time: %6.2fs\n", (long) fmin, (long) fmax, t_end - t_begin);
+#endif
+ free(data_dp);
+ }
+
+ return 0;
+}
+#endif // TEST_MINMAXVAL
+
+#undef DISABLE_SIMD_MINMAXVAL
+#undef _ENABLE_AVX
+#undef _ENABLE_SSE2
+#undef GNUC_PUSH_POP
+/*
+### new version with gribSwapByteOrder_uint16()
+icc -g -Wall -O3 -march=native -std=c99 -qopt-report=5 -DTEST_ENCODE encode_array.c
+ result on hama2 (icc 16.0.2):
+ float:
+ orig: val1: 1 val2: 1 val3: 2 valn: 66 time: 1.8731s
+unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 2.0898s
+ double:
+ orig: val1: 1 val2: 1 val3: 2 valn: 66 time: 3.68089s
+unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 4.30798s
+ avx: val1: 1 val2: 1 val3: 2 valn: 66 time: 4.23864s
+
+gcc -g -Wall -O3 -march=native -Wa,-q -std=c99 -DTEST_ENCODE encode_array.c
+ result on hama2 (gcc 6.1.0):
+float:
+ orig: val1: 1 val2: 1 val3: 2 valn: 66 time: 2.22871s
+unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 2.30281s
+double:
+ orig: val1: 1 val2: 1 val3: 2 valn: 66 time: 4.2669s
+unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 4.81643s
+ avx: val1: 1 val2: 1 val3: 2 valn: 66 time: 3.98415s
+
+###
+icc -g -Wall -O3 -march=native -std=c99 -qopt-report=5 -DTEST_ENCODE encode_array.c
+ result on hama2 (icc 16.0.0):
+ float:
+ orig: val1: 1 val2: 1 val3: 2 valn: 66 time: 9.10691s
+unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 8.63584s
+ double:
+ orig: val1: 1 val2: 1 val3: 2 valn: 66 time: 13.5768s
+unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 9.17742s
+ avx: val1: 1 val2: 1 val3: 2 valn: 66 time: 3.9488s
+
+gcc -g -Wall -O3 -std=c99 -DTEST_ENCODE encode_array.c
+ result on hama2 (gcc 5.2.0):
+ float:
+ orig: val1: 1 val2: 1 val3: 2 valn: 66 time: 5.32775s
+unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 7.87125s
+ double:
+ orig: val1: 1 val2: 1 val3: 2 valn: 66 time: 7.85873s
+unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 12.9979s
+
+###
+gcc -g -Wall -O3 -march=native -std=c99 -DTEST_ENCODE encode_array.c
+ result on bailung (gcc 4.7):
+ orig : val1: 1 val2: 1 val3: 2 valn: 66 time: 8.4166s
+ sse41 : val1: 1 val2: 1 val3: 2 valn: 66 time: 7.1522s
+
+gcc -g -Wall -O3 -march=native -std=c99 -DTEST_ENCODE encode_array.c
+ result on thunder5 (gcc 4.7):
+ orig : val1: 1 val2: 1 val3: 2 valn: 66 time: 6.21976s
+ avx : val1: 1 val2: 1 val3: 2 valn: 66 time: 4.54485s
+
+icc -g -Wall -O3 -march=native -std=c99 -vec-report=1 -DTEST_ENCODE encode_array.c
+ result on thunder5 (icc 13.2):
+ orig : val1: 1 val2: 1 val3: 2 valn: 66 time: 14.6279s
+ avx : val1: 1 val2: 1 val3: 2 valn: 66 time: 4.9776s
+
+xlc_r -g -O3 -qhot -q64 -qarch=auto -qtune=auto -qreport -DTEST_ENCODE encode_array.c
+ result on blizzard (xlc 12):
+ orig : val1: 1 val2: 1 val3: 2 valn: 66 time: 132.25s
+ unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 27.202s
+ orig : val1: 1 val2: 1 val3: 2 valn: 66 time: 106.627s // without -qhot
+ unrolled: val1: 1 val2: 1 val3: 2 valn: 66 time: 39.929s // without -qhot
+*/
+#ifdef _ARCH_PWR6
+#pragma options nostrict
+#endif
+
+#ifdef TEST_ENCODE
+#include <stdio.h>
+#include <stdlib.h>
+#define GRIBPACK unsigned char
+
+#ifndef HOST_ENDIANNESS
+#ifdef __cplusplus
+static const uint32_t HOST_ENDIANNESS_temp[1] = { UINT32_C(0x00030201) };
+#define HOST_ENDIANNESS (((const unsigned char *) HOST_ENDIANNESS_temp)[0])
+#else
+#define HOST_ENDIANNESS (((const unsigned char *) &(const uint32_t[1]){ UINT32_C(0x00030201) })[0])
+#endif
+#endif
+
+#define IS_BIGENDIAN() (HOST_ENDIANNESS == 0)
+#define Error(x, y)
+#endif
+
+// #undef _GET_X86_COUNTER
+// #undef _GET_MACH_COUNTER
+// #undef _GET_IBM_COUNTER
+// #undef _ARCH_PWR6
+
+#if defined _GET_IBM_COUNTER
+#include <libhpc.h>
+#elif defined _GET_X86_COUNTER
+#include <x86intrin.h>
+#elif defined _GET_MACH_COUNTER
+#include <mach/mach_time.h>
+#endif
+
+#include <stdint.h>
+#include <math.h>
+
+#ifndef DISABLE_SIMD
+#if defined(__GNUC__) && (__GNUC__ >= 4)
+#elif defined(__ICC) && (__ICC >= 1100)
+#elif defined(__clang__)
+#else
+#define DISABLE_SIMD
+#endif
+#endif
+
+#ifdef DISABLE_SIMD
+#define DISABLE_SIMD_ENCODE
+#endif
+
+// #define DISABLE_SIMD_ENCODE
+
+#ifdef DISABLE_SIMD_ENCODE
+#ifdef ENABLE_AVX
+#define _ENABLE_AVX
+#endif
+#ifdef ENABLE_SSE4_1
+#define _ENABLE_SSE4_1
+#endif
+#endif
+
+#ifndef DISABLE_SIMD_ENCODE
+#ifdef __AVX__
+#define _ENABLE_AVX
+#endif
+#ifdef __SSE4_1__
+#define _ENABLE_SSE4_1
+#endif
+#endif
+
+#if defined _ENABLE_AVX
+#include <immintrin.h>
+#elif defined _ENABLE_SSE4_1
+#include <smmintrin.h>
+#endif
+
+#if defined _ENABLE_AVX
+
+static void avx_encode_array_2byte_double(size_t datasize, unsigned char *restrict lGrib, const double *restrict data, double zref,
+ double factor, size_t *gz) __attribute__((optimize(2)));
+static void
+avx_encode_array_2byte_double(size_t datasize, unsigned char *restrict lGrib, const double *restrict data, double zref,
+ double factor, size_t *gz)
+{
+ const double *dval = data;
+ __m128i *sgrib = (__m128i *) (lGrib + (*gz));
+
+ const __m128i swap = _mm_set_epi8(14, 15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3, 0, 1);
+
+ const __m256d c0 = _mm256_set1_pd(zref);
+ const __m256d c1 = _mm256_set1_pd(factor);
+ const __m256d c2 = _mm256_set1_pd(0.5);
+
+ __m256d d0, d3, d2, d1;
+ __m128i i0, i1, i2, i3;
+ __m128i s0, s1;
+
+ size_t residual = datasize % 16;
+
+ size_t i;
+ for (i = 0; i < (datasize - residual); i += 16)
+ {
+ (void) _mm_prefetch((const char *) (dval + 8), _MM_HINT_NTA);
+ //_____________________________________________________________________________
+
+ d0 = _mm256_loadu_pd(dval);
+ d0 = _mm256_sub_pd(d0, c0);
+ d0 = _mm256_mul_pd(d0, c1);
+ d0 = _mm256_add_pd(d0, c2);
+
+ i0 = _mm256_cvttpd_epi32(d0);
+
+ //_____________________________________________________________________________
+
+ d1 = _mm256_loadu_pd(dval + 4);
+ d1 = _mm256_sub_pd(d1, c0);
+ d1 = _mm256_mul_pd(d1, c1);
+ d1 = _mm256_add_pd(d1, c2);
+
+ i1 = _mm256_cvttpd_epi32(d1);
+
+ //_____________________________________________________________________________
+
+ s0 = _mm_packus_epi32(i0, i1);
+ s0 = _mm_shuffle_epi8(s0, swap);
+ (void) _mm_storeu_si128(sgrib, s0);
+
+ //_____________________________________________________________________________
+
+ (void) _mm_prefetch((const char *) (dval + 16), _MM_HINT_NTA);
+
+ //_____________________________________________________________________________
+
+ d2 = _mm256_loadu_pd(dval + 8);
+ d2 = _mm256_sub_pd(d2, c0);
+ d2 = _mm256_mul_pd(d2, c1);
+ d2 = _mm256_add_pd(d2, c2);
+
+ i2 = _mm256_cvttpd_epi32(d2);
+
+ //_____________________________________________________________________________
+
+ d3 = _mm256_loadu_pd(dval + 12);
+ d3 = _mm256_sub_pd(d3, c0);
+ d3 = _mm256_mul_pd(d3, c1);
+ d3 = _mm256_add_pd(d3, c2);
+
+ i3 = _mm256_cvttpd_epi32(d3);
+
+ //_____________________________________________________________________________
+
+ s1 = _mm_packus_epi32(i2, i3);
+ s1 = _mm_shuffle_epi8(s1, swap);
+ (void) _mm_storeu_si128(sgrib + 1, s1);
+
+ //_____________________________________________________________________________
+
+ dval += 16;
+ sgrib += 2;
+ }
+
+ if (i != datasize)
+ {
+ uint16_t ui16;
+ for (size_t j = i; j < datasize; ++j)
+ {
+ ui16 = (uint16_t) ((data[j] - zref) * factor + 0.5);
+ lGrib[*gz + 2 * j] = ui16 >> 8;
+ lGrib[*gz + 2 * j + 1] = ui16;
+ }
+ }
+
+ *gz += 2 * datasize;
+
+ return;
+}
+
+#define grib_encode_array_2byte_double avx_encode_array_2byte_double
+
+#elif defined _ENABLE_SSE4_1
+
+static void
+sse41_encode_array_2byte_double(size_t datasize, unsigned char *restrict lGrib, const double *restrict data, double zref,
+ double factor, size_t *gz)
+{
+ const double *dval = data;
+ __m128i *sgrib = (__m128i *) (lGrib + (*gz));
+
+ const __m128i swap = _mm_set_epi8(14, 15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3, 0, 1);
+
+ const __m128d c0 = _mm_set1_pd(zref);
+ const __m128d c1 = _mm_set1_pd(factor);
+ const __m128d c2 = _mm_set1_pd(0.5);
+
+ __m128d d0, d4, d3, d2, d1;
+ __m128i i0, i1, i2, i3, i4;
+ __m128i s0, s1;
+
+ size_t residual = datasize % 16;
+
+ size_t i;
+ for (i = 0; i < (datasize - residual); i += 16)
+ {
+ (void) _mm_prefetch((const char *) (dval + 8), _MM_HINT_NTA);
+ //_____________________________________________________________________________
+
+ d0 = _mm_loadu_pd(dval);
+ d0 = _mm_sub_pd(d0, c0);
+ d0 = _mm_mul_pd(d0, c1);
+ d0 = _mm_add_pd(d0, c2);
+
+ d4 = _mm_loadu_pd(dval + 2);
+ d4 = _mm_sub_pd(d4, c0);
+ d4 = _mm_mul_pd(d4, c1);
+ d4 = _mm_add_pd(d4, c2);
+
+ i0 = _mm_cvttpd_epi32(d0);
+ i4 = _mm_cvttpd_epi32(d4);
+ i0 = _mm_unpacklo_epi64(i0, i4);
+
+ //_____________________________________________________________________________
+
+ d1 = _mm_loadu_pd(dval + 4);
+ d1 = _mm_sub_pd(d1, c0);
+ d1 = _mm_mul_pd(d1, c1);
+ d1 = _mm_add_pd(d1, c2);
+
+ d4 = _mm_loadu_pd(dval + 6);
+ d4 = _mm_sub_pd(d4, c0);
+ d4 = _mm_mul_pd(d4, c1);
+ d4 = _mm_add_pd(d4, c2);
+
+ i1 = _mm_cvttpd_epi32(d1);
+ i4 = _mm_cvttpd_epi32(d4);
+ i1 = _mm_unpacklo_epi64(i1, i4);
+
+ //_____________________________________________________________________________
+
+ s0 = _mm_packus_epi32(i0, i1);
+ s0 = _mm_shuffle_epi8(s0, swap);
+ (void) _mm_storeu_si128(sgrib, s0);
+
+ //_____________________________________________________________________________
+
+ (void) _mm_prefetch((const char *) (dval + 16), _MM_HINT_NTA);
+
+ //_____________________________________________________________________________
+
+ d2 = _mm_loadu_pd(dval + 8);
+ d2 = _mm_sub_pd(d2, c0);
+ d2 = _mm_mul_pd(d2, c1);
+ d2 = _mm_add_pd(d2, c2);
+
+ d4 = _mm_loadu_pd(dval + 10);
+ d4 = _mm_sub_pd(d4, c0);
+ d4 = _mm_mul_pd(d4, c1);
+ d4 = _mm_add_pd(d4, c2);
+
+ i2 = _mm_cvttpd_epi32(d2);
+ i4 = _mm_cvttpd_epi32(d4);
+ i2 = _mm_unpacklo_epi64(i2, i4);
+
+ //_____________________________________________________________________________
+
+ d3 = _mm_loadu_pd(dval + 12);
+ d3 = _mm_sub_pd(d3, c0);
+ d3 = _mm_mul_pd(d3, c1);
+ d3 = _mm_add_pd(d3, c2);
+
+ d4 = _mm_loadu_pd(dval + 14);
+ d4 = _mm_sub_pd(d4, c0);
+ d4 = _mm_mul_pd(d4, c1);
+ d4 = _mm_add_pd(d4, c2);
+
+ i3 = _mm_cvttpd_epi32(d3);
+ i4 = _mm_cvttpd_epi32(d4);
+ i3 = _mm_unpacklo_epi64(i3, i4);
+
+ //_____________________________________________________________________________
+
+ s1 = _mm_packus_epi32(i2, i3);
+ s1 = _mm_shuffle_epi8(s1, swap);
+ (void) _mm_storeu_si128(sgrib + 1, s1);
+
+ //_____________________________________________________________________________
+
+ dval += 16;
+ sgrib += 2;
+ }
+
+ if (i != datasize)
+ {
+ uint16_t ui16;
+ for (size_t j = i; j < datasize; ++j)
+ {
+ ui16 = (uint16_t) ((data[j] - zref) * factor + 0.5);
+ lGrib[*gz + 2 * j] = ui16 >> 8;
+ lGrib[*gz + 2 * j + 1] = ui16;
+ }
+ }
+
+ *gz += 2 * datasize;
+
+ return;
+}
+
+#define grib_encode_array_2byte_double sse41_encode_array_2byte_double
+
+#else
+
+#define grib_encode_array_2byte_double encode_array_2byte_double
+
+#endif // SIMD variants
+
+#ifdef TEST_ENCODE
+
+// clang-format off
+#define CAT(X,Y) X##_##Y
+#define TEMPLATE(X,Y) CAT(X,Y)
+
+#ifdef T
+#undef T
+#endif
+#define T double
+
+#ifdef T
+#undef T
+#endif
+#define T float
+// clang-format on
+
+#include <sys/time.h>
+
+static double
+dtime()
+{
+ double tseconds = 0.0;
+ struct timeval mytime;
+ gettimeofday(&mytime, NULL);
+ tseconds = (double) (mytime.tv_sec + (double) mytime.tv_usec * 1.0e-6);
+ return (tseconds);
+}
+
+static void
+pout(char *name, int s, unsigned char *lgrib, long datasize, double tt)
+{
+ printf("%8s: val1: %d val2: %d val3: %d valn: %d time: %gs\n", name, (int) lgrib[s * 1 + 1], (int) lgrib[s * 2 + 1],
+ (int) lgrib[s * 3 + 1], (int) lgrib[2 * datasize - 1], tt);
+}
+
+int
+main(void)
+{
+ enum
+ {
+ datasize = 1000000,
+ NRUN = 10000,
+ };
+
+ double t_begin, t_end;
+
+ float *dataf = (float *) malloc(datasize * sizeof(float));
+ double *data = (double *) malloc(datasize * sizeof(double));
+ unsigned char *lgrib = (unsigned char *) malloc(2 * datasize * sizeof(unsigned char));
+
+ for (long i = 0; i < datasize; ++i) dataf[i] = (float) (-datasize / 2 + i);
+ for (long i = 0; i < datasize; ++i) data[i] = (double) (-datasize / 2 + i);
+
+ int PackStart = 0;
+ int nbpv = 16;
+ double zref = data[0];
+ size_t z;
+ double factor = 0.00390625;
+ int s = 256;
+
+ if (0)
+ {
+ encode_array_float(0, 0, 0, NULL, NULL, 0, 0, NULL);
+ encode_array_double(0, 0, 0, NULL, NULL, 0, 0, NULL);
+ }
+
+#if defined(__ICC)
+ printf("icc\n");
+#elif defined(__clang__)
+ printf("clang\n");
+#elif defined(__GNUC__)
+ printf("gcc\n");
+#endif
+
+ printf("float:\n");
+
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ z = 0;
+ encode_array_2byte_float(datasize, lgrib, dataf, (float) zref, (float) factor, &z);
+ }
+ t_end = dtime();
+ pout("orig", s, lgrib, datasize, t_end - t_begin);
+
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ z = 0;
+ encode_array_unrolled_float(nbpv, PackStart, datasize, lgrib, dataf, (float) zref, (float) factor, &z);
+ }
+ t_end = dtime();
+ pout("unrolled", s, lgrib, datasize, t_end - t_begin);
+
+ printf("double:\n");
+
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ z = 0;
+ encode_array_2byte_double(datasize, lgrib, data, zref, factor, &z);
+ }
+ t_end = dtime();
+ pout("orig", s, lgrib, datasize, t_end - t_begin);
+
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ z = 0;
+ encode_array_unrolled_double(nbpv, PackStart, datasize, lgrib, data, zref, factor, &z);
+ }
+ t_end = dtime();
+ pout("unrolled", s, lgrib, datasize, t_end - t_begin);
+
+#if defined _ENABLE_AVX
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ z = 0;
+ avx_encode_array_2byte_double(datasize, lgrib, data, zref, factor, &z);
+ }
+ t_end = dtime();
+ pout("avx", s, lgrib, datasize, t_end - t_begin);
+#elif defined _ENABLE_SSE4_1
+ t_begin = dtime();
+ for (int i = 0; i < NRUN; ++i)
+ {
+ z = 0;
+ sse41_encode_array_2byte_double(datasize, lgrib, data, zref, factor, &z);
+ }
+ t_end = dtime();
+ pout("sse41", s, lgrib, datasize, t_end - t_begin);
+#endif
+
+ return 0;
+}
+#endif // TEST_ENCODE
+
+#undef DISABLE_SIMD_ENCODE
+#undef _ENABLE_AVX
+#undef _ENABLE_SSE4_1
+
+void
+confp3(double pval, int *kexp, int *kmant, int kbits, int kround)
+{
+ /*
+
+ Purpose:
+ --------
+
+ Convert floating point number from machine
+ representation to GRIB representation.
+
+ Input Parameters:
+ -----------------
+
+ pval - Floating point number to be converted.
+ kbits - Number of bits in computer word.
+ kround - Conversion type.
+ 0 , Closest number in GRIB format less than
+ original number.
+ 1 , Closest number in GRIB format to the
+ original number (equal to, greater than or
+ less than original number).
+
+ Output Parameters:
+ ------------------
+
+ kexp - 8 Bit signed exponent.
+ kmant - 24 Bit mantissa.
+
+ Method:
+ -------
+
+ Floating point number represented as 8 bit signed
+ exponent and 24 bit mantissa in integer values.
+
+ Externals.
+ ----------
+
+ decfp2 - Decode from IBM floating point format.
+
+ Reference:
+ ----------
+
+ WMO Manual on Codes re GRIB representation.
+
+ Comments:
+ ---------
+
+ Routine aborts if an invalid conversion type parameter
+ is used or if a 24 bit mantissa is not produced.
+
+ Author:
+ -------
+
+ John Hennessy ECMWF 18.06.91
+
+ Modifications:
+ --------------
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ Convert to C from EMOS library version 130
+
+ Uwe Schulzweida MPIfM 02/08/2002
+
+ - speed up by factor 1.6 on NEC SX6
+ - replace 1.0 / pow(16.0, (double)(iexp - 70)) by rpow16m70tab[iexp]
+ */
+
+ // extern int CGRIBEX_Debug;
+
+ /* ----------------------------------------------------------------- */
+ /* Section 1 . Initialise */
+ /* ----------------------------------------------------------------- */
+
+ // Check conversion type parameter.
+
+ int iround = kround;
+ if (iround != 0 && iround != 1)
+ {
+ Error("Invalid conversion type = %d", iround);
+
+ // If not aborting, arbitrarily set rounding to 'up'.
+ iround = 1;
+ }
+
+ /* ----------------------------------------------------------------- */
+ /* Section 2 . Convert value of zero. */
+ /* ----------------------------------------------------------------- */
+
+ if (fabs(pval) <= 0)
+ {
+ *kexp = 0;
+ *kmant = 0;
+ goto LABEL900;
+ }
+
+ /* ----------------------------------------------------------------- */
+ /* Section 3 . Convert other values. */
+ /* ----------------------------------------------------------------- */
+ {
+ double zeps = (kbits != 32) ? 1.0e-12 : 1.0e-8;
+ double zref = pval;
+
+ // Sign of value.
+ int isign = (zref >= 0.0) ? 0 : 128;
+ zref = fabs(zref);
+
+ // Exponent.
+ int iexp = (int) (log(zref) / log(16.0) + 65.0 + zeps);
+
+ // only ANSI C99 has log2
+ // iexp = (int) (log2(zref) * 0.25 + 65.0 + zeps);
+
+ if (iexp < 0) iexp = 0;
+ if (iexp > 127) iexp = 127;
+
+ // double rpowref = zref / pow(16.0, (double)(iexp - 70));
+ double rpowref = ldexp(zref, 4 * -(iexp - 70));
+
+ // Mantissa.
+ if (iround == 0)
+ {
+ /* Closest number in GRIB format less than original number. */
+ /* Truncate for positive numbers. */
+ /* Round up for negative numbers. */
+ *kmant = (isign == 0) ? (int) rpowref : (int) lround(rpowref + 0.5);
+ }
+ else
+ {
+ /* Closest number in GRIB format to the original number */
+ /* (equal to, greater than or less than original number). */
+ *kmant = (int) lround(rpowref);
+ }
+
+ /* Check that mantissa value does not exceed 24 bits. */
+ /* If it does, adjust the exponent upwards and recalculate the mantissa. */
+ /* 16777215 = 2**24 - 1 */
+ if (*kmant > 16777215)
+ {
+
+ LABEL350:
+
+ ++iexp;
+
+ // Check for exponent overflow during adjustment
+ if (iexp > 127)
+ {
+ Message("Exponent overflow");
+ Message("Original number = %30.20f", pval);
+ Message("Sign = %3d, Exponent = %3d, Mantissa = %12d", isign, iexp, *kmant);
+
+ Error("Exponent overflow");
+
+ // If not aborting, arbitrarily set value to zero
+ Message("Value arbitrarily set to zero.");
+ *kexp = 0;
+ *kmant = 0;
+ goto LABEL900;
+ }
+
+ rpowref = ldexp(zref, 4 * -(iexp - 70));
+
+ if (iround == 0)
+ {
+ /* Closest number in GRIB format less than original number. */
+ /* Truncate for positive numbers. */
+ /* Round up for negative numbers. */
+ *kmant = (isign == 0) ? (int) rpowref : (int) lround(rpowref + 0.5);
+ }
+ else
+ {
+ /* Closest number in GRIB format to the original number */
+ /* (equal to, greater or less than original number). */
+ *kmant = (int) lround(rpowref);
+ }
+
+ // Repeat calculation (with modified exponent) if still have mantissa overflow.
+ if (*kmant > 16777215) goto LABEL350;
+ }
+
+ // Add sign bit to exponent.
+ *kexp = iexp + isign;
+ }
+
+ /* ----------------------------------------------------------------- */
+ /* Section 9. Return */
+ /* ----------------------------------------------------------------- */
+
+LABEL900:
+ /*
+ if ( CGRIBEX_Debug )
+ {
+ double zval;
+
+ Message("Conversion type parameter = %4d", kround);
+ Message("Original number = %30.20f", pval);
+
+ zval = decfp2(*kexp, *kmant);
+
+ Message("Converted to %30.20f", zval);
+ Message("Sign = %3d, Exponent = %3d, Mantissa = %12d", isign, iexp, *kmant);
+ }
+ */
+ return;
+} /* confp3 */
+#include <math.h>
+
+double
+decfp2(int kexp, int kmant)
+{
+ /*
+
+ Purpose:
+ --------
+
+ Convert GRIB representation of a floating point
+ number to machine representation.
+
+ Input Parameters:
+ -----------------
+
+ kexp - 8 Bit signed exponent.
+ kmant - 24 Bit mantissa.
+
+ Output Parameters:
+ ------------------
+
+ Return value - Floating point number represented
+ by kexp and kmant.
+
+ Method:
+ -------
+
+ Floating point number represented as 8 bit exponent
+ and 24 bit mantissa in integer values converted to
+ machine floating point format.
+
+ Externals:
+ ----------
+
+ None.
+
+ Reference:
+ ----------
+
+ WMO Manual on Codes re GRIB representation.
+
+ Comments:
+ ---------
+
+ Rewritten from DECFP, to conform to programming standards.
+ Sign bit on 0 value now ignored, if present.
+ If using 32 bit reals, check power of 16 is not so small as to
+ cause overflows (underflows!); this causes warning to be given
+ on Fujitsus.
+
+ Author:
+ -------
+
+ John Hennessy ECMWF 18.06.91
+
+ Modifications:
+ --------------
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ - Convert to C from EMOS library version 130
+
+ Uwe Schulzweida MPIfM 02/08/2002
+
+ - speed up by factor 2 on NEC SX6
+ - replace pow(2.0, -24.0) by constant POW_2_M24
+ - replace pow(16.0, (double)(iexp - 64)) by pow16m64tab[iexp]
+ */
+
+ /* ----------------------------------------------------------------- */
+ /* Section 1 . Convert value of 0.0. Ignore sign bit. */
+ /* ----------------------------------------------------------------- */
+
+ if ((kexp == 128) || (kexp == 0) || (kexp == 255)) return 0.0;
+
+ /* ----------------------------------------------------------------- */
+ /* Section 2 . Convert other values. */
+ /* ----------------------------------------------------------------- */
+
+ /* Sign of value. */
+
+ int iexp = kexp;
+ int isign = (iexp < 128) * 2 - 1;
+
+ iexp -= iexp < 128 ? 0 : 128;
+
+ /* Decode value. */
+
+ /* pval = isign * pow(2.0, -24.0) * kmant * pow(16.0, (double)(iexp - 64)); */
+
+ iexp -= 64;
+
+ double pval = ldexp(1.0, 4 * iexp) * isign * POW_2_M24 * kmant;
+
+ /* ----------------------------------------------------------------- */
+ /* Section 9. Return to calling routine. */
+ /* ----------------------------------------------------------------- */
+
+ return pval;
+} /* decfp2 */
+#include <stdarg.h>
+#include <stdint.h>
+
+static void
+gribDecodeRefDate(const int *isec1, int *year, int *month, int *day)
+{
+ int ryear = ISEC1_Year;
+
+ int century = ISEC1_Century;
+ if (century < 0) century = -century;
+ century -= 1;
+
+ if (century == -255 && ryear == 127)
+ {
+ ryear = 0;
+ }
+ else
+ {
+ // if ( century != 0 )
+ {
+ if (ryear == 100)
+ {
+ ryear = 0;
+ century += 1;
+ }
+
+ if (ryear != 255)
+ {
+ ryear = century * 100 + ryear;
+ if (ISEC1_Century < 0) ryear = -ryear;
+ }
+ else
+ {
+ ryear = 1;
+ }
+ }
+ }
+
+ *year = ryear;
+ *month = ISEC1_Month;
+ *day = ISEC1_Day;
+}
+
+int
+gribRefDate(const int *isec1)
+{
+ int ryear, rmonth, rday;
+ gribDecodeRefDate(isec1, &ryear, &rmonth, &rday);
+ return (int) cdiEncodeDate(ryear, rmonth, rday);
+}
+
+static void
+gribDecodeRefTime(const int *isec1, int *hour, int *minute, int *second)
+{
+ *hour = ISEC1_Hour;
+ *minute = ISEC1_Minute;
+ *second = 0;
+}
+
+int
+gribRefTime(const int *isec1)
+{
+ int rhour, rminute, rsecond;
+ gribDecodeRefTime(isec1, &rhour, &rminute, &rsecond);
+ return cdiEncodeTime(rhour, rminute, rsecond);
+}
+
+bool
+gribTimeIsFC(const int *isec1)
+{
+ bool isFC = false;
+
+ const int time_period = (ISEC1_TimeRange == 10) ? (ISEC1_TimePeriod1 << 8) + ISEC1_TimePeriod2 : ISEC1_TimePeriod1;
+
+ if (time_period > 0 && ISEC1_Day > 0)
+ {
+ isFC = (ISEC1_TimeRange == 0 || ISEC1_TimeRange == 10);
+ }
+
+ return isFC;
+}
+
+static int
+getTimeUnitFactor(int timeUnit)
+{
+ static bool lprint = true;
+ // clang-format off
+ switch (timeUnit)
+ {
+ case ISEC1_TABLE4_MINUTE: return 60; break;
+ case ISEC1_TABLE4_QUARTER: return 900; break;
+ case ISEC1_TABLE4_30MINUTES: return 1800; break;
+ case ISEC1_TABLE4_HOUR: return 3600; break;
+ case ISEC1_TABLE4_3HOURS: return 10800; break;
+ case ISEC1_TABLE4_6HOURS: return 21600; break;
+ case ISEC1_TABLE4_12HOURS: return 43200; break;
+ case ISEC1_TABLE4_DAY: return 86400; break;
+ default:
+ if (lprint)
+ {
+ gprintf(__func__, "Time unit %d unsupported", timeUnit);
+ lprint = false;
+ }
+ break;
+ }
+ // clang-format on
+
+ return 0;
+}
+
+void
+gribDateTimeX(int *isec1, int *date, int *time, int *startDate, int *startTime)
+{
+ *startDate = 0;
+ *startTime = 0;
+
+ CdiDateTime rDateTime = cdiDateTime_set(gribRefDate(isec1), gribRefTime(isec1));
+
+ int64_t time_period = 0, time_period_x = 0;
+ if (ISEC1_TimeRange == 10)
+ time_period = (ISEC1_TimePeriod1 << 8) + ISEC1_TimePeriod2;
+ else if (ISEC1_TimeRange >= 2 && ISEC1_TimeRange <= 5)
+ {
+ time_period_x = ISEC1_TimePeriod1;
+ time_period = ISEC1_TimePeriod2;
+ }
+ else if (ISEC1_TimeRange == 0)
+ time_period = ISEC1_TimePeriod1;
+
+ if (time_period > 0 && rDateTime.date.day > 0)
+ {
+ JulianDate julianDate = julianDate_encode(CGRIBEX_grib_calendar, rDateTime);
+
+ const int timeUnitFactor = getTimeUnitFactor(ISEC1_TimeUnit);
+
+ if (time_period_x > 0)
+ {
+ JulianDate julianDate2 = julianDate_add_seconds(julianDate, timeUnitFactor * time_period_x);
+ CdiDateTime sDateTime = julianDate_decode(CGRIBEX_grib_calendar, julianDate2);
+ sDateTime.time.second = 0;
+ *startDate = (int) cdiDate_get(sDateTime.date);
+ *startTime = cdiTime_get(sDateTime.time);
+ }
+
+ julianDate = julianDate_add_seconds(julianDate, timeUnitFactor * time_period);
+ rDateTime = julianDate_decode(CGRIBEX_grib_calendar, julianDate);
+ }
+
+ *date = (int) cdiDate_get(rDateTime.date);
+ *time = cdiTime_get(rDateTime.time);
+}
+
+void
+gribDateTime(int *isec1, int *date, int *time)
+{
+ int sdate, stime;
+ gribDateTimeX(isec1, date, time, &sdate, &stime);
+}
+
+void
+gprintf(const char *caller, const char *fmt, ...)
+{
+ va_list args;
+
+ if (grprsm == NULL) Error("GRIBEX initialization missing!");
+
+ va_start(args, fmt);
+
+ fprintf(grprsm, "%-18s : ", caller);
+ vfprintf(grprsm, fmt, args);
+ fputs("\n", grprsm);
+
+ va_end(args);
+}
+
+// clang-format off
+void
+gribExDP(int *isec0, int *isec1, int *isec2, double *fsec2, int *isec3,
+ double *fsec3, int *isec4, double *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, const char *hoper, int *kret)
+{
+ int yfunc = *hoper;
+
+ if ( yfunc == 'C' )
+ {
+ grib_encode_double(isec0, isec1, isec2, fsec2, isec3,
+ fsec3, isec4, fsec4, klenp, kgrib,
+ kleng, kword, yfunc, kret);
+ }
+ else if ( yfunc == 'D' || yfunc == 'J' || yfunc == 'R' )
+ {
+ grib_decode_double(isec0, isec1, isec2, fsec2, isec3,
+ fsec3, isec4, fsec4, klenp, kgrib,
+ kleng, kword, yfunc, kret);
+ }
+ else if ( yfunc == 'V' )
+ {
+ fprintf(stderr, " cgribex: Version is %s\n", cgribexLibraryVersion());
+ }
+ else
+ {
+ Error("oper %c unsupported!", yfunc);
+ *kret=-9;
+ }
+}
+
+
+void
+gribExSP(int *isec0, int *isec1, int *isec2, float *fsec2, int *isec3,
+ float *fsec3, int *isec4, float *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, const char *hoper, int *kret)
+{
+ int yfunc = *hoper;
+
+ if ( yfunc == 'C' )
+ {
+ grib_encode_float(isec0, isec1, isec2, fsec2, isec3,
+ fsec3, isec4, fsec4, klenp, kgrib,
+ kleng, kword, yfunc, kret);
+ }
+ else if ( yfunc == 'D' || yfunc == 'J' || yfunc == 'R' )
+ {
+ grib_decode_float(isec0, isec1, isec2, fsec2, isec3,
+ fsec3, isec4, fsec4, klenp, kgrib,
+ kleng, kword, yfunc, kret);
+ }
+ else if ( yfunc == 'V' )
+ {
+ fprintf(stderr, " cgribex: Version is %s\n", cgribexLibraryVersion());
+ }
+ else
+ {
+ Error("oper %c unsupported!", yfunc);
+ *kret=-9;
+ }
+}
+// clang-format on
+
+int CGRIBEX_Fix_ZSE = 0; /* 1: Fix ZeroShiftError of simple packed spherical harmonics */
+int CGRIBEX_Const = 0; /* 1: Don't pack constant fields on regular grids */
+int CGRIBEX_Debug = 0; /* 1: Debugging */
+
+void
+gribSetDebug(int debug)
+{
+ CGRIBEX_Debug = debug;
+
+ if (CGRIBEX_Debug) Message("debug level %d", debug);
+}
+
+void
+gribFixZSE(int flag)
+{
+ CGRIBEX_Fix_ZSE = flag;
+
+ if (CGRIBEX_Debug) Message("Fix ZeroShiftError set to %d", flag);
+}
+
+void
+gribSetConst(int flag)
+{
+ CGRIBEX_Const = flag;
+
+ if (CGRIBEX_Debug) Message("Const set to %d", flag);
+}
+
+void
+gribSetRound(int round)
+{
+ UNUSED(round);
+}
+
+void
+gribSetRefDP(double refval)
+{
+ UNUSED(refval);
+}
+
+void
+gribSetRefSP(float refval)
+{
+ gribSetRefDP((double) refval);
+}
+
+void
+gribSetValueCheck(int vcheck)
+{
+ UNUSED(vcheck);
+}
+#include <string.h>
+#include <math.h>
+
+void
+gribPrintSec0(int *isec0)
+{
+ /*
+
+ Print the information in the Indicator
+ Section (Section 0) of decoded GRIB data.
+
+ Input Parameters:
+
+ isec0 - Array of decoded integers from Section 0
+
+
+ Converted from EMOS routine GRPRS0.
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ */
+
+ grsdef();
+
+ fprintf(grprsm, " \n");
+ fprintf(grprsm, " Section 0 - Indicator Section. \n");
+ fprintf(grprsm, " -------------------------------------\n");
+ fprintf(grprsm, " Length of GRIB message (octets). %9d\n", ISEC0_GRIB_Len);
+ fprintf(grprsm, " GRIB Edition Number. %9d\n", ISEC0_GRIB_Version);
+}
+
+void
+gribPrintSec1(int *isec0, int *isec1)
+{
+ /*
+
+ Print the information in the Product Definition
+ Section (Section 1) of decoded GRIB data.
+
+ Input Parameters
+ isec0 - Array of decoded integers from Section 0
+
+ isec1 - Array of decoded integers from Section 1
+
+ Comments:
+
+ When decoding data from Experimental Edition or Edition 0,
+ routine GRIBEX adds the additional fields available in
+ Edition 1.
+
+
+ Converted from EMOS routine GRPRS1.
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ */
+
+ int iprev, icurr, ioffset;
+ int ibit, ierr, iout, iyear;
+ int jiloop;
+ float value;
+
+ char hversion[9];
+ /*
+ char hfirst[121], hsecond[121], hthird[121], hfourth[121];
+ */
+
+ grsdef();
+
+ /*
+ -----------------------------------------------------------------
+ Section 0 . Print required information.
+ -----------------------------------------------------------------
+ */
+
+ fprintf(grprsm, " \n");
+ fprintf(grprsm, " Section 1 - Product Definition Section.\n");
+ fprintf(grprsm, " ---------------------------------------\n");
+
+ fprintf(grprsm, " Code Table 2 Version Number. %9d\n", isec1[0]);
+ fprintf(grprsm, " Originating centre identifier. %9d\n", isec1[1]);
+ fprintf(grprsm, " Model identification. %9d\n", isec1[2]);
+ fprintf(grprsm, " Grid definition. %9d\n", isec1[3]);
+
+ ibit = 8;
+ prtbin(isec1[4], ibit, &iout, &ierr);
+ fprintf(grprsm, " Flag (Code Table 1) %8.8d\n", iout);
+ fprintf(grprsm, " Parameter identifier (Code Table 2). %9d\n", isec1[5]);
+
+ /*
+ IERR = CHKTAB2(ISEC1,HFIRST,HSECOND,HTHIRD,HFOURTH)
+ IF( IERR .EQ. 0 ) THEN
+ DO JLOOP = 121, 1, -1
+ IF( HSECOND(JLOOP:JLOOP).NE.' ' ) THEN
+ IOFFSET = JLOOP
+ GOTO 110
+ ENDIF
+ ENDDO
+ GOTO 120
+ 110 CONTINUE
+ WRITE(*,'(2H ",A,1H")') HSECOND(1:IOFFSET)
+ 120 CONTINUE
+ ENDIF
+ */
+
+ if (isec1[5] != 127)
+ {
+ fprintf(grprsm, " Type of level (Code Table 3). %9d\n", isec1[6]);
+ fprintf(grprsm, " Value 1 of level (Code Table 3). %9d\n", isec1[7]);
+ fprintf(grprsm, " Value 2 of level (Code Table 3). %9d\n", isec1[8]);
+ }
+ else
+ {
+ fprintf(grprsm, " Satellite identifier. %9d\n", isec1[6]);
+ fprintf(grprsm, " Spectral band. %9d\n", isec1[7]);
+ }
+
+ iyear = isec1[9];
+ if (iyear != 255)
+ {
+ int date, time;
+ /* iyear = ((isec1[20]-1)*100 + isec1[9]); */
+ gribDateTime(isec1, &date, &time);
+ iyear = date / 10000;
+ fprintf(grprsm, " Year of reference time of data. %9d (%4d)\n", isec1[9], iyear);
+ }
+ else
+ {
+ fprintf(grprsm, " Year of reference time of data MISSING (=255)\n");
+ }
+
+ fprintf(grprsm, " Month of reference time of data. %9d\n", isec1[10]);
+ fprintf(grprsm, " Day of reference time of data. %9d\n", isec1[11]);
+ fprintf(grprsm, " Hour of reference time of data. %9d\n", isec1[12]);
+ fprintf(grprsm, " Minute of reference time of data. %9d\n", isec1[13]);
+ fprintf(grprsm, " Time unit (Code Table 4). %9d\n", isec1[14]);
+ fprintf(grprsm, " Time range one. %9d\n", isec1[15]);
+ fprintf(grprsm, " Time range two. %9d\n", isec1[16]);
+ fprintf(grprsm, " Time range indicator (Code Table 5) %9d\n", isec1[17]);
+ fprintf(grprsm, " Number averaged. %9d\n", isec1[18]);
+ fprintf(grprsm, " Number missing from average. %9d\n", isec1[19]);
+ /*
+ All ECMWF data in GRIB Editions before Edition 1 is decoded
+ as 20th century data. Other centres are decoded as missing.
+ */
+ if (isec0[1] < 1 && isec1[1] != 98)
+ fprintf(grprsm, " Century of reference time of data. Not given\n");
+ else
+ fprintf(grprsm, " Century of reference time of data. %9d\n", isec1[20]);
+
+ /* Print sub-centre */
+ fprintf(grprsm, " Sub-centre identifier. %9d\n", ISEC1_SubCenterID);
+
+ /* Decimal scale factor */
+ fprintf(grprsm, " Units decimal scaling factor. %9d\n", isec1[22]);
+
+ /*
+ -----------------------------------------------------------------
+ Section 1 . Print local DWD information.
+ -----------------------------------------------------------------
+ */
+ if ((ISEC1_CenterID == 78 || ISEC1_CenterID == 215 || ISEC1_CenterID == 250) && (isec1[36] == 253 || isec1[36] == 254))
+ {
+ fprintf(grprsm, " DWD local usage identifier. %9d\n", isec1[36]);
+ if (isec1[36] == 253) fprintf(grprsm, " (Database labelling and ensemble forecast)\n");
+ if (isec1[36] == 254) fprintf(grprsm, " (Database labelling)\n");
+
+ fprintf(grprsm, " Year of database entry %3d (%4d)\n", isec1[43], 1900 + isec1[43]);
+ fprintf(grprsm, " Month of database entry %3d\n", isec1[44]);
+ fprintf(grprsm, " Day of database entry %3d\n", isec1[45]);
+ fprintf(grprsm, " Hour of database entry %3d\n", isec1[46]);
+ fprintf(grprsm, " Minute of database entry %3d\n", isec1[47]);
+ fprintf(grprsm, " DWD experiment number %9d\n", isec1[48]);
+ fprintf(grprsm, " DWD run type %9d\n", isec1[49]);
+ if (isec1[36] == 253)
+ {
+ fprintf(grprsm, " User id %9d\n", isec1[50]);
+ fprintf(grprsm, " Experiment identifier %9d\n", isec1[51]);
+ fprintf(grprsm, " Ensemble identification type %9d\n", isec1[52]);
+ fprintf(grprsm, " Number of ensemble members %9d\n", isec1[53]);
+ fprintf(grprsm, " Actual number of ensemble member %9d\n", isec1[54]);
+ fprintf(grprsm, " Model version %2d.%2.2d\n", isec1[55], isec1[56]);
+ }
+ }
+
+ /*
+ -----------------------------------------------------------------
+ Section 2 . Print local ECMWF information.
+ -----------------------------------------------------------------
+ */
+ /*
+ Regular MARS labelling, or reformatted Washington EPS products.
+ */
+ if ((ISEC1_CenterID == 98 && ISEC1_LocalFLag == 1) || (ISEC1_SubCenterID == 98 && ISEC1_LocalFLag == 1)
+ || (ISEC1_CenterID == 7 && ISEC1_SubCenterID == 98))
+ {
+ /* Parameters common to all definitions. */
+
+ fprintf(grprsm, " ECMWF local usage identifier. %9d\n", isec1[36]);
+ if (isec1[36] == 1) fprintf(grprsm, " (Mars labelling or ensemble forecast)\n");
+ if (isec1[36] == 2) fprintf(grprsm, " (Cluster means and standard deviations)\n");
+ if (isec1[36] == 3) fprintf(grprsm, " (Satellite image data)\n");
+ if (isec1[36] == 4) fprintf(grprsm, " (Ocean model data)\n");
+ if (isec1[36] == 5) fprintf(grprsm, " (Forecast probability data)\n");
+ if (isec1[36] == 6) fprintf(grprsm, " (Surface temperature data)\n");
+ if (isec1[36] == 7) fprintf(grprsm, " (Sensitivity data)\n");
+ if (isec1[36] == 8) fprintf(grprsm, " (ECMWF re-analysis data)\n");
+ if (isec1[36] == 9) fprintf(grprsm, " (Singular vectors and ensemble perturbations)\n");
+ if (isec1[36] == 10) fprintf(grprsm, " (EPS tubes)\n");
+ if (isec1[36] == 11) fprintf(grprsm, " (Supplementary data used by analysis)\n");
+ if (isec1[36] == 13) fprintf(grprsm, " (Wave 2D spectra direction and frequency)\n");
+
+ fprintf(grprsm, " Class. %9d\n", isec1[37]);
+ fprintf(grprsm, " Type. %9d\n", isec1[38]);
+ fprintf(grprsm, " Stream. %9d\n", isec1[39]);
+ sprintf(hversion, "%4s", (char *) &isec1[40]);
+ hversion[4] = 0;
+ fprintf(grprsm, " Version number or Experiment identifier. %4s\n", hversion);
+ /*
+ ECMWF Local definition 1.
+ (MARS labelling or ensemble forecast data)
+ */
+ if (isec1[36] == 1)
+ {
+ fprintf(grprsm, " Forecast number. %9d\n", isec1[41]);
+ if (isec1[39] != 1090) fprintf(grprsm, " Total number of forecasts. %9d\n", isec1[42]);
+
+ return;
+ }
+ /*
+ ECMWF Local definition 2.
+ (Cluster means and standard deviations)
+ */
+ if (isec1[36] == 2)
+ {
+ fprintf(grprsm, " Cluster number. %9d\n", isec1[41]);
+ fprintf(grprsm, " Total number of clusters. %9d\n", isec1[42]);
+ fprintf(grprsm, " Clustering method. %9d\n", isec1[43]);
+ fprintf(grprsm, " Start time step when clustering. %9d\n", isec1[44]);
+ fprintf(grprsm, " End time step when clustering. %9d\n", isec1[45]);
+ fprintf(grprsm, " Northern latitude of domain. %9d\n", isec1[46]);
+ fprintf(grprsm, " Western longitude of domain. %9d\n", isec1[47]);
+ fprintf(grprsm, " Southern latitude of domain. %9d\n", isec1[48]);
+ fprintf(grprsm, " Eastern longitude of domain. %9d\n", isec1[49]);
+ fprintf(grprsm, " Operational forecast in cluster %9d\n", isec1[50]);
+ fprintf(grprsm, " Control forecast in cluster %9d\n", isec1[51]);
+ fprintf(grprsm, " Number of forecasts in cluster. %9d\n", isec1[52]);
+
+ for (int jloop = 0; jloop < isec1[52]; jloop++)
+ fprintf(grprsm, " Forecast number %9d\n", isec1[jloop + 53]);
+
+ return;
+ }
+ /*
+ ECMWF Local definition 3.
+ (Satellite image data)
+ */
+ if (isec1[36] == 3)
+ {
+ fprintf(grprsm, " Satellite spectral band. %9d\n", isec1[41]);
+ fprintf(grprsm, " Function code. %9d\n", isec1[42]);
+ return;
+ }
+ /*
+ ECMWF Local definition 4.
+ (Ocean model data)
+ */
+ if (isec1[36] == 4)
+ {
+ fprintf(grprsm, " Satellite spectral band. %9d\n", isec1[41]);
+ if (isec1[39] != 1090) fprintf(grprsm, " Function code. %9d\n", isec1[42]);
+ fprintf(grprsm, " Coordinate structure definition.\n");
+ fprintf(grprsm, " Fundamental spatial reference system.%9d\n", isec1[43]);
+ fprintf(grprsm, " Fundamental time reference. %9d\n", isec1[44]);
+ fprintf(grprsm, " Space unit flag. %9d\n", isec1[45]);
+ fprintf(grprsm, " Vertical coordinate definition. %9d\n", isec1[46]);
+ fprintf(grprsm, " Horizontal coordinate definition. %9d\n", isec1[47]);
+ fprintf(grprsm, " Time unit flag. %9d\n", isec1[48]);
+ fprintf(grprsm, " Time coordinate definition. %9d\n", isec1[49]);
+ fprintf(grprsm, " Position definition. \n");
+ fprintf(grprsm, " Mixed coordinate field flag. %9d\n", isec1[50]);
+ fprintf(grprsm, " Coordinate 1 flag. %9d\n", isec1[51]);
+ fprintf(grprsm, " Averaging flag. %9d\n", isec1[52]);
+ fprintf(grprsm, " Position of level 1. %9d\n", isec1[53]);
+ fprintf(grprsm, " Position of level 2. %9d\n", isec1[54]);
+ fprintf(grprsm, " Coordinate 2 flag. %9d\n", isec1[55]);
+ fprintf(grprsm, " Averaging flag. %9d\n", isec1[56]);
+ fprintf(grprsm, " Position of level 1. %9d\n", isec1[57]);
+ fprintf(grprsm, " Position of level 2. %9d\n", isec1[58]);
+ fprintf(grprsm, " Grid Definition.\n");
+ fprintf(grprsm, " Coordinate 3 flag (x-axis) %9d\n", isec1[59]);
+ fprintf(grprsm, " Coordinate 4 flag (y-axis) %9d\n", isec1[60]);
+ fprintf(grprsm, " Coordinate 4 of first grid point. %9d\n", isec1[61]);
+ fprintf(grprsm, " Coordinate 3 of first grid point. %9d\n", isec1[62]);
+ fprintf(grprsm, " Coordinate 4 of last grid point. %9d\n", isec1[63]);
+ fprintf(grprsm, " Coordinate 3 of last grid point. %9d\n", isec1[64]);
+ fprintf(grprsm, " i - increment. %9d\n", isec1[65]);
+ fprintf(grprsm, " j - increment. %9d\n", isec1[66]);
+ fprintf(grprsm, " Flag for irregular grid coordinates. %9d\n", isec1[67]);
+ fprintf(grprsm, " Flag for normal or staggered grids. %9d\n", isec1[68]);
+ fprintf(grprsm, " Further information.\n");
+ fprintf(grprsm, " Further information flag. %9d\n", isec1[69]);
+ fprintf(grprsm, " Auxiliary information.\n");
+ fprintf(grprsm, " No. entries in horizontal coordinate %9d\n", isec1[70]);
+ fprintf(grprsm, " No. entries in mixed coordinate defn.%9d\n", isec1[71]);
+ fprintf(grprsm, " No. entries in grid coordinate list. %9d\n", isec1[72]);
+ fprintf(grprsm, " No. entries in auxiliary array. %9d\n", isec1[73]);
+ /*
+ Horizontal coordinate supplement.
+ */
+ fprintf(grprsm, " Horizontal coordinate supplement.\n");
+ if (isec1[70] == 0)
+ {
+ fprintf(grprsm, "(None).\n");
+ }
+ else
+ {
+ fprintf(grprsm, "Number of items = %d\n", isec1[70]);
+ for (int jloop = 0; jloop < isec1[70]; jloop++) fprintf(grprsm, " %12d\n", isec1[74 + jloop]);
+ }
+ /*
+ Mixed coordinate definition.
+ */
+ fprintf(grprsm, " Mixed coordinate definition.\n");
+ if (isec1[71] == 0)
+ {
+ fprintf(grprsm, "(None).\n");
+ }
+ else
+ {
+ fprintf(grprsm, "Number of items = %d\n", isec1[71]);
+ ioffset = 74 + isec1[70];
+ for (int jloop = 0; jloop < isec1[71]; jloop++) fprintf(grprsm, " %12d\n", isec1[ioffset + jloop]);
+ }
+ /*
+ Grid coordinate list.
+ */
+ fprintf(grprsm, " Grid coordinate list. \n");
+ if (isec1[72] == 0)
+ {
+ fprintf(grprsm, "(None).\n");
+ }
+ else
+ {
+ fprintf(grprsm, "Number of items = %d\n", isec1[72]);
+ ioffset = 74 + isec1[70] + isec1[71];
+ for (int jloop = 0; jloop < isec1[72]; jloop++) fprintf(grprsm, " %12d\n", isec1[ioffset + jloop]);
+ }
+ /*
+ Auxiliary array.
+ */
+ fprintf(grprsm, " Auxiliary array. \n");
+ if (isec1[73] == 0)
+ {
+ fprintf(grprsm, "(None).\n");
+ }
+ else
+ {
+ fprintf(grprsm, "Number of items = %d\n", isec1[73]);
+ ioffset = 74 + isec1[70] + isec1[71] + isec1[72];
+ for (int jloop = 0; jloop < isec1[73]; jloop++) fprintf(grprsm, " %12d\n", isec1[ioffset + jloop]);
+ }
+ /*
+ Post-auxiliary array.
+ */
+ fprintf(grprsm, " Post-auxiliary array. \n");
+ ioffset = 74 + isec1[70] + isec1[71] + isec1[72] + isec1[73];
+ if (isec1[ioffset] == 0)
+ {
+ fprintf(grprsm, "(None).\n");
+ }
+ else
+ {
+ fprintf(grprsm, "Number of items = %d\n", isec1[ioffset]);
+ for (int jloop = 1; jloop < isec1[ioffset]; jloop++) fprintf(grprsm, " %12d\n", isec1[ioffset + jloop]);
+ }
+
+ return;
+ }
+ /*
+ ECMWF Local definition 5.
+ (Forecast probability data)
+ */
+ if (isec1[36] == 5)
+ {
+ fprintf(grprsm, " Forecast probability number %9d\n", isec1[41]);
+ fprintf(grprsm, " Total number of forecast probabilities %7d\n", isec1[42]);
+ fprintf(grprsm, " Threshold units decimal scale factor %9d\n", isec1[43]);
+ fprintf(grprsm, " Threshold indicator(1=lower,2=upper,3=both) %2d\n", isec1[44]);
+ if (isec1[44] != 2) fprintf(grprsm, " Lower threshold value %9d\n", isec1[45]);
+ if (isec1[44] != 1) fprintf(grprsm, " Upper threshold value %9d\n", isec1[46]);
+ return;
+ }
+ /*
+ ECMWF Local definition 6.
+ (Surface temperature data)
+ */
+ if (isec1[36] == 6)
+ {
+ iyear = isec1[43];
+ if (iyear > 100)
+ {
+ if (iyear < 19000000) iyear = iyear + 19000000;
+ fprintf(grprsm, " Date of SST field used %9d\n", iyear);
+ }
+ else
+ fprintf(grprsm, "Date of SST field used Not given\n");
+ }
+ if (isec1[44] == 0) fprintf(grprsm, " Type of SST field (= climatology) %9d\n", isec1[44]);
+ if (isec1[44] == 1) fprintf(grprsm, " Type of SST field (= 1/1 degree) %9d\n", isec1[44]);
+ if (isec1[44] == 2) fprintf(grprsm, " Type of SST field (= 2/2 degree) %9d\n", isec1[44]);
+
+ fprintf(grprsm, " Number of ICE fields used: %9d\n", isec1[45]);
+
+ for (int jloop = 1; jloop <= isec1[45]; jloop++)
+ {
+ iyear = isec1[44 + (jloop * 2)];
+ if (iyear > 100)
+ {
+ if (iyear < 19000000) iyear = iyear + 19000000;
+ fprintf(grprsm, " Date of ICE field%3d %9d\n", jloop, iyear);
+ fprintf(grprsm, " Satellite number (ICE field%3d) %9d\n", jloop, isec1[45 + (jloop * 2)]);
+ }
+ else
+ fprintf(grprsm, "Date of SST field used Not given\n");
+ }
+ /*
+ ECMWF Local definition 7.
+ (Sensitivity data)
+ */
+ if (isec1[36] == 7)
+ {
+ if (isec1[38] == 51) fprintf(grprsm, " Forecast number %9d\n", isec1[41]);
+ if (isec1[38] != 51) fprintf(grprsm, " Iteration number %9d\n", isec1[41]);
+ if (isec1[38] != 52) fprintf(grprsm, " Total number of diagnostics %9d\n", isec1[42]);
+ if (isec1[38] == 52) fprintf(grprsm, " No.interations in diag. minimisation %9d\n", isec1[42]);
+ fprintf(grprsm, " Domain(0=Global,1=Europe,2=N.Hem.,3=S.Hem.) %2d\n", isec1[43]);
+ fprintf(grprsm, " Diagnostic number %9d\n", isec1[44]);
+ }
+ /*
+ ECMWF Local definition 8.
+ (ECMWF re-analysis data)
+ */
+ if (isec1[36] == 8)
+ {
+ if ((isec1[39] == 1043) || (isec1[39] == 1070) || (isec1[39] == 1071))
+ {
+ fprintf(grprsm, " Interval between reference times %9d\n", isec1[41]);
+ for (int jloop = 43; jloop <= 54; jloop++)
+ {
+ jiloop = jloop + 8;
+ fprintf(grprsm, " ERA section 1 octet %2d. %9d\n", jiloop, isec1[jloop - 1]);
+ }
+ }
+ else
+ {
+ for (int jloop = 42; jloop <= 54; jloop++)
+ {
+ jiloop = jloop + 8;
+ fprintf(grprsm, " ERA section 1 octet %2d. %9d\n", jiloop, isec1[jloop - 1]);
+ }
+ }
+ return;
+ }
+
+ if (isec1[38] > 4 && isec1[38] < 9)
+ {
+ fprintf(grprsm, " Simulation number. %9d\n", isec1[41]);
+ fprintf(grprsm, " Total number of simulations. %9d\n", isec1[42]);
+ }
+ /*
+ ECMWF Local definition 9.
+ (Singular vectors and ensemble perturbations)
+ */
+ if (isec1[36] == 9)
+ {
+ if (isec1[38] == 60) fprintf(grprsm, " Perturbed ensemble forecast number %9d\n", isec1[41]);
+ if (isec1[38] == 61) fprintf(grprsm, " Initial state perturbation number %9d\n", isec1[41]);
+ if (isec1[38] == 62) fprintf(grprsm, " Singular vector number %9d\n", isec1[41]);
+ if (isec1[38] == 62)
+ {
+ fprintf(grprsm, " Number of iterations %9d\n", isec1[42]);
+ fprintf(grprsm, " Number of singular vectors computed %9d\n", isec1[43]);
+ fprintf(grprsm, " Norm used at initial time %9d\n", isec1[44]);
+ fprintf(grprsm, " Norm used at final time %9d\n", isec1[45]);
+ fprintf(grprsm, " Multiplication factor %9d\n", isec1[46]);
+ fprintf(grprsm, " Latitude of north-west corner %9d\n", isec1[47]);
+ fprintf(grprsm, " Longitude of north-west corner %9d\n", isec1[48]);
+ fprintf(grprsm, " Latitude of south-east corner %9d\n", isec1[49]);
+ fprintf(grprsm, " Longitude of south-east corner %9d\n", isec1[50]);
+ fprintf(grprsm, " Accuracy %9d\n", isec1[51]);
+ fprintf(grprsm, " Number of singular vectors evolved %9d\n", isec1[52]);
+ fprintf(grprsm, " Ritz number one %9d\n", isec1[53]);
+ fprintf(grprsm, " Ritz number two %9d\n", isec1[54]);
+ }
+ }
+ /*
+ ECMWF Local definition 10.
+ (EPS tubes)
+ */
+ if (isec1[36] == 10)
+ {
+ fprintf(grprsm, " Tube number %9d\n", isec1[41]);
+ fprintf(grprsm, " Total number of tubes %9d\n", isec1[42]);
+ fprintf(grprsm, " Central cluster definition %9d\n", isec1[43]);
+ fprintf(grprsm, " Parameter %9d\n", isec1[44]);
+ fprintf(grprsm, " Type of level %9d\n", isec1[45]);
+ fprintf(grprsm, " Northern latitude of domain of tubing%9d\n", isec1[46]);
+ fprintf(grprsm, " Western longitude of domain of tubing%9d\n", isec1[47]);
+ fprintf(grprsm, " Southern latitude of domain of tubing%9d\n", isec1[48]);
+ fprintf(grprsm, " Eastern longitude of domain of tubing%9d\n", isec1[49]);
+ fprintf(grprsm, " Tube number of operational forecast %9d\n", isec1[50]);
+ fprintf(grprsm, " Tube number of control forecast %9d\n", isec1[51]);
+ fprintf(grprsm, " Height/pressure of level %9d\n", isec1[52]);
+ fprintf(grprsm, " Reference step %9d\n", isec1[53]);
+ fprintf(grprsm, " Radius of central cluster %9d\n", isec1[54]);
+ fprintf(grprsm, " Ensemble standard deviation %9d\n", isec1[55]);
+ fprintf(grprsm, " Dist.of tube extreme to ensemble mean%9d\n", isec1[56]);
+ fprintf(grprsm, " Number of forecasts in the tube %9d\n", isec1[57]);
+
+ fprintf(grprsm, " List of ensemble forecast numbers:\n");
+ for (int jloop = 1; jloop <= isec1[57]; jloop++) fprintf(grprsm, " %9d\n", isec1[57 + jloop]);
+ }
+ /*
+ ECMWF Local definition 11.
+ (Supplementary data used by the analysis)
+ */
+ if (isec1[36] == 11)
+ {
+ fprintf(grprsm, " Details of analysis which used the supplementary data:\n");
+ fprintf(grprsm, " Class %9d\n", isec1[41]);
+ fprintf(grprsm, " Type %9d\n", isec1[42]);
+ fprintf(grprsm, " Stream %9d\n", isec1[43]);
+ /*
+ sprintf(hversion, "%8d", isec1[44]);
+ fprintf(grprsm, " Version number/experiment identifier: %4s\n", &hversion[4]);
+ */
+ iyear = isec1[45];
+ if (iyear > 50)
+ iyear = iyear + 1900;
+ else
+ iyear = iyear + 2000;
+
+ fprintf(grprsm, " Year %9d\n", iyear);
+ fprintf(grprsm, " Month %9d\n", isec1[46]);
+ fprintf(grprsm, " Day %9d\n", isec1[47]);
+ fprintf(grprsm, " Hour %9d\n", isec1[48]);
+ fprintf(grprsm, " Minute %9d\n", isec1[49]);
+ fprintf(grprsm, " Century %9d\n", isec1[50]);
+ fprintf(grprsm, " Originating centre %9d\n", isec1[51]);
+ fprintf(grprsm, " Sub-centre %9d\n", isec1[52]);
+ }
+ /*
+ ECMWF Local definition 12.
+ */
+ if (isec1[36] == 12)
+ {
+ fprintf(grprsm, " (Mean, average, etc)\n");
+ fprintf(grprsm, " Start date of the period %8d\n", isec1[41]);
+ fprintf(grprsm, " Start time of the period %4.4d\n", isec1[42]);
+ fprintf(grprsm, " Finish date of the period %8d\n", isec1[43]);
+ fprintf(grprsm, " Finish time of the period %4.4d\n", isec1[44]);
+ fprintf(grprsm, " Verifying date of the period %8d\n", isec1[45]);
+ fprintf(grprsm, " Verifying time of the period %4.4d\n", isec1[46]);
+ fprintf(grprsm, " Code showing method %8d\n", isec1[47]);
+ fprintf(grprsm, " Number of different time intervals used %5d\n", isec1[48]);
+ fprintf(grprsm, " List of different time intervals used:\n");
+ iprev = isec1[49];
+ unsigned icount = 0;
+ for (int jloop = 1; jloop <= isec1[48]; jloop++)
+ {
+ icurr = isec1[48 + jloop];
+ if (icurr != iprev)
+ {
+ if (icount == 1) fprintf(grprsm, " - interval %5.4d used once\n", iprev);
+ if (icount == 2) fprintf(grprsm, " - interval %5.4d used twice\n", iprev);
+ if (icount > 2) fprintf(grprsm, " - interval %5.4d used %5u times\n", iprev, icount);
+ iprev = icurr;
+ icount = 1;
+ }
+ else
+ icount = icount + 1;
+ }
+ if (icount == 1) fprintf(grprsm, " - interval %5.4d used once\n", iprev);
+ if (icount == 2) fprintf(grprsm, " - interval %5.4d used twice\n", iprev);
+ if (icount > 2) fprintf(grprsm, " - interval %5.4d used %5u times\n", iprev, icount);
+ }
+ /*
+ ECMWF Local definition 13.
+ (Wave 2D spectra direction and frequency)
+ */
+ if (isec1[36] == 13)
+ {
+ fprintf(grprsm, " Direction number %9d\n", isec1[43]);
+ fprintf(grprsm, " Frequency number %9d\n", isec1[44]);
+ fprintf(grprsm, " Total number of directions %9d\n", isec1[45]);
+ fprintf(grprsm, " Total number of frequencies %9d\n", isec1[46]);
+ fprintf(grprsm, " Scale factor applied to directions %9d\n", isec1[47]);
+ fprintf(grprsm, " Scale factor applied to frequencies %9d\n", isec1[48]);
+ fprintf(grprsm, " List of directions:\n");
+ for (int jloop = 1; jloop <= isec1[45]; jloop++)
+ {
+ value = (float) (isec1[48 + jloop]) / (float) (isec1[47]);
+ if (isec1[43] == jloop)
+ fprintf(grprsm, " %2.2d:%15.7f <-- this field value\n", jloop, value);
+ else
+ fprintf(grprsm, "%2.2d:%15.7f\n", jloop, value);
+ }
+ fprintf(grprsm, " List of frequencies:\n");
+ for (int jloop = 1; jloop <= isec1[46]; jloop++)
+ {
+ value = (float) (isec1[48 + isec1[45] + jloop]) / (float) (isec1[48]);
+ if (isec1[44] == jloop)
+ fprintf(grprsm, " %2.2d:%15.7f <-- this field value\n", jloop, value);
+ else
+ fprintf(grprsm, "%2.2d:%15.7f\n", jloop, value);
+
+ if (isec1[49 + isec1[45] + isec1[46]] != 0)
+ {
+ fprintf(grprsm, " System number (65535 = missing) %9d\n", isec1[49 + isec1[45] + isec1[46]]);
+ fprintf(grprsm, " Method number (65535 = missing) %9d\n", isec1[50 + isec1[45] + isec1[46]]);
+ }
+ }
+ /*
+ ECMWF Local definition 14.
+ (Brightness temperature)
+ */
+ if (isec1[36] == 14)
+ {
+ fprintf(grprsm, " Channel number %9d\n", isec1[43]);
+ fprintf(grprsm, " Scale factor applied to frequencies %9d\n", isec1[44]);
+ fprintf(grprsm, " Total number of frequencies %9d\n", isec1[45]);
+ fprintf(grprsm, " List of frequencies:\n");
+ for (int jloop = 1; jloop <= isec1[45]; jloop++)
+ {
+ value = (float) (isec1[45 + jloop]) / (float) (isec1[44]);
+ if (isec1[43] == jloop)
+ fprintf(grprsm, " %3d:%15.9f <-- this channel\n", jloop, value);
+ else
+ fprintf(grprsm, " %3d:%15.9f\n", jloop, value);
+ }
+ }
+ /*
+ ECMWF Local definition 15.
+ (Ocean ensemble seasonal forecast)
+ */
+ if (isec1[36] == 15)
+ {
+ fprintf(grprsm, " Ensemble member number %9d\n", isec1[41]);
+ fprintf(grprsm, " System number %9d\n", isec1[42]);
+ fprintf(grprsm, " Method number %9d\n", isec1[43]);
+ }
+ /*
+ ECMWF Local definition 16.
+ (Seasonal forecast monthly mean atmosphere data)
+ */
+ if (isec1[36] == 16)
+ {
+ fprintf(grprsm, " Ensemble member number %9d\n", isec1[41]);
+ fprintf(grprsm, " System number %9d\n", isec1[43]);
+ fprintf(grprsm, " Method number %9d\n", isec1[44]);
+ fprintf(grprsm, " Verifying month %9d\n", isec1[45]);
+ fprintf(grprsm, " Averaging period %9d\n", isec1[46]);
+ }
+ /*
+ ECMWF Local definition 17.
+ (Sst or sea-ice used by analysis)
+ */
+ if (isec1[36] == 17)
+ {
+ iyear = isec1[43];
+ if (iyear > 100)
+ {
+ if (iyear < 19000000) iyear = iyear + 19000000;
+ fprintf(grprsm, " Date of sst/ice field used %9d\n", iyear);
+ }
+ else
+ fprintf(grprsm, " Date of sst/ice field used Not given\n");
+
+ if (isec1[44] == 0) fprintf(grprsm, " Type of sst/ice field (= climatology)%9d\n", isec1[44]);
+ if (isec1[44] == 1) fprintf(grprsm, " Type of sst/ice field (= 1/1 degree) %9d\n", isec1[44]);
+ if (isec1[44] == 2) fprintf(grprsm, " Type of sst/ice field (= 2/2 degree) %9d\n", isec1[44]);
+
+ fprintf(grprsm, " Number of ICE fields used: %9d\n", isec1[45]);
+
+ for (int jloop = 1; jloop < isec1[45]; jloop++)
+ {
+ iyear = isec1[44 + (jloop * 2)];
+ if (iyear > 100)
+ {
+ if (iyear < 19000000) iyear = iyear + 19000000;
+ fprintf(grprsm, " Date of ICE field%3d %9d\n", jloop, iyear);
+ fprintf(grprsm, " Satellite number (ICE field%3d) %9d\n", jloop, isec1[45 + (jloop * 2)]);
+ }
+ else
+ fprintf(grprsm, "Date of sst/ice field used Not given\n");
+ }
+ }
+ }
+ }
+ /*
+ -----------------------------------------------------------------
+ Section 3 . Print Washington ensemble product information.
+ -----------------------------------------------------------------
+ */
+ /*
+ Washington EPS products (but not reformatted Washington EPS
+ products.
+ */
+ if ((isec1[1] == 7 && isec1[23] == 1) && (!(ISEC1_SubCenterID == 98)))
+ {
+ /* CALL KWPRS1 (iSEC0,iSEC1)*/
+ }
+ /*
+ -----------------------------------------------------------------
+ Section 4 . Print local MPIM information.
+ -----------------------------------------------------------------
+ */
+ if (isec1[1] == 252 && isec1[36] == 1)
+ {
+ fprintf(grprsm, " MPIM local usage identifier. %9d\n", isec1[36]);
+ fprintf(grprsm, " Type of ensemble forecast %9d\n", isec1[37]);
+ fprintf(grprsm, " Individual ensemble member %9d\n", isec1[38]);
+ fprintf(grprsm, " Number of forecasts in ensemble %9d\n", isec1[39]);
+ }
+}
+
+static void
+printQuasi(int *isec2)
+{
+ /*
+
+ Print the qusai-regular information in the Grid Description
+ Section (Section 2) of decoded GRIB data.
+
+ Input Parameters:
+
+ isec2 - Array of decoded integers from Section 2.
+
+ Comments:
+
+ Only data representation types catered for are Gaussian
+ grid, latitude/longitude grid, Spherical Harmonics,
+ Polar stereographic and Space view perspective.
+
+ Converted from EMOS routine PTQUASI.
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ */
+
+ char yout[64];
+
+ /*
+ -----------------------------------------------------------------
+ Section 1. Print quasi-grid data.
+ -----------------------------------------------------------------
+ */
+ // See if scanning is north->south or south->north
+ fprintf(grprsm, " Number of points along a parallel varies.\n");
+
+ int ntos = (fmod((double) isec2[10], 128.) < 64);
+
+ if (ntos)
+ fprintf(grprsm, " Number of points. Parallel. (North to South)\n");
+ else
+ fprintf(grprsm, " Number of points. Parallel. (South to North)\n");
+
+ // Display number of points for each latitude
+ int latcnt = isec2[2];
+ int nextlat = 0;
+ memset(yout, ' ', (size_t) 11);
+
+ for (int j = 0; j < latcnt; ++j)
+ {
+ nextlat = nextlat + 1;
+ sprintf(yout, "%4d", nextlat);
+
+ // Finished?
+ if (nextlat > latcnt) break;
+ if (nextlat == latcnt)
+ {
+ fprintf(grprsm, " %5d %-12s\n", isec2[nextlat + 21], yout);
+ break;
+ }
+ // Look for neighbouring latitudes with same number of points
+ unsigned nrepeat = 0;
+
+ LABEL110:
+ // If neighbouring latitudes have same number of points increase the repeat count.
+ if (isec2[nextlat + 21 + 1] == isec2[nextlat + 21])
+ {
+ nrepeat = nrepeat + 1;
+ nextlat = nextlat + 1;
+ if (nextlat < latcnt) goto LABEL110;
+ }
+ // Display neighbouring latitudes with same number of points as 'nn to mm'.
+ if (nrepeat >= 1) sprintf(yout + 4, "to %5d", nextlat);
+ fprintf(grprsm, " %5d %-12s\n", isec2[nextlat + 21], yout);
+ memset(yout, ' ', (size_t) 11);
+ }
+}
+
+void
+gribPrintSec2DP(int *isec0, int *isec2, double *fsec2)
+{
+ /*
+
+ Print the information in the Grid Description
+ Section (Section 2) of decoded GRIB data.
+
+ Input Parameters:
+
+ isec0 - Array of decoded integers from Section 0
+
+ isec2 - Array of decoded integers from Section 2
+
+ fsec2 - Array of decoded floats from Section 2
+
+ Comments:
+
+ Only data representation types catered for are Gaussian
+ grid, latitude/longitude grid, Spherical Harmonics,
+ Polar stereographic and Space view perspective.
+
+
+ Converted from EMOS routine GRPRS2.
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ */
+
+ int ibit, iedit, ierr, iout, iresol;
+
+ grsdef();
+ /*
+ -----------------------------------------------------------------
+ Section 1 . Print GRIB Edition number.
+ -----------------------------------------------------------------
+ */
+ iedit = isec0[1];
+ fprintf(grprsm, " \n");
+ fprintf(grprsm, " Section 2 - Grid Description Section.\n");
+ fprintf(grprsm, " -------------------------------------\n");
+ /*
+ -----------------------------------------------------------------
+ Section 2 . Print spherical harmonic data.
+ -----------------------------------------------------------------
+ */
+ if (isec2[0] == 50 || isec2[0] == 60 || isec2[0] == 70 || isec2[0] == 80)
+ {
+ fprintf(grprsm, " Data represent type = spectral (Table 6) %9d\n", isec2[0]);
+ fprintf(grprsm, " J - Pentagonal resolution parameter. %9d\n", isec2[1]);
+ fprintf(grprsm, " K - Pentagonal resolution parameter. %9d\n", isec2[2]);
+ fprintf(grprsm, " M - Pentagonal resolution parameter. %9d\n", isec2[3]);
+ fprintf(grprsm, " Representation type (Table 9) %9d\n", isec2[4]);
+ fprintf(grprsm, " Representation mode (Table 10). %9d\n", isec2[5]);
+ for (int i = 7; i <= 11; ++i) fprintf(grprsm, " Not used. %9d\n", isec2[i - 1]);
+ fprintf(grprsm, " Number of vertical coordinate parameters. %9d\n", isec2[11]);
+ goto LABEL800;
+ }
+ /*
+ -----------------------------------------------------------------
+ Section 3 . Print Gaussian grid data.
+ -----------------------------------------------------------------
+ */
+ if (isec2[0] == 4 || isec2[0] == 14 || isec2[0] == 24 || isec2[0] == 34)
+ {
+ fprintf(grprsm, " (Southern latitudes and Western longitudes are negative.)\n");
+ fprintf(grprsm, " Data represent type = gaussian (Table 6) %9d\n", isec2[0]);
+ /*
+ Quasi-regular grids introduced in Edition 1.
+ */
+ if (isec2[16] == 0 || iedit < 1)
+ fprintf(grprsm, " Number of points along a parallel. %9d\n", isec2[1]);
+ else
+ printQuasi(isec2);
+
+ fprintf(grprsm, " Number of points along a meridian. %9d\n", isec2[2]);
+ fprintf(grprsm, " Latitude of first grid point. %9d\n", isec2[3]);
+ fprintf(grprsm, " Longitude of first grid point. %9d\n", isec2[4]);
+
+ ibit = 8;
+ iresol = isec2[5] + isec2[17] + isec2[18];
+ prtbin(iresol, ibit, &iout, &ierr);
+
+ fprintf(grprsm, " Resolution and components flag. %8.8d\n", iout);
+ fprintf(grprsm, " Latitude of last grid point. %9d\n", isec2[6]);
+ fprintf(grprsm, " Longitude of last grid point. %9d\n", isec2[7]);
+ /*
+ Print increment if given.
+ */
+ if (isec2[5] == 128)
+ fprintf(grprsm, " i direction (East-West) increment. %9d\n", isec2[8]);
+ else
+ fprintf(grprsm, " i direction (East-West) increment Not given\n");
+
+ fprintf(grprsm, " Number of parallels between pole and equator.%9d\n", isec2[9]);
+
+ ibit = 8;
+ prtbin(isec2[10], ibit, &iout, &ierr);
+
+ fprintf(grprsm, " Scanning mode flags (Code Table 8) %8.8d\n", iout);
+ fprintf(grprsm, " Number of vertical coordinate parameters. %9d\n", isec2[11]);
+ goto LABEL800;
+ }
+ /*
+ -----------------------------------------------------------------
+ Section 4 . Print Latitude / longitude grid data.
+ -----------------------------------------------------------------
+ */
+ if (isec2[0] == 0 || isec2[0] == 10 || isec2[0] == 20 || isec2[0] == 30)
+ {
+ fprintf(grprsm, " (Southern latitudes and Western longitudes are negative.)\n");
+ fprintf(grprsm, " Data represent type = lat/long (Table 6) %9d\n", isec2[0]);
+ /*
+ Quasi-regular lat/long grids also possible.
+ */
+ if (isec2[16] == 0)
+ fprintf(grprsm, " Number of points along a parallel. %9d\n", isec2[1]);
+ else
+ printQuasi(isec2);
+
+ fprintf(grprsm, " Number of points along a meridian. %9d\n", isec2[2]);
+ fprintf(grprsm, " Latitude of first grid point. %9d\n", isec2[3]);
+ fprintf(grprsm, " Longitude of first grid point. %9d\n", isec2[4]);
+
+ ibit = 8;
+ iresol = isec2[5] + isec2[17] + isec2[18];
+ prtbin(iresol, ibit, &iout, &ierr);
+
+ fprintf(grprsm, " Resolution and components flag. %8.8d\n", iout);
+ fprintf(grprsm, " Latitude of last grid point. %9d\n", isec2[6]);
+ fprintf(grprsm, " Longitude of last grid point. %9d\n", isec2[7]);
+ /*
+ Print increment if given.
+ */
+ if (isec2[8] < 0)
+ fprintf(grprsm, " i direction (East-West) increment Not given\n");
+ else
+ fprintf(grprsm, " i direction (East-West) increment. %9d\n", isec2[8]);
+
+ if (isec2[9] < 0)
+ fprintf(grprsm, " j direction (North-South) increment Not given\n");
+ else
+ fprintf(grprsm, " j direction (North-South) increment. %9d\n", isec2[9]);
+
+ ibit = 8;
+ prtbin(isec2[10], ibit, &iout, &ierr);
+
+ fprintf(grprsm, " Scanning mode flags (Code Table 8) %8.8d\n", iout);
+ fprintf(grprsm, " Number of vertical coordinate parameters. %9d\n", isec2[11]);
+ goto LABEL800;
+ }
+ /*
+ -----------------------------------------------------------------
+ Section 5 . Print polar stereographic data.
+ -----------------------------------------------------------------
+ */
+ if (isec2[0] == 5)
+ {
+ fprintf(grprsm, " (Southern latitudes and Western longitudes are negative.)\n");
+ fprintf(grprsm, " Data represent type = polar stereo (Table 6) %9d\n", isec2[0]);
+ fprintf(grprsm, " Number of points along X axis. %9d\n", isec2[1]);
+ fprintf(grprsm, " Number of points along Y axis. %9d\n", isec2[2]);
+ fprintf(grprsm, " Latitude of first grid point. %9d\n", isec2[3]);
+ fprintf(grprsm, " Longitude of first grid point. %9d\n", isec2[4]);
+ ibit = 8;
+ iresol = isec2[17] + isec2[18];
+ prtbin(iresol, ibit, &iout, &ierr);
+ fprintf(grprsm, " Resolution and components flag. %8.8d\n", iout);
+ fprintf(grprsm, " Orientation of the grid. %9d\n", isec2[6]);
+ fprintf(grprsm, " X direction increment. %9d\n", isec2[8]);
+ fprintf(grprsm, " Y direction increment. %9d\n", isec2[9]);
+ ibit = 8;
+ prtbin(isec2[10], ibit, &iout, &ierr);
+ fprintf(grprsm, " Scanning mode flags (Code Table 8) %8.8d\n", iout);
+ fprintf(grprsm, " Number of vertical coordinate parameters. %9d\n", isec2[11]);
+ fprintf(grprsm, " Projection centre flag. %9d\n", isec2[12]);
+ goto LABEL800;
+ }
+ /*
+ -----------------------------------------------------------------
+ Section 6 . Print Lambert conformal data.
+ -----------------------------------------------------------------
+ */
+ if (isec2[0] == 3)
+ {
+ fprintf(grprsm, " (Southern latitudes and Western longitudes are negative.)\n");
+ fprintf(grprsm, " Data represent type = Lambert (Table 6) %9d\n", isec2[0]);
+ fprintf(grprsm, " Number of points along X axis. %9d\n", isec2[1]);
+ fprintf(grprsm, " Number of points along Y axis. %9d\n", isec2[2]);
+ fprintf(grprsm, " Latitude of first grid point. %9d\n", isec2[3]);
+ fprintf(grprsm, " Longitude of first grid point. %9d\n", isec2[4]);
+ ibit = 8;
+ iresol = isec2[17] + isec2[18] + isec2[5];
+ prtbin(iresol, ibit, &iout, &ierr);
+ fprintf(grprsm, " Resolution and components flag. %8.8d\n", iout);
+ fprintf(grprsm, " Orientation of the grid. %9d\n", isec2[6]);
+ fprintf(grprsm, " X direction increment. %9d\n", isec2[8]);
+ fprintf(grprsm, " Y direction increment. %9d\n", isec2[9]);
+ ibit = 8;
+ prtbin(isec2[10], ibit, &iout, &ierr);
+ fprintf(grprsm, " Scanning mode flags (Code Table 8) %8.8d\n", iout);
+ fprintf(grprsm, " Number of vertical coordinate parameters. %9d\n", isec2[11]);
+ fprintf(grprsm, " Projection centre flag. %9d\n", isec2[12]);
+ fprintf(grprsm, " Latitude intersection 1 - Latin 1 -. %9d\n", isec2[13]);
+ fprintf(grprsm, " Latitude intersection 2 - Latin 2 -. %9d\n", isec2[14]);
+ fprintf(grprsm, " Latitude of Southern Pole. %9d\n", isec2[19]);
+ fprintf(grprsm, " Longitude of Southern Pole. %9d\n", isec2[20]);
+ goto LABEL800;
+ }
+ /*
+ -----------------------------------------------------------------
+ Section 7 . Print space view perspective or orthographic data.
+ -----------------------------------------------------------------
+ */
+ if (isec2[0] == 90)
+ {
+ fprintf(grprsm, " (Southern latitudes and Western longitudes are negative.)\n");
+ fprintf(grprsm, " Data represent type = space/ortho (Table 6) %9d\n", isec2[0]);
+ fprintf(grprsm, " Number of points along X axis. %9d\n", isec2[1]);
+ fprintf(grprsm, " Number of points along Y axis. %9d\n", isec2[2]);
+ fprintf(grprsm, " Latitude of sub-satellite point. %9d\n", isec2[3]);
+ fprintf(grprsm, " Longitude of sub-satellite point. %9d\n", isec2[4]);
+ // iresol = isec2[17] + isec2[18];
+ fprintf(grprsm, " Diameter of the earth in x direction. %9d\n", isec2[6]);
+ fprintf(grprsm, " Y coordinate of sub-satellite point. %9d\n", isec2[9]);
+ ibit = 8;
+ prtbin(isec2[10], ibit, &iout, &ierr);
+ fprintf(grprsm, " Scanning mode flags (Code Table 8) %8.8d\n", iout);
+ fprintf(grprsm, " Number of vertical coordinate parameters. %9d\n", isec2[11]);
+ fprintf(grprsm, " Orientation of the grid. %9d\n", isec2[6]);
+ fprintf(grprsm, " Altitude of the camera. %9d\n", isec2[13]);
+ fprintf(grprsm, " Y coordinate of origin of sector image. %9d\n", isec2[14]);
+ fprintf(grprsm, " X coordinate of origin of sector image. %9d\n", isec2[15]);
+ goto LABEL800;
+ }
+ /*
+ -----------------------------------------------------------------
+ Section 7.5 . Print ocean data
+ -----------------------------------------------------------------
+ */
+ /*
+ if ( isec2[0] == 192 && ISEC1_CenterID == 98 )
+ {
+ fprintf(grprsm, " Data represent type = ECMWF ocean (Table 6) %9d\n", isec2[0]);
+ if ( isec2[1] == 32767 )
+ fprintf(grprsm, " Number of points along the first axis. Not used\n");
+ else
+ fprintf(grprsm, " Number of points along the first axis. %9d\n", isec2[1]);
+
+ if ( isec2[2] == 32767 )
+ fprintf(grprsm, " Number of points along the second axis. Not used\n");
+ else
+ fprintf(grprsm, " Number of points along the second axis. %9d\n", isec2[2]);
+
+ ibit = 8;
+ prtbin(isec2[10], ibit, &iout, &ierr);
+ fprintf(grprsm, " Scanning mode flags (Code Table 8) %8.8d\n", iout);
+ goto LABEL800;
+ }
+ */
+ /*
+ -----------------------------------------------------------------
+ Section 7.6 . Print triangular data
+ -----------------------------------------------------------------
+ */
+ if (isec2[0] == 192 /* && ISEC1_CenterID == 78 */)
+ {
+ fprintf(grprsm, " Data represent type = triangular (Table 6) %9d\n", isec2[0]);
+ fprintf(grprsm, " Number of factor 2 in factorisation of Ni. %9d\n", isec2[1]);
+ fprintf(grprsm, " Number of factor 3 in factorisation of Ni. %9d\n", isec2[2]);
+ fprintf(grprsm, " Number of diamonds (Nd). %9d\n", isec2[3]);
+ fprintf(grprsm, " Number of triangular subdivisions of the\n");
+ fprintf(grprsm, " icosahedron (Ni). %9d\n", isec2[4]);
+ fprintf(grprsm, " Flag for orientation of diamonds (Table A). %9d\n", isec2[5]);
+ fprintf(grprsm, " Latitude of pole point. %9d\n", isec2[6]);
+ fprintf(grprsm, " Longitude of pole point. %9d\n", isec2[7]);
+ fprintf(grprsm, " Longitude of the first diamond. %9d\n", isec2[8]);
+ fprintf(grprsm, " Flag for storage sequence (Table B). %9d\n", isec2[9]);
+ fprintf(grprsm, " Number of vertical coordinate parameters. %9d\n", isec2[11]);
+ goto LABEL800;
+ }
+ /*
+ -----------------------------------------------------------------
+ Drop through to here => representation type not catered for.
+ -----------------------------------------------------------------
+ */
+ fprintf(grprsm, "GRPRS2 :Data representation type not catered for -%d\n", isec2[0]);
+
+ goto LABEL900;
+ /*
+ -----------------------------------------------------------------
+ Section 8 . Print vertical coordinate parameters,
+ rotated grid information,
+ stretched grid information, if any.
+ -----------------------------------------------------------------
+ */
+LABEL800:;
+ /*
+ Vertical coordinate parameters ...
+ */
+ if (isec2[11] != 0)
+ {
+ fprintf(grprsm, " \n");
+ fprintf(grprsm, " Vertical Coordinate Parameters.\n");
+ fprintf(grprsm, " -------------------------------\n");
+ for (int i = 10; i < isec2[11] + 10; ++i) fprintf(grprsm, " %20.12f\n", fsec2[i]);
+ }
+ /*
+ Rotated and stretched grids introduced in Edition 1.
+ */
+ if (iedit < 1) goto LABEL900;
+ /*
+ Rotated grid information ...
+ */
+ if (isec2[0] == 10 || isec2[0] == 30 || isec2[0] == 14 || isec2[0] == 34 || isec2[0] == 60 || isec2[0] == 80 || isec2[0] == 30)
+ {
+ fprintf(grprsm, " \n");
+ fprintf(grprsm, " Latitude of southern pole of rotation. %9d\n", isec2[12]);
+ fprintf(grprsm, " Longitude of southern pole of rotation. %9d\n", isec2[13]);
+ fprintf(grprsm, " Angle of rotation. %20.10f\n", fsec2[0]);
+ }
+ /*
+ Stretched grid information ...
+ */
+ if (isec2[0] == 20 || isec2[0] == 30 || isec2[0] == 24 || isec2[0] == 34 || isec2[0] == 70 || isec2[0] == 80)
+ {
+ fprintf(grprsm, " \n");
+ fprintf(grprsm, " Latitude of pole of stretching. %9d\n", isec2[14]);
+ fprintf(grprsm, " Longitude of pole of stretching. %9d\n", isec2[15]);
+ fprintf(grprsm, " Stretching factor. %20.10f\n", fsec2[1]);
+ }
+
+LABEL900:;
+
+ return;
+}
+
+void
+gribPrintSec2SP(int *isec0, int *isec2, float *fsec2sp)
+{
+ int inum = 10 + isec2[11];
+
+ double *fsec2 = (double *) Malloc((size_t) inum * sizeof(double));
+ if (fsec2 == NULL) SysError("No Memory!");
+
+ for (int j = 0; j < inum; ++j) fsec2[j] = fsec2sp[j];
+
+ gribPrintSec2DP(isec0, isec2, fsec2);
+
+ Free(fsec2);
+}
+
+void
+gribPrintSec3DP(int *isec0, int *isec3, double *fsec3)
+{
+ /*
+
+ Print the information in the Bit-Map Section
+ (Section 3) of decoded GRIB data.
+
+ Input Parameters:
+
+ isec0 - Array of decoded integers from Section 0
+
+ isec3 - Array of decoded integers from Section 3
+
+ fsec3 - Array of decoded floats from Section 3
+
+
+ Converted from EMOS routine GRPRS3.
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ */
+
+ UNUSED(isec0);
+
+ grsdef();
+
+ fprintf(grprsm, " \n");
+ fprintf(grprsm, " Section 3 - Bit-map Section.\n");
+ fprintf(grprsm, " -------------------------------------\n");
+
+ if (isec3[0] != 0)
+ fprintf(grprsm, " Predetermined bit-map number. %9d\n", isec3[0]);
+ else
+ fprintf(grprsm, " No predetermined bit-map.\n");
+
+ fprintf(grprsm, " Missing data value for integer data. %14d\n", isec3[1]);
+
+ fprintf(grprsm, " Missing data value for real data. %20.6g\n", fsec3[1]);
+}
+
+void
+gribPrintSec3SP(int *isec0, int *isec3, float *fsec3sp)
+{
+ double fsec3[2];
+
+ fsec3[0] = fsec3sp[0];
+ fsec3[1] = fsec3sp[1];
+
+ gribPrintSec3DP(isec0, isec3, fsec3);
+}
+
+void
+gribPrintSec4DP(int *isec0, int *isec4, double *fsec4)
+{
+ /*
+
+ Print the information in the Binary Data Section
+ (Section 4) of decoded GRIB data.
+
+ Input Parameters:
+
+ isec0 - Array of decoded integers from Section 0
+
+ isec4 - Array of decoded integers from Section 4
+
+ fsec4 - Array of decoded floats from Section 4
+
+
+ Converted from EMOS routine GRPRS4.
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ */
+ int inum;
+
+ UNUSED(isec0);
+
+ grsdef();
+
+ /*
+ -----------------------------------------------------------------
+ Section 1 . Print integer information from isec4.
+ -----------------------------------------------------------------
+ */
+ fprintf(grprsm, " \n");
+ fprintf(grprsm, " Section 4 - Binary Data Section.\n");
+ fprintf(grprsm, " -------------------------------------\n");
+
+ fprintf(grprsm, " Number of data values coded/decoded. %9d\n", isec4[0]);
+ fprintf(grprsm, " Number of bits per data value. %9d\n", isec4[1]);
+ fprintf(grprsm, " Type of data (0=grid pt, 128=spectral).%9d\n", isec4[2]);
+ fprintf(grprsm, " Type of packing (0=simple, 64=complex). %9d\n", isec4[3]);
+ fprintf(grprsm, " Type of data (0=float, 32=integer). %9d\n", isec4[4]);
+ fprintf(grprsm, " Additional flags (0=none, 16=present). %9d\n", isec4[5]);
+ fprintf(grprsm, " Reserved. %9d\n", isec4[6]);
+ fprintf(grprsm, " Number of values (0=single, 64=matrix). %9d\n", isec4[7]);
+ fprintf(grprsm, " Secondary bit-maps (0=none, 32=present). %9d\n", isec4[8]);
+ fprintf(grprsm, " Values width (0=constant, 16=variable).%9d\n", isec4[9]);
+ /*
+ If complex packing ..
+ */
+ if (isec4[3] == 64)
+ {
+ if (isec4[2] == 128)
+ {
+ fprintf(grprsm, " Byte offset of start of packed data (N). %9d\n", isec4[15]);
+ fprintf(grprsm, " Power (P * 1000). %9d\n", isec4[16]);
+ fprintf(grprsm, " Pentagonal resolution parameter J for subset.%9d\n", isec4[17]);
+ fprintf(grprsm, " Pentagonal resolution parameter K for subset.%9d\n", isec4[18]);
+ fprintf(grprsm, " Pentagonal resolution parameter M for subset.%9d\n", isec4[19]);
+ }
+ else
+ {
+ fprintf(grprsm, " Bits number of 2nd order values (none=>0).%9d\n", isec4[10]);
+ fprintf(grprsm, " General extend. 2-order packing (0=no,8=yes).%9d\n", isec4[11]);
+ fprintf(grprsm, " Boustrophedonic ordering (0=no,4=yes).%9d\n", isec4[12]);
+ fprintf(grprsm, " Spatial differencing order (0=none).%9d\n", isec4[13] + isec4[14]);
+ }
+ }
+ /*
+ Number of non-missing values
+ */
+ if (isec4[20] != 0) fprintf(grprsm, " Number of non-missing values %9d\n", isec4[20]);
+ /*
+ Information on matrix of values , if present.
+ */
+ if (isec4[7] == 64)
+ {
+ fprintf(grprsm, " First dimension (rows) of each matrix. %9d\n", isec4[49]);
+ fprintf(grprsm, " Second dimension (columns) of each matrix. %9d\n", isec4[50]);
+ fprintf(grprsm, " First dimension coordinate values definition.%9d\n", isec4[51]);
+ fprintf(grprsm, " (Code Table 12)\n");
+ fprintf(grprsm, " NC1 - Number of coefficients for 1st dimension.%7d\n", isec4[52]);
+ fprintf(grprsm, " Second dimension coordinate values definition.%8d\n", isec4[53]);
+ fprintf(grprsm, " (Code Table 12)\n");
+ fprintf(grprsm, " NC2 - Number of coefficients for 2nd dimension.%7d\n", isec4[54]);
+ fprintf(grprsm, " 1st dimension physical signifance (Table 13). %8d\n", isec4[55]);
+ fprintf(grprsm, " 2nd dimension physical signifance (Table 13).%8d\n", isec4[56]);
+ }
+ /*
+ -----------------------------------------------------------------
+ Section 2. Print values from fsec4.
+ -----------------------------------------------------------------
+ */
+
+ inum = isec4[0];
+ if (inum < 0) inum = -inum;
+ if (inum > 20) inum = 20;
+ /*
+ Print first inum values.
+ */
+ fprintf(grprsm, " \n");
+ fprintf(grprsm, " First %4d data values.\n", inum);
+
+ if (isec4[4] == 0)
+ {
+ /*
+ Print real values ...
+ */
+ for (int j = 0; j < inum; ++j)
+ {
+ if (fabs(fsec4[j]) > 0)
+ {
+ if (fabs(fsec4[j]) >= 0.1 && fabs(fsec4[j]) <= 1.e8)
+ fprintf(grprsm, " %#16.8G \n", fsec4[j]);
+ else
+ fprintf(grprsm, " %#20.8E\n", fsec4[j]);
+ }
+ else
+ fprintf(grprsm, " %#16.0f \n", fabs(fsec4[j]));
+ }
+ }
+ else
+ {
+ /*
+ Print integer values ...
+ */
+ fprintf(grprsm, " Print of integer values not supported\n");
+ /*
+ CALL SETPAR(IBIT,IDUM,IDUM)
+ DO 212 J=1,INUM
+ INSPT = 0
+ CALL INXBIT(IVALUE,1,INSPT,FSEC4(J),1,IBIT,IBIT,'C',IRET)
+ WRITE (*,9033) IVALUE
+ 9033 FORMAT(' ',I15)
+ 212 CONTINUE
+ ENDIF
+ */
+ }
+}
+
+void
+gribPrintSec4SP(int *isec0, int *isec4, float *fsec4sp)
+{
+ double fsec4[20];
+
+ int inum = isec4[0];
+ if (inum < 0) inum = -inum;
+ if (inum > 20) inum = 20;
+
+ for (int j = 0; j < inum; ++j) fsec4[j] = fsec4sp[j];
+
+ gribPrintSec4DP(isec0, isec4, fsec4);
+}
+
+void
+gribPrintSec4Wave(int *isec4)
+{
+ /*
+
+ Print the wave coordinate information in the Binary Data
+ Section (Section 4) of decoded GRIB data.
+
+ Input Parameters:
+
+ isec4 - Array of decoded integers from Section 4
+
+ Comments:
+
+ Wave coordinate information held in isec4 are 32-bit floats,
+ hence the PTEMP and NTEMP used for printing are 4-byte variables.
+
+
+ Converted from EMOS routine GRPRS4W.
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ */
+ int ntemp[100];
+ float *ptemp;
+
+ grsdef();
+
+ /*
+ -----------------------------------------------------------------
+ Section 1 . Print integer information from isec4.
+ -----------------------------------------------------------------
+ */
+ fprintf(grprsm, " Coefficients defining first dimension coordinates:\n");
+ for (int jloop = 0; jloop < isec4[52]; jloop++)
+ {
+ ntemp[jloop] = isec4[59 + jloop];
+ ptemp = (float *) &ntemp[jloop];
+ fprintf(grprsm, "%20.10f\n", *ptemp);
+ }
+ fprintf(grprsm, " Coefficients defining second dimension coordinates:\n");
+ for (int jloop = 0; jloop < isec4[54]; jloop++)
+ {
+ ntemp[jloop] = isec4[59 + isec4[52] + jloop];
+ ptemp = (float *) &ntemp[jloop];
+ fprintf(grprsm, "%20.10f\n", *ptemp);
+ }
+}
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <string.h>
+#include <ctype.h>
+
+int
+gribOpen(const char *filename, const char *mode)
+{
+ int fileID = fileOpen(filename, mode);
+
+#if defined(__sun)
+ if (fileID != FILE_UNDEFID && tolower(*mode) == 'r')
+ {
+ fileSetBufferType(fileID, FILE_BUFTYPE_MMAP);
+ }
+#endif
+
+ return fileID;
+}
+
+void
+gribClose(int fileID)
+{
+ fileClose(fileID);
+}
+
+off_t
+gribGetPos(int fileID)
+{
+ return fileGetPos(fileID);
+}
+
+int
+gribCheckSeek(int fileID, long *offset, int *version)
+{
+ int ierr = gribFileSeek(fileID, offset);
+
+ *version = -1;
+ if (!ierr)
+ {
+ char buffer[4];
+ if (fileRead(fileID, buffer, 4) == 4) *version = buffer[3];
+ }
+
+ return ierr;
+}
+
+int
+gribFileSeek(int fileID, long *offset)
+{
+ /* position file pointer after GRIB */
+ const long GRIB = 0x47524942;
+ long code = 0;
+ int ch;
+ int retry = 4096 * 4096;
+
+ *offset = 0;
+
+ void *fileptr = filePtr(fileID);
+
+ while (retry--)
+ {
+ ch = filePtrGetc(fileptr);
+ if (ch == EOF) return -1;
+
+ code = ((code << 8) + ch) & 0xFFFFFFFF;
+ if (code == GRIB)
+ {
+ if (CGRIBEX_Debug) Message("record offset = %ld", *offset);
+ return 0;
+ }
+
+ (*offset)++;
+ }
+
+ if (CGRIBEX_Debug) Message("record offset = %ld", *offset);
+
+ return 1;
+}
+
+static inline unsigned
+read3ByteMSBFirst(void *fileptr)
+{
+ unsigned b1 = (unsigned) (filePtrGetc(fileptr));
+ unsigned b2 = (unsigned) (filePtrGetc(fileptr));
+ unsigned b3 = (unsigned) (filePtrGetc(fileptr));
+ return GET_UINT3(b1, b2, b3);
+}
+
+size_t
+gribReadSize(int fileID)
+{
+ size_t rgribsize = 0;
+ void *fileptr = filePtr(fileID);
+ off_t pos = fileGetPos(fileID);
+
+ unsigned gribsize = read3ByteMSBFirst(fileptr);
+
+ int gribversion = filePtrGetc(fileptr);
+
+ if (gribsize == 24 && gribversion != 1 && gribversion != 2) gribversion = 0;
+
+ if (CGRIBEX_Debug) Message("gribversion = %d", gribversion);
+
+ if (gribversion == 0)
+ {
+ unsigned gdssize = 0, bmssize = 0;
+ unsigned issize = 4, essize = 4;
+
+ unsigned pdssize = gribsize;
+ fileSetPos(fileID, (off_t) 3, SEEK_CUR);
+ if (CGRIBEX_Debug) Message("pdssize = %u", pdssize);
+ int flag = filePtrGetc(fileptr);
+ if (CGRIBEX_Debug) Message("flag = %d", flag);
+
+ fileSetPos(fileID, (off_t) pdssize - 8, SEEK_CUR);
+
+ if (flag & 128)
+ {
+ gdssize = read3ByteMSBFirst(fileptr);
+ fileSetPos(fileID, (off_t) gdssize - 3, SEEK_CUR);
+ if (CGRIBEX_Debug) Message("gdssize = %u", gdssize);
+ }
+
+ if (flag & 64)
+ {
+ bmssize = read3ByteMSBFirst(fileptr);
+ fileSetPos(fileID, (off_t) bmssize - 3, SEEK_CUR);
+ if (CGRIBEX_Debug) Message("bmssize = %u", bmssize);
+ }
+
+ unsigned bdssize = read3ByteMSBFirst(fileptr);
+ if (CGRIBEX_Debug) Message("bdssize = %u", bdssize);
+
+ gribsize = issize + pdssize + gdssize + bmssize + bdssize + essize;
+ rgribsize = (size_t) gribsize;
+ }
+ else if (gribversion == 1)
+ {
+ if (gribsize > JP23SET) // Large GRIB record
+ {
+ unsigned pdssize = read3ByteMSBFirst(fileptr);
+ if (CGRIBEX_Debug) Message("pdssize = %u", pdssize);
+
+ int flag = 0;
+ for (int i = 0; i < 5; ++i) flag = filePtrGetc(fileptr);
+ if (CGRIBEX_Debug) Message("flag = %d", flag);
+
+ fileSetPos(fileID, (off_t) pdssize - 8, SEEK_CUR);
+
+ unsigned gdssize = 0;
+ if (flag & 128)
+ {
+ gdssize = read3ByteMSBFirst(fileptr);
+ fileSetPos(fileID, (off_t) gdssize - 3, SEEK_CUR);
+ if (CGRIBEX_Debug) Message("gdssize = %u", gdssize);
+ }
+
+ unsigned bmssize = 0;
+ if (flag & 64)
+ {
+ bmssize = read3ByteMSBFirst(fileptr);
+ fileSetPos(fileID, (off_t) bmssize - 3, SEEK_CUR);
+ if (CGRIBEX_Debug) Message("bmssize = %u", bmssize);
+ }
+
+ unsigned bdssize = read3ByteMSBFirst(fileptr);
+ if (CGRIBEX_Debug) Message("bdssize = %u", bdssize);
+ if (bdssize <= 120)
+ {
+ enum
+ {
+ issize = 4
+ };
+ gribsize &= JP23SET;
+ gribsize *= 120;
+ bdssize = correct_bdslen(bdssize, gribsize, issize + pdssize + gdssize + bmssize);
+ if (CGRIBEX_Debug) Message("bdssize = %u", bdssize);
+
+ gribsize = issize + pdssize + gdssize + bmssize + bdssize + 4;
+ }
+ }
+ rgribsize = (size_t) gribsize;
+ }
+ else if (gribversion == 2)
+ {
+ /* we set gribsize the following way because it doesn't matter then
+ whether int is 4 or 8 bytes long - we don't have to care if the size
+ really fits: if it does not, the record can not be read at all */
+ rgribsize = 0;
+ enum
+ {
+ g2size_bytes = 8
+ };
+ unsigned char g2size[g2size_bytes];
+ filePtrRead(fileptr, g2size, g2size_bytes);
+ for (int i = 0; i < g2size_bytes; ++i) rgribsize = (rgribsize << 8) | g2size[i];
+ }
+ else
+ {
+ rgribsize = 0;
+ Warning("GRIB version %d unsupported!", gribversion);
+ }
+
+ if (filePtrEOF(fileptr)) rgribsize = 0;
+
+ if (CGRIBEX_Debug) Message("gribsize = %zu", rgribsize);
+
+ fileSetPos(fileID, pos, SEEK_SET);
+
+ return rgribsize;
+}
+
+size_t
+gribGetSize(int fileID)
+{
+ long offset;
+ int ierr = gribFileSeek(fileID, &offset); // position file pointer after GRIB
+ if (ierr > 0)
+ {
+ Warning("GRIB record not found!");
+ return 0;
+ }
+
+ if (ierr == -1)
+ return 0;
+ else if (ierr == 1)
+ return 0;
+
+ size_t recSize = gribReadSize(fileID);
+
+ if (CGRIBEX_Debug) Message("recsize = %zu", recSize);
+
+ fileSetPos(fileID, (off_t) -4, SEEK_CUR);
+
+ return recSize;
+}
+
+int
+gribRead(int fileID, void *buffer, size_t *buffersize)
+{
+ long offset;
+ int ierr = gribFileSeek(fileID, &offset); // position file pointer after GRIB
+ if (ierr > 0)
+ {
+ Warning("GRIB record not found!");
+ return -2;
+ }
+
+ if (ierr == -1)
+ {
+ *buffersize = 0;
+ return -1;
+ }
+ else if (ierr == 1)
+ {
+ *buffersize = 0;
+ return -2;
+ }
+
+ size_t recSize = gribReadSize(fileID);
+ size_t readSize = recSize;
+
+ if (readSize > *buffersize)
+ {
+ readSize = *buffersize;
+ ierr = -3; // Tell the caller that the buffer was insufficient.
+ }
+
+ *buffersize = recSize; // Inform the caller about the record size.
+
+ // Write the stuff to the buffer that has already been read in gribFileSeek().
+ memcpy(buffer, "GRIB", 4);
+
+ readSize -= 4;
+ // Read the rest of the record into the buffer.
+ size_t nread = fileRead(fileID, (char *) buffer + 4, readSize);
+
+ if (nread != readSize) ierr = 1;
+
+ return ierr;
+}
+
+int
+gribWrite(int fileID, void *buffer, size_t buffersize)
+{
+ int nwrite = (int) (fileWrite(fileID, buffer, buffersize));
+ if (nwrite != (int) buffersize)
+ {
+ perror(__func__);
+ nwrite = -1;
+ }
+
+ return nwrite;
+}
+#include <string.h>
+#include <ctype.h>
+
+FILE *grprsm = NULL;
+int CGRIBEX_grib_calendar = -1;
+
+void
+gribSetCalendar(int calendar)
+{
+ CGRIBEX_grib_calendar = calendar;
+}
+
+void
+grsdef(void)
+{
+ /*
+C---->
+C**** GRSDEF - Initial (default) setting of common area variables
+C for GRIBEX package.
+C
+C Purpose.
+C --------
+C
+C Sets initial values for common area variables for all
+C routines of GRIBEX package, if not already done.
+C
+C** Interface.
+C ----------
+C
+C CALL GRSDEF
+C
+C Input Parameters.
+C -----------------
+C
+C None.
+C
+C Output Parameters.
+C ------------------
+C
+C None.
+C
+C Method.
+C -------
+C
+C Self-explanatory.
+C
+C Externals.
+C ----------
+C
+C None.
+C
+C Reference.
+C ----------
+C
+C See subroutine GRIBEX.
+C
+C Comments.
+C ---------
+C
+C None
+C
+C Author.
+C -------
+C
+C J. Clochard, Meteo France, for ECMWF - March 1998.
+C
+C Modifications.
+C --------------
+C
+C J. Clochard, Meteo France, for ECMWF - June 1999.
+C Add variable NSUBCE.
+C Use a static variable to determine if initialisation has already
+C been done. NUSER removed .
+C Reverse defaults for NEXT2O and NLOC2O, for consistency with
+C version 13.023 of software .
+C
+ */
+ /*
+C ----------------------------------------------------------------
+C* Section 0 . Definition of variables.
+C ----------------------------------------------------------------
+ */
+ char *envString;
+ char *env_stream;
+ static bool lfirst = true;
+ extern int CGRIBEX_Const;
+
+ if (!lfirst) return;
+
+ /*
+ ----------------------------------------------------------------
+ Section 1 . Set values, conditionally.
+ ----------------------------------------------------------------
+ */
+ /*
+ Common area variables have not been set. Set them.
+ */
+ /*
+ Set GRIB calendar.
+ */
+ if (CGRIBEX_grib_calendar == -1)
+ {
+ CGRIBEX_grib_calendar = CALENDAR_PROLEPTIC;
+
+ envString = getenv("GRIB_CALENDAR");
+ if (envString)
+ {
+ if (strncmp(envString, "standard", 8) == 0)
+ CGRIBEX_grib_calendar = CALENDAR_STANDARD;
+ else if (strncmp(envString, "proleptic", 9) == 0)
+ CGRIBEX_grib_calendar = CALENDAR_PROLEPTIC;
+ else if (strncmp(envString, "360days", 7) == 0)
+ CGRIBEX_grib_calendar = CALENDAR_360DAYS;
+ else if (strncmp(envString, "365days", 7) == 0)
+ CGRIBEX_grib_calendar = CALENDAR_365DAYS;
+ else if (strncmp(envString, "366days", 7) == 0)
+ CGRIBEX_grib_calendar = CALENDAR_366DAYS;
+ else if (strncmp(envString, "none", 4) == 0)
+ CGRIBEX_grib_calendar = CALENDAR_NONE;
+ }
+ }
+ /*
+ Set GRIBEX compatibility mode.
+ */
+ envString = getenv("GRIB_GRIBEX_MODE_ON");
+ if (envString != NULL)
+ {
+ if (atoi(envString) == 1) CGRIBEX_Const = 0;
+ }
+
+ /*
+ See if output stream needs changing
+ */
+ grprsm = stdout;
+ env_stream = getenv("GRPRS_STREAM");
+ if (env_stream)
+ {
+ if (isdigit((int) env_stream[0]))
+ {
+ int unit;
+ unit = atoi(env_stream);
+ if (unit < 1 || unit > 99)
+ Warning("Invalid number for GRPRS_STREAM: %d", unit);
+ else if (unit == 2)
+ grprsm = stderr;
+ else if (unit == 6)
+ grprsm = stdout;
+ else
+ {
+ char filename[] = "unit.00";
+ sprintf(filename, "%2.2d", unit);
+ grprsm = fopen(filename, "w");
+ if (!grprsm) SysError("GRPRS_STREAM = %d", unit);
+ }
+ }
+ else
+ {
+ if (env_stream[0])
+ {
+ grprsm = fopen(env_stream, "w");
+ if (!grprsm) SysError("GRPRS_STREAM = %s", env_stream);
+ }
+ }
+ }
+ /*
+ Mark common area values set by user.
+ */
+ lfirst = false;
+}
+
+// clang-format off
+
+/* pack 8-bit bytes from 64-bit words to a packed buffer */
+/* same as : for (int i = 0; i < bc; ++i) cp[i] = (unsigned char) up[i]; */
+
+long packInt64(unsigned INT64 *up, unsigned char *cp, long bc, long tc)
+{
+#if defined (CRAY)
+ (void) _pack(up, cp, bc, tc);
+#else
+ unsigned char *cp0;
+ unsigned INT64 upi, *up0, *ip0, *ip1, *ip2, *ip3, *ip4, *ip5, *ip6, *ip7;
+ long ipack = sizeof(INT64);
+
+ // Bytes until first word boundary in destination buffer
+
+ long head = ( (long) cp ) & (ipack-1);
+ if ( head != 0 ) head = ipack - head;
+
+ long inner = bc - head;
+
+ // Trailing bytes which do not make a full word
+
+ long trail = inner & (ipack-1);
+
+ // Number of bytes/words to be processed in fast loop
+
+ inner -= trail;
+ inner /= ipack;
+
+ ip0 = up + head;
+ ip1 = ip0 + 1;
+ ip2 = ip0 + 2;
+ ip3 = ip0 + 3;
+ ip4 = ip0 + 4;
+ ip5 = ip0 + 5;
+ ip6 = ip0 + 6;
+ ip7 = ip0 + 7;
+
+ up0 = (unsigned INT64 *)(void *)(cp + head);
+
+ /* Here we should process any bytes until the first word boundary
+ * of our destination buffer
+ * That code is missing so far because our output buffer is
+ * word aligned by FORTRAN
+ */
+
+ long j = 0;
+
+ if ( IS_BIGENDIAN() )
+ {
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (long i = 0; i < inner; ++i)
+ {
+ upi = ( ip0[j] << 56 )
+ | ( ( ip1[j] & 0xFF ) << 48 )
+ | ( ( ip2[j] & 0xFF ) << 40 )
+ | ( ( ip3[j] & 0xFF ) << 32 )
+ | ( ( ip4[j] & 0xFF ) << 24 ) ;
+ up0[i] = upi | ( ( ip5[j] & 0xFF ) << 16 )
+ | ( ( ip6[j] & 0xFF ) << 8 )
+ | ( ip7[j] & 0xFF ) ;
+ j += ipack;
+ }
+ }
+ else
+ {
+ for (long i = 0; i < inner; ++i)
+ {
+ upi = ( ip7[j] << 56 )
+ | ( ( ip6[j] & 0xFF ) << 48 )
+ | ( ( ip5[j] & 0xFF ) << 40 )
+ | ( ( ip4[j] & 0xFF ) << 32 )
+ | ( ( ip3[j] & 0xFF ) << 24 ) ;
+ up0[i] = upi | ( ( ip2[j] & 0xFF ) << 16 )
+ | ( ( ip1[j] & 0xFF ) << 8 )
+ | ( ip0[j] & 0xFF ) ;
+ j += ipack;
+ }
+ }
+
+ cp0 = (unsigned char *) ( up0 + inner );
+ if ( trail > 0 )
+ {
+ up0[inner] = 0;
+ for (long i = 0; i < trail ; ++i)
+ {
+ *cp0 = (unsigned char) ip0[ipack*inner+i];
+ cp0++;
+ }
+ }
+
+ if ( tc != -1 )
+ {
+ bc++;
+ *cp0 = (unsigned char) tc;
+ }
+#endif
+ return (bc);
+}
+
+/* unpack 8-bit bytes from a packed buffer with 64-bit words */
+/* same as : for (int i = 0; i < bc; ++i) up[i] = (INT64) cp[i]; */
+
+long unpackInt64(const unsigned char *cp, unsigned INT64 *up, long bc, long tc)
+{
+ const unsigned char *cp0;
+ unsigned INT64 *ip0, *ip1, *ip2, *ip3, *ip4, *ip5, *ip6, *ip7;
+ long offset;
+ long ipack = sizeof(INT64);
+
+ UNUSED(tc);
+
+ // Bytes until first word boundary in source buffer
+
+ long head = ( (long) cp ) & (ipack-1);
+ if ( head != 0 ) head = ipack - head;
+ if ( head > bc ) head = bc;
+
+ long inner = bc - head;
+
+ // Trailing bytes which do not make a full word
+
+ long trail = inner & (ipack-1);
+
+ // Number of bytes/words to be processed in fast loop
+
+ inner -= trail;
+ inner /= ipack;
+
+ ip0 = up + head;
+ ip1 = ip0 + 1;
+ ip2 = ip0 + 2;
+ ip3 = ip0 + 3;
+ ip4 = ip0 + 4;
+ ip5 = ip0 + 5;
+ ip6 = ip0 + 6;
+ ip7 = ip0 + 7;
+
+ const unsigned INT64 *up0 = (const unsigned INT64 *)(const void *)(cp + head);
+
+ /* Process any bytes until the first word boundary
+ * of our source buffer
+ */
+ for (long i = 0; i < head; ++i) up[i] = (unsigned INT64) cp[i];
+
+ long j = 0;
+
+ if ( IS_BIGENDIAN() )
+ {
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (long i = 0; i < inner; ++i)
+ {
+ ip0[j] = (up0[i] >> 56) & 0xFF;
+ ip1[j] = (up0[i] >> 48) & 0xFF;
+ ip2[j] = (up0[i] >> 40) & 0xFF;
+ ip3[j] = (up0[i] >> 32) & 0xFF;
+ ip4[j] = (up0[i] >> 24) & 0xFF;
+ ip5[j] = (up0[i] >> 16) & 0xFF;
+ ip6[j] = (up0[i] >> 8) & 0xFF;
+ ip7[j] = (up0[i]) & 0xFF;
+
+ j += ipack;
+ }
+ }
+ else
+ {
+ for (long i = 0; i < inner; ++i)
+ {
+ ip7[j] = (up0[i] >> 56) & 0xFF;
+ ip6[j] = (up0[i] >> 48) & 0xFF;
+ ip5[j] = (up0[i] >> 40) & 0xFF;
+ ip4[j] = (up0[i] >> 32) & 0xFF;
+ ip3[j] = (up0[i] >> 24) & 0xFF;
+ ip2[j] = (up0[i] >> 16) & 0xFF;
+ ip1[j] = (up0[i] >> 8) & 0xFF;
+ ip0[j] = (up0[i]) & 0xFF;
+
+ j += ipack;
+ }
+ }
+
+ if ( trail > 0 )
+ {
+ offset = head + ipack*inner;
+ cp0 = cp + offset;
+ for (long i = 0; i < trail; ++i) up[i+offset] = (unsigned INT64) cp0[i];
+ }
+ /*
+ if ( tc != -1 ) {
+ bc++;
+ *cp0 = (unsigned char) tc;
+ }
+ */
+ return (bc);
+}
+
+/* pack 8-bit bytes from 32-bit words to a packed buffer */
+/* same as : for (int i = 0; i < bc; ++i) cp[i] = (char) up[i]; */
+
+#ifdef INT32
+long packInt32(unsigned INT32 *up, unsigned char *cp, long bc, long tc)
+{
+ unsigned char *cp0;
+ unsigned INT32 *up0, *ip0, *ip1, *ip2, *ip3;
+ long ipack = sizeof(INT32);
+
+ // Bytes until first word boundary in destination buffer
+
+ long head = ( (long) cp ) & (ipack-1);
+ if ( head != 0 ) head = ipack - head;
+
+ long inner = bc - head;
+
+ // Trailing bytes which do not make a full word
+
+ long trail = inner & (ipack-1);
+
+ // Number of bytes/words to be processed in fast loop
+
+ inner -= trail;
+ inner /= ipack;
+
+ ip0 = up + head;
+ ip1 = ip0 + 1;
+ ip2 = ip0 + 2;
+ ip3 = ip0 + 3;
+
+ up0 = (unsigned INT32 *)(void *)(cp + head);
+
+ /* Here we should process any bytes until the first word boundary
+ * of our destination buffer
+ * That code is missing so far because our output buffer is
+ * word aligned by FORTRAN
+ */
+
+ long j = 0;
+
+ if ( IS_BIGENDIAN() )
+ {
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (long i = 0; i < inner; ++i)
+ {
+ up0[i] = ( ip0[j] << 24 )
+ | ( ( ip1[j] & 0xFF ) << 16 )
+ | ( ( ip2[j] & 0xFF ) << 8 )
+ | ( ip3[j] & 0xFF ) ;
+ j += ipack;
+ }
+ }
+ else
+ {
+ for (long i = 0; i < inner; ++i)
+ {
+ up0[i] = ( ip3[j] << 24 )
+ | ( ( ip2[j] & 0xFF ) << 16 )
+ | ( ( ip1[j] & 0xFF ) << 8 )
+ | ( ip0[j] & 0xFF ) ;
+ j += ipack;
+ }
+ }
+
+ cp0 = (unsigned char *) ( up0 + inner );
+ if ( trail > 0 )
+ {
+ up0[inner] = 0;
+ for (long i = 0; i < trail; ++i)
+ {
+ *cp0 = (unsigned char) ip0[ipack*inner+i];
+ cp0++;
+ }
+ }
+
+ if ( tc != -1 )
+ {
+ bc++;
+ *cp0 = (unsigned char) tc;
+ }
+
+ return (bc);
+}
+#endif
+
+/* unpack 8-bit bytes from a packed buffer with 32-bit words */
+/* same as : for (int i = 0; i < bc; ++i) up[i] = (INT32) cp[i]; */
+
+#ifdef INT32
+long unpackInt32(const unsigned char *cp, unsigned INT32 *up, long bc, long tc)
+{
+ const unsigned char *cp0;
+ unsigned INT32 *ip0, *ip1, *ip2, *ip3;
+ long offset;
+ long ipack = sizeof(INT32);
+
+ UNUSED(tc);
+
+ // Bytes until first word boundary in source buffer
+
+ long head = ( (long) cp ) & (ipack-1);
+ if ( head != 0 ) head = ipack - head;
+ if ( head > bc ) head = bc;
+
+ long inner = bc - head;
+
+ // Trailing bytes which do not make a full word
+
+ long trail = inner & (ipack-1);
+
+ // Number of bytes/words to be processed in fast loop
+
+ inner -= trail;
+ inner /= ipack;
+
+ ip0 = up + head;
+ ip1 = ip0 + 1;
+ ip2 = ip0 + 2;
+ ip3 = ip0 + 3;
+
+ const unsigned INT32 *up0 = (const unsigned INT32 *)(const void *)(cp + head);
+
+ /* Process any bytes until the first word boundary
+ * of our source buffer
+ */
+ for (long i = 0; i < head; ++i) up[i] = (unsigned INT32) cp[i];
+
+ long j = 0;
+
+ if ( IS_BIGENDIAN() )
+ {
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (long i = 0; i < inner; ++i)
+ {
+ ip0[j] = (up0[i] >> 24) & 0xFF;
+ ip1[j] = (up0[i] >> 16) & 0xFF;
+ ip2[j] = (up0[i] >> 8) & 0xFF;
+ ip3[j] = (up0[i]) & 0xFF;
+
+ j += ipack;
+ }
+ }
+ else
+ {
+ for (long i = 0; i < inner; ++i)
+ {
+ ip3[j] = (up0[i] >> 24) & 0xFF;
+ ip2[j] = (up0[i] >> 16) & 0xFF;
+ ip1[j] = (up0[i] >> 8) & 0xFF;
+ ip0[j] = (up0[i]) & 0xFF;
+
+ j += ipack;
+ }
+ }
+
+ if ( trail > 0 )
+ {
+ offset = head + ipack*inner;
+ cp0 = cp + offset;
+ for (long i = 0; i < trail; ++i) up[i+offset] = (unsigned INT32) cp0[i];
+ }
+ /*
+ if ( tc != -1 ) {
+ bc++;
+ *cp0 = (unsigned char) tc;
+ }
+ */
+
+ return (bc);
+}
+#endif
+
+// clang-format on
+#include <stdio.h>
+
+void
+prtbin(int kin, int knbit, int *kout, int *kerr)
+{
+ /*
+
+ Produces a decimal number with ones and zeroes
+ corresponding to the ones and zeroes of the input
+ binary number.
+ eg input number 1011 binary, output number 1011 decimal.
+
+
+ Input Parameters:
+
+ kin - Integer variable containing binary number.
+
+ knbit - Number of bits in binary number.
+
+ Output Parameters:
+
+ kout - Integer variable containing decimal value
+ with ones and zeroes corresponding to those of
+ the input binary number.
+
+ kerr - 0, If no error.
+ 1, Number of bits in binary number exceeds
+ maximum allowed or is less than 1.
+
+
+ Converted from EMOS routine PRTBIN.
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ */
+ int idec;
+ int ik;
+ int itemp;
+
+ /*
+ Check length of binary number to ensure decimal number
+ generated will fit in the computer word - in this case will
+ it fit in a Cray 48 bit integer?
+ */
+ if (knbit < 1 || knbit > 14)
+ {
+ *kerr = 1;
+ printf(" prtbin : Error in binary number length - %3d bits.\n", knbit);
+ return;
+ }
+ else
+ *kerr = 0;
+ /*
+ -----------------------------------------------------------------
+ Section 1. Generate required number.
+ -----------------------------------------------------------------
+ */
+ *kout = 0;
+ ik = kin;
+ idec = 1;
+
+ for (int j = 0; j < knbit; ++j)
+ {
+ itemp = ik - ((ik / 2) * 2);
+ *kout = (*kout) + itemp * idec;
+ ik = ik / 2;
+ idec = idec * 10;
+ }
+
+ return;
+}
+
+void
+ref2ibm(double *pref, int kbits)
+{
+ /*
+
+ Purpose:
+ --------
+
+ Code and check reference value in IBM format
+
+ Input Parameters:
+ -----------------
+
+ pref - Reference value
+ kbits - Number of bits per computer word.
+
+ Output Parameters:
+ ------------------
+
+ pref - Reference value
+
+ Method:
+ -------
+
+ Codes in IBM format, then decides to ensure that reference
+ value used for packing is not different from that stored
+ because of packing differences.
+
+ Externals.
+ ----------
+
+ confp3 - Encode into IBM floating point format.
+ decfp2 - Decode from IBM floating point format.
+
+ Reference:
+ ----------
+
+ None.
+
+ Comments:
+ --------
+
+ None.
+
+ Author:
+ -------
+
+ J.D.Chambers ECMWF 17:05:94
+
+ Modifications:
+ --------------
+
+ Uwe Schulzweida MPIfM 01/04/2001
+
+ Convert to C from EMOS library version 130
+
+ */
+
+ int itrnd;
+ int kexp, kmant;
+ double ztemp, zdumm;
+ extern int CGRIBEX_Debug;
+
+ /* ----------------------------------------------------------------- */
+ /* Section 1. Convert to and from IBM format. */
+ /* ----------------------------------------------------------------- */
+
+ /* Convert floating point reference value to IBM representation. */
+
+ itrnd = 1;
+ zdumm = ztemp = *pref;
+ confp3(zdumm, &kexp, &kmant, kbits, itrnd);
+
+ if (kexp == 0 && kmant == 0) return;
+
+ /* Set reference value to that actually stored in the GRIB code. */
+
+ *pref = decfp2(kexp, kmant);
+
+ /* If the nearest number which can be represented in */
+ /* GRIB format is greater than the reference value, */
+ /* find the nearest number in GRIB format lower */
+ /* than the reference value. */
+
+ if (ztemp < *pref)
+ {
+ /* Convert floating point to GRIB representation */
+ /* using truncation to ensure that the converted */
+ /* number is smaller than the original one. */
+
+ itrnd = 0;
+ zdumm = ztemp;
+ confp3(zdumm, &kexp, &kmant, kbits, itrnd);
+
+ /* Set reference value to that stored in the GRIB code. */
+
+ *pref = decfp2(kexp, kmant);
+
+ if (ztemp < *pref)
+ {
+ if (CGRIBEX_Debug)
+ {
+ Message("Reference value error.");
+ Message("Notify Met.Applications Section.");
+ Message("ZTEMP = ", ztemp);
+ Message("PREF = ", pref);
+ }
+ *pref = ztemp;
+ }
+ }
+
+ return;
+} /* ref2ibm */
+#include <math.h>
+#include <string.h>
+
+unsigned
+correct_bdslen(unsigned bdslen, long recsize, long gribpos)
+{
+ /*
+ If a very large product, the section 4 length field holds
+ the number of bytes in the product after section 4 upto
+ the end of the padding bytes.
+ This is a fixup to get round the restriction on product lengths
+ due to the count being only 24 bits. It is only possible because
+ the (default) rounding for GRIB products is 120 bytes.
+ */
+ if (recsize > JP23SET && bdslen <= 120) bdslen = (unsigned) (recsize - gribpos - bdslen);
+ return bdslen;
+}
+
+int
+grib1Sections(unsigned char *gribbuffer, long gribbufsize, unsigned char **pdsp, unsigned char **gdsp, unsigned char **bmsp,
+ unsigned char **bdsp, long *gribrecsize)
+{
+ *gribrecsize = 0;
+ *pdsp = NULL;
+ *gdsp = NULL;
+ *bmsp = NULL;
+ *bdsp = NULL;
+
+ unsigned char *section = gribbuffer;
+ unsigned char *is = gribbuffer;
+ if (!GRIB_START(section))
+ {
+ fprintf(stderr, "Wrong GRIB indicator section: found >%c%c%c%c<\n", section[0], section[1], section[2], section[3]);
+ return -1;
+ }
+
+ unsigned recsize = GET_UINT3(section[4], section[5], section[6]);
+
+ int gribversion = GRIB_EDITION(section);
+ if (gribversion != 0 && gribversion != 1)
+ {
+ fprintf(stderr, "Error while decoding GRIB1 sections: GRIB edition %d records not supported!\n", gribversion);
+ return -1;
+ }
+
+ unsigned grib1offset = (gribversion == 1) ? 4 : 0;
+
+ unsigned char *pds = is + 4 + grib1offset;
+ unsigned char *bufpointer = pds + PDS_Len;
+ unsigned gribsize = 4 + grib1offset + PDS_Len;
+
+ unsigned char *gds = NULL;
+ if (PDS_HAS_GDS)
+ {
+ gds = bufpointer;
+ bufpointer += GDS_Len;
+ gribsize += GDS_Len;
+ }
+
+ unsigned char *bms = NULL;
+ if (PDS_HAS_BMS)
+ {
+ bms = bufpointer;
+ bufpointer += BMS_Len;
+ gribsize += BMS_Len;
+ }
+
+ unsigned char *bds = bufpointer;
+ unsigned bdslen = BDS_Len;
+ if (recsize > JP23SET && bdslen <= 120)
+ {
+ recsize &= JP23SET;
+ recsize *= 120;
+ bdslen = correct_bdslen(bdslen, recsize, gribsize);
+ }
+ bufpointer += bdslen;
+ gribsize += bdslen;
+ gribsize += 4;
+
+ *pdsp = pds;
+ *gdsp = gds;
+ *bmsp = bms;
+ *bdsp = bds;
+
+ *gribrecsize = gribsize;
+ if (gribbufsize < gribsize)
+ {
+ fprintf(stderr, "Inconsistent length of GRIB message (grib_buffer_size=%ld < grib_record_size=%u)!\n", gribbufsize, gribsize);
+ return 1;
+ }
+
+ if (!GRIB_FIN(bufpointer)) // end section - "7777" in ASCII
+ {
+ fprintf(stderr, "Missing GRIB end section: found >%c%c%c%c<\n", bufpointer[0], bufpointer[1], bufpointer[2], bufpointer[3]);
+ return -2;
+ }
+
+ return 0;
+}
+
+int
+grib2Sections(unsigned char *gribbuffer, long gribbufsize, unsigned char **idsp, unsigned char **lusp, unsigned char **gdsp,
+ unsigned char **pdsp, unsigned char **drsp, unsigned char **bmsp, unsigned char **bdsp)
+{
+ UNUSED(gribbufsize);
+
+ *idsp = NULL;
+ *lusp = NULL;
+ *gdsp = NULL;
+ *pdsp = NULL;
+ *drsp = NULL;
+ *bmsp = NULL;
+ *bdsp = NULL;
+
+ unsigned char *section = gribbuffer;
+ unsigned sec_len = 16;
+
+ if (!GRIB_START(section))
+ {
+ fprintf(stderr, "wrong indicator section >%c%c%c%c<\n", section[0], section[1], section[2], section[3]);
+ return -1;
+ }
+
+ int gribversion = GRIB_EDITION(section);
+ if (gribversion != 2)
+ {
+ fprintf(stderr, "wrong GRIB version %d\n", gribversion);
+ return -1;
+ }
+
+ unsigned gribsize = 0;
+ for (int i = 0; i < 8; ++i) gribsize = (gribsize << 8) | section[8 + i];
+
+ unsigned grib_len = sec_len;
+ section += sec_len;
+
+ /* section 1 */
+ sec_len = GRIB2_SECLEN(section);
+ int sec_num = GRIB2_SECNUM(section);
+ // fprintf(stderr, "ids %d %ld\n", sec_num, sec_len);
+
+ if (sec_num != 1)
+ {
+ fprintf(stderr, "Unexpected section1 number %d\n", sec_num);
+ return -1;
+ }
+
+ *idsp = section;
+
+ grib_len += sec_len;
+ section += sec_len;
+
+ /* section 2 and 3 */
+ sec_len = GRIB2_SECLEN(section);
+ sec_num = GRIB2_SECNUM(section);
+ // fprintf(stderr, "lus %d %ld\n", sec_num, sec_len);
+
+ if (sec_num == 2)
+ {
+ *lusp = section;
+
+ grib_len += sec_len;
+ section += sec_len;
+
+ /* section 3 */
+ sec_len = GRIB2_SECLEN(section);
+ // sec_num = GRIB2_SECNUM(section);
+ // fprintf(stderr, "gds %d %ld\n", sec_num, sec_len);
+
+ *gdsp = section;
+ }
+ else if (sec_num == 3)
+ {
+ *gdsp = section;
+ }
+ else
+ {
+ fprintf(stderr, "Unexpected section3 number %d\n", sec_num);
+ return -1;
+ }
+
+ grib_len += sec_len;
+ section += sec_len;
+
+ /* section 4 */
+ sec_len = GRIB2_SECLEN(section);
+ sec_num = GRIB2_SECNUM(section);
+ // fprintf(stderr, "pds %d %ld\n", sec_num, sec_len);
+
+ if (sec_num != 4)
+ {
+ fprintf(stderr, "Unexpected section4 number %d\n", sec_num);
+ return -1;
+ }
+
+ *pdsp = section;
+
+ grib_len += sec_len;
+ section += sec_len;
+
+ /* section 5 */
+ sec_len = GRIB2_SECLEN(section);
+ sec_num = GRIB2_SECNUM(section);
+ // fprintf(stderr, "drs %d %ld\n", sec_num, sec_len);
+
+ if (sec_num != 5)
+ {
+ fprintf(stderr, "Unexpected section5 number %d\n", sec_num);
+ return -1;
+ }
+
+ *drsp = section;
+
+ grib_len += sec_len;
+ section += sec_len;
+
+ /* section 6 */
+ sec_len = GRIB2_SECLEN(section);
+ sec_num = GRIB2_SECNUM(section);
+ // fprintf(stderr, "bms %d %ld\n", sec_num, sec_len);
+
+ if (sec_num != 6)
+ {
+ fprintf(stderr, "Unexpected section6 number %d\n", sec_num);
+ return -1;
+ }
+
+ *bmsp = section;
+
+ grib_len += sec_len;
+ section += sec_len;
+
+ /* section 7 */
+ sec_len = GRIB2_SECLEN(section);
+ sec_num = GRIB2_SECNUM(section);
+ // fprintf(stderr, "bds %d %ld\n", sec_num, sec_len);
+
+ if (sec_num != 7)
+ {
+ fprintf(stderr, "Unexpected section7 number %d\n", sec_num);
+ return -1;
+ }
+
+ *bdsp = section;
+
+ grib_len += sec_len;
+ section += sec_len;
+
+ /* skip multi GRIB sections */
+ int msec = 1;
+ while (!GRIB_FIN(section))
+ {
+ sec_len = GRIB2_SECLEN(section);
+ sec_num = GRIB2_SECNUM(section);
+
+ if (sec_num < 1 || sec_num > 7) break;
+
+ if (sec_num == 7) fprintf(stderr, "Skipped unsupported multi GRIB section %d!\n", ++msec);
+
+ if ((grib_len + sec_len) > gribsize) break;
+
+ grib_len += sec_len;
+ section += sec_len;
+ }
+
+ /* end section - "7777" in ASCII */
+ if (!GRIB_FIN(section))
+ {
+ fprintf(stderr, "Missing end section >%2x %2x %2x %2x<\n", section[0], section[1], section[2], section[3]);
+ return -2;
+ }
+
+ return 0;
+}
+
+int
+grib_info_for_grads(off_t recpos, long recsize, unsigned char *gribbuffer, int *intnum, float *fltnum, off_t *bignum)
+{
+ long gribsize = 0;
+ off_t bpos = 0;
+
+ unsigned char *section = gribbuffer;
+ unsigned char *is = gribbuffer;
+ if (!GRIB_START(section))
+ {
+ fprintf(stderr, "wrong indicator section >%c%c%c%c<\n", section[0], section[1], section[2], section[3]);
+ return -1;
+ }
+
+ int gribversion = GRIB_EDITION(section);
+ if (recsize == 24 && gribversion == 0) gribversion = 0;
+
+ unsigned grib1offset = (gribversion == 1) ? 4 : 0;
+
+ unsigned char *pds = is + 4 + grib1offset;
+ unsigned char *bufpointer = pds + PDS_Len;
+ gribsize += 4 + grib1offset + PDS_Len;
+
+ unsigned char *gds = NULL;
+ if (PDS_HAS_GDS)
+ {
+ gds = bufpointer;
+ bufpointer += GDS_Len;
+ gribsize += GDS_Len;
+ }
+
+ unsigned char *bms = NULL;
+ if (PDS_HAS_BMS)
+ {
+ bms = bufpointer;
+ bufpointer += BMS_Len;
+ bpos = recpos + gribsize + 6;
+ gribsize += BMS_Len;
+ }
+
+ unsigned char *bds = bufpointer;
+
+ off_t dpos = recpos + gribsize + 11;
+
+ unsigned bdslen = BDS_Len;
+ bdslen = correct_bdslen(bdslen, recsize, bds - gribbuffer);
+ bufpointer += bdslen;
+ gribsize += bdslen;
+ gribsize += 4;
+
+ if (gribsize > recsize)
+ {
+ fprintf(stderr, "GRIB buffer size %ld too small! Min size = %ld\n", recsize, gribsize);
+ return 1;
+ }
+
+ /* end section - "7777" in ascii */
+ if (!GRIB_FIN(bufpointer))
+ {
+ fprintf(stderr, "Missing end section >%2x %2x %2x %2x<\n", bufpointer[0], bufpointer[1], bufpointer[2], bufpointer[3]);
+ }
+
+ int bs = BDS_BinScale;
+ if (bs > 32767) bs = 32768 - bs;
+ float bsf = ldexpf(1.0f, bs);
+
+ bignum[0] = dpos;
+ bignum[1] = bms ? bpos : -999;
+ intnum[0] = BDS_NumBits;
+
+ /* fltnum[0] = 1.0; */
+ fltnum[0] = powf(10.0f, (float) PDS_DecimalScale);
+ fltnum[1] = bsf;
+ fltnum[2] = (float) BDS_RefValue;
+ /*
+ printf("intnum %d %d %d\n", intnum[0], intnum[1], intnum[2]);
+ printf("fltnum %g %g %g\n", fltnum[0], fltnum[1], fltnum[2]);
+ */
+ return 0;
+}
+
+static int
+get_level(unsigned char *pds)
+{
+ int level = 0;
+
+ if (PDS_LevelType == 100)
+ level = (int) (PDS_Level) *100;
+ else if (PDS_LevelType == 99 || PDS_LevelType == 109)
+ level = (int) (PDS_Level);
+ else
+ level = PDS_Level1;
+
+ return level;
+}
+
+static double
+get_cr(unsigned char *w1, unsigned char *w2)
+{
+ unsigned s1 = GET_UINT3(w1[0], w1[1], w1[2]);
+ unsigned s2 = GET_UINT3(w2[0], w2[1], w2[2]);
+ return ((double) s1) / s2;
+}
+
+static void
+grib1PrintALL(int nrec, long offset, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ static bool header = true;
+ unsigned char *is = NULL, *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+
+ if (header)
+ {
+ fprintf(stdout, " Rec : Off Position Size : V PDS GDS BMS BDS : Code Level : LType GType: CR LL\n");
+ // ----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+
+ header = false;
+ }
+
+ is = gribbuffer;
+
+ unsigned gribsize = GET_UINT3(is[4], is[5], is[6]);
+
+ long gribrecsize;
+ int nerr = grib1Sections(gribbuffer, recsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "%5d :%4ld %8ld %6ld : GRIB message error\n", nrec, offset, recpos, recsize);
+ return;
+ }
+
+ int GridType = (gds == NULL) ? -1 : (int) GDS_GridType;
+
+ int level = get_level(pds);
+
+ unsigned bdslen = BDS_Len;
+
+ bool llarge = (gribsize > JP23SET && bdslen <= 120);
+
+ bdslen = correct_bdslen(bdslen, recsize, bds - gribbuffer);
+
+ double cr = (((BDS_Flag >> 4) & 1) && (BDS_Z == 128 || BDS_Z == 130)) ? get_cr(&bds[14], &gribbuffer[4]) : 1;
+
+ fprintf(stdout, "%5d :%4ld %8ld %6ld :%2d%4d%5d %6d %6d : %3d %6d : %5d %5d %6.4g %c", nrec, offset, recpos, recsize,
+ GRIB_EDITION(is), PDS_Len, GDS_Len, BMS_Len, bdslen, PDS_Parameter, level, PDS_LevelType, GridType, cr,
+ llarge ? 'T' : 'F');
+
+ if (nerr > 0) fprintf(stdout, " <-- GRIB data corrupted!");
+ fprintf(stdout, "\n");
+}
+
+static void
+grib2PrintALL(int nrec, long offset, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ static bool header = true;
+ unsigned char *is = NULL, *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+ unsigned char *ids = NULL, *lus = NULL, *drs = NULL;
+ long ids_len = 0, lus_len = 0, gds_len = 0, pds_len = 0, drs_len = 0, bms_len = 0, bds_len = 0;
+ double cr = 1;
+
+ if (header)
+ {
+ fprintf(stdout,
+ " Rec : Off Position Size : V IDS LUS GDS PDS DRS BMS BDS : Parameter Level : LType GType: CR\n");
+ // ----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+
+ header = false;
+ }
+
+ is = gribbuffer;
+
+ int nerr = grib2Sections(gribbuffer, recsize, &ids, &lus, &gds, &pds, &drs, &bms, &bds);
+ if (nerr)
+ {
+ fprintf(stdout, "%5d :%4ld %8ld %6ld : error\n", nrec, offset, recpos, recsize);
+ return;
+ }
+
+ if (ids) ids_len = GRIB2_SECLEN(ids);
+ if (lus) lus_len = GRIB2_SECLEN(lus);
+ if (gds) gds_len = GRIB2_SECLEN(gds);
+ if (pds) pds_len = GRIB2_SECLEN(pds);
+ if (drs) drs_len = GRIB2_SECLEN(drs);
+ if (bms) bms_len = GRIB2_SECLEN(bms);
+ if (bds) bds_len = GRIB2_SECLEN(bds);
+
+ // double cr = (((BDS_Flag >> 4)&1) && (BDS_Z == 128 || BDS_Z == 130)) ? get_cr(&bds[14], &gribbuffer[4]) : 1;
+
+ int dis = GET_UINT1(is[6]);
+ int gridtype = (int) (GET_UINT2(gds[12], gds[13]));
+ int paramcat = GET_UINT1(pds[9]);
+ int paramnum = GET_UINT1(pds[10]);
+ int level1type = GET_UINT1(pds[22]);
+ /* level1sf = GET_UINT1(pds[23]); */
+ int level1 = (int) (GET_UINT4(pds[24], pds[25], pds[26], pds[27]));
+ /* level2type = GET_UINT1(pds[28]); */
+ /* level2sf = GET_UINT1(pds[29]); */
+ /* level2 = GET_UINT4(pds[30],pds[31],pds[32],pds[33]); */
+ /*
+ printf("level %d %d %d %d %d %d %d\n", level1type, level1sf, level1, level1*level1sf, level2sf, level2, level2*level2sf);
+ */
+ char paramstr[16];
+ sprintf(paramstr, "%d.%d.%d", paramnum, paramcat, dis);
+ fprintf(stdout, "%5d :%4ld %8ld %6ld :%2d %3ld %3ld %3ld %3ld %4ld %6ld %6ld : %-9s %7d : %5d %5d %6.4g\n", nrec, offset, recpos,
+ recsize, GRIB_EDITION(is), ids_len, lus_len, gds_len, pds_len, drs_len, bms_len, bds_len, paramstr, level1, level1type,
+ gridtype, cr);
+}
+
+void
+gribPrintALL(int nrec, long offset, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ int gribversion = gribVersion(gribbuffer, (size_t) recsize);
+
+ if (gribversion == 0 || gribversion == 1)
+ grib1PrintALL(nrec, offset, recpos, recsize, gribbuffer);
+ else if (gribversion == 2)
+ grib2PrintALL(nrec, offset, recpos, recsize, gribbuffer);
+ else
+ {
+ fprintf(stdout, "%5d :%4ld%9ld%7ld : GRIB version %d unsupported\n", nrec, offset, recpos, recsize, gribversion);
+ }
+}
+
+static void
+grib1PrintPDS(int nrec, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ static int header = 1;
+ unsigned char *is = NULL, *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+ int century, subcenter, decimalscale;
+ int fc_num = 0;
+ int year = 0, date;
+
+ UNUSED(recpos);
+
+ if (header)
+ {
+ fprintf(stdout, " Rec : PDS Tab Cen Sub Ver Grid Code LTyp Level1 Level2 Date Time P1 P2 TU TR NAVE Scale FCnum CT\n");
+ // ----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+
+ header = 0;
+ }
+
+ is = gribbuffer;
+
+ long gribrecsize;
+ int nerr = grib1Sections(gribbuffer, recsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "%5d : GRIB message error\n", nrec);
+ return;
+ }
+
+ switch (GRIB_EDITION(is))
+ {
+ case 0:
+ year = GET_UINT1(pds[12]);
+ century = 1;
+ subcenter = 0;
+ decimalscale = 0;
+ break;
+ case 1:
+ year = PDS_Year;
+ century = PDS_Century;
+ subcenter = PDS_Subcenter;
+ decimalscale = PDS_DecimalScale;
+ break;
+ default: fprintf(stderr, "Grib version %d not supported!", GRIB_EDITION(is)); exit(EXIT_FAILURE);
+ }
+
+ if (PDS_Len > 28)
+ if (PDS_CenterID == 98 || PDS_Subcenter == 98 || (PDS_CenterID == 7 && PDS_Subcenter == 98))
+ if (pds[40] == 1) fc_num = GET_UINT1(pds[49]);
+
+ if (year < 0)
+ {
+ date = (-year) * 10000 + (int) PDS_Month * 100 + (int) PDS_Day;
+ century = -century;
+ }
+ else
+ {
+ date = year * 10000 + (int) PDS_Month * 100 + (int) PDS_Day;
+ }
+
+ fprintf(stdout, "%5d :%4d%4d%4d%4d%4d %4d %4d%4d%7d%7d %8d%6d%3d%3d%3d%3d%5d%6d%5d%4d", nrec, PDS_Len, PDS_CodeTable,
+ PDS_CenterID, subcenter, PDS_ModelID, PDS_GridDefinition, PDS_Parameter, PDS_LevelType, PDS_Level1, PDS_Level2, date,
+ PDS_Time, PDS_TimePeriod1, PDS_TimePeriod2, PDS_TimeUnit, PDS_TimeRange, PDS_AvgNum, decimalscale, fc_num, century);
+
+ if (nerr > 0) fprintf(stdout, " <-- GRIB data corrupted!");
+ fprintf(stdout, "\n");
+}
+
+void
+gribPrintPDS(int nrec, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ int gribversion = gribVersion(gribbuffer, (size_t) recsize);
+
+ if (gribversion == 0 || gribversion == 1) grib1PrintPDS(nrec, recpos, recsize, gribbuffer);
+ /*
+ else if ( gribversion == 2 )
+ grib2PrintPDS(nrec, recpos, recsize, gribbuffer);
+ */
+ else
+ {
+ fprintf(stdout, "%5d :%4ld%9ld%7ld : GRIB version %d unsupported\n", nrec, 0L, recpos, recsize, gribversion);
+ }
+}
+
+static void
+grib1PrintGDS(int nrec, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ static int header = 1;
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+
+ UNUSED(recpos);
+
+ if (header)
+ {
+ fprintf(stdout, " Rec : GDS NV PVPL Typ : xsize ysize Lat1 Lon1 Lat2 Lon2 dx dy\n");
+ // ----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+
+ header = 0;
+ }
+
+ long gribrecsize;
+ int nerr = grib1Sections(gribbuffer, recsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "%5d : GRIB message error\n", nrec);
+ return;
+ }
+
+ fprintf(stdout, "%5d :", nrec);
+
+ if (gds)
+ fprintf(stdout, "%4d%4d%4d %4d :%6d%6d%7d%7d%7d%7d%6d%6d", GDS_Len, GDS_NV, GDS_PVPL, GDS_GridType, GDS_NumLon, GDS_NumLat,
+ GDS_FirstLat, GDS_FirstLon, GDS_LastLat, GDS_LastLon, GDS_LonIncr, GDS_LatIncr);
+ else
+ fprintf(stdout, " Grid Description Section not defined");
+
+ if (nerr > 0) fprintf(stdout, " <-- GRIB data corrupted!");
+ fprintf(stdout, "\n");
+}
+
+void
+gribPrintGDS(int nrec, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ int gribversion = gribVersion(gribbuffer, (size_t) recsize);
+
+ if (gribversion == 0 || gribversion == 1) grib1PrintGDS(nrec, recpos, recsize, gribbuffer);
+ /*
+ else if ( gribversion == 2 )
+ grib2PrintGDS(nrec, recpos, recsize, gribbuffer);
+ */
+ else
+ {
+ fprintf(stdout, "%5d :%4ld%9ld%7ld : GRIB version %d unsupported\n", nrec, 0L, recpos, recsize, gribversion);
+ }
+}
+
+static void
+grib1PrintBMS(int nrec, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ static int header = 1;
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+
+ UNUSED(recpos);
+
+ if (header)
+ {
+ fprintf(stdout, " Rec : Code Level BMS Size\n");
+ // ----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+
+ header = 0;
+ }
+
+ long gribrecsize;
+ int nerr = grib1Sections(gribbuffer, recsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "%5d : GRIB message error\n", nrec);
+ return;
+ }
+
+ int level = get_level(pds);
+
+ fprintf(stdout, "%5d :", nrec);
+
+ if (bms)
+ fprintf(stdout, "%4d%7d %7d %7d", PDS_Parameter, level, BMS_Len, BMS_BitmapSize);
+ else
+ fprintf(stdout, "%4d%7d Bit Map Section not defined", PDS_Parameter, level);
+
+ if (nerr > 0) fprintf(stdout, " <-- GRIB data corrupted!");
+ fprintf(stdout, "\n");
+}
+
+void
+gribPrintBMS(int nrec, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ int gribversion = gribVersion(gribbuffer, (size_t) recsize);
+
+ if (gribversion == 0 || gribversion == 1) grib1PrintBMS(nrec, recpos, recsize, gribbuffer);
+ /*
+ else if ( gribversion == 2 )
+ grib2PrintBMS(nrec, recpos, recsize, gribbuffer);
+ */
+ else
+ {
+ fprintf(stdout, "%5d :%4ld%9ld%7ld : GRIB version %d unsupported\n", nrec, 0L, recpos, recsize, gribversion);
+ }
+}
+
+static void
+grib1PrintBDS(int nrec, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ static int header = 1;
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+ double scale;
+
+ UNUSED(recpos);
+
+ if (header)
+ {
+ fprintf(stdout, " Rec : Code Level BDS Flag Scale RefValue Bits CR\n");
+ // ----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+
+ header = 0;
+ }
+
+ long gribrecsize;
+ int nerr = grib1Sections(gribbuffer, recsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "%5d : GRIB message error\n", nrec);
+ return;
+ }
+
+ int level = get_level(pds);
+
+ double cr = (((BDS_Flag >> 4) & 1) && BDS_Z == 128) ? get_cr(&bds[17], &bds[20]) : 1;
+
+ double refval = BDS_RefValue;
+
+ if (BDS_BinScale < 0)
+ scale = 1.0 / pow(2.0, (double) -BDS_BinScale);
+ else
+ scale = pow(2.0, (double) BDS_BinScale);
+
+ if (PDS_DecimalScale != 0)
+ {
+ double decscale = pow(10.0, (double) -PDS_DecimalScale);
+ refval *= decscale;
+ scale *= decscale;
+ }
+
+ fprintf(stdout, "%5d :", nrec);
+
+ if (bds)
+ fprintf(stdout, "%4d%7d %7d %4d %8.5g %11.5g%4d %6.4g", PDS_Parameter, level, BDS_Len, BDS_Flag, scale, refval, BDS_NumBits,
+ cr);
+ else
+ fprintf(stdout, " Binary Data Section not defined");
+
+ if (nerr > 0) fprintf(stdout, " <-- GRIB data corrupted!");
+ fprintf(stdout, "\n");
+}
+
+void
+gribPrintBDS(int nrec, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ int gribversion = gribVersion(gribbuffer, (size_t) recsize);
+
+ if (gribversion == 0 || gribversion == 1) grib1PrintBDS(nrec, recpos, recsize, gribbuffer);
+ /*
+ else if ( gribversion == 2 )
+ grib2PrintBDS(nrec, recpos, recsize, gribbuffer);
+ */
+ else
+ {
+ fprintf(stdout, "%5d :%4ld%9ld%7ld : GRIB version %d unsupported\n", nrec, 0L, recpos, recsize, gribversion);
+ }
+}
+
+void
+gribCheck1(int nrec, long recpos, long recsize, unsigned char *gribbuffer)
+{
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+
+ UNUSED(recpos);
+
+ long gribrecsize;
+ int nerr = grib1Sections(gribbuffer, recsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "%5d : GRIB message error\n", nrec);
+ return;
+ }
+
+ if (nerr > 0)
+ {
+ fprintf(stdout, "%5d : <-- GRIB data corrupted!\n", nrec);
+ return;
+ }
+
+ int level = get_level(pds);
+
+ double cr = (((BDS_Flag >> 4) & 1) && BDS_Z == 128) ? get_cr(&bds[17], &bds[20]) : 1;
+
+ if (IS_EQUAL(cr, 1) && BDS_NumBits == 24)
+ fprintf(stdout, "GRIB record %5d : code = %4d level = %7d\n", nrec, PDS_Parameter, level);
+}
+
+static void
+repair1(unsigned char *gbuf, long gbufsize)
+{
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+ /* int recLen; */
+ size_t bds_nbits;
+ int bds_flag, lspherc, lcomplex /*, lcompress */;
+ enum
+ {
+ bds_head = 11
+ };
+ size_t bds_ext = 0, bds_ubits;
+
+ long gribrecsize;
+ int nerr = grib1Sections(gbuf, gbufsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "GRIB message error\n");
+ return;
+ }
+
+ if (nerr > 0)
+ {
+ fprintf(stdout, "GRIB data corrupted!\n");
+ return;
+ }
+
+ unsigned bds_len = BDS_Len;
+ bds_nbits = BDS_NumBits;
+ bds_flag = BDS_Flag;
+ bds_ubits = (size_t) bds_flag & 15;
+ lspherc = bds_flag >> 7;
+ lcomplex = (bds_flag >> 6) & 1;
+ /* lcompress = (bds_flag >> 4)&1; */
+
+ if (lspherc)
+ {
+ if (lcomplex)
+ {
+ size_t jup, ioff;
+ jup = (size_t) bds[15];
+ ioff = (jup + 1) * (jup + 2);
+ bds_ext = 4 + 3 + 4 * ioff;
+ }
+ else
+ {
+ bds_ext = 4;
+ }
+ }
+
+ size_t datstart = bds_head + bds_ext;
+
+ unsigned char *source = bds + datstart;
+
+ size_t sourceLen = ((((bds_len - datstart) * 8 - bds_ubits) / bds_nbits) * bds_nbits) / 8;
+
+ if (bds_nbits == 24)
+ {
+ unsigned char *pbuf = (unsigned char *) Malloc(sourceLen);
+ ;
+ size_t nelem = sourceLen / 3;
+ for (size_t i = 0; i < nelem; ++i)
+ {
+ pbuf[3 * i] = source[i];
+ pbuf[3 * i + 1] = source[nelem + i];
+ pbuf[3 * i + 2] = source[2 * nelem + i];
+ }
+ memcpy(source, pbuf, sourceLen);
+ Free(pbuf);
+ }
+}
+
+void
+gribRepair1(int nrec, long recsize, unsigned char *gribbuffer)
+{
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+
+ long gribrecsize;
+ int nerr = grib1Sections(gribbuffer, recsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "%5d : GRIB message error\n", nrec);
+ return;
+ }
+
+ if (nerr > 0)
+ {
+ fprintf(stdout, "%5d : <-- GRIB data corrupted!\n", nrec);
+ return;
+ }
+
+ int level = get_level(pds);
+
+ double cr = (((BDS_Flag >> 4) & 1) && BDS_Z == 128) ? get_cr(&bds[17], &bds[20]) : 1;
+
+ if (IS_EQUAL(cr, 1) && BDS_NumBits == 24)
+ {
+ fprintf(stdout, "Repair GRIB record %5d : code = %4d level = %7d\n", nrec, PDS_Parameter, level);
+ repair1(gribbuffer, recsize);
+ }
+}
+#include <stdio.h>
+#include <string.h>
+
+#if defined(HAVE_CONFIG_H)
+#endif
+
+#if defined(HAVE_LIBSZ)
+#if defined(__cplusplus)
+extern "C"
+{
+#endif
+#include <szlib.h>
+#ifdef __cplusplus
+}
+#endif
+
+// clang-format off
+
+#define OPTIONS_MASK (SZ_RAW_OPTION_MASK | SZ_MSB_OPTION_MASK | SZ_NN_OPTION_MASK)
+
+#define PIXELS_PER_BLOCK (8)
+#define PIXELS_PER_SCANLINE (PIXELS_PER_BLOCK*128)
+
+#define MIN_COMPRESS (0.95)
+#define MIN_SIZE (256)
+#endif
+
+#define Z_SZIP 128
+
+#if defined (HAVE_LIBSZ) || defined (HAVE_LIBAEC)
+#define SetLen3(var, offset, value) ((var[offset+0] = 0xFF & (value >> 16)), \
+ (var[offset+1] = 0xFF & (value >> 8)), \
+ (var[offset+2] = 0xFF & (value )))
+#define SetLen4(var, offset, value) ((var[offset+0] = 0xFF & (value >> 24)), \
+ (var[offset+1] = 0xFF & (value >> 16)), \
+ (var[offset+2] = 0xFF & (value >> 8)), \
+ (var[offset+3] = 0xFF & (value )))
+#endif
+
+// clang-format on
+
+int
+gribGetZip(size_t recsize, unsigned char *gribbuffer, size_t *urecsize)
+{
+ int compress = 0;
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+
+ int gribversion = gribVersion(gribbuffer, recsize);
+
+ if (gribversion == 2) return compress;
+
+ long gribrecsize;
+ int nerr = grib1Sections(gribbuffer, (long) recsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "GRIB message error\n");
+ return compress;
+ }
+
+ if (nerr > 0)
+ {
+ fprintf(stdout, "GRIB data corrupted!\n");
+ return compress;
+ }
+
+ /* bds_len = BDS_Len; */
+ /* bds_nbits = BDS_NumBits; */
+ int bds_flag = BDS_Flag;
+ /* lspherc = bds_flag >> 7; */
+ /* lcomplex = (bds_flag >> 6)&1; */
+ int lcompress = (bds_flag >> 4) & 1;
+
+ size_t gribsize = 0;
+ if (lcompress)
+ {
+ compress = BDS_Z;
+ if (compress == Z_SZIP) gribsize = (size_t) GET_UINT3(bds[14], bds[15], bds[16]);
+ }
+
+ *urecsize = gribsize;
+
+ return compress;
+}
+
+int
+gribZip(unsigned char *dbuf, long dbufsize, unsigned char *sbuf, long sbufsize)
+{
+#if !defined(HAVE_LIBSZ)
+ static int libszwarn = 1;
+#endif
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+ bool llarge = false;
+
+ unsigned gribLen = GET_UINT3(dbuf[4], dbuf[5], dbuf[6]);
+
+ int rec_len = (int) gribLen;
+
+ long gribrecsize;
+ int nerr = grib1Sections(dbuf, dbufsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "GRIB message error\n");
+ return (int) gribrecsize;
+ }
+
+ if (nerr > 0)
+ {
+ fprintf(stdout, "GRIB data corrupted!\n");
+ return (int) gribrecsize;
+ }
+
+ int bds_zoffset = 12;
+
+ unsigned bds_len = BDS_Len;
+ if (gribLen > JP23SET && bds_len <= 120)
+ {
+ gribLen &= JP23SET;
+ gribLen *= 120;
+ bds_len = correct_bdslen(bds_len, gribLen, bds - dbuf);
+ llarge = true;
+ bds_zoffset += 2;
+ }
+
+ if (gribLen > JP24SET || llarge) return (int) gribLen;
+
+#if defined(HAVE_LIBSZ)
+ {
+ int bds_zstart = 14;
+ unsigned gribLenOld = 0;
+ int bds_head = 11;
+ int bds_ext = 0;
+ unsigned char *pbuf = NULL;
+
+ int bds_nbits = BDS_NumBits;
+ int bds_flag = BDS_Flag;
+ int bds_ubits = bds_flag & 15;
+ int lspherc = bds_flag >> 7;
+ int lcomplex = (bds_flag >> 6) & 1;
+ /* lcompress = (bds_flag >> 4)&1; */
+
+ if (bds_nbits != 8 && bds_nbits != 16 && bds_nbits != 24 && bds_nbits != 32)
+ {
+ static bool linfo = true;
+ if (linfo && bds_nbits != 0)
+ {
+ linfo = false;
+ fprintf(stderr, "GRIB szip supports only 8, 16, 24 and 32 bit data!\n");
+ }
+ return rec_len;
+ }
+
+ int bits_per_sample = (bds_nbits == 24) ? 8 : bds_nbits;
+
+ SZ_com_t sz_param; /* szip parameter block */
+ sz_param.options_mask = OPTIONS_MASK;
+ sz_param.bits_per_pixel = bits_per_sample;
+ sz_param.pixels_per_block = PIXELS_PER_BLOCK;
+ sz_param.pixels_per_scanline = PIXELS_PER_SCANLINE;
+
+ if (lspherc)
+ {
+ bds_ext = 4;
+ if (lcomplex)
+ {
+ int jup = bds[15];
+ int ioff = (jup + 1) * (jup + 2);
+ bds_ext += 3 + 4 * ioff;
+ }
+ }
+
+ size_t datstart = bds_head + bds_ext;
+
+ size_t datsize = ((((bds_len - datstart) * 8 - bds_ubits) / bds_nbits) * bds_nbits) / 8;
+
+ if (datsize < MIN_SIZE) return rec_len;
+ /*
+ fprintf(stderr, "%d %d %d %d\n", bds_len, datstart, bds_len - datstart, datsize);
+ */
+ size_t sourceLen = datsize;
+ size_t destLen = sbufsize;
+
+ unsigned char *source = bds + datstart;
+ unsigned char *dest = sbuf;
+
+ if (bds_nbits == 24)
+ {
+ long nelem = sourceLen / 3;
+ pbuf = (unsigned char *) Malloc(sourceLen);
+ for (long i = 0; i < nelem; ++i)
+ {
+ pbuf[i] = source[3 * i];
+ pbuf[nelem + i] = source[3 * i + 1];
+ pbuf[2 * nelem + i] = source[3 * i + 2];
+ }
+ source = pbuf;
+ }
+
+ int status = SZ_BufftoBuffCompress(dest, &destLen, source, sourceLen, &sz_param);
+ if (status != SZ_OK)
+ {
+ if (status == SZ_NO_ENCODER_ERROR)
+ Warning("SZ_NO_ENCODER_ERROR code %3d level %3d", PDS_Parameter, PDS_Level2);
+ else if (status == SZ_PARAM_ERROR)
+ Warning("SZ_PARAM_ERROR code %3d level %3d", PDS_Parameter, PDS_Level2);
+ else if (status == SZ_MEM_ERROR)
+ Warning("SZ_MEM_ERROR code %3d level %3d", PDS_Parameter, PDS_Level2);
+ else if (status == SZ_OUTBUFF_FULL)
+ /*Warning("SZ_OUTBUFF_FULL code %3d level %3d", PDS_Parameter, PDS_Level2)*/;
+ else
+ Warning("SZ ERROR: %d code %3d level %3d", status, PDS_Parameter, PDS_Level2);
+ }
+
+ if (pbuf) Free(pbuf);
+ /*
+ fprintf(stderr, "sourceLen, destLen %d %d\n", sourceLen, destLen);
+ */
+ if (destLen < MIN_COMPRESS * sourceLen)
+ {
+ source = bds + datstart + bds_zoffset;
+ memcpy(source, dest, destLen);
+
+ /* ----++++ number of unused bits at end of section) */
+
+ BDS_Flag -= bds_ubits;
+
+ gribLenOld = gribLen;
+
+ if (bds_ext)
+ for (long i = bds_ext - 1; i >= 0; --i) bds[bds_zoffset + bds_head + i] = bds[bds_head + i];
+
+ /*
+ fprintf(stderr, "destLen, datsize, datstart %d %d %d\n", destLen, datsize, datstart);
+ */
+ /* memcpy(bds + datstart + bds_zoffset, source, destLen); */
+ /*
+ fprintf(stderr, "z>>> %d %d %d %d <<<\n", (int) bds[0+datstart+bds_zoffset],
+ (int)bds[1+datstart+bds_zoffset], (int)bds[2+datstart+bds_zoffset], (int)bds[3+datstart+bds_zoffset]);
+ */
+ if (llarge)
+ {
+ if (gribLenOld % 120)
+ {
+ fprintf(stderr, "Internal problem, record length not multiple of 120!");
+ while (gribLenOld % 120) gribLenOld++;
+ }
+ // gribLenOld = gribLenOld / (-120);
+ // gribLenOld = JP23SET - gribLenOld + 1;
+
+ SetLen3(bds, bds_zstart, gribLenOld);
+ SetLen4(bds, bds_zstart + 3, sourceLen);
+ SetLen4(bds, bds_zstart + 7, destLen);
+ }
+ else
+ {
+ SetLen3(bds, bds_zstart, gribLenOld);
+ SetLen3(bds, bds_zstart + 3, sourceLen);
+ SetLen3(bds, bds_zstart + 6, destLen);
+ }
+
+ int bdsLen = datstart + bds_zoffset + destLen;
+
+ bds[11] = 0;
+ bds[12] = 0;
+
+ BDS_Z = Z_SZIP;
+
+ BDS_Flag += 16;
+ if ((bdsLen % 2) == 1)
+ {
+ BDS_Flag += 8;
+ bds[bdsLen++] = 0;
+ }
+
+ SetLen3(bds, 0, bdsLen);
+
+ gribLen = (bds - dbuf) + bdsLen;
+
+ dbuf[gribLen++] = '7';
+ dbuf[gribLen++] = '7';
+ dbuf[gribLen++] = '7';
+ dbuf[gribLen++] = '7';
+
+ if (llarge)
+ {
+ long bdslen = gribLen - 4;
+
+ /*
+ If a very large product, the section 4 length field holds
+ the number of bytes in the product after section 4 upto
+ the end of the padding bytes.
+ This is a fixup to get round the restriction on product lengths
+ due to the count being only 24 bits. It is only possible because
+ the (default) rounding for GRIB products is 120 bytes.
+ */
+ while (gribLen % 120) dbuf[gribLen++] = 0;
+
+ long itemp = gribLen / (-120);
+ itemp = JP23SET - itemp + 1;
+
+ SetLen3(dbuf, 4, itemp);
+
+ bdslen = gribLen - bdslen;
+
+ SetLen3(bds, 0, bdslen);
+ }
+ else
+ {
+ SetLen3(dbuf, 4, gribLen);
+ }
+ }
+ else
+ {
+ }
+ /*
+ fprintf(stderr, "%3d %3d griblen in %6d out %6d CR %g slen %6d dlen %6d CR %g\n",
+ PDS_Parameter, PDS_Level1, gribLenOld, gribLen,
+ ((double)gribLenOld)/gribLen, sourceLen, destLen,
+ ((double)sourceLen)/destLen);
+ */
+ }
+
+#else
+
+ UNUSED(sbuf);
+ UNUSED(sbufsize);
+
+ if (libszwarn)
+ {
+ Warning("Compression disabled, szlib not available!");
+ libszwarn = 0;
+ }
+#endif
+
+ if (llarge)
+ while (gribLen % 120) dbuf[gribLen++] = 0;
+ else
+ while (gribLen & 7) dbuf[gribLen++] = 0;
+
+ rec_len = (int) gribLen;
+
+ return rec_len;
+}
+
+int
+gribUnzip(unsigned char *dbuf, long dbufsize, unsigned char *sbuf, long sbufsize)
+{
+#if !defined(HAVE_LIBSZ)
+ static int libszwarn = 1;
+#endif
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+ size_t gribLen = 0;
+ size_t destLen, sourceLen;
+ enum
+ {
+ bds_head = 11
+ };
+ int bds_ext = 0;
+
+ UNUSED(dbufsize);
+
+ long gribrecsize;
+ int nerr = grib1Sections(sbuf, sbufsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "GRIB message error\n");
+ return 0;
+ }
+
+ if (nerr > 0)
+ {
+ fprintf(stdout, "GRIB data corrupted!\n");
+ return 0;
+ }
+
+ // unsigned bds_len = BDS_Len;
+ bool llarge = false;
+
+ int bds_zoffset = 12;
+ if (llarge) bds_zoffset += 2;
+
+ int bds_nbits = BDS_NumBits;
+ int bds_flag = BDS_Flag;
+ int lspherc = bds_flag >> 7;
+ int lcomplex = (bds_flag >> 6) & 1;
+ /* lcompress = (bds_flag >> 4)&1; */
+
+ if (lspherc)
+ {
+ if (lcomplex)
+ {
+ int jup = bds[bds_zoffset + 15];
+ int ioff = (jup + 1) * (jup + 2);
+ bds_ext = 4 + 3 + 4 * ioff;
+ }
+ else
+ {
+ bds_ext = 4;
+ }
+ }
+
+ size_t datstart = bds_head + (size_t) bds_ext;
+
+ unsigned char *source = bds + datstart + bds_zoffset;
+ if (llarge)
+ sourceLen = ((size_t) ((bds[21] << 24) + (bds[22] << 16) + (bds[23] << 8) + bds[24]));
+ else
+ sourceLen = ((size_t) ((bds[20] << 16) + (bds[21] << 8) + bds[22]));
+
+ nerr = grib1Sections(dbuf, sbufsize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (nerr < 0)
+ {
+ fprintf(stdout, "GRIB message error\n");
+ return 0;
+ }
+
+ if (nerr > 0)
+ {
+ fprintf(stdout, "GRIB data corrupted!\n");
+ return 0;
+ }
+
+ unsigned char *dest = bds + datstart;
+ if (llarge)
+ destLen = ((size_t) ((bds[17] << 24) + (bds[18] << 16) + (bds[19] << 8) + bds[20]));
+ else
+ destLen = ((size_t) ((bds[17] << 16) + (bds[18] << 8) + bds[19]));
+
+ BDS_Flag = (unsigned char) (BDS_Flag - 16);
+
+ size_t bdsLen = datstart + destLen;
+
+#if defined(HAVE_LIBSZ)
+ {
+ int bds_zstart = 14;
+ unsigned recLen = GET_UINT3(bds[bds_zstart], bds[bds_zstart + 1], bds[bds_zstart + 2]);
+
+ int bits_per_sample = (bds_nbits == 24) ? 8 : bds_nbits;
+
+ SZ_com_t sz_param; /* szip parameter block */
+ sz_param.options_mask = OPTIONS_MASK;
+ sz_param.bits_per_pixel = bits_per_sample;
+ sz_param.pixels_per_block = PIXELS_PER_BLOCK;
+ sz_param.pixels_per_scanline = PIXELS_PER_SCANLINE;
+
+ if (bds_ext)
+ for (long i = 0; i < bds_ext; ++i) bds[bds_head + i] = bds[bds_zoffset + bds_head + i];
+
+ /* fprintf(stderr, "gribUnzip: sourceLen %ld; destLen %ld\n", (long)sourceLen, (long)destLen);
+ fprintf(stderr, "gribUnzip: sourceOff %d; destOff %d\n", bds[12], bds[11]);
+ fprintf(stderr, "gribUnzip: reclen %d; bdslen %d\n", recLen, bdsLen);
+ */
+
+ size_t tmpLen = destLen;
+
+ int status = SZ_BufftoBuffDecompress(dest, &tmpLen, source, sourceLen, &sz_param);
+ if (status != SZ_OK)
+ {
+ if (status == SZ_NO_ENCODER_ERROR)
+ Warning("SZ_NO_ENCODER_ERROR code %3d level %3d", PDS_Parameter, PDS_Level2);
+ else if (status == SZ_PARAM_ERROR)
+ Warning("SZ_PARAM_ERROR code %3d level %3d", PDS_Parameter, PDS_Level2);
+ else if (status == SZ_MEM_ERROR)
+ Warning("SZ_MEM_ERROR code %3d level %3d", PDS_Parameter, PDS_Level2);
+ else if (status == SZ_OUTBUFF_FULL)
+ Warning("SZ_OUTBUFF_FULL code %3d level %3d", PDS_Parameter, PDS_Level2);
+ else
+ Warning("SZ ERROR: %d code %3d level %3d", status, PDS_Parameter, PDS_Level2);
+ }
+ /*
+ fprintf(stderr, "gribUnzip: sl = %ld dl = %ld tl = %ld\n",
+ (long)sourceLen, (long)destLen,(long) tmpLen);
+ */
+ if (tmpLen != destLen)
+ Warning("unzip size differ: code %3d level %3d ibuflen %ld ubuflen %ld", PDS_Parameter, PDS_Level2, (long) destLen,
+ (long) tmpLen);
+
+ if (bds_nbits == 24)
+ {
+ long nelem = tmpLen / 3;
+ unsigned char *pbuf = (unsigned char *) Malloc(tmpLen);
+ for (long i = 0; i < nelem; ++i)
+ {
+ pbuf[3 * i] = dest[i];
+ pbuf[3 * i + 1] = dest[nelem + i];
+ pbuf[3 * i + 2] = dest[2 * nelem + i];
+ }
+ memcpy(dest, pbuf, tmpLen);
+ Free(pbuf);
+ }
+
+ int bds_ubits = BDS_Flag & 15;
+ BDS_Flag -= bds_ubits;
+
+ if ((bdsLen % 2) == 1)
+ {
+ BDS_Flag += 8;
+ bds[bdsLen++] = 0;
+ }
+
+ SetLen3(bds, 0, bdsLen);
+
+ gribLen = (bds - dbuf) + bdsLen;
+
+ dbuf[gribLen++] = '7';
+ dbuf[gribLen++] = '7';
+ dbuf[gribLen++] = '7';
+ dbuf[gribLen++] = '7';
+
+ if (llarge)
+ {
+ long itemp;
+ bdsLen = gribLen - 4;
+ /*
+ If a very large product, the section 4 length field holds
+ the number of bytes in the product after section 4 upto
+ the end of the padding bytes.
+ This is a fixup to get round the restriction on product lengths
+ due to the count being only 24 bits. It is only possible because
+ the (default) rounding for GRIB products is 120 bytes.
+ */
+ while (gribLen % 120) dbuf[gribLen++] = 0;
+
+ if (gribLen != (size_t) recLen) fprintf(stderr, "Internal problem, recLen and gribLen differ!\n");
+
+ itemp = gribLen / (-120);
+ itemp = JP23SET - itemp + 1;
+
+ SetLen3(dbuf, 4, itemp);
+
+ bdsLen = gribLen - bdsLen;
+
+ SetLen3(bds, 0, bdsLen);
+ }
+ else
+ {
+ SetLen3(dbuf, 4, recLen);
+ }
+ /*
+ fprintf(stderr, "recLen, gribLen, bdsLen %d %d %d\n", recLen, gribLen, bdsLen);
+ */
+ if (llarge)
+ while (gribLen % 120) dbuf[gribLen++] = 0;
+ else
+ while (gribLen & 7) dbuf[gribLen++] = 0;
+ /*
+ fprintf(stderr, "recLen, gribLen, bdsLen %d %d %d\n", recLen, gribLen, bdsLen);
+ */
+ }
+#else
+ UNUSED(bds_nbits);
+ UNUSED(sourceLen);
+ UNUSED(source);
+ UNUSED(bdsLen);
+ UNUSED(dest);
+
+ if (libszwarn)
+ {
+ Warning("Decompression disabled, szlib not available!");
+ libszwarn = 0;
+ }
+#endif
+
+ return (int) gribLen;
+}
+#include <stdio.h>
+#include <math.h>
+
+// clang-format off
+
+
+static void
+scm0_double(double *pdl, double *pdr, double *pfl, double *pfr, int klg);
+
+
+static
+int rowina2(double *p, int ko, int ki, double *pw,
+ int kcode, double msval, int *kret)
+{
+ /* System generated locals */
+ int pw_dim1, pw_offset, i_1;
+
+ /* Local variables */
+ double zwt1, zrdi, zpos;
+ int ip;
+ double zdo, zwt;
+
+ /* Parameter adjustments */
+ --p;
+ pw_dim1 = ko + 3;
+ pw_offset = pw_dim1;
+ pw -= pw_offset;
+
+ /* **** ROWINA2 - Interpolation of row of values. */
+ /* Input Parameters. */
+ /* ----------------- */
+ /* P - Row of values to be interpolated. */
+ /* Dimension must be at least KO. */
+ /* KO - Number of values required. */
+ /* KI - Number of values in P on input. */
+ /* PW - Working array. */
+ /* Dimension must be at least (0:KO+2,3). */
+ /* KCODE - Interpolation required. */
+ /* 1 , linear. */
+ /* 3 , cubic. */
+ /* PMSVAL - Value used for missing data indicator. */
+
+ /* Output Parameters. */
+ /* ------------------ */
+ /* P - Now contains KO values. */
+ /* KRET - Return code */
+ /* 0, OK */
+ /* Non-zero, error */
+
+ /* Author. */
+ /* ------- */
+ /* J.D.Chambers ECMWF 22.07.94 */
+
+ /* ******************************** */
+ /* Section 1. Linear interpolation .. */
+ /* ******************************** */
+
+ *kret = 0;
+
+ if ( kcode == 1 )
+ {
+ /* Move input values to work array */
+ for (int jl = 1; jl <= ki; ++jl)
+ pw[jl + pw_dim1] = p[jl];
+
+ /* Arrange wrap-around value in work array */
+ pw[ki + 1 + pw_dim1] = p[1];
+
+ /* Set up constants to be used to figure out weighting for */
+ /* values in interpolation. */
+ zrdi = (double) ki;
+ zdo = 1.0 / (double) ko;
+
+ /* Loop through the output points */
+ for (int jl = 1; jl <= ko; ++jl)
+ {
+
+ /* Calculate weight from the start of row */
+ zpos = (jl - 1) * zdo;
+ zwt = zpos * zrdi;
+
+ /* Get the current array position(minus 1) from the weight - */
+ /* note the implicit truncation. */
+ ip = (int) zwt;
+
+ /* If the left value is missing, use the right value */
+ if ( IS_EQUAL(pw[ip + 1 + pw_dim1], msval) )
+ {
+ p[jl] = pw[ip + 2 + pw_dim1];
+ }
+ /* If the right value is missing, use the left value */
+ else if ( IS_EQUAL(pw[ip + 2 + pw_dim1], msval) )
+ {
+ p[jl] = pw[ip + 1 + pw_dim1];
+ }
+ /* If neither missing, interpolate ... */
+ else
+ {
+
+ /* Adjust the weight to range (0.0 to 1.0) */
+ zwt -= ip;
+
+ /* Interpolate using the weighted values on either side */
+ /* of the output point position */
+ p[jl] = (1.0 - zwt) * pw[ip + 1 + pw_dim1] +
+ zwt * pw[ip + 2 + pw_dim1];
+ }
+ }
+
+ /* ******************************* */
+ /* Section 2. Cubic interpolation .. */
+ /* ******************************* */
+
+ }
+ else if ( kcode == 3 )
+ {
+ i_1 = ki;
+ for (int jl = 1; jl <= i_1; ++jl)
+ {
+ if ( IS_EQUAL(p[jl], msval) )
+ {
+ fprintf(stderr," ROWINA2: ");
+ fprintf(stderr," Cubic interpolation not supported");
+ fprintf(stderr," for fields containing missing data.\n");
+ *kret = 1;
+ goto L900;
+ }
+ pw[jl + pw_dim1] = p[jl];
+ }
+ pw[pw_dim1] = p[ki];
+ pw[ki + 1 + pw_dim1] = p[1];
+ pw[ki + 2 + pw_dim1] = p[2];
+ i_1 = ki;
+ for (int jl = 1; jl <= i_1; ++jl)
+ {
+ pw[jl + (pw_dim1 << 1)] =
+ - pw[jl - 1 + pw_dim1] / 3.0 -
+ pw[jl + pw_dim1] * 0.5 +
+ pw[jl + 1 + pw_dim1] - pw[jl + 2 + pw_dim1] / 6.0;
+ pw[jl + 1 + pw_dim1 * 3] =
+ pw[jl - 1 + pw_dim1] / 6.0 -
+ pw[jl + pw_dim1] +
+ pw[jl + 1 + pw_dim1] * 0.5 +
+ pw[jl + 2 + pw_dim1] / 3.0;
+ }
+
+ scm0_double(&pw[(pw_dim1 << 1) + 1], &pw[pw_dim1 * 3 + 2],
+ &pw[pw_dim1 + 1], &pw[pw_dim1 + 2], ki);
+
+ zrdi = (double) ki;
+ zdo = 1.0 / (double) ko;
+ for (int jl = 1; jl <= ko; ++jl)
+ {
+ zpos = (jl - 1) * zdo;
+ zwt = zpos * zrdi;
+ ip = (int) zwt + 1;
+ zwt = zwt + 1.0 - ip;
+ zwt1 = 1.0 - zwt;
+ p[jl] = ((3.0 - zwt1 * 2.0) * pw[ip + pw_dim1] +
+ zwt * pw[ip + (pw_dim1 << 1)]) * zwt1 * zwt1 +
+ ((3.0 - zwt * 2.0) * pw[ip + 1 + pw_dim1] -
+ zwt1 * pw[ip + 1 + pw_dim1 * 3]) * zwt * zwt;
+ }
+
+ }
+ else
+ {
+ /* ************************************** */
+ /* Section 3. Invalid interpolation code .. */
+ /* ************************************** */
+ fprintf(stderr," ROWINA2:");
+ fprintf(stderr," Invalid interpolation code = %2d\n",kcode);
+ *kret = 2;
+ }
+
+L900:
+ return 0;
+} /* rowina2 */
+
+
+
+int qu2reg2(double *pfield, int *kpoint, int klat, int klon,
+ double *ztemp, double msval, int *kret)
+{
+ /* System generated locals */
+ int i_1, i_2;
+ int kcode = 1;
+
+ /* Local variables */
+ int ilii, ilio, icode;
+ double *zline = NULL;
+ double *zwork = NULL;
+ int iregno, iquano;
+
+
+ zline = (double*) Malloc(2*(size_t)klon*sizeof(double));
+ if ( zline == NULL ) SysError("No Memory!");
+
+ zwork = (double*) Malloc(3*(2*(size_t)klon+3)*sizeof(double));
+ if ( zwork == NULL ) SysError("No Memory!");
+
+ /* Parameter adjustments */
+ --pfield;
+ --kpoint;
+
+/* **** QU2REG - Convert quasi-regular grid data to regular. */
+/* Input Parameters. */
+/* ----------------- */
+/* PFIELD - Array containing quasi-regular grid */
+/* data. */
+/* KPOINT - Array containing list of the number of */
+/* points on each latitude (or longitude) of */
+/* the quasi-regular grid. */
+/* KLAT - Number of latitude lines */
+/* KLON - Number of longitude lines */
+/* KCODE - Interpolation required. */
+/* 1 , linear - data quasi-regular on */
+/* latitude lines. */
+/* 3 , cubic - data quasi-regular on */
+/* latitude lines. */
+/* 11, linear - data quasi-regular on */
+/* longitude lines. */
+/* 13, cubic - data quasi-regular on */
+/* longitude lines. */
+/* PMSVAL - Value used for missing data indicator. */
+/* Output Parameters. */
+/* ------------------ */
+/* KRET - return code */
+/* 0 = OK */
+/* non-zero indicates fatal error */
+/* PFIELD - Array containing regular grid data. */
+/* Author. */
+/* ------- */
+/* J.D.Chambers ECMWF 22.07.94 */
+/* J.D.Chambers ECMWF 13.09.94 */
+/* Add return code KRET and remove calls to ABORT. */
+
+
+/* ------------------------------ */
+/* Section 1. Set initial values. */
+/* ------------------------------ */
+
+ *kret = 0;
+
+/* Check input parameters. */
+
+ if (kcode != 1 && kcode != 3 && kcode != 11 && kcode != 13) {
+ fprintf(stderr," QU2REG :");
+ fprintf(stderr," Invalid interpolation type code = %2d\n",kcode);
+ *kret = 1;
+ goto L900;
+ }
+
+/* Set array indices to 0. */
+
+ ilii = 0;
+ ilio = 0;
+
+/* Establish values of loop parameters. */
+
+ if (kcode > 10) {
+
+/* Quasi-regular along longitude lines. */
+
+ iquano = klon;
+ iregno = klat;
+ icode = kcode - 10;
+ } else {
+
+/* Quasi-regular along latitude lines. */
+
+ iquano = klat;
+ iregno = klon;
+ icode = kcode;
+ }
+
+/* -------------------------------------------------------- */
+/** Section 2. Interpolate field from quasi to regular grid. */
+/* -------------------------------------------------------- */
+
+ i_1 = iquano;
+ for (int j230 = 1; j230 <= i_1; ++j230) {
+
+ if (iregno != kpoint[j230]) {
+
+/* Line contains less values than required,so */
+/* extract quasi-regular grid values for a line */
+
+ i_2 = kpoint[j230];
+ for (int j210 = 1; j210 <= i_2; ++j210) {
+ ++ilii;
+ zline[j210 - 1] = pfield[ilii];
+ }
+
+/* and interpolate this line. */
+
+ rowina2(zline, iregno, kpoint[j230], zwork, icode, msval, kret);
+ if (*kret != 0) goto L900;
+
+/* Add regular grid values for this line to the
+ temporary array. */
+
+ i_2 = iregno;
+ for (int j220 = 1; j220 <= i_2; ++j220) {
+ ++ilio;
+ ztemp[ilio - 1] = zline[j220 - 1];
+ }
+
+ } else {
+
+/* Line contains the required number of values, so add */
+/* this line to the temporary array. */
+
+ i_2 = iregno;
+ for (int j225 = 1; j225 <= i_2; ++j225) {
+ ++ilio;
+ ++ilii;
+ ztemp[ilio - 1] = pfield[ilii];
+ }
+ }
+ }
+
+ /* Copy temporary array to user array. */
+
+ i_1 = klon * klat;
+ for (int j240 = 1; j240 <= i_1; ++j240) {
+ pfield[j240] = ztemp[j240 - 1];
+ }
+
+/* -------------------------------------------------------- */
+/* Section 9. Return to calling routine. Format statements. */
+/* -------------------------------------------------------- */
+
+L900:
+
+ Free(zline);
+ Free(zwork);
+
+ return 0;
+} /* qu2reg2 */
+
+
+
+#ifdef T
+#undef T
+#endif
+#define T double
+#ifdef T
+
+/* calculate_pfactor: source code from grib_api-1.8.0 */
+double TEMPLATE(calculate_pfactor,T)(const T *spectralField, long fieldTruncation, long subsetTruncation)
+{
+ /*long n_vals = ((fieldTruncation+1)*(fieldTruncation+2));*/
+ long loop, index, m, n = 0;
+ double zeps = 1.0e-15;
+ long ismin = (subsetTruncation+1), ismax = (fieldTruncation+1);
+ double weightedSumOverX = 0.0, weightedSumOverY = 0.0, sumOfWeights = 0.0;
+ double numerator = 0.0, denominator = 0.0;
+
+ // Setup the weights
+
+ double range = (double) (ismax - ismin +1);
+
+ double *weights = (double*) Malloc(((size_t)ismax+1)*sizeof(double));
+ for( loop = ismin; loop <= ismax; loop++ )
+ weights[loop] = range / (double) (loop-ismin+1);
+
+ // Compute norms
+ // Handle values 2 at a time (real and imaginary parts).
+ double *norms = (double*) Malloc(((size_t)ismax+1)*sizeof(double));
+
+ for( loop = 0; loop < ismax+1; loop++ ) norms[loop] = 0.0;
+
+ // Form norms for the rows which contain part of the unscaled subset.
+
+ index = -2;
+ for( m = 0; m < subsetTruncation; m++ )
+ for( n = m; n <= fieldTruncation; n++ ) {
+ index += 2;
+ if( n >= subsetTruncation ) {
+ double tval = spectralField[index];
+ tval=tval<0?-tval:tval;
+ norms[n] = norms[n] > tval ? norms[n] : tval;
+ tval = spectralField[index+1];
+ tval=tval<0?-tval:tval;
+ norms[n] = norms[n] > tval ? norms[n] : tval;
+ }
+ }
+
+ // Form norms for the rows which do not contain part of the unscaled subset.
+
+ for( m = subsetTruncation; m <= fieldTruncation; m++ )
+ for( n = m; n <= fieldTruncation; n++ ) {
+ double tval = spectralField[index];
+ index += 2;
+ tval=tval<0?-tval:tval;
+ norms[n] = norms[n] > tval ? norms[n] : tval;
+ tval = spectralField[index+1];
+ tval=tval<0?-tval:tval;
+ norms[n] = norms[n] > tval ? norms[n] : tval;
+ }
+
+ // Ensure the norms have a value which is not too small in case of problems with math functions (e.g. LOG).
+
+ for( loop = ismin; loop <= ismax; loop++ ) {
+ norms[n] = norms[n] > zeps ? norms[n] : zeps;
+ if( IS_EQUAL(norms[n], zeps) ) weights[n] = 100.0 * zeps;
+ }
+
+ // Do linear fit to find the slope
+
+ for( loop = ismin; loop <= ismax; loop++ ) {
+ double x = log( (double) (loop*(loop+1)) );
+ double y = log( norms[loop] );
+ weightedSumOverX += x * weights[loop];
+ weightedSumOverY += y * weights[loop];
+ sumOfWeights = sumOfWeights + weights[loop];
+ }
+ weightedSumOverX /= sumOfWeights;
+ weightedSumOverY /= sumOfWeights;
+
+ // Perform a least square fit for the equation
+
+ for( loop = ismin; loop <= ismax; loop++ ) {
+
+ double x = log( (double)(loop*(loop+1)) );
+ double y = log( norms[loop] );
+ numerator += weights[loop] * (y-weightedSumOverY) * (x-weightedSumOverX);
+ denominator += weights[loop] * ((x-weightedSumOverX) * (x-weightedSumOverX));
+ }
+ double slope = numerator / denominator;
+
+ Free(weights);
+ Free(norms);
+
+ double pFactor = -slope;
+ if( pFactor < -9999.9 ) pFactor = -9999.9;
+ if( pFactor > 9999.9 ) pFactor = 9999.9;
+
+ return pFactor;
+}
+
+void TEMPLATE(scale_complex,T)(T *fpdata, int pcStart, int pcScale, int trunc, int inv)
+{
+
+ if ( pcScale < -10000 || pcScale > 10000 )
+ {
+ fprintf(stderr, " %s: Invalid power given %6d\n", __func__, pcScale);
+ return;
+ }
+
+ // Setup scaling factors = n(n+1)^^p for n = 1 to truncation
+
+ if ( pcScale != 0 )
+ {
+ double *scale = (double*) Malloc(((size_t)trunc+1)*sizeof(double));
+ const double power = (double) pcScale / 1000.;
+ scale[0] = 1.0;
+
+ if (pcScale != 1000)
+ for (int n = 1; n <= trunc; ++n) scale[n] = pow((double) (n*(n+1)), power);
+ else
+ for (int n = 1; n <= trunc; ++n) scale[n] = (double) (n*(n+1));
+
+ if ( inv )
+ for (int n = 1; n <= trunc; ++n) scale[n] = 1.0 / scale[n];
+
+ // Scale the values
+
+ size_t index = 0;
+
+ for (int m = 0; m < pcStart; ++m)
+ for (int n = m; n <= trunc; n++, index += 2)
+ if ( n >= pcStart )
+ {
+ fpdata[index ] = (T)(fpdata[index ] * scale[n]);
+ fpdata[index+1] = (T)(fpdata[index+1] * scale[n]);
+ }
+
+ for (int m = pcStart; m <= trunc; ++m)
+ for (int n = m; n <= trunc; n++, index += 2)
+ {
+ fpdata[index ] = (T)(fpdata[index ] * scale[n]);
+ fpdata[index+1] = (T)(fpdata[index+1] * scale[n]);
+ }
+ Free(scale);
+ }
+}
+
+
+void TEMPLATE(scatter_complex,T)(T *fpdata, int pcStart, int trunc, int nsp)
+{
+ T *fphelp = (T*) Malloc((size_t)nsp*sizeof(T));
+ size_t inext = 0;
+ size_t pcStart_ = pcStart >= 0 ? (size_t)pcStart : 0U;
+ size_t trunc_ = trunc >= 0 ? (size_t)trunc : 0U;
+ for (size_t m = 0, index = 0; m <= pcStart_; ++m)
+ {
+ size_t n_copies = pcStart_ <= trunc_ ? (pcStart_ + 1 - m) * 2 : 0;
+ for (size_t i = 0; i < n_copies; ++i) fphelp[index + i] = fpdata[inext + i];
+ inext += n_copies;
+ index += m <= trunc_ ? (trunc_ - m + 1) * 2 : 0;
+ }
+ for (size_t m = 0, index = 0; m <= trunc_; ++m)
+ {
+ size_t advIdx = m <= pcStart_ ? (pcStart_ - m + 1) * 2 : 0;
+ index += advIdx;
+ size_t copyStart = m > pcStart_ ? m : pcStart_ + 1;
+ size_t n_copies = copyStart <= trunc_ ? (trunc_ - copyStart + 1) * 2 : 0;
+ for (size_t i = 0; i < n_copies; ++i) fphelp[index + i] = fpdata[inext + i];
+ inext += n_copies;
+ index += n_copies;
+ }
+ for (size_t m = 0; m < (size_t)nsp; ++m) fpdata[m] = fphelp[m];
+
+ Free(fphelp);
+}
+
+
+void TEMPLATE(gather_complex,T)(T *fpdata, size_t pcStart, size_t trunc, size_t nsp)
+{
+ T *restrict fphelp = (T*) Malloc(nsp*sizeof(T));
+ size_t inext = 0;
+
+ for (size_t m = 0, index = 0; m <= pcStart; ++m)
+ for (size_t n = m; n <= trunc; ++n)
+ {
+ if ( pcStart >= n )
+ {
+ fphelp[inext++] = fpdata[index];
+ fphelp[inext++] = fpdata[index+1];
+ }
+ index += 2;
+ }
+
+ for (size_t m = 0, index = 0; m <= trunc; ++m)
+ for (size_t n = m; n <= trunc; ++n)
+ {
+ if ( n > pcStart )
+ {
+ fphelp[inext++] = fpdata[index];
+ fphelp[inext++] = fpdata[index+1];
+ }
+ index += 2;
+ }
+
+ for (size_t m = 0; m < nsp; ++m) fpdata[m] = fphelp[m];
+
+ Free(fphelp);
+}
+
+
+static void TEMPLATE(scm0,T)(T *pdl, T *pdr, T *pfl, T *pfr, int klg)
+{
+ /* **** SCM0 - Apply SCM0 limiter to derivative estimates. */
+ /* output: */
+ /* pdl = the limited derivative at the left edge of the interval */
+ /* pdr = the limited derivative at the right edge of the interval */
+ /* inputs */
+ /* pdl = the original derivative at the left edge */
+ /* pdr = the original derivative at the right edge */
+ /* pfl = function value at the left edge of the interval */
+ /* pfr = function value at the right edge of the interval */
+ /* klg = number of intervals where the derivatives are limited */
+
+ /* define constants */
+
+ double zeps = 1.0e-12;
+ double zfac = (1.0 - zeps) * 3.0;
+
+ for (int jl = 0; jl < klg; ++jl)
+ {
+ double r_1;
+ if ( (r_1 = pfr[jl] - pfl[jl], fabs(r_1)) > zeps )
+ {
+ double zalpha = pdl[jl] / (pfr[jl] - pfl[jl]);
+ double zbeta = pdr[jl] / (pfr[jl] - pfl[jl]);
+ if ( zalpha <= 0.0 ) pdl[jl] = 0.0;
+ if ( zbeta <= 0.0 ) pdr[jl] = 0.0;
+ if ( zalpha > zfac ) pdl[jl] = (T)(zfac * (pfr[jl] - pfl[jl]));
+ if ( zbeta > zfac ) pdr[jl] = (T)(zfac * (pfr[jl] - pfl[jl]));
+ }
+ else
+ {
+ pdl[jl] = 0.0;
+ pdr[jl] = 0.0;
+ }
+ }
+} /* scm0 */
+
+static
+int TEMPLATE(rowina3,T)(T *p, int ko, int ki, T *pw,
+ int kcode, T msval, int *kret, int omisng, int operio, int oveggy)
+{
+ /*
+C---->
+C**** ROWINA3 - Interpolation of row of values.
+C
+C Purpose.
+C --------
+C
+C Interpolate a row of values.
+C
+C
+C** Interface.
+C ----------
+C
+C CALL ROWINA3( P, KO, KI, PW, KCODE, PMSVAL, KRET, OMISNG, OPERIO)
+C
+C
+C Input Parameters.
+C -----------------
+C
+C P - Row of values to be interpolated.
+C Dimension must be at least KO.
+C
+C KO - Number of values required.
+C
+C KI - Number of values in P on input.
+C
+C PW - Working array.
+C Dimension must be at least (0:KO+2,3).
+C
+C KCODE - Interpolation required.
+C 1 , linear.
+C 3 , cubic.
+C
+C PMSVAL - Value used for missing data indicator.
+C
+C OMISNG - True if missing values are present in field.
+C
+C OPERIO - True if input field is periodic.
+C
+C OVEGGY - True if 'nearest neighbour' processing must be used
+C for interpolation
+C
+C Output Parameters.
+C ------------------
+C
+C P - Now contains KO values.
+C KRET - Return code
+C 0, OK
+C Non-zero, error
+C
+C
+C Method.
+C -------
+C
+C Linear or cubic interpolation performed as required.
+C
+C Comments.
+C ---------
+C
+C This is a version of ROWINA which allows for missing data
+C values and hence for bitmapped fields.
+C
+C
+C Author.
+C -------
+C
+C J.D.Chambers ECMWF 22.07.94
+C
+C
+C Modifications.
+C --------------
+C
+C J.D.Chambers ECMWF 13.09.94
+C Add return code KRET and remove calls to ABORT.
+C
+C J. Clochard, Meteo France, for ECMWF - January 1998.
+C Addition of OMISNG and OPERIO arguments.
+C
+C
+C -----------------------------------------------------------------
+*/
+ /* System generated locals */
+ int pw_dim1, pw_offset, i_1;
+
+ /* Local variables */
+ int ip;
+ double zwt1, zrdi, zpos;
+ double zdo, zwt;
+
+ UNUSED(omisng);
+
+ /* Parameter adjustments */
+ --p;
+ pw_dim1 = ko + 3;
+ pw_offset = pw_dim1;
+ pw -= pw_offset;
+
+ *kret = 0;
+
+ if ( kcode == 1 )
+ {
+ /* Move input values to work array */
+ for (int jl = 1; jl <= ki; ++jl)
+ pw[jl + pw_dim1] = p[jl];
+
+ if ( operio )
+ {
+ /* Arrange wrap-around value in work array */
+ pw[ki + 1 + pw_dim1] = p[1];
+
+ /* Set up constants to be used to figure out weighting for */
+ /* values in interpolation. */
+ zrdi = (double) ki;
+ zdo = 1.0 / (double) ko;
+ }
+ else
+ {
+ /* Repeat last value, to cope with "implicit truncation" below */
+ pw[ki + 1 + pw_dim1] = p[ki];
+
+ /* Set up constants to be used to figure out weighting for */
+ /* values in interpolation. */
+ zrdi = (double) (ki-1);
+ zdo = 1.0 / (double) (ko-1);
+ }
+
+ /* Loop through the output points */
+ for (int jl = 1; jl <= ko; ++jl)
+ {
+
+ /* Calculate weight from the start of row */
+ zpos = (jl - 1) * zdo;
+ zwt = zpos * zrdi;
+
+ /* Get the current array position(minus 1) from the weight - */
+ /* note the implicit truncation. */
+ ip = (int) zwt;
+
+ /* Adjust the weight to range (0.0 to 1.0) */
+ zwt -= ip;
+
+ /* If 'nearest neighbour' processing must be used */
+ if ( oveggy )
+ {
+ if ( zwt < 0.5 )
+ p[jl] = pw[ip + 1 + pw_dim1];
+ else
+ p[jl] = pw[ip + 2 + pw_dim1];
+ }
+ else
+ {
+ /* If the left value is missing, use the right value */
+ if ( IS_EQUAL(pw[ip + 1 + pw_dim1], msval) )
+ {
+ p[jl] = pw[ip + 2 + pw_dim1];
+ }
+ /* If the right value is missing, use the left value */
+ else if ( IS_EQUAL(pw[ip + 2 + pw_dim1], msval) )
+ {
+ p[jl] = pw[ip + 1 + pw_dim1];
+ }
+ /* If neither missing, interpolate ... */
+ else
+ {
+ /* Interpolate using the weighted values on either side */
+ /* of the output point position */
+ p[jl] = (T)((1.0 - zwt) * pw[ip+1 + pw_dim1]
+ + zwt * pw[ip+2 + pw_dim1]);
+ }
+ }
+ }
+ }
+ else if ( kcode == 3 )
+ {
+ /* ******************************* */
+ /* Section 2. Cubic interpolation .. */
+ /* ******************************* */
+ i_1 = ki;
+ for (int jl = 1; jl <= i_1; ++jl)
+ {
+ if ( IS_EQUAL(p[jl], msval) )
+ {
+ fprintf(stderr," ROWINA3: ");
+ fprintf(stderr," Cubic interpolation not supported");
+ fprintf(stderr," for fields containing missing data.\n");
+ *kret = 1;
+ goto L900;
+ }
+ pw[jl + pw_dim1] = p[jl];
+ }
+ pw[pw_dim1] = p[ki];
+ pw[ki + 1 + pw_dim1] = p[1];
+ pw[ki + 2 + pw_dim1] = p[2];
+ i_1 = ki;
+ for (int jl = 1; jl <= i_1; ++jl)
+ {
+ pw[jl + (pw_dim1 << 1)] =
+ (T)(- pw[jl - 1 + pw_dim1] / 3.0 -
+ pw[jl + pw_dim1] * 0.5 +
+ pw[jl + 1 + pw_dim1] - pw[jl + 2 + pw_dim1] / 6.0);
+ pw[jl + 1 + pw_dim1 * 3] =
+ (T)(pw[jl - 1 + pw_dim1] / 6.0 -
+ pw[jl + pw_dim1] +
+ pw[jl + 1 + pw_dim1] * 0.5 +
+ pw[jl + 2 + pw_dim1] / 3.0);
+ }
+
+ TEMPLATE(scm0,T)(&pw[(pw_dim1 << 1) + 1], &pw[pw_dim1 * 3 + 2],
+ &pw[pw_dim1 + 1], &pw[pw_dim1 + 2], ki);
+
+ zrdi = (double) ki;
+ zdo = 1.0 / (double) ko;
+ for (int jl = 1; jl <= ko; ++jl)
+ {
+ zpos = (jl - 1) * zdo;
+ zwt = zpos * zrdi;
+ ip = (int) zwt + 1;
+ zwt = zwt + 1.0 - ip;
+ zwt1 = 1.0 - zwt;
+ p[jl] = (T)(((3.0 - zwt1 * 2.0) * pw[ip + pw_dim1] +
+ zwt * pw[ip + (pw_dim1 << 1)]) * zwt1 * zwt1 +
+ ((3.0 - zwt * 2.0) * pw[ip + 1 + pw_dim1] -
+ zwt1 * pw[ip + 1 + pw_dim1 * 3]) * zwt * zwt);
+ }
+
+ }
+ else
+ {
+ /* ************************************** */
+ /* Section 3. Invalid interpolation code .. */
+ /* ************************************** */
+ fprintf(stderr," ROWINA3:");
+ fprintf(stderr," Invalid interpolation code = %2d\n",kcode);
+ *kret = 2;
+ }
+
+L900:
+ return 0;
+} /* rowina3 */
+
+
+int TEMPLATE(qu2reg3,T)(T *pfield, int *kpoint, int klat, int klon,
+ T msval, int *kret, int omisng, int operio, int oveggy)
+{
+ /*
+C**** QU2REG3 - Convert quasi-regular grid data to regular.
+C
+C Purpose.
+C --------
+C
+C Convert quasi-regular grid data to regular,
+C using either a linear or cubic interpolation.
+C
+C
+C** Interface.
+C ----------
+C
+C CALL QU2REG3(PFIELD,KPOINT,KLAT,KLON,KCODE,PMSVAL,OMISNG,OPERIO,
+C X OVEGGY)
+C
+C
+C Input Parameters.
+C -----------------
+C
+C PFIELD - Array containing quasi-regular grid data.
+C
+C KPOINT - Array containing list of the number of
+C points on each latitude (or longitude) of
+C the quasi-regular grid.
+C
+C KLAT - Number of latitude lines
+C
+C KLON - Number of longitude lines
+C
+C KCODE - Interpolation required.
+C 1 , linear - data quasi-regular on latitude lines.
+C 3 , cubic - data quasi-regular on latitude lines.
+C 11, linear - data quasi-regular on longitude lines.
+C 13, cubic - data quasi-regular on longitude lines.
+C
+C PMSVAL - Value used for missing data indicator.
+C
+C OMISNG - True if missing values are present in field.
+C
+C OPERIO - True if input field is periodic.
+C
+C OVEGGY - True if 'nearest neighbour' processing must be used
+C for interpolation
+C
+C
+C Output Parameters.
+C ------------------
+C
+C KRET - return code
+C 0 = OK
+C non-zero indicates fatal error
+C
+C
+C Output Parameters.
+C ------------------
+C
+C PFIELD - Array containing regular grid data.
+C
+C
+C Method.
+C -------
+C
+C Data is interpolated and expanded into a temporary array,
+C which is then copied back into the user's array.
+C Returns an error code if an invalid interpolation is requested
+C or field size exceeds array dimensions.
+C
+C Comments.
+C ---------
+C
+C This routine is an adaptation of QU2REG to allow missing data
+C values, and hence bit mapped fields.
+C
+C
+C Author.
+C -------
+C
+C J.D.Chambers ECMWF 22.07.94
+C
+C
+C Modifications.
+C --------------
+C
+C J.D.Chambers ECMWF 13.09.94
+C Add return code KRET and remove calls to ABORT.
+C
+C J.D.Chambers ECMWF Feb 1997
+C Allow for 64-bit pointers
+C
+C J. Clochard, Meteo France, for ECMWF - January 1998.
+C Addition of OMISNG and OPERIO arguments.
+C Fix message for longitude number out of bounds, and routine
+C name in title and formats.
+C
+*/
+ /* System generated locals */
+ int i_1, i_2;
+ int kcode = 1;
+
+ /* Local variables */
+ int ilii, ilio, icode;
+ int iregno, iquano;
+
+ T *ztemp = (T*) Malloc((size_t)klon*(size_t)klat*sizeof(T));
+ T *zline = (T*) Malloc(2*(size_t)klon*sizeof(T));
+ T *zwork = (T*) Malloc(3*(2*(size_t)klon+3)*sizeof(T));
+
+ /* Parameter adjustments */
+ --pfield;
+ --kpoint;
+
+/* ------------------------------ */
+/* Section 1. Set initial values. */
+/* ------------------------------ */
+
+ *kret = 0;
+
+/* Check input parameters. */
+
+ if (kcode != 1 && kcode != 3 && kcode != 11 && kcode != 13) {
+ fprintf(stderr," QU2REG :");
+ fprintf(stderr," Invalid interpolation type code = %2d\n",kcode);
+ *kret = 1;
+ goto L900;
+ }
+
+/* Set array indices to 0. */
+
+ ilii = 0;
+ ilio = 0;
+
+/* Establish values of loop parameters. */
+
+ if (kcode > 10) {
+
+/* Quasi-regular along longitude lines. */
+
+ iquano = klon;
+ iregno = klat;
+ icode = kcode - 10;
+ } else {
+
+/* Quasi-regular along latitude lines. */
+
+ iquano = klat;
+ iregno = klon;
+ icode = kcode;
+ }
+
+/* -------------------------------------------------------- */
+/** Section 2. Interpolate field from quasi to regular grid. */
+/* -------------------------------------------------------- */
+
+ i_1 = iquano;
+ for (int j230 = 1; j230 <= i_1; ++j230) {
+
+ if (iregno != kpoint[j230]) {
+
+/* Line contains less values than required,so */
+/* extract quasi-regular grid values for a line */
+
+ i_2 = kpoint[j230];
+ for (int j210 = 1; j210 <= i_2; ++j210) {
+ ++ilii;
+ zline[j210 - 1] = pfield[ilii];
+ }
+
+/* and interpolate this line. */
+
+ TEMPLATE(rowina3,T)(zline, iregno, kpoint[j230], zwork, icode, msval, kret, omisng, operio , oveggy);
+ if (*kret != 0) goto L900;
+
+/* Add regular grid values for this line to the
+ temporary array. */
+
+ i_2 = iregno;
+ for (int j220 = 1; j220 <= i_2; ++j220) {
+ ++ilio;
+ ztemp[ilio - 1] = zline[j220 - 1];
+ }
+
+ } else {
+
+/* Line contains the required number of values, so add */
+/* this line to the temporary array. */
+
+ i_2 = iregno;
+ for (int j225 = 1; j225 <= i_2; ++j225) {
+ ++ilio;
+ ++ilii;
+ ztemp[ilio - 1] = pfield[ilii];
+ }
+ }
+ }
+
+/* Copy temporary array to user array. */
+
+ i_1 = klon * klat;
+ for (int j240 = 1; j240 <= i_1; ++j240) {
+ pfield[j240] = ztemp[j240 - 1];
+ }
+
+/* -------------------------------------------------------- */
+/* Section 9. Return to calling routine. Format statements. */
+/* -------------------------------------------------------- */
+
+L900:
+
+ Free(zwork);
+ Free(zline);
+ Free(ztemp);
+
+ return 0;
+} /* qu2reg3 */
+
+#endif /* T */
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+#ifdef T
+#undef T
+#endif
+#define T float
+#ifdef T
+
+/* calculate_pfactor: source code from grib_api-1.8.0 */
+double TEMPLATE(calculate_pfactor,T)(const T *spectralField, long fieldTruncation, long subsetTruncation)
+{
+ /*long n_vals = ((fieldTruncation+1)*(fieldTruncation+2));*/
+ long loop, index, m, n = 0;
+ double zeps = 1.0e-15;
+ long ismin = (subsetTruncation+1), ismax = (fieldTruncation+1);
+ double weightedSumOverX = 0.0, weightedSumOverY = 0.0, sumOfWeights = 0.0;
+ double numerator = 0.0, denominator = 0.0;
+
+ // Setup the weights
+
+ double range = (double) (ismax - ismin +1);
+
+ double *weights = (double*) Malloc(((size_t)ismax+1)*sizeof(double));
+ for( loop = ismin; loop <= ismax; loop++ )
+ weights[loop] = range / (double) (loop-ismin+1);
+
+ // Compute norms
+ // Handle values 2 at a time (real and imaginary parts).
+ double *norms = (double*) Malloc(((size_t)ismax+1)*sizeof(double));
+
+ for( loop = 0; loop < ismax+1; loop++ ) norms[loop] = 0.0;
+
+ // Form norms for the rows which contain part of the unscaled subset.
+
+ index = -2;
+ for( m = 0; m < subsetTruncation; m++ )
+ for( n = m; n <= fieldTruncation; n++ ) {
+ index += 2;
+ if( n >= subsetTruncation ) {
+ double tval = spectralField[index];
+ tval=tval<0?-tval:tval;
+ norms[n] = norms[n] > tval ? norms[n] : tval;
+ tval = spectralField[index+1];
+ tval=tval<0?-tval:tval;
+ norms[n] = norms[n] > tval ? norms[n] : tval;
+ }
+ }
+
+ // Form norms for the rows which do not contain part of the unscaled subset.
+
+ for( m = subsetTruncation; m <= fieldTruncation; m++ )
+ for( n = m; n <= fieldTruncation; n++ ) {
+ double tval = spectralField[index];
+ index += 2;
+ tval=tval<0?-tval:tval;
+ norms[n] = norms[n] > tval ? norms[n] : tval;
+ tval = spectralField[index+1];
+ tval=tval<0?-tval:tval;
+ norms[n] = norms[n] > tval ? norms[n] : tval;
+ }
+
+ // Ensure the norms have a value which is not too small in case of problems with math functions (e.g. LOG).
+
+ for( loop = ismin; loop <= ismax; loop++ ) {
+ norms[n] = norms[n] > zeps ? norms[n] : zeps;
+ if( IS_EQUAL(norms[n], zeps) ) weights[n] = 100.0 * zeps;
+ }
+
+ // Do linear fit to find the slope
+
+ for( loop = ismin; loop <= ismax; loop++ ) {
+ double x = log( (double) (loop*(loop+1)) );
+ double y = log( norms[loop] );
+ weightedSumOverX += x * weights[loop];
+ weightedSumOverY += y * weights[loop];
+ sumOfWeights = sumOfWeights + weights[loop];
+ }
+ weightedSumOverX /= sumOfWeights;
+ weightedSumOverY /= sumOfWeights;
+
+ // Perform a least square fit for the equation
+
+ for( loop = ismin; loop <= ismax; loop++ ) {
+
+ double x = log( (double)(loop*(loop+1)) );
+ double y = log( norms[loop] );
+ numerator += weights[loop] * (y-weightedSumOverY) * (x-weightedSumOverX);
+ denominator += weights[loop] * ((x-weightedSumOverX) * (x-weightedSumOverX));
+ }
+ double slope = numerator / denominator;
+
+ Free(weights);
+ Free(norms);
+
+ double pFactor = -slope;
+ if( pFactor < -9999.9 ) pFactor = -9999.9;
+ if( pFactor > 9999.9 ) pFactor = 9999.9;
+
+ return pFactor;
+}
+
+void TEMPLATE(scale_complex,T)(T *fpdata, int pcStart, int pcScale, int trunc, int inv)
+{
+
+ if ( pcScale < -10000 || pcScale > 10000 )
+ {
+ fprintf(stderr, " %s: Invalid power given %6d\n", __func__, pcScale);
+ return;
+ }
+
+ // Setup scaling factors = n(n+1)^^p for n = 1 to truncation
+
+ if ( pcScale != 0 )
+ {
+ double *scale = (double*) Malloc(((size_t)trunc+1)*sizeof(double));
+ const double power = (double) pcScale / 1000.;
+ scale[0] = 1.0;
+
+ if (pcScale != 1000)
+ for (int n = 1; n <= trunc; ++n) scale[n] = pow((double) (n*(n+1)), power);
+ else
+ for (int n = 1; n <= trunc; ++n) scale[n] = (double) (n*(n+1));
+
+ if ( inv )
+ for (int n = 1; n <= trunc; ++n) scale[n] = 1.0 / scale[n];
+
+ // Scale the values
+
+ size_t index = 0;
+
+ for (int m = 0; m < pcStart; ++m)
+ for (int n = m; n <= trunc; n++, index += 2)
+ if ( n >= pcStart )
+ {
+ fpdata[index ] = (T)(fpdata[index ] * scale[n]);
+ fpdata[index+1] = (T)(fpdata[index+1] * scale[n]);
+ }
+
+ for (int m = pcStart; m <= trunc; ++m)
+ for (int n = m; n <= trunc; n++, index += 2)
+ {
+ fpdata[index ] = (T)(fpdata[index ] * scale[n]);
+ fpdata[index+1] = (T)(fpdata[index+1] * scale[n]);
+ }
+ Free(scale);
+ }
+}
+
+
+void TEMPLATE(scatter_complex,T)(T *fpdata, int pcStart, int trunc, int nsp)
+{
+ T *fphelp = (T*) Malloc((size_t)nsp*sizeof(T));
+ size_t inext = 0;
+ size_t pcStart_ = pcStart >= 0 ? (size_t)pcStart : 0U;
+ size_t trunc_ = trunc >= 0 ? (size_t)trunc : 0U;
+ for (size_t m = 0, index = 0; m <= pcStart_; ++m)
+ {
+ size_t n_copies = pcStart_ <= trunc_ ? (pcStart_ + 1 - m) * 2 : 0;
+ for (size_t i = 0; i < n_copies; ++i) fphelp[index + i] = fpdata[inext + i];
+ inext += n_copies;
+ index += m <= trunc_ ? (trunc_ - m + 1) * 2 : 0;
+ }
+ for (size_t m = 0, index = 0; m <= trunc_; ++m)
+ {
+ size_t advIdx = m <= pcStart_ ? (pcStart_ - m + 1) * 2 : 0;
+ index += advIdx;
+ size_t copyStart = m > pcStart_ ? m : pcStart_ + 1;
+ size_t n_copies = copyStart <= trunc_ ? (trunc_ - copyStart + 1) * 2 : 0;
+ for (size_t i = 0; i < n_copies; ++i) fphelp[index + i] = fpdata[inext + i];
+ inext += n_copies;
+ index += n_copies;
+ }
+ for (size_t m = 0; m < (size_t)nsp; ++m) fpdata[m] = fphelp[m];
+
+ Free(fphelp);
+}
+
+
+void TEMPLATE(gather_complex,T)(T *fpdata, size_t pcStart, size_t trunc, size_t nsp)
+{
+ T *restrict fphelp = (T*) Malloc(nsp*sizeof(T));
+ size_t inext = 0;
+
+ for (size_t m = 0, index = 0; m <= pcStart; ++m)
+ for (size_t n = m; n <= trunc; ++n)
+ {
+ if ( pcStart >= n )
+ {
+ fphelp[inext++] = fpdata[index];
+ fphelp[inext++] = fpdata[index+1];
+ }
+ index += 2;
+ }
+
+ for (size_t m = 0, index = 0; m <= trunc; ++m)
+ for (size_t n = m; n <= trunc; ++n)
+ {
+ if ( n > pcStart )
+ {
+ fphelp[inext++] = fpdata[index];
+ fphelp[inext++] = fpdata[index+1];
+ }
+ index += 2;
+ }
+
+ for (size_t m = 0; m < nsp; ++m) fpdata[m] = fphelp[m];
+
+ Free(fphelp);
+}
+
+
+static void TEMPLATE(scm0,T)(T *pdl, T *pdr, T *pfl, T *pfr, int klg)
+{
+ /* **** SCM0 - Apply SCM0 limiter to derivative estimates. */
+ /* output: */
+ /* pdl = the limited derivative at the left edge of the interval */
+ /* pdr = the limited derivative at the right edge of the interval */
+ /* inputs */
+ /* pdl = the original derivative at the left edge */
+ /* pdr = the original derivative at the right edge */
+ /* pfl = function value at the left edge of the interval */
+ /* pfr = function value at the right edge of the interval */
+ /* klg = number of intervals where the derivatives are limited */
+
+ /* define constants */
+
+ double zeps = 1.0e-12;
+ double zfac = (1.0 - zeps) * 3.0;
+
+ for (int jl = 0; jl < klg; ++jl)
+ {
+ double r_1;
+ if ( (r_1 = pfr[jl] - pfl[jl], fabs(r_1)) > zeps )
+ {
+ double zalpha = pdl[jl] / (pfr[jl] - pfl[jl]);
+ double zbeta = pdr[jl] / (pfr[jl] - pfl[jl]);
+ if ( zalpha <= 0.0 ) pdl[jl] = 0.0;
+ if ( zbeta <= 0.0 ) pdr[jl] = 0.0;
+ if ( zalpha > zfac ) pdl[jl] = (T)(zfac * (pfr[jl] - pfl[jl]));
+ if ( zbeta > zfac ) pdr[jl] = (T)(zfac * (pfr[jl] - pfl[jl]));
+ }
+ else
+ {
+ pdl[jl] = 0.0;
+ pdr[jl] = 0.0;
+ }
+ }
+} /* scm0 */
+
+static
+int TEMPLATE(rowina3,T)(T *p, int ko, int ki, T *pw,
+ int kcode, T msval, int *kret, int omisng, int operio, int oveggy)
+{
+ /*
+C---->
+C**** ROWINA3 - Interpolation of row of values.
+C
+C Purpose.
+C --------
+C
+C Interpolate a row of values.
+C
+C
+C** Interface.
+C ----------
+C
+C CALL ROWINA3( P, KO, KI, PW, KCODE, PMSVAL, KRET, OMISNG, OPERIO)
+C
+C
+C Input Parameters.
+C -----------------
+C
+C P - Row of values to be interpolated.
+C Dimension must be at least KO.
+C
+C KO - Number of values required.
+C
+C KI - Number of values in P on input.
+C
+C PW - Working array.
+C Dimension must be at least (0:KO+2,3).
+C
+C KCODE - Interpolation required.
+C 1 , linear.
+C 3 , cubic.
+C
+C PMSVAL - Value used for missing data indicator.
+C
+C OMISNG - True if missing values are present in field.
+C
+C OPERIO - True if input field is periodic.
+C
+C OVEGGY - True if 'nearest neighbour' processing must be used
+C for interpolation
+C
+C Output Parameters.
+C ------------------
+C
+C P - Now contains KO values.
+C KRET - Return code
+C 0, OK
+C Non-zero, error
+C
+C
+C Method.
+C -------
+C
+C Linear or cubic interpolation performed as required.
+C
+C Comments.
+C ---------
+C
+C This is a version of ROWINA which allows for missing data
+C values and hence for bitmapped fields.
+C
+C
+C Author.
+C -------
+C
+C J.D.Chambers ECMWF 22.07.94
+C
+C
+C Modifications.
+C --------------
+C
+C J.D.Chambers ECMWF 13.09.94
+C Add return code KRET and remove calls to ABORT.
+C
+C J. Clochard, Meteo France, for ECMWF - January 1998.
+C Addition of OMISNG and OPERIO arguments.
+C
+C
+C -----------------------------------------------------------------
+*/
+ /* System generated locals */
+ int pw_dim1, pw_offset, i_1;
+
+ /* Local variables */
+ int ip;
+ double zwt1, zrdi, zpos;
+ double zdo, zwt;
+
+ UNUSED(omisng);
+
+ /* Parameter adjustments */
+ --p;
+ pw_dim1 = ko + 3;
+ pw_offset = pw_dim1;
+ pw -= pw_offset;
+
+ *kret = 0;
+
+ if ( kcode == 1 )
+ {
+ /* Move input values to work array */
+ for (int jl = 1; jl <= ki; ++jl)
+ pw[jl + pw_dim1] = p[jl];
+
+ if ( operio )
+ {
+ /* Arrange wrap-around value in work array */
+ pw[ki + 1 + pw_dim1] = p[1];
+
+ /* Set up constants to be used to figure out weighting for */
+ /* values in interpolation. */
+ zrdi = (double) ki;
+ zdo = 1.0 / (double) ko;
+ }
+ else
+ {
+ /* Repeat last value, to cope with "implicit truncation" below */
+ pw[ki + 1 + pw_dim1] = p[ki];
+
+ /* Set up constants to be used to figure out weighting for */
+ /* values in interpolation. */
+ zrdi = (double) (ki-1);
+ zdo = 1.0 / (double) (ko-1);
+ }
+
+ /* Loop through the output points */
+ for (int jl = 1; jl <= ko; ++jl)
+ {
+
+ /* Calculate weight from the start of row */
+ zpos = (jl - 1) * zdo;
+ zwt = zpos * zrdi;
+
+ /* Get the current array position(minus 1) from the weight - */
+ /* note the implicit truncation. */
+ ip = (int) zwt;
+
+ /* Adjust the weight to range (0.0 to 1.0) */
+ zwt -= ip;
+
+ /* If 'nearest neighbour' processing must be used */
+ if ( oveggy )
+ {
+ if ( zwt < 0.5 )
+ p[jl] = pw[ip + 1 + pw_dim1];
+ else
+ p[jl] = pw[ip + 2 + pw_dim1];
+ }
+ else
+ {
+ /* If the left value is missing, use the right value */
+ if ( IS_EQUAL(pw[ip + 1 + pw_dim1], msval) )
+ {
+ p[jl] = pw[ip + 2 + pw_dim1];
+ }
+ /* If the right value is missing, use the left value */
+ else if ( IS_EQUAL(pw[ip + 2 + pw_dim1], msval) )
+ {
+ p[jl] = pw[ip + 1 + pw_dim1];
+ }
+ /* If neither missing, interpolate ... */
+ else
+ {
+ /* Interpolate using the weighted values on either side */
+ /* of the output point position */
+ p[jl] = (T)((1.0 - zwt) * pw[ip+1 + pw_dim1]
+ + zwt * pw[ip+2 + pw_dim1]);
+ }
+ }
+ }
+ }
+ else if ( kcode == 3 )
+ {
+ /* ******************************* */
+ /* Section 2. Cubic interpolation .. */
+ /* ******************************* */
+ i_1 = ki;
+ for (int jl = 1; jl <= i_1; ++jl)
+ {
+ if ( IS_EQUAL(p[jl], msval) )
+ {
+ fprintf(stderr," ROWINA3: ");
+ fprintf(stderr," Cubic interpolation not supported");
+ fprintf(stderr," for fields containing missing data.\n");
+ *kret = 1;
+ goto L900;
+ }
+ pw[jl + pw_dim1] = p[jl];
+ }
+ pw[pw_dim1] = p[ki];
+ pw[ki + 1 + pw_dim1] = p[1];
+ pw[ki + 2 + pw_dim1] = p[2];
+ i_1 = ki;
+ for (int jl = 1; jl <= i_1; ++jl)
+ {
+ pw[jl + (pw_dim1 << 1)] =
+ (T)(- pw[jl - 1 + pw_dim1] / 3.0 -
+ pw[jl + pw_dim1] * 0.5 +
+ pw[jl + 1 + pw_dim1] - pw[jl + 2 + pw_dim1] / 6.0);
+ pw[jl + 1 + pw_dim1 * 3] =
+ (T)(pw[jl - 1 + pw_dim1] / 6.0 -
+ pw[jl + pw_dim1] +
+ pw[jl + 1 + pw_dim1] * 0.5 +
+ pw[jl + 2 + pw_dim1] / 3.0);
+ }
+
+ TEMPLATE(scm0,T)(&pw[(pw_dim1 << 1) + 1], &pw[pw_dim1 * 3 + 2],
+ &pw[pw_dim1 + 1], &pw[pw_dim1 + 2], ki);
+
+ zrdi = (double) ki;
+ zdo = 1.0 / (double) ko;
+ for (int jl = 1; jl <= ko; ++jl)
+ {
+ zpos = (jl - 1) * zdo;
+ zwt = zpos * zrdi;
+ ip = (int) zwt + 1;
+ zwt = zwt + 1.0 - ip;
+ zwt1 = 1.0 - zwt;
+ p[jl] = (T)(((3.0 - zwt1 * 2.0) * pw[ip + pw_dim1] +
+ zwt * pw[ip + (pw_dim1 << 1)]) * zwt1 * zwt1 +
+ ((3.0 - zwt * 2.0) * pw[ip + 1 + pw_dim1] -
+ zwt1 * pw[ip + 1 + pw_dim1 * 3]) * zwt * zwt);
+ }
+
+ }
+ else
+ {
+ /* ************************************** */
+ /* Section 3. Invalid interpolation code .. */
+ /* ************************************** */
+ fprintf(stderr," ROWINA3:");
+ fprintf(stderr," Invalid interpolation code = %2d\n",kcode);
+ *kret = 2;
+ }
+
+L900:
+ return 0;
+} /* rowina3 */
+
+
+int TEMPLATE(qu2reg3,T)(T *pfield, int *kpoint, int klat, int klon,
+ T msval, int *kret, int omisng, int operio, int oveggy)
+{
+ /*
+C**** QU2REG3 - Convert quasi-regular grid data to regular.
+C
+C Purpose.
+C --------
+C
+C Convert quasi-regular grid data to regular,
+C using either a linear or cubic interpolation.
+C
+C
+C** Interface.
+C ----------
+C
+C CALL QU2REG3(PFIELD,KPOINT,KLAT,KLON,KCODE,PMSVAL,OMISNG,OPERIO,
+C X OVEGGY)
+C
+C
+C Input Parameters.
+C -----------------
+C
+C PFIELD - Array containing quasi-regular grid data.
+C
+C KPOINT - Array containing list of the number of
+C points on each latitude (or longitude) of
+C the quasi-regular grid.
+C
+C KLAT - Number of latitude lines
+C
+C KLON - Number of longitude lines
+C
+C KCODE - Interpolation required.
+C 1 , linear - data quasi-regular on latitude lines.
+C 3 , cubic - data quasi-regular on latitude lines.
+C 11, linear - data quasi-regular on longitude lines.
+C 13, cubic - data quasi-regular on longitude lines.
+C
+C PMSVAL - Value used for missing data indicator.
+C
+C OMISNG - True if missing values are present in field.
+C
+C OPERIO - True if input field is periodic.
+C
+C OVEGGY - True if 'nearest neighbour' processing must be used
+C for interpolation
+C
+C
+C Output Parameters.
+C ------------------
+C
+C KRET - return code
+C 0 = OK
+C non-zero indicates fatal error
+C
+C
+C Output Parameters.
+C ------------------
+C
+C PFIELD - Array containing regular grid data.
+C
+C
+C Method.
+C -------
+C
+C Data is interpolated and expanded into a temporary array,
+C which is then copied back into the user's array.
+C Returns an error code if an invalid interpolation is requested
+C or field size exceeds array dimensions.
+C
+C Comments.
+C ---------
+C
+C This routine is an adaptation of QU2REG to allow missing data
+C values, and hence bit mapped fields.
+C
+C
+C Author.
+C -------
+C
+C J.D.Chambers ECMWF 22.07.94
+C
+C
+C Modifications.
+C --------------
+C
+C J.D.Chambers ECMWF 13.09.94
+C Add return code KRET and remove calls to ABORT.
+C
+C J.D.Chambers ECMWF Feb 1997
+C Allow for 64-bit pointers
+C
+C J. Clochard, Meteo France, for ECMWF - January 1998.
+C Addition of OMISNG and OPERIO arguments.
+C Fix message for longitude number out of bounds, and routine
+C name in title and formats.
+C
+*/
+ /* System generated locals */
+ int i_1, i_2;
+ int kcode = 1;
+
+ /* Local variables */
+ int ilii, ilio, icode;
+ int iregno, iquano;
+
+ T *ztemp = (T*) Malloc((size_t)klon*(size_t)klat*sizeof(T));
+ T *zline = (T*) Malloc(2*(size_t)klon*sizeof(T));
+ T *zwork = (T*) Malloc(3*(2*(size_t)klon+3)*sizeof(T));
+
+ /* Parameter adjustments */
+ --pfield;
+ --kpoint;
+
+/* ------------------------------ */
+/* Section 1. Set initial values. */
+/* ------------------------------ */
+
+ *kret = 0;
+
+/* Check input parameters. */
+
+ if (kcode != 1 && kcode != 3 && kcode != 11 && kcode != 13) {
+ fprintf(stderr," QU2REG :");
+ fprintf(stderr," Invalid interpolation type code = %2d\n",kcode);
+ *kret = 1;
+ goto L900;
+ }
+
+/* Set array indices to 0. */
+
+ ilii = 0;
+ ilio = 0;
+
+/* Establish values of loop parameters. */
+
+ if (kcode > 10) {
+
+/* Quasi-regular along longitude lines. */
+
+ iquano = klon;
+ iregno = klat;
+ icode = kcode - 10;
+ } else {
+
+/* Quasi-regular along latitude lines. */
+
+ iquano = klat;
+ iregno = klon;
+ icode = kcode;
+ }
+
+/* -------------------------------------------------------- */
+/** Section 2. Interpolate field from quasi to regular grid. */
+/* -------------------------------------------------------- */
+
+ i_1 = iquano;
+ for (int j230 = 1; j230 <= i_1; ++j230) {
+
+ if (iregno != kpoint[j230]) {
+
+/* Line contains less values than required,so */
+/* extract quasi-regular grid values for a line */
+
+ i_2 = kpoint[j230];
+ for (int j210 = 1; j210 <= i_2; ++j210) {
+ ++ilii;
+ zline[j210 - 1] = pfield[ilii];
+ }
+
+/* and interpolate this line. */
+
+ TEMPLATE(rowina3,T)(zline, iregno, kpoint[j230], zwork, icode, msval, kret, omisng, operio , oveggy);
+ if (*kret != 0) goto L900;
+
+/* Add regular grid values for this line to the
+ temporary array. */
+
+ i_2 = iregno;
+ for (int j220 = 1; j220 <= i_2; ++j220) {
+ ++ilio;
+ ztemp[ilio - 1] = zline[j220 - 1];
+ }
+
+ } else {
+
+/* Line contains the required number of values, so add */
+/* this line to the temporary array. */
+
+ i_2 = iregno;
+ for (int j225 = 1; j225 <= i_2; ++j225) {
+ ++ilio;
+ ++ilii;
+ ztemp[ilio - 1] = pfield[ilii];
+ }
+ }
+ }
+
+/* Copy temporary array to user array. */
+
+ i_1 = klon * klat;
+ for (int j240 = 1; j240 <= i_1; ++j240) {
+ pfield[j240] = ztemp[j240 - 1];
+ }
+
+/* -------------------------------------------------------- */
+/* Section 9. Return to calling routine. Format statements. */
+/* -------------------------------------------------------- */
+
+L900:
+
+ Free(zwork);
+ Free(zline);
+ Free(ztemp);
+
+ return 0;
+} /* qu2reg3 */
+
+#endif /* T */
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+// clang-format on
+#include <string.h>
+
+int
+gribVersion(unsigned char *is, size_t buffersize)
+{
+ if (buffersize < 8) Error("Buffer too small (current size %d)!", (int) buffersize);
+
+ return GRIB_EDITION(is);
+}
+
+static double
+GET_Real(unsigned char *grib)
+{
+ int iexp = GET_UINT1(grib[0]);
+ int imant = (int) (GET_UINT3(grib[1], grib[2], grib[3]));
+
+ return decfp2(iexp, imant);
+}
+
+static size_t
+decodeIS(unsigned char *is, int *isec0, int *iret)
+{
+ // Octets 1 - 4 : The letters G R I B. Four 8 bit fields.
+
+ // Check letters -> GRIB, BUDG or TIDE.
+
+ // Check that 'GRIB' is found where expected.
+ bool lgrib = GRIB_START(is);
+
+ // ECMWF pseudo-grib data uses 'BUDG' and 'TIDE'.
+ bool lbudg = BUDG_START(is);
+ bool ltide = TIDE_START(is);
+
+ // Data is not GRIB or pseudo-grib.
+ if (lgrib == false && lbudg == false && ltide == false)
+ {
+ *iret = 305;
+ gprintf(__func__, "Input data is not GRIB or pseudo-grib.");
+ gprintf(__func__, "Return code = %d", *iret);
+ }
+ if (lbudg || ltide)
+ {
+ *iret = 305;
+ gprintf(__func__, "Pseudo-grib data unsupported.");
+ gprintf(__func__, "Return code = %d", *iret);
+ }
+
+ // Octets 5 - 7 : Length of message. One 24 bit field.
+ ISEC0_GRIB_Len = (int) (GRIB1_SECLEN(is));
+
+ // Octet 8 : GRIB Edition Number. One 8 bit field.
+ ISEC0_GRIB_Version = GRIB_EDITION(is);
+
+ if (ISEC0_GRIB_Version > 1) Error("GRIB version %d unsupported!", ISEC0_GRIB_Version);
+
+ int grib1offset = ISEC0_GRIB_Version * 4;
+
+ size_t isLen = 4 + (size_t) grib1offset;
+
+ return isLen;
+}
+
+static void
+decodePDS_ECMWF_local_Extension_1(unsigned char *pds, int *isec1)
+{
+ isec1[36] = GET_UINT1(pds[40]); /* extension identifier */
+ isec1[37] = GET_UINT1(pds[41]); /* Class */
+ isec1[38] = GET_UINT1(pds[42]); /* Type */
+ isec1[39] = (int) (GET_UINT2(pds[43], pds[44])); /* Stream */
+ /* isec1[40] = GET_UINT4(pds[45],pds[46],pds[47],pds[48]); */
+ memcpy((char *) &isec1[40], &pds[45], 4);
+ isec1[41] = GET_UINT1(pds[49]); /* Forecast number */
+ isec1[42] = GET_UINT1(pds[50]); /* Total number of forecasts */
+}
+
+static void
+decodePDS_DWD_local_Extension_254(unsigned char *pds, int *isec1)
+{
+ isec1[36] = GET_UINT1(pds[40]); /* extension identifier */
+ for (int i = 0; i < 11; ++i) isec1[37 + i] = GET_UINT1(pds[41 + i]);
+
+ int isvn = (int) (GET_UINT2(pds[52], pds[53]));
+
+ isec1[48] = isvn % 0x8000; /* DWD experiment identifier */
+ isec1[49] = isvn >> 15; /* DWD run type (0=main, 2=ass, 3=test) */
+}
+
+static void
+decodePDS_DWD_local_Extension_253(unsigned char *pds, int *isec1)
+{
+ isec1[36] = GET_UINT1(pds[40]); /* extension identifier */
+ for (int i = 0; i < 11; ++i) isec1[37 + i] = GET_UINT1(pds[41 + i]);
+
+ int isvn = (int) (GET_UINT2(pds[52], pds[53]));
+
+ isec1[48] = isvn % 0x8000; /* DWD experiment identifier */
+ isec1[49] = isvn >> 15; /* DWD run type (0=main, 2=ass, 3=test) */
+ isec1[50] = GET_UINT1(pds[54]); /* User id, specified by table */
+ isec1[51] = (int) (GET_UINT2(pds[55], pds[56])); /* Experiment identifier */
+ isec1[52] = (int) (GET_UINT2(pds[57], pds[58])); /* Ensemble identification by table */
+ isec1[53] = (int) (GET_UINT2(pds[59], pds[60])); /* Number of ensemble members */
+ isec1[54] = (int) (GET_UINT2(pds[61], pds[62])); /* Actual number of ensemble member */
+ isec1[55] = GET_UINT1(pds[63]); /* Model major version number */
+ isec1[56] = GET_UINT1(pds[64]); /* Model minor version number */
+}
+
+static void
+decodePDS_MPIM_local_Extension_1(unsigned char *pds, int *isec1)
+{
+ isec1[36] = GET_UINT1(pds[40]); /* extension identifier */
+ isec1[37] = GET_UINT1(pds[41]); /* type of ensemble forecast */
+ isec1[38] = (int) (GET_UINT2(pds[42], pds[43])); /* individual ensemble member */
+ isec1[39] = (int) (GET_UINT2(pds[44], pds[45])); /* number of forecasts in ensemble */
+}
+
+static size_t
+decodePDS(unsigned char *pds, int *isec0, int *isec1)
+{
+ size_t pdsLen = PDS_Len;
+
+ // clang-format off
+ ISEC1_CodeTable = PDS_CodeTable;
+ ISEC1_CenterID = PDS_CenterID;
+ ISEC1_ModelID = PDS_ModelID;
+ ISEC1_GridDefinition = PDS_GridDefinition;
+ ISEC1_Sec2Or3Flag = PDS_Sec2Or3Flag;
+ ISEC1_Parameter = PDS_Parameter;
+ ISEC1_LevelType = PDS_LevelType;
+
+ if ( (ISEC1_LevelType != 20) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_99) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_ISOBARIC) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_ISOBARIC_PA) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_ALTITUDE) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_HEIGHT) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_SIGMA) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_HYBRID) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_LANDDEPTH) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_ISENTROPIC) &&
+ (ISEC1_LevelType != 115) &&
+ (ISEC1_LevelType != 117) &&
+ (ISEC1_LevelType != 125) &&
+ (ISEC1_LevelType != 127) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_SEADEPTH) &&
+ (ISEC1_LevelType != 210) )
+ {
+ ISEC1_Level1 = PDS_Level1;
+ ISEC1_Level2 = PDS_Level2;
+ }
+ else
+ {
+ ISEC1_Level1 = (int)(PDS_Level);
+ ISEC1_Level2 = 0;
+ }
+
+ /* ISEC1_Year = PDS_Year; */
+ ISEC1_Month = PDS_Month;
+ ISEC1_Day = PDS_Day;
+ ISEC1_Hour = PDS_Hour;
+ ISEC1_Minute = PDS_Minute;
+ ISEC1_TimeUnit = PDS_TimeUnit;
+ ISEC1_TimePeriod1 = PDS_TimePeriod1;
+ ISEC1_TimePeriod2 = PDS_TimePeriod2;
+ ISEC1_TimeRange = PDS_TimeRange;
+ ISEC1_AvgNum = (int)(PDS_AvgNum);
+ ISEC1_AvgMiss = PDS_AvgMiss;
+
+ if ( ISEC0_GRIB_Version == 1 )
+ {
+ ISEC1_Year = PDS_Year;
+ ISEC1_Century = PDS_Century;
+ ISEC1_SubCenterID = PDS_Subcenter;
+ ISEC1_DecScaleFactor = PDS_DecimalScale;
+ }
+ else
+ {
+ int year = GET_UINT1(pds[12]);
+ if ( year <= 100 )
+ {
+ ISEC1_Year = year;
+ ISEC1_Century = 1;
+ }
+ else
+ {
+ ISEC1_Year = year%100;
+ ISEC1_Century = 1 + (year-ISEC1_Year)/100;
+ }
+ ISEC1_SubCenterID = 0;
+ ISEC1_DecScaleFactor = 0;
+ }
+
+ if ( ISEC1_Year < 0 )
+ {
+ ISEC1_Year = -ISEC1_Year;
+ ISEC1_Century = -ISEC1_Century;
+ }
+
+ ISEC1_LocalFLag = 0;
+ if ( pdsLen > 28 )
+ {
+ size_t localextlen = pdsLen-28;
+
+ if ( localextlen > 4000 )
+ {
+ Warning("PDS larger than 4000 bytes not supported!");
+ }
+ else
+ {
+ ISEC1_LocalFLag = 1;
+
+ if ( ISEC1_CenterID == 78 || ISEC1_CenterID == 215 || ISEC1_CenterID == 250 )
+ {
+ if ( pds[40] == 254 )
+ decodePDS_DWD_local_Extension_254(pds, isec1);
+ else if ( pds[40] == 253 )
+ decodePDS_DWD_local_Extension_253(pds, isec1);
+ }
+ else if ( (ISEC1_CenterID == 98 && ISEC1_LocalFLag == 1) ||
+ (ISEC1_SubCenterID == 98 && ISEC1_LocalFLag == 1) ||
+ (ISEC1_CenterID == 7 && ISEC1_SubCenterID == 98) )
+ {
+ if ( pds[40] == 1 )
+ decodePDS_ECMWF_local_Extension_1(pds, isec1);
+ }
+ else if ( ISEC1_CenterID == 252 && ISEC1_LocalFLag == 1 )
+ {
+ if ( pds[40] == 1 )
+ decodePDS_MPIM_local_Extension_1(pds, isec1);
+ }
+ else
+ {
+ for ( size_t i = 0; i < localextlen; i++ )
+ isec1[24+i] = pds[28+i];
+ }
+ }
+ }
+ // clang-format on
+
+ return pdsLen;
+}
+
+static void
+gribPrintSec2_double(int *isec0, int *isec2, double *fsec2)
+{
+ gribPrintSec2DP(isec0, isec2, fsec2);
+}
+static void
+gribPrintSec3_double(int *isec0, int *isec3, double *fsec3)
+{
+ gribPrintSec3DP(isec0, isec3, fsec3);
+}
+static void
+gribPrintSec4_double(int *isec0, int *isec4, double *fsec4)
+{
+ gribPrintSec4DP(isec0, isec4, fsec4);
+}
+static void
+gribPrintSec2_float(int *isec0, int *isec2, float *fsec2)
+{
+ gribPrintSec2SP(isec0, isec2, fsec2);
+}
+static void
+gribPrintSec3_float(int *isec0, int *isec3, float *fsec3)
+{
+ gribPrintSec3SP(isec0, isec3, fsec3);
+}
+static void
+gribPrintSec4_float(int *isec0, int *isec4, float *fsec4)
+{
+ gribPrintSec4SP(isec0, isec4, fsec4);
+}
+
+// clang-format off
+
+#ifdef T
+#undef T
+#endif
+#define T double
+#ifdef T
+
+#include <inttypes.h>
+
+static
+void TEMPLATE(decode_array_common,T)(const unsigned char *restrict igrib, long jlend, int NumBits,
+ T fmin, T zscale, T *restrict fpdata)
+{
+ /* code from wgrib routine BDS_unpack */
+ const unsigned char *bits = igrib;
+ unsigned int tbits = 0;
+ int n_bits = NumBits;
+ int t_bits = 0;
+
+ const unsigned jmask = (1U << n_bits) - 1U;
+ for (long i = 0; i < jlend; ++i)
+ {
+ if (n_bits - t_bits > 8)
+ {
+ tbits = (tbits << 16) | ((unsigned)bits[0] << 8) | ((unsigned)bits[1]);
+ bits += 2;
+ t_bits += 16;
+ }
+
+ while ( t_bits < n_bits )
+ {
+ tbits = (tbits * 256) + *bits++;
+ t_bits += 8;
+ }
+ t_bits -= n_bits;
+ fpdata[i] = (float)((tbits >> t_bits) & jmask);
+ }
+ // at least this vectorizes :)
+ for (long i = 0; i < jlend; ++i)
+ fpdata[i] = fmin + zscale*fpdata[i];
+}
+
+static
+void TEMPLATE(decode_array_common2,T)(const unsigned char *restrict igrib, long jlend, int NumBits,
+ T fmin, T zscale, T *restrict fpdata)
+{
+ static const unsigned mask[] = {0,1,3,7,15,31,63,127,255};
+ static const double shift[9] = {1.0, 2.0, 4.0, 8.0, 16.0, 32.0, 64.0, 128.0, 256.0};
+
+ // code from wgrib routine BDS_unpack
+ const unsigned char *bits = igrib;
+ int n_bits = NumBits;
+ int c_bits, j_bits;
+
+ // older unoptimized code, not often used
+ c_bits = 8;
+ for (long i = 0; i < jlend; ++i)
+ {
+ double jj = 0.0;
+ j_bits = n_bits;
+ while (c_bits <= j_bits)
+ {
+ if (c_bits == 8)
+ {
+ jj = jj * 256.0 + (double) (*bits++);
+ j_bits -= 8;
+ }
+ else
+ {
+ jj = (jj * shift[c_bits]) + (double) (*bits & mask[c_bits]);
+ bits++;
+ j_bits -= c_bits;
+ c_bits = 8;
+ }
+ }
+
+ if (j_bits)
+ {
+ c_bits -= j_bits;
+ jj = (jj * shift[j_bits]) + (double) (((unsigned)*bits >> c_bits) & mask[j_bits]);
+ }
+ fpdata[i] = (T)(fmin + zscale*jj);
+ }
+}
+
+static
+void TEMPLATE(decode_array_2byte,T)(size_t jlend, const unsigned char *restrict igrib,
+ T *fpdata, T fmin, T zscale)
+{
+ const uint16_t *restrict sgrib = (const uint16_t *)(const void *)(igrib);
+
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t i = 0; i < jlend; ++i)
+ {
+ fpdata[i] = fmin + zscale * sgrib[i];
+ }
+ }
+ else
+ {
+ for (size_t i = 0; i < jlend; ++i)
+ {
+ uint16_t ui16 = gribSwapByteOrder_uint16(sgrib[i]);
+ fpdata[i] = fmin + zscale * ui16;
+ }
+ }
+}
+
+static
+void TEMPLATE(decode_array,T)(const unsigned char *restrict igrib, long jlend, int numBits,
+ T fmin, T zscale, T *restrict fpdata)
+{
+#if defined _GET_X86_COUNTER || defined _GET_MACH_COUNTER
+ uint64_t start_decode, end_decode;
+#endif
+
+#ifdef VECTORCODE
+ GRIBPACK *lgrib = NULL;
+
+ if ( numBits%8 == 0 )
+ {
+ long jlenc = jlend * numBits / 8;
+ if ( jlenc > 0 )
+ {
+ lgrib = (GRIBPACK*) Malloc(jlenc*sizeof(GRIBPACK));
+ if ( lgrib == NULL ) SysError("No Memory!");
+
+ (void) UNPACK_GRIB(igrib, lgrib, jlenc, -1L);
+ }
+ }
+
+ if ( numBits == 0 )
+ {
+ for (long i = 0; i < jlend; ++i)
+ fpdata[i] = fmin;
+ }
+ else if ( numBits == 8 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (int)lgrib[i];
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 16 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (((int)lgrib[2*i ] << 8) + (int)lgrib[2*i+1]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 24 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (((int)lgrib[3*i ] << 16) + ((int)lgrib[3*i+1] << 8) +
+ (int)lgrib[3*i+2]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 32 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (((unsigned int)lgrib[4*i ] << 24) + ((unsigned int)lgrib[4*i+1] << 16) +
+ ((unsigned int)lgrib[4*i+2] << 8) + (unsigned int)lgrib[4*i+3]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits <= 25 )
+ {
+ TEMPLATE(decode_array_common,T)(igrib, jlend, numBits, fmin, zscale, fpdata);
+ }
+ else if ( numBits > 25 && numBits < 32 )
+ {
+ TEMPLATE(decode_array_common2,T)(igrib, jlend, numBits, fmin, zscale, fpdata);
+ }
+ else
+ {
+ Error("Unimplemented packing factor %d!", numBits);
+ }
+
+ if ( lgrib ) Free(lgrib);
+
+#else
+ if ( numBits == 0 )
+ {
+ for (long i = 0; i < jlend; ++i)
+ fpdata[i] = fmin;
+ }
+ else if ( numBits == 8 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (int)igrib[i];
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 16 )
+ {
+ TEMPLATE(decode_array_2byte,T)((size_t) jlend, igrib, fpdata, fmin, zscale);
+ }
+ else if ( numBits == 24 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (T)(((int)igrib[3*i ] << 16) + ((int)igrib[3*i+1] << 8) +
+ (int)igrib[3*i+2]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 32 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (T)(((unsigned int)igrib[4*i ] << 24) + ((unsigned int)igrib[4*i+1] << 16) +
+ ((unsigned int)igrib[4*i+2] << 8) + (unsigned int)igrib[4*i+3]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits <= 25 )
+ {
+ TEMPLATE(decode_array_common,T)(igrib, jlend, numBits, fmin, zscale, fpdata);
+ }
+ else if ( numBits > 25 && numBits < 32 )
+ {
+ TEMPLATE(decode_array_common2,T)(igrib, jlend, numBits, fmin, zscale, fpdata);
+ }
+ else
+ {
+ Error("Unimplemented packing factor %d!", numBits);
+ }
+#endif
+}
+
+#endif /* T */
+
+/*
+ * Local Variables:
+ * mode: c
+ * End:
+ */
+
+#ifdef T
+#undef T
+#endif
+#define T float
+#ifdef T
+
+#include <inttypes.h>
+
+static
+void TEMPLATE(decode_array_common,T)(const unsigned char *restrict igrib, long jlend, int NumBits,
+ T fmin, T zscale, T *restrict fpdata)
+{
+ /* code from wgrib routine BDS_unpack */
+ const unsigned char *bits = igrib;
+ unsigned int tbits = 0;
+ int n_bits = NumBits;
+ int t_bits = 0;
+
+ const unsigned jmask = (1U << n_bits) - 1U;
+ for (long i = 0; i < jlend; ++i)
+ {
+ if (n_bits - t_bits > 8)
+ {
+ tbits = (tbits << 16) | ((unsigned)bits[0] << 8) | ((unsigned)bits[1]);
+ bits += 2;
+ t_bits += 16;
+ }
+
+ while ( t_bits < n_bits )
+ {
+ tbits = (tbits * 256) + *bits++;
+ t_bits += 8;
+ }
+ t_bits -= n_bits;
+ fpdata[i] = (float)((tbits >> t_bits) & jmask);
+ }
+ // at least this vectorizes :)
+ for (long i = 0; i < jlend; ++i)
+ fpdata[i] = fmin + zscale*fpdata[i];
+}
+
+static
+void TEMPLATE(decode_array_common2,T)(const unsigned char *restrict igrib, long jlend, int NumBits,
+ T fmin, T zscale, T *restrict fpdata)
+{
+ static const unsigned mask[] = {0,1,3,7,15,31,63,127,255};
+ static const double shift[9] = {1.0, 2.0, 4.0, 8.0, 16.0, 32.0, 64.0, 128.0, 256.0};
+
+ // code from wgrib routine BDS_unpack
+ const unsigned char *bits = igrib;
+ int n_bits = NumBits;
+ int c_bits, j_bits;
+
+ // older unoptimized code, not often used
+ c_bits = 8;
+ for (long i = 0; i < jlend; ++i)
+ {
+ double jj = 0.0;
+ j_bits = n_bits;
+ while (c_bits <= j_bits)
+ {
+ if (c_bits == 8)
+ {
+ jj = jj * 256.0 + (double) (*bits++);
+ j_bits -= 8;
+ }
+ else
+ {
+ jj = (jj * shift[c_bits]) + (double) (*bits & mask[c_bits]);
+ bits++;
+ j_bits -= c_bits;
+ c_bits = 8;
+ }
+ }
+
+ if (j_bits)
+ {
+ c_bits -= j_bits;
+ jj = (jj * shift[j_bits]) + (double) (((unsigned)*bits >> c_bits) & mask[j_bits]);
+ }
+ fpdata[i] = (T)(fmin + zscale*jj);
+ }
+}
+
+static
+void TEMPLATE(decode_array_2byte,T)(size_t jlend, const unsigned char *restrict igrib,
+ T *fpdata, T fmin, T zscale)
+{
+ const uint16_t *restrict sgrib = (const uint16_t *)(const void *)(igrib);
+
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t i = 0; i < jlend; ++i)
+ {
+ fpdata[i] = fmin + zscale * sgrib[i];
+ }
+ }
+ else
+ {
+ for (size_t i = 0; i < jlend; ++i)
+ {
+ uint16_t ui16 = gribSwapByteOrder_uint16(sgrib[i]);
+ fpdata[i] = fmin + zscale * ui16;
+ }
+ }
+}
+
+static
+void TEMPLATE(decode_array,T)(const unsigned char *restrict igrib, long jlend, int numBits,
+ T fmin, T zscale, T *restrict fpdata)
+{
+#if defined _GET_X86_COUNTER || defined _GET_MACH_COUNTER
+ uint64_t start_decode, end_decode;
+#endif
+
+#ifdef VECTORCODE
+ GRIBPACK *lgrib = NULL;
+
+ if ( numBits%8 == 0 )
+ {
+ long jlenc = jlend * numBits / 8;
+ if ( jlenc > 0 )
+ {
+ lgrib = (GRIBPACK*) Malloc(jlenc*sizeof(GRIBPACK));
+ if ( lgrib == NULL ) SysError("No Memory!");
+
+ (void) UNPACK_GRIB(igrib, lgrib, jlenc, -1L);
+ }
+ }
+
+ if ( numBits == 0 )
+ {
+ for (long i = 0; i < jlend; ++i)
+ fpdata[i] = fmin;
+ }
+ else if ( numBits == 8 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (int)lgrib[i];
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 16 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (((int)lgrib[2*i ] << 8) + (int)lgrib[2*i+1]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 24 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (((int)lgrib[3*i ] << 16) + ((int)lgrib[3*i+1] << 8) +
+ (int)lgrib[3*i+2]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 32 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (((unsigned int)lgrib[4*i ] << 24) + ((unsigned int)lgrib[4*i+1] << 16) +
+ ((unsigned int)lgrib[4*i+2] << 8) + (unsigned int)lgrib[4*i+3]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits <= 25 )
+ {
+ TEMPLATE(decode_array_common,T)(igrib, jlend, numBits, fmin, zscale, fpdata);
+ }
+ else if ( numBits > 25 && numBits < 32 )
+ {
+ TEMPLATE(decode_array_common2,T)(igrib, jlend, numBits, fmin, zscale, fpdata);
+ }
+ else
+ {
+ Error("Unimplemented packing factor %d!", numBits);
+ }
+
+ if ( lgrib ) Free(lgrib);
+
+#else
+ if ( numBits == 0 )
+ {
+ for (long i = 0; i < jlend; ++i)
+ fpdata[i] = fmin;
+ }
+ else if ( numBits == 8 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (int)igrib[i];
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 16 )
+ {
+ TEMPLATE(decode_array_2byte,T)((size_t) jlend, igrib, fpdata, fmin, zscale);
+ }
+ else if ( numBits == 24 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (T)(((int)igrib[3*i ] << 16) + ((int)igrib[3*i+1] << 8) +
+ (int)igrib[3*i+2]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits == 32 )
+ for (long i = 0; i < jlend; ++i)
+ {
+ T dval = (T)(((unsigned int)igrib[4*i ] << 24) + ((unsigned int)igrib[4*i+1] << 16) +
+ ((unsigned int)igrib[4*i+2] << 8) + (unsigned int)igrib[4*i+3]);
+ fpdata[i] = fmin + zscale * dval;
+ }
+ else if ( numBits <= 25 )
+ {
+ TEMPLATE(decode_array_common,T)(igrib, jlend, numBits, fmin, zscale, fpdata);
+ }
+ else if ( numBits > 25 && numBits < 32 )
+ {
+ TEMPLATE(decode_array_common2,T)(igrib, jlend, numBits, fmin, zscale, fpdata);
+ }
+ else
+ {
+ Error("Unimplemented packing factor %d!", numBits);
+ }
+#endif
+}
+
+#endif /* T */
+
+/*
+ * Local Variables:
+ * mode: c
+ * End:
+ */
+
+
+#ifdef T
+#undef T
+#endif
+#define T double
+#ifdef T
+
+static
+size_t TEMPLATE(decodeGDS,T)(unsigned char *gds, int *isec0, int *isec2, T *fsec2, size_t *numGridVals)
+{
+ // int imisng = 0;
+ bool ReducedGrid = false, VertCoorTab = false;
+#ifdef VECTORCODE
+ unsigned char *igrib;
+ GRIBPACK *lgrib = NULL;
+ size_t lGribLen = 0;
+#endif
+
+ *numGridVals = 0;
+
+ memset(isec2, 0, 22*sizeof(int));
+
+ const unsigned gdsLen = GDS_Len;
+
+ unsigned ipvpl = GDS_PVPL;
+ if ( ipvpl == 0 ) ipvpl = 0xFF;
+
+ if ( ipvpl != 0xFF )
+ { // Either vct or reduced grid
+ if ( GDS_NV != 0 )
+ { // we have vct
+ VertCoorTab = true;
+ const unsigned ipl = 4*GDS_NV + ipvpl - 1;
+ if ( ipl < gdsLen ) ReducedGrid = true;
+ }
+ else
+ {
+ VertCoorTab = false;
+ ReducedGrid = true;
+ }
+ // ReducedGrid = (gdsLen - 32 - 4*GDS_NV);
+ }
+
+ if ( ISEC0_GRIB_Version == 0 ) VertCoorTab = ((gdsLen - 32) > 0);
+
+ if ( ReducedGrid )
+ {
+ const unsigned locnl = GDS_PVPL - 1U + (VertCoorTab * 4U * GDS_NV);
+ const unsigned jlenl = (gdsLen - locnl) >> 1;
+ if ( jlenl == GDS_NumLat )
+ {
+ ISEC2_Reduced = true;
+ size_t accum = 0;
+ for ( size_t i = 0; i < jlenl; ++i )
+ {
+ unsigned rpi = GET_UINT2(gds[locnl+2*i], gds[locnl+2*i+1]);
+ ISEC2_ReducedPoints(i) = (int)rpi;
+ accum += rpi;
+ }
+ *numGridVals = accum;
+ }
+ else
+ {
+ ReducedGrid = false;
+ }
+ }
+
+ ISEC2_GridType = GDS_GridType;
+
+ // Gaussian grid definition.
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_LATLON ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT )
+ {
+ ISEC2_NumLat = (int)(GDS_NumLat);
+ if ( ! ReducedGrid )
+ {
+ ISEC2_NumLon = (int)(GDS_NumLon);
+ *numGridVals = (size_t)ISEC2_NumLon*(size_t)ISEC2_NumLat;
+ }
+ ISEC2_FirstLat = GDS_FirstLat;
+ ISEC2_FirstLon = GDS_FirstLon;
+ ISEC2_ResFlag = GDS_ResFlag;
+ ISEC2_LastLat = GDS_LastLat;
+ ISEC2_LastLon = GDS_LastLon;
+ ISEC2_LonIncr = (int)(GDS_LonIncr);
+
+ ISEC2_NumPar = (int)GDS_NumPar;
+ ISEC2_ScanFlag = GDS_ScanFlag;
+ if ( ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT )
+ {
+ ISEC2_LatSP = GDS_LatSP;
+ ISEC2_LonSP = GDS_LonSP;
+ FSEC2_RotAngle = (T)GDS_RotAngle;
+ }
+ // if ( Lons != Longitudes || Lats != Latitudes ) Error("Latitude/Longitude Conflict");
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN_ROT ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN_STR ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN_ROTSTR )
+ {
+ // iret = decodeGDS_GG(gds, gdspos, isec0, isec2, imisng);
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_LATLON ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_STR ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_ROTSTR )
+ {
+ // iret = decodeGDS_LL(gds, gdspos, isec0, isec2, imisng);
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_LCC )
+ {
+ ISEC2_NumLon = (int)(GDS_NumLon);
+ ISEC2_NumLat = (int)(GDS_NumLat);
+ *numGridVals = (size_t)ISEC2_NumLon*(size_t)ISEC2_NumLat;
+ ISEC2_FirstLat = GDS_FirstLat;
+ ISEC2_FirstLon = GDS_FirstLon;
+ ISEC2_ResFlag = GDS_ResFlag;
+ ISEC2_Lambert_Lov = GDS_Lambert_Lov;
+ ISEC2_Lambert_dx = GDS_Lambert_dx;
+ ISEC2_Lambert_dy = GDS_Lambert_dy;
+ ISEC2_Lambert_LatS1 = GDS_Lambert_LatS1;
+ ISEC2_Lambert_LatS2 = GDS_Lambert_LatS2;
+ ISEC2_Lambert_LatSP = GDS_Lambert_LatSP;
+ ISEC2_Lambert_LonSP = GDS_Lambert_LonSP;
+ ISEC2_Lambert_ProjFlag = GDS_Lambert_ProjFlag;
+ ISEC2_ScanFlag = GDS_ScanFlag;
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_SPECTRAL )
+ {
+ ISEC2_PentaJ = (int)(GDS_PentaJ); // Truncation
+ ISEC2_PentaK = (int)(GDS_PentaK);
+ ISEC2_PentaM = (int)(GDS_PentaM);
+ ISEC2_RepType = GDS_RepType;
+ ISEC2_RepMode = GDS_RepMode;
+ *numGridVals = ((size_t)ISEC2_PentaJ+1)*((size_t)ISEC2_PentaJ+2);
+ isec2[ 6] = 0;
+ isec2[ 7] = 0;
+ isec2[ 8] = 0;
+ isec2[ 9] = 0;
+ isec2[10] = 0;
+ // iret = decodeGDS_SH(gds, gdspos, isec0, isec2, imisng);
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_GME )
+ {
+ ISEC2_GME_NI2 = (int)(GDS_GME_NI2);
+ ISEC2_GME_NI3 = (int)(GDS_GME_NI3);
+ ISEC2_GME_ND = (int)(GDS_GME_ND);
+ ISEC2_GME_NI = (int)(GDS_GME_NI);
+ ISEC2_GME_AFlag = GDS_GME_AFlag;
+ ISEC2_GME_LatPP = GDS_GME_LatPP;
+ ISEC2_GME_LonPP = GDS_GME_LonPP;
+ ISEC2_GME_LonMPL = GDS_GME_LonMPL;
+ ISEC2_GME_BFlag = GDS_GME_BFlag;
+ *numGridVals = ((size_t)ISEC2_GME_NI+1)*((size_t)ISEC2_GME_NI+1)*10;
+ // iret = decodeGDS_TR(gds, gdspos, isec0, isec2, imisng);
+ }
+ else
+ {
+ static bool lwarn = true;
+ unsigned nlon = GDS_NumLon, nlat = GDS_NumLat;
+ ISEC2_NumLon = (int)nlon;
+ ISEC2_NumLat = (int)nlat;
+ *numGridVals = (size_t)nlon*(size_t)nlat;
+ if ( lwarn )
+ {
+ lwarn = false;
+ Message("GRIB gridtype %d unsupported", ISEC2_GridType);
+ }
+ }
+
+ // Vertical coordinate parameters for hybrid levels.
+ // Get number of vertical coordinate parameters, if any.
+
+ ISEC2_NumVCP = 0;
+
+ isec2[17] = 0;
+ isec2[18] = 0;
+
+ if ( VertCoorTab )
+ {
+ int locnv;
+ if ( ISEC0_GRIB_Version == 0 )
+ {
+ locnv = 32;
+ ISEC2_NumVCP = ((int)gdsLen - 32) >> 2;
+ }
+ else
+ {
+ locnv = (int)GDS_PVPL - 1;
+ ISEC2_NumVCP = GDS_NV;
+ }
+#if defined (SX)
+ lGribLen = 4*ISEC2_NumVCP;
+ lgrib = (GRIBPACK*) Malloc(lGribLen*sizeof(GRIBPACK));
+
+ igrib = &gds[locnv];
+ if ( ISEC2_NumVCP > 0 ) (void) UNPACK_GRIB(igrib, lgrib, lGribLen, -1L);
+ for (int i = 0; i < ISEC2_NumVCP; ++i)
+ {
+ const int iexp = lgrib[4*i];
+ const int imant = GET_UINT3(lgrib[4*i+1], lgrib[4*i+2], lgrib[4*i+3]);
+ fsec2[10+i] = POW_2_M24 * imant * ldexp(1.0, 4 * (iexp - 64));
+ }
+
+ Free(lgrib);
+#else
+ for (int i = 0; i < ISEC2_NumVCP; ++i)
+ {
+ const int iexp = gds[locnv+4*i];
+ const int imant = (int)(GET_UINT3(gds[locnv+4*i+1], gds[locnv+4*i+2], gds[locnv+4*i+3]));
+ fsec2[10+i] = (T)decfp2(iexp,imant);
+ }
+#endif
+ }
+
+ return gdsLen;
+}
+
+#define ldexp_double ldexp
+#define ldexp_float ldexpf
+#define pow_double pow
+#define pow_float powf
+
+static
+void TEMPLATE(decodeBDS,T)(int decscale, unsigned char *bds, int *isec2, int *isec4,
+ T *fsec4, int fsec4len, int dfunc, size_t bdsLen, size_t numGridVals, int *iret)
+{
+ size_t ioff = 0;
+ enum { bds_head = 11 };
+ T zscale = 0.;
+ T fmin = 0.;
+ T *fpdata = fsec4;
+
+ *iret = 0;
+ unsigned char *igrib = bds;
+
+ memset(isec4, 0, 42*sizeof(int));
+
+ // 4 bit flag / 4 bit count of unused bits at end of block octet.
+
+ const int bds_flag = BDS_Flag;
+
+ // 0------- grid point
+ // 1------- spherical harmonics
+
+ const bool lspherc = (bds_flag >> 7)&1;
+ if ( lspherc ) isec4[2] = 128;
+ else isec4[2] = 0;
+
+ // -0------ simple packing
+ // -1------ complex packing
+
+ const bool lcomplex = (bds_flag >> 6)&1;
+ if ( lcomplex ) isec4[3] = 64;
+ else isec4[3] = 0;
+
+ // ---0---- No additional flags
+ // ---1---- No additional flags
+
+ const bool lcompress = (bds_flag >> 4)&1;
+
+ unsigned zoff;
+ if ( lcompress )
+ { isec4[5] = 16; isec4[6] = BDS_Z; zoff = 12; }
+ else
+ { isec4[5] = 0; isec4[6] = 0; zoff = 0; }
+
+ // ----++++ number of unused bits at end of section)
+
+ const unsigned bds_ubits = bds_flag & 0xF;
+
+ // scale factor (2 bytes)
+ const int jscale = BDS_BinScale;
+
+ // check for missing data indicators.
+
+ const int iexp = bds[ 6];
+ const int imant = (int)(GET_UINT3(bds[ 7], bds[ 8], bds[ 9]));
+
+ const int imiss = (jscale == 0xFFFF && iexp == 0xFF && imant == 0xFFFFFF);
+
+ // convert reference value and scale factor.
+
+ if ( ! (dfunc == 'J') && imiss == 0 )
+ {
+ fmin = (T)BDS_RefValue;
+ zscale = TEMPLATE(ldexp,T)((T)1.0, jscale);
+ }
+
+ // get number of bits in each data value.
+
+ unsigned dvbits = BDS_NumBits;
+ ISEC4_NumBits = BDS_NumBits;
+
+ // octet number of start of packed data calculated from start of block 4 - 1
+
+ size_t locnd = zoff + bds_head;
+
+ // if data is in spherical harmonic form, distinguish between simple/complex packing (lcomplex = 0/1)
+
+ if ( lspherc )
+ {
+ if ( !lcomplex )
+ {
+ // no unpacked binary data present octet number of start of packed data
+ // calculated from start of block 4 - 1
+
+ ioff = 1;
+ locnd += 4*ioff; // RealCoef
+
+ // get real (0,0) coefficient in grib format and convert to floating point.
+ if ( dfunc != 'J' )
+ {
+ if ( imiss ) *fpdata++ = 0.0;
+ else *fpdata++ = (T)BDS_RealCoef;
+ }
+ }
+ else // complex packed spherical harmonics
+ {
+ isec4[15] = BDS_PackData;
+ // scaling factor
+ isec4[16] = BDS_Power;
+
+ // pentagonal resolution parameters of the unpacked section of data field
+
+ const int jup = bds[zoff+15];
+ const int kup = bds[zoff+16];
+ const int mup = bds[zoff+17];
+
+ isec4[zoff+17] = jup;
+ isec4[zoff+18] = kup;
+ isec4[zoff+19] = mup;
+
+ // unpacked binary data
+
+ locnd += 4; // 2 + power
+ locnd += 3; // j, k, m
+ ioff = ((size_t)jup+1)*((size_t)jup+2);
+
+ if ( dfunc != 'J' )
+ for ( size_t i = 0; i < ioff; ++i )
+ {
+ if ( imiss )
+ fpdata[i] = 0.0;
+ else
+ {
+ const int iexp2 = (int)(bds[locnd+4*i]);
+ const int imant2 = (int)(GET_UINT3(bds[locnd+4*i+1], bds[locnd+4*i+2], bds[locnd+4*i+3]));
+ fpdata[i] = (T)decfp2(iexp2,imant2);
+ }
+ }
+ fpdata += ioff;
+ locnd += 4*ioff; /* RealCoef */
+ }
+ }
+ else
+ {
+ if ( lcomplex )
+ {
+ *iret = 1999;
+ gprintf(__func__, " Second order packed grids unsupported!");
+ gprintf(__func__, " Return code = %d", *iret);
+ return;
+ }
+ }
+
+ // Decode data values to floating point and store in fsec4.
+ // First calculate the number of data values.
+ // Take into account that spherical harmonics can be packed
+ // simple (lcomplex = 0) or complex (lcomplex = 1)
+
+ size_t jlend = bdsLen - locnd;
+
+ if ( dvbits == 0 )
+ {
+ if ( jlend > 1 )
+ {
+ *iret = 2001;
+ gprintf(__func__, " Number of bits per data value = 0!");
+ gprintf(__func__, " Return code = %d", *iret);
+ return;
+ }
+
+ if ( numGridVals == 0 )
+ {
+ *iret = 2002;
+ gprintf(__func__, " Constant field unsupported for this grid type!");
+ gprintf(__func__, " Return code = %d", *iret);
+ return;
+ }
+
+ jlend = numGridVals - ioff;
+ }
+ else
+ {
+ jlend = (jlend*8 - bds_ubits) / dvbits;
+ }
+
+ ISEC4_NumValues = (int)(jlend + ioff);
+ ISEC4_NumNonMissValues = 0;
+
+ if ( lcompress )
+ {
+ const size_t len = ((size_t) ((bds[17]<<16)+(bds[18]<<8)+bds[19]));
+
+ ISEC4_NumValues = (int)(len*8/dvbits);
+
+ if ( lspherc ) ISEC4_NumValues += lcomplex ? (int)ioff : 1;
+ }
+
+ if ( dfunc == 'J' ) return;
+
+ // check length of output array.
+
+ if ( ISEC4_NumValues > fsec4len )
+ {
+ *iret = 710;
+ gprintf(__func__, " Output array too small. Length = %d", fsec4len);
+ gprintf(__func__, " Number of values = %d", ISEC4_NumValues);
+ gprintf(__func__, " Return code = %d", *iret);
+ return;
+ }
+
+ if ( imiss ) memset((char *)fpdata, 0, jlend*sizeof(T));
+ else
+ {
+ igrib += locnd;
+
+ TEMPLATE(decode_array,T)(igrib, (long)jlend, ISEC4_NumBits, fmin, zscale, fpdata);
+ }
+
+ if ( lspherc && lcomplex )
+ {
+ int pcStart = isec4[19], pcScale = isec4[16];
+ TEMPLATE(scatter_complex,T)(fsec4, pcStart, ISEC2_PentaJ, ISEC4_NumValues);
+ TEMPLATE(scale_complex,T)(fsec4, pcStart, pcScale, ISEC2_PentaJ, 1);
+ }
+
+ if ( CGRIBEX_Fix_ZSE ) // Fix ZeroShiftError of simple packed spherical harmonics
+ if ( lspherc && !lcomplex )
+ {
+ // 20100705: Fix ZeroShiftError - Edi Kirk
+ if ( IS_NOT_EQUAL(fsec4[1], 0.0) )
+ {
+ const T zserr = fsec4[1];
+ for (int i = 1; i < ISEC4_NumValues; ++i) fsec4[i] -= zserr;
+ }
+ }
+
+ if ( decscale )
+ {
+ const T scale = TEMPLATE(pow,T)((T)10.0, (T)-decscale);
+ for (int i = 0; i < ISEC4_NumValues; ++i) fsec4[i] *= scale;
+ }
+}
+
+
+void TEMPLATE(grib_decode,T)(int *isec0, int *isec1, int *isec2, T *fsec2, int *isec3,
+ T *fsec3, int *isec4, T *fsec4, int fsec4len, int *kgrib,
+ int kleng, int *kword, int dfunc, int *iret)
+{
+ UCHAR *bms = NULL;
+ bool lsect2 = false, lsect3 = false;
+ static bool lmissvalinfo = true;
+
+ UNUSED(kleng);
+
+ *iret = 0;
+
+ grsdef();
+
+ ISEC2_Reduced = false;
+
+ // ----------------------------------------------------------------
+ // IS Indicator Section (Section 0)
+ // ----------------------------------------------------------------
+ UCHAR *is = (UCHAR *) &kgrib[0];
+ size_t isLen = decodeIS(is, isec0, iret);
+
+ size_t gribLen = (size_t)ISEC0_GRIB_Len;
+
+ /*
+ When decoding or calculating length, previous editions
+ of the GRIB code must be taken into account.
+
+ In the table below, covering sections 0 and 1 of the GRIB
+ code, octet numbering is from the beginning of the GRIB
+ message;
+ * indicates that the value is not available in the code edition;
+ R indicates reserved, should be set to 0;
+ Experimental edition is considered as edition -1.
+
+ GRIB code edition -1 has fixed length of 20 octets for
+ section 1, the length not included in the message.
+ GRIB code edition 0 has fixed length of 24 octets for
+ section 1, the length being included in the message.
+ GRIB code edition 1 can have different lengths for section
+ 1, the minimum being 28 octets, length being included in
+ the message.
+
+ Octet numbers for code
+ editions
+
+ Contents. -1 0 1
+ --------- ----------------------
+ Letters GRIB 1-4 1-4 1-4
+ Total length of GRIB message. * * 5-7
+ GRIB code edition number * * 8
+ Length of Section 1. * 5-7 9-11
+ Reserved octet (R). * 8(R) *
+ Version no. of Code Table 2. * * 12
+ Identification of centre. 5 9 13
+ Generating process. 6 10 14
+ Grid definition . 7 11 15
+ Flag (Code Table 1). 8 12 16
+ Indicator of parameter. 9 13 17
+ Indicator of type of level. 10 14 18
+ Height, pressure etc of levels. 11-12 15-16 19-20
+ Year of century. 13 17 21
+ Month. 14 18 22
+ Day. 15 19 23
+ Hour. 16 20 24
+ Minute. 17 21 25
+ Indicator of unit of time. 18 22 26
+ P1 - Period of time. 19 23 27
+ P2 - Period of time 20(R) 24 28
+ or reserved octet (R).
+ Time range indicator. 21(R) 25 29
+ or reserved octet (R).
+ Number included in average. 22-23(R) 26-27 30-31
+ or reserved octet (R).
+ Number missing from average. 24(R) 28(R) 32
+ or reserved octet (R).
+ Century of data. * * 33
+ Designates sub-centre if not 0. * * 34
+ Decimal scale factor. * * 35-36
+ Reserved. Set to 0. * * 37-48
+ (Need not be present)
+ For originating centre use only. * * 49-nn
+ (Need not be present)
+
+ Identify which GRIB code edition is being decoded.
+
+ In GRIB edition 1, the edition number is in octet 8.
+ In GRIB edition 0, octet 8 is reserved and set to 0.
+ In GRIB edition -1, octet 8 is a flag field and can have a
+ a valid value of 0, 1, 2 or 3.
+
+ However, GRIB edition number 0 has a fixed
+ length of 24, included in the message, for section 1, so
+ if the value extracted from octets 5-7 is 24 and that from
+ octet 8 is 0, it is safe to assume edition 0 of the code.
+
+ */
+
+ // Set length of GRIB message to missing data value.
+ if ( ISEC0_GRIB_Len == 24 && ISEC0_GRIB_Version == 0 ) ISEC0_GRIB_Len = 0;
+
+ // ----------------------------------------------------------------
+ // PDS Product Definition Section (Section 1)
+ // ----------------------------------------------------------------
+ UCHAR *pds = is + isLen;
+ size_t pdsLen = decodePDS(pds, isec0, isec1);
+
+ // ----------------------------------------------------------------
+ // GDS Grid Description Section (Section 2)
+ // ----------------------------------------------------------------
+ size_t numGridVals = 0;
+ size_t gdsLen = 0;
+ const bool gdsIncluded = ISEC1_Sec2Or3Flag & 128;
+ if ( gdsIncluded )
+ {
+ UCHAR *gds = is + isLen + pdsLen;
+ gdsLen = TEMPLATE(decodeGDS,T)(gds, isec0, isec2, fsec2, &numGridVals);
+ }
+
+ // ----------------------------------------------------------------
+ // BMS Bit-Map Section Section (Section 3)
+ // ----------------------------------------------------------------
+ isec3[0] = 0;
+ size_t bmsLen = 0, bitmapSize = 0, imaskSize = 0;
+ const bool bmsIncluded = ISEC1_Sec2Or3Flag & 64;
+ if ( bmsIncluded )
+ {
+ bms = is + isLen + pdsLen + gdsLen;
+ bmsLen = BMS_Len;
+
+ imaskSize = (bmsLen > 6) ? (bmsLen - 6)<<3 : 0;
+ bitmapSize = imaskSize - BMS_UnusedBits;
+ }
+
+ // ----------------------------------------------------------------
+ // BDS Binary Data Section (Section 4)
+ // ----------------------------------------------------------------
+ UCHAR *bds = is + isLen + pdsLen + gdsLen + bmsLen;
+ unsigned bdsLen = BDS_Len;
+ /*
+ If a very large product, the section 4 length field holds
+ the number of bytes in the product after section 4 upto
+ the end of the padding bytes.
+ This is a fixup to get round the restriction on product lengths
+ due to the count being only 24 bits. It is only possible because
+ the (default) rounding for GRIB products is 120 bytes.
+ */
+ const bool llarge = (gribLen > JP23SET && bdsLen <= 120);
+ if ( llarge )
+ {
+ gribLen &= JP23SET;
+ gribLen *= 120;
+ ISEC0_GRIB_Len = (int)gribLen;
+ bdsLen = correct_bdslen(bdsLen, (int)gribLen, (long)(isLen+pdsLen+gdsLen+bmsLen));
+ }
+
+ TEMPLATE(decodeBDS,T)(ISEC1_DecScaleFactor, bds, isec2, isec4, fsec4, fsec4len, dfunc, bdsLen, numGridVals, iret);
+
+ if ( *iret != 0 ) return;
+
+ ISEC4_NumNonMissValues = ISEC4_NumValues;
+
+ if ( bitmapSize > 0 )
+ {
+ if ( dfunc != 'L' && dfunc != 'J' )
+ if ( DBL_IS_NAN(FSEC3_MissVal) && lmissvalinfo )
+ {
+ lmissvalinfo = false;
+ FSEC3_MissVal = (T)GRIB_MISSVAL;
+ Message("Missing value = NaN is unsupported, set to %g!", GRIB_MISSVAL);
+ }
+
+ // ISEC4_NumNonMissValues = ISEC4_NumValues;
+ ISEC4_NumValues = (int)bitmapSize;
+
+ if ( dfunc != 'J' || bitmapSize == (size_t)ISEC4_NumNonMissValues )
+ {
+ GRIBPACK bitmap;
+ /*
+ unsigned char *bitmap;
+ bitmap = BMS_Bitmap;
+ int j = ISEC4_NumNonMissValues;
+ for (int i = ISEC4_NumValues-1; i >= 0; --i)
+ {
+ fsec4[i] = ((bitmap[i/8]>>(7-(i&7)))&1) ? fsec4[--j] : FSEC3_MissVal;
+ }
+ */
+
+ GRIBPACK *imask = (GRIBPACK*) Malloc((size_t)imaskSize*sizeof(GRIBPACK));
+
+#ifdef VECTORCODE
+ (void) UNPACK_GRIB(BMS_Bitmap, imask, imaskSize/8, -1L);
+ GRIBPACK *pbitmap = imask;
+#else
+ GRIBPACK *pbitmap = BMS_Bitmap;
+#endif
+
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for ( size_t i = imaskSize/8-1; i != (size_t)-1; --i )
+ {
+ bitmap = pbitmap[i];
+ imask[i*8+0] = 1 & (bitmap >> 7);
+ imask[i*8+1] = 1 & (bitmap >> 6);
+ imask[i*8+2] = 1 & (bitmap >> 5);
+ imask[i*8+3] = 1 & (bitmap >> 4);
+ imask[i*8+4] = 1 & (bitmap >> 3);
+ imask[i*8+5] = 1 & (bitmap >> 2);
+ imask[i*8+6] = 1 & (bitmap >> 1);
+ imask[i*8+7] = 1 & (bitmap);
+ }
+
+ int j = 0;
+ for (int i = 0; i < ISEC4_NumValues; ++i)
+ if ( imask[i] ) j++;
+
+ if ( ISEC4_NumNonMissValues != j )
+ {
+ if ( dfunc != 'J' && ISEC4_NumBits != 0 )
+ Warning("Bitmap (%d) and data (%d) section differ, using bitmap section!", j, ISEC4_NumNonMissValues);
+
+ ISEC4_NumNonMissValues = j;
+ }
+
+ if ( dfunc != 'J' )
+ {
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (int i = ISEC4_NumValues-1; i >= 0; --i)
+ fsec4[i] = imask[i] ? fsec4[--j] : FSEC3_MissVal;
+ }
+
+ Free(imask);
+ }
+ }
+
+ if ( ISEC2_Reduced )
+ {
+ int nvalues = 0;
+ int nlat = ISEC2_NumLat;
+ int nlon = ISEC2_ReducedPointsPtr[0];
+ for (int ilat = 0; ilat < nlat; ++ilat) nvalues += ISEC2_ReducedPoints(ilat);
+ for (int ilat = 1; ilat < nlat; ++ilat)
+ if ( ISEC2_ReducedPoints(ilat) > nlon ) nlon = ISEC2_ReducedPoints(ilat);
+
+ // int dlon = ISEC2_LastLon-ISEC2_FirstLon;
+ // if ( dlon < 0 ) dlon += 360000;
+
+ if ( nvalues != ISEC4_NumValues ) *iret = -801;
+
+ //printf("nlat %d nlon %d \n", nlat, nlon);
+ //printf("nvalues %d %d\n", nvalues, ISEC4_NumValues);
+
+ if ( dfunc == 'R' && *iret == -801 )
+ gprintf(__func__, "Number of values (%d) and sum of lons per row (%d) differ, abort conversion to regular Gaussian grid!",
+ ISEC4_NumValues, nvalues);
+
+ if ( dfunc == 'R' && *iret != -801 )
+ {
+ ISEC2_Reduced = 0;
+ ISEC2_NumLon = nlon;
+ ISEC4_NumValues = nlon*nlat;
+
+ lsect3 = bitmapSize > 0;
+ int lperio = 1;
+ int lveggy = (ISEC1_CodeTable == 128) && (ISEC1_CenterID == 98) &&
+ ((ISEC1_Parameter == 27) || (ISEC1_Parameter == 28) ||
+ (ISEC1_Parameter == 29) || (ISEC1_Parameter == 30) ||
+ (ISEC1_Parameter == 39) || (ISEC1_Parameter == 40) ||
+ (ISEC1_Parameter == 41) || (ISEC1_Parameter == 42) ||
+ (ISEC1_Parameter == 43));
+
+ (void) TEMPLATE(qu2reg3,T)(fsec4, ISEC2_ReducedPointsPtr, nlat, nlon, FSEC3_MissVal, iret, lsect3, lperio, lveggy);
+
+ if ( bitmapSize > 0 )
+ {
+ int j = 0;
+ for (int i = 0; i < ISEC4_NumValues; ++i)
+ if ( IS_NOT_EQUAL(fsec4[i], FSEC3_MissVal) ) j++;
+
+ ISEC4_NumNonMissValues = j;
+ }
+ }
+ }
+
+ if ( ISEC0_GRIB_Version == 1 ) isLen = 8;
+ enum { esLen = 4 };
+ gribLen = isLen + pdsLen + gdsLen + bmsLen + bdsLen + esLen;
+
+ if ( !llarge && ISEC0_GRIB_Len && (size_t)ISEC0_GRIB_Len < gribLen )
+ Warning("Inconsistent length of GRIB message (grib_message_size=%d < grib_record_size=%zu)!", ISEC0_GRIB_Len, gribLen);
+
+ ISEC0_GRIB_Len = (int)gribLen;
+
+ *kword = (int)((gribLen + sizeof(int) - 1) / sizeof(int));
+
+ // ----------------------------------------------------------------
+ // Section 9 . Abort/return to calling routine.
+ // ----------------------------------------------------------------
+ bool ldebug = false, l_iorj = false;
+ if ( ldebug )
+ {
+ gprintf(__func__, "Section 9.");
+ gprintf(__func__, "Output values set -");
+
+ gribPrintSec0(isec0);
+ gribPrintSec1(isec0, isec1);
+ // Print section 2 if present.
+ if ( lsect2 ) TEMPLATE(gribPrintSec2,T)(isec0, isec2, fsec2);
+
+ if ( ! l_iorj )
+ {
+ // Print section 3 if present.
+ if ( lsect3 ) TEMPLATE(gribPrintSec3,T)(isec0, isec3, fsec3);
+
+ TEMPLATE(gribPrintSec4,T)(isec0, isec4, fsec4);
+ // Special print for 2D spectra wave field real values in section 4
+ if ( (isec1[ 0] == 140) &&
+ (isec1[ 1] == 98) &&
+ (isec1[23] == 1) &&
+ ((isec1[39] == 1045) || (isec1[39] == 1081)) &&
+ ((isec1[ 5] == 250) || (isec1[ 5] == 251)) )
+ gribPrintSec4Wave(isec4);
+ }
+ }
+}
+
+#endif /* T */
+
+/*
+ * Local Variables:
+ * mode: c
+ * End:
+ */
+
+#ifdef T
+#undef T
+#endif
+#define T float
+#ifdef T
+
+static
+size_t TEMPLATE(decodeGDS,T)(unsigned char *gds, int *isec0, int *isec2, T *fsec2, size_t *numGridVals)
+{
+ // int imisng = 0;
+ bool ReducedGrid = false, VertCoorTab = false;
+#ifdef VECTORCODE
+ unsigned char *igrib;
+ GRIBPACK *lgrib = NULL;
+ size_t lGribLen = 0;
+#endif
+
+ *numGridVals = 0;
+
+ memset(isec2, 0, 22*sizeof(int));
+
+ const unsigned gdsLen = GDS_Len;
+
+ unsigned ipvpl = GDS_PVPL;
+ if ( ipvpl == 0 ) ipvpl = 0xFF;
+
+ if ( ipvpl != 0xFF )
+ { // Either vct or reduced grid
+ if ( GDS_NV != 0 )
+ { // we have vct
+ VertCoorTab = true;
+ const unsigned ipl = 4*GDS_NV + ipvpl - 1;
+ if ( ipl < gdsLen ) ReducedGrid = true;
+ }
+ else
+ {
+ VertCoorTab = false;
+ ReducedGrid = true;
+ }
+ // ReducedGrid = (gdsLen - 32 - 4*GDS_NV);
+ }
+
+ if ( ISEC0_GRIB_Version == 0 ) VertCoorTab = ((gdsLen - 32) > 0);
+
+ if ( ReducedGrid )
+ {
+ const unsigned locnl = GDS_PVPL - 1U + (VertCoorTab * 4U * GDS_NV);
+ const unsigned jlenl = (gdsLen - locnl) >> 1;
+ if ( jlenl == GDS_NumLat )
+ {
+ ISEC2_Reduced = true;
+ size_t accum = 0;
+ for ( size_t i = 0; i < jlenl; ++i )
+ {
+ unsigned rpi = GET_UINT2(gds[locnl+2*i], gds[locnl+2*i+1]);
+ ISEC2_ReducedPoints(i) = (int)rpi;
+ accum += rpi;
+ }
+ *numGridVals = accum;
+ }
+ else
+ {
+ ReducedGrid = false;
+ }
+ }
+
+ ISEC2_GridType = GDS_GridType;
+
+ // Gaussian grid definition.
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_LATLON ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT )
+ {
+ ISEC2_NumLat = (int)(GDS_NumLat);
+ if ( ! ReducedGrid )
+ {
+ ISEC2_NumLon = (int)(GDS_NumLon);
+ *numGridVals = (size_t)ISEC2_NumLon*(size_t)ISEC2_NumLat;
+ }
+ ISEC2_FirstLat = GDS_FirstLat;
+ ISEC2_FirstLon = GDS_FirstLon;
+ ISEC2_ResFlag = GDS_ResFlag;
+ ISEC2_LastLat = GDS_LastLat;
+ ISEC2_LastLon = GDS_LastLon;
+ ISEC2_LonIncr = (int)(GDS_LonIncr);
+
+ ISEC2_NumPar = (int)GDS_NumPar;
+ ISEC2_ScanFlag = GDS_ScanFlag;
+ if ( ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT )
+ {
+ ISEC2_LatSP = GDS_LatSP;
+ ISEC2_LonSP = GDS_LonSP;
+ FSEC2_RotAngle = (T)GDS_RotAngle;
+ }
+ // if ( Lons != Longitudes || Lats != Latitudes ) Error("Latitude/Longitude Conflict");
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN_ROT ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN_STR ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN_ROTSTR )
+ {
+ // iret = decodeGDS_GG(gds, gdspos, isec0, isec2, imisng);
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_LATLON ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_STR ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_ROTSTR )
+ {
+ // iret = decodeGDS_LL(gds, gdspos, isec0, isec2, imisng);
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_LCC )
+ {
+ ISEC2_NumLon = (int)(GDS_NumLon);
+ ISEC2_NumLat = (int)(GDS_NumLat);
+ *numGridVals = (size_t)ISEC2_NumLon*(size_t)ISEC2_NumLat;
+ ISEC2_FirstLat = GDS_FirstLat;
+ ISEC2_FirstLon = GDS_FirstLon;
+ ISEC2_ResFlag = GDS_ResFlag;
+ ISEC2_Lambert_Lov = GDS_Lambert_Lov;
+ ISEC2_Lambert_dx = GDS_Lambert_dx;
+ ISEC2_Lambert_dy = GDS_Lambert_dy;
+ ISEC2_Lambert_LatS1 = GDS_Lambert_LatS1;
+ ISEC2_Lambert_LatS2 = GDS_Lambert_LatS2;
+ ISEC2_Lambert_LatSP = GDS_Lambert_LatSP;
+ ISEC2_Lambert_LonSP = GDS_Lambert_LonSP;
+ ISEC2_Lambert_ProjFlag = GDS_Lambert_ProjFlag;
+ ISEC2_ScanFlag = GDS_ScanFlag;
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_SPECTRAL )
+ {
+ ISEC2_PentaJ = (int)(GDS_PentaJ); // Truncation
+ ISEC2_PentaK = (int)(GDS_PentaK);
+ ISEC2_PentaM = (int)(GDS_PentaM);
+ ISEC2_RepType = GDS_RepType;
+ ISEC2_RepMode = GDS_RepMode;
+ *numGridVals = ((size_t)ISEC2_PentaJ+1)*((size_t)ISEC2_PentaJ+2);
+ isec2[ 6] = 0;
+ isec2[ 7] = 0;
+ isec2[ 8] = 0;
+ isec2[ 9] = 0;
+ isec2[10] = 0;
+ // iret = decodeGDS_SH(gds, gdspos, isec0, isec2, imisng);
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_GME )
+ {
+ ISEC2_GME_NI2 = (int)(GDS_GME_NI2);
+ ISEC2_GME_NI3 = (int)(GDS_GME_NI3);
+ ISEC2_GME_ND = (int)(GDS_GME_ND);
+ ISEC2_GME_NI = (int)(GDS_GME_NI);
+ ISEC2_GME_AFlag = GDS_GME_AFlag;
+ ISEC2_GME_LatPP = GDS_GME_LatPP;
+ ISEC2_GME_LonPP = GDS_GME_LonPP;
+ ISEC2_GME_LonMPL = GDS_GME_LonMPL;
+ ISEC2_GME_BFlag = GDS_GME_BFlag;
+ *numGridVals = ((size_t)ISEC2_GME_NI+1)*((size_t)ISEC2_GME_NI+1)*10;
+ // iret = decodeGDS_TR(gds, gdspos, isec0, isec2, imisng);
+ }
+ else
+ {
+ static bool lwarn = true;
+ unsigned nlon = GDS_NumLon, nlat = GDS_NumLat;
+ ISEC2_NumLon = (int)nlon;
+ ISEC2_NumLat = (int)nlat;
+ *numGridVals = (size_t)nlon*(size_t)nlat;
+ if ( lwarn )
+ {
+ lwarn = false;
+ Message("GRIB gridtype %d unsupported", ISEC2_GridType);
+ }
+ }
+
+ // Vertical coordinate parameters for hybrid levels.
+ // Get number of vertical coordinate parameters, if any.
+
+ ISEC2_NumVCP = 0;
+
+ isec2[17] = 0;
+ isec2[18] = 0;
+
+ if ( VertCoorTab )
+ {
+ int locnv;
+ if ( ISEC0_GRIB_Version == 0 )
+ {
+ locnv = 32;
+ ISEC2_NumVCP = ((int)gdsLen - 32) >> 2;
+ }
+ else
+ {
+ locnv = (int)GDS_PVPL - 1;
+ ISEC2_NumVCP = GDS_NV;
+ }
+#if defined (SX)
+ lGribLen = 4*ISEC2_NumVCP;
+ lgrib = (GRIBPACK*) Malloc(lGribLen*sizeof(GRIBPACK));
+
+ igrib = &gds[locnv];
+ if ( ISEC2_NumVCP > 0 ) (void) UNPACK_GRIB(igrib, lgrib, lGribLen, -1L);
+ for (int i = 0; i < ISEC2_NumVCP; ++i)
+ {
+ const int iexp = lgrib[4*i];
+ const int imant = GET_UINT3(lgrib[4*i+1], lgrib[4*i+2], lgrib[4*i+3]);
+ fsec2[10+i] = POW_2_M24 * imant * ldexp(1.0, 4 * (iexp - 64));
+ }
+
+ Free(lgrib);
+#else
+ for (int i = 0; i < ISEC2_NumVCP; ++i)
+ {
+ const int iexp = gds[locnv+4*i];
+ const int imant = (int)(GET_UINT3(gds[locnv+4*i+1], gds[locnv+4*i+2], gds[locnv+4*i+3]));
+ fsec2[10+i] = (T)decfp2(iexp,imant);
+ }
+#endif
+ }
+
+ return gdsLen;
+}
+
+#define ldexp_double ldexp
+#define ldexp_float ldexpf
+#define pow_double pow
+#define pow_float powf
+
+static
+void TEMPLATE(decodeBDS,T)(int decscale, unsigned char *bds, int *isec2, int *isec4,
+ T *fsec4, int fsec4len, int dfunc, size_t bdsLen, size_t numGridVals, int *iret)
+{
+ size_t ioff = 0;
+ enum { bds_head = 11 };
+ T zscale = 0.;
+ T fmin = 0.;
+ T *fpdata = fsec4;
+
+ *iret = 0;
+ unsigned char *igrib = bds;
+
+ memset(isec4, 0, 42*sizeof(int));
+
+ // 4 bit flag / 4 bit count of unused bits at end of block octet.
+
+ const int bds_flag = BDS_Flag;
+
+ // 0------- grid point
+ // 1------- spherical harmonics
+
+ const bool lspherc = (bds_flag >> 7)&1;
+ if ( lspherc ) isec4[2] = 128;
+ else isec4[2] = 0;
+
+ // -0------ simple packing
+ // -1------ complex packing
+
+ const bool lcomplex = (bds_flag >> 6)&1;
+ if ( lcomplex ) isec4[3] = 64;
+ else isec4[3] = 0;
+
+ // ---0---- No additional flags
+ // ---1---- No additional flags
+
+ const bool lcompress = (bds_flag >> 4)&1;
+
+ unsigned zoff;
+ if ( lcompress )
+ { isec4[5] = 16; isec4[6] = BDS_Z; zoff = 12; }
+ else
+ { isec4[5] = 0; isec4[6] = 0; zoff = 0; }
+
+ // ----++++ number of unused bits at end of section)
+
+ const unsigned bds_ubits = bds_flag & 0xF;
+
+ // scale factor (2 bytes)
+ const int jscale = BDS_BinScale;
+
+ // check for missing data indicators.
+
+ const int iexp = bds[ 6];
+ const int imant = (int)(GET_UINT3(bds[ 7], bds[ 8], bds[ 9]));
+
+ const int imiss = (jscale == 0xFFFF && iexp == 0xFF && imant == 0xFFFFFF);
+
+ // convert reference value and scale factor.
+
+ if ( ! (dfunc == 'J') && imiss == 0 )
+ {
+ fmin = (T)BDS_RefValue;
+ zscale = TEMPLATE(ldexp,T)((T)1.0, jscale);
+ }
+
+ // get number of bits in each data value.
+
+ unsigned dvbits = BDS_NumBits;
+ ISEC4_NumBits = BDS_NumBits;
+
+ // octet number of start of packed data calculated from start of block 4 - 1
+
+ size_t locnd = zoff + bds_head;
+
+ // if data is in spherical harmonic form, distinguish between simple/complex packing (lcomplex = 0/1)
+
+ if ( lspherc )
+ {
+ if ( !lcomplex )
+ {
+ // no unpacked binary data present octet number of start of packed data
+ // calculated from start of block 4 - 1
+
+ ioff = 1;
+ locnd += 4*ioff; // RealCoef
+
+ // get real (0,0) coefficient in grib format and convert to floating point.
+ if ( dfunc != 'J' )
+ {
+ if ( imiss ) *fpdata++ = 0.0;
+ else *fpdata++ = (T)BDS_RealCoef;
+ }
+ }
+ else // complex packed spherical harmonics
+ {
+ isec4[15] = BDS_PackData;
+ // scaling factor
+ isec4[16] = BDS_Power;
+
+ // pentagonal resolution parameters of the unpacked section of data field
+
+ const int jup = bds[zoff+15];
+ const int kup = bds[zoff+16];
+ const int mup = bds[zoff+17];
+
+ isec4[zoff+17] = jup;
+ isec4[zoff+18] = kup;
+ isec4[zoff+19] = mup;
+
+ // unpacked binary data
+
+ locnd += 4; // 2 + power
+ locnd += 3; // j, k, m
+ ioff = ((size_t)jup+1)*((size_t)jup+2);
+
+ if ( dfunc != 'J' )
+ for ( size_t i = 0; i < ioff; ++i )
+ {
+ if ( imiss )
+ fpdata[i] = 0.0;
+ else
+ {
+ const int iexp2 = (int)(bds[locnd+4*i]);
+ const int imant2 = (int)(GET_UINT3(bds[locnd+4*i+1], bds[locnd+4*i+2], bds[locnd+4*i+3]));
+ fpdata[i] = (T)decfp2(iexp2,imant2);
+ }
+ }
+ fpdata += ioff;
+ locnd += 4*ioff; /* RealCoef */
+ }
+ }
+ else
+ {
+ if ( lcomplex )
+ {
+ *iret = 1999;
+ gprintf(__func__, " Second order packed grids unsupported!");
+ gprintf(__func__, " Return code = %d", *iret);
+ return;
+ }
+ }
+
+ // Decode data values to floating point and store in fsec4.
+ // First calculate the number of data values.
+ // Take into account that spherical harmonics can be packed
+ // simple (lcomplex = 0) or complex (lcomplex = 1)
+
+ size_t jlend = bdsLen - locnd;
+
+ if ( dvbits == 0 )
+ {
+ if ( jlend > 1 )
+ {
+ *iret = 2001;
+ gprintf(__func__, " Number of bits per data value = 0!");
+ gprintf(__func__, " Return code = %d", *iret);
+ return;
+ }
+
+ if ( numGridVals == 0 )
+ {
+ *iret = 2002;
+ gprintf(__func__, " Constant field unsupported for this grid type!");
+ gprintf(__func__, " Return code = %d", *iret);
+ return;
+ }
+
+ jlend = numGridVals - ioff;
+ }
+ else
+ {
+ jlend = (jlend*8 - bds_ubits) / dvbits;
+ }
+
+ ISEC4_NumValues = (int)(jlend + ioff);
+ ISEC4_NumNonMissValues = 0;
+
+ if ( lcompress )
+ {
+ const size_t len = ((size_t) ((bds[17]<<16)+(bds[18]<<8)+bds[19]));
+
+ ISEC4_NumValues = (int)(len*8/dvbits);
+
+ if ( lspherc ) ISEC4_NumValues += lcomplex ? (int)ioff : 1;
+ }
+
+ if ( dfunc == 'J' ) return;
+
+ // check length of output array.
+
+ if ( ISEC4_NumValues > fsec4len )
+ {
+ *iret = 710;
+ gprintf(__func__, " Output array too small. Length = %d", fsec4len);
+ gprintf(__func__, " Number of values = %d", ISEC4_NumValues);
+ gprintf(__func__, " Return code = %d", *iret);
+ return;
+ }
+
+ if ( imiss ) memset((char *)fpdata, 0, jlend*sizeof(T));
+ else
+ {
+ igrib += locnd;
+
+ TEMPLATE(decode_array,T)(igrib, (long)jlend, ISEC4_NumBits, fmin, zscale, fpdata);
+ }
+
+ if ( lspherc && lcomplex )
+ {
+ int pcStart = isec4[19], pcScale = isec4[16];
+ TEMPLATE(scatter_complex,T)(fsec4, pcStart, ISEC2_PentaJ, ISEC4_NumValues);
+ TEMPLATE(scale_complex,T)(fsec4, pcStart, pcScale, ISEC2_PentaJ, 1);
+ }
+
+ if ( CGRIBEX_Fix_ZSE ) // Fix ZeroShiftError of simple packed spherical harmonics
+ if ( lspherc && !lcomplex )
+ {
+ // 20100705: Fix ZeroShiftError - Edi Kirk
+ if ( IS_NOT_EQUAL(fsec4[1], 0.0) )
+ {
+ const T zserr = fsec4[1];
+ for (int i = 1; i < ISEC4_NumValues; ++i) fsec4[i] -= zserr;
+ }
+ }
+
+ if ( decscale )
+ {
+ const T scale = TEMPLATE(pow,T)((T)10.0, (T)-decscale);
+ for (int i = 0; i < ISEC4_NumValues; ++i) fsec4[i] *= scale;
+ }
+}
+
+
+void TEMPLATE(grib_decode,T)(int *isec0, int *isec1, int *isec2, T *fsec2, int *isec3,
+ T *fsec3, int *isec4, T *fsec4, int fsec4len, int *kgrib,
+ int kleng, int *kword, int dfunc, int *iret)
+{
+ UCHAR *bms = NULL;
+ bool lsect2 = false, lsect3 = false;
+ static bool lmissvalinfo = true;
+
+ UNUSED(kleng);
+
+ *iret = 0;
+
+ grsdef();
+
+ ISEC2_Reduced = false;
+
+ // ----------------------------------------------------------------
+ // IS Indicator Section (Section 0)
+ // ----------------------------------------------------------------
+ UCHAR *is = (UCHAR *) &kgrib[0];
+ size_t isLen = decodeIS(is, isec0, iret);
+
+ size_t gribLen = (size_t)ISEC0_GRIB_Len;
+
+ /*
+ When decoding or calculating length, previous editions
+ of the GRIB code must be taken into account.
+
+ In the table below, covering sections 0 and 1 of the GRIB
+ code, octet numbering is from the beginning of the GRIB
+ message;
+ * indicates that the value is not available in the code edition;
+ R indicates reserved, should be set to 0;
+ Experimental edition is considered as edition -1.
+
+ GRIB code edition -1 has fixed length of 20 octets for
+ section 1, the length not included in the message.
+ GRIB code edition 0 has fixed length of 24 octets for
+ section 1, the length being included in the message.
+ GRIB code edition 1 can have different lengths for section
+ 1, the minimum being 28 octets, length being included in
+ the message.
+
+ Octet numbers for code
+ editions
+
+ Contents. -1 0 1
+ --------- ----------------------
+ Letters GRIB 1-4 1-4 1-4
+ Total length of GRIB message. * * 5-7
+ GRIB code edition number * * 8
+ Length of Section 1. * 5-7 9-11
+ Reserved octet (R). * 8(R) *
+ Version no. of Code Table 2. * * 12
+ Identification of centre. 5 9 13
+ Generating process. 6 10 14
+ Grid definition . 7 11 15
+ Flag (Code Table 1). 8 12 16
+ Indicator of parameter. 9 13 17
+ Indicator of type of level. 10 14 18
+ Height, pressure etc of levels. 11-12 15-16 19-20
+ Year of century. 13 17 21
+ Month. 14 18 22
+ Day. 15 19 23
+ Hour. 16 20 24
+ Minute. 17 21 25
+ Indicator of unit of time. 18 22 26
+ P1 - Period of time. 19 23 27
+ P2 - Period of time 20(R) 24 28
+ or reserved octet (R).
+ Time range indicator. 21(R) 25 29
+ or reserved octet (R).
+ Number included in average. 22-23(R) 26-27 30-31
+ or reserved octet (R).
+ Number missing from average. 24(R) 28(R) 32
+ or reserved octet (R).
+ Century of data. * * 33
+ Designates sub-centre if not 0. * * 34
+ Decimal scale factor. * * 35-36
+ Reserved. Set to 0. * * 37-48
+ (Need not be present)
+ For originating centre use only. * * 49-nn
+ (Need not be present)
+
+ Identify which GRIB code edition is being decoded.
+
+ In GRIB edition 1, the edition number is in octet 8.
+ In GRIB edition 0, octet 8 is reserved and set to 0.
+ In GRIB edition -1, octet 8 is a flag field and can have a
+ a valid value of 0, 1, 2 or 3.
+
+ However, GRIB edition number 0 has a fixed
+ length of 24, included in the message, for section 1, so
+ if the value extracted from octets 5-7 is 24 and that from
+ octet 8 is 0, it is safe to assume edition 0 of the code.
+
+ */
+
+ // Set length of GRIB message to missing data value.
+ if ( ISEC0_GRIB_Len == 24 && ISEC0_GRIB_Version == 0 ) ISEC0_GRIB_Len = 0;
+
+ // ----------------------------------------------------------------
+ // PDS Product Definition Section (Section 1)
+ // ----------------------------------------------------------------
+ UCHAR *pds = is + isLen;
+ size_t pdsLen = decodePDS(pds, isec0, isec1);
+
+ // ----------------------------------------------------------------
+ // GDS Grid Description Section (Section 2)
+ // ----------------------------------------------------------------
+ size_t numGridVals = 0;
+ size_t gdsLen = 0;
+ const bool gdsIncluded = ISEC1_Sec2Or3Flag & 128;
+ if ( gdsIncluded )
+ {
+ UCHAR *gds = is + isLen + pdsLen;
+ gdsLen = TEMPLATE(decodeGDS,T)(gds, isec0, isec2, fsec2, &numGridVals);
+ }
+
+ // ----------------------------------------------------------------
+ // BMS Bit-Map Section Section (Section 3)
+ // ----------------------------------------------------------------
+ isec3[0] = 0;
+ size_t bmsLen = 0, bitmapSize = 0, imaskSize = 0;
+ const bool bmsIncluded = ISEC1_Sec2Or3Flag & 64;
+ if ( bmsIncluded )
+ {
+ bms = is + isLen + pdsLen + gdsLen;
+ bmsLen = BMS_Len;
+
+ imaskSize = (bmsLen > 6) ? (bmsLen - 6)<<3 : 0;
+ bitmapSize = imaskSize - BMS_UnusedBits;
+ }
+
+ // ----------------------------------------------------------------
+ // BDS Binary Data Section (Section 4)
+ // ----------------------------------------------------------------
+ UCHAR *bds = is + isLen + pdsLen + gdsLen + bmsLen;
+ unsigned bdsLen = BDS_Len;
+ /*
+ If a very large product, the section 4 length field holds
+ the number of bytes in the product after section 4 upto
+ the end of the padding bytes.
+ This is a fixup to get round the restriction on product lengths
+ due to the count being only 24 bits. It is only possible because
+ the (default) rounding for GRIB products is 120 bytes.
+ */
+ const bool llarge = (gribLen > JP23SET && bdsLen <= 120);
+ if ( llarge )
+ {
+ gribLen &= JP23SET;
+ gribLen *= 120;
+ ISEC0_GRIB_Len = (int)gribLen;
+ bdsLen = correct_bdslen(bdsLen, (int)gribLen, (long)(isLen+pdsLen+gdsLen+bmsLen));
+ }
+
+ TEMPLATE(decodeBDS,T)(ISEC1_DecScaleFactor, bds, isec2, isec4, fsec4, fsec4len, dfunc, bdsLen, numGridVals, iret);
+
+ if ( *iret != 0 ) return;
+
+ ISEC4_NumNonMissValues = ISEC4_NumValues;
+
+ if ( bitmapSize > 0 )
+ {
+ if ( dfunc != 'L' && dfunc != 'J' )
+ if ( DBL_IS_NAN(FSEC3_MissVal) && lmissvalinfo )
+ {
+ lmissvalinfo = false;
+ FSEC3_MissVal = (T)GRIB_MISSVAL;
+ Message("Missing value = NaN is unsupported, set to %g!", GRIB_MISSVAL);
+ }
+
+ // ISEC4_NumNonMissValues = ISEC4_NumValues;
+ ISEC4_NumValues = (int)bitmapSize;
+
+ if ( dfunc != 'J' || bitmapSize == (size_t)ISEC4_NumNonMissValues )
+ {
+ GRIBPACK bitmap;
+ /*
+ unsigned char *bitmap;
+ bitmap = BMS_Bitmap;
+ int j = ISEC4_NumNonMissValues;
+ for (int i = ISEC4_NumValues-1; i >= 0; --i)
+ {
+ fsec4[i] = ((bitmap[i/8]>>(7-(i&7)))&1) ? fsec4[--j] : FSEC3_MissVal;
+ }
+ */
+
+ GRIBPACK *imask = (GRIBPACK*) Malloc((size_t)imaskSize*sizeof(GRIBPACK));
+
+#ifdef VECTORCODE
+ (void) UNPACK_GRIB(BMS_Bitmap, imask, imaskSize/8, -1L);
+ GRIBPACK *pbitmap = imask;
+#else
+ GRIBPACK *pbitmap = BMS_Bitmap;
+#endif
+
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for ( size_t i = imaskSize/8-1; i != (size_t)-1; --i )
+ {
+ bitmap = pbitmap[i];
+ imask[i*8+0] = 1 & (bitmap >> 7);
+ imask[i*8+1] = 1 & (bitmap >> 6);
+ imask[i*8+2] = 1 & (bitmap >> 5);
+ imask[i*8+3] = 1 & (bitmap >> 4);
+ imask[i*8+4] = 1 & (bitmap >> 3);
+ imask[i*8+5] = 1 & (bitmap >> 2);
+ imask[i*8+6] = 1 & (bitmap >> 1);
+ imask[i*8+7] = 1 & (bitmap);
+ }
+
+ int j = 0;
+ for (int i = 0; i < ISEC4_NumValues; ++i)
+ if ( imask[i] ) j++;
+
+ if ( ISEC4_NumNonMissValues != j )
+ {
+ if ( dfunc != 'J' && ISEC4_NumBits != 0 )
+ Warning("Bitmap (%d) and data (%d) section differ, using bitmap section!", j, ISEC4_NumNonMissValues);
+
+ ISEC4_NumNonMissValues = j;
+ }
+
+ if ( dfunc != 'J' )
+ {
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (int i = ISEC4_NumValues-1; i >= 0; --i)
+ fsec4[i] = imask[i] ? fsec4[--j] : FSEC3_MissVal;
+ }
+
+ Free(imask);
+ }
+ }
+
+ if ( ISEC2_Reduced )
+ {
+ int nvalues = 0;
+ int nlat = ISEC2_NumLat;
+ int nlon = ISEC2_ReducedPointsPtr[0];
+ for (int ilat = 0; ilat < nlat; ++ilat) nvalues += ISEC2_ReducedPoints(ilat);
+ for (int ilat = 1; ilat < nlat; ++ilat)
+ if ( ISEC2_ReducedPoints(ilat) > nlon ) nlon = ISEC2_ReducedPoints(ilat);
+
+ // int dlon = ISEC2_LastLon-ISEC2_FirstLon;
+ // if ( dlon < 0 ) dlon += 360000;
+
+ if ( nvalues != ISEC4_NumValues ) *iret = -801;
+
+ //printf("nlat %d nlon %d \n", nlat, nlon);
+ //printf("nvalues %d %d\n", nvalues, ISEC4_NumValues);
+
+ if ( dfunc == 'R' && *iret == -801 )
+ gprintf(__func__, "Number of values (%d) and sum of lons per row (%d) differ, abort conversion to regular Gaussian grid!",
+ ISEC4_NumValues, nvalues);
+
+ if ( dfunc == 'R' && *iret != -801 )
+ {
+ ISEC2_Reduced = 0;
+ ISEC2_NumLon = nlon;
+ ISEC4_NumValues = nlon*nlat;
+
+ lsect3 = bitmapSize > 0;
+ int lperio = 1;
+ int lveggy = (ISEC1_CodeTable == 128) && (ISEC1_CenterID == 98) &&
+ ((ISEC1_Parameter == 27) || (ISEC1_Parameter == 28) ||
+ (ISEC1_Parameter == 29) || (ISEC1_Parameter == 30) ||
+ (ISEC1_Parameter == 39) || (ISEC1_Parameter == 40) ||
+ (ISEC1_Parameter == 41) || (ISEC1_Parameter == 42) ||
+ (ISEC1_Parameter == 43));
+
+ (void) TEMPLATE(qu2reg3,T)(fsec4, ISEC2_ReducedPointsPtr, nlat, nlon, FSEC3_MissVal, iret, lsect3, lperio, lveggy);
+
+ if ( bitmapSize > 0 )
+ {
+ int j = 0;
+ for (int i = 0; i < ISEC4_NumValues; ++i)
+ if ( IS_NOT_EQUAL(fsec4[i], FSEC3_MissVal) ) j++;
+
+ ISEC4_NumNonMissValues = j;
+ }
+ }
+ }
+
+ if ( ISEC0_GRIB_Version == 1 ) isLen = 8;
+ enum { esLen = 4 };
+ gribLen = isLen + pdsLen + gdsLen + bmsLen + bdsLen + esLen;
+
+ if ( !llarge && ISEC0_GRIB_Len && (size_t)ISEC0_GRIB_Len < gribLen )
+ Warning("Inconsistent length of GRIB message (grib_message_size=%d < grib_record_size=%zu)!", ISEC0_GRIB_Len, gribLen);
+
+ ISEC0_GRIB_Len = (int)gribLen;
+
+ *kword = (int)((gribLen + sizeof(int) - 1) / sizeof(int));
+
+ // ----------------------------------------------------------------
+ // Section 9 . Abort/return to calling routine.
+ // ----------------------------------------------------------------
+ bool ldebug = false, l_iorj = false;
+ if ( ldebug )
+ {
+ gprintf(__func__, "Section 9.");
+ gprintf(__func__, "Output values set -");
+
+ gribPrintSec0(isec0);
+ gribPrintSec1(isec0, isec1);
+ // Print section 2 if present.
+ if ( lsect2 ) TEMPLATE(gribPrintSec2,T)(isec0, isec2, fsec2);
+
+ if ( ! l_iorj )
+ {
+ // Print section 3 if present.
+ if ( lsect3 ) TEMPLATE(gribPrintSec3,T)(isec0, isec3, fsec3);
+
+ TEMPLATE(gribPrintSec4,T)(isec0, isec4, fsec4);
+ // Special print for 2D spectra wave field real values in section 4
+ if ( (isec1[ 0] == 140) &&
+ (isec1[ 1] == 98) &&
+ (isec1[23] == 1) &&
+ ((isec1[39] == 1045) || (isec1[39] == 1081)) &&
+ ((isec1[ 5] == 250) || (isec1[ 5] == 251)) )
+ gribPrintSec4Wave(isec4);
+ }
+ }
+}
+
+#endif /* T */
+
+/*
+ * Local Variables:
+ * mode: c
+ * End:
+ */
+// clang-format on
+
+// GRIB block 0 - indicator block
+static void
+encodeIS(GRIBPACK *lGrib, long *gribLen)
+{
+ long z;
+ // z = *gribLen;
+
+ lGrib[0] = 'G';
+ lGrib[1] = 'R';
+ lGrib[2] = 'I';
+ lGrib[3] = 'B';
+
+ // lGrib[4]-lGrib[6] contains full length of grib record.
+ // included before finished CODEGB
+
+ z = 7;
+ Put1Byte(1); // grib version
+ z = 8;
+
+ *gribLen = z;
+}
+
+// GRIB block 5 - end block
+static void
+encodeES(GRIBPACK *lGrib, long *gribLen, long bdsstart)
+{
+ long z = *gribLen;
+
+ lGrib[z++] = '7';
+ lGrib[z++] = '7';
+ lGrib[z++] = '7';
+ lGrib[z++] = '7';
+
+ if (z > JP24SET)
+ {
+ long bdslen = z - 4;
+ // fprintf(stderr, "Abort: GRIB record too large (max = %d)!\n", JP23SET);
+ // exit(1);
+ /*
+ If a very large product, the section 4 length field holds
+ the number of bytes in the product after section 4 upto
+ the end of the padding bytes.
+ This is a fixup to get round the restriction on product lengths
+ due to the count being only 24 bits. It is only possible because
+ the (default) rounding for GRIB products is 120 bytes.
+ */
+ while (z % 120) lGrib[z++] = 0;
+
+ if (z > JP23SET * 120)
+ {
+ fprintf(stderr, "Abort: GRIB1 record too large (size = %ld; max = %d)!\n", z, JP23SET * 120);
+ exit(1);
+ }
+
+ long itemp = z / (-120);
+ itemp = JP23SET - itemp + 1;
+
+ lGrib[4] = (GRIBPACK) (itemp >> 16);
+ lGrib[5] = (GRIBPACK) (itemp >> 8);
+ lGrib[6] = (GRIBPACK) itemp;
+
+ bdslen = z - bdslen;
+ lGrib[bdsstart] = (GRIBPACK) (bdslen >> 16);
+ lGrib[bdsstart + 1] = (GRIBPACK) (bdslen >> 8);
+ lGrib[bdsstart + 2] = (GRIBPACK) bdslen;
+ }
+ else
+ {
+ lGrib[4] = (GRIBPACK) (z >> 16);
+ lGrib[5] = (GRIBPACK) (z >> 8);
+ lGrib[6] = (GRIBPACK) z;
+
+ while (z % 8) lGrib[z++] = 0;
+ }
+
+ *gribLen = z;
+}
+
+// GRIB block 1 - product definition block.
+
+#define DWD_extension_253_len 38
+#define DWD_extension_254_len 26
+#define ECMWF_extension_1_len 24
+#define MPIM_extension_1_len 18
+
+static long
+getLocalExtLen(int *isec1)
+{
+ long extlen = 0;
+
+ if (ISEC1_LocalFLag)
+ {
+ if (ISEC1_CenterID == 78 || ISEC1_CenterID == 215 || ISEC1_CenterID == 250)
+ {
+ if (isec1[36] == 254)
+ extlen = DWD_extension_254_len;
+ else if (isec1[36] == 253)
+ extlen = DWD_extension_253_len;
+ }
+ else if (ISEC1_CenterID == 98)
+ {
+ if (isec1[36] == 1) extlen = ECMWF_extension_1_len;
+ }
+ else if (ISEC1_CenterID == 252)
+ {
+ if (isec1[36] == 1) extlen = MPIM_extension_1_len;
+ }
+ }
+
+ return extlen;
+}
+
+static long
+getPdsLen(int *isec1)
+{
+ long pdslen = 28;
+
+ pdslen += getLocalExtLen(isec1);
+
+ return pdslen;
+}
+
+static void
+encodePDS_DWD_local_Extension_254(GRIBPACK *lGrib, long *zs, int *isec1)
+{
+ long z = *zs;
+
+ const long localextlen = getLocalExtLen(isec1);
+ for (long i = 0; i < localextlen - 2; i++) Put1Byte(isec1[24 + i]);
+
+ int isvn = isec1[49] << 15 | isec1[48]; // DWD experiment identifier
+ Put2Byte(isvn); // DWD run type (0=main, 2=ass, 3=test)
+
+ *zs = z;
+}
+
+static void
+encodePDS_DWD_local_Extension_253(GRIBPACK *lGrib, long *zs, int *isec1)
+{
+ long z = *zs;
+
+ const long localextlen = DWD_extension_254_len;
+ for (long i = 0; i < localextlen - 2; i++) Put1Byte(isec1[24 + i]);
+
+ int isvn = isec1[49] << 15 | isec1[48]; /* DWD experiment identifier */
+ Put2Byte(isvn); /* DWD run type (0=main, 2=ass, 3=test) */
+ Put1Byte(isec1[50]); /* 55 User id, specified by table */
+ Put2Byte(isec1[51]); /* 56 Experiment identifier */
+ Put2Byte(isec1[52]); /* 58 Ensemble identification by table */
+ Put2Byte(isec1[53]); /* 60 Number of ensemble members */
+ Put2Byte(isec1[54]); /* 62 Actual number of ensemble member */
+ Put1Byte(isec1[55]); /* 64 Model major version number */
+ Put1Byte(isec1[56]); /* 65 Model minor version number */
+ Put1Byte(0); /* 66 Blank for even buffer length */
+
+ *zs = z;
+}
+
+static void
+encodePDS_ECMWF_local_Extension_1(GRIBPACK *lGrib, long *zs, int *isec1)
+{
+ long z = *zs;
+
+ const long localextlen = getLocalExtLen(isec1);
+ for (long i = 0; i < localextlen - 12; i++) Put1Byte(isec1[24 + i]);
+ /* 12 bytes explicitly encoded below: */
+ Put1Byte(isec1[36]); /* ECMWF local GRIB use definition identifier */
+ /* 1=MARS labelling or ensemble fcst. data */
+ Put1Byte(isec1[37]); /* Class */
+ Put1Byte(isec1[38]); /* Type */
+ Put2Byte(isec1[39]); /* Stream */
+
+ // Version number or experiment identifier
+ Put1Byte(((unsigned char *) &isec1[40])[0]);
+ Put1Byte(((unsigned char *) &isec1[40])[1]);
+ Put1Byte(((unsigned char *) &isec1[40])[2]);
+ Put1Byte(((unsigned char *) &isec1[40])[3]);
+
+ Put1Byte(isec1[41]); /* Ensemble forecast number */
+ Put1Byte(isec1[42]); /* Total number of forecasts in ensemble */
+ Put1Byte(0); /* (Spare) */
+
+ *zs = z;
+}
+
+static void
+encodePDS_MPIM_local_Extension_1(GRIBPACK *lGrib, long *zs, int *isec1)
+{
+ long z = *zs;
+
+ const long localextlen = getLocalExtLen(isec1);
+ for (long i = 0; i < localextlen - 6; i++) Put1Byte(isec1[24 + i]);
+ /* 6 bytes explicitly encoded below: */
+ Put1Byte(isec1[36]); /* MPIM local GRIB use definition identifier */
+ /* (extension identifier) */
+ Put1Byte(isec1[37]); /* type of ensemble forecast */
+ Put2Byte(isec1[38]); /* individual ensemble member */
+ Put2Byte(isec1[39]); /* number of forecasts in ensemble */
+
+ *zs = z;
+}
+
+// GRIB BLOCK 1 - PRODUCT DESCRIPTION SECTION
+static void
+encodePDS(GRIBPACK *lpds, long pdsLen, int *isec1)
+{
+ GRIBPACK *lGrib = lpds;
+ long z = 0;
+ int ival;
+
+ int century = ISEC1_Century;
+ int year = ISEC1_Year;
+
+ if (century < 0)
+ {
+ century = -century;
+ year = -year;
+ }
+
+ Put3Byte(pdsLen); /* 0 Length of Block 1 */
+ Put1Byte(ISEC1_CodeTable); /* 3 Local table number */
+ Put1Byte(ISEC1_CenterID); /* 4 Identification of centre */
+ Put1Byte(ISEC1_ModelID); /* 5 Identification of model */
+ Put1Byte(ISEC1_GridDefinition); /* 6 Grid definition */
+ Put1Byte(ISEC1_Sec2Or3Flag); /* 7 Block 2 included */
+ Put1Byte(ISEC1_Parameter); /* 8 Parameter Code */
+ Put1Byte(ISEC1_LevelType); /* 9 Type of level */
+ // clang-format off
+ if ( (ISEC1_LevelType != 20) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_99) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_ISOBARIC) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_ISOBARIC_PA) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_ALTITUDE) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_HEIGHT) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_SIGMA) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_HYBRID) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_LANDDEPTH) &&
+ (ISEC1_LevelType != GRIB1_LTYPE_ISENTROPIC) &&
+ (ISEC1_LevelType != 115) &&
+ (ISEC1_LevelType != 117) &&
+ (ISEC1_LevelType != 125) &&
+ (ISEC1_LevelType != 127) &&
+ (ISEC1_LevelType != 160) &&
+ (ISEC1_LevelType != 210) )
+ {
+ Put1Byte(ISEC1_Level1);
+ Put1Byte(ISEC1_Level2);
+ }
+ else
+ {
+ Put2Byte(ISEC1_Level1); /* 10 Level */
+ }
+ // clang-format on
+
+ Put1Int(year); /* 12 Year of Century */
+ Put1Byte(ISEC1_Month); /* 13 Month */
+ Put1Byte(ISEC1_Day); /* 14 Day */
+ Put1Byte(ISEC1_Hour); /* 15 Hour */
+ Put1Byte(ISEC1_Minute); /* 16 Minute */
+
+ Put1Byte(ISEC1_TimeUnit); /* 17 Time unit */
+ if (ISEC1_TimeRange == 10)
+ {
+ Put1Byte(ISEC1_TimePeriod1);
+ Put1Byte(ISEC1_TimePeriod2);
+ }
+ else if (ISEC1_TimeRange == 113 || ISEC1_TimeRange == 0)
+ {
+ Put1Byte(ISEC1_TimePeriod1);
+ Put1Byte(0);
+ }
+ else if (ISEC1_TimeRange == 5 || ISEC1_TimeRange == 4 || ISEC1_TimeRange == 3 || ISEC1_TimeRange == 2)
+ {
+ Put1Byte(ISEC1_TimePeriod1);
+ Put1Byte(ISEC1_TimePeriod2);
+ }
+ else
+ {
+ Put1Byte(0);
+ Put1Byte(0);
+ }
+ Put1Byte(ISEC1_TimeRange); /* 20 Timerange flag */
+ Put2Byte(ISEC1_AvgNum); /* 21 Average */
+
+ Put1Byte(ISEC1_AvgMiss); /* 23 Missing from averages */
+ Put1Byte(century); /* 24 Century */
+ Put1Byte(ISEC1_SubCenterID); /* 25 Subcenter */
+ Put2Int(ISEC1_DecScaleFactor); /* 26 Decimal scale factor */
+
+ if (ISEC1_LocalFLag)
+ {
+ if (ISEC1_CenterID == 78 || ISEC1_CenterID == 215 || ISEC1_CenterID == 250)
+ {
+ if (isec1[36] == 254)
+ encodePDS_DWD_local_Extension_254(lGrib, &z, isec1);
+ else if (isec1[36] == 253)
+ encodePDS_DWD_local_Extension_253(lGrib, &z, isec1);
+ }
+ else if (ISEC1_CenterID == 98)
+ {
+ if (isec1[36] == 1) encodePDS_ECMWF_local_Extension_1(lGrib, &z, isec1);
+ }
+ else if (ISEC1_CenterID == 252)
+ {
+ if (isec1[36] == 1) encodePDS_MPIM_local_Extension_1(lGrib, &z, isec1);
+ }
+ else
+ {
+ const long localextlen = getLocalExtLen(isec1);
+ for (long i = 0; i < localextlen; i++) Put1Byte(isec1[24 + i]);
+ }
+ }
+}
+
+// clang-format off
+
+
+#ifdef T
+#undef T
+#endif
+#define T double
+#ifdef T
+
+
+#define CGRIBEX_FPSCALE(data) (((data) - zref) * factor + 0.5)
+
+static
+void TEMPLATE(encode_array_common,T)(int numBits, size_t packStart, size_t datasize, GRIBPACK *lGrib,
+ const T *data, T zref, T factor, size_t *gz)
+{
+ size_t z = *gz;
+ unsigned int ival;
+ int cbits, jbits;
+ unsigned int c;
+
+ // code from gribw routine flist2bitstream
+
+ cbits = 8;
+ c = 0;
+ for (size_t i = packStart; i < datasize; ++i)
+ {
+ // note float -> unsigned int .. truncate
+ ival = (unsigned int)(CGRIBEX_FPSCALE(data[i]));
+ /*
+ if ( ival > max_nbpv_pow2 ) ival = max_nbpv_pow2;
+ if ( ival < 0 ) ival = 0;
+ */
+ jbits = numBits;
+ while ( cbits <= jbits )
+ {
+ if ( cbits == 8 )
+ {
+ jbits -= 8;
+ lGrib[z++] = (ival >> jbits) & 0xFF;
+ }
+ else
+ {
+ jbits -= cbits;
+ lGrib[z++] = (GRIBPACK)((c << cbits)
+ + ((ival >> jbits) & ((1U << cbits) - 1)));
+ cbits = 8;
+ c = 0;
+ }
+ }
+ /* now jbits < cbits */
+ if ( jbits )
+ {
+ c = (c << jbits) + (ival & ((1U << jbits)-1));
+ cbits -= jbits;
+ }
+ }
+ if ( cbits != 8 ) lGrib[z++] = (GRIBPACK)(c << cbits);
+
+ *gz = z;
+}
+
+
+static
+void TEMPLATE(encode_array_2byte,T)(size_t datasize, GRIBPACK *restrict lGrib,
+ const T *restrict data, T zref, T factor, size_t *gz)
+{
+ uint16_t *restrict sgrib = (uint16_t *)(void *)(lGrib+*gz);
+
+ if (IS_BIGENDIAN())
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ sgrib[i] = (uint16_t) CGRIBEX_FPSCALE(data[i]);
+ }
+ else
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ uint16_t ui16 = (uint16_t) CGRIBEX_FPSCALE(data[i]);
+ sgrib[i] = gribSwapByteOrder_uint16(ui16);
+ }
+ }
+
+ *gz += 2*datasize;
+}
+
+static
+void TEMPLATE(encode_array,T)(int numBits, size_t packStart, size_t datasize,
+ GRIBPACK *restrict lGrib,
+ const T *restrict data,
+ T zref, T factor, size_t *gz)
+{
+ size_t z = *gz;
+
+ data += packStart;
+ datasize -= packStart;
+
+ if (numBits == 8)
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ lGrib[z++] = (GRIBPACK) CGRIBEX_FPSCALE(data[i]);
+ }
+ }
+ else if (numBits == 16)
+ {
+ if (sizeof(T) == sizeof(double))
+ {
+ grib_encode_array_2byte_double(datasize, lGrib, (const double *)(const void *)data, zref, factor, &z);
+ }
+ else
+ {
+ TEMPLATE(encode_array_2byte,T)(datasize, lGrib, data, zref, factor, &z);
+ }
+ }
+ else if (numBits == 24)
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ uint32_t ui32 = (uint32_t) CGRIBEX_FPSCALE(data[i]);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 16);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 8);
+ lGrib[z++] = (GRIBPACK)ui32;
+ }
+ }
+ else if (numBits == 32)
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ uint32_t ui32 = (uint32_t) CGRIBEX_FPSCALE(data[i]);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 24);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 16);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 8);
+ lGrib[z++] = (GRIBPACK)ui32;
+ }
+ }
+ else if (numBits > 0 && numBits <= 32)
+ {
+ TEMPLATE(encode_array_common,T)(numBits, 0, datasize, lGrib, data, zref, factor, &z);
+ }
+ else if (numBits == 0)
+ {
+ }
+ else
+ {
+ Error("Unimplemented packing factor %d!", numBits);
+ }
+
+ *gz = z;
+}
+
+static
+void TEMPLATE(encode_array_unrolled,T)(int numBits, size_t packStart, size_t datasize,
+ GRIBPACK *restrict lGrib,
+ const T *restrict data,
+ T zref, T factor, size_t *gz)
+{
+ size_t z = *gz;
+#ifdef _ARCH_PWR6
+ enum { CGRIBEX__UNROLL_DEPTH_2 = 8 };
+#else
+ enum { CGRIBEX__UNROLL_DEPTH_2 = 128 };
+#endif
+ size_t residual;
+ size_t ofs;
+ double dval[CGRIBEX__UNROLL_DEPTH_2];
+
+ data += packStart;
+ datasize -= packStart;
+ residual = datasize % CGRIBEX__UNROLL_DEPTH_2;
+ ofs = datasize - residual;
+
+ // reducing FP operations to single FMA is slowing down on pwr6 ...
+
+ if ( numBits == 8 )
+ {
+#ifdef _GET_IBM_COUNTER
+ hpmStart(2, "pack 8 bit unrolled");
+#endif
+ unsigned char *cgrib = (unsigned char *) (lGrib + z);
+ size_t i;
+ for (i = 0; i < datasize - residual; i += CGRIBEX__UNROLL_DEPTH_2)
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[i+j]);
+ }
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *cgrib++ = (unsigned long) dval[j];
+#else
+ *cgrib++ = (unsigned char) dval[j];
+#endif
+ }
+ z += CGRIBEX__UNROLL_DEPTH_2;
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[i+j]);
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *cgrib++ = (unsigned long) dval[j];
+#else
+ *cgrib++ = (unsigned char) dval[j];
+#endif
+ }
+ z += residual;
+
+#ifdef _GET_IBM_COUNTER
+ hpmStop(2);
+#endif
+ }
+ else if ( numBits == 16 )
+ {
+#ifdef _GET_IBM_COUNTER
+ hpmStart(3, "pack 16 bit unrolled");
+#endif
+#ifdef _ARCH_PWR6
+ unsigned long ival;
+#else
+ uint16_t ival;
+#endif
+ uint16_t *sgrib = (uint16_t *)(void *)(lGrib+z);
+
+ for (size_t i = 0; i < datasize - residual; i += CGRIBEX__UNROLL_DEPTH_2)
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ dval[j] = CGRIBEX_FPSCALE(data[j]);
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *sgrib++ = (unsigned long) dval[j];
+#else
+ *sgrib++ = (uint16_t) dval[j];
+#endif
+ }
+ z += 2*CGRIBEX__UNROLL_DEPTH_2;
+ }
+ else
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+ ival = (uint16_t) dval[j];
+ *sgrib++ = gribSwapByteOrder_uint16(ival);
+ }
+ z += 2*CGRIBEX__UNROLL_DEPTH_2;
+ }
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[j]);
+ }
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t j = 0; j < residual; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *sgrib++ = (unsigned long) dval[j];
+#else
+ *sgrib++ = (uint16_t) dval[j];
+#endif
+ }
+ z += 2*residual;
+ }
+ else
+ {
+ for (size_t j = 0; j < residual; ++j)
+ {
+ ival = (uint16_t) dval[j];
+ lGrib[z ] = (GRIBPACK)(ival >> 8);
+ lGrib[z+1] = (GRIBPACK)ival;
+ z += 2;
+ }
+ }
+#ifdef _GET_IBM_COUNTER
+ hpmStop(3);
+#endif
+ }
+ else if ( numBits == 24 )
+ {
+#ifdef _GET_IBM_COUNTER
+ hpmStart(4, "pack 24 bit unrolled");
+#endif
+#ifdef _ARCH_PWR6
+ unsigned long ival;
+#else
+ uint32_t ival;
+#endif
+ for (size_t i = 0; i < datasize - residual; i += CGRIBEX__UNROLL_DEPTH_2)
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[j]);
+ }
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+#ifdef _ARCH_PWR6
+ ival = (unsigned long) dval[j];
+#else
+ ival = (uint32_t) dval[j];
+#endif
+ lGrib[z ] = (GRIBPACK)(ival >> 16);
+ lGrib[z+1] = (GRIBPACK)(ival >> 8);
+ lGrib[z+2] = (GRIBPACK)ival;
+ z += 3;
+ }
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[j]);
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ ival = (uint32_t) dval[j];
+ lGrib[z ] = (GRIBPACK)(ival >> 16);
+ lGrib[z+1] = (GRIBPACK)(ival >> 8);
+ lGrib[z+2] = (GRIBPACK)ival;
+ z += 3;
+ }
+#ifdef _GET_IBM_COUNTER
+ hpmStop(4);
+#endif
+ }
+ else if ( numBits == 32 )
+ {
+#ifdef _GET_IBM_COUNTER
+ hpmStart(5, "pack 32 bit unrolled");
+#endif
+#ifdef _ARCH_PWR6
+ unsigned long ival;
+#else
+ uint32_t ival;
+#endif
+ unsigned int *igrib = (unsigned int *)(void *)(lGrib + z);
+ for (size_t i = 0; i < datasize - residual; i += CGRIBEX__UNROLL_DEPTH_2)
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j) dval[j] = CGRIBEX_FPSCALE(data[i+j]);
+
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *igrib = (unsigned long) dval[j];
+#else
+ *igrib = (uint32_t) dval[j];
+#endif
+ igrib++;
+ z += 4;
+ }
+ }
+ else
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+ ival = (uint32_t) dval[j];
+ lGrib[z ] = (GRIBPACK)(ival >> 24);
+ lGrib[z+1] = (GRIBPACK)(ival >> 16);
+ lGrib[z+2] = (GRIBPACK)(ival >> 8);
+ lGrib[z+3] = (GRIBPACK)ival;
+ z += 4;
+ }
+ }
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[ofs+j]);
+ }
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t j = 0; j < residual; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *igrib = (unsigned long) dval[j];
+#else
+ *igrib = (uint32_t) dval[j];
+#endif
+ igrib++;
+ z += 4;
+ }
+ }
+ else
+ {
+ for (size_t j = 0; j < residual; ++j)
+ {
+ ival = (uint32_t) dval[j];
+ lGrib[z ] = (GRIBPACK)(ival >> 24);
+ lGrib[z+1] = (GRIBPACK)(ival >> 16);
+ lGrib[z+2] = (GRIBPACK)(ival >> 8);
+ lGrib[z+3] = (GRIBPACK)ival;
+ z += 4;
+ }
+ }
+#ifdef _GET_IBM_COUNTER
+ hpmStop(5);
+#endif
+ }
+ else if ( numBits > 0 && numBits <= 32 )
+ {
+ TEMPLATE(encode_array_common,T)(numBits, 0, datasize, lGrib, data, zref, factor, &z);
+ }
+ else if ( numBits == 0 )
+ {
+ }
+ else
+ {
+ Error("Unimplemented packing factor %d!", numBits);
+ }
+
+ *gz = z;
+}
+
+#ifdef CGRIBEX_FPSCALE
+#undef CGRIBEX_FPSCALE
+#endif
+
+#endif /* T */
+
+#ifdef T
+#undef T
+#endif
+#define T float
+#ifdef T
+
+
+#define CGRIBEX_FPSCALE(data) (((data) - zref) * factor + 0.5)
+
+static
+void TEMPLATE(encode_array_common,T)(int numBits, size_t packStart, size_t datasize, GRIBPACK *lGrib,
+ const T *data, T zref, T factor, size_t *gz)
+{
+ size_t z = *gz;
+ unsigned int ival;
+ int cbits, jbits;
+ unsigned int c;
+
+ // code from gribw routine flist2bitstream
+
+ cbits = 8;
+ c = 0;
+ for (size_t i = packStart; i < datasize; ++i)
+ {
+ // note float -> unsigned int .. truncate
+ ival = (unsigned int)(CGRIBEX_FPSCALE(data[i]));
+ /*
+ if ( ival > max_nbpv_pow2 ) ival = max_nbpv_pow2;
+ if ( ival < 0 ) ival = 0;
+ */
+ jbits = numBits;
+ while ( cbits <= jbits )
+ {
+ if ( cbits == 8 )
+ {
+ jbits -= 8;
+ lGrib[z++] = (ival >> jbits) & 0xFF;
+ }
+ else
+ {
+ jbits -= cbits;
+ lGrib[z++] = (GRIBPACK)((c << cbits)
+ + ((ival >> jbits) & ((1U << cbits) - 1)));
+ cbits = 8;
+ c = 0;
+ }
+ }
+ /* now jbits < cbits */
+ if ( jbits )
+ {
+ c = (c << jbits) + (ival & ((1U << jbits)-1));
+ cbits -= jbits;
+ }
+ }
+ if ( cbits != 8 ) lGrib[z++] = (GRIBPACK)(c << cbits);
+
+ *gz = z;
+}
+
+
+static
+void TEMPLATE(encode_array_2byte,T)(size_t datasize, GRIBPACK *restrict lGrib,
+ const T *restrict data, T zref, T factor, size_t *gz)
+{
+ uint16_t *restrict sgrib = (uint16_t *)(void *)(lGrib+*gz);
+
+ if (IS_BIGENDIAN())
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ sgrib[i] = (uint16_t) CGRIBEX_FPSCALE(data[i]);
+ }
+ else
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ uint16_t ui16 = (uint16_t) CGRIBEX_FPSCALE(data[i]);
+ sgrib[i] = gribSwapByteOrder_uint16(ui16);
+ }
+ }
+
+ *gz += 2*datasize;
+}
+
+static
+void TEMPLATE(encode_array,T)(int numBits, size_t packStart, size_t datasize,
+ GRIBPACK *restrict lGrib,
+ const T *restrict data,
+ T zref, T factor, size_t *gz)
+{
+ size_t z = *gz;
+
+ data += packStart;
+ datasize -= packStart;
+
+ if (numBits == 8)
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ lGrib[z++] = (GRIBPACK) CGRIBEX_FPSCALE(data[i]);
+ }
+ }
+ else if (numBits == 16)
+ {
+ if (sizeof(T) == sizeof(double))
+ {
+ grib_encode_array_2byte_double(datasize, lGrib, (const double *)(const void *)data, zref, factor, &z);
+ }
+ else
+ {
+ TEMPLATE(encode_array_2byte,T)(datasize, lGrib, data, zref, factor, &z);
+ }
+ }
+ else if (numBits == 24)
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ uint32_t ui32 = (uint32_t) CGRIBEX_FPSCALE(data[i]);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 16);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 8);
+ lGrib[z++] = (GRIBPACK)ui32;
+ }
+ }
+ else if (numBits == 32)
+ {
+ for (size_t i = 0; i < datasize; ++i)
+ {
+ uint32_t ui32 = (uint32_t) CGRIBEX_FPSCALE(data[i]);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 24);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 16);
+ lGrib[z++] = (GRIBPACK)(ui32 >> 8);
+ lGrib[z++] = (GRIBPACK)ui32;
+ }
+ }
+ else if (numBits > 0 && numBits <= 32)
+ {
+ TEMPLATE(encode_array_common,T)(numBits, 0, datasize, lGrib, data, zref, factor, &z);
+ }
+ else if (numBits == 0)
+ {
+ }
+ else
+ {
+ Error("Unimplemented packing factor %d!", numBits);
+ }
+
+ *gz = z;
+}
+
+static
+void TEMPLATE(encode_array_unrolled,T)(int numBits, size_t packStart, size_t datasize,
+ GRIBPACK *restrict lGrib,
+ const T *restrict data,
+ T zref, T factor, size_t *gz)
+{
+ size_t z = *gz;
+#ifdef _ARCH_PWR6
+ enum { CGRIBEX__UNROLL_DEPTH_2 = 8 };
+#else
+ enum { CGRIBEX__UNROLL_DEPTH_2 = 128 };
+#endif
+ size_t residual;
+ size_t ofs;
+ double dval[CGRIBEX__UNROLL_DEPTH_2];
+
+ data += packStart;
+ datasize -= packStart;
+ residual = datasize % CGRIBEX__UNROLL_DEPTH_2;
+ ofs = datasize - residual;
+
+ // reducing FP operations to single FMA is slowing down on pwr6 ...
+
+ if ( numBits == 8 )
+ {
+#ifdef _GET_IBM_COUNTER
+ hpmStart(2, "pack 8 bit unrolled");
+#endif
+ unsigned char *cgrib = (unsigned char *) (lGrib + z);
+ size_t i;
+ for (i = 0; i < datasize - residual; i += CGRIBEX__UNROLL_DEPTH_2)
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[i+j]);
+ }
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *cgrib++ = (unsigned long) dval[j];
+#else
+ *cgrib++ = (unsigned char) dval[j];
+#endif
+ }
+ z += CGRIBEX__UNROLL_DEPTH_2;
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[i+j]);
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *cgrib++ = (unsigned long) dval[j];
+#else
+ *cgrib++ = (unsigned char) dval[j];
+#endif
+ }
+ z += residual;
+
+#ifdef _GET_IBM_COUNTER
+ hpmStop(2);
+#endif
+ }
+ else if ( numBits == 16 )
+ {
+#ifdef _GET_IBM_COUNTER
+ hpmStart(3, "pack 16 bit unrolled");
+#endif
+#ifdef _ARCH_PWR6
+ unsigned long ival;
+#else
+ uint16_t ival;
+#endif
+ uint16_t *sgrib = (uint16_t *)(void *)(lGrib+z);
+
+ for (size_t i = 0; i < datasize - residual; i += CGRIBEX__UNROLL_DEPTH_2)
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ dval[j] = CGRIBEX_FPSCALE(data[j]);
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *sgrib++ = (unsigned long) dval[j];
+#else
+ *sgrib++ = (uint16_t) dval[j];
+#endif
+ }
+ z += 2*CGRIBEX__UNROLL_DEPTH_2;
+ }
+ else
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+ ival = (uint16_t) dval[j];
+ *sgrib++ = gribSwapByteOrder_uint16(ival);
+ }
+ z += 2*CGRIBEX__UNROLL_DEPTH_2;
+ }
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[j]);
+ }
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t j = 0; j < residual; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *sgrib++ = (unsigned long) dval[j];
+#else
+ *sgrib++ = (uint16_t) dval[j];
+#endif
+ }
+ z += 2*residual;
+ }
+ else
+ {
+ for (size_t j = 0; j < residual; ++j)
+ {
+ ival = (uint16_t) dval[j];
+ lGrib[z ] = (GRIBPACK)(ival >> 8);
+ lGrib[z+1] = (GRIBPACK)ival;
+ z += 2;
+ }
+ }
+#ifdef _GET_IBM_COUNTER
+ hpmStop(3);
+#endif
+ }
+ else if ( numBits == 24 )
+ {
+#ifdef _GET_IBM_COUNTER
+ hpmStart(4, "pack 24 bit unrolled");
+#endif
+#ifdef _ARCH_PWR6
+ unsigned long ival;
+#else
+ uint32_t ival;
+#endif
+ for (size_t i = 0; i < datasize - residual; i += CGRIBEX__UNROLL_DEPTH_2)
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[j]);
+ }
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+#ifdef _ARCH_PWR6
+ ival = (unsigned long) dval[j];
+#else
+ ival = (uint32_t) dval[j];
+#endif
+ lGrib[z ] = (GRIBPACK)(ival >> 16);
+ lGrib[z+1] = (GRIBPACK)(ival >> 8);
+ lGrib[z+2] = (GRIBPACK)ival;
+ z += 3;
+ }
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[j]);
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ ival = (uint32_t) dval[j];
+ lGrib[z ] = (GRIBPACK)(ival >> 16);
+ lGrib[z+1] = (GRIBPACK)(ival >> 8);
+ lGrib[z+2] = (GRIBPACK)ival;
+ z += 3;
+ }
+#ifdef _GET_IBM_COUNTER
+ hpmStop(4);
+#endif
+ }
+ else if ( numBits == 32 )
+ {
+#ifdef _GET_IBM_COUNTER
+ hpmStart(5, "pack 32 bit unrolled");
+#endif
+#ifdef _ARCH_PWR6
+ unsigned long ival;
+#else
+ uint32_t ival;
+#endif
+ unsigned int *igrib = (unsigned int *)(void *)(lGrib + z);
+ for (size_t i = 0; i < datasize - residual; i += CGRIBEX__UNROLL_DEPTH_2)
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j) dval[j] = CGRIBEX_FPSCALE(data[i+j]);
+
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *igrib = (unsigned long) dval[j];
+#else
+ *igrib = (uint32_t) dval[j];
+#endif
+ igrib++;
+ z += 4;
+ }
+ }
+ else
+ {
+ for (size_t j = 0; j < CGRIBEX__UNROLL_DEPTH_2; ++j)
+ {
+ ival = (uint32_t) dval[j];
+ lGrib[z ] = (GRIBPACK)(ival >> 24);
+ lGrib[z+1] = (GRIBPACK)(ival >> 16);
+ lGrib[z+2] = (GRIBPACK)(ival >> 8);
+ lGrib[z+3] = (GRIBPACK)ival;
+ z += 4;
+ }
+ }
+ }
+ for (size_t j = 0; j < residual; ++j)
+ {
+ dval[j] = CGRIBEX_FPSCALE(data[ofs+j]);
+ }
+ if ( IS_BIGENDIAN() )
+ {
+ for (size_t j = 0; j < residual; ++j)
+ {
+#ifdef _ARCH_PWR6
+ *igrib = (unsigned long) dval[j];
+#else
+ *igrib = (uint32_t) dval[j];
+#endif
+ igrib++;
+ z += 4;
+ }
+ }
+ else
+ {
+ for (size_t j = 0; j < residual; ++j)
+ {
+ ival = (uint32_t) dval[j];
+ lGrib[z ] = (GRIBPACK)(ival >> 24);
+ lGrib[z+1] = (GRIBPACK)(ival >> 16);
+ lGrib[z+2] = (GRIBPACK)(ival >> 8);
+ lGrib[z+3] = (GRIBPACK)ival;
+ z += 4;
+ }
+ }
+#ifdef _GET_IBM_COUNTER
+ hpmStop(5);
+#endif
+ }
+ else if ( numBits > 0 && numBits <= 32 )
+ {
+ TEMPLATE(encode_array_common,T)(numBits, 0, datasize, lGrib, data, zref, factor, &z);
+ }
+ else if ( numBits == 0 )
+ {
+ }
+ else
+ {
+ Error("Unimplemented packing factor %d!", numBits);
+ }
+
+ *gz = z;
+}
+
+#ifdef CGRIBEX_FPSCALE
+#undef CGRIBEX_FPSCALE
+#endif
+
+#endif /* T */
+
+
+#ifdef T
+#undef T
+#endif
+#define T double
+#ifdef T
+
+// GRIB BLOCK 2 - GRID DESCRIPTION SECTION
+static
+void TEMPLATE(encodeGDS,T)(GRIBPACK *lGrib, long *gribLen, int *isec2, T *fsec2)
+{
+ long z = *gribLen;
+ int exponent, mantissa;
+ int ival;
+ int gdslen = 32;
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_LCC ) gdslen += 10;
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT ) gdslen += 10;
+
+ const int pvoffset = (ISEC2_NumVCP || ISEC2_Reduced) ? gdslen + 1 : 0xFF;
+
+ if ( ISEC2_Reduced ) gdslen += 2 * ISEC2_NumLat;
+
+ gdslen += ISEC2_NumVCP * 4;
+
+ Put3Byte(gdslen); /* 0- 2 Length of Block 2 Byte 0 */
+ Put1Byte(ISEC2_NumVCP); /* 3 NV */
+ Put1Byte(pvoffset); /* 4 PV */
+ Put1Byte(ISEC2_GridType); /* 5 LatLon=0 Gauss=4 Spectral=50 */
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_SPECTRAL )
+ {
+ Put2Byte(ISEC2_PentaJ); /* 6- 7 Pentagonal resolution J */
+ Put2Byte(ISEC2_PentaK); /* 8- 9 Pentagonal resolution K */
+ Put2Byte(ISEC2_PentaM); /* 10-11 Pentagonal resolution M */
+ Put1Byte(ISEC2_RepType); /* 12 Representation type */
+ Put1Byte(ISEC2_RepMode); /* 13 Representation mode */
+ PutnZero(18); /* 14-31 reserved */
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_GME )
+ {
+ Put2Byte(ISEC2_GME_NI2);
+ Put2Byte(ISEC2_GME_NI3);
+ Put3Byte(ISEC2_GME_ND);
+ Put3Byte(ISEC2_GME_NI);
+ Put1Byte(ISEC2_GME_AFlag);
+ Put3Int(ISEC2_GME_LatPP);
+ Put3Int(ISEC2_GME_LonPP);
+ Put3Int(ISEC2_GME_LonMPL);
+ Put1Byte(ISEC2_GME_BFlag);
+ PutnZero(5);
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_LCC )
+ {
+ Put2Byte(ISEC2_NumLon); /* 6- 7 Longitudes */
+
+ Put2Byte(ISEC2_NumLat); /* 8- 9 Latitudes */
+ Put3Int(ISEC2_FirstLat);
+ Put3Int(ISEC2_FirstLon);
+ Put1Byte(ISEC2_ResFlag); /* 16 Resolution flag */
+ Put3Int(ISEC2_Lambert_Lov); /* 17-19 */
+ Put3Int(ISEC2_Lambert_dx); /* 20-22 */
+ Put3Int(ISEC2_Lambert_dy); /* 23-25 */
+ Put1Byte(ISEC2_Lambert_ProjFlag);/* 26 Projection flag */
+ Put1Byte(ISEC2_ScanFlag); /* 27 Scanning mode */
+ Put3Int(ISEC2_Lambert_LatS1); /* 28-30 */
+ Put3Int(ISEC2_Lambert_LatS2); /* 31-33 */
+ Put3Int(ISEC2_Lambert_LatSP); /* 34-36 */
+ Put3Int(ISEC2_Lambert_LonSP); /* 37-39 */
+ PutnZero(2); /* 34-41 */
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_LATLON ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT )
+ {
+ const int numlon = ISEC2_Reduced ? 0xFFFF : ISEC2_NumLon;
+ Put2Byte(numlon); /* 6- 7 Number of Longitudes */
+
+ Put2Byte(ISEC2_NumLat); /* 8- 9 Number of Latitudes */
+ Put3Int(ISEC2_FirstLat);
+ Put3Int(ISEC2_FirstLon);
+ Put1Byte(ISEC2_ResFlag); /* 16 Resolution flag */
+ Put3Int(ISEC2_LastLat);
+ Put3Int(ISEC2_LastLon);
+ const unsigned lonIncr = (ISEC2_ResFlag == 0) ? 0xFFFF : (unsigned)ISEC2_LonIncr;
+ const unsigned latIncr = (ISEC2_ResFlag == 0) ? 0xFFFF : (unsigned)ISEC2_LatIncr;
+ Put2Byte(lonIncr); /* 23-24 i - direction increment */
+ if ( ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN )
+ Put2Byte(ISEC2_NumPar); /* 25-26 Latitudes Pole->Equator */
+ else
+ Put2Byte(latIncr); /* 25-26 j - direction increment */
+
+ Put1Byte(ISEC2_ScanFlag); /* 27 Scanning mode */
+ PutnZero(4); /* 28-31 reserved */
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT )
+ {
+ Put3Int(ISEC2_LatSP);
+ Put3Int(ISEC2_LonSP);
+ Put1Real((double)(FSEC2_RotAngle));
+ }
+ }
+ else
+ {
+ Error("Unsupported grid type %d", ISEC2_GridType);
+ }
+
+#if defined (SX)
+#pragma vdir novector /* vectorization gives wrong results on NEC */
+#endif
+ for (long i = 0; i < ISEC2_NumVCP; ++i)
+ {
+ Put1Real((double)(fsec2[10+i]));
+ }
+
+ if ( ISEC2_Reduced )
+ for (long i = 0; i < ISEC2_NumLat; ++i) Put2Byte(ISEC2_ReducedPoints(i));
+
+ *gribLen = z;
+}
+
+// GRIB BLOCK 3 - BIT MAP SECTION
+static
+void TEMPLATE(encodeBMS,T)(GRIBPACK *lGrib, long *gribLen, T *fsec3, int *isec4, T *data, long *datasize)
+{
+ long z = *gribLen;
+ static bool lmissvalinfo = true;
+ // unsigned int c, imask;
+
+ if ( DBL_IS_NAN(FSEC3_MissVal) && lmissvalinfo)
+ {
+ lmissvalinfo = false;
+ Message("Missing value = NaN is unsupported!");
+ }
+
+ const long bitmapSize = ISEC4_NumValues;
+ const long imaskSize = ((bitmapSize+7)>>3)<<3;
+ GRIBPACK *bitmap = &lGrib[z+6];
+ long fsec4size = 0;
+
+#ifdef VECTORCODE
+ unsigned int *imask = (unsigned int*) Malloc(imaskSize*sizeof(unsigned int));
+ memset(imask, 0, imaskSize*sizeof(int));
+
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (long i = 0; i < bitmapSize; ++i)
+ {
+ if ( IS_NOT_EQUAL(data[i], FSEC3_MissVal) )
+ {
+ data[fsec4size++] = data[i];
+ imask[i] = 1;
+ }
+ }
+
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (long i = 0; i < imaskSize/8; ++i)
+ {
+ bitmap[i] = (imask[i*8+0] << 7) | (imask[i*8+1] << 6) |
+ (imask[i*8+2] << 5) | (imask[i*8+3] << 4) |
+ (imask[i*8+4] << 3) | (imask[i*8+5] << 2) |
+ (imask[i*8+6] << 1) | (imask[i*8+7]);
+ }
+
+ Free(imask);
+#else
+ for (long i = 0; i < imaskSize/8; ++i) bitmap[i] = 0;
+
+ for (long i = 0; i < bitmapSize; ++i)
+ {
+ if ( IS_NOT_EQUAL(data[i], FSEC3_MissVal) )
+ {
+ data[fsec4size++] = data[i];
+ bitmap[i/8] |= (GRIBPACK)(1<<(7-(i&7)));
+ }
+ }
+#endif
+
+ const long bmsLen = imaskSize/8 + 6;
+ const long bmsUnusedBits = imaskSize - bitmapSize;
+
+ Put3Byte(bmsLen); /* 0- 2 Length of Block 3 Byte 0 */
+ Put1Byte(bmsUnusedBits);
+ Put2Byte(0);
+
+ *gribLen += bmsLen;
+
+ *datasize = fsec4size;
+}
+
+#define pow_double pow
+#define pow_float powf
+
+// GRIB BLOCK 4 - BINARY DATA SECTION
+static
+int TEMPLATE(encodeBDS,T)(GRIBPACK *lGrib, long *gribLen, int decscale, int *isec2, int *isec4, long datasize, T *data,
+ long *datstart, long *datsize, int code)
+{
+ // Uwe Schulzweida, 11/04/2003 : Check that number of bits per value is not exceeded
+ // Uwe Schulzweida, 6/05/2003 : Copy result to fpval to prevent integer overflow
+
+ size_t z = (size_t)*gribLen;
+ int numBits;
+ int ival;
+ long PackStart = 0;
+ int Flag = 0;
+ int binscale = 0;
+ int bds_head = 11;
+ int bds_ext = 0;
+ /* ibits = BitsPerInt; */
+ int exponent, mantissa;
+ bool lspherc = false;
+ int isubset = 0, itemp = 0, itrunc = 0;
+ T factor = 1, fmin, fmax;
+ const double jpepsln = 1.0e-12; // -----> tolerance used to check equality
+ // of floating point numbers - needed
+ // on some platforms (eg vpp700, linux)
+ extern int CGRIBEX_Const; // 1: Don't pack constant fields on regular grids
+
+ if ( isec2 )
+ {
+ /* If section 2 is present, it says if data is spherical harmonic */
+
+ lspherc = ( isec2[0] == 50 || isec2[0] == 60 ||
+ isec2[0] == 70 || isec2[0] == 80 );
+
+ isec4[2] = lspherc ? 128 : 0;
+ }
+ else
+ {
+ /* Section 4 says if it's spherical harmonic data.. */
+
+ lspherc = ( isec4[2] == 128 );
+ }
+
+ /* Complex packing supported for spherical harmonics. */
+
+ const bool lcomplex = ( lspherc && ( isec4[3] == 64 ) ) ||
+ ( lspherc && isec2 && ( isec2[5] == 2 ) );
+
+ // Check input specification is consistent
+
+ if ( lcomplex && isec2 )
+ {
+ if ( ( isec4[3] != 64 ) && ( isec2[5] == 2 ) )
+ {
+ gprintf(__func__, " COMPLEX mismatch. isec4[3] = %d\n", isec4[3]);
+ gprintf(__func__, " COMPLEX mismatch. isec2[5] = %d\n", isec2[5]);
+ return (807);
+ }
+ else if ( ( isec4[3] == 64 ) && ( isec2[5] != 2 ) )
+ {
+ gprintf(__func__, " COMPLEX mismatch. isec4[3] = %d\n", isec4[3]);
+ gprintf(__func__, " COMPLEX mismatch. isec2[5] = %d\n", isec2[5]);
+ return (807);
+ }
+ else if ( lcomplex )
+ {
+ // Truncation of full spectrum, which is supposed triangular, has to be diagnosed. Define also sub-set truncation.
+ isubset = isec4[17];
+ // When encoding, use the total number of data.
+ itemp = isec4[0];
+ itrunc = (int) (sqrt(itemp*4 + 1.) - 3) / 2;
+ }
+ }
+
+ if ( decscale )
+ {
+ const T scale = TEMPLATE(pow,T)((T)10.0, (T)decscale);
+ for (long i = 0; i < datasize; ++i) data[i] *= scale;
+ }
+
+ if ( lspherc )
+ {
+ if ( lcomplex )
+ {
+ const int jup = isubset;
+ const int ioff = (jup+1)*(jup+2);
+ bds_ext = 4 + 3 + 4*ioff;
+ PackStart = ioff;
+ Flag = 192;
+ }
+ else
+ {
+ bds_ext = 4;
+ PackStart = 1;
+ Flag = 128;
+ }
+ }
+
+ *datstart = bds_head + bds_ext;
+
+ int nbpv = numBits = ISEC4_NumBits;
+
+ if ( lspherc && lcomplex )
+ {
+ const int pcStart = isubset;
+ const int pcScale = isec4[16];
+ TEMPLATE(scale_complex,T)(data, pcStart, pcScale, itrunc, 0);
+ TEMPLATE(gather_complex,T)(data, (size_t)pcStart, (size_t)itrunc, (size_t)datasize);
+ }
+
+ fmin = fmax = data[PackStart];
+
+ TEMPLATE(minmax_val,T)(data+PackStart, datasize-PackStart, &fmin, &fmax);
+
+ double zref = (double)fmin;
+ if (!(zref < DBL_MAX && zref > -DBL_MAX))
+ {
+ gprintf(__func__, "Minimum value out of range: %g!", zref);
+ return (707);
+ }
+
+ if ( CGRIBEX_Const && !lspherc )
+ {
+ if ( IS_EQUAL(fmin, fmax) ) nbpv = 0;
+ }
+
+ long blockLength = (*datstart) + (nbpv*(datasize - PackStart) + 7)/8;
+ blockLength += blockLength & 1;
+
+ const long unused_bits = blockLength*8 - (*datstart)*8 - nbpv*(datasize - PackStart);
+
+ Flag += (int)unused_bits;
+
+
+ // Adjust number of bits per value if full integer length to avoid hitting most significant bit (sign bit).
+ // if( nbpv == ibits ) nbpv = nbpv - 1;
+ /*
+ Calculate the binary scaling factor to spread the range of values over the number of bits per value.
+ Limit scaling to 2**-126 to 2**127 (using IEEE 32-bit floatsas a guideline).
+ */
+ const double range = fabs(fmax - fmin);
+
+ if ( fabs(fmin) < FLT_MIN ) fmin = 0;
+ /*
+ Have to allow tolerance in comparisons on some platforms (eg vpp700 and linux),
+ such as 0.9999999999999999 = 1.0, to avoid clipping ranges which are a power of 2.
+ */
+ if ( range <= jpepsln )
+ {
+ binscale = 0;
+ }
+ else if ( IS_NOT_EQUAL(fmin, 0.0) && (fabs(range/fmin) <= jpepsln) )
+ {
+ binscale = 0;
+ }
+ else if ( fabs(range-1.0) <= jpepsln )
+ {
+ binscale = 1 - nbpv;
+ }
+ else if ( range > 1.0 )
+ {
+ const double rangec = range + jpepsln;
+ double p2 = 2.0;
+ int jloop = 1;
+ while ( jloop < 128 && p2 <= rangec )
+ {
+ p2 *= 2.0;
+ ++jloop;
+ }
+ if (jloop < 128)
+ binscale = jloop - nbpv;
+ else
+ {
+ gprintf(__func__, "Problem calculating binary scale value for encode code %d!", code);
+ gprintf(__func__, "> range %g rangec %g fmin %g fmax %g", range, rangec, fmin, fmax);
+ return (707);
+ }
+ }
+ else
+ {
+ const double rangec = range - jpepsln;
+ double p05 = 0.5;
+ int jloop = 1;
+ while ( jloop < 127 && p05 >= rangec )
+ {
+ p05 *= 0.5;
+ jloop++;
+ }
+ if ( jloop < 127 )
+ {
+ binscale = 1 - jloop - nbpv;
+ }
+ else
+ {
+ gprintf(__func__, "Problem calculating binary scale value for encode code %d!", code);
+ gprintf(__func__, "< range %g rangec %g fmin %g fmax %g", range, rangec, fmin, fmax);
+ return (707);
+ }
+ }
+
+ const uint64_t max_nbpv_pow2 = (uint64_t) ((1ULL << nbpv) - 1);
+
+ if ( binscale != 0 )
+ {
+ while ( (uint64_t)(ldexp(range, -binscale)+0.5) > max_nbpv_pow2 ) binscale++;
+
+ factor = (T)intpow2(-binscale);
+ }
+
+ ref2ibm(&zref, BitsPerInt);
+
+ Put3Byte(blockLength); // 0-2 Length of Block 4
+ Put1Byte(Flag); // 3 Flag & Unused bits
+ if ( binscale < 0 ) binscale = 32768 - binscale;
+ Put2Byte(binscale); // 4-5 Scale factor
+ Put1Real(zref); // 6-9 Reference value
+ Put1Byte(nbpv); // 10 Packing size
+
+ if ( lspherc )
+ {
+ if ( lcomplex )
+ {
+ const int jup = isubset;
+ int ioff = (int)z + bds_ext;
+ if ( ioff > 0xFFFF ) ioff = 0;
+ Put2Byte(ioff);
+ Put2Int(isec4[16]);
+ Put1Byte(jup);
+ Put1Byte(jup);
+ Put1Byte(jup);
+ for (long i = 0; i < ((jup+1)*(jup+2)); ++i) Put1Real((double)(data[i]));
+ }
+ else
+ {
+ Put1Real((double)(data[0]));
+ }
+ }
+
+ *datsize = ((datasize-PackStart)*nbpv + 7)/8;
+
+#if defined (_ARCH_PWR6)
+ TEMPLATE(encode_array_unrolled,T)(nbpv, (size_t)PackStart, (size_t)datasize, lGrib, data, (T)zref, factor, &z);
+#else
+ TEMPLATE(encode_array,T)(nbpv, (size_t)PackStart, (size_t)datasize, lGrib, data, (T)zref, factor, &z);
+#endif
+
+ if ( unused_bits >= 8 ) Put1Byte(0); // Fillbyte
+
+ *gribLen = (long)z;
+
+ return 0;
+}
+
+
+void TEMPLATE(grib_encode,T)(int *isec0, int *isec1, int *isec2, T *fsec2, int *isec3,
+ T *fsec3, int *isec4, T *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, int efunc, int *kret)
+{
+ long gribLen = 0; // Counter of GRIB length for output
+ long fsec4size = 0;
+ long datstart, datsize;
+
+ UNUSED(isec3);
+ UNUSED(efunc);
+
+ grsdef();
+
+ unsigned char *CGrib = (unsigned char *) kgrib;
+
+ const bool gdsIncluded = ISEC1_Sec2Or3Flag & 128;
+ const bool bmsIncluded = ISEC1_Sec2Or3Flag & 64;
+
+ // set max header len
+ size_t len = 16384;
+
+ // add data len
+ const size_t numBytes = (size_t)((ISEC4_NumBits+7)>>3);
+
+ len += numBytes*(size_t)klenp;
+
+ // add bitmap len
+ if ( bmsIncluded ) len += (size_t)((klenp+7)>>3);
+
+#ifdef VECTORCODE
+ GRIBPACK *lGrib = (GRIBPACK*) Malloc(len*sizeof(GRIBPACK));
+ if ( lGrib == NULL ) SysError("No Memory!");
+#else
+ GRIBPACK *lGrib = CGrib;
+#endif
+
+ const long isLen = 8;
+ encodeIS(lGrib, &gribLen);
+ GRIBPACK *lpds = &lGrib[isLen];
+ const long pdsLen = getPdsLen(isec1);
+
+ encodePDS(lpds, pdsLen, isec1);
+ gribLen += pdsLen;
+ /*
+ if ( ( isec4[3] == 64 ) && ( isec2[5] == 2 ) )
+ {
+ static bool lwarn_cplx = true;
+
+ if ( lwarn_cplx )
+ Message("Complex packing of spectral data unsupported, using simple packing!");
+
+ isec2[5] = 1;
+ isec4[3] = 0;
+
+ lwarn_cplx = false;
+ }
+ */
+ if ( gdsIncluded ) TEMPLATE(encodeGDS,T)(lGrib, &gribLen, isec2, fsec2);
+ /*
+ ----------------------------------------------------------------
+ BMS Bit-Map Section Section (Section 3)
+ ----------------------------------------------------------------
+ */
+ if ( bmsIncluded )
+ {
+ TEMPLATE(encodeBMS,T)(lGrib, &gribLen, fsec3, isec4, fsec4, &fsec4size);
+ }
+ else
+ {
+ fsec4size = ISEC4_NumValues;
+ }
+
+ const long bdsstart = gribLen;
+ int status = TEMPLATE(encodeBDS,T)(lGrib, &gribLen, ISEC1_DecScaleFactor, isec2,
+ isec4, fsec4size, fsec4, &datstart, &datsize, ISEC1_Parameter);
+ if ( status )
+ {
+ *kret = status;
+ return;
+ }
+
+ encodeES(lGrib, &gribLen, bdsstart);
+
+ if ( (size_t) gribLen > (size_t)kleng*sizeof(int) )
+ Error("kgrib buffer too small! kleng = %d gribLen = %d", kleng, gribLen);
+
+#ifdef VECTORCODE
+ if ( (size_t) gribLen > len )
+ Error("lGrib buffer too small! len = %d gribLen = %d", len, gribLen);
+
+ (void) PACK_GRIB(lGrib, (unsigned char *)CGrib, gribLen, -1L);
+
+ Free(lGrib);
+#endif
+
+ ISEC0_GRIB_Len = (int)gribLen;
+ ISEC0_GRIB_Version = 1;
+
+ *kword = (int)((gribLen + (long)sizeof(int) - 1) / (long)sizeof(int));
+
+ *kret = status;
+}
+
+#endif /* T */
+
+/*
+ * Local Variables:
+ * mode: c
+ * End:
+ */
+
+#ifdef T
+#undef T
+#endif
+#define T float
+#ifdef T
+
+// GRIB BLOCK 2 - GRID DESCRIPTION SECTION
+static
+void TEMPLATE(encodeGDS,T)(GRIBPACK *lGrib, long *gribLen, int *isec2, T *fsec2)
+{
+ long z = *gribLen;
+ int exponent, mantissa;
+ int ival;
+ int gdslen = 32;
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_LCC ) gdslen += 10;
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT ) gdslen += 10;
+
+ const int pvoffset = (ISEC2_NumVCP || ISEC2_Reduced) ? gdslen + 1 : 0xFF;
+
+ if ( ISEC2_Reduced ) gdslen += 2 * ISEC2_NumLat;
+
+ gdslen += ISEC2_NumVCP * 4;
+
+ Put3Byte(gdslen); /* 0- 2 Length of Block 2 Byte 0 */
+ Put1Byte(ISEC2_NumVCP); /* 3 NV */
+ Put1Byte(pvoffset); /* 4 PV */
+ Put1Byte(ISEC2_GridType); /* 5 LatLon=0 Gauss=4 Spectral=50 */
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_SPECTRAL )
+ {
+ Put2Byte(ISEC2_PentaJ); /* 6- 7 Pentagonal resolution J */
+ Put2Byte(ISEC2_PentaK); /* 8- 9 Pentagonal resolution K */
+ Put2Byte(ISEC2_PentaM); /* 10-11 Pentagonal resolution M */
+ Put1Byte(ISEC2_RepType); /* 12 Representation type */
+ Put1Byte(ISEC2_RepMode); /* 13 Representation mode */
+ PutnZero(18); /* 14-31 reserved */
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_GME )
+ {
+ Put2Byte(ISEC2_GME_NI2);
+ Put2Byte(ISEC2_GME_NI3);
+ Put3Byte(ISEC2_GME_ND);
+ Put3Byte(ISEC2_GME_NI);
+ Put1Byte(ISEC2_GME_AFlag);
+ Put3Int(ISEC2_GME_LatPP);
+ Put3Int(ISEC2_GME_LonPP);
+ Put3Int(ISEC2_GME_LonMPL);
+ Put1Byte(ISEC2_GME_BFlag);
+ PutnZero(5);
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_LCC )
+ {
+ Put2Byte(ISEC2_NumLon); /* 6- 7 Longitudes */
+
+ Put2Byte(ISEC2_NumLat); /* 8- 9 Latitudes */
+ Put3Int(ISEC2_FirstLat);
+ Put3Int(ISEC2_FirstLon);
+ Put1Byte(ISEC2_ResFlag); /* 16 Resolution flag */
+ Put3Int(ISEC2_Lambert_Lov); /* 17-19 */
+ Put3Int(ISEC2_Lambert_dx); /* 20-22 */
+ Put3Int(ISEC2_Lambert_dy); /* 23-25 */
+ Put1Byte(ISEC2_Lambert_ProjFlag);/* 26 Projection flag */
+ Put1Byte(ISEC2_ScanFlag); /* 27 Scanning mode */
+ Put3Int(ISEC2_Lambert_LatS1); /* 28-30 */
+ Put3Int(ISEC2_Lambert_LatS2); /* 31-33 */
+ Put3Int(ISEC2_Lambert_LatSP); /* 34-36 */
+ Put3Int(ISEC2_Lambert_LonSP); /* 37-39 */
+ PutnZero(2); /* 34-41 */
+ }
+ else if ( ISEC2_GridType == GRIB1_GTYPE_LATLON ||
+ ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN ||
+ ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT )
+ {
+ const int numlon = ISEC2_Reduced ? 0xFFFF : ISEC2_NumLon;
+ Put2Byte(numlon); /* 6- 7 Number of Longitudes */
+
+ Put2Byte(ISEC2_NumLat); /* 8- 9 Number of Latitudes */
+ Put3Int(ISEC2_FirstLat);
+ Put3Int(ISEC2_FirstLon);
+ Put1Byte(ISEC2_ResFlag); /* 16 Resolution flag */
+ Put3Int(ISEC2_LastLat);
+ Put3Int(ISEC2_LastLon);
+ const unsigned lonIncr = (ISEC2_ResFlag == 0) ? 0xFFFF : (unsigned)ISEC2_LonIncr;
+ const unsigned latIncr = (ISEC2_ResFlag == 0) ? 0xFFFF : (unsigned)ISEC2_LatIncr;
+ Put2Byte(lonIncr); /* 23-24 i - direction increment */
+ if ( ISEC2_GridType == GRIB1_GTYPE_GAUSSIAN )
+ Put2Byte(ISEC2_NumPar); /* 25-26 Latitudes Pole->Equator */
+ else
+ Put2Byte(latIncr); /* 25-26 j - direction increment */
+
+ Put1Byte(ISEC2_ScanFlag); /* 27 Scanning mode */
+ PutnZero(4); /* 28-31 reserved */
+
+ if ( ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT )
+ {
+ Put3Int(ISEC2_LatSP);
+ Put3Int(ISEC2_LonSP);
+ Put1Real((double)(FSEC2_RotAngle));
+ }
+ }
+ else
+ {
+ Error("Unsupported grid type %d", ISEC2_GridType);
+ }
+
+#if defined (SX)
+#pragma vdir novector /* vectorization gives wrong results on NEC */
+#endif
+ for (long i = 0; i < ISEC2_NumVCP; ++i)
+ {
+ Put1Real((double)(fsec2[10+i]));
+ }
+
+ if ( ISEC2_Reduced )
+ for (long i = 0; i < ISEC2_NumLat; ++i) Put2Byte(ISEC2_ReducedPoints(i));
+
+ *gribLen = z;
+}
+
+// GRIB BLOCK 3 - BIT MAP SECTION
+static
+void TEMPLATE(encodeBMS,T)(GRIBPACK *lGrib, long *gribLen, T *fsec3, int *isec4, T *data, long *datasize)
+{
+ long z = *gribLen;
+ static bool lmissvalinfo = true;
+ // unsigned int c, imask;
+
+ if ( DBL_IS_NAN(FSEC3_MissVal) && lmissvalinfo)
+ {
+ lmissvalinfo = false;
+ Message("Missing value = NaN is unsupported!");
+ }
+
+ const long bitmapSize = ISEC4_NumValues;
+ const long imaskSize = ((bitmapSize+7)>>3)<<3;
+ GRIBPACK *bitmap = &lGrib[z+6];
+ long fsec4size = 0;
+
+#ifdef VECTORCODE
+ unsigned int *imask = (unsigned int*) Malloc(imaskSize*sizeof(unsigned int));
+ memset(imask, 0, imaskSize*sizeof(int));
+
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (long i = 0; i < bitmapSize; ++i)
+ {
+ if ( IS_NOT_EQUAL(data[i], FSEC3_MissVal) )
+ {
+ data[fsec4size++] = data[i];
+ imask[i] = 1;
+ }
+ }
+
+#if defined (CRAY)
+#pragma _CRI ivdep
+#endif
+#if defined (SX)
+#pragma vdir nodep
+#endif
+#ifdef __uxpch__
+#pragma loop novrec
+#endif
+ for (long i = 0; i < imaskSize/8; ++i)
+ {
+ bitmap[i] = (imask[i*8+0] << 7) | (imask[i*8+1] << 6) |
+ (imask[i*8+2] << 5) | (imask[i*8+3] << 4) |
+ (imask[i*8+4] << 3) | (imask[i*8+5] << 2) |
+ (imask[i*8+6] << 1) | (imask[i*8+7]);
+ }
+
+ Free(imask);
+#else
+ for (long i = 0; i < imaskSize/8; ++i) bitmap[i] = 0;
+
+ for (long i = 0; i < bitmapSize; ++i)
+ {
+ if ( IS_NOT_EQUAL(data[i], FSEC3_MissVal) )
+ {
+ data[fsec4size++] = data[i];
+ bitmap[i/8] |= (GRIBPACK)(1<<(7-(i&7)));
+ }
+ }
+#endif
+
+ const long bmsLen = imaskSize/8 + 6;
+ const long bmsUnusedBits = imaskSize - bitmapSize;
+
+ Put3Byte(bmsLen); /* 0- 2 Length of Block 3 Byte 0 */
+ Put1Byte(bmsUnusedBits);
+ Put2Byte(0);
+
+ *gribLen += bmsLen;
+
+ *datasize = fsec4size;
+}
+
+#define pow_double pow
+#define pow_float powf
+
+// GRIB BLOCK 4 - BINARY DATA SECTION
+static
+int TEMPLATE(encodeBDS,T)(GRIBPACK *lGrib, long *gribLen, int decscale, int *isec2, int *isec4, long datasize, T *data,
+ long *datstart, long *datsize, int code)
+{
+ // Uwe Schulzweida, 11/04/2003 : Check that number of bits per value is not exceeded
+ // Uwe Schulzweida, 6/05/2003 : Copy result to fpval to prevent integer overflow
+
+ size_t z = (size_t)*gribLen;
+ int numBits;
+ int ival;
+ long PackStart = 0;
+ int Flag = 0;
+ int binscale = 0;
+ int bds_head = 11;
+ int bds_ext = 0;
+ /* ibits = BitsPerInt; */
+ int exponent, mantissa;
+ bool lspherc = false;
+ int isubset = 0, itemp = 0, itrunc = 0;
+ T factor = 1, fmin, fmax;
+ const double jpepsln = 1.0e-12; // -----> tolerance used to check equality
+ // of floating point numbers - needed
+ // on some platforms (eg vpp700, linux)
+ extern int CGRIBEX_Const; // 1: Don't pack constant fields on regular grids
+
+ if ( isec2 )
+ {
+ /* If section 2 is present, it says if data is spherical harmonic */
+
+ lspherc = ( isec2[0] == 50 || isec2[0] == 60 ||
+ isec2[0] == 70 || isec2[0] == 80 );
+
+ isec4[2] = lspherc ? 128 : 0;
+ }
+ else
+ {
+ /* Section 4 says if it's spherical harmonic data.. */
+
+ lspherc = ( isec4[2] == 128 );
+ }
+
+ /* Complex packing supported for spherical harmonics. */
+
+ const bool lcomplex = ( lspherc && ( isec4[3] == 64 ) ) ||
+ ( lspherc && isec2 && ( isec2[5] == 2 ) );
+
+ // Check input specification is consistent
+
+ if ( lcomplex && isec2 )
+ {
+ if ( ( isec4[3] != 64 ) && ( isec2[5] == 2 ) )
+ {
+ gprintf(__func__, " COMPLEX mismatch. isec4[3] = %d\n", isec4[3]);
+ gprintf(__func__, " COMPLEX mismatch. isec2[5] = %d\n", isec2[5]);
+ return (807);
+ }
+ else if ( ( isec4[3] == 64 ) && ( isec2[5] != 2 ) )
+ {
+ gprintf(__func__, " COMPLEX mismatch. isec4[3] = %d\n", isec4[3]);
+ gprintf(__func__, " COMPLEX mismatch. isec2[5] = %d\n", isec2[5]);
+ return (807);
+ }
+ else if ( lcomplex )
+ {
+ // Truncation of full spectrum, which is supposed triangular, has to be diagnosed. Define also sub-set truncation.
+ isubset = isec4[17];
+ // When encoding, use the total number of data.
+ itemp = isec4[0];
+ itrunc = (int) (sqrt(itemp*4 + 1.) - 3) / 2;
+ }
+ }
+
+ if ( decscale )
+ {
+ const T scale = TEMPLATE(pow,T)((T)10.0, (T)decscale);
+ for (long i = 0; i < datasize; ++i) data[i] *= scale;
+ }
+
+ if ( lspherc )
+ {
+ if ( lcomplex )
+ {
+ const int jup = isubset;
+ const int ioff = (jup+1)*(jup+2);
+ bds_ext = 4 + 3 + 4*ioff;
+ PackStart = ioff;
+ Flag = 192;
+ }
+ else
+ {
+ bds_ext = 4;
+ PackStart = 1;
+ Flag = 128;
+ }
+ }
+
+ *datstart = bds_head + bds_ext;
+
+ int nbpv = numBits = ISEC4_NumBits;
+
+ if ( lspherc && lcomplex )
+ {
+ const int pcStart = isubset;
+ const int pcScale = isec4[16];
+ TEMPLATE(scale_complex,T)(data, pcStart, pcScale, itrunc, 0);
+ TEMPLATE(gather_complex,T)(data, (size_t)pcStart, (size_t)itrunc, (size_t)datasize);
+ }
+
+ fmin = fmax = data[PackStart];
+
+ TEMPLATE(minmax_val,T)(data+PackStart, datasize-PackStart, &fmin, &fmax);
+
+ double zref = (double)fmin;
+ if (!(zref < DBL_MAX && zref > -DBL_MAX))
+ {
+ gprintf(__func__, "Minimum value out of range: %g!", zref);
+ return (707);
+ }
+
+ if ( CGRIBEX_Const && !lspherc )
+ {
+ if ( IS_EQUAL(fmin, fmax) ) nbpv = 0;
+ }
+
+ long blockLength = (*datstart) + (nbpv*(datasize - PackStart) + 7)/8;
+ blockLength += blockLength & 1;
+
+ const long unused_bits = blockLength*8 - (*datstart)*8 - nbpv*(datasize - PackStart);
+
+ Flag += (int)unused_bits;
+
+
+ // Adjust number of bits per value if full integer length to avoid hitting most significant bit (sign bit).
+ // if( nbpv == ibits ) nbpv = nbpv - 1;
+ /*
+ Calculate the binary scaling factor to spread the range of values over the number of bits per value.
+ Limit scaling to 2**-126 to 2**127 (using IEEE 32-bit floatsas a guideline).
+ */
+ const double range = fabs(fmax - fmin);
+
+ if ( fabs(fmin) < FLT_MIN ) fmin = 0;
+ /*
+ Have to allow tolerance in comparisons on some platforms (eg vpp700 and linux),
+ such as 0.9999999999999999 = 1.0, to avoid clipping ranges which are a power of 2.
+ */
+ if ( range <= jpepsln )
+ {
+ binscale = 0;
+ }
+ else if ( IS_NOT_EQUAL(fmin, 0.0) && (fabs(range/fmin) <= jpepsln) )
+ {
+ binscale = 0;
+ }
+ else if ( fabs(range-1.0) <= jpepsln )
+ {
+ binscale = 1 - nbpv;
+ }
+ else if ( range > 1.0 )
+ {
+ const double rangec = range + jpepsln;
+ double p2 = 2.0;
+ int jloop = 1;
+ while ( jloop < 128 && p2 <= rangec )
+ {
+ p2 *= 2.0;
+ ++jloop;
+ }
+ if (jloop < 128)
+ binscale = jloop - nbpv;
+ else
+ {
+ gprintf(__func__, "Problem calculating binary scale value for encode code %d!", code);
+ gprintf(__func__, "> range %g rangec %g fmin %g fmax %g", range, rangec, fmin, fmax);
+ return (707);
+ }
+ }
+ else
+ {
+ const double rangec = range - jpepsln;
+ double p05 = 0.5;
+ int jloop = 1;
+ while ( jloop < 127 && p05 >= rangec )
+ {
+ p05 *= 0.5;
+ jloop++;
+ }
+ if ( jloop < 127 )
+ {
+ binscale = 1 - jloop - nbpv;
+ }
+ else
+ {
+ gprintf(__func__, "Problem calculating binary scale value for encode code %d!", code);
+ gprintf(__func__, "< range %g rangec %g fmin %g fmax %g", range, rangec, fmin, fmax);
+ return (707);
+ }
+ }
+
+ const uint64_t max_nbpv_pow2 = (uint64_t) ((1ULL << nbpv) - 1);
+
+ if ( binscale != 0 )
+ {
+ while ( (uint64_t)(ldexp(range, -binscale)+0.5) > max_nbpv_pow2 ) binscale++;
+
+ factor = (T)intpow2(-binscale);
+ }
+
+ ref2ibm(&zref, BitsPerInt);
+
+ Put3Byte(blockLength); // 0-2 Length of Block 4
+ Put1Byte(Flag); // 3 Flag & Unused bits
+ if ( binscale < 0 ) binscale = 32768 - binscale;
+ Put2Byte(binscale); // 4-5 Scale factor
+ Put1Real(zref); // 6-9 Reference value
+ Put1Byte(nbpv); // 10 Packing size
+
+ if ( lspherc )
+ {
+ if ( lcomplex )
+ {
+ const int jup = isubset;
+ int ioff = (int)z + bds_ext;
+ if ( ioff > 0xFFFF ) ioff = 0;
+ Put2Byte(ioff);
+ Put2Int(isec4[16]);
+ Put1Byte(jup);
+ Put1Byte(jup);
+ Put1Byte(jup);
+ for (long i = 0; i < ((jup+1)*(jup+2)); ++i) Put1Real((double)(data[i]));
+ }
+ else
+ {
+ Put1Real((double)(data[0]));
+ }
+ }
+
+ *datsize = ((datasize-PackStart)*nbpv + 7)/8;
+
+#if defined (_ARCH_PWR6)
+ TEMPLATE(encode_array_unrolled,T)(nbpv, (size_t)PackStart, (size_t)datasize, lGrib, data, (T)zref, factor, &z);
+#else
+ TEMPLATE(encode_array,T)(nbpv, (size_t)PackStart, (size_t)datasize, lGrib, data, (T)zref, factor, &z);
+#endif
+
+ if ( unused_bits >= 8 ) Put1Byte(0); // Fillbyte
+
+ *gribLen = (long)z;
+
+ return 0;
+}
+
+
+void TEMPLATE(grib_encode,T)(int *isec0, int *isec1, int *isec2, T *fsec2, int *isec3,
+ T *fsec3, int *isec4, T *fsec4, int klenp, int *kgrib,
+ int kleng, int *kword, int efunc, int *kret)
+{
+ long gribLen = 0; // Counter of GRIB length for output
+ long fsec4size = 0;
+ long datstart, datsize;
+
+ UNUSED(isec3);
+ UNUSED(efunc);
+
+ grsdef();
+
+ unsigned char *CGrib = (unsigned char *) kgrib;
+
+ const bool gdsIncluded = ISEC1_Sec2Or3Flag & 128;
+ const bool bmsIncluded = ISEC1_Sec2Or3Flag & 64;
+
+ // set max header len
+ size_t len = 16384;
+
+ // add data len
+ const size_t numBytes = (size_t)((ISEC4_NumBits+7)>>3);
+
+ len += numBytes*(size_t)klenp;
+
+ // add bitmap len
+ if ( bmsIncluded ) len += (size_t)((klenp+7)>>3);
+
+#ifdef VECTORCODE
+ GRIBPACK *lGrib = (GRIBPACK*) Malloc(len*sizeof(GRIBPACK));
+ if ( lGrib == NULL ) SysError("No Memory!");
+#else
+ GRIBPACK *lGrib = CGrib;
+#endif
+
+ const long isLen = 8;
+ encodeIS(lGrib, &gribLen);
+ GRIBPACK *lpds = &lGrib[isLen];
+ const long pdsLen = getPdsLen(isec1);
+
+ encodePDS(lpds, pdsLen, isec1);
+ gribLen += pdsLen;
+ /*
+ if ( ( isec4[3] == 64 ) && ( isec2[5] == 2 ) )
+ {
+ static bool lwarn_cplx = true;
+
+ if ( lwarn_cplx )
+ Message("Complex packing of spectral data unsupported, using simple packing!");
+
+ isec2[5] = 1;
+ isec4[3] = 0;
+
+ lwarn_cplx = false;
+ }
+ */
+ if ( gdsIncluded ) TEMPLATE(encodeGDS,T)(lGrib, &gribLen, isec2, fsec2);
+ /*
+ ----------------------------------------------------------------
+ BMS Bit-Map Section Section (Section 3)
+ ----------------------------------------------------------------
+ */
+ if ( bmsIncluded )
+ {
+ TEMPLATE(encodeBMS,T)(lGrib, &gribLen, fsec3, isec4, fsec4, &fsec4size);
+ }
+ else
+ {
+ fsec4size = ISEC4_NumValues;
+ }
+
+ const long bdsstart = gribLen;
+ int status = TEMPLATE(encodeBDS,T)(lGrib, &gribLen, ISEC1_DecScaleFactor, isec2,
+ isec4, fsec4size, fsec4, &datstart, &datsize, ISEC1_Parameter);
+ if ( status )
+ {
+ *kret = status;
+ return;
+ }
+
+ encodeES(lGrib, &gribLen, bdsstart);
+
+ if ( (size_t) gribLen > (size_t)kleng*sizeof(int) )
+ Error("kgrib buffer too small! kleng = %d gribLen = %d", kleng, gribLen);
+
+#ifdef VECTORCODE
+ if ( (size_t) gribLen > len )
+ Error("lGrib buffer too small! len = %d gribLen = %d", len, gribLen);
+
+ (void) PACK_GRIB(lGrib, (unsigned char *)CGrib, gribLen, -1L);
+
+ Free(lGrib);
+#endif
+
+ ISEC0_GRIB_Len = (int)gribLen;
+ ISEC0_GRIB_Version = 1;
+
+ *kword = (int)((gribLen + (long)sizeof(int) - 1) / (long)sizeof(int));
+
+ *kret = status;
+}
+
+#endif /* T */
+
+/*
+ * Local Variables:
+ * mode: c
+ * End:
+ */
+// clang-format on
+
+void encode_dummy(void);
+void
+encode_dummy(void)
+{
+ (void) encode_array_unrolled_double(0, 0, 0, NULL, NULL, 0, 0, NULL);
+ (void) encode_array_unrolled_float(0, 0, 0, NULL, NULL, 0, 0, NULL);
+}
+static const char grb_libvers[] = "2.2.0";
+const char *
+cgribexLibraryVersion(void)
+{
+ return (grb_libvers);
+}
+
+#if __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ > 5)
+#pragma GCC diagnostic pop
+#endif
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <inttypes.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#ifdef WORDS_BIGENDIAN
+#include <limits.h>
+#endif
+
+
+static const uint32_t crctab[]
+ = { 0x00000000, 0x04c11db7, 0x09823b6e, 0x0d4326d9, 0x130476dc, 0x17c56b6b, 0x1a864db2, 0x1e475005, 0x2608edb8, 0x22c9f00f,
+ 0x2f8ad6d6, 0x2b4bcb61, 0x350c9b64, 0x31cd86d3, 0x3c8ea00a, 0x384fbdbd, 0x4c11db70, 0x48d0c6c7, 0x4593e01e, 0x4152fda9,
+ 0x5f15adac, 0x5bd4b01b, 0x569796c2, 0x52568b75, 0x6a1936c8, 0x6ed82b7f, 0x639b0da6, 0x675a1011, 0x791d4014, 0x7ddc5da3,
+ 0x709f7b7a, 0x745e66cd, 0x9823b6e0, 0x9ce2ab57, 0x91a18d8e, 0x95609039, 0x8b27c03c, 0x8fe6dd8b, 0x82a5fb52, 0x8664e6e5,
+ 0xbe2b5b58, 0xbaea46ef, 0xb7a96036, 0xb3687d81, 0xad2f2d84, 0xa9ee3033, 0xa4ad16ea, 0xa06c0b5d, 0xd4326d90, 0xd0f37027,
+ 0xddb056fe, 0xd9714b49, 0xc7361b4c, 0xc3f706fb, 0xceb42022, 0xca753d95, 0xf23a8028, 0xf6fb9d9f, 0xfbb8bb46, 0xff79a6f1,
+ 0xe13ef6f4, 0xe5ffeb43, 0xe8bccd9a, 0xec7dd02d, 0x34867077, 0x30476dc0, 0x3d044b19, 0x39c556ae, 0x278206ab, 0x23431b1c,
+ 0x2e003dc5, 0x2ac12072, 0x128e9dcf, 0x164f8078, 0x1b0ca6a1, 0x1fcdbb16, 0x018aeb13, 0x054bf6a4, 0x0808d07d, 0x0cc9cdca,
+ 0x7897ab07, 0x7c56b6b0, 0x71159069, 0x75d48dde, 0x6b93dddb, 0x6f52c06c, 0x6211e6b5, 0x66d0fb02, 0x5e9f46bf, 0x5a5e5b08,
+ 0x571d7dd1, 0x53dc6066, 0x4d9b3063, 0x495a2dd4, 0x44190b0d, 0x40d816ba, 0xaca5c697, 0xa864db20, 0xa527fdf9, 0xa1e6e04e,
+ 0xbfa1b04b, 0xbb60adfc, 0xb6238b25, 0xb2e29692, 0x8aad2b2f, 0x8e6c3698, 0x832f1041, 0x87ee0df6, 0x99a95df3, 0x9d684044,
+ 0x902b669d, 0x94ea7b2a, 0xe0b41de7, 0xe4750050, 0xe9362689, 0xedf73b3e, 0xf3b06b3b, 0xf771768c, 0xfa325055, 0xfef34de2,
+ 0xc6bcf05f, 0xc27dede8, 0xcf3ecb31, 0xcbffd686, 0xd5b88683, 0xd1799b34, 0xdc3abded, 0xd8fba05a, 0x690ce0ee, 0x6dcdfd59,
+ 0x608edb80, 0x644fc637, 0x7a089632, 0x7ec98b85, 0x738aad5c, 0x774bb0eb, 0x4f040d56, 0x4bc510e1, 0x46863638, 0x42472b8f,
+ 0x5c007b8a, 0x58c1663d, 0x558240e4, 0x51435d53, 0x251d3b9e, 0x21dc2629, 0x2c9f00f0, 0x285e1d47, 0x36194d42, 0x32d850f5,
+ 0x3f9b762c, 0x3b5a6b9b, 0x0315d626, 0x07d4cb91, 0x0a97ed48, 0x0e56f0ff, 0x1011a0fa, 0x14d0bd4d, 0x19939b94, 0x1d528623,
+ 0xf12f560e, 0xf5ee4bb9, 0xf8ad6d60, 0xfc6c70d7, 0xe22b20d2, 0xe6ea3d65, 0xeba91bbc, 0xef68060b, 0xd727bbb6, 0xd3e6a601,
+ 0xdea580d8, 0xda649d6f, 0xc423cd6a, 0xc0e2d0dd, 0xcda1f604, 0xc960ebb3, 0xbd3e8d7e, 0xb9ff90c9, 0xb4bcb610, 0xb07daba7,
+ 0xae3afba2, 0xaafbe615, 0xa7b8c0cc, 0xa379dd7b, 0x9b3660c6, 0x9ff77d71, 0x92b45ba8, 0x9675461f, 0x8832161a, 0x8cf30bad,
+ 0x81b02d74, 0x857130c3, 0x5d8a9099, 0x594b8d2e, 0x5408abf7, 0x50c9b640, 0x4e8ee645, 0x4a4ffbf2, 0x470cdd2b, 0x43cdc09c,
+ 0x7b827d21, 0x7f436096, 0x7200464f, 0x76c15bf8, 0x68860bfd, 0x6c47164a, 0x61043093, 0x65c52d24, 0x119b4be9, 0x155a565e,
+ 0x18197087, 0x1cd86d30, 0x029f3d35, 0x065e2082, 0x0b1d065b, 0x0fdc1bec, 0x3793a651, 0x3352bbe6, 0x3e119d3f, 0x3ad08088,
+ 0x2497d08d, 0x2056cd3a, 0x2d15ebe3, 0x29d4f654, 0xc5a92679, 0xc1683bce, 0xcc2b1d17, 0xc8ea00a0, 0xd6ad50a5, 0xd26c4d12,
+ 0xdf2f6bcb, 0xdbee767c, 0xe3a1cbc1, 0xe760d676, 0xea23f0af, 0xeee2ed18, 0xf0a5bd1d, 0xf464a0aa, 0xf9278673, 0xfde69bc4,
+ 0x89b8fd09, 0x8d79e0be, 0x803ac667, 0x84fbdbd0, 0x9abc8bd5, 0x9e7d9662, 0x933eb0bb, 0x97ffad0c, 0xafb010b1, 0xab710d06,
+ 0xa6322bdf, 0xa2f33668, 0xbcb4666d, 0xb8757bda, 0xb5365d03, 0xb1f740b4 };
+
+uint32_t
+memcrc(const unsigned char *b, size_t n)
+{
+ /* Input arguments:
+ * const char* b == byte sequence to checksum
+ * size_t n == length of sequence
+ */
+
+ uint32_t s = 0;
+
+ memcrc_r(&s, b, n);
+
+ /* Extend with the length of the string. */
+ while (n != 0)
+ {
+ register uint32_t c = n & 0377;
+ n >>= 8;
+ s = (s << 8) ^ crctab[(s >> 24) ^ c];
+ }
+
+ return ~s;
+}
+
+void
+memcrc_r(uint32_t *state, const unsigned char *block, size_t block_len)
+{
+ /* Input arguments:
+ * const char* b == byte sequence to checksum
+ * size_t n == length of sequence
+ */
+
+ register uint32_t c, s = *state;
+ register size_t n = block_len;
+ register const unsigned char *b = block;
+
+ for (; n > 0; --n)
+ {
+ c = (uint32_t) (*b++);
+ s = (s << 8) ^ crctab[(s >> 24) ^ c];
+ }
+
+ *state = s;
+}
+
+#ifdef WORDS_BIGENDIAN
+#define SWAP_CSUM(BITWIDTH, BYTEWIDTH, NACC) \
+ do \
+ { \
+ register const uint##BITWIDTH##_t *b = (uint##BITWIDTH##_t *) elems; \
+ for (size_t i = 0; i < num_elems; ++i) \
+ { \
+ for (size_t aofs = NACC; aofs > 0; --aofs) \
+ { \
+ uint##BITWIDTH##_t accum = b[i + aofs - 1]; \
+ for (size_t j = 0; j < BYTEWIDTH; ++j) \
+ { \
+ uint32_t c = (uint32_t) (accum & UCHAR_MAX); \
+ s = (s << 8) ^ crctab[(s >> 24) ^ c]; \
+ accum >>= 8; \
+ } \
+ } \
+ } \
+ } \
+ while (0)
+#endif
+
+/**
+ * Does endian-swapping prior to checksumming in case platform is big-endian
+ *
+ * @param elems points to first first element with alignment elem_size
+ * @param num_elems number of elements to process
+ * @param elem_size size of each element in bytes
+ */
+void
+memcrc_r_eswap(uint32_t *state, const unsigned char *elems, size_t num_elems, size_t elem_size)
+{
+#ifdef WORDS_BIGENDIAN
+ register uint32_t s = *state;
+
+ switch (elem_size)
+ {
+ case 1: memcrc_r(state, elems, num_elems * elem_size); return;
+ case 2: SWAP_CSUM(16, 2, 1); break;
+ case 4: SWAP_CSUM(32, 4, 1); break;
+ case 8: SWAP_CSUM(64, 8, 1); break;
+ case 16: SWAP_CSUM(64, 8, 2); break;
+ }
+ *state = s;
+#else
+ memcrc_r(state, elems, num_elems * elem_size);
+#endif
+}
+
+uint32_t
+memcrc_finish(uint32_t *state, off_t total_size)
+{
+ register uint32_t c, s = *state;
+ register uint64_t n = (uint64_t) total_size;
+
+ /* Extend with the length of the string. */
+ while (n != 0)
+ {
+ c = n & 0377;
+ n >>= 8;
+ s = (s << 8) ^ crctab[(s >> 24) ^ c];
+ }
+
+ return ~s;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <stdarg.h>
+#include <errno.h>
+
+#if !defined(HAVE_CONFIG_H) && !defined(HAVE_MALLOC_H) && defined(SX)
+#define HAVE_MALLOC_H
+#endif
+
+#ifdef HAVE_MALLOC_H
+#include <malloc.h>
+#endif
+
+
+enum
+{
+ MALLOC_FUNC = 0,
+ CALLOC_FUNC,
+ REALLOC_FUNC,
+ FREE_FUNC
+};
+
+static const char *const memfunc[] = { "Malloc", "Calloc", "Realloc", "Free" };
+
+#undef MEM_UNDEFID
+#define MEM_UNDEFID -1
+
+#define MEM_MAXNAME 32 /* Min = 8, for "unknown" ! */
+
+static int dmemory_ExitOnError = 1;
+
+typedef struct
+{
+ void *ptr;
+ size_t size;
+ size_t nobj;
+ int item;
+ int mtype;
+ int line;
+ char filename[MEM_MAXNAME];
+ char functionname[MEM_MAXNAME];
+} MemTable_t;
+
+static MemTable_t *memTable;
+static size_t memTableSize = 0;
+static long memAccess = 0;
+
+static size_t MemObjs = 0;
+static size_t MaxMemObjs = 0;
+static size_t MemUsed = 0;
+static size_t MaxMemUsed = 0;
+
+static int MEM_Debug = 0; /* If set to 1, debugging */
+static int MEM_Info = 0; /* If set to 1, print mem table at exit */
+
+static const char *
+get_filename(const char *file)
+{
+ const char *fnptr = strrchr(file, '/');
+ if (fnptr)
+ fnptr++;
+ else
+ fnptr = (char *) file;
+
+ return fnptr;
+}
+
+void
+memDebug(int debug)
+{
+ MEM_Debug = debug;
+ if (MEM_Debug && !MEM_Info) MEM_Info = 1;
+}
+
+// If we're not using GNU C, elide __attribute__
+#if !defined __GNUC__ && !defined __attribute__
+#define __attribute__(x) /*NOTHING*/
+#endif
+
+static void memInternalProblem(const char *caller, const char *fmt, ...) __attribute__((noreturn));
+
+static void memError(const char *caller, const char *file, int line, size_t size) __attribute__((noreturn));
+
+static void
+memInternalProblem(const char *caller, const char *fmt, ...)
+{
+ va_list args;
+
+ va_start(args, fmt);
+
+ printf("\n");
+ fprintf(stderr, "Internal problem (%s) : ", caller);
+ vfprintf(stderr, fmt, args);
+ fprintf(stderr, "\n");
+
+ va_end(args);
+
+ exit(EXIT_FAILURE);
+}
+
+static void
+memError(const char *caller, const char *file, int line, size_t size)
+{
+ fputs("\n", stdout);
+ fprintf(stderr, "Error (%s) : Allocation of %zu bytes failed. [ line %d file %s ]\n", caller, size, line, get_filename(file));
+
+ if (errno) perror("System error message ");
+
+ exit(EXIT_FAILURE);
+}
+
+static void
+memListPrintEntry(int mtype, int item, size_t size, void *ptr, const char *caller, const char *file, int line)
+{
+ fprintf(stderr, "[%-7s ", memfunc[mtype]);
+
+ fprintf(stderr, "memory item %3d ", item);
+ fprintf(stderr, "(%6zu byte) ", size);
+ fprintf(stderr, "at %p", ptr);
+ if (file != NULL)
+ {
+ fprintf(stderr, " line %4d", line);
+ fprintf(stderr, " file %s", get_filename(file));
+ }
+ if (caller != NULL) fprintf(stderr, " (%s)", caller);
+ fprintf(stderr, "]\n");
+}
+
+static void
+memListPrintTable(void)
+{
+ if (MemObjs) fprintf(stderr, "\nMemory table:\n");
+
+ for (size_t memID = 0; memID < memTableSize; memID++)
+ {
+ if (memTable[memID].item != MEM_UNDEFID)
+ memListPrintEntry(memTable[memID].mtype, memTable[memID].item, memTable[memID].size * memTable[memID].nobj,
+ memTable[memID].ptr, memTable[memID].functionname, memTable[memID].filename, memTable[memID].line);
+ }
+
+ if (MemObjs)
+ {
+ fprintf(stderr, " Memory access : %6u\n", (unsigned) memAccess);
+ fprintf(stderr, " Maximum objects : %6zu\n", memTableSize);
+ fprintf(stderr, " Objects used : %6u\n", (unsigned) MaxMemObjs);
+ fprintf(stderr, " Objects in use : %6u\n", (unsigned) MemObjs);
+ fprintf(stderr, " Memory allocated : ");
+ if (MemUsed > 1024 * 1024 * 1024)
+ fprintf(stderr, " %5d GB\n", (int) (MemUsed / (1024 * 1024 * 1024)));
+ else if (MemUsed > 1024 * 1024)
+ fprintf(stderr, " %5d MB\n", (int) (MemUsed / (1024 * 1024)));
+ else if (MemUsed > 1024)
+ fprintf(stderr, " %5d KB\n", (int) (MemUsed / (1024)));
+ else
+ fprintf(stderr, " %5d Byte\n", (int) MemUsed);
+ }
+
+ if (MaxMemUsed)
+ {
+ fprintf(stderr, " Maximum memory allocated : ");
+ if (MaxMemUsed > 1024 * 1024 * 1024)
+ fprintf(stderr, " %5d GB\n", (int) (MaxMemUsed / (1024 * 1024 * 1024)));
+ else if (MaxMemUsed > 1024 * 1024)
+ fprintf(stderr, " %5d MB\n", (int) (MaxMemUsed / (1024 * 1024)));
+ else if (MaxMemUsed > 1024)
+ fprintf(stderr, " %5d KB\n", (int) (MaxMemUsed / (1024)));
+ else
+ fprintf(stderr, " %5d Byte\n", (int) MaxMemUsed);
+ }
+}
+
+static void
+memGetDebugLevel(void)
+{
+ const char *envstr = getenv("MEMORY_INFO");
+ if (envstr && isdigit((int) envstr[0])) MEM_Info = atoi(envstr);
+
+ envstr = getenv("MEMORY_DEBUG");
+ if (envstr && isdigit((int) envstr[0])) MEM_Debug = atoi(envstr);
+
+ if (MEM_Debug && !MEM_Info) MEM_Info = 1;
+
+ if (MEM_Info) atexit(memListPrintTable);
+}
+
+static void
+memInit(void)
+{
+ static int initDebugLevel = 0;
+
+ if (!initDebugLevel)
+ {
+ memGetDebugLevel();
+ initDebugLevel = 1;
+ }
+}
+
+static int
+memListDeleteEntry(void *ptr, size_t *size)
+{
+ int item = MEM_UNDEFID;
+ size_t memID = 0;
+
+ for (memID = 0; memID < memTableSize; memID++)
+ {
+ if (memTable[memID].item == MEM_UNDEFID) continue;
+ if (memTable[memID].ptr == ptr) break;
+ }
+
+ if (memID != memTableSize)
+ {
+ MemObjs--;
+ MemUsed -= memTable[memID].size * memTable[memID].nobj;
+ *size = memTable[memID].size * memTable[memID].nobj;
+ item = memTable[memID].item;
+ memTable[memID].item = MEM_UNDEFID;
+ }
+
+ return item;
+}
+
+static void
+memTableInitEntry(size_t memID)
+{
+ if (memID >= memTableSize) memInternalProblem(__func__, "memID %d undefined!", memID);
+
+ memTable[memID].ptr = NULL;
+ memTable[memID].item = MEM_UNDEFID;
+ memTable[memID].size = 0;
+ memTable[memID].nobj = 0;
+ memTable[memID].mtype = MEM_UNDEFID;
+ memTable[memID].line = MEM_UNDEFID;
+}
+
+static void
+set_filename(const char *file, char *memEntyFilename)
+{
+ if (file)
+ {
+ const char *filename = get_filename(file);
+ size_t len = strlen(filename);
+ if (len > MEM_MAXNAME - 1) len = MEM_MAXNAME - 1;
+
+ (void) memcpy(memEntyFilename, filename, len);
+ memEntyFilename[len] = '\0';
+ }
+ else
+ {
+ (void) strcpy(memEntyFilename, "unknown");
+ }
+}
+
+static void
+set_functionname(const char *functionname, char *memEntyFunctionname)
+{
+ if (functionname)
+ {
+ size_t len = strlen(functionname);
+ if (len > MEM_MAXNAME - 1) len = MEM_MAXNAME - 1;
+
+ (void) memcpy(memEntyFunctionname, functionname, len);
+ memEntyFunctionname[len] = '\0';
+ }
+ else
+ {
+ (void) strcpy(memEntyFunctionname, "unknown");
+ }
+}
+
+static int
+memListNewEntry(int mtype, void *ptr, size_t size, size_t nobj, const char *functionname, const char *file, int line)
+{
+ static int item = 0;
+ size_t memID = 0;
+
+ // Look for a free slot in memTable (Create the table the first time through).
+ if (memTableSize == 0)
+ {
+ memTableSize = 8;
+ size_t memSize = memTableSize * sizeof(MemTable_t);
+ memTable = (MemTable_t *) malloc(memSize);
+ if (memTable == NULL) memError(__func__, __FILE__, __LINE__, memSize);
+
+ for (size_t i = 0; i < memTableSize; i++) memTableInitEntry(i);
+ }
+ else
+ {
+ while (memID < memTableSize)
+ {
+ if (memTable[memID].item == MEM_UNDEFID) break;
+ memID++;
+ }
+ }
+
+ // If the table overflows, double its size.
+ if (memID == memTableSize)
+ {
+ memTableSize = 2 * memTableSize;
+ size_t memSize = memTableSize * sizeof(MemTable_t);
+ memTable = (MemTable_t *) realloc(memTable, memSize);
+ if (memTable == NULL) memError(__func__, __FILE__, __LINE__, memSize);
+
+ for (size_t i = memID; i < memTableSize; i++) memTableInitEntry(i);
+ }
+
+ memTable[memID].item = item;
+ memTable[memID].ptr = ptr;
+ memTable[memID].size = size;
+ memTable[memID].nobj = nobj;
+ memTable[memID].mtype = mtype;
+ memTable[memID].line = line;
+
+ set_filename(file, memTable[memID].filename);
+ set_functionname(functionname, memTable[memID].functionname);
+
+ MaxMemObjs++;
+ MemObjs++;
+ MemUsed += size * nobj;
+ if (MemUsed > MaxMemUsed) MaxMemUsed = MemUsed;
+
+ return item++;
+}
+
+static int
+memListChangeEntry(void *ptrold, void *ptr, size_t size, const char *functionname, const char *file, int line)
+{
+ int item = MEM_UNDEFID;
+ size_t memID = 0;
+
+ while (memID < memTableSize)
+ {
+ if (memTable[memID].item != MEM_UNDEFID && memTable[memID].ptr == ptrold) break;
+ memID++;
+ }
+
+ if (memID == memTableSize)
+ {
+ if (ptrold != NULL) memInternalProblem(__func__, "Item at %p not found.", ptrold);
+ }
+ else
+ {
+ item = memTable[memID].item;
+
+ size_t sizeold = memTable[memID].size * memTable[memID].nobj;
+
+ memTable[memID].ptr = ptr;
+ memTable[memID].size = size;
+ memTable[memID].nobj = 1;
+ memTable[memID].mtype = REALLOC_FUNC;
+ memTable[memID].line = line;
+
+ set_filename(file, memTable[memID].filename);
+ set_functionname(functionname, memTable[memID].functionname);
+
+ MemUsed -= sizeold;
+ MemUsed += size;
+ if (MemUsed > MaxMemUsed) MaxMemUsed = MemUsed;
+ }
+
+ return item;
+}
+
+void *
+memCalloc(size_t nobjs, size_t size, const char *file, const char *functionname, int line)
+{
+ void *ptr = NULL;
+
+ memInit();
+
+ if (nobjs * size > 0)
+ {
+ ptr = calloc(nobjs, size);
+
+ if (MEM_Info)
+ {
+ memAccess++;
+
+ int item = MEM_UNDEFID;
+ if (ptr) item = memListNewEntry(CALLOC_FUNC, ptr, size, nobjs, functionname, file, line);
+
+ if (MEM_Debug) memListPrintEntry(CALLOC_FUNC, item, size * nobjs, ptr, functionname, file, line);
+ }
+
+ if (ptr == NULL && dmemory_ExitOnError) memError(functionname, file, line, size * nobjs);
+ }
+ else
+ fprintf(stderr, "Warning (%s) : Allocation of 0 bytes! [ line %d file %s ]\n", functionname, line, file);
+
+ return ptr;
+}
+
+void *
+memMalloc(size_t size, const char *file, const char *functionname, int line)
+{
+ void *ptr = NULL;
+
+ memInit();
+
+ if (size > 0)
+ {
+ ptr = malloc(size);
+
+ if (MEM_Info)
+ {
+ memAccess++;
+
+ int item = MEM_UNDEFID;
+ if (ptr) item = memListNewEntry(MALLOC_FUNC, ptr, size, 1, functionname, file, line);
+
+ if (MEM_Debug) memListPrintEntry(MALLOC_FUNC, item, size, ptr, functionname, file, line);
+ }
+
+ if (ptr == NULL && dmemory_ExitOnError) memError(functionname, file, line, size);
+ }
+ else
+ fprintf(stderr, "Warning (%s) : Allocation of 0 bytes! [ line %d file %s ]\n", functionname, line, file);
+
+ return ptr;
+}
+
+void *
+memRealloc(void *ptrold, size_t size, const char *file, const char *functionname, int line)
+{
+ void *ptr = NULL;
+
+ memInit();
+
+ if (size > 0)
+ {
+ ptr = realloc(ptrold, size);
+
+ if (MEM_Info)
+ {
+ memAccess++;
+
+ int item = MEM_UNDEFID;
+ if (ptr)
+ {
+ item = memListChangeEntry(ptrold, ptr, size, functionname, file, line);
+ if (item == MEM_UNDEFID) item = memListNewEntry(REALLOC_FUNC, ptr, size, 1, functionname, file, line);
+ }
+
+ if (MEM_Debug) memListPrintEntry(REALLOC_FUNC, item, size, ptr, functionname, file, line);
+ }
+
+ if (ptr == NULL && dmemory_ExitOnError) memError(functionname, file, line, size);
+ }
+ else
+ fprintf(stderr, "Warning (%s) : Allocation of 0 bytes! [ line %d file %s ]\n", functionname, line, get_filename(file));
+
+ return ptr;
+}
+
+void
+memFree(void *ptr, const char *file, const char *functionname, int line)
+{
+ memInit();
+
+ if (MEM_Info)
+ {
+ size_t size = 0;
+ int item = memListDeleteEntry(ptr, &size);
+ if (item >= 0)
+ {
+ if (MEM_Debug) memListPrintEntry(FREE_FUNC, item, size, ptr, functionname, file, line);
+ }
+ else
+ {
+ if (ptr && MEM_Debug)
+ fprintf(stderr, "%s info: memory entry at %p not found. [line %4d file %s (%s)]\n", __func__, ptr, line,
+ get_filename(file), functionname);
+ }
+ }
+
+ free(ptr);
+}
+
+size_t
+memTotal(void)
+{
+ size_t memtotal = 0;
+#ifdef HAVE_MALLINFO
+ struct mallinfo meminfo = mallinfo();
+ if (MEM_Debug)
+ {
+ fprintf(stderr, "arena %8zu (non-mmapped space allocated from system)\n", (size_t) meminfo.arena);
+ fprintf(stderr, "ordblks %8zu (number of free chunks)\n", (size_t) meminfo.ordblks);
+ fprintf(stderr, "smblks %8zu (number of fastbin blocks)\n", (size_t) meminfo.smblks);
+ fprintf(stderr, "hblks %8zu (number of mmapped regions)\n", (size_t) meminfo.hblks);
+ fprintf(stderr, "hblkhd %8zu (space in mmapped regions)\n", (size_t) meminfo.hblkhd);
+ fprintf(stderr, "usmblks %8zu (maximum total allocated space)\n", (size_t) meminfo.usmblks);
+ fprintf(stderr, "fsmblks %8zu (maximum total allocated space)\n", (size_t) meminfo.fsmblks);
+ fprintf(stderr, "uordblks %8zu (total allocated space)\n", (size_t) meminfo.uordblks);
+ fprintf(stderr, "fordblks %8zu (total free space)\n", (size_t) meminfo.fordblks);
+ fprintf(stderr, "Memory in use: %8zu bytes\n", (size_t) meminfo.usmblks + (size_t) meminfo.uordblks);
+ fprintf(stderr, "Total heap size: %8zu bytes\n", (size_t) meminfo.arena);
+
+ // malloc_stats();
+ }
+
+ memtotal = (size_t) meminfo.arena;
+#endif
+
+ return memtotal;
+}
+
+void
+memExitOnError(void)
+{
+ dmemory_ExitOnError = 1;
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <errno.h>
+
+#if !defined(NAMESPACE_H)
+#endif
+
+int _ExitOnError = 1; // If set to 1, exit on error
+int _Verbose = 1; // If set to 1, errors are reported
+int _Debug = 0; // If set to 1, debugging
+
+/* If we're not using GNU C, elide __attribute__ */
+#if !defined __GNUC__ && !defined __attribute__
+#define __attribute__(x) /*NOTHING*/
+#endif
+
+void SysError_(const char *caller, const char *fmt, ...) __attribute__((noreturn));
+
+void
+SysError_(const char *caller, const char *fmt, ...)
+{
+ va_list args;
+ int saved_errno = errno;
+
+ va_start(args, fmt);
+
+ printf("\n");
+ fprintf(stderr, "%s error (%s): ", PACKAGE_NAME, caller);
+ vfprintf(stderr, fmt, args);
+ fprintf(stderr, "\n");
+
+ va_end(args);
+
+ if (saved_errno)
+ {
+ errno = saved_errno;
+ perror("System error message");
+ }
+
+ exit(EXIT_FAILURE);
+}
+
+void
+Error_(const char *caller, const char *fmt, ...)
+{
+ va_list args;
+
+ va_start(args, fmt);
+
+ printf("\n");
+ fprintf(stderr, "%s error (%s): ", PACKAGE_NAME, caller);
+ vfprintf(stderr, fmt, args);
+ fprintf(stderr, "\n");
+
+ va_end(args);
+
+ if (_ExitOnError) exit(EXIT_FAILURE);
+}
+
+typedef void (*cdiAbortCFunc)(const char *caller, const char *filename, const char *functionname, int line, const char *errorString,
+ va_list ap)
+#ifdef __GNUC__
+ __attribute__((noreturn))
+#endif
+ ;
+
+void
+cdiAbortC(const char *caller, const char *filename, const char *functionname, int line, const char *errorString, ...)
+{
+ va_list ap;
+ va_start(ap, errorString);
+ cdiAbortCFunc cdiAbortC_p = (cdiAbortCFunc) namespaceSwitchGet(NSSWITCH_ABORT).func;
+ cdiAbortC_p(caller, filename, functionname, line, errorString, ap);
+ va_end(ap);
+}
+
+void
+cdiAbortC_serial(const char *caller, const char *filename, const char *functionname, int line, const char *errorString, va_list ap)
+{
+ fprintf(stderr, "%s error, %s, %s, line %d%s%s\nerrorString: \"", PACKAGE_NAME, functionname, filename, line,
+ caller ? ", called from " : "", caller ? caller : "");
+ vfprintf(stderr, errorString, ap);
+ fputs("\"\n", stderr);
+ exit(EXIT_FAILURE);
+}
+
+typedef void (*cdiWarningFunc)(const char *caller, const char *fmt, va_list ap);
+
+void
+Warning_(const char *caller, const char *fmt, ...)
+{
+ va_list args;
+
+ va_start(args, fmt);
+
+ if (_Verbose)
+ {
+ cdiWarningFunc cdiWarning_p = (cdiWarningFunc) namespaceSwitchGet(NSSWITCH_WARNING).func;
+ cdiWarning_p(caller, fmt, args);
+ }
+
+ va_end(args);
+}
+
+void
+cdiWarning(const char *caller, const char *fmt, va_list ap)
+{
+ fprintf(stderr, "%s warning (%s): ", PACKAGE_NAME, caller);
+ vfprintf(stderr, fmt, ap);
+ fputc('\n', stderr);
+}
+
+void
+Message_(const char *caller, const char *fmt, ...)
+{
+ va_list args;
+
+ va_start(args, fmt);
+
+ fprintf(stdout, "%s %-18s: ", PACKAGE_NAME, caller);
+ vfprintf(stdout, fmt, args);
+ fprintf(stdout, "\n");
+
+ va_end(args);
+}
+
+bool
+cdiObsoleteInfo(const char *oldFunction, const char *newFunction)
+{
+ fprintf(stdout, "cdi info: Function %s() is deprecated and might be removed in the future versions of CDI.\n", oldFunction);
+ fprintf(stdout, "cdi info: Consider switching to the new function %s() as soon as possible.\n", newFunction);
+ return false;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef EXSE_H
+#define EXSE_H
+
+enum
+{
+ EXSE_SINGLE_PRECISION = 4,
+ EXSE_DOUBLE_PRECISION = 8,
+};
+
+#endif
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+
+
+enum
+{
+ EXT_HEADER_LEN = 4,
+};
+
+union EXT_HEADER
+{
+ INT32 i32[EXT_HEADER_LEN];
+ INT64 i64[EXT_HEADER_LEN];
+};
+
+static int initExtLib = 0;
+static int extDefaultPrec = 0;
+static int extDefaultNumber = EXT_REAL;
+
+// A version string.
+#undef LIBVERSION
+#define LIBVERSION 1.5.0
+#define XSTRING(x) #x
+#define STRING(x) XSTRING(x)
+static const char ext_libvers[] = STRING(LIBVERSION);
+
+const char *
+extLibraryVersion(void)
+{
+ return ext_libvers;
+}
+
+static int EXT_Debug = 0; // If set to 1, debugging
+
+void
+extDebug(int debug)
+{
+ if (debug) Message("debug level %d", debug);
+ EXT_Debug = debug;
+}
+
+static void
+extLibInit(void)
+{
+ const char *envName = "EXT_PRECISION";
+
+ char *envString = getenv(envName);
+ if (envString)
+ {
+ if (strlen(envString) == 2)
+ {
+ switch (tolower((int) envString[0]))
+ {
+ case 'r':
+ {
+ extDefaultNumber = EXT_REAL;
+ switch ((int) envString[1])
+ {
+ case '4': extDefaultPrec = EXSE_SINGLE_PRECISION; break;
+ case '8': extDefaultPrec = EXSE_DOUBLE_PRECISION; break;
+ default: Warning("Invalid digit in %s: %s", envName, envString);
+ }
+ break;
+ }
+ case 'c':
+ {
+ extDefaultNumber = EXT_COMP;
+ switch ((int) envString[1])
+ {
+ case '4': extDefaultPrec = EXSE_SINGLE_PRECISION; break;
+ case '8': extDefaultPrec = EXSE_DOUBLE_PRECISION; break;
+ default: Warning("Invalid digit in %s: %s", envName, envString);
+ }
+ break;
+ }
+ default:
+ {
+ Warning("Invalid character in %s: %s", envName, envString);
+ break;
+ }
+ }
+ }
+ }
+
+ initExtLib = 1;
+}
+
+static void
+extInit(extrec_t *extp)
+{
+ extp->checked = 0;
+ extp->byteswap = 0;
+ extp->prec = 0;
+ extp->number = extDefaultNumber;
+ extp->datasize = 0;
+ extp->buffersize = 0;
+ extp->buffer = NULL;
+}
+
+void *
+extNew(void)
+{
+ if (!initExtLib) extLibInit();
+
+ extrec_t *extp = (extrec_t *) Malloc(sizeof(extrec_t));
+
+ extInit(extp);
+
+ return (void *) extp;
+}
+
+void
+extDelete(void *ext)
+{
+ extrec_t *extp = (extrec_t *) ext;
+
+ if (extp)
+ {
+ if (extp->buffer) Free(extp->buffer);
+ Free(extp);
+ }
+}
+
+int
+extCheckFiletype(int fileID, int *swap)
+{
+ size_t fact = 0;
+ size_t data = 0;
+ size_t dimxy = 0;
+ unsigned char buffer[40], *pbuf;
+
+ if (fileRead(fileID, buffer, 4) != 4) return 0;
+
+ size_t blocklen = (size_t) get_UINT32(buffer);
+ size_t sblocklen = (size_t) get_SUINT32(buffer);
+
+ if (EXT_Debug) Message("blocklen = %d sblocklen = %d", blocklen, sblocklen);
+
+ // clang-format off
+ if (blocklen == 16)
+ {
+ *swap = 0;
+ fact = blocklen/4;
+ if (fileRead(fileID, buffer, blocklen+8) != blocklen+8) return 0;
+ pbuf = buffer+3*fact; dimxy = (size_t) get_UINT32(pbuf);
+ pbuf = buffer+blocklen+4; data = (size_t) get_UINT32(pbuf);
+ }
+ else if (blocklen == 32)
+ {
+ *swap = 0;
+ fact = blocklen/4;
+ if (fileRead(fileID, buffer, blocklen+8) != blocklen+8) return 0;
+ pbuf = buffer+3*fact; dimxy = (size_t) get_UINT64(pbuf);
+ pbuf = buffer+blocklen+4; data = (size_t) get_UINT32(pbuf);
+ }
+ else if (sblocklen == 16)
+ {
+ *swap = 1;
+ fact = sblocklen/4;
+ if (fileRead(fileID, buffer, sblocklen+8) != sblocklen+8) return 0;
+ pbuf = buffer+3*fact; dimxy = (size_t) get_SUINT32(pbuf);
+ pbuf = buffer+sblocklen+4; data = (size_t) get_SUINT32(pbuf);
+ }
+ else if (sblocklen == 32)
+ {
+ *swap = 1;
+ fact = sblocklen/4;
+ if (fileRead(fileID, buffer, sblocklen+8) != sblocklen+8) return 0;
+ pbuf = buffer+3*fact; dimxy = (size_t) get_SUINT64(pbuf);
+ pbuf = buffer+sblocklen+4; data = (size_t) get_SUINT32(pbuf);
+ }
+ // clang-format on
+
+ fileRewind(fileID);
+
+ if (EXT_Debug) Message("swap = %d fact = %d", *swap, fact);
+ if (EXT_Debug) Message("dimxy = %lu data = %lu", dimxy, data);
+
+ int found = data && (dimxy * fact == data || dimxy * fact * 2 == data);
+ return found;
+}
+
+int
+extInqHeader(void *ext, int *header)
+{
+ extrec_t *extp = (extrec_t *) ext;
+
+ for (int i = 0; i < EXT_HEADER_LEN; i++) header[i] = extp->header[i];
+
+ if (EXT_Debug) Message("datasize = %zu", extp->datasize);
+
+ return 0;
+}
+
+int
+extDefHeader(void *ext, const int *header)
+{
+ extrec_t *extp = (extrec_t *) ext;
+
+ for (int i = 0; i < EXT_HEADER_LEN; i++) extp->header[i] = header[i];
+
+ extp->datasize = (size_t) header[3];
+ if (extp->number == EXT_COMP) extp->datasize *= 2;
+
+ if (EXT_Debug) Message("datasize = %zu", extp->datasize);
+
+ return 0;
+}
+
+static int
+extInqData(extrec_t *extp, int prec, void *data)
+{
+ int ierr = 0;
+ int byteswap = extp->byteswap;
+ size_t datasize = extp->datasize;
+ void *buffer = extp->buffer;
+ int rprec = extp->prec;
+
+ switch (rprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ if (sizeof(FLT32) == 4)
+ {
+ if (byteswap) swap4byte(buffer, datasize);
+
+ if (rprec == prec)
+ memcpy(data, buffer, datasize * sizeof(FLT32));
+ else
+ for (size_t i = 0; i < datasize; ++i) ((double *) data)[i] = (double) ((float *) buffer)[i];
+ }
+ else
+ {
+ Error("not implemented for %d byte float", sizeof(FLT32));
+ }
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ if (sizeof(FLT64) == 8)
+ {
+ if (byteswap) swap8byte(buffer, datasize);
+
+ if (rprec == prec)
+ memcpy(data, buffer, datasize * sizeof(FLT64));
+ else
+ for (size_t i = 0; i < datasize; ++i) ((float *) data)[i] = (float) ((double *) buffer)[i];
+ }
+ else
+ {
+ Error("not implemented for %d byte float", sizeof(FLT64));
+ }
+ break;
+ default:
+ {
+ Error("unexpected data precision %d", rprec);
+ break;
+ }
+ }
+
+ return ierr;
+}
+
+int
+extInqDataSP(void *ext, float *data)
+{
+ return extInqData((extrec_t *) ext, EXSE_SINGLE_PRECISION, (void *) data);
+}
+
+int
+extInqDataDP(void *ext, double *data)
+{
+ return extInqData((extrec_t *) ext, EXSE_DOUBLE_PRECISION, (void *) data);
+}
+
+static int
+extDefData(void *ext, int prec, const void *data)
+{
+ extrec_t *extp = (extrec_t *) ext;
+
+ int rprec = extDefaultPrec ? extDefaultPrec : extp->prec;
+ extp->prec = rprec ? rprec : prec;
+
+ int *header = extp->header;
+
+ size_t datasize = (size_t) header[3];
+ if (extp->number == EXT_COMP) datasize *= 2;
+ size_t blocklen = datasize * (size_t) rprec;
+
+ extp->datasize = datasize;
+
+ if (extp->buffersize != blocklen)
+ {
+ extp->buffersize = blocklen;
+ extp->buffer = Realloc(extp->buffer, extp->buffersize);
+ }
+
+ switch (rprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ if (rprec == prec)
+ memcpy(extp->buffer, data, datasize * sizeof(FLT32));
+ else
+ for (size_t i = 0; i < datasize; i++) ((float *) extp->buffer)[i] = (float) ((double *) data)[i];
+
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ if (rprec == prec)
+ memcpy(extp->buffer, data, datasize * sizeof(FLT64));
+ else
+ for (size_t i = 0; i < datasize; i++) ((double *) extp->buffer)[i] = (double) ((float *) data)[i];
+
+ break;
+ }
+ default:
+ {
+ Error("unexpected data precision %d", rprec);
+ break;
+ }
+ }
+
+ return 0;
+}
+
+int
+extDefDataSP(void *ext, const float *data)
+{
+ return extDefData(ext, EXSE_SINGLE_PRECISION, (void *) data);
+}
+
+int
+extDefDataDP(void *ext, const double *data)
+{
+ return extDefData(ext, EXSE_DOUBLE_PRECISION, (void *) data);
+}
+
+int
+extRead(int fileID, void *ext)
+{
+ extrec_t *extp = (extrec_t *) ext;
+
+ if (!extp->checked)
+ {
+ int status = extCheckFiletype(fileID, &extp->byteswap);
+ if (status == 0) Error("Not a EXTRA file!");
+ extp->checked = 1;
+ }
+
+ int byteswap = extp->byteswap;
+
+ // read header record
+ size_t blocklen = binReadF77Block(fileID, byteswap);
+
+ if (fileEOF(fileID)) return -1;
+
+ if (EXT_Debug) Message("blocklen = %lu", blocklen);
+
+ size_t hprec = blocklen / EXT_HEADER_LEN;
+
+ extp->prec = (int) hprec;
+
+ union EXT_HEADER tempheader;
+ switch (hprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ binReadInt32(fileID, byteswap, EXT_HEADER_LEN, tempheader.i32);
+ for (int i = 0; i < EXT_HEADER_LEN; i++) extp->header[i] = (int) tempheader.i32[i];
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ binReadInt64(fileID, byteswap, EXT_HEADER_LEN, tempheader.i64);
+ for (int i = 0; i < EXT_HEADER_LEN; i++) extp->header[i] = (int) tempheader.i64[i];
+ break;
+ }
+ default:
+ {
+ Error("Unexpected header precision %d", hprec);
+ break;
+ }
+ }
+
+ size_t blocklen2 = binReadF77Block(fileID, byteswap);
+
+ if (blocklen2 != blocklen)
+ {
+ Warning("Header blocklen differ (blocklen1=%d; blocklen2=%d)!", blocklen, blocklen2);
+ if (blocklen2 != 0) return -1;
+ }
+
+ extp->datasize = (size_t) extp->header[3];
+
+ if (EXT_Debug) Message("datasize = %zu", extp->datasize);
+
+ blocklen = binReadF77Block(fileID, byteswap);
+
+ if (extp->buffersize < blocklen)
+ {
+ extp->buffersize = blocklen;
+ extp->buffer = Realloc(extp->buffer, extp->buffersize);
+ }
+
+ size_t dprec = blocklen / extp->datasize;
+
+ if (dprec == hprec)
+ {
+ extp->number = EXT_REAL;
+ }
+ else if (dprec == 2 * hprec)
+ {
+ dprec /= 2;
+ extp->datasize *= 2;
+ extp->number = EXT_COMP;
+ }
+
+ if (dprec != EXSE_SINGLE_PRECISION && dprec != EXSE_DOUBLE_PRECISION)
+ {
+ Warning("Unexpected data precision %d", dprec);
+ return -1;
+ }
+
+ fileRead(fileID, extp->buffer, blocklen);
+
+ blocklen2 = binReadF77Block(fileID, byteswap);
+
+ if (blocklen2 != blocklen)
+ {
+ Warning("Data blocklen differ (blocklen1=%d; blocklen2=%d)!", blocklen, blocklen2);
+ if (blocklen2 != 0) return -1;
+ }
+
+ return 0;
+}
+
+int
+extWrite(int fileID, void *ext)
+{
+ extrec_t *extp = (extrec_t *) ext;
+ union EXT_HEADER tempheader;
+ int byteswap = extp->byteswap;
+ int rprec = extp->prec;
+ int number = extp->number;
+ int *header = extp->header;
+
+ // write header record
+ size_t blocklen = EXT_HEADER_LEN * (size_t) rprec;
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ switch (rprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ for (int i = 0; i < EXT_HEADER_LEN; i++) tempheader.i32[i] = (INT32) header[i];
+ binWriteInt32(fileID, byteswap, EXT_HEADER_LEN, tempheader.i32);
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ for (int i = 0; i < EXT_HEADER_LEN; i++) tempheader.i64[i] = (INT64) header[i];
+ binWriteInt64(fileID, byteswap, EXT_HEADER_LEN, tempheader.i64);
+ break;
+ }
+ default:
+ {
+ Error("unexpected header precision %d", rprec);
+ break;
+ }
+ }
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ extp->datasize = (size_t) header[3];
+ if (number == EXT_COMP) extp->datasize *= 2;
+ blocklen = extp->datasize * (size_t) rprec;
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ switch (rprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ binWriteFlt32(fileID, byteswap, extp->datasize, (FLT32 *) extp->buffer);
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ binWriteFlt64(fileID, byteswap, extp->datasize, (FLT64 *) extp->buffer);
+ break;
+ }
+ default:
+ {
+ Error("unexpected data precision %d", rprec);
+ break;
+ }
+ }
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ return 0;
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+// strdup() from string.h
+#ifdef __STDC_ALLOC_LIB__
+#define __STDC_WANT_LIB_EXT2__ 1
+#else
+#undef _POSIX_C_SOURCE
+#define _POSIX_C_SOURCE 200809L
+#endif
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <unistd.h>
+
+#include <assert.h>
+#include <ctype.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <string.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#ifdef HAVE_SYS_TIME_H
+#include <sys/time.h> // gettimeofday()
+#endif
+
+
+#ifdef CDI
+#endif
+
+#ifndef O_BINARY
+#define O_BINARY 0
+#endif
+
+#ifdef HAVE_MMAP
+#include <sys/mman.h> // mmap() is defined in this header
+#endif
+
+#ifndef SSIZE_MAX
+#define SSIZE_MAX LONG_MAX
+#endif
+
+#define MAX_FILES 8192
+static int _file_max = MAX_FILES;
+
+static void file_initialize(void);
+
+static bool _file_init = false;
+
+#ifdef HAVE_LIBPTHREAD
+#include <pthread.h>
+
+static pthread_once_t _file_init_thread = PTHREAD_ONCE_INIT;
+static pthread_mutex_t _file_mutex = PTHREAD_MUTEX_INITIALIZER;
+
+#define FILE_LOCK() pthread_mutex_lock(&_file_mutex)
+#define FILE_UNLOCK() pthread_mutex_unlock(&_file_mutex)
+#define FILE_INIT() \
+ if (_file_init == false) pthread_once(&_file_init_thread, file_initialize)
+
+#else
+
+#define FILE_LOCK()
+#define FILE_UNLOCK()
+#define FILE_INIT() \
+ if (_file_init == false) file_initialize()
+#endif
+
+typedef struct
+{
+ int self;
+ int flag; // access and error flag
+ int eof; // end of file flag
+ int fd; // file descriptor used for read
+ FILE *fp; // FILE pointer used for write
+ char *name; // file name
+ off_t size; // file size
+ off_t position; // file position
+ long access; // file access
+ off_t byteTrans; //
+ size_t blockSize; // file block size
+ int mode; // file access mode
+ int type; // file type [1:open 2:fopen]
+ int bufferType; // buffer type [1:std 2:mmap]
+ size_t bufferSize; // file buffer size
+ size_t mappedSize; // mmap buffer size
+ char *buffer; // file buffer
+ long bufferNumFill; // number of buffer fill
+ char *bufferPtr; // file buffer pointer
+ off_t bufferPos;
+ off_t bufferStart;
+ off_t bufferEnd;
+ size_t bufferCnt;
+ double time_in_sec;
+} bfile_t;
+
+enum FILE_Flags
+{
+ FILE_EOF = 010,
+ FILE_ERROR = 020
+};
+
+#ifndef MIN_BUF_SIZE
+#define MIN_BUF_SIZE 131072L
+#endif
+
+static const char *fbtname[] = { "unknown", "standard", "mmap" };
+static const char *ftname[] = { "unknown", "open", "fopen" };
+
+static size_t FileBufferSizeMin = MIN_BUF_SIZE;
+static long FileBufferSizeEnv = -1;
+static int FileBufferTypeEnv = 0;
+
+static int FileTypeRead = FILE_TYPE_OPEN;
+static int FileTypeWrite = FILE_TYPE_FOPEN;
+static int FileFlagWrite = 0;
+
+static int FileDebug = 0; // If set to 1, debugging
+static bool FileInfo = false;
+
+static void file_table_print(void);
+
+// A version string.
+#undef LIBVERSION
+#define LIBVERSION 1.9.1
+#define XSTRING(x) #x
+#define STRING(x) XSTRING(x)
+static const char file_libvers[] = STRING(LIBVERSION);
+
+/*
+ 21/05/2004 1.3.2 set min I/O Buffersize to 128k
+ 31/05/2005 1.4.0 replace fileTable by _fileList
+ 26/08/2005 1.4.1 fileClose with return value
+ checks for all fileptr
+ 01/09/2005 1.5.0 thread safe version
+ 06/11/2005 1.5.1 add filePtrEOF, filePtr, filePtrGetc
+ 03/02/2006 1.5.2 ansi C: define getpagesize and strdupx
+ 27/12/2007 1.6.0 add FILE_TYPE_FOPEN
+ 24/03/2008 1.6.1 add O_BINARY if available
+ remove default HAVE_MMAP
+ use HAVE_STRUCT_STAT_ST_BLKSIZE
+ 22/08/2010 1.7.0 refactor
+ 11/11/2010 1.7.1 update for changed interface of error.h
+ 02/02/2012 1.8.0 cleanup
+ 16/11/2012 1.8.1 added support for unbuffered write
+ 27/06/2013 1.8.2 added env. var. FILE_TYPE_WRITE (1:open; 2:fopen)
+ 29/04/2020 1.9.0 fileSetPos(): refactored
+ 30/04/2020 1.9.1 fileSetPos(): not initialized correctly (bug fix)
+ */
+
+typedef struct _filePtrToIdx
+{
+ int idx;
+ bfile_t *ptr;
+ struct _filePtrToIdx *next;
+} filePtrToIdx;
+
+static filePtrToIdx *_fileList = NULL;
+static filePtrToIdx *_fileAvail = NULL;
+
+static void
+file_list_new(void)
+{
+ assert(_fileList == NULL);
+
+ _fileList = (filePtrToIdx *) malloc((size_t) _file_max * sizeof(filePtrToIdx));
+}
+
+static void
+file_list_delete(void)
+{
+ if (_fileList)
+ {
+ free(_fileList);
+ _fileList = NULL;
+ }
+}
+
+static void
+file_init_pointer(void)
+{
+ for (int i = 0; i < _file_max; i++)
+ {
+ _fileList[i].next = _fileList + i + 1;
+ _fileList[i].idx = i;
+ _fileList[i].ptr = 0;
+ }
+
+ _fileList[_file_max - 1].next = 0;
+
+ _fileAvail = _fileList;
+}
+
+static bfile_t *
+file_to_pointer(int idx)
+{
+ bfile_t *fileptr = NULL;
+
+ FILE_INIT();
+
+ if (idx >= 0 && idx < _file_max)
+ {
+ FILE_LOCK();
+ fileptr = _fileList[idx].ptr;
+ FILE_UNLOCK();
+ }
+ else
+ Error("file index %d undefined!", idx);
+
+ return fileptr;
+}
+
+// Create an index from a pointer
+static int
+file_from_pointer(bfile_t *ptr)
+{
+ int idx = -1;
+
+ if (ptr)
+ {
+ FILE_LOCK();
+
+ if (_fileAvail)
+ {
+ filePtrToIdx *newptr = _fileAvail;
+ _fileAvail = _fileAvail->next;
+ newptr->next = 0;
+ idx = newptr->idx;
+ newptr->ptr = ptr;
+
+ if (FileDebug) Message("Pointer %p has idx %d from file list", ptr, idx);
+ }
+ else
+ {
+ Warning("Too many open files (limit is %d)!", _file_max);
+ idx = -2;
+ }
+
+ FILE_UNLOCK();
+ }
+ else
+ Error("Internal problem (pointer %p undefined)", ptr);
+
+ return idx;
+}
+
+static void
+file_init_entry(bfile_t *fileptr)
+{
+ fileptr->self = file_from_pointer(fileptr);
+
+ fileptr->flag = 0;
+ fileptr->fd = -1;
+ fileptr->fp = NULL;
+ fileptr->mode = 0;
+ fileptr->size = 0;
+ fileptr->name = NULL;
+ fileptr->access = 0;
+ fileptr->position = 0;
+ fileptr->byteTrans = 0;
+ fileptr->type = 0;
+ fileptr->bufferType = 0;
+ fileptr->bufferSize = 0;
+ fileptr->mappedSize = 0;
+ fileptr->buffer = NULL;
+ fileptr->bufferNumFill = 0;
+ fileptr->bufferStart = 0;
+ fileptr->bufferEnd = -1;
+ fileptr->bufferPos = 0;
+ fileptr->bufferCnt = 0;
+ fileptr->bufferPtr = NULL;
+ fileptr->time_in_sec = 0.0;
+}
+
+static bfile_t *
+file_new_entry(void)
+{
+ bfile_t *fileptr = (bfile_t *) malloc(sizeof(bfile_t));
+ if (fileptr) file_init_entry(fileptr);
+ return fileptr;
+}
+
+static void
+file_delete_entry(bfile_t *fileptr)
+{
+ int idx = fileptr->self;
+
+ FILE_LOCK();
+
+ free(fileptr);
+
+ _fileList[idx].next = _fileAvail;
+ _fileList[idx].ptr = 0;
+ _fileAvail = &_fileList[idx];
+
+ FILE_UNLOCK();
+
+ if (FileDebug) Message("Removed idx %d from file list", idx);
+}
+
+const char *
+fileLibraryVersion(void)
+{
+ return file_libvers;
+}
+
+static int
+file_pagesize(void)
+{
+#ifdef _SC_PAGESIZE
+ return (int) sysconf(_SC_PAGESIZE);
+#else
+#ifndef POSIXIO_DEFAULT_PAGESIZE
+#define POSIXIO_DEFAULT_PAGESIZE 4096
+#endif
+ return (int) POSIXIO_DEFAULT_PAGESIZE;
+#endif
+}
+
+static double
+file_time(void)
+{
+#ifdef HAVE_SYS_TIME_H
+ struct timeval mytime;
+ gettimeofday(&mytime, NULL);
+ return (double) mytime.tv_sec + (double) mytime.tv_usec * 1.0e-6;
+#else
+ return 0;
+#endif
+}
+
+void
+fileDebug(int debug)
+{
+ FileDebug = debug;
+ if (FileDebug) Message("Debug level %d", debug);
+}
+
+void *
+filePtr(int fileID)
+{
+ return (void *) file_to_pointer(fileID);
+}
+
+static void
+file_pointer_info(const char *caller, int fileID)
+{
+ if (FileDebug)
+ {
+ fprintf(stdout, "%-18s : ", caller);
+ fprintf(stdout, "The fileID %d underlying pointer is not valid!", fileID);
+ fprintf(stdout, "\n");
+ }
+}
+
+int
+fileSetBufferType(int fileID, int type)
+{
+ int ret = 0;
+
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr)
+ {
+ switch (type)
+ {
+ case FILE_BUFTYPE_STD:
+ case FILE_BUFTYPE_MMAP: fileptr->bufferType = type; break;
+ default: Error("File type %d not implemented!", type);
+ }
+ }
+
+#ifndef HAVE_MMAP
+ if (type == FILE_BUFTYPE_MMAP) ret = 1;
+#endif
+
+ return ret;
+}
+
+int
+fileFlush(int fileID)
+{
+ int retval = 0;
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr)
+ {
+ FILE *fp = fileptr->fp;
+ retval = fflush(fp);
+ if (retval == 0) retval = fsync(fileno(fp));
+ if (retval != 0) retval = errno;
+ }
+
+ return retval;
+}
+
+void
+fileClearerr(int fileID)
+{
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr)
+ {
+ if (fileptr->mode != 'r') clearerr(fileptr->fp);
+ }
+}
+
+int
+filePtrEOF(void *vfileptr)
+{
+ bfile_t *fileptr = (bfile_t *) vfileptr;
+ return fileptr ? (fileptr->flag & FILE_EOF) != 0 : 0;
+}
+
+int
+fileEOF(int fileID)
+{
+ bfile_t *fileptr = file_to_pointer(fileID);
+ return fileptr ? (fileptr->flag & FILE_EOF) != 0 : 0;
+}
+
+void
+fileRewind(int fileID)
+{
+ fileSetPos(fileID, (off_t) 0, SEEK_SET);
+ fileClearerr(fileID);
+}
+
+off_t
+fileGetPos(int fileID)
+{
+ off_t filepos = 0;
+
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr)
+ {
+ filepos = (fileptr->mode == 'r' && fileptr->type == FILE_TYPE_OPEN) ? fileptr->position : ftell(fileptr->fp);
+ }
+
+ if (FileDebug) Message("Position %ld", filepos);
+
+ return filepos;
+}
+
+static int
+file_set_buffer_pos(bfile_t *fileptr)
+{
+ off_t position = fileptr->position;
+ if (position < fileptr->bufferStart || position > fileptr->bufferEnd)
+ {
+ fileptr->bufferPos = (fileptr->bufferType == FILE_BUFTYPE_STD) ? position : position - position % file_pagesize();
+ fileptr->bufferCnt = 0;
+ fileptr->bufferPtr = NULL;
+
+ return 1;
+ }
+
+ return 0;
+}
+
+static void
+file_check_buffer_pos(bfile_t *fileptr)
+{
+ if (fileptr->bufferPos != fileptr->bufferEnd + 1)
+ {
+ if (FileDebug) Message("Reset buffer pos from %ld to %ld", fileptr->bufferPos, fileptr->bufferEnd + 1);
+
+ fileptr->bufferPos = fileptr->bufferEnd + 1;
+ }
+}
+
+static void
+file_seek_buffer(bfile_t *fileptr, off_t offset, int whence)
+{
+ if (whence == SEEK_SET)
+ {
+ fileptr->position = offset;
+ if (!file_set_buffer_pos(fileptr))
+ {
+ file_check_buffer_pos(fileptr);
+ fileptr->bufferCnt = (size_t) (fileptr->bufferEnd - fileptr->position) + 1;
+ fileptr->bufferPtr = fileptr->buffer + fileptr->position - fileptr->bufferStart;
+ }
+ }
+ else if (whence == SEEK_CUR)
+ {
+ fileptr->position += offset;
+ if (!file_set_buffer_pos(fileptr))
+ {
+ file_check_buffer_pos(fileptr);
+ fileptr->bufferCnt -= (size_t) offset;
+ fileptr->bufferPtr += offset;
+ }
+ }
+}
+
+int
+fileSetPos(int fileID, off_t offset, int whence)
+{
+ int status = 0;
+
+ if (FileDebug) Message("Offset %8ld Whence %3d", (long) offset, whence);
+
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr == 0)
+ {
+ file_pointer_info(__func__, fileID);
+ return 1;
+ }
+
+ if (whence != SEEK_SET && whence != SEEK_CUR) Error("Whence = %d not implemented", whence);
+
+ if (fileptr->mode == 'r' && fileptr->type == FILE_TYPE_OPEN)
+ file_seek_buffer(fileptr, offset, whence);
+ else
+ status = fseek(fileptr->fp, offset, whence);
+
+ if ((fileptr->position < fileptr->size) && ((fileptr->flag & FILE_EOF) != 0)) fileptr->flag -= FILE_EOF;
+
+ return status;
+}
+
+static void
+file_table_print(void)
+{
+ int lprintHeader = 1;
+
+ for (int fileID = 0; fileID < _file_max; fileID++)
+ {
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr)
+ {
+ if (lprintHeader)
+ {
+ fprintf(stderr, "\nFile table:\n");
+ fprintf(stderr, "+-----+---------+");
+ fprintf(stderr, "----------------------------------------------------+\n");
+ fprintf(stderr, "| ID | Mode |");
+ fprintf(stderr, " Name |\n");
+ fprintf(stderr, "+-----+---------+");
+ fprintf(stderr, "----------------------------------------------------+\n");
+ lprintHeader = 0;
+ }
+
+ fprintf(stderr, "| %3d | ", fileID);
+
+ switch (fileptr->mode)
+ {
+ case 'r': fprintf(stderr, "read "); break;
+ case 'w': fprintf(stderr, "write "); break;
+ case 'a': fprintf(stderr, "append "); break;
+ default: fprintf(stderr, "unknown");
+ }
+
+ fprintf(stderr, " | %-51s|\n", fileptr->name);
+ }
+ }
+
+ if (lprintHeader == 0)
+ {
+ fprintf(stderr, "+-----+---------+");
+ fprintf(stderr, "----------------------------------------------------+\n");
+ }
+}
+
+char *
+fileInqName(int fileID)
+{
+ bfile_t *fileptr = file_to_pointer(fileID);
+ return fileptr ? fileptr->name : NULL;
+}
+
+int
+fileInqMode(int fileID)
+{
+ bfile_t *fileptr = file_to_pointer(fileID);
+ return fileptr ? fileptr->mode : 0;
+}
+
+static long
+file_getenv(const char *envName)
+{
+ long envValue = -1;
+ char *envString = getenv(envName);
+ if (envString)
+ {
+ long fact = 1;
+ for (int i = 0; i < (int) strlen(envString); i++)
+ {
+ if (!isdigit((int) envString[i]))
+ {
+ switch (tolower((int) envString[i]))
+ {
+ case 'k': fact = 1024; break;
+ case 'm': fact = 1048576; break;
+ case 'g': fact = 1073741824; break;
+ default:
+ fact = 0;
+ Warning("Invalid number string in %s: %s", envName, envString);
+ Warning("%s must comprise only digits [0-9].", envName);
+ }
+ break;
+ }
+ }
+
+ if (fact) envValue = fact * atol(envString);
+
+ if (FileDebug) Message("Set %s to %ld", envName, envValue);
+ }
+
+ return envValue;
+}
+
+static void
+file_initialize(void)
+{
+ long value;
+
+ FileInfo = (file_getenv("FILE_INFO") > 0);
+
+ value = file_getenv("FILE_DEBUG");
+ if (value >= 0) FileDebug = (int) value;
+
+ value = file_getenv("FILE_MAX");
+ if (value >= 0) _file_max = (int) value;
+
+ if (FileInfo) fprintf(stderr, "FILE_MAX = %d\n", _file_max);
+
+ value = file_getenv("FILE_BUFSIZE");
+ if (value >= 0)
+ FileBufferSizeEnv = value;
+ else
+ {
+ value = file_getenv("GRIB_API_IO_BUFFER_SIZE");
+ if (value >= 0) FileBufferSizeEnv = value;
+ }
+
+ if (FileInfo) fprintf(stderr, "FILE_BUFSIZE = %ld\n", FileBufferSizeEnv);
+
+ value = file_getenv("FILE_TYPE_READ");
+ if (value > 0)
+ {
+ switch (value)
+ {
+ case FILE_TYPE_OPEN:
+ case FILE_TYPE_FOPEN: FileTypeRead = (int) value; break;
+ default: Warning("File type %ld not implemented!", value);
+ }
+ }
+
+ if (FileInfo)
+ fprintf(stderr, "FILE_TYPE_READ = %d [%d:%s %d:%s]\n", FileTypeRead, FILE_TYPE_OPEN, ftname[FILE_TYPE_OPEN], FILE_TYPE_FOPEN,
+ ftname[FILE_TYPE_FOPEN]);
+
+ value = file_getenv("FILE_TYPE_WRITE");
+ if (value > 0)
+ {
+ switch (value)
+ {
+ case FILE_TYPE_OPEN:
+ case FILE_TYPE_FOPEN: FileTypeWrite = (int) value; break;
+ default: Warning("File type %ld not implemented!", value);
+ }
+ }
+
+ if (FileInfo)
+ fprintf(stderr, "FILE_TYPE_WRITE = %d [%d:%s %d:%s]\n", FileTypeWrite, FILE_TYPE_OPEN, ftname[FILE_TYPE_OPEN], FILE_TYPE_FOPEN,
+ ftname[FILE_TYPE_FOPEN]);
+
+#ifdef O_NONBLOCK
+ FileFlagWrite = O_NONBLOCK;
+#endif
+ char *envString = getenv("FILE_FLAG_WRITE");
+ if (envString)
+ {
+#ifdef O_NONBLOCK
+ if (strcmp(envString, "NONBLOCK") == 0) FileFlagWrite = O_NONBLOCK;
+#endif
+ }
+
+ value = file_getenv("FILE_BUFTYPE");
+#ifndef HAVE_MMAP
+ if (value == FILE_BUFTYPE_MMAP)
+ {
+ Warning("MMAP not available!");
+ value = 0;
+ }
+#endif
+ if (value > 0)
+ {
+ switch (value)
+ {
+ case FILE_BUFTYPE_STD:
+ case FILE_BUFTYPE_MMAP: FileBufferTypeEnv = (int) value; break;
+ default: Warning("File buffer type %ld not implemented!", value);
+ }
+ }
+
+ if (FileInfo)
+ fprintf(stderr, "FILE_BUFTYPE = %d [%d:%s %d:%s]\n", FileBufferTypeEnv, FILE_BUFTYPE_STD, fbtname[FILE_BUFTYPE_STD],
+ FILE_BUFTYPE_MMAP, fbtname[FILE_BUFTYPE_MMAP]);
+
+ file_list_new();
+ atexit(file_list_delete);
+
+ FILE_LOCK();
+ file_init_pointer();
+ FILE_UNLOCK();
+
+ if (FileDebug) atexit(file_table_print);
+
+ _file_init = true;
+}
+
+static size_t
+file_get_buffersize(bfile_t *fileptr)
+{
+ size_t buffersize = 0;
+
+ if (FileBufferSizeEnv >= 0)
+ buffersize = (size_t) FileBufferSizeEnv;
+ else if (fileptr->bufferSize > 0)
+ buffersize = fileptr->bufferSize;
+ else
+ {
+ buffersize = fileptr->blockSize * 4;
+ if (buffersize < FileBufferSizeMin) buffersize = FileBufferSizeMin;
+ }
+
+ return buffersize;
+}
+
+static void
+file_set_buffer(bfile_t *fileptr)
+{
+ size_t buffersize = 0;
+
+ if (fileptr->mode == 'r')
+ {
+ if (FileBufferTypeEnv)
+ fileptr->bufferType = FileBufferTypeEnv;
+ else if (fileptr->bufferType == 0)
+ fileptr->bufferType = FILE_BUFTYPE_STD;
+
+ buffersize = file_get_buffersize(fileptr);
+
+ if ((size_t) fileptr->size < buffersize) buffersize = (size_t) fileptr->size;
+
+ if (fileptr->bufferType == FILE_BUFTYPE_MMAP)
+ {
+ size_t blocksize = (size_t) file_pagesize();
+ size_t minblocksize = 4 * blocksize;
+ buffersize = buffersize - buffersize % minblocksize;
+
+ if (buffersize < (size_t) fileptr->size && buffersize < minblocksize) buffersize = minblocksize;
+ }
+
+ if (buffersize == 0) buffersize = 1;
+ }
+ else
+ {
+ fileptr->bufferType = FILE_BUFTYPE_STD;
+ buffersize = file_get_buffersize(fileptr);
+ }
+
+ if (fileptr->bufferType == FILE_BUFTYPE_STD || fileptr->type == FILE_TYPE_FOPEN)
+ {
+ if (buffersize > 0)
+ {
+ fileptr->buffer = (char *) malloc(buffersize);
+ if (fileptr->buffer == NULL) SysError("Allocation of file buffer failed!");
+ }
+ }
+
+ if (fileptr->type == FILE_TYPE_FOPEN)
+ if (setvbuf(fileptr->fp, fileptr->buffer, fileptr->buffer ? _IOFBF : _IONBF, buffersize)) SysError("setvbuf failed!");
+
+ fileptr->bufferSize = buffersize;
+}
+
+static int
+file_fill_buffer(bfile_t *fileptr)
+{
+ ssize_t nread;
+ long offset = 0;
+
+ if (FileDebug) Message("file ptr = %p Cnt = %ld", fileptr, fileptr->bufferCnt);
+
+ if ((fileptr->flag & FILE_EOF) != 0) return EOF;
+
+ if (fileptr->buffer == NULL) file_set_buffer(fileptr);
+
+ if (fileptr->bufferSize == 0) return EOF;
+
+ int fd = fileptr->fd;
+
+#ifdef HAVE_MMAP
+ if (fileptr->bufferType == FILE_BUFTYPE_MMAP)
+ {
+ if (fileptr->bufferPos >= fileptr->size)
+ {
+ nread = 0;
+ }
+ else
+ {
+#ifdef CDI
+ xassert(fileptr->bufferSize <= SSIZE_MAX);
+#endif
+ nread = (ssize_t) fileptr->bufferSize;
+ if ((nread + fileptr->bufferPos) > fileptr->size) nread = fileptr->size - fileptr->bufferPos;
+
+ if (fileptr->buffer)
+ {
+ int ret = munmap(fileptr->buffer, fileptr->mappedSize);
+ if (ret == -1) SysError("munmap error for read %s", fileptr->name);
+ fileptr->buffer = NULL;
+ }
+
+ fileptr->mappedSize = (size_t) nread;
+
+ fileptr->buffer = (char *) mmap(NULL, (size_t) nread, PROT_READ, MAP_PRIVATE, fd, fileptr->bufferPos);
+
+ if (fileptr->buffer == MAP_FAILED) SysError("mmap error for read %s", fileptr->name);
+
+ offset = fileptr->position - fileptr->bufferPos;
+ }
+ }
+ else
+#endif
+ {
+ off_t retseek = lseek(fileptr->fd, fileptr->bufferPos, SEEK_SET);
+ if (retseek == (off_t) -1) SysError("lseek error at pos %ld file %s", (long) fileptr->bufferPos, fileptr->name);
+
+ nread = read(fd, fileptr->buffer, fileptr->bufferSize);
+ if (nread > 0) offset = fileptr->position - fileptr->bufferPos;
+ }
+
+ if (nread <= 0)
+ {
+ fileptr->flag |= (nread == 0) ? FILE_EOF : FILE_ERROR;
+ fileptr->bufferCnt = 0;
+ return EOF;
+ }
+
+ fileptr->bufferPtr = fileptr->buffer;
+ fileptr->bufferCnt = (size_t) nread;
+
+ fileptr->bufferStart = fileptr->bufferPos;
+ fileptr->bufferPos += nread;
+ fileptr->bufferEnd = fileptr->bufferPos - 1;
+
+ if (FileDebug)
+ {
+ Message("fileID = %d Val = %d", fileptr->self, (int) fileptr->buffer[0]);
+ Message("fileID = %d Start = %ld", fileptr->self, fileptr->bufferStart);
+ Message("fileID = %d End = %ld", fileptr->self, fileptr->bufferEnd);
+ Message("fileID = %d nread = %ld", fileptr->self, nread);
+ Message("fileID = %d offset = %ld", fileptr->self, offset);
+ Message("fileID = %d Pos = %ld", fileptr->self, fileptr->bufferPos);
+ Message("fileID = %d postion = %ld", fileptr->self, fileptr->position);
+ }
+
+ if (offset > 0)
+ {
+ if (offset > nread) Error("Internal problem with buffer handling. nread = %d offset = %d", nread, offset);
+
+ fileptr->bufferPtr += offset;
+ fileptr->bufferCnt -= (size_t) offset;
+ }
+
+ fileptr->bufferNumFill++;
+
+ return (unsigned char) *fileptr->bufferPtr;
+}
+
+static void
+file_copy_from_buffer(bfile_t *fileptr, void *ptr, size_t size)
+{
+ if (FileDebug) Message("size = %ld Cnt = %ld", size, fileptr->bufferCnt);
+
+ if (fileptr->bufferCnt < size) Error("Buffer too small. bufferCnt = %d", fileptr->bufferCnt);
+
+ if (size == 1)
+ {
+ ((char *) ptr)[0] = fileptr->bufferPtr[0];
+
+ fileptr->bufferPtr++;
+ fileptr->bufferCnt--;
+ }
+ else
+ {
+ memcpy(ptr, fileptr->bufferPtr, size);
+
+ fileptr->bufferPtr += size;
+ fileptr->bufferCnt -= size;
+ }
+}
+
+static size_t
+file_read_from_buffer(bfile_t *fileptr, void *ptr, size_t size)
+{
+ size_t nread;
+ size_t offset = 0;
+
+ if (FileDebug) Message("size = %ld Cnt = %ld", size, (long) fileptr->bufferCnt);
+
+ if (((long) fileptr->bufferCnt) < 0L) Error("Internal problem. bufferCnt = %ld", (long) fileptr->bufferCnt);
+
+ size_t rsize = size;
+
+ while (fileptr->bufferCnt < rsize)
+ {
+ nread = fileptr->bufferCnt;
+ // fprintf(stderr, "rsize = %d nread = %d\n", (int) rsize, (int) nread);
+ if (nread > (size_t) 0) file_copy_from_buffer(fileptr, (char *) ptr + offset, nread);
+ offset += nread;
+ rsize = (nread < rsize) ? rsize - nread : 0;
+
+ if (file_fill_buffer(fileptr) == EOF) break;
+ }
+
+ nread = size - offset;
+
+ if (fileptr->bufferCnt < nread) nread = fileptr->bufferCnt;
+
+ if (nread > (unsigned) 0) file_copy_from_buffer(fileptr, (char *) ptr + offset, nread);
+
+ return (nread + offset);
+}
+
+void
+fileSetBufferSize(int fileID, long buffersize)
+{
+#ifdef CDI
+ xassert(buffersize >= 0);
+#endif
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr) fileptr->bufferSize = (size_t) buffersize;
+}
+
+/*
+ * Open a file. Returns file ID, or -1 on error
+ */
+int
+fileOpen(const char *filename, const char *mode)
+#ifdef CDI
+{
+ int (*myFileOpen)(const char *filename, const char *mode)
+ = (int (*)(const char *, const char *)) namespaceSwitchGet(NSSWITCH_FILE_OPEN).func;
+ return myFileOpen(filename, mode);
+}
+
+int
+fileOpen_serial(const char *filename, const char *mode)
+#endif
+{
+ FILE *fp = NULL; // file pointer (used for write)
+ int fd = -1; // file descriptor (used for read)
+ int fileID = FILE_UNDEFID;
+ struct stat filestat;
+ bfile_t *fileptr = NULL;
+
+ FILE_INIT();
+
+ int fmode = tolower((int) mode[0]);
+
+ switch (fmode)
+ {
+ case 'r':
+ if (FileTypeRead == FILE_TYPE_FOPEN)
+ fp = fopen(filename, "rb");
+ else
+ fd = open(filename, O_RDONLY | O_BINARY);
+ break;
+ case 'x': fp = fopen(filename, "rb"); break;
+ case 'w':
+ if (FileTypeWrite == FILE_TYPE_FOPEN)
+ fp = fopen(filename, "wb");
+ else
+ fd = open(filename, O_CREAT | O_TRUNC | O_WRONLY | O_BINARY | FileFlagWrite, 0666);
+ break;
+ case 'a': fp = fopen(filename, "ab"); break;
+ default: Error("Mode %c unexpected!", fmode);
+ }
+
+ if (FileDebug && fp == NULL && fd == -1) Message("Open failed on %s mode %c errno %d", filename, fmode, errno);
+
+ if (fp)
+ {
+ if (stat(filename, &filestat) != 0) return fileID;
+
+ fileptr = file_new_entry();
+ if (fileptr)
+ {
+ fileID = fileptr->self;
+ fileptr->fp = fp;
+ }
+ }
+ else if (fd >= 0)
+ {
+ if (fstat(fd, &filestat) != 0) return fileID;
+
+ fileptr = file_new_entry();
+ if (fileptr)
+ {
+ fileID = fileptr->self;
+ fileptr->fd = fd;
+ }
+ }
+
+ if (fileID >= 0)
+ {
+ fileptr->mode = fmode;
+ fileptr->name = strdup(filename);
+
+#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
+ fileptr->blockSize = (size_t) filestat.st_blksize;
+#else
+ fileptr->blockSize = (size_t) 4096;
+#endif
+
+ // clang-format off
+ if (fmode == 'r') fileptr->type = FileTypeRead;
+ else if (fmode == 'w') fileptr->type = FileTypeWrite;
+ else fileptr->type = FILE_TYPE_FOPEN;
+ // clang-format on
+
+ if (fmode == 'r') fileptr->size = filestat.st_size;
+
+ // if (fileptr->type == FILE_TYPE_FOPEN) file_set_buffer(fileptr);
+ file_set_buffer(fileptr);
+
+ if (FileDebug) Message("File %s opened with ID %d", filename, fileID);
+ }
+
+ return fileID;
+}
+
+/*
+ * Close a file.
+ */
+int
+fileClose(int fileID)
+#ifdef CDI
+{
+ int (*myFileClose)(int fileID) = (int (*)(int)) namespaceSwitchGet(NSSWITCH_FILE_CLOSE).func;
+ return myFileClose(fileID);
+}
+
+int
+fileClose_serial(int fileID)
+#endif
+{
+ double rout = 0;
+
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr == NULL)
+ {
+ file_pointer_info(__func__, fileID);
+ return 1;
+ }
+
+ const char *name = fileptr->name;
+
+ if (FileDebug) Message("fileID = %d filename = %s", fileID, name);
+
+ if (FileInfo)
+ {
+ fprintf(stderr, "____________________________________________\n");
+ fprintf(stderr, " file ID : %d\n", fileID);
+ fprintf(stderr, " file name : %s\n", fileptr->name);
+ fprintf(stderr, " file type : %d (%s)\n", fileptr->type, ftname[fileptr->type]);
+
+ if (fileptr->type == FILE_TYPE_FOPEN)
+ fprintf(stderr, " file pointer : %p\n", (void *) fileptr->fp);
+ else
+ {
+ fprintf(stderr, " file descriptor : %d\n", fileptr->fd);
+ fprintf(stderr, " file flag : %d\n", FileFlagWrite);
+ }
+ fprintf(stderr, " file mode : %c\n", fileptr->mode);
+
+ if (sizeof(off_t) > sizeof(long))
+ {
+#ifdef _WIN32
+ fprintf(stderr, " file size : %I64d\n", (long long) fileptr->size);
+ if (fileptr->type == FILE_TYPE_OPEN) fprintf(stderr, " file position : %I64d\n", (long long) fileptr->position);
+ fprintf(stderr, " bytes transfered : %I64d\n", (long long) fileptr->byteTrans);
+#else
+ fprintf(stderr, " file size : %lld\n", (long long) fileptr->size);
+ if (fileptr->type == FILE_TYPE_OPEN) fprintf(stderr, " file position : %lld\n", (long long) fileptr->position);
+ fprintf(stderr, " bytes transfered : %lld\n", (long long) fileptr->byteTrans);
+#endif
+ }
+ else
+ {
+ fprintf(stderr, " file size : %ld\n", (long) fileptr->size);
+ if (fileptr->type == FILE_TYPE_OPEN) fprintf(stderr, " file position : %ld\n", (long) fileptr->position);
+ fprintf(stderr, " bytes transfered : %ld\n", (long) fileptr->byteTrans);
+ }
+
+ if (fileptr->time_in_sec > 0) rout = (double) fileptr->byteTrans / (1024. * 1024. * fileptr->time_in_sec);
+
+ fprintf(stderr, " wall time [s] : %.2f\n", fileptr->time_in_sec);
+ fprintf(stderr, " data rate [MB/s] : %.1f\n", rout);
+
+ fprintf(stderr, " file access : %ld\n", fileptr->access);
+ if (fileptr->mode == 'r' && fileptr->type == FILE_TYPE_OPEN)
+ {
+ fprintf(stderr, " buffer type : %d (%s)\n", fileptr->bufferType, fbtname[fileptr->bufferType]);
+ fprintf(stderr, " num buffer fill : %ld\n", fileptr->bufferNumFill);
+ }
+ fprintf(stderr, " buffer size : %lu\n", (unsigned long) fileptr->bufferSize);
+ fprintf(stderr, " block size : %lu\n", (unsigned long) fileptr->blockSize);
+ fprintf(stderr, " page size : %d\n", file_pagesize());
+ fprintf(stderr, "--------------------------------------------\n");
+ }
+
+ if (fileptr->type == FILE_TYPE_FOPEN)
+ {
+ if (fclose(fileptr->fp) == EOF) SysError("EOF returned for close of %s!", name);
+ }
+ else
+ {
+#ifdef HAVE_MMAP
+ if (fileptr->buffer && fileptr->mappedSize)
+ {
+ if (munmap(fileptr->buffer, fileptr->mappedSize) == -1) SysError("munmap error for close %s", fileptr->name);
+ fileptr->buffer = NULL;
+ }
+#endif
+ if (close(fileptr->fd) == -1) SysError("EOF returned for close of %s!", name);
+ }
+
+ if (fileptr->name) free((void *) fileptr->name);
+ if (fileptr->buffer) free((void *) fileptr->buffer);
+
+ file_delete_entry(fileptr);
+
+ return 0;
+}
+
+int
+filePtrGetc(void *vfileptr)
+{
+ int ivalue = EOF;
+
+ bfile_t *fileptr = (bfile_t *) vfileptr;
+ if (fileptr)
+ {
+ if (fileptr->mode == 'r' && fileptr->type == FILE_TYPE_OPEN)
+ {
+ int fillret = (fileptr->bufferCnt == 0) ? file_fill_buffer(fileptr) : 0;
+ if (fillret >= 0)
+ {
+ ivalue = (unsigned char) *fileptr->bufferPtr++;
+ fileptr->bufferCnt--;
+ fileptr->position++;
+
+ fileptr->byteTrans++;
+ fileptr->access++;
+ }
+ }
+ else
+ {
+ ivalue = fgetc(fileptr->fp);
+ if (ivalue >= 0)
+ {
+ fileptr->byteTrans++;
+ fileptr->access++;
+ }
+ else
+ fileptr->flag |= FILE_EOF;
+ }
+ }
+
+ return ivalue;
+}
+
+int
+fileGetc(int fileID)
+{
+ bfile_t *fileptr = file_to_pointer(fileID);
+ return filePtrGetc((void *) fileptr);
+}
+
+size_t
+filePtrRead(void *vfileptr, void *restrict ptr, size_t size)
+{
+ size_t nread = 0;
+
+ bfile_t *fileptr = (bfile_t *) vfileptr;
+ if (fileptr)
+ {
+ if (fileptr->mode == 'r' && fileptr->type == FILE_TYPE_OPEN)
+ {
+ nread = file_read_from_buffer(fileptr, ptr, size);
+ }
+ else
+ {
+ nread = fread(ptr, 1, size, fileptr->fp);
+ if (nread != size) fileptr->flag |= (nread == 0) ? FILE_EOF : FILE_ERROR;
+ }
+
+ fileptr->position += (off_t) nread;
+ fileptr->byteTrans += (off_t) nread;
+ fileptr->access++;
+ }
+
+ if (FileDebug) Message("size %ld nread %ld", size, nread);
+
+ return nread;
+}
+
+size_t
+fileRead(int fileID, void *restrict ptr, size_t size)
+{
+ size_t nread = 0;
+
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr)
+ {
+ double t_begin = 0.0;
+
+ if (FileInfo) t_begin = file_time();
+
+ if (fileptr->type == FILE_TYPE_OPEN)
+ {
+ nread = file_read_from_buffer(fileptr, ptr, size);
+ }
+ else
+ {
+ nread = fread(ptr, 1, size, fileptr->fp);
+ if (nread != size) fileptr->flag |= (nread == 0) ? FILE_EOF : FILE_ERROR;
+ }
+
+ if (FileInfo) fileptr->time_in_sec += file_time() - t_begin;
+
+ fileptr->position += (off_t) nread;
+ fileptr->byteTrans += (off_t) nread;
+ fileptr->access++;
+ }
+
+ if (FileDebug) Message("size %ld nread %ld", size, nread);
+
+ return nread;
+}
+
+size_t
+fileWrite(int fileID, const void *restrict ptr, size_t size)
+{
+ size_t nwrite = 0;
+
+ bfile_t *fileptr = file_to_pointer(fileID);
+ if (fileptr)
+ {
+ double t_begin = 0.0;
+
+ if (FileInfo) t_begin = file_time();
+
+ if (fileptr->type == FILE_TYPE_FOPEN)
+ {
+ nwrite = fwrite(ptr, 1, size, fileptr->fp);
+ }
+ else
+ {
+ ssize_t temp = write(fileptr->fd, ptr, size);
+ if (temp == -1) perror("error writing to file");
+ nwrite = (temp == -1) ? 0 : (size_t) temp;
+ }
+
+ if (FileInfo) fileptr->time_in_sec += file_time() - t_begin;
+
+ fileptr->position += (off_t) nwrite;
+ fileptr->byteTrans += (off_t) nwrite;
+ fileptr->access++;
+ }
+
+ return nwrite;
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <float.h>
+#include <math.h>
+
+#ifndef M_SQRT2
+#define M_SQRT2 1.41421356237309504880168872420969808
+#endif
+
+static void
+cpledn(size_t kn, size_t kodd, double *pfn, double pdx, int kflag, double *pw, double *pdxn, double *pxmod)
+{
+ // 1.0 Newton iteration step
+
+ double zdlx = pdx;
+ double zdlldn = 0.0;
+
+ size_t ik = 1;
+
+ if (kflag == 0)
+ {
+ double zdlk = 0.5 * pfn[0];
+ for (size_t jn = 2 - kodd; jn <= kn; jn += 2)
+ {
+ // normalised ordinary Legendre polynomial == \overbar{p_n}^0
+ zdlk = zdlk + pfn[ik] * cos((double) (jn) *zdlx);
+ // normalised derivative == d/d\theta(\overbar{p_n}^0)
+ zdlldn = zdlldn - pfn[ik] * (double) (jn) *sin((double) (jn) *zdlx);
+ ik++;
+ }
+ // Newton method
+ double zdlmod = -(zdlk / zdlldn);
+ double zdlxn = zdlx + zdlmod;
+ *pdxn = zdlxn;
+ *pxmod = zdlmod;
+ }
+
+ // 2.0 Compute weights
+
+ if (kflag == 1)
+ {
+ for (size_t jn = 2 - kodd; jn <= kn; jn += 2)
+ {
+ // normalised derivative
+ zdlldn = zdlldn - pfn[ik] * (double) (jn) *sin((double) (jn) *zdlx);
+ ik++;
+ }
+ *pw = (double) (2 * kn + 1) / (zdlldn * zdlldn);
+ }
+
+ return;
+}
+
+static void
+gawl(double *pfn, double *pl, double *pw, size_t kn)
+{
+ double pmod = 0.0;
+ double zw = 0.0;
+ double zdlxn = 0.0;
+
+ // 1.0 Initizialization
+
+ int iflag = 0;
+ int itemax = 20;
+
+ size_t iodd = (kn % 2);
+
+ double zdlx = *pl;
+
+ // 2.0 Newton iteration
+
+ for (int jter = 1; jter <= itemax + 1; ++jter)
+ {
+ cpledn(kn, iodd, pfn, zdlx, iflag, &zw, &zdlxn, &pmod);
+ zdlx = zdlxn;
+ if (iflag == 1) break;
+ if (fabs(pmod) <= DBL_EPSILON * 1000.0) iflag = 1;
+ }
+
+ *pl = zdlxn;
+ *pw = zw;
+
+ return;
+}
+
+static void
+gauaw(size_t kn, double *restrict pl, double *restrict pw)
+{
+ /*
+ * 1.0 Initialize Fourier coefficients for ordinary Legendre polynomials
+ *
+ * Belousov, Swarztrauber, and ECHAM use zfn(0,0) = sqrt(2)
+ * IFS normalisation chosen to be 0.5*Integral(Pnm**2) = 1 (zfn(0,0) = 2.0)
+ */
+ double *zfn = (double *) malloc((kn + 1) * (kn + 1) * sizeof(double));
+ double *zfnlat = (double *) malloc((kn / 2 + 1 + 1) * sizeof(double));
+
+ zfn[0] = M_SQRT2;
+ for (size_t jn = 1; jn <= kn; ++jn)
+ {
+ double zfnn = zfn[0];
+ for (size_t jgl = 1; jgl <= jn; ++jgl)
+ {
+ zfnn *= sqrt(1.0 - 0.25 / ((double) (jgl * jgl)));
+ }
+
+ zfn[jn * (kn + 1) + jn] = zfnn;
+
+ size_t iodd = jn % 2;
+ for (size_t jgl = 2; jgl <= jn - iodd; jgl += 2)
+ {
+ zfn[jn * (kn + 1) + jn - jgl] = zfn[jn * (kn + 1) + jn - jgl + 2] * ((double) ((jgl - 1) * (2 * jn - jgl + 2)))
+ / ((double) (jgl * (2 * jn - jgl + 1)));
+ }
+ }
+
+ // 2.0 Gaussian latitudes and weights
+
+ size_t iodd = kn % 2;
+ size_t ik = iodd;
+ for (size_t jgl = iodd; jgl <= kn; jgl += 2)
+ {
+ zfnlat[ik] = zfn[kn * (kn + 1) + jgl];
+ ik++;
+ }
+
+ // 2.1 Find first approximation of the roots of the Legendre polynomial of degree kn
+
+ size_t ins2 = kn / 2 + (kn % 2);
+
+ for (size_t jgl = 1; jgl <= ins2; ++jgl)
+ {
+ double z = ((double) (4 * jgl - 1)) * M_PI / ((double) (4 * kn + 2));
+ pl[jgl - 1] = z + 1.0 / (tan(z) * ((double) (8 * kn * kn)));
+ }
+
+ // 2.2 Computes roots and weights for transformed theta
+
+ for (size_t jgl = ins2; jgl >= 1; --jgl)
+ {
+ size_t jglm1 = jgl - 1;
+ gawl(zfnlat, &(pl[jglm1]), &(pw[jglm1]), kn);
+ }
+
+ // convert to physical latitude
+
+ for (size_t jgl = 0; jgl < ins2; ++jgl) pl[jgl] = cos(pl[jgl]);
+
+ for (size_t jgl = 1; jgl <= kn / 2; ++jgl)
+ {
+ size_t jglm1 = jgl - 1;
+ size_t isym = kn - jgl;
+ pl[isym] = -pl[jglm1];
+ pw[isym] = pw[jglm1];
+ }
+
+ free(zfnlat);
+ free(zfn);
+
+ return;
+}
+
+void
+gaussianLatitudes(size_t nlats, double *latitudes, double *weights)
+{
+ gauaw(nlats, latitudes, weights);
+}
+
+bool
+isGaussianLatitudes(size_t nlats, const double *latitudes)
+{
+ bool is_gauss_lats = false;
+
+ if (nlats > 2) // check if gaussian
+ {
+ size_t i;
+ double *yv = (double *) malloc(nlats * sizeof(double));
+ double *yw = (double *) malloc(nlats * sizeof(double));
+ gaussianLatitudes(nlats, yv, yw);
+ free(yw);
+
+ for (i = 0; i < nlats; i++) yv[i] = asin(yv[i]) / M_PI * 180.0;
+
+ for (i = 0; i < nlats; i++)
+ if (fabs(yv[i] - latitudes[i]) > ((yv[0] - yv[1]) / 500.0)) break;
+
+ if (i == nlats) is_gauss_lats = true;
+
+ // check S->N
+ if (is_gauss_lats == false)
+ {
+ for (i = 0; i < nlats; i++)
+ if (fabs(yv[i] - latitudes[nlats - i - 1]) > ((yv[0] - yv[1]) / 500.0)) break;
+
+ if (i == nlats) is_gauss_lats = true;
+ }
+
+ free(yv);
+ }
+
+ return is_gauss_lats;
+}
+#ifndef GET_NUM_MISSVALS_H
+#define GET_NUM_MISSVALS_H
+
+#include <stddef.h>
+
+size_t get_num_missvalsSP(size_t size, float *data, float missval);
+size_t get_num_missvalsDP(size_t size, double *data, double missval);
+size_t get_cplx_num_missvalsSP(size_t size, float *data, float missval);
+size_t get_cplx_num_missvalsDP(size_t size, double *data, double missval);
+
+#endif
+
+size_t
+get_num_missvalsSP(size_t size, float *data, float missval)
+{
+ size_t numMissVals = 0;
+
+ if (DBL_IS_NAN(missval))
+ {
+ for (size_t i = 0; i < size; i++)
+ if (DBL_IS_EQUAL(data[i], missval))
+ {
+ data[i] = missval;
+ numMissVals++;
+ }
+ }
+ else
+ {
+ for (size_t i = 0; i < size; i++)
+ if (IS_EQUAL(data[i], missval))
+ {
+ data[i] = missval;
+ numMissVals++;
+ }
+ }
+
+ return numMissVals;
+}
+
+size_t
+get_num_missvalsDP(size_t size, double *data, double missval)
+{
+ size_t numMissVals = 0;
+
+ if (DBL_IS_NAN(missval))
+ {
+ for (size_t i = 0; i < size; i++)
+ if (DBL_IS_EQUAL(data[i], missval) || DBL_IS_EQUAL(data[i], (float) missval))
+ {
+ data[i] = missval;
+ numMissVals++;
+ }
+ }
+ else
+ {
+ for (size_t i = 0; i < size; i++)
+ if (IS_EQUAL(data[i], missval) || IS_EQUAL(data[i], (float) missval))
+ {
+ data[i] = missval;
+ numMissVals++;
+ }
+ }
+
+ return numMissVals;
+}
+
+size_t
+get_cplx_num_missvalsSP(size_t size, float *data, float missval)
+{
+ size_t numMissVals = 0;
+
+ if (DBL_IS_NAN(missval))
+ {
+ for (size_t i = 0; i < 2 * size; i += 2)
+ if (DBL_IS_EQUAL(data[i], missval))
+ {
+ data[i] = missval;
+ numMissVals++;
+ }
+ }
+ else
+ {
+ for (size_t i = 0; i < 2 * size; i += 2)
+ if (IS_EQUAL(data[i], missval))
+ {
+ data[i] = missval;
+ numMissVals++;
+ }
+ }
+
+ return numMissVals;
+}
+
+size_t
+get_cplx_num_missvalsDP(size_t size, double *data, double missval)
+{
+ size_t numMissVals = 0;
+
+ if (DBL_IS_NAN(missval))
+ {
+ for (size_t i = 0; i < 2 * size; i += 2)
+ if (DBL_IS_EQUAL(data[i], missval) || DBL_IS_EQUAL(data[i], (float) missval))
+ {
+ data[i] = missval;
+ numMissVals++;
+ }
+ }
+ else
+ {
+ for (size_t i = 0; i < 2 * size; i += 2)
+ if (IS_EQUAL(data[i], missval) || IS_EQUAL(data[i], (float) missval))
+ {
+ data[i] = missval;
+ numMissVals++;
+ }
+ }
+
+ return numMissVals;
+}
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBGRIB_API
+#include <grib_api.h>
+#endif
+
+#include <stdio.h>
+
+
+static char gribapi_libvers[64] = "";
+#ifdef HAVE_LIBGRIB_API
+static bool gribapi_libvers_init;
+#endif
+
+void
+gribapiLibraryVersion(int *major_version, int *minor_version, int *revision_version)
+{
+#ifdef HAVE_LIBGRIB_API
+ long version = grib_get_api_version();
+ (*major_version) = (int) (version / 10000);
+ (*minor_version) = (int) ((version - (*major_version) * 10000) / 100);
+ (*revision_version) = (int) (version - (*major_version) * 10000 - (*minor_version) * 100);
+#else
+ (*major_version) = 0;
+ (*minor_version) = 0;
+ (*revision_version) = 0;
+#endif
+}
+
+const char *
+gribapiLibraryVersionString(void)
+{
+#ifdef HAVE_LIBGRIB_API
+ if (!gribapi_libvers_init)
+ {
+ int major_version, minor_version, revision_version;
+ gribapiLibraryVersion(&major_version, &minor_version, &revision_version);
+
+ snprintf(gribapi_libvers, sizeof(gribapi_libvers), "%d.%d.%d", major_version, minor_version, revision_version);
+ gribapi_libvers_init = true;
+ }
+#endif
+
+ return gribapi_libvers;
+}
+
+void *
+gribHandleNew(int editionNumber)
+{
+#ifdef HAVE_LIBGRIB_API
+ grib_handle *gh = NULL;
+ const char *fname = (editionNumber == 1) ? CDI_GRIB1_Template : CDI_GRIB2_Template;
+ if (fname)
+ {
+ FILE *fp = fopen(fname, "r");
+ if (fp)
+ {
+ int error;
+ gh = grib_handle_new_from_file(NULL, fp, &error);
+ fclose(fp);
+ if (gh == NULL) Error("grib_handle_new_from_file failed!");
+ }
+ else
+ {
+ Error("Open failed on >%s<!", fname);
+ }
+ }
+
+ if (gh == NULL)
+ {
+ gh = grib_handle_new_from_samples(NULL, (editionNumber == 1) ? "GRIB1" : "GRIB2");
+ if (gh == NULL) Error("grib_handle_new_from_samples failed!");
+
+ if (editionNumber == 1) GRIB_CHECK(my_grib_set_long(gh, "deleteLocalDefinition", 1L), 0);
+ if (editionNumber == 2) GRIB_CHECK(my_grib_set_long(gh, "grib2LocalSectionPresent", 0L), 0);
+ if (editionNumber == 2) GRIB_CHECK(my_grib_set_long(gh, "numberOfValues", 0L), 0);
+ }
+
+ return gh;
+#else
+ return NULL;
+#endif
+}
+
+void
+gribHandleDelete(void *gh)
+{
+#ifdef HAVE_LIBGRIB_API
+ grib_handle_delete((struct grib_handle *) gh);
+#endif
+}
+
+void
+gribContainersNew(stream_t *streamptr)
+{
+ const int editionNumber = (streamptr->filetype == CDI_FILETYPE_GRB) ? 1 : 2;
+
+#ifdef HAVE_LIBCGRIBEX
+ if (editionNumber == 1 && !CDI_gribapi_grib1)
+ {
+ }
+ else
+#endif
+ {
+ const int nvars = streamptr->nvars;
+
+#ifdef GRIBCONTAINER2D
+ gribContainer_t **gribContainers;
+ gribContainers = (gribContainer_t **) Malloc(nvars * sizeof(gribContainer_t *));
+
+ for (int varID = 0; varID < nvars; ++varID)
+ {
+ const int nlevs = streamptr->vars[varID].nlevs;
+ gribContainers[varID] = (gribContainer_t *) Malloc(nlevs * sizeof(gribContainer_t));
+
+ for (int levelID = 0; levelID < nlevs; ++levelID)
+ {
+ gribContainers[varID][levelID].gribHandle = gribHandleNew(editionNumber);
+ gribContainers[varID][levelID].init = false;
+ }
+ }
+
+ streamptr->gribContainers = (void *) gribContainers;
+#else
+ gribContainer_t *gribContainers = (gribContainer_t *) Malloc((size_t) nvars * sizeof(gribContainer_t));
+
+ for (int varID = 0; varID < nvars; ++varID)
+ {
+ gribContainers[varID].gribHandle = gribHandleNew(editionNumber);
+ gribContainers[varID].init = false;
+ }
+
+ streamptr->gribContainers = (void *) gribContainers;
+#endif
+ }
+}
+
+void
+gribContainersDelete(stream_t *streamptr)
+{
+ if (streamptr->gribContainers)
+ {
+ const int nvars = streamptr->nvars;
+
+#ifdef GRIBCONTAINER2D
+ gribContainer_t **gribContainers = (gribContainer_t **) streamptr->gribContainers;
+
+ for (int varID = 0; varID < nvars; ++varID)
+ {
+ const int nlevs = streamptr->vars[varID].nlevs;
+ for (int levelID = 0; levelID < nlevs; ++levelID)
+ {
+ gribHandleDelete(gribContainers[varID][levelID].gribHandle);
+ }
+ Free(gribContainers[varID]);
+ }
+#else
+ gribContainer_t *gribContainers = (gribContainer_t *) streamptr->gribContainers;
+
+ for (int varID = 0; varID < nvars; ++varID)
+ {
+ gribHandleDelete(gribContainers[varID].gribHandle);
+ }
+#endif
+
+ Free(gribContainers);
+
+ streamptr->gribContainers = NULL;
+ }
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef INCLUDE_GUARD_CDI_GRIBAPI_UTILITIES_H
+#define INCLUDE_GUARD_CDI_GRIBAPI_UTILITIES_H
+
+#ifdef HAVE_LIBGRIB_API
+
+
+#include <grib_api.h>
+
+#include <stdbool.h>
+
+char *gribCopyString(grib_handle *gribHandle, const char *key);
+bool gribCheckString(grib_handle *gribHandle, const char *key, const char *expectedValue);
+
+bool gribCheckLong(grib_handle *gribHandle, const char *key, long expectedValue);
+long gribGetLong(grib_handle *gh, const char *key);
+long gribGetLongDefault(grib_handle *gribHandle, const char *key, long defaultValue);
+
+double gribGetDouble(grib_handle *gh, const char *key);
+double gribGetDoubleDefault(grib_handle *gribHandle, const char *key, double defaultValue);
+
+size_t gribGetArraySize(grib_handle *gribHandle, const char *key);
+void gribGetDoubleArray(grib_handle *gribHandle, const char *key,
+ double *array); // The caller is responsible to ensure a sufficiently large buffer.
+void gribGetLongArray(grib_handle *gribHandle, const char *key,
+ long *array); // The caller is responsible to ensure a sufficiently large buffer.
+
+long gribEditionNumber(grib_handle *gh);
+char *gribMakeTimeString(grib_handle *gh, CdiTimeType timeType); // Returns NULL if timeType is kCdiTimeType_endTime and the field
+ // does not have an integration period (statistical data).
+int gribapiTimeIsFC(grib_handle *gh);
+int gribapiGetTsteptype(grib_handle *gh);
+int gribGetDatatype(grib_handle *gribHandle);
+int gribapiGetParam(grib_handle *gh);
+int gribapiGetGridType(grib_handle *gh);
+bool gribapiGetGrid(grib_handle *gh, grid_t *grid);
+size_t gribapiGetGridsize(grib_handle *gh);
+
+#ifdef HIRLAM_EXTENSIONS
+void gribapiSetDataTimeRangeIndicator(grib_handle *gh, int timeRangeIndicator);
+void gribapiGetDataTimeRangeIndicator(grib_handle *gh, int *timeRangeIndicator);
+#endif // #ifdef HIRLAM_EXTENSIONS
+
+extern struct cdiGribAPI_ts_str_map_elem
+{
+ long productionTemplate;
+ const char sname[8];
+} cdiGribAPI_ts_str_map[];
+
+#endif
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBGRIB_API
+
+
+
+#include <assert.h>
+#include <time.h>
+
+#define FAIL_ON_GRIB_ERROR(function, gribHandle, key, ...) \
+ do \
+ { \
+ int errorCode = (int) function(gribHandle, key, __VA_ARGS__); \
+ if (errorCode) \
+ { \
+ fprintf(stderr, "%s:%d: Error in function `%s`: `%s` returned error code %d for key \"%s\"", __FILE__, __LINE__, \
+ __func__, #function, errorCode, key); \
+ exit(errorCode); \
+ } \
+ } \
+ while (0)
+
+// A simple wrapper for grib_get_string() that returns a newly allocated string.
+char *
+gribCopyString(grib_handle *gribHandle, const char *key)
+{
+ size_t length;
+#ifdef HAVE_GRIB_GET_LENGTH
+ if (!grib_get_length(gribHandle, key, &length))
+ {
+ char *result = (char *) Malloc(length);
+ if (!grib_get_string(gribHandle, key, result, &length))
+ result = (char *) Realloc(result, length);
+ else
+ {
+ Free(result);
+ result = NULL;
+ }
+ return result;
+ }
+ else
+ return NULL;
+#else
+ length = 1024; /* there's an implementation limit
+ * that makes strings longer than
+ * this unlikely in grib_api versions
+ * not providing grib_get_length */
+ int rc;
+ char *result = (char *) Malloc(length);
+ while ((rc = grib_get_string(gribHandle, key, result, &length)) == GRIB_BUFFER_TOO_SMALL || rc == GRIB_ARRAY_TOO_SMALL)
+ {
+ if (length <= 1024UL * 1024UL)
+ {
+ length *= 2;
+ result = Realloc(result, length);
+ }
+ else
+ break;
+ }
+ if (!rc)
+ result = Realloc(result, length);
+ else
+ {
+ Free(result);
+ result = NULL;
+ }
+ return result;
+#endif
+}
+
+// A simple wrapper for grib_get_string() for the usecase that the result is only compared to a given constant string.
+// Returns true if the key exists and the value is equal to the given string.
+bool
+gribCheckString(grib_handle *gribHandle, const char *key, const char *expectedValue)
+{
+ size_t expectedLength = strlen(expectedValue) + 1;
+#ifdef HAVE_GRIB_GET_LENGTH
+ size_t length;
+ if (grib_get_length(gribHandle, key, &length)) return false;
+ if (length != expectedLength) return false;
+ char *value = (char *) Malloc(length);
+ if (grib_get_string(gribHandle, key, value, &length)) return false;
+ int rc = str_is_equal(value, expectedValue);
+ Free(value);
+#else
+ char *value = gribCopyString(gribHandle, key);
+ int rc = value ? (strlen(value) + 1 == expectedLength ? str_is_equal(value, expectedValue) : false) : false;
+ Free(value);
+#endif
+ return rc;
+}
+
+// A simple wrapper for grib_get_long() for the usecase that the result is only compared to a given constant value.
+// Returns true if the key exists and the value is equal to the given one.
+bool
+gribCheckLong(grib_handle *gribHandle, const char *key, long expectedValue)
+{
+ long value;
+ if (grib_get_long(gribHandle, key, &value)) return false;
+ return value == expectedValue;
+}
+
+// A simple wrapper for grib_get_long() for the usecase that failure to fetch the value is fatal.
+long
+gribGetLong(grib_handle *gh, const char *key)
+{
+ long result;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, key, &result);
+ return result;
+}
+
+// A simple wrapper for grib_get_long() for the usecase that a default value is used in the case that the operation fails.
+long
+gribGetLongDefault(grib_handle *gribHandle, const char *key, long defaultValue)
+{
+ long result;
+ if (grib_get_long(gribHandle, key, &result) || result == GRIB_MISSING_LONG) result = defaultValue;
+ return result;
+}
+
+// A simple wrapper for grib_get_double() for the usecase that failure to fetch the value is fatal.
+double
+gribGetDouble(grib_handle *gh, const char *key)
+{
+ double result;
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, key, &result);
+ return result;
+}
+
+// A sample wrapper for grib_get_double() for the usecase that a default value is used in the case that the operation fails.
+double
+gribGetDoubleDefault(grib_handle *gribHandle, const char *key, double defaultValue)
+{
+ double result;
+ if (grib_get_double(gribHandle, key, &result) || IS_EQUAL(result, GRIB_MISSING_DOUBLE)) result = defaultValue;
+ return result;
+}
+
+// A simple wrapper for grib_get_size() for the usecase that failure to fetch the value is fatal.
+size_t
+gribGetArraySize(grib_handle *gribHandle, const char *key)
+{
+ size_t result;
+ FAIL_ON_GRIB_ERROR(grib_get_size, gribHandle, key, &result);
+ return result;
+}
+
+// A simple wrapper for grib_get_double_array() for the usecase that failure to fetch the data is fatal.
+void
+gribGetDoubleArray(grib_handle *gribHandle, const char *key, double *array)
+{
+ size_t valueCount = gribGetArraySize(gribHandle, key);
+ FAIL_ON_GRIB_ERROR(grib_get_double_array, gribHandle, key, array, &valueCount);
+}
+
+// A simple wrapper for grib_get_long_array() for the usecase that failure to fetch the data is fatal.
+void
+gribGetLongArray(grib_handle *gribHandle, const char *key, long *array)
+{
+ size_t valueCount = gribGetArraySize(gribHandle, key);
+ FAIL_ON_GRIB_ERROR(grib_get_long_array, gribHandle, key, array, &valueCount);
+}
+
+// We need the edition number so frequently, that it's convenient to give it its own function.
+long
+gribEditionNumber(grib_handle *gh)
+{
+ return gribGetLong(gh, "editionNumber");
+}
+
+// This return value of this should be passed to a call to resetTz(), it is a malloc'ed string with the content of the TZ
+// environment variable before the call (or NULL if that was not set).
+static char *
+setUtc(void)
+{
+ char *temp = getenv("TZ"), *result = NULL;
+ if (temp) result = strdup(temp);
+ setenv("TZ", "UTC", 1);
+ return result;
+}
+
+// Undoes the effect of setUtc(), pass to it the return value of the corresponding setUtc() call, it will free the string.
+static void
+resetTz(char *savedTz)
+{
+ if (savedTz)
+ {
+ setenv("TZ", savedTz, 1);
+ Free(savedTz);
+ }
+ else
+ {
+ unsetenv("TZ");
+ }
+}
+
+// This function uses the system functions to normalize the date representation according to the gregorian calendar.
+// Returns zero on success.
+static int
+normalizeDays(struct tm *me)
+{
+ char *savedTz = setUtc(); // Ensure that mktime() does not interprete the date according to our local time zone.
+
+ int result = (mktime(me) == (time_t) -1); // This does all the heavy lifting.
+
+ resetTz(savedTz);
+ return result;
+}
+
+// Returns zero on success.
+static int
+addSecondsToDate(struct tm *me, long long amount)
+{
+ // It is irrelevant here whether days are zero or one based, the correction would have be undone again so that it is effectless.
+ long long seconds = ((me->tm_mday * 24ll + me->tm_hour) * 60 + me->tm_min) * 60
+ + me->tm_sec; // The portion of the date that uses fixed increments.
+ seconds += amount;
+ me->tm_mday = (int) (seconds / 24 / 60 / 60);
+ seconds -= (long long) me->tm_mday * 24 * 60 * 60;
+ me->tm_hour = (int) (seconds / 60 / 60);
+ seconds -= (long long) me->tm_hour * 60 * 60;
+ me->tm_min = (int) (seconds / 60);
+ seconds -= (long long) (me->tm_min * 60);
+ me->tm_sec = (int) seconds;
+ return normalizeDays(me);
+}
+
+static void
+addMonthsToDate(struct tm *me, long long amount)
+{
+ long long months = me->tm_year * 12ll + me->tm_mon;
+ months += amount;
+ me->tm_year = (int) (months / 12);
+ months -= (long long) me->tm_year * 12;
+ me->tm_mon = (int) months;
+}
+
+// unit is a value according to code table 4.4 of the GRIB2 specification, returns non-zero on error
+static int
+addToDate(struct tm *me, long long amount, long unit)
+{
+ switch (unit)
+ {
+ case 0: return addSecondsToDate(me, 60 * amount); // minute
+ case 1: return addSecondsToDate(me, 60 * 60 * amount); // hour
+ case 2: return addSecondsToDate(me, 24 * 60 * 60 * amount); // day
+
+ case 3: addMonthsToDate(me, amount); return 0; // month
+ case 4: addMonthsToDate(me, 12 * amount); return 0; // year
+ case 5: addMonthsToDate(me, 10 * 12 * amount); return 0; // decade
+ case 6: addMonthsToDate(me, 30 * 12 * amount); return 0; // normal
+ case 7: addMonthsToDate(me, 100 * 12 * amount); return 0; // century
+
+ case 10: return addSecondsToDate(me, 3 * 60 * 60 * amount); // eighth of a day
+ case 11: return addSecondsToDate(me, 6 * 60 * 60 * amount); // quarter day
+ case 12: return addSecondsToDate(me, 12 * 60 * 60 * amount); // half day
+ case 13: return addSecondsToDate(me, amount); // second
+
+ default: return 1; // reserved, unknown, or missing
+ }
+}
+
+static char *
+makeDateString(struct tm *me)
+{
+ const size_t length = 4 + 1 + 2 + 1 + 2 + 1 + 2 + 1 + 2 + 1 + 2 + 4 + 1;
+ char *result = (char *) Malloc(length);
+ snprintf(result, length, "%04d-%02d-%02dT%02d:%02d:%02d.000", me->tm_year + 1900, me->tm_mon + 1, me->tm_mday, me->tm_hour,
+ me->tm_min, me->tm_sec);
+ return result;
+}
+
+// FIXME: This ignores any calendar definition that might be present.
+// XXX: Identification templates are not implemented in grib_api-1.12.3, so even if I implemented the other calendars now, it
+// wouldn't be possible to use them.
+static int
+getAvailabilityOfRelativeTimes(grib_handle *gh, bool *outHaveForecastTime, bool *outHaveTimeRange)
+{
+ switch (gribGetLong(gh, "productDefinitionTemplateNumber"))
+ {
+ case 20:
+ case 30:
+ case 31:
+ case 254:
+ case 311:
+ case 2000: *outHaveForecastTime = false, *outHaveTimeRange = false; return 0;
+
+ // case 55 and case 40455 are the same: 55 is the proposed standard value, 40455 is the value in the local use range that is
+ // used by the dwd until the standard is updated.
+ case 0:
+ case 1:
+ case 2:
+ case 3:
+ case 4:
+ case 5:
+ case 6:
+ case 7:
+ case 15:
+ case 32:
+ case 33:
+ case 40:
+ case 41:
+ case 44:
+ case 45:
+ case 48:
+ case 51:
+ case 53:
+ case 54:
+ case 55:
+ case 56:
+ case 57:
+ case 58:
+ case 60:
+ case 1000:
+ case 1002:
+ case 1100:
+ case 40033:
+ case 40455:
+ case 40456: *outHaveForecastTime = true, *outHaveTimeRange = false; return 0;
+
+ case 8:
+ case 9:
+ case 10:
+ case 11:
+ case 12:
+ case 13:
+ case 14:
+ case 34:
+ case 42:
+ case 43:
+ case 46:
+ case 47:
+ case 61:
+ case 67:
+ case 68:
+ case 91:
+ case 1001:
+ case 1101:
+ case 40034: *outHaveForecastTime = true, *outHaveTimeRange = true; return 0;
+
+ default: return 1;
+ }
+}
+
+char *
+gribMakeTimeString(grib_handle *gh, CdiTimeType timeType)
+{
+ // Get the parts of the reference date.
+ struct tm date;
+ date.tm_mon = (int) gribGetLong(gh, "month") - 1; // months are zero based in struct tm and one based in GRIB
+ date.tm_mday = (int) gribGetLong(gh, "day");
+ date.tm_hour = (int) gribGetLong(gh, "hour");
+ date.tm_min = (int) gribGetLong(gh, "minute");
+ date.tm_isdst = 0;
+
+ if (gribEditionNumber(gh) == 1)
+ {
+ date.tm_year = (int) gribGetLong(gh, "yearOfCentury"); // years are -1900 based both in struct tm and GRIB1
+ }
+ else
+ {
+ date.tm_year = (int) gribGetLong(gh, "year") - 1900; // years are -1900 based in struct tm and zero based in GRIB2
+ date.tm_sec = (int) gribGetLong(gh, "second");
+
+ // If the start or end time are requested, we need to take the relative times into account.
+ if (timeType != kCdiTimeType_referenceTime)
+ {
+ // Determine whether we have a forecast time and a time range.
+ bool haveForecastTime, haveTimeRange;
+ if (getAvailabilityOfRelativeTimes(gh, &haveForecastTime, &haveTimeRange)) return NULL;
+ if (timeType == kCdiTimeType_endTime && !haveTimeRange)
+ return NULL; // tell the caller that the requested time does not exist
+
+ // If we have relative times, apply the relative times to the date
+ if (haveForecastTime)
+ {
+ long offset = gribGetLongDefault(gh, "forecastTime", 0);
+ // if (stepUnits == indicatorOfUnitOfTimeRange) assert(startStep == forecastTime)
+ long offsetUnit = gribGetLongDefault(gh, "indicatorOfUnitOfTimeRange", 255);
+ if (addToDate(&date, offset, offsetUnit)) return NULL;
+ if (timeType == kCdiTimeType_endTime)
+ {
+ assert(haveTimeRange);
+ long range = gribGetLongDefault(gh, "lengthOfTimeRange", 0);
+ // if (stepUnits == indicatorOfUnitForTimeRange) assert(endStep == startStep + lengthOfTimeRange)
+ long rangeUnit = gribGetLongDefault(gh, "indicatorOfUnitForTimeRange", 255);
+ if (addToDate(&date, range, rangeUnit)) return NULL;
+ }
+ }
+ }
+ }
+
+ // Bake the date into a string.
+ return makeDateString(&date);
+}
+
+int
+gribapiTimeIsFC(grib_handle *gh)
+{
+ if (gribEditionNumber(gh) <= 1) return true;
+
+ long sigofrtime;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "significanceOfReferenceTime", &sigofrtime);
+ return sigofrtime != 3;
+}
+
+struct cdiGribAPI_ts_str_map_elem cdiGribAPI_ts_str_map[] = {
+ // clang-format off
+ [TSTEP_INSTANT] = { 0, "instant" },
+ [TSTEP_AVG] = { 8, "avg" },
+ [TSTEP_ACCUM] = { 8, "accum" },
+ [TSTEP_MAX] = { 8, "max" },
+ [TSTEP_MIN] = { 8, "min" },
+ [TSTEP_DIFF] = { 8, "diff" },
+ [TSTEP_RMS] = { 8, "rms" },
+ [TSTEP_SD] = { 8, "sd" },
+ [TSTEP_COV] = { 8, "cov" },
+ [TSTEP_RATIO] = { 8, "ratio" },
+ [TSTEP_SUM] = { 8, "sum" },
+ { 0, "" }
+ // clang-format on
+};
+
+// Fetches the value of the "stepType" key and converts it into a constant in the TSTEP_* range.
+int
+gribapiGetTsteptype(grib_handle *gh)
+{
+ size_t len = 256;
+ char stepType[256];
+ int tsteptype = TSTEP_INSTANT;
+ static bool lprint = true;
+
+ if (gribapiTimeIsFC(gh))
+ {
+ int status = grib_get_string(gh, "stepType", stepType, &len);
+ if (status == 0 && len > 1 && len < 256)
+ {
+ for (int i = TSTEP_INSTANT; cdiGribAPI_ts_str_map[i].sname[0]; ++i)
+ if (strncmp(cdiGribAPI_ts_str_map[i].sname, stepType, len) == 0)
+ {
+ tsteptype = i;
+ goto tsteptypeFound;
+ }
+
+ if (lprint)
+ {
+ Message("Time stepType %s unsupported, set to instant!", stepType);
+ lprint = false;
+ }
+ // printf("stepType: %s %ld %d\n", stepType, len, tsteptype);
+ }
+
+ long typeOfStat;
+ status = grib_get_long(gh, "typeOfStatisticalProcessing", &typeOfStat);
+ if (status == 0)
+ {
+ switch (typeOfStat)
+ {
+ case 0: return TSTEP_AVG;
+ case 1: return TSTEP_ACCUM;
+ case 2: return TSTEP_MAX;
+ case 3: return TSTEP_MIN;
+ case 4: return TSTEP_DIFF;
+ case 5: return TSTEP_RMS;
+ case 6: return TSTEP_SD;
+ case 7: return TSTEP_COV;
+ case 9: return TSTEP_RATIO;
+ case 11: return TSTEP_SUM;
+ }
+ }
+
+#ifdef HIRLAM_EXTENSIONS
+ {
+ // Normaly cdo looks in grib for attribute called "stepType", see above.
+ // BUT NWP models such as Hirlam and Harmonie 37h1.2, use "timeRangeIndicator" instead!
+ // Where for example: 0: for instanteneous fields; 4: for accumulated fields
+ // 0: Forecast product valid at reference time + P1
+ // 2: Product with a valid time ranging between reference time + P1 and reference time + P2
+ // 4: Accumulation (reference time + P1 to reference time + P2)
+ // 5: Difference(reference time + P2 minus reference time + P1) product considered valid at reference time + P2
+ // More details on WMO standards:
+ // http://www.wmo.int/pages/prog/www/WDM/Guides/Guide-binary-2.html
+ // tsteptype = TSTEP_INSTANT; // default value for any case
+ long timeRangeIND = 0; // typically 0: for instanteneous fields; 4: for accumulated fields
+ int rc = grib_get_long(gh, "timeRangeIndicator", &timeRangeIND);
+ if (rc != 0)
+ {
+ // if ( lprint )
+ Warning("Could not get 'stepType' either 'timeRangeIndicator'. Using default!");
+ return tsteptype;
+ }
+ extern int cdiGribUseTimeRangeIndicator;
+ cdiGribUseTimeRangeIndicator = 1;
+ switch (timeRangeIND)
+ {
+ case 0: tsteptype = TSTEP_INSTANT; break;
+ case 2:
+ tsteptype = TSTEP_INSTANT2;
+ strcpy(stepType, "instant2");
+ break; // was incorrectly set before into accum
+ case 4: tsteptype = TSTEP_ACCUM; break;
+ case 5: tsteptype = TSTEP_DIFF; break;
+ default:
+ if (lprint)
+ {
+ if (CDI_Debug)
+ Warning("timeRangeIND = %d; stepType= %s; tsteptype=%d unsupported timeRangeIND at the moment, set to instant!",
+ timeRangeIND, stepType, tsteptype);
+ lprint = false;
+ }
+ break;
+ }
+ if (CDI_Debug) Warning("timeRangeIND = %d; stepType= %s; tsteptype=%d", timeRangeIND, stepType, tsteptype);
+ }
+#endif // HIRLAM_EXTENSIONS
+ }
+
+tsteptypeFound:
+ return tsteptype;
+}
+
+int
+gribGetDatatype(grib_handle *gribHandle)
+{
+ int datatype;
+ if (gribEditionNumber(gribHandle) > 1 && gribCheckString(gribHandle, "packingType", "grid_ieee"))
+ {
+ datatype = gribCheckLong(gribHandle, "precision", 1) ? CDI_DATATYPE_FLT32 : CDI_DATATYPE_FLT64;
+ }
+ else
+ {
+ long bitsPerValue;
+ datatype = (!grib_get_long(gribHandle, "bitsPerValue", &bitsPerValue) && bitsPerValue > 0 && bitsPerValue <= 32)
+ ? (int) bitsPerValue
+ : CDI_DATATYPE_PACK;
+ }
+ return datatype;
+}
+
+int
+gribapiGetParam(grib_handle *gh)
+{
+ long pdis, pcat, pnum;
+ if (gribEditionNumber(gh) <= 1)
+ {
+ pdis = 255;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "table2Version", &pcat);
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "indicatorOfParameter", &pnum);
+ }
+ else
+ {
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "discipline", &pdis);
+ if (grib_get_long(gh, "parameterCategory", &pcat)) pcat = 0;
+ if (grib_get_long(gh, "parameterNumber", &pnum)) pnum = 0;
+ }
+ return cdiEncodeParam((int) pnum, (int) pcat, (int) pdis);
+}
+
+static bool
+has_ni(grib_handle *gh)
+{
+ return (gribGetLong(gh, "Ni") != (long) GRIB_MISSING_LONG);
+}
+
+int
+gribapiGetGridType(grib_handle *gh)
+{
+ long gridDefinitionTemplateNumber = gribGetLongDefault(gh, "gridDefinitionTemplateNumber", -1);
+ switch (gridDefinitionTemplateNumber)
+ {
+ case GRIB2_GTYPE_LATLON: return has_ni(gh) ? GRID_LONLAT : GRID_GENERIC;
+ case GRIB2_GTYPE_GAUSSIAN: return has_ni(gh) ? GRID_GAUSSIAN : GRID_GAUSSIAN_REDUCED;
+ case GRIB2_GTYPE_LATLON_ROT: return GRID_PROJECTION;
+ case GRIB2_GTYPE_LCC: return CDI_PROJ_LCC;
+ case GRIB2_GTYPE_STERE: return CDI_PROJ_STERE;
+ case GRIB2_GTYPE_SPECTRAL: return GRID_SPECTRAL;
+ case GRIB2_GTYPE_GME: return GRID_GME;
+ case GRIB2_GTYPE_UNSTRUCTURED: return GRID_UNSTRUCTURED;
+ case GRIB2_GTYPE_HEALPIX: return CDI_PROJ_HEALPIX;
+ default:
+ {
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ char mesg[256];
+ size_t len = sizeof(mesg);
+ if (grib_get_string(gh, "gridType", mesg, &len) != 0) mesg[0] = 0;
+ Warning("gridDefinitionTemplateNumber %d unsupported (gridType=%s)!", gridDefinitionTemplateNumber, mesg);
+ }
+ }
+ }
+
+ return GRID_GENERIC;
+}
+
+static int
+gribapiGetIsRotated(grib_handle *gh)
+{
+ return gribGetLongDefault(gh, "gridDefinitionTemplateNumber", -1) == GRIB2_GTYPE_LATLON_ROT;
+}
+
+size_t
+gribapiGetGridsize(grib_handle *gh)
+{
+ size_t gridsize;
+ FAIL_ON_GRIB_ERROR(grib_get_size, gh, "values", &gridsize);
+ return gridsize;
+}
+
+static void
+gribapiGetGridGaussianReduced(grib_handle *gh, grid_t *grid, int editionNumber, size_t numberOfPoints)
+{
+ long lpar;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "numberOfParallelsBetweenAPoleAndTheEquator", &lpar);
+ grid->np = (int) lpar;
+
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "Nj", &lpar);
+ size_t nlat = (size_t) lpar;
+
+ grid->size = numberOfPoints;
+
+ grid->reducedPointsSize = (int) nlat;
+ grid->reducedPoints = (int *) Malloc(nlat * sizeof(int));
+ long *pl = (long *) Malloc(nlat * sizeof(long));
+ size_t dummy = nlat;
+ FAIL_ON_GRIB_ERROR(grib_get_long_array, gh, "pl", pl, &dummy);
+ for (size_t i = 0; i < nlat; ++i) grid->reducedPoints[i] = (int) pl[i];
+ Free(pl);
+
+ grid->y.size = nlat;
+ grid->x.inc = 0;
+ grid->y.inc = 0;
+ grid->x.flag = 0;
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "longitudeOfFirstGridPointInDegrees", &grid->x.first);
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "longitudeOfLastGridPointInDegrees", &grid->x.last);
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "latitudeOfFirstGridPointInDegrees", &grid->y.first);
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "latitudeOfLastGridPointInDegrees", &grid->y.last);
+
+ // FAIL_ON_GRIB_ERROR(grib_get_double, gh, "iDirectionIncrementInDegrees", &grid->x.inc);
+ // if ( IS_EQUAL(grid->x.inc, GRIB_MISSING_DOUBLE) ) grid->x.inc = 0;
+
+ if (grid->x.last < grid->x.first)
+ {
+ if (grid->x.first >= 180.0)
+ grid->x.first -= 360.0;
+ else
+ grid->x.last += 360.0;
+ }
+
+ grid->x.flag = 2;
+
+ grid->y.flag = 0;
+ // if (IS_NOT_EQUAL(grid->y.first, 0) || IS_NOT_EQUAL(grid->y.last, 0))
+ {
+ if (grid->y.size > 1)
+ {
+ if (editionNumber <= 1)
+ {
+ }
+ }
+ grid->y.flag = 2;
+ }
+}
+
+static void
+gribapiGetGridRegular(grib_handle *gh, grid_t *grid, int editionNumber, int gridtype, size_t numberOfPoints)
+{
+ long lpar;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "Ni", &lpar);
+ size_t nlon = (size_t) lpar;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "Nj", &lpar);
+ size_t nlat = (size_t) lpar;
+
+ if (gridtype == GRID_GAUSSIAN)
+ {
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "numberOfParallelsBetweenAPoleAndTheEquator", &lpar);
+ grid->np = (int) lpar;
+ }
+
+ if (numberOfPoints != nlon * nlat) Error("numberOfPoints (%zu) and gridSize (%zu) differ!", numberOfPoints, nlon * nlat);
+
+ grid->size = numberOfPoints;
+ grid->x.size = nlon;
+ grid->y.size = nlat;
+ grid->x.inc = 0;
+ grid->y.inc = 0;
+ grid->x.flag = 0;
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "longitudeOfFirstGridPointInDegrees", &grid->x.first);
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "longitudeOfLastGridPointInDegrees", &grid->x.last);
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "latitudeOfFirstGridPointInDegrees", &grid->y.first);
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "latitudeOfLastGridPointInDegrees", &grid->y.last);
+ if (nlon > 1) FAIL_ON_GRIB_ERROR(grib_get_double, gh, "iDirectionIncrementInDegrees", &grid->x.inc);
+ if (gridtype == GRID_LONLAT && nlat > 1) FAIL_ON_GRIB_ERROR(grib_get_double, gh, "jDirectionIncrementInDegrees", &grid->y.inc);
+
+ long iscan = 0, jscan = 0;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "iScansNegatively", &iscan);
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "jScansPositively", &jscan);
+ if (iscan) grid->x.inc = -grid->x.inc;
+ if (!jscan) grid->y.inc = -grid->y.inc;
+
+ if (grid->x.inc < -999 || grid->x.inc > 999) grid->x.inc = 0;
+ if (grid->y.inc < -999 || grid->y.inc > 999) grid->y.inc = 0;
+
+ // if ( IS_NOT_EQUAL(grid->x.first, 0) || IS_NOT_EQUAL(grid->x.last, 0) )
+ {
+ if (grid->x.size > 1)
+ {
+ // if ( editionNumber <= 1 )
+ {
+ if (grid->x.last < grid->x.first)
+ {
+ if (grid->x.first >= 180)
+ grid->x.first -= 360;
+ else
+ grid->x.last += 360;
+ }
+
+ // correct xinc if necessary
+ if (IS_EQUAL(grid->x.first, 0) && grid->x.last > 354 && grid->x.last < 360)
+ {
+ double xinc = 360. / grid->x.size;
+ if (fabs(grid->x.inc - xinc) > 0.0)
+ {
+ grid->x.inc = xinc;
+ if (CDI_Debug) Message("set xinc to %g", grid->x.inc);
+ }
+ }
+ }
+ }
+ grid->x.flag = 2;
+ }
+
+ grid->y.flag = 0;
+ // if ( IS_NOT_EQUAL(grid->y.first, 0) || IS_NOT_EQUAL(grid->y.last, 0) )
+ {
+ if (grid->y.size > 1)
+ {
+ if (editionNumber <= 1)
+ {
+ }
+ }
+ grid->y.flag = 2;
+ }
+}
+
+static void
+gribapiGetGridProj(grib_handle *gh, grid_t *grid, size_t numberOfPoints)
+{
+ long lpar;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "Nx", &lpar);
+ size_t nlon = (size_t) lpar;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "Ny", &lpar);
+ size_t nlat = (size_t) lpar;
+
+ if (numberOfPoints != nlon * nlat) Error("numberOfPoints (%zu) and gridSize (%zu) differ!", numberOfPoints, nlon * nlat);
+
+ grid->size = numberOfPoints;
+ grid->x.size = nlon;
+ grid->y.size = nlat;
+
+ double xinc, yinc;
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "DxInMetres", &xinc);
+ FAIL_ON_GRIB_ERROR(grib_get_double, gh, "DyInMetres", &yinc);
+
+ grid->x.first = 0;
+ grid->x.last = 0;
+ grid->x.inc = xinc;
+ grid->y.first = 0;
+ grid->y.last = 0;
+ grid->y.inc = yinc;
+ grid->x.flag = 2;
+ grid->y.flag = 2;
+}
+
+static void
+gribapiGetGridHealpix(grib_handle *gh, grid_t *grid, size_t numberOfPoints)
+{
+ grid->size = numberOfPoints;
+}
+
+static void
+gribapiGetGridSpectral(grib_handle *gh, grid_t *grid, size_t datasize)
+{
+ size_t len = 256;
+ char typeOfPacking[256];
+ FAIL_ON_GRIB_ERROR(grib_get_string, gh, "packingType", typeOfPacking, &len);
+ grid->lcomplex = 0;
+ if (strncmp(typeOfPacking, "spectral_complex", len) == 0) grid->lcomplex = 1;
+
+ grid->size = datasize;
+
+ long lpar;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "J", &lpar);
+ grid->trunc = (int) lpar;
+}
+
+static void
+gribapiGetGridGME(grib_handle *gh, grid_t *grid, size_t numberOfPoints)
+{
+ grid->size = numberOfPoints;
+
+ long lpar;
+ if (grib_get_long(gh, "nd", &lpar) == 0) grid->gme.nd = (int) lpar;
+ if (grib_get_long(gh, "Ni", &lpar) == 0) grid->gme.ni = (int) lpar;
+ if (grib_get_long(gh, "n2", &lpar) == 0) grid->gme.ni2 = (int) lpar;
+ if (grib_get_long(gh, "n3", &lpar) == 0) grid->gme.ni3 = (int) lpar;
+}
+
+static void
+gribapiGetGridUnstructured(grib_handle *gh, grid_t *grid, size_t numberOfPoints)
+{
+ unsigned char uuid[CDI_UUID_SIZE];
+ /*
+ char reference_link[8192];
+ size_t len = sizeof(reference_link);
+ reference_link[0] = 0;
+ */
+ grid->size = numberOfPoints;
+
+ long lpar;
+ if (grib_get_long(gh, "numberOfGridUsed", &lpar) == 0)
+ {
+ cdiDefVarKeyInt(&grid->keys, CDI_KEY_NUMBEROFGRIDUSED, (int) lpar);
+ if (grib_get_long(gh, "numberOfGridInReference", &lpar) == 0)
+ cdiDefVarKeyInt(&grid->keys, CDI_KEY_NUMBEROFGRIDINREFERENCE, (int) lpar);
+ /*
+ if ( grib_get_string(gh, "gridDescriptionFile", reference_link, &len) == 0 )
+ {
+ if ( strncmp(reference_link, "file://", 7) == 0 )
+ grid->reference = strdup(reference_link);
+ }
+ */
+ size_t len = (size_t) CDI_UUID_SIZE;
+ if (grib_get_bytes(gh, "uuidOfHGrid", uuid, &len) == 0) cdiDefVarKeyBytes(&grid->keys, CDI_KEY_UUID, uuid, CDI_UUID_SIZE);
+ }
+}
+
+static void
+gribapiGetGridGeneric(grib_handle *gh, grid_t *grid, size_t numberOfPoints)
+{
+ long lpar;
+ size_t nlon = (grib_get_long(gh, "Ni", &lpar) == 0) ? (size_t) lpar : 0;
+ size_t nlat = (grib_get_long(gh, "Nj", &lpar) == 0) ? (size_t) lpar : 0;
+
+ grid->size = numberOfPoints;
+
+ bool lgeneric = (nlon > 0 && nlat > 0 && nlon * nlat == numberOfPoints);
+ grid->x.size = lgeneric ? nlon : 0;
+ grid->y.size = lgeneric ? nlat : 0;
+}
+
+// TODO: Simplify by use of the convenience functions (gribGetLong(), gribGetLongDefault(), etc.).
+bool
+gribapiGetGrid(grib_handle *gh, grid_t *grid)
+{
+ bool uvRelativeToGrid = false;
+ long editionNumber = gribEditionNumber(gh);
+ int gridtype = gribapiGetGridType(gh);
+ int projtype = (gridtype == GRID_PROJECTION && gribapiGetIsRotated(gh)) ? CDI_PROJ_RLL : CDI_UNDEFID;
+ if (gridtype == CDI_PROJ_LCC || gridtype == CDI_PROJ_STERE || gridtype == CDI_PROJ_HEALPIX)
+ {
+ projtype = gridtype;
+ gridtype = GRID_PROJECTION;
+ }
+ /*
+ if ( streamptr->unreduced && gridtype == GRID_GAUSSIAN_REDUCED )
+ {
+ gridtype = GRID_GAUSSIAN;
+ ISEC2_NumLon = 2*ISEC2_NumLat;
+ ISEC4_NumValues = ISEC2_NumLon*ISEC2_NumLat;
+ }
+ */
+ grid_init(grid);
+ cdiGridTypeInit(grid, gridtype, 0);
+
+ size_t datasize;
+ FAIL_ON_GRIB_ERROR(grib_get_size, gh, "values", &datasize);
+ long lpar;
+ FAIL_ON_GRIB_ERROR(grib_get_long, gh, "numberOfPoints", &lpar);
+ size_t numberOfPoints = (size_t) lpar;
+
+ if (gridtype == GRID_LONLAT || gridtype == GRID_GAUSSIAN || projtype == CDI_PROJ_RLL)
+ {
+ gribapiGetGridRegular(gh, grid, editionNumber, gridtype, numberOfPoints);
+ }
+ else if (gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ gribapiGetGridGaussianReduced(gh, grid, editionNumber, numberOfPoints);
+ }
+ else if (projtype == CDI_PROJ_LCC)
+ {
+ gribapiGetGridProj(gh, grid, numberOfPoints);
+ }
+ else if (projtype == CDI_PROJ_STERE)
+ {
+ gribapiGetGridProj(gh, grid, numberOfPoints);
+ }
+ else if (projtype == CDI_PROJ_HEALPIX)
+ {
+ gribapiGetGridHealpix(gh, grid, numberOfPoints);
+ }
+ else if (gridtype == GRID_SPECTRAL)
+ {
+ gribapiGetGridSpectral(gh, grid, datasize);
+ }
+ else if (gridtype == GRID_GME)
+ {
+ gribapiGetGridGME(gh, grid, numberOfPoints);
+ }
+ else if (gridtype == GRID_UNSTRUCTURED)
+ {
+ gribapiGetGridUnstructured(gh, grid, numberOfPoints);
+ }
+ else if (gridtype == GRID_GENERIC)
+ {
+ gribapiGetGridGeneric(gh, grid, numberOfPoints);
+ }
+ else
+ {
+ Error("Unsupported grid type: %s", gridNamePtr(gridtype));
+ }
+
+ if (gridtype == GRID_GAUSSIAN || gridtype == GRID_LONLAT || projtype == CDI_PROJ_RLL || projtype == CDI_PROJ_LCC
+ || projtype == CDI_PROJ_HEALPIX)
+ {
+ long temp = 0;
+ GRIB_CHECK(grib_get_long(gh, "uvRelativeToGrid", &temp), 0);
+ assert(temp == 0 || temp == 1);
+ uvRelativeToGrid = (bool) temp;
+ }
+
+ if (gridtype == GRID_GAUSSIAN || gridtype == GRID_LONLAT || (gridtype == GRID_PROJECTION && projtype != CDI_PROJ_HEALPIX))
+ {
+ long iScansNegatively, jScansPositively, jPointsAreConsecutive;
+ GRIB_CHECK(grib_get_long(gh, "iScansNegatively", &iScansNegatively), 0);
+ GRIB_CHECK(grib_get_long(gh, "jScansPositively", &jScansPositively), 0);
+ GRIB_CHECK(grib_get_long(gh, "jPointsAreConsecutive", &jPointsAreConsecutive), 0);
+
+ int scanningMode = 128 * iScansNegatively + 64 * jScansPositively + 32 * jPointsAreConsecutive;
+ cdiDefVarKeyInt(&grid->keys, CDI_KEY_SCANNINGMODE, scanningMode);
+ /* scanningMode = 128 * iScansNegatively + 64 * jScansPositively + 32 * jPointsAreConsecutive;
+ 64 = 128 * 0 + 64 * 1 + 32 * 0
+ 00 = 128 * 0 + 64 * 0 + 32 * 0
+ 96 = 128 * 0 + 64 * 1 + 32 * 1
+ Default / implicit scanning mode is 64:
+ i and j scan positively, i points are consecutive (row-major) */
+#ifdef HIRLAM_EXTENSIONS
+ if (cdiDebugExt >= 30 && gribEditionNumber(gh) <= 1)
+ {
+ // indicatorOfParameter=33,indicatorOfTypeOfLevel=105,level
+ long paramId, levelTypeId, levelId;
+ GRIB_CHECK(grib_get_long(gh, "indicatorOfParameter", ¶mId), 0);
+ GRIB_CHECK(grib_get_long(gh, "indicatorOfTypeOfLevel", &levelTypeId), 0);
+ GRIB_CHECK(grib_get_long(gh, "level", &levelId), 0);
+ Message("(param,ltype,level) = (%3d,%3d,%4d); Scanning mode = %02d -> bits:(%1d.%1d.%1d)*32; uvRelativeToGrid = %02d",
+ (int) paramId, (int) levelTypeId, (int) levelId, scanningMode, jPointsAreConsecutive, jScansPositively,
+ iScansNegatively, uvRelativeToGrid);
+ }
+#endif // HIRLAM_EXTENSIONS
+ }
+
+ grid->type = gridtype;
+ grid->projtype = projtype;
+
+ return uvRelativeToGrid;
+}
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef CDI_UUID_H
+#define CDI_UUID_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+// clang-format off
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+enum {
+ uuidNumHexChars = 36,
+};
+
+static inline
+int cdiUUIDIsNull(const unsigned char uuid[])
+{
+ int isNull = 1;
+ for (size_t i = 0; i < CDI_UUID_SIZE; ++i) isNull &= (uuid[i] == 0);
+ return isNull;
+}
+
+void cdiCreateUUID(unsigned char uuid[CDI_UUID_SIZE]);
+
+int cdiUUID2Str(const unsigned char uuid[], char uuidstr[]);
+int cdiStr2UUID(const char *uuidstr, unsigned char uuid[]);
+
+#ifdef __cplusplus
+}
+#endif
+// clang-format on
+
+#endif
+#ifndef RESOURCE_UNPACK_H
+#define RESOURCE_UNPACK_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+enum
+{
+ GRID = 1,
+ ZAXIS = 2,
+ TAXIS = 3,
+ INSTITUTE = 4,
+ MODEL = 5,
+ STREAM = 6,
+ VLIST = 7,
+ DIST_GRID = 8,
+ RESH_DELETE,
+ START = 55555555,
+ END = 99999999
+};
+
+typedef void (*cdiPostResUpdateHook)(int resH, int resType);
+
+int reshUnpackResources(char *unpackBuffer, int unpackBufferSize, void *context, cdiPostResUpdateHook postHook);
+
+extern int (*reshDistGridUnpack)(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context,
+ int force_id);
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef VLIST_H
+#define VLIST_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifndef ERROR_H
+#endif
+
+#include <stdbool.h>
+#include <stddef.h> /* size_t */
+
+#ifndef CDI_LIMITS_H
+#endif
+
+#define VALIDMISS 1.e+303
+
+
+typedef struct
+{
+ bool flag;
+ int index;
+ int mlevelID;
+ int flevelID;
+} levinfo_t;
+
+#define DEFAULT_LEVINFO(levID) \
+ (levinfo_t) { 0, -1, levID, levID }
+/*
+#define DEFAULT_LEVINFO(levID) \
+ (levinfo_t){ .flag = 0, .index = -1, .flevelID = levID, .mlevelID = levID}
+*/
+typedef struct
+{
+ int ens_index;
+ int ens_count;
+ int forecast_init_type;
+} ensinfo_t;
+
+typedef struct
+{
+ bool isUsed;
+ bool flag;
+ bool lvalidrange;
+ signed char xyz; /* order of spatial dimensions,
+ * a permutation of 123 */
+ bool missvalused; // true if missval is defined
+ int mvarID;
+ int fvarID;
+ int param;
+ int gridID;
+ int zaxisID;
+ int timetype; // TIME_*
+ int tsteptype; // TSTEP_*
+ int datatype; // CDI_DATATYPE_PACKX for GRIB data, else CDI_DATATYPE_FLT32 or CDI_DATATYPE_FLT64
+ int instID;
+ int modelID;
+ int tableID;
+ int timave;
+ int nsb; // Number of significant bits
+ double missval;
+ double validrange[2];
+ levinfo_t *levinfo;
+ int comptype; // compression type
+ int complevel; // compression level
+ cdi_keys_t keys;
+ cdi_atts_t atts;
+ int subtypeID; // subtype ID for tile-related meta-data, currently for GRIB-API only.
+
+ int opt_grib_nentries; // current no. key-value pairs
+ int opt_grib_kvpair_size; // current allocated size
+ opt_key_val_pair_t *opt_grib_kvpair; // (optional) list of keyword/value pairs
+} var_t;
+
+typedef struct
+{
+ // set when a vlist is passed to streamDefVlist() to safeguard against modifications of the wrong vlist object
+ bool immutable;
+ // set if this vlist has been created by CDI itself, and must not be destroyed by the user, consequently
+ bool internal;
+ int self;
+ int nvars; // number of variables
+ int ngrids;
+ int nzaxis;
+ int nsubtypes; // no. of variable subtypes (e.g. sets of tiles)
+ long ntsteps;
+ int taxisID;
+ int tableID;
+ int instID;
+ int modelID;
+ int varsAllocated;
+ int gridIDs[MAX_GRIDS_PS];
+ int zaxisIDs[MAX_ZAXES_PS];
+ int subtypeIDs[MAX_SUBTYPES_PS];
+ var_t *vars;
+ cdi_keys_t keys;
+ cdi_atts_t atts;
+} vlist_t;
+
+vlist_t *vlist_to_pointer(int vlistID);
+void cdiVlistMakeInternal(int vlistID);
+void cdiVlistMakeImmutable(int vlistID);
+void cdiVlistDestroy_(int vlistID, bool assertInternal);
+int vlistInqVarMissvalUsed(int vlistID, int varID);
+int vlistHasTime(int vlistID);
+
+int vlistUnpack(char *buffer, int bufferSize, int *pos, int originNamespace, void *context, int force_id);
+
+/* vlistDefVarValidrange: Define the valid range of a Variable */
+void vlistDefVarValidrange(int vlistID, int varID, const double *validrange);
+
+/* vlistInqVarValidrange: Get the valid range of a Variable */
+int vlistInqVarValidrange(int vlistID, int varID, double *validrange);
+
+void vlistInqVarDimorder(int vlistID, int varID, int outDimorder[3]);
+
+void resize_opt_grib_entries(var_t *var, int nentries);
+
+static inline void
+vlistAdd2GridIDs(vlist_t *vlistptr, int gridID)
+{
+ int index, ngrids = vlistptr->ngrids;
+ for (index = 0; index < ngrids; index++)
+ {
+ if (vlistptr->gridIDs[index] == gridID) break;
+ // if ( gridIsEqual(vlistptr->gridIDs[index], gridID) ) break;
+ }
+
+ if (index == ngrids)
+ {
+ if (ngrids >= MAX_GRIDS_PS) Error("Internal limit exceeded: more than %d grids.", MAX_GRIDS_PS);
+ vlistptr->gridIDs[ngrids] = gridID;
+ ++(vlistptr->ngrids);
+ }
+}
+
+static inline void
+vlistAdd2ZaxisIDs(vlist_t *vlistptr, int zaxisID)
+{
+ int index, nzaxis = vlistptr->nzaxis;
+ for (index = 0; index < nzaxis; index++)
+ if (zaxisID == vlistptr->zaxisIDs[index]) break;
+
+ if (index == nzaxis)
+ {
+ if (nzaxis >= MAX_ZAXES_PS) Error("Internal limit exceeded: more than %d zaxis.", MAX_ZAXES_PS);
+ vlistptr->zaxisIDs[nzaxis] = zaxisID;
+ ++(vlistptr->nzaxis);
+ }
+}
+
+static inline void
+vlistAdd2SubtypeIDs(vlist_t *vlistptr, int subtypeID)
+{
+ if (subtypeID == CDI_UNDEFID) return;
+
+ int index, nsubs = vlistptr->nsubtypes;
+ for (index = 0; index < nsubs; index++)
+ if (vlistptr->subtypeIDs[index] == subtypeID) break;
+
+ if (index == nsubs)
+ {
+ if (nsubs >= MAX_SUBTYPES_PS) Error("Internal limit exceeded: more than %d subs.", MAX_SUBTYPES_PS);
+ vlistptr->subtypeIDs[nsubs] = subtypeID;
+ ++(vlistptr->nsubtypes);
+ }
+}
+
+#ifdef HAVE_LIBGRIB_API
+extern int cdiNAdditionalGRIBKeys;
+extern char *cdiAdditionalGRIBKeys[];
+#endif
+
+extern
+#ifndef __cplusplus
+ const
+#endif
+ resOps vlistOps;
+
+#endif /* VLIST_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <assert.h>
+#include <string.h>
+
+
+int (*proj_lonlat_to_lcc_func)(struct CDI_GridProjParams gpp, size_t, double *, double *) = NULL;
+int (*proj_lcc_to_lonlat_func)(struct CDI_GridProjParams gpp, double, double, size_t, double *, double *) = NULL;
+int (*proj_lonlat_to_stere_func)(struct CDI_GridProjParams gpp, size_t, double *, double *) = NULL;
+int (*proj_stere_to_lonlat_func)(struct CDI_GridProjParams gpp, double, double, size_t, double *, double *) = NULL;
+
+// the value in the second pair of brackets must match the length of the longest string (including terminating NUL)
+static const char Grids[][17] = {
+ /* 0 */ "undefined",
+ /* 1 */ "generic",
+ /* 2 */ "gaussian",
+ /* 3 */ "gaussian_reduced",
+ /* 4 */ "lonlat",
+ /* 5 */ "spectral",
+ /* 6 */ "fourier",
+ /* 7 */ "gme",
+ /* 8 */ "trajectory",
+ /* 9 */ "unstructured",
+ /* 10 */ "curvilinear",
+ /* 11 */ "lcc",
+ /* 12 */ "projection",
+ /* 13 */ "characterXY",
+};
+
+// must match table below
+enum xystdname_idx
+{
+ grid_xystdname_grid_latlon,
+ grid_xystdname_latlon,
+ grid_xystdname_projection,
+ grid_xystdname_char,
+};
+static const char xystdname_tab[][2][24] = {
+ [grid_xystdname_grid_latlon] = { "grid_longitude", "grid_latitude" },
+ [grid_xystdname_latlon] = { "longitude", "latitude" },
+ [grid_xystdname_projection] = { "projection_x_coordinate", "projection_y_coordinate" },
+ [grid_xystdname_char] = { "region", "region" },
+};
+
+static int gridCompareP(void *gridptr1, void *gridptr2);
+static void gridDestroyP(void *gridptr);
+static void gridPrintP(void *gridptr, FILE *fp);
+static int gridGetPackSize(void *gridptr, void *context);
+static void gridPack(void *gridptr, void *buff, int size, int *position, void *context);
+static int gridTxCode(void *gridptr);
+
+static const resOps gridOps = { gridCompareP, gridDestroyP, gridPrintP, gridGetPackSize, gridPack, gridTxCode };
+
+grid_t *
+grid_to_pointer(int gridID)
+{
+ return (grid_t *) reshGetVal(gridID, &gridOps);
+}
+
+#define gridMark4Update(gridID) reshSetStatus(gridID, &gridOps, RESH_DESYNC_IN_USE)
+
+static inline bool
+grid_is_irregular(int gridType)
+{
+ return (gridType == GRID_UNSTRUCTURED || gridType == GRID_CURVILINEAR);
+}
+
+static bool
+cdiInqAttConvertedToFloat(int gridID, int atttype, const char *attname, int attlen, double *attflt)
+{
+ bool status = true;
+
+ if (atttype == CDI_DATATYPE_INT32)
+ {
+ int attint = 0;
+ int *pattint = (attlen > 1) ? (int *) malloc(attlen * sizeof(int)) : &attint;
+ cdiInqAttInt(gridID, CDI_GLOBAL, attname, attlen, pattint);
+ for (int i = 0; i < attlen; ++i) attflt[i] = (double) pattint[i];
+ if (attlen > 1) free(pattint);
+ }
+ else if (atttype == CDI_DATATYPE_FLT32 || atttype == CDI_DATATYPE_FLT64)
+ {
+ cdiInqAttFlt(gridID, CDI_GLOBAL, attname, attlen, attflt);
+ }
+ else
+ {
+ status = false;
+ }
+
+ return status;
+}
+
+static void
+grid_axis_init(struct gridaxis_t *axisptr)
+{
+ axisptr->size = 0;
+ axisptr->vals = NULL;
+ axisptr->bounds = NULL;
+ axisptr->flag = 0;
+ axisptr->first = 0.0;
+ axisptr->last = 0.0;
+ axisptr->inc = 0.0;
+#ifndef USE_MPI
+ axisptr->clength = 0;
+ axisptr->cvals = NULL;
+#endif
+ cdiInitKeys(&axisptr->keys);
+}
+
+enum cdiApplyRet
+cdiGridApply(enum cdiApplyRet (*func)(int id, void *res, void *data), void *data)
+{
+ return cdiResHFilterApply(&gridOps, func, data);
+}
+
+void
+grid_init(grid_t *gridptr)
+{
+ gridptr->self = CDI_UNDEFID;
+ gridptr->type = CDI_UNDEFID;
+ gridptr->datatype = CDI_UNDEFID;
+ gridptr->proj = CDI_UNDEFID;
+ gridptr->projtype = CDI_UNDEFID;
+ gridptr->mask = NULL;
+ gridptr->mask_gme = NULL;
+ gridptr->size = 0;
+
+ grid_axis_init(&gridptr->x);
+ grid_axis_init(&gridptr->y);
+
+ gridptr->area = NULL;
+ gridptr->reducedPoints = NULL;
+ gridptr->reducedPointsSize = 0;
+
+ gridptr->gme.nd = 0;
+ gridptr->gme.ni = 0;
+ gridptr->gme.ni2 = 0;
+ gridptr->gme.ni3 = 0;
+
+ gridptr->trunc = 0;
+ gridptr->nvertex = 0;
+ gridptr->np = 0;
+ gridptr->isCyclic = CDI_UNDEFID;
+
+ gridptr->lcomplex = false;
+ gridptr->hasdims = true;
+ gridptr->name = NULL;
+ gridptr->vtable = &cdiGridVtable;
+
+ cdiInitKeys(&gridptr->keys);
+ gridptr->atts.nalloc = MAX_ATTRIBUTES;
+ gridptr->atts.nelems = 0;
+
+ cdiDefVarKeyInt(&gridptr->keys, CDI_KEY_DATATYPE, CDI_DATATYPE_FLT64);
+#ifdef HIRLAM_EXTENSIONS
+ cdiDefVarKeyInt(&gridptr->keys, CDI_KEY_SCANNINGMODE, 64);
+#endif
+
+ gridptr->extraData = NULL;
+}
+
+static void
+grid_free_components(grid_t *gridptr)
+{
+ void *p2free[] = { gridptr->mask, gridptr->mask_gme, gridptr->x.vals, gridptr->y.vals,
+#ifndef USE_MPI
+ gridptr->x.cvals, gridptr->y.cvals,
+#endif
+ gridptr->x.bounds, gridptr->y.bounds, gridptr->reducedPoints, gridptr->area, gridptr->name };
+
+ for (size_t i = 0; i < sizeof(p2free) / sizeof(p2free[0]); ++i)
+ if (p2free[i]) Free(p2free[i]);
+
+ cdiDeleteVarKeys(&(gridptr->x.keys));
+ cdiDeleteVarKeys(&(gridptr->y.keys));
+ cdiDeleteVarKeys(&(gridptr->keys));
+ /* 12 pio tests fail
+ int gridID = gridptr->self;
+ if (gridID != CDI_UNDEFID) cdiDeleteAtts(gridID, CDI_GLOBAL);
+ */
+}
+
+void
+grid_free(grid_t *gridptr)
+{
+ if (gridptr)
+ {
+ grid_free_components(gridptr);
+ grid_init(gridptr);
+ }
+}
+
+static grid_t *
+gridNewEntry(cdiResH resH)
+{
+ grid_t *gridptr = (grid_t *) Malloc(sizeof(grid_t));
+ grid_init(gridptr);
+
+ if (resH == CDI_UNDEFID)
+ gridptr->self = reshPut(gridptr, &gridOps);
+ else
+ {
+ gridptr->self = resH;
+ reshReplace(resH, gridptr, &gridOps);
+ }
+
+ return gridptr;
+}
+
+static void
+gridInit(void)
+{
+ static bool gridInitialized = false;
+ if (gridInitialized) return;
+ gridInitialized = true;
+}
+
+static void
+grid_copy_base_scalar_fields(grid_t *gridptrOrig, grid_t *gridptrDup)
+{
+ memcpy(gridptrDup, gridptrOrig, sizeof(grid_t));
+ gridptrDup->self = CDI_UNDEFID;
+ cdiInitKeys(&gridptrDup->keys);
+ cdiCopyVarKeys(&gridptrOrig->keys, &gridptrDup->keys);
+ cdiInitKeys(&gridptrDup->x.keys);
+ cdiCopyVarKeys(&gridptrOrig->x.keys, &gridptrDup->x.keys);
+ cdiInitKeys(&gridptrDup->y.keys);
+ cdiCopyVarKeys(&gridptrOrig->y.keys, &gridptrDup->y.keys);
+}
+
+static grid_t *
+grid_copy_base(grid_t *gridptrOrig)
+{
+ grid_t *gridptrDup = (grid_t *) Malloc(sizeof(*gridptrDup));
+ gridptrOrig->vtable->copyScalarFields(gridptrOrig, gridptrDup);
+ gridptrOrig->vtable->copyArrayFields(gridptrOrig, gridptrDup);
+ return gridptrDup;
+}
+
+unsigned
+cdiGridCount(void)
+{
+ return reshCountType(&gridOps);
+}
+
+static inline void
+gridaxisSetKey(struct gridaxis_t *axisptr, int key, const char *name)
+{
+ if (find_key(&axisptr->keys, key) == NULL)
+ cdiDefVarKeyBytes(&axisptr->keys, key, (const unsigned char *) name, (int) strlen(name) + 1);
+}
+
+void
+cdiGridTypeInit(grid_t *gridptr, int gridtype, size_t size)
+{
+ gridptr->type = gridtype;
+ gridptr->size = size;
+
+ // clang-format off
+ if (gridtype == GRID_LONLAT) gridptr->nvertex = 2;
+ else if (gridtype == GRID_GAUSSIAN) gridptr->nvertex = 2;
+ else if (gridtype == GRID_GAUSSIAN_REDUCED) gridptr->nvertex = 2;
+ else if (gridtype == GRID_CURVILINEAR) gridptr->nvertex = 4;
+ else if (gridtype == GRID_UNSTRUCTURED) gridptr->x.size = size;
+ // clang-format on
+
+ switch (gridtype)
+ {
+ case GRID_LONLAT:
+ case GRID_GAUSSIAN:
+ case GRID_GAUSSIAN_REDUCED:
+ case GRID_TRAJECTORY:
+ case GRID_CURVILINEAR:
+ case GRID_UNSTRUCTURED:
+ case GRID_GME:
+ {
+ if (gridtype == GRID_TRAJECTORY)
+ {
+ gridaxisSetKey(&gridptr->x, CDI_KEY_NAME, "tlon");
+ gridaxisSetKey(&gridptr->y, CDI_KEY_NAME, "tlat");
+ }
+ else
+ {
+ gridaxisSetKey(&gridptr->x, CDI_KEY_NAME, "lon");
+ gridaxisSetKey(&gridptr->y, CDI_KEY_NAME, "lat");
+ }
+
+ gridaxisSetKey(&gridptr->x, CDI_KEY_LONGNAME, "longitude");
+ gridaxisSetKey(&gridptr->y, CDI_KEY_LONGNAME, "latitude");
+
+ gridaxisSetKey(&gridptr->x, CDI_KEY_UNITS, "degrees_east");
+ gridaxisSetKey(&gridptr->y, CDI_KEY_UNITS, "degrees_north");
+
+ gridaxisSetKey(&gridptr->x, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_latlon][0]);
+ gridaxisSetKey(&gridptr->y, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_latlon][1]);
+
+ break;
+ }
+#ifndef USE_MPI
+ case GRID_CHARXY:
+ {
+ if (gridptr->x.cvals) gridaxisSetKey(&gridptr->x, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_char][0]);
+ if (gridptr->y.cvals) gridaxisSetKey(&gridptr->y, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_char][1]);
+
+ break;
+ }
+#endif
+ case GRID_GENERIC:
+ case GRID_PROJECTION:
+ {
+ gridaxisSetKey(&gridptr->x, CDI_KEY_NAME, "x");
+ gridaxisSetKey(&gridptr->y, CDI_KEY_NAME, "y");
+ if (gridtype == GRID_PROJECTION)
+ {
+ gridaxisSetKey(&gridptr->x, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_projection][0]);
+ gridaxisSetKey(&gridptr->y, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_projection][1]);
+ gridaxisSetKey(&gridptr->x, CDI_KEY_UNITS, "m");
+ gridaxisSetKey(&gridptr->y, CDI_KEY_UNITS, "m");
+ }
+ break;
+ }
+ }
+}
+
+// used also in CDO
+void
+gridGenXvals(int xsize, double xfirst, double xlast, double xinc, double *restrict xvals)
+{
+ if (fabs(xinc) <= 0 && xsize > 1)
+ {
+ if (xfirst >= xlast)
+ {
+ while (xfirst >= xlast) xlast += 360;
+ xinc = (xlast - xfirst) / (xsize);
+ }
+ else
+ {
+ xinc = (xlast - xfirst) / (xsize - 1);
+ }
+ }
+
+ for (int i = 0; i < xsize; ++i) xvals[i] = xfirst + i * xinc;
+}
+
+static void
+calc_gaussgrid(double *restrict yvals, int ysize, double yfirst, double ylast)
+{
+ double *restrict yw = (double *) malloc((size_t) ysize * sizeof(double));
+ gaussianLatitudes((size_t) ysize, yvals, yw);
+ free(yw);
+ for (int i = 0; i < ysize; i++) yvals[i] = asin(yvals[i]) / M_PI * 180.0;
+
+ if (yfirst < ylast && yfirst > -90.0 && ylast < 90.0)
+ {
+ int yhsize = ysize / 2;
+ for (int i = 0; i < yhsize; i++)
+ {
+ const double ytmp = yvals[i];
+ yvals[i] = yvals[ysize - i - 1];
+ yvals[ysize - i - 1] = ytmp;
+ }
+ }
+}
+
+static void
+gridGenYvalsGaussian(int ysize, double yfirst, double ylast, double *restrict yvals)
+{
+ const double deleps = 0.002;
+
+ calc_gaussgrid(yvals, ysize, yfirst, ylast);
+
+ if (!(IS_EQUAL(yfirst, 0) && IS_EQUAL(ylast, 0)))
+ if (fabs(yvals[0] - yfirst) > deleps || fabs(yvals[ysize - 1] - ylast) > deleps)
+ {
+ bool lfound = false;
+ int ny = (int) (180. / (fabs(ylast - yfirst) / (ysize - 1)) + 0.5);
+ ny -= ny % 2;
+ if (ny > ysize && ny < 4096)
+ {
+ double *ytmp = (double *) Malloc((size_t) ny * sizeof(double));
+ calc_gaussgrid(ytmp, ny, yfirst, ylast);
+
+ int i;
+ for (i = 0; i < (ny - ysize); i++)
+ if (fabs(ytmp[i] - yfirst) < deleps) break;
+ int nstart = i;
+
+ lfound = (nstart + ysize - 1) < ny && fabs(ytmp[nstart + ysize - 1] - ylast) < deleps;
+ if (lfound)
+ {
+ for (i = 0; i < ysize; i++) yvals[i] = ytmp[i + nstart];
+ }
+
+ if (ytmp) Free(ytmp);
+ }
+
+ if (!lfound)
+ {
+ Warning("Cannot calculate gaussian latitudes for lat1 = %g latn = %g!", yfirst, ylast);
+ for (int i = 0; i < ysize; i++) yvals[i] = 0;
+ yvals[0] = yfirst;
+ yvals[ysize - 1] = ylast;
+ }
+ }
+}
+
+static void
+gridGenYvalsRegular(int ysize, double yfirst, double ylast, double yinc, double *restrict yvals)
+{
+ if (fabs(yinc) <= 0 && ysize > 1)
+ {
+ if (IS_EQUAL(yfirst, ylast) && IS_NOT_EQUAL(yfirst, 0)) ylast *= -1;
+
+ if (yfirst > ylast)
+ yinc = (yfirst - ylast) / (ysize - 1);
+ else if (yfirst < ylast)
+ yinc = (ylast - yfirst) / (ysize - 1);
+ else
+ {
+ if (ysize % 2 != 0)
+ {
+ yinc = 180.0 / (ysize - 1);
+ yfirst = -90;
+ }
+ else
+ {
+ yinc = 180.0 / ysize;
+ yfirst = -90 + yinc / 2;
+ }
+ }
+ }
+
+ if (yfirst > ylast && yinc > 0) yinc = -yinc;
+
+ for (int i = 0; i < ysize; i++) yvals[i] = yfirst + i * yinc;
+}
+
+// used also in CDO
+void
+gridGenYvals(int gridtype, int ysize, double yfirst, double ylast, double yinc, double *restrict yvals)
+{
+ if (gridtype == GRID_GAUSSIAN || gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ if (ysize > 2)
+ {
+ gridGenYvalsGaussian(ysize, yfirst, ylast, yvals);
+ }
+ else
+ {
+ yvals[0] = yfirst;
+ yvals[ysize - 1] = ylast;
+ }
+ }
+ // else if (gridtype == GRID_LONLAT || gridtype == GRID_GENERIC)
+ else
+ {
+ gridGenYvalsRegular(ysize, yfirst, ylast, yinc, yvals);
+ }
+ /*
+ else
+ Error("unable to calculate values for %s grid!", gridNamePtr(gridtype));
+ */
+}
+
+/*
+@Function gridCreate
+@Title Create a horizontal Grid
+
+@Prototype int gridCreate(int gridtype, SizeType size)
+@Parameter
+ @Item gridtype The type of the grid, one of the set of predefined CDI grid types.
+ The valid CDI grid types are @func{GRID_GENERIC}, @func{GRID_LONLAT},
+ @func{GRID_GAUSSIAN}, @func{GRID_PROJECTION}, @func{GRID_SPECTRAL},
+ @func{GRID_GME}, @func{GRID_CURVILINEAR} and @func{GRID_UNSTRUCTURED}.
+ @Item size Number of gridpoints.
+
+@Description
+The function @func{gridCreate} creates a horizontal Grid.
+
+@Result
+@func{gridCreate} returns an identifier to the Grid.
+
+@Example
+Here is an example using @func{gridCreate} to create a regular lon/lat Grid:
+
+@Source
+ ...
+#define nlon 12
+#define nlat 6
+ ...
+double lons[nlon] = {0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330};
+double lats[nlat] = {-75, -45, -15, 15, 45, 75};
+int gridID;
+ ...
+gridID = gridCreate(GRID_LONLAT, nlon*nlat);
+gridDefXsize(gridID, nlon);
+gridDefYsize(gridID, nlat);
+gridDefXvals(gridID, lons);
+gridDefYvals(gridID, lats);
+ ...
+@EndSource
+@EndFunction
+*/
+int
+gridCreate(int gridtype, SizeType size)
+{
+ if (CDI_Debug) Message("gridtype=%s size=%zu", gridNamePtr(gridtype), size);
+
+ xassert(size);
+ gridInit();
+
+ grid_t *gridptr = gridNewEntry(CDI_UNDEFID);
+ if (!gridptr) Error("No memory");
+
+ int gridID = gridptr->self;
+
+ if (CDI_Debug) Message("gridID: %d", gridID);
+
+ cdiGridTypeInit(gridptr, gridtype, (size_t) size);
+
+ return gridID;
+}
+
+static void
+gridDestroyKernel(grid_t *gridptr)
+{
+ xassert(gridptr);
+
+ grid_free_components(gridptr);
+ Free(gridptr);
+}
+
+/*
+@Function gridDestroy
+@Title Destroy a horizontal Grid
+
+@Prototype void gridDestroy(int gridID)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+
+@EndFunction
+*/
+void
+gridDestroy(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->vtable->destroy(gridptr);
+ reshRemove(gridID, &gridOps);
+}
+
+static void
+gridDestroyP(void *gridptr)
+{
+ ((grid_t *) gridptr)->vtable->destroy((grid_t *) gridptr);
+}
+
+const char *
+gridNamePtr(int gridtype)
+{
+ int size = (int) (sizeof(Grids) / sizeof(Grids[0]));
+
+ const char *name = (gridtype >= 0 && gridtype < size) ? Grids[gridtype] : Grids[GRID_GENERIC];
+
+ return name;
+}
+
+void
+gridName(int gridtype, char *gridname)
+{
+ strcpy(gridname, gridNamePtr(gridtype));
+}
+
+/*
+@Function gridDefXname
+@Title Define the name of a X-axis
+
+@Prototype void gridDefXname(int gridID, const char *name)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item name Name of the X-axis.
+
+@Description
+The function @func{gridDefXname} defines the name of a X-axis.
+
+@EndFunction
+*/
+void
+gridDefXname(int gridID, const char *name)
+{
+ (void) cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_NAME, name);
+}
+
+/*
+@Function gridDefXlongname
+@Title Define the longname of a X-axis
+
+@Prototype void gridDefXlongname(int gridID, const char *longname)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item longname Longname of the X-axis.
+
+@Description
+The function @func{gridDefXlongname} defines the longname of a X-axis.
+
+@EndFunction
+*/
+void
+gridDefXlongname(int gridID, const char *longname)
+{
+ (void) cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_LONGNAME, longname);
+}
+
+/*
+@Function gridDefXunits
+@Title Define the units of a X-axis
+
+@Prototype void gridDefXunits(int gridID, const char *units)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item units Units of the X-axis.
+
+@Description
+The function @func{gridDefXunits} defines the units of a X-axis.
+
+@EndFunction
+*/
+void
+gridDefXunits(int gridID, const char *units)
+{
+ (void) cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_UNITS, units);
+}
+
+/*
+@Function gridDefYname
+@Title Define the name of a Y-axis
+
+@Prototype void gridDefYname(int gridID, const char *name)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item name Name of the Y-axis.
+
+@Description
+The function @func{gridDefYname} defines the name of a Y-axis.
+
+@EndFunction
+*/
+void
+gridDefYname(int gridID, const char *name)
+{
+ (void) cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_NAME, name);
+}
+
+/*
+@Function gridDefYlongname
+@Title Define the longname of a Y-axis
+
+@Prototype void gridDefYlongname(int gridID, const char *longname)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item longname Longname of the Y-axis.
+
+@Description
+The function @func{gridDefYlongname} defines the longname of a Y-axis.
+
+@EndFunction
+*/
+void
+gridDefYlongname(int gridID, const char *longname)
+{
+ (void) cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_LONGNAME, longname);
+}
+
+/*
+@Function gridDefYunits
+@Title Define the units of a Y-axis
+
+@Prototype void gridDefYunits(int gridID, const char *units)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item units Units of the Y-axis.
+
+@Description
+The function @func{gridDefYunits} defines the units of a Y-axis.
+
+@EndFunction
+*/
+void
+gridDefYunits(int gridID, const char *units)
+{
+ (void) cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_UNITS, units);
+}
+
+/*
+@Function gridInqXname
+@Title Get the name of a X-axis
+
+@Prototype void gridInqXname(int gridID, char *name)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item name Name of the X-axis. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{gridInqXname} returns the name of a X-axis.
+
+@Result
+@func{gridInqXname} returns the name of the X-axis to the parameter name.
+
+@EndFunction
+*/
+void
+gridInqXname(int gridID, char *name)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(gridID, CDI_XAXIS, CDI_KEY_NAME, name, &length);
+}
+
+/*
+@Function gridInqXlongname
+@Title Get the longname of a X-axis
+
+@Prototype void gridInqXlongname(int gridID, char *longname)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item longname Longname of the X-axis. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{gridInqXlongname} returns the longname of a X-axis.
+
+@Result
+@func{gridInqXlongname} returns the longname of the X-axis to the parameter longname.
+
+@EndFunction
+*/
+void
+gridInqXlongname(int gridID, char *longname)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(gridID, CDI_XAXIS, CDI_KEY_LONGNAME, longname, &length);
+}
+
+/*
+@Function gridInqXunits
+@Title Get the units of a X-axis
+
+@Prototype void gridInqXunits(int gridID, char *units)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item units Units of the X-axis. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{gridInqXunits} returns the units of a X-axis.
+
+@Result
+@func{gridInqXunits} returns the units of the X-axis to the parameter units.
+
+@EndFunction
+*/
+void
+gridInqXunits(int gridID, char *units)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(gridID, CDI_XAXIS, CDI_KEY_UNITS, units, &length);
+}
+
+/*
+@Function gridInqYname
+@Title Get the name of a Y-axis
+
+@Prototype void gridInqYname(int gridID, char *name)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item name Name of the Y-axis. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{gridInqYname} returns the name of a Y-axis.
+
+@Result
+@func{gridInqYname} returns the name of the Y-axis to the parameter name.
+
+@EndFunction
+*/
+void
+gridInqYname(int gridID, char *name)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(gridID, CDI_YAXIS, CDI_KEY_NAME, name, &length);
+}
+
+/*
+@Function gridInqYlongname
+@Title Get the longname of a Y-axis
+
+@Prototype void gridInqYlongname(int gridID, char *longname)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item longname Longname of the Y-axis. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{gridInqYlongname} returns the longname of a Y-axis.
+
+@Result
+@func{gridInqYlongname} returns the longname of the Y-axis to the parameter longname.
+
+@EndFunction
+*/
+void
+gridInqYlongname(int gridID, char *longname)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(gridID, CDI_YAXIS, CDI_KEY_LONGNAME, longname, &length);
+}
+
+/*
+@Function gridInqYunits
+@Title Get the units of a Y-axis
+
+@Prototype void gridInqYunits(int gridID, char *units)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item units Units of the Y-axis. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{gridInqYunits} returns the units of a Y-axis.
+
+@Result
+@func{gridInqYunits} returns the units of the Y-axis to the parameter units.
+
+@EndFunction
+*/
+void
+gridInqYunits(int gridID, char *units)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(gridID, CDI_YAXIS, CDI_KEY_UNITS, units, &length);
+}
+
+void
+gridDefProj(int gridID, int projID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->proj = projID;
+
+ if (gridptr->type == GRID_CURVILINEAR)
+ {
+ grid_t *projptr = grid_to_pointer(projID);
+ const char *xdimname = cdiInqVarKeyStringPtr(&gridptr->x.keys, CDI_KEY_DIMNAME);
+ const char *ydimname = cdiInqVarKeyStringPtr(&gridptr->y.keys, CDI_KEY_DIMNAME);
+ if (xdimname && find_key(&projptr->x.keys, CDI_KEY_NAME)) cdiDefKeyString(projID, CDI_XAXIS, CDI_KEY_NAME, xdimname);
+ if (ydimname && find_key(&projptr->y.keys, CDI_KEY_NAME)) cdiDefKeyString(projID, CDI_YAXIS, CDI_KEY_NAME, ydimname);
+ }
+}
+
+int
+gridInqProj(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->proj;
+}
+
+int
+gridInqProjType(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ int projtype = gridptr->projtype;
+ if (projtype == -1)
+ {
+ char gmapname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, gmapname, &length);
+ if (gmapname[0])
+ {
+ // clang-format off
+ if (str_is_equal(gmapname, "rotated_latitude_longitude")) projtype = CDI_PROJ_RLL;
+ else if (str_is_equal(gmapname, "lambert_azimuthal_equal_area")) projtype = CDI_PROJ_LAEA;
+ else if (str_is_equal(gmapname, "lambert_conformal_conic")) projtype = CDI_PROJ_LCC;
+ else if (str_is_equal(gmapname, "sinusoidal")) projtype = CDI_PROJ_SINU;
+ else if (str_is_equal(gmapname, "polar_stereographic")) projtype = CDI_PROJ_STERE;
+ else if (str_is_equal(gmapname, "healpix")) projtype = CDI_PROJ_HEALPIX;
+ // clang-format on
+ gridptr->projtype = projtype;
+ }
+ }
+
+ return projtype;
+}
+
+void
+gridVerifyProj(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ int projtype = gridInqProjType(gridID);
+ if (projtype == CDI_PROJ_RLL)
+ {
+ gridaxisSetKey(&gridptr->x, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_grid_latlon][0]);
+ gridaxisSetKey(&gridptr->y, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_grid_latlon][1]);
+ gridaxisSetKey(&gridptr->x, CDI_KEY_UNITS, "degrees");
+ gridaxisSetKey(&gridptr->y, CDI_KEY_UNITS, "degrees");
+ }
+ else if (projtype == CDI_PROJ_LCC)
+ {
+ gridaxisSetKey(&gridptr->x, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_projection][0]);
+ gridaxisSetKey(&gridptr->y, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_projection][1]);
+ gridaxisSetKey(&gridptr->x, CDI_KEY_UNITS, "m");
+ gridaxisSetKey(&gridptr->y, CDI_KEY_UNITS, "m");
+ }
+}
+
+/*
+@Function gridInqType
+@Title Get the type of a Grid
+
+@Prototype int gridInqType(int gridID)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridInqType} returns the type of a Grid.
+
+@Result
+@func{gridInqType} returns the type of the grid,
+one of the set of predefined CDI grid types.
+The valid CDI grid types are @func{GRID_GENERIC}, @func{GRID_LONLAT},
+@func{GRID_GAUSSIAN}, @func{GRID_PROJECTION}, @func{GRID_SPECTRAL}, @func{GRID_GME},
+@func{GRID_CURVILINEAR} and @func{GRID_UNSTRUCTURED}.
+
+@EndFunction
+*/
+int
+gridInqType(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->type;
+}
+
+/*
+@Function gridInqSize
+@Title Get the size of a Grid
+
+@Prototype SizeType gridInqSize(int gridID)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridInqSize} returns the size of a Grid.
+
+@Result
+@func{gridInqSize} returns the number of grid points of a Grid.
+
+@EndFunction
+*/
+SizeType
+gridInqSize(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ size_t size = gridptr->size;
+ if (size == 0)
+ {
+ size_t xsize = gridptr->x.size;
+ size_t ysize = gridptr->y.size;
+
+ size = ysize ? xsize * ysize : xsize;
+
+ gridptr->size = size;
+ }
+
+ return (SizeType) size;
+}
+
+static int
+nsp2trunc(int nsp)
+{
+ /* nsp = (trunc+1)*(trunc+1) */
+ /* => trunc^2 + 3*trunc - (x-2) = 0 */
+ /* */
+ /* with: y^2 + p*y + q = 0 */
+ /* y = -p/2 +- sqrt((p/2)^2 - q) */
+ /* p = 3 and q = - (x-2) */
+ int trunc = (int) (sqrt(nsp * 4 + 1.) - 3) / 2;
+ return trunc;
+}
+
+int
+gridInqTrunc(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ if (gridptr->trunc == 0)
+ {
+ if (gridptr->type == GRID_SPECTRAL) gridptr->trunc = nsp2trunc(gridptr->size);
+ /*
+ else if ( gridptr->type == GRID_GAUSSIAN )
+ gridptr->trunc = nlat2trunc(gridptr->y.size);
+ */
+ }
+
+ return gridptr->trunc;
+}
+
+void
+gridDefTrunc(int gridID, int trunc)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ if (gridptr->trunc != trunc)
+ {
+ gridMark4Update(gridID);
+ gridptr->trunc = trunc;
+ }
+}
+
+/*
+@Function gridDefXsize
+@Title Define the number of values of a X-axis
+
+@Prototype void gridDefXsize(int gridID, SizeType xsize)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item xsize Number of values of a X-axis.
+
+@Description
+The function @func{gridDefXsize} defines the number of values of a X-axis.
+
+@EndFunction
+*/
+void
+gridDefXsize(int gridID, SizeType xsize)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ size_t gridSize = gridInqSize(gridID);
+ if ((size_t) xsize > gridSize) Error("xsize %zu is greater then gridsize %zu", (size_t) xsize, gridSize);
+
+ int gridType = gridInqType(gridID);
+ if (gridType == GRID_UNSTRUCTURED && (size_t) xsize != gridSize)
+ Error("xsize %zu must be equal to gridsize %zu for gridtype: %s", (size_t) xsize, gridSize, gridNamePtr(gridType));
+ if (gridType == GRID_GAUSSIAN_REDUCED && xsize != 2 && (size_t) xsize != gridSize)
+ Error("xsize %zu must be equal to gridsize %zu for gridtype: %s", (size_t) xsize, gridSize, gridNamePtr(gridType));
+
+ if (gridptr->x.size != (size_t) xsize)
+ {
+ gridMark4Update(gridID);
+ gridptr->x.size = (size_t) xsize;
+ }
+
+ if (gridType != GRID_UNSTRUCTURED && gridType != GRID_GAUSSIAN_REDUCED && gridType != GRID_PROJECTION)
+ {
+ size_t axisproduct = gridptr->x.size * gridptr->y.size;
+ if (axisproduct > 0 && axisproduct != gridSize)
+ Error("Inconsistent grid declaration! (xsize=%zu ysize=%zu gridsize=%zu)", gridptr->x.size, gridptr->y.size, gridSize);
+ }
+}
+
+void
+gridDefDatatype(int gridID, int datatype)
+{
+ cdiDefKeyInt(gridID, CDI_GLOBAL, CDI_KEY_DATATYPE, datatype);
+}
+
+int
+gridInqDatatype(int gridID)
+{
+ int datatype = CDI_UNDEFID;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_DATATYPE, &datatype);
+ return datatype;
+}
+
+/*
+@Function gridInqXsize
+@Title Get the number of values of a X-axis
+
+@Prototype SizeType gridInqXsize(int gridID)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridInqXsize} returns the number of values of a X-axis.
+
+@Result
+@func{gridInqXsize} returns the number of values of a X-axis.
+
+@EndFunction
+*/
+SizeType
+gridInqXsize(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return (SizeType) gridptr->x.size;
+}
+
+/*
+@Function gridDefYsize
+@Title Define the number of values of a Y-axis
+
+@Prototype void gridDefYsize(int gridID, SizeType ysize)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item ysize Number of values of a Y-axis.
+
+@Description
+The function @func{gridDefYsize} defines the number of values of a Y-axis.
+
+@EndFunction
+*/
+void
+gridDefYsize(int gridID, SizeType ysize)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ size_t gridSize = gridInqSize(gridID);
+
+ if ((size_t) ysize > gridSize) Error("ysize %zu is greater then gridsize %zu", (size_t) ysize, gridSize);
+
+ int gridType = gridInqType(gridID);
+ if (gridType == GRID_UNSTRUCTURED && (size_t) ysize != gridSize)
+ Error("ysize %zu must be equal gridsize %zu for gridtype: %s", gridNamePtr(gridType), (size_t) ysize, gridSize);
+
+ if (gridptr->y.size != (size_t) ysize)
+ {
+ gridMark4Update(gridID);
+ gridptr->y.size = (size_t) ysize;
+ }
+
+ if (gridType != GRID_UNSTRUCTURED && gridType != GRID_GAUSSIAN_REDUCED && gridType != GRID_PROJECTION)
+ {
+ size_t axisproduct = gridptr->x.size * gridptr->y.size;
+ if (axisproduct > 0 && axisproduct != gridSize)
+ Error("Inconsistent grid declaration! (xsize=%zu ysize=%zu gridsize=%zu)", gridptr->x.size, gridptr->y.size, gridSize);
+ }
+}
+
+/*
+@Function gridInqYsize
+@Title Get the number of values of a Y-axis
+
+@Prototype SizeType gridInqYsize(int gridID)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridInqYsize} returns the number of values of a Y-axis.
+
+@Result
+@func{gridInqYsize} returns the number of values of a Y-axis.
+
+@EndFunction
+*/
+SizeType
+gridInqYsize(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return (SizeType) gridptr->y.size;
+}
+
+/*
+@Function gridDefNP
+@Title Define the number of parallels between a pole and the equator
+
+@Prototype void gridDefNP(int gridID, int np)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item np Number of parallels between a pole and the equator.
+
+@Description
+The function @func{gridDefNP} defines the number of parallels between a pole and the equator
+of a Gaussian grid.
+
+@EndFunction
+*/
+void
+gridDefNP(int gridID, int np)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ if (gridptr->np != np)
+ {
+ gridMark4Update(gridID);
+ gridptr->np = np;
+ }
+}
+
+/*
+@Function gridInqNP
+@Title Get the number of parallels between a pole and the equator
+
+@Prototype int gridInqNP(int gridID)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridInqNP} returns the number of parallels between a pole and the equator
+of a Gaussian grid.
+
+@Result
+@func{gridInqNP} returns the number of parallels between a pole and the equator.
+
+@EndFunction
+*/
+int
+gridInqNP(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->np;
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+void
+gridDefReducedPoints(int gridID, int reducedPointsSize, const int reducedPoints[])
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ gridptr->reducedPoints = (int *) Malloc((size_t) reducedPointsSize * sizeof(int));
+ gridptr->reducedPointsSize = reducedPointsSize;
+ memcpy(gridptr->reducedPoints, reducedPoints, (size_t) reducedPointsSize * sizeof(int));
+ gridMark4Update(gridID);
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+void
+gridInqReducedPoints(int gridID, int *reducedPoints)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ if (gridptr->reducedPoints == 0) Error("undefined pointer!");
+
+ memcpy(reducedPoints, gridptr->reducedPoints, (size_t) gridptr->reducedPointsSize * sizeof(int));
+}
+
+static size_t
+gridInqMaskSerialGeneric(grid_t *gridptr, mask_t **internalMask, int *restrict mask)
+{
+ size_t size = gridptr->size;
+
+ if (CDI_Debug && size == 0) Warning("Size undefined for gridID = %d", gridptr->self);
+
+ const mask_t *restrict mask_src = *internalMask;
+ if (mask_src)
+ {
+ if (mask && size > 0)
+ for (size_t i = 0; i < size; ++i) mask[i] = (int) mask_src[i];
+ }
+ else
+ size = 0;
+
+ return size;
+}
+
+static SizeType
+gridInqMaskSerial(grid_t *gridptr, int *mask)
+{
+ return (SizeType) gridInqMaskSerialGeneric(gridptr, &gridptr->mask, mask);
+}
+
+int
+gridInqMask(int gridID, int *mask)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqMask(gridptr, mask);
+}
+
+static void
+gridDefMaskSerial(grid_t *gridptr, const int *mask)
+{
+ size_t size = gridptr->size;
+ if (size == 0) Error("Size undefined for gridID = %d", gridptr->self);
+
+ if (mask == NULL)
+ {
+ if (gridptr->mask)
+ {
+ Free(gridptr->mask);
+ gridptr->mask = NULL;
+ }
+ }
+ else
+ {
+ if (gridptr->mask == NULL)
+ gridptr->mask = (mask_t *) Malloc(size * sizeof(mask_t));
+ else if (CDI_Debug)
+ Warning("grid mask already defined!");
+
+ for (size_t i = 0; i < size; ++i) gridptr->mask[i] = (mask_t) (mask[i] != 0);
+ }
+}
+
+void
+gridDefMask(int gridID, const int *mask)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->vtable->defMask(gridptr, mask);
+ gridMark4Update(gridID);
+}
+
+static int
+gridInqMaskGMESerial(grid_t *gridptr, int *mask_gme)
+{
+ return gridInqMaskSerialGeneric(gridptr, &gridptr->mask_gme, mask_gme);
+}
+
+int
+gridInqMaskGME(int gridID, int *mask)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqMaskGME(gridptr, mask);
+}
+
+static void
+gridDefMaskGMESerial(grid_t *gridptr, const int *mask)
+{
+ size_t size = gridptr->size;
+ if (size == 0) Error("Size undefined for gridID = %d", gridptr->self);
+
+ if (gridptr->mask_gme == NULL)
+ gridptr->mask_gme = (mask_t *) Malloc(size * sizeof(mask_t));
+ else if (CDI_Debug)
+ Warning("mask already defined!");
+
+ for (size_t i = 0; i < size; ++i) gridptr->mask_gme[i] = (mask_t) (mask[i] != 0);
+}
+
+void
+gridDefMaskGME(int gridID, const int *mask)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->vtable->defMaskGME(gridptr, mask);
+ gridMark4Update(gridID);
+}
+
+static void
+copy_darray(size_t n, const double *restrict in, double *restrict out)
+{
+#ifdef _OPENMP
+#pragma omp parallel for if (n > 99999) default(shared) schedule(static)
+#endif
+ for (size_t i = 0; i < n; ++i) out[i] = in[i];
+}
+
+static SizeType
+gridInqXValsSerial(grid_t *gridptr, double *xvals)
+{
+ int gridtype = gridptr->type;
+ size_t size = grid_is_irregular(gridtype) ? gridptr->size : gridptr->x.size;
+
+ if (CDI_Debug && size == 0) Warning("size undefined for gridID = %d", gridptr->self);
+
+ if (gridptr->x.vals)
+ {
+ if (size && xvals)
+ {
+ const double *gridptr_xvals = gridptr->vtable->inqXValsPtr(gridptr);
+ copy_darray(size, gridptr_xvals, xvals);
+ }
+ }
+ else
+ size = 0;
+
+ return (SizeType) size;
+}
+
+static SizeType
+gridInqXValsPartSerial(grid_t *gridptr, int start, SizeType length, double *xvals)
+{
+ int gridtype = gridptr->type;
+ size_t size = grid_is_irregular(gridtype) ? gridptr->size : gridptr->x.size;
+
+ if (CDI_Debug && size == 0) Warning("size undefined for gridID = %d", gridptr->self);
+
+ if (gridptr->x.vals)
+ {
+ if (size && xvals && (size_t) length <= size)
+ {
+ const double *gridptr_xvals = gridptr->vtable->inqXValsPtr(gridptr);
+ memcpy(xvals, gridptr_xvals + start, (size_t) length * sizeof(double));
+ }
+ }
+ else
+ size = 0;
+
+ return (SizeType) size;
+}
+
+#ifndef USE_MPI
+static SizeType
+gridInqXCvalsSerial(grid_t *gridptr, char **xcvals)
+{
+ if (gridptr->type != GRID_CHARXY) Error("Function only valid for grid type 'GRID_CHARXY'.");
+
+ size_t size = gridptr->x.size;
+ size_t maxclength = 0;
+
+ const char **gridptr_xcvals = gridptr->vtable->inqXCvalsPtr(gridptr);
+ if (gridptr_xcvals && size && xcvals)
+ {
+ maxclength = gridptr->x.clength;
+ for (size_t i = 0; i < size; i++) memcpy(xcvals[i], gridptr_xcvals[i], maxclength * sizeof(char));
+ }
+
+ return (SizeType) maxclength;
+}
+
+static int
+gridInqXIscSerial(grid_t *gridptr)
+{
+ /*
+ if ( gridptr->type != GRID_CHARXY )
+ Error("Axis type is 'char' but grid is not type 'GRID_CHARXY'.");
+ */
+ return gridptr->x.clength;
+}
+#endif
+
+/*
+@Function gridInqXvals
+@Title Get all values of a X-axis
+
+@Prototype SizeType gridInqXvals(int gridID, double *xvals)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item xvals Pointer to the location into which the X-values are read.
+ The caller must allocate space for the returned values.
+
+@Description
+The function @func{gridInqXvals} returns all values of the X-axis.
+
+@Result
+Upon successful completion @func{gridInqXvals} returns the number of values and
+the values are stored in @func{xvals}.
+Otherwise, 0 is returned and @func{xvals} is empty.
+
+@EndFunction
+*/
+SizeType
+gridInqXvals(int gridID, double *xvals)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqXVals(gridptr, xvals);
+}
+
+SizeType
+gridInqXvalsPart(int gridID, int start, SizeType length, double *xvals)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqXValsPart(gridptr, start, length, xvals);
+}
+
+SizeType
+gridInqXCvals(int gridID, char **xcvals)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+#ifndef USE_MPI
+ return gridptr->vtable->inqXCvals(gridptr, xcvals);
+#else
+ return 0;
+#endif
+}
+
+int
+gridInqXIsc(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+#ifndef USE_MPI
+ return gridptr->vtable->inqXIsc(gridptr);
+#else
+ return 0;
+#endif
+}
+
+static void
+gridDefXValsSerial(grid_t *gridptr, const double *xvals)
+{
+ int gridtype = gridptr->type;
+ size_t size = grid_is_irregular(gridtype) ? gridptr->size : gridptr->x.size;
+
+ if (size == 0) Error("Size undefined for gridID = %d", gridptr->self);
+
+ if (gridptr->x.vals && CDI_Debug) Warning("values already defined!");
+ gridptr->x.vals = (double *) Realloc(gridptr->x.vals, size * sizeof(double));
+ copy_darray(size, xvals, gridptr->x.vals);
+}
+
+#ifndef USE_MPI
+static SizeType
+gridInqYCvalsSerial(grid_t *gridptr, char **ycvals)
+{
+ if (gridptr->type != GRID_CHARXY) Error("Function only valid for grid type 'GRID_CHARXY'.");
+
+ size_t size = gridptr->y.size;
+ size_t maxclength = 0;
+
+ const char **gridptr_ycvals = gridptr->vtable->inqYCvalsPtr(gridptr);
+ if (gridptr_ycvals && size && ycvals)
+ {
+ maxclength = gridptr->y.clength;
+ for (size_t i = 0; i < size; i++) memcpy(ycvals[i], gridptr_ycvals[i], maxclength * sizeof(char));
+ }
+
+ return (SizeType) maxclength;
+}
+
+static int
+gridInqYIscSerial(grid_t *gridptr)
+{
+ // if ( gridptr->type != GRID_CHARXY ) Error("Axis type is 'char' but grid is not type 'GRID_CHARXY'.");
+ return gridptr->y.clength;
+}
+#endif
+
+/*
+@Function gridDefXvals
+@Title Define the values of a X-axis
+
+@Prototype void gridDefXvals(int gridID, const double *xvals)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item xvals X-values of the grid.
+
+@Description
+The function @func{gridDefXvals} defines all values of the X-axis.
+
+@EndFunction
+*/
+void
+gridDefXvals(int gridID, const double *xvals)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->vtable->defXVals(gridptr, xvals);
+ gridMark4Update(gridID);
+}
+
+static SizeType
+gridInqYValsSerial(grid_t *gridptr, double *yvals)
+{
+ int gridtype = gridptr->type;
+ size_t size = grid_is_irregular(gridtype) ? gridptr->size : gridptr->y.size;
+
+ if (CDI_Debug && size == 0) Warning("size undefined for gridID = %d!", gridptr->self);
+
+ if (gridptr->y.vals)
+ {
+ if (size && yvals)
+ {
+ const double *gridptr_yvals = gridptr->vtable->inqYValsPtr(gridptr);
+ copy_darray(size, gridptr_yvals, yvals);
+ }
+ }
+ else
+ size = 0;
+
+ return (SizeType) size;
+}
+
+static SizeType
+gridInqYValsPartSerial(grid_t *gridptr, int start, SizeType length, double *yvals)
+{
+ int gridtype = gridptr->type;
+ size_t size = grid_is_irregular(gridtype) ? gridptr->size : gridptr->y.size;
+
+ if (CDI_Debug && size == 0) Warning("size undefined for gridID = %d!", gridptr->self);
+
+ if (gridptr->y.vals)
+ {
+ if (size && yvals && (size_t) length <= size)
+ {
+ const double *gridptr_yvals = gridptr->vtable->inqYValsPtr(gridptr);
+ memcpy(yvals, gridptr_yvals + start, (size_t) length * sizeof(double));
+ }
+ }
+ else
+ size = 0;
+
+ return (SizeType) size;
+}
+
+/*
+@Function gridInqYvals
+@Title Get all values of a Y-axis
+
+@Prototype SizeType gridInqYvals(int gridID, double *yvals)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item yvals Pointer to the location into which the Y-values are read.
+ The caller must allocate space for the returned values.
+
+@Description
+The function @func{gridInqYvals} returns all values of the Y-axis.
+
+@Result
+Upon successful completion @func{gridInqYvals} returns the number of values and
+the values are stored in @func{yvals}.
+Otherwise, 0 is returned and @func{yvals} is empty.
+
+@EndFunction
+*/
+SizeType
+gridInqYvals(int gridID, double *yvals)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqYVals(gridptr, yvals);
+}
+
+SizeType
+gridInqYvalsPart(int gridID, int start, SizeType size, double *yvals)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqYValsPart(gridptr, start, size, yvals);
+}
+
+SizeType
+gridInqYCvals(int gridID, char **ycvals)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+#ifndef USE_MPI
+ return gridptr->vtable->inqYCvals(gridptr, ycvals);
+#else
+ return 0;
+#endif
+}
+
+int
+gridInqYIsc(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+#ifndef USE_MPI
+ return gridptr->vtable->inqYIsc(gridptr);
+#else
+ return 0;
+#endif
+}
+
+static void
+gridDefYValsSerial(grid_t *gridptr, const double *yvals)
+{
+ int gridtype = gridptr->type;
+ size_t size = grid_is_irregular(gridtype) ? gridptr->size : gridptr->y.size;
+
+ if (size == 0) Error("Size undefined for gridID = %d!", gridptr->self);
+
+ if (gridptr->y.vals && CDI_Debug) Warning("Values already defined!");
+
+ gridptr->y.vals = (double *) Realloc(gridptr->y.vals, size * sizeof(double));
+ copy_darray(size, yvals, gridptr->y.vals);
+}
+
+/*
+@Function gridDefYvals
+@Title Define the values of a Y-axis
+
+@Prototype void gridDefYvals(int gridID, const double *yvals)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item yvals Y-values of the grid.
+
+@Description
+The function @func{gridDefYvals} defines all values of the Y-axis.
+
+@EndFunction
+*/
+void
+gridDefYvals(int gridID, const double *yvals)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->vtable->defYVals(gridptr, yvals);
+ gridMark4Update(gridID);
+}
+
+static double
+gridInqXValSerial(grid_t *gridptr, SizeType index)
+{
+ const double xval = gridptr->x.vals ? gridptr->x.vals[index] : 0;
+ return xval;
+}
+
+double
+gridInqXval(int gridID, SizeType index)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqXVal(gridptr, index);
+}
+
+static double
+gridInqYValSerial(grid_t *gridptr, SizeType index)
+{
+ const double yval = gridptr->y.vals ? gridptr->y.vals[index] : 0;
+ return yval;
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+double
+gridInqYval(int gridID, SizeType index)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqYVal(gridptr, index);
+}
+
+static double
+grid_calc_increment(size_t size, const double *vals)
+{
+ if (size > 1)
+ {
+ double inc = (vals[size - 1] - vals[0]) / (size - 1);
+ const double abs_inc = fabs(inc);
+ for (size_t i = 1; i < size; ++i)
+ if (fabs(fabs(vals[i - 1] - vals[i]) - abs_inc) > 0.01 * abs_inc)
+ {
+ inc = 0.0;
+ break;
+ }
+
+ return inc;
+ }
+
+ return 0.0;
+}
+
+static double
+grid_calc_increment_in_meter(SizeType size, const double *vals)
+{
+ if (size > 1)
+ {
+ const double inc = (vals[size - 1] - vals[0]) / (size - 1);
+ return round(fabs(inc));
+ }
+
+ return 0.0;
+}
+
+static double
+gridInqXIncBase(grid_t *gridptr)
+{
+ if (fabs(gridptr->x.inc) <= 0 && gridptr->x.vals)
+ {
+ size_t xsize = gridptr->x.size;
+ if (xsize > 1)
+ {
+ const double *xvals = gridptr->vtable->inqXValsPtr(gridptr);
+ gridptr->x.inc = grid_calc_increment(xsize, xvals);
+ }
+ }
+
+ return gridptr->x.inc;
+}
+
+double
+gridInqXincInMeter(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ const double *xvals = gridptr->vtable->inqXValsPtr(gridptr);
+
+ if (fabs(gridptr->x.inc) <= 0 && xvals)
+ {
+ size_t xsize = gridptr->x.size;
+ if (xsize > 1) gridptr->x.inc = grid_calc_increment_in_meter(xsize, xvals);
+ }
+
+ return gridptr->x.inc;
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+double
+gridInqXinc(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqXInc(gridptr);
+}
+
+static double
+gridInqYIncBase(grid_t *gridptr)
+{
+ if (fabs(gridptr->y.inc) <= 0 && gridptr->y.vals)
+ {
+ size_t ysize = gridptr->y.size;
+ if (ysize > 1)
+ {
+ const double *yvals = gridptr->vtable->inqYValsPtr(gridptr);
+ gridptr->y.inc = grid_calc_increment(ysize, yvals);
+ }
+ }
+
+ return gridptr->y.inc;
+}
+
+double
+gridInqYincInMeter(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ const double *yvals = gridptr->vtable->inqYValsPtr(gridptr);
+
+ if (fabs(gridptr->y.inc) <= 0 && yvals)
+ {
+ size_t ysize = gridptr->y.size;
+ if (ysize > 1) gridptr->y.inc = grid_calc_increment_in_meter(ysize, yvals);
+ }
+
+ return gridptr->y.inc;
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+double
+gridInqYinc(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqYInc(gridptr);
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+void
+gridInqParamRLL(int gridID, double *xpole, double *ypole, double *angle)
+{
+ *xpole = 0;
+ *ypole = 0;
+ *angle = 0;
+
+ static const char projection[] = "rotated_latitude_longitude";
+ char name[CDI_MAX_NAME + 1];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, name, &length);
+ if (name[0] && str_is_equal(name, projection))
+ {
+ int atttype, attlen;
+
+ int natts, nfound = 0;
+ cdiInqNatts(gridID, CDI_GLOBAL, &natts);
+
+ for (int iatt = 0; iatt < natts; ++iatt)
+ {
+ cdiInqAtt(gridID, CDI_GLOBAL, iatt, name, &atttype, &attlen);
+ if (attlen == 1)
+ {
+ double *attflt;
+ // clang-format off
+ if (str_is_equal(name, "grid_north_pole_longitude")) attflt = xpole;
+ else if (str_is_equal(name, "grid_north_pole_latitude") ) attflt = ypole;
+ else if (str_is_equal(name, "north_pole_grid_longitude")) attflt = angle;
+ else continue;
+ // clang-format on
+ bool valid = cdiInqAttConvertedToFloat(gridID, atttype, name, attlen, attflt);
+ if ((nfound += valid) == 3) return;
+ }
+ }
+ }
+ else
+ Warning("%s mapping parameter missing!", projection);
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+void
+gridDefParamRLL(int gridID, double xpole, double ypole, double angle)
+{
+ cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_UNITS, "degrees");
+ cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_UNITS, "degrees");
+
+ cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARNAME, "rotated_pole");
+
+ const char *gmapname = "rotated_latitude_longitude";
+ cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, gmapname);
+ cdiDefAttTxt(gridID, CDI_GLOBAL, "grid_mapping_name", (int) (strlen(gmapname)), gmapname);
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "grid_north_pole_longitude", CDI_DATATYPE_FLT64, 1, &xpole);
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "grid_north_pole_latitude", CDI_DATATYPE_FLT64, 1, &ypole);
+ if (IS_NOT_EQUAL(angle, 0)) cdiDefAttFlt(gridID, CDI_GLOBAL, "north_pole_grid_longitude", CDI_DATATYPE_FLT64, 1, &angle);
+
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->projtype = CDI_PROJ_RLL;
+
+ gridVerifyProj(gridID);
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+void
+gridInqParamGME(int gridID, int *nd, int *ni, int *ni2, int *ni3)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ *nd = gridptr->gme.nd;
+ *ni = gridptr->gme.ni;
+ *ni2 = gridptr->gme.ni2;
+ *ni3 = gridptr->gme.ni3;
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+void
+gridDefParamGME(int gridID, int nd, int ni, int ni2, int ni3)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ if (gridptr->gme.nd != nd)
+ {
+ gridptr->gme.nd = nd;
+ gridptr->gme.ni = ni;
+ gridptr->gme.ni2 = ni2;
+ gridptr->gme.ni3 = ni3;
+ gridMark4Update(gridID);
+ }
+}
+
+/*
+@Function
+@Title
+
+@Prototype
+@Parameter
+ @Item Grid identifier
+
+@EndFunction
+*/
+void
+gridChangeType(int gridID, int gridtype)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ if (CDI_Debug) Message("Changed grid type from %s to %s", gridNamePtr(gridptr->type), gridNamePtr(gridtype));
+
+ if (gridptr->type != gridtype)
+ {
+ gridptr->type = gridtype;
+ gridMark4Update(gridID);
+ }
+}
+
+static void
+grid_check_cyclic(grid_t *gridptr)
+{
+ gridptr->isCyclic = 0;
+ enum
+ {
+ numVertices = 4
+ };
+ size_t xsize = gridptr->x.size, ysize = gridptr->y.size;
+ const double *xvals = gridptr->vtable->inqXValsPtr(gridptr), *yvals = gridptr->vtable->inqYValsPtr(gridptr),
+ (*xbounds)[numVertices] = (const double(*)[numVertices]) gridptr->vtable->inqXBoundsPtr(gridptr);
+
+ if (gridptr->type == GRID_GAUSSIAN || gridptr->type == GRID_LONLAT)
+ {
+ if (xvals && xsize > 1)
+ {
+ double xval1 = xvals[0];
+ double xval2 = xvals[1];
+ double xvaln = xvals[xsize - 1];
+ if (xval2 < xval1) xval2 += 360;
+ if (xvaln < xval1) xvaln += 360;
+
+ if (IS_NOT_EQUAL(xval1, xvaln))
+ {
+ double xinc = xval2 - xval1;
+ if (IS_EQUAL(xinc, 0)) xinc = (xvaln - xval1) / (xsize - 1);
+
+ const double x0 = xvaln + xinc - 360;
+
+ if (fabs(x0 - xval1) < 0.01 * xinc) gridptr->isCyclic = 1;
+ }
+ }
+ }
+ else if (gridptr->type == GRID_CURVILINEAR)
+ {
+ bool lcheck = true;
+ if (yvals && xvals)
+ {
+ if ((fabs(yvals[0] - yvals[xsize - 1]) > fabs(yvals[0] - yvals[xsize * ysize - xsize]))
+ && (fabs(yvals[xsize * ysize - xsize] - yvals[xsize * ysize - 1])
+ > fabs(yvals[xsize - 1] - yvals[xsize * ysize - 1])))
+ lcheck = false;
+ }
+ else
+ lcheck = false;
+
+ if (lcheck && xvals && xsize > 1)
+ {
+ size_t nc = 0;
+ for (size_t j = 0; j < ysize; ++j)
+ {
+ size_t i1 = j * xsize, i2 = j * xsize + 1, in = j * xsize + (xsize - 1);
+ double val1 = xvals[i1], val2 = xvals[i2], valn = xvals[in];
+ double xinc = fabs(val2 - val1);
+
+ if (val1 < 1 && valn > 300) val1 += 360;
+ if (valn < 1 && val1 > 300) valn += 360;
+ if (val1 < -179 && valn > 120) val1 += 360;
+ if (valn < -179 && val1 > 120) valn += 360;
+ if (fabs(valn - val1) > 180) val1 += 360;
+
+ double x0 = valn + copysign(xinc, val1 - valn);
+
+ nc += fabs(x0 - val1) < 0.5 * xinc;
+ }
+ gridptr->isCyclic = nc > ysize / 2;
+ }
+
+ if (lcheck && xbounds && xsize > 1)
+ {
+ bool isCyclic = true;
+ for (size_t j = 0; j < ysize; ++j)
+ {
+ size_t i1 = j * xsize, i2 = j * xsize + (xsize - 1);
+ for (size_t k1 = 0; k1 < numVertices; ++k1)
+ {
+ double val1 = xbounds[i1][k1];
+ for (size_t k2 = 0; k2 < numVertices; ++k2)
+ {
+ double val2 = xbounds[i2][k2];
+
+ if (val1 < 1 && val2 > 300) val1 += 360;
+ if (val2 < 1 && val1 > 300) val2 += 360;
+ if (val1 < -179 && val2 > 120) val1 += 360;
+ if (val2 < -179 && val1 > 120) val2 += 360;
+ if (fabs(val2 - val1) > 180) val1 += 360;
+
+ if (fabs(val1 - val2) < 0.001) goto foundCloseVertices;
+ }
+ }
+ // all vertices more than 0.001 degrees apart
+ isCyclic = false;
+ break;
+ foundCloseVertices:;
+ }
+ gridptr->isCyclic = isCyclic;
+ }
+ }
+}
+
+int
+gridIsCircular(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ if (gridptr->isCyclic == CDI_UNDEFID) grid_check_cyclic(gridptr);
+
+ return gridptr->isCyclic;
+}
+
+static bool
+compareXYvals(grid_t *gridRef, grid_t *gridTest)
+{
+ bool differ = false;
+ int gridtype = gridTest->type;
+
+ size_t xsizeTest = grid_is_irregular(gridtype) ? gridTest->size : gridTest->x.size;
+ size_t xsizeRef = (size_t) gridRef->vtable->inqXVals(gridRef, NULL);
+ if (xsizeTest != xsizeRef) return true;
+
+ if (xsizeTest > 0)
+ {
+ const double *xvalsRef = gridRef->vtable->inqXValsPtr(gridRef);
+ const double *xvalsTest = gridTest->vtable->inqXValsPtr(gridTest);
+ if (!xvalsTest) return true;
+
+ for (size_t i = 0; i < xsizeTest; ++i)
+ if (fabs(xvalsTest[i] - xvalsRef[i]) > 1.e-10) return true;
+ }
+
+ size_t ysizeTest = grid_is_irregular(gridtype) ? gridTest->size : gridTest->y.size;
+ size_t ysizeRef = (size_t) gridRef->vtable->inqYVals(gridRef, NULL);
+ if (ysizeTest != ysizeRef) return true;
+
+ if (ysizeTest > 0)
+ {
+ const double *yvalsRef = gridRef->vtable->inqYValsPtr(gridRef);
+ const double *yvalsTest = gridTest->vtable->inqYValsPtr(gridTest);
+ if (!yvalsTest) return true;
+
+ for (size_t i = 0; i < ysizeTest; ++i)
+ if (fabs(yvalsTest[i] - yvalsRef[i]) > 1.e-10) return true;
+ }
+
+ return differ;
+}
+
+static bool
+compareXYvals2(grid_t *gridRef, grid_t *gridTest)
+{
+ size_t gridsize = gridTest->size;
+ bool differ = ((gridTest->x.vals == NULL) ^ (gridRef->x.vals == NULL)) || ((gridTest->y.vals == NULL) ^ (gridRef->y.vals == NULL))
+ || ((gridTest->x.bounds == NULL) ^ (gridRef->x.bounds == NULL))
+ || ((gridTest->y.bounds == NULL) ^ (gridRef->y.bounds == NULL));
+
+ typedef double (*inqVal)(grid_t * grid, SizeType index);
+ inqVal inqXValRef = gridRef->vtable->inqXVal, inqYValRef = gridRef->vtable->inqYVal, inqXValTest = gridTest->vtable->inqXVal,
+ inqYValTest = gridTest->vtable->inqYVal;
+
+ if (!differ && gridTest->x.vals)
+ differ = fabs(inqXValTest(gridTest, 0) - inqXValRef(gridRef, 0)) > 1.e-9
+ || fabs(inqXValTest(gridTest, gridsize - 1) - inqXValRef(gridRef, gridsize - 1)) > 1.e-9;
+
+ if (!differ && gridTest->y.vals)
+ differ = fabs(inqYValTest(gridTest, 0) - inqYValRef(gridRef, 0)) > 1.e-9
+ || fabs(inqYValTest(gridTest, gridsize - 1) - inqYValRef(gridRef, gridsize - 1)) > 1.e-9;
+
+ return differ;
+}
+
+static bool
+compare_bounds(const grid_t *grid, const grid_t *gridRef)
+{
+ bool differ = false;
+
+ if ((grid->x.bounds && !gridRef->x.bounds) || (!grid->x.bounds && gridRef->x.bounds) || (grid->y.bounds && !gridRef->y.bounds)
+ || (!grid->y.bounds && gridRef->y.bounds))
+ differ = true;
+
+ return differ;
+}
+
+static bool
+compare_lonlat(int gridID, const grid_t *grid, const grid_t *gridRef)
+{
+ bool differ = false;
+ /*
+ printf("gridID %d\n", gridID);
+ printf("grid.xdef %d\n", grid->x.flag);
+ printf("grid.ydef %d\n", grid->y.flag);
+ printf("grid.xsize %zu\n", grid->x.size);
+ printf("grid.ysize %zu\n", grid->y.size);
+ printf("grid.xfirst %f\n", grid->x.first);
+ printf("grid.yfirst %f\n", grid->y.first);
+ printf("grid.xfirst %f\n", gridInqXval(gridID, 0));
+ printf("grid.yfirst %f\n", gridInqYval(gridID, 0));
+ printf("grid.xinc %f\n", grid->x.inc);
+ printf("grid.yinc %f\n", grid->y.inc);
+ printf("grid.xinc %f\n", gridInqXinc(gridID));
+ printf("grid.yinc %f\n", gridInqYinc(gridID));
+ */
+ if (grid->x.size == gridRef->x.size && grid->y.size == gridRef->y.size)
+ {
+ if (grid->x.flag == 2 && grid->y.flag == 2)
+ {
+ if (!(IS_EQUAL(grid->x.first, 0) && IS_EQUAL(grid->x.last, 0) && IS_EQUAL(grid->x.inc, 0))
+ && !(IS_EQUAL(grid->y.first, 0) && IS_EQUAL(grid->y.last, 0) && IS_EQUAL(grid->y.inc, 0))
+ && IS_NOT_EQUAL(grid->x.first, grid->x.last) && IS_NOT_EQUAL(grid->y.first, grid->y.last))
+ {
+ if (IS_NOT_EQUAL(grid->x.first, gridInqXval(gridID, 0)) || IS_NOT_EQUAL(grid->y.first, gridInqYval(gridID, 0)))
+ {
+ differ = true;
+ }
+ if (!differ && fabs(grid->x.inc) > 0 && fabs(fabs(grid->x.inc) - fabs(gridRef->x.inc)) > fabs(grid->x.inc / 1000))
+ {
+ differ = true;
+ }
+ if (!differ && fabs(grid->y.inc) > 0 && fabs(fabs(grid->y.inc) - fabs(gridRef->y.inc)) > fabs(grid->y.inc / 1000))
+ {
+ differ = true;
+ }
+ }
+ }
+ else if (grid->x.vals && grid->y.vals)
+ differ = gridRef->vtable->compareXYFull((grid_t *) gridRef, (grid_t *) grid);
+
+ if (!differ) differ = compare_bounds(grid, gridRef);
+ }
+ else
+ differ = true;
+
+ return differ;
+}
+
+static bool
+compare_projection(int gridID, const grid_t *grid, const grid_t *gridRef)
+{
+ bool differ = compare_lonlat(gridID, grid, gridRef);
+
+ if (!differ)
+ {
+ // printf(">%s< >%s<\n", cdiInqVarKeyString(&grid->keys, CDI_KEY_GRIDMAP_VARNAME), cdiInqVarKeyString(&gridRef->keys,
+ // CDI_KEY_GRIDMAP_VARNAME)); printf(">%s< >%s<\n", cdiInqVarKeyString(&grid->keys, CDI_KEY_GRIDMAP_NAME),
+ // cdiInqVarKeyString(&gridRef->keys, CDI_KEY_GRIDMAP_NAME));
+ // if (!str_is_equal(cdiInqVarKeyString(&grid->keys, CDI_KEY_GRIDMAP_VARNAME), cdiInqVarKeyString(&gridRef->keys,
+ // CDI_KEY_GRIDMAP_VARNAME))) return true; if (!str_is_equal(cdiInqVarKeyString(&grid->keys, CDI_KEY_GRIDMAP_NAME),
+ // cdiInqVarKeyString(&gridRef->keys, CDI_KEY_GRIDMAP_NAME))) return true;
+ }
+
+ return differ;
+}
+
+static bool
+compare_generic(const grid_t *grid, const grid_t *gridRef)
+{
+ bool differ = false;
+
+ if (grid->x.size == gridRef->x.size && grid->y.size == gridRef->y.size)
+ {
+ if (grid->x.flag == 1 && grid->y.flag == 1 && grid->x.vals && grid->y.vals)
+ differ = gridRef->vtable->compareXYFull((grid_t *) gridRef, (grid_t *) grid);
+ }
+ else if ((grid->y.size == 0 || grid->y.size == 1) && grid->x.size == gridRef->x.size * gridRef->y.size)
+ {
+ }
+ else
+ differ = true;
+
+ return differ;
+}
+
+static bool
+compare_gaussian(int gridID, const grid_t *grid, const grid_t *gridRef)
+{
+ const double cmp_eps = 0.0015;
+ bool differ = false;
+
+ if (grid->x.size == gridRef->x.size && grid->y.size == gridRef->y.size)
+ {
+ if (grid->x.flag == 2 && grid->y.flag == 2)
+ {
+ if (!(IS_EQUAL(grid->x.first, 0) && IS_EQUAL(grid->x.last, 0) && IS_EQUAL(grid->x.inc, 0))
+ && !(IS_EQUAL(grid->y.first, 0) && IS_EQUAL(grid->y.last, 0)))
+ if (fabs(grid->x.first - gridInqXval(gridID, 0)) > cmp_eps || fabs(grid->y.first - gridInqYval(gridID, 0)) > cmp_eps
+ || (fabs(grid->x.inc) > 0 && fabs(fabs(grid->x.inc) - fabs(gridRef->x.inc)) > fabs(grid->x.inc / 1000)))
+ {
+ differ = true;
+ }
+ }
+ else if (grid->x.vals && grid->y.vals)
+ differ = gridRef->vtable->compareXYFull((grid_t *) gridRef, (grid_t *) grid);
+
+ if (!differ) differ = compare_bounds(grid, gridRef);
+ }
+ else
+ differ = true;
+
+ return differ;
+}
+
+static bool
+compare_curvilinear(const grid_t *grid, const grid_t *gridRef)
+{
+ bool differ = false;
+
+ /*
+ printf("gridID %d\n", gridID);
+ printf("grid.xsize %d\n", grid->x.size);
+ printf("grid.ysize %d\n", grid->y.size);
+ printf("grid.xfirst %f\n", grid->x.vals[0]);
+ printf("grid.yfirst %f\n", grid->y.vals[0]);
+ printf("grid xfirst %f\n", gridInqXval(gridID, 0));
+ printf("grid yfirst %f\n", gridInqYval(gridID, 0));
+ printf("grid.xlast %f\n", grid->x.vals[grid->size-1]);
+ printf("grid.ylast %f\n", grid->y.vals[grid->size-1]);
+ printf("grid xlast %f\n", gridInqXval(gridID, grid->size-1));
+ printf("grid ylast %f\n", gridInqYval(gridID, grid->size-1));
+ printf("grid.nv %d\n", grid->nvertex);
+ printf("grid nv %d\n", gridInqNvertex(gridID));
+ */
+ if (grid->x.size == gridRef->x.size && grid->y.size == gridRef->y.size)
+ differ = gridRef->vtable->compareXYAO((grid_t *) gridRef, (grid_t *) grid);
+
+ return differ;
+}
+
+static bool
+compare_unstructured(const grid_t *grid, const grid_t *gridRef, bool compareCoord)
+{
+ bool differ = false;
+
+ unsigned char uuid1[CDI_UUID_SIZE] = { 0 };
+ unsigned char uuid2[CDI_UUID_SIZE] = { 0 };
+ int length = CDI_UUID_SIZE;
+ cdiInqVarKeyBytes(&gridRef->keys, CDI_KEY_UUID, uuid1, &length);
+ length = CDI_UUID_SIZE;
+ cdiInqVarKeyBytes(&grid->keys, CDI_KEY_UUID, uuid2, &length);
+ differ = ((!cdiUUIDIsNull(uuid1) || !cdiUUIDIsNull(uuid2)) && memcmp(uuid1, uuid2, CDI_UUID_SIZE));
+ if (!differ)
+ {
+ int numberA = cdiInqVarKeyInt(&grid->keys, CDI_KEY_NUMBEROFGRIDUSED);
+ int numberB = cdiInqVarKeyInt(&gridRef->keys, CDI_KEY_NUMBEROFGRIDUSED);
+ int positionA = cdiInqVarKeyInt(&grid->keys, CDI_KEY_NUMBEROFGRIDINREFERENCE);
+ int positionB = cdiInqVarKeyInt(&gridRef->keys, CDI_KEY_NUMBEROFGRIDINREFERENCE);
+ if (compareCoord)
+ {
+ differ = (grid->nvertex != gridRef->nvertex || (numberA > 0 && positionA != positionB)
+ || gridRef->vtable->compareXYFull((grid_t *) gridRef, (grid_t *) grid));
+ }
+ else
+ {
+ if (((grid->x.vals == NULL) ^ (gridRef->x.vals == NULL)) && ((grid->y.vals == NULL) ^ (gridRef->y.vals == NULL)))
+ {
+ int nvertexA = grid->nvertex, nvertexB = gridRef->nvertex;
+ differ = (nvertexA && nvertexB && (nvertexA != nvertexB))
+ || ((numberA && numberB && (numberA != numberB)) || (numberA && numberB && positionA != positionB));
+ }
+ else
+ {
+ differ = (grid->nvertex != gridRef->nvertex || numberA != numberB || (numberA > 0 && positionA != positionB)
+ || gridRef->vtable->compareXYAO((grid_t *) gridRef, (grid_t *) grid));
+ }
+ }
+ }
+
+ return differ;
+}
+
+static bool
+gridCompare(int gridID, const grid_t *grid, bool compareCoord)
+{
+ bool differ = true;
+ const grid_t *gridRef = grid_to_pointer(gridID);
+
+ if (grid->type == gridRef->type || grid->type == GRID_GENERIC)
+ {
+ if (grid->size == gridRef->size)
+ {
+ differ = false;
+ if (grid->type == GRID_LONLAT)
+ {
+ differ = compare_lonlat(gridID, grid, gridRef);
+ }
+ else if (grid->type == GRID_PROJECTION)
+ {
+ differ = compare_projection(gridID, grid, gridRef);
+ }
+ else if (grid->type == GRID_GENERIC)
+ {
+ differ = compare_generic(grid, gridRef);
+ }
+ else if (grid->type == GRID_GAUSSIAN)
+ {
+ differ = compare_gaussian(gridID, grid, gridRef);
+ }
+ else if (grid->type == GRID_CURVILINEAR)
+ {
+ differ = compare_curvilinear(grid, gridRef);
+ }
+ else if (grid->type == GRID_UNSTRUCTURED)
+ {
+ differ = compare_unstructured(grid, gridRef, compareCoord);
+ }
+ }
+ }
+
+ int scanningModeA = cdiInqVarKeyInt(&grid->keys, CDI_KEY_SCANNINGMODE);
+ int scanningModeB = cdiInqVarKeyInt(&gridRef->keys, CDI_KEY_SCANNINGMODE);
+ if (scanningModeA != scanningModeB)
+ {
+ // often grid definition may differ in UV-relativeToGrid
+ differ = true;
+#ifdef HIRLAM_EXTENSIONS
+ if (cdiDebugExt >= 200)
+ printf("gridCompare(gridID=%d): Differs: scanningModeA [%d] != scanningModeB(gridID) [%d]\n", gridID, scanningModeA,
+ scanningModeB);
+#endif // HIRLAM_EXTENSIONS
+ }
+
+ return differ;
+}
+
+int
+cmp_key_int(const cdi_keys_t *keysp1, const cdi_keys_t *keysp2, int key)
+{
+ int v1 = cdiInqVarKeyInt(keysp1, key);
+ int v2 = cdiInqVarKeyInt(keysp2, key);
+ return (v1 != v2);
+}
+
+int
+gridCompareP(void *gridptr1, void *gridptr2)
+{
+ grid_t *g1 = (grid_t *) gridptr1;
+ grid_t *g2 = (grid_t *) gridptr2;
+ enum
+ {
+ equal = 0,
+ differ = -1
+ };
+
+ xassert(g1);
+ xassert(g2);
+
+ if (cdiInqVarKeyInt(&g1->keys, CDI_KEY_DATATYPE) != cdiInqVarKeyInt(&g2->keys, CDI_KEY_DATATYPE)) return differ;
+ if (g1->type != g2->type) return differ;
+ if (g1->isCyclic != g2->isCyclic) return differ;
+ if (g1->x.flag != g2->x.flag) return differ;
+ if (g1->y.flag != g2->y.flag) return differ;
+ if (g1->gme.nd != g2->gme.nd) return differ;
+ if (g1->gme.ni != g2->gme.ni) return differ;
+ if (g1->gme.ni2 != g2->gme.ni2) return differ;
+ if (g1->gme.ni3 != g2->gme.ni3) return differ;
+ if (cmp_key_int(&g1->keys, &g2->keys, CDI_KEY_NUMBEROFGRIDUSED)) return differ;
+ if (cmp_key_int(&g1->keys, &g2->keys, CDI_KEY_NUMBEROFGRIDINREFERENCE)) return differ;
+ if (g1->trunc != g2->trunc) return differ;
+ if (g1->nvertex != g2->nvertex) return differ;
+ if (g1->reducedPointsSize != g2->reducedPointsSize) return differ;
+ if (g1->size != g2->size) return differ;
+ if (g1->x.size != g2->x.size) return differ;
+ if (g1->y.size != g2->y.size) return differ;
+ if (g1->lcomplex != g2->lcomplex) return differ;
+
+ if (IS_NOT_EQUAL(g1->x.first, g2->x.first)) return differ;
+ if (IS_NOT_EQUAL(g1->y.first, g2->y.first)) return differ;
+ if (IS_NOT_EQUAL(g1->x.last, g2->x.last)) return differ;
+ if (IS_NOT_EQUAL(g1->y.last, g2->y.last)) return differ;
+ if (IS_NOT_EQUAL(g1->x.inc, g2->x.inc)) return differ;
+ if (IS_NOT_EQUAL(g1->y.inc, g2->y.inc)) return differ;
+ if (cmp_key_int(&g1->keys, &g2->keys, CDI_KEY_SCANNINGMODE)) return differ;
+
+ bool isIrregular = grid_is_irregular(g1->type);
+ {
+ const double *restrict g1_xvals = g1->vtable->inqXValsPtr(g1), *restrict g2_xvals = g2->vtable->inqXValsPtr(g2);
+ if ((g1_xvals != NULL) ^ (g2_xvals != NULL)) return differ;
+ if (g1_xvals)
+ {
+ size_t size = isIrregular ? g1->size : g1->x.size;
+ xassert(size);
+ for (size_t i = 0; i < size; i++)
+ if (IS_NOT_EQUAL(g1_xvals[i], g2_xvals[i])) return differ;
+ }
+ }
+
+ {
+ const double *restrict g1_yvals = g1->vtable->inqYValsPtr(g1), *restrict g2_yvals = g2->vtable->inqYValsPtr(g2);
+ if ((g1_yvals != NULL) ^ (g2_yvals != NULL)) return differ;
+ if (g1_yvals)
+ {
+ size_t size = isIrregular ? g1->size : g1->y.size;
+ xassert(size);
+ for (size_t i = 0; i < size; i++)
+ if (IS_NOT_EQUAL(g1_yvals[i], g2_yvals[i])) return differ;
+ }
+ }
+
+ {
+ const double *restrict g1_area = g1->vtable->inqAreaPtr(g1), *restrict g2_area = g2->vtable->inqAreaPtr(g2);
+ if ((g1_area != NULL) ^ (g2_area != NULL)) return differ;
+ if (g1_area)
+ {
+ size_t size = g1->size;
+ xassert(size);
+
+ for (size_t i = 0; i < size; i++)
+ if (IS_NOT_EQUAL(g1_area[i], g2_area[i])) return differ;
+ }
+ }
+
+ {
+ const double *restrict g1_xbounds = g1->vtable->inqXBoundsPtr(g1), *restrict g2_xbounds = g2->vtable->inqXBoundsPtr(g2);
+ if ((g1_xbounds != NULL) ^ (g2_xbounds != NULL)) return differ;
+ if (g1_xbounds)
+ {
+ xassert(g1->nvertex);
+ size_t size = g1->nvertex * (isIrregular ? g1->size : g1->x.size);
+ xassert(size);
+
+ for (size_t i = 0; i < size; i++)
+ if (IS_NOT_EQUAL(g1_xbounds[i], g2_xbounds[i])) return differ;
+ }
+ }
+
+ {
+ const double *restrict g1_ybounds = g1->vtable->inqYBoundsPtr(g1), *restrict g2_ybounds = g2->vtable->inqYBoundsPtr(g2);
+ if ((g1_ybounds != NULL) ^ (g2_ybounds != NULL)) return differ;
+ if (g1_ybounds)
+ {
+ xassert(g1->nvertex);
+ size_t size = g1->nvertex * (isIrregular ? g1->size : g1->y.size);
+ xassert(size);
+
+ for (size_t i = 0; i < size; i++)
+ if (IS_NOT_EQUAL(g1_ybounds[i], g2_ybounds[i])) return differ;
+ }
+ }
+
+ if (!str_is_equal(cdiInqVarKeyString(&g1->x.keys, CDI_KEY_NAME), cdiInqVarKeyString(&g2->x.keys, CDI_KEY_NAME))) return differ;
+ if (!str_is_equal(cdiInqVarKeyString(&g1->y.keys, CDI_KEY_NAME), cdiInqVarKeyString(&g2->y.keys, CDI_KEY_NAME))) return differ;
+ if (!str_is_equal(cdiInqVarKeyString(&g1->x.keys, CDI_KEY_LONGNAME), cdiInqVarKeyString(&g2->x.keys, CDI_KEY_LONGNAME)))
+ return differ;
+ if (!str_is_equal(cdiInqVarKeyString(&g1->y.keys, CDI_KEY_LONGNAME), cdiInqVarKeyString(&g2->y.keys, CDI_KEY_LONGNAME)))
+ return differ;
+ if (!str_is_equal(cdiInqVarKeyString(&g1->x.keys, CDI_KEY_UNITS), cdiInqVarKeyString(&g2->x.keys, CDI_KEY_UNITS))) return differ;
+ if (!str_is_equal(cdiInqVarKeyString(&g1->y.keys, CDI_KEY_UNITS), cdiInqVarKeyString(&g2->y.keys, CDI_KEY_UNITS))) return differ;
+ if (!str_is_equal(cdiInqVarKeyString(&g1->x.keys, CDI_KEY_STDNAME), cdiInqVarKeyString(&g2->x.keys, CDI_KEY_STDNAME)))
+ return differ;
+ if (!str_is_equal(cdiInqVarKeyString(&g1->y.keys, CDI_KEY_STDNAME), cdiInqVarKeyString(&g2->y.keys, CDI_KEY_STDNAME)))
+ return differ;
+
+ if (!str_is_equal(cdiInqVarKeyString(&g1->y.keys, CDI_KEY_REFERENCEURI), cdiInqVarKeyString(&g2->y.keys, CDI_KEY_REFERENCEURI)))
+ return differ;
+
+ if (g1->mask)
+ {
+ xassert(g1->size);
+ if (!g2->mask) return differ;
+ if (memcmp(g1->mask, g2->mask, g1->size * sizeof(mask_t))) return differ;
+ }
+ else if (g2->mask)
+ return differ;
+
+ if (g1->mask_gme)
+ {
+ xassert(g1->size);
+ if (!g2->mask_gme) return differ;
+ if (memcmp(g1->mask_gme, g2->mask_gme, g1->size * sizeof(mask_t))) return differ;
+ }
+ else if (g2->mask_gme)
+ return differ;
+
+ unsigned char uuid1[CDI_UUID_SIZE] = { 0 };
+ unsigned char uuid2[CDI_UUID_SIZE] = { 0 };
+ int length = CDI_UUID_SIZE;
+ cdiInqVarKeyBytes(&g1->keys, CDI_KEY_UUID, uuid1, &length);
+ length = CDI_UUID_SIZE;
+ cdiInqVarKeyBytes(&g2->keys, CDI_KEY_UUID, uuid2, &length);
+ if (memcmp(uuid1, uuid2, CDI_UUID_SIZE)) return differ;
+
+ return equal;
+}
+
+static void
+grid_complete(grid_t *grid)
+{
+ int gridID = grid->self;
+
+ if (grid->datatype != CDI_UNDEFID) cdiDefKeyInt(gridID, CDI_GLOBAL, CDI_KEY_DATATYPE, grid->datatype);
+
+ int gridtype = grid->type;
+ switch (gridtype)
+ {
+ case GRID_LONLAT:
+ case GRID_GAUSSIAN:
+ case GRID_UNSTRUCTURED:
+ case GRID_CURVILINEAR:
+ case GRID_GENERIC:
+ case GRID_PROJECTION:
+ case GRID_CHARXY:
+ {
+ if (grid->x.size > 0) gridDefXsize(gridID, grid->x.size);
+ if (grid->y.size > 0) gridDefYsize(gridID, grid->y.size);
+
+ if (gridtype == GRID_GAUSSIAN) gridDefNP(gridID, grid->np);
+
+ if (grid->nvertex > 0) gridDefNvertex(gridID, grid->nvertex);
+
+ if (grid->x.flag == 2)
+ {
+ assert(gridtype != GRID_UNSTRUCTURED && gridtype != GRID_CURVILINEAR);
+ double *xvals = (double *) Malloc(grid->x.size * sizeof(double));
+ gridGenXvals(grid->x.size, grid->x.first, grid->x.last, grid->x.inc, xvals);
+ grid->x.vals = xvals;
+ // gridDefXinc(gridID, grid->x.inc);
+ }
+
+ if (grid->y.flag == 2)
+ {
+ assert(gridtype != GRID_UNSTRUCTURED && gridtype != GRID_CURVILINEAR);
+ double *yvals = (double *) Malloc(grid->y.size * sizeof(double));
+ gridGenYvals(gridtype, grid->y.size, grid->y.first, grid->y.last, grid->y.inc, yvals);
+ grid->y.vals = yvals;
+ // gridDefYinc(gridID, grid->y.inc);
+ }
+
+ if (grid->projtype == CDI_PROJ_RLL)
+ {
+ const char *name = cdiInqVarKeyString(&grid->x.keys, CDI_KEY_NAME);
+ if (name[0] == 0 || name[0] == 'x') cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_NAME, "rlon");
+ name = cdiInqVarKeyString(&grid->y.keys, CDI_KEY_NAME);
+ if (name[0] == 0 || name[0] == 'y') cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_NAME, "rlat");
+ name = cdiInqVarKeyString(&grid->x.keys, CDI_KEY_LONGNAME);
+ if (name[0] == 0) cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_LONGNAME, "longitude in rotated pole grid");
+ name = cdiInqVarKeyString(&grid->y.keys, CDI_KEY_LONGNAME);
+ if (name[0] == 0) cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_LONGNAME, "latitude in rotated pole grid");
+ name = cdiInqVarKeyString(&grid->x.keys, CDI_KEY_UNITS);
+ if (name[0] == 0) cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_UNITS, "degrees");
+ name = cdiInqVarKeyString(&grid->y.keys, CDI_KEY_UNITS);
+ if (name[0] == 0) cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_UNITS, "degrees");
+ cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_grid_latlon][0]);
+ cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_STDNAME, xystdname_tab[grid_xystdname_grid_latlon][1]);
+ }
+
+ if (gridtype == GRID_UNSTRUCTURED)
+ {
+ int number = cdiInqVarKeyInt(&grid->keys, CDI_KEY_NUMBEROFGRIDUSED);
+ if (number > 0)
+ {
+ cdiDefKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDUSED, number);
+ int position = cdiInqVarKeyInt(&grid->keys, CDI_KEY_NUMBEROFGRIDINREFERENCE);
+ if (position > 0) cdiDefKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDINREFERENCE, position);
+ }
+ }
+
+ break;
+ }
+ case GRID_GAUSSIAN_REDUCED:
+ {
+ gridDefNP(gridID, grid->np);
+ gridDefYsize(gridID, grid->y.size);
+ if (grid->x.flag == 2)
+ {
+ double xvals[2] = { grid->x.first, grid->x.last };
+ gridDefXsize(gridID, 2);
+ gridDefXvals(gridID, xvals);
+ }
+
+ if (grid->y.flag == 2)
+ {
+ double *yvals = (double *) Malloc(grid->y.size * sizeof(double));
+ gridGenYvals(gridtype, grid->y.size, grid->y.first, grid->y.last, grid->y.inc, yvals);
+ grid->y.vals = yvals;
+ // gridDefYinc(gridID, grid->y.inc);
+ }
+ break;
+ }
+ case GRID_SPECTRAL:
+ {
+ gridDefTrunc(gridID, grid->trunc);
+ if (grid->lcomplex) gridDefComplexPacking(gridID, 1);
+ break;
+ }
+ case GRID_FOURIER:
+ {
+ gridDefTrunc(gridID, grid->trunc);
+ break;
+ }
+ case GRID_GME:
+ {
+ gridDefParamGME(gridID, grid->gme.nd, grid->gme.ni, grid->gme.ni2, grid->gme.ni3);
+ break;
+ }
+ /*
+ case GRID_GENERIC:
+ {
+ if ( grid->x.size > 0 && grid->y.size > 0 )
+ {
+ gridDefXsize(gridID, grid->x.size);
+ gridDefYsize(gridID, grid->y.size);
+ if ( grid->x.vals ) gridDefXvals(gridID, grid->x.vals);
+ if ( grid->y.vals ) gridDefYvals(gridID, grid->y.vals);
+ }
+ break;
+ }
+ */
+ case GRID_TRAJECTORY:
+ {
+ gridDefXsize(gridID, 1);
+ gridDefYsize(gridID, 1);
+ break;
+ }
+ default:
+ {
+ Error("Gridtype %s unsupported!", gridNamePtr(gridtype));
+ break;
+ }
+ }
+}
+
+// Used only in iterator_grib.c
+int
+gridGenerate(const grid_t *grid)
+{
+ int gridtype = grid->type;
+ int gridID = gridCreate(gridtype, grid->size);
+ grid_t *restrict gridptr = grid_to_pointer(gridID);
+ cdiCopyVarKey(&grid->keys, CDI_KEY_DATATYPE, &gridptr->keys);
+ gridptr->x.size = grid->x.size;
+ gridptr->y.size = grid->y.size;
+ gridptr->np = grid->np;
+ gridptr->nvertex = grid->nvertex;
+ gridptr->x.flag = grid->x.flag;
+ int valdef_group1 = 0;
+ static const int valdef_group1_tab[]
+ = { GRID_LONLAT, GRID_GAUSSIAN, GRID_UNSTRUCTURED, GRID_CURVILINEAR, GRID_GENERIC, GRID_PROJECTION };
+ for (size_t i = 0; i < sizeof(valdef_group1_tab) / sizeof(valdef_group1_tab[0]); ++i)
+ valdef_group1 |= (gridtype == valdef_group1_tab[i]);
+ if (valdef_group1 && grid->x.flag == 1)
+ {
+ gridDefXvals(gridID, grid->x.vals);
+ if (grid->x.bounds) gridDefXbounds(gridID, grid->x.bounds);
+ }
+ gridptr->x.first = grid->x.first;
+ gridptr->x.last = grid->x.last;
+ gridptr->x.inc = grid->x.inc;
+ gridptr->y.flag = grid->y.flag;
+ if ((valdef_group1 || gridtype == GRID_GAUSSIAN_REDUCED) && grid->y.flag == 1)
+ {
+ gridDefYvals(gridID, grid->y.vals);
+ if (grid->y.bounds) gridDefYbounds(gridID, grid->y.bounds);
+ }
+ gridptr->y.first = grid->y.first;
+ gridptr->y.last = grid->y.last;
+ gridptr->y.inc = grid->y.inc;
+ if (valdef_group1 && grid->area) gridDefArea(gridID, grid->area);
+
+ cdiCopyVarKey(&grid->keys, CDI_KEY_NUMBEROFGRIDUSED, &gridptr->keys);
+ cdiCopyVarKey(&grid->keys, CDI_KEY_NUMBEROFGRIDINREFERENCE, &gridptr->keys);
+ cdiCopyVarKey(&grid->keys, CDI_KEY_REFERENCEURI, &gridptr->keys);
+
+ cdiCopyVarKey(&grid->keys, CDI_KEY_SCANNINGMODE, &gridptr->keys);
+
+ if (gridtype == GRID_PROJECTION) gridptr->name = strdup(grid->name);
+ if (gridtype == GRID_GAUSSIAN_REDUCED) gridDefReducedPoints(gridID, grid->y.size, grid->reducedPoints);
+ gridptr->trunc = grid->trunc;
+ gridptr->lcomplex = grid->lcomplex;
+ gridptr->gme.nd = grid->gme.nd;
+ gridptr->gme.ni = grid->gme.ni;
+ gridptr->gme.ni2 = grid->gme.ni2;
+ gridptr->gme.ni3 = grid->gme.ni3;
+
+ grid_complete(gridptr);
+
+ cdiCopyVarKey(&grid->keys, CDI_KEY_UUID, &gridptr->keys);
+
+ return gridID;
+}
+
+static void
+grid_copy_base_array_fields(grid_t *gridptrOrig, grid_t *gridptrDup)
+{
+ size_t reducedPointsSize = (SizeType) gridptrOrig->reducedPointsSize;
+ size_t gridsize = gridptrOrig->size;
+ int gridtype = gridptrOrig->type;
+ bool isIrregular = grid_is_irregular(gridtype);
+ if (reducedPointsSize)
+ {
+ gridptrDup->reducedPoints = (int *) Malloc(reducedPointsSize * sizeof(int));
+ memcpy(gridptrDup->reducedPoints, gridptrOrig->reducedPoints, reducedPointsSize * sizeof(int));
+ }
+
+ if (gridptrOrig->x.vals != NULL)
+ {
+ size_t size = isIrregular ? gridsize : gridptrOrig->x.size;
+ gridptrDup->x.vals = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->x.vals, gridptrOrig->x.vals, size * sizeof(double));
+ }
+
+ if (gridptrOrig->y.vals != NULL)
+ {
+ size_t size = isIrregular ? gridsize : gridptrOrig->y.size;
+ gridptrDup->y.vals = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->y.vals, gridptrOrig->y.vals, size * sizeof(double));
+ }
+
+ if (gridptrOrig->x.bounds != NULL)
+ {
+ size_t size = (isIrregular ? gridsize : gridptrOrig->x.size) * gridptrOrig->nvertex;
+ gridptrDup->x.bounds = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->x.bounds, gridptrOrig->x.bounds, size * sizeof(double));
+ }
+
+ if (gridptrOrig->y.bounds != NULL)
+ {
+ size_t size = (isIrregular ? gridsize : gridptrOrig->y.size) * gridptrOrig->nvertex;
+ gridptrDup->y.bounds = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->y.bounds, gridptrOrig->y.bounds, size * sizeof(double));
+ }
+
+ {
+ const double *gridptrOrig_area = gridptrOrig->vtable->inqAreaPtr(gridptrOrig);
+ if (gridptrOrig_area != NULL)
+ {
+ size_t size = gridsize;
+ gridptrDup->area = (double *) Malloc(size * sizeof(double));
+ memcpy(gridptrDup->area, gridptrOrig_area, size * sizeof(double));
+ }
+ }
+
+ if (gridptrOrig->mask != NULL)
+ {
+ size_t size = gridsize;
+ gridptrDup->mask = (mask_t *) Malloc(size * sizeof(mask_t));
+ memcpy(gridptrDup->mask, gridptrOrig->mask, size * sizeof(mask_t));
+ }
+
+ if (gridptrOrig->mask_gme != NULL)
+ {
+ size_t size = gridsize;
+ gridptrDup->mask_gme = (mask_t *) Malloc(size * sizeof(mask_t));
+ memcpy(gridptrDup->mask_gme, gridptrOrig->mask_gme, size * sizeof(mask_t));
+ }
+}
+
+/*
+@Function gridDuplicate
+@Title Duplicate a horizontal Grid
+
+@Prototype int gridDuplicate(int gridID)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridDuplicate} duplicates a horizontal Grid.
+
+@Result
+@func{gridDuplicate} returns an identifier to the duplicated Grid.
+
+@EndFunction
+*/
+int
+gridDuplicate(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ grid_t *gridptrnew = gridptr->vtable->copy(gridptr);
+ int gridIDnew = reshPut(gridptrnew, &gridOps);
+ gridptrnew->self = gridIDnew;
+ return gridIDnew;
+}
+
+void
+gridCompress(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ int gridtype = gridInqType(gridID);
+ if (gridtype == GRID_UNSTRUCTURED)
+ {
+ if (gridptr->mask_gme != NULL)
+ {
+ size_t gridsize = gridInqSize(gridID);
+ size_t nv = (size_t) gridptr->nvertex;
+ double *restrict area = (double *) gridptr->vtable->inqAreaPtr(gridptr),
+ *restrict xvals = (double *) gridptr->vtable->inqXValsPtr(gridptr),
+ *restrict yvals = (double *) gridptr->vtable->inqYValsPtr(gridptr),
+ *restrict xbounds = (double *) gridptr->vtable->inqXBoundsPtr(gridptr),
+ *restrict ybounds = (double *) gridptr->vtable->inqYBoundsPtr(gridptr);
+ mask_t *restrict mask_gme = gridptr->mask_gme;
+ size_t *restrict selection = (size_t *) Malloc(gridsize * sizeof(selection[0]));
+ size_t nselect;
+ {
+ size_t j = 0;
+ for (size_t i = 0; i < gridsize; i++) selection[j] = i, j += (mask_gme[i] != 0);
+ nselect = j;
+ }
+ selection = (size_t *) Realloc(selection, nselect * sizeof(selection[0]));
+ if (xvals)
+ for (size_t i = 0; i < nselect; i++) xvals[i] = xvals[selection[i]];
+ if (yvals)
+ for (size_t i = 0; i < nselect; i++) yvals[i] = yvals[selection[i]];
+ if (area)
+ for (size_t i = 0; i < nselect; i++) area[i] = area[selection[i]];
+ if (xbounds)
+ for (size_t i = 0; i < nselect; i++)
+ for (size_t iv = 0; iv < nv; iv++) xbounds[i * nv + iv] = xbounds[selection[i] * nv + iv];
+ if (ybounds)
+ for (size_t i = 0; i < nselect; i++)
+ for (size_t iv = 0; iv < nv; iv++) ybounds[i * nv + iv] = ybounds[selection[i] * nv + iv];
+ Free(selection);
+
+ /* fprintf(stderr, "grid compress %d %d %d\n", i, j, gridsize); */
+ gridsize = nselect;
+ gridptr->size = (int) gridsize;
+ gridptr->x.size = (int) gridsize;
+ gridptr->y.size = (int) gridsize;
+
+ double **resizeP[] = { &gridptr->x.vals, &gridptr->y.vals, &gridptr->area, &gridptr->x.bounds, &gridptr->y.bounds };
+ size_t newSize[] = { gridsize, gridsize, gridsize, nv * gridsize, nv * gridsize };
+ for (size_t i = 0; i < sizeof(resizeP) / sizeof(resizeP[0]); ++i)
+ if (*(resizeP[i])) *(resizeP[i]) = (double *) Realloc(*(resizeP[i]), newSize[i] * sizeof(double));
+
+ Free(gridptr->mask_gme);
+ gridptr->mask_gme = NULL;
+ gridMark4Update(gridID);
+ }
+ }
+ else
+ Warning("Unsupported grid type: %s", gridNamePtr(gridtype));
+}
+
+static void
+gridDefAreaSerial(grid_t *gridptr, const double *area)
+{
+ size_t size = gridptr->size;
+
+ if (size == 0) Error("size undefined for gridID = %d", gridptr->self);
+
+ if (gridptr->area == NULL)
+ gridptr->area = (double *) Malloc(size * sizeof(double));
+ else if (CDI_Debug)
+ Warning("values already defined!");
+
+ memcpy(gridptr->area, area, size * sizeof(double));
+}
+
+void
+gridDefArea(int gridID, const double *area)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->vtable->defArea(gridptr, area);
+ gridMark4Update(gridID);
+}
+
+static void
+gridInqAreaSerial(grid_t *gridptr, double *area)
+{
+ if (gridptr->area) memcpy(area, gridptr->area, gridptr->size * sizeof(double));
+}
+
+void
+gridInqArea(int gridID, double *area)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->vtable->inqArea(gridptr, area);
+}
+
+static int
+gridInqPropPresenceBase(grid_t *gridptr, enum gridPropInq inq)
+{
+ bool present = false;
+ switch (inq)
+ {
+ case GRID_PROP_MASK: present = gridptr->mask != NULL; break;
+ case GRID_PROP_MASK_GME: present = gridptr->mask != NULL; break;
+ case GRID_PROP_AREA: present = gridptr->area != NULL; break;
+ case GRID_PROP_XVALS: present = gridptr->x.vals != NULL; break;
+ case GRID_PROP_YVALS: present = gridptr->y.vals != NULL; break;
+ case GRID_PROP_XBOUNDS: present = gridptr->x.bounds != NULL; break;
+ case GRID_PROP_YBOUNDS: present = gridptr->y.bounds != NULL; break;
+ }
+ return present;
+}
+
+int
+gridInqPropPresence(int gridID, enum gridPropInq inq)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqPropPresence(gridptr, inq);
+}
+
+int
+gridHasArea(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqPropPresence(gridptr, GRID_PROP_AREA);
+}
+
+static const double *
+gridInqAreaPtrBase(grid_t *gridptr)
+{
+ return gridptr->area;
+}
+
+const double *
+gridInqAreaPtr(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqAreaPtr(gridptr);
+}
+
+void
+gridDefNvertex(int gridID, int nvertex)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ if (gridptr->nvertex != nvertex)
+ {
+ gridptr->nvertex = nvertex;
+ gridMark4Update(gridID);
+ }
+}
+
+int
+gridInqNvertex(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->nvertex;
+}
+
+static void
+gridDefBoundsGeneric(grid_t *gridptr, const double *bounds, size_t regularSize, double **field)
+{
+ bool isIrregular = grid_is_irregular(gridptr->type);
+ size_t nvertex = (size_t) gridptr->nvertex;
+ if (nvertex == 0)
+ {
+ Warning("nvertex undefined for gridID = %d. Cannot define bounds!", gridptr->self);
+ return;
+ }
+
+ size_t size = nvertex * (isIrregular ? gridptr->size : regularSize);
+ if (size == 0) Error("size undefined for gridID = %d", gridptr->self);
+
+ if (*field == NULL && size)
+ *field = (double *) Malloc(size * sizeof(double));
+ else if (CDI_Debug)
+ Warning("values already defined!");
+
+ copy_darray(size, bounds, *field);
+}
+
+static void
+gridDefXBoundsSerial(grid_t *gridptr, const double *xbounds)
+{
+ gridDefBoundsGeneric(gridptr, xbounds, gridptr->x.size, &gridptr->x.bounds);
+}
+
+/*
+@Function gridDefXbounds
+@Title Define the bounds of a X-axis
+
+@Prototype void gridDefXbounds(int gridID, const double *xbounds)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item xbounds X-bounds of the grid.
+
+@Description
+The function @func{gridDefXbounds} defines all bounds of the X-axis.
+
+@EndFunction
+*/
+void
+gridDefXbounds(int gridID, const double *xbounds)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->vtable->defXBounds(gridptr, xbounds);
+ gridMark4Update(gridID);
+}
+
+static SizeType
+gridInqXBoundsSerial(grid_t *gridptr, double *xbounds)
+{
+ size_t nvertex = (size_t) gridptr->nvertex;
+
+ bool isIrregular = grid_is_irregular(gridptr->type);
+ size_t size = nvertex * (isIrregular ? gridptr->size : gridptr->x.size);
+
+ if (gridptr->x.bounds)
+ {
+ if (size && xbounds)
+ {
+ const double *gridptr_xbounds = gridptr->vtable->inqXBoundsPtr(gridptr);
+ copy_darray(size, gridptr_xbounds, xbounds);
+ }
+ }
+ else
+ size = 0;
+
+ return (SizeType) size;
+}
+
+/*
+@Function gridInqXbounds
+@Title Get the bounds of a X-axis
+
+@Prototype SizeType gridInqXbounds(int gridID, double *xbounds)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item xbounds Pointer to the location into which the X-bounds are read.
+ The caller must allocate space for the returned values.
+
+@Description
+The function @func{gridInqXbounds} returns the bounds of the X-axis.
+
+@Result
+Upon successful completion @func{gridInqXbounds} returns the number of bounds and
+the bounds are stored in @func{xbounds}.
+Otherwise, 0 is returned and @func{xbounds} is empty.
+
+@EndFunction
+*/
+SizeType
+gridInqXbounds(int gridID, double *xbounds)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqXBounds(gridptr, xbounds);
+}
+
+static const double *
+gridInqXBoundsPtrSerial(grid_t *gridptr)
+{
+ return gridptr->x.bounds;
+}
+
+const double *
+gridInqXboundsPtr(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqXBoundsPtr(gridptr);
+}
+
+static void
+gridDefYBoundsSerial(grid_t *gridptr, const double *ybounds)
+{
+ gridDefBoundsGeneric(gridptr, ybounds, gridptr->y.size, &gridptr->y.bounds);
+}
+
+//----------------------------------------------------------------------------
+// Parallel Version
+//----------------------------------------------------------------------------
+
+SizeType
+gridInqXboundsPart(int gridID, int start, SizeType size, double *xbounds)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ const double *gridptr_xbounds = gridptr->vtable->inqXBoundsPtr(gridptr);
+ if (gridptr_xbounds && size && xbounds) memcpy(xbounds, gridptr_xbounds + start, size * sizeof(double));
+
+ return size;
+}
+
+SizeType
+gridInqYboundsPart(int gridID, int start, SizeType size, double *ybounds)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ const double *gridptr_ybounds = gridptr->vtable->inqYBoundsPtr(gridptr);
+ if (gridptr_ybounds && size && ybounds) memcpy(ybounds, gridptr_ybounds + start, size * sizeof(double));
+
+ return size;
+}
+
+/*
+@Function gridDefYbounds
+@Title Define the bounds of a Y-axis
+
+@Prototype void gridDefYbounds(int gridID, const double *ybounds)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item ybounds Y-bounds of the grid.
+
+@Description
+The function @func{gridDefYbounds} defines all bounds of the Y-axis.
+
+@EndFunction
+*/
+void
+gridDefYbounds(int gridID, const double *ybounds)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->vtable->defYBounds(gridptr, ybounds);
+ gridMark4Update(gridID);
+}
+
+static SizeType
+gridInqYBoundsSerial(grid_t *gridptr, double *ybounds)
+{
+ size_t nvertex = (size_t) gridptr->nvertex;
+
+ bool isIrregular = grid_is_irregular(gridptr->type);
+ size_t size = nvertex * (isIrregular ? gridptr->size : gridptr->y.size);
+
+ if (gridptr->y.bounds)
+ {
+ if (size && ybounds)
+ {
+ const double *gridptr_ybounds = gridptr->vtable->inqYBoundsPtr(gridptr);
+ copy_darray(size, gridptr_ybounds, ybounds);
+ }
+ }
+ else
+ size = 0;
+
+ return (SizeType) size;
+}
+
+/*
+@Function gridInqYbounds
+@Title Get the bounds of a Y-axis
+
+@Prototype SizeType gridInqYbounds(int gridID, double *ybounds)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item ybounds Pointer to the location into which the Y-bounds are read.
+ The caller must allocate space for the returned values.
+
+@Description
+The function @func{gridInqYbounds} returns the bounds of the Y-axis.
+
+@Result
+Upon successful completion @func{gridInqYbounds} returns the number of bounds and
+the bounds are stored in @func{ybounds}.
+Otherwise, 0 is returned and @func{ybounds} is empty.
+
+@EndFunction
+*/
+SizeType
+gridInqYbounds(int gridID, double *ybounds)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqYBounds(gridptr, ybounds);
+}
+
+static const double *
+gridInqYBoundsPtrSerial(grid_t *gridptr)
+{
+ return gridptr->y.bounds;
+}
+
+const double *
+gridInqYboundsPtr(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqYBoundsPtr(gridptr);
+}
+
+static void
+printDblsPrefixAutoBrk(FILE *fp, int dig, const char prefix[], size_t nbyte0, size_t n, const double vals[])
+{
+ fputs(prefix, fp);
+ size_t nbyte = nbyte0;
+ for (size_t i = 0; i < n; i++)
+ {
+ if (nbyte > 80)
+ {
+ fprintf(fp, "\n%*s", (int) nbyte0, "");
+ nbyte = nbyte0;
+ }
+ nbyte += (size_t) fprintf(fp, "%.*g ", dig, vals[i]);
+ }
+ fputs("\n", fp);
+}
+
+static inline void *
+resizeBuffer(void **buf, size_t *bufSize, size_t reqSize)
+{
+ if (reqSize > *bufSize)
+ {
+ *buf = Realloc(*buf, reqSize);
+ *bufSize = reqSize;
+ }
+ return *buf;
+}
+
+static void
+gridPrintAttributes(FILE *fp, int gridID)
+{
+ int cdiID = gridID;
+ int varID = CDI_GLOBAL;
+ int atttype, attlen;
+ char attname[CDI_MAX_NAME + 1];
+ void *attBuf = NULL;
+ size_t attBufSize = 0;
+
+ int natts;
+ cdiInqNatts(cdiID, varID, &natts);
+
+ for (int iatt = 0; iatt < natts; ++iatt)
+ {
+ cdiInqAtt(cdiID, varID, iatt, attname, &atttype, &attlen);
+
+ if (attlen == 0) continue;
+
+ if (atttype == CDI_DATATYPE_TXT)
+ {
+ size_t attSize = (size_t) (attlen + 1) * sizeof(char);
+ char *atttxt = (char *) resizeBuffer(&attBuf, &attBufSize, attSize);
+ cdiInqAttTxt(cdiID, varID, attname, attlen, atttxt);
+ atttxt[attlen] = 0;
+ fprintf(fp, "ATTR_TXT: %s = \"%s\"\n", attname, atttxt);
+ }
+ else if (atttype == CDI_DATATYPE_INT8 || atttype == CDI_DATATYPE_UINT8 || atttype == CDI_DATATYPE_INT16
+ || atttype == CDI_DATATYPE_UINT16 || atttype == CDI_DATATYPE_INT32 || atttype == CDI_DATATYPE_UINT32)
+ {
+ size_t attSize = (size_t) attlen * sizeof(int);
+ int *attint = (int *) resizeBuffer(&attBuf, &attBufSize, attSize);
+ cdiInqAttInt(cdiID, varID, attname, attlen, &attint[0]);
+ if (attlen == 1)
+ fprintf(fp, "ATTR_INT: %s =", attname);
+ else
+ fprintf(fp, "ATTR_INT_%d: %s =", attlen, attname);
+ for (int i = 0; i < attlen; ++i) fprintf(fp, " %d", attint[i]);
+ fprintf(fp, "\n");
+ }
+ else if (atttype == CDI_DATATYPE_FLT32 || atttype == CDI_DATATYPE_FLT64)
+ {
+ size_t attSize = (size_t) attlen * sizeof(double);
+ double *attflt = (double *) resizeBuffer(&attBuf, &attBufSize, attSize);
+ int dig = (atttype == CDI_DATATYPE_FLT64) ? 15 : 7;
+ cdiInqAttFlt(cdiID, varID, attname, attlen, attflt);
+ if (attlen == 1)
+ fprintf(fp, "ATTR_FLT: %s =", attname);
+ else
+ fprintf(fp, "ATTR_FLT_%d: %s =", attlen, attname);
+ for (int i = 0; i < attlen; ++i) fprintf(fp, " %.*g", dig, attflt[i]);
+ fprintf(fp, "\n");
+ }
+ }
+
+ Free(attBuf);
+}
+
+static void
+gridPrintKernel(int gridID, int opt, FILE *fp)
+{
+ char attstr[CDI_MAX_NAME];
+ char attstr2[CDI_MAX_NAME];
+ size_t nxvals = gridInqXvals(gridID, NULL);
+ size_t nyvals = gridInqYvals(gridID, NULL);
+
+ int type = gridInqType(gridID);
+ size_t gridsize = gridInqSize(gridID);
+ size_t xsize = gridInqXsize(gridID);
+ size_t ysize = gridInqYsize(gridID);
+ int nvertex = gridInqNvertex(gridID);
+ int datatype;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_DATATYPE, &datatype);
+
+ int dig = (datatype == CDI_DATATYPE_FLT64) ? 15 : 7;
+
+ fprintf(fp,
+ "gridtype = %s\n"
+ "gridsize = %zu\n",
+ gridNamePtr(type), gridsize);
+
+ if (type != GRID_GME)
+ {
+ if (type != GRID_UNSTRUCTURED && type != GRID_SPECTRAL && type != GRID_FOURIER)
+ {
+ if (xsize > 0) fprintf(fp, "xsize = %zu\n", xsize);
+ if (ysize > 0) fprintf(fp, "ysize = %zu\n", ysize);
+ }
+
+ if (nxvals > 0)
+ {
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_XAXIS, CDI_KEY_NAME, attstr, &length);
+ if (attstr[0]) fprintf(fp, "xname = %s\n", attstr);
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_XAXIS, CDI_KEY_DIMNAME, attstr2, &length);
+ if (attstr2[0] && !str_is_equal(attstr, attstr2)) fprintf(fp, "xdimname = %s\n", attstr2);
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_XAXIS, CDI_KEY_LONGNAME, attstr, &length);
+ if (attstr[0]) fprintf(fp, "xlongname = %s\n", attstr);
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_XAXIS, CDI_KEY_UNITS, attstr, &length);
+ if (attstr[0]) fprintf(fp, "xunits = %s\n", attstr);
+ }
+
+ if (nyvals > 0)
+ {
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_YAXIS, CDI_KEY_NAME, attstr, &length);
+ if (attstr[0]) fprintf(fp, "yname = %s\n", attstr);
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_YAXIS, CDI_KEY_DIMNAME, attstr2, &length);
+ if (attstr2[0] && !str_is_equal(attstr, attstr2)) fprintf(fp, "ydimname = %s\n", attstr2);
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_YAXIS, CDI_KEY_LONGNAME, attstr, &length);
+ if (attstr[0]) fprintf(fp, "ylongname = %s\n", attstr);
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_YAXIS, CDI_KEY_UNITS, attstr, &length);
+ if (attstr[0]) fprintf(fp, "yunits = %s\n", attstr);
+ }
+
+ if (type == GRID_UNSTRUCTURED && nvertex > 0) fprintf(fp, "nvertex = %d\n", nvertex);
+ }
+
+ switch (type)
+ {
+ case GRID_LONLAT:
+ case GRID_GAUSSIAN:
+ case GRID_GAUSSIAN_REDUCED:
+ case GRID_GENERIC:
+ case GRID_PROJECTION:
+ case GRID_CURVILINEAR:
+ case GRID_UNSTRUCTURED:
+ case GRID_CHARXY:
+ {
+ if (type == GRID_GAUSSIAN || type == GRID_GAUSSIAN_REDUCED) fprintf(fp, "np = %d\n", gridInqNP(gridID));
+
+ if (type == GRID_UNSTRUCTURED)
+ {
+ int number = 0;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDUSED, &number);
+ if (number > 0)
+ {
+ fprintf(fp, "number = %d\n", number);
+ int position = 0;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDINREFERENCE, &position);
+ if (position >= 0) fprintf(fp, "position = %d\n", position);
+ }
+
+ int length;
+ if (CDI_NOERR == cdiInqKeyLen(gridID, CDI_GLOBAL, CDI_KEY_REFERENCEURI, &length))
+ {
+ char reference_link[8192];
+ length = sizeof(reference_link);
+ cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_REFERENCEURI, reference_link, &length);
+ fprintf(fp, "uri = %s\n", reference_link);
+ }
+ }
+
+ if (nxvals > 0)
+ {
+ double xfirst = 0.0, xinc = 0.0;
+
+ if (type == GRID_LONLAT || type == GRID_GAUSSIAN || type == GRID_PROJECTION || type == GRID_GENERIC)
+ {
+ xfirst = gridInqXval(gridID, 0);
+ xinc = gridInqXinc(gridID);
+ }
+
+ if (IS_NOT_EQUAL(xinc, 0) && opt)
+ {
+ fprintf(fp,
+ "xfirst = %.*g\n"
+ "xinc = %.*g\n",
+ dig, xfirst, dig, xinc);
+ }
+ else
+ {
+ double *xvals = (double *) Malloc(nxvals * sizeof(double));
+ gridInqXvals(gridID, xvals);
+ static const char prefix[] = "xvals = ";
+ printDblsPrefixAutoBrk(fp, dig, prefix, sizeof(prefix) - 1, nxvals, xvals);
+ Free(xvals);
+ }
+ }
+
+ if (nyvals > 0)
+ {
+ double yfirst = 0.0, yinc = 0.0;
+
+ if (type == GRID_LONLAT || type == GRID_GENERIC || type == GRID_PROJECTION || type == GRID_GENERIC)
+ {
+ yfirst = gridInqYval(gridID, 0);
+ yinc = gridInqYinc(gridID);
+ }
+
+ if (IS_NOT_EQUAL(yinc, 0) && opt)
+ {
+ fprintf(fp,
+ "yfirst = %.*g\n"
+ "yinc = %.*g\n",
+ dig, yfirst, dig, yinc);
+ }
+ else
+ {
+ double *yvals = (double *) Malloc(nyvals * sizeof(double));
+ gridInqYvals(gridID, yvals);
+ static const char prefix[] = "yvals = ";
+ printDblsPrefixAutoBrk(fp, dig, prefix, sizeof(prefix) - 1, nyvals, yvals);
+ Free(yvals);
+ }
+ }
+
+ if (type == GRID_PROJECTION) gridPrintAttributes(fp, gridID);
+
+ break;
+ }
+ case GRID_SPECTRAL:
+ {
+ fprintf(fp,
+ "truncation = %d\n"
+ "complexpacking = %d\n",
+ gridInqTrunc(gridID), gridInqComplexPacking(gridID));
+ break;
+ }
+ case GRID_FOURIER:
+ {
+ fprintf(fp, "truncation = %d\n", gridInqTrunc(gridID));
+ break;
+ }
+ case GRID_GME:
+ {
+ int nd, ni, ni2, ni3;
+ gridInqParamGME(gridID, &nd, &ni, &ni2, &ni3);
+ fprintf(fp, "ni = %d\n", ni);
+ break;
+ }
+ default:
+ {
+ fprintf(stderr, "Unsupported grid type: %s\n", gridNamePtr(type));
+ break;
+ }
+ }
+}
+
+void
+gridPrintP(void *voidptr, FILE *fp)
+{
+ grid_t *gridptr = (grid_t *) voidptr;
+ int gridID = gridptr->self;
+
+ xassert(gridptr);
+
+ gridPrintKernel(gridID, 0, fp);
+
+ int datatype = CDI_UNDEFID;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_DATATYPE, &datatype);
+
+ fprintf(fp,
+ "datatype = %d\n"
+ "nd = %d\n"
+ "ni = %d\n"
+ "ni2 = %d\n"
+ "ni3 = %d\n"
+ "trunc = %d\n"
+ "lcomplex = %d\n"
+ "reducedPointsSize = %d\n",
+ datatype, gridptr->gme.nd, gridptr->gme.ni, gridptr->gme.ni2, gridptr->gme.ni3, gridptr->trunc, gridptr->lcomplex,
+ gridptr->reducedPointsSize);
+}
+
+static const double *
+gridInqXValsPtrSerial(grid_t *gridptr)
+{
+ return gridptr->x.vals;
+}
+
+#ifndef USE_MPI
+static const char **
+gridInqXCvalsPtrSerial(grid_t *gridptr)
+{
+ return (const char **) gridptr->x.cvals;
+}
+#endif
+
+const double *
+gridInqXvalsPtr(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqXValsPtr(gridptr);
+}
+
+#ifndef USE_MPI
+const char **
+gridInqXCvalsPtr(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqXCvalsPtr(gridptr);
+}
+#endif
+
+static const double *
+gridInqYValsPtrSerial(grid_t *gridptr)
+{
+ return gridptr->y.vals;
+}
+
+#ifndef USE_MPI
+static const char **
+gridInqYCvalsPtrSerial(grid_t *gridptr)
+{
+ return (const char **) gridptr->y.cvals;
+}
+#endif
+
+const double *
+gridInqYvalsPtr(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqYValsPtr(gridptr);
+}
+
+#ifndef USE_MPI
+const char **
+gridInqYCvalsPtr(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+ return gridptr->vtable->inqYCvalsPtr(gridptr);
+}
+#endif
+
+void
+gridProjParamsInit(struct CDI_GridProjParams *gpp)
+{
+ // clang-format off
+ gpp->mv = CDI_Grid_Missval; // Missing value
+ gpp->lon_0 = CDI_Grid_Missval; // The East longitude of the meridian which is parallel to the Y-axis
+ gpp->lat_0 = CDI_Grid_Missval; // Latitude of the projection origin
+ gpp->lat_1 = CDI_Grid_Missval; // First latitude from the pole at which the secant cone cuts the sphere
+ gpp->lat_2 = CDI_Grid_Missval; // Second latitude at which the secant cone cuts the sphere
+ gpp->a = CDI_Grid_Missval; // Semi-major axis or earth radius in metres (optional)
+ gpp->b = CDI_Grid_Missval; // Semi-minor axis in metres (optional)
+ gpp->rf = CDI_Grid_Missval; // Inverse flattening (1/f) (optional)
+ gpp->xval_0 = CDI_Grid_Missval; // Longitude of the first grid point in degree (optional)
+ gpp->yval_0 = CDI_Grid_Missval; // Latitude of the first grid point in degree (optional)
+ gpp->x_0 = CDI_Grid_Missval; // False easting (optional)
+ gpp->y_0 = CDI_Grid_Missval; // False northing (optional)
+ gpp->x_SP = CDI_Grid_Missval; // Longitude of southern pole
+ gpp->y_SP = CDI_Grid_Missval; // Latitude of southern pole
+ gpp->nside = 0; // HEALPix number of points along a side (number of data points should be = 12 * nside * nside)
+ gpp->order = -1; // HEALPix ordering convention (0:ring; 1:nested)
+ // clang-format on
+}
+
+static void
+gridDefParamsCommon(int gridID, struct CDI_GridProjParams gpp)
+{
+ if (IS_NOT_EQUAL(gpp.a, gpp.mv))
+ {
+ if (IS_NOT_EQUAL(gpp.b, gpp.mv))
+ {
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "semi_major_axis", CDI_DATATYPE_FLT64, 1, &gpp.a);
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "semi_minor_axis", CDI_DATATYPE_FLT64, 1, &gpp.b);
+ }
+ else
+ {
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "earth_radius", CDI_DATATYPE_FLT64, 1, &gpp.a);
+ }
+ }
+ if (IS_NOT_EQUAL(gpp.rf, gpp.mv)) cdiDefAttFlt(gridID, CDI_GLOBAL, "inverse_flattening", CDI_DATATYPE_FLT64, 1, &gpp.rf);
+ if (IS_NOT_EQUAL(gpp.x_0, gpp.mv)) cdiDefAttFlt(gridID, CDI_GLOBAL, "false_easting", CDI_DATATYPE_FLT64, 1, &gpp.x_0);
+ if (IS_NOT_EQUAL(gpp.y_0, gpp.mv)) cdiDefAttFlt(gridID, CDI_GLOBAL, "false_northing", CDI_DATATYPE_FLT64, 1, &gpp.y_0);
+ if (IS_NOT_EQUAL(gpp.xval_0, gpp.mv))
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "longitudeOfFirstGridPointInDegrees", CDI_DATATYPE_FLT64, 1, &gpp.xval_0);
+ if (IS_NOT_EQUAL(gpp.yval_0, gpp.mv))
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "latitudeOfFirstGridPointInDegrees", CDI_DATATYPE_FLT64, 1, &gpp.yval_0);
+ if (IS_NOT_EQUAL(gpp.x_SP, gpp.mv))
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "longitudeOfSouthernPoleInDegrees", CDI_DATATYPE_FLT64, 1, &gpp.x_SP);
+ if (IS_NOT_EQUAL(gpp.y_SP, gpp.mv))
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "latitudeOfSouthernPoleInDegrees", CDI_DATATYPE_FLT64, 1, &gpp.y_SP);
+}
+
+/*
+@Function gridDefParamsLCC
+@Title Define the parameters of a Lambert Conformal Conic grid
+
+@Prototype void gridDefParamsLCC(int gridID, struct CDI_GridProjParams gridProjParams)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item gridProjParams Grid projection parameters.
+
+@Description
+The function @func{gridDefParamsLCC} defines the parameters of a Lambert Conformal Conic grid.
+
+@EndFunction
+*/
+void
+gridDefParamsLCC(int gridID, struct CDI_GridProjParams gpp)
+{
+ cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARNAME, "Lambert_Conformal");
+
+ const char *gmapname = "lambert_conformal_conic";
+ cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, gmapname);
+ cdiDefAttTxt(gridID, CDI_GLOBAL, "grid_mapping_name", (int) (strlen(gmapname)), gmapname);
+ int nlats = 0;
+ double lats[2];
+ lats[nlats++] = gpp.lat_1;
+ if (IS_NOT_EQUAL(gpp.lat_1, gpp.lat_2)) lats[nlats++] = gpp.lat_2;
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "standard_parallel", CDI_DATATYPE_FLT64, nlats, lats);
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "longitude_of_central_meridian", CDI_DATATYPE_FLT64, 1, &gpp.lon_0);
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "latitude_of_projection_origin", CDI_DATATYPE_FLT64, 1, &gpp.lat_0);
+
+ gridDefParamsCommon(gridID, gpp);
+
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->projtype = CDI_PROJ_LCC;
+
+ if (gridptr->type != GRID_PROJECTION) gridptr->type = GRID_PROJECTION;
+
+ gridVerifyProj(gridID);
+}
+
+/*
+@Function gridInqParamsLCC
+@Title Get the parameter of a Lambert Conformal Conic grid
+
+@Prototype void gridInqParamsLCC(int gridID, struct CDI_GridProjParams *gpp)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item gridProjParams Grid projection parameters.
+
+@Description
+The function @func{gridInqParamsLCC} returns the parameter of a Lambert Conformal Conic grid.
+
+@EndFunction
+*/
+int
+gridInqParamsLCC(int gridID, struct CDI_GridProjParams *gpp)
+{
+ int status = -1;
+ if (gridInqType(gridID) != GRID_PROJECTION) return status;
+
+ gridProjParamsInit(gpp);
+
+ status = -2;
+ const char *projection = "lambert_conformal_conic";
+ char gmapname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, gmapname, &length);
+ if (gmapname[0] && str_is_equal(gmapname, projection))
+ {
+ char attname[CDI_MAX_NAME + 1];
+
+ int natts;
+ cdiInqNatts(gridID, CDI_GLOBAL, &natts);
+
+ if (natts) status = 0;
+
+ for (int iatt = 0; iatt < natts; ++iatt)
+ {
+ int atttype, attlen;
+ cdiInqAtt(gridID, CDI_GLOBAL, iatt, attname, &atttype, &attlen);
+ if (attlen > 2) continue;
+
+ double attflt[2];
+ if (cdiInqAttConvertedToFloat(gridID, atttype, attname, attlen, attflt))
+ {
+ // clang-format off
+ if (str_is_equal(attname, "earth_radius")) gpp->a = attflt[0];
+ else if (str_is_equal(attname, "semi_major_axis")) gpp->a = attflt[0];
+ else if (str_is_equal(attname, "semi_minor_axis")) gpp->b = attflt[0];
+ else if (str_is_equal(attname, "inverse_flattening")) gpp->rf = attflt[0];
+ else if (str_is_equal(attname, "longitude_of_central_meridian")) gpp->lon_0 = attflt[0];
+ else if (str_is_equal(attname, "latitude_of_projection_origin")) gpp->lat_0 = attflt[0];
+ else if (str_is_equal(attname, "false_easting")) gpp->x_0 = attflt[0];
+ else if (str_is_equal(attname, "false_northing")) gpp->y_0 = attflt[0];
+ else if (str_is_equal(attname, "longitudeOfFirstGridPointInDegrees")) gpp->xval_0 = attflt[0];
+ else if (str_is_equal(attname, "latitudeOfFirstGridPointInDegrees")) gpp->yval_0 = attflt[0];
+ else if (str_is_equal(attname, "longitudeOfSouthernPoleInDegrees")) gpp->x_SP = attflt[0];
+ else if (str_is_equal(attname, "latitudeOfSouthernPoleInDegrees")) gpp->y_SP = attflt[0];
+ else if (str_is_equal(attname, "standard_parallel"))
+ {
+ gpp->lat_1 = attflt[0];
+ gpp->lat_2 = (attlen == 2) ? attflt[1] : attflt[0];
+ }
+ // clang-format on
+ }
+ }
+ }
+
+ return status;
+}
+
+int
+gridVerifyProjParamsLCC(struct CDI_GridProjParams *gpp)
+{
+ static bool lwarn = true;
+
+ if (lwarn)
+ {
+ // lwarn = false;
+ const char *projection = "lambert_conformal_conic";
+ if (IS_EQUAL(gpp->lon_0, gpp->mv)) Warning("%s mapping parameter %s missing!", projection, "longitude_of_central_meridian");
+ if (IS_EQUAL(gpp->lat_0, gpp->mv)) Warning("%s mapping parameter %s missing!", projection, "latitude_of_central_meridian");
+ if (IS_EQUAL(gpp->lat_1, gpp->mv)) Warning("%s mapping parameter %s missing!", projection, "standard_parallel");
+ if (IS_NOT_EQUAL(gpp->x_0, gpp->mv) && IS_NOT_EQUAL(gpp->y_0, gpp->mv)
+ && (IS_EQUAL(gpp->xval_0, gpp->mv) || IS_EQUAL(gpp->yval_0, gpp->mv)))
+ {
+ if (proj_lcc_to_lonlat_func)
+ {
+ gpp->xval_0 = -gpp->x_0;
+ gpp->yval_0 = -gpp->y_0;
+ proj_lcc_to_lonlat_func(*gpp, 0.0, 0.0, (SizeType) 1, &gpp->xval_0, &gpp->yval_0);
+ }
+ if (IS_EQUAL(gpp->xval_0, gpp->mv) || IS_EQUAL(gpp->yval_0, gpp->mv))
+ Warning("%s mapping parameter %s missing!", projection,
+ "longitudeOfFirstGridPointInDegrees and latitudeOfFirstGridPointInDegrees");
+ }
+ }
+
+ return 0;
+}
+
+int
+gridVerifyProjParamsSTERE(struct CDI_GridProjParams *gpp)
+{
+ static bool lwarn = true;
+
+ if (lwarn)
+ {
+ // lwarn = false;
+ const char *projection = "polar_stereographic";
+ if (IS_EQUAL(gpp->lon_0, gpp->mv))
+ Warning("%s mapping parameter %s missing!", projection, "straight_vertical_longitude_from_pole");
+ if (IS_EQUAL(gpp->lat_0, gpp->mv)) Warning("%s mapping parameter %s missing!", projection, "latitude_of_projection_origin");
+ if (IS_EQUAL(gpp->lat_1, gpp->mv)) Warning("%s mapping parameter %s missing!", projection, "standard_parallel");
+ if (IS_NOT_EQUAL(gpp->x_0, gpp->mv) && IS_NOT_EQUAL(gpp->y_0, gpp->mv)
+ && (IS_EQUAL(gpp->xval_0, gpp->mv) || IS_EQUAL(gpp->yval_0, gpp->mv)))
+ {
+ if (proj_stere_to_lonlat_func)
+ {
+ gpp->xval_0 = -gpp->x_0;
+ gpp->xval_0 = -gpp->y_0;
+ proj_stere_to_lonlat_func(*gpp, 0.0, 0.0, (SizeType) 1, &gpp->xval_0, &gpp->yval_0);
+ }
+ if (IS_EQUAL(gpp->xval_0, gpp->mv) || IS_EQUAL(gpp->yval_0, gpp->mv))
+ Warning("%s mapping parameter %s missing!", projection,
+ "longitudeOfFirstGridPointInDegrees and latitudeOfFirstGridPointInDegrees");
+ }
+ }
+
+ return 0;
+}
+
+int
+gridVerifyProjParamsHEALPIX(struct CDI_GridProjParams *gpp)
+{
+ static bool lwarn = true;
+
+ if (lwarn)
+ {
+ lwarn = false;
+ const char *projection = "healpix";
+ if (IS_EQUAL(gpp->nside, -1)) Error("%s mapping parameter %s missing!", projection, "nside");
+ if (IS_EQUAL(gpp->order, -1)) Error("%s mapping parameter %s missing!", projection, "order");
+ if (gpp->nside == 0) Error("%s mapping parameter %s unsupported!", projection, "nside", gpp->nside);
+ if (gpp->order != 0 && gpp->order != 1) Error("%s mapping parameter %s=%d unsupported!", projection, "order", gpp->order);
+ }
+
+ return 0;
+}
+
+/*
+@Function gridDefParamsSTERE
+@Title Define the parameter of a Polar stereographic grid
+
+@Prototype void gridDefParamsSTERE(int gridID, struct CDI_GridProjParams gridProjParams)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item gridProjParams Grid projection parameters.
+
+@Description
+The function @func{gridDefParamsSTERE} defines the parameter of a Polar stereographic grid.
+
+@EndFunction
+*/
+void
+gridDefParamsSTERE(int gridID, struct CDI_GridProjParams gpp)
+{
+ cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARNAME, "Polar_Stereographic");
+
+ const char *gmapname = "polar_stereographic";
+ cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, gmapname);
+ cdiDefAttTxt(gridID, CDI_GLOBAL, "grid_mapping_name", (int) (strlen(gmapname)), gmapname);
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "standard_parallel", CDI_DATATYPE_FLT64, 1, &gpp.lat_1);
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "straight_vertical_longitude_from_pole", CDI_DATATYPE_FLT64, 1, &gpp.lon_0);
+ cdiDefAttFlt(gridID, CDI_GLOBAL, "latitude_of_projection_origin", CDI_DATATYPE_FLT64, 1, &gpp.lat_0);
+
+ gridDefParamsCommon(gridID, gpp);
+
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->projtype = CDI_PROJ_STERE;
+
+ gridVerifyProj(gridID);
+}
+void
+gridDefParamsHEALPIX(int gridID, struct CDI_GridProjParams gpp)
+{
+ cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARNAME, "healpix");
+
+ const char *gmapname = "healpix";
+ cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, gmapname);
+ cdiDefAttTxt(gridID, CDI_GLOBAL, "grid_mapping_name", (int) (strlen(gmapname)), gmapname);
+
+ cdiDefAttInt(gridID, CDI_GLOBAL, "healpix_nside", CDI_DATATYPE_INT32, 1, &gpp.nside);
+ const char *orderName = (gpp.order == 1) ? "nested" : "ring";
+ cdiDefAttTxt(gridID, CDI_GLOBAL, "healpix_order", (int) (strlen(orderName)), orderName);
+
+ // gridDefParamsCommon(gridID, gpp);
+
+ grid_t *gridptr = grid_to_pointer(gridID);
+ gridptr->projtype = CDI_PROJ_HEALPIX;
+
+ // gridVerifyProj(gridID);
+}
+
+/*
+@Function gridInqParamsSTERE
+@Title Get the parameter of a Polar stereographic grid
+
+@Prototype void gridInqParamsSTERE(int gridID, struct CDI_GridProjParams *gpp)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+ @Item gridProjParams Grid projection parameters.
+
+@Description
+The function @func{gridInqParamsSTERE} returns the parameter of a Polar stereographic grid.
+
+@EndFunction
+*/
+int
+gridInqParamsSTERE(int gridID, struct CDI_GridProjParams *gpp)
+{
+ int status = -1;
+ if (gridInqType(gridID) != GRID_PROJECTION) return status;
+
+ gridProjParamsInit(gpp);
+
+ status = -2;
+ const char *projection = "polar_stereographic";
+ char gmapname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, gmapname, &length);
+ if (gmapname[0] && str_is_equal(gmapname, projection))
+ {
+ int atttype, attlen;
+ char attname[CDI_MAX_NAME + 1];
+
+ int natts;
+ cdiInqNatts(gridID, CDI_GLOBAL, &natts);
+
+ if (natts) status = 0;
+
+ for (int iatt = 0; iatt < natts; ++iatt)
+ {
+ cdiInqAtt(gridID, CDI_GLOBAL, iatt, attname, &atttype, &attlen);
+ if (attlen > 2) continue;
+
+ double attflt[2];
+ if (cdiInqAttConvertedToFloat(gridID, atttype, attname, attlen, attflt))
+ {
+ // clang-format off
+ if (str_is_equal(attname, "earth_radius")) gpp->a = attflt[0];
+ else if (str_is_equal(attname, "semi_major_axis")) gpp->a = attflt[0];
+ else if (str_is_equal(attname, "semi_minor_axis")) gpp->b = attflt[0];
+ else if (str_is_equal(attname, "inverse_flattening")) gpp->rf = attflt[0];
+ else if (str_is_equal(attname, "standard_parallel")) gpp->lat_1 = attflt[0];
+ else if (str_is_equal(attname, "straight_vertical_longitude_from_pole")) gpp->lon_0 = attflt[0];
+ else if (str_is_equal(attname, "latitude_of_projection_origin")) gpp->lat_0 = attflt[0];
+ else if (str_is_equal(attname, "false_easting")) gpp->x_0 = attflt[0];
+ else if (str_is_equal(attname, "false_northing")) gpp->y_0 = attflt[0];
+ else if (str_is_equal(attname, "longitudeOfFirstGridPointInDegrees")) gpp->xval_0 = attflt[0];
+ else if (str_is_equal(attname, "latitudeOfFirstGridPointInDegrees")) gpp->yval_0 = attflt[0];
+ // clang-format on
+ }
+ }
+ }
+
+ return status;
+}
+
+int
+gridInqParamsHEALPIX(int gridID, struct CDI_GridProjParams *gpp)
+{
+ int status = -1;
+ if (gridInqType(gridID) != GRID_PROJECTION) return status;
+
+ gridProjParamsInit(gpp);
+
+ status = -2;
+ const char *projection = "healpix";
+ char gmapname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, gmapname, &length);
+ if (gmapname[0] && str_is_equal(gmapname, projection))
+ {
+ int atttype, attlen;
+ char attname[CDI_MAX_NAME + 1];
+
+ int natts;
+ cdiInqNatts(gridID, CDI_GLOBAL, &natts);
+
+ if (natts) status = 0;
+
+ for (int iatt = 0; iatt < natts; ++iatt)
+ {
+ cdiInqAtt(gridID, CDI_GLOBAL, iatt, attname, &atttype, &attlen);
+
+ if (atttype == CDI_DATATYPE_TXT)
+ {
+ char attstring[256];
+ if (cdiInqAttTxt(gridID, CDI_GLOBAL, attname, (int) sizeof(attstring), attstring) == 0)
+ {
+ attstring[attlen] = 0;
+ if (str_is_equal(attname, "healpix_order")) gpp->order = strStartsWith(attstring, "nest");
+ }
+ }
+ else
+ {
+ if (attlen > 2) continue;
+ double attflt[2];
+ if (cdiInqAttConvertedToFloat(gridID, atttype, attname, attlen, attflt))
+ {
+ // clang-format off
+ if (str_is_equal(attname, "earth_radius")) gpp->a = attflt[0];
+ else if (str_is_equal(attname, "semi_major_axis")) gpp->a = attflt[0];
+ else if (str_is_equal(attname, "semi_minor_axis")) gpp->b = attflt[0];
+ else if (str_is_equal(attname, "inverse_flattening")) gpp->rf = attflt[0];
+ else if (str_is_equal(attname, "longitudeOfFirstGridPointInDegrees")) gpp->xval_0 = attflt[0];
+ else if (str_is_equal(attname, "healpix_nside")) gpp->nside = (int) lround(attflt[0]);
+ // clang-format on
+ }
+ }
+ }
+ }
+
+ return status;
+}
+
+void
+gridDefComplexPacking(int gridID, int lcomplex)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ if (gridptr->lcomplex != lcomplex)
+ {
+ gridptr->lcomplex = lcomplex != 0;
+ gridMark4Update(gridID);
+ }
+}
+
+int
+gridInqComplexPacking(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ return (int) gridptr->lcomplex;
+}
+
+void
+gridDefHasDims(int gridID, int hasdims)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ if (gridptr->hasdims != (hasdims != 0))
+ {
+ gridptr->hasdims = hasdims != 0;
+ gridMark4Update(gridID);
+ }
+}
+
+int
+gridInqHasDims(int gridID)
+{
+ grid_t *gridptr = grid_to_pointer(gridID);
+
+ return (int) gridptr->hasdims;
+}
+
+/*
+@Function gridDefNumber
+@Title Define the reference number for an unstructured grid
+
+@Prototype void gridDefNumber(int gridID, int number)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item number Reference number for an unstructured grid.
+
+@Description
+The function @func{gridDefNumber} defines the reference number for an unstructured grid.
+
+@EndFunction
+*/
+void
+gridDefNumber(int gridID, int number)
+{
+ cdiDefKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDUSED, number);
+}
+
+/*
+@Function gridInqNumber
+@Title Get the reference number to an unstructured grid
+
+@Prototype int gridInqNumber(int gridID)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridInqNumber} returns the reference number to an unstructured grid.
+
+@Result
+@func{gridInqNumber} returns the reference number to an unstructured grid.
+@EndFunction
+*/
+int
+gridInqNumber(int gridID)
+{
+ int number = 0;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDUSED, &number);
+ return number;
+}
+
+/*
+@Function gridDefPosition
+@Title Define the position of grid in the reference file
+
+@Prototype void gridDefPosition(int gridID, int position)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item position Position of grid in the reference file.
+
+@Description
+The function @func{gridDefPosition} defines the position of grid in the reference file.
+
+@EndFunction
+*/
+void
+gridDefPosition(int gridID, int position)
+{
+ cdiDefKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDINREFERENCE, position);
+}
+
+/*
+@Function gridInqPosition
+@Title Get the position of grid in the reference file
+
+@Prototype int gridInqPosition(int gridID)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridInqPosition} returns the position of grid in the reference file.
+
+@Result
+@func{gridInqPosition} returns the position of grid in the reference file.
+@EndFunction
+*/
+int
+gridInqPosition(int gridID)
+{
+ int position = 0;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDINREFERENCE, &position);
+ return position;
+}
+
+/*
+@Function gridDefReference
+@Title Define the reference URI for an unstructured grid
+
+@Prototype void gridDefReference(int gridID, const char *reference)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item reference Reference URI for an unstructured grid.
+
+@Description
+The function @func{gridDefReference} defines the reference URI for an unstructured grid.
+
+@EndFunction
+*/
+void
+gridDefReference(int gridID, const char *reference)
+{
+ if (reference)
+ {
+ cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_REFERENCEURI, reference);
+ gridMark4Update(gridID);
+ }
+}
+
+/*
+@Function gridInqReference
+@Title Get the reference URI to an unstructured grid
+
+@Prototype char *gridInqReference(int gridID, char *reference)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridInqReference} returns the reference URI to an unstructured grid.
+
+@Result
+@func{gridInqReference} returns the reference URI to an unstructured grid.
+@EndFunction
+*/
+int
+gridInqReference(int gridID, char *reference)
+{
+ int length = 0;
+ if (CDI_NOERR == cdiInqKeyLen(gridID, CDI_GLOBAL, CDI_KEY_REFERENCEURI, &length))
+ {
+ if (reference) cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_REFERENCEURI, reference, &length);
+ }
+
+ return length;
+}
+
+/*
+@Function gridDefUUID
+@Title Define the UUID for an unstructured grid
+
+@Prototype void gridDefUUID(int gridID, const char *uuid)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item uuid UUID for an unstructured grid.
+
+@Description
+The function @func{gridDefUUID} defines the UUID for an unstructured grid.
+
+@EndFunction
+*/
+void
+gridDefUUID(int gridID, const unsigned char uuid[CDI_UUID_SIZE])
+{
+ cdiDefKeyBytes(gridID, CDI_GLOBAL, CDI_KEY_UUID, uuid, CDI_UUID_SIZE);
+
+ gridMark4Update(gridID);
+}
+
+/*
+@Function gridInqUUID
+@Title Get the UUID to an unstructured grid
+
+@Prototype void gridInqUUID(int gridID, char *uuid)
+@Parameter
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate} or @fref{vlistInqVarGrid}.
+
+@Description
+The function @func{gridInqUUID} returns the UUID to an unstructured grid.
+
+@Result
+@func{gridInqUUID} returns the UUID to an unstructured grid to the parameter uuid.
+@EndFunction
+*/
+void
+gridInqUUID(int gridID, unsigned char uuid[CDI_UUID_SIZE])
+{
+ memset(uuid, 0, CDI_UUID_SIZE);
+ int length = CDI_UUID_SIZE;
+ cdiInqKeyBytes(gridID, CDI_GLOBAL, CDI_KEY_UUID, uuid, &length);
+}
+
+void
+cdiGridGetIndexList(unsigned ngrids, int *gridIndexList)
+{
+ reshGetResHListOfType(ngrids, gridIndexList, &gridOps);
+}
+
+static int
+gridTxCode(void *voidP)
+{
+ grid_t *gridptr = (grid_t *) voidP;
+ return gridptr->vtable->txCode;
+}
+
+enum
+{
+ GRID_PACK_INT_IDX_SELF,
+ GRID_PACK_INT_IDX_TYPE,
+ GRID_PACK_INT_IDX_IS_CYCLIC,
+ GRID_PACK_INT_IDX_X_FLAG,
+ GRID_PACK_INT_IDX_Y_FLAG,
+ GRID_PACK_INT_IDX_GME_ND,
+ GRID_PACK_INT_IDX_GME_NI,
+ GRID_PACK_INT_IDX_GME_NI2,
+ GRID_PACK_INT_IDX_GME_NI3,
+ GRID_PACK_INT_IDX_TRUNC,
+ GRID_PACK_INT_IDX_NVERTEX,
+ GRID_PACK_INT_IDX_REDUCED_POINTS_SIZE,
+ GRID_PACK_INT_IDX_SIZE,
+ GRID_PACK_INT_IDX_X_SIZE,
+ GRID_PACK_INT_IDX_Y_SIZE,
+ GRID_PACK_INT_IDX_LCOMPLEX,
+ GRID_PACK_INT_IDX_MEMBERMASK,
+ /*
+ GRID_PACK_INT_IDX_XTSTDNNAME,
+ GRID_PACK_INT_IDX_YTSTDNNAME,
+ GRID_PACK_INT_IDX_ISCANSNEGATIVELY,
+ GRID_PACK_INT_IDX_JSCANSPOSITIVELY,
+ GRID_PACK_INT_IDX_JPOINTSARECONSECUTIVE,
+ */
+ gridNint
+};
+
+enum
+{
+ GRID_PACK_DBL_IDX_X_FIRST,
+ GRID_PACK_DBL_IDX_Y_FIRST,
+ GRID_PACK_DBL_IDX_X_LAST,
+ GRID_PACK_DBL_IDX_Y_LAST,
+ GRID_PACK_DBL_IDX_X_INC,
+ GRID_PACK_DBL_IDX_Y_INC,
+ gridNdouble
+};
+
+enum
+{
+ gridHasMaskFlag = 1 << 0,
+ gridHasGMEMaskFlag = 1 << 1,
+ gridHasXValsFlag = 1 << 2,
+ gridHasYValsFlag = 1 << 3,
+ gridHasAreaFlag = 1 << 4,
+ gridHasXBoundsFlag = 1 << 5,
+ gridHasYBoundsFlag = 1 << 6,
+ gridHasReducedPointsFlag = 1 << 7,
+};
+
+static int
+gridGetComponentFlags(const grid_t *gridP)
+{
+ int flags = 0;
+ for (int prop = 0; prop < GRID_PROP_YBOUNDS + 1; ++prop)
+ flags |= (gridP->vtable->inqPropPresence((grid_t *) gridP, (enum gridPropInq) prop) << prop);
+ flags |= (gridHasReducedPointsFlag & (int) ((unsigned) (gridP->reducedPoints == NULL) - 1U));
+ return flags;
+}
+
+static int
+gridGetPackSize(void *voidP, void *context)
+{
+ grid_t *gridP = (grid_t *) voidP;
+ return gridP->vtable->getPackSize(gridP, context);
+}
+
+static int gridGetPackSizeScalars(grid_t *gridP, void *context);
+
+static int gridGetPackSizeArrays(grid_t *gridP, void *context);
+
+static int
+gridGetPackSizeBase(grid_t *gridP, void *context)
+{
+ return gridP->vtable->getPackSizeScalars(gridP, context) + gridP->vtable->getPackSizeArrays(gridP, context);
+}
+
+static int
+gridGetPackSizeScalars(grid_t *gridP, void *context)
+{
+ int packBuffSize = 0, ui32PackSize = serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+
+ packBuffSize += serializeGetSize(gridNint, CDI_DATATYPE_INT, context) + ui32PackSize;
+
+ packBuffSize += serializeGetSize(gridNdouble, CDI_DATATYPE_FLT64, context) + ui32PackSize;
+
+ packBuffSize += serializeKeysGetPackSize(&gridP->keys, context);
+ packBuffSize += serializeKeysGetPackSize(&gridP->x.keys, context);
+ packBuffSize += serializeKeysGetPackSize(&gridP->y.keys, context);
+
+ return packBuffSize;
+}
+
+static int
+gridGetPackSizeArrays(grid_t *gridP, void *context)
+{
+ int packBuffSize = 0, count, ui32PackSize = serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+
+ if (gridP->reducedPoints)
+ {
+ xassert(gridP->reducedPointsSize);
+ packBuffSize += serializeGetSize(gridP->reducedPointsSize, CDI_DATATYPE_INT, context) + ui32PackSize;
+ }
+
+ if (gridP->vtable->inqXValsPtr(gridP))
+ {
+ if (gridP->type == GRID_UNSTRUCTURED || gridP->type == GRID_CURVILINEAR)
+ count = gridP->size;
+ else
+ count = gridP->x.size;
+ xassert(count);
+ packBuffSize += serializeGetSize(count, CDI_DATATYPE_FLT64, context) + ui32PackSize;
+ }
+
+ if (gridP->vtable->inqYValsPtr(gridP))
+ {
+ if (gridP->type == GRID_UNSTRUCTURED || gridP->type == GRID_CURVILINEAR)
+ count = gridP->size;
+ else
+ count = gridP->y.size;
+ xassert(count);
+ packBuffSize += serializeGetSize(count, CDI_DATATYPE_FLT64, context) + ui32PackSize;
+ }
+
+ if (gridP->vtable->inqAreaPtr(gridP))
+ {
+ xassert(gridP->size);
+ packBuffSize += serializeGetSize(gridP->size, CDI_DATATYPE_FLT64, context) + ui32PackSize;
+ }
+
+ if (gridP->x.bounds)
+ {
+ xassert(gridP->nvertex);
+ count = grid_is_irregular(gridP->type) ? gridP->size : gridP->x.size;
+ xassert(count);
+ packBuffSize += (serializeGetSize(gridP->nvertex * count, CDI_DATATYPE_FLT64, context) + ui32PackSize);
+ }
+
+ if (gridP->y.bounds)
+ {
+ xassert(gridP->nvertex);
+ count = grid_is_irregular(gridP->type) ? gridP->size : gridP->y.size;
+ xassert(count);
+ packBuffSize += (serializeGetSize(gridP->nvertex * count, CDI_DATATYPE_FLT64, context) + ui32PackSize);
+ }
+
+ if (gridP->mask)
+ {
+ xassert(gridP->size);
+ packBuffSize += serializeGetSize(gridP->size, CDI_DATATYPE_UCHAR, context) + ui32PackSize;
+ }
+
+ if (gridP->mask_gme)
+ {
+ xassert(gridP->size);
+ packBuffSize += serializeGetSize(gridP->size, CDI_DATATYPE_UCHAR, context) + ui32PackSize;
+ }
+
+ return packBuffSize;
+}
+
+static grid_t *gridUnpackScalars(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context,
+ int force_id, int *memberMaskP);
+
+static void gridUnpackArrays(grid_t *gridP, int memberMask, char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos,
+ int originNamespace, void *context);
+
+int
+gridUnpack(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context, int force_id)
+{
+ gridInit();
+ int memberMask;
+ grid_t *gridP
+ = gridUnpackScalars(unpackBuffer, unpackBufferSize, unpackBufferPos, originNamespace, context, force_id, &memberMask);
+ gridP->vtable->unpackArrays(gridP, memberMask, unpackBuffer, unpackBufferSize, unpackBufferPos, originNamespace, context);
+ reshSetStatus(gridP->self, &gridOps, reshGetStatus(gridP->self, &gridOps) & ~RESH_SYNC_BIT);
+ return gridP->self;
+}
+
+static grid_t *
+gridUnpackScalars(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context, int force_id,
+ int *memberMaskP)
+{
+ grid_t *gridP;
+ uint32_t d;
+ int memberMask;
+ {
+ int intBuffer[gridNint];
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, intBuffer, gridNint, CDI_DATATYPE_INT, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+
+ xassert(cdiCheckSum(CDI_DATATYPE_INT, gridNint, intBuffer) == d);
+ int targetID = namespaceAdaptKey(intBuffer[0], originNamespace);
+ gridP = gridNewEntry(force_id ? targetID : CDI_UNDEFID);
+
+ xassert(!force_id || targetID == gridP->self);
+
+ gridP->type = intBuffer[GRID_PACK_INT_IDX_TYPE];
+ gridP->isCyclic = (signed char) intBuffer[GRID_PACK_INT_IDX_IS_CYCLIC];
+ gridP->x.flag = (short) intBuffer[GRID_PACK_INT_IDX_X_FLAG];
+ gridP->y.flag = (short) intBuffer[GRID_PACK_INT_IDX_Y_FLAG];
+ gridP->gme.nd = intBuffer[GRID_PACK_INT_IDX_GME_ND];
+ gridP->gme.ni = intBuffer[GRID_PACK_INT_IDX_GME_NI];
+ gridP->gme.ni2 = intBuffer[GRID_PACK_INT_IDX_GME_NI2];
+ gridP->gme.ni3 = intBuffer[GRID_PACK_INT_IDX_GME_NI3];
+ gridP->trunc = intBuffer[GRID_PACK_INT_IDX_TRUNC];
+ gridP->nvertex = intBuffer[GRID_PACK_INT_IDX_NVERTEX];
+ gridP->reducedPointsSize = intBuffer[GRID_PACK_INT_IDX_REDUCED_POINTS_SIZE];
+ gridP->size = intBuffer[GRID_PACK_INT_IDX_SIZE];
+ gridP->x.size = intBuffer[GRID_PACK_INT_IDX_X_SIZE];
+ gridP->y.size = intBuffer[GRID_PACK_INT_IDX_Y_SIZE];
+ gridP->lcomplex = (bool) intBuffer[GRID_PACK_INT_IDX_LCOMPLEX];
+ memberMask = intBuffer[GRID_PACK_INT_IDX_MEMBERMASK];
+ }
+
+ {
+ double doubleBuffer[gridNdouble];
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, doubleBuffer, gridNdouble, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(d == cdiCheckSum(CDI_DATATYPE_FLT, gridNdouble, doubleBuffer));
+
+ gridP->x.first = doubleBuffer[GRID_PACK_DBL_IDX_X_FIRST];
+ gridP->y.first = doubleBuffer[GRID_PACK_DBL_IDX_Y_FIRST];
+ gridP->x.last = doubleBuffer[GRID_PACK_DBL_IDX_X_LAST];
+ gridP->y.last = doubleBuffer[GRID_PACK_DBL_IDX_Y_LAST];
+ gridP->x.inc = doubleBuffer[GRID_PACK_DBL_IDX_X_INC];
+ gridP->y.inc = doubleBuffer[GRID_PACK_DBL_IDX_Y_INC];
+ }
+
+ serializeKeysUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &gridP->keys, context);
+ serializeKeysUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &gridP->x.keys, context);
+ serializeKeysUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &gridP->y.keys, context);
+
+ *memberMaskP = memberMask;
+ return gridP;
+}
+
+static void
+gridUnpackArrays(grid_t *gridP, int memberMask, char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace,
+ void *context)
+{
+ UNUSED(originNamespace);
+ uint32_t d;
+
+ if (memberMask & gridHasReducedPointsFlag)
+ {
+ xassert(gridP->reducedPointsSize);
+ gridP->reducedPoints = (int *) Malloc((size_t) gridP->reducedPointsSize * sizeof(int));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, gridP->reducedPoints, gridP->reducedPointsSize,
+ CDI_DATATYPE_INT, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_INT, gridP->reducedPointsSize, gridP->reducedPoints) == d);
+ }
+
+ bool isIrregular = grid_is_irregular(gridP->type);
+ if (memberMask & gridHasXValsFlag)
+ {
+ int size = isIrregular ? gridP->size : gridP->x.size;
+
+ gridP->x.vals = (double *) Malloc(size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, gridP->x.vals, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT, size, gridP->x.vals) == d);
+ }
+
+ if (memberMask & gridHasYValsFlag)
+ {
+ int size = isIrregular ? gridP->size : gridP->y.size;
+
+ gridP->y.vals = (double *) Malloc(size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, gridP->y.vals, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT, size, gridP->y.vals) == d);
+ }
+
+ if (memberMask & gridHasAreaFlag)
+ {
+ int size = gridP->size;
+ xassert(size);
+ gridP->area = (double *) Malloc(size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, gridP->area, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT, size, gridP->area) == d);
+ }
+
+ if (memberMask & gridHasXBoundsFlag)
+ {
+ int size = gridP->nvertex * (isIrregular ? gridP->size : gridP->x.size);
+ xassert(size);
+
+ gridP->x.bounds = (double *) Malloc(size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, gridP->x.bounds, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT, size, gridP->x.bounds) == d);
+ }
+
+ if (memberMask & gridHasYBoundsFlag)
+ {
+ int size = gridP->nvertex * (isIrregular ? gridP->size : gridP->y.size);
+ xassert(size);
+
+ gridP->y.bounds = (double *) Malloc(size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, gridP->y.bounds, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT, size, gridP->y.bounds) == d);
+ }
+
+ if (memberMask & gridHasMaskFlag)
+ {
+ int size = gridP->size;
+ xassert(size);
+ gridP->mask = (mask_t *) Malloc(size * sizeof(mask_t));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, gridP->mask, gridP->size, CDI_DATATYPE_UCHAR, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_UCHAR, gridP->size, gridP->mask) == d);
+ }
+
+ if (memberMask & gridHasGMEMaskFlag)
+ {
+ int size = gridP->size;
+ xassert(size);
+ gridP->mask_gme = (mask_t *) Malloc(size * sizeof(mask_t));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, gridP->mask_gme, gridP->size, CDI_DATATYPE_UCHAR, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_UCHAR, gridP->size, gridP->mask_gme) == d);
+ }
+}
+
+void
+gridPack(void *voidP, void *packBuffer, int packBufferSize, int *packBufferPos, void *context)
+{
+ grid_t *gridP = (grid_t *) voidP;
+ gridP->vtable->pack(gridP, packBuffer, packBufferSize, packBufferPos, context);
+}
+
+static void
+gridPackBase(grid_t *gridP, void *packBuffer, int packBufferSize, int *packBufferPos, void *context)
+{
+ int memberMask = gridP->vtable->packScalars(gridP, packBuffer, packBufferSize, packBufferPos, context);
+ gridP->vtable->packArrays(gridP, memberMask, packBuffer, packBufferSize, packBufferPos, context);
+}
+
+static int
+gridPackScalars(grid_t *gridP, void *packBuffer, int packBufferSize, int *packBufferPos, void *context)
+{
+ uint32_t d;
+ int memberMask;
+
+ {
+ int intBuffer[gridNint];
+
+ intBuffer[GRID_PACK_INT_IDX_SELF] = gridP->self;
+ intBuffer[GRID_PACK_INT_IDX_TYPE] = gridP->type;
+ intBuffer[GRID_PACK_INT_IDX_IS_CYCLIC] = gridP->isCyclic;
+ intBuffer[GRID_PACK_INT_IDX_X_FLAG] = gridP->x.flag;
+ intBuffer[GRID_PACK_INT_IDX_Y_FLAG] = gridP->y.flag;
+ intBuffer[GRID_PACK_INT_IDX_GME_ND] = gridP->gme.nd;
+ intBuffer[GRID_PACK_INT_IDX_GME_NI] = gridP->gme.ni;
+ intBuffer[GRID_PACK_INT_IDX_GME_NI2] = gridP->gme.ni2;
+ intBuffer[GRID_PACK_INT_IDX_GME_NI3] = gridP->gme.ni3;
+ intBuffer[GRID_PACK_INT_IDX_TRUNC] = gridP->trunc;
+ intBuffer[GRID_PACK_INT_IDX_NVERTEX] = gridP->nvertex;
+ intBuffer[GRID_PACK_INT_IDX_REDUCED_POINTS_SIZE] = gridP->reducedPointsSize;
+ intBuffer[GRID_PACK_INT_IDX_SIZE] = gridP->size;
+ intBuffer[GRID_PACK_INT_IDX_X_SIZE] = gridP->x.size;
+ intBuffer[GRID_PACK_INT_IDX_Y_SIZE] = gridP->y.size;
+ intBuffer[GRID_PACK_INT_IDX_LCOMPLEX] = gridP->lcomplex;
+ intBuffer[GRID_PACK_INT_IDX_MEMBERMASK] = memberMask = gridGetComponentFlags(gridP);
+
+ serializePack(intBuffer, gridNint, CDI_DATATYPE_INT, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_INT, gridNint, intBuffer);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ {
+ double doubleBuffer[gridNdouble];
+
+ doubleBuffer[GRID_PACK_DBL_IDX_X_FIRST] = gridP->x.first;
+ doubleBuffer[GRID_PACK_DBL_IDX_Y_FIRST] = gridP->y.first;
+ doubleBuffer[GRID_PACK_DBL_IDX_X_LAST] = gridP->x.last;
+ doubleBuffer[GRID_PACK_DBL_IDX_Y_LAST] = gridP->y.last;
+ doubleBuffer[GRID_PACK_DBL_IDX_X_INC] = gridP->x.inc;
+ doubleBuffer[GRID_PACK_DBL_IDX_Y_INC] = gridP->y.inc;
+
+ serializePack(doubleBuffer, gridNdouble, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, gridNdouble, doubleBuffer);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ serializeKeysPack(&gridP->keys, packBuffer, packBufferSize, packBufferPos, context);
+ serializeKeysPack(&gridP->x.keys, packBuffer, packBufferSize, packBufferPos, context);
+ serializeKeysPack(&gridP->y.keys, packBuffer, packBufferSize, packBufferPos, context);
+
+ return memberMask;
+}
+
+static void
+gridPackArrays(grid_t *gridP, int memberMask, void *packBuffer, int packBufferSize, int *packBufferPos, void *context)
+{
+ uint32_t d;
+ bool isIrregular = grid_is_irregular(gridP->type);
+
+ if (memberMask & gridHasReducedPointsFlag)
+ {
+ int size = gridP->reducedPointsSize;
+ xassert(size > 0);
+ serializePack(gridP->reducedPoints, size, CDI_DATATYPE_INT, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_INT, size, gridP->reducedPoints);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & gridHasXValsFlag)
+ {
+ int size = isIrregular ? gridP->size : gridP->x.size;
+ xassert(size);
+
+ const double *gridP_xvals = gridP->vtable->inqXValsPtr(gridP);
+ serializePack(gridP_xvals, size, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, size, gridP_xvals);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & gridHasYValsFlag)
+ {
+ int size = isIrregular ? gridP->size : gridP->y.size;
+ xassert(size);
+ const double *gridP_yvals = gridP->vtable->inqYValsPtr(gridP);
+ serializePack(gridP_yvals, size, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, size, gridP_yvals);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & gridHasAreaFlag)
+ {
+ int size = gridP->size;
+ xassert(size);
+
+ serializePack(gridP->area, size, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, size, gridP->area);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & gridHasXBoundsFlag)
+ {
+ xassert(gridP->nvertex);
+ int size = isIrregular ? gridP->nvertex * gridP->size : gridP->nvertex * gridP->x.size;
+ xassert(size);
+
+ serializePack(gridP->x.bounds, size, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, size, gridP->x.bounds);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & gridHasYBoundsFlag)
+ {
+ xassert(gridP->nvertex);
+ int size = isIrregular ? gridP->nvertex * gridP->size : gridP->nvertex * gridP->y.size;
+ xassert(size);
+
+ serializePack(gridP->y.bounds, size, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, size, gridP->y.bounds);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & gridHasMaskFlag)
+ {
+ int size = gridP->size;
+ xassert(size);
+ serializePack(gridP->mask, size, CDI_DATATYPE_UCHAR, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_UCHAR, size, gridP->mask);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & gridHasGMEMaskFlag)
+ {
+ int size = gridP->size;
+ xassert(size);
+
+ serializePack(gridP->mask_gme, size, CDI_DATATYPE_UCHAR, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_UCHAR, size, gridP->mask_gme);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+}
+
+struct gridCompareSearchState
+{
+ int resIDValue;
+ const grid_t *queryKey;
+};
+
+static enum cdiApplyRet
+gridCompareSearch(int id, void *res, void *data)
+{
+ struct gridCompareSearchState *state = (struct gridCompareSearchState *) data;
+ (void) res;
+ if (gridCompare(id, state->queryKey, true) == false)
+ {
+ state->resIDValue = id;
+ return CDI_APPLY_STOP;
+ }
+ else
+ return CDI_APPLY_GO_ON;
+}
+
+// Add grid (which must be Malloc'ed to vlist if not already found)
+struct addIfNewRes
+cdiVlistAddGridIfNew(int vlistID, grid_t *grid, int mode)
+{
+ /*
+ mode: 0 search in vlist and grid table
+ 1 search in grid table only
+ 2 search in grid table only and don't store the grid in vlist
+ */
+ bool gridIsDefinedGlobal = false;
+ bool gridIsDefined = false;
+ int gridID = CDI_UNDEFID;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int ngrids = vlistptr->ngrids;
+
+ if (mode == 0)
+ for (int index = 0; index < ngrids; index++)
+ {
+ if ((gridID = vlistptr->gridIDs[index]) != CDI_UNDEFID)
+ {
+ if (gridCompare(gridID, grid, false) == false)
+ {
+ gridIsDefined = true;
+ break;
+ }
+ }
+ else
+ Error("Internal problem: undefined gridID in vlist %d, position %u!", vlistID, index);
+ }
+
+ if (!gridIsDefined)
+ {
+ struct gridCompareSearchState query;
+ query.queryKey = grid; // = { .queryKey = grid };
+ if ((gridIsDefinedGlobal = (cdiGridApply(gridCompareSearch, &query) == CDI_APPLY_STOP))) gridID = query.resIDValue;
+
+ if (mode == 1 && gridIsDefinedGlobal)
+ for (int index = 0; index < ngrids; index++)
+ if (vlistptr->gridIDs[index] == gridID)
+ {
+ gridIsDefinedGlobal = false;
+ break;
+ }
+ }
+
+ if (!gridIsDefined)
+ {
+ if (!gridIsDefinedGlobal)
+ {
+ grid->self = gridID = reshPut(grid, &gridOps);
+ grid_complete(grid);
+ }
+ if (mode < 2)
+ {
+ if (ngrids >= MAX_GRIDS_PS) Error("Internal limit exceeded, MAX_GRIDS_PS=%d needs to be increased!", MAX_GRIDS_PS);
+ vlistptr->gridIDs[ngrids] = gridID;
+ vlistptr->ngrids++;
+ }
+ }
+
+ return (struct addIfNewRes){ .Id = gridID, .isNew = (!gridIsDefined && !gridIsDefinedGlobal) };
+}
+
+const struct gridVirtTable cdiGridVtable = {
+ .destroy = gridDestroyKernel,
+ .copy = grid_copy_base,
+ .copyScalarFields = grid_copy_base_scalar_fields,
+ .copyArrayFields = grid_copy_base_array_fields,
+ .defXVals = gridDefXValsSerial,
+ .defYVals = gridDefYValsSerial,
+ .defMask = gridDefMaskSerial,
+ .defMaskGME = gridDefMaskGMESerial,
+ .defXBounds = gridDefXBoundsSerial,
+ .defYBounds = gridDefYBoundsSerial,
+ .defArea = gridDefAreaSerial,
+ .inqXVal = gridInqXValSerial,
+ .inqYVal = gridInqYValSerial,
+ .inqXVals = gridInqXValsSerial,
+ .inqXValsPart = gridInqXValsPartSerial,
+ .inqYVals = gridInqYValsSerial,
+ .inqYValsPart = gridInqYValsPartSerial,
+ .inqXValsPtr = gridInqXValsPtrSerial,
+ .inqYValsPtr = gridInqYValsPtrSerial,
+#ifndef USE_MPI
+ .inqXIsc = gridInqXIscSerial,
+ .inqYIsc = gridInqYIscSerial,
+ .inqXCvals = gridInqXCvalsSerial,
+ .inqYCvals = gridInqYCvalsSerial,
+ .inqXCvalsPtr = gridInqXCvalsPtrSerial,
+ .inqYCvalsPtr = gridInqYCvalsPtrSerial,
+#endif
+ .inqXInc = gridInqXIncBase,
+ .inqYInc = gridInqYIncBase,
+ .compareXYFull = compareXYvals,
+ .compareXYAO = compareXYvals2,
+ .inqArea = gridInqAreaSerial,
+ .inqAreaPtr = gridInqAreaPtrBase,
+ .inqPropPresence = gridInqPropPresenceBase,
+ .inqMask = gridInqMaskSerial,
+ .inqMaskGME = gridInqMaskGMESerial,
+ .inqXBounds = gridInqXBoundsSerial,
+ .inqYBounds = gridInqYBoundsSerial,
+ .inqXBoundsPtr = gridInqXBoundsPtrSerial,
+ .inqYBoundsPtr = gridInqYBoundsPtrSerial,
+ .txCode = GRID,
+ .getPackSize = gridGetPackSizeBase,
+ .getPackSizeScalars = gridGetPackSizeScalars,
+ .getPackSizeArrays = gridGetPackSizeArrays,
+ .unpackScalars = gridUnpackScalars,
+ .unpackArrays = gridUnpackArrays,
+ .pack = gridPackBase,
+ .packScalars = gridPackScalars,
+ .packArrays = gridPackArrays,
+};
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+
+
+static int initIegLib = 0;
+static int iegDefaultDprec = 0;
+
+// A version string.
+#undef LIBVERSION
+#define LIBVERSION 1.5.0
+#define XSTRING(x) #x
+#define STRING(x) XSTRING(x)
+static const char ieg_libvers[] = STRING(LIBVERSION);
+
+const char *
+iegLibraryVersion(void)
+{
+ return ieg_libvers;
+}
+
+static int IEG_Debug = 0; // If set to 1, debugging
+
+static void
+iegLibInit(void)
+{
+ const char *envName = "IEG_PRECISION";
+
+ char *envString = getenv(envName);
+ if (envString)
+ {
+ int nrun = (strlen(envString) == 2) ? 1 : 2;
+ int pos = 0;
+ while (nrun--)
+ {
+ switch (tolower((int) envString[pos]))
+ {
+ case 'r':
+ {
+ switch ((int) envString[pos + 1])
+ {
+ case '4': iegDefaultDprec = EXSE_SINGLE_PRECISION; break;
+ case '8': iegDefaultDprec = EXSE_DOUBLE_PRECISION; break;
+ default: Warning("Invalid digit in %s: %s", envName, envString);
+ }
+ break;
+ }
+ default:
+ {
+ Warning("Invalid character in %s: %s", envName, envString);
+ break;
+ }
+ }
+ pos += 2;
+ }
+ }
+
+ initIegLib = 1;
+}
+
+void
+iegDebug(int debug)
+{
+ if (debug) Message("debug level %d", debug);
+ IEG_Debug = debug;
+}
+
+static void
+iegInit(iegrec_t *iegp)
+{
+ iegp->checked = 0;
+ iegp->byteswap = 0;
+ iegp->dprec = 0;
+ iegp->refval = 0;
+ iegp->datasize = 0;
+ iegp->buffersize = 0;
+ iegp->buffer = NULL;
+}
+
+void
+iegInitMem(void *ieg)
+{
+ iegrec_t *iegp = (iegrec_t *) ieg;
+ memset(iegp->ipdb, 0, sizeof(iegp->ipdb));
+ memset(iegp->igdb, 0, sizeof(iegp->igdb));
+ memset(iegp->vct, 0, sizeof(iegp->vct));
+}
+
+void *
+iegNew(void)
+{
+ if (!initIegLib) iegLibInit();
+
+ iegrec_t *iegp = (iegrec_t *) Malloc(sizeof(iegrec_t));
+ iegInit(iegp);
+ iegInitMem(iegp);
+
+ return (void *) iegp;
+}
+
+void
+iegDelete(void *ieg)
+{
+ iegrec_t *iegp = (iegrec_t *) ieg;
+
+ if (iegp)
+ {
+ if (iegp->buffer) Free(iegp->buffer);
+ Free(iegp);
+ }
+}
+
+int
+iegCheckFiletype(int fileID, int *swap)
+{
+ size_t data = 0;
+ size_t dimx = 0, dimy = 0;
+ size_t fact = 0;
+ unsigned char buffer[1048], *pbuf;
+
+ if (fileRead(fileID, buffer, 4) != 4) return 0;
+
+ size_t blocklen = get_UINT32(buffer);
+ size_t sblocklen = get_SUINT32(buffer);
+
+ if (IEG_Debug) Message("blocklen = %d sblocklen = %d", blocklen, sblocklen);
+
+ // clang-format off
+ if (blocklen == 636 || blocklen == 640)
+ {
+ *swap = 0;
+ fact = 4;
+ if (fileRead(fileID, buffer, blocklen+8) != blocklen+8) return 0;
+ pbuf = buffer+(37+4)*4; dimx = (size_t) get_UINT32(pbuf);
+ pbuf = buffer+(37+5)*4; dimy = (size_t) get_UINT32(pbuf);
+ pbuf = buffer+blocklen+4; data = (size_t) get_UINT32(pbuf);
+ }
+ else if (blocklen == 1040 || blocklen == 1036)
+ {
+ *swap = 0;
+ fact = 8;
+ if (fileRead(fileID, buffer, blocklen+8) != blocklen+8) return 0;
+ pbuf = buffer+(37+4)*4; dimx = (size_t) get_UINT32(pbuf);
+ pbuf = buffer+(37+5)*4; dimy = (size_t) get_UINT32(pbuf);
+ pbuf = buffer+blocklen+4; data = (size_t) get_UINT32(pbuf);
+ }
+ else if (sblocklen == 636 || sblocklen == 640)
+ {
+ *swap = 1;
+ fact = 4;
+ if (fileRead(fileID, buffer, sblocklen+8) != sblocklen+8) return 0;
+ pbuf = buffer+(37+4)*4; dimx = (size_t) get_SUINT32(pbuf);
+ pbuf = buffer+(37+5)*4; dimy = (size_t) get_SUINT32(pbuf);
+ pbuf = buffer+sblocklen+4; data = (size_t) get_SUINT32(pbuf);
+ }
+ else if (sblocklen == 1040 || sblocklen == 1036)
+ {
+ *swap = 1;
+ fact = 8;
+ if (fileRead(fileID, buffer, sblocklen+8) != sblocklen+8) return 0;
+ pbuf = buffer+(37+4)*4; dimx = (size_t) get_SUINT32(pbuf);
+ pbuf = buffer+(37+5)*4; dimy = (size_t) get_SUINT32(pbuf);
+ pbuf = buffer+sblocklen+4; data = (size_t) get_SUINT32(pbuf);
+ }
+ // clang-format on
+
+ fileRewind(fileID);
+
+ if (IEG_Debug) Message("swap = %d fact = %d", *swap, fact);
+ if (IEG_Debug) Message("dimx = %lu dimy = %lu data = %lu", dimx, dimy, data);
+
+ int found = data && (dimx * dimy * fact == data || dimx * dimy * 8 == data);
+ return found;
+}
+
+void
+iegCopyMeta(void *dieg, void *sieg)
+{
+ iegrec_t *diegp = (iegrec_t *) dieg;
+ iegrec_t *siegp = (iegrec_t *) sieg;
+
+ // diegp->byteswap = siegp->byteswap;
+ diegp->dprec = siegp->dprec;
+ diegp->refval = siegp->refval;
+
+ memcpy(diegp->ipdb, siegp->ipdb, sizeof(siegp->ipdb));
+ memcpy(diegp->igdb, siegp->igdb, sizeof(siegp->igdb));
+ memcpy(diegp->vct, siegp->vct, sizeof(siegp->vct));
+}
+
+static int
+iegInqData(void *ieg, int prec, void *data)
+{
+ iegrec_t *iegp = (iegrec_t *) ieg;
+ int ierr = 0;
+ int byteswap = iegp->byteswap;
+ size_t datasize = iegp->datasize;
+ void *buffer = iegp->buffer;
+ int dprec = iegp->dprec;
+
+ switch (dprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ if (sizeof(FLT32) == 4)
+ {
+ if (byteswap) swap4byte(buffer, datasize);
+
+ if (dprec == prec)
+ memcpy(data, buffer, datasize * sizeof(FLT32));
+ else
+ {
+ const float *restrict p = (float *) buffer;
+ double *restrict q = (double *) data;
+ for (size_t i = 0; i < datasize; i++) q[i] = p[i];
+ }
+ }
+ else
+ {
+ Error("not implemented for %d byte float", sizeof(FLT32));
+ }
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ if (sizeof(FLT64) == 8)
+ {
+ if (byteswap) swap8byte(buffer, datasize);
+
+ if (dprec == prec)
+ memcpy(data, buffer, datasize * sizeof(FLT64));
+ else
+ {
+ const double *restrict p = (double *) buffer;
+ float *restrict q = (float *) data;
+ for (size_t i = 0; i < datasize; i++) q[i] = (float) p[i];
+ }
+ }
+ else
+ {
+ Error("not implemented for %d byte float", sizeof(FLT64));
+ }
+ break;
+ }
+ default:
+ {
+ Error("unexpected data precision %d", dprec);
+ break;
+ }
+ }
+
+ return ierr;
+}
+
+int
+iegInqDataSP(void *ieg, float *data)
+{
+ return iegInqData(ieg, EXSE_SINGLE_PRECISION, (void *) data);
+}
+
+int
+iegInqDataDP(void *ieg, double *data)
+{
+ return iegInqData(ieg, EXSE_DOUBLE_PRECISION, (void *) data);
+}
+
+static int
+iegDefData(iegrec_t *iegp, int prec, const void *data)
+{
+ int dprec = iegDefaultDprec ? iegDefaultDprec : iegp->dprec;
+ iegp->dprec = dprec ? dprec : prec;
+
+ size_t datasize = (size_t) IEG_G_NumLon(iegp->igdb) * (size_t) IEG_G_NumLat(iegp->igdb);
+ size_t blocklen = datasize * (size_t) dprec;
+
+ iegp->datasize = datasize;
+
+ if (iegp->buffersize != blocklen)
+ {
+ iegp->buffersize = blocklen;
+ iegp->buffer = Realloc(iegp->buffer, iegp->buffersize);
+ }
+
+ switch (dprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ if (dprec == prec)
+ memcpy(iegp->buffer, data, datasize * sizeof(FLT32));
+ else
+ {
+ const double *restrict p = (const double *) data;
+ float *restrict q = (float *) iegp->buffer;
+ for (size_t i = 0; i < datasize; i++) q[i] = (float) p[i];
+ }
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ if (dprec == prec)
+ memcpy(iegp->buffer, data, datasize * sizeof(FLT64));
+ else
+ {
+ const float *restrict p = (const float *) data;
+ double *restrict q = (double *) iegp->buffer;
+ for (size_t i = 0; i < datasize; i++) q[i] = p[i];
+ }
+ break;
+ }
+ default:
+ {
+ Error("unexpected data precision %d", dprec);
+ break;
+ }
+ }
+
+ return 0;
+}
+
+int
+iegDefDataSP(void *ieg, const float *data)
+{
+ return iegDefData((iegrec_t *) ieg, EXSE_SINGLE_PRECISION, (void *) data);
+}
+
+int
+iegDefDataDP(void *ieg, const double *data)
+{
+ return iegDefData((iegrec_t *) ieg, EXSE_DOUBLE_PRECISION, (void *) data);
+}
+
+int
+iegRead(int fileID, void *ieg)
+{
+ iegrec_t *iegp = (iegrec_t *) ieg;
+ union
+ {
+ double d[200];
+ float f[200];
+ int32_t i32[200];
+ } buf;
+
+ if (!iegp->checked)
+ {
+ int status = iegCheckFiletype(fileID, &iegp->byteswap);
+ if (status == 0) Error("Not a IEG file!");
+ iegp->checked = 1;
+ }
+
+ int byteswap = iegp->byteswap;
+
+ // read header record
+ size_t blocklen = binReadF77Block(fileID, byteswap);
+
+ if (fileEOF(fileID)) return -1;
+
+ if (IEG_Debug) Message("blocklen = %lu", blocklen);
+
+ int dprec = 0;
+ if (blocklen == 636 || blocklen == 640)
+ dprec = 4;
+ else if (blocklen == 1040 || blocklen == 1036)
+ dprec = 8;
+ else
+ {
+ Warning("unexpecteted header size %d!", (int) blocklen);
+ return -1;
+ }
+
+ iegp->dprec = dprec;
+
+ binReadInt32(fileID, byteswap, 37, buf.i32);
+ for (int i = 0; i < 37; i++) iegp->ipdb[i] = (int) buf.i32[i];
+
+ binReadInt32(fileID, byteswap, 18, buf.i32);
+ for (int i = 0; i < 18; i++) iegp->igdb[i] = (int) buf.i32[i];
+
+ if (blocklen == 636 || blocklen == 1036)
+ {
+ fileRead(fileID, buf.f, 4);
+ if (byteswap) swap4byte(buf.f, 1);
+ iegp->refval = (double) buf.f[0];
+ }
+ else
+ {
+ fileRead(fileID, buf.d, 8);
+ if (byteswap) swap8byte(buf.d, 1);
+ iegp->refval = (double) buf.d[0];
+ }
+
+ binReadInt32(fileID, byteswap, 3, buf.i32);
+ for (int i = 0; i < 3; i++) iegp->igdb[18 + i] = (int) buf.i32[i];
+
+ if (dprec == EXSE_SINGLE_PRECISION)
+ {
+ fileRead(fileID, buf.f, 400);
+ if (byteswap) swap4byte(buf.f, 100);
+ for (int i = 0; i < 100; i++) iegp->vct[i] = (double) buf.f[i];
+ }
+ else
+ {
+ fileRead(fileID, buf.d, 800);
+ if (byteswap) swap8byte(buf.d, 100);
+ for (int i = 0; i < 100; i++) iegp->vct[i] = buf.d[i];
+ }
+
+ size_t blocklen2 = binReadF77Block(fileID, byteswap);
+
+ if (blocklen2 != blocklen)
+ {
+ Warning("header blocklen differ!");
+ return -1;
+ }
+
+ iegp->datasize = (size_t) IEG_G_NumLon(iegp->igdb) * (size_t) IEG_G_NumLat(iegp->igdb);
+
+ if (IEG_Debug) Message("datasize = %zu", iegp->datasize);
+
+ blocklen = binReadF77Block(fileID, byteswap);
+
+ if (iegp->buffersize < blocklen)
+ {
+ iegp->buffer = Realloc(iegp->buffer, blocklen);
+ iegp->buffersize = blocklen;
+ }
+
+ if (dprec != (int) (blocklen / iegp->datasize))
+ {
+ Warning("data precision differ! (h = %d; d = %d)", (int) dprec, (int) (blocklen / iegp->datasize));
+ return -1;
+ }
+
+ fileRead(fileID, iegp->buffer, blocklen);
+
+ blocklen2 = binReadF77Block(fileID, byteswap);
+
+ if (blocklen2 != blocklen)
+ {
+ Warning("data blocklen differ!");
+ return -1;
+ }
+
+ return 0;
+}
+
+int
+iegWrite(int fileID, void *ieg)
+{
+ iegrec_t *iegp = (iegrec_t *) ieg;
+ union
+ {
+ INT32 i32[200];
+ float fvct[100];
+ } buf;
+ int dprec = iegp->dprec;
+ int byteswap = iegp->byteswap;
+
+ // write header record
+ size_t blocklen = (dprec == EXSE_SINGLE_PRECISION) ? 636 : 1040;
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ for (int i = 0; i < 37; i++) buf.i32[i] = (INT32) iegp->ipdb[i];
+ binWriteInt32(fileID, byteswap, 37, buf.i32);
+
+ for (int i = 0; i < 18; i++) buf.i32[i] = (INT32) iegp->igdb[i];
+ binWriteInt32(fileID, byteswap, 18, buf.i32);
+
+ FLT64 refval = (FLT64) iegp->refval;
+ FLT32 refvalf = (FLT32) iegp->refval;
+ if (dprec == EXSE_SINGLE_PRECISION)
+ binWriteFlt32(fileID, byteswap, 1, &refvalf);
+ else
+ binWriteFlt64(fileID, byteswap, 1, &refval);
+
+ for (int i = 0; i < 3; i++) buf.i32[i] = (INT32) iegp->igdb[18 + i];
+ binWriteInt32(fileID, byteswap, 3, buf.i32);
+
+ if (dprec == EXSE_SINGLE_PRECISION)
+ {
+ for (int i = 0; i < 100; i++) buf.fvct[i] = (float) iegp->vct[i];
+ binWriteFlt32(fileID, byteswap, 100, buf.fvct);
+ }
+ else
+ {
+ binWriteFlt64(fileID, byteswap, 100, iegp->vct);
+ }
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ iegp->datasize = (size_t) iegp->igdb[4] * (size_t) iegp->igdb[5];
+ blocklen = iegp->datasize * (size_t) dprec;
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ switch (dprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ binWriteFlt32(fileID, byteswap, iegp->datasize, (FLT32 *) iegp->buffer);
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ binWriteFlt64(fileID, byteswap, iegp->datasize, (FLT64 *) iegp->buffer);
+ break;
+ }
+ default:
+ {
+ Error("unexpected data precision %d", dprec);
+ break;
+ }
+ }
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ return 0;
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef INCLUDE_GUARD_CDI_REFERENCE_COUNTING
+#define INCLUDE_GUARD_CDI_REFERENCE_COUNTING
+
+
+#include <sys/types.h>
+#include <stdlib.h>
+
+/*
+This is a base class for all objects that need reference counting.
+A CdiReferencedObject has a reference count of one when it is constructed, refObjectRetain() increments the reference count,
+refObject Release() decrements it. When the reference count reaches zero, the destructor function is called before the memory of the
+object is deallocated with Free().
+
+>>> Warning <<<
+This code is currently not thread-safe.
+
+We are currently using the C99 standard, which does not have atomic types.
+Also, there are still tons of systems out there that have a gcc without wrong C11 atomics support
+(__STDC_NO_ATOMICS__ not defined even though stdatomics.h is not even present).
+Consequently, it is impossible to write preprocessor code to even check for the presence of atomic types.
+So, we have two options: provide multithreading support by means of locks, or wait a year or two before doing this right.
+I, for one, prefer doing things right.
+*/
+typedef struct CdiReferencedObject CdiReferencedObject;
+struct CdiReferencedObject
+{
+ // protected:
+ void (*destructor)(CdiReferencedObject *me); // Subclass constructors should set this to their own destructor.
+
+ // private: //Subclasses may read it to determine whether there is only one reference, though.
+ size_t refCount;
+};
+
+void cdiRefObject_construct(CdiReferencedObject *me);
+void cdiRefObject_retain(CdiReferencedObject *me);
+void cdiRefObject_release(CdiReferencedObject *me);
+void cdiRefObject_destruct(CdiReferencedObject *me);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef INCLUDE_GUARD_CDI_GRIB_FILE_H
+#define INCLUDE_GUARD_CDI_GRIB_FILE_H
+
+
+/*
+CdiInputFile is a file abstraction that allows accessing an input file through any number of channels:
+It is reference counted, so that it is closed at the right place,
+and it is stateless, so that accesses from different callers cannot interfere with each other.
+Once the reference counting code is threadsafe, CdiInputFile will also be threadsafe.
+*/
+typedef struct CdiInputFile
+{
+ // public:
+ CdiReferencedObject super;
+
+ // private:
+ char *path;
+ int fileDescriptor;
+} CdiInputFile;
+
+// Final class, the constructor is private and not defined here.
+CdiInputFile *
+cdiInputFile_make(const char *path); // The caller is responsible to call cdiRefObject_release() on the returned object.
+int cdiInputFile_read(const CdiInputFile *me, off_t readPosition, size_t readSize, size_t *outActualReadSize,
+ void *buffer); // Returns one of CDI_EINVAL, CDI_ESYSTEM, CDI_EEOF, OR CDI_NOERR.
+/* Returns path string, don't use after destruction of CdiInputFile
+ * object */
+const char *cdiInputFile_getPath(const CdiInputFile *me);
+// Destructor is private as well.
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#define _XOPEN_SOURCE 600
+
+
+#include <errno.h>
+#include <fcntl.h>
+#include <pthread.h>
+#include <string.h>
+#include <unistd.h>
+
+static void cdiInputFile_destruct(CdiInputFile *me);
+
+// For an explanation of the condestruct() pattern, see the comment in iterator_grib.c
+// path != NULL -> construction
+// path = NULL -> destruction
+static CdiInputFile *
+cdiInputFile_condestruct(CdiInputFile *me, const char *path)
+{
+#define super() (&me->super)
+ if (!path) goto destruct;
+ cdiRefObject_construct(super());
+ me->path = strdup(path);
+ if (!me->path) goto destructSuper;
+ do
+ {
+ me->fileDescriptor = open(me->path, O_RDONLY);
+ }
+ while (me->fileDescriptor == -1 && (errno == EINTR || errno == EAGAIN));
+ if (me->fileDescriptor == -1) goto freePath;
+ // construction successfull, now we can set our own destructor
+ super()->destructor = (void (*)(CdiReferencedObject *)) cdiInputFile_destruct;
+ goto success;
+
+ // ^ constructor code ^
+ // | |
+ // v destructor/error-cleanup code v
+
+destruct:
+ close(me->fileDescriptor);
+freePath:
+ Free(me->path);
+destructSuper:
+ cdiRefObject_destruct(super());
+ me = NULL;
+
+success:
+ return me;
+#undef super
+}
+
+static CdiInputFile **openFileList = NULL;
+static size_t openFileCount = 0, openFileListSize = 0;
+static pthread_mutex_t openFileListLock = PTHREAD_MUTEX_INITIALIZER;
+
+// This either returns a new object, or retains and returns a preexisting open file.
+CdiInputFile *
+cdiInputFile_make(const char *path)
+{
+ CdiInputFile *result = NULL;
+ xassert(path);
+ int error = pthread_mutex_lock(&openFileListLock);
+ xassert(!error);
+ {
+ // Check the list of open files for the given path.
+ for (size_t i = openFileCount; i-- && !result;)
+ {
+ if (!strcmp(path, openFileList[i]->path)) result = openFileList[i];
+ }
+ // If no open file was found, we open one, otherwise we just retain the existing one one more time.
+ if (result)
+ {
+ cdiRefObject_retain(&result->super);
+ }
+ else
+ {
+ result = (CdiInputFile *) Malloc(sizeof(*result));
+ if (!cdiInputFile_condestruct(result, path))
+ {
+ // An error occured during construction, avoid a memory leak.
+ Free(result);
+ result = NULL;
+ }
+ else
+ {
+ // Add the new file to the list of open files.
+ if (openFileCount == openFileListSize)
+ {
+ openFileListSize *= 2;
+ if (openFileListSize < 16) openFileListSize = 16;
+ openFileList = (CdiInputFile **) Realloc(openFileList, openFileListSize);
+ }
+ xassert(openFileCount < openFileListSize);
+ openFileList[openFileCount++] = result;
+ }
+ }
+ }
+ error = pthread_mutex_unlock(&openFileListLock);
+ xassert(!error);
+ return result;
+}
+
+int
+cdiInputFile_read(const CdiInputFile *me, off_t readPosition, size_t readSize, size_t *outActualReadSize, void *buffer)
+{
+ char *byteBuffer = (char *) buffer;
+ size_t trash;
+ if (!outActualReadSize) outActualReadSize = &trash;
+ *outActualReadSize = 0;
+ while (readSize)
+ {
+ ssize_t bytesRead = pread(me->fileDescriptor, byteBuffer, readSize, readPosition);
+ if (bytesRead == -1) return (errno == EINVAL) ? CDI_EINVAL : CDI_ESYSTEM;
+ if (bytesRead == 0) return CDI_EEOF;
+ byteBuffer += bytesRead;
+ readPosition += bytesRead;
+ readSize -= (size_t) bytesRead;
+ *outActualReadSize += (size_t) bytesRead;
+ }
+ return CDI_NOERR;
+}
+
+const char *
+cdiInputFile_getPath(const CdiInputFile *me)
+{
+ return me->path;
+}
+
+void
+cdiInputFile_destruct(CdiInputFile *me)
+{
+ int error = pthread_mutex_lock(&openFileListLock);
+ xassert(!error);
+ {
+ // Find the position of me in the list of open files.
+ ssize_t position = (ssize_t) openFileCount;
+ while (position > 0 && openFileList[--position] != me)
+ ;
+ // Remove me from the list
+ openFileList[position] = openFileList[--openFileCount];
+ }
+ error = pthread_mutex_unlock(&openFileListLock);
+ xassert(!error);
+ cdiInputFile_condestruct(me, NULL);
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef INSTITUTION_H
+#define INSTITUTION_H
+
+int instituteUnpack(void *buf, int size, int *position, int originNamespace, void *context, int force_id);
+
+void instituteDefaultEntries(void);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <assert.h>
+#include <limits.h>
+
+
+typedef struct
+{
+ int self;
+ int center;
+ int subcenter;
+ char *name;
+ char *longname;
+} institute_t;
+
+static int instituteCompareKernel(institute_t *ip1, institute_t *ip2);
+static void instituteDestroyP(institute_t *instituteptr);
+static void institutePrintP(institute_t *instituteptr, FILE *fp);
+static int instituteGetPackSize(institute_t *instituteptr, void *context);
+static void institutePackP(void *instituteptr, void *buf, int size, int *position, void *context);
+static int instituteTxCode(void *instituteptr);
+
+static const resOps instituteOps = { (int (*)(void *, void *)) instituteCompareKernel,
+ (void (*)(void *)) instituteDestroyP,
+ (void (*)(void *, FILE *)) institutePrintP,
+ (int (*)(void *, void *)) instituteGetPackSize,
+ institutePackP,
+ instituteTxCode };
+
+static void
+instituteDefaultValue(institute_t *instituteptr)
+{
+ instituteptr->self = CDI_UNDEFID;
+ instituteptr->center = CDI_UNDEFID;
+ instituteptr->subcenter = CDI_UNDEFID;
+ instituteptr->name = NULL;
+ instituteptr->longname = NULL;
+}
+
+void
+instituteDefaultEntries(void)
+{
+ // clang-format off
+ cdiResH resH[]
+ = { institutDef( 98, 0, "ECMWF", "European Centre for Medium-Range Weather Forecasts"),
+ institutDef(252, 1, "MPIMET", "Max Planck Institute for Meteorology"),
+ institutDef( 98, 232, "MPIMET", "Max Planck Institute for Meteorology"),
+ institutDef( 98, 255, "MPIMET", "Max-Planck-Institute for Meteorology"),
+ institutDef( 78, 255, "DWD", "Deutscher Wetterdienst"),
+ institutDef( 78, 0, "DWD", "Deutscher Wetterdienst"),
+ institutDef(215, 255, "MCH", "MeteoSwiss"),
+ institutDef( 7, 0, "NCEP", "National Centers for Environmental Prediction"),
+ institutDef( 7, 1, "NCEP", "National Centers for Environmental Prediction"),
+ institutDef( 60, 0, "NCAR", "National Center for Atmospheric Research"),
+ institutDef( 74, 0, "METOFFICE", "U.K. Met Office"),
+ institutDef( 97, 0, "ESA", "European Space Agency"),
+ institutDef( 99, 0, "KNMI", "Royal Netherlands Meteorological Institute"),
+ institutDef( 80, 0, "CNMC", "Reparto per la Meteorologia, Rome (REMET)"),
+ // institutDef( 0, 0, "IPSL", "IPSL (Institut Pierre Simon Laplace, Paris, France)");
+ };
+ // clang-format on
+
+ const size_t n = sizeof(resH) / sizeof(*resH);
+ for (size_t i = 0; i < n; i++) reshSetStatus(resH[i], &instituteOps, RESH_IN_USE);
+}
+
+static int
+instituteCompareKernel(institute_t *ip1, institute_t *ip2)
+{
+ int differ = 0;
+
+ if (ip1->name)
+ {
+ if (ip1->center > 0 && ip2->center != ip1->center) differ = 1;
+ if (ip1->subcenter > 0 && ip2->subcenter != ip1->subcenter) differ = 1;
+
+ if (!differ)
+ {
+ if (ip2->name)
+ {
+ const size_t len1 = strlen(ip1->name);
+ const size_t len2 = strlen(ip2->name);
+ if ((len1 != len2) || memcmp(ip2->name, ip1->name, len2)) differ = 1;
+ }
+ }
+ }
+ else if (ip1->longname)
+ {
+ if (ip2->longname)
+ {
+ const size_t len1 = strlen(ip1->longname);
+ const size_t len2 = strlen(ip2->longname);
+ if ((len1 != len2) || memcmp(ip2->longname, ip1->longname, len2)) differ = 1;
+ }
+ }
+ else
+ {
+ if (!(ip2->center == ip1->center && ip2->subcenter == ip1->subcenter)) differ = 1;
+ if (ip1->subcenter > 0 && ip1->subcenter != 255 && ip2->subcenter != ip1->subcenter) differ = 1;
+ }
+
+ return differ;
+}
+
+struct instLoc
+{
+ institute_t *ip;
+ int id;
+};
+
+static enum cdiApplyRet
+findInstitute(int id, void *res, void *data)
+{
+ institute_t *ip1 = ((struct instLoc *) data)->ip;
+ institute_t *ip2 = (institute_t *) res;
+ if (!instituteCompareKernel(ip1, ip2))
+ {
+ ((struct instLoc *) data)->id = id;
+ return CDI_APPLY_STOP;
+ }
+ else
+ return CDI_APPLY_GO_ON;
+}
+
+int
+institutInq(int center, int subcenter, const char *name, const char *longname)
+{
+ institute_t ip_ref;
+ ip_ref.self = CDI_UNDEFID;
+ ip_ref.center = center;
+ ip_ref.subcenter = subcenter;
+ ip_ref.name = (name && name[0]) ? (char *) name : NULL;
+ ip_ref.longname = (longname && longname[0]) ? (char *) longname : NULL;
+
+ struct instLoc state = { .ip = &ip_ref, .id = CDI_UNDEFID };
+ cdiResHFilterApply(&instituteOps, findInstitute, &state);
+
+ return state.id;
+}
+
+static institute_t *
+instituteNewEntry(cdiResH resH, int center, int subcenter, const char *name, const char *longname)
+{
+ institute_t *instituteptr = (institute_t *) Malloc(sizeof(institute_t));
+ instituteDefaultValue(instituteptr);
+ if (resH == CDI_UNDEFID)
+ instituteptr->self = reshPut(instituteptr, &instituteOps);
+ else
+ {
+ instituteptr->self = resH;
+ reshReplace(resH, instituteptr, &instituteOps);
+ }
+ instituteptr->center = center;
+ instituteptr->subcenter = subcenter;
+ if (name && *name) instituteptr->name = strdup(name);
+ if (longname && *longname) instituteptr->longname = strdup(longname);
+ return instituteptr;
+}
+
+int
+institutDef(int center, int subcenter, const char *name, const char *longname)
+{
+ institute_t *instituteptr = instituteNewEntry(CDI_UNDEFID, center, subcenter, name, longname);
+ return instituteptr->self;
+}
+
+int
+institutInqCenter(int instID)
+{
+ return instID != CDI_UNDEFID ? ((institute_t *) (reshGetVal(instID, &instituteOps)))->center : CDI_UNDEFID;
+}
+
+int
+institutInqSubcenter(int instID)
+{
+ return instID != CDI_UNDEFID ? ((institute_t *) (reshGetVal(instID, &instituteOps)))->subcenter : CDI_UNDEFID;
+}
+
+const char *
+institutInqNamePtr(int instID)
+{
+ return instID != CDI_UNDEFID ? ((institute_t *) (reshGetVal(instID, &instituteOps)))->name : NULL;
+}
+
+const char *
+institutInqLongnamePtr(int instID)
+{
+ return instID != CDI_UNDEFID ? ((institute_t *) (reshGetVal(instID, &instituteOps)))->longname : NULL;
+}
+
+int
+institutInqNumber(void)
+{
+ int instNum = (int) (reshCountType(&instituteOps));
+ return instNum;
+}
+
+static void
+instituteDestroyP(institute_t *instituteptr)
+{
+ xassert(instituteptr);
+ Free(instituteptr->name);
+ Free(instituteptr->longname);
+ Free(instituteptr);
+}
+
+static void
+institutePrintP(institute_t *ip, FILE *fp)
+{
+ if (ip)
+ fprintf(fp,
+ "#\n"
+ "# instituteID %d\n"
+ "#\n"
+ "self = %d\n"
+ "center = %d\n"
+ "subcenter = %d\n"
+ "name = %s\n"
+ "longname = %s\n",
+ ip->self, ip->self, ip->center, ip->subcenter, ip->name ? ip->name : "NN", ip->longname ? ip->longname : "NN");
+}
+
+static int
+instituteTxCode(void *instituteptr)
+{
+ (void) instituteptr;
+ return INSTITUTE;
+}
+
+enum
+{
+ INSTITUTE_PACK_INT_SELF,
+ INSTITUTE_PACK_INT_CENTER,
+ INSTITUTE_PACK_INT_SUBCENTER,
+ INSTITUTE_PACK_INT_NAMELEN,
+ INSTITUTE_PACK_INT_LNAMELEN,
+ institute_nints,
+};
+
+static int
+instituteGetPackSize(institute_t *ip, void *context)
+{
+ size_t namelen = strlen(ip->name), longnamelen = strlen(ip->longname);
+ xassert(namelen < INT_MAX && longnamelen < INT_MAX);
+ size_t txsize = (size_t) serializeGetSize(institute_nints, CDI_DATATYPE_INT, context)
+ + (size_t) serializeGetSize((int) namelen + 1, CDI_DATATYPE_TXT, context)
+ + (size_t) serializeGetSize((int) longnamelen + 1, CDI_DATATYPE_TXT, context);
+ xassert(txsize <= INT_MAX);
+ return (int) txsize;
+}
+
+static void
+institutePackP(void *instituteptr, void *buf, int size, int *position, void *context)
+{
+ institute_t *p = (institute_t *) instituteptr;
+ int tempbuf[institute_nints];
+ tempbuf[INSTITUTE_PACK_INT_SELF] = p->self;
+ tempbuf[INSTITUTE_PACK_INT_CENTER] = p->center;
+ tempbuf[INSTITUTE_PACK_INT_SUBCENTER] = p->subcenter;
+ tempbuf[INSTITUTE_PACK_INT_NAMELEN] = (int) strlen(p->name) + 1;
+ tempbuf[INSTITUTE_PACK_INT_LNAMELEN] = (int) strlen(p->longname) + 1;
+ serializePack(tempbuf, institute_nints, CDI_DATATYPE_INT, buf, size, position, context);
+ serializePack(p->name, tempbuf[INSTITUTE_PACK_INT_NAMELEN], CDI_DATATYPE_TXT, buf, size, position, context);
+ serializePack(p->longname, tempbuf[INSTITUTE_PACK_INT_LNAMELEN], CDI_DATATYPE_TXT, buf, size, position, context);
+}
+
+int
+instituteUnpack(void *buf, int size, int *position, int originNamespace, void *context, int force_id)
+{
+#define adaptKey(key) (namespaceAdaptKey((key), originNamespace))
+ int tempbuf[institute_nints];
+ int instituteID;
+ serializeUnpack(buf, size, position, tempbuf, institute_nints, CDI_DATATYPE_INT, context);
+ char *name = (char *) Malloc((size_t) tempbuf[INSTITUTE_PACK_INT_NAMELEN] + (size_t) tempbuf[INSTITUTE_PACK_INT_LNAMELEN]),
+ *longname = name + tempbuf[INSTITUTE_PACK_INT_NAMELEN];
+ serializeUnpack(buf, size, position, name, tempbuf[INSTITUTE_PACK_INT_NAMELEN], CDI_DATATYPE_TXT, context);
+ serializeUnpack(buf, size, position, longname, tempbuf[INSTITUTE_PACK_INT_LNAMELEN], CDI_DATATYPE_TXT, context);
+ int targetID = force_id ? adaptKey(tempbuf[INSTITUTE_PACK_INT_SELF]) : CDI_UNDEFID;
+ institute_t *ip
+ = instituteNewEntry(targetID, tempbuf[INSTITUTE_PACK_INT_CENTER], tempbuf[INSTITUTE_PACK_INT_SUBCENTER], name, longname);
+ instituteID = ip->self;
+ xassert(!force_id || instituteID == targetID);
+ Free(name);
+ reshSetStatus(instituteID, &instituteOps, reshGetStatus(instituteID, &instituteOps) & ~RESH_SYNC_BIT);
+#undef adaptKey
+ return instituteID;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+/*
+ * This file is for the use of iterator.c and the CdiIterator subclasses only.
+ */
+
+#ifndef INCLUDE_GUARD_CDI_ITERATOR_INT_H
+#define INCLUDE_GUARD_CDI_ITERATOR_INT_H
+
+
+#include <stdbool.h>
+
+/*
+class CdiIterator
+
+An iterator is an object that identifies the position of one record in a file, where a record is defined as the data belonging to
+one level, timestep, and variable. Using iterators to read a file can be significantly faster than using streams, because they can
+avoid building an index of the file. For file formats like grib that do not provide an index within the file, this makes the
+difference between reading the file once or reading the file twice.
+
+CdiIterator is an abstract base class. Which derived class is used depends on the type of the file. The class hierarchy currently
+looks like this:
+
+ CdiIterator <|--+-- CdiFallbackIterator
+ |
+ +-- CdiGribIterator
+
+The fallback implementation currently uses the stream interface of CDI under the hood to provide full functionality for all
+filetypes for which no iterator implementation exists yet.
+*/
+// TODO[NH]: Debug messages, print function.
+
+struct CdiIterator
+{
+ int filetype; // This is used to dispatch calls to the correct subclass.
+ bool isAdvanced; // Used to catch inquiries before the first call to CdiIteratorNextField(). //XXX: Advanced is probably not a
+ // good word (initialized?)
+
+ // The metadata that can be accessed by the inquiry calls.
+ // While theoretically redundant, these fields allow the handling of most inquiry calls within the base class.
+ // Only the name is excempted because it needs an allocation.
+ // These fields are set by the subclasses in the xxxIterNextField() method.
+ int datatype, timesteptype;
+ int gridId;
+ CdiParam param;
+
+ // The status information for reading/advancing is added in the subclasses.
+};
+
+void baseIterConstruct(CdiIterator *me, int filetype);
+const char *baseIter_constructFromString(
+ CdiIterator *me, const char *description); // Returns a pointer past the end of the parsed portion of the description string.
+void baseIterDestruct(CdiIterator *me);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+/*
+ * A fallback implementation of the iterator interface that opens a stream under the hood.
+ *
+ * This implementation is mainly available to provide iterator access to file formats that don't support iterator access natively,
+ * nevertheless, it allows the file to dictate the order in which data is read, possibly providing performance benefits.
+ */
+
+#ifndef INCLUDE_GUARD_CDI_ITERATOR_FALLBACK_H
+#define INCLUDE_GUARD_CDI_ITERATOR_FALLBACK_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <stdlib.h>
+
+
+typedef struct CdiFallbackIterator CdiFallbackIterator;
+
+CdiIterator *cdiFallbackIterator_new(const char *path, int filetype);
+CdiFallbackIterator *cdiFallbackIterator_clone(CdiIterator *me);
+CdiIterator *cdiFallbackIterator_getSuper(CdiFallbackIterator *me);
+char *cdiFallbackIterator_serialize(CdiIterator *me);
+CdiFallbackIterator *cdiFallbackIterator_deserialize(const char *me);
+
+int cdiFallbackIterator_nextField(CdiIterator *me);
+
+char *cdiFallbackIterator_inqTime(CdiIterator *me, CdiTimeType timeType);
+int cdiFallbackIterator_levelType(CdiIterator *me, int levelSelector, char **outName, char **outLongName, char **outStdName,
+ char **outUnit);
+int cdiFallbackIterator_level(CdiIterator *me, int levelSelector, double *outValue1, double *outValue2);
+int cdiFallbackIterator_zaxisUuid(CdiIterator *me, int *outVgridNumber, int *outLevelCount, unsigned char outUuid[CDI_UUID_SIZE]);
+char *cdiFallbackIterator_copyVariableName(CdiIterator *me);
+int cdiFallbackIterator_inqTile(CdiIterator *me, int *outTileIndex, int *outTileAttribute);
+int cdiFallbackIterator_inqTileCount(CdiIterator *me, int *outTileCount, int *outTileAttributeCount);
+
+void cdiFallbackIterator_readField(CdiIterator *me, double *buffer, size_t *numMissVals);
+void cdiFallbackIterator_readFieldF(CdiIterator *me, float *buffer, size_t *numMissVals);
+
+void cdiFallbackIterator_delete(CdiIterator *super);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+/*
+ * An implementation of the iterator interface for GRIB files.
+ * Since GRIB files do not contain an index, this avoids scanning the entire file to generate an in-memory index as streamOpenRead()
+ * does. Consequently, using this interface is much more efficient for GRIB files.
+ */
+
+#ifndef INCLUDE_GUARD_CDI_ITERATOR_GRIB_H
+#define INCLUDE_GUARD_CDI_ITERATOR_GRIB_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+#ifdef HAVE_LIBGRIB_API
+#include <grib_api.h>
+#endif
+
+typedef struct recordList recordList;
+
+CdiIterator *cdiGribIterator_new(const char *path, int filetype);
+CdiGribIterator *cdiGribIterator_makeClone(CdiIterator *me);
+CdiIterator *cdiGribIterator_getSuper(CdiGribIterator *me);
+char *cdiGribIterator_serialize(CdiIterator *me);
+CdiGribIterator *cdiGribIterator_deserialize(const char *me);
+
+int cdiGribIterator_nextField(CdiIterator *me);
+
+char *cdiGribIterator_inqTime(CdiIterator *me, CdiTimeType timeType);
+int cdiGribIterator_levelType(CdiIterator *me, int levelSelector, char **outName, char **outLongName, char **outStdName,
+ char **outUnit);
+int cdiGribIterator_level(CdiIterator *me, int levelSelector, double *outValue1, double *outValue2);
+int cdiGribIterator_zaxisUuid(CdiIterator *me, int *outVgridNumber, int *outLevelCount, unsigned char outUuid[CDI_UUID_SIZE]);
+int cdiGribIterator_inqTile(CdiIterator *me, int *outTileIndex, int *outTileAttribute);
+int cdiGribIterator_inqTileCount(CdiIterator *me, int *outTileCount, int *outTileAttributeCount);
+char *cdiGribIterator_copyVariableName(CdiIterator *me);
+
+void cdiGribIterator_readField(CdiIterator *me, double *buffer, size_t *numMissVals);
+void cdiGribIterator_readFieldF(CdiIterator *me, float *buffer, size_t *numMissVals);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+#include <assert.h>
+#include <ctype.h>
+
+static const char kUnexpectedFileTypeMessage[] = "Internal error: Unexpected file type encountered in iterator.\n"
+ "This is either due to an illegal memory access by the application\n"
+ " or an internal logical error in CDI (unlikely, but possible).";
+static const char kAdvancedString[] = "advanced";
+static const char kUnadvancedString[] = "unadvanced";
+
+// Returns a static string.
+static const char *
+fileType2String(int fileType)
+{
+ switch (fileType)
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRB: return "CDI::Iterator::GRIB1";
+ case CDI_FILETYPE_GRB2: return "CDI::Iterator::GRIB2";
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NC: return "CDI::Iterator::NetCDF";
+ case CDI_FILETYPE_NC2: return "CDI::Iterator::NetCDF2";
+ case CDI_FILETYPE_NC4: return "CDI::Iterator::NetCDF4";
+ case CDI_FILETYPE_NC4C: return "CDI::Iterator::NetCDF4C";
+ case CDI_FILETYPE_NC5: return "CDI::Iterator::NetCDF5";
+ case CDI_FILETYPE_NCZARR: return "CDI::Iterator::NCZarr";
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: return "CDI::Iterator::SRV";
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: return "CDI::Iterator::EXT";
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: return "CDI::Iterator::IEG";
+#endif
+
+ default: return NULL;
+ }
+}
+
+static int
+string2FileType(const char *fileType, const char **outRestString)
+{
+ // This first part unconditionally checks all known type strings, and only if the given string matches one of these strings, we
+ // use fileType2string() to check whether support for this type has been compiled in. This is to avoid throwing "invalid type
+ // string" errors when we just have a library version mismatch.
+#define check(givenString, typeString, typeConstant) \
+ do \
+ { \
+ if (givenString == strstr(givenString, typeString)) \
+ { \
+ if (outRestString) *outRestString = givenString + strlen(typeString); \
+ if (fileType2String(typeConstant)) return typeConstant; \
+ Error("Support for " typeString \
+ " not compiled in. Please check that the result of `cdiIterator_serialize()` is only passed to a " \
+ "`cdiIterator_deserialize()` implementation of the same CDI library version."); \
+ return CDI_FILETYPE_UNDEF; \
+ } \
+ } \
+ while (0)
+ check(fileType, "CDI::Iterator::GRIB1", CDI_FILETYPE_GRB);
+ check(fileType, "CDI::Iterator::GRIB2", CDI_FILETYPE_GRB2);
+ check(fileType, "CDI::Iterator::NetCDF", CDI_FILETYPE_NC);
+ check(fileType, "CDI::Iterator::NetCDF2", CDI_FILETYPE_NC2);
+ check(fileType, "CDI::Iterator::NetCDF4", CDI_FILETYPE_NC4);
+ check(fileType, "CDI::Iterator::NetCDF4C", CDI_FILETYPE_NC4C);
+ check(fileType, "CDI::Iterator::NetCDF5", CDI_FILETYPE_NC5);
+ check(fileType, "CDI::Iterator::NCZarr", CDI_FILETYPE_NCZARR);
+ check(fileType, "CDI::Iterator::SRV", CDI_FILETYPE_SRV);
+ check(fileType, "CDI::Iterator::EXT", CDI_FILETYPE_EXT);
+ check(fileType, "CDI::Iterator::IEG", CDI_FILETYPE_IEG);
+#undef check
+
+ // If this point is reached, the given string does not seem to be produced by a cdiIterator_serialize() call.
+ Error("The string \"%s\" does not start with a valid iterator type. Please check the source of this string.", fileType);
+ *outRestString = fileType;
+ return CDI_FILETYPE_UNDEF;
+}
+
+/*
+@Function cdiIterator_new
+@Title Create an iterator for an input file
+
+@Prototype CdiIterator* cdiIterator_new(const char* path)
+@Parameter
+ @item path Path to the file that is to be read.
+
+@Result An iterator for the given file.
+
+@Description
+ Combined allocator and constructor for CdiIterator.
+
+ The returned iterator does not point to the first field yet,
+ it must first be advanced once before the first field can be introspected.
+ This design decision has two benefits: 1. Empty files require no special
+ cases, 2. Users can start a while(!cdiIterator_nextField(iterator)) loop
+ right after the call to cdiIterator_new().
+*/
+CdiIterator *
+cdiIterator_new(const char *path)
+{
+ int trash;
+ const int filetype = cdiGetFiletype(path, &trash);
+ switch (cdiBaseFiletype(filetype))
+ {
+ case CDI_FILETYPE_UNDEF: Warning("Can't open file \"%s\": unknown format\n", path); return NULL;
+
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_new(path, filetype);
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_new(path, filetype);
+
+ default:
+ Warning("the file \"%s\" is of type %s, but support for this format is not compiled in!", path, strfiletype(filetype));
+ return NULL;
+ }
+}
+
+void
+baseIterConstruct(CdiIterator *me, int filetype)
+{
+ me->filetype = filetype;
+ me->isAdvanced = false;
+}
+
+const char *
+baseIter_constructFromString(CdiIterator *me, const char *description)
+{
+ const char *result = description;
+ me->filetype = string2FileType(result, &result);
+ assert(me->filetype != CDI_FILETYPE_UNDEF
+ && "Please report this error."); // This condition should have been checked for in a calling function.
+ for (; *result && isspace(*result); result++)
+ ;
+ if (result == strstr(result, kAdvancedString))
+ {
+ me->isAdvanced = true;
+ result += sizeof(kAdvancedString) - 1;
+ }
+ else if (result == strstr(result, kUnadvancedString))
+ {
+ me->isAdvanced = false;
+ result += sizeof(kUnadvancedString) - 1;
+ }
+ else
+ {
+ Error("Invalid iterator description string \"%s\". Please check the origin of this string.", description);
+ return NULL;
+ }
+ return result;
+}
+
+#define sanityCheck(me) \
+ do \
+ { \
+ if (!me) xabort("NULL was passed to %s as an iterator. Please check the return value of cdiIterator_new().", __func__); \
+ if (!me->isAdvanced) xabort("Calling %s is not allowed without calling cdiIterator_nextField() first.", __func__); \
+ } \
+ while (0)
+
+/*
+@Function cdiIterator_clone
+@Title Make a copy of an iterator
+
+@Prototype CdiIterator* cdiIterator_clone(CdiIterator* me)
+@Parameter
+ @item iterator The iterator to copy.
+
+@Result The clone.
+
+@Description
+ Clones the given iterator. Make sure to call cdiIterator_delete() on both
+ the copy and the original.
+
+ This is not a cheap operation: Depending on the type of the file, it will
+ either make a copy of the current field in memory (GRIB files), or reopen
+ the file (all other file types). Use it sparingly. And if you do, try to
+ avoid keeping too many clones around: their memory footprint is
+ significant.
+*/
+CdiIterator *
+cdiIterator_clone(CdiIterator *me)
+{
+ sanityCheck(me);
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_getSuper(cdiGribIterator_clone(me));
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_getSuper(cdiFallbackIterator_clone(me));
+
+ default: Error(kUnexpectedFileTypeMessage); return NULL;
+ }
+}
+
+/*
+@Function cdiGribIterator_clone
+@Title Gain access to GRIB specific functionality
+
+@Prototype CdiGribIterator* cdiGribIterator_clone(CdiIterator* me)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result A clone that allows access to GRIB specific functionality, or NULL if the underlying file is not a GRIB file.
+
+@Description
+ Clones the given iterator iff the underlying file is a GRIB file, the returned iterator allows access to GRIB specific
+functionality. Make sure to check that the return value is not NULL, and to call cdiGribIterator_delete() on the copy.
+
+ This is not a cheap operation: It will make a copy of the current field in memory. Use it sparingly. And if you do, try to avoid
+keeping too many clones around, their memory footprint is significant.
+*/
+CdiGribIterator *
+cdiGribIterator_clone(CdiIterator *me)
+{
+ sanityCheck(me);
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_makeClone(me);
+#endif
+
+ default: return NULL;
+ }
+}
+
+/*
+@Function cdiIterator_serialize
+@Title Serialize an iterator for sending it to another process
+
+@Prototype char* cdiIterator_serialize(CdiIterator* me)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result A malloc'ed string that contains the full description of the iterator.
+
+@Description
+ Make sure to call Free() on the resulting string.
+*/
+char *
+cdiIterator_serialize(CdiIterator *me)
+{
+ if (!me) xabort("NULL was passed to %s as an iterator. Please check the return value of cdiIterator_new().", __func__);
+ char *subclassDescription = NULL;
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: subclassDescription = cdiGribIterator_serialize(me); break;
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ subclassDescription = cdiFallbackIterator_serialize(me);
+ break;
+
+ default: Error(kUnexpectedFileTypeMessage); return NULL;
+ }
+
+ const char *ftypeStr = fileType2String(me->filetype), *advStr = me->isAdvanced ? kAdvancedString : kUnadvancedString;
+ size_t len = strlen(ftypeStr) + 1 + strlen(advStr) + 1 + strlen(subclassDescription) + 1;
+ char *result = (char *) Malloc(len);
+ snprintf(result, len, "%s %s %s", ftypeStr, advStr, subclassDescription);
+ Free(subclassDescription);
+ return result;
+}
+
+/*
+@Function cdiIterator_deserialize
+@Title Recreate an iterator from its textual description
+
+@Prototype CdiIterator* cdiIterator_deserialize(const char* description)
+@Parameter
+ @item description The result of a call to cdiIterator_serialize().
+
+@Result A clone of the original iterator.
+
+@Description
+ A pair of cdiIterator_serialize() and cdiIterator_deserialize() is functionally equivalent to a call to cdiIterator_clone()
+
+ This function will reread the current field from disk, so don't expect immediate return.
+*/
+// This only checks the type of the iterator and calls the corresponding subclass function,
+// the real deserialization is done in baseIter_constructFromString().
+CdiIterator *
+cdiIterator_deserialize(const char *description)
+{
+ switch (cdiBaseFiletype(string2FileType(description, NULL)))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_getSuper(cdiGribIterator_deserialize(description));
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_getSuper(cdiFallbackIterator_deserialize(description));
+
+ default: Error(kUnexpectedFileTypeMessage); return NULL;
+ }
+}
+
+/*
+@Function cdiIterator_print
+@Title Print a textual description of the iterator to a stream
+
+@Prototype void cdiIterator_print(CdiIterator* iterator, FILE* stream);
+@Parameter
+ @item iterator The iterator to print.
+ @item stream The stream to print to.
+
+@Description
+ Use for debugging output.
+*/
+void
+cdiIterator_print(CdiIterator *me, FILE *stream)
+{
+ char *description = cdiIterator_serialize(me);
+ fprintf(stream, "%s\n", description);
+ Free(description);
+}
+
+/*
+@Function cdiIterator_nextField
+@Title Advance an iterator to the next field in the file
+
+@Prototype int cdiIterator_nextField(CdiIterator* iterator)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result An error code. May be one of:
+ * CDI_NOERR: The iterator has successfully been advanced to the next field.
+ * CDI_EEOF: No more fields to read in this file.
+
+@Description
+ One call to cdiIterator_nextField() is required before the metadata of the first field can be examined.
+ Usually, it will be used directly as the condition for a while() loop.
+*/
+int
+cdiIterator_nextField(CdiIterator *me)
+{
+ if (!me) xabort("NULL was passed in as an iterator. Please check the return value of cdiIterator_new().");
+ me->isAdvanced = true;
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_nextField(me);
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_nextField(me);
+
+ default: Error(kUnexpectedFileTypeMessage); return CDI_EINVAL;
+ }
+}
+
+static char *
+cdiIterator_inqTime(CdiIterator *me, CdiTimeType timeType)
+{
+ sanityCheck(me);
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_inqTime(me, timeType);
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_inqTime(me, timeType);
+
+ default: Error(kUnexpectedFileTypeMessage); return NULL;
+ }
+}
+
+/*
+@Function cdiIterator_inqStartTime
+@Title Get the start time of a measurement
+
+@Prototype char* cdiIterator_inqStartTime(CdiIterator* me)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result A malloc'ed string containing the (start) time of the current field in the format "YYYY-MM-DDTHH:MM:SS.mmm".
+
+@Description
+The returned time is either the time of the data (fields defined at a time point),
+or the start time of an integration time range (statistical fields).
+
+Converts the time to the ISO-8601 format and returns it in a newly allocated buffer.
+The caller is responsible to Free() the resulting string.
+
+If the file is a GRIB file, the calendar that is used to resolve the relative times is the proleptic calendar
+as it is implemented by the standard C mktime() function.
+This is due to the fact that GRIB-API version 1.12.3 still does not implement the calendar identification fields.
+*/
+char *
+cdiIterator_inqStartTime(CdiIterator *me)
+{
+ return cdiIterator_inqTime(me, kCdiTimeType_startTime);
+}
+
+/*
+@Function cdiIterator_inqEndTime
+@Title Get the end time of a measurement
+
+@Prototype char* cdiIterator_inqEndTime(CdiIterator* me)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result A malloc'ed string containing the end time of the current field in the format "YYYY-MM-DDTHH:MM:SS.mmm", or NULL if no such
+time is defined.
+
+@Description
+The returned time is the end time of an integration period if such a time exists (statistical fields).
+Otherwise, NULL is returned.
+
+Converts the time to the ISO-8601 format and returns it in a newly allocated buffer.
+The caller is responsible to Free() the resulting string.
+
+If the file is a GRIB file, the calendar that is used to resolve the relative times is the proleptic calendar
+as it is implemented by the standard C mktime() function.
+This is due to the fact that GRIB-API version 1.12.3 still does not implement the calendar identification fields.
+*/
+char *
+cdiIterator_inqEndTime(CdiIterator *me)
+{
+ return cdiIterator_inqTime(me, kCdiTimeType_endTime);
+}
+
+/*
+@Function cdiIterator_inqRTime
+@Title Get the validity time of the current field
+
+@Prototype char* cdiIterator_inqRTime(CdiIterator* me)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result A malloc'ed string containing the validity time of the current field in the format "YYYY-MM-DDTHH:MM:SS.mmm".
+
+@Description
+The returned time is the validity time as it is returned by taxisInqVtime(), only more precise.
+That is, if the field is a time point, its time is returned,
+if it is a statistical field with an integration period, the end time of the integration period is returned.
+
+Converts the time to the ISO-8601 format and returns it in a newly allocated buffer.
+The caller is responsible to Free() the resulting string.
+
+If the file is a GRIB file, the calendar that is used to resolve the relative times is the proleptic calendar
+as it is implemented by the standard C mktime() function.
+This is due to the fact that GRIB-API version 1.12.3 still does not implement the calendar identification fields.
+*/
+char *
+cdiIterator_inqRTime(CdiIterator *me)
+{
+ return cdiIterator_inqTime(me, kCdiTimeType_referenceTime);
+}
+
+/*
+@Function cdiIterator_inqVTime
+@Title Get the validity time of the current field
+
+@Prototype char* cdiIterator_inqVTime(CdiIterator* me)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result A malloc'ed string containing the validity time of the current field in the format "YYYY-MM-DDTHH:MM:SS.mmm".
+
+@Description
+The returned time is the validity time as it is returned by taxisInqVtime(), only more precise.
+That is, if the field is a time point, its time is returned,
+if it is a statistical field with an integration period, the end time of the integration period is returned.
+
+Converts the time to the ISO-8601 format and returns it in a newly allocated buffer.
+The caller is responsible to Free() the resulting string.
+
+If the file is a GRIB file, the calendar that is used to resolve the relative times is the proleptic calendar
+as it is implemented by the standard C mktime() function.
+This is due to the fact that GRIB-API version 1.12.3 still does not implement the calendar identification fields.
+*/
+char *
+cdiIterator_inqVTime(CdiIterator *me)
+{
+ char *result = cdiIterator_inqEndTime(me);
+ return (result) ? result : cdiIterator_inqStartTime(me);
+}
+
+/*
+@Function cdiIterator_inqLevelType
+@Title Get the type of a level
+
+@Prototype int cdiIterator_inqLevelType(CdiIterator* me, int levelSelector, char **outName = NULL, char **outLongName = NULL, char
+**outStdName = NULL, char **outUnit = NULL)
+@Parameter
+ @item iterator The iterator to operate on.
+ @item levelSelector Zero for the top level, one for the bottom level
+ @item outName Will be set to a Malloc()'ed string with the name of the level if not NULL.
+ @item outLongName Will be set to a Malloc()'ed string with the long name of the level if not NULL.
+ @item outStdName Will be set to a Malloc()'ed string with the standard name of the level if not NULL.
+ @item outUnit Will be set to a Malloc()'ed string with the unit of the level if not NULL.
+
+@Result An integer indicating the type of the level.
+
+@Description
+Find out some basic information about the given level, the levelSelector selects the function of the requested level.
+If the requested level does not exist, this returns CDI_UNDEFID.
+*/
+int
+cdiIterator_inqLevelType(CdiIterator *me, int levelSelector, char **outName, char **outLongName, char **outStdName, char **outUnit)
+{
+ sanityCheck(me);
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_levelType(me, levelSelector, outName, outLongName, outStdName, outUnit);
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_levelType(me, levelSelector, outName, outLongName, outStdName, outUnit);
+
+ default: Error(kUnexpectedFileTypeMessage); return CDI_UNDEFID;
+ }
+}
+
+/*
+@Function cdiIterator_inqLevel
+@Title Get the value of the z-coordinate
+
+@Prototype void cdiIterator_inqLevel(CdiIterator* me, int levelSelector, double* outValue1, double* outValue2 = NULL)
+@Parameter
+ @item iterator The iterator to operate on.
+ @item levelSelector Zero for the top level, one for the bottom level
+ @item outValue1 For "normal" levels this returns the value, for hybrid levels the first coordinate, for generalized levels the
+level number.
+ @item outValue2 Zero for "normal" levels, for hybrid levels, this returns the second coordinate, for generalized levels the
+level count.
+
+@Result An error code.
+
+@Description
+Returns the value of the z-coordinate, whatever that may be.
+*/
+int
+cdiIterator_inqLevel(CdiIterator *me, int levelSelector, double *outValue1, double *outValue2)
+{
+ sanityCheck(me);
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_level(me, levelSelector, outValue1, outValue2);
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_level(me, levelSelector, outValue1, outValue2);
+
+ default: Error(kUnexpectedFileTypeMessage); return CDI_EINVAL;
+ }
+}
+
+/*
+@Function cdiIterator_inqLevelUuid
+@Title Get the UUID of the z-axis used by this field
+
+@Prototype int cdiIterator_inqLevelUuid(CdiIterator* me, int levelSelector, unsigned char (*outUuid)[16])
+@Parameter
+ @item iterator The iterator to operate on.
+ @item outVgridNumber The number of the associated vertical grid description.
+ @item outLevelCount The number of levels in the associated vertical grid description.
+ @item outUuid A pointer to a user supplied buffer of 16 bytes to store the UUID in.
+
+@Result An error code.
+
+@Description
+Returns identifying information for the external z-axis description. May only be called for generalized levels.
+*/
+int
+cdiIterator_inqLevelUuid(CdiIterator *me, int *outVgridNumber, int *outLevelCount, unsigned char outUuid[CDI_UUID_SIZE])
+{
+ sanityCheck(me);
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_zaxisUuid(me, outVgridNumber, outLevelCount, outUuid);
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_zaxisUuid(me, outVgridNumber, outLevelCount, outUuid);
+
+ default: Error(kUnexpectedFileTypeMessage); return CDI_ELIBNAVAIL;
+ }
+}
+
+/*
+@Function cdiIterator_inqTile
+@Title Inquire the tile information for the current field
+
+@Prototype int cdiIterator_inqTile(CdiIterator* me, int* outTileIndex, int* outTileAttribute)
+@Parameter
+ @item iterator The iterator to operate on.
+ @item outTileIndex The index of the current tile, -1 if no tile information is available.
+ @item outTileAttribute The attribute of the current tile, -1 if no tile information is available.
+
+@Result An error code. CDI_EINVAL if there is no tile information associated with the current field.
+
+@Description
+Inquire the tile index and attribute for the current field.
+*/
+int
+cdiIterator_inqTile(CdiIterator *me, int *outTileIndex, int *outTileAttribute)
+{
+ sanityCheck(me);
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_inqTile(me, outTileIndex, outTileAttribute);
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_inqTile(me, outTileIndex, outTileAttribute);
+
+ default: Error(kUnexpectedFileTypeMessage); return CDI_ELIBNAVAIL;
+ }
+}
+
+/**
+@Function cdiIterator_inqTileCount
+@Title Inquire the tile count and tile attribute counts for the current field
+
+@Prototype int cdiIterator_inqTileCount(CdiIterator* me, int* outTileCount, int* outTileAttributeCount)
+@Parameter
+ @item iterator The iterator to operate on.
+ @item outTileCount The number of tiles used for this variable, zero if no tile information is available.
+ @item outTileAttributeCount The number of attributes available for the tile of this field, zero if no tile information is
+available. Note: This is not the global attribute count, which would be impossible to infer without reading the entire file if it's
+a GRIB file.
+
+@Result An error code. CDI_EINVAL if there is no tile information associated with the current field.
+
+@Description
+Inquire the tile count and tile attribute counts for the current field.
+*/
+int
+cdiIterator_inqTileCount(CdiIterator *me, int *outTileCount, int *outTileAttributeCount)
+{
+ sanityCheck(me);
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_inqTileCount(me, outTileCount, outTileAttributeCount);
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_inqTileCount(me, outTileCount, outTileAttributeCount);
+
+ default: Error(kUnexpectedFileTypeMessage); return CDI_ELIBNAVAIL;
+ }
+}
+
+/*
+@Function cdiIterator_inqParam
+@Title Get discipline, category, and number
+
+@Prototype CdiParam cdiIterator_inqParam(CdiIterator* iterator)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result A struct containing the requested information.
+
+@Description
+ Simple metadata inspection function.
+*/
+CdiParam
+cdiIterator_inqParam(CdiIterator *me)
+{
+ sanityCheck(me);
+ return me->param;
+}
+
+/*
+@Function cdiIterator_inqParamParts
+@Title Get discipline, category, and number
+
+@Prototype void cdiIterator_inqParamParts(CdiIterator *me, int *outDiscipline, int *outCategory, int *outNumber)
+@Parameter
+ @item iterator The iterator to operate on.
+ @item outDiscipline This is used to return the discipline.
+ @item outCategory This is used to return the category.
+ @item outNumber This is used to return the number.
+
+@Description
+ Simple metadata inspection function.
+
+ Some FORTRAN compilers produce wrong code for the cdiIterator_inqParam()-wrapper,
+ rendering it unusable from FORTRAN. This function is the workaround.
+*/
+void
+cdiIterator_inqParamParts(CdiIterator *me, int *outDiscipline, int *outCategory, int *outNumber)
+{
+ CdiParam result = cdiIterator_inqParam(me);
+ if (outDiscipline) *outDiscipline = result.discipline;
+ if (outCategory) *outCategory = result.category;
+ if (outNumber) *outNumber = result.number;
+}
+
+/*
+@Function cdiIterator_inqDatatype
+@Title Get the datatype of the current field
+
+@Prototype int cdiIterator_inqDatatype(CdiIterator* iterator)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result The datatype that is used to store this field on disk.
+
+@Description
+ Simple metadata inspection function.
+*/
+int
+cdiIterator_inqDatatype(CdiIterator *me)
+{
+ sanityCheck(me);
+ return me->datatype;
+}
+
+/*
+@Function cdiIterator_inqFiletype
+@Title Get the filetype of the current field
+
+@Prototype int cdiIterator_inqFiletype(CdiIterator* iterator)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result The filetype that is used to store this field on disk.
+
+@Description
+ Simple metadata inspection function.
+*/
+int
+cdiIterator_inqFiletype(CdiIterator *me)
+{
+ return me->filetype;
+}
+
+/*
+@Function cdiIterator_inqTsteptype
+@Title Get the timestep type
+
+@Prototype int cdiIterator_inqTsteptype(CdiIterator* iterator)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result The timestep type.
+
+@Description
+ Simple metadata inspection function.
+*/
+int
+cdiIterator_inqTsteptype(CdiIterator *me)
+{
+ sanityCheck(me);
+ return me->timesteptype;
+}
+
+/*
+@Function cdiIterator_inqVariableName
+@Title Get the variable name of the current field
+
+@Prototype char* cdiIterator_inqVariableName(CdiIterator* iterator)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result A pointer to a C-string containing the name. The storage for this string is allocated with Malloc(), and it is the
+responsibility of the caller to Free() it.
+
+@Description
+ Allocates a buffer to hold the string, copies the current variable name into this buffer, and returns the buffer.
+ The caller is responsible to make the corresponding Free() call.
+*/
+char *
+cdiIterator_inqVariableName(CdiIterator *me)
+{
+ sanityCheck(me);
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: return cdiGribIterator_copyVariableName(me);
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ return cdiFallbackIterator_copyVariableName(me);
+
+ default: Error(kUnexpectedFileTypeMessage); return NULL;
+ }
+}
+
+/*
+@Function cdiIterator_inqGridId
+@Title Get the ID of the current grid
+
+@Prototype int cdiIterator_inqGridId(CdiIterator* iterator)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Result A gridId that can be used for further introspection.
+
+@Description
+ This provides access to the grid related metadata.
+ The resulting ID is only valid until the next time cdiIterator_nextField() is called.
+*/
+int
+cdiIterator_inqGridId(CdiIterator *me)
+{
+ sanityCheck(me);
+ return me->gridId;
+}
+
+/*
+@Function cdiIterator_readField
+@Title Read the whole field into a double buffer
+
+@Prototype void cdiIterator_readField(CdiIterator *me, double *buffer, SizeType *numMissVals)
+@Parameter
+ @item iterator The iterator to operate on.
+ @item buffer A pointer to the double array that the data should be written to.
+ @item numMissVals A pointer to a variable where the count of missing values will be stored. May be NULL.
+
+@Description
+ It is assumed that the caller first analyses the return value of cdiIterator_inqGridId to determine the required size of the
+buffer. Failing to do so results in undefined behavior. You have been warned.
+*/
+void
+cdiIterator_readField(CdiIterator *me, double *buffer, SizeType *numMissVals)
+{
+ size_t numMiss = 0;
+ sanityCheck(me);
+ if (!buffer) xabort("NULL was passed in a buffer. Please provide a suitable buffer.");
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: cdiGribIterator_readField(me, buffer, &numMiss); return;
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ cdiFallbackIterator_readField(me, buffer, &numMiss);
+ return;
+ default: Error(kUnexpectedFileTypeMessage);
+ }
+
+ *numMissVals = (SizeType) numMiss;
+}
+
+/*
+@Function cdiIterator_readFieldF
+@Title Read the whole field into a double buffer
+
+@Prototype void cdiIterator_readFieldF(CdiIterator me, float *buffer, SizeType *numMissVals)
+@Parameter
+ @item iterator The iterator to operate on.
+ @item buffer A pointer to the double array that the data should be written to.
+ @item numMissVals A pointer to a variable where the count of missing values will be stored. May be NULL.
+
+@Description
+ It is assumed that the caller first analyses the return value of cdiIterator_inqGridId to determine the required size of the
+buffer. Failing to do so results in undefined behavior. You have been warned.
+*/
+void
+cdiIterator_readFieldF(CdiIterator *me, float *buffer, SizeType *numMissVals)
+{
+ size_t numMiss = 0;
+ sanityCheck(me);
+ if (!buffer) xabort("NULL was passed in a buffer. Please provide a suitable buffer.");
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: cdiGribIterator_readFieldF(me, buffer, &numMiss); return;
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ cdiFallbackIterator_readFieldF(me, buffer, &numMiss);
+ return;
+ default: Error(kUnexpectedFileTypeMessage);
+ }
+
+ *numMissVals = (SizeType) numMiss;
+}
+
+/*
+@Function cdiIterator_delete
+@Title Destroy an iterator
+
+@Prototype void cdiIterator_delete(CdiIterator* iterator)
+@Parameter
+ @item iterator The iterator to operate on.
+
+@Description
+ Combined destructor & deallocator.
+*/
+void
+cdiIterator_delete(CdiIterator *me)
+{
+ if (!me) xabort("NULL was passed in as an iterator. Please check the return value of cdiIterator_new().");
+ switch (cdiBaseFiletype(me->filetype))
+ {
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRIB: cdiGribIterator_delete((CdiGribIterator *) me); break;
+#endif
+
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+#endif
+ cdiFallbackIterator_delete(me);
+ break;
+
+ default: Error(kUnexpectedFileTypeMessage);
+ }
+}
+
+void
+baseIterDestruct(CdiIterator *me)
+{
+ /*currently empty, but that's no reason not to call it*/
+ (void) me;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+
+#include <assert.h>
+#include <limits.h>
+#include <stdlib.h>
+
+struct CdiFallbackIterator
+{
+ CdiIterator super;
+ char *path; // needed for clone() & serialize()
+ int streamId, vlistId, subtypeId;
+
+ int variableCount, curVariable;
+ int curLevelCount, curLevel;
+ int curSubtypeCount, curSubtype;
+ int curTimestep;
+};
+
+CdiIterator *
+cdiFallbackIterator_getSuper(CdiFallbackIterator *me)
+{
+ return &me->super;
+}
+
+CdiIterator *
+cdiFallbackIterator_new(const char *path, int filetype)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) Malloc(sizeof(*me));
+ baseIterConstruct(&me->super, filetype);
+ me->subtypeId = CDI_UNDEFID; // Will be set in cdiFallbackIterator_nextField()
+ me->curSubtypeCount = -1; // Will be set in cdiFallbackIterator_nextField()
+ me->curLevelCount = -1; // Will be set in cdiFallbackIterator_nextField()
+ // These values are chosen so that the natural increment at the start of cdiFallbackIterator_nextField() will correctly position
+ // us at the first slice.
+ me->curTimestep = 0;
+ me->curVariable = -1;
+ me->curSubtype = -1;
+ me->curLevel = -1;
+ me->streamId = streamOpenRead(path);
+ if (me->streamId != CDI_UNDEFID)
+ {
+ me->vlistId = streamInqVlist(me->streamId);
+ if (me->vlistId != CDI_UNDEFID && (me->variableCount = vlistNvars(me->vlistId)) > 0
+ && streamInqTimestep(me->streamId, me->curTimestep) > 0 && (me->path = strdup(path)))
+ {
+ return (CdiIterator *) me;
+ }
+ Free(me->path);
+ streamClose(me->streamId);
+ }
+ baseIterDestruct(&me->super);
+ Free(me);
+ return NULL;
+}
+
+void
+cdiFallbackIterator_delete(CdiIterator *super)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+ Free(me->path);
+ streamClose(me->streamId);
+ baseIterDestruct(super);
+ Free(me);
+}
+
+// Fetches the info that is derived from the current variable. Most of this is published by the data members in the base class.
+static void
+fetchVariableInfo(CdiFallbackIterator *me)
+{
+ // Fetch data that's published via base class data members.
+ me->super.datatype = vlistInqVarDatatype(me->vlistId, me->curVariable);
+ me->super.timesteptype = vlistInqVarTsteptype(me->vlistId, me->curVariable);
+ me->super.gridId = vlistInqVarGrid(me->vlistId, me->curVariable);
+ int param = vlistInqVarParam(me->vlistId, me->curVariable);
+ cdiDecodeParam(param, &me->super.param.number, &me->super.param.category, &me->super.param.discipline);
+
+ // Fetch the current level and subtype counts.
+ me->curLevelCount = zaxisInqSize(vlistInqVarZaxis(me->vlistId, me->curVariable));
+ me->subtypeId = vlistInqVarSubtype(me->vlistId, me->curVariable);
+ me->curSubtypeCount = (me->subtypeId == CDI_UNDEFID) ? 1 : subtypeInqSize(me->subtypeId);
+}
+
+CdiFallbackIterator *
+cdiFallbackIterator_clone(CdiIterator *super)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+
+ // Make another stream for this file. This yields an unadvanced iterator.
+ CdiFallbackIterator *clone = (CdiFallbackIterator *) (void *) cdiFallbackIterator_new(me->path, me->super.filetype);
+ if (clone)
+ {
+ // Point the clone to the same position in the file.
+ clone->variableCount = me->variableCount;
+ clone->curVariable = me->curVariable;
+ clone->curLevelCount = me->curLevelCount;
+ clone->curLevel = me->curLevel;
+ clone->curSubtypeCount = me->curSubtypeCount;
+ clone->curSubtype = me->curSubtype;
+ clone->curTimestep = me->curTimestep;
+
+ clone->super.isAdvanced = super->isAdvanced;
+ if (super->isAdvanced) fetchVariableInfo(clone);
+ }
+
+ return clone;
+}
+
+char *
+cdiFallbackIterator_serialize(CdiIterator *super)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+
+ char *escapedPath = cdiEscapeSpaces(me->path);
+ size_t len = strlen(escapedPath) + 7 * (3 * sizeof(int) * CHAR_BIT / 8 + 1) + 1;
+ char *result = (char *) Malloc(len);
+ snprintf(result, len, "%s %d %d %d %d %d %d %d", escapedPath, me->variableCount, me->curVariable, me->curLevelCount, me->curLevel,
+ me->curSubtypeCount, me->curSubtype, me->curTimestep);
+ Free(escapedPath);
+ return result;
+}
+
+CdiFallbackIterator *
+cdiFallbackIterator_deserialize(const char *description)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) Malloc(sizeof(*me));
+ if (!me) goto fail;
+
+ description = baseIter_constructFromString(&me->super, description);
+
+ while (*description == ' ') description++;
+ me->path = cdiUnescapeSpaces(description, &description);
+ if (!me->path) goto destructSuper;
+
+ me->streamId = streamOpenRead(me->path);
+ if (me->streamId == CDI_UNDEFID) goto freePath;
+ me->vlistId = streamInqVlist(me->streamId);
+ if (me->vlistId == CDI_UNDEFID) goto closeStream;
+
+ // This reads one variable from the description string, does error checking, and advances the given string pointer.
+#define decodeValue(variable, description) \
+ do \
+ { \
+ const char *savedStart = description; \
+ long long decodedValue \
+ = strtoll(description, (char **) &description, 0); /*The cast is a workaround for the wrong signature of strtoll().*/ \
+ variable = (int) decodedValue; \
+ if (savedStart == description) goto closeStream; \
+ if ((long long) decodedValue != (long long) variable) goto closeStream; \
+ } \
+ while (0)
+ decodeValue(me->variableCount, description);
+ decodeValue(me->curVariable, description);
+ decodeValue(me->curLevelCount, description);
+ decodeValue(me->curLevel, description);
+ decodeValue(me->curSubtypeCount, description);
+ decodeValue(me->curSubtype, description);
+ decodeValue(me->curTimestep, description);
+#undef decodeValue
+
+ if (streamInqTimestep(me->streamId, me->curTimestep) <= 0) goto closeStream;
+ if (me->super.isAdvanced) fetchVariableInfo(me);
+
+ return me;
+
+closeStream:
+ streamClose(me->streamId);
+freePath:
+ Free(me->path);
+destructSuper:
+ baseIterDestruct(&me->super);
+ Free(me);
+fail:
+ return NULL;
+}
+
+static int
+advance(CdiFallbackIterator *me)
+{
+ me->curLevel++;
+ if (me->curLevel >= me->curLevelCount)
+ {
+ me->curLevel = 0;
+ me->curSubtype++;
+ if (me->curSubtype >= me->curSubtypeCount)
+ {
+ me->curSubtype = 0;
+ me->curVariable++;
+ if (me->curVariable >= me->variableCount)
+ {
+ me->curVariable = 0;
+ me->curTimestep++;
+ if (streamInqTimestep(me->streamId, me->curTimestep) <= 0) return CDI_EEOF;
+ }
+ }
+ }
+ return CDI_NOERR;
+}
+
+int
+cdiFallbackIterator_nextField(CdiIterator *super)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+ int result = advance(me);
+ if (result) return result;
+
+ if (!me->curLevel && !me->curSubtype)
+ fetchVariableInfo(me); // Check whether we are processing a new variable/timestep and fetch the information that may have
+ // changed in this case.
+ return CDI_NOERR;
+}
+
+char *
+cdiFallbackIterator_inqTime(CdiIterator *super, CdiTimeType timeType)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+
+ // retrieve the time information
+ int taxisId = vlistInqTaxis(me->vlistId);
+ int date = 0, time = 0;
+ switch (timeType)
+ {
+ case kCdiTimeType_referenceTime:
+ date = taxisInqRdate(taxisId);
+ time = taxisInqRtime(taxisId);
+ break;
+
+ case kCdiTimeType_startTime:
+ date = taxisInqVdate(taxisId);
+ time = taxisInqVtime(taxisId);
+ break;
+
+ case kCdiTimeType_endTime:
+ return NULL; // The stream interface does not export the start/end times of statistical fields, so we treat all data as point
+ // of time data, returning the validity time as the start time.
+
+ default: assert(0 && "internal error, please report this bug");
+ }
+
+ // decode the time information and reencode it into an ISO-compliant string
+ int year, month, day, hour, minute, second;
+ cdiDecodeDate(date, &year, &month, &day);
+ cdiDecodeTime(time, &hour, &minute, &second);
+ size_t len = 4 + 1 + 2 + 1 + 2 + 1 + 2 + 1 + 2 + 1 + 2 + 4 + 1;
+ char *result = (char *) Malloc(len);
+ snprintf(result, len, "%04d-%02d-%02dT%02d:%02d:%02d.000", year, month, day, hour, minute, second);
+ return result;
+}
+
+int
+cdiFallbackIterator_levelType(CdiIterator *super, int levelSelector, char **outName, char **outLongName, char **outStdName,
+ char **outUnit)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+ int zaxisId = vlistInqVarZaxis(me->vlistId, me->curVariable);
+ (void) levelSelector;
+#define copyString(outPointer, key) \
+ do \
+ { \
+ if (outPointer) \
+ { \
+ char tempBuffer[CDI_MAX_NAME]; \
+ int length = CDI_MAX_NAME; \
+ cdiInqKeyString(zaxisId, CDI_GLOBAL, key, tempBuffer, &length); \
+ *outPointer = strdup(tempBuffer); \
+ } \
+ } \
+ while (0)
+ copyString(outName, CDI_KEY_NAME);
+ copyString(outLongName, CDI_KEY_LONGNAME);
+ copyString(outStdName, CDI_KEY_STDNAME);
+ copyString(outUnit, CDI_KEY_UNITS);
+#undef copyString
+ int ltype = 0;
+ cdiInqKeyInt(zaxisId, CDI_GLOBAL, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE, <ype);
+ return ltype;
+}
+
+int
+cdiFallbackIterator_level(CdiIterator *super, int levelSelector, double *outValue1, double *outValue2)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+ int zaxisId = vlistInqVarZaxis(me->vlistId, me->curVariable);
+
+ // handle NULL pointers once and for all
+ double trash;
+ if (!outValue1) outValue1 = &trash;
+ if (!outValue2) outValue2 = &trash;
+
+ // get the level value
+ if (levelSelector)
+ {
+ *outValue1 = (zaxisInqLbounds(zaxisId, NULL)) ? zaxisInqLbound(zaxisId, me->curLevel) : zaxisInqLevel(zaxisId, me->curLevel);
+ }
+ else
+ {
+ *outValue1 = (zaxisInqUbounds(zaxisId, NULL)) ? zaxisInqUbound(zaxisId, me->curLevel) : zaxisInqLevel(zaxisId, me->curLevel);
+ }
+ *outValue2 = 0.0;
+
+ // if this is a hybrid zaxis, lookup the coordinates in the vertical coordinate table
+ ssize_t intLevel = (ssize_t) (2 * *outValue1);
+ if (0 <= intLevel && intLevel < zaxisInqVctSize(zaxisId) - 1)
+ {
+ const double *coordinateTable = zaxisInqVctPtr(zaxisId);
+ *outValue1 = coordinateTable[intLevel];
+ *outValue2 = coordinateTable[intLevel + 1];
+ }
+ return CDI_NOERR;
+}
+
+int
+cdiFallbackIterator_zaxisUuid(CdiIterator *super, int *outVgridNumber, int *outLevelCount, unsigned char outUuid[CDI_UUID_SIZE])
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+ int zaxisId = vlistInqVarZaxis(me->vlistId, me->curVariable);
+ int ltype = 0;
+ cdiInqKeyInt(zaxisId, CDI_GLOBAL, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE, <ype);
+ if (ltype != ZAXIS_HYBRID) return CDI_EINVAL;
+ if (outVgridNumber)
+ {
+ *outVgridNumber = 0;
+ cdiInqKeyInt(zaxisId, CDI_GLOBAL, CDI_KEY_NUMBEROFVGRIDUSED, outVgridNumber);
+ }
+ if (outLevelCount)
+ {
+ *outLevelCount = 0;
+ cdiInqKeyInt(zaxisId, CDI_GLOBAL, CDI_KEY_NLEV, outLevelCount);
+ }
+ if (outUuid)
+ {
+ int length = CDI_UUID_SIZE;
+ memset(outUuid, 0, length);
+ cdiInqKeyBytes(zaxisId, CDI_GLOBAL, CDI_KEY_UUID, outUuid, &length);
+ }
+ return CDI_NOERR;
+}
+
+int
+cdiFallbackIterator_inqTile(CdiIterator *super, int *outTileIndex, int *outTileAttribute)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+#ifndef __cplusplus
+ if (!outTileIndex) outTileIndex = &(int){ 0 };
+ if (!outTileAttribute) outTileAttribute = &(int){ 0 };
+#else
+ int dummy = 0;
+ if (!outTileIndex) outTileIndex = &dummy;
+ if (!outTileAttribute) outTileAttribute = &dummy;
+#endif
+
+ int error = CDI_NOERR;
+ if (me->subtypeId == CDI_UNDEFID) // must not call subtypeInqAttribute() with an invalid subtype ID, because it would abort the
+ // program instead of returning an error
+ {
+ error = CDI_EINVAL;
+ }
+ else
+ {
+ if (subtypeInqAttribute(me->subtypeId, me->curSubtype, "tileIndex", outTileIndex)) error = CDI_EINVAL;
+ if (subtypeInqAttribute(me->subtypeId, me->curSubtype, "tileAttribute", outTileAttribute)) error = CDI_EINVAL;
+ }
+ if (error) *outTileIndex = *outTileAttribute = -1; // Guarantee defined values in case of an error.
+ return error;
+}
+
+int
+cdiFallbackIterator_inqTileCount(CdiIterator *super, int *outTileCount, int *outTileAttributeCount)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+#ifndef __cplusplus
+ if (!outTileCount) outTileCount = &(int){ 0 };
+ if (!outTileAttributeCount) outTileAttributeCount = &(int){ 0 };
+#else
+ int temp = 0;
+ if (!outTileCount) outTileCount = &temp;
+ if (!outTileAttributeCount) outTileAttributeCount = &temp;
+#endif
+
+ int error = CDI_NOERR;
+ if (me->subtypeId == CDI_UNDEFID) // must not call subtypeInqAttribute() with an invalid subtype ID, because it would abort the
+ // program instead of returning an error
+ {
+ error = CDI_EINVAL;
+ }
+ else
+ {
+ if (subtypeInqAttribute(me->subtypeId, me->curSubtype, "numberOfTiles", outTileCount)) error = CDI_EINVAL;
+ if (subtypeInqAttribute(me->subtypeId, me->curSubtype, "numberOfTileAttributes", outTileAttributeCount)) error = CDI_EINVAL;
+ }
+ if (error) *outTileCount = *outTileAttributeCount = -1; // Guarantee defined values in case of an error.
+ return CDI_NOERR;
+}
+
+char *
+cdiFallbackIterator_copyVariableName(CdiIterator *super)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+ return vlistCopyVarName(me->vlistId, me->curVariable);
+}
+
+void
+cdiFallbackIterator_readField(CdiIterator *super, double *buffer, size_t *numMissVals)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+ SizeType missingValues = 0;
+ streamReadVarSlice(me->streamId, me->curVariable, me->curLevel, buffer, &missingValues);
+ if (numMissVals) *numMissVals = (size_t) missingValues;
+}
+
+void
+cdiFallbackIterator_readFieldF(CdiIterator *super, float *buffer, size_t *numMissVals)
+{
+ CdiFallbackIterator *me = (CdiFallbackIterator *) (void *) super;
+ SizeType missingValues = 0;
+ streamReadVarSliceF(me->streamId, me->curVariable, me->curLevel, buffer, &missingValues);
+ if (numMissVals) *numMissVals = (size_t) missingValues;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef STREAM_GRB_H
+#define STREAM_GRB_H
+
+double zaxis_units_to_centimeter(int zaxisID);
+double zaxis_units_to_meter(int zaxisID);
+bool zaxis_units_is_Pa(int zaxisID);
+
+void ensureBufferSize(size_t requiredSize, size_t *curSize, void **buffer);
+int grbDecompress(size_t recsize, size_t *buffersize, void **gribbuffer);
+
+static inline bool
+gribbyte_get_bit(int number, int bit)
+{
+ return (bool) ((number >> (8 - bit)) & 1);
+}
+static inline void
+gribbyte_set_bit(int *number, int bit)
+{
+ *number |= 1 << (8 - bit);
+}
+static inline void
+gribbyte_clear_bit(int *number, int bit)
+{
+ *number &= ~(1 << (8 - bit));
+}
+
+int grbBitsPerValue(int datatype);
+
+int fdbInqContents(stream_t *streamptr);
+int grbInqContents(stream_t *streamptr);
+int fdbInqTimestep(stream_t *streamptr, int tsID);
+int grbInqTimestep(stream_t *streamptr, int tsID);
+
+int grbInqRecord(stream_t *streamptr, int *varID, int *levelID);
+void grbDefRecord(stream_t *streamptr);
+void grb_read_record(stream_t *streamptr, int memtype, void *data, size_t *numMissVals);
+void grb_write_record(stream_t *streamptr, int memtype, const void *data, size_t numMissVals);
+void grbCopyRecord(stream_t *streamptr2, stream_t *streamptr1);
+
+void grb_read_var(stream_t *streamptr, int varID, int memtype, void *data, size_t *numMissVals);
+void grb_write_var(stream_t *streamptr, int varID, int memtype, const void *data, size_t numMissVals);
+
+void grb_read_var_slice(stream_t *streamptr, int varID, int levelID, int memtype, void *data, size_t *numMissVals);
+void grb_write_var_slice(stream_t *streamptr, int varID, int levelID, int memtype, const void *data, size_t numMissVals);
+
+int grib1ltypeToZaxisType(int grib_ltype);
+int grib2ltypeToZaxisType(int grib_ltype);
+
+int zaxisTypeToGrib1ltype(int zaxistype);
+int zaxisTypeToGrib2ltype(int zaxistype);
+
+int grbGetGridtype(int *gridID, size_t gridsize, bool *gridIsRotated, bool *gridIsCurvilinear);
+
+struct cdiGribParamChange
+{
+ int code, ltype, lev;
+ bool active;
+};
+
+struct cdiGribScanModeChange
+{
+ int value;
+ bool active;
+};
+
+extern struct cdiGribParamChange cdiGribChangeParameterID;
+extern struct cdiGribScanModeChange cdiGribDataScanningMode;
+
+// Used in CDO
+void streamGrbChangeParameterIdentification(int code, int ltype, int lev);
+void streamGrbDefDataScanningMode(int scanmode);
+
+#endif /* STREAM_GRB_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef ZAXIS_H
+#define ZAXIS_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+// clang-format off
+typedef struct
+{
+ double *vals;
+#ifndef USE_MPI
+ char **cvals;
+ int clength;
+#endif
+ double *lbounds;
+ double *ubounds;
+ double *weights;
+ int self;
+ int scalar;
+ int type;
+ int size;
+ int direction;
+ int vctsize;
+ unsigned positive;
+ double *vct;
+ cdi_keys_t keys;
+ cdi_atts_t atts;
+}
+zaxis_t;
+// clang-format on
+
+void zaxisGetTypeDescription(int zaxisType, int *outPositive, const char **outName, const char **outLongName,
+ const char **outStdName,
+ const char **outUnit); // The returned const char* point to static storage. Don't free or modify them.
+
+unsigned cdiZaxisCount(void);
+
+zaxis_t *zaxis_to_pointer(int zaxisID);
+
+void cdiZaxisGetIndexList(unsigned numIDs, int *IDs);
+
+int zaxisUnpack(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context, int force_id);
+
+const resOps *getZaxisOps(void);
+
+const char *zaxisInqNamePtr(int zaxisID);
+
+const double *zaxisInqLevelsPtr(int zaxisID);
+#ifndef USE_MPI
+char **zaxisInqCValsPtr(int zaxisID);
+#endif
+void zaxisResize(int zaxisID, int size);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+
+#include <assert.h>
+#include <limits.h>
+#include <stdlib.h>
+#include <string.h>
+
+#ifdef HAVE_LIBGRIB_API
+
+struct CdiGribIterator
+{
+ CdiIterator super;
+
+ CdiInputFile *file;
+ off_t fileOffset;
+ unsigned char *gribBuffer;
+ size_t bufferSize, curRecordSize;
+ grib_handle *gribHandle;
+};
+
+CdiIterator *
+cdiGribIterator_getSuper(CdiGribIterator *me)
+{
+ return &me->super;
+}
+
+// Since the error handling in constructors is usually very closely related to the workings of a destructor,
+// this function combines both functions in one, using a centralized exit.
+// The mode of operation depends on whether me is a NULL pointer on entry:
+// If it is NULL, a new object is allocated and constructed, which is returned if construction is successful.
+// If a non-NULL pointer is passed in, the object is destructed and NULL is returned. In this case, the other arguments are ignored.
+static CdiGribIterator *
+cdiGribIterator_condestruct(CdiGribIterator *me, const char *path, int filetype)
+{
+#define super() (&me->super)
+ if (me) goto destruct;
+ me = (CdiGribIterator *) Malloc(sizeof(*me));
+ baseIterConstruct(super(), filetype);
+
+ me->file = cdiInputFile_make(path);
+ if (!me->file) goto destructSuper;
+ me->fileOffset = 0;
+ me->gribHandle = NULL;
+ me->gribBuffer = NULL;
+ me->bufferSize = me->curRecordSize = 0;
+ me->super.gridId = CDI_UNDEFID;
+
+ goto success;
+
+ // ^ constructor code ^
+ // | |
+ // v destructor/error-cleanup code v
+
+destruct:
+ if (me->super.gridId != CDI_UNDEFID) gridDestroy(me->super.gridId);
+ if (me->gribHandle) grib_handle_delete((struct grib_handle *) me->gribHandle);
+ Free(me->gribBuffer);
+ cdiRefObject_release(&me->file->super);
+destructSuper:
+ baseIterDestruct(super());
+ Free(me);
+ me = NULL;
+
+success:
+ return me;
+#undef super
+}
+
+CdiIterator *
+cdiGribIterator_new(const char *path, int filetype)
+{
+ return &cdiGribIterator_condestruct(NULL, path, filetype)->super;
+}
+
+CdiGribIterator *
+cdiGribIterator_makeClone(CdiIterator *super)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+
+ // Allocate memory and copy data. (operations that may fail)
+ CdiGribIterator *result = (struct CdiGribIterator *) Malloc(sizeof(*result));
+ if (!result) goto fail;
+
+ result->file = me->file;
+ result->fileOffset = me->fileOffset;
+ result->gribBuffer = NULL;
+ result->bufferSize = me->bufferSize;
+ result->curRecordSize = me->curRecordSize;
+ result->gribHandle = NULL;
+
+ if (me->gribBuffer)
+ {
+ result->gribBuffer = (unsigned char *) Malloc(me->bufferSize);
+ if (!result->gribBuffer) goto freeResult;
+ memcpy(result->gribBuffer, me->gribBuffer, me->curRecordSize);
+ }
+ if (me->gribHandle)
+ {
+ result->gribHandle = grib_handle_new_from_message(NULL, result->gribBuffer, result->curRecordSize);
+ if (!result->gribHandle) goto freeBuffer;
+ }
+ if (super->gridId != CDI_UNDEFID)
+ {
+ result->super.gridId = gridDuplicate(super->gridId);
+ if (result->super.gridId == CDI_UNDEFID) goto deleteGribHandle;
+ }
+
+ // Finish construction. (operations that cannot fail)
+ baseIterConstruct(&result->super, super->filetype);
+ result->super.datatype = super->datatype;
+ result->super.timesteptype = super->timesteptype;
+ result->super.param = super->param;
+ cdiRefObject_retain(&result->file->super);
+
+ return result;
+
+ // Error handling.
+deleteGribHandle:
+ if (result->gribHandle) grib_handle_delete(result->gribHandle);
+freeBuffer:
+ Free(result->gribBuffer);
+freeResult:
+ Free(result);
+fail:
+ return NULL;
+}
+
+char *
+cdiGribIterator_serialize(CdiIterator *super)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+
+ const char *path = cdiInputFile_getPath(me->file);
+ char *escapedPath = cdiEscapeSpaces(path);
+ size_t len = strlen(escapedPath) + 3 * sizeof(int) * CHAR_BIT / 8;
+ char *result = (char *) Malloc(len);
+ snprintf(result, len, "%s %zu", escapedPath, (size_t) me->fileOffset);
+ Free(escapedPath);
+ return result;
+}
+
+CdiGribIterator *
+cdiGribIterator_deserialize(const char *description)
+{
+ char *path;
+ CdiGribIterator *me = (CdiGribIterator *) Malloc(sizeof(*me));
+ if (!me) goto fail;
+
+ description = baseIter_constructFromString(&me->super, description);
+
+ while (*description == ' ') description++;
+ path = cdiUnescapeSpaces(description, &description);
+ if (!path) goto destructSuper;
+
+ me->file = cdiInputFile_make(path);
+ Free(path);
+ if (!me->file) goto destructSuper;
+
+ {
+ const char *savedStart = description;
+ char *description_ = (char *) description;
+ long long decodedOffset = strtoll(description, &description_, 0);
+ description = description_;
+ me->fileOffset = (off_t) decodedOffset;
+ if (savedStart == description) goto closeFile;
+ if ((unsigned long long) decodedOffset > (unsigned long long) me->fileOffset) goto closeFile;
+ }
+
+ me->gribBuffer = NULL;
+ me->bufferSize = me->curRecordSize = 0;
+ me->gribHandle = NULL;
+ me->super.gridId = CDI_UNDEFID;
+ if (me->super.isAdvanced && cdiGribIterator_nextField(&me->super)) goto closeFile;
+
+ return me;
+
+closeFile:
+ cdiRefObject_release(&me->file->super);
+destructSuper:
+ baseIterDestruct(&me->super);
+ Free(me);
+fail:
+ return NULL;
+}
+
+static void
+cdiGribIterator_ensureBuffer(CdiGribIterator *me, size_t requiredSize)
+{
+ if (me->bufferSize < requiredSize)
+ {
+ me->bufferSize *= 2;
+ if (me->bufferSize < requiredSize) me->bufferSize = requiredSize;
+ me->gribBuffer = (unsigned char *) Realloc(me->gribBuffer, me->bufferSize);
+ }
+}
+
+static bool
+isGrib1DualLevel(int levelType)
+{
+ switch (levelType)
+ {
+ case 101:
+ case 104:
+ case 106:
+ case 108:
+ case 110:
+ case 112:
+ case 114:
+ case 116:
+ case 120:
+ case 121:
+ case 128:
+ case 141: // This is the complete list after grib_api-1.12.3/definitions/grib1/sections.1.def:106-117:, the code in
+ // cdi/src/stream_gribapi.c:grib1GetLevel() seems to be incomplete.
+ return true;
+ default: return false;
+ }
+}
+
+static const unsigned char *
+positionOfGribMarker(const unsigned char *data, size_t size)
+{
+ for (const unsigned char *currentPosition = data, *end = data + size; currentPosition < end; currentPosition++)
+ {
+ currentPosition = (unsigned char *) memchr(
+ currentPosition, 'G',
+ size - (size_t) (currentPosition - data) - 3); //-3 to ensure that we don't overrun the buffer during the strncmp() call.
+ if (!currentPosition) return NULL;
+ if (!strncmp((const char *) currentPosition, "GRIB", 4)) return currentPosition;
+ }
+ return NULL;
+}
+
+// This clobbers the contents of the gribBuffer!
+// Returns the file offset of the next 'GRIB' marker.
+static ssize_t
+scanToGribMarker(CdiGribIterator *me)
+{
+ cdiGribIterator_ensureBuffer(me, 8 * 1024);
+ const size_t kMaxScanSize = 16 * 1024 * 1024;
+ for (size_t scannedBytes = 0, scanSize; scannedBytes < kMaxScanSize; scannedBytes += scanSize)
+ {
+ // Load a chunk of data into our buffer.
+ scanSize = me->bufferSize;
+ if (scannedBytes + scanSize > kMaxScanSize) scanSize = kMaxScanSize - scannedBytes;
+ assert(scanSize <= me->bufferSize);
+ int status = cdiInputFile_read(me->file, me->fileOffset + (off_t) scannedBytes, scanSize, &scanSize, me->gribBuffer);
+ if (status != CDI_NOERR && status != CDI_EEOF) return -1;
+
+ const unsigned char *startPosition = positionOfGribMarker(me->gribBuffer, scanSize);
+ if (startPosition)
+ {
+ return (ssize_t) (me->fileOffset + (off_t) scannedBytes + (off_t) (startPosition - me->gribBuffer));
+ }
+
+ // Get the offset for the next iteration if there is a next iteration.
+ scanSize -= 3; // so that we won't miss a 'GRIB' sequence that happens to be cut off
+ scanSize &= ~(size_t) 0xf; // make 16 bytes aligned
+ if ((ssize_t) scanSize <= 0) return -1; // ensure that we make progress
+ }
+ return -1;
+}
+
+static unsigned
+decode24(void *beData)
+{
+ unsigned char *bytes = (unsigned char *) beData;
+ return ((unsigned) bytes[0] << 16) + ((unsigned) bytes[1] << 8) + (unsigned) bytes[2];
+}
+
+static uint64_t
+decode64(void *beData)
+{
+ unsigned char *bytes = (unsigned char *) beData;
+ uint64_t result = 0;
+ for (size_t i = 0; i < 8; i++) result = (result << 8) + bytes[i];
+ return result;
+}
+
+// Determine the size of the GRIB record that begins at the given file offset.
+static int
+getRecordSize(CdiGribIterator *me, off_t gribFileOffset, size_t *outRecordSize)
+{
+ char buffer[16];
+ size_t readSize;
+ int status = cdiInputFile_read(me->file, gribFileOffset, sizeof(buffer), &readSize, buffer);
+ if (status != CDI_NOERR && status != CDI_EEOF) return status;
+ if (readSize < sizeof(buffer)) return CDI_EEOF;
+ *outRecordSize = 0;
+ switch (buffer[7])
+ {
+ case 1:
+ *outRecordSize = decode24(&buffer[4]);
+ if (*outRecordSize & (1 << 23))
+ {
+ *outRecordSize = 120 * (*outRecordSize & ((1 << 23) - 1)); // Rescaling for long records.
+ // The corresponding code in cgribexlib.c:4532-4570: is much more complicated
+ // due to the fact that it subtracts the padding bytes that are inserted after section 4.
+ // However, we are only interested in the total size of data we need to read here,
+ // so we can ignore the presence of some padding bytes.
+ }
+ return CDI_NOERR;
+
+ case 2: *outRecordSize = decode64(&buffer[8]); return CDI_NOERR;
+
+ default: return CDI_EUFTYPE;
+ }
+}
+
+#if 0
+static void hexdump(void *data, size_t size)
+{
+ unsigned char *charData = data;
+ for(size_t offset = 0; offset < size; )
+ {
+ printf("%016zx:", offset);
+ for(size_t i = 0; i < 64 && offset < size; i++, offset++)
+ {
+ if((i & 63) && !(i & 15)) printf(" |");
+ if((i & 15) && !(i & 3)) printf(" ");
+ printf(" %02x", charData[offset]);
+ }
+ printf("\n");
+ }
+}
+#endif
+
+// Read a record into memory and wrap it in a grib_handle.
+// XXX: I have omitted checking for szip compression as it is done in grbReadVarDP() & friends since that appears to be a
+// non-standard extension of the GRIB1 standard: bit 1 in octet 14 of the binary data section which is used to signal szip
+// compression is defined to be reserved in the standard. As such, it seems prudent not to support this and to encourage people with
+// such szip compressed files to switch to the GRIB2/JPEG2000 format. However, in the case that this reasoning is wrong, this
+// function is probably the place to add the check for zsip compression.
+static int
+readMessage(CdiGribIterator *me)
+{
+ // Destroy the old grib_handle.
+ if (me->gribHandle) grib_handle_delete(me->gribHandle), me->gribHandle = NULL;
+ me->fileOffset += (off_t) me->curRecordSize;
+
+ // Find the next record and determine its size.
+ ssize_t gribFileOffset = scanToGribMarker(me);
+ int result = CDI_EEOF;
+ if (gribFileOffset < 0) goto fail;
+ result = getRecordSize(me, gribFileOffset, &me->curRecordSize);
+ if (result) goto fail;
+
+ // Load the whole record into our buffer and create a grib_handle for it.
+ cdiGribIterator_ensureBuffer(me, me->curRecordSize);
+ result = cdiInputFile_read(me->file, gribFileOffset, me->curRecordSize, NULL, me->gribBuffer);
+ if (result) goto fail;
+ me->gribHandle = grib_handle_new_from_message(NULL, me->gribBuffer, me->curRecordSize);
+ result = CDI_EUFSTRUCT;
+ if (!me->gribHandle) goto fail;
+
+ return CDI_NOERR;
+
+fail:
+ me->curRecordSize = 0; // This ensures that we won't jump to an uncontrolled file position if cdiGribIterator_nextField() is
+ // called another time after it has returned an error.
+ return result;
+}
+
+int
+cdiGribIterator_nextField(CdiIterator *super)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+
+ if (super->gridId != CDI_UNDEFID) gridDestroy(super->gridId), super->gridId = CDI_UNDEFID;
+
+ // Get the next GRIB message into our buffer.
+ int result = readMessage(me);
+ if (result) return result;
+
+ // Get the metadata that's published as variables in the base class.
+ super->datatype = gribGetDatatype(me->gribHandle);
+ super->timesteptype = gribapiGetTsteptype(me->gribHandle);
+ cdiDecodeParam(gribapiGetParam(me->gribHandle), &super->param.number, &super->param.category, &super->param.discipline);
+ grid_t grid;
+ gribapiGetGrid(me->gribHandle, &grid);
+ super->gridId = gridGenerate(&grid);
+
+ return CDI_NOERR;
+}
+
+char *
+cdiGribIterator_inqTime(CdiIterator *super, CdiTimeType timeType)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+ return gribMakeTimeString(me->gribHandle, timeType);
+}
+
+int
+cdiGribIterator_levelType(CdiIterator *super, int levelSelector, char **outName, char **outLongName, char **outStdName,
+ char **outUnit)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+
+ // First determine the zaxis type corresponding to the given level.
+ int zaxisType = ZAXIS_GENERIC;
+ if (gribEditionNumber(me->gribHandle) <= 1)
+ {
+ int levelType = (int) gribGetLongDefault(me->gribHandle, "indicatorOfTypeOfLevel", 255);
+ if (levelSelector && !isGrib1DualLevel(levelType)) levelType = 255;
+ zaxisType = grib1ltypeToZaxisType(levelType);
+ }
+ else
+ {
+ int levelType
+ = (int) gribGetLongDefault(me->gribHandle, levelSelector ? "typeOfSecondFixedSurface" : "typeOfFirstFixedSurface", 255);
+ zaxisType = grib2ltypeToZaxisType(levelType);
+ }
+
+ // Then lookup the requested names.
+ const char *name, *longName, *stdName, *unit;
+ zaxisGetTypeDescription(zaxisType, NULL, &name, &longName, &stdName, &unit);
+ if (outName) *outName = strdup(name);
+ if (outLongName) *outLongName = strdup(longName);
+ if (outStdName) *outStdName = strdup(stdName);
+ if (outUnit) *outUnit = strdup(unit);
+
+ return zaxisType;
+}
+
+static double
+logicalLevelValue2(long gribType, long storedValue, long power)
+{
+ double factor = 1;
+ assert(power >= 0);
+ while (power--) factor *= 10; // this is precise up to factor == 22.
+ switch (gribType)
+ {
+ case GRIB2_LTYPE_LANDDEPTH:
+ case GRIB2_LTYPE_ISOBARIC:
+ case GRIB2_LTYPE_SIGMA:
+ return (double) storedValue
+ * (1000.0 / factor); // The evaluation order allows the factors of ten to cancel out before rounding.
+
+ case 255: return 0;
+
+ default: return (double) storedValue / factor;
+ }
+}
+
+// The output values must be preinitialized, this function does not always write them.
+static int
+readLevel2(grib_handle *gribHandle, const char *levelTypeKey, const char *powerKey, const char *valueKey, double *outValue1,
+ double *outValue2)
+{
+ assert(levelTypeKey && powerKey && valueKey && outValue1 && outValue2);
+
+ long levelType = gribGetLongDefault(gribHandle, levelTypeKey, 255); // 1 byte
+ switch (levelType)
+ {
+ case 255: break;
+
+ case 105:
+ case 113:
+ {
+ unsigned long value = (unsigned long) gribGetLongDefault(gribHandle, valueKey, 0);
+ unsigned long coordinateCount = (unsigned long) gribGetLongDefault(gribHandle, "numberOfCoordinatesValues", 0);
+ if (value >= coordinateCount / 2)
+ {
+ Error("Invalid level coordinate: Level has the hybrid coordinate index %lu, but only %lu coordinate pairs are present.",
+ value, coordinateCount / 2);
+ return CDI_EUFSTRUCT;
+ }
+ int status;
+ // XXX: I'm not 100% sure about how the coordinate pairs are stored in the file.
+ // I'm assuming an array of pairs due to the example code in grib_api-1.12.3/examples/F90/set_pv.f90, but that may be
+ // wrong.
+ if ((status = grib_get_double_element(gribHandle, "pv", (int) value * 2, outValue1))) return status;
+ if ((status = grib_get_double_element(gribHandle, "pv", (int) value * 2 + 1, outValue2))) return status;
+ break;
+ }
+
+ default:
+ {
+ long power = 255 & gribGetLongDefault(gribHandle, powerKey, 0); // 1 byte
+ if (power == 255) power = 0;
+ long value = gribGetLongDefault(gribHandle, valueKey, 0); // 4 bytes
+ *outValue1 = logicalLevelValue2(levelType, value, power);
+ }
+ }
+ return CDI_NOERR;
+}
+
+int
+cdiGribIterator_level(CdiIterator *super, int levelSelector, double *outValue1, double *outValue2)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+ double trash;
+ if (!outValue1) outValue1 = &trash;
+ if (!outValue2) outValue2 = &trash;
+ *outValue1 = *outValue2 = 0;
+
+ if (gribEditionNumber(me->gribHandle) > 1)
+ {
+ if (levelSelector)
+ {
+ return readLevel2(me->gribHandle, "typeOfFirstFixedSurface", "scaleFactorOfFirstFixedSurface",
+ "scaledValueOfFirstFixedSurface", outValue1, outValue2);
+ }
+ else
+ {
+ return readLevel2(me->gribHandle, "typeOfSecondFixedSurface", "scaleFactorOfSecondFixedSurface",
+ "scaledValueOfSecondFixedSurface", outValue1, outValue2);
+ }
+ }
+ else
+ {
+ long levelType = (uint8_t) gribGetLongDefault(me->gribHandle, "indicatorOfTypeOfLevel", -1); // 1 byte
+ if (levelType == 255)
+ {
+ }
+ else if (isGrib1DualLevel((int) levelType))
+ {
+ *outValue1 = (double) (gribGetLongDefault(me->gribHandle, (levelSelector ? "bottomLevel" : "topLevel"), 0));
+ }
+ else if (levelType == 100)
+ {
+ *outValue1 = 100 * (double) (gribGetLongDefault(me->gribHandle, "level", 0)); // 2 bytes
+ }
+ else
+ {
+ *outValue1 = (double) (gribGetLongDefault(me->gribHandle, "level", 0)); // 2 bytes
+ }
+ }
+ return CDI_NOERR;
+}
+
+int
+cdiGribIterator_zaxisUuid(CdiIterator *super, int *outVgridNumber, int *outLevelCount, unsigned char outUuid[CDI_UUID_SIZE])
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+
+ if (outVgridNumber)
+ {
+ long temp;
+ if (grib_get_long(me->gribHandle, "numberOfVGridUsed", &temp)) return CDI_EINVAL;
+ *outVgridNumber = (int) temp;
+ }
+ if (outLevelCount)
+ {
+ long temp;
+ if (grib_get_long(me->gribHandle, "nlev", &temp)) return CDI_EINVAL;
+ *outLevelCount = (int) temp;
+ }
+ if (outUuid)
+ {
+ size_t size = CDI_UUID_SIZE;
+ if (grib_get_bytes(me->gribHandle, "uuidOfVGrid", outUuid, &size)) return CDI_EINVAL;
+ if (size != CDI_UUID_SIZE) return CDI_EUFSTRUCT;
+ }
+
+ return CDI_NOERR;
+}
+
+int
+cdiGribIterator_inqTile(CdiIterator *super, int *outTileIndex, int *outTileAttribute)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+ int trash;
+ if (!outTileIndex) outTileIndex = &trash;
+ if (!outTileAttribute) outTileAttribute = &trash;
+
+ // Get the values if possible.
+ int error = CDI_NOERR;
+ long value;
+ if (grib_get_long(me->gribHandle, "tileIndex", &value)) error = CDI_EINVAL;
+ *outTileIndex = (int) value;
+ if (grib_get_long(me->gribHandle, "tileAttribute", &value)) error = CDI_EINVAL;
+ *outTileAttribute = (int) value;
+
+ // Ensure defined return values in case of failure.
+ if (error) *outTileIndex = *outTileAttribute = -1;
+ return error;
+}
+
+int
+cdiGribIterator_inqTileCount(CdiIterator *super, int *outTileCount, int *outTileAttributeCount)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+ int trash;
+ if (!outTileCount) outTileCount = &trash;
+ if (!outTileAttributeCount) outTileAttributeCount = &trash;
+
+ // Get the values if possible.
+ int error = CDI_NOERR;
+ long value;
+ if (grib_get_long(me->gribHandle, "numberOfTiles", &value)) error = CDI_EINVAL;
+ *outTileCount = (int) value;
+ if (grib_get_long(me->gribHandle, "numberOfTileAttributes", &value)) error = CDI_EINVAL;
+ *outTileAttributeCount = (int) value;
+
+ // Ensure defined return values in case of failure.
+ if (error) *outTileCount = *outTileAttributeCount = 0;
+ return error;
+}
+
+char *
+cdiGribIterator_copyVariableName(CdiIterator *super)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+ return gribCopyString(me->gribHandle, "shortName");
+}
+
+void
+cdiGribIterator_readField(CdiIterator *super, double *buffer, size_t *numMissVals)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+
+ GRIB_CHECK(my_grib_set_double(me->gribHandle, "missingValue", CDI_Default_Missval), 0);
+ gribGetDoubleArray(me->gribHandle, "values", buffer);
+ long gridType = gribGetLong(me->gribHandle, "gridDefinitionTemplateNumber");
+ if (numMissVals)
+ {
+ // The condition excludes harmonic data.
+ *numMissVals = (gridType >= 50 && gridType <= 53) ? (size_t) 0 : (size_t) gribGetLong(me->gribHandle, "numberOfMissing");
+ }
+}
+
+void
+cdiGribIterator_readFieldF(CdiIterator *super, float *buffer, size_t *numMissVals)
+{
+ CdiGribIterator *me = (CdiGribIterator *) (void *) super;
+
+ size_t valueCount = gribGetArraySize(me->gribHandle, "values");
+ double *temp = (double *) Malloc(valueCount * sizeof(*temp));
+ cdiGribIterator_readField(super, temp, numMissVals);
+ for (size_t i = valueCount; i--;) buffer[i] = (float) temp[i];
+ Free(temp);
+}
+#endif
+
+/*
+@Function cdiGribIterator_delete
+@Title Dispose off a CdiGribIterator instance.
+
+@Prototype void cdiGribIterator_delete(CdiGribIterator *me)
+@Parameter
+ @item me The iterator to delete.
+
+@Description
+ Combined destructor and deallocator. Make sure to match every call to cdiGribIterator_clone() with a call to this function.
+*/
+void
+cdiGribIterator_delete(CdiGribIterator *me)
+{
+#ifdef HAVE_LIBGRIB_API
+ if (me) cdiGribIterator_condestruct(me, NULL, 0);
+#else
+ if (me)
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+#endif
+}
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+// callthroughs to provide direct access to the grib keys //////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+/*
+@Function cdiGribIterator_inqEdition
+@Title Get the version of the GRIB standard that is used
+
+@Prototype int cdiGribIterator_inqEdition(CdiGribIterator *me)
+@Parameter
+ @item me The iterator to operate on.
+
+@Result The GRIB version.
+
+@Description
+ Returns the version of the file format.
+*/
+int
+cdiGribIterator_inqEdition(CdiGribIterator *me)
+{
+#ifdef HAVE_LIBGRIB_API
+ return (int) gribEditionNumber(me->gribHandle);
+#else
+ (void) me;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_getLong
+@Title Access to grib_get_long()
+
+@Prototype int cdiGribIterator_getLong(CdiGribIterator *me, const char *key, long *result)
+@Parameter
+ @item me The iterator to operate on.
+ @item ... The arguments to the underlying GRIB-API function.
+
+@Result An error code.
+
+@Description
+ Callthrough to grib_get_long().
+*/
+int
+cdiGribIterator_getLong(CdiGribIterator *me, const char *key, long *result)
+{
+#ifdef HAVE_LIBGRIB_API
+ return grib_get_long(me->gribHandle, key, result);
+#else
+ (void) me;
+ (void) key;
+ (void) result;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_getLength
+@Title Access to grib_get_length()
+
+@Prototype int cdiGribIterator_getLength(CdiGribIterator *me, const char *key, size_t *result)
+@Parameter
+ @item me The iterator to operate on.
+ @item ... The arguments to the underlying GRIB-API function.
+
+@Result An error code.
+
+@Description
+ Callthrough to grib_get_length().
+*/
+int
+cdiGribIterator_getLength(CdiGribIterator *me, const char *key, size_t *result)
+{
+#ifdef HAVE_LIBGRIB_API
+#ifdef HAVE_GRIB_GET_LENGTH
+ return grib_get_length(me->gribHandle, key, result);
+#else
+ (void) me;
+ (void) key;
+ (void) result;
+ Error("grib_get_length() is not available, so cdiGribIterator_getLength() can't be used");
+ return -1;
+#endif
+#else
+ (void) me;
+ (void) key;
+ (void) result;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_getString
+@Title Access to grib_get_string()
+
+@Prototype int cdiGribIterator_getString(CdiGribIterator *me, const char *key, char *result, size_t *length)
+@Parameter
+ @item me The iterator to operate on.
+ @item ... The arguments to the underlying GRIB-API function.
+
+@Result An error code.
+
+@Description
+ Callthrough to grib_get_string().
+*/
+int
+cdiGribIterator_getString(CdiGribIterator *me, const char *key, char *result, size_t *length)
+{
+#ifdef HAVE_LIBGRIB_API
+ return grib_get_string(me->gribHandle, key, result, length);
+#else
+ (void) me;
+ (void) key;
+ (void) result;
+ (void) length;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_inqLongValue
+@Title Get the value of a GRIB-API key as a long
+
+@Prototype long cdiGribIterator_inqLongValue(CdiGribIterator *me, const char *key)
+@Parameter
+ @item me The iterator to operate on.
+ @item key The GRIB-API key to retrieve.
+
+@Result The value of the key.
+
+@Description
+ Use this to fetch a grib value if you are certain that the given key must be present.
+ This will abort the process if the key cannot be retrieved.
+*/
+long
+cdiGribIterator_inqLongValue(CdiGribIterator *me, const char *key)
+{
+#ifdef HAVE_LIBGRIB_API
+ return gribGetLong(me->gribHandle, key);
+#else
+ (void) me;
+ (void) key;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_inqLongDefaultValue
+@Title Get the value of a GRIB-API key as a long
+
+@Prototype long cdiGribIterator_inqLongDefaultValue(CdiGribIterator *me, const char *key, long defaultValue)
+@Parameter
+ @item me The iterator to operate on.
+ @item key The GRIB-API key to retrieve.
+ @item defaultValue The value to return if the key is not present.
+
+@Result The value of the key or the given default value.
+
+@Description
+ Use this if you can handle failure to fetch the key by supplying a default value.
+ This function cannot fail.
+*/
+long
+cdiGribIterator_inqLongDefaultValue(CdiGribIterator *me, const char *key, long defaultValue)
+{
+#ifdef HAVE_LIBGRIB_API
+ return gribGetLongDefault(me->gribHandle, key, defaultValue);
+#else
+ (void) me;
+ (void) key;
+ (void) defaultValue;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_inqStringValue
+@Title Safely retrieve a GRIB-API key with a string value
+
+@Prototype char *cdiGribIterator_inqStringValue(CdiGribIterator *me, const char *key)
+@Parameter
+ @item me The iterator to operate on.
+ @item key The GRIB-API key to retrieve.
+
+@Result A malloc'ed string or NULL.
+
+@Description
+ This will first call grib_get_length() to inquire the actual size of the string,
+ allocate memory accordingly, call grib_get_string(), and return the pointer to the new string.
+ Returns NULL on failure.
+*/
+char *
+cdiGribIterator_inqStringValue(CdiGribIterator *me, const char *key)
+{
+#ifdef HAVE_LIBGRIB_API
+ return gribCopyString(me->gribHandle, key);
+#else
+ (void) me;
+ (void) key;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return NULL;
+#endif
+}
+
+/*
+@Function cdiGribIterator_getDouble
+@Title Access to grib_get_double()
+
+@Prototype int cdiGribIterator_getDouble(CdiGribIterator *me, const char *key, double *result)
+@Parameter
+ @item me The iterator to operate on.
+ @item ... The arguments to the underlying GRIB-API function.
+
+@Result An error code.
+
+@Description
+ Callthrough to grib_get_double().
+*/
+int
+cdiGribIterator_getDouble(CdiGribIterator *me, const char *key, double *result)
+{
+#ifdef HAVE_LIBGRIB_API
+ return grib_get_double(me->gribHandle, key, result);
+#else
+ (void) me;
+ (void) key;
+ (void) result;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_getSize
+@Title Access to grib_get_size()
+
+@Prototype int cdiGribIterator_getSize(CdiGribIterator *me, const char *key, size_t *result)
+@Parameter
+ @item me The iterator to operate on.
+ @item ... The arguments to the underlying GRIB-API function.
+
+@Result An error code.
+
+@Description
+ Callthrough to grib_get_size().
+*/
+int
+cdiGribIterator_getSize(CdiGribIterator *me, const char *key, size_t *result)
+{
+#ifdef HAVE_LIBGRIB_API
+ return grib_get_size(me->gribHandle, key, result);
+#else
+ (void) me;
+ (void) key;
+ (void) result;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_getLongArray
+@Title Access to grib_get_long_array()
+
+@Prototype int cdiGribIterator_getLongArray(CdiGribIterator *me, const char *key, long *result, size_t *size)
+@Parameter
+ @item me The iterator to operate on.
+ @item ... The arguments to the underlying GRIB-API function.
+
+@Result An error code.
+
+@Description
+ Callthrough to grib_get_long_array().
+*/
+int
+cdiGribIterator_getLongArray(CdiGribIterator *me, const char *key, long *result, size_t *size)
+{
+#ifdef HAVE_LIBGRIB_API
+ return grib_get_long_array(me->gribHandle, key, result, size);
+#else
+ (void) me;
+ (void) key;
+ (void) result;
+ (void) size;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_getDoubleArray
+@Title Access to grib_get_double_array()
+
+@Prototype int cdiGribIterator_getDoubleArray(CdiGribIterator *me, const char *key, double *result, size_t *size)
+@Parameter
+ @item me The iterator to operate on.
+ @item ... The arguments to the underlying GRIB-API function.
+
+@Result An error code.
+
+@Description
+ Callthrough to grib_get_double_array().
+*/
+int
+cdiGribIterator_getDoubleArray(CdiGribIterator *me, const char *key, double *result, size_t *size)
+{
+#ifdef HAVE_LIBGRIB_API
+ return grib_get_double_array(me->gribHandle, key, result, size);
+#else
+ (void) me;
+ (void) key;
+ (void) result;
+ (void) size;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_inqDoubleValue
+@Title Get the value of a GRIB-API key as a double
+
+@Prototype double cdiGribIterator_inqDoubleValue(CdiGribIterator *me, const char *key)
+@Parameter
+ @item me The iterator to operate on.
+ @item key The GRIB-API key to retrieve.
+
+@Result The value of the key.
+
+@Description
+ Use this to fetch a grib value if you are certain that the given key must be present.
+ This will abort the process if the key cannot be retrieved.
+*/
+double
+cdiGribIterator_inqDoubleValue(CdiGribIterator *me, const char *key)
+{
+#ifdef HAVE_LIBGRIB_API
+ return gribGetDouble(me->gribHandle, key);
+#else
+ (void) me;
+ (void) key;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+@Function cdiGribIterator_inqDoubleDefaultValue
+@Title Get the value of a GRIB-API key as a double
+
+@Prototype double cdiGribIterator_inqDoubleDefaultValue(CdiGribIterator *me, const char *key, double defaultValue)
+@Parameter
+ @item me The iterator to operate on.
+ @item key The GRIB-API key to retrieve.
+ @item defaultValue The value to return if the key is not present.
+
+@Result The value of the key or the given default value.
+
+@Description
+ Use this if you can handle failure to fetch the key by supplying a default value.
+ This function cannot fail.
+*/
+double
+cdiGribIterator_inqDoubleDefaultValue(CdiGribIterator *me, const char *key, double defaultValue)
+{
+#ifdef HAVE_LIBGRIB_API
+ return gribGetDoubleDefault(me->gribHandle, key, defaultValue);
+#else
+ (void) me;
+ (void) key;
+ (void) defaultValue;
+ xabort(
+ "CDI was compiled without GribAPI support, so you can't possibly have a valid CdiGribIterator* to call this function with");
+ return -4;
+#endif
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <math.h>
+
+// convert Julian calendar day into year, months, day
+static void
+decode_julday(int calendar, int64_t julianDay, // Julian day number to convert
+ int *year, // Gregorian year (out)
+ int *mon, // Gregorian month (1-12) (out)
+ int *day) // Gregorian day (1-31) (out)
+{
+ int64_t a = julianDay;
+
+ double b = floor((a - 1867216.25) / 36524.25);
+ double c = a + b - floor(b / 4) + 1525;
+
+ if (calendar == CALENDAR_STANDARD || calendar == CALENDAR_GREGORIAN)
+ if (a < 2299161) c = a + 1524;
+
+ double d = floor((c - 122.1) / 365.25);
+ double e = floor(365.25 * d);
+ double f = floor((c - e) / 30.6001);
+
+ *day = (int) (c - e - floor(30.6001 * f));
+ *mon = (int) (f - 1 - 12 * floor(f / 14));
+ *year = (int) (d - 4715 - floor((7 + *mon) / 10));
+}
+
+// convert year, month, day into Julian calendar day
+static int64_t
+encode_julday(int calendar, int year, int month, int day)
+{
+ int iy = (month <= 2) ? year - 1 : year;
+ int im = (month <= 2) ? month + 12 : month;
+ int ib = (iy < 0) ? ((iy + 1) / 400 - (iy + 1) / 100) : (iy / 400 - iy / 100);
+
+ if (calendar == CALENDAR_STANDARD || calendar == CALENDAR_GREGORIAN)
+ {
+ if (year > 1582 || (year == 1582 && (month > 10 || (month == 10 && day >= 15))))
+ {
+ // 15th October 1582 AD or later
+ }
+ else
+ {
+ // 4th October 1582 AD or earlier
+ ib = -2;
+ }
+ }
+
+ int64_t julianDay = (int64_t) (floor(365.25 * iy) + (int64_t) (30.6001 * (im + 1)) + ib + 1720996.5 + day + 0.5);
+
+ return julianDay;
+}
+
+int64_t
+date_to_julday(int calendar, int64_t date)
+{
+ int year, month, day;
+ cdiDecodeDate(date, &year, &month, &day);
+
+ return encode_julday(calendar, year, month, day);
+}
+
+int64_t
+julday_to_date(int calendar, int64_t julianDay)
+{
+ int year, month, day;
+ decode_julday(calendar, julianDay, &year, &month, &day);
+
+ return cdiEncodeDate(year, month, day);
+}
+
+int
+time_to_sec(int time)
+{
+ int hour, minute, second;
+ cdiDecodeTime(time, &hour, &minute, &second);
+
+ int seconds = hour * 3600 + minute * 60 + second;
+
+ return seconds;
+}
+
+int
+sec_to_time(int secofday)
+{
+ int hour = secofday / 3600;
+ int minute = secofday / 60 - hour * 60;
+ int second = secofday - hour * 3600 - minute * 60;
+
+ return cdiEncodeTime(hour, minute, second);
+}
+
+double
+secofday_encode(CdiTime time)
+{
+ int hour = time.hour;
+ int minute = time.minute;
+ int second = time.second;
+ return hour * 3600 + minute * 60 + second + time.ms / 1000.0;
+}
+
+CdiTime
+secofday_decode(double secondOfDay)
+{
+ CdiTime time;
+
+ double secondOfDayIntegral;
+ time.ms = lround(modf(secondOfDay, &secondOfDayIntegral) * 1000);
+
+ int fullSeconds = lrint(secondOfDayIntegral);
+
+ int hour = fullSeconds / 3600;
+ int minute = fullSeconds / 60 - hour * 60;
+ int second = fullSeconds - hour * 3600 - minute * 60;
+
+ time.hour = hour;
+ time.minute = minute;
+ time.second = second;
+
+ return time;
+}
+
+static int64_t
+calendarDay_encode(int calendar, CdiDate date)
+{
+ int dpy = calendar_dpy(calendar);
+
+ if (dpy == 360 || dpy == 365 || dpy == 366)
+ return encode_calday(dpy, date.year, date.month, date.day);
+ else
+ return encode_julday(calendar, date.year, date.month, date.day);
+}
+
+static CdiDate
+calendarDay_decode(int calendar, int64_t julday)
+{
+ int year, month, day;
+ int dpy = calendar_dpy(calendar);
+
+ if (dpy == 360 || dpy == 365 || dpy == 366)
+ decode_calday(dpy, julday, &year, &month, &day);
+ else
+ decode_julday(calendar, julday, &year, &month, &day);
+
+ CdiDate date;
+ date.year = year;
+ date.month = month;
+ date.day = day;
+
+ return date;
+}
+
+JulianDate
+julianDate_encode(int calendar, CdiDateTime dt)
+{
+ JulianDate julianDate;
+
+ julianDate.julianDay = calendarDay_encode(calendar, dt.date);
+ julianDate.secondOfDay = secofday_encode(dt.time);
+
+ return julianDate;
+}
+
+CdiDateTime
+julianDate_decode(int calendar, JulianDate julianDate)
+{
+ CdiDateTime dt;
+
+ dt.date = calendarDay_decode(calendar, julianDate.julianDay);
+ dt.time = secofday_decode(julianDate.secondOfDay);
+
+ return dt;
+}
+
+static void
+adjust_seconds(JulianDate *julianDate)
+{
+ double SecondsPerDay = 86400.0;
+
+ while (julianDate->secondOfDay >= SecondsPerDay)
+ {
+ julianDate->secondOfDay -= SecondsPerDay;
+ julianDate->julianDay++;
+ }
+
+ while (julianDate->secondOfDay < 0.0)
+ {
+ julianDate->secondOfDay += SecondsPerDay;
+ julianDate->julianDay--;
+ }
+}
+
+// add seconds to julianDate
+JulianDate
+julianDate_add_seconds(JulianDate julianDate, int64_t seconds)
+{
+ julianDate.secondOfDay += seconds;
+
+ adjust_seconds(&julianDate);
+
+ return julianDate;
+}
+
+// add julianDate1 and julianDate2
+JulianDate
+julianDate_add(JulianDate julianDate1, JulianDate julianDate2)
+{
+ JulianDate julianDate;
+ julianDate.julianDay = julianDate1.julianDay + julianDate2.julianDay;
+ julianDate.secondOfDay = julianDate1.secondOfDay + julianDate2.secondOfDay;
+
+ adjust_seconds(&julianDate);
+
+ return julianDate;
+}
+
+// subtract julianDate2 from julianDate1
+JulianDate
+julianDate_sub(JulianDate julianDate1, JulianDate julianDate2)
+{
+ JulianDate julianDate;
+ julianDate.julianDay = julianDate1.julianDay - julianDate2.julianDay;
+ julianDate.secondOfDay = julianDate1.secondOfDay - julianDate2.secondOfDay;
+
+ adjust_seconds(&julianDate);
+
+ return julianDate;
+}
+
+double
+julianDate_to_seconds(JulianDate julianDate)
+{
+ return julianDate.julianDay * 86400.0 + julianDate.secondOfDay;
+}
+
+#ifdef TEST2
+int
+main(void)
+{
+ int calendar = CALENDAR_STANDARD;
+ int factor = 86400;
+ int value = 30;
+
+ int year = 1979;
+ int month = 1;
+ int day = 15;
+ int hour = 12;
+ int minute = 30;
+ int second = 17;
+ int ms = 0;
+
+ CdiDateTime dt;
+ dt.date = cdiDate_encode(year, month, day);
+ dt.time = cdiTime_encode(hour, minute, second, ms);
+ printf("%d/%02d/%02d %02d:%02d:%02d.%03d\n", dt.date.year, dt.date.month, dt.date.day, dt.time.hour, dt.time.minute,
+ dt.time.second, dt.time.ms);
+
+ JulianDate julianDate = julianDate_encode(calendar, dt);
+
+ dt = julianDate_decode(calendar, julianDate);
+ printf("%d/%02d/%02d %02d:%02d:%02d.%03d %d %g\n", dt.date.year, dt.date.month, dt.date.day, dt.time.hour, dt.time.minute,
+ dt.time.second, dt.time.ms, (int) julianDate.julianDay, julianDate.secondOfDay);
+
+ for (int i = 0; i < 420; i++)
+ {
+ dt = julianDate_decode(calendar, julianDate);
+ printf("%2d %d/%02d/%02d %02d:%02d:%02d.%03d\n", i, dt.date.year, dt.date.month, dt.date.day, dt.time.hour, dt.time.minute,
+ dt.time.second, dt.time.ms);
+ julianDate = julianDate_add_seconds(julianDate, value * factor);
+ }
+
+ return 0;
+}
+#endif
+#ifndef MODEL_H
+#define MODEL_H
+
+int modelUnpack(void *buf, int size, int *position, int originNamespace, void *context, int force_id);
+
+void modelDefaultEntries(void);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <limits.h>
+
+
+#undef CDI_UNDEFID
+#define CDI_UNDEFID -1
+
+typedef struct
+{
+ int self;
+ int instID;
+ int modelgribID;
+ char *name;
+} model_t;
+
+static void modelInit(void);
+
+static int modelCompareP(void *modelptr1, void *modelptr2);
+static void modelDestroyP(void *modelptr);
+static void modelPrintP(void *modelptr, FILE *fp);
+static int modelGetSizeP(void *modelptr, void *context);
+static void modelPackP(void *modelptr, void *buff, int size, int *position, void *context);
+static int modelTxCode(void *modelptr);
+
+static const resOps modelOps = { modelCompareP, modelDestroyP, modelPrintP, modelGetSizeP, modelPackP, modelTxCode };
+
+static void
+modelDefaultValue(model_t *modelptr)
+{
+ modelptr->self = CDI_UNDEFID;
+ modelptr->instID = CDI_UNDEFID;
+ modelptr->modelgribID = CDI_UNDEFID;
+ modelptr->name = NULL;
+}
+
+static model_t *
+modelNewEntry(cdiResH resH, int instID, int modelgribID, const char *name)
+{
+ model_t *modelptr = (model_t *) Malloc(sizeof(model_t));
+ modelDefaultValue(modelptr);
+ if (resH == CDI_UNDEFID)
+ modelptr->self = reshPut(modelptr, &modelOps);
+ else
+ {
+ modelptr->self = resH;
+ reshReplace(resH, modelptr, &modelOps);
+ }
+ modelptr->instID = instID;
+ modelptr->modelgribID = modelgribID;
+ if (name && *name) modelptr->name = strdup(name);
+
+ return (modelptr);
+}
+
+void
+modelDefaultEntries(void)
+{
+ int instID;
+ enum
+ {
+ nDefModels = 10
+ };
+ cdiResH resH[nDefModels];
+
+ instID = institutInq(0, 0, "ECMWF", NULL);
+ /* (void) modelDef(instID, 131, "ERA15"); */
+ /* (void) modelDef(instID, 199, "ERA40"); */
+
+ instID = institutInq(98, 232, "MPIMET", NULL);
+ resH[0] = modelDef(instID, 64, "ECHAM5.4");
+ resH[1] = modelDef(instID, 63, "ECHAM5.3");
+ resH[2] = modelDef(instID, 62, "ECHAM5.2");
+ resH[3] = modelDef(instID, 61, "ECHAM5.1");
+
+ instID = institutInq(98, 255, "MPIMET", NULL);
+ resH[4] = modelDef(instID, 60, "ECHAM5.0");
+ resH[5] = modelDef(instID, 50, "ECHAM4");
+ resH[6] = modelDef(instID, 110, "MPIOM1");
+
+ instID = institutInq(0, 0, "DWD", NULL);
+ resH[7] = modelDef(instID, 149, "GME");
+
+ instID = institutInq(0, 0, "MCH", NULL);
+ //(void) = modelDef(instID, 137, "COSMO");
+ resH[8] = modelDef(instID, 255, "COSMO");
+
+ instID = institutInq(0, 1, "NCEP", NULL);
+ resH[9] = modelDef(instID, 80, "T62L28MRF");
+
+ /* pre-defined models are not synchronized */
+ for (int i = 0; i < nDefModels; i++) reshSetStatus(resH[i], &modelOps, RESH_IN_USE);
+}
+
+static void
+modelInit(void)
+{
+ static bool modelInitialized = false;
+ if (modelInitialized) return;
+}
+
+struct modelLoc
+{
+ const char *name;
+ int instID, modelgribID, resID;
+};
+
+static enum cdiApplyRet
+findModelByID(int resID, void *res, void *data)
+{
+ model_t *modelptr = (model_t *) res;
+ struct modelLoc *ret = (struct modelLoc *) data;
+ int instID = ret->instID, modelgribID = ret->modelgribID;
+ if (modelptr->instID == instID && modelptr->modelgribID == modelgribID)
+ {
+ ret->resID = resID;
+ return CDI_APPLY_STOP;
+ }
+ else
+ return CDI_APPLY_GO_ON;
+}
+
+static enum cdiApplyRet
+findModelByName(int resID, void *res, void *data)
+{
+ model_t *modelptr = (model_t *) res;
+ struct modelLoc *ret = (struct modelLoc *) data;
+ int instID = ret->instID, modelgribID = ret->modelgribID;
+ const char *name = ret->name;
+ if ((instID == -1 || modelptr->instID == instID) && (modelgribID == 0 || modelptr->modelgribID == modelgribID) && modelptr->name)
+ {
+ const char *p = name, *q = modelptr->name;
+ while (*p != '\0' && *p == *q) ++p, ++q;
+ if (*p == '\0' || *q == '\0')
+ {
+ ret->resID = resID;
+ return CDI_APPLY_STOP;
+ }
+ }
+ return CDI_APPLY_GO_ON;
+}
+
+int
+modelInq(int instID, int modelgribID, const char *name)
+{
+ modelInit();
+
+ struct modelLoc searchState = { .name = name, .instID = instID, .modelgribID = modelgribID, .resID = CDI_UNDEFID };
+ if (name && *name)
+ cdiResHFilterApply(&modelOps, findModelByName, &searchState);
+ else
+ cdiResHFilterApply(&modelOps, findModelByID, &searchState);
+ return searchState.resID;
+}
+
+int
+modelDef(int instID, int modelgribID, const char *name)
+{
+ model_t *modelptr;
+
+ modelInit();
+
+ modelptr = modelNewEntry(CDI_UNDEFID, instID, modelgribID, name);
+
+ return modelptr->self;
+}
+
+int
+modelInqInstitut(int modelID)
+{
+ model_t *modelptr = NULL;
+
+ modelInit();
+
+ if (modelID != CDI_UNDEFID) modelptr = (model_t *) reshGetVal(modelID, &modelOps);
+
+ return modelptr ? modelptr->instID : CDI_UNDEFID;
+}
+
+int
+modelInqGribID(int modelID)
+{
+ model_t *modelptr = NULL;
+
+ modelInit();
+
+ if (modelID != CDI_UNDEFID) modelptr = (model_t *) reshGetVal(modelID, &modelOps);
+
+ return modelptr ? modelptr->modelgribID : CDI_UNDEFID;
+}
+
+const char *
+modelInqNamePtr(int modelID)
+{
+ model_t *modelptr = NULL;
+
+ modelInit();
+
+ if (modelID != CDI_UNDEFID) modelptr = (model_t *) reshGetVal(modelID, &modelOps);
+
+ return modelptr ? modelptr->name : NULL;
+}
+
+static int
+modelCompareP(void *modelptr1, void *modelptr2)
+{
+ model_t *model1 = (model_t *) modelptr1, *model2 = (model_t *) modelptr2;
+ int diff = (namespaceResHDecode(model1->instID).idx != namespaceResHDecode(model2->instID).idx)
+ | (model1->modelgribID != model2->modelgribID) | !str_is_equal(model1->name, model2->name);
+ return diff;
+}
+
+void
+modelDestroyP(void *modelptr)
+{
+ model_t *mp = (model_t *) modelptr;
+ if (mp->name) Free(mp->name);
+ Free(mp);
+}
+
+void
+modelPrintP(void *modelptr, FILE *fp)
+{
+ model_t *mp = (model_t *) modelptr;
+ fprintf(fp,
+ "#\n"
+ "# modelID %d\n"
+ "#\n"
+ "self = %d\n"
+ "instID = %d\n"
+ "modelgribID = %d\n"
+ "name = %s\n",
+ mp->self, mp->self, mp->instID, mp->modelgribID, mp->name ? mp->name : "NN");
+}
+
+static int
+modelTxCode(void *modelptr)
+{
+ (void) modelptr;
+ return MODEL;
+}
+
+enum
+{
+ MODEL_PACK_INT_SELF,
+ MODEL_PACK_INT_INSTID,
+ MODEL_PACK_INT_MODELGRIBID,
+ MODEL_PACK_INT_NAMELEN,
+ modelNints,
+};
+
+static int
+modelGetSizeP(void *modelptr, void *context)
+{
+ model_t *p = (model_t *) modelptr;
+ size_t txsize = (size_t) serializeGetSize(modelNints, CDI_DATATYPE_INT, context)
+ + (size_t) serializeGetSize(p->name ? (int) strlen(p->name) : 0, CDI_DATATYPE_TXT, context);
+ xassert(txsize <= INT_MAX);
+ return (int) txsize;
+}
+
+static void
+modelPackP(void *modelptr, void *buf, int size, int *position, void *context)
+{
+ model_t *p = (model_t *) modelptr;
+ int tempbuf[modelNints];
+ tempbuf[MODEL_PACK_INT_SELF] = p->self;
+ tempbuf[MODEL_PACK_INT_INSTID] = p->instID;
+ tempbuf[MODEL_PACK_INT_MODELGRIBID] = p->modelgribID;
+ tempbuf[MODEL_PACK_INT_NAMELEN] = p->name ? (int) strlen(p->name) : 0;
+ serializePack(tempbuf, modelNints, CDI_DATATYPE_INT, buf, size, position, context);
+ if (p->name) serializePack(p->name, tempbuf[MODEL_PACK_INT_NAMELEN], CDI_DATATYPE_TXT, buf, size, position, context);
+}
+
+int
+modelUnpack(void *buf, int size, int *position, int originNamespace, void *context, int force_id)
+{
+#define adaptKey(key) (namespaceAdaptKey((key), originNamespace))
+ int tempbuf[modelNints];
+ char *name;
+ serializeUnpack(buf, size, position, tempbuf, modelNints, CDI_DATATYPE_INT, context);
+ if (tempbuf[MODEL_PACK_INT_NAMELEN] != 0)
+ {
+ size_t len = (size_t) tempbuf[MODEL_PACK_INT_NAMELEN];
+ name = (char *) Malloc(len + 1);
+ serializeUnpack(buf, size, position, name, tempbuf[MODEL_PACK_INT_NAMELEN], CDI_DATATYPE_TXT, context);
+ name[len] = '\0';
+ }
+ else
+ {
+ name = (char *) "";
+ }
+ int targetID = adaptKey(tempbuf[MODEL_PACK_INT_SELF]);
+ model_t *mp = modelNewEntry(force_id ? targetID : CDI_UNDEFID, adaptKey(tempbuf[MODEL_PACK_INT_INSTID]),
+ tempbuf[MODEL_PACK_INT_MODELGRIBID], name);
+ if (tempbuf[MODEL_PACK_INT_NAMELEN] != 0) Free(name);
+ xassert(!force_id || (mp->self == adaptKey(tempbuf[0])));
+ reshSetStatus(mp->self, &modelOps, reshGetStatus(mp->self, &modelOps) & ~RESH_SYNC_BIT);
+#undef adaptKey
+ return mp->self;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef STREAM_CDF_POSTDEF_H
+#define STREAM_CDF_POSTDEF_H
+
+#include <stdlib.h>
+
+
+struct cdfPostDefAction
+{
+ void *data;
+ void (*action)(void *data);
+ void (*cleanup)(void *data);
+};
+
+struct cdfPostDefActionList
+{
+ size_t size, len;
+ struct cdfPostDefAction actions[];
+};
+
+void cdfPostDefActionGridProp(stream_t *streamptr, int gridID, int ncvarid, enum gridPropInq gridProp,
+ struct cdfPostDefActionList **delayed);
+
+typedef void (*cdfFuncPtrPostDefActionGridProp)(stream_t *streamptr, int gridID, int ncvarid, enum gridPropInq gridProp,
+ struct cdfPostDefActionList **delayed);
+
+struct cdfPostDefActionList *cdfPostDefActionAdd(struct cdfPostDefActionList *list, struct cdfPostDefAction addendum);
+
+void cdfDelayedPutVarDeepCleanup(void *data);
+
+void cdfPostDefActionAddPutVal(struct cdfPostDefActionList **delayed, int fileID, int ncvarid, const double *values,
+ void (*cleanup)(void *));
+
+#endif
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifndef _XOPEN_SOURCE
+#define _XOPEN_SOURCE 600 /* PTHREAD_MUTEX_RECURSIVE */
+#endif
+
+#include <limits.h>
+#include <stdio.h>
+
+#ifdef HAVE_LIBNETCDF
+#endif
+
+static unsigned nNamespaces = 1;
+static int activeNamespace = 0;
+
+#ifdef HAVE_LIBNETCDF
+// clang-format off
+#define CDI_NETCDF_SWITCHES \
+ { .func = (void (*)(void)) nc__create }, \
+ { .func = (void (*)(void)) cdf_def_var_serial }, \
+ { .func = (void (*)(void)) cdi_nc_enddef_serial }, \
+ { .func = (void (*)(void)) cdi_nc__enddef_serial }, \
+ { .func = (void (*)(void)) cdfDefTimestep }, \
+ { .func = (void (*)(void)) cdfDefCoordinateVars }, \
+ { .func = (void (*)(void)) cdfPostDefActionGridProp }
+// clang-format on
+#else
+#define CDI_NETCDF_SWITCHES
+#endif
+
+// clang-format off
+#define defaultSwitches { \
+ { .func = (void (*)(void)) cdiAbortC_serial }, \
+ { .func = (void (*)(void)) cdiWarning }, \
+ { .func = (void (*)(void)) serializeGetSizeInCore }, \
+ { .func = (void (*)(void)) serializePackInCore }, \
+ { .func = (void (*)(void)) serializeUnpackInCore }, \
+ { .func = (void (*)(void)) fileOpen_serial }, \
+ { .func = (void (*)(void)) fileWrite }, \
+ { .func = (void (*)(void)) fileClose_serial }, \
+ { .func = (void (*)(void)) cdiStreamOpenDefaultDelegate }, \
+ { .func = (void (*)(void)) cdiStreamDefVlist_ }, \
+ { .func = (void (*)(void)) cdiStreamSetupVlist_ }, \
+ { .func = (void (*)(void)) cdiStreamWriteVar_ }, \
+ { .func = (void (*)(void)) cdiStreamWriteVarChunk_ }, \
+ { .func = (void (*)(void)) 0 }, \
+ { .func = (void (*)(void)) 0 }, \
+ { .func = (void (*)(void)) cdiStreamCloseDefaultDelegate }, \
+ { .func = (void (*)(void)) cdiStreamDefTimestep_ }, \
+ { .func = (void (*)(void)) cdiStreamSync_ }, \
+ { .func = (void (*)(void)) cdiVlistDestroy_ }, \
+ CDI_NETCDF_SWITCHES \
+ }
+// clang-format on
+
+#if defined(SX) || defined(__cplusplus)
+static const union namespaceSwitchValue defaultSwitches_[NUM_NAMESPACE_SWITCH] = defaultSwitches;
+#endif
+
+enum namespaceStatus
+{
+ NAMESPACE_STATUS_INUSE,
+ NAMESPACE_STATUS_UNUSED,
+};
+
+static union namespaceSwitchValue initialSwitches[NUM_NAMESPACE_SWITCH] = defaultSwitches;
+
+static struct Namespace
+{
+ enum namespaceStatus resStage;
+ unsigned numSwitches;
+ union namespaceSwitchValue *switches;
+} initialNamespace = { .resStage = NAMESPACE_STATUS_INUSE, .numSwitches = NUM_NAMESPACE_SWITCH, .switches = initialSwitches };
+
+static struct Namespace *namespaces = &initialNamespace;
+
+static unsigned namespacesSize = 1;
+
+#if defined(HAVE_LIBPTHREAD)
+#include <pthread.h>
+
+static pthread_once_t namespaceOnce = PTHREAD_ONCE_INIT;
+static pthread_mutex_t namespaceMutex;
+
+static void
+namespaceInitialize(void)
+{
+ pthread_mutexattr_t ma;
+ pthread_mutexattr_init(&ma);
+ pthread_mutexattr_settype(&ma, PTHREAD_MUTEX_RECURSIVE);
+ pthread_mutex_init(&namespaceMutex, &ma);
+ pthread_mutexattr_destroy(&ma);
+}
+
+#define NAMESPACE_LOCK() pthread_mutex_lock(&namespaceMutex)
+#define NAMESPACE_UNLOCK() pthread_mutex_unlock(&namespaceMutex)
+#define NAMESPACE_INIT() pthread_once(&namespaceOnce, namespaceInitialize)
+
+#else
+
+#define NAMESPACE_INIT() \
+ do \
+ { \
+ } \
+ while (0)
+#define NAMESPACE_LOCK()
+#define NAMESPACE_UNLOCK()
+
+#endif
+
+enum
+{
+ intbits = sizeof(int) * CHAR_BIT,
+ nspbits = 4,
+ idxbits = intbits - nspbits,
+ nspmask = (int) ((((unsigned) 1 << nspbits) - 1) << idxbits),
+ idxmask = (1 << idxbits) - 1,
+};
+
+enum
+{
+ NUM_NAMESPACES = 1 << nspbits,
+ NUM_IDX = 1 << idxbits,
+};
+
+int
+namespaceIdxEncode(namespaceTuple_t tin)
+{
+ xassert(tin.nsp < NUM_NAMESPACES && tin.idx < NUM_IDX);
+ return (tin.nsp << idxbits) + tin.idx;
+}
+
+int
+namespaceIdxEncode2(int nsp, int idx)
+{
+ xassert(nsp < NUM_NAMESPACES && idx < NUM_IDX);
+ return (nsp << idxbits) + idx;
+}
+
+namespaceTuple_t
+namespaceResHDecode(int resH)
+{
+ namespaceTuple_t tin;
+
+ tin.idx = resH & idxmask;
+ tin.nsp = (int) (((unsigned) (resH & nspmask)) >> idxbits);
+
+ return tin;
+}
+
+int
+namespaceNew(void)
+{
+ int newNamespaceID = -1;
+ NAMESPACE_INIT();
+ NAMESPACE_LOCK();
+ if (namespacesSize > nNamespaces)
+ {
+ /* namespace is already available and only needs reinitialization */
+ for (unsigned i = 0; i < namespacesSize; ++i)
+ if (namespaces[i].resStage == NAMESPACE_STATUS_UNUSED)
+ {
+ newNamespaceID = (int) i;
+ break;
+ }
+ }
+ else if (namespacesSize == 1)
+ {
+ /* make room for additional namespace */
+ struct Namespace *newNameSpaces = (struct Namespace *) Malloc(((size_t) namespacesSize + 1) * sizeof(namespaces[0]));
+ memcpy(newNameSpaces, namespaces, sizeof(namespaces[0]));
+ namespaces = newNameSpaces;
+ ++namespacesSize;
+ newNamespaceID = 1;
+ }
+ else if (namespacesSize < NUM_NAMESPACES)
+ {
+ /* make room for additional namespace */
+ newNamespaceID = (int) namespacesSize;
+ namespaces = (struct Namespace *) Realloc(namespaces, ((size_t) namespacesSize + 1) * sizeof(namespaces[0]));
+ ++namespacesSize;
+ }
+ else /* implicit: namespacesSize >= NUM_NAMESPACES */
+ {
+ NAMESPACE_UNLOCK();
+ return -1;
+ }
+ xassert(newNamespaceID >= 0 && newNamespaceID < NUM_NAMESPACES);
+ ++nNamespaces;
+ namespaces[newNamespaceID].resStage = NAMESPACE_STATUS_INUSE;
+ namespaces[newNamespaceID].numSwitches = NUM_NAMESPACE_SWITCH;
+ enum
+ {
+ initialNSSWSize = sizeof(union namespaceSwitchValue) * NUM_NAMESPACE_SWITCH
+ };
+ namespaces[newNamespaceID].switches = (union namespaceSwitchValue *) Malloc(initialNSSWSize);
+#if defined(SX) || defined(__cplusplus)
+ memcpy(namespaces[newNamespaceID].switches, defaultSwitches_, initialNSSWSize);
+#else
+ memcpy(namespaces[newNamespaceID].switches, (union namespaceSwitchValue[NUM_NAMESPACE_SWITCH]) defaultSwitches, initialNSSWSize);
+#endif
+ reshListCreate(newNamespaceID);
+ NAMESPACE_UNLOCK();
+ return newNamespaceID;
+}
+
+void
+namespaceDelete(int namespaceID)
+{
+ NAMESPACE_INIT();
+ NAMESPACE_LOCK();
+ xassert(namespaceID >= 0 && (unsigned) namespaceID < namespacesSize && nNamespaces);
+ reshListDestruct(namespaceID);
+ if (namespaces[namespaceID].switches != initialSwitches) Free(namespaces[namespaceID].switches);
+ namespaces[namespaceID].resStage = NAMESPACE_STATUS_UNUSED;
+ --nNamespaces;
+ NAMESPACE_UNLOCK();
+}
+
+int
+namespaceGetNumber(void)
+{
+ return (int) nNamespaces;
+}
+
+void
+namespaceSetActive(int nId)
+{
+ xassert((unsigned) nId < namespacesSize && namespaces[nId].resStage != NAMESPACE_STATUS_UNUSED);
+ activeNamespace = nId;
+}
+
+int
+namespaceGetActive(void)
+{
+ return activeNamespace;
+}
+
+int
+namespaceAdaptKey(int originResH, int originNamespace)
+{
+ if (originResH == CDI_UNDEFID) return CDI_UNDEFID;
+
+ namespaceTuple_t tin = { .idx = originResH & idxmask, .nsp = (int) (((unsigned) (originResH & nspmask)) >> idxbits) };
+ xassert(tin.nsp == originNamespace);
+
+ int nsp = namespaceGetActive();
+
+ return namespaceIdxEncode2(nsp, tin.idx);
+}
+
+int
+namespaceAdaptKey2(int originResH)
+{
+
+ if (originResH == CDI_UNDEFID) return CDI_UNDEFID;
+
+ namespaceTuple_t tin = { .idx = originResH & idxmask, .nsp = (int) (((unsigned) (originResH & nspmask)) >> idxbits) };
+ int nsp = namespaceGetActive();
+ return namespaceIdxEncode2(nsp, tin.idx);
+}
+
+void
+namespaceSwitchSet(int sw, union namespaceSwitchValue value)
+{
+ xassert(sw > NSSWITCH_NO_SUCH_SWITCH);
+ int nsp = namespaceGetActive();
+ NAMESPACE_LOCK();
+ if (namespaces[nsp].numSwitches <= (unsigned) sw)
+ {
+ if (namespaces[nsp].switches != initialSwitches)
+ namespaces[nsp].switches
+ = (union namespaceSwitchValue *) Realloc(namespaces[nsp].switches, ((unsigned) sw + 1) * sizeof value);
+ else
+ {
+ void *temp = Malloc(((unsigned) sw + 1) * sizeof value);
+ memcpy(temp, (void *) namespaces[nsp].switches, namespaces[nsp].numSwitches * sizeof value);
+ namespaces[nsp].switches = (union namespaceSwitchValue *) temp;
+ }
+ namespaces[nsp].numSwitches = (unsigned) sw + 1;
+ }
+ namespaces[nsp].switches[sw] = value;
+ NAMESPACE_UNLOCK();
+}
+
+union namespaceSwitchValue
+namespaceSwitchGet(int sw)
+{
+ int nsp = namespaceGetActive();
+ xassert(sw > NSSWITCH_NO_SUCH_SWITCH && (unsigned) sw < namespaces[nsp].numSwitches);
+ NAMESPACE_LOCK();
+ union namespaceSwitchValue sw_val = namespaces[nsp].switches[sw];
+ NAMESPACE_UNLOCK();
+ return sw_val;
+}
+
+int
+cdiNamespaceSwitchNewKey(void)
+{
+ static unsigned reservedKeys = 0;
+#if defined(HAVE_LIBPTHREAD)
+ static pthread_mutex_t keyMutex = PTHREAD_MUTEX_INITIALIZER;
+ pthread_mutex_lock(&keyMutex);
+#endif
+ if (reservedKeys >= INT_MAX - NUM_NAMESPACE_SWITCH - 1) Error("pool of available namespace switch keys exhausted!");
+ int newKey = (int) (reservedKeys++) + NUM_NAMESPACE_SWITCH;
+#if defined(HAVE_LIBPTHREAD)
+ pthread_mutex_unlock(&keyMutex);
+#endif
+ return newKey;
+}
+
+void
+cdiReset(void)
+{
+ NAMESPACE_INIT();
+ NAMESPACE_LOCK();
+ for (unsigned namespaceID = 0; namespaceID < namespacesSize; ++namespaceID)
+ if (namespaces[namespaceID].resStage != NAMESPACE_STATUS_UNUSED) namespaceDelete((int) namespaceID);
+ if (namespaces != &initialNamespace)
+ {
+ Free(namespaces);
+ namespaces = &initialNamespace;
+ namespaces[0].resStage = NAMESPACE_STATUS_UNUSED;
+ }
+ namespacesSize = 1;
+ nNamespaces = 0;
+ NAMESPACE_UNLOCK();
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+
+void
+cdiRefObject_construct(CdiReferencedObject *me)
+{
+ me->destructor = cdiRefObject_destruct;
+ me->refCount = 1;
+}
+
+void
+cdiRefObject_retain(CdiReferencedObject *me)
+{
+ size_t oldCount = me->refCount++;
+ xassert(oldCount && "A reference counted object was used after it was destructed.");
+}
+
+void
+cdiRefObject_release(CdiReferencedObject *me)
+{
+ size_t oldCount = me->refCount--;
+ xassert(oldCount && "A reference counted object was released too often.");
+ if (oldCount == 1)
+ {
+ me->destructor(me);
+ Free(me);
+ }
+}
+
+void
+cdiRefObject_destruct(CdiReferencedObject *me)
+{
+ (void) me;
+ /* Empty for now, but that's no reason not to call it! */
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifndef _XOPEN_SOURCE
+#define _XOPEN_SOURCE 600 /* PTHREAD_MUTEX_RECURSIVE */
+#endif
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <assert.h>
+
+#if defined(HAVE_EXECINFO_H)
+#include <execinfo.h>
+#endif
+
+static void
+show_stackframe(void)
+{
+#if defined HAVE_EXECINFO_H && defined backtrace_size_t && defined HAVE_BACKTRACE
+ void *trace[16];
+ backtrace_size_t trace_size = backtrace(trace, 16);
+ char **messages = backtrace_symbols(trace, trace_size);
+
+ fprintf(stderr, "[bt] Execution path:\n");
+ if (messages)
+ {
+ for (backtrace_size_t i = 0; i < trace_size; ++i) fprintf(stderr, "[bt] %s\n", messages[i]);
+ free(messages);
+ }
+#endif
+}
+
+
+enum
+{
+ MIN_LIST_SIZE = 128
+};
+
+static void listInitialize(void);
+
+typedef struct listElem
+{
+ union
+ {
+ /* free-list management data */
+ struct
+ {
+ int next, prev;
+ } free;
+ /* holding an actual value */
+ struct
+ {
+ const resOps *ops;
+ void *val; // ptr
+ } v;
+ } res;
+ int status;
+} listElem_t;
+
+struct resHList_t
+{
+ int size, freeHead, hasDefaultRes;
+ listElem_t *resources;
+};
+
+static struct resHList_t *resHList;
+
+static int resHListSize = 0;
+
+#if defined(HAVE_LIBPTHREAD)
+#include <pthread.h>
+
+static pthread_once_t listInitThread = PTHREAD_ONCE_INIT;
+static pthread_mutex_t listMutex;
+
+#define LIST_LOCK() pthread_mutex_lock(&listMutex)
+#define LIST_UNLOCK() pthread_mutex_unlock(&listMutex)
+#define LIST_INIT(init0) \
+ do \
+ { \
+ pthread_once(&listInitThread, listInitialize); \
+ pthread_mutex_lock(&listMutex); \
+ if ((init0) && (!resHList || !resHList[0].resources)) reshListCreate(0); \
+ pthread_mutex_unlock(&listMutex); \
+ } \
+ while (0)
+
+#else
+
+static int listInit = 0;
+
+#define LIST_LOCK()
+#define LIST_UNLOCK()
+#define LIST_INIT(init0) \
+ do \
+ { \
+ if (!listInit) \
+ { \
+ listInitialize(); \
+ if ((init0) && (!resHList || !resHList[0].resources)) reshListCreate(0); \
+ listInit = 1; \
+ } \
+ } \
+ while (0)
+
+#endif
+
+#ifdef CDI_CHECK_RESOURCE_LISTS
+static void
+checkListLinear(const char *caller, int nsp)
+{
+ const listElem_t *restrict r = resHList[nsp].resources;
+ for (int i = 0; i < resHList[nsp].size; i++)
+ {
+ if (r[i].status != RESH_UNUSED) continue;
+
+ int prev = r[i].res.free.prev;
+ int next = r[i].res.free.next;
+
+ if (prev < -1 || prev >= resHList[nsp].size) xabortC(caller, "error: found invalid back-link in free-list!");
+ if (prev != -1)
+ {
+ if (r[prev].res.free.next != i) xabortC(caller, "error: found incomplete back link in free-list!");
+ if (r[prev].status & RESH_IN_USE_BIT) xabortC(caller, "error: found in-use back link element in free-list!");
+ }
+
+ if (next < -1 || next >= resHList[nsp].size) xabortC(caller, "error: found invalid forward-link in free-list!");
+ if (next != -1)
+ {
+ if (r[next].res.free.prev != i) xabortC(caller, "error: found incomplete forward link in free-list!");
+ if (r[next].status & RESH_IN_USE_BIT) xabortC(caller, "error: found in-use next element in free-list!");
+ }
+ }
+}
+
+static void
+checkListFwdBwd(const char *caller, int nsp)
+{
+ const listElem_t *restrict r = resHList[nsp].resources;
+
+ int next = resHList[nsp].freeHead, loopLimit = resHList[nsp].size + 1;
+ int i = 0, cur = -1;
+ while (next != -1)
+ {
+ if (next < 0 || next >= resHList[nsp].size) xabortC(caller, "error: found invalid index in free-list!");
+ if (r[next].status & RESH_IN_USE_BIT) xabortC(caller, "error: found in-use next element in free-list!");
+
+ cur = next;
+ next = r[next].res.free.next;
+
+ if (++i > loopLimit) xabortC(caller, "error: found loop in free-list!");
+ }
+
+ i = 0;
+ int prev = cur;
+ while (prev != -1)
+ {
+ if (prev < 0 || prev >= resHList[nsp].size) xabortC(caller, "error: found invalid index in free-list!");
+ if (r[prev].status & RESH_IN_USE_BIT) xabortC(caller, "error: found in-use prev element in free-list!");
+
+ cur = prev;
+ prev = r[prev].res.free.prev;
+
+ if (prev == -1) break;
+
+ if (++i > loopLimit) xabortC(caller, "error: found loop in free-list!");
+ }
+}
+
+static void
+checkList(const char *caller, int nsp)
+{
+ checkListLinear(caller, nsp);
+ checkListFwdBwd(caller, nsp);
+}
+#else
+#define checkList(caller, nsp)
+#endif
+
+/**************************************************************/
+
+static void
+listInitResources(int nsp)
+{
+ xassert(nsp < resHListSize && nsp >= 0);
+ int size = resHList[nsp].size = MIN_LIST_SIZE;
+ xassert(resHList[nsp].resources == NULL);
+ resHList[nsp].resources = (listElem_t *) Calloc(MIN_LIST_SIZE, sizeof(listElem_t));
+ listElem_t *p = resHList[nsp].resources;
+
+ for (int i = 0; i < size; i++)
+ {
+ p[i].res.free.next = i + 1;
+ p[i].res.free.prev = i - 1;
+ p[i].status = RESH_UNUSED;
+ }
+ p[size - 1].res.free.next = -1;
+ resHList[nsp].freeHead = 0;
+
+ checkList(__func__, nsp);
+
+ int oldNsp = namespaceGetActive();
+ namespaceSetActive(nsp);
+ instituteDefaultEntries();
+ modelDefaultEntries();
+ namespaceSetActive(oldNsp);
+}
+
+static inline void
+reshListClearEntry(int i)
+{
+ resHList[i].size = 0;
+ resHList[i].resources = NULL;
+ resHList[i].freeHead = -1;
+}
+
+void
+reshListCreate(int namespaceID)
+{
+ LIST_INIT(namespaceID != 0);
+ LIST_LOCK();
+ if (resHListSize <= namespaceID)
+ {
+ resHList = (struct resHList_t *) Realloc(resHList, (size_t) (namespaceID + 1) * sizeof(resHList[0]));
+ for (int i = resHListSize; i <= namespaceID; ++i) reshListClearEntry(i);
+ resHListSize = namespaceID + 1;
+ }
+ listInitResources(namespaceID);
+ LIST_UNLOCK();
+}
+
+/**************************************************************/
+static void reshRemove_(int nsp, int idx, const char *caller);
+
+void
+reshListDestruct(int namespaceID)
+{
+ LIST_LOCK();
+ xassert(resHList && namespaceID >= 0 && namespaceID < resHListSize);
+ int callerNamespaceID = namespaceGetActive();
+ namespaceSetActive(namespaceID);
+ if (resHList[namespaceID].resources)
+ {
+ for (int j = 0; j < resHList[namespaceID].size; j++)
+ {
+ listElem_t *listElem = resHList[namespaceID].resources + j;
+ if (listElem->status & RESH_IN_USE_BIT)
+ {
+ listElem->res.v.ops->valDestroy(listElem->res.v.val);
+ reshRemove_(namespaceID, j, __func__);
+ }
+ }
+ Free(resHList[namespaceID].resources);
+ resHList[namespaceID].resources = NULL;
+ reshListClearEntry(namespaceID);
+ }
+ if (resHList[callerNamespaceID].resources) namespaceSetActive(callerNamespaceID);
+ LIST_UNLOCK();
+}
+
+static void
+listDestroy(void)
+{
+ LIST_LOCK();
+ for (int i = resHListSize; i > 0; --i)
+ if (resHList[i - 1].resources) namespaceDelete(i - 1);
+ resHListSize = 0;
+ Free(resHList);
+ resHList = NULL;
+ cdiReset();
+ LIST_UNLOCK();
+}
+
+/**************************************************************/
+
+static void
+listInitialize(void)
+{
+#if defined(HAVE_LIBPTHREAD)
+ pthread_mutexattr_t ma;
+ pthread_mutexattr_init(&ma);
+ pthread_mutexattr_settype(&ma, PTHREAD_MUTEX_RECURSIVE);
+ /* initialize global API mutex lock */
+ pthread_mutex_init(&listMutex, &ma);
+ pthread_mutexattr_destroy(&ma);
+#endif
+ /* file is special and has its own table, which needs to be
+ * created, before we register the listDestroy exit handler */
+ {
+ int null_id;
+ null_id = fileOpen_serial("/dev/null", "r");
+ if (null_id != -1) fileClose_serial(null_id);
+ }
+ atexit(listDestroy);
+}
+
+/**************************************************************/
+
+static void
+listSizeExtend(void)
+{
+ int nsp = namespaceGetActive();
+ checkList(__func__, nsp);
+ int oldSize = resHList[nsp].size;
+ size_t newListSize = (size_t) oldSize + MIN_LIST_SIZE;
+
+ resHList[nsp].resources = (listElem_t *) Realloc(resHList[nsp].resources, newListSize * sizeof(listElem_t));
+
+ listElem_t *r = resHList[nsp].resources;
+ for (size_t i = (size_t) oldSize; i < newListSize; ++i)
+ {
+ r[i].res.free.next = (int) i + 1;
+ r[i].res.free.prev = (int) i - 1;
+ r[i].status = RESH_UNUSED;
+ }
+
+ if (resHList[nsp].freeHead != -1) r[resHList[nsp].freeHead].res.free.prev = (int) newListSize - 1;
+ r[newListSize - 1].res.free.next = resHList[nsp].freeHead;
+ r[oldSize].res.free.prev = -1;
+ resHList[nsp].freeHead = oldSize;
+ resHList[nsp].size = (int) newListSize;
+
+ checkList(__func__, nsp);
+}
+
+/**************************************************************/
+
+static void
+reshPut_(int nsp, int entry, void *p, const resOps *ops)
+{
+ checkList(__func__, nsp);
+
+ listElem_t *newListElem = resHList[nsp].resources + entry;
+ int next = newListElem->res.free.next, prev = newListElem->res.free.prev;
+ if (next != -1) resHList[nsp].resources[next].res.free.prev = prev;
+ if (prev != -1)
+ resHList[nsp].resources[prev].res.free.next = next;
+ else
+ resHList[nsp].freeHead = next;
+ newListElem->res.v.val = p;
+ newListElem->res.v.ops = ops;
+ newListElem->status = RESH_DESYNC_IN_USE;
+
+ checkList(__func__, nsp);
+}
+
+int
+reshPut(void *p, const resOps *ops)
+{
+ xassert(p && ops);
+
+ LIST_INIT(1);
+
+ LIST_LOCK();
+
+ int nsp = namespaceGetActive();
+
+ if (resHList[nsp].freeHead == -1) listSizeExtend();
+ int entry = resHList[nsp].freeHead;
+ cdiResH resH = namespaceIdxEncode2(nsp, entry);
+ reshPut_(nsp, entry, p, ops);
+
+ LIST_UNLOCK();
+
+ return resH;
+}
+
+/**************************************************************/
+
+static void
+reshRemove_(int nsp, int idx, const char *caller)
+{
+ checkList(__func__, nsp);
+
+ int curFree = resHList[nsp].freeHead;
+ listElem_t *r = resHList[nsp].resources;
+ if (!(r[idx].status & RESH_IN_USE_BIT)) xabortC(caller, "Attempting to remove an item that is already removed.");
+ r[idx].res.free.next = curFree;
+ r[idx].res.free.prev = -1;
+ if (curFree != -1) r[curFree].res.free.prev = idx;
+ r[idx].status = RESH_DESYNC_DELETED;
+ resHList[nsp].freeHead = idx;
+
+ checkList(__func__, nsp);
+}
+
+void
+reshDestroy(cdiResH resH)
+{
+ int nsp;
+ namespaceTuple_t nspT;
+
+ LIST_LOCK();
+
+ nsp = namespaceGetActive();
+
+ nspT = namespaceResHDecode(resH);
+
+ listElem_t *r = resHList[nsp].resources + nspT.idx;
+
+ xassert(nspT.nsp == nsp && nspT.idx >= 0 && nspT.idx < resHList[nsp].size && r->res.v.ops);
+
+ if (r->status & RESH_IN_USE_BIT)
+ {
+ r->res.v.ops->valDestroy(r->res.v.val);
+ reshRemove_(nsp, nspT.idx, __func__);
+ }
+
+ LIST_UNLOCK();
+}
+
+void
+reshRemove(cdiResH resH, const resOps *ops)
+{
+ int nsp;
+ namespaceTuple_t nspT;
+
+ LIST_LOCK();
+
+ nsp = namespaceGetActive();
+
+ nspT = namespaceResHDecode(resH);
+
+ xassert(nspT.nsp == nsp && nspT.idx >= 0 && nspT.idx < resHList[nsp].size
+ && (resHList[nsp].resources[nspT.idx].status & RESH_IN_USE_BIT) && resHList[nsp].resources[nspT.idx].res.v.ops
+ && resHList[nsp].resources[nspT.idx].res.v.ops == ops);
+
+ reshRemove_(nsp, nspT.idx, __func__);
+
+ LIST_UNLOCK();
+}
+
+/**************************************************************/
+
+void
+reshReplace(cdiResH resH, void *p, const resOps *ops)
+{
+ xassert(p && ops);
+ LIST_INIT(1);
+ LIST_LOCK();
+ int nsp = namespaceGetActive();
+
+ checkList(__func__, nsp);
+
+ namespaceTuple_t nspT = namespaceResHDecode(resH);
+ while (resHList[nsp].size <= nspT.idx) listSizeExtend();
+ listElem_t *q = resHList[nsp].resources + nspT.idx;
+ if (q->status & RESH_IN_USE_BIT)
+ {
+ q->res.v.ops->valDestroy(q->res.v.val);
+ reshRemove_(nsp, nspT.idx, __func__);
+ }
+ reshPut_(nsp, nspT.idx, p, ops);
+ LIST_UNLOCK();
+
+ checkList(__func__, nsp);
+}
+
+static listElem_t *
+reshGetElem(const char *caller, const char *expressionString, cdiResH resH, const resOps *ops)
+{
+ listElem_t *listElem;
+ xassert(ops);
+
+ LIST_INIT(1);
+
+ LIST_LOCK();
+
+ int nsp = namespaceGetActive();
+
+ namespaceTuple_t nspT = namespaceResHDecode(resH);
+ assert(nspT.idx >= 0);
+
+ if (nspT.nsp == nsp && nspT.idx < resHList[nsp].size)
+ {
+ listElem = resHList[nsp].resources + nspT.idx;
+ LIST_UNLOCK();
+ }
+ else
+ {
+ LIST_UNLOCK();
+ show_stackframe();
+
+ if (resH == CDI_UNDEFID)
+ {
+ xabortC(caller,
+ "Error while trying to resolve the ID \"%s\" in `%s()`: the value is CDI_UNDEFID (= %d).\n\tThis is most likely "
+ "the result of a failed earlier call. Please check the IDs returned by CDI.",
+ expressionString, caller, resH);
+ }
+ else
+ {
+ xabortC(caller,
+ "Error while trying to resolve the ID \"%s\" in `%s()`: the value is garbage (= %d, which resolves to namespace "
+ "= %d, index = %d).\n\tThis is either the result of using an uninitialized variable,\n\tof using a value as an "
+ "ID that is not an ID,\n\tor of using an ID after it has been invalidated.",
+ expressionString, caller, resH, nspT.nsp, nspT.idx);
+ }
+ }
+
+ if (!(listElem && listElem->res.v.ops == ops))
+ {
+ show_stackframe();
+
+ xabortC(caller, "Error while trying to resolve the ID \"%s\" in `%s()`: list element not found. The failed ID is %d",
+ expressionString, caller, (int) resH);
+ }
+
+ return listElem;
+}
+
+void *
+reshGetValue(const char *caller, const char *expressionString, cdiResH resH, const resOps *ops)
+{
+ return reshGetElem(caller, expressionString, resH, ops)->res.v.val;
+}
+
+/**************************************************************/
+
+void
+reshGetResHListOfType(unsigned numIDs, int resHs[], const resOps *ops)
+{
+ xassert(resHs && ops);
+
+ LIST_INIT(1);
+
+ LIST_LOCK();
+
+ int nsp = namespaceGetActive();
+ unsigned j = 0;
+ for (int i = 0; i < resHList[nsp].size && j < numIDs; i++)
+ if ((resHList[nsp].resources[i].status & RESH_IN_USE_BIT) && resHList[nsp].resources[i].res.v.ops == ops)
+ resHs[j++] = namespaceIdxEncode2(nsp, i);
+
+ LIST_UNLOCK();
+}
+
+enum cdiApplyRet
+cdiResHApply(enum cdiApplyRet (*func)(int id, void *res, const resOps *p, void *data), void *data)
+{
+ xassert(func);
+
+ LIST_INIT(1);
+
+ LIST_LOCK();
+
+ int nsp = namespaceGetActive();
+ enum cdiApplyRet ret = CDI_APPLY_GO_ON;
+ for (int i = 0; i < resHList[nsp].size && ret > 0; ++i)
+ if (resHList[nsp].resources[i].status & RESH_IN_USE_BIT)
+ ret = func(namespaceIdxEncode2(nsp, i), resHList[nsp].resources[i].res.v.val, resHList[nsp].resources[i].res.v.ops, data);
+ LIST_UNLOCK();
+ return ret;
+}
+
+enum cdiApplyRet
+cdiResHFilterApply(const resOps *p, enum cdiApplyRet (*func)(int id, void *res, void *data), void *data)
+{
+ xassert(p && func);
+
+ LIST_INIT(1);
+
+ LIST_LOCK();
+
+ int nsp = namespaceGetActive();
+ enum cdiApplyRet ret = CDI_APPLY_GO_ON;
+ listElem_t *r = resHList[nsp].resources;
+ for (int i = 0; i < resHList[nsp].size && ret > 0; ++i)
+ if ((r[i].status & RESH_IN_USE_BIT) && r[i].res.v.ops == p) ret = func(namespaceIdxEncode2(nsp, i), r[i].res.v.val, data);
+ LIST_UNLOCK();
+ return ret;
+}
+
+/**************************************************************/
+
+unsigned
+reshCountType(const resOps *ops)
+{
+ unsigned countType = 0;
+
+ xassert(ops);
+
+ LIST_INIT(1);
+
+ LIST_LOCK();
+
+ int nsp = namespaceGetActive();
+
+ listElem_t *r = resHList[nsp].resources;
+ size_t len = (size_t) resHList[nsp].size;
+ for (size_t i = 0; i < len; i++) countType += ((r[i].status & RESH_IN_USE_BIT) && r[i].res.v.ops == ops);
+
+ LIST_UNLOCK();
+
+ return countType;
+}
+
+/**************************************************************/
+
+int
+reshResourceGetPackSize_intern(int resH, const resOps *ops, void *context, const char *caller, const char *expressionString)
+{
+ listElem_t *curr = reshGetElem(caller, expressionString, resH, ops);
+ return curr->res.v.ops->valGetPackSize(curr->res.v.val, context);
+}
+
+void
+reshPackResource_intern(int resH, const resOps *ops, void *buf, int buf_size, int *position, void *context, const char *caller,
+ const char *expressionString)
+{
+ listElem_t *curr = reshGetElem(caller, expressionString, resH, ops);
+ curr->res.v.ops->valPack(curr->res.v.val, buf, buf_size, position, context);
+}
+
+enum
+{
+ resHPackHeaderNInt = 2,
+ resHDeleteNInt = 2,
+};
+
+static int
+getPackBufferSize(void *context)
+{
+ int intpacksize, packBufferSize = 0;
+
+ int nsp = namespaceGetActive();
+
+ /* pack start marker, namespace and sererator marker */
+ packBufferSize += resHPackHeaderNInt * (intpacksize = serializeGetSize(1, CDI_DATATYPE_INT, context));
+
+ /* pack resources, type marker and seperator marker */
+ listElem_t *r = resHList[nsp].resources;
+ for (int i = 0; i < resHList[nsp].size; i++)
+ if (r[i].status & RESH_SYNC_BIT)
+ {
+ if (r[i].status == RESH_DESYNC_DELETED)
+ {
+ packBufferSize += resHDeleteNInt * intpacksize;
+ }
+ else if (r[i].status == RESH_DESYNC_IN_USE)
+ {
+ xassert(r[i].res.v.ops);
+ /* packed resource plus 1 int for type */
+ packBufferSize += r[i].res.v.ops->valGetPackSize(r[i].res.v.val, context) + intpacksize;
+ }
+ }
+ /* end marker */
+ packBufferSize += intpacksize;
+
+ return packBufferSize;
+}
+
+/**************************************************************/
+
+void
+reshPackBufferDestroy(char **buffer)
+{
+ if (buffer) free(*buffer);
+}
+
+/**************************************************************/
+
+int
+reshGetTxCode(cdiResH resH)
+{
+ int type = 0;
+
+ LIST_LOCK();
+
+ int nsp = namespaceGetActive();
+
+ namespaceTuple_t nspT = namespaceResHDecode(resH);
+ assert(nspT.idx >= 0);
+
+ if (nspT.nsp == nsp && nspT.idx < resHList[nsp].size)
+ {
+ listElem_t *listElem = resHList[nsp].resources + nspT.idx;
+ xassert(listElem->res.v.ops);
+ type = listElem->res.v.ops->valTxCode(listElem->res.v.val);
+ }
+
+ LIST_UNLOCK();
+
+ return type;
+}
+
+/**************************************************************/
+
+int
+reshPackBufferCreate(char **packBuffer, int *packBufferSize, void *context)
+{
+ int packBufferPos = 0;
+ int end = END;
+
+ xassert(packBuffer);
+
+ LIST_LOCK();
+
+ int nsp = namespaceGetActive();
+
+ int pBSize = *packBufferSize = getPackBufferSize(context);
+ char *pB = *packBuffer = (char *) Malloc((size_t) pBSize);
+
+ {
+ int header[resHPackHeaderNInt] = { START, nsp };
+ serializePack(header, resHPackHeaderNInt, CDI_DATATYPE_INT, pB, pBSize, &packBufferPos, context);
+ }
+
+ listElem_t *r = resHList[nsp].resources;
+ for (int i = 0; i < resHList[nsp].size; i++)
+ if (r[i].status & RESH_SYNC_BIT)
+ {
+ if (r[i].status == RESH_DESYNC_DELETED)
+ {
+ int temp[resHDeleteNInt] = { RESH_DELETE, namespaceIdxEncode2(nsp, i) };
+ serializePack(temp, resHDeleteNInt, CDI_DATATYPE_INT, pB, pBSize, &packBufferPos, context);
+ }
+ else
+ {
+ listElem_t *curr = r + i;
+ xassert(curr->res.v.ops);
+ int type = curr->res.v.ops->valTxCode(curr->res.v.val);
+ if (!type) continue;
+ serializePack(&type, 1, CDI_DATATYPE_INT, pB, pBSize, &packBufferPos, context);
+ curr->res.v.ops->valPack(curr->res.v.val, pB, pBSize, &packBufferPos, context);
+ }
+ r[i].status &= ~RESH_SYNC_BIT;
+ }
+
+ LIST_UNLOCK();
+
+ serializePack(&end, 1, CDI_DATATYPE_INT, pB, pBSize, &packBufferPos, context);
+
+ return packBufferPos;
+}
+
+/**************************************************************/
+
+/* for thread safety this feature would have to be integrated in reshPut */
+
+void
+reshSetStatus(cdiResH resH, const resOps *ops, int status)
+{
+ int nsp;
+ namespaceTuple_t nspT;
+ listElem_t *listElem;
+
+ LIST_INIT(1);
+
+ LIST_LOCK();
+
+ nsp = namespaceGetActive();
+
+ nspT = namespaceResHDecode(resH);
+
+ xassert(nspT.nsp == nsp && nspT.idx >= 0 && nspT.idx < resHList[nsp].size);
+
+ xassert(resHList[nsp].resources);
+ listElem = resHList[nsp].resources + nspT.idx;
+
+ xassert((!ops || (listElem->res.v.ops == ops)) && (listElem->status & RESH_IN_USE_BIT) == (status & RESH_IN_USE_BIT));
+
+ listElem->status = status;
+
+ LIST_UNLOCK();
+}
+
+/**************************************************************/
+
+int
+reshGetStatus(cdiResH resH, const resOps *ops)
+{
+ LIST_INIT(1);
+
+ LIST_LOCK();
+
+ int nsp = namespaceGetActive();
+
+ namespaceTuple_t nspT = namespaceResHDecode(resH);
+
+ xassert(nspT.nsp == nsp && nspT.idx >= 0);
+
+ int status = RESH_UNUSED;
+ if (nspT.idx < resHList[nsp].size)
+ {
+ listElem_t *listElem = resHList[nsp].resources + nspT.idx;
+ const resOps *elemOps = listElem->res.v.ops;
+ xassert(listElem && (!(listElem->status & RESH_IN_USE_BIT) || elemOps == ops || !ops));
+ status = listElem->status;
+ }
+
+ LIST_UNLOCK();
+
+ return status;
+}
+
+/**************************************************************/
+
+void
+reshLock(void)
+{
+ LIST_LOCK();
+}
+
+/**************************************************************/
+
+void
+reshUnlock(void)
+{
+ LIST_UNLOCK();
+}
+
+/**************************************************************/
+
+int
+reshListCompare(int nsp0, int nsp1)
+{
+ LIST_INIT(1);
+ LIST_LOCK();
+
+ xassert(resHListSize > nsp0 && resHListSize > nsp1 && nsp0 >= 0 && nsp1 >= 0);
+
+ int valCompare = 0;
+ int i, listSizeMin = (resHList[nsp0].size <= resHList[nsp1].size) ? resHList[nsp0].size : resHList[nsp1].size;
+ listElem_t *resources0 = resHList[nsp0].resources, *resources1 = resHList[nsp1].resources;
+ for (i = 0; i < listSizeMin; i++)
+ {
+ int occupied0 = (resources0[i].status & RESH_IN_USE_BIT) != 0, occupied1 = (resources1[i].status & RESH_IN_USE_BIT) != 0;
+ /* occupation mismatch ? */
+ int diff = occupied0 ^ occupied1;
+ valCompare |= (diff << cdiResHListOccupationMismatch);
+ if (!diff && occupied0)
+ {
+ /* both occupied, do resource types match? */
+ diff = (resources0[i].res.v.ops != resources1[i].res.v.ops || resources0[i].res.v.ops == NULL);
+ valCompare |= (diff << cdiResHListResourceTypeMismatch);
+ if (!diff)
+ {
+ /* types match, does content match also? */
+ diff = resources0[i].res.v.ops->valCompare(resources0[i].res.v.val, resources1[i].res.v.val);
+ valCompare |= (diff << cdiResHListResourceContentMismatch);
+ }
+ }
+ }
+ /* find resources in nsp 0 beyond end of nsp 1 */
+ for (int j = listSizeMin; j < resHList[nsp0].size; ++j)
+ valCompare |= (((resources0[j].status & RESH_IN_USE_BIT) != 0) << cdiResHListOccupationMismatch);
+ /* find resources in nsp 1 beyond end of nsp 0 */
+ for (; i < resHList[nsp1].size; ++i)
+ valCompare |= (((resources1[i].status & RESH_IN_USE_BIT) != 0) << cdiResHListOccupationMismatch);
+
+ LIST_UNLOCK();
+
+ return valCompare;
+}
+
+/**************************************************************/
+
+void
+reshListPrint(FILE *fp)
+{
+ int i, j, temp;
+ listElem_t *curr;
+
+ LIST_INIT(1);
+
+ temp = namespaceGetActive();
+
+ fprintf(fp, "\n\n##########################################\n#\n# print "
+ "global resource list \n#\n");
+
+ for (i = 0; i < namespaceGetNumber(); i++)
+ {
+ namespaceSetActive(i);
+
+ fprintf(fp, "\n");
+ fprintf(fp, "##################################\n");
+ fprintf(fp, "#\n");
+ fprintf(fp, "# namespace=%d\n", i);
+ fprintf(fp, "#\n");
+ fprintf(fp, "##################################\n\n");
+
+ fprintf(fp, "resHList[%d].size=%d\n", i, resHList[i].size);
+
+ for (j = 0; j < resHList[i].size; j++)
+ {
+ curr = resHList[i].resources + j;
+ if (!(curr->status & RESH_IN_USE_BIT))
+ {
+ curr->res.v.ops->valPrint(curr->res.v.val, fp);
+ fprintf(fp, "\n");
+ }
+ }
+ }
+ fprintf(fp, "#\n# end global resource list"
+ "\n#\n##########################################\n\n");
+
+ namespaceSetActive(temp);
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <inttypes.h>
+#include <limits.h>
+#include <string.h>
+
+
+int
+serializeGetSize(int count, int datatype, void *context)
+{
+ int (*serialize_get_size_p)(int count, int datatype, void *context)
+ = (int (*)(int, int, void *)) namespaceSwitchGet(NSSWITCH_SERIALIZE_GET_SIZE).func;
+ return serialize_get_size_p(count, datatype, context);
+}
+
+void
+serializePack(const void *data, int count, int datatype, void *buf, int buf_size, int *position, void *context)
+{
+ void (*serialize_pack_p)(const void *data, int count, int datatype, void *buf, int buf_size, int *position, void *context)
+ = (void (*)(const void *, int, int, void *, int, int *, void *)) namespaceSwitchGet(NSSWITCH_SERIALIZE_PACK).func;
+ serialize_pack_p(data, count, datatype, buf, buf_size, position, context);
+}
+
+void
+serializeUnpack(const void *buf, int buf_size, int *position, void *data, int count, int datatype, void *context)
+{
+ void (*serialize_unpack_p)(const void *buf, int buf_size, int *position, void *data, int count, int datatype, void *context)
+ = (void (*)(const void *, int, int *, void *, int, int, void *)) namespaceSwitchGet(NSSWITCH_SERIALIZE_UNPACK).func;
+ serialize_unpack_p(buf, buf_size, position, data, count, datatype, context);
+}
+
+int
+serializeGetSizeInCore(int count, int datatype, void *context)
+{
+ int elemSize;
+ (void) context;
+ switch (datatype)
+ {
+ case CDI_DATATYPE_INT8: elemSize = sizeof(int8_t); break;
+ case CDI_DATATYPE_INT16: elemSize = sizeof(int16_t); break;
+ case CDI_DATATYPE_UINT32: elemSize = sizeof(uint32_t); break;
+ case CDI_DATATYPE_INT: elemSize = sizeof(int); break;
+ case CDI_DATATYPE_UINT: elemSize = sizeof(unsigned); break;
+ case CDI_DATATYPE_FLT:
+ case CDI_DATATYPE_FLT64: elemSize = sizeof(double); break;
+ case CDI_DATATYPE_TXT:
+ case CDI_DATATYPE_UCHAR: elemSize = 1; break;
+ case CDI_DATATYPE_LONG: elemSize = sizeof(long); break;
+ default: xabort("Unexpected datatype");
+ }
+ return count * elemSize;
+}
+
+void
+serializePackInCore(const void *data, int count, int datatype, void *buf, int buf_size, int *position, void *context)
+{
+ int size = serializeGetSize(count, datatype, context);
+ int pos = *position;
+ xassert(INT_MAX - pos >= size && buf_size - pos >= size);
+ memcpy((unsigned char *) buf + pos, data, (size_t) size);
+ pos += size;
+ *position = pos;
+}
+
+void
+serializeUnpackInCore(const void *buf, int buf_size, int *position, void *data, int count, int datatype, void *context)
+{
+ int size = serializeGetSize(count, datatype, context);
+ int pos = *position;
+ xassert(INT_MAX - pos >= size && buf_size - pos >= size);
+ memcpy(data, (unsigned char *) buf + pos, (size_t) size);
+ pos += size;
+ *position = pos;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <ctype.h>
+
+
+enum
+{
+ SRV_HEADER_LEN = 8,
+};
+
+union SRV_HEADER
+{
+ INT32 i32[SRV_HEADER_LEN];
+ INT64 i64[SRV_HEADER_LEN];
+};
+
+static int initSrvLib = 0;
+static int srvDefaultHprec = 0;
+static int srvDefaultDprec = 0;
+
+// A version string.
+#undef LIBVERSION
+#define LIBVERSION 1.5.0
+#define XSTRING(x) #x
+#define STRING(x) XSTRING(x)
+static const char srv_libvers[] = STRING(LIBVERSION);
+
+const char *
+srvLibraryVersion(void)
+{
+ return srv_libvers;
+}
+
+static int SRV_Debug = 0; // If set to 1, debugging
+
+void
+srvDebug(int debug)
+{
+ if (debug) Message("debug level %d", debug);
+ SRV_Debug = debug;
+}
+
+static void
+srvLibInit(void)
+{
+ const char *envName = "SRV_PRECISION";
+
+ char *envString = getenv(envName);
+ if (envString)
+ {
+ int nrun = (strlen(envString) == 2) ? 1 : 2;
+ int pos = 0;
+ while (nrun--)
+ {
+ switch (tolower((int) envString[pos]))
+ {
+ case 'i':
+ {
+ switch ((int) envString[pos + 1])
+ {
+ case '4': srvDefaultHprec = EXSE_SINGLE_PRECISION; break;
+ case '8': srvDefaultHprec = EXSE_DOUBLE_PRECISION; break;
+ default: Warning("Invalid digit in %s: %s", envName, envString);
+ }
+ break;
+ }
+ case 'r':
+ {
+ switch ((int) envString[pos + 1])
+ {
+ case '4': srvDefaultDprec = EXSE_SINGLE_PRECISION; break;
+ case '8': srvDefaultDprec = EXSE_DOUBLE_PRECISION; break;
+ default: Warning("Invalid digit in %s: %s", envName, envString);
+ }
+ break;
+ }
+ default:
+ {
+ Warning("Invalid character in %s: %s", envName, envString);
+ break;
+ }
+ }
+ pos += 2;
+ }
+ }
+
+ initSrvLib = 1;
+}
+
+static void
+srvInit(srvrec_t *srvp)
+{
+ srvp->checked = 0;
+ srvp->byteswap = 0;
+ srvp->hprec = 0;
+ srvp->dprec = 0;
+ srvp->datasize = 0;
+ srvp->buffersize = 0;
+ srvp->buffer = NULL;
+}
+
+void *
+srvNew(void)
+{
+ if (!initSrvLib) srvLibInit();
+
+ srvrec_t *srvp = (srvrec_t *) Malloc(sizeof(srvrec_t));
+ srvInit(srvp);
+
+ return (void *) srvp;
+}
+
+void
+srvDelete(void *srv)
+{
+ srvrec_t *srvp = (srvrec_t *) srv;
+
+ if (srvp)
+ {
+ if (srvp->buffer) Free(srvp->buffer);
+ Free(srvp);
+ }
+}
+
+int
+srvCheckFiletype(int fileID, int *swap)
+{
+ size_t data = 0;
+ size_t dimx = 0, dimy = 0;
+ size_t fact = 0;
+ unsigned char buffer[72], *pbuf;
+
+ if (fileRead(fileID, buffer, 4) != 4) return 0;
+
+ size_t blocklen = (size_t) get_UINT32(buffer);
+ size_t sblocklen = (size_t) get_SUINT32(buffer);
+
+ if (SRV_Debug) Message("blocklen = %d sblocklen = %d", blocklen, sblocklen);
+
+ // clang-format off
+ if (blocklen == 32)
+ {
+ *swap = 0;
+ fact = blocklen>>3;
+ if (fileRead(fileID, buffer, blocklen+8) != blocklen+8) return 0;
+ pbuf = buffer+4*fact; dimx = (size_t) get_UINT32(pbuf);
+ pbuf = buffer+5*fact; dimy = (size_t) get_UINT32(pbuf);
+ pbuf = buffer+blocklen+4; data = (size_t) get_UINT32(pbuf);
+ }
+ else if (blocklen == 64)
+ {
+ *swap = 0;
+ fact = blocklen>>3;
+ if (fileRead(fileID, buffer, blocklen+8) != blocklen+8) return 0;
+ pbuf = buffer+4*fact; dimx = (size_t) get_UINT64(pbuf);
+ pbuf = buffer+5*fact; dimy = (size_t) get_UINT64(pbuf);
+ pbuf = buffer+blocklen+4; data = (size_t) get_UINT32(pbuf);
+ }
+ else if (sblocklen == 32)
+ {
+ *swap = 1;
+ fact = sblocklen>>3;
+ if (fileRead(fileID, buffer, sblocklen+8) != sblocklen+8) return 0;
+ pbuf = buffer+4*fact; dimx = (size_t) get_SUINT32(pbuf);
+ pbuf = buffer+5*fact; dimy = (size_t) get_SUINT32(pbuf);
+ pbuf = buffer+sblocklen+4; data = (size_t) get_SUINT32(pbuf);
+ }
+ else if (sblocklen == 64)
+ {
+ *swap = 1;
+ fact = sblocklen>>3;
+ if (fileRead(fileID, buffer, sblocklen+8) != sblocklen+8) return 0;
+ pbuf = buffer+4*fact; dimx = (size_t) get_SUINT64(pbuf);
+ pbuf = buffer+5*fact; dimy = (size_t) get_SUINT64(pbuf);
+ pbuf = buffer+sblocklen+4; data = (size_t) get_SUINT32(pbuf);
+ }
+ // clang-format on
+
+ fileRewind(fileID);
+
+ if (SRV_Debug) Message("swap = %d fact = %d", *swap, fact);
+ if (SRV_Debug) Message("dimx = %lu dimy = %lu data = %lu", dimx, dimy, data);
+
+ int found = data && (dimx * dimy * fact == data || dimx * dimy * 8 == data);
+ return found;
+}
+
+int
+srvInqHeader(void *srv, int *header)
+{
+ srvrec_t *srvp = (srvrec_t *) srv;
+
+ for (int i = 0; i < SRV_HEADER_LEN; i++) header[i] = srvp->header[i];
+
+ if (SRV_Debug) Message("datasize = %lu", srvp->datasize);
+
+ return 0;
+}
+
+int
+srvDefHeader(void *srv, const int *header)
+{
+ srvrec_t *srvp = (srvrec_t *) srv;
+
+ for (int i = 0; i < SRV_HEADER_LEN; i++) srvp->header[i] = header[i];
+
+ srvp->datasize = (size_t) header[4] * (size_t) header[5];
+
+ if (SRV_Debug) Message("datasize = %zu", srvp->datasize);
+
+ return 0;
+}
+
+static int
+srvInqData(srvrec_t *srvp, int prec, void *data)
+{
+ int ierr = 0;
+ int byteswap = srvp->byteswap;
+ size_t datasize = srvp->datasize;
+ void *buffer = srvp->buffer;
+ int dprec = srvp->dprec;
+
+ switch (dprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ if (sizeof(FLT32) == 4)
+ {
+ if (byteswap) swap4byte(buffer, datasize);
+
+ if (dprec == prec)
+ memcpy(data, buffer, datasize * sizeof(FLT32));
+ else
+ for (size_t i = 0; i < datasize; i++) ((double *) data)[i] = (double) ((float *) buffer)[i];
+ }
+ else
+ {
+ Error("not implemented for %d byte float", sizeof(FLT32));
+ }
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ if (sizeof(FLT64) == 8)
+ {
+ if (byteswap) swap8byte(buffer, datasize);
+
+ if (dprec == prec)
+ memcpy(data, buffer, datasize * sizeof(FLT64));
+ else
+ for (size_t i = 0; i < datasize; i++) ((float *) data)[i] = (float) ((double *) buffer)[i];
+ }
+ else
+ {
+ Error("not implemented for %d byte float", sizeof(FLT64));
+ }
+ break;
+ default:
+ {
+ Error("unexpected data precision %d", dprec);
+ break;
+ }
+ }
+
+ return ierr;
+}
+
+int
+srvInqDataSP(void *srv, float *data)
+{
+ return srvInqData((srvrec_t *) srv, EXSE_SINGLE_PRECISION, (void *) data);
+}
+
+int
+srvInqDataDP(void *srv, double *data)
+{
+ return srvInqData((srvrec_t *) srv, EXSE_DOUBLE_PRECISION, (void *) data);
+}
+
+static int
+srvDefData(void *srv, int prec, const void *data)
+{
+ srvrec_t *srvp = (srvrec_t *) srv;
+
+ int dprec = srvDefaultDprec ? srvDefaultDprec : srvp->dprec;
+ srvp->dprec = dprec ? dprec : prec;
+
+ int hprec = srvDefaultHprec ? srvDefaultHprec : srvp->hprec;
+ srvp->hprec = hprec ? hprec : dprec;
+
+ int *header = srvp->header;
+
+ size_t datasize = (size_t) header[4] * (size_t) header[5];
+ size_t blocklen = datasize * (size_t) dprec;
+
+ srvp->datasize = datasize;
+
+ if (srvp->buffersize != blocklen)
+ {
+ srvp->buffersize = blocklen;
+ srvp->buffer = Realloc(srvp->buffer, srvp->buffersize);
+ }
+
+ switch (dprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ if (dprec == prec)
+ memcpy(srvp->buffer, data, datasize * sizeof(FLT32));
+ else
+ for (size_t i = 0; i < datasize; i++) ((float *) srvp->buffer)[i] = (float) ((double *) data)[i];
+
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ if (dprec == prec)
+ memcpy(srvp->buffer, data, datasize * sizeof(FLT64));
+ else
+ for (size_t i = 0; i < datasize; i++) ((double *) srvp->buffer)[i] = (double) ((float *) data)[i];
+
+ break;
+ }
+ default:
+ {
+ Error("unexpected data precision %d", dprec);
+ break;
+ }
+ }
+
+ return 0;
+}
+
+int
+srvDefDataSP(void *srv, const float *data)
+{
+ return srvDefData(srv, EXSE_SINGLE_PRECISION, (void *) data);
+}
+
+int
+srvDefDataDP(void *srv, const double *data)
+{
+ return srvDefData(srv, EXSE_DOUBLE_PRECISION, (void *) data);
+}
+
+int
+srvRead(int fileID, void *srv)
+{
+ srvrec_t *srvp = (srvrec_t *) srv;
+ union SRV_HEADER tempheader;
+
+ if (!srvp->checked)
+ {
+ int status = srvCheckFiletype(fileID, &srvp->byteswap);
+ if (status == 0) Error("Not a SERVICE file!");
+ srvp->checked = 1;
+ }
+
+ int byteswap = srvp->byteswap;
+
+ // read header record
+ size_t blocklen = binReadF77Block(fileID, byteswap);
+
+ if (fileEOF(fileID)) return -1;
+
+ if (SRV_Debug) Message("blocklen = %lu", blocklen);
+
+ size_t hprec = blocklen / SRV_HEADER_LEN;
+
+ srvp->hprec = (int) hprec;
+
+ switch (hprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ binReadInt32(fileID, byteswap, SRV_HEADER_LEN, tempheader.i32);
+ for (int i = 0; i < SRV_HEADER_LEN; i++) srvp->header[i] = (int) tempheader.i32[i];
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ binReadInt64(fileID, byteswap, SRV_HEADER_LEN, tempheader.i64);
+ for (int i = 0; i < SRV_HEADER_LEN; i++) srvp->header[i] = (int) tempheader.i64[i];
+ break;
+ }
+ default:
+ {
+ Error("Unexpected header precision %d", hprec);
+ break;
+ }
+ }
+
+ size_t blocklen2 = binReadF77Block(fileID, byteswap);
+
+ if (blocklen2 != blocklen)
+ {
+ Warning("Header blocklen differ (blocklen1=%d; blocklen2=%d)!", blocklen, blocklen2);
+ if (blocklen2 != 0) return -1;
+ }
+
+ srvp->datasize = (size_t) srvp->header[4] * (size_t) srvp->header[5];
+
+ if (SRV_Debug) Message("datasize = %zu", srvp->datasize);
+
+ blocklen = binReadF77Block(fileID, byteswap);
+
+ if (srvp->buffersize < blocklen)
+ {
+ srvp->buffersize = blocklen;
+ srvp->buffer = Realloc(srvp->buffer, srvp->buffersize);
+ }
+
+ size_t dprec = blocklen / srvp->datasize;
+
+ srvp->dprec = (int) dprec;
+
+ if (dprec != EXSE_SINGLE_PRECISION && dprec != EXSE_DOUBLE_PRECISION)
+ {
+ Warning("Unexpected data precision %d", dprec);
+ return -1;
+ }
+
+ fileRead(fileID, srvp->buffer, blocklen);
+
+ blocklen2 = binReadF77Block(fileID, byteswap);
+
+ if (blocklen2 != blocklen)
+ {
+ Warning("Data blocklen differ (blocklen1=%d; blocklen2=%d)!", blocklen, blocklen2);
+ if (blocklen2 != 0) return -1;
+ }
+
+ return 0;
+}
+
+void
+srvWrite(int fileID, void *srv)
+{
+ srvrec_t *srvp = (srvrec_t *) srv;
+ union SRV_HEADER tempheader;
+ int byteswap = srvp->byteswap;
+ int dprec = srvp->dprec;
+ int hprec = srvp->hprec;
+ int *restrict header = srvp->header;
+
+ // write header record
+ size_t blocklen = SRV_HEADER_LEN * (size_t) hprec;
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ switch (hprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ for (int i = 0; i < SRV_HEADER_LEN; i++) tempheader.i32[i] = (INT32) header[i];
+ binWriteInt32(fileID, byteswap, SRV_HEADER_LEN, tempheader.i32);
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ for (int i = 0; i < SRV_HEADER_LEN; i++) tempheader.i64[i] = (INT64) header[i];
+ binWriteInt64(fileID, byteswap, SRV_HEADER_LEN, tempheader.i64);
+ break;
+ }
+ default:
+ {
+ Error("unexpected header precision %d", hprec);
+ break;
+ }
+ }
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ srvp->datasize = (size_t) header[4] * (size_t) header[5];
+ blocklen = srvp->datasize * (size_t) dprec;
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+
+ switch (dprec)
+ {
+ case EXSE_SINGLE_PRECISION:
+ {
+ binWriteFlt32(fileID, byteswap, srvp->datasize, (FLT32 *) srvp->buffer);
+ break;
+ }
+ case EXSE_DOUBLE_PRECISION:
+ {
+ binWriteFlt64(fileID, byteswap, srvp->datasize, (FLT64 *) srvp->buffer);
+ break;
+ }
+ default:
+ {
+ Error("unexpected data precision %d", dprec);
+ break;
+ }
+ }
+
+ binWriteF77Block(fileID, byteswap, blocklen);
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef STREAM_SCAN_H
+#define STREAM_SCAN_H
+
+
+void streamScanResizeRecords1(stream_t *streamptr);
+int streamScanInitRecords2(stream_t *streamptr);
+int streamScanInitRecords(stream_t *streamptr, int tsID);
+void streamScanTimeConstAdjust(stream_t *streamptr, const taxis_t *taxis);
+void streamScanTsFixNtsteps(stream_t *streamptr, off_t recpos);
+
+#endif /* STREAM_SCAN_H */
+
+void
+streamScanResizeRecords1(stream_t *streamptr)
+{
+ const int nrecords = streamptr->tsteps[0].nallrecs;
+ if (nrecords < streamptr->tsteps[0].recordSize)
+ {
+ streamptr->tsteps[0].recordSize = nrecords;
+ streamptr->tsteps[0].records = (record_t *) Realloc(streamptr->tsteps[0].records, (size_t) nrecords * sizeof(record_t));
+ }
+
+ streamptr->tsteps[0].recIDs = (int *) Malloc((size_t) nrecords * sizeof(int));
+ streamptr->tsteps[0].nrecs = nrecords;
+ for (int recID = 0; recID < nrecords; ++recID) streamptr->tsteps[0].recIDs[recID] = recID;
+}
+
+int
+streamScanInitRecords2(stream_t *streamptr)
+{
+ const int nrecords = streamptr->tsteps[1].nallrecs;
+ streamptr->tsteps[1].recIDs = (int *) Malloc((size_t) nrecords * sizeof(int));
+ streamptr->tsteps[1].nrecs = 0;
+
+ for (int recID = 0; recID < nrecords; ++recID)
+ {
+ streamptr->tsteps[1].recIDs[recID] = -1;
+ streamptr->tsteps[1].records[recID].position = streamptr->tsteps[0].records[recID].position;
+ streamptr->tsteps[1].records[recID].size = streamptr->tsteps[0].records[recID].size;
+ }
+
+ return nrecords;
+}
+
+int
+streamScanInitRecords(stream_t *streamptr, int tsID)
+{
+ const int nrecs = streamptr->tsteps[1].nrecs;
+
+ streamptr->tsteps[tsID].nrecs = nrecs;
+ streamptr->tsteps[tsID].recIDs = (int *) Malloc((size_t) nrecs * sizeof(int));
+
+ for (int recID = 0; recID < nrecs; ++recID) streamptr->tsteps[tsID].recIDs[recID] = streamptr->tsteps[1].recIDs[recID];
+
+ return nrecs;
+}
+
+void
+streamScanTimeConstAdjust(stream_t *streamptr, const taxis_t *taxis)
+{
+ const int vlistID = streamptr->vlistID;
+ if (streamptr->ntsteps == 1 && cdiDateTime_isNull(taxis->vDateTime))
+ {
+ streamptr->ntsteps = 0;
+ for (int varID = 0; varID < streamptr->nvars; ++varID) vlistDefVarTimetype(vlistID, varID, TIME_CONSTANT);
+ }
+}
+
+void
+streamScanTsFixNtsteps(stream_t *streamptr, off_t recpos)
+{
+ if (streamptr->ntsteps == -1)
+ {
+ const int tsID = tstepsNewEntry(streamptr);
+ if (tsID != streamptr->rtsteps) Error("Internal error. tsID = %d", tsID);
+
+ streamptr->tsteps[tsID - 1].next = true;
+ streamptr->tsteps[tsID].position = recpos;
+ }
+}
+#ifndef CDI_ACROSS_H
+#define CDI_ACROSS_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_ACROSS
+
+
+#define ACROSS_DEFAULT_PORT "13859"
+
+typedef struct
+{
+ char *expid;
+ int expver;
+} across_info_t;
+
+int across_connect(const char *path, char filemode, stream_t *streamptr);
+void across_disconnect(int sock);
+int across_write_grib_message(stream_t *streamptr, const void *gribbuffer, size_t nbytes);
+
+#endif
+
+#endif /* CDI_ACROSS_H */
+#ifndef STREAM_CGRIBEX_H
+#define STREAM_CGRIBEX_H
+
+void *cgribexNew(void);
+void cgribexDelete(void *cgribexp);
+
+int cgribexScanTimestep1(stream_t *streamptr);
+int cgribexScanTimestep2(stream_t *streamptr);
+int cgribexScanTimestep(stream_t *streamptr);
+
+int cgribexDecode(int memtype, void *cgribexp, void *gribbuffer, size_t gribsize, void *data, size_t datasize, int unreduced,
+ size_t *numMissVals, double missval);
+
+size_t cgribexEncode(int memtype, int varID, int levelID, int vlistID, int gridID, int zaxisID, CdiDateTime vDateTime,
+ int tsteptype, int numavg, size_t datasize, const void *data, size_t numMissVals, void *gribbuffer,
+ size_t gribbuffersize);
+
+void *cgribex_handle_new_from_meassage(void *gribbuffer, size_t recsize);
+void cgribex_handle_delete(void *gh);
+
+void cgribexChangeParameterIdentification(void *gh, int code, int ltype, int lev);
+
+#endif /* STREAM_CGRIBEX_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _STREAM_SRV_H
+#define _STREAM_SRV_H
+
+#ifndef _SERVICE_H
+#endif
+
+int srvInqContents(stream_t *streamptr);
+int srvInqTimestep(stream_t *streamptr, int tsID);
+
+int srvInqRecord(stream_t *streamptr, int *varID, int *levelID);
+void srvDefRecord(stream_t *streamptr);
+void srvCopyRecord(stream_t *streamptr2, stream_t *streamptr1);
+void srv_read_record(stream_t *streamptr, int memtype, void *data, size_t *numMissVals);
+void srv_write_record(stream_t *streamptr, int memtype, const void *data);
+
+void srvReadVarDP(stream_t *streamptr, int varID, double *data, size_t *numMissVals);
+void srvWriteVarDP(stream_t *streamptr, int varID, const double *data);
+
+void srvReadVarSliceDP(stream_t *streamptr, int varID, int levelID, double *data, size_t *numMissVals);
+void srvWriteVarSliceDP(stream_t *streamptr, int varID, int levelID, const double *data);
+
+#endif /* _STREAM_SRV_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _STREAM_EXT_H
+#define _STREAM_EXT_H
+
+#ifndef _EXTRA_H
+#endif
+
+int extInqContents(stream_t *streamptr);
+int extInqTimestep(stream_t *streamptr, int tsID);
+
+int extInqRecord(stream_t *streamptr, int *varID, int *levelID);
+void extDefRecord(stream_t *streamptr);
+void extCopyRecord(stream_t *streamptr2, stream_t *streamptr1);
+void ext_read_record(stream_t *streamptr, int memtype, void *data, size_t *numMissVals);
+void ext_write_record(stream_t *streamptr, int memtype, const void *data);
+
+void extReadVarDP(stream_t *streamptr, int varID, double *data, size_t *numMissVals);
+void extWriteVarDP(stream_t *streamptr, int varID, const double *data);
+
+void extReadVarSliceDP(stream_t *streamptr, int varID, int levelID, double *data, size_t *numMissVals);
+void extWriteVarSliceDP(stream_t *streamptr, int varID, int levelID, const double *data);
+
+#endif /* _STREAM_EXT_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _STREAM_IEG_H
+#define _STREAM_IEG_H
+
+#ifndef _IEG_H
+#endif
+
+int iegInqContents(stream_t *streamptr);
+int iegInqTimestep(stream_t *streamptr, int tsID);
+
+int iegInqRecord(stream_t *streamptr, int *varID, int *levelID);
+void iegDefRecord(stream_t *streamptr);
+void iegCopyRecord(stream_t *streamptr2, stream_t *streamptr1);
+void ieg_read_record(stream_t *streamptr, int memtype, void *data, size_t *numMissVals);
+void ieg_write_record(stream_t *streamptr, int memtype, const void *data);
+
+void iegReadVarDP(stream_t *streamptr, int varID, double *data, size_t *numMissVals);
+void iegWriteVarDP(stream_t *streamptr, int varID, const double *data);
+
+void iegReadVarSliceDP(stream_t *streamptr, int varID, int levelID, double *data, size_t *numMissVals);
+void iegWriteVarSliceDP(stream_t *streamptr, int varID, int levelID, const double *data);
+
+#endif /* _STREAM_IEG_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifndef _XOPEN_SOURCE
+#define _XOPEN_SOURCE 600
+#endif
+
+#ifdef HAVE_LIBFDB5
+#endif
+
+#include <sys/stat.h> // struct stat
+#include <ctype.h>
+#include <string.h>
+
+
+static stream_t *stream_new_entry(int resH);
+static int streamCompareP(void *streamptr1, void *streamptr2);
+static void streamDestroyP(void *streamptr);
+static void streamPrintP(void *streamptr, FILE *fp);
+static int streamGetPackSize(void *streamptr, void *context);
+static void streamPack(void *streamptr, void *buff, int size, int *position, void *context);
+static int streamTxCode(void *streamptr);
+
+const resOps streamOps = { streamCompareP, streamDestroyP, streamPrintP, streamGetPackSize, streamPack, streamTxCode };
+
+static int
+getByteorder(int byteswap)
+{
+ int byteorder = -1;
+
+ switch (HOST_ENDIANNESS)
+ {
+ case CDI_BIGENDIAN: byteorder = byteswap ? CDI_LITTLEENDIAN : CDI_BIGENDIAN; break;
+ case CDI_LITTLEENDIAN: byteorder = byteswap ? CDI_BIGENDIAN : CDI_LITTLEENDIAN; break;
+ /* FIXME: does not currently adjust for PDP endianness */
+ case CDI_PDPENDIAN:
+ default: Error("unhandled endianness");
+ }
+
+ return byteorder;
+}
+
+// used also in CDO
+int
+cdiGetFiletype(const char *uri, int *byteorder)
+{
+ // clang-format off
+ int filetype = CDI_EUFTYPE;
+ int swap = 0;
+ int version;
+ long recpos;
+
+ const char *filename;
+ int protocol = cdiGetProtocol(uri, &filename);
+
+ switch (protocol)
+ {
+ case CDI_PROTOCOL_ACROSS: return CDI_FILETYPE_GRB2;
+ case CDI_PROTOCOL_FDB: return CDI_FILETYPE_GRB2;
+ case CDI_PROTOCOL_OTHER: return CDI_FILETYPE_NC4; // support for NetCDF remote types and ESDM
+ case CDI_PROTOCOL_FILE:
+ // handled below;
+ break;
+ }
+
+ int fileID = fileOpen(filename, "r");
+
+ if (fileID == CDI_UNDEFID) return CDI_ESYSTEM;
+ else if (fileID == -2) return CDI_ETMOF;
+
+ char buffer[8];
+ if (fileRead(fileID, buffer, 8) != 8)
+ {
+ struct stat buf;
+ if (stat(filename, &buf) == 0)
+ {
+ if (buf.st_size == 0) return CDI_EISEMPTY;
+ if (buf.st_mode & S_IFDIR) return CDI_EISDIR;
+ }
+
+ return CDI_EUFTYPE;
+ }
+
+ fileRewind(fileID);
+
+ if (memcmp(buffer, "GRIB", 4) == 0)
+ {
+ version = buffer[7];
+ if (version <= 1) filetype = CDI_FILETYPE_GRB;
+ else if (version == 2) filetype = CDI_FILETYPE_GRB2;
+ }
+ else if (memcmp(buffer, "CDF\001", 4) == 0) { filetype = CDI_FILETYPE_NC; }
+ else if (memcmp(buffer, "CDF\002", 4) == 0) { filetype = CDI_FILETYPE_NC2; }
+ else if (memcmp(buffer, "CDF\005", 4) == 0) { filetype = CDI_FILETYPE_NC5; }
+ else if (memcmp(buffer + 1, "HDF", 3) == 0) { filetype = CDI_FILETYPE_NC4; }
+#ifdef HAVE_LIBSERVICE
+ else if (srvCheckFiletype(fileID, &swap)) { filetype = CDI_FILETYPE_SRV; }
+#endif
+#ifdef HAVE_LIBEXTRA
+ else if (extCheckFiletype(fileID, &swap)) { filetype = CDI_FILETYPE_EXT; }
+#endif
+#ifdef HAVE_LIBIEG
+ else if (iegCheckFiletype(fileID, &swap)) { filetype = CDI_FILETYPE_IEG; }
+#endif
+#ifdef HAVE_LIBGRIB
+ else if (gribCheckSeek(fileID, &recpos, &version) == 0)
+ {
+ if (version <= 1) filetype = CDI_FILETYPE_GRB;
+ else if (version == 2) filetype = CDI_FILETYPE_GRB2;
+ }
+#endif
+ // clang-format on
+
+ if (CDI_Debug && filetype != CDI_EUFTYPE) Message("found %s file = %s", strfiletype(filetype), filename);
+
+ fileClose(fileID);
+
+ *byteorder = getByteorder(swap);
+
+ return filetype;
+}
+
+/*
+@Function streamInqFiletype
+@Title Get the filetype
+
+@Prototype int streamInqFiletype(int streamID)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenRead} or @fref{streamOpenWrite}.
+
+@Description
+The function @func{streamInqFiletype} returns the filetype of a stream.
+
+@Result
+@func{streamInqFiletype} returns the type of the file format,
+one of the set of predefined CDI file format types.
+The valid CDI file format types are @func{CDI_FILETYPE_GRB}, @func{CDI_FILETYPE_GRB2}, @func{CDI_FILETYPE_NC},
+@func{CDI_FILETYPE_NC2}, @func{CDI_FILETYPE_NC4}, @func{CDI_FILETYPE_NC4C}, @func{CDI_FILETYPE_NC5},
+@func{CDI_FILETYPE_NCZARR}, @func{CDI_FILETYPE_SRV}, @func{CDI_FILETYPE_EXT} and @func{CDI_FILETYPE_IEG}.
+@EndFunction
+*/
+int
+streamInqFiletype(int streamID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+ return streamptr->filetype;
+}
+
+int
+getByteswap(int byteorder)
+{
+ int byteswap = -1;
+
+ switch (byteorder)
+ {
+ case CDI_BIGENDIAN:
+ case CDI_LITTLEENDIAN:
+ case CDI_PDPENDIAN: byteswap = (HOST_ENDIANNESS != byteorder); break;
+ case -1: break;
+ default: Error("unexpected byteorder %d query!", byteorder);
+ }
+
+ return byteswap;
+}
+
+void
+streamDefMaxSteps(int streamID, int maxSteps)
+{
+ if (maxSteps >= 0)
+ {
+ stream_t *streamptr = stream_to_pointer(streamID);
+ streamptr->maxSteps = maxSteps;
+ }
+}
+
+int
+streamInqNumSteps(int streamID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ long ntsteps = streamptr->ntsteps;
+ if (ntsteps == (long) CDI_UNDEFID)
+ {
+ int tsID = 0;
+ while (streamInqTimestep(streamID, tsID++)) ntsteps = streamptr->ntsteps;
+ }
+
+ return (int) ntsteps;
+}
+
+static long
+get_max_global_recs(stream_t *streamptr)
+{
+ long maxGlobalRecs = -1;
+ const tsteps_t *tsteps = streamptr->tsteps;
+ if (tsteps)
+ {
+ maxGlobalRecs = tsteps[0].nrecs;
+ long numSteps = streamptr->ntsteps;
+ if (numSteps > 1) maxGlobalRecs += tsteps[1].nrecs * (numSteps - 1);
+ }
+ return maxGlobalRecs;
+}
+
+void
+streamDefNumWorker(int streamID, int numWorker)
+{
+ if (numWorker > 0)
+ {
+ stream_t *streamptr = stream_to_pointer(streamID);
+ int filetype = streamptr->filetype;
+
+ if (streamptr->filemode == 'r')
+ {
+ if (cdiBaseFiletype(filetype) == CDI_FILETYPE_GRIB)
+ {
+ (void) streamInqNumSteps(streamID);
+ streamptr->maxGlobalRecs = get_max_global_recs(streamptr);
+ }
+#ifdef HAVE_LIBNETCDF
+ else if (filetype == CDI_FILETYPE_NCZARR || (CDI_Test && cdiBaseFiletype(filetype) == CDI_FILETYPE_NETCDF))
+ {
+ streamptr->maxGlobalRecs = get_max_global_recs(streamptr);
+ if (CDI_Test) Message("numWorker=%d", numWorker);
+ if (CDI_Test) Message("maxGlobalRecs=%ld", streamptr->maxGlobalRecs);
+ if (streamptr->maxGlobalRecs == -1) xabort("Internal error: number of timesteps missing!");
+ if (streamptr->maxGlobalRecs == 1) numWorker = 0;
+ if (numWorker > streamptr->maxGlobalRecs) numWorker = streamptr->maxGlobalRecs;
+ if (streamptr->chunkSizeTdim > 1 && numWorker > streamptr->nvars) numWorker = streamptr->nvars;
+ if (streamptr->chunkSizeZdim > 1) numWorker = 0;
+ if (CDI_Test) Message("chunkSizeTdim=%d chunkSizeZdim=%d", streamptr->chunkSizeTdim, streamptr->chunkSizeZdim);
+ }
+#endif
+ else
+ {
+ numWorker = 0;
+ }
+
+ streamptr->numWorker = numWorker;
+ if (CDI_Debug || CDI_Test) Message("Number of asynchronous worker: %d", numWorker);
+ }
+ }
+}
+
+/*
+@Function streamDefByteorder
+@Title Define the byte order
+
+@Prototype void streamDefByteorder(int streamID, int byteorder)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+ @Item byteorder The byte order of a dataset, one of the CDI constants @func{CDI_BIGENDIAN} and
+ @func{CDI_LITTLEENDIAN}.
+
+@Description
+The function @func{streamDefByteorder} defines the byte order of a binary dataset
+with the file format type @func{CDI_FILETYPE_SRV}, @func{CDI_FILETYPE_EXT} or @func{CDI_FILETYPE_IEG}.
+
+@EndFunction
+*/
+void
+streamDefByteorder(int streamID, int byteorder)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+ streamptr->byteorder = byteorder;
+ int filetype = streamptr->filetype;
+
+ switch (filetype)
+ {
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+ {
+ srvrec_t *srvp = (srvrec_t *) streamptr->record->objectp;
+ srvp->byteswap = getByteswap(byteorder);
+
+ break;
+ }
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+ {
+ extrec_t *extp = (extrec_t *) streamptr->record->objectp;
+ extp->byteswap = getByteswap(byteorder);
+
+ break;
+ }
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+ {
+ iegrec_t *iegp = (iegrec_t *) streamptr->record->objectp;
+ iegp->byteswap = getByteswap(byteorder);
+
+ break;
+ }
+#endif
+ }
+
+ reshSetStatus(streamID, &streamOps, RESH_DESYNC_IN_USE);
+}
+
+/*
+@Function streamInqByteorder
+@Title Get the byte order
+
+@Prototype int streamInqByteorder(int streamID)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenRead} or @fref{streamOpenWrite}.
+
+@Description
+The function @func{streamInqByteorder} returns the byte order of a binary dataset
+with the file format type @func{CDI_FILETYPE_SRV}, @func{CDI_FILETYPE_EXT} or @func{CDI_FILETYPE_IEG}.
+
+@Result
+@func{streamInqByteorder} returns the type of the byte order.
+The valid CDI byte order types are @func{CDI_BIGENDIAN} and @func{CDI_LITTLEENDIAN}
+
+@EndFunction
+*/
+int
+streamInqByteorder(int streamID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+ return streamptr->byteorder;
+}
+
+const char *
+streamFilesuffix(int filetype)
+{
+ static const char *noSuffix = "";
+ static const char *ncSuffix = ".nc";
+ static const char *grbSuffix = ".grb";
+ static const char *srvSuffix = ".srv";
+ static const char *extSuffix = ".ext";
+ static const char *iegSuffix = ".ieg";
+
+ switch (cdiBaseFiletype(filetype))
+ {
+ case CDI_FILETYPE_GRIB: return grbSuffix;
+ case CDI_FILETYPE_SRV: return srvSuffix;
+ case CDI_FILETYPE_EXT: return extSuffix;
+ case CDI_FILETYPE_IEG: return iegSuffix;
+ case CDI_FILETYPE_NETCDF: return ncSuffix;
+ default: return noSuffix;
+ }
+}
+
+const char *
+streamFilename(int streamID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+ return streamptr->filename;
+}
+
+static int
+cdiInqContents(stream_t *streamptr)
+{
+ int status = 0;
+ int filetype = streamptr->filetype;
+
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB:
+ {
+ switch (streamptr->protocol)
+ {
+ case CDI_PROTOCOL_FDB: status = fdbInqContents(streamptr); break;
+
+ case CDI_PROTOCOL_ACROSS: // TODO read from ACROSS
+ case CDI_PROTOCOL_OTHER:
+ case CDI_PROTOCOL_FILE: status = grbInqContents(streamptr); break;
+ }
+ break;
+ }
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: status = srvInqContents(streamptr); break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: status = extInqContents(streamptr); break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: status = iegInqContents(streamptr); break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF: status = cdfInqContents(streamptr); break;
+#endif
+ default:
+ {
+ status = CDI_ELIBNAVAIL;
+ if (CDI_Debug) Message("%s support not compiled in!", strfiletype(filetype));
+ }
+ }
+
+ if (status == 0)
+ {
+ int taxisID = vlistInqTaxis(streamptr->vlistID);
+ if (taxisID != CDI_UNDEFID)
+ {
+ taxis_t *taxisptr1 = &streamptr->tsteps[0].taxis;
+ taxis_t *taxisptr2 = taxisPtr(taxisID);
+ ptaxisCopy(taxisptr2, taxisptr1);
+ }
+ }
+
+ return status;
+}
+
+int
+cdiGetProtocol(const char *uri, const char **filename)
+{
+ const char *pos = strstr(uri, "://");
+ if (pos == NULL)
+ {
+ *filename = uri;
+ return CDI_PROTOCOL_FILE;
+ }
+
+ int protocollen = pos - uri;
+ *filename = pos + 3;
+
+ // if (strncmp(uri, "file", protocollen) == 0) return CDI_PROTOCOL_FILE; // file is already used in NetCDF
+ if (strncmp(uri, "fdb", protocollen) == 0) return CDI_PROTOCOL_FDB;
+ if (strncmp(uri, "across", protocollen) == 0) return CDI_PROTOCOL_ACROSS;
+
+ *filename = uri;
+
+ return CDI_PROTOCOL_OTHER;
+}
+
+int
+cdiStreamOpenDefaultDelegate(const char *uri, char filemode, int filetype, stream_t *streamptr, int recordBufIsToBeCreated)
+{
+ int fileID;
+ char temp[2] = { filemode, 0 };
+
+ const char *filename;
+ streamptr->protocol = cdiGetProtocol(uri, &filename);
+
+ switch (streamptr->protocol)
+ {
+ case CDI_PROTOCOL_ACROSS:
+#if defined(HAVE_ACROSS) && defined(HAVE_LIBGRIB_API)
+ if (filetype != CDI_FILETYPE_GRB2)
+ {
+ Warning("ACROSS needs to be used with GRIB2");
+ return CDI_EUFTYPE;
+ }
+ fileID = across_connect(filename, filemode, streamptr);
+ if (fileID >= 0)
+ {
+ streamptr->filetype = filetype;
+ if (recordBufIsToBeCreated)
+ {
+ streamptr->record = (Record *) Malloc(sizeof(Record));
+ streamptr->record->buffer = NULL;
+ }
+ }
+ return fileID;
+#else
+#ifdef HAVE_ACROSS
+ Warning("ecCodes support not compiled in (Needed for ACROSS)!");
+#else
+ Warning("ACROSS support not compiled in!");
+#endif
+ return CDI_ELIBNAVAIL;
+#endif
+
+ case CDI_PROTOCOL_FDB:
+#if defined(HAVE_LIBFDB5) && defined(HAVE_LIBGRIB_API)
+
+ if (filetype != CDI_FILETYPE_GRB && filetype != CDI_FILETYPE_GRB2)
+ {
+ Warning("FDB5 needs to be used with GRIB or GRIB2");
+ return CDI_EUFTYPE;
+ }
+
+ check_fdb_error(fdb_initialise());
+ check_fdb_error(fdb_new_handle((fdb_handle_t **) &(streamptr->protocolData)));
+ streamptr->filetype = filetype;
+ if (recordBufIsToBeCreated)
+ {
+ streamptr->record = (Record *) Malloc(sizeof(Record));
+ streamptr->record->buffer = NULL;
+ }
+ return 88;
+
+#else // !(defined(HAVE_LIBFDB5) && defined(HAVE_LIBGRIB_API))
+
+#ifdef HAVE_LIBFDB5
+ Warning("ecCodes support not compiled in (Needed for FDB5)!");
+#else
+ Warning("FDB5 support not compiled in!");
+#endif
+
+ return CDI_ELIBNAVAIL;
+#endif
+
+ case CDI_PROTOCOL_OTHER:
+ case CDI_PROTOCOL_FILE:
+ // handled below;
+ break;
+ }
+
+ switch (filetype)
+ {
+#if defined(HAVE_LIBGRIB) && (defined(HAVE_LIBCGRIBEX) || defined(HAVE_LIBGRIB_API))
+ case CDI_FILETYPE_GRB:
+ {
+ fileID = gribOpen(filename, temp);
+ if (fileID < 0) return CDI_ESYSTEM;
+ if (recordBufIsToBeCreated)
+ {
+ streamptr->record = (Record *) Malloc(sizeof(Record));
+ streamptr->record->buffer = NULL;
+#ifdef HAVE_LIBCGRIBEX
+ streamptr->record->objectp = cgribexNew();
+#else
+ streamptr->record->objectp = NULL;
+#endif
+ }
+ break;
+ }
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRB2:
+ {
+ fileID = gribOpen(filename, temp);
+ if (fileID < 0) return CDI_ESYSTEM;
+ if (recordBufIsToBeCreated)
+ {
+ streamptr->record = (Record *) Malloc(sizeof(Record));
+ streamptr->record->buffer = NULL;
+ }
+ break;
+ }
+#endif
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+ {
+ fileID = fileOpen(filename, temp);
+ if (fileID < 0) return CDI_ESYSTEM;
+ if (recordBufIsToBeCreated)
+ {
+ streamptr->record = (Record *) Malloc(sizeof(Record));
+ streamptr->record->buffer = NULL;
+ streamptr->record->objectp = srvNew();
+ }
+ break;
+ }
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+ {
+ fileID = fileOpen(filename, temp);
+ if (fileID < 0) return CDI_ESYSTEM;
+ if (recordBufIsToBeCreated)
+ {
+ streamptr->record = (Record *) Malloc(sizeof(Record));
+ streamptr->record->buffer = NULL;
+ streamptr->record->objectp = extNew();
+ }
+ break;
+ }
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+ {
+ fileID = fileOpen(filename, temp);
+ if (fileID < 0) return CDI_ESYSTEM;
+ if (recordBufIsToBeCreated)
+ {
+ streamptr->record = (Record *) Malloc(sizeof(Record));
+ streamptr->record->buffer = NULL;
+ streamptr->record->objectp = iegNew();
+ }
+ break;
+ }
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NC:
+ case CDI_FILETYPE_NC2:
+ case CDI_FILETYPE_NC5:
+ {
+ fileID = cdfOpen(filename, temp, filetype);
+ break;
+ }
+ case CDI_FILETYPE_NC4:
+ case CDI_FILETYPE_NC4C:
+ case CDI_FILETYPE_NCZARR:
+ {
+ fileID = cdf4Open(filename, temp, &filetype);
+ break;
+ }
+#endif
+ default:
+ {
+ if (CDI_Debug) Message("%s support not compiled in!", strfiletype(filetype));
+ return CDI_ELIBNAVAIL;
+ }
+ }
+
+ streamptr->filetype = filetype;
+
+ return fileID;
+}
+
+static int
+stream_create_vlist(stream_t *streamptr, CdiQuery *query)
+{
+ int vlistID = vlistCreate();
+ if (vlistID < 0) return CDI_ELIMIT;
+
+ cdiVlistMakeInternal(vlistID);
+ streamptr->vlistID = vlistID;
+
+ if (query) streamptr->query = query;
+
+ int status = cdiInqContents(streamptr);
+ if (status >= 0)
+ {
+ vlist_t *vlistptr = vlist_to_pointer(streamptr->vlistID);
+ vlistptr->ntsteps = streamptr->ntsteps;
+ cdiVlistMakeImmutable(vlistID);
+ }
+
+ return status;
+}
+
+int
+streamOpenID(const char *filename, char filemode, int filetype, int resH)
+{
+ if (CDI_Debug) Message("Open %s mode %c file %s", strfiletype(filetype), filemode, filename ? filename : "(NUL)");
+
+ if (!filename || filetype < 0) return CDI_EINVAL;
+
+ stream_t *streamptr = stream_new_entry(resH);
+ int streamID = CDI_ESYSTEM;
+
+#ifndef HAVE_NC4HDF5_THREADSAFE
+ if (CDI_Threadsafe)
+ {
+#ifndef HAVE_LIBPTHREAD
+ Error("CDI threadsafe failed, pthread support not compiled!");
+#endif
+ if (filetype == CDI_FILETYPE_NC4 || filetype == CDI_FILETYPE_NC4C) streamptr->lockIO = true;
+ }
+#endif
+
+ if (streamptr->lockIO) CDI_IO_LOCK();
+
+ int (*streamOpenDelegate)(const char *filename, char filemode, int filetype, stream_t *streamptr, int recordBufIsToBeCreated)
+ = (int (*)(const char *, char, int, stream_t *, int)) namespaceSwitchGet(NSSWITCH_STREAM_OPEN_BACKEND).func;
+
+ int fileID = streamOpenDelegate(filename, filemode, filetype, streamptr, 1);
+ if (fileID < 0)
+ {
+ streamID = fileID;
+ if (streamptr->record) Free(streamptr->record);
+ reshRemove(streamptr->self, &streamOps);
+ Free(streamptr);
+ }
+ else
+ {
+ streamID = streamptr->self;
+ if (streamID < 0) return CDI_ELIMIT;
+
+ streamptr->filemode = filemode;
+ streamptr->filename = strdup(filename);
+ streamptr->fileID = fileID;
+ }
+
+ if (streamptr->lockIO) CDI_IO_UNLOCK();
+
+ return streamID;
+}
+
+static int
+streamOpen(const char *filename, const char *filemode, int filetype)
+{
+ if (!filemode || strlen(filemode) != 1) return CDI_EINVAL;
+ return streamOpenID(filename, (char) tolower(filemode[0]), filetype, CDI_UNDEFID);
+}
+
+static int
+streamOpenA(const char *filename, const char *filemode, int filetype)
+{
+ if (CDI_Debug) Message("Open %s file (mode=%c); filename: %s", strfiletype(filetype), (int) *filemode, filename);
+ if (CDI_Debug) printf("streamOpenA: %s\n", filename); // seg fault without this line on thunder/squall with "cdo cat x y"
+
+ if (!filename || !filemode || filetype < 0) return CDI_EINVAL;
+
+ stream_t *streamptr = stream_new_entry(CDI_UNDEFID);
+ int fileID = CDI_UNDEFID;
+
+ {
+ int (*streamOpenDelegate)(const char *filename, char filemode, int filetype, stream_t *streamptr, int recordBufIsToBeCreated)
+ = (int (*)(const char *, char, int, stream_t *, int)) namespaceSwitchGet(NSSWITCH_STREAM_OPEN_BACKEND).func;
+
+ fileID = streamOpenDelegate(filename, 'r', filetype, streamptr, 1);
+ }
+
+ if (fileID == CDI_UNDEFID || fileID == CDI_ELIBNAVAIL || fileID == CDI_ESYSTEM) return fileID;
+
+ int streamID = streamptr->self;
+
+ streamptr->filemode = tolower(*filemode);
+ streamptr->filename = strdup(filename);
+ streamptr->fileID = fileID;
+
+ streamptr->vlistID = vlistCreate();
+ cdiVlistMakeInternal(streamptr->vlistID);
+ // cdiReadByteorder(streamID);
+ int status = cdiInqContents(streamptr);
+ if (status < 0) return status;
+ vlist_t *vlistptr = vlist_to_pointer(streamptr->vlistID);
+ vlistptr->ntsteps = streamInqNumSteps(streamID);
+
+ // Needed for NetCDF4
+ for (int varID = 0; varID < vlistptr->nvars; ++varID) streamptr->vars[varID].defmiss = true;
+
+ if (str_is_equal(filemode, "r")) cdiVlistMakeImmutable(streamptr->vlistID);
+
+ {
+ void (*streamCloseDelegate)(stream_t * streamptr, int recordBufIsToBeDeleted)
+ = (void (*)(stream_t *, int)) namespaceSwitchGet(NSSWITCH_STREAM_CLOSE_BACKEND).func;
+
+ streamCloseDelegate(streamptr, 0);
+ }
+
+ switch (filetype)
+ {
+#if defined(HAVE_LIBGRIB) && (defined(HAVE_LIBCGRIBEX) || defined(HAVE_LIBGRIB_API))
+ case CDI_FILETYPE_GRB:
+#ifdef HAVE_LIBGRIB_API
+ case CDI_FILETYPE_GRB2:
+#endif
+ {
+ fileID = gribOpen(filename, filemode);
+ if (fileID != CDI_UNDEFID) gribContainersNew(streamptr);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+ {
+ fileID = fileOpen(filename, filemode);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+ {
+ fileID = fileOpen(filename, filemode);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+ {
+ fileID = fileOpen(filename, filemode);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NC:
+ case CDI_FILETYPE_NC2:
+ case CDI_FILETYPE_NC5:
+ {
+ fileID = cdfOpen(filename, filemode, filetype);
+ streamptr->ncmode = 2;
+ break;
+ }
+ case CDI_FILETYPE_NC4:
+ case CDI_FILETYPE_NC4C:
+ {
+ fileID = cdf4Open(filename, filemode, &filetype);
+ streamptr->ncmode = 2;
+ break;
+ }
+ case CDI_FILETYPE_NCZARR:
+ {
+ Warning("%s not available in append mode!", strfiletype(filetype));
+ return CDI_ELIBNAVAIL;
+ }
+#endif
+ default:
+ {
+ if (CDI_Debug) Message("%s support not compiled in!", strfiletype(filetype));
+ return CDI_ELIBNAVAIL;
+ }
+ }
+
+ if (fileID == CDI_UNDEFID)
+ streamID = CDI_UNDEFID;
+ else
+ streamptr->fileID = fileID;
+
+ return streamID;
+}
+
+/*
+@Function streamOpenRead
+@Title Open a dataset for reading
+
+@Prototype int streamOpenRead(const char *path)
+@Parameter
+ @Item path The name of the dataset to be read.
+
+@Description
+The function @func{streamOpenRead} opens an existing dataset for reading.
+
+@Result
+Upon successful completion @func{streamOpenRead} returns an identifier to the
+open stream. Otherwise, a negative number with the error status is returned.
+
+@Errors
+@List
+ @Item CDI_ESYSTEM Operating system error.
+ @Item CDI_EINVAL Invalid argument.
+ @Item CDI_EUFILETYPE Unsupported file type.
+ @Item CDI_ELIBNAVAIL Library support not compiled in.
+@EndList
+
+@Example
+Here is an example using @func{streamOpenRead} to open an existing NetCDF
+file named @func{foo.nc} for reading:
+
+@Source
+ ...
+int streamID;
+ ...
+streamID = streamOpenRead("foo.nc");
+if ( streamID < 0 ) handle_error(streamID);
+ ...
+@EndSource
+@EndFunction
+*/
+int
+streamOpenRead(const char *filename)
+{
+ cdiInitialize();
+
+ int byteorder = 0;
+ int filetype = cdiGetFiletype(filename, &byteorder);
+ if (filetype < 0) return filetype;
+
+ int streamID = streamOpen(filename, "r", filetype);
+ if (streamID >= 0)
+ {
+ stream_t *streamptr = stream_to_pointer(streamID);
+ streamptr->byteorder = byteorder;
+
+ int status = stream_create_vlist(streamptr, NULL);
+ if (status < 0)
+ {
+ streamID = status;
+ if (streamptr->record) Free(streamptr->record);
+ reshRemove(streamptr->self, &streamOps);
+ }
+ }
+
+ return streamID;
+}
+
+int
+streamOpenReadQuery(const char *filename, CdiQuery *query)
+{
+ cdiInitialize();
+
+ int byteorder = 0;
+ int filetype = cdiGetFiletype(filename, &byteorder);
+ if (filetype < 0) return filetype;
+
+ if (cdiBaseFiletype(filetype) != CDI_FILETYPE_NETCDF && filetype != CDI_FILETYPE_GRB2) return CDI_EQNAVAIL;
+
+ int streamID = streamOpen(filename, "r", filetype);
+ if (streamID >= 0)
+ {
+ stream_t *streamptr = stream_to_pointer(streamID);
+ streamptr->byteorder = byteorder;
+
+ int status = stream_create_vlist(streamptr, query);
+ if (status < 0)
+ {
+ streamID = status;
+ if (streamptr->record) Free(streamptr->record);
+ reshRemove(streamptr->self, &streamOps);
+ }
+ }
+
+ return streamID;
+}
+
+int
+streamOpenAppend(const char *filename)
+{
+ cdiInitialize();
+
+ int byteorder = 0;
+ int filetype = cdiGetFiletype(filename, &byteorder);
+ if (filetype < 0) return filetype;
+
+ int streamID = streamOpenA(filename, "a", filetype);
+ if (streamID >= 0)
+ {
+ stream_t *streamptr = stream_to_pointer(streamID);
+ streamptr->byteorder = byteorder;
+ }
+
+ return streamID;
+}
+
+/*
+@Function streamOpenWrite
+@Title Create a new dataset
+
+@Prototype int streamOpenWrite(const char *path, int filetype)
+@Parameter
+ @Item path The name of the new dataset.
+ @Item filetype The type of the file format, one of the set of predefined CDI file format types.
+ The valid CDI file format types are @func{CDI_FILETYPE_GRB}, @func{CDI_FILETYPE_GRB2}, @func{CDI_FILETYPE_NC},
+ @func{CDI_FILETYPE_NC2}, @func{CDI_FILETYPE_NC4}, @func{CDI_FILETYPE_NC4C}, @func{CDI_FILETYPE_NC5},
+ @func{CDI_FILETYPE_NCZARR}, @func{CDI_FILETYPE_SRV}, @func{CDI_FILETYPE_EXT} and @func{CDI_FILETYPE_IEG}.
+
+@Description
+The function @func{streamOpenWrite} creates a new datset.
+@Result
+Upon successful completion @func{streamOpenWrite} returns an identifier to the
+open stream. Otherwise, a negative number with the error status is returned.
+
+@Errors
+@List
+ @Item CDI_ESYSTEM Operating system error.
+ @Item CDI_EINVAL Invalid argument.
+ @Item CDI_EUFILETYPE Unsupported file type.
+ @Item CDI_ELIBNAVAIL Library support not compiled in.
+@EndList
+
+@Example
+Here is an example using @func{streamOpenWrite} to create a new NetCDF file named @func{foo.nc} for writing:
+
+@Source
+ ...
+int streamID;
+ ...
+streamID = streamOpenWrite("foo.nc", CDI_FILETYPE_NC);
+if ( streamID < 0 ) handle_error(streamID);
+ ...
+@EndSource
+@EndFunction
+*/
+int
+streamOpenWrite(const char *filename, int filetype)
+{
+ cdiInitialize();
+
+ return streamOpen(filename, "w", filetype);
+}
+
+static void
+streamDefaultValue(stream_t *streamptr)
+{
+ streamptr->self = CDI_UNDEFID;
+ streamptr->accesstype = CDI_UNDEFID;
+ streamptr->accessmode = 0;
+ streamptr->filetype = CDI_FILETYPE_UNDEF;
+ streamptr->byteorder = CDI_UNDEFID;
+ streamptr->fileID = 0;
+ streamptr->filemode = 0;
+ streamptr->numvals = 0;
+ streamptr->filename = NULL;
+ streamptr->record = NULL;
+ streamptr->query = NULL;
+ streamptr->varsAllocated = 0;
+ streamptr->nrecs = 0;
+ streamptr->nvars = 0;
+ streamptr->vars = NULL;
+ streamptr->ncmode = 0;
+ streamptr->curTsID = CDI_UNDEFID;
+ streamptr->rtsteps = 0;
+ streamptr->ntsteps = CDI_UNDEFID;
+ streamptr->maxSteps = CDI_UNDEFID;
+ streamptr->tsteps = NULL;
+ streamptr->tstepsTableSize = 0;
+ streamptr->tstepsNextID = 0;
+ streamptr->vlistID = CDI_UNDEFID;
+ streamptr->globalatts = 0;
+ streamptr->localatts = 0;
+ streamptr->unreduced = cdiDataUnreduced;
+ streamptr->have_missval = cdiHaveMissval;
+ streamptr->comptype = CDI_COMPRESS_NONE;
+ streamptr->complevel = 0;
+ streamptr->shuffle = 0;
+ streamptr->sortname = (cdiSortName > 0);
+ streamptr->lockIO = CDI_Lock_IO;
+ // netcdf4/HDF5 filter
+ streamptr->filterId = 0;
+ streamptr->numParams = 0;
+ streamptr->maxParams = sizeof(streamptr->params) / sizeof(streamptr->params[0]);
+
+ basetimeInit(&streamptr->basetime);
+
+#ifdef HAVE_LIBNETCDF
+ streamptr->nc_complex_float_id = CDI_UNDEFID;
+ streamptr->nc_complex_double_id = CDI_UNDEFID;
+
+ for (int i = 0; i < MAX_ZAXES_PS; i++) streamptr->zaxisID[i] = CDI_UNDEFID;
+ for (int i = 0; i < MAX_ZAXES_PS; i++) streamptr->nczvarID[i] = CDI_UNDEFID;
+
+ for (int i = 0; i < MAX_GRIDS_PS; i++)
+ {
+ streamptr->ncgrid[i].start = CDI_UNDEFID;
+ streamptr->ncgrid[i].count = CDI_UNDEFID;
+ streamptr->ncgrid[i].gridID = CDI_UNDEFID;
+ for (size_t j = 0; j < CDF_SIZE_ncIDs; ++j) streamptr->ncgrid[i].ncIDs[j] = CDI_UNDEFID;
+ }
+
+ streamptr->ncNumDims = 0;
+ for (int i = 0; i < MAX_DIMS_PS; i++) streamptr->ncDimID[i] = CDI_UNDEFID;
+ for (int i = 0; i < MAX_DIMS_PS; i++) streamptr->ncDimLen[i] = 0;
+
+ streamptr->vct.ilev = 0;
+ streamptr->vct.mlev = 0;
+ streamptr->vct.ilevID = CDI_UNDEFID;
+ streamptr->vct.mlevID = CDI_UNDEFID;
+
+ streamptr->chunkSizeTdim = 0;
+ streamptr->chunkSizeZdim = 0;
+#endif
+ streamptr->maxGlobalRecs = CDI_UNDEFID;
+
+ streamptr->gribContainers = NULL;
+
+ streamptr->numWorker = 0;
+ streamptr->nextGlobalRecId = 0;
+ streamptr->cachedTsID = -1;
+ streamptr->jobs = NULL;
+ streamptr->jobManager = NULL;
+
+ streamptr->protocolData = NULL;
+
+#ifdef HAVE_LIBFDB5
+ streamptr->fdbNumItems = 0;
+ streamptr->fdbKeyValueList = NULL;
+#endif
+}
+
+static stream_t *
+stream_new_entry(int resH)
+{
+ cdiInitialize(); /* ***************** make MT version !!! */
+
+ stream_t *streamptr = (stream_t *) Malloc(sizeof(stream_t));
+ streamDefaultValue(streamptr);
+
+ if (resH == CDI_UNDEFID)
+ streamptr->self = reshPut(streamptr, &streamOps);
+ else
+ {
+ streamptr->self = resH;
+ reshReplace(resH, streamptr, &streamOps);
+ }
+
+ return streamptr;
+}
+
+void
+cdiStreamCloseDefaultDelegate(stream_t *streamptr, int recordBufIsToBeDeleted)
+{
+ int fileID = streamptr->fileID;
+ int filetype = streamptr->filetype;
+
+ switch (streamptr->protocol)
+ {
+ case CDI_PROTOCOL_ACROSS:
+#ifdef HAVE_ACROSS
+ if (fileID) across_disconnect(fileID);
+ if (streamptr->protocolData)
+ {
+ Free(((across_info_t *) streamptr->protocolData)->expid);
+ Free(streamptr->protocolData);
+ streamptr->protocolData = NULL;
+ }
+#endif
+ return;
+
+ case CDI_PROTOCOL_FDB:
+#ifdef HAVE_LIBFDB5
+ if (streamptr->protocolData) check_fdb_error(fdb_delete_handle(streamptr->protocolData));
+ streamptr->protocolData = NULL;
+#endif
+ return;
+
+ case CDI_PROTOCOL_OTHER:
+ case CDI_PROTOCOL_FILE:
+ // handled below;
+ break;
+ }
+
+ if (fileID == CDI_UNDEFID)
+ {
+ Warning("File %s not open!", streamptr->filename);
+ return;
+ }
+
+ switch (cdiBaseFiletype(filetype))
+ {
+#if defined(HAVE_LIBGRIB) && (defined(HAVE_LIBCGRIBEX) || defined(HAVE_LIBGRIB_API))
+ case CDI_FILETYPE_GRIB:
+ if (filetype == CDI_FILETYPE_GRB)
+ {
+ gribClose(fileID);
+ if (recordBufIsToBeDeleted) gribContainersDelete(streamptr);
+#ifdef HAVE_LIBCGRIBEX
+ if (recordBufIsToBeDeleted) cgribexDelete(streamptr->record->objectp);
+#endif
+ }
+ else if (filetype == CDI_FILETYPE_GRB2)
+ {
+ gribClose(fileID);
+ if (recordBufIsToBeDeleted) gribContainersDelete(streamptr);
+ }
+ break;
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+ {
+ fileClose(fileID);
+ if (recordBufIsToBeDeleted) srvDelete(streamptr->record->objectp);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+ {
+ fileClose(fileID);
+ if (recordBufIsToBeDeleted) extDelete(streamptr->record->objectp);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+ {
+ fileClose(fileID);
+ if (recordBufIsToBeDeleted) iegDelete(streamptr->record->objectp);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+ {
+ cdfClose(fileID);
+ if (streamptr->ntsteps == 0 && streamptr->tsteps != NULL)
+ {
+ if (streamptr->tsteps[0].records)
+ {
+ Free(streamptr->tsteps[0].records);
+ streamptr->tsteps[0].records = NULL;
+ }
+ if (streamptr->tsteps[0].recIDs)
+ {
+ Free(streamptr->tsteps[0].recIDs);
+ streamptr->tsteps[0].recIDs = NULL;
+ }
+ }
+ break;
+ }
+#endif
+ default:
+ {
+ Error("%s support not compiled in (fileID = %d)!", strfiletype(filetype), fileID);
+ break;
+ }
+ }
+}
+
+static void
+deallocate_sleveltable_t(sleveltable_t *entry)
+{
+ if (entry->recordID) Free(entry->recordID);
+ if (entry->lindex) Free(entry->lindex);
+ entry->recordID = NULL;
+ entry->lindex = NULL;
+}
+
+static void
+streamDestroy(stream_t *streamptr)
+{
+ xassert(streamptr);
+ int vlistID = streamptr->vlistID;
+
+ void (*streamCloseDelegate)(stream_t * streamptr, int recordBufIsToBeDeleted)
+ = (void (*)(stream_t *, int)) namespaceSwitchGet(NSSWITCH_STREAM_CLOSE_BACKEND).func;
+
+ if (streamptr->filetype != CDI_FILETYPE_UNDEF) streamCloseDelegate(streamptr, 1);
+
+ if (streamptr->record)
+ {
+ if (streamptr->record->buffer) Free(streamptr->record->buffer);
+ Free(streamptr->record);
+ streamptr->record = NULL;
+ }
+
+ streamptr->filetype = CDI_FILETYPE_UNDEF;
+ if (streamptr->filename)
+ {
+ Free(streamptr->filename);
+ streamptr->filename = NULL;
+ }
+
+ if (streamptr->vars)
+ {
+ for (int index = 0; index < streamptr->nvars; index++)
+ {
+ sleveltable_t *pslev = streamptr->vars[index].recordTable;
+ unsigned nsub = streamptr->vars[index].subtypeSize >= 0 ? (unsigned) streamptr->vars[index].subtypeSize : 0U;
+ for (size_t isub = 0; isub < nsub; isub++) deallocate_sleveltable_t(pslev + isub);
+ if (pslev) Free(pslev);
+ }
+ Free(streamptr->vars);
+ streamptr->vars = NULL;
+ }
+
+ if (streamptr->tsteps)
+ {
+ int maxSteps = streamptr->tstepsNextID;
+ for (int index = 0; index < maxSteps; ++index)
+ {
+ tsteps_t *tstep = &(streamptr->tsteps[index]);
+ if (tstep->records) Free(tstep->records);
+ if (tstep->recIDs) Free(tstep->recIDs);
+ taxisDestroyKernel(&(tstep->taxis));
+ }
+
+ Free(streamptr->tsteps);
+ streamptr->tsteps = NULL;
+ }
+
+#ifdef HAVE_LIBFDB5
+ if (streamptr->fdbKeyValueList)
+ {
+ cdi_fdb_delete_kvlist(streamptr->fdbNumItems, streamptr->fdbKeyValueList);
+ streamptr->fdbNumItems = 0;
+ streamptr->fdbKeyValueList = NULL;
+ }
+#endif
+
+ if (vlistID != -1)
+ {
+ int taxisID = (streamptr->filemode != 'w') ? vlistInqTaxis(vlistID) : -1;
+ if (taxisID != -1) taxisDestroy(taxisID);
+ void (*mycdiVlistDestroy_)(int, bool) = (void (*)(int, bool)) namespaceSwitchGet(NSSWITCH_VLIST_DESTROY_).func;
+ mycdiVlistDestroy_(vlistID, true);
+ }
+
+ if (streamptr->jobs) free(streamptr->jobs);
+ if (streamptr->jobManager) AsyncWorker_finalize((AsyncManager *) streamptr->jobManager);
+
+ Free(streamptr);
+}
+
+static void
+streamDestroyP(void *streamptr)
+{
+ streamDestroy((stream_t *) streamptr);
+}
+
+/*
+@Function streamClose
+@Title Close an open dataset
+
+@Prototype void streamClose(int streamID)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenRead} or @fref{streamOpenWrite}.
+
+@Description
+The function @func{streamClose} closes an open dataset.
+
+@EndFunction
+*/
+void
+streamClose(int streamID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ bool lockIO = streamptr->lockIO;
+ if (lockIO) CDI_IO_LOCK();
+
+ if (CDI_Debug) Message("streamID = %d filename = %s", streamID, streamptr->filename);
+ streamDestroy(streamptr);
+ reshRemove(streamID, &streamOps);
+ if (CDI_Debug) Message("Removed stream %d from stream list", streamID);
+
+ if (lockIO) CDI_IO_UNLOCK();
+}
+
+void
+cdiStreamSync_(stream_t *streamptr)
+{
+ int fileID = streamptr->fileID;
+ int filetype = streamptr->filetype;
+ int vlistID = streamptr->vlistID;
+ int nvars = vlistNvars(vlistID);
+
+ if (fileID == CDI_UNDEFID)
+ Warning("File %s not open!", streamptr->filename);
+ else if (vlistID == CDI_UNDEFID)
+ Warning("Vlist undefined for file %s!", streamptr->filename);
+ else if (nvars == 0)
+ Warning("No variables defined!");
+ else
+ {
+ if (streamptr->filemode == 'w' || streamptr->filemode == 'a')
+ {
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+ {
+ void cdf_sync(int ncid);
+ if (streamptr->ncmode == 2) cdf_sync(fileID);
+ break;
+ }
+#endif
+ default:
+ {
+ fileFlush(fileID);
+ break;
+ }
+ }
+ }
+ }
+}
+
+/*
+@Function streamSync
+@Title Synchronize an Open Dataset to Disk
+
+@Prototype void streamSync(int streamID)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+
+@Description
+The function @func{streamSync} offers a way to synchronize the disk copy of a dataset with in-memory buffers.
+
+@EndFunction
+*/
+void
+streamSync(int streamID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ void (*myStreamSync_)(stream_t * streamptr) = (void (*)(stream_t *)) namespaceSwitchGet(NSSWITCH_STREAM_SYNC).func;
+ myStreamSync_(streamptr);
+}
+
+int
+cdiStreamDefTimestep_(stream_t *streamptr, int tsID)
+{
+ stream_check_ptr(__func__, streamptr);
+
+ if (CDI_Debug) Message("streamID = %d tsID = %d", streamptr->self, tsID);
+
+ int vlistID = streamptr->vlistID;
+ if (vlistID == CDI_UNDEFID)
+ Error("Must not call streamDefTimestep for stream (ID=%d) with (not yet) defined vlist", streamptr->self);
+
+ if (tsID > 0)
+ {
+ int newtsID = tstepsNewEntry(streamptr);
+ if (tsID != newtsID) Error("Internal problem: tsID = %d newtsID = %d", tsID, newtsID);
+ }
+
+ int taxisID = vlistInqTaxis(vlistID);
+ if (taxisID != CDI_UNDEFID) ptaxisCopy(&streamptr->tsteps[tsID].taxis, taxisPtr(taxisID));
+
+ streamptr->curTsID = tsID;
+ streamptr->ntsteps = tsID + 1;
+
+#ifdef HAVE_LIBNETCDF
+ int timeIsVarying = vlistHasTime(vlistID);
+ if (cdiBaseFiletype(streamptr->filetype) == CDI_FILETYPE_NETCDF && timeIsVarying)
+ {
+ /* usually points to cdfDefTimestep in serial mode but
+ * to cdiPioCdfDefTimestep on servers and to a null-op on
+ * clients in client/server mode */
+ void (*myCdfDefTimestep)(stream_t * streamptr, int tsID, size_t)
+ = (void (*)(stream_t *, int, size_t)) namespaceSwitchGet(NSSWITCH_CDF_DEF_TIMESTEP).func;
+ myCdfDefTimestep(streamptr, tsID, 1);
+ }
+#endif
+
+ cdi_create_records(streamptr, tsID);
+
+ return (int) streamptr->ntsteps;
+}
+
+/*
+@Function streamDefTimestep
+@Title Define a timestep
+
+@Prototype int streamDefTimestep(int streamID, int tsID)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+ @Item tsID Timestep identifier.
+
+@Description
+The function @func{streamDefTimestep} defines a timestep of a stream by the identifier tsID.
+The identifier tsID is the timestep index starting at 0 for the first timestep.
+Before calling this function the functions @func{taxisDefVdate} and @func{taxisDefVtime} should be used
+to define the timestamp for this timestep. All calls to write the data refer to this timestep.
+
+@Result
+@func{streamDefTimestep} returns the number of expected records of the timestep.
+
+@EndFunction
+*/
+int
+streamDefTimestep(int streamID, int tsID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ if (streamptr->lockIO) CDI_IO_LOCK();
+
+ int (*myStreamDefTimestep_)(stream_t * streamptr, int tsID)
+ = (int (*)(stream_t *, int)) namespaceSwitchGet(NSSWITCH_STREAM_DEF_TIMESTEP_).func;
+ int status = myStreamDefTimestep_(streamptr, tsID);
+
+ if (streamptr->lockIO) CDI_IO_UNLOCK();
+
+ return status;
+}
+
+int
+streamInqCurTimestepID(int streamID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+ return streamptr->curTsID;
+}
+
+/*
+@Function streamInqTimestep
+@Title Get timestep information
+
+@Prototype int streamInqTimestep(int streamID, int tsID)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenRead} or @fref{streamOpenWrite}.
+ @Item tsID Timestep identifier.
+
+@Description
+The function @func{streamInqTimestep} sets the next timestep to the identifier tsID.
+The identifier tsID is the timestep index starting at 0 for the first timestep.
+After a call to this function the functions @func{taxisInqVdate} and @func{taxisInqVtime} can be used
+to read the timestamp for this timestep. All calls to read the data refer to this timestep.
+
+@Result
+@func{streamInqTimestep} returns the number of records of the timestep or 0, if the end of the file is reached.
+
+@EndFunction
+*/
+int
+streamInqTimestep(int streamID, int tsID)
+{
+ int nrecs = 0;
+ stream_t *streamptr = stream_to_pointer(streamID);
+ int vlistID = streamptr->vlistID;
+
+ if (tsID < streamptr->ntsteps) streamptr->tsteps[tsID].curRecID = CDI_UNDEFID; // fix for netCDF
+ if (tsID < streamptr->rtsteps)
+ {
+ streamptr->curTsID = tsID;
+ nrecs = streamptr->tsteps[tsID].nrecs;
+ streamptr->tsteps[tsID].curRecID = CDI_UNDEFID;
+ int taxisID = vlistInqTaxis(vlistID);
+ if (taxisID == -1) Error("Timestep undefined for fileID = %d", streamID);
+ ptaxisCopy(taxisPtr(taxisID), &streamptr->tsteps[tsID].taxis);
+
+ return nrecs;
+ }
+
+ if (tsID >= streamptr->ntsteps && streamptr->ntsteps != CDI_UNDEFID) return 0;
+
+ int filetype = streamptr->filetype;
+
+ if (CDI_Debug) Message("streamID = %d tsID = %d filetype = %d", streamID, tsID, filetype);
+
+ if (streamptr->lockIO) CDI_IO_LOCK();
+
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB:
+ {
+ switch (streamptr->protocol)
+ {
+ case CDI_PROTOCOL_FDB: nrecs = fdbInqTimestep(streamptr, tsID); break;
+
+ case CDI_PROTOCOL_ACROSS: // TODO read from ACROSS
+ case CDI_PROTOCOL_OTHER:
+ case CDI_PROTOCOL_FILE: nrecs = grbInqTimestep(streamptr, tsID); break;
+ }
+ break;
+ }
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV:
+ {
+ nrecs = srvInqTimestep(streamptr, tsID);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT:
+ {
+ nrecs = extInqTimestep(streamptr, tsID);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG:
+ {
+ nrecs = iegInqTimestep(streamptr, tsID);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+ {
+ nrecs = cdfInqTimestep(streamptr, tsID);
+ break;
+ }
+#endif
+ default:
+ {
+ Error("%s support not compiled in!", strfiletype(filetype));
+ break;
+ }
+ }
+
+ if (streamptr->lockIO) CDI_IO_UNLOCK();
+
+ int taxisID = vlistInqTaxis(vlistID);
+ if (taxisID == -1) Error("Timestep undefined for fileID = %d", streamID);
+
+ ptaxisCopy(taxisPtr(taxisID), &streamptr->tsteps[tsID].taxis);
+
+ return nrecs;
+}
+
+// This function is used in CDO!
+SizeType
+streamNvals(int streamID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+ return streamptr->numvals;
+}
+
+/*
+@Function streamDefVlist
+@Title Define the variable list
+
+@Prototype void streamDefVlist(int streamID, int vlistID)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+
+@Description
+The function @func{streamDefVlist} defines the variable list of a stream.
+
+To safeguard against errors by modifying the wrong vlist object,
+this function makes the passed vlist object immutable.
+All further vlist changes have to use the vlist object returned by streamInqVlist().
+
+@EndFunction
+*/
+void
+streamDefVlist(int streamID, int vlistID)
+{
+ void (*myStreamDefVlist)(int streamID, int vlistID) = (void (*)(int, int)) namespaceSwitchGet(NSSWITCH_STREAM_DEF_VLIST_).func;
+ myStreamDefVlist(streamID, vlistID);
+}
+
+// The single image implementation of streamDefVlist
+void
+cdiStreamDefVlist_(int streamID, int vlistID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ if (streamptr->vlistID == CDI_UNDEFID)
+ {
+ if (streamptr->lockIO) CDI_IO_LOCK();
+
+ int vlistCopy = vlistDuplicate(vlistID);
+ cdiVlistMakeInternal(vlistCopy);
+ cdiVlistMakeImmutable(vlistID);
+ cdiStreamSetupVlist(streamptr, vlistCopy);
+
+ if (streamptr->lockIO) CDI_IO_UNLOCK();
+ }
+ else
+ Warning("vlist already defined for %s!", streamptr->filename);
+}
+
+/*
+@Function streamInqVlist
+@Title Get the variable list
+
+@Prototype int streamInqVlist(int streamID)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenRead} or @fref{streamOpenWrite}.
+
+@Description
+The function @func{streamInqVlist} returns the variable list of a stream.
+
+@Result
+@func{streamInqVlist} returns an identifier to the variable list.
+
+@EndFunction
+*/
+int
+streamInqVlist(int streamID)
+{
+ stream_t *s = stream_to_pointer(streamID);
+ return s->vlistID;
+}
+
+void
+streamDefShuffle(int streamID, int shuffle)
+{
+ stream_t *s = stream_to_pointer(streamID);
+ if (s->shuffle != shuffle)
+ {
+ s->shuffle = shuffle;
+ reshSetStatus(streamID, &streamOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+streamDefFilter(int streamID, int filterId, int numParams, const int *params)
+{
+ stream_t *s = stream_to_pointer(streamID);
+ if ((int) s->filterId != filterId)
+ {
+ if (numParams > (int) s->maxParams) Error("Too many filter parameter %d (max=%zu)!", numParams, s->maxParams);
+ s->filterId = filterId;
+ s->numParams = numParams;
+ for (int i = 0; i < numParams; ++i) s->params[i] = params[i];
+ reshSetStatus(streamID, &streamOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+streamDefCompType(int streamID, int comptype)
+{
+ stream_t *s = stream_to_pointer(streamID);
+ if (s->comptype != comptype)
+ {
+ s->comptype = comptype;
+ reshSetStatus(streamID, &streamOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+streamDefCompLevel(int streamID, int complevel)
+{
+ stream_t *s = stream_to_pointer(streamID);
+ if (s->complevel != complevel)
+ {
+ s->complevel = complevel;
+ reshSetStatus(streamID, &streamOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+streamInqCompType(int streamID)
+{
+ stream_t *s = stream_to_pointer(streamID);
+ return s->comptype;
+}
+
+int
+streamInqCompLevel(int streamID)
+{
+ stream_t *s = stream_to_pointer(streamID);
+ return s->complevel;
+}
+
+int
+streamInqFileID(int streamID)
+{
+ stream_t *s = (stream_t *) reshGetVal(streamID, &streamOps);
+ return s->fileID;
+}
+
+void
+cdiDefAccesstype(int streamID, int type)
+{
+ stream_t *s = (stream_t *) reshGetVal(streamID, &streamOps);
+
+ if (s->accesstype == CDI_UNDEFID)
+ {
+ s->accesstype = type;
+ }
+ else if (s->accesstype != type)
+ Error("Changing access type from %s not allowed!", s->accesstype == TYPE_REC ? "REC to VAR" : "VAR to REC");
+}
+
+int
+cdiInqAccesstype(int streamID)
+{
+ stream_t *s = (stream_t *) reshGetVal(streamID, &streamOps);
+ return s->accesstype;
+}
+
+static int
+streamTxCode(void *s)
+{
+ (void) s;
+ return STREAM;
+}
+
+void
+cdiStreamSetupVlist(stream_t *s, int vlistID)
+{
+ void (*myStreamSetupVlist)(stream_t * s, int vlistID)
+ = (void (*)(stream_t *, int)) namespaceSwitchGet(NSSWITCH_STREAM_SETUP_VLIST).func;
+ myStreamSetupVlist(s, vlistID);
+}
+
+void
+cdiStreamSetupVlist_(stream_t *streamptr, int vlistID)
+{
+ streamptr->vlistID = vlistID;
+ int nvars = vlistNvars(vlistID);
+ for (int varID = 0; varID < nvars; ++varID)
+ {
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+ int tilesetID = vlistInqVarSubtype(vlistID, varID);
+ stream_new_var(streamptr, gridID, zaxisID, tilesetID);
+ if (streamptr->have_missval) vlistDefVarMissval(vlistID, varID, vlistInqVarMissval(vlistID, varID));
+ }
+
+ if (streamptr->filemode == 'w')
+ {
+ tstepsNewEntry(streamptr); // timestep 0
+ int vlistIDw = streamptr->vlistID;
+ int timeIsVarying = vlistHasTime(vlistIDw);
+ if (timeIsVarying)
+ {
+ int taxisID = vlistInqTaxis(vlistIDw);
+ if (taxisID == CDI_UNDEFID)
+ {
+ Warning("taxisID undefined for fileID = %d! Using absolute time axis.", streamptr->self);
+ taxisID = taxisCreate(TAXIS_ABSOLUTE);
+ vlistDefTaxis(vlistIDw, taxisID);
+ }
+
+#ifdef HAVE_LIBNETCDF
+ if (taxisInqType(taxisID) == TAXIS_RELATIVE)
+ if (cdiBaseFiletype(streamptr->filetype) == CDI_FILETYPE_NETCDF)
+ {
+ const taxis_t *taxisptr = taxisPtr(taxisID);
+ if (cdiDateTime_isNull(taxisptr->rDateTime))
+ {
+ int vdate = taxisInqVdate(taxisID);
+ if (vdate == 0) vdate = 10101;
+ taxisDefRdate(taxisID, vdate);
+ }
+ }
+#endif
+ ptaxisCopy(&streamptr->tsteps[0].taxis, taxisPtr(taxisID));
+ }
+
+ switch (cdiBaseFiletype(streamptr->filetype))
+ {
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+ {
+ /* calls cdfDefCoordinateVars in serial mode but
+ * cdiPioClientStreamNOP (i.e. nothing) on client ranks
+ * and cdiPioServerCdfDefVars on server ranks in parallel mode*/
+ void (*myCdfDefVars)(stream_t * streamptr) = (void (*)(stream_t *)) namespaceSwitchGet(NSSWITCH_CDF_STREAM_SETUP).func;
+ myCdfDefVars(streamptr);
+ }
+ break;
+#endif
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB: gribContainersNew(streamptr); break;
+#endif
+ default:;
+ }
+ }
+}
+
+void
+cdiStreamGetIndexList(unsigned numIDs, int *IDs)
+{
+ reshGetResHListOfType(numIDs, IDs, &streamOps);
+}
+
+int
+streamInqNvars(int streamID)
+{
+ stream_t *s = (stream_t *) reshGetVal(streamID, &streamOps);
+ return s->nvars;
+}
+
+static int
+streamCompareP(void *streamptr1, void *streamptr2)
+{
+ stream_t *s1 = (stream_t *) streamptr1;
+ stream_t *s2 = (stream_t *) streamptr2;
+ enum
+ {
+ differ = -1,
+ equal = 0,
+ };
+
+ xassert(s1);
+ xassert(s2);
+
+ if (s1->filetype != s2->filetype) return differ;
+ if (s1->byteorder != s2->byteorder) return differ;
+ if (s1->comptype != s2->comptype) return differ;
+ if (s1->complevel != s2->complevel) return differ;
+
+ if (s1->filename)
+ {
+ if (!str_is_equal(s1->filename, s2->filename)) return differ;
+ }
+ else if (s2->filename)
+ return differ;
+
+ return equal;
+}
+
+void
+streamPrintP(void *streamptr, FILE *fp)
+{
+ stream_t *sp = (stream_t *) streamptr;
+
+ if (!sp) return;
+
+ fprintf(fp,
+ "#\n"
+ "# streamID %d\n"
+ "#\n"
+ "self = %d\n"
+ "accesstype = %d\n"
+ "accessmode = %d\n"
+ "filetype = %d\n"
+ "byteorder = %d\n"
+ "fileID = %d\n"
+ "filemode = %d\n"
+ "filename = %s\n"
+ "nrecs = %d\n"
+ "nvars = %d\n"
+ "varsAllocated = %d\n"
+ "curTsID = %d\n"
+ "rtsteps = %d\n"
+ "ntsteps = %ld\n"
+ "tstepsTableSize= %d\n"
+ "tstepsNextID = %d\n"
+ "ncmode = %d\n"
+ "vlistID = %d\n"
+ "globalatts = %d\n"
+ "localatts = %d\n"
+ "unreduced = %d\n"
+ "sortname = %d\n"
+ "have_missval = %d\n"
+ "ztype = %d\n"
+ "zlevel = %d\n",
+ sp->self, sp->self, sp->accesstype, sp->accessmode, sp->filetype, sp->byteorder, sp->fileID, sp->filemode, sp->filename,
+ sp->nrecs, sp->nvars, sp->varsAllocated, sp->curTsID, sp->rtsteps, sp->ntsteps, sp->tstepsTableSize, sp->tstepsNextID,
+ sp->ncmode, sp->vlistID, sp->globalatts, sp->localatts, sp->unreduced, sp->sortname, sp->have_missval, sp->comptype,
+ sp->complevel);
+}
+
+enum
+{
+ streamNint = 10,
+};
+
+static int
+streamGetPackSize(void *voidP, void *context)
+{
+ stream_t *streamP = (stream_t *) voidP;
+ int packBufferSize = serializeGetSize(streamNint, CDI_DATATYPE_INT, context) + serializeGetSize(2, CDI_DATATYPE_UINT32, context)
+ + serializeGetSize((int) strlen(streamP->filename) + 1, CDI_DATATYPE_TXT, context)
+ + serializeGetSize(1, CDI_DATATYPE_FLT64, context);
+ return packBufferSize;
+}
+
+static void
+streamPack(void *streamptr, void *packBuffer, int packBufferSize, int *packBufferPos, void *context)
+{
+ stream_t *streamP = (stream_t *) streamptr;
+ int intBuffer[streamNint];
+
+ intBuffer[0] = streamP->self;
+ intBuffer[1] = streamP->filetype;
+ intBuffer[2] = (int) strlen(streamP->filename) + 1;
+ intBuffer[3] = streamP->vlistID;
+ intBuffer[4] = streamP->byteorder;
+ intBuffer[5] = streamP->comptype;
+ intBuffer[6] = streamP->complevel;
+ intBuffer[7] = streamP->unreduced;
+ intBuffer[8] = streamP->sortname;
+ intBuffer[9] = streamP->have_missval;
+
+ serializePack(intBuffer, streamNint, CDI_DATATYPE_INT, packBuffer, packBufferSize, packBufferPos, context);
+ uint32_t d = cdiCheckSum(CDI_DATATYPE_INT, streamNint, intBuffer);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+
+ serializePack(&CDI_Default_Missval, 1, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ serializePack(streamP->filename, intBuffer[2], CDI_DATATYPE_TXT, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_TXT, intBuffer[2], streamP->filename);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+}
+
+struct streamAssoc
+streamUnpack(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context)
+{
+ int intBuffer[streamNint];
+ uint32_t d;
+ char filename[CDI_MAX_NAME];
+
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, intBuffer, streamNint, CDI_DATATYPE_INT, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_INT, streamNint, intBuffer) == d);
+
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &CDI_Default_Missval, 1, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &filename, intBuffer[2], CDI_DATATYPE_TXT, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(d == cdiCheckSum(CDI_DATATYPE_TXT, intBuffer[2], filename));
+ int targetStreamID = namespaceAdaptKey(intBuffer[0], originNamespace),
+ streamID = streamOpenID(filename, 'w', intBuffer[1], targetStreamID);
+ xassert(streamID >= 0 && targetStreamID == streamID);
+ streamDefByteorder(streamID, intBuffer[4]);
+ streamDefCompType(streamID, intBuffer[5]);
+ streamDefCompLevel(streamID, intBuffer[6]);
+ stream_t *streamptr = stream_to_pointer(streamID);
+ streamptr->unreduced = intBuffer[7];
+ streamptr->sortname = intBuffer[8];
+ streamptr->have_missval = intBuffer[9];
+ struct streamAssoc retval = { streamID, intBuffer[3] };
+ return retval;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+// the single image implementation
+int
+cdiStreamWriteVar_(int streamID, int varID, int memtype, const void *data, SizeType numMissVals)
+{
+ // May fail if memtype == MEMTYPE_FLOAT and the file format does not support single precision writing.
+ // A value > 0 is returned in this case, otherwise it returns zero.
+ int status = 0;
+
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamID, varID);
+
+ check_parg(data);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+ if (subtypeInqActiveIndex(streamptr->vars[varID].subtypeID) != 0) Error("Writing of non-trivial subtypes not yet implemented!");
+
+ // check taxis
+ if (streamptr->curTsID == CDI_UNDEFID) streamDefTimestep(streamID, 0);
+
+ const int filetype = streamptr->filetype;
+
+ if (memtype == MEMTYPE_FLOAT && cdiFiletypeIsExse(filetype)) return 1;
+
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB: grb_write_var(streamptr, varID, memtype, data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: srvWriteVarDP(streamptr, varID, (double *) data); break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: extWriteVarDP(streamptr, varID, (double *) data); break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: iegWriteVarDP(streamptr, varID, (double *) data); break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF: cdf_write_var(streamptr, varID, memtype, data, numMissVals); break;
+#endif
+ default: Error("%s support not compiled in!", strfiletype(filetype));
+ }
+
+ return status;
+}
+
+/*
+@Function streamWriteVar
+@Title Write a variable
+
+@Prototype void streamWriteVar(int streamID, int varID, const double *data, SizeType numMissVals)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+ @Item varID Variable identifier.
+ @Item data Pointer to a block of double precision floating point data values to be written.
+ @Item numMissVals Number of missing values.
+
+@Description
+The function streamWriteVar writes the values of one time step of a variable to an open dataset.
+The values are converted to the external data type of the variable, if necessary.
+@EndFunction
+*/
+void
+streamWriteVar(int streamID, int varID, const double *data, SizeType numMissVals)
+{
+ void (*myCdiStreamWriteVar_)(int streamID, int varID, int memtype, const void *data, SizeType numMissVals)
+ = (void (*)(int, int, int, const void *, SizeType)) namespaceSwitchGet(NSSWITCH_STREAM_WRITE_VAR_).func;
+
+ myCdiStreamWriteVar_(streamID, varID, MEMTYPE_DOUBLE, (const void *) data, numMissVals);
+}
+
+/*
+@Function streamWriteVarF
+@Title Write a variable
+
+@Prototype void streamWriteVarF(int streamID, int varID, const float *data, SizeType numMissVals)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+ @Item varID Variable identifier.
+ @Item data Pointer to a block of single precision floating point data values to be written.
+ @Item numMissVals Number of missing values.
+
+@Description
+The function streamWriteVarF writes the values of one time step of a variable to an open dataset.
+The values are converted to the external data type of the variable, if necessary.
+@EndFunction
+*/
+void
+streamWriteVarF(int streamID, int varID, const float *data, SizeType numMissVals)
+{
+ int (*myCdiStreamWriteVar_)(int streamID, int varID, int memtype, const void *data, SizeType numMissVals)
+ = (int (*)(int, int, int, const void *, SizeType)) namespaceSwitchGet(NSSWITCH_STREAM_WRITE_VAR_).func;
+
+ if (myCdiStreamWriteVar_(streamID, varID, MEMTYPE_FLOAT, (const void *) data, numMissVals))
+ {
+ // In case the file format does not support single precision writing,
+ // we fall back to double precision writing, converting the data on the fly.
+ const int vlistID = streamInqVlist(streamID);
+ SizeType elementCount = gridInqSize(vlistInqVarGrid(vlistID, varID));
+ elementCount *= (SizeType) zaxisInqSize(vlistInqVarZaxis(vlistID, varID));
+ double *conversionBuffer = (double *) Malloc(elementCount * sizeof(*conversionBuffer));
+ for (SizeType i = elementCount; i--;) conversionBuffer[i] = (double) data[i];
+ myCdiStreamWriteVar_(streamID, varID, MEMTYPE_DOUBLE, (const void *) conversionBuffer, numMissVals);
+ Free(conversionBuffer);
+ }
+}
+
+static int
+cdiStreamWriteVarSlice(int streamID, int varID, int levelID, int memtype, const void *data, SizeType numMissVals)
+{
+ // May fail if memtype == MEMTYPE_FLOAT and the file format does not support single precision writing.
+ // A value > 0 is returned in this case, otherwise it returns zero.
+ int status = 0;
+
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamID, varID);
+
+ check_parg(data);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+ if (subtypeInqActiveIndex(streamptr->vars[varID].subtypeID) != 0) Error("Writing of non-trivial subtypes not yet implemented!");
+
+ // check taxis
+ if (streamptr->curTsID == CDI_UNDEFID) streamDefTimestep(streamID, 0);
+
+ const int filetype = streamptr->filetype;
+
+ if (memtype == MEMTYPE_FLOAT && cdiFiletypeIsExse(filetype)) return 1;
+
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB: grb_write_var_slice(streamptr, varID, levelID, memtype, data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: srvWriteVarSliceDP(streamptr, varID, levelID, (double *) data); break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: extWriteVarSliceDP(streamptr, varID, levelID, (double *) data); break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: iegWriteVarSliceDP(streamptr, varID, levelID, (double *) data); break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF: cdf_write_var_slice(streamptr, varID, levelID, memtype, data, numMissVals); break;
+#endif
+ default: Error("%s support not compiled in!", strfiletype(filetype));
+ }
+
+ return status;
+}
+
+/*
+@Function streamWriteVarSlice
+@Title Write a horizontal slice of a variable
+
+@Prototype void streamWriteVarSlice(int streamID, int varID, int levelID, const double *data, SizeType numMissVals)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+ @Item varID Variable identifier.
+ @Item levelID Level identifier.
+ @Item data Pointer to a block of double precision floating point data values to be written.
+ @Item numMissVals Number of missing values.
+
+@Description
+The function streamWriteVarSlice writes the values of a horizontal slice of a variable to an open dataset.
+The values are converted to the external data type of the variable, if necessary.
+@EndFunction
+*/
+void
+streamWriteVarSlice(int streamID, int varID, int levelID, const double *data, SizeType numMissVals)
+{
+ cdiStreamWriteVarSlice(streamID, varID, levelID, MEMTYPE_DOUBLE, (const void *) data, numMissVals);
+}
+
+/*
+@Function streamWriteVarSliceF
+@Title Write a horizontal slice of a variable
+
+@Prototype void streamWriteVarSliceF(int streamID, int varID, int levelID, const float *data, SizeType numMissVals)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+ @Item varID Variable identifier.
+ @Item levelID Level identifier.
+ @Item data Pointer to a block of single precision floating point data values to be written.
+ @Item numMissVals Number of missing values.
+
+@Description
+The function streamWriteVarSliceF writes the values of a horizontal slice of a variable to an open dataset.
+The values are converted to the external data type of the variable, if necessary.
+@EndFunction
+*/
+void
+streamWriteVarSliceF(int streamID, int varID, int levelID, const float *data, SizeType numMissVals)
+{
+ if (cdiStreamWriteVarSlice(streamID, varID, levelID, MEMTYPE_FLOAT, (const void *) data, numMissVals))
+ {
+ // In case the file format does not support single precision writing,
+ // we fall back to double precision writing, converting the data on the fly.
+ const SizeType elementCount = gridInqSize(vlistInqVarGrid(streamInqVlist(streamID), varID));
+ double *conversionBuffer = (double *) Malloc(elementCount * sizeof(*conversionBuffer));
+ for (SizeType i = elementCount; i--;) conversionBuffer[i] = (double) data[i];
+ streamWriteVarSlice(streamID, varID, levelID, conversionBuffer, numMissVals);
+ Free(conversionBuffer);
+ }
+}
+
+void
+streamWriteVarChunk(int streamID, int varID, const int rect[][2], const double *data, SizeType numMissVals)
+{
+ void (*myCdiStreamWriteVarChunk_)(int streamID, int varID, int memtype, const int rect[3][2], const void *data,
+ SizeType numMissVals)
+ = (void (*)(int, int, int, const int[3][2], const void *, SizeType)) namespaceSwitchGet(NSSWITCH_STREAM_WRITE_VAR_CHUNK_)
+ .func;
+ myCdiStreamWriteVarChunk_(streamID, varID, MEMTYPE_DOUBLE, rect, data, numMissVals);
+}
+
+void
+streamWriteVarChunkF(int streamID, int varID, const int rect[][2], const float *data, SizeType numMissVals)
+{
+ void (*myCdiStreamWriteVarChunk_)(int streamID, int varID, int memtype, const int rect[3][2], const void *data,
+ SizeType numMissVals)
+ = (void (*)(int, int, int, const int[3][2], const void *, SizeType)) namespaceSwitchGet(NSSWITCH_STREAM_WRITE_VAR_CHUNK_)
+ .func;
+ myCdiStreamWriteVarChunk_(streamID, varID, MEMTYPE_FLOAT, rect, data, numMissVals);
+}
+
+// single image implementation
+void
+cdiStreamWriteVarChunk_(int streamID, int varID, int memtype, const int rect[][2], const void *data, SizeType numMissVals)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamID, varID);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ // streamDefineTaxis(streamID);
+
+ const int filetype = streamptr->filetype;
+
+ switch (cdiBaseFiletype(filetype))
+ {
+#if defined(HAVE_LIBGRIB)
+ case CDI_FILETYPE_GRIB:
+#endif
+#if defined(HAVE_LIBSERVICE)
+ case CDI_FILETYPE_SRV:
+#endif
+#if defined(HAVE_LIBEXTRA)
+ case CDI_FILETYPE_EXT:
+#endif
+#if defined(HAVE_LIBIEG)
+ case CDI_FILETYPE_IEG:
+#endif
+#if defined(HAVE_LIBGRIB) || defined(HAVE_LIBSERVICE) || defined(HAVE_LIBEXTRA) || defined(HAVE_LIBIEG)
+ xabort("streamWriteVarChunk not implemented for filetype %s!", strfiletype(filetype));
+ break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF: cdf_write_var_chunk(streamptr, varID, memtype, rect, data, numMissVals); break;
+#endif
+ default: Error("%s support not compiled in!", strfiletype(filetype)); break;
+ }
+}
+
+static void
+stream_write_record(int streamID, int memtype, const void *data, SizeType numMissVals)
+{
+ check_parg(data);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ if (streamptr->lockIO) CDI_IO_LOCK();
+
+ switch (cdiBaseFiletype(streamptr->filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB: grb_write_record(streamptr, memtype, data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: srv_write_record(streamptr, memtype, data); break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: ext_write_record(streamptr, memtype, data); break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: ieg_write_record(streamptr, memtype, data); break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF: cdf_write_record(streamptr, memtype, data, numMissVals); break;
+#endif
+ default: Error("%s support not compiled in!", strfiletype(streamptr->filetype));
+ }
+
+ if (streamptr->lockIO) CDI_IO_UNLOCK();
+}
+
+/*
+@Function streamWriteRecord
+@Title Write a horizontal slice of a variable
+
+@Prototype void streamWriteRecord(int streamID, const double *data, SizeType numMissVals)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+ @Item data Pointer to a block of double precision floating point data values to be written.
+ @Item numMissVals Number of missing values.
+
+@Description
+The function streamWriteRecord writes the values of a horizontal slice (record) of a variable to an open dataset.
+The values are converted to the external data type of the variable, if necessary.
+@EndFunction
+*/
+void
+streamWriteRecord(int streamID, const double *data, SizeType numMissVals)
+{
+ stream_write_record(streamID, MEMTYPE_DOUBLE, (const void *) data, numMissVals);
+}
+
+void
+streamWriteRecordF(int streamID, const float *data, SizeType numMissVals)
+{
+ stream_write_record(streamID, MEMTYPE_FLOAT, (const void *) data, numMissVals);
+}
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+// the single image implementation
+static int
+cdiStreamReadVar(int streamID, int varID, int memtype, void *data, size_t *numMissVals)
+{
+ // May fail if memtype == MEMTYPE_FLOAT and the file format does not support single precision reading.
+ // A value > 0 is returned in this case, otherwise it returns zero.
+ int status = 0;
+
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamID, varID);
+
+ check_parg(data);
+ check_parg(numMissVals);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+ const int filetype = streamptr->filetype;
+
+ *numMissVals = 0;
+
+ if (memtype == MEMTYPE_FLOAT && cdiFiletypeIsExse(filetype)) return 1;
+
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB: grb_read_var(streamptr, varID, memtype, data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: srvReadVarDP(streamptr, varID, (double *) data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: extReadVarDP(streamptr, varID, (double *) data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: iegReadVarDP(streamptr, varID, (double *) data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF: cdf_read_var(streamptr, varID, memtype, data, numMissVals); break;
+#endif
+ default: Error("%s support not compiled in!", strfiletype(filetype));
+ }
+
+ return status;
+}
+
+/*
+@Function streamReadVar
+@Title Read a variable
+
+@Prototype void streamReadVar(int streamID, int varID, double *data, SizeType *numMissVals)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenRead}.
+ @Item varID Variable identifier.
+ @Item data Pointer to the location into which the data values are read.
+ The caller must allocate space for the returned values.
+ @Item numMissVals Number of missing values.
+
+@Description
+The function streamReadVar reads all the values of one time step of a variable
+from an open dataset.
+@EndFunction
+*/
+void
+streamReadVar(int streamID, int varID, double *data, SizeType *numMissVals)
+{
+ size_t numMiss = 0;
+ cdiStreamReadVar(streamID, varID, MEMTYPE_DOUBLE, data, &numMiss);
+ *numMissVals = (SizeType) numMiss;
+}
+
+/*
+@Function streamReadVarF
+@Title Read a variable
+
+@Prototype void streamReadVar(int streamID, int varID, float *data, SizeType *numMissVals)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenRead}.
+ @Item varID Variable identifier.
+ @Item data Pointer to the location into which the data values are read.
+ The caller must allocate space for the returned values.
+ @Item numMissVals Number of missing values.
+
+@Description
+The function streamReadVar reads all the values of one time step of a variable
+from an open dataset.
+@EndFunction
+*/
+void
+streamReadVarF(int streamID, int varID, float *data, SizeType *numMissVals)
+{
+ size_t numMiss = 0;
+ if (cdiStreamReadVar(streamID, varID, MEMTYPE_FLOAT, data, &numMiss))
+ {
+ // In case the file format does not support single precision reading,
+ // we fall back to double precision reading, converting the data on the fly.
+ size_t elementCount = gridInqSize(vlistInqVarGrid(streamInqVlist(streamID), varID));
+ elementCount *= (size_t) zaxisInqSize(vlistInqVarZaxis(streamInqVlist(streamID), varID));
+ double *conversionBuffer = (double *) Malloc(elementCount * sizeof(*conversionBuffer));
+ streamReadVar(streamID, varID, conversionBuffer, numMissVals);
+ for (size_t i = elementCount; i--;) data[i] = (float) conversionBuffer[i];
+ Free(conversionBuffer);
+ }
+ *numMissVals = (SizeType) numMiss;
+}
+
+static int
+cdiStreamReadVarSlice(int streamID, int varID, int levelID, int memtype, void *data, size_t *numMissVals)
+{
+ // May fail if memtype == MEMTYPE_FLOAT and the file format does not support single precision reading.
+ // A value > 0 is returned in this case, otherwise it returns zero.
+ int status = 0;
+
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamID, varID);
+
+ check_parg(data);
+ check_parg(numMissVals);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+ const int filetype = streamptr->filetype;
+
+ *numMissVals = 0;
+
+ if (memtype == MEMTYPE_FLOAT && cdiFiletypeIsExse(filetype)) return 1;
+
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB: grb_read_var_slice(streamptr, varID, levelID, memtype, data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: srvReadVarSliceDP(streamptr, varID, levelID, (double *) data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: extReadVarSliceDP(streamptr, varID, levelID, (double *) data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: iegReadVarSliceDP(streamptr, varID, levelID, (double *) data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF: cdf_read_var_slice(streamptr, varID, levelID, memtype, data, numMissVals); break;
+#endif
+ default: Error("%s support not compiled in!", strfiletype(filetype));
+ }
+
+ return status;
+}
+
+/*
+@Function streamReadVarSlice
+@Title Read a horizontal slice of a variable
+
+@Prototype void streamReadVarSlice(int streamID, int varID, int levelID, double *data, SizeType *numMissVals)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenRead}.
+ @Item varID Variable identifier.
+ @Item levelID Level identifier.
+ @Item data Pointer to the location into which the data values are read.
+ The caller must allocate space for the returned values.
+ @Item numMissVals Number of missing values.
+
+@Description
+The function streamReadVarSlice reads all the values of a horizontal slice of a variable
+from an open dataset.
+@EndFunction
+*/
+void
+streamReadVarSlice(int streamID, int varID, int levelID, double *data, SizeType *numMissVals)
+{
+ size_t numMiss = 0;
+ if (cdiStreamReadVarSlice(streamID, varID, levelID, MEMTYPE_DOUBLE, data, &numMiss))
+ {
+ Warning("Unexpected error returned from cdiStreamReadVarSlice()!");
+ size_t elementCount = gridInqSize(vlistInqVarGrid(streamInqVlist(streamID), varID));
+ memset(data, 0, elementCount * sizeof(*data));
+ }
+ *numMissVals = (SizeType) numMiss;
+}
+
+/*
+@Function streamReadVarSliceF
+@Title Read a horizontal slice of a variable
+
+@Prototype void streamReadVarSliceF(int streamID, int varID, int levelID, float *data, SizeType *numMissVals)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenRead}.
+ @Item varID Variable identifier.
+ @Item levelID Level identifier.
+ @Item data Pointer to the location into which the data values are read.
+ The caller must allocate space for the returned values.
+ @Item numMissVals Number of missing values.
+
+@Description
+The function streamReadVarSliceF reads all the values of a horizontal slice of a variable
+from an open dataset.
+@EndFunction
+*/
+void
+streamReadVarSliceF(int streamID, int varID, int levelID, float *data, SizeType *numMissVals)
+{
+ size_t numMiss = 0;
+ if (cdiStreamReadVarSlice(streamID, varID, levelID, MEMTYPE_FLOAT, data, &numMiss))
+ {
+ // In case the file format does not support single precision reading,
+ // we fall back to double precision reading, converting the data on the fly.
+ size_t elementCount = gridInqSize(vlistInqVarGrid(streamInqVlist(streamID), varID));
+ double *conversionBuffer = (double *) Malloc(elementCount * sizeof(*conversionBuffer));
+ streamReadVarSlice(streamID, varID, levelID, conversionBuffer, numMissVals);
+ for (size_t i = elementCount; i--;) data[i] = (float) conversionBuffer[i];
+ Free(conversionBuffer);
+ }
+ *numMissVals = (SizeType) numMiss;
+}
+
+static void
+stream_read_record(int streamID, int memtype, void *data, size_t *numMissVals)
+{
+ check_parg(data);
+ check_parg(numMissVals);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ if (streamptr->lockIO) CDI_IO_LOCK();
+
+ *numMissVals = 0;
+
+ switch (cdiBaseFiletype(streamptr->filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB: grb_read_record(streamptr, memtype, data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: srv_read_record(streamptr, memtype, data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: ext_read_record(streamptr, memtype, data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: ieg_read_record(streamptr, memtype, data, numMissVals); break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF: cdf_read_record(streamptr, memtype, data, numMissVals); break;
+#endif
+ default: Error("%s support not compiled in!", strfiletype(streamptr->filetype));
+ }
+
+ if (streamptr->lockIO) CDI_IO_UNLOCK();
+}
+
+void
+streamReadRecord(int streamID, double *data, SizeType *numMissVals)
+{
+ size_t numMiss = 0;
+ stream_read_record(streamID, MEMTYPE_DOUBLE, (void *) data, &numMiss);
+ *numMissVals = (SizeType) numMiss;
+}
+
+void
+streamReadRecordF(int streamID, float *data, SizeType *numMissVals)
+{
+ size_t numMiss = 0;
+ stream_read_record(streamID, MEMTYPE_FLOAT, (void *) data, &numMiss);
+ *numMissVals = (SizeType) numMiss;
+}
+#ifndef VARSCAN_H
+#define VARSCAN_H
+
+#ifndef GRID_H
+#endif
+
+void varAddRecord(int recID, int param, int gridID, int zaxistype, int lbounds, int level1, int level2, int level_sf,
+ int level_unit, int prec, int *pvarID, int *plevelID, int tsteptype, int ltype1, int ltype2, const char *name,
+ const VarScanKeys *scanKeys, const var_tile_t *tiles, int *tile_index);
+
+void varDefVCT(size_t vctsize, double *vctptr);
+void varDefZAxisReference(int nlev, int nvgrid, unsigned char uuid[CDI_UUID_SIZE]);
+
+int varDefZaxis(int vlistID, int zaxistype, int nlevels, const double *levels, const char **cvals, size_t clength, bool lbounds,
+ const double *levels1, const double *levels2, int vctsize, const double *vct, char *name, const char *longname,
+ const char *units, int prec, int mode, int ltype1, int ltype2);
+
+void varDefMissval(int varID, double missval);
+void varDefCompType(int varID, int comptype);
+void varDefCompLevel(int varID, int complevel);
+void varDefInst(int varID, int instID);
+int varInqInst(int varID);
+void varDefModel(int varID, int modelID);
+int varInqModel(int varID);
+void varDefTable(int varID, int tableID);
+int varInqTable(int varID);
+
+void varDefKeyInt(int varID, int key, int value);
+void varDefKeyBytes(int varID, int key, const unsigned char *bytes, int length);
+void varDefKeyString(int varID, int key, const char *string);
+
+void varDefOptGribInt(int varID, int tile_index, long lval, const char *keyword);
+void varDefOptGribDbl(int varID, int tile_index, double dval, const char *keyword);
+int varOptGribNentries(int varID);
+
+bool zaxis_compare(int zaxisID, int zaxistype, int nlevels, const double *levels, const double *lbounds, const double *ubounds,
+ const char *longname, const char *units, int ltype1, int ltype2);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBNETCDF
+
+#include <ctype.h>
+#include <limits.h>
+
+
+enum VarStatus
+{
+ UndefVar = -1,
+ CoordVar = 0,
+ DataVar = 1,
+};
+
+enum AxisType
+{
+ X_AXIS = 1,
+ Y_AXIS = 2,
+ Z_AXIS = 3,
+ E_AXIS = 4,
+ T_AXIS = 5,
+};
+
+static int axisTypeChar[] = { '?', 'X', 'Y', 'Z', 'E', 'T' };
+
+typedef struct
+{
+ int dimid; // NetCDF dim ID
+ int ncvarid; // NetCDF var ID
+ int dimtype; // AxisType
+ size_t len; // Dimension size
+ char name[CDI_MAX_NAME];
+} ncdim_t;
+
+#define MAX_COORDVARS 5
+#define MAX_AUXVARS 4
+#define MAX_DIMS_CDF 8
+
+typedef struct
+{
+ int ncid;
+ int varStatus;
+ bool ignoreVar;
+ bool isCubeSphere;
+ bool isCharAxis;
+ bool isXaxis;
+ bool isYaxis;
+ bool isZaxis;
+ bool isTaxis;
+ bool isLon;
+ bool isLat;
+ bool isClimatology;
+ bool hasCalendar;
+ bool hasFormulaterms;
+ bool printWarning;
+ int timetype;
+ int param;
+ int code;
+ int tabnum;
+ int bounds;
+ int gridID;
+ int zaxisID;
+ int gridtype;
+ int zaxistype;
+ int xdim;
+ int ydim;
+ int zdim;
+ int xvarid;
+ int yvarid;
+ int rpvarid;
+ int zvarid;
+ int tvarid;
+ int psvarid;
+ int p0varid;
+ int ncoordvars;
+ int cvarids[MAX_COORDVARS];
+ int coordvarids[MAX_COORDVARS];
+ int auxvarids[MAX_AUXVARS];
+ int nauxvars;
+ int cellarea;
+ int tableID;
+ int truncation;
+ int position;
+ int numLPE;
+ bool missvalDefined;
+ bool fillvalDefined;
+ int xtype;
+ int gmapid;
+ int positive;
+ int ndims;
+ int dimids[MAX_DIMS_CDF]; // Netcdf dimension IDs
+ int dimtypes[MAX_DIMS_CDF]; // AxisType
+ size_t chunks[MAX_DIMS_CDF];
+ bool isChunked;
+ int chunkType;
+ int chunkSize;
+ size_t chunkCacheSize;
+ size_t chunkCacheNelems;
+ float chunkCachePreemption;
+ size_t gridSize;
+ size_t numLevels;
+ int natts;
+ int *atts;
+ size_t vctsize;
+ double *vct;
+ double missval;
+ double fillval;
+ double addoffset;
+ double scalefactor;
+ bool hasFilter;
+ bool hasDeflate;
+ bool hasSzip;
+ bool isUnsigned;
+ bool validrangeDefined;
+ double validrange[2];
+ int typeOfEnsembleForecast;
+ int numberOfForecastsInEnsemble;
+ int perturbationNumber;
+ int unitsLen;
+ char name[CDI_MAX_NAME];
+ char longname[CDI_MAX_NAME];
+ char stdname[CDI_MAX_NAME];
+ char units[CDI_MAX_NAME];
+ char extra[CDI_MAX_NAME];
+} ncvar_t;
+
+typedef struct
+{
+ char gridfile[8912];
+ unsigned char uuid[CDI_UUID_SIZE];
+ int number_of_grid_used;
+ int timedimid;
+} GridInfo;
+
+static CdiDateTime
+scan_time_string(const char *ptu)
+{
+ int year = 0, month = 0, day = 0;
+ int hour = 0, minute = 0;
+ double fseconds = 0.0;
+ char ch = ' ';
+
+ if (*ptu) sscanf(ptu, "%d-%d-%d%c%d:%d:%lf", &year, &month, &day, &ch, &hour, &minute, &fseconds);
+
+ if (day > 999 && year < 32)
+ {
+ int tmp = year;
+ year = day;
+ day = tmp;
+ }
+
+ int second = (int) fseconds;
+ int ms = (fseconds - second) * 1000;
+
+ CdiDateTime datetime;
+ datetime.date.year = year;
+ datetime.date.month = month;
+ datetime.date.day = day;
+ datetime.time.hour = hour;
+ datetime.time.minute = minute;
+ datetime.time.second = second;
+ datetime.time.ms = ms;
+
+ return datetime;
+}
+
+static int
+scan_time_units(const char *unitstr)
+{
+ int timeunit = get_time_units(strlen(unitstr), unitstr);
+ if (timeunit == -1) Warning("Unsupported TIMEUNIT: %s!", unitstr);
+ return timeunit;
+}
+
+static void
+set_forecast_time(const char *timestr, taxis_t *taxis)
+{
+ if (strlen(timestr) != 0)
+ taxis->fDateTime = scan_time_string(timestr);
+ else
+ cdiDateTime_init(&(taxis->fDateTime));
+}
+
+static int
+set_base_time(const char *timeUnitsStr, taxis_t *taxis)
+{
+ int taxisType = TAXIS_ABSOLUTE;
+
+ size_t len = strlen(timeUnitsStr);
+ while (isspace(*timeUnitsStr) && len)
+ {
+ timeUnitsStr++;
+ len--;
+ }
+
+ char *tu = (char *) malloc((len + 1) * sizeof(char));
+
+ for (size_t i = 0; i < len; i++) tu[i] = (char) tolower((int) timeUnitsStr[i]);
+ tu[len] = 0;
+
+ int timeUnits = get_time_units(len, tu);
+ if (timeUnits == -1)
+ {
+ Warning("Unsupported TIMEUNIT: %s!", timeUnitsStr);
+ return 1;
+ }
+
+ size_t pos = 0;
+ while (pos < len && !isspace(tu[pos])) ++pos;
+ if (tu[pos])
+ {
+ while (isspace(tu[pos])) ++pos;
+
+ if (strStartsWith(tu + pos, "since")) taxisType = TAXIS_RELATIVE;
+
+ while (pos < len && !isspace(tu[pos])) ++pos;
+ if (tu[pos])
+ {
+ while (isspace(tu[pos])) ++pos;
+
+ if (taxisType == TAXIS_ABSOLUTE)
+ {
+ if (timeUnits == TUNIT_DAY)
+ {
+ if (!strStartsWith(tu + pos, "%y%m%d.%f"))
+ {
+ Warning("Unsupported format %s for TIMEUNIT day!", tu + pos);
+ timeUnits = -1;
+ }
+ }
+ else if (timeUnits == TUNIT_MONTH)
+ {
+ if (!strStartsWith(tu + pos, "%y%m.%f"))
+ {
+ Warning("Unsupported format %s for TIMEUNIT month!", tu + pos);
+ timeUnits = -1;
+ }
+ }
+ else if (timeUnits == TUNIT_YEAR)
+ {
+ if (!strStartsWith(tu + pos, "%y.%f"))
+ {
+ Warning("Unsupported format %s for TIMEUNIT year!", tu + pos);
+ timeUnits = -1;
+ }
+ }
+ else
+ {
+ Warning("Unsupported format for time units: %s!", tu);
+ }
+ }
+ else if (taxisType == TAXIS_RELATIVE)
+ {
+ taxis->rDateTime = scan_time_string(tu + pos);
+ if (CDI_Debug)
+ Message("rdate = %d rtime = %d", (int) cdiDate_get(taxis->rDateTime.date), cdiTime_get(taxis->rDateTime.time));
+ }
+ }
+ }
+
+ taxis->type = taxisType;
+ taxis->unit = timeUnits;
+
+ free(tu);
+
+ if (CDI_Debug) Message("taxisType = %d timeUnits = %d", taxisType, timeUnits);
+
+ return 0;
+}
+
+bool
+xtypeIsText(int xtype)
+{
+ bool isText = (xtype == NC_CHAR)
+#ifdef HAVE_NETCDF4
+ || (xtype == NC_STRING)
+#endif
+ ;
+ return isText;
+}
+
+static bool
+xtypeIsFloat(nc_type xtype)
+{
+ return (xtype == NC_FLOAT || xtype == NC_DOUBLE);
+}
+
+static bool
+xtypeIsInt(nc_type xtype)
+{
+ bool isInt = xtype == NC_SHORT || xtype == NC_INT || xtype == NC_BYTE
+#ifdef HAVE_NETCDF4
+ || xtype == NC_USHORT || xtype == NC_UINT || xtype == NC_UBYTE
+#endif
+ ;
+
+ return isInt;
+}
+
+static bool
+xtypeIsInt64(nc_type xtype)
+{
+#ifdef HAVE_NETCDF4
+ return (xtype == NC_INT64 || xtype == NC_UINT64);
+#else
+ return false;
+#endif
+}
+
+static int
+cdfInqDatatype(stream_t *streamptr, int xtype, bool isUnsigned)
+{
+ int datatype = -1;
+
+#ifdef HAVE_NETCDF4
+ if (xtype == NC_BYTE && isUnsigned) xtype = NC_UBYTE;
+#endif
+
+ // clang-format off
+ if (xtype == NC_BYTE ) datatype = CDI_DATATYPE_INT8;
+ else if (xtype == NC_CHAR ) datatype = CDI_DATATYPE_UINT8;
+ else if (xtype == NC_SHORT ) datatype = CDI_DATATYPE_INT16;
+ else if (xtype == NC_INT ) datatype = CDI_DATATYPE_INT32;
+ else if (xtype == NC_FLOAT ) datatype = CDI_DATATYPE_FLT32;
+ else if (xtype == NC_DOUBLE) datatype = CDI_DATATYPE_FLT64;
+#ifdef HAVE_NETCDF4
+ else if (xtype == NC_UBYTE ) datatype = CDI_DATATYPE_UINT8;
+ else if (xtype == NC_LONG ) datatype = CDI_DATATYPE_INT32;
+ else if (xtype == NC_USHORT) datatype = CDI_DATATYPE_UINT16;
+ else if (xtype == NC_UINT ) datatype = CDI_DATATYPE_UINT32;
+ else if (xtype == NC_INT64 ) datatype = CDI_DATATYPE_FLT64;
+ else if (xtype == NC_UINT64) datatype = CDI_DATATYPE_FLT64;
+ else
+ {
+ if (xtype != streamptr->nc_complex_float_id && xtype != streamptr->nc_complex_double_id)
+ {
+ bool isUserDefinedType = false;
+#ifdef NC_FIRSTUSERTYPEID
+ isUserDefinedType = (xtype >= NC_FIRSTUSERTYPEID);
+#endif
+ if (isUserDefinedType)
+ {
+ int fileID = streamptr->fileID;
+ size_t nfields = 0, compoundsize = 0;
+ int status = nc_inq_compound(fileID, xtype, NULL, &compoundsize, &nfields);
+ if (status == NC_NOERR && nfields == 2 && (compoundsize == 8 || compoundsize == 16))
+ {
+ nc_type field_type1 = -1, field_type2 = -1;
+ int field_dims1 = 0, field_dims2 = 0;
+ nc_inq_compound_field(fileID, xtype, 0, NULL, NULL, &field_type1, &field_dims1, NULL);
+ nc_inq_compound_field(fileID, xtype, 1, NULL, NULL, &field_type2, &field_dims2, NULL);
+ if (field_type1 == field_type2 && field_dims1 == 0 && field_dims2 == 0)
+ {
+ if (field_type1 == NC_FLOAT) streamptr->nc_complex_float_id = xtype;
+ else if (field_type1 == NC_DOUBLE) streamptr->nc_complex_double_id = xtype;
+ }
+ }
+ }
+ }
+ if (xtype == streamptr->nc_complex_float_id ) datatype = CDI_DATATYPE_CPX32;
+ else if (xtype == streamptr->nc_complex_double_id) datatype = CDI_DATATYPE_CPX64;
+ }
+#endif
+ // clang-format on
+
+ return datatype;
+}
+
+static void
+cdfGetAttInt(int fileID, int ncvarid, const char *attname, size_t attlen, int *attint)
+{
+ *attint = 0;
+
+ nc_type atttype;
+ size_t nc_attlen;
+ cdf_inq_atttype(fileID, ncvarid, attname, &atttype);
+ cdf_inq_attlen(fileID, ncvarid, attname, &nc_attlen);
+
+ if (xtypeIsFloat(atttype) || xtypeIsInt(atttype))
+ {
+ bool needAlloc = (nc_attlen > attlen);
+ int *pintatt = needAlloc ? (int *) (malloc(nc_attlen * sizeof(int))) : attint;
+ cdf_get_att_int(fileID, ncvarid, attname, pintatt);
+ if (needAlloc)
+ {
+ memcpy(attint, pintatt, attlen * sizeof(int));
+ free(pintatt);
+ }
+ }
+}
+
+static void
+cdfGetAttInt64(int fileID, int ncvarid, const char *attname, size_t attlen, int64_t *attint)
+{
+ *attint = 0;
+
+ nc_type atttype;
+ size_t nc_attlen;
+ cdf_inq_atttype(fileID, ncvarid, attname, &atttype);
+ cdf_inq_attlen(fileID, ncvarid, attname, &nc_attlen);
+
+ if (xtypeIsFloat(atttype) || xtypeIsInt(atttype) || xtypeIsInt64(atttype))
+ {
+ long long *plongatt = (long long *) malloc(nc_attlen * sizeof(long long));
+ cdf_get_att_longlong(fileID, ncvarid, attname, plongatt);
+ for (size_t i = 0; i < attlen; ++i) attint[i] = plongatt[i];
+ free(plongatt);
+ }
+}
+
+static void
+cdfGetAttDouble(int fileID, int ncvarid, char *attname, size_t attlen, double *attdouble)
+{
+ *attdouble = 0.0;
+
+ nc_type atttype;
+ size_t nc_attlen;
+ cdf_inq_atttype(fileID, ncvarid, attname, &atttype);
+ cdf_inq_attlen(fileID, ncvarid, attname, &nc_attlen);
+
+ if (xtypeIsFloat(atttype) || xtypeIsInt(atttype))
+ {
+ bool needAlloc = (nc_attlen > attlen);
+ double *pdoubleatt = needAlloc ? (double *) Malloc(nc_attlen * sizeof(double)) : attdouble;
+ cdf_get_att_double(fileID, ncvarid, attname, pdoubleatt);
+ if (needAlloc)
+ {
+ memcpy(attdouble, pdoubleatt, attlen * sizeof(double));
+ Free(pdoubleatt);
+ }
+ }
+}
+
+static bool
+cdfCheckAttText(int fileID, int ncvarid, const char *attname)
+{
+ nc_type atttype;
+ int status_nc = nc_inq_atttype(fileID, ncvarid, attname, &atttype);
+
+ return (status_nc == NC_NOERR
+ && (atttype == NC_CHAR
+#ifdef HAVE_NETCDF4
+ || atttype == NC_STRING
+#endif
+ ));
+}
+
+static void
+cdfGetAttText(int fileID, int ncvarid, const char *attname, size_t attlen, char *atttext)
+{
+ atttext[0] = 0;
+
+ nc_type atttype;
+ size_t nc_attlen;
+ cdf_inq_atttype(fileID, ncvarid, attname, &atttype);
+ cdf_inq_attlen(fileID, ncvarid, attname, &nc_attlen);
+
+ if (atttype == NC_CHAR)
+ {
+ char attbuf[65636];
+ if (nc_attlen < sizeof(attbuf))
+ {
+ cdf_get_att_text(fileID, ncvarid, attname, attbuf);
+
+ if (nc_attlen > (attlen - 1)) nc_attlen = (attlen - 1);
+
+ attbuf[nc_attlen++] = 0;
+ memcpy(atttext, attbuf, nc_attlen);
+ }
+ }
+#ifdef HAVE_NETCDF4
+ else if (atttype == NC_STRING)
+ {
+ if (nc_attlen == 1)
+ {
+ char *attbuf = NULL;
+ cdf_get_att_string(fileID, ncvarid, attname, &attbuf);
+
+ size_t ssize = strlen(attbuf) + 1;
+ if (ssize > attlen) ssize = attlen;
+ memcpy(atttext, attbuf, ssize);
+ atttext[ssize - 1] = 0;
+ Free(attbuf);
+ }
+ }
+#endif
+}
+
+void
+cdf_scale_add(size_t size, double *data, double addoffset, double scalefactor)
+{
+ bool haveAddoffset = IS_NOT_EQUAL(addoffset, 0.0);
+ bool haveScalefactor = IS_NOT_EQUAL(scalefactor, 1.0);
+
+ if (haveAddoffset && haveScalefactor)
+ {
+ for (size_t i = 0; i < size; ++i) data[i] = data[i] * scalefactor + addoffset;
+ }
+ else if (haveScalefactor)
+ {
+ for (size_t i = 0; i < size; ++i) data[i] *= scalefactor;
+ }
+ else if (haveAddoffset)
+ {
+ for (size_t i = 0; i < size; ++i) data[i] += addoffset;
+ }
+}
+
+static int
+cdf_time_dimid(int fileID, int ndims, int nvars, ncdim_t *ncdims)
+{
+ char dimname[CDI_MAX_NAME];
+
+ for (int dimid = 0; dimid < ndims; ++dimid)
+ {
+ dimname[0] = 0;
+ cdf_inq_dimname(fileID, ncdims[dimid].dimid, dimname);
+ if ((dimname[0] = 'T' || dimname[0] == 't') && dimname[1] == 'i' && dimname[2] == 'm' && dimname[3] == 'e') return dimid;
+ }
+
+ for (int varid = 0; varid < nvars; ++varid)
+ {
+ nc_type xtype;
+ int nvdims, nvatts, dimids[9];
+ cdf_inq_var(fileID, varid, NULL, &xtype, &nvdims, dimids, &nvatts);
+ for (int i = 0; i < nvdims; ++i)
+ for (int dimid = 0; dimid < ndims; ++dimid)
+ if (ncdims[dimid].dimid == dimids[i])
+ {
+ dimids[i] = dimid;
+ break;
+ }
+
+ if (nvdims == 1)
+ {
+ char sbuf[CDI_MAX_NAME];
+ for (int iatt = 0; iatt < nvatts; ++iatt)
+ {
+ sbuf[0] = 0;
+ cdf_inq_attname(fileID, varid, iatt, sbuf);
+ if (strStartsWith(sbuf, "units"))
+ {
+ cdfGetAttText(fileID, varid, "units", sizeof(sbuf), sbuf);
+ str_to_lower(sbuf);
+
+ if (is_time_units(sbuf)) return dimids[0];
+ }
+ }
+ }
+ }
+
+ return CDI_UNDEFID;
+}
+
+static void
+init_ncdims(int ndims, ncdim_t *ncdims)
+{
+ for (int ncdimid = 0; ncdimid < ndims; ncdimid++)
+ {
+ ncdim_t *ncdim = &ncdims[ncdimid];
+ ncdim->dimid = CDI_UNDEFID;
+ ncdim->ncvarid = CDI_UNDEFID;
+ ncdim->dimtype = CDI_UNDEFID;
+ ncdim->len = 0;
+ ncdim->name[0] = 0;
+ }
+}
+
+static void
+init_ncvars(int nvars, ncvar_t *ncvars, int ncid)
+{
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ ncvar->ncid = ncid;
+ ncvar->varStatus = UndefVar;
+ ncvar->ignoreVar = false;
+ ncvar->isCubeSphere = false;
+ ncvar->isCharAxis = false;
+ ncvar->isXaxis = false;
+ ncvar->isYaxis = false;
+ ncvar->isZaxis = false;
+ ncvar->isTaxis = false;
+ ncvar->isLon = false;
+ ncvar->isLat = false;
+ ncvar->isClimatology = false;
+ ncvar->hasCalendar = false;
+ ncvar->hasFormulaterms = false;
+ ncvar->printWarning = true;
+ ncvar->timetype = TIME_CONSTANT;
+ ncvar->param = CDI_UNDEFID;
+ ncvar->code = CDI_UNDEFID;
+ ncvar->tabnum = 0;
+ ncvar->bounds = CDI_UNDEFID;
+ ncvar->gridID = CDI_UNDEFID;
+ ncvar->zaxisID = CDI_UNDEFID;
+ ncvar->gridtype = CDI_UNDEFID;
+ ncvar->zaxistype = CDI_UNDEFID;
+ ncvar->xdim = CDI_UNDEFID;
+ ncvar->ydim = CDI_UNDEFID;
+ ncvar->zdim = CDI_UNDEFID;
+ ncvar->xvarid = CDI_UNDEFID;
+ ncvar->yvarid = CDI_UNDEFID;
+ ncvar->rpvarid = CDI_UNDEFID;
+ ncvar->zvarid = CDI_UNDEFID;
+ ncvar->tvarid = CDI_UNDEFID;
+ ncvar->psvarid = CDI_UNDEFID;
+ ncvar->p0varid = CDI_UNDEFID;
+ ncvar->ncoordvars = 0;
+ for (int i = 0; i < MAX_COORDVARS; ++i) ncvar->cvarids[i] = CDI_UNDEFID;
+ for (int i = 0; i < MAX_COORDVARS; ++i) ncvar->coordvarids[i] = CDI_UNDEFID;
+ for (int i = 0; i < MAX_AUXVARS; ++i) ncvar->auxvarids[i] = CDI_UNDEFID;
+ ncvar->nauxvars = 0;
+ ncvar->cellarea = CDI_UNDEFID;
+ ncvar->tableID = CDI_UNDEFID;
+ ncvar->truncation = 0;
+ ncvar->position = 0;
+ ncvar->numLPE = 0;
+ ncvar->missvalDefined = false;
+ ncvar->fillvalDefined = false;
+ ncvar->xtype = 0;
+ ncvar->gmapid = CDI_UNDEFID;
+ ncvar->positive = 0;
+ ncvar->ndims = 0;
+ for (int i = 0; i < MAX_DIMS_CDF; ++i) ncvar->dimids[i] = CDI_UNDEFID;
+ for (int i = 0; i < MAX_DIMS_CDF; ++i) ncvar->dimtypes[i] = CDI_UNDEFID;
+ for (int i = 0; i < MAX_DIMS_CDF; ++i) ncvar->chunks[i] = 0;
+ ncvar->isChunked = false;
+ ncvar->chunkType = CDI_UNDEFID;
+ ncvar->chunkSize = CDI_UNDEFID;
+ ncvar->chunkCacheSize = 0;
+ ncvar->chunkCacheNelems = 0;
+ ncvar->chunkCachePreemption = 0.0;
+ ncvar->gridSize = 0;
+ ncvar->numLevels = 0;
+ ncvar->natts = 0;
+ ncvar->atts = NULL;
+ ncvar->vctsize = 0;
+ ncvar->vct = NULL;
+ ncvar->missval = 0;
+ ncvar->fillval = 0;
+ ncvar->addoffset = 0.0;
+ ncvar->scalefactor = 1.0;
+ ncvar->hasFilter = false;
+ ncvar->hasDeflate = false;
+ ncvar->hasSzip = false;
+ ncvar->isUnsigned = false;
+ ncvar->validrangeDefined = false;
+ ncvar->validrange[0] = VALIDMISS;
+ ncvar->validrange[1] = VALIDMISS;
+ ncvar->typeOfEnsembleForecast = -1;
+ ncvar->numberOfForecastsInEnsemble = -1;
+ ncvar->perturbationNumber = -1;
+ ncvar->unitsLen = 0;
+ memset(ncvar->name, 0, CDI_MAX_NAME);
+ memset(ncvar->longname, 0, CDI_MAX_NAME);
+ memset(ncvar->stdname, 0, CDI_MAX_NAME);
+ memset(ncvar->units, 0, CDI_MAX_NAME);
+ memset(ncvar->extra, 0, CDI_MAX_NAME);
+ }
+}
+
+static void
+cdf_set_var(ncvar_t *ncvar, int varStatus)
+{
+ if (ncvar->varStatus != UndefVar && ncvar->varStatus != varStatus && ncvar->printWarning)
+ {
+ if (!ncvar->ignoreVar) Warning("Inconsistent variable definition for %s!", ncvar->name);
+
+ ncvar->printWarning = false;
+ varStatus = CoordVar;
+ }
+
+ ncvar->varStatus = varStatus;
+}
+
+static void
+cdf_set_dim(ncvar_t *ncvar, int dimid, int dimtype)
+{
+ if (ncvar->dimtypes[dimid] != CDI_UNDEFID && ncvar->dimtypes[dimid] != dimtype)
+ {
+ Warning("Inconsistent dimension definition for %s! dimid=%d type=%c newtype=%c", ncvar->name, dimid,
+ axisTypeChar[ncvar->dimtypes[dimid]], axisTypeChar[dimtype]);
+ }
+
+ ncvar->dimtypes[dimid] = dimtype;
+}
+
+static void
+scan_hybrid_formulaterms(int ncid, int ncfvarid, int *avarid, int *bvarid, int *psvarid, int *p0varid)
+{
+ *avarid = -1;
+ *bvarid = -1;
+ *psvarid = -1;
+ *p0varid = -1;
+
+ char attstring[1024];
+ cdfGetAttText(ncid, ncfvarid, "formula_terms", sizeof(attstring), attstring);
+ char *pstring = attstring;
+
+ bool lstop = false;
+ for (int i = 0; i < 4; i++)
+ {
+ while (isspace((int) *pstring)) pstring++;
+ if (*pstring == 0) break;
+ char *tagname = pstring;
+ while (!isspace((int) *pstring) && *pstring != 0) pstring++;
+ if (*pstring == 0) lstop = true;
+ *pstring++ = 0;
+
+ while (isspace((int) *pstring)) pstring++;
+ if (*pstring == 0) break;
+ char *varname = pstring;
+ while (!isspace((int) *pstring) && *pstring != 0) pstring++;
+ if (*pstring == 0) lstop = true;
+ *pstring++ = 0;
+
+ int dimvarid;
+ int status_nc = nc_inq_varid(ncid, varname, &dimvarid);
+ if (status_nc == NC_NOERR)
+ {
+ // clang-format off
+ if (str_is_equal(tagname, "ap:")) *avarid = dimvarid;
+ else if (str_is_equal(tagname, "a:") ) *avarid = dimvarid;
+ else if (str_is_equal(tagname, "b:") ) *bvarid = dimvarid;
+ else if (str_is_equal(tagname, "ps:")) *psvarid = dimvarid;
+ else if (str_is_equal(tagname, "p0:")) *p0varid = dimvarid;
+ // clang-format on
+ }
+ else if (!str_is_equal(tagname, "ps:"))
+ {
+ Warning("%s - %s", nc_strerror(status_nc), varname);
+ }
+
+ if (lstop) break;
+ }
+}
+
+static void
+readVCT(int ncid, int ndims2, size_t dimlen, size_t dimlen2, int avarid2, int bvarid2, double *vct)
+{
+ double *abuf = (double *) Malloc(dimlen * 2 * sizeof(double));
+ double *bbuf = (double *) Malloc(dimlen * 2 * sizeof(double));
+ cdf_get_var_double(ncid, avarid2, abuf);
+ cdf_get_var_double(ncid, bvarid2, bbuf);
+
+ if (ndims2 == 2)
+ {
+ for (size_t i = 0; i < dimlen; ++i)
+ {
+ vct[i] = abuf[i * 2];
+ vct[i + dimlen + 1] = bbuf[i * 2];
+ }
+ vct[dimlen] = abuf[dimlen * 2 - 1];
+ vct[dimlen * 2 + 1] = bbuf[dimlen * 2 - 1];
+ }
+ else
+ {
+ for (size_t i = 0; i < dimlen2; ++i)
+ {
+ vct[i] = abuf[i];
+ vct[i + dimlen + 1] = bbuf[i];
+ }
+ }
+
+ Free(abuf);
+ Free(bbuf);
+}
+
+static bool
+isHybridSigmaPressureCoordinate(int ncid, int ncvarid, ncvar_t *ncvars, const ncdim_t *ncdims)
+{
+ bool status = false;
+ ncvar_t *ncvar = &ncvars[ncvarid];
+
+ if (str_is_equal(ncvar->stdname, "atmosphere_hybrid_sigma_pressure_coordinate"))
+ {
+ CDI_Convention = CDI_CONVENTION_CF;
+
+ status = true;
+ ncvar->zaxistype = ZAXIS_HYBRID;
+ // int ndims = ncvar->ndims;
+ int dimid = ncvar->dimids[0];
+ size_t dimlen = ncdims[dimid].len;
+ int avarid1 = -1, bvarid1 = -1, psvarid1 = -1, p0varid1 = -1;
+ int ncfvarid = ncvarid;
+ if (ncvars[ncfvarid].hasFormulaterms) scan_hybrid_formulaterms(ncid, ncfvarid, &avarid1, &bvarid1, &psvarid1, &p0varid1);
+ // printf("avarid1, bvarid1, psvarid1, p0varid1 %d %d %d %d\n", avarid1, bvarid1, psvarid1, p0varid1);
+ if (avarid1 != -1) ncvars[avarid1].varStatus = CoordVar;
+ if (bvarid1 != -1) ncvars[bvarid1].varStatus = CoordVar;
+ if (psvarid1 != -1) ncvar->psvarid = psvarid1;
+ if (p0varid1 != -1) ncvar->p0varid = p0varid1;
+
+ if (ncvar->bounds != CDI_UNDEFID && ncvars[ncvar->bounds].hasFormulaterms)
+ {
+ ncfvarid = ncvar->bounds;
+ int avarid2 = -1, bvarid2 = -1, psvarid2 = -1, p0varid2 = -1;
+ if (ncvars[ncfvarid].hasFormulaterms) scan_hybrid_formulaterms(ncid, ncfvarid, &avarid2, &bvarid2, &psvarid2, &p0varid2);
+ // printf("avarid2, bvarid2, psvarid2, p0varid2 %d %d %d %d\n", avarid2, bvarid2, psvarid2, p0varid2);
+ if (avarid2 != -1 && bvarid2 != -1)
+ {
+ ncvars[avarid2].varStatus = CoordVar;
+ ncvars[bvarid2].varStatus = CoordVar;
+
+ int ndims2 = ncvars[avarid2].ndims;
+ int dimid2 = ncvars[avarid2].dimids[0];
+ size_t dimlen2 = ncdims[dimid2].len;
+
+ if ((ndims2 == 2 && dimid == dimid2) || (ndims2 == 1 && dimlen == dimlen2 - 1))
+ {
+ double px = 1;
+ if (p0varid1 != -1 && p0varid1 == p0varid2) cdf_get_var_double(ncid, p0varid2, &px);
+
+ size_t vctsize = (dimlen + 1) * 2;
+ double *vct = (double *) Malloc(vctsize * sizeof(double));
+
+ readVCT(ncid, ndims2, dimlen, dimlen2, avarid2, bvarid2, vct);
+
+ if (p0varid1 != -1 && IS_NOT_EQUAL(px, 1))
+ for (size_t i = 0; i < dimlen + 1; ++i) vct[i] *= px;
+
+ ncvar->vct = vct;
+ ncvar->vctsize = vctsize;
+ }
+ }
+ }
+ }
+
+ return status;
+}
+
+static void
+cdf_set_cdi_attr(int ncid, int ncvarid, int attnum, int cdiID, int varID, bool removeFillValue)
+{
+ nc_type atttype;
+ size_t attlen;
+ char attname[CDI_MAX_NAME];
+
+ cdf_inq_attname(ncid, ncvarid, attnum, attname);
+ cdf_inq_attlen(ncid, ncvarid, attname, &attlen);
+ cdf_inq_atttype(ncid, ncvarid, attname, &atttype);
+
+ if (removeFillValue && str_is_equal("_FillValue", attname)) return;
+
+ if (xtypeIsInt(atttype))
+ {
+ int attint = 0;
+ int *pattint = (attlen > 1) ? (int *) malloc(attlen * sizeof(int)) : &attint;
+ cdfGetAttInt(ncid, ncvarid, attname, attlen, pattint);
+ // clang-format off
+ int datatype = (atttype == NC_SHORT) ? CDI_DATATYPE_INT16 :
+ (atttype == NC_BYTE) ? CDI_DATATYPE_INT8 :
+#ifdef HAVE_NETCDF4
+ (atttype == NC_UBYTE) ? CDI_DATATYPE_UINT8 :
+ (atttype == NC_USHORT) ? CDI_DATATYPE_UINT16 :
+ (atttype == NC_UINT) ? CDI_DATATYPE_UINT32 :
+#endif
+ CDI_DATATYPE_INT32;
+ // clang-format on
+ cdiDefAttInt(cdiID, varID, attname, datatype, (int) attlen, pattint);
+ if (attlen > 1) free(pattint);
+ }
+ else if (xtypeIsInt64(atttype))
+ {
+ int64_t attint64 = 0;
+ int64_t *pattint64 = (attlen > 1) ? (int64_t *) malloc(attlen * sizeof(int64_t)) : &attint64;
+ cdfGetAttInt64(ncid, ncvarid, attname, attlen, pattint64);
+ bool defineAtts = true;
+ for (size_t i = 0; i < attlen; ++i)
+ if (pattint64[i] > INT_MAX) defineAtts = false;
+ if (defineAtts)
+ {
+ int attint = 0;
+ int *pattint = (attlen > 1) ? (int *) malloc(attlen * sizeof(int)) : &attint;
+ for (size_t i = 0; i < attlen; ++i) pattint[i] = pattint64[i];
+ cdiDefAttInt(cdiID, varID, attname, CDI_DATATYPE_INT32, (int) attlen, pattint);
+ if (attlen > 1) free(pattint);
+ }
+ if (attlen > 1) free(pattint64);
+ }
+ else if (xtypeIsFloat(atttype))
+ {
+ double attflt = 0.0;
+ double *pattflt = (attlen > 1) ? (double *) malloc(attlen * sizeof(double)) : &attflt;
+ cdfGetAttDouble(ncid, ncvarid, attname, attlen, pattflt);
+ int datatype = (atttype == NC_FLOAT) ? CDI_DATATYPE_FLT32 : CDI_DATATYPE_FLT64;
+ cdiDefAttFlt(cdiID, varID, attname, datatype, (int) attlen, pattflt);
+ if (attlen > 1) free(pattflt);
+ }
+ else if (xtypeIsText(atttype))
+ {
+ char attstring[8192];
+ cdfGetAttText(ncid, ncvarid, attname, sizeof(attstring), attstring);
+ cdiDefAttTxt(cdiID, varID, attname, strlen(attstring), attstring);
+ }
+}
+
+static void
+cdf_print_vars(const ncvar_t *ncvars, int nvars, const char *oname)
+{
+ // clang-format off
+ char axis[7];
+ enum { TAXIS = 't', ZAXIS = 'z', EAXIS = 'e', YAXIS = 'y', XAXIS = 'x' };
+
+ fprintf(stderr, "%s:\n", oname);
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ const ncvar_t *ncvar = &ncvars[ncvarid];
+ int ndim = 0;
+ if (ncvar->varStatus == DataVar)
+ {
+ axis[ndim++] = 'v';
+ axis[ndim++] = ':';
+ for (int i = 0; i < ncvar->ndims; i++)
+ {
+ if (ncvar->dimtypes[i] == T_AXIS) axis[ndim++] = TAXIS;
+ else if (ncvar->dimtypes[i] == Z_AXIS) axis[ndim++] = ZAXIS;
+ else if (ncvar->dimtypes[i] == E_AXIS) axis[ndim++] = EAXIS;
+ else if (ncvar->dimtypes[i] == Y_AXIS) axis[ndim++] = YAXIS;
+ else if (ncvar->dimtypes[i] == X_AXIS) axis[ndim++] = XAXIS;
+ else axis[ndim++] = '?';
+ }
+ }
+ else
+ {
+ axis[ndim++] = 'c';
+ axis[ndim++] = ':';
+ if (ncvar->isTaxis) axis[ndim++] = TAXIS;
+ else if (ncvar->isZaxis) axis[ndim++] = ZAXIS;
+ else if (ncvar->isLat ) axis[ndim++] = YAXIS;
+ else if (ncvar->isYaxis) axis[ndim++] = YAXIS;
+ else if (ncvar->isLon ) axis[ndim++] = XAXIS;
+ else if (ncvar->isXaxis) axis[ndim++] = XAXIS;
+ else axis[ndim++] = '?';
+ }
+
+ axis[ndim++] = 0;
+
+ fprintf(stderr, "%3d %3d %-6s %s\n", ncvarid, ndim-3, axis, ncvar->name);
+ }
+ // clang-format on
+}
+
+static void
+cdfScanAttrAxis(ncvar_t *ncvars, ncdim_t *ncdims, int ncvarid, const char *attstring, int nvdims, const int *dimidsp)
+{
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ int attlen = (int) strlen(attstring);
+
+ if (nvdims == 0 && attlen == 1)
+ {
+ if (attstring[0] == 'z')
+ {
+ cdf_set_var(ncvar, CoordVar);
+ ncvar->isZaxis = true;
+ return;
+ }
+ }
+
+ if (attlen != nvdims) return;
+
+ static const char accept[] = "-tTzZyYxX";
+ if ((int) strspn(attstring, accept) != attlen) return;
+
+ while (attlen--)
+ {
+ int dimtype;
+ bool setVar = false;
+ switch (attstring[attlen])
+ {
+ case 't':
+ case 'T':
+ if (attlen != 0) Warning("axis attribute 't' not on first position");
+ dimtype = T_AXIS;
+ break;
+ case 'z':
+ case 'Z':
+ ncvar->zdim = dimidsp[attlen];
+ dimtype = Z_AXIS;
+ setVar = (ncvar->ndims == 1);
+ break;
+ case 'y':
+ case 'Y':
+ ncvar->ydim = dimidsp[attlen];
+ dimtype = Y_AXIS;
+ setVar = (ncvar->ndims == 1);
+ break;
+ case 'x':
+ case 'X':
+ ncvar->xdim = dimidsp[attlen];
+ dimtype = X_AXIS;
+ setVar = (ncvar->ndims == 1);
+ break;
+ default: continue;
+ }
+ cdf_set_dim(ncvar, attlen, dimtype);
+
+ if (setVar)
+ {
+ cdf_set_var(ncvar, CoordVar);
+ ncdims[ncvar->dimids[0]].dimtype = dimtype;
+ }
+ }
+}
+
+static int
+cdf_get_cell_varid(char *attstring, int ncid)
+{
+ int nc_cell_id = CDI_UNDEFID;
+
+ char *pstring = attstring;
+ while (isspace((int) *pstring)) pstring++;
+ char *cell_measures = pstring;
+ while (isalnum((int) *pstring)) pstring++;
+ *pstring++ = 0;
+ while (isspace((int) *pstring)) pstring++;
+ char *cell_var = pstring;
+ while (!isspace((int) *pstring) && *pstring != 0) pstring++;
+ *pstring++ = 0;
+ /*
+ printf("cell_measures >%s<\n", cell_measures);
+ printf("cell_var >%s<\n", cell_var);
+ */
+ if (strStartsWith(cell_measures, "area"))
+ {
+ int nc_var_id;
+ int status = nc_inq_varid(ncid, cell_var, &nc_var_id);
+ if (status == NC_NOERR) nc_cell_id = nc_var_id;
+ /*
+ else
+ Warning("%s - %s", nc_strerror(status), cell_var);
+ */
+ }
+
+ return nc_cell_id;
+}
+
+static void
+set_extra_attr(char *buf, int nvdims, const size_t *chunks)
+{
+ size_t pos = strlen(buf);
+ static const char prefix[] = "chunks=";
+ memcpy(buf + pos, prefix, sizeof(prefix));
+ pos += sizeof(prefix) - 1;
+ for (int i = nvdims - 1; i >= 0; --i)
+ {
+ pos += (size_t) (snprintf(buf + pos, CDI_MAX_NAME - pos, "%zu%s", chunks[i], i > 0 ? "x" : ""));
+ }
+ buf[pos] = ' ';
+ buf[pos + 1] = 0;
+}
+
+static bool
+is_valid_coordinate(ncvar_t *ncvar)
+{
+ bool status = true;
+ if (ncvar->ndims > 1 && (str_is_equal(ncvar->name, "zg") || str_is_equal(ncvar->name, "zghalf"))) status = false;
+ return status;
+}
+
+static void
+cdfScanVarAttr(int nvars, ncvar_t *ncvars, int ndims, ncdim_t *ncdims, int timedimid, int modelID, int format)
+{
+ int nvdims, nvatts;
+ nc_type xtype, atttype;
+ size_t attlen;
+ char name[CDI_MAX_NAME];
+ char attname[CDI_MAX_NAME];
+ char attstring[8192];
+
+ int nchecked_vars = 0;
+ enum
+ {
+ max_check_vars = 9
+ };
+ char *checked_vars[max_check_vars];
+ for (int i = 0; i < max_check_vars; ++i) checked_vars[i] = NULL;
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ int ncid = ncvar->ncid;
+ int *dimidsp = ncvar->dimids;
+
+ cdf_inq_var(ncid, ncvarid, name, &xtype, &nvdims, dimidsp, &nvatts);
+ for (int i = 0; i < nvdims; ++i)
+ for (int dimid = 0; dimid < ndims; ++dimid)
+ if (ncdims[dimid].dimid == dimidsp[i])
+ {
+ dimidsp[i] = dimid;
+ break;
+ }
+ strcpy(ncvar->name, name);
+
+ for (int ncdimid = 0; ncdimid < nvdims; ncdimid++) ncvar->dimtypes[ncdimid] = -1;
+
+ ncvar->xtype = xtype;
+ ncvar->ndims = nvdims;
+
+#ifdef HAVE_NETCDF4
+ if (format == NC_FORMAT_NETCDF4_CLASSIC || format == NC_FORMAT_NETCDF4)
+ {
+ int shuffle = 0, deflate = 0, deflateLevel = 0;
+ nc_inq_var_deflate(ncid, ncvarid, &shuffle, &deflate, &deflateLevel);
+ if (deflate > 0) ncvar->hasDeflate = true;
+
+#ifdef HAVE_NC_DEF_VAR_SZIP
+ int options_mask = 0, pixels_per_block = 0;
+ nc_inq_var_szip(ncid, ncvarid, &options_mask, &pixels_per_block);
+ if (options_mask && pixels_per_block) ncvar->hasSzip = true;
+#endif
+ unsigned filterId;
+ size_t numParams;
+ nc_inq_var_filter(ncid, ncvarid, &filterId, &numParams, NULL);
+ if (filterId > 0) ncvar->hasFilter = true;
+ if (filterId > 0 && numParams <= 16 && CDI_Debug)
+ {
+ unsigned int params[16];
+ nc_inq_var_filter(ncid, ncvarid, &filterId, &numParams, params);
+ fprintf(stderr, "%s: filterId=%d params=", ncvar->name, filterId);
+ for (int i = 0; i < (int) numParams; ++i) fprintf(stderr, " %u", params[i]);
+ fprintf(stderr, "\n");
+ }
+
+ size_t chunks[nvdims];
+ int storageIn;
+ if (nc_inq_var_chunking(ncid, ncvarid, &storageIn, chunks) == NC_NOERR)
+ {
+ if (storageIn == NC_CHUNKED)
+ {
+ ncvar->isChunked = true;
+ for (int i = 0; i < nvdims; ++i) ncvar->chunks[i] = chunks[i];
+ if (CDI_Debug)
+ {
+ fprintf(stderr, "%s: chunking %d %d %d chunks ", name, storageIn, NC_CONTIGUOUS, NC_CHUNKED);
+ for (int i = 0; i < nvdims; ++i) fprintf(stderr, "%zu ", chunks[i]);
+ fprintf(stderr, "\n");
+ }
+
+ set_extra_attr(ncvar->extra, nvdims, chunks);
+ }
+ }
+
+ size_t size;
+ size_t nelems;
+ float preemption;
+ if (nc_get_var_chunk_cache(ncid, ncvarid, &size, &nelems, &preemption) == NC_NOERR)
+ {
+ ncvar->chunkCacheSize = size;
+ ncvar->chunkCacheNelems = nelems;
+ ncvar->chunkCachePreemption = preemption;
+ if (CDI_Debug) fprintf(stderr, "%s: chunkCacheSize=%zu nelems=%zu preemption=%g\n", name, size, nelems, preemption);
+ }
+ }
+#endif
+
+ if (nvdims > 0)
+ {
+ if (timedimid == dimidsp[0])
+ {
+ ncvar->timetype = TIME_VARYING;
+ cdf_set_dim(ncvar, 0, T_AXIS);
+ }
+ else
+ {
+ for (int ncdimid = 1; ncdimid < nvdims; ncdimid++)
+ {
+ if (timedimid == dimidsp[ncdimid])
+ {
+ Warning("Time must be the first dimension! Unsupported array structure, skipped variable %s!", ncvar->name);
+ ncvar->varStatus = CoordVar;
+ }
+ }
+ }
+ }
+ }
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ int ncid = ncvar->ncid;
+ int *dimidsp = ncvar->dimids;
+
+ cdf_inq_var(ncid, ncvarid, name, &xtype, &nvdims, dimidsp, &nvatts);
+
+ if (ncvar->natts == 0 && nvatts > 0) ncvar->atts = (int *) Malloc((size_t) nvatts * sizeof(int));
+
+ for (int iatt = 0; iatt < nvatts; ++iatt)
+ {
+ int nc_cell_id = CDI_UNDEFID;
+
+ cdf_inq_attname(ncid, ncvarid, iatt, attname);
+ cdf_inq_atttype(ncid, ncvarid, attname, &atttype);
+ cdf_inq_attlen(ncid, ncvarid, attname, &attlen);
+
+ size_t attstringsize = sizeof(attstring);
+ bool isText = xtypeIsText(atttype), isNumber = xtypeIsFloat(atttype) || xtypeIsInt(atttype);
+ bool isRealization = false, isEnsembleMembers = false, isForecastInitType = false;
+ if (isText)
+ {
+ cdfGetAttText(ncid, ncvarid, attname, sizeof(attstring), attstring);
+ attstringsize = strlen(attstring) + 1;
+ if (attstringsize > CDI_MAX_NAME) attstringsize = CDI_MAX_NAME;
+ }
+
+ if (isText && str_is_equal(attname, "long_name"))
+ {
+ memcpy(ncvar->longname, attstring, attstringsize);
+ }
+ else if (isText && str_is_equal(attname, "standard_name"))
+ {
+ memcpy(ncvar->stdname, attstring, attstringsize);
+ }
+ else if (isText && str_is_equal(attname, "units"))
+ {
+ ncvar->unitsLen = attstringsize;
+ memcpy(ncvar->units, attstring, attstringsize);
+ }
+ else if (isText && str_is_equal(attname, "calendar"))
+ {
+ ncvar->hasCalendar = true;
+ }
+ else if (isText && str_is_equal(attname, "param"))
+ {
+ int pnum = 0, pcat = 255, pdis = 255;
+ sscanf(attstring, "%d.%d.%d", &pnum, &pcat, &pdis);
+ ncvar->param = cdiEncodeParam(pnum, pcat, pdis);
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isNumber && str_is_equal(attname, "code"))
+ {
+ cdfGetAttInt(ncid, ncvarid, attname, 1, &ncvar->code);
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isNumber && str_is_equal(attname, "table"))
+ {
+ int tablenum;
+ cdfGetAttInt(ncid, ncvarid, attname, 1, &tablenum);
+ if (tablenum > 0)
+ {
+ ncvar->tabnum = tablenum;
+ ncvar->tableID = tableInq(modelID, tablenum, NULL);
+ if (ncvar->tableID == CDI_UNDEFID) ncvar->tableID = tableDef(modelID, tablenum, NULL);
+ }
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isText && str_is_equal(attname, "trunc_type"))
+ {
+ if (str_is_equal(attstring, "Triangular")) ncvar->gridtype = GRID_SPECTRAL;
+ }
+ else if (isText && (str_is_equal(attname, "grid_type") || str_is_equal(attname, "CDI_grid_type")))
+ {
+ str_to_lower(attstring);
+ cdf_set_gridtype(attstring, &ncvar->gridtype);
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isText && str_is_equal(attname, "CDI_grid_latitudes"))
+ {
+ int nc_yvar_id;
+ int status = nc_inq_varid(ncid, attstring, &nc_yvar_id);
+ if (status == NC_NOERR)
+ {
+ ncvar->yvarid = nc_yvar_id;
+ cdf_set_var(&ncvars[ncvar->yvarid], CoordVar);
+ }
+ else
+ Warning("%s - %s", nc_strerror(status), attstring);
+
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isText && str_is_equal(attname, "CDI_grid_reduced_points"))
+ {
+ int nc_rpvar_id;
+ int status = nc_inq_varid(ncid, attstring, &nc_rpvar_id);
+ if (status == NC_NOERR)
+ {
+ ncvar->rpvarid = nc_rpvar_id;
+ cdf_set_var(&ncvars[ncvar->rpvarid], CoordVar);
+ }
+ else
+ Warning("%s - %s", nc_strerror(status), attstring);
+
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isNumber && str_is_equal(attname, "CDI_grid_num_LPE"))
+ {
+ cdfGetAttInt(ncid, ncvarid, attname, 1, &ncvar->numLPE);
+ }
+ else if (isText && str_is_equal(attname, "level_type"))
+ {
+ str_to_lower(attstring);
+ cdf_set_zaxistype(attstring, &ncvar->zaxistype);
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isNumber && str_is_equal(attname, "trunc_count"))
+ {
+ cdfGetAttInt(ncid, ncvarid, attname, 1, &ncvar->truncation);
+ }
+ else if (isNumber && str_is_equal(attname, "truncation"))
+ {
+ cdfGetAttInt(ncid, ncvarid, attname, 1, &ncvar->truncation);
+ }
+ else if (isNumber && str_is_equal(attname, "number_of_grid_in_reference"))
+ {
+ cdfGetAttInt(ncid, ncvarid, attname, 1, &ncvar->position);
+ }
+ else if (isNumber && str_is_equal(attname, "add_offset"))
+ {
+ cdfGetAttDouble(ncid, ncvarid, attname, 1, &ncvar->addoffset);
+ /*
+ if ( atttype != NC_BYTE && atttype != NC_SHORT && atttype != NC_INT )
+ if ( ncvar->addoffset != 0 )
+ Warning("attribute add_offset not supported for atttype %d", atttype);
+ */
+ // (also used for lon/lat) cdf_set_var(ncvar, DataVar);
+ }
+ else if (isNumber && str_is_equal(attname, "scale_factor"))
+ {
+ cdfGetAttDouble(ncid, ncvarid, attname, 1, &ncvar->scalefactor);
+ /*
+ if ( atttype != NC_BYTE && atttype != NC_SHORT && atttype != NC_INT )
+ if ( ncvar->scalefactor != 1 )
+ Warning("attribute scale_factor not supported for atttype %d", atttype);
+ */
+ // (also used for lon/lat) cdf_set_var(ncvar, DataVar);
+ }
+ else if (isText && str_is_equal(attname, "climatology"))
+ {
+ int ncboundsid;
+ int status = nc_inq_varid(ncid, attstring, &ncboundsid);
+ if (status == NC_NOERR)
+ {
+ ncvar->isClimatology = true;
+ ncvar->bounds = ncboundsid;
+ cdf_set_var(&ncvars[ncvar->bounds], CoordVar);
+ cdf_set_var(ncvar, CoordVar);
+ }
+ else
+ Warning("%s - %s", nc_strerror(status), attstring);
+ }
+ else if (isText && str_is_equal(attname, "bounds"))
+ {
+ int ncboundsid;
+ int status = nc_inq_varid(ncid, attstring, &ncboundsid);
+ if (status == NC_NOERR)
+ {
+ ncvar->bounds = ncboundsid;
+ cdf_set_var(&ncvars[ncvar->bounds], CoordVar);
+ cdf_set_var(ncvar, CoordVar);
+ }
+ else
+ Warning("%s - %s", nc_strerror(status), attstring);
+ }
+ else if (isText && str_is_equal(attname, "formula_terms"))
+ {
+ ncvar->hasFormulaterms = true;
+ }
+ else if (isText && str_is_equal(attname, "cell_measures")
+ && (nc_cell_id = cdf_get_cell_varid(attstring, ncid)) != CDI_UNDEFID)
+ {
+ ncvar->cellarea = nc_cell_id;
+ ncvars[nc_cell_id].varStatus = CoordVar;
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isText && (str_is_equal(attname, "associate") || str_is_equal(attname, "coordinates")))
+ {
+ bool lstop = false;
+ char *pstring = attstring;
+
+ for (int i = 0; i < MAX_COORDVARS && !lstop; i++)
+ {
+ while (isspace((int) *pstring)) pstring++;
+ if (*pstring == 0) break;
+ char *varname = pstring;
+ while (!isspace((int) *pstring) && *pstring != 0) pstring++;
+ if (*pstring == 0) lstop = true;
+ if (*(pstring - 1) == ',') *(pstring - 1) = 0;
+ *pstring++ = 0;
+
+ int dimvarid;
+ int status = nc_inq_varid(ncid, varname, &dimvarid);
+ if (status == NC_NOERR)
+ {
+ if (is_valid_coordinate(&ncvars[dimvarid]))
+ {
+ cdf_set_var(&ncvars[dimvarid], CoordVar);
+ if (!CDI_Ignore_Att_Coordinates)
+ {
+ ncvar->coordvarids[i] = dimvarid;
+ ncvar->ncoordvars++;
+ }
+ }
+ }
+ else
+ {
+ if (!CDI_Ignore_Att_Coordinates) ncvar->ncoordvars++;
+
+ int k;
+ for (k = 0; k < nchecked_vars; ++k)
+ if (str_is_equal(checked_vars[k], varname)) break;
+
+ if (k == nchecked_vars)
+ {
+ if (nchecked_vars < max_check_vars) checked_vars[nchecked_vars++] = strdup(varname);
+ Warning("%s - >%s<", nc_strerror(status), varname);
+ }
+ }
+ }
+
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isText && str_is_equal(attname, "auxiliary_variable"))
+ {
+ bool lstop = false;
+ char *pstring = attstring;
+
+ for (int i = 0; i < MAX_AUXVARS; i++)
+ {
+ while (isspace((int) *pstring)) pstring++;
+ if (*pstring == 0) break;
+ char *varname = pstring;
+ while (!isspace((int) *pstring) && *pstring != 0) pstring++;
+ if (*pstring == 0) lstop = true;
+ *pstring++ = 0;
+
+ int dimvarid;
+ int status = nc_inq_varid(ncid, varname, &dimvarid);
+ if (status == NC_NOERR)
+ {
+ cdf_set_var(&ncvars[dimvarid], CoordVar);
+ // if ( !CDI_Ignore_Att_Coordinates )
+ {
+ ncvar->auxvarids[i] = dimvarid;
+ ncvar->nauxvars++;
+ }
+ }
+ else
+ Warning("%s - %s", nc_strerror(status), varname);
+
+ if (lstop) break;
+ }
+
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isText && str_is_equal(attname, "grid_mapping"))
+ {
+ int nc_gmap_id;
+ int status = nc_inq_varid(ncid, attstring, &nc_gmap_id);
+ if (status == NC_NOERR)
+ {
+ ncvar->gmapid = nc_gmap_id;
+ cdf_set_var(&ncvars[ncvar->gmapid], CoordVar);
+ }
+ else
+ Warning("%s - %s", nc_strerror(status), attstring);
+
+ cdf_set_var(ncvar, DataVar);
+ }
+ else if (isText && str_is_equal(attname, "positive"))
+ {
+ str_to_lower(attstring);
+
+ if (str_is_equal(attstring, "down"))
+ ncvar->positive = POSITIVE_DOWN;
+ else if (str_is_equal(attstring, "up"))
+ ncvar->positive = POSITIVE_UP;
+
+ if (ncvar->ndims == 1)
+ {
+ cdf_set_var(ncvar, CoordVar);
+ cdf_set_dim(ncvar, 0, Z_AXIS);
+ ncdims[ncvar->dimids[0]].dimtype = Z_AXIS;
+ }
+ else if (ncvar->ndims == 0)
+ {
+ cdf_set_var(ncvar, CoordVar);
+ ncvar->isZaxis = true;
+ }
+ else
+ {
+ ncvar->atts[ncvar->natts++] = iatt;
+ }
+ }
+ else if (isNumber && str_is_equal(attname, "_FillValue"))
+ {
+ cdfGetAttDouble(ncid, ncvarid, attname, 1, &ncvar->fillval);
+ ncvar->fillvalDefined = true;
+ // cdf_set_var(ncvar, DataVar);
+ }
+ else if (isNumber && str_is_equal(attname, "missing_value"))
+ {
+ cdfGetAttDouble(ncid, ncvarid, attname, 1, &ncvar->missval);
+ ncvar->missvalDefined = true;
+ // cdf_set_var(ncvar, DataVar);
+ }
+ else if (isNumber && str_is_equal(attname, "valid_range") && attlen == 2)
+ {
+ if (ncvar->validrangeDefined == false)
+ {
+ bool ignoreDatatype = (xtypeIsFloat(atttype) != xtypeIsFloat(xtype));
+ if (!CDI_Ignore_Valid_Range && ignoreDatatype == false)
+ {
+ cdfGetAttDouble(ncid, ncvarid, attname, 2, ncvar->validrange);
+ ncvar->validrangeDefined = (ncvar->validrange[0] <= ncvar->validrange[1]);
+ if (((int) ncvar->validrange[0]) == 0 && ((int) ncvar->validrange[1]) == 255) ncvar->isUnsigned = true;
+ // cdf_set_var(ncvar, DataVar);
+ }
+ else if (ignoreDatatype)
+ {
+ Warning("Inconsistent data type for attribute %s:valid_range, ignored!", name);
+ }
+ }
+ }
+ else if (isNumber && str_is_equal(attname, "valid_min") && attlen == 1)
+ {
+ bool ignoreDatatype = (xtypeIsFloat(atttype) != xtypeIsFloat(xtype));
+ if (!CDI_Ignore_Valid_Range && ignoreDatatype == false)
+ {
+ cdfGetAttDouble(ncid, ncvarid, attname, 1, &(ncvar->validrange)[0]);
+ ncvar->validrangeDefined = true;
+ }
+ else if (ignoreDatatype)
+ {
+ Warning("Inconsistent data type for attribute %s:valid_min, ignored!", name);
+ }
+ }
+ else if (isNumber && str_is_equal(attname, "valid_max") && attlen == 1)
+ {
+ bool ignoreDatatype = (xtypeIsFloat(atttype) != xtypeIsFloat(xtype));
+ if (!CDI_Ignore_Valid_Range && ignoreDatatype == false)
+ {
+ cdfGetAttDouble(ncid, ncvarid, attname, 1, &(ncvar->validrange)[1]);
+ ncvar->validrangeDefined = true;
+ }
+ else if (ignoreDatatype)
+ {
+ Warning("Inconsistent data type for attribute %s:valid_max, ignored!", name);
+ }
+ }
+ else if (isText && str_is_equal(attname, "_Unsigned"))
+ {
+ str_to_lower(attstring);
+ if (str_is_equal(attstring, "true"))
+ {
+ ncvar->isUnsigned = true;
+ /*
+ ncvar->validrangeDefined = true;
+ ncvar->validrange[0] = 0;
+ ncvar->validrange[1] = 255;
+ */
+ }
+ // cdf_set_var(ncvar, DataVar);
+ }
+ else if (isText && str_is_equal(attname, "cdi"))
+ {
+ str_to_lower(attstring);
+
+ if (str_is_equal(attstring, "ignore"))
+ {
+ ncvar->ignoreVar = true;
+ cdf_set_var(ncvar, CoordVar);
+ }
+ }
+ else if (isNumber
+ && ((isRealization = str_is_equal(attname, "realization"))
+ || (isEnsembleMembers = str_is_equal(attname, "ensemble_members"))
+ || (isForecastInitType = str_is_equal(attname, "forecast_init_type"))))
+ {
+ int temp;
+ cdfGetAttInt(ncid, ncvarid, attname, 1, &temp);
+
+ // clang-format off
+ if (isRealization) ncvar->perturbationNumber = temp;
+ else if (isEnsembleMembers) ncvar->numberOfForecastsInEnsemble = temp;
+ else if (isForecastInitType) ncvar->typeOfEnsembleForecast = temp;
+ // clang-format on
+
+ cdf_set_var(ncvar, DataVar);
+ }
+ else
+ {
+ ncvar->atts[ncvar->natts++] = iatt;
+ }
+ }
+ }
+
+ for (int i = 0; i < max_check_vars; ++i)
+ if (checked_vars[i]) Free(checked_vars[i]);
+}
+
+static void
+cdf_set_chunk_info(stream_t *streamptr, int nvars, ncvar_t *ncvars)
+{
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == DataVar)
+ {
+ int ndims = ncvar->ndims;
+ ncvar->isChunked = true;
+ for (int i = 0; i < ndims; ++i)
+ {
+ size_t chunkSize = ncvar->chunks[i];
+ if (chunkSize > 1)
+ {
+ int dimType = ncvar->dimtypes[i];
+ // clang-format off
+ if (dimType == T_AXIS && chunkSize > streamptr->chunkSizeTdim) streamptr->chunkSizeTdim = chunkSize;
+ else if (dimType == Z_AXIS && chunkSize > streamptr->chunkSizeZdim) streamptr->chunkSizeZdim = chunkSize;
+ // clang-format on
+ }
+ }
+ }
+ }
+}
+
+static void
+cdfVerifyVarAttr(int nvars, ncvar_t *ncvars, ncdim_t *ncdims)
+{
+ nc_type atttype;
+ size_t attlen;
+ char attname[CDI_MAX_NAME];
+ char attstring[8192];
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ int ncid = ncvar->ncid;
+ const int *dimidsp = ncvar->dimids;
+ int nvdims = ncvar->ndims;
+ int nvatts = ncvar->natts;
+
+ for (int i = 0; i < nvatts; i++)
+ {
+ int attnum = ncvar->atts[i];
+ cdf_inq_attname(ncid, ncvarid, attnum, attname);
+ cdf_inq_attlen(ncid, ncvarid, attname, &attlen);
+ cdf_inq_atttype(ncid, ncvarid, attname, &atttype);
+
+ size_t attstringsize = sizeof(attstring);
+ bool isText = xtypeIsText(atttype);
+ // bool isNumber = (xtypeIsFloat(atttype) || xtypeIsInt(atttype));
+
+ if (isText)
+ {
+ cdfGetAttText(ncid, ncvarid, attname, sizeof(attstring), attstring);
+ attstringsize = strlen(attstring) + 1;
+ if (attstringsize > CDI_MAX_NAME) attstringsize = CDI_MAX_NAME;
+
+ if (str_is_equal(attname, "axis"))
+ {
+ cdfScanAttrAxis(ncvars, ncdims, ncvarid, attstring, nvdims, dimidsp);
+ }
+ /*
+ else if (str_is_equal(attname, "standard_name"))
+ {
+ memcpy(ncvar->stdname, attstring, attstringsize);
+ }
+ */
+ }
+ }
+ }
+}
+
+static void
+cdf_set_dimtype(int nvars, ncvar_t *ncvars, ncdim_t *ncdims)
+{
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == DataVar)
+ {
+ int ndims = ncvar->ndims;
+ for (int i = 0; i < ndims; i++)
+ {
+ int ncdimid = ncvar->dimids[i];
+ int dimtype = ncdims[ncdimid].dimtype;
+ if (dimtype >= X_AXIS && dimtype <= T_AXIS) cdf_set_dim(ncvar, i, dimtype);
+ }
+
+ if (CDI_Debug)
+ {
+ Message("var %d %s", ncvarid, ncvar->name);
+ for (int i = 0; i < ndims; i++) printf(" dim%d type=%d ", i, ncvar->dimtypes[i]);
+ printf("\n");
+ }
+ }
+ }
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == DataVar)
+ {
+ bool lxdim = false, lydim = false, lzdim = false /* , ltdim = false */;
+ int lcdim = 0;
+ int ndims = ncvar->ndims;
+ for (int i = 0; i < ndims; i++)
+ {
+ int dimtype = ncvar->dimtypes[i];
+ lxdim |= (dimtype == X_AXIS);
+ lydim |= (dimtype == Y_AXIS);
+ lzdim |= (dimtype == Z_AXIS);
+ if (ncvar->cvarids[i] != CDI_UNDEFID) lcdim++;
+ // ltdim |= (dimtype == T_AXIS);
+ }
+
+ int allcdims = lcdim;
+
+ if (!lxdim && ncvar->xvarid != CDI_UNDEFID && ncvars[ncvar->xvarid].ndims == 0) lxdim = true;
+ if (!lydim && ncvar->yvarid != CDI_UNDEFID && ncvars[ncvar->yvarid].ndims == 0) lydim = true;
+
+ if (lxdim && (lydim || ncvar->gridtype == GRID_UNSTRUCTURED))
+ for (int i = ndims - 1; i >= 0; i--)
+ {
+ if (ncvar->dimtypes[i] == -1 && !lzdim)
+ {
+ if (lcdim)
+ {
+ int cdimvar = ncvar->cvarids[allcdims - lcdim];
+ ncvar->zvarid = cdimvar;
+ lcdim--;
+ ncvars[cdimvar].zaxistype = ZAXIS_CHAR;
+ }
+ cdf_set_dim(ncvar, i, Z_AXIS);
+ lzdim = true;
+ int ncdimid = ncvar->dimids[i];
+ if (ncdims[ncdimid].dimtype == CDI_UNDEFID) ncdims[ncdimid].dimtype = Z_AXIS;
+ }
+ }
+ }
+ }
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ int ndims = ncvar->ndims;
+ for (int i = 0; i < ndims; i++)
+ {
+ if (ncvar->dimtypes[i] == CDI_UNDEFID)
+ {
+ int ncdimid = ncvar->dimids[i];
+ if (ncdims[ncdimid].dimtype == Z_AXIS)
+ {
+ ncvar->isZaxis = true;
+ cdf_set_dim(ncvar, i, Z_AXIS);
+ }
+ }
+ }
+ }
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == DataVar)
+ {
+ bool lxdim = false, lydim = false, lzdim = false /*, ltdim = false */;
+ int lcdim = 0;
+ int ndims = ncvar->ndims;
+ for (int i = 0; i < ndims; i++)
+ {
+ int dimtype = ncvar->dimtypes[i];
+ lxdim |= (dimtype == X_AXIS);
+ lydim |= (dimtype == Y_AXIS);
+ lzdim |= (dimtype == Z_AXIS);
+ if (ncvar->cvarids[i] != CDI_UNDEFID) lcdim++;
+ // ltdim |= (dimtype == T_AXIS);
+ }
+
+ int allcdims = lcdim;
+
+ if (!lxdim && ncvar->xvarid != CDI_UNDEFID && ncvars[ncvar->xvarid].ndims == 0) lxdim = true;
+ if (!lydim && ncvar->yvarid != CDI_UNDEFID && ncvars[ncvar->yvarid].ndims == 0) lydim = true;
+
+ // if ( ndims > 1 )
+ for (int i = ndims - 1; i >= 0; i--)
+ {
+ if (ncvar->dimtypes[i] == -1)
+ {
+ int dimtype;
+ if (!lxdim)
+ {
+ if (lcdim && ncvar->xvarid == CDI_UNDEFID)
+ {
+ int cdimvar = ncvar->cvarids[allcdims - lcdim];
+ ncvar->xvarid = cdimvar;
+ lcdim--;
+ }
+ dimtype = X_AXIS;
+ lxdim = true;
+ }
+ else if (!lydim && ncvar->gridtype != GRID_UNSTRUCTURED)
+ // else if ( !lydim && ! (ncvars[ncvar->xvarid].dimids[0] == ncvars[ncvar->yvarid].dimids[0] &&
+ // ncvars[ncvar->xvarid].ndims == 1 && ncvars[ncvar->yvarid].ndims == 1))
+ {
+ if (lcdim && ncvar->yvarid == CDI_UNDEFID)
+ {
+ int cdimvar = ncvar->cvarids[allcdims - lcdim];
+ ncvar->yvarid = cdimvar;
+ lcdim--;
+ }
+ dimtype = Y_AXIS;
+ lydim = true;
+ }
+ else if (!lzdim)
+ {
+ if (lcdim > 0)
+ {
+ int cdimvar = ncvar->cvarids[allcdims - lcdim];
+ ncvar->zvarid = cdimvar;
+ lcdim--;
+ ncvars[cdimvar].zaxistype = ZAXIS_CHAR;
+ }
+ dimtype = Z_AXIS;
+ lzdim = true;
+ }
+ else
+ continue;
+ cdf_set_dim(ncvar, i, dimtype);
+ }
+ }
+ if (lcdim > 0) Warning("Could not assign all character coordinates to data variable!");
+ }
+ }
+}
+
+static void
+set_vardim_coord(ncvar_t *ncvar, ncdim_t *ncdim, int axisType)
+{
+ cdf_set_var(ncvar, CoordVar);
+ cdf_set_dim(ncvar, 0, axisType);
+ ncdim->dimtype = axisType;
+}
+
+// verify coordinates vars - first scan (dimname == varname)
+static void
+verify_coordinates_vars_1(int ncid, int ndims, ncdim_t *ncdims, ncvar_t *ncvars, int timedimid, bool *isHybridCF)
+{
+ for (int ncdimid = 0; ncdimid < ndims; ncdimid++)
+ {
+ ncdim_t *ncdim = &ncdims[ncdimid];
+ int ncvarid = ncdim->ncvarid;
+ if (ncvarid != -1)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->dimids[0] == timedimid)
+ {
+ ncvar->isTaxis = true;
+ ncdim->dimtype = T_AXIS;
+ continue;
+ }
+
+ if (isHybridSigmaPressureCoordinate(ncid, ncvarid, ncvars, ncdims))
+ {
+ *isHybridCF = true;
+ continue;
+ }
+
+ if (ncvar->units[0] != 0)
+ {
+ if (is_lon_axis(ncvar->units, ncvar->stdname))
+ {
+ ncvar->isLon = true;
+ set_vardim_coord(ncvar, ncdim, X_AXIS);
+ }
+ else if (is_lat_axis(ncvar->units, ncvar->stdname))
+ {
+ ncvar->isLat = true;
+ set_vardim_coord(ncvar, ncdim, Y_AXIS);
+ }
+ else if (is_x_axis(ncvar->units, ncvar->stdname))
+ {
+ ncvar->isXaxis = true;
+ set_vardim_coord(ncvar, ncdim, X_AXIS);
+ }
+ else if (is_y_axis(ncvar->units, ncvar->stdname))
+ {
+ ncvar->isYaxis = true;
+ set_vardim_coord(ncvar, ncdim, Y_AXIS);
+ }
+ else if (is_pressure_units(ncvar->units))
+ {
+ ncvar->zaxistype = ZAXIS_PRESSURE;
+ }
+ else if (str_is_equal(ncvar->units, "level") || str_is_equal(ncvar->units, "1"))
+ {
+ // clang-format off
+ if (str_is_equal(ncvar->longname, "hybrid level at layer midpoints")) ncvar->zaxistype = ZAXIS_HYBRID;
+ else if (strStartsWith(ncvar->longname, "hybrid level at midpoints")) ncvar->zaxistype = ZAXIS_HYBRID;
+ else if (str_is_equal(ncvar->longname, "hybrid level at layer interfaces")) ncvar->zaxistype = ZAXIS_HYBRID_HALF;
+ else if (strStartsWith(ncvar->longname, "hybrid level at interfaces")) ncvar->zaxistype = ZAXIS_HYBRID_HALF;
+ else if (str_is_equal(ncvar->units, "level")) ncvar->zaxistype = ZAXIS_GENERIC;
+ // clang-format on
+ }
+ else if (is_DBL_axis(ncvar->longname))
+ {
+ ncvar->zaxistype = ZAXIS_DEPTH_BELOW_LAND;
+ }
+ else if (is_height_units(ncvar->units))
+ {
+ // clang-format off
+ if (is_depth_axis(ncvar->stdname, ncvar->longname)) ncvar->zaxistype = ZAXIS_DEPTH_BELOW_SEA;
+ else if (is_height_axis(ncvar->stdname, ncvar->longname)) ncvar->zaxistype = ZAXIS_HEIGHT;
+ else if (is_altitude_axis(ncvar->stdname, ncvar->longname)) ncvar->zaxistype = ZAXIS_ALTITUDE;
+ // clang-format on
+ }
+ }
+ else
+ {
+ // clang-format off
+ if (is_reference_axis(ncvar->stdname, ncvar->longname)) ncvar->zaxistype = ZAXIS_REFERENCE;
+ else if (str_is_equal(ncvar->stdname, "air_pressure")) ncvar->zaxistype = ZAXIS_PRESSURE;
+ // clang-format on
+ }
+
+ if (!ncvar->isLon && (ncvar->longname[0] != 0) && !ncvar->isLat && (ncvar->longname[1] != 0))
+ {
+ if (strStartsWith(ncvar->longname + 1, "ongitude"))
+ {
+ ncvar->isLon = true;
+ set_vardim_coord(ncvar, ncdim, X_AXIS);
+ continue;
+ }
+ else if (strStartsWith(ncvar->longname + 1, "atitude"))
+ {
+ ncvar->isLat = true;
+ set_vardim_coord(ncvar, ncdim, Y_AXIS);
+ continue;
+ }
+ }
+
+ if (ncvar->zaxistype != CDI_UNDEFID)
+ {
+ ncvar->isZaxis = true;
+ set_vardim_coord(ncvar, ncdim, Z_AXIS);
+ }
+ }
+ }
+}
+
+// verify coordinates vars - second scan (all other variables)
+static void
+verify_coordinates_vars_2(stream_t *streamptr, int nvars, ncvar_t *ncvars)
+{
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == CoordVar)
+ {
+ if (ncvar->units[0] != 0)
+ {
+ if (is_lon_axis(ncvar->units, ncvar->stdname))
+ {
+ ncvar->isLon = true;
+ continue;
+ }
+ else if (is_lat_axis(ncvar->units, ncvar->stdname))
+ {
+ ncvar->isLat = true;
+ continue;
+ }
+ else if (is_x_axis(ncvar->units, ncvar->stdname))
+ {
+ ncvar->isXaxis = true;
+ continue;
+ }
+ else if (is_y_axis(ncvar->units, ncvar->stdname))
+ {
+ ncvar->isYaxis = true;
+ continue;
+ }
+ else if (ncvar->zaxistype == CDI_UNDEFID && (str_is_equal(ncvar->units, "level") || str_is_equal(ncvar->units, "1")))
+ {
+ // clang-format off
+ if (str_is_equal(ncvar->longname, "hybrid level at layer midpoints")) ncvar->zaxistype = ZAXIS_HYBRID;
+ else if (strStartsWith(ncvar->longname, "hybrid level at midpoints")) ncvar->zaxistype = ZAXIS_HYBRID;
+ else if (str_is_equal(ncvar->longname, "hybrid level at layer interfaces")) ncvar->zaxistype = ZAXIS_HYBRID_HALF;
+ else if (strStartsWith(ncvar->longname, "hybrid level at interfaces")) ncvar->zaxistype = ZAXIS_HYBRID_HALF;
+ else if (str_is_equal(ncvar->units, "level")) ncvar->zaxistype = ZAXIS_GENERIC;
+ // clang-format on
+ continue;
+ }
+ else if (ncvar->zaxistype == CDI_UNDEFID && is_pressure_units(ncvar->units))
+ {
+ ncvar->zaxistype = ZAXIS_PRESSURE;
+ continue;
+ }
+ else if (is_DBL_axis(ncvar->longname))
+ {
+ ncvar->zaxistype = ZAXIS_DEPTH_BELOW_LAND;
+ continue;
+ }
+ else if (is_height_units(ncvar->units))
+ {
+ // clang-format off
+ if (is_depth_axis(ncvar->stdname, ncvar->longname)) ncvar->zaxistype = ZAXIS_DEPTH_BELOW_SEA;
+ else if (is_height_axis(ncvar->stdname, ncvar->longname)) ncvar->zaxistype = ZAXIS_HEIGHT;
+ // clang-format on
+ continue;
+ }
+ }
+ else if (str_is_equal(ncvar->stdname, "region") || str_is_equal(ncvar->stdname, "area_type")
+ || cdfInqDatatype(streamptr, ncvar->xtype, ncvar->isUnsigned) == CDI_DATATYPE_UINT8)
+ {
+ ncvar->isCharAxis = true;
+ }
+ else if (str_is_equal(ncvar->stdname, "air_pressure"))
+ ncvar->zaxistype = ZAXIS_PRESSURE;
+
+ // not needed anymore for rotated grids
+ if (!ncvar->isLon && (ncvar->longname[0] != 0) && !ncvar->isLat && (ncvar->longname[1] != 0))
+ {
+ if (strStartsWith(ncvar->longname + 1, "ongitude"))
+ {
+ ncvar->isLon = true;
+ continue;
+ }
+ else if (strStartsWith(ncvar->longname + 1, "atitude"))
+ {
+ ncvar->isLat = true;
+ continue;
+ }
+ }
+ }
+ }
+}
+
+static void
+grid_set_chunktype(grid_t *grid, ncvar_t *ncvar)
+{
+ if (ncvar->isChunked)
+ {
+ int ndims = ncvar->ndims;
+
+ if (grid->type == GRID_UNSTRUCTURED)
+ {
+ size_t chunkSize = ncvar->chunks[ndims - 1];
+ ncvar->chunkType = (chunkSize == grid->size) ? CDI_CHUNK_GRID : CDI_CHUNK_AUTO;
+ if (ncvar->chunkType == CDI_CHUNK_AUTO && ncvar->chunks[ndims - 1] > 1) ncvar->chunkSize = chunkSize;
+ }
+ else
+ {
+ if (grid->x.size > 1 && grid->y.size > 1 && ndims > 1 && grid->x.size == ncvar->chunks[ndims - 1]
+ && grid->y.size == ncvar->chunks[ndims - 2])
+ ncvar->chunkType = CDI_CHUNK_GRID;
+ else if (grid->x.size > 1 && grid->x.size == ncvar->chunks[ndims - 1])
+ ncvar->chunkType = CDI_CHUNK_LINES;
+ else
+ ncvar->chunkType = CDI_CHUNK_AUTO;
+ }
+ }
+}
+
+// define all input grids
+static void
+cdf_load_vals(size_t size, int ndims, int varid, ncvar_t *ncvar, double **gridvals, struct xyValGet *valsGet, bool hasTimeDim,
+ bool readPart, size_t *start, size_t *count)
+{
+ if (CDI_Netcdf_Lazy_Grid_Load)
+ {
+ *valsGet = (struct xyValGet){
+ .scalefactor = ncvar->scalefactor,
+ .addoffset = ncvar->addoffset,
+ .start = { start[0], start[1], start[2] },
+ .count = { count[0], count[1], count[2] },
+ .size = size,
+ .datasetNCId = ncvar->ncid,
+ .varNCId = varid,
+ .ndims = (short) ndims,
+ };
+ *gridvals = cdfPendingLoad;
+ }
+ else
+ {
+ *gridvals = (double *) Malloc(size * sizeof(double));
+ if (hasTimeDim || readPart)
+ cdf_get_vara_double(ncvar->ncid, varid, start, count, *gridvals);
+ else
+ cdf_get_var_double(ncvar->ncid, varid, *gridvals);
+ cdf_scale_add(size, *gridvals, ncvar->addoffset, ncvar->scalefactor);
+ }
+}
+
+#ifndef USE_MPI
+static void
+cdf_load_cvals(size_t size, int varid, ncvar_t *ncvar, char ***gridvals, size_t dimlength)
+{
+ size_t startc[] = { 0, 0 };
+ size_t countc[] = { 1, size / dimlength };
+ *gridvals = (char **) Malloc(dimlength * sizeof(char *));
+ for (size_t i = 0; i < dimlength; i++)
+ {
+ (*gridvals)[i] = (char *) Malloc((size / dimlength) * sizeof(char));
+ cdf_get_vara_text(ncvar->ncid, varid, startc, countc, (*gridvals)[i]);
+ startc[0] = i + 1;
+ }
+}
+#endif
+
+static void
+cdf_load_bounds(size_t size, ncvar_t *ncvar, double **gridbounds, struct cdfLazyGridIds *cellBoundsGet, bool readPart,
+ size_t *start, size_t *count)
+{
+ if (CDI_Netcdf_Lazy_Grid_Load)
+ {
+ cellBoundsGet->datasetNCId = ncvar->ncid;
+ cellBoundsGet->varNCId = ncvar->bounds;
+ *gridbounds = cdfPendingLoad;
+ }
+ else
+ {
+ *gridbounds = (double *) Malloc(size * sizeof(double));
+ if (readPart)
+ cdf_get_vara_double(ncvar->ncid, ncvar->bounds, start, count, *gridbounds);
+ else
+ cdf_get_var_double(ncvar->ncid, ncvar->bounds, *gridbounds);
+ }
+}
+
+static void
+cdf_load_bounds_cube_sphere(size_t bxsize, size_t bysize, size_t size, ncvar_t *ncvar, double **gridbounds,
+ struct cdfLazyGridIds *cellBoundsGet)
+{
+ if (CDI_Netcdf_Lazy_Grid_Load)
+ {
+ cellBoundsGet->datasetNCId = ncvar->ncid;
+ cellBoundsGet->varNCId = ncvar->bounds;
+ *gridbounds = cdfPendingLoad;
+ }
+ else
+ {
+ float *bounds = (float *) Malloc(6 * bxsize * bysize * sizeof(float));
+ cdf_get_var_float(ncvar->ncid, ncvar->bounds, bounds);
+
+ *gridbounds = (double *) Malloc(size * sizeof(double));
+ double *pbounds = *gridbounds;
+
+ size_t m = 0;
+ for (size_t k = 0; k < 6; ++k)
+ for (size_t j = 0; j < (bysize - 1); ++j)
+ for (size_t i = 0; i < (bxsize - 1); ++i)
+ {
+ size_t offset = k * bysize * bxsize;
+ pbounds[m + 0] = bounds[offset + (j + 1) * bxsize + i];
+ pbounds[m + 1] = bounds[offset + j * bxsize + i];
+ pbounds[m + 2] = bounds[offset + j * bxsize + (i + 1)];
+ pbounds[m + 3] = bounds[offset + (j + 1) * bxsize + (i + 1)];
+ m += 4;
+ }
+
+ Free(bounds);
+ }
+}
+
+static void
+cdf_load_cellarea(size_t size, ncvar_t *ncvar, double **gridarea, struct cdfLazyGridIds *cellAreaGet)
+{
+ if (CDI_Netcdf_Lazy_Grid_Load)
+ {
+ cellAreaGet->datasetNCId = ncvar->ncid;
+ cellAreaGet->varNCId = ncvar->cellarea;
+ *gridarea = cdfPendingLoad;
+ }
+ else
+ {
+ *gridarea = (double *) Malloc(size * sizeof(double));
+ cdf_get_var_double(ncvar->ncid, ncvar->cellarea, *gridarea);
+ }
+}
+
+static void
+cdf_copy_grid_axis_attr(ncvar_t *ncvar, struct gridaxis_t *gridaxis)
+{
+ cdiDefVarKeyBytes(&gridaxis->keys, CDI_KEY_NAME, (const unsigned char *) ncvar->name, (int) strlen(ncvar->name) + 1);
+ if (ncvar->longname[0])
+ cdiDefVarKeyBytes(&gridaxis->keys, CDI_KEY_LONGNAME, (const unsigned char *) ncvar->longname,
+ (int) strlen(ncvar->longname) + 1);
+ if (ncvar->units[0])
+ cdiDefVarKeyBytes(&gridaxis->keys, CDI_KEY_UNITS, (const unsigned char *) ncvar->units, (int) strlen(ncvar->units) + 1);
+#ifndef USE_MPI
+ if (gridaxis->cvals)
+ if (ncvar->stdname[0])
+ cdiDefVarKeyBytes(&gridaxis->keys, CDI_KEY_STDNAME, (const unsigned char *) ncvar->stdname, (int) strlen(ncvar->stdname) + 1);
+#endif
+}
+
+static int
+cdf_get_xydimid(int ndims, int *dimids, int *dimtypes, int *xdimid, int *ydimid)
+{
+ int nxdims = 0, nydims = 0;
+ int xdimids[2] = { -1, -1 }, ydimids[2] = { -1, -1 };
+
+ for (int i = 0; i < ndims; i++)
+ {
+ if (dimtypes[i] == X_AXIS && nxdims < 2)
+ {
+ xdimids[nxdims] = dimids[i];
+ nxdims++;
+ }
+ else if (dimtypes[i] == Y_AXIS && nydims < 2)
+ {
+ ydimids[nydims] = dimids[i];
+ nydims++;
+ }
+ }
+
+ if (nxdims == 2)
+ {
+ *xdimid = xdimids[1];
+ *ydimid = xdimids[0];
+ }
+ else if (nydims == 2)
+ {
+ *xdimid = ydimids[1];
+ *ydimid = ydimids[0];
+ }
+ else
+ {
+ *xdimid = xdimids[0];
+ *ydimid = ydimids[0];
+ }
+
+ return nydims;
+}
+
+static void
+cdf_check_gridtype(int *gridtype, bool isLon, bool isLat, size_t xsize, size_t ysize, grid_t *grid)
+{
+ if (isLat && (isLon || xsize == 0))
+ {
+ double yinc = 0.0;
+ if (isLon && ysize > 1)
+ {
+ yinc = fabs(grid->y.vals[0] - grid->y.vals[1]);
+ for (size_t i = 2; i < ysize; i++)
+ if ((fabs(grid->y.vals[i - 1] - grid->y.vals[i]) - yinc) > (yinc / 1000))
+ {
+ yinc = 0;
+ break;
+ }
+ }
+ if (ysize < 10000 && IS_EQUAL(yinc, 0.0) && isGaussianLatitudes(ysize, grid->y.vals))
+ {
+ *gridtype = GRID_GAUSSIAN;
+ grid->np = (int) (ysize / 2);
+ }
+ else
+ {
+ *gridtype = GRID_LONLAT;
+ }
+ }
+ else
+ {
+ *gridtype = (isLon && !isLat && ysize == 0) ? GRID_LONLAT : GRID_GENERIC;
+ }
+}
+
+static bool
+cdf_read_xcoord(stream_t *streamptr, struct cdfLazyGrid *lazyGrid, ncdim_t *ncdims, ncvar_t *ncvar, int xvarid, ncvar_t *axisvar,
+ size_t *xsize, size_t ysize, bool hasTimeDim, bool readPart, size_t *start, size_t *count, bool *isLon)
+{
+ grid_t *grid = &lazyGrid->base;
+ bool skipvar = true;
+ *isLon = axisvar->isLon;
+ int ndims = axisvar->ndims;
+ size_t size = 0;
+
+ if (ndims == 1 && xtypeIsText(axisvar->xtype))
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("Unsupported x-coordinate type (char/string), skipped variable %s!", ncvar->name);
+ return true;
+ }
+
+ int datatype = cdfInqDatatype(streamptr, axisvar->xtype, axisvar->isUnsigned);
+
+ if ((ndims - hasTimeDim) == 2)
+ {
+ // Check size of 2 dimensional coordinates variables
+ int dimid = axisvar->dimids[ndims - 2];
+ size_t dimsize1 = ncdims[dimid].len;
+ dimid = axisvar->dimids[ndims - 1];
+ size_t dimsize2 = ncdims[dimid].len;
+
+ if (datatype == CDI_DATATYPE_UINT8)
+ {
+ ncvar->gridtype = GRID_CHARXY;
+ size = dimsize1 * dimsize2;
+ skipvar = (dimsize1 != *xsize);
+ }
+ else
+ {
+ ncvar->gridtype = GRID_CURVILINEAR;
+ size = (*xsize) * ysize;
+ skipvar = (dimsize1 * dimsize2 != size);
+ }
+ }
+ else if ((ndims - hasTimeDim) == 1)
+ {
+ size = *xsize;
+ // Check size of 1 dimensional coordinates variables
+ int dimid = axisvar->dimids[ndims - 1];
+ size_t dimsize = ncdims[dimid].len;
+ skipvar = readPart ? false : (dimsize != size);
+ }
+ else if (ndims == 0 && *xsize == 0)
+ {
+ size = *xsize = 1;
+ skipvar = false;
+ }
+ else if (ncvar->isCubeSphere)
+ {
+ size = *xsize;
+ skipvar = false;
+ }
+
+ if (skipvar)
+ {
+ Warning("Unsupported array structure, skipped variable %s!", ncvar->name);
+ ncvar->varStatus = UndefVar;
+ return true;
+ }
+
+ if (datatype != -1) grid->datatype = datatype;
+
+ if (datatype == CDI_DATATYPE_UINT8 && !CDI_Netcdf_Lazy_Grid_Load)
+ {
+#ifndef USE_MPI
+ cdf_load_cvals(size, xvarid, axisvar, &grid->x.cvals, *xsize);
+ grid->x.clength = size / (*xsize);
+#endif
+ }
+ else
+ cdf_load_vals(size, ndims, xvarid, axisvar, &grid->x.vals, &lazyGrid->xValsGet, hasTimeDim, readPart, start, count);
+
+ cdf_copy_grid_axis_attr(axisvar, &grid->x);
+
+ return false;
+}
+
+static bool
+cdf_read_ycoord(stream_t *streamptr, struct cdfLazyGrid *lazyGrid, ncdim_t *ncdims, ncvar_t *ncvar, int yvarid, ncvar_t *axisvar,
+ size_t xsize, size_t *ysize, bool hasTimeDim, bool readPart, size_t *start, size_t *count, bool *isLat)
+{
+ grid_t *grid = &lazyGrid->base;
+ bool skipvar = true;
+ *isLat = axisvar->isLat;
+ int ndims = axisvar->ndims;
+ size_t size = 0;
+
+ if (ndims == 1 && xtypeIsText(axisvar->xtype))
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("Unsupported y-coordinate type (char/string), skipped variable %s!", ncvar->name);
+ return true;
+ }
+
+ int datatype = cdfInqDatatype(streamptr, axisvar->xtype, axisvar->isUnsigned);
+
+ if ((ndims - hasTimeDim) == 2)
+ {
+ // Check size of 2 dimensional coordinates variables
+ int dimid = axisvar->dimids[ndims - 2];
+ size_t dimsize1 = ncdims[dimid].len;
+ dimid = axisvar->dimids[ndims - 1];
+ size_t dimsize2 = ncdims[dimid].len;
+
+ if (datatype == CDI_DATATYPE_UINT8)
+ {
+ ncvar->gridtype = GRID_CHARXY;
+ size = dimsize1 * dimsize2;
+ skipvar = (dimsize1 != *ysize);
+ }
+ else
+ {
+ ncvar->gridtype = GRID_CURVILINEAR;
+ size = xsize * (*ysize);
+ skipvar = (dimsize1 * dimsize2 != size);
+ }
+ }
+ else if ((ndims - hasTimeDim) == 1)
+ {
+ size = (*ysize) ? *ysize : xsize;
+ int dimid = axisvar->dimids[ndims - 1];
+ size_t dimsize = ncdims[dimid].len;
+ skipvar = readPart ? false : (dimsize != size);
+ }
+ else if (ndims == 0 && *ysize == 0)
+ {
+ size = *ysize = 1;
+ skipvar = false;
+ }
+ else if (ncvar->isCubeSphere)
+ {
+ size = *ysize;
+ skipvar = false;
+ }
+
+ if (skipvar)
+ {
+ Warning("Unsupported array structure, skipped variable %s!", ncvar->name);
+ ncvar->varStatus = UndefVar;
+ return true;
+ }
+
+ if (datatype != -1) grid->datatype = datatype;
+
+ if (datatype == CDI_DATATYPE_UINT8 && !CDI_Netcdf_Lazy_Grid_Load)
+ {
+#ifndef USE_MPI
+ cdf_load_cvals(size, yvarid, axisvar, &grid->y.cvals, *ysize);
+ grid->y.clength = size / (*ysize);
+#endif
+ }
+ else
+ cdf_load_vals(size, ndims, yvarid, axisvar, &grid->y.vals, &lazyGrid->yValsGet, hasTimeDim, readPart, start, count);
+
+ cdf_copy_grid_axis_attr(axisvar, &grid->y);
+
+ return false;
+}
+
+typedef struct
+{
+ long start;
+ long count;
+ bool readPart;
+} GridPart;
+
+static void
+gridpart_init(GridPart *gridPart)
+{
+ gridPart->start = -1;
+ gridPart->count = -1;
+ gridPart->readPart = false;
+}
+
+static bool
+cdf_read_coordinates(stream_t *streamptr, struct cdfLazyGrid *lazyGrid, ncvar_t *ncvar, ncvar_t *ncvars, ncdim_t *ncdims,
+ int timedimid, int xvarid, int yvarid, size_t xsize, size_t ysize, int *vdimid, const GridPart *gridPart)
+{
+ grid_t *grid = &lazyGrid->base;
+ size_t size = 0;
+ size_t start[3] = { 0, 0, 0 }, count[3] = { 1, 1, 1 };
+ bool readPart = false;
+
+ grid->datatype = CDI_DATATYPE_FLT64;
+
+ if (ncvar->gridtype == GRID_TRAJECTORY)
+ {
+ if (ncvar->xvarid == CDI_UNDEFID) Error("Longitude coordinates undefined for %s!", ncvar->name);
+ if (ncvar->yvarid == CDI_UNDEFID) Error("Latitude coordinates undefined for %s!", ncvar->name);
+ }
+ else
+ {
+ bool hasTimeDim = false;
+
+ if (xvarid != CDI_UNDEFID && yvarid != CDI_UNDEFID)
+ {
+ int ndims = ncvars[xvarid].ndims;
+ if (ndims != ncvars[yvarid].ndims && !ncvars[xvarid].isCharAxis && !ncvars[yvarid].isCharAxis)
+ {
+ Warning("Inconsistent grid structure for variable %s!", ncvar->name);
+ ncvar->xvarid = xvarid = CDI_UNDEFID;
+ ncvar->yvarid = yvarid = CDI_UNDEFID;
+ }
+ if (ndims > 1)
+ {
+ if (ndims <= 3)
+ {
+ if (ncvars[xvarid].dimids[0] == timedimid && ncvars[yvarid].dimids[0] == timedimid)
+ {
+ static bool ltwarn = true;
+ size_t ntsteps = 0;
+ cdf_inq_dimlen(ncvar->ncid, ncdims[timedimid].dimid, &ntsteps);
+ if (ltwarn && ntsteps > 1) Warning("Time varying grids unsupported, using grid at time step 1!");
+ ltwarn = false;
+ hasTimeDim = true;
+ count[1] = ysize;
+ count[2] = xsize;
+ }
+ }
+ else
+ {
+ Warning("Unsupported grid structure for variable %s (grid dims > 2)!", ncvar->name);
+ ncvar->xvarid = xvarid = CDI_UNDEFID;
+ ncvar->yvarid = yvarid = CDI_UNDEFID;
+ }
+ }
+ else if (gridPart && gridPart->readPart)
+ {
+ start[0] = gridPart->start;
+ count[0] = gridPart->count;
+ readPart = true;
+ }
+ }
+
+ if (xvarid != CDI_UNDEFID)
+ {
+ if (!ncvar->isCubeSphere && (ncvars[xvarid].ndims - hasTimeDim) > 2)
+ {
+ Warning("Coordinates variable %s has too many dimensions (%d), skipped!", ncvars[xvarid].name, ncvars[xvarid].ndims);
+ // ncvar->xvarid = CDI_UNDEFID;
+ xvarid = CDI_UNDEFID;
+ }
+ }
+
+ if (yvarid != CDI_UNDEFID)
+ {
+ if (!ncvar->isCubeSphere && (ncvars[yvarid].ndims - hasTimeDim) > 2)
+ {
+ Warning("Coordinates variable %s has too many dimensions (%d), skipped!", ncvars[yvarid].name, ncvars[yvarid].ndims);
+ // ncvar->yvarid = CDI_UNDEFID;
+ yvarid = CDI_UNDEFID;
+ }
+ }
+
+ bool isLon = false, isLat = false;
+
+ if (xvarid != CDI_UNDEFID)
+ if (cdf_read_xcoord(streamptr, lazyGrid, ncdims, ncvar, xvarid, &ncvars[xvarid], &xsize, ysize, hasTimeDim, readPart, start,
+ count, &isLon))
+ return true;
+
+ if (yvarid != CDI_UNDEFID)
+ if (cdf_read_ycoord(streamptr, lazyGrid, ncdims, ncvar, yvarid, &ncvars[yvarid], xsize, &ysize, hasTimeDim, readPart, start,
+ count, &isLat))
+ return true;
+
+ // clang-format off
+ if (ncvar->gridtype == GRID_UNSTRUCTURED) size = xsize;
+ else if (ncvar->gridtype == GRID_GAUSSIAN_REDUCED) size = xsize;
+ else if (ysize == 0) size = xsize;
+ else if (xsize == 0) size = ysize;
+ else size = xsize * ysize;
+ // clang-format on
+
+ if (ncvar->gridtype == CDI_UNDEFID || ncvar->gridtype == GRID_GENERIC)
+ cdf_check_gridtype(&ncvar->gridtype, isLon, isLat, xsize, ysize, grid);
+ }
+
+ int gridtype = grid->type;
+ if (gridtype != GRID_PROJECTION)
+ {
+ gridtype = ncvar->gridtype;
+ }
+ else if (gridtype == GRID_PROJECTION && ncvar->gridtype == GRID_LONLAT)
+ {
+ int gmapvarid = ncvar->gmapid;
+ if (gmapvarid != CDI_UNDEFID && cdfCheckAttText(ncvar->ncid, gmapvarid, "grid_mapping_name"))
+ {
+ char attstring[CDI_MAX_NAME];
+ cdfGetAttText(ncvar->ncid, gmapvarid, "grid_mapping_name", CDI_MAX_NAME, attstring);
+ if (str_is_equal(attstring, "latitude_longitude")) gridtype = ncvar->gridtype;
+ }
+ }
+
+ switch (gridtype)
+ {
+ case GRID_GENERIC:
+ case GRID_LONLAT:
+ case GRID_GAUSSIAN:
+ case GRID_UNSTRUCTURED:
+ case GRID_CURVILINEAR:
+ case GRID_PROJECTION:
+ {
+ grid->size = size;
+ grid->x.size = xsize;
+ grid->y.size = ysize;
+ if (xvarid != CDI_UNDEFID && CDI_Read_Cell_Corners)
+ {
+ grid->x.flag = 1;
+ int bvarid = ncvars[xvarid].bounds;
+ if (bvarid != CDI_UNDEFID)
+ {
+ int ndims = ncvars[xvarid].ndims;
+ int nbdims = ncvars[bvarid].ndims;
+ if (nbdims == 2 || nbdims == 3)
+ {
+ if (ncvars[bvarid].dimids[0] == timedimid)
+ {
+ static bool ltwarn = true;
+ if (ltwarn) Warning("Time varying grid x-bounds unsupported, skipped!");
+ ltwarn = false;
+ }
+ else if (ncvar->isCubeSphere)
+ {
+ grid->nvertex = 4;
+ size_t bxsize = ncdims[ncvars[bvarid].dimids[2]].len;
+ size_t bysize = ncdims[ncvars[bvarid].dimids[1]].len;
+ cdf_load_bounds_cube_sphere(bxsize, bysize, size * (size_t) grid->nvertex, &ncvars[xvarid], &grid->x.bounds,
+ &lazyGrid->xBoundsGet);
+ }
+ else if (nbdims == ndims + 1)
+ {
+ *vdimid = ncvars[bvarid].dimids[nbdims - 1];
+ grid->nvertex = (int) ncdims[*vdimid].len;
+ if (readPart)
+ {
+ start[1] = 0;
+ count[1] = grid->nvertex;
+ }
+ cdf_load_bounds(size * (size_t) grid->nvertex, &ncvars[xvarid], &grid->x.bounds, &lazyGrid->xBoundsGet,
+ readPart, start, count);
+ }
+ else
+ {
+ static bool lwarn = true;
+ if (lwarn) Warning("x-bounds doesn't follow the CF-Convention, skipped!");
+ lwarn = false;
+ }
+ }
+ }
+ }
+ if (yvarid != CDI_UNDEFID && CDI_Read_Cell_Corners)
+ {
+ grid->y.flag = 1;
+ int bvarid = ncvars[yvarid].bounds;
+ if (bvarid != CDI_UNDEFID)
+ {
+ int ndims = ncvars[yvarid].ndims;
+ int nbdims = ncvars[bvarid].ndims;
+ if (nbdims == 2 || nbdims == 3)
+ {
+ if (ncvars[bvarid].dimids[0] == timedimid)
+ {
+ static bool ltwarn = true;
+ if (ltwarn) Warning("Time varying grid y-bounds unsupported, skipped!");
+ ltwarn = false;
+ }
+ else if (ncvar->isCubeSphere)
+ {
+ grid->nvertex = 4;
+ size_t bxsize = ncdims[ncvars[bvarid].dimids[2]].len;
+ size_t bysize = ncdims[ncvars[bvarid].dimids[1]].len;
+ cdf_load_bounds_cube_sphere(bxsize, bysize, size * (size_t) grid->nvertex, &ncvars[yvarid], &grid->y.bounds,
+ &lazyGrid->yBoundsGet);
+ }
+ else if (nbdims == ndims + 1)
+ {
+ if (*vdimid == CDI_UNDEFID)
+ {
+ *vdimid = ncvars[bvarid].dimids[nbdims - 1];
+ grid->nvertex = (int) ncdims[*vdimid].len;
+ }
+ if (readPart)
+ {
+ start[1] = 0;
+ count[1] = grid->nvertex;
+ }
+ cdf_load_bounds(size * (size_t) grid->nvertex, &ncvars[yvarid], &grid->y.bounds, &lazyGrid->yBoundsGet,
+ readPart, start, count);
+ }
+ else
+ {
+ static bool lwarn = true;
+ if (lwarn) Warning("y-bounds doesn't follow the CF-Convention, skipped!");
+ lwarn = false;
+ }
+ }
+ }
+ }
+
+ if (ncvar->cellarea != CDI_UNDEFID) cdf_load_cellarea(size, ncvar, &grid->area, &lazyGrid->cellAreaGet);
+
+ if (gridtype == GRID_GAUSSIAN)
+ {
+ if (ncvar->numLPE > 0) grid->np = ncvar->numLPE;
+ }
+
+ break;
+ }
+ case GRID_GAUSSIAN_REDUCED:
+ {
+ if (ncvar->numLPE > 0 && ncvar->rpvarid != CDI_UNDEFID)
+ {
+ if (ncvars[ncvar->rpvarid].ndims == 1)
+ {
+ grid->size = size;
+ int dimid = ncvars[ncvar->rpvarid].dimids[0];
+ size_t len = ncdims[dimid].len;
+ grid->y.size = len;
+ grid->reducedPointsSize = len;
+ grid->reducedPoints = (int *) Malloc(len * sizeof(int));
+ cdf_get_var_int(ncvar->ncid, ncvar->rpvarid, grid->reducedPoints);
+ grid->np = ncvar->numLPE;
+
+ int bvarid = (yvarid == CDI_UNDEFID) ? CDI_UNDEFID : ncvars[yvarid].bounds;
+ if (bvarid != CDI_UNDEFID)
+ {
+ int nbdims = ncvars[bvarid].ndims;
+ if (nbdims == 2 || nbdims == 3)
+ {
+ if (*vdimid == CDI_UNDEFID)
+ {
+ *vdimid = ncvars[bvarid].dimids[nbdims - 1];
+ grid->nvertex = (int) ncdims[*vdimid].len;
+ }
+ cdf_load_bounds(size * (size_t) grid->nvertex, &ncvars[yvarid], &grid->y.bounds, &lazyGrid->yBoundsGet,
+ false, NULL, NULL);
+ }
+ }
+ }
+ }
+ break;
+ }
+ case GRID_SPECTRAL:
+ {
+ grid->size = size;
+ grid->lcomplex = 1;
+ grid->trunc = ncvar->truncation;
+ break;
+ }
+ case GRID_FOURIER:
+ {
+ grid->size = size;
+ grid->trunc = ncvar->truncation;
+ break;
+ }
+ case GRID_TRAJECTORY:
+ {
+ grid->size = 1;
+ break;
+ }
+ case GRID_CHARXY:
+ {
+ grid->size = size;
+ grid->x.size = xsize;
+ grid->y.size = ysize;
+ break;
+ }
+ }
+
+ // if ( grid->type != GRID_PROJECTION && grid->type != ncvar->gridtype )
+ if (grid->type != gridtype)
+ {
+ // int gridtype = ncvar->gridtype;
+ grid->type = gridtype;
+ cdiGridTypeInit(grid, gridtype, grid->size);
+ }
+
+ if (grid->size == 0)
+ {
+ int ndims = ncvar->ndims;
+ int *dimtypes = ncvar->dimtypes;
+ if (ndims == 0 || (ndims == 1 && dimtypes[0] == T_AXIS) || (ndims == 1 && dimtypes[0] == Z_AXIS)
+ || (ndims == 2 && dimtypes[0] == T_AXIS && dimtypes[1] == Z_AXIS))
+ {
+ grid->type = GRID_GENERIC;
+ grid->size = 1;
+ grid->x.size = 0;
+ grid->y.size = 0;
+ }
+ else
+ {
+ Warning("Unsupported grid, skipped variable %s!", ncvar->name);
+ ncvar->varStatus = UndefVar;
+ return true;
+ }
+ }
+
+ return false;
+}
+
+static bool
+cdf_set_unstructured_par(ncvar_t *ncvar, grid_t *grid, int *xdimid, int *ydimid, GridInfo *gridInfo, bool readPart)
+{
+ int ndims = ncvar->ndims;
+ int *dimtypes = ncvar->dimtypes;
+
+ int zdimid = CDI_UNDEFID;
+ int xdimidx = CDI_UNDEFID, ydimidx = CDI_UNDEFID;
+
+ for (int i = 0; i < ndims; i++)
+ {
+ // clang-format off
+ if (dimtypes[i] == X_AXIS) xdimidx = i;
+ else if (dimtypes[i] == Y_AXIS) ydimidx = i;
+ else if (dimtypes[i] == Z_AXIS) zdimid = ncvar->dimids[i];
+ // clang-format on
+ }
+
+ if (*xdimid != CDI_UNDEFID && *ydimid != CDI_UNDEFID && zdimid == CDI_UNDEFID)
+ {
+ if (grid->x.size > grid->y.size && grid->y.size < 1000)
+ {
+ dimtypes[ydimidx] = Z_AXIS;
+ *ydimid = CDI_UNDEFID;
+ grid->size = grid->x.size;
+ grid->y.size = 0;
+ }
+ else if (grid->y.size > grid->x.size && grid->x.size < 1000)
+ {
+ dimtypes[xdimidx] = Z_AXIS;
+ *xdimid = *ydimid;
+ *ydimid = CDI_UNDEFID;
+ grid->size = grid->y.size;
+ grid->x.size = grid->y.size;
+ grid->y.size = 0;
+ }
+ }
+
+ if (grid->size != grid->x.size)
+ {
+ Warning("Unsupported array structure, skipped variable %s!", ncvar->name);
+ ncvar->varStatus = UndefVar;
+ return true;
+ }
+
+ if (!readPart)
+ {
+ if (gridInfo->number_of_grid_used != CDI_UNDEFID)
+ cdiDefVarKeyInt(&grid->keys, CDI_KEY_NUMBEROFGRIDUSED, gridInfo->number_of_grid_used);
+ if (ncvar->position > 0) cdiDefVarKeyInt(&grid->keys, CDI_KEY_NUMBEROFGRIDINREFERENCE, ncvar->position);
+ if (!cdiUUIDIsNull(gridInfo->uuid)) cdiDefVarKeyBytes(&grid->keys, CDI_KEY_UUID, gridInfo->uuid, CDI_UUID_SIZE);
+ }
+
+ return false;
+}
+
+static void
+cdf_read_mapping_atts(int ncid, int gmapvarid, int projID)
+{
+ if (cdfCheckAttText(ncid, gmapvarid, "grid_mapping_name"))
+ {
+ char attstring[CDI_MAX_NAME];
+ cdfGetAttText(ncid, gmapvarid, "grid_mapping_name", CDI_MAX_NAME, attstring);
+ cdiDefKeyString(projID, CDI_GLOBAL, CDI_KEY_GRIDMAP_NAME, attstring);
+ }
+
+ int nvatts;
+ cdf_inq_varnatts(ncid, gmapvarid, &nvatts);
+ bool removeFillValue = true;
+ for (int attnum = 0; attnum < nvatts; ++attnum) cdf_set_cdi_attr(ncid, gmapvarid, attnum, projID, CDI_GLOBAL, removeFillValue);
+}
+
+static void
+cdf_set_grid_to_similar_vars(ncvar_t *ncvar1, ncvar_t *ncvar2, int gridtype, int xdimid, int ydimid)
+{
+ if (ncvar2->varStatus == DataVar && ncvar2->gridID == CDI_UNDEFID)
+ {
+ int xdimid2 = CDI_UNDEFID, ydimid2 = CDI_UNDEFID, zdimid2 = CDI_UNDEFID;
+ int xdimidx = CDI_UNDEFID, ydimidx = CDI_UNDEFID;
+
+ const int *dimtypes2 = ncvar2->dimtypes;
+ const int *dimids2 = ncvar2->dimids;
+ int ndims2 = ncvar2->ndims;
+ for (int i = 0; i < ndims2; i++)
+ {
+ if (dimtypes2[i] == X_AXIS)
+ {
+ xdimid2 = dimids2[i];
+ xdimidx = i;
+ }
+ else if (dimtypes2[i] == Y_AXIS)
+ {
+ ydimid2 = dimids2[i];
+ ydimidx = i;
+ }
+ else if (dimtypes2[i] == Z_AXIS)
+ {
+ zdimid2 = dimids2[i];
+ }
+ }
+
+ if (!ncvar2->isCubeSphere)
+ {
+ if (ncvar2->gridtype == CDI_UNDEFID && gridtype == GRID_UNSTRUCTURED)
+ {
+ if (xdimid == xdimid2 && ydimid2 != CDI_UNDEFID && zdimid2 == CDI_UNDEFID)
+ {
+ ncvar2->dimtypes[ydimidx] = Z_AXIS;
+ ydimid2 = CDI_UNDEFID;
+ }
+
+ if (xdimid == ydimid2 && xdimid2 != CDI_UNDEFID && zdimid2 == CDI_UNDEFID)
+ {
+ ncvar2->dimtypes[xdimidx] = Z_AXIS;
+ xdimid2 = ydimid2;
+ ydimid2 = CDI_UNDEFID;
+ }
+ }
+ else if (ncvar2->gridtype == GRID_GAUSSIAN_REDUCED && gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ ydimid = CDI_UNDEFID;
+ }
+ }
+
+ if (xdimid == xdimid2 && (ydimid == ydimid2 || (xdimid == ydimid && ydimid2 == CDI_UNDEFID)))
+ {
+ bool isSameGrid
+ = (ncvar1->xvarid == ncvar2->xvarid && ncvar1->yvarid == ncvar2->yvarid && ncvar1->position == ncvar2->position);
+
+ // if (xvarid != -1 && ncvar2->xvarid != CDI_UNDEFID && xvarid != ncvar2->xvarid) isSameGrid = false;
+ // if (yvarid != -1 && ncvar2->yvarid != CDI_UNDEFID && yvarid != ncvar2->yvarid) isSameGrid = false;
+
+ if (isSameGrid)
+ {
+ if (CDI_Debug) Message("Same gridID %d %s", ncvar1->gridID, ncvar2->name);
+ ncvar2->gridID = ncvar1->gridID;
+ ncvar2->chunkType = ncvar1->chunkType;
+ ncvar2->chunkSize = ncvar1->chunkSize;
+ ncvar2->gridSize = ncvar1->gridSize;
+ }
+ }
+ }
+}
+
+static void
+destroy_grid(struct cdfLazyGrid *lazyGrid, grid_t *grid)
+{
+ if (lazyGrid)
+ {
+ if (CDI_Netcdf_Lazy_Grid_Load) cdfLazyGridDestroy(lazyGrid);
+ if (grid)
+ {
+ grid_free(grid);
+ Free(grid);
+ }
+ }
+}
+
+static int
+cdf_define_all_grids(stream_t *streamptr, ncgrid_t *ncgrid, int vlistID, ncdim_t *ncdims, int nvars, ncvar_t *ncvars,
+ GridInfo *gridInfo)
+{
+ for (int ncvarid = 0; ncvarid < nvars; ++ncvarid)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == DataVar && ncvar->gridID == CDI_UNDEFID)
+ {
+ GridPart gridPart;
+ gridpart_init(&gridPart);
+ int ndims = ncvar->ndims;
+ int *dimtypes = ncvar->dimtypes;
+ int vdimid = CDI_UNDEFID;
+ struct addIfNewRes projAdded = { .Id = CDI_UNDEFID, .isNew = 0 }, gridAdded = { .Id = CDI_UNDEFID, .isNew = 0 };
+ int xdimid = CDI_UNDEFID, ydimid = CDI_UNDEFID;
+ int nydims = cdf_get_xydimid(ndims, ncvar->dimids, dimtypes, &xdimid, &ydimid);
+
+ int xaxisid = (xdimid != CDI_UNDEFID) ? ncdims[xdimid].ncvarid : CDI_UNDEFID;
+ int yaxisid = (ydimid != CDI_UNDEFID) ? ncdims[ydimid].ncvarid : CDI_UNDEFID;
+ int xvarid = (ncvar->xvarid != CDI_UNDEFID) ? ncvar->xvarid : xaxisid;
+ int yvarid = (ncvar->yvarid != CDI_UNDEFID) ? ncvar->yvarid : yaxisid;
+
+ size_t xsize = (xdimid != CDI_UNDEFID) ? ncdims[xdimid].len : 0;
+ size_t ysize = (ydimid != CDI_UNDEFID) ? ncdims[ydimid].len : 0;
+
+ if (ydimid == CDI_UNDEFID && yvarid != CDI_UNDEFID)
+ {
+ if (ncvars[yvarid].ndims == 1)
+ {
+ ydimid = ncvars[yvarid].dimids[0];
+ ysize = ncdims[ydimid].len;
+ }
+ }
+
+ int gmapvarid = ncvar->gmapid;
+ bool lproj = (gmapvarid != CDI_UNDEFID);
+
+ if (!lproj && xaxisid != CDI_UNDEFID && xaxisid != xvarid && yaxisid != CDI_UNDEFID && yaxisid != yvarid) lproj = true;
+
+ if (ncvar->isCubeSphere && lproj && xvarid != CDI_UNDEFID && yvarid != CDI_UNDEFID && ncvars[xvarid].ndims == 3
+ && ncvars[yvarid].ndims == 3)
+ {
+ lproj = false;
+ ncvar->gridtype = GRID_UNSTRUCTURED;
+ xsize = xsize * ysize * 6;
+ ysize = xsize;
+ }
+
+ bool lgrid = !(lproj && ncvar->xvarid == CDI_UNDEFID);
+
+ bool isUnstructured = (xdimid != CDI_UNDEFID && xdimid == ydimid && nydims == 0);
+ if ((ncvar->gridtype == CDI_UNDEFID || ncvar->gridtype == GRID_GENERIC) && isUnstructured)
+ ncvar->gridtype = GRID_UNSTRUCTURED;
+
+ struct cdfLazyGrid *lazyGrid = NULL, *lazyProj = NULL;
+
+ {
+ int gridtype = (!lgrid) ? GRID_PROJECTION : ncvar->gridtype;
+ if (CDI_Netcdf_Lazy_Grid_Load)
+ {
+ cdfLazyGridRenew(&lazyGrid, gridtype);
+ if (lgrid && lproj) cdfLazyGridRenew(&lazyProj, GRID_PROJECTION);
+ }
+ else
+ {
+ cdfBaseGridRenew(&lazyGrid, gridtype);
+ if (lgrid && lproj) cdfBaseGridRenew(&lazyProj, GRID_PROJECTION);
+ }
+ }
+ grid_t *grid = &lazyGrid->base;
+ grid_t *proj = (lgrid && lproj) ? &lazyProj->base : NULL;
+
+ xaxisid = (xdimid != CDI_UNDEFID) ? ncdims[xdimid].ncvarid : CDI_UNDEFID;
+ yaxisid = (ydimid != CDI_UNDEFID) ? ncdims[ydimid].ncvarid : CDI_UNDEFID;
+
+ // process query information if available
+ CdiQuery *query = streamptr->query;
+ if (query)
+ {
+ int numCellidx = cdiQueryNumCellidx(query);
+ if (numCellidx > 0)
+ {
+ // if (ncvar->gridtype != GRID_UNSTRUCTURED)
+ if (xdimid != CDI_UNDEFID && ydimid != CDI_UNDEFID)
+ {
+ Warning("Query parameter cell is only available for 1D grids, skipped variable %s!", ncvar->name);
+ ncvar->varStatus = UndefVar;
+ continue;
+ }
+
+ size_t start = cdiQueryGetCellidx(query, 0);
+ size_t count = (numCellidx == 2) ? cdiQueryGetCellidx(query, 1) : 1;
+ if ((start + count) <= xsize)
+ {
+ cdiQueryCellidx(query, start);
+ if (numCellidx == 2) cdiQueryCellidx(query, count);
+ xsize = count;
+ ysize = count;
+ gridPart.start = start - 1;
+ gridPart.count = count;
+ gridPart.readPart = true;
+ }
+ }
+ }
+
+ if (cdf_read_coordinates(streamptr, lazyGrid, ncvar, ncvars, ncdims, gridInfo->timedimid, xvarid, yvarid, xsize, ysize,
+ &vdimid, &gridPart))
+ continue;
+
+ if (gridInfo->number_of_grid_used != CDI_UNDEFID && (grid->type == CDI_UNDEFID || grid->type == GRID_GENERIC)
+ && xdimid != CDI_UNDEFID && xsize > 999)
+ grid->type = GRID_UNSTRUCTURED;
+
+ if (!ncvar->isCubeSphere && grid->type == GRID_UNSTRUCTURED)
+ if (cdf_set_unstructured_par(ncvar, grid, &xdimid, &ydimid, gridInfo, gridPart.readPart)) continue;
+
+ if (lgrid && lproj)
+ {
+ int dimid;
+ cdf_read_coordinates(streamptr, lazyProj, ncvar, ncvars, ncdims, gridInfo->timedimid, xaxisid, yaxisid, xsize, ysize,
+ &dimid, NULL);
+ }
+
+ if (CDI_Debug)
+ {
+ Message("grid: type = %d, size = %zu, nx = %zu, ny = %zu", grid->type, grid->size, grid->x.size, grid->y.size);
+ if (proj)
+ Message("proj: type = %d, size = %zu, nx = %zu, ny = %zu", proj->type, proj->size, proj->x.size, proj->y.size);
+ }
+
+ if (lgrid && lproj)
+ {
+ projAdded = cdiVlistAddGridIfNew(vlistID, proj, 2);
+ grid->proj = projAdded.Id;
+ }
+
+ gridAdded = cdiVlistAddGridIfNew(vlistID, grid, 1);
+ ncvar->gridID = gridAdded.Id;
+ ncvar->gridSize = grid->size;
+
+ int gridID = ncvar->gridID;
+
+ if (lproj && gmapvarid != CDI_UNDEFID)
+ {
+ bool gridIsNew = lgrid ? projAdded.isNew : gridAdded.isNew;
+ if (gridIsNew)
+ {
+ int projID = lgrid ? grid->proj : gridID;
+ int ncid = ncvars[gmapvarid].ncid;
+ int gmapvartype = ncvars[gmapvarid].xtype;
+ cdiDefKeyInt(projID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARTYPE, gmapvartype);
+ const char *gmapvarname = ncvars[gmapvarid].name;
+ cdf_read_mapping_atts(ncid, gmapvarid, projID);
+ cdiDefKeyString(projID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARNAME, gmapvarname);
+ gridVerifyProj(projID);
+ }
+ }
+
+ if (grid->type == GRID_UNSTRUCTURED && gridInfo->gridfile[0] != 0 && !gridPart.readPart)
+ gridDefReference(gridID, gridInfo->gridfile);
+
+ if (ncvar->isChunked) grid_set_chunktype(grid, ncvar);
+
+ int gridindex = vlistGridIndex(vlistID, gridID);
+ if (gridPart.readPart)
+ {
+ ncgrid[gridindex].start = gridPart.start;
+ ncgrid[gridindex].count = gridPart.count;
+ }
+ ncgrid[gridindex].gridID = gridID;
+ if (grid->type == GRID_TRAJECTORY)
+ {
+ ncgrid[gridindex].ncIDs[CDF_VARID_X] = xvarid;
+ ncgrid[gridindex].ncIDs[CDF_VARID_Y] = yvarid;
+ }
+ else
+ {
+ if (xdimid != CDI_UNDEFID) ncgrid[gridindex].ncIDs[CDF_DIMID_X] = ncdims[xdimid].dimid;
+ if (ydimid != CDI_UNDEFID) ncgrid[gridindex].ncIDs[CDF_DIMID_Y] = ncdims[ydimid].dimid;
+ if (ncvar->isCubeSphere) ncgrid[gridindex].ncIDs[CDF_DIMID_E] = ncdims[ncvar->dimids[ndims - 3]].dimid;
+ }
+
+ if (xdimid == CDI_UNDEFID && ydimid == CDI_UNDEFID && grid->size == 1) gridDefHasDims(gridID, CoordVar);
+
+ if (xdimid != CDI_UNDEFID) cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_DIMNAME, ncdims[xdimid].name);
+ if (ydimid != CDI_UNDEFID) cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_DIMNAME, ncdims[ydimid].name);
+ if (vdimid != CDI_UNDEFID) cdiDefKeyString(gridID, CDI_GLOBAL, CDI_KEY_VDIMNAME, ncdims[vdimid].name);
+
+ if (xvarid != CDI_UNDEFID && ncvars[xvarid].stdname[0])
+ cdiDefKeyString(gridID, CDI_XAXIS, CDI_KEY_STDNAME, ncvars[xvarid].stdname);
+ if (yvarid != CDI_UNDEFID && ncvars[yvarid].stdname[0])
+ cdiDefKeyString(gridID, CDI_YAXIS, CDI_KEY_STDNAME, ncvars[yvarid].stdname);
+
+ if (CDI_Debug) Message("gridID %d %d %s", gridID, ncvarid, ncvar->name);
+
+ for (int ncvarid2 = ncvarid + 1; ncvarid2 < nvars; ncvarid2++)
+ cdf_set_grid_to_similar_vars(ncvar, &ncvars[ncvarid2], grid->type, xdimid, ydimid);
+
+ if (gridAdded.isNew) lazyGrid = NULL;
+ if (projAdded.isNew) lazyProj = NULL;
+
+ if (lazyGrid) destroy_grid(lazyGrid, grid);
+ if (lazyProj) destroy_grid(lazyProj, proj);
+ }
+ }
+
+ return 0;
+}
+
+// define all input zaxes
+static int
+cdf_define_all_zaxes(stream_t *streamptr, int vlistID, ncdim_t *ncdims, int nvars, ncvar_t *ncvars, size_t vctsize_echam,
+ double *vct_echam, unsigned char *uuidOfVGrid)
+{
+ char *pname, *plongname, *punits, *pstdname;
+ size_t vctsize = vctsize_echam;
+ double *vct = vct_echam;
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == DataVar && ncvar->zaxisID == CDI_UNDEFID)
+ {
+ bool isScalar = false;
+ bool withBounds = false;
+ int zdimid = CDI_UNDEFID;
+ int zvarid = CDI_UNDEFID;
+ size_t zsize = 1;
+ int psvarid = -1;
+ int p0varid = -1;
+
+ int positive = 0;
+ int ndims = ncvar->ndims;
+
+ if (ncvar->zvarid != -1 && ncvars[ncvar->zvarid].ndims == 0)
+ {
+ zvarid = ncvar->zvarid;
+ isScalar = true;
+ }
+ else
+ {
+ for (int i = 0; i < ndims; i++)
+ {
+ if (ncvar->dimtypes[i] == Z_AXIS) zdimid = ncvar->dimids[i];
+ }
+
+ if (zdimid != CDI_UNDEFID)
+ {
+ // zvarid = ncdims[zdimid].ncvarid;
+ zvarid = (ncvar->zvarid != CDI_UNDEFID) ? ncvar->zvarid : ncdims[zdimid].ncvarid;
+ zsize = ncdims[zdimid].len;
+ }
+ }
+
+ if (CDI_Debug) Message("nlevs = %zu", zsize);
+
+ double *zvar = NULL;
+ char **zcvals = NULL;
+ size_t zclength = 0;
+
+ int zaxisType = CDI_UNDEFID;
+ if (zvarid != CDI_UNDEFID) zaxisType = ncvars[zvarid].zaxistype;
+ if (zaxisType == CDI_UNDEFID) zaxisType = ZAXIS_GENERIC;
+
+ int zdatatype = CDI_DATATYPE_FLT64;
+ double *lbounds = NULL;
+ double *ubounds = NULL;
+
+ if (zvarid != CDI_UNDEFID)
+ {
+ positive = ncvars[zvarid].positive;
+ pname = ncvars[zvarid].name;
+ plongname = ncvars[zvarid].longname;
+ punits = ncvars[zvarid].units;
+ pstdname = ncvars[zvarid].stdname;
+ // clang-format off
+ if (ncvars[zvarid].xtype == NC_FLOAT) zdatatype = CDI_DATATYPE_FLT32;
+ else if (ncvars[zvarid].xtype == NC_INT) zdatatype = CDI_DATATYPE_INT32;
+ else if (ncvars[zvarid].xtype == NC_SHORT) zdatatype = CDI_DATATYPE_INT16;
+ // clang-format on
+ // don't change the name !!!
+ /*
+ if ((len = strlen(pname)) > 2)
+ if (pname[len-2] == '_' && isdigit((int) pname[len-1])) pname[len-2] = 0;
+ */
+#ifndef USE_MPI
+ if (zaxisType == ZAXIS_CHAR && ncvars[zvarid].ndims == 2)
+ {
+ zdatatype = CDI_DATATYPE_UINT8;
+ zclength = ncdims[ncvars[zvarid].dimids[1]].len;
+ cdf_load_cvals(zsize * zclength, zvarid, ncvar, &zcvals, zsize);
+ }
+#endif
+
+ if ((zaxisType == ZAXIS_HYBRID || zaxisType == ZAXIS_HYBRID_HALF) && ncvars[zvarid].vct)
+ {
+ vct = ncvars[zvarid].vct;
+ vctsize = ncvars[zvarid].vctsize;
+
+ if (ncvars[zvarid].psvarid != -1) psvarid = ncvars[zvarid].psvarid;
+ if (ncvars[zvarid].p0varid != -1) p0varid = ncvars[zvarid].p0varid;
+ }
+
+ if (zaxisType != ZAXIS_CHAR)
+ {
+ zvar = (double *) Malloc(zsize * sizeof(double));
+ cdf_get_var_double(ncvars[zvarid].ncid, zvarid, zvar);
+ }
+
+ if (ncvars[zvarid].bounds != CDI_UNDEFID)
+ {
+ int nbdims = ncvars[ncvars[zvarid].bounds].ndims;
+ if (nbdims == 2 || isScalar)
+ {
+ size_t nlevel = isScalar ? 1 : ncdims[ncvars[ncvars[zvarid].bounds].dimids[0]].len;
+ int nvertex = (int) ncdims[ncvars[ncvars[zvarid].bounds].dimids[1 - isScalar]].len;
+ if (nlevel == zsize && nvertex == 2)
+ {
+ withBounds = true;
+ lbounds = (double *) Malloc(4 * nlevel * sizeof(double));
+ ubounds = lbounds + nlevel;
+ double *zbounds = lbounds + 2 * nlevel;
+ cdf_get_var_double(ncvars[zvarid].ncid, ncvars[zvarid].bounds, zbounds);
+ for (size_t i = 0; i < nlevel; ++i)
+ {
+ lbounds[i] = zbounds[i * 2];
+ ubounds[i] = zbounds[i * 2 + 1];
+ }
+ }
+ }
+ }
+ }
+ else
+ {
+ pname = (zdimid != CDI_UNDEFID) ? ncdims[zdimid].name : NULL;
+ plongname = NULL;
+ punits = NULL;
+ pstdname = NULL;
+
+ if (zsize == 1 && zdimid == CDI_UNDEFID)
+ {
+ zaxisType = (ncvar->zaxistype != CDI_UNDEFID) ? ncvar->zaxistype : ZAXIS_SURFACE;
+ // if ( pname )
+ {
+ zvar = (double *) Malloc(sizeof(double));
+ zvar[0] = 0;
+ }
+ }
+ }
+
+ if (zsize > INT_MAX)
+ {
+ Warning("Size limit exceeded for z-axis dimension (limit=%d)!", INT_MAX);
+ return CDI_EDIMSIZE;
+ }
+
+ ncvar->numLevels = zsize;
+ ncvar->zaxisID = varDefZaxis(vlistID, zaxisType, (int) zsize, zvar, (const char **) zcvals, zclength, withBounds, lbounds,
+ ubounds, (int) vctsize, vct, pname, plongname, punits, zdatatype, 1, 0, -1);
+
+ int zaxisID = ncvar->zaxisID;
+
+ if (CDI_CMOR_Mode && zsize == 1 && zaxisType != ZAXIS_HYBRID) zaxisDefScalar(zaxisID);
+
+ if (pstdname && *pstdname)
+ cdiDefKeyBytes(zaxisID, CDI_GLOBAL, CDI_KEY_STDNAME, (const unsigned char *) pstdname, (int) strlen(pstdname) + 1);
+
+ if (!cdiUUIDIsNull(uuidOfVGrid)) cdiDefKeyBytes(zaxisID, CDI_GLOBAL, CDI_KEY_UUID, uuidOfVGrid, CDI_UUID_SIZE);
+
+ if (zaxisType == ZAXIS_HYBRID)
+ {
+ if (psvarid != -1) cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_PSNAME, ncvars[psvarid].name);
+ if (p0varid != -1)
+ {
+ double px = 1;
+ cdf_get_var_double(ncvars[p0varid].ncid, p0varid, &px);
+ cdiDefKeyFloat(zaxisID, CDI_GLOBAL, CDI_KEY_P0VALUE, px);
+ cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_P0NAME, ncvars[p0varid].name);
+ }
+ }
+
+ if (positive > 0) zaxisDefPositive(zaxisID, positive);
+ if (isScalar) zaxisDefScalar(zaxisID);
+
+ if (zdimid != CDI_UNDEFID) cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_DIMNAME, ncdims[zdimid].name);
+
+ if (zvar) Free(zvar);
+ if (zcvals)
+ {
+ for (size_t i = 0; i < zsize; i++) Free(zcvals[i]);
+ Free(zcvals);
+ }
+ if (lbounds) Free(lbounds);
+
+ if (zvarid != CDI_UNDEFID)
+ {
+ int ncid = ncvars[zvarid].ncid;
+ int nvatts = ncvars[zvarid].natts;
+ for (int iatt = 0; iatt < nvatts; ++iatt)
+ {
+ int attnum = ncvars[zvarid].atts[iatt];
+ cdf_set_cdi_attr(ncid, zvarid, attnum, zaxisID, CDI_GLOBAL, false);
+ }
+ }
+
+ int zaxisindex = vlistZaxisIndex(vlistID, zaxisID);
+ streamptr->zaxisID[zaxisindex] = zdimid >= 0 ? ncdims[zdimid].dimid : zdimid;
+
+ if (CDI_Debug) Message("zaxisID %d %d %s", zaxisID, ncvarid, ncvar->name);
+
+ for (int ncvarid2 = ncvarid + 1; ncvarid2 < nvars; ncvarid2++)
+ if (ncvars[ncvarid2].varStatus == DataVar
+ && ncvars[ncvarid2].zaxisID == CDI_UNDEFID /*&& ncvars[ncvarid2].zaxistype == CDI_UNDEFID*/)
+ {
+ int zvarid2 = CDI_UNDEFID;
+ if (ncvars[ncvarid2].zvarid != CDI_UNDEFID && ncvars[ncvars[ncvarid2].zvarid].ndims == 0)
+ zvarid2 = ncvars[ncvarid2].zvarid;
+
+ int zdimid2 = CDI_UNDEFID;
+ ndims = ncvars[ncvarid2].ndims;
+ for (int i = 0; i < ndims; i++)
+ {
+ if (ncvars[ncvarid2].dimtypes[i] == Z_AXIS) zdimid2 = ncvars[ncvarid2].dimids[i];
+ }
+
+ if (zdimid == zdimid2 /* && zvarid == zvarid2 */)
+ {
+ if ((zdimid != CDI_UNDEFID && ncvars[ncvarid2].zaxistype == CDI_UNDEFID)
+ || (zdimid == CDI_UNDEFID && zvarid != CDI_UNDEFID && zvarid == zvarid2)
+ || (zdimid == CDI_UNDEFID && zaxisType == ncvars[ncvarid2].zaxistype)
+ || (zdimid == CDI_UNDEFID && zvarid2 == CDI_UNDEFID && ncvars[ncvarid2].zaxistype == CDI_UNDEFID))
+ {
+ if (CDI_Debug) Message("zaxisID %d %d %s", zaxisID, ncvarid2, ncvars[ncvarid2].name);
+ ncvars[ncvarid2].zaxisID = zaxisID;
+ }
+ }
+ }
+ }
+ }
+
+ return 0;
+}
+
+struct cdf_varinfo
+{
+ int varid;
+ const char *name;
+};
+
+static int
+cdf_cmp_varname(const void *s1, const void *s2)
+{
+ const struct cdf_varinfo *x = (const struct cdf_varinfo *) s1, *y = (const struct cdf_varinfo *) s2;
+ return strcmp(x->name, y->name);
+}
+
+static void
+cdf_sort_varnames(int *varids, int nvars, const ncvar_t *ncvars)
+{
+ struct cdf_varinfo *varInfo = (struct cdf_varinfo *) Malloc((size_t) nvars * sizeof(struct cdf_varinfo));
+
+ for (int varID = 0; varID < nvars; varID++)
+ {
+ int ncvarid = varids[varID];
+ varInfo[varID].varid = ncvarid;
+ varInfo[varID].name = ncvars[ncvarid].name;
+ }
+ qsort(varInfo, (size_t) nvars, sizeof(varInfo[0]), cdf_cmp_varname);
+ for (int varID = 0; varID < nvars; varID++)
+ {
+ varids[varID] = varInfo[varID].varid;
+ }
+ Free(varInfo);
+ if (CDI_Debug)
+ for (int i = 0; i < nvars; i++) Message("sorted varids[%d] = %d", i, varids[i]);
+}
+
+static void
+cdf_define_code_and_param(int vlistID, int varID)
+{
+ if (vlistInqVarCode(vlistID, varID) == -varID - 1)
+ {
+ char name[CDI_MAX_NAME];
+ name[0] = 0;
+ vlistInqVarName(vlistID, varID, name);
+ size_t len = strlen(name);
+ if (len > 3 && isdigit((int) name[3]))
+ {
+ if (strStartsWith(name, "var")) vlistDefVarCode(vlistID, varID, atoi(name + 3));
+ }
+ else if (len > 4 && isdigit((int) name[4]))
+ {
+ if (strStartsWith(name, "code")) vlistDefVarCode(vlistID, varID, atoi(name + 4));
+ }
+ else if (len > 5 && isdigit((int) name[5]))
+ {
+ if (strStartsWith(name, "param"))
+ {
+ int pnum = -1, pcat = 255, pdis = 255;
+ sscanf(name + 5, "%d.%d.%d", &pnum, &pcat, &pdis);
+ vlistDefVarParam(vlistID, varID, cdiEncodeParam(pnum, pcat, pdis));
+ }
+ }
+ }
+}
+
+static void
+cdf_define_institut_and_model_id(int vlistID, int varID)
+{
+ int varInstID = vlistInqVarInstitut(vlistID, varID);
+ int varModelID = vlistInqVarModel(vlistID, varID);
+ int varTableID = vlistInqVarTable(vlistID, varID);
+ int code = vlistInqVarCode(vlistID, varID);
+ if (CDI_Default_TableID != CDI_UNDEFID)
+ {
+ char name[CDI_MAX_NAME];
+ name[0] = 0;
+ char longname[CDI_MAX_NAME];
+ longname[0] = 0;
+ char units[CDI_MAX_NAME];
+ units[0] = 0;
+ tableInqEntry(CDI_Default_TableID, code, -1, name, longname, units);
+ if (name[0])
+ {
+ cdiDeleteKey(vlistID, varID, CDI_KEY_NAME);
+ cdiDeleteKey(vlistID, varID, CDI_KEY_LONGNAME);
+ cdiDeleteKey(vlistID, varID, CDI_KEY_UNITS);
+
+ if (varTableID != CDI_UNDEFID)
+ {
+ cdiDefKeyString(vlistID, varID, CDI_KEY_NAME, name);
+ if (longname[0]) cdiDefKeyString(vlistID, varID, CDI_KEY_LONGNAME, longname);
+ if (units[0]) cdiDefKeyString(vlistID, varID, CDI_KEY_UNITS, units);
+ }
+ else
+ {
+ varTableID = CDI_Default_TableID;
+ }
+ }
+
+ if (CDI_Default_ModelID != CDI_UNDEFID) varModelID = CDI_Default_ModelID;
+ if (CDI_Default_InstID != CDI_UNDEFID) varInstID = CDI_Default_InstID;
+ }
+ if (varInstID != CDI_UNDEFID) vlistDefVarInstitut(vlistID, varID, varInstID);
+ if (varModelID != CDI_UNDEFID) vlistDefVarModel(vlistID, varID, varModelID);
+ if (varTableID != CDI_UNDEFID) vlistDefVarTable(vlistID, varID, varTableID);
+}
+
+static int
+cdf_xtype_to_numbytes(int xtype)
+{
+ int numBytes = 8;
+
+ // clang-format off
+ if (xtype == NC_BYTE ) numBytes = 1;
+ else if (xtype == NC_CHAR ) numBytes = 1;
+ else if (xtype == NC_SHORT ) numBytes = 2;
+ else if (xtype == NC_INT ) numBytes = 4;
+ else if (xtype == NC_FLOAT ) numBytes = 4;
+#ifdef HAVE_NETCDF4
+ else if (xtype == NC_UBYTE ) numBytes = 1;
+ else if (xtype == NC_USHORT) numBytes = 2;
+ else if (xtype == NC_LONG ) numBytes = 4;
+ else if (xtype == NC_UINT ) numBytes = 4;
+#endif
+ // clang-format on
+
+ return numBytes;
+}
+
+static size_t
+calc_chunk_cache_size(int timedimid, ncvar_t *ncvar)
+{
+ size_t chunkCacheSize = ncvar->gridSize;
+
+ chunkCacheSize *= (ncvar->dimids[0] == timedimid) ? ncvar->chunks[0] : 1;
+
+ for (int i = 0; i < ncvar->ndims; i++)
+ {
+ if (ncvar->dimtypes[i] == Z_AXIS)
+ {
+ chunkCacheSize *= ncvar->chunks[i];
+ break;
+ }
+ }
+
+ chunkCacheSize *= cdf_xtype_to_numbytes(ncvar->xtype);
+
+ if (CDI_Chunk_Cache_Max > 0 && chunkCacheSize > CDI_Chunk_Cache_Max) chunkCacheSize = CDI_Chunk_Cache_Max;
+
+ return chunkCacheSize;
+}
+
+static void
+cdf_set_var_chunk_cache(ncvar_t *ncvar, int ncvarid, size_t chunkCacheSize)
+{
+ if (CDI_Debug) Message("%s: chunkCacheSize=%zu", ncvar->name, chunkCacheSize);
+ nc_set_var_chunk_cache(ncvar->ncid, ncvarid, chunkCacheSize, ncvar->chunkCacheNelems, ncvar->chunkCachePreemption);
+}
+
+// define all input data variables
+static void
+cdf_define_all_vars(stream_t *streamptr, int vlistID, int instID, int modelID, int nvars, int num_ncvars, ncvar_t *ncvars,
+ ncdim_t *ncdims, int timedimid)
+{
+ int *varids = (int *) Malloc((size_t) nvars * sizeof(int));
+ int n = 0;
+ for (int ncvarid = 0; ncvarid < num_ncvars; ncvarid++)
+ if (ncvars[ncvarid].varStatus == DataVar) varids[n++] = ncvarid;
+
+ if (CDI_Debug)
+ for (int i = 0; i < nvars; i++) Message("varids[%d] = %d", i, varids[i]);
+
+ if (streamptr->sortname) cdf_sort_varnames(varids, nvars, ncvars);
+
+ for (int varID1 = 0; varID1 < nvars; varID1++)
+ {
+ int ncvarid = varids[varID1];
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ int gridID = ncvar->gridID;
+ int zaxisID = ncvar->zaxisID;
+
+ stream_new_var(streamptr, gridID, zaxisID, CDI_UNDEFID);
+ int varID = vlistDefVar(vlistID, gridID, zaxisID, ncvar->timetype);
+
+#ifdef HAVE_NETCDF4
+ if (ncvar->hasFilter) vlistDefVarCompType(vlistID, varID, CDI_COMPRESS_FILTER);
+ if (ncvar->hasDeflate) vlistDefVarCompType(vlistID, varID, CDI_COMPRESS_ZIP);
+ if (ncvar->hasSzip) vlistDefVarCompType(vlistID, varID, CDI_COMPRESS_SZIP);
+ if (ncvar->isChunked)
+ {
+ if (ncvar->chunkType != CDI_UNDEFID) cdiDefKeyInt(vlistID, varID, CDI_KEY_CHUNKTYPE, ncvar->chunkType);
+ if (ncvar->chunkSize > 1) cdiDefKeyInt(vlistID, varID, CDI_KEY_CHUNKSIZE, ncvar->chunkSize);
+
+ size_t varChunkCacheSize = calc_chunk_cache_size(timedimid, ncvar);
+ if (CDI_Chunk_Cache > 0)
+ cdf_set_var_chunk_cache(ncvar, ncvarid, CDI_Chunk_Cache);
+ else if (varChunkCacheSize > ncvar->chunkCacheSize)
+ cdf_set_var_chunk_cache(ncvar, ncvarid, varChunkCacheSize);
+ }
+#endif
+
+ streamptr->vars[varID1].defmiss = false;
+ streamptr->vars[varID1].ncvarid = ncvarid;
+
+ cdiDefKeyString(vlistID, varID, CDI_KEY_NAME, ncvar->name);
+ if (ncvar->param != CDI_UNDEFID) vlistDefVarParam(vlistID, varID, ncvar->param);
+ if (ncvar->code != CDI_UNDEFID) vlistDefVarCode(vlistID, varID, ncvar->code);
+ if (ncvar->code != CDI_UNDEFID) vlistDefVarParam(vlistID, varID, cdiEncodeParam(ncvar->code, ncvar->tabnum, 255));
+ if (ncvar->longname[0]) cdiDefKeyString(vlistID, varID, CDI_KEY_LONGNAME, ncvar->longname);
+ if (ncvar->stdname[0]) cdiDefKeyString(vlistID, varID, CDI_KEY_STDNAME, ncvar->stdname);
+ if (ncvar->unitsLen > 0) cdiDefKeyString(vlistID, varID, CDI_KEY_UNITS, ncvar->units);
+
+ if (ncvar->validrangeDefined) vlistDefVarValidrange(vlistID, varID, ncvar->validrange);
+
+ if (IS_NOT_EQUAL(ncvar->addoffset, 0.0)) cdiDefKeyFloat(vlistID, varID, CDI_KEY_ADDOFFSET, ncvar->addoffset);
+ if (IS_NOT_EQUAL(ncvar->scalefactor, 1.0)) cdiDefKeyFloat(vlistID, varID, CDI_KEY_SCALEFACTOR, ncvar->scalefactor);
+
+ vlistDefVarDatatype(vlistID, varID, cdfInqDatatype(streamptr, ncvar->xtype, ncvar->isUnsigned));
+
+ vlistDefVarInstitut(vlistID, varID, instID);
+ vlistDefVarModel(vlistID, varID, modelID);
+ if (ncvar->tableID != CDI_UNDEFID) vlistDefVarTable(vlistID, varID, ncvar->tableID);
+
+ if (ncvar->fillvalDefined == false && ncvar->missvalDefined)
+ {
+ ncvar->fillvalDefined = true;
+ ncvar->fillval = ncvar->missval;
+ }
+
+ if (ncvar->fillvalDefined) vlistDefVarMissval(vlistID, varID, ncvar->fillval);
+
+ if (CDI_Debug)
+ Message("varID = %d gridID = %d zaxisID = %d", varID, vlistInqVarGrid(vlistID, varID), vlistInqVarZaxis(vlistID, varID));
+
+ int gridindex = vlistGridIndex(vlistID, gridID);
+ int xdimid = streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_X];
+ int ydimid = streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_Y];
+
+ int zaxisindex = vlistZaxisIndex(vlistID, zaxisID);
+ int zdimid = streamptr->zaxisID[zaxisindex];
+
+ int ndims = ncvar->ndims;
+ static const int ipow10[4] = { 1, 10, 100, 1000 };
+
+ int iodim = (ncvar->timetype != TIME_CONSTANT);
+
+ const int *dimids = ncvar->dimids;
+
+ int ixyz = 0;
+ if ((ndims - iodim) <= 2 && (ydimid == xdimid || ydimid == CDI_UNDEFID))
+ {
+ ixyz = (xdimid == ncdims[dimids[ndims - 1]].dimid) ? 321 : 213;
+ }
+ else
+ {
+ for (int idim = iodim; idim < ndims; idim++)
+ {
+ int dimid = ncdims[dimids[idim]].dimid;
+ // clang-format off
+ if (xdimid == dimid) ixyz += 1 * ipow10[ndims - idim - 1];
+ else if (ydimid == dimid) ixyz += 2 * ipow10[ndims - idim - 1];
+ else if (zdimid == dimid) ixyz += 3 * ipow10[ndims - idim - 1];
+ // clang-format on
+ }
+ }
+
+ if (ncvar->isCubeSphere) ixyz = 0;
+ vlistDefVarXYZ(vlistID, varID, ixyz);
+ /*
+ printf("ixyz %d\n", ixyz);
+ printf("ndims %d\n", ncvar->ndims);
+ for (int i = 0; i < ncvar->ndims; ++i)
+ printf("dimids: %d %d\n", i, dimids[i]);
+ printf("xdimid, ydimid %d %d\n", xdimid, ydimid);
+ */
+ if (ncvar->numberOfForecastsInEnsemble != -1)
+ {
+ cdiDefKeyInt(vlistID, varID, CDI_KEY_NUMBEROFFORECASTSINENSEMBLE, ncvar->numberOfForecastsInEnsemble);
+ cdiDefKeyInt(vlistID, varID, CDI_KEY_PERTURBATIONNUMBER, ncvar->perturbationNumber);
+ if (ncvar->numberOfForecastsInEnsemble != -1)
+ cdiDefKeyInt(vlistID, varID, CDI_KEY_TYPEOFENSEMBLEFORECAST, ncvar->typeOfEnsembleForecast);
+ }
+
+ if (ncvar->extra[0] != 0) cdiDefKeyString(vlistID, varID, CDI_KEY_CHUNKS, ncvar->extra);
+ }
+
+ for (int varID = 0; varID < nvars; varID++)
+ {
+ int ncvarid = varids[varID];
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ int ncid = ncvar->ncid;
+ int nvatts = ncvar->natts;
+ for (int iatt = 0; iatt < nvatts; ++iatt) cdf_set_cdi_attr(ncid, ncvarid, ncvar->atts[iatt], vlistID, varID, false);
+
+ if (ncvar->atts) Free(ncvar->atts);
+ if (ncvar->vct) Free(ncvar->vct);
+
+ ncvar->atts = NULL;
+ ncvar->vct = NULL;
+ }
+
+ // release mem of not freed attributes
+ for (int ncvarid = 0; ncvarid < num_ncvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->atts) Free(ncvar->atts);
+ ncvar->atts = NULL;
+ }
+
+ if (varids) Free(varids);
+
+ for (int varID = 0; varID < nvars; varID++) cdf_define_code_and_param(vlistID, varID);
+ for (int varID = 0; varID < nvars; varID++) cdf_define_institut_and_model_id(vlistID, varID);
+}
+
+static void
+cdf_copy_attint(int fileID, int vlistID, nc_type xtype, size_t attlen, char *attname)
+{
+ int attint[8];
+ int *pattint = (attlen > 8) ? (int *) malloc(attlen * sizeof(int)) : attint;
+ cdfGetAttInt(fileID, NC_GLOBAL, attname, attlen, pattint);
+ int datatype = (xtype == NC_SHORT) ? CDI_DATATYPE_INT16 : CDI_DATATYPE_INT32;
+ cdiDefAttInt(vlistID, CDI_GLOBAL, attname, datatype, (int) attlen, pattint);
+ if (attlen > 8) free(pattint);
+}
+
+static void
+cdf_copy_attflt(int fileID, int vlistID, nc_type xtype, size_t attlen, char *attname)
+{
+ double attflt[8];
+ double *pattflt = (attlen > 8) ? (double *) malloc(attlen * sizeof(double)) : attflt;
+ cdfGetAttDouble(fileID, NC_GLOBAL, attname, attlen, pattflt);
+ int datatype = (xtype == NC_FLOAT) ? CDI_DATATYPE_FLT32 : CDI_DATATYPE_FLT64;
+ cdiDefAttFlt(vlistID, CDI_GLOBAL, attname, datatype, (int) attlen, pattflt);
+ if (attlen > 8) free(pattflt);
+}
+
+static bool
+check_cube_sphere(int vlistID, int nvars, ncvar_t *ncvars, ncdim_t *ncdims)
+{
+ bool isGeosData = false;
+ int numNames = 4;
+ const char *attnames[] = { "additional_vars", "file_format_version", "gridspec_file", "grid_mapping_name" };
+ const char *grid_mapping = "gnomonic cubed-sphere";
+ char attstring[256];
+ int nf_dimid = -1, ncontact_dimid = -1;
+
+ int numFound = 0;
+ for (int i = 0; i < numNames; ++i)
+ if (0 == cdiInqAttTxt(vlistID, CDI_GLOBAL, attnames[i], (int) sizeof(attstring), attstring)) numFound++;
+
+ if (numFound == numNames && strStartsWith(attstring, grid_mapping))
+ {
+ for (int i = 0; i < numNames; ++i) cdiDelAtt(vlistID, CDI_GLOBAL, attnames[i]);
+
+ const char *nf_name = "nf";
+ const char *ncontact_name = "ncontact";
+ for (int varid = 0; varid < nvars; ++varid)
+ {
+ ncvar_t *ncvar = &ncvars[varid];
+ if (ncvar->ndims == 1)
+ {
+ int dimid = ncvar->dimids[0];
+ if (ncdims[dimid].len == 6 && str_is_equal(nf_name, ncvar->name))
+ {
+ isGeosData = true;
+ nf_dimid = ncvar->dimids[0];
+ }
+ if (ncdims[dimid].len == 4 && str_is_equal(ncontact_name, ncvar->name)) ncontact_dimid = ncvar->dimids[0];
+ }
+ if (isGeosData && ncontact_dimid != -1) break;
+ }
+ }
+
+ if (isGeosData)
+ {
+ ncdims[nf_dimid].dimtype = E_AXIS;
+ for (int varid = 0; varid < nvars; ++varid)
+ {
+ ncvar_t *ncvar = &ncvars[varid];
+ if (str_is_equal("orientation", ncvar->name) || str_is_equal("anchor", ncvar->name)
+ || str_is_equal("contacts", ncvar->name))
+ cdf_set_var(ncvar, CoordVar);
+ }
+
+ for (int varid = 0; varid < nvars; ++varid)
+ {
+ ncvar_t *ncvar = &ncvars[varid];
+ int ndims = ncvar->ndims;
+ if (ndims >= 3 && ncvar->dimids[ndims - 3] == nf_dimid && ncvar->ncoordvars == 2 && ncvar->gmapid != -1)
+ ncvar->isCubeSphere = true;
+ }
+
+ int xvarid = -1, yvarid = -1;
+ int xboundsid = -1, yboundsid = -1;
+ for (int varid = 0; varid < nvars; ++varid)
+ {
+ ncvar_t *ncvar = &ncvars[varid];
+ int ndims = ncvar->ndims;
+ if (ndims == 3)
+ {
+ // clang-format off
+ if (str_is_equal("lons", ncvar->name)) xvarid = varid;
+ else if (str_is_equal("lats", ncvar->name)) yvarid = varid;
+ else if (str_is_equal("corner_lons", ncvar->name)) xboundsid = varid;
+ else if (str_is_equal("corner_lats", ncvar->name)) yboundsid = varid;
+ // clang-format on
+ }
+ if (xvarid != -1 && xboundsid != -1 && yvarid != -1 && yboundsid != -1)
+ {
+ cdf_set_var(&ncvars[xboundsid], CoordVar);
+ cdf_set_var(&ncvars[yboundsid], CoordVar);
+ ncvars[xvarid].bounds = xboundsid;
+ ncvars[yvarid].bounds = yboundsid;
+ break;
+ }
+ }
+ }
+
+ return isGeosData;
+}
+
+static void
+cdf_scan_global_attr(int fileID, int vlistID, int ngatts, int *instID, int *modelID, bool *ucla_les, unsigned char *uuidOfVGrid,
+ GridInfo *gridInfo)
+{
+ nc_type xtype = 0;
+ size_t attlen = 0;
+ char attname[CDI_MAX_NAME] = { 0 };
+
+ for (int iatt = 0; iatt < ngatts; iatt++)
+ {
+ cdf_inq_attname(fileID, NC_GLOBAL, iatt, attname);
+ cdf_inq_atttype(fileID, NC_GLOBAL, attname, &xtype);
+ cdf_inq_attlen(fileID, NC_GLOBAL, attname, &attlen);
+
+ if (xtypeIsText(xtype))
+ {
+ enum
+ {
+ attstringsize = 65636
+ };
+ char attstring[attstringsize] = { 0 };
+
+ cdfGetAttText(fileID, NC_GLOBAL, attname, attstringsize, attstring);
+
+ size_t attstrlen = strlen(attstring);
+
+ if (attlen > 0 && attstring[0] != 0)
+ {
+ if (str_is_equal(attname, "institution"))
+ {
+ *instID = institutInq(0, 0, NULL, attstring);
+ if (*instID == CDI_UNDEFID) *instID = institutDef(0, 0, NULL, attstring);
+
+ cdiDefAttTxt(vlistID, CDI_GLOBAL, attname, (int) attstrlen, attstring);
+ }
+ else if (str_is_equal(attname, "source"))
+ {
+ *modelID = modelInq(-1, 0, attstring);
+ if (*modelID == CDI_UNDEFID) *modelID = modelDef(-1, 0, attstring);
+
+ cdiDefAttTxt(vlistID, CDI_GLOBAL, attname, (int) attstrlen, attstring);
+ }
+ else if (str_is_equal(attname, "Source") && strStartsWith(attstring, "UCLA-LES"))
+ {
+ *ucla_les = true;
+ cdiDefAttTxt(vlistID, CDI_GLOBAL, attname, (int) attstrlen, attstring);
+ }
+ /*
+ else if ( str_is_equal(attname, "Conventions") )
+ {
+ }
+ */
+ else if (str_is_equal(attname, "_NCProperties"))
+ {
+ }
+ else if (str_is_equal(attname, "CDI"))
+ {
+ }
+ else if (str_is_equal(attname, "CDO"))
+ {
+ }
+ /*
+ else if ( str_is_equal(attname, "forecast_reference_time") )
+ {
+ memcpy(fcreftime, attstring, attstrlen+1);
+ }
+ */
+ else if (str_is_equal(attname, "grid_file_uri"))
+ {
+ memcpy(gridInfo->gridfile, attstring, attstrlen + 1);
+ }
+ else if (attstrlen == 36 && str_is_equal(attname, "uuidOfHGrid"))
+ {
+ cdiStr2UUID(attstring, gridInfo->uuid);
+ }
+ else if (attstrlen == 36 && str_is_equal(attname, "uuidOfVGrid"))
+ {
+ cdiStr2UUID(attstring, uuidOfVGrid);
+ }
+ else
+ {
+ if (str_is_equal(attname, "ICON_grid_file_uri") && gridInfo->gridfile[0] == 0)
+ memcpy(gridInfo->gridfile, attstring, attstrlen + 1);
+
+ cdiDefAttTxt(vlistID, CDI_GLOBAL, attname, (int) attstrlen, attstring);
+ }
+ }
+ else
+ {
+ cdiDefAttTxt(vlistID, CDI_GLOBAL, attname, (int) attstrlen, attstring);
+ }
+ }
+ else if (xtype == NC_SHORT || xtype == NC_INT)
+ {
+ if (str_is_equal(attname, "number_of_grid_used"))
+ {
+ gridInfo->number_of_grid_used = CDI_UNDEFID;
+ cdfGetAttInt(fileID, NC_GLOBAL, attname, 1, &gridInfo->number_of_grid_used);
+ }
+ else
+ {
+ cdf_copy_attint(fileID, vlistID, xtype, attlen, attname);
+ }
+ }
+ else if (xtype == NC_FLOAT || xtype == NC_DOUBLE)
+ {
+ cdf_copy_attflt(fileID, vlistID, xtype, attlen, attname);
+ }
+ }
+}
+
+static int
+find_leadtime(int nvars, ncvar_t *ncvars, int timedimid)
+{
+ int leadtime_id = CDI_UNDEFID;
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->ndims == 1 && timedimid == ncvar->dimids[0])
+ if (ncvar->stdname[0] && str_is_equal(ncvar->stdname, "forecast_period"))
+ {
+ leadtime_id = ncvarid;
+ break;
+ }
+ }
+
+ return leadtime_id;
+}
+
+static void
+find_time_vars(int nvars, ncvar_t *ncvars, ncdim_t *ncdims, int timedimid, stream_t *streamptr, bool *timeHasUnits,
+ bool *timeHasBounds, bool *timeClimatology)
+{
+ int ncvarid;
+
+ if (timedimid == CDI_UNDEFID)
+ {
+ char timeUnitsStr[CDI_MAX_NAME];
+
+ for (ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->ndims == 0 && ncvar->units[0] && str_is_equal(ncvar->name, "time"))
+ {
+ strcpy(timeUnitsStr, ncvar->units);
+ str_to_lower(timeUnitsStr);
+
+ if (is_time_units(timeUnitsStr))
+ {
+ streamptr->basetime.ncvarid = ncvarid;
+ break;
+ }
+ }
+ }
+ }
+ else
+ {
+ bool hasTimeVar = false;
+
+ if (ncdims[timedimid].ncvarid != CDI_UNDEFID)
+ {
+ streamptr->basetime.ncvarid = ncdims[timedimid].ncvarid;
+ hasTimeVar = true;
+ }
+
+ for (ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvarid != streamptr->basetime.ncvarid && ncvar->ndims == 1 && timedimid == ncvar->dimids[0]
+ && !xtypeIsText(ncvar->xtype) && is_timeaxis_units(ncvar->units))
+ {
+ ncvar->varStatus = CoordVar;
+
+ if (!hasTimeVar)
+ {
+ hasTimeVar = true;
+ streamptr->basetime.ncvarid = ncvarid;
+ }
+ else
+ {
+ Warning("Found more than one time variable, skipped variable %s!", ncvar->name);
+ }
+ }
+ }
+
+ if (hasTimeVar == false) // search for WRF time description
+ {
+ for (ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvarid != streamptr->basetime.ncvarid && ncvar->ndims == 2 && timedimid == ncvar->dimids[0]
+ && xtypeIsText(ncvar->xtype) && (ncdims[ncvar->dimids[1]].len == 19 || ncdims[ncvar->dimids[1]].len == 64))
+ {
+ ncvar->isTaxis = true;
+ streamptr->basetime.ncvarid = ncvarid;
+ streamptr->basetime.isWRF = true;
+ break;
+ }
+ }
+ }
+
+ // time varID
+ ncvarid = streamptr->basetime.ncvarid;
+
+ if (ncvarid == CDI_UNDEFID && ncdims[timedimid].len > 0) Warning("Time variable >%s< not found!", ncdims[timedimid].name);
+ }
+
+ // time varID
+ ncvarid = streamptr->basetime.ncvarid;
+
+ if (ncvarid != CDI_UNDEFID && streamptr->basetime.isWRF == false)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->units[0] != 0) *timeHasUnits = true;
+
+ if (ncvar->bounds != CDI_UNDEFID)
+ {
+ int nbdims = ncvars[ncvar->bounds].ndims;
+ if (nbdims == 2)
+ {
+ int len = (int) ncdims[ncvars[ncvar->bounds].dimids[nbdims - 1]].len;
+ if (len == 2 && timedimid == ncvars[ncvar->bounds].dimids[0])
+ {
+ *timeHasBounds = true;
+ streamptr->basetime.ncvarboundsid = ncvar->bounds;
+ if (ncvar->isClimatology) *timeClimatology = true;
+ }
+ }
+ }
+ }
+}
+
+static void
+read_vct_echam(int fileID, int nvars, ncvar_t *ncvars, ncdim_t *ncdims, double **vct, size_t *pvctsize)
+{
+ // find ECHAM VCT
+ int nvcth_id = CDI_UNDEFID, vcta_id = CDI_UNDEFID, vctb_id = CDI_UNDEFID;
+ // int p0_id = CDI_UNDEFID;
+
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ const char *name = ncvar->name;
+ if (ncvar->ndims == 1)
+ {
+ size_t len = strlen(name);
+ if (len == 4 && name[0] == 'h' && name[1] == 'y')
+ {
+ if (name[2] == 'a' && name[3] == 'i') // hyai
+ {
+ vcta_id = ncvarid;
+ nvcth_id = ncvar->dimids[0];
+ ncvar->varStatus = CoordVar;
+ }
+ else if (name[2] == 'b' && name[3] == 'i') // hybi
+ {
+ vctb_id = ncvarid;
+ nvcth_id = ncvar->dimids[0];
+ ncvar->varStatus = CoordVar;
+ }
+ else if ((name[2] == 'a' || name[2] == 'b') && name[3] == 'm')
+ {
+ ncvar->varStatus = CoordVar; // hyam or hybm
+ }
+ }
+ }
+ /*
+ else if (ncvar->ndims == 0)
+ {
+ size_t len = strlen(name);
+ if (len == 2 && name[0] == 'P' && name[1] == '0') p0_id = ncvarid;
+ }
+ */
+ }
+
+ // read VCT
+ if (nvcth_id != CDI_UNDEFID && vcta_id != CDI_UNDEFID && vctb_id != CDI_UNDEFID)
+ {
+ size_t vctsize = 2 * ncdims[nvcth_id].len;
+ *vct = (double *) Malloc(vctsize * sizeof(double));
+ cdf_get_var_double(fileID, vcta_id, *vct);
+ cdf_get_var_double(fileID, vctb_id, *vct + vctsize / 2);
+ *pvctsize = vctsize;
+ /*
+ if (p0_id != CDI_UNDEFID)
+ {
+ double p0;
+ cdf_get_var_double(fileID, p0_id, &p0);
+ }
+ */
+ }
+}
+
+static void
+cdf_set_ucla_dimtype(int ndims, ncdim_t *ncdims, ncvar_t *ncvars)
+{
+ for (int ncdimid = 0; ncdimid < ndims; ncdimid++)
+ {
+ ncdim_t *ncdim = &ncdims[ncdimid];
+ int ncvarid = ncdim->ncvarid;
+ if (ncvarid != -1)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncdim->dimtype == CDI_UNDEFID && ncvar->units[0] == 'm')
+ {
+ // clang-format off
+ if (ncvar->name[0] == 'x') ncdim->dimtype = X_AXIS;
+ else if (ncvar->name[0] == 'y') ncdim->dimtype = Y_AXIS;
+ else if (ncvar->name[0] == 'z') ncdim->dimtype = Z_AXIS;
+ // clang-format on
+ }
+ }
+ }
+}
+
+static int
+cdf_check_variables(stream_t *streamptr, int nvars, ncvar_t *ncvars, size_t ntsteps, int timedimid)
+{
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->isTaxis && ncvar->ndims == 2)
+ {
+ ncvar->varStatus = CoordVar;
+ continue;
+ }
+
+ if (ncvar->varStatus == UndefVar && ncvar->ndims > 1 && timedimid != CDI_UNDEFID && timedimid == ncvar->dimids[0])
+ cdf_set_var(ncvar, DataVar);
+
+ if (ncvar->varStatus == UndefVar)
+ {
+ if (ncvar->ndims == 0)
+ cdf_set_var(ncvar, nvars == 1 ? DataVar : CoordVar);
+ else if (ncvar->ndims > 0)
+ cdf_set_var(ncvar, DataVar);
+ else
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("Variable %s has an unknown type, skipped!", ncvar->name);
+ }
+ }
+
+ if (ncvar->varStatus == CoordVar) continue;
+
+ if ((ncvar->ndims > 4 && !ncvar->isCubeSphere) || ncvar->ndims > 5)
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("%d dimensional variables are not supported, skipped variable %s!", ncvar->ndims, ncvar->name);
+ continue;
+ }
+
+ if (((ncvar->ndims == 4 && !ncvar->isCubeSphere) || ncvar->ndims == 5) && timedimid == CDI_UNDEFID)
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("%d dimensional variables without time dimension are not supported, skipped variable %s!", ncvar->ndims,
+ ncvar->name);
+ continue;
+ }
+
+ if (xtypeIsText(ncvar->xtype))
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("Unsupported data type (char/string), skipped variable %s!", ncvar->name);
+ continue;
+ }
+
+ if (cdfInqDatatype(streamptr, ncvar->xtype, ncvar->isUnsigned) == -1)
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("Unsupported data type, skipped variable %s!", ncvar->name);
+ continue;
+ }
+
+ if (timedimid != CDI_UNDEFID && ntsteps == 0 && ncvar->ndims > 0)
+ {
+ if (timedimid == ncvar->dimids[0])
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("Number of time steps undefined, skipped variable %s!", ncvar->name);
+ continue;
+ }
+ }
+ }
+
+ return timedimid;
+}
+
+static void
+cdfVerifyVars(int nvars, ncvar_t *ncvars, ncdim_t *ncdims)
+{
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == DataVar && ncvar->ndims > 0)
+ {
+ int ndims = 0;
+ for (int i = 0; i < ncvar->ndims; ++i)
+ {
+ // clang-format off
+ if (ncvar->dimtypes[i] == T_AXIS) ndims++;
+ else if (ncvar->dimtypes[i] == E_AXIS) ndims++;
+ else if (ncvar->dimtypes[i] == Z_AXIS) ndims++;
+ else if (ncvar->dimtypes[i] == Y_AXIS) ndims++;
+ else if (ncvar->dimtypes[i] == X_AXIS) ndims++;
+ // clang-format on
+ }
+
+ if (ncvar->ndims != ndims)
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("Inconsistent number of dimensions, skipped variable %s!", ncvar->name);
+ }
+
+ int zdimid = -1;
+ for (int i = 0; i < ncvar->ndims; ++i)
+ {
+ if (ncvar->dimtypes[i] == Z_AXIS) zdimid = ncvar->dimids[i];
+ }
+
+ int zaxisID = ncvar->zaxisID;
+ if (zaxisInqScalar(zaxisID) && zdimid != -1)
+ {
+ ncvar->varStatus = CoordVar;
+ Warning("Unsupported dimension >%s<, skipped variable %s!", ncdims[zdimid].name, ncvar->name);
+ }
+ }
+ }
+}
+
+static CdiDateTime
+wrf_read_timestep(int fileID, int nctimevarid, int tsID)
+{
+ enum
+ {
+ // position of terminator separating date and time from rest of
+ dateTimeSepPos = 19,
+ dateTimeStrSize = 128,
+ };
+ size_t start[2] = { (size_t) tsID, 0 }, count[2] = { 1, dateTimeSepPos };
+ char stvalue[dateTimeStrSize];
+ stvalue[0] = 0;
+ cdf_get_vara_text(fileID, nctimevarid, start, count, stvalue);
+ stvalue[dateTimeSepPos] = 0;
+
+ int year = 1, month = 1, day = 1, hour = 0, minute = 0, second = 0;
+ if (strlen(stvalue) == dateTimeSepPos) sscanf(stvalue, "%d-%d-%d_%d:%d:%d", &year, &month, &day, &hour, &minute, &second);
+ return cdiDateTime_set(cdiEncodeDate(year, month, day), cdiEncodeTime(hour, minute, second));
+}
+
+static double
+get_timevalue(int fileID, int nctimevarid, size_t ncStepIndex, double *timevarBuffer)
+{
+ double timevalue = 0.0;
+
+ if (timevarBuffer)
+ {
+ timevalue = timevarBuffer[ncStepIndex];
+ }
+ else
+ {
+ cdf_get_var1_double(fileID, nctimevarid, &ncStepIndex, &timevalue);
+ }
+
+ if (timevalue >= NC_FILL_DOUBLE || timevalue < -NC_FILL_DOUBLE) timevalue = 0.0;
+
+ return timevalue;
+}
+
+static void
+cdf_read_timesteps(int numTimesteps, stream_t *streamptr, taxis_t *taxis0)
+{
+ streamptr->curTsID = 0;
+ streamptr->rtsteps = 1;
+
+ if (numTimesteps == 0)
+ {
+ cdi_create_timesteps(numTimesteps, streamptr);
+ cdf_create_records(streamptr, 0);
+ }
+ else if (numTimesteps < 0)
+ {
+ }
+ else
+ {
+ int fileID = streamptr->fileID;
+ int nctimevarid = streamptr->basetime.ncvarid;
+ int nctimeboundsid = streamptr->basetime.ncvarboundsid;
+ bool hasTimesteps = (nctimevarid != CDI_UNDEFID && streamptr->basetime.hasUnits);
+
+ int *ncStepIndices = (int *) malloc(numTimesteps * sizeof(int));
+ for (int tsID = 0; tsID < numTimesteps; ++tsID) ncStepIndices[tsID] = tsID;
+
+ CdiDateTime *vDateTimeList = NULL;
+
+ if (hasTimesteps)
+ {
+ vDateTimeList = (CdiDateTime *) malloc(numTimesteps * sizeof(CdiDateTime));
+
+ if (streamptr->basetime.isWRF)
+ {
+ for (int tsID = 0; tsID < numTimesteps; ++tsID) vDateTimeList[tsID] = wrf_read_timestep(fileID, nctimevarid, tsID);
+ }
+ else
+ {
+ double *timevarBuffer = (double *) malloc(numTimesteps * sizeof(double));
+ cdf_get_var_double(fileID, nctimevarid, timevarBuffer);
+ for (int tsID = 0; tsID < numTimesteps; ++tsID)
+ vDateTimeList[tsID] = cdi_decode_timeval(get_timevalue(fileID, nctimevarid, tsID, timevarBuffer), taxis0);
+ if (timevarBuffer) free(timevarBuffer);
+ }
+ }
+
+ // process query information if available
+ CdiQuery *query = streamptr->query;
+ if (query && cdiQueryNumStepidx(query) > 0)
+ {
+ for (int tsID = 0; tsID < numTimesteps; ++tsID)
+ {
+ if (cdiQueryStepidx(query, tsID + 1) < 0) ncStepIndices[tsID] = -1;
+ }
+ }
+
+ int numSteps = 0;
+ for (int tsID = 0; tsID < numTimesteps; ++tsID)
+ if (ncStepIndices[tsID] >= 0) numSteps++;
+
+ cdi_create_timesteps(numSteps, streamptr);
+
+ for (int tsID = 0, stepID = 0; tsID < numTimesteps; ++tsID)
+ {
+ if (ncStepIndices[tsID] >= 0)
+ {
+ streamptr->tsteps[stepID].ncStepIndex = ncStepIndices[tsID];
+ cdf_create_records(streamptr, stepID);
+
+ taxis_t *taxis = &streamptr->tsteps[stepID].taxis;
+ ptaxisCopy(taxis, taxis0);
+
+ if (hasTimesteps) taxis->vDateTime = vDateTimeList[tsID];
+
+ stepID++;
+ }
+ }
+
+ if (ncStepIndices) free(ncStepIndices);
+
+ if (hasTimesteps)
+ {
+ if (nctimeboundsid != CDI_UNDEFID)
+ {
+ enum
+ {
+ numBnds = 2,
+ tbNdims = 2
+ };
+
+ for (int tsID = 0; tsID < numSteps; ++tsID)
+ {
+ size_t ncStepIndex = streamptr->tsteps[tsID].ncStepIndex;
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+ size_t start[tbNdims] = { ncStepIndex, 0 };
+ size_t count[tbNdims] = { 1, numBnds };
+ double timeBnds[numBnds];
+ cdf_get_vara_double(fileID, nctimeboundsid, start, count, timeBnds);
+ for (size_t i = 0; i < numBnds; ++i)
+ if (timeBnds[i] >= NC_FILL_DOUBLE || timeBnds[i] < -NC_FILL_DOUBLE) timeBnds[i] = 0.0;
+
+ taxis->vDateTime_lb = cdi_decode_timeval(timeBnds[0], taxis);
+ taxis->vDateTime_ub = cdi_decode_timeval(timeBnds[1], taxis);
+ }
+ }
+
+ int leadtimeid = streamptr->basetime.leadtimeid;
+ if (leadtimeid != CDI_UNDEFID)
+ {
+ for (int tsID = 0; tsID < numSteps; ++tsID)
+ {
+ size_t ncStepIndex = streamptr->tsteps[tsID].ncStepIndex;
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+ cdi_set_forecast_period(get_timevalue(fileID, leadtimeid, ncStepIndex, NULL), taxis);
+ }
+ }
+ }
+
+ if (vDateTimeList) free(vDateTimeList);
+ }
+}
+
+static void
+stream_set_ncdims(stream_t *streamptr, int ndims, ncdim_t *ncdims)
+{
+ int n = (ndims > MAX_DIMS_PS) ? MAX_DIMS_PS : ndims;
+ streamptr->ncNumDims = n;
+ for (int i = 0; i < n; i++) streamptr->ncDimID[i] = ncdims[i].dimid;
+ for (int i = 0; i < n; i++) streamptr->ncDimLen[i] = ncdims[i].len;
+}
+
+int
+cdfInqContents(stream_t *streamptr)
+{
+ bool timeHasUnits = false;
+ bool timeHasBounds = false;
+ bool timeClimatology = false;
+ int leadtime_id = CDI_UNDEFID;
+ int format = 0;
+ char fcreftime[CDI_MAX_NAME];
+ GridInfo gridInfo;
+ gridInfo.gridfile[0] = 0;
+ memset(gridInfo.uuid, 0, CDI_UUID_SIZE);
+ gridInfo.number_of_grid_used = CDI_UNDEFID;
+ gridInfo.timedimid = CDI_UNDEFID;
+
+ fcreftime[0] = 0;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ if (CDI_Debug) Message("streamID = %d, fileID = %d", streamptr->self, fileID);
+
+#ifdef HAVE_NETCDF4
+ nc_inq_format(fileID, &format);
+#endif
+
+ int ndims = 0, nvars = 0, ngatts = 0, unlimdimid = 0;
+ cdf_inq(fileID, &ndims, &nvars, &ngatts, &unlimdimid);
+
+ if (CDI_Debug) Message("root: ndims %d, nvars %d, ngatts %d", ndims, nvars, ngatts);
+ /*
+ if ( ndims == 0 )
+ {
+ Warning("No dimensions found!");
+ return CDI_EUFSTRUCT;
+ }
+ */
+ // alloc ncdims
+ ncdim_t *ncdims = ndims ? (ncdim_t *) Malloc((size_t) ndims * sizeof(ncdim_t)) : NULL;
+ init_ncdims(ndims, ncdims);
+
+ if (ndims)
+ {
+ int ncdimid = 0;
+ for (int dimid = 0; dimid < NC_MAX_DIMS; ++dimid)
+ {
+ if (nc_inq_dimlen(fileID, dimid, NULL) == NC_NOERR)
+ {
+ ncdims[ncdimid++].dimid = dimid;
+ if (ncdimid == ndims) break;
+ }
+ }
+ }
+
+#ifdef HAVE_NETCDF4
+ if (format == NC_FORMAT_NETCDF4)
+ {
+ int numgrps = 0;
+ int ncids[NC_MAX_VARS];
+ char gname[CDI_MAX_NAME];
+ nc_inq_grps(fileID, &numgrps, ncids);
+ for (int i = 0; i < numgrps; ++i)
+ {
+ int ncid = ncids[i];
+ nc_inq_grpname(ncid, gname);
+ int gndims, gnvars, gngatts, gunlimdimid;
+ cdf_inq(ncid, &gndims, &gnvars, &gngatts, &gunlimdimid);
+
+ if (CDI_Debug) Message("%s: ndims %d, nvars %d, ngatts %d", gname, gndims, gnvars, gngatts);
+
+ if (gndims == 0)
+ {
+ }
+ }
+ if (numgrps) Warning("NetCDF4 groups not supported! Found %d root group%s.", numgrps, (numgrps > 1) ? "s" : "");
+ }
+#endif
+
+ if (nvars == 0)
+ {
+ Warning("No arrays found!");
+ return CDI_EUFSTRUCT;
+ }
+
+ // alloc ncvars
+ ncvar_t *ncvars = (ncvar_t *) Malloc((size_t) nvars * sizeof(ncvar_t));
+ init_ncvars(nvars, ncvars, fileID);
+
+ // scan global attributes
+ int instID = CDI_UNDEFID;
+ int modelID = CDI_UNDEFID;
+ bool ucla_les = false;
+ unsigned char uuidOfVGrid[CDI_UUID_SIZE] = { 0 };
+ cdf_scan_global_attr(fileID, vlistID, ngatts, &instID, &modelID, &ucla_les, uuidOfVGrid, &gridInfo);
+
+ // find time dim
+ int timedimid = (unlimdimid >= 0) ? unlimdimid : cdf_time_dimid(fileID, ndims, nvars, ncdims);
+
+ streamptr->basetime.ncdimid = timedimid;
+
+ size_t ntsteps = 0;
+ if (timedimid != CDI_UNDEFID) cdf_inq_dimlen(fileID, ncdims[timedimid].dimid, &ntsteps);
+ if (ntsteps > INT_MAX)
+ {
+ Warning("Size limit exceeded for time dimension (limit=%d)!", INT_MAX);
+ return CDI_EDIMSIZE;
+ }
+
+ if (CDI_Debug) Message("Number of timesteps = %zu", ntsteps);
+ if (CDI_Debug) Message("Time dimid = %d", streamptr->basetime.ncdimid);
+
+ // read ncdims
+ for (int ncdimid = 0; ncdimid < ndims; ncdimid++)
+ {
+ cdf_inq_dimlen(fileID, ncdims[ncdimid].dimid, &ncdims[ncdimid].len);
+ cdf_inq_dimname(fileID, ncdims[ncdimid].dimid, ncdims[ncdimid].name);
+ if (timedimid == ncdimid) ncdims[ncdimid].dimtype = T_AXIS;
+ }
+
+ stream_set_ncdims(streamptr, ndims, ncdims);
+
+ if (CDI_Debug) cdf_print_vars(ncvars, nvars, "cdfScanVarAttr");
+
+ // scan attributes of all variables
+ cdfScanVarAttr(nvars, ncvars, ndims, ncdims, timedimid, modelID, format);
+
+ cdfVerifyVarAttr(nvars, ncvars, ncdims);
+
+ if (CDI_Convert_Cubesphere)
+ {
+ bool isGeosData = check_cube_sphere(vlistID, nvars, ncvars, ncdims);
+ if (CDI_Debug) Message("isGeosData %d", isGeosData);
+ }
+
+ if (CDI_Debug) cdf_print_vars(ncvars, nvars, "find coordinates vars");
+
+ // find coordinates vars
+ for (int ncdimid = 0; ncdimid < ndims; ncdimid++)
+ {
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->ndims == 1)
+ {
+ if (timedimid != CDI_UNDEFID && timedimid == ncvar->dimids[0])
+ {
+ if (ncvar->varStatus != CoordVar) cdf_set_var(ncvar, DataVar);
+ }
+ else
+ {
+ // if ( ncvar->varStatus != DataVar ) cdf_set_var(ncvar, CoordVar);
+ }
+ // if ( ncvar->varStatus != DataVar ) cdf_set_var(ncvar, CoordVar);
+
+ if (ncdimid == ncvar->dimids[0] && ncdims[ncdimid].ncvarid == CDI_UNDEFID)
+ if (str_is_equal(ncvar->name, ncdims[ncdimid].name))
+ {
+ ncdims[ncdimid].ncvarid = ncvarid;
+ ncvar->varStatus = CoordVar;
+ }
+ }
+ }
+ }
+
+ // find time vars
+ find_time_vars(nvars, ncvars, ncdims, timedimid, streamptr, &timeHasUnits, &timeHasBounds, &timeClimatology);
+
+ leadtime_id = find_leadtime(nvars, ncvars, timedimid);
+ if (leadtime_id != CDI_UNDEFID) ncvars[leadtime_id].varStatus = CoordVar;
+
+ // check ncvars
+ timedimid = cdf_check_variables(streamptr, nvars, ncvars, ntsteps, timedimid);
+
+ // verify coordinates vars - first scan (dimname == varname)
+ bool isHybridCF = false;
+ verify_coordinates_vars_1(fileID, ndims, ncdims, ncvars, timedimid, &isHybridCF);
+
+ // verify coordinates vars - second scan (all other variables)
+ verify_coordinates_vars_2(streamptr, nvars, ncvars);
+
+ if (CDI_Debug) cdf_print_vars(ncvars, nvars, "verify_coordinate_vars");
+
+ if (ucla_les) cdf_set_ucla_dimtype(ndims, ncdims, ncvars);
+
+ /*
+ for (int ncdimid = 0; ncdimid < ndims; ncdimid++)
+ {
+ int ncvarid = ncdims[ncdimid].ncvarid;
+ if (ncvarid != -1)
+ {
+ printf("coord var %d %s %s\n", ncvarid, ncvar->name, ncvar->units);
+ if (ncdims[ncdimid].dimtype == X_AXIS) printf("coord var %d %s is x dim\n", ncvarid, ncvar->name);
+ if (ncdims[ncdimid].dimtype == Y_AXIS) printf("coord var %d %s is y dim\n", ncvarid, ncvar->name);
+ if (ncdims[ncdimid].dimtype == Z_AXIS) printf("coord var %d %s is z dim\n", ncvarid, ncvar->name);
+ if (ncdims[ncdimid].dimtype == T_AXIS) printf("coord var %d %s is t dim\n", ncvarid, ncvar->name);
+
+ if (ncvar->isLon) printf("coord var %d %s is lon\n", ncvarid, ncvar->name);
+ if (ncvar->isLat) printf("coord var %d %s is lat\n", ncvarid, ncvar->name);
+ if (ncvar->isZaxis) printf("coord var %d %s is lev\n", ncvarid, ncvar->name);
+ }
+ }
+ */
+
+ // Set coordinates varids (att: associate)
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == DataVar && ncvar->ncoordvars)
+ {
+ for (int i = 0; i < ncvar->ncoordvars; i++)
+ {
+ int ncvaridc = ncvar->coordvarids[i];
+ if (ncvaridc != CDI_UNDEFID)
+ {
+ ncvar_t *ncvarc = &ncvars[ncvaridc];
+ // clang-format off
+ if (ncvarc->isLon || ncvarc->isXaxis) ncvar->xvarid = ncvaridc;
+ else if (ncvarc->isLat || ncvarc->isYaxis) ncvar->yvarid = ncvaridc;
+ else if (ncvarc->isZaxis) ncvar->zvarid = ncvaridc;
+ else if (ncvarc->isTaxis) ncvar->tvarid = ncvaridc;
+ else if (ncvarc->isCharAxis) ncvar->cvarids[i] = ncvaridc;
+ else if (ncvarc->printWarning)
+ {
+ Warning("Coordinates variable %s can't be assigned!", ncvarc->name);
+ ncvarc->printWarning = false;
+ }
+ // clang-format on
+ }
+ }
+ }
+ }
+
+ // set dim type
+ cdf_set_dimtype(nvars, ncvars, ncdims);
+
+ // read ECHAM VCT if present
+ size_t vctsize = 0;
+ double *vct = NULL;
+ if (!isHybridCF) read_vct_echam(fileID, nvars, ncvars, ncdims, &vct, &vctsize);
+
+ // process query information if available
+ CdiQuery *query = streamptr->query;
+ if (query && cdiQueryNumNames(query) > 0)
+ {
+ for (int ncvarid = 0; ncvarid < nvars; ++ncvarid)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->varStatus == DataVar && cdiQueryName(query, ncvar->name) < 0) ncvar->varStatus = CoordVar;
+ }
+ }
+
+ if (CDI_Debug) cdf_print_vars(ncvars, nvars, "cdf_define_all_grids");
+
+ // define all grids
+ gridInfo.timedimid = timedimid;
+ int status = cdf_define_all_grids(streamptr, streamptr->ncgrid, vlistID, ncdims, nvars, ncvars, &gridInfo);
+ if (status < 0) return status;
+
+ // define all zaxes
+ status = cdf_define_all_zaxes(streamptr, vlistID, ncdims, nvars, ncvars, vctsize, vct, uuidOfVGrid);
+ if (vct) Free(vct);
+ if (status < 0) return status;
+
+ // verify vars
+ cdfVerifyVars(nvars, ncvars, ncdims);
+
+ // select vars
+ int nvarsData = 0;
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ if (ncvars[ncvarid].varStatus == DataVar) nvarsData++;
+
+ if (CDI_Debug) Message("time varid = %d", streamptr->basetime.ncvarid);
+ if (CDI_Debug) Message("ntsteps = %zu", ntsteps);
+ if (CDI_Debug) Message("nvarsData = %d", nvarsData);
+
+ if (nvarsData == 0)
+ {
+ streamptr->ntsteps = 0;
+ Warning("No data arrays found!");
+ return CDI_EUFSTRUCT;
+ }
+
+ if (ntsteps == 0 && streamptr->basetime.ncdimid == CDI_UNDEFID && streamptr->basetime.ncvarid != CDI_UNDEFID) ntsteps = 1;
+
+ // define all data variables
+ cdf_define_all_vars(streamptr, vlistID, instID, modelID, nvarsData, nvars, ncvars, ncdims, timedimid);
+
+ cdf_set_chunk_info(streamptr, nvars, ncvars);
+
+ // time varID
+ int nctimevarid = streamptr->basetime.ncvarid;
+
+ if (nctimevarid != CDI_UNDEFID && (!timeHasUnits || streamptr->basetime.isWRF)) ncvars[nctimevarid].units[0] = 0;
+ if (nctimevarid != CDI_UNDEFID && timeHasUnits) streamptr->basetime.hasUnits = true;
+
+ taxis_t taxis0;
+ ptaxisInit(&taxis0);
+
+ if (timeHasUnits)
+ {
+ if (set_base_time(ncvars[nctimevarid].units, &taxis0) == 1)
+ {
+ nctimevarid = CDI_UNDEFID;
+ streamptr->basetime.ncvarid = CDI_UNDEFID;
+ streamptr->basetime.hasUnits = false;
+ }
+
+ if (leadtime_id != CDI_UNDEFID && taxis0.type == TAXIS_RELATIVE)
+ {
+ streamptr->basetime.leadtimeid = leadtime_id;
+ taxis0.type = TAXIS_FORECAST;
+
+ int timeunit = -1;
+ if (ncvars[leadtime_id].units[0] != 0) timeunit = scan_time_units(ncvars[leadtime_id].units);
+ if (timeunit == -1) timeunit = taxis0.unit;
+ taxis0.fc_unit = timeunit;
+
+ set_forecast_time(fcreftime, &taxis0);
+ }
+ }
+
+ if (timeHasBounds)
+ {
+ taxis0.hasBounds = true;
+ if (timeClimatology) taxis0.climatology = true;
+ }
+
+ if (nctimevarid != CDI_UNDEFID)
+ {
+ ptaxisDefName(&taxis0, ncvars[nctimevarid].name);
+ if (ncvars[nctimevarid].longname[0]) ptaxisDefLongname(&taxis0, ncvars[nctimevarid].longname);
+ if (ncvars[nctimevarid].units[0]) ptaxisDefUnits(&taxis0, ncvars[nctimevarid].units);
+
+ int xtype = ncvars[nctimevarid].xtype;
+ int datatype = (xtype == NC_INT) ? CDI_DATATYPE_INT32 : ((xtype == NC_FLOAT) ? CDI_DATATYPE_FLT32 : CDI_DATATYPE_FLT64);
+ ptaxisDefDatatype(&taxis0, datatype);
+ }
+
+ int calendar = CDI_UNDEFID;
+ if (nctimevarid != CDI_UNDEFID && ncvars[nctimevarid].hasCalendar)
+ {
+ char attstring[1024];
+ cdfGetAttText(fileID, nctimevarid, "calendar", sizeof(attstring), attstring);
+ str_to_lower(attstring);
+ calendar = attribute_to_calendar(attstring);
+ }
+
+ if (streamptr->basetime.isWRF) taxis0.type = TAXIS_ABSOLUTE;
+
+ int taxisID;
+ if (taxis0.type == TAXIS_FORECAST)
+ {
+ taxisID = taxisCreate(TAXIS_FORECAST);
+ }
+ else if (taxis0.type == TAXIS_RELATIVE)
+ {
+ taxisID = taxisCreate(TAXIS_RELATIVE);
+ }
+ else
+ {
+ taxisID = taxisCreate(TAXIS_ABSOLUTE);
+ if (!timeHasUnits)
+ {
+ taxisDefTunit(taxisID, TUNIT_DAY);
+ taxis0.unit = TUNIT_DAY;
+ }
+ }
+
+ if (calendar == CDI_UNDEFID && taxis0.type != TAXIS_ABSOLUTE) calendar = CALENDAR_STANDARD;
+
+#if __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ > 5)
+#pragma GCC diagnostic push
+#pragma GCC diagnostic warning "-Wstrict-overflow"
+#endif
+ if (calendar != CDI_UNDEFID)
+ {
+ taxis0.calendar = calendar;
+ taxisDefCalendar(taxisID, calendar);
+ }
+#if __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ > 5)
+#pragma GCC diagnostic pop
+#endif
+
+ vlistDefTaxis(vlistID, taxisID);
+
+ cdf_read_timesteps(ntsteps, streamptr, &taxis0);
+ taxisDestroyKernel(&taxis0);
+
+ // free ncdims
+ if (ncdims) Free(ncdims);
+
+ // free ncvars
+ if (ncvars)
+ {
+ for (int ncvarid = 0; ncvarid < nvars; ncvarid++)
+ {
+ ncvar_t *ncvar = &ncvars[ncvarid];
+ if (ncvar->atts) Free(ncvar->atts);
+ if (ncvar->vct) Free(ncvar->vct);
+ }
+ Free(ncvars);
+ }
+
+ return 0;
+}
+
+int
+cdfInqTimestep(stream_t *streamptr, int tsID)
+{
+ if (tsID < 0 || tsID >= streamptr->ntsteps) Error("tsID=%d out of range (0-%d)!", tsID, streamptr->ntsteps - 1);
+
+ streamptr->curTsID = tsID;
+ int numRecs = streamptr->tsteps[tsID].nrecs;
+
+ return numRecs;
+}
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBNETCDF
+
+
+static const char bndsName[] = "bnds";
+
+void
+cdfCopyRecord(stream_t *streamptr2, stream_t *streamptr1)
+{
+ int vlistID1 = streamptr1->vlistID;
+ int tsID = streamptr1->curTsID;
+ int vrecID = streamptr1->tsteps[tsID].curRecID;
+ int recID = streamptr1->tsteps[tsID].recIDs[vrecID];
+ int ivarID = streamptr1->tsteps[tsID].records[recID].varID;
+ int gridID = vlistInqVarGrid(vlistID1, ivarID);
+ size_t datasize = gridInqSize(gridID);
+ int datatype = vlistInqVarDatatype(vlistID1, ivarID);
+ int memtype = (datatype != CDI_DATATYPE_FLT32) ? MEMTYPE_DOUBLE : MEMTYPE_FLOAT;
+
+ void *data = Malloc(datasize * ((memtype == MEMTYPE_DOUBLE) ? sizeof(double) : sizeof(float)));
+
+ size_t numMissVals;
+ cdf_read_record(streamptr1, memtype, data, &numMissVals);
+ cdf_write_record(streamptr2, memtype, data, numMissVals);
+
+ Free(data);
+}
+
+void
+cdfDefRecord(stream_t *streamptr)
+{
+ (void) streamptr;
+}
+
+static void
+cdfDefComplex(stream_t *streamptr, int gridID, int gridIndex)
+{
+ int dimID;
+ ncgrid_t *ncgrid = streamptr->ncgrid;
+
+ for (int index = 0; index < gridIndex; ++index)
+ {
+ if (ncgrid[index].ncIDs[CDF_DIMID_X] != CDI_UNDEFID)
+ {
+ int gridID0 = ncgrid[index].gridID;
+ int gridtype0 = gridInqType(gridID0);
+ if (gridtype0 == GRID_SPECTRAL || gridtype0 == GRID_FOURIER)
+ {
+ dimID = ncgrid[index].ncIDs[CDF_DIMID_X];
+ goto dimIDEstablished;
+ }
+ }
+ }
+
+ {
+ static const char axisname[] = "nc2";
+ size_t dimlen = 2;
+ int fileID = streamptr->fileID;
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ cdf_def_dim(fileID, axisname, dimlen, &dimID);
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+ }
+
+dimIDEstablished:
+ ncgrid[gridIndex].gridID = gridID;
+ ncgrid[gridIndex].ncIDs[CDF_DIMID_X] = dimID;
+}
+
+struct idSearch
+{
+ int numNonMatching, foundID;
+ size_t foundIdx;
+};
+
+static inline struct idSearch
+cdfSearchIDBySize(size_t startIdx, size_t numIDs, ncgrid_t ncgrid[/*numIDs*/], int ncIDType, int searchType, int searchSize,
+ int (*typeInq)(int id), SizeType (*sizeInq)(int id))
+{
+ int numNonMatching = 0, foundID = CDI_UNDEFID;
+ size_t foundIdx = SIZE_MAX;
+ for (size_t index = startIdx; index < numIDs; index++)
+ {
+ if (ncgrid[index].ncIDs[ncIDType] != CDI_UNDEFID)
+ {
+ int id0 = ncgrid[index].gridID, id0Type = typeInq(id0);
+ if (id0Type == searchType)
+ {
+ int size0 = sizeInq(id0);
+ if (searchSize == size0)
+ {
+ foundID = ncgrid[index].ncIDs[ncIDType];
+ foundIdx = index;
+ break;
+ }
+ numNonMatching++;
+ }
+ }
+ }
+ return (struct idSearch){ .numNonMatching = numNonMatching, .foundID = foundID, .foundIdx = foundIdx };
+}
+
+static SizeType
+cdfGridInqHalfSize(int gridID)
+{
+ return gridInqSize(gridID) / 2;
+}
+
+static void
+cdfDefSPorFC(stream_t *streamptr, int gridID, int gridIndex, char *axisname, size_t maxlen, int gridRefType)
+{
+ ncgrid_t *ncgrid = streamptr->ncgrid;
+
+ size_t dimlen = gridInqSize(gridID) / 2;
+
+ struct idSearch search
+ = cdfSearchIDBySize(0, (size_t) gridIndex, ncgrid, CDF_DIMID_Y, gridRefType, (int) dimlen, gridInqType, cdfGridInqHalfSize);
+ int dimID = search.foundID;
+ int iz = search.numNonMatching;
+
+ if (dimID == CDI_UNDEFID)
+ {
+ int fileID = streamptr->fileID;
+ size_t len = strlen(axisname);
+ if (iz) snprintf(axisname + len, maxlen - len, "%1d", iz + 1);
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ cdf_def_dim(fileID, axisname, dimlen, &dimID);
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+ }
+
+ ncgrid[gridIndex].gridID = gridID;
+ ncgrid[gridIndex].ncIDs[CDF_DIMID_Y] = dimID;
+}
+
+static void
+cdfDefSP(stream_t *streamptr, int gridID, int gridIndex)
+{
+ // char longname[] = "Spherical harmonic coefficient";
+ char axisname[5] = "nsp";
+ cdfDefSPorFC(streamptr, gridID, gridIndex, axisname, sizeof(axisname), GRID_SPECTRAL);
+}
+
+static void
+cdfDefFC(stream_t *streamptr, int gridID, int gridIndex)
+{
+ char axisname[5] = "nfc";
+ cdfDefSPorFC(streamptr, gridID, gridIndex, axisname, sizeof(axisname), GRID_FOURIER);
+}
+
+static const struct cdfDefGridAxisInqs
+{
+ SizeType (*axisSize)(int gridID);
+ double (*axisVal)(int gridID, SizeType index);
+ const double *(*axisValsPtr)(int gridID);
+ const double *(*axisBoundsPtr)(int gridID);
+ enum cdfIDIdx dimIdx, varIdx;
+ char axisSym;
+ enum gridPropInq valsQueryKey, bndsQueryKey;
+ char axisPanoplyName[4];
+} gridInqsX = {
+ .axisSize = gridInqXsize,
+ .axisVal = gridInqXval,
+ .axisValsPtr = gridInqXvalsPtr,
+ .axisBoundsPtr = gridInqXboundsPtr,
+ .dimIdx = CDF_DIMID_X,
+ .varIdx = CDF_VARID_X,
+ .axisSym = 'X',
+ .valsQueryKey = GRID_PROP_XVALS,
+ .bndsQueryKey = GRID_PROP_XBOUNDS,
+ .axisPanoplyName = "Lon",
+}, gridInqsY = {
+ .axisSize = gridInqYsize,
+ .axisVal = gridInqYval,
+ .axisValsPtr = gridInqYvalsPtr,
+ .axisBoundsPtr = gridInqYboundsPtr,
+ .dimIdx = CDF_DIMID_Y,
+ .varIdx = CDF_VARID_Y,
+ .axisSym = 'Y',
+ .valsQueryKey = GRID_PROP_YVALS,
+ .bndsQueryKey = GRID_PROP_YBOUNDS,
+ .axisPanoplyName = "Lat",
+};
+
+static void
+cdfPutGridStdAtts(int fileID, int ncvarid, int gridID, int dimtype)
+{
+ size_t len;
+
+ int axisKey = (dimtype == 'Z') ? CDI_GLOBAL : ((dimtype == 'X') ? CDI_XAXIS : CDI_YAXIS);
+
+ {
+ char stdname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, axisKey, CDI_KEY_STDNAME, stdname, &length);
+ if (stdname[0] && (len = strlen(stdname))) cdf_put_att_text(fileID, ncvarid, "standard_name", len, stdname);
+ }
+ {
+ char longname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, axisKey, CDI_KEY_LONGNAME, longname, &length);
+ if (longname[0] && (len = strlen(longname))) cdf_put_att_text(fileID, ncvarid, "long_name", len, longname);
+ }
+ {
+ char units[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, axisKey, CDI_KEY_UNITS, units, &length);
+ if (units[0] && (len = strlen(units))) cdf_put_att_text(fileID, ncvarid, "units", len, units);
+ }
+}
+
+static int
+grid_inq_xtype(int gridID)
+{
+ int datatype = CDI_UNDEFID;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_DATATYPE, &datatype);
+ return (datatype == CDI_DATATYPE_FLT32) ? NC_FLOAT : NC_DOUBLE;
+}
+
+static void
+cdfDefTrajLatLon(stream_t *streamptr, int gridID, int gridIndex, const struct cdfDefGridAxisInqs *inqs)
+{
+ nc_type xtype = grid_inq_xtype(gridID);
+ ncgrid_t *ncgrid = streamptr->ncgrid;
+
+ size_t dimlen = inqs->axisSize(gridID);
+ if (dimlen != 1) Error("%c size isn't 1 for %s grid!", inqs->axisSym, gridNamePtr(gridInqType(gridID)));
+
+ int ncvarid = ncgrid[gridIndex].ncIDs[inqs->dimIdx];
+ if (ncvarid == CDI_UNDEFID)
+ {
+ int dimNcID = streamptr->basetime.ncvarid;
+ int fileID = streamptr->fileID;
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ cdf_redef(fileID);
+ streamptr->ncmode = 1;
+ }
+
+ char axisname[CDI_MAX_NAME];
+ int axistype = (inqs->axisSym == 'X') ? CDI_XAXIS : CDI_YAXIS;
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, axistype, CDI_KEY_NAME, axisname, &length);
+ cdf_def_var(fileID, axisname, xtype, 1, &dimNcID, &ncvarid);
+ cdfPutGridStdAtts(fileID, ncvarid, gridID, inqs->axisSym);
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+ }
+
+ ncgrid[gridIndex].gridID = gridID;
+ // var ID for trajectory !!!
+ ncgrid[gridIndex].ncIDs[inqs->dimIdx] = ncvarid;
+}
+
+static void
+cdfDefTrajLon(stream_t *streamptr, int gridID, int gridIndex)
+{
+ cdfDefTrajLatLon(streamptr, gridID, gridIndex, &gridInqsX);
+}
+
+static void
+cdfDefTrajLat(stream_t *streamptr, int gridID, int gridIndex)
+{
+ cdfDefTrajLatLon(streamptr, gridID, gridIndex, &gridInqsY);
+}
+
+static int
+checkDimName(int fileID, size_t dimlen, char *dimname)
+{
+ // check whether the dimenion name is already defined with the same length
+ unsigned iz = 0;
+ int dimid = CDI_UNDEFID;
+ char name[CDI_MAX_NAME];
+
+ size_t len = strlen(dimname);
+ memcpy(name, dimname, len + 1);
+
+ do
+ {
+ if (iz) snprintf(name + len, CDI_MAX_NAME - len, "_%u", iz + 1);
+
+ int dimid0;
+ int status = nc_inq_dimid(fileID, name, &dimid0);
+ if (status != NC_NOERR) break;
+ size_t dimlen0;
+ cdf_inq_dimlen(fileID, dimid0, &dimlen0);
+ if (dimlen0 == dimlen)
+ {
+ dimid = dimid0;
+ break;
+ }
+ iz++;
+ }
+ while (iz <= 99);
+
+ if (iz) snprintf(dimname + len, CDI_MAX_NAME - len, "_%u", iz + 1);
+
+ return dimid;
+}
+
+static void
+checkGridName(char *axisname, int fileID)
+{
+ int ncdimid;
+ char axisname2[CDI_MAX_NAME];
+
+ // check that the name is not already defined
+ unsigned iz = 0;
+
+ size_t axisnameLen = strlen(axisname);
+ memcpy(axisname2, axisname, axisnameLen + 1);
+
+ do
+ {
+ if (iz) snprintf(axisname2 + axisnameLen, CDI_MAX_NAME - axisnameLen, "_%u", iz + 1);
+
+ if (nc_inq_varid(fileID, axisname2, &ncdimid) != NC_NOERR) break;
+
+ ++iz;
+ }
+ while (iz <= 99);
+
+ if (iz) snprintf(axisname + axisnameLen, CDI_MAX_NAME - axisnameLen, "_%u", iz + 1);
+}
+
+static int
+checkZaxisName(char *axisname, int fileID, int vlistID, int zaxisID, int nzaxis)
+{
+ char axisname2[CDI_MAX_NAME];
+
+ // check that the name is not already defined
+ unsigned iz = 0;
+
+ size_t axisnameLen = strlen(axisname);
+ memcpy(axisname2, axisname, axisnameLen + 1);
+ do
+ {
+ if (iz) snprintf(axisname2 + axisnameLen, CDI_MAX_NAME - axisnameLen, "_%u", iz + 1);
+
+ int ncdimid;
+ int status = nc_inq_varid(fileID, axisname2, &ncdimid);
+ if (status != NC_NOERR)
+ {
+ if (iz)
+ {
+ // check that the name does not exist for other zaxes
+ for (int index = 0; index < nzaxis; index++)
+ {
+ int zaxisID0 = vlistZaxis(vlistID, index);
+ if (zaxisID != zaxisID0)
+ {
+ const char *axisname0 = zaxisInqNamePtr(zaxisID0);
+ if (str_is_equal(axisname0, axisname2)) goto nextSuffix;
+ }
+ }
+ }
+ break;
+ }
+
+ nextSuffix:
+ ++iz;
+ }
+ while (iz <= 99);
+
+ if (iz) snprintf(axisname + axisnameLen, CDI_MAX_NAME - axisnameLen, "_%u", iz + 1);
+
+ return (int) iz;
+}
+
+struct cdfPostDefPutVar
+{
+ int fileID, ncvarid;
+ union
+ {
+ const void *array;
+ int int1;
+ } values;
+};
+
+static void
+cdfDelayedPutVarDouble(void *data)
+{
+ struct cdfPostDefPutVar *put = (struct cdfPostDefPutVar *) data;
+ cdf_put_var_double(put->fileID, put->ncvarid, (const double *) put->values.array);
+}
+
+static void
+cdfDelayedPutVarInt1(void *data)
+{
+ struct cdfPostDefPutVar *put = (struct cdfPostDefPutVar *) data;
+ cdf_put_var_int(put->fileID, put->ncvarid, &put->values.int1);
+}
+
+void
+cdfDelayedPutVarDeepCleanup(void *data)
+{
+ struct cdfPostDefPutVar *what = (struct cdfPostDefPutVar *) data;
+ Free((void *) what->values.array);
+ Free(what);
+}
+
+static void
+cdfPostDefActionApply(size_t numActions, struct cdfPostDefAction *actions)
+{
+ for (size_t i = 0; i < numActions; ++i) actions[i].action(actions[i].data);
+}
+
+static void
+cdfPostDefActionListDelete(struct cdfPostDefActionList *list)
+{
+ struct cdfPostDefAction *actions = list->actions;
+ for (size_t i = 0, len = list->len; i < len; ++i)
+ {
+ void (*cleanup)(void *) = actions[i].cleanup;
+ void *data = actions[i].data;
+ if (cleanup == (void (*)(void *))(void (*)(void)) memFree)
+ Free(data);
+ else
+ cleanup(data);
+ }
+ Free(list);
+}
+
+struct cdfPostDefActionList *
+cdfPostDefActionAdd(struct cdfPostDefActionList *list, struct cdfPostDefAction addendum)
+{
+ size_t appendPos = list ? list->len : 0;
+ if (!list || list->size == list->len)
+ {
+ enum
+ {
+ initialListSize = 1
+ };
+ size_t newSize = list ? (list->size * 2) : initialListSize, newLen = list ? list->len + 1 : 1,
+ newAllocSize = sizeof(struct cdfPostDefActionList) + newSize * sizeof(struct cdfPostDefAction);
+ list = (struct cdfPostDefActionList *) Realloc(list, newAllocSize);
+ list->size = newSize;
+ list->len = newLen;
+ }
+ else
+ ++(list->len);
+ list->actions[appendPos] = addendum;
+ return list;
+}
+
+static struct cdfPostDefActionList *
+cdfPostDefActionConcat(struct cdfPostDefActionList *listA, const struct cdfPostDefActionList *listB)
+{
+ size_t appendPos = listA ? listA->len : 0, appendLen = listB ? listB->len : 0;
+ if (appendLen)
+ {
+ size_t newLen = appendPos + appendLen;
+ if (!listA || listA->size < newLen)
+ {
+ enum
+ {
+ initialListSize = 1
+ };
+ size_t newSize = listA ? listA->size : initialListSize;
+ while (newSize < newLen) newSize *= 2;
+ size_t newAllocSize = sizeof(struct cdfPostDefActionList) + newSize * sizeof(struct cdfPostDefAction);
+ listA = (struct cdfPostDefActionList *) Realloc(listA, newAllocSize);
+ listA->size = newSize;
+ listA->len = newLen;
+ }
+ else
+ listA->len = newLen;
+ struct cdfPostDefAction *restrict actionsA = listA->actions;
+ const struct cdfPostDefAction *restrict actionsB = listB->actions;
+ for (size_t i = 0; i < appendLen; ++i) actionsA[appendPos + i] = actionsB[i];
+ }
+ return listA;
+}
+
+void
+cdfPostDefActionAddPutVal(struct cdfPostDefActionList **list_, int fileID, int ncvarid, const double *values,
+ void (*cleanup)(void *))
+{
+ struct cdfPostDefPutVar *delayedPutVals = (struct cdfPostDefPutVar *) Malloc(sizeof(*delayedPutVals));
+ delayedPutVals->values.array = values;
+ delayedPutVals->fileID = fileID;
+ delayedPutVals->ncvarid = ncvarid;
+ *list_ = cdfPostDefActionAdd(
+ *list_, (struct cdfPostDefAction){ .data = (void *) delayedPutVals, .action = cdfDelayedPutVarDouble, .cleanup = cleanup });
+}
+
+static inline void
+cdfPostDefActionAddPut1Int(struct cdfPostDefActionList **list_, int fileID, int ncvarid, int iVal, void (*cleanup)(void *))
+{
+ struct cdfPostDefPutVar *delayedPutVals = (struct cdfPostDefPutVar *) Malloc(sizeof(*delayedPutVals));
+ delayedPutVals->values.int1 = iVal;
+ delayedPutVals->fileID = fileID;
+ delayedPutVals->ncvarid = ncvarid;
+ *list_ = cdfPostDefActionAdd(
+ *list_, (struct cdfPostDefAction){ .data = (void *) delayedPutVals, .action = cdfDelayedPutVarInt1, .cleanup = cleanup });
+}
+
+static void
+cdfGridCompress(int fileID, int ncvarid, size_t gridsize, int filetype, int comptype, size_t *chunks)
+{
+#ifdef HAVE_NETCDF4
+ if (gridsize >= 32 && comptype == CDI_COMPRESS_ZIP
+ && (filetype == CDI_FILETYPE_NC4 || filetype == CDI_FILETYPE_NC4C || filetype == CDI_FILETYPE_NCZARR))
+ {
+ cdf_def_var_chunking(fileID, ncvarid, NC_CHUNKED, chunks);
+ int shuffle = 1, compLevel = 1;
+ cdfDefVarDeflate(fileID, ncvarid, shuffle, compLevel);
+ }
+#endif
+}
+
+static struct cdfPostDefActionList *
+cdfDefAxisCommon(stream_t *streamptr, int gridID, int gridIndex, int ndims, bool addVarToGrid,
+ const struct cdfDefGridAxisInqs *gridAxisInq, int axisKey, char axisLetter,
+ void (*finishCyclicBounds)(double *pbounds, size_t dimlen, const double *pvals))
+{
+ int dimID = CDI_UNDEFID;
+ size_t dimlen = gridAxisInq->axisSize(gridID);
+ nc_type xtype = grid_inq_xtype(gridID);
+
+ ncgrid_t *ncgrid = streamptr->ncgrid;
+
+ bool hasVals = gridInqPropPresence(gridID, gridAxisInq->valsQueryKey);
+ char dimname[CDI_MAX_NAME + 3];
+ dimname[0] = 0;
+ int length = sizeof(dimname);
+ if (ndims && !hasVals) cdiInqKeyString(gridID, axisKey, CDI_KEY_DIMNAME, dimname, &length);
+
+ for (int index = 0; index < gridIndex; ++index)
+ {
+ int gridID0 = ncgrid[index].gridID;
+ assert(gridID0 != CDI_UNDEFID);
+ int gridtype0 = gridInqType(gridID0);
+ if (gridtype0 == GRID_GAUSSIAN || gridtype0 == GRID_LONLAT || gridtype0 == GRID_PROJECTION || gridtype0 == GRID_GENERIC)
+ {
+ size_t dimlen0 = gridAxisInq->axisSize(gridID0);
+ char dimname0[CDI_MAX_NAME];
+ dimname0[0] = 0;
+ length = sizeof(dimname0);
+ if (dimname[0]) cdiInqKeyString(gridID0, axisKey, CDI_KEY_DIMNAME, dimname0, &length);
+ bool lname = dimname0[0] ? str_is_equal(dimname, dimname0) : true;
+ if (dimlen == dimlen0 && lname)
+ {
+ double (*inqVal)(int gridID, SizeType index) = gridAxisInq->axisVal;
+ if (IS_EQUAL(inqVal(gridID0, 0), inqVal(gridID, 0))
+ && IS_EQUAL(inqVal(gridID0, dimlen - 1), inqVal(gridID, dimlen - 1)))
+ {
+ dimID = ncgrid[index].ncIDs[(axisLetter == 'X') ? CDF_DIMID_X : CDF_DIMID_Y];
+ break;
+ }
+ }
+ }
+ }
+
+ struct cdfPostDefActionList *delayed = NULL;
+ if (dimID == CDI_UNDEFID)
+ {
+ int ncvarid = CDI_UNDEFID;
+ char axisname[CDI_MAX_NAME];
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, axisKey, CDI_KEY_NAME, axisname, &length);
+ int fileID = streamptr->fileID;
+ if (axisname[0] == 0) Error("axis name undefined!");
+
+ checkGridName(axisname, fileID);
+ size_t axisnameLen = strlen(axisname);
+
+ bool switchNCMode = (streamptr->ncmode == 2 && (hasVals || ndims));
+ if (switchNCMode)
+ {
+ cdf_redef(fileID);
+ streamptr->ncmode = 1;
+ }
+
+ if (ndims)
+ {
+ if (dimname[0] == 0) strcpy(dimname, axisname);
+ dimID = checkDimName(fileID, dimlen, dimname);
+
+ if (dimID == CDI_UNDEFID) cdf_def_dim(fileID, dimname, dimlen, &dimID);
+ }
+
+ if (hasVals)
+ {
+ cdf_def_var(fileID, axisname, xtype, ndims, &dimID, &ncvarid);
+
+ int chunkSize = 0;
+ int chunkType = CDI_CHUNK_GRID;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_CHUNKTYPE, &chunkType);
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_CHUNKSIZE, &chunkSize);
+ if (chunkSize > 0) chunkType = CDI_CHUNK_AUTO;
+
+ if (chunkType == CDI_CHUNK_GRID && dimlen > ChunkSizeLim) chunkType = CDI_CHUNK_LINES;
+
+ size_t chunk = calc_chunksize_x(chunkType, chunkSize, dimlen, true);
+ cdfGridCompress(fileID, ncvarid, dimlen, streamptr->filetype, streamptr->comptype, &chunk);
+
+ cdfPutGridStdAtts(fileID, ncvarid, gridID, axisLetter);
+ {
+ char axisStr[2] = { axisLetter, '\0' };
+ cdf_put_att_text(fileID, ncvarid, "axis", 1, axisStr);
+ }
+ cdfFuncPtrPostDefActionGridProp mycdfPostDefActionGridProp
+ = (cdfFuncPtrPostDefActionGridProp) namespaceSwitchGet(NSSWITCH_CDF_POSTDEFACTION_GRID_PROP).func;
+ mycdfPostDefActionGridProp(streamptr, gridID, ncvarid, gridAxisInq->valsQueryKey, &delayed);
+
+ bool genBounds = false, hasBounds = gridInqPropPresence(gridID, gridAxisInq->bndsQueryKey);
+ bool grid_is_cyclic = (gridIsCircular(gridID) > 0);
+ double *restrict pbounds;
+ size_t nvertex = gridInqNvertex(gridID);
+ if (CDI_CMOR_Mode && grid_is_cyclic && !hasBounds)
+ {
+ const double *pvals = gridAxisInq->axisValsPtr(gridID);
+ genBounds = true;
+ nvertex = 2;
+ pbounds = (double *) Malloc(2 * dimlen * sizeof(double));
+ for (size_t i = 0; i < dimlen - 1; ++i)
+ {
+ pbounds[i * 2 + 1] = (pvals[i] + pvals[i + 1]) * 0.5;
+ pbounds[i * 2 + 2] = (pvals[i] + pvals[i + 1]) * 0.5;
+ }
+ finishCyclicBounds(pbounds, dimlen, pvals);
+ }
+ else
+ pbounds = (double *) gridAxisInq->axisBoundsPtr(gridID);
+
+ int nvdimID = CDI_UNDEFID;
+ if (pbounds)
+ {
+ if (nc_inq_dimid(fileID, bndsName, &nvdimID) != NC_NOERR) cdf_def_dim(fileID, bndsName, nvertex, &nvdimID);
+ }
+ if ((hasBounds || genBounds) && nvdimID != CDI_UNDEFID)
+ {
+ char boundsname[CDI_MAX_NAME];
+ memcpy(boundsname, axisname, axisnameLen);
+ boundsname[axisnameLen] = '_';
+ memcpy(boundsname + axisnameLen + 1, bndsName, sizeof(bndsName));
+ int dimIDs[2] = { dimID, nvdimID };
+ int ncbvarid;
+ cdf_def_var(fileID, boundsname, xtype, 2, dimIDs, &ncbvarid);
+ cdf_put_att_text(fileID, ncvarid, "bounds", axisnameLen + sizeof(bndsName), boundsname);
+ cdfPostDefActionAddPutVal(&delayed, fileID, ncbvarid, pbounds,
+ genBounds ? cdfDelayedPutVarDeepCleanup : (void (*)(void *))(void (*)(void)) memFree);
+ }
+ }
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ if (ndims == 0 || addVarToGrid) ncgrid[gridIndex].ncIDs[(axisLetter == 'X') ? CDF_VARID_X : CDF_VARID_Y] = ncvarid;
+ }
+
+ ncgrid[gridIndex].gridID = gridID;
+ ncgrid[gridIndex].ncIDs[(axisLetter == 'X') ? CDF_DIMID_X : CDF_DIMID_Y] = dimID;
+
+ return delayed;
+}
+
+static void
+finishCyclicXBounds(double *pbounds, size_t dimlen, const double *pvals)
+{
+ pbounds[0] = (pvals[0] + pvals[dimlen - 1] - 360) * 0.5;
+ pbounds[2 * dimlen - 1] = (pvals[dimlen - 1] + pvals[0] + 360) * 0.5;
+}
+
+static void
+finishCyclicYBounds(double *pbounds, size_t dimlen, const double *pvals)
+{
+ pbounds[0] = copysign(90.0, pvals[0]);
+ pbounds[2 * dimlen - 1] = copysign(90.0, pvals[dimlen - 1]);
+}
+
+static struct cdfPostDefActionList *
+cdfDefXaxis(stream_t *streamptr, int gridID, int gridIndex, int ndims, bool addVarToGrid)
+{
+ return cdfDefAxisCommon(streamptr, gridID, gridIndex, ndims, addVarToGrid, &gridInqsX, CDI_XAXIS, 'X', finishCyclicXBounds);
+}
+
+static struct cdfPostDefActionList *
+cdfDefYaxis(stream_t *streamptr, int gridID, int gridIndex, int ndims, bool addVarToGrid)
+{
+ return cdfDefAxisCommon(streamptr, gridID, gridIndex, ndims, addVarToGrid, &gridInqsY, CDI_YAXIS, 'Y', finishCyclicYBounds);
+}
+
+static void
+cdfDefGridReference(stream_t *streamptr, int gridID)
+{
+ int fileID = streamptr->fileID;
+
+ int number = 0;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDUSED, &number);
+ if (number > 0) cdf_put_att_int(fileID, NC_GLOBAL, "number_of_grid_used", NC_INT, 1, &number);
+
+ grid_t *gridptr = grid_to_pointer(gridID);
+ const char *gridfile = cdiInqVarKeyStringPtr(&gridptr->keys, CDI_KEY_REFERENCEURI);
+ if (gridfile && gridfile[0] != 0) cdf_put_att_text(fileID, NC_GLOBAL, "grid_file_uri", strlen(gridfile), gridfile);
+}
+
+static void
+cdfDefGridUUID(stream_t *streamptr, int gridID)
+{
+ unsigned char uuid[CDI_UUID_SIZE] = { 0 };
+ int length = CDI_UUID_SIZE;
+ cdiInqKeyBytes(gridID, CDI_GLOBAL, CDI_KEY_UUID, uuid, &length);
+ if (!cdiUUIDIsNull(uuid))
+ {
+ char uuidStr[uuidNumHexChars + 1] = { 0 };
+ if (cdiUUID2Str(uuid, uuidStr) == uuidNumHexChars)
+ {
+ int fileID = streamptr->fileID;
+ // if (streamptr->ncmode == 2) cdf_redef(fileID);
+ cdf_put_att_text(fileID, NC_GLOBAL, "uuidOfHGrid", uuidNumHexChars, uuidStr);
+ // if (streamptr->ncmode == 2 cdf_enddef(fileID, streamptr->self);
+ }
+ }
+}
+
+void
+cdfPostDefActionGridProp(stream_t *streamptr, int gridID, int ncvarid, enum gridPropInq gridProp,
+ struct cdfPostDefActionList **delayed)
+{
+ const void *valsPtr = NULL;
+ switch (gridProp)
+ {
+ case GRID_PROP_MASK:
+ case GRID_PROP_MASK_GME: Error("unsupported key: %d", (int) gridProp); break;
+ case GRID_PROP_XVALS: valsPtr = gridInqXvalsPtr(gridID); break;
+ case GRID_PROP_YVALS: valsPtr = gridInqYvalsPtr(gridID); break;
+ case GRID_PROP_AREA: valsPtr = gridInqAreaPtr(gridID); break;
+ case GRID_PROP_XBOUNDS: valsPtr = gridInqXboundsPtr(gridID); break;
+ case GRID_PROP_YBOUNDS: valsPtr = gridInqYboundsPtr(gridID); break;
+ }
+ cdfPostDefActionAddPutVal(delayed, streamptr->fileID, ncvarid, (const double *) valsPtr,
+ (void (*)(void *))(void (*)(void)) memFree);
+}
+
+static int
+cdfDefIrregularGridAxisSetup(stream_t *streamptr, int gridID, nc_type xtype, int varID, size_t dimlens, int ndims, int dimIDs[],
+ size_t *chunks, const struct cdfDefGridAxisInqs *inqs, struct cdfPostDefActionList **delayed)
+{
+ int ncvarid = CDI_UNDEFID;
+ int fileID = streamptr->fileID;
+ if (gridInqPropPresence(gridID, inqs->valsQueryKey))
+ {
+ char axisname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, varID, CDI_KEY_NAME, axisname, &length);
+ checkGridName(axisname, fileID);
+ cdf_def_var(fileID, axisname, xtype, ndims - 1, dimIDs, &ncvarid);
+ cdfGridCompress(fileID, ncvarid, dimlens, streamptr->filetype, streamptr->comptype, chunks);
+
+ cdfPutGridStdAtts(fileID, ncvarid, gridID, inqs->axisSym);
+ cdfFuncPtrPostDefActionGridProp mycdfPostDefActionGridProp
+ = (cdfFuncPtrPostDefActionGridProp) namespaceSwitchGet(NSSWITCH_CDF_POSTDEFACTION_GRID_PROP).func;
+ mycdfPostDefActionGridProp(streamptr, gridID, ncvarid, inqs->valsQueryKey, delayed);
+
+ // attribute for Panoply
+ if (!CDI_CMOR_Mode && ndims == 3) cdf_put_att_text(fileID, ncvarid, "_CoordinateAxisType", 3, inqs->axisPanoplyName);
+
+ if (gridInqPropPresence(gridID, inqs->bndsQueryKey) && dimIDs[ndims - 1] != CDI_UNDEFID)
+ {
+ size_t axisnameLen = strlen(axisname);
+ axisname[axisnameLen] = '_';
+ memcpy(axisname + axisnameLen + 1, bndsName, sizeof(bndsName));
+ int ncbvarid;
+ cdf_def_var(fileID, axisname, xtype, ndims, dimIDs, &ncbvarid);
+ cdfGridCompress(fileID, ncbvarid, dimlens, streamptr->filetype, streamptr->comptype, chunks);
+
+ cdf_put_att_text(fileID, ncvarid, "bounds", axisnameLen + sizeof(bndsName), axisname);
+ mycdfPostDefActionGridProp(streamptr, gridID, ncbvarid, inqs->bndsQueryKey, delayed);
+ }
+ }
+ return ncvarid;
+}
+
+struct cdfDefIrregularGridCommonIDs
+{
+ int xdimID, ydimID, ncxvarid, ncyvarid, ncavarid;
+ struct cdfPostDefActionList *delayed;
+};
+
+static struct cdfDefIrregularGridCommonIDs
+cdfDefIrregularGridCommon(stream_t *streamptr, int gridID, size_t xsize, size_t ysize, int ndims, const char *xdimname_default,
+ size_t nvertex, const char *vdimname_default, bool setVdimname)
+{
+ nc_type xtype = grid_inq_xtype(gridID);
+ int xdimID = CDI_UNDEFID;
+ int ydimID = CDI_UNDEFID;
+ int fileID = streamptr->fileID;
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ cdf_redef(fileID);
+ streamptr->ncmode = 1;
+ }
+
+ {
+ char xdimname[CDI_MAX_NAME + 3];
+ int length = sizeof(xdimname);
+ cdiInqKeyString(gridID, CDI_XAXIS, CDI_KEY_DIMNAME, xdimname, &length);
+ if (xdimname[0] == 0) strcpy(xdimname, xdimname_default);
+ xdimID = checkDimName(fileID, xsize, xdimname);
+ if (xdimID == CDI_UNDEFID) cdf_def_dim(fileID, xdimname, xsize, &xdimID);
+ }
+
+ if (ndims == 3)
+ {
+ char ydimname[CDI_MAX_NAME + 3];
+ int length = sizeof(ydimname);
+ cdiInqKeyString(gridID, CDI_YAXIS, CDI_KEY_DIMNAME, ydimname, &length);
+ if (ydimname[0] == 0)
+ {
+ ydimname[0] = 'y';
+ ydimname[1] = 0;
+ }
+ ydimID = checkDimName(fileID, ysize, ydimname);
+ if (ydimID == CDI_UNDEFID) cdf_def_dim(fileID, ydimname, ysize, &ydimID);
+ }
+
+ int nvdimID = CDI_UNDEFID;
+ int dimIDs[3];
+ dimIDs[ndims - 1] = CDI_UNDEFID;
+ if (setVdimname)
+ {
+ char vdimname[CDI_MAX_NAME + 3];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_VDIMNAME, vdimname, &length);
+ if (vdimname[0] == 0) strcpy(vdimname, vdimname_default);
+ nvdimID = dimIDs[ndims - 1] = checkDimName(fileID, nvertex, vdimname);
+ if (nvdimID == CDI_UNDEFID) cdf_def_dim(fileID, vdimname, nvertex, dimIDs + ndims - 1);
+ }
+
+ size_t gridsize = xsize * ysize;
+ size_t chunks[3] = { 1, 1, 1 };
+ int chunkSize = 0;
+ int chunkType = CDI_CHUNK_GRID;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_CHUNKTYPE, &chunkType);
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_CHUNKSIZE, &chunkSize);
+ if (chunkSize > 0 && ydimID == CDI_UNDEFID) chunkType = CDI_CHUNK_AUTO;
+
+ if (chunkType == CDI_CHUNK_GRID && gridsize > ChunkSizeLim) chunkType = CDI_CHUNK_LINES;
+
+ if (ndims == 3)
+ {
+ chunks[0] = calc_chunksize_y(chunkType, gridsize, xsize, ysize);
+ chunks[1] = calc_chunksize_x(chunkType, chunkSize, xsize, (ydimID == CDI_UNDEFID));
+ dimIDs[0] = ydimID;
+ dimIDs[1] = xdimID;
+ }
+ else // ndims == 2
+ {
+ chunks[0] = calc_chunksize_x(chunkType, chunkSize, xsize, (ydimID == CDI_UNDEFID));
+ dimIDs[0] = xdimID;
+ cdfDefGridReference(streamptr, gridID);
+ cdfDefGridUUID(streamptr, gridID);
+ }
+
+ struct cdfPostDefActionList *delayed = NULL;
+ int ncxvarid
+ = cdfDefIrregularGridAxisSetup(streamptr, gridID, xtype, CDI_XAXIS, gridsize, ndims, dimIDs, chunks, &gridInqsX, &delayed);
+ int ncyvarid
+ = cdfDefIrregularGridAxisSetup(streamptr, gridID, xtype, CDI_YAXIS, gridsize, ndims, dimIDs, chunks, &gridInqsY, &delayed);
+
+ int ncavarid = CDI_UNDEFID;
+ if (gridInqPropPresence(gridID, GRID_PROP_AREA))
+ {
+ static const char yaxisname_[] = "cell_area";
+ static const char units[] = "m2";
+ static const char longname[] = "area of grid cell";
+ static const char stdname[] = "cell_area";
+
+ cdf_def_var(fileID, yaxisname_, xtype, ndims - 1, dimIDs, &ncavarid);
+
+ cdf_put_att_text(fileID, ncavarid, "standard_name", sizeof(stdname) - 1, stdname);
+ cdf_put_att_text(fileID, ncavarid, "long_name", sizeof(longname) - 1, longname);
+ cdf_put_att_text(fileID, ncavarid, "units", sizeof(units) - 1, units);
+ cdfFuncPtrPostDefActionGridProp mycdfPostDefActionGridProp
+ = (cdfFuncPtrPostDefActionGridProp) namespaceSwitchGet(NSSWITCH_CDF_POSTDEFACTION_GRID_PROP).func;
+ mycdfPostDefActionGridProp(streamptr, gridID, ncavarid, GRID_PROP_AREA, &delayed);
+ }
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ return (struct cdfDefIrregularGridCommonIDs){
+ .xdimID = xdimID, .ydimID = ydimID, .ncxvarid = ncxvarid, .ncyvarid = ncyvarid, .ncavarid = ncavarid, .delayed = delayed
+ };
+}
+
+static struct cdfPostDefActionList *
+cdfDefCurvilinear(stream_t *streamptr, int gridID, int gridIndex)
+{
+ ncgrid_t *ncgrid = streamptr->ncgrid;
+
+ size_t dimlen = gridInqSize(gridID);
+ size_t xdimlen = gridInqXsize(gridID);
+ size_t ydimlen = gridInqYsize(gridID);
+
+ int xdimID = CDI_UNDEFID, ydimID = CDI_UNDEFID;
+ int ncxvarid = CDI_UNDEFID, ncyvarid = CDI_UNDEFID, ncavarid = CDI_UNDEFID;
+
+ size_t ofs = 0;
+ do
+ {
+ struct idSearch search = cdfSearchIDBySize(ofs, (size_t) gridIndex, ncgrid, CDF_DIMID_X, GRID_CURVILINEAR, (int) dimlen,
+ gridInqType, gridInqSize);
+ size_t index = search.foundIdx;
+ if (index != SIZE_MAX)
+ {
+ int gridID0 = ncgrid[index].gridID;
+ if (IS_EQUAL(gridInqXval(gridID0, 0), gridInqXval(gridID, 0))
+ && IS_EQUAL(gridInqXval(gridID0, dimlen - 1), gridInqXval(gridID, dimlen - 1))
+ && IS_EQUAL(gridInqYval(gridID0, 0), gridInqYval(gridID, 0))
+ && IS_EQUAL(gridInqYval(gridID0, dimlen - 1), gridInqYval(gridID, dimlen - 1)))
+ {
+ xdimID = ncgrid[index].ncIDs[CDF_DIMID_X];
+ ydimID = ncgrid[index].ncIDs[CDF_DIMID_Y];
+ ncxvarid = ncgrid[index].ncIDs[CDF_VARID_X];
+ ncyvarid = ncgrid[index].ncIDs[CDF_VARID_Y];
+ break;
+ }
+ ofs = search.foundIdx;
+ if (ofs < (size_t) gridIndex) continue;
+ }
+ }
+ while (false);
+
+ struct cdfPostDefActionList *delayed = NULL;
+ if (xdimID == CDI_UNDEFID || ydimID == CDI_UNDEFID)
+ {
+ struct cdfDefIrregularGridCommonIDs createdIDs = cdfDefIrregularGridCommon(
+ streamptr, gridID, xdimlen, ydimlen, 3, "x", 4, "nv4",
+ gridInqPropPresence(gridID, GRID_PROP_XBOUNDS) || gridInqPropPresence(gridID, GRID_PROP_YBOUNDS));
+ xdimID = createdIDs.xdimID;
+ ydimID = createdIDs.ydimID;
+ ncxvarid = createdIDs.ncxvarid;
+ ncyvarid = createdIDs.ncyvarid;
+ ncavarid = createdIDs.ncavarid;
+ delayed = createdIDs.delayed;
+ }
+
+ ncgrid[gridIndex].gridID = gridID;
+ ncgrid[gridIndex].ncIDs[CDF_DIMID_X] = xdimID;
+ ncgrid[gridIndex].ncIDs[CDF_DIMID_Y] = ydimID;
+ ncgrid[gridIndex].ncIDs[CDF_VARID_X] = ncxvarid;
+ ncgrid[gridIndex].ncIDs[CDF_VARID_Y] = ncyvarid;
+ ncgrid[gridIndex].ncIDs[CDF_VARID_A] = ncavarid;
+ return delayed;
+}
+
+static struct cdfPostDefActionList *
+cdfDefUnstructured(stream_t *streamptr, int gridID, int gridIndex)
+{
+ ncgrid_t *ncgrid = streamptr->ncgrid;
+
+ size_t dimlen = gridInqSize(gridID);
+
+ int dimID = CDI_UNDEFID;
+ int ncxvarid = CDI_UNDEFID, ncyvarid = CDI_UNDEFID, ncavarid = CDI_UNDEFID;
+
+ size_t ofs = 0;
+ do
+ {
+ struct idSearch search = cdfSearchIDBySize(ofs, (size_t) gridIndex, ncgrid, CDF_DIMID_X, GRID_UNSTRUCTURED, (int) dimlen,
+ gridInqType, gridInqSize);
+ size_t index = search.foundIdx;
+ if (index != SIZE_MAX)
+ {
+ int gridID0 = ncgrid[index].gridID;
+ if (gridInqNvertex(gridID0) == gridInqNvertex(gridID) && IS_EQUAL(gridInqXval(gridID0, 0), gridInqXval(gridID, 0))
+ && IS_EQUAL(gridInqXval(gridID0, dimlen - 1), gridInqXval(gridID, dimlen - 1))
+ && IS_EQUAL(gridInqYval(gridID0, 0), gridInqYval(gridID, 0))
+ && IS_EQUAL(gridInqYval(gridID0, dimlen - 1), gridInqYval(gridID, dimlen - 1)))
+ {
+ dimID = ncgrid[index].ncIDs[CDF_DIMID_X];
+ ncxvarid = ncgrid[index].ncIDs[CDF_VARID_X];
+ ncyvarid = ncgrid[index].ncIDs[CDF_VARID_Y];
+ ncavarid = ncgrid[index].ncIDs[CDF_VARID_A];
+ break;
+ }
+ ofs = search.foundIdx;
+ if (ofs < (size_t) gridIndex) continue;
+ }
+ }
+ while (false);
+
+ struct cdfPostDefActionList *delayed = NULL;
+ if (dimID == CDI_UNDEFID)
+ {
+ size_t nvertex = (size_t) gridInqNvertex(gridID);
+ struct cdfDefIrregularGridCommonIDs createdIDs
+ = cdfDefIrregularGridCommon(streamptr, gridID, dimlen, 1, 2, "ncells", nvertex, "vertices", nvertex > 0);
+ dimID = createdIDs.xdimID;
+ ncxvarid = createdIDs.ncxvarid;
+ ncyvarid = createdIDs.ncyvarid;
+ ncavarid = createdIDs.ncavarid;
+ delayed = createdIDs.delayed;
+ }
+
+ ncgrid[gridIndex].gridID = gridID;
+ ncgrid[gridIndex].ncIDs[CDF_DIMID_X] = dimID;
+ ncgrid[gridIndex].ncIDs[CDF_VARID_X] = ncxvarid;
+ ncgrid[gridIndex].ncIDs[CDF_VARID_Y] = ncyvarid;
+ ncgrid[gridIndex].ncIDs[CDF_VARID_A] = ncavarid;
+ return delayed;
+}
+
+struct attTxtTab
+{
+ const char *txt;
+ size_t txtLen;
+};
+
+struct attTxtTab2
+{
+ const char *attName, *attVal;
+ size_t valLen;
+};
+
+static struct cdfPostDefActionList *
+cdf_def_vct_echam(stream_t *streamptr, int zaxisID)
+{
+ int type = zaxisInqType(zaxisID);
+
+ int ilev;
+ struct cdfPostDefActionList *delayed = NULL;
+ if ((type == ZAXIS_HYBRID || type == ZAXIS_HYBRID_HALF) && (ilev = zaxisInqVctSize(zaxisID) / 2) != 0)
+ {
+ int mlev = ilev - 1;
+
+ if (streamptr->vct.ilev > 0)
+ {
+ if (streamptr->vct.ilev != ilev) Error("More than one VCT for each file unsupported!");
+ return delayed;
+ }
+
+ int fileID = streamptr->fileID;
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ int ncdimid = -1, ncdimid2 = -1;
+ int hyaiid, hybiid, hyamid = -1, hybmid = -1;
+
+ cdf_def_dim(fileID, "nhyi", (size_t) ilev, &ncdimid2);
+ cdf_def_var(fileID, "hyai", NC_DOUBLE, 1, &ncdimid2, &hyaiid);
+ cdf_def_var(fileID, "hybi", NC_DOUBLE, 1, &ncdimid2, &hybiid);
+ if (mlev > 0)
+ {
+ cdf_def_dim(fileID, "nhym", (size_t) mlev, &ncdimid);
+ cdf_def_var(fileID, "hyam", NC_DOUBLE, 1, &ncdimid, &hyamid);
+ cdf_def_var(fileID, "hybm", NC_DOUBLE, 1, &ncdimid, &hybmid);
+ }
+
+ streamptr->vct.ilev = ilev;
+ streamptr->vct.mlev = mlev;
+ streamptr->vct.mlevID = ncdimid;
+ streamptr->vct.ilevID = ncdimid2;
+
+ {
+ static const char lname_n[] = "long_name", units_n[] = "units", lname_v_ai[] = "hybrid A coefficient at layer interfaces",
+ units_v_ai[] = "Pa", lname_v_bi[] = "hybrid B coefficient at layer interfaces", units_v_bi[] = "1";
+ static const struct attTxtTab2 tab[] = {
+ { lname_n, lname_v_ai, sizeof(lname_v_ai) - 1 },
+ { units_n, units_v_ai, sizeof(units_v_ai) - 1 },
+ { lname_n, lname_v_bi, sizeof(lname_v_bi) - 1 },
+ { units_n, units_v_bi, sizeof(units_v_bi) - 1 },
+ };
+ enum
+ {
+ tabLen = sizeof(tab) / sizeof(tab[0])
+ };
+ int ids[tabLen] = { hyaiid, hyaiid, hybiid, hybiid };
+ for (size_t i = 0; i < tabLen; ++i) cdf_put_att_text(fileID, ids[i], tab[i].attName, tab[i].valLen, tab[i].attVal);
+ }
+
+ {
+ static const char lname_n[] = "long_name", units_n[] = "units", lname_v_am[] = "hybrid A coefficient at layer midpoints",
+ units_v_am[] = "Pa", lname_v_bm[] = "hybrid B coefficient at layer midpoints", units_v_bm[] = "1";
+ static const struct attTxtTab2 tab[] = {
+ { lname_n, lname_v_am, sizeof(lname_v_am) - 1 },
+ { units_n, units_v_am, sizeof(units_v_am) - 1 },
+ { lname_n, lname_v_bm, sizeof(lname_v_bm) - 1 },
+ { units_n, units_v_bm, sizeof(units_v_bm) - 1 },
+ };
+ enum
+ {
+ tabLen = sizeof(tab) / sizeof(tab[0])
+ };
+ int ids[tabLen] = { hyamid, hyamid, hybmid, hybmid };
+ for (size_t i = 0; i < tabLen; ++i) cdf_put_att_text(fileID, ids[i], tab[i].attName, tab[i].valLen, tab[i].attVal);
+ }
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ const double *vctptr = zaxisInqVctPtr(zaxisID);
+
+ cdfPostDefActionAddPutVal(&delayed, fileID, hyaiid, vctptr, (void (*)(void *))(void (*)(void)) memFree);
+ cdfPostDefActionAddPutVal(&delayed, fileID, hybiid, vctptr + ilev, (void (*)(void *))(void (*)(void)) memFree);
+ {
+ double *restrict amidVal = (double *) Malloc((size_t) mlev * sizeof(*amidVal));
+ for (size_t i = 0; i < (size_t) mlev; ++i) amidVal[i] = (vctptr[i] + vctptr[i + 1]) * 0.5;
+ cdfPostDefActionAddPutVal(&delayed, fileID, hyamid, amidVal, cdfDelayedPutVarDeepCleanup);
+ }
+ {
+ double *restrict bmidVal = (double *) Malloc((size_t) mlev * sizeof(*bmidVal));
+ for (size_t i = 0; i < (size_t) mlev; ++i) bmidVal[i] = (vctptr[(size_t) ilev + i] + vctptr[(size_t) ilev + i + 1]) * 0.5;
+ cdfPostDefActionAddPutVal(&delayed, fileID, hybmid, bmidVal, cdfDelayedPutVarDeepCleanup);
+ }
+ }
+ return delayed;
+}
+
+static struct cdfPostDefActionList *
+cdf_def_vct_cf(stream_t *streamptr, int zaxisID, int nclevID, int ncbndsID, int p0status, double p0value)
+{
+ int type = zaxisInqType(zaxisID);
+
+ struct cdfPostDefActionList *delayed = NULL;
+ int ilev;
+ if ((type == ZAXIS_HYBRID || type == ZAXIS_HYBRID_HALF) && (ilev = zaxisInqVctSize(zaxisID) / 2) != 0)
+ {
+ int mlev = ilev - 1;
+
+ if (streamptr->vct.ilev > 0)
+ {
+ if (streamptr->vct.ilev != ilev) Error("more than one VCT for each file unsupported!");
+ return delayed;
+ }
+
+ int fileID = streamptr->fileID;
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ cdf_redef(fileID);
+ streamptr->ncmode = 1;
+ }
+
+ int dimIDs[2] = { nclevID, ncbndsID };
+
+ streamptr->vct.mlev = mlev;
+ streamptr->vct.ilev = ilev;
+ streamptr->vct.mlevID = nclevID;
+ streamptr->vct.ilevID = nclevID;
+
+ int hyamid, hybmid;
+ cdf_def_var(fileID, (p0status == 0) ? "a" : "ap", NC_DOUBLE, 1, dimIDs, &hyamid);
+ cdf_def_var(fileID, "b", NC_DOUBLE, 1, dimIDs, &hybmid);
+
+ {
+ static const char anametab[][10] = { "long_name", "units" };
+ static const char lname_v_a[] = "vertical coordinate formula term: ap(k)",
+ lname_v_b[] = "vertical coordinate formula term: b(k)", units_v_a[] = "Pa", units_v_b[] = "1";
+ static struct attTxtTab attvtab[][2] = { { { lname_v_a, sizeof(lname_v_a) - 1 }, { units_v_a, sizeof(units_v_a) - 1 } },
+ { { lname_v_b, sizeof(lname_v_b) - 1 }, { units_v_b, sizeof(units_v_b) - 1 } } };
+ int termid[] = { hyamid, hybmid };
+ enum
+ {
+ numTerms = sizeof(termid) / sizeof(termid[0]),
+ numAtts = sizeof(anametab) / sizeof(anametab[0]),
+ };
+ for (size_t termIdx = 0; termIdx < numTerms; ++termIdx)
+ for (size_t attIdx = 0; attIdx < numAtts; ++attIdx)
+ cdf_put_att_text(fileID, termid[termIdx], anametab[attIdx], attvtab[termIdx][attIdx].txtLen,
+ attvtab[termIdx][attIdx].txt);
+ }
+ double *restrict vctptr = (double *) zaxisInqVctPtr(zaxisID);
+ if (p0status == 0 && IS_NOT_EQUAL(p0value, 0))
+ {
+ double *restrict temp = (double *) Malloc((size_t) ilev * sizeof(*temp));
+ for (size_t i = 0; i < (size_t) ilev; ++i) temp[i] = vctptr[i] / p0value;
+ vctptr = temp;
+ }
+
+ {
+ double *restrict mlevValA = (double *) Malloc((size_t) mlev * sizeof(*mlevValA));
+ for (size_t i = 0; i < (size_t) mlev; ++i) mlevValA[i] = (vctptr[i] + vctptr[i + 1]) * 0.5;
+ cdfPostDefActionAddPutVal(&delayed, fileID, hyamid, mlevValA, cdfDelayedPutVarDeepCleanup);
+ }
+ {
+ double *restrict mlevValB = (double *) Malloc((size_t) mlev * sizeof(*mlevValB));
+ for (size_t i = 0; i < (size_t) mlev; ++i) mlevValB[i] = (vctptr[(size_t) ilev + i] + vctptr[(size_t) ilev + i + 1]) * 0.5;
+ cdfPostDefActionAddPutVal(&delayed, fileID, hybmid, mlevValB, cdfDelayedPutVarDeepCleanup);
+ }
+
+ if (ncbndsID != -1)
+ {
+ int hyaiid, hybiid;
+ cdf_def_var(fileID, (p0status == 0) ? "a_bnds" : "ap_bnds", NC_DOUBLE, 2, dimIDs, &hyaiid);
+ cdf_def_var(fileID, "b_bnds", NC_DOUBLE, 2, dimIDs, &hybiid);
+ static const char anametab[][10] = { "long_name", "units" };
+ static const char lname_v_a[] = "vertical coordinate formula term: ap(k+1/2)",
+ lname_v_b[] = "vertical coordinate formula term: b(k+1/2)", units_v_a[] = "Pa", units_v_b[] = "1";
+ static struct attTxtTab attvtab[][2] = { { { lname_v_a, sizeof(lname_v_a) - 1 }, { units_v_a, sizeof(units_v_a) - 1 } },
+ { { lname_v_b, sizeof(lname_v_b) - 1 }, { units_v_b, sizeof(units_v_b) - 1 } } };
+ int termid[] = { hyaiid, hybiid };
+ enum
+ {
+ numTerms = sizeof(termid) / sizeof(termid[0]),
+ numAtts = sizeof(anametab) / sizeof(anametab[0]),
+ };
+ for (size_t termIdx = 0; termIdx < numTerms; ++termIdx)
+ for (size_t attIdx = 0; attIdx < numAtts; ++attIdx)
+ cdf_put_att_text(fileID, termid[termIdx], anametab[attIdx], attvtab[termIdx][attIdx].txtLen,
+ attvtab[termIdx][attIdx].txt);
+
+ {
+ double *restrict ilevValA = (double *) Malloc((size_t) mlev * 2 * sizeof(*ilevValA));
+ for (size_t i = 0; i < (size_t) mlev; ++i)
+ {
+ ilevValA[2 * i] = vctptr[i];
+ ilevValA[2 * i + 1] = vctptr[i + 1];
+ }
+ cdfPostDefActionAddPutVal(&delayed, fileID, hyaiid, ilevValA, cdfDelayedPutVarDeepCleanup);
+ }
+ {
+ double *restrict ilevValB = (double *) Malloc((size_t) mlev * 2 * sizeof(*ilevValB));
+ for (size_t i = 0; i < (size_t) mlev; ++i)
+ {
+ ilevValB[2 * i] = vctptr[(size_t) ilev + i];
+ ilevValB[2 * i + 1] = vctptr[(size_t) ilev + i + 1];
+ }
+ cdfPostDefActionAddPutVal(&delayed, fileID, hybiid, ilevValB, cdfDelayedPutVarDeepCleanup);
+ }
+ }
+ if (p0status == 0 && IS_NOT_EQUAL(p0value, 0)) Free(vctptr);
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+ }
+ return delayed;
+}
+
+static struct cdfPostDefActionList *
+cdf_def_zaxis_hybrid_echam(stream_t *streamptr, int type, int *ncvaridp, int zaxisID, int zaxisindex, int xtype, size_t dimlen,
+ int *dimID, char *axisname)
+{
+ int fileID = streamptr->fileID;
+ struct cdfPostDefActionList *delayed = NULL;
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ cdf_def_dim(fileID, axisname, dimlen, dimID);
+ cdf_def_var(fileID, axisname, (nc_type) xtype, 1, dimID, ncvaridp);
+ int ncvarid = *ncvaridp;
+
+ {
+ static const char sname[] = "hybrid_sigma_pressure";
+ cdf_put_att_text(fileID, ncvarid, "standard_name", sizeof(sname) - 1, sname);
+ }
+ {
+ static const char *attName[] = { "long_name", "formula", "formula_terms" };
+ enum
+ {
+ nAtt = sizeof(attName) / sizeof(attName[0])
+ };
+ static const char lname_m[] = "hybrid level at layer midpoints", formula_m[] = "hyam hybm (mlev=hyam+hybm*aps)",
+ fterms_m[] = "ap: hyam b: hybm ps: aps", lname_i[] = "hybrid level at layer interfaces",
+ formula_i[] = "hyai hybi (ilev=hyai+hybi*aps)", fterms_i[] = "ap: hyai b: hybi ps: aps";
+ static const struct attTxtTab tab[2][nAtt]
+ = { { { lname_i, sizeof(lname_i) - 1 }, { formula_i, sizeof(formula_i) - 1 }, { fterms_i, sizeof(fterms_i) - 1 } },
+ { { lname_m, sizeof(lname_m) - 1 }, { formula_m, sizeof(formula_m) - 1 }, { fterms_m, sizeof(fterms_m) - 1 } } };
+
+ size_t tabSelect = type == ZAXIS_HYBRID;
+ for (size_t i = 0; i < nAtt; ++i)
+ cdf_put_att_text(fileID, ncvarid, attName[i], tab[tabSelect][i].txtLen, tab[tabSelect][i].txt);
+ }
+
+ {
+ static const char units[] = "level";
+ cdf_put_att_text(fileID, ncvarid, "units", sizeof(units) - 1, units);
+ }
+ {
+ static const char direction[] = "down";
+ cdf_put_att_text(fileID, ncvarid, "positive", sizeof(direction) - 1, direction);
+ }
+
+ if (zaxisInqLevels(zaxisID, NULL))
+ cdfPostDefActionAddPutVal(&delayed, fileID, ncvarid, zaxisInqLevelsPtr(zaxisID), (void (*)(void *))(void (*)(void)) memFree);
+
+ {
+ struct cdfPostDefActionList *delayedVct = cdf_def_vct_echam(streamptr, zaxisID);
+ delayed = cdfPostDefActionConcat(delayed, delayedVct);
+ Free(delayedVct);
+ }
+
+ if (*dimID == CDI_UNDEFID) streamptr->zaxisID[zaxisindex] = type == ZAXIS_HYBRID ? streamptr->vct.mlevID : streamptr->vct.ilevID;
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ return delayed;
+}
+
+static struct cdfPostDefActionList *
+cdf_def_zaxis_hybrid_cf(stream_t *streamptr, int type, int *ncvaridp, int zaxisID, int zaxisindex, int xtype, size_t dimlen,
+ int *dimID, char *axisname)
+{
+ char psname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_PSNAME, psname, &length);
+ if (psname[0] == 0) strcpy(psname, "ps");
+
+ int fileID = streamptr->fileID;
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ char p0name[CDI_MAX_NAME];
+ p0name[0] = 0;
+ double p0value = 1;
+ int p0varid = CDI_UNDEFID;
+ int p0status = cdiInqKeyFloat(zaxisID, CDI_GLOBAL, CDI_KEY_P0VALUE, &p0value);
+ if (p0status == CDI_NOERR)
+ {
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_P0NAME, p0name, &length);
+ if (p0name[0] == 0) strcpy(p0name, "p0");
+ cdf_def_var(fileID, p0name, NC_DOUBLE, 0, 0, &p0varid);
+ static const char longname[] = "reference pressure";
+ cdf_put_att_text(fileID, p0varid, "long_name", sizeof(longname) - 1, longname);
+ static const char units[] = "Pa";
+ cdf_put_att_text(fileID, p0varid, "units", sizeof(units) - 1, units);
+ }
+
+ char zname[CDI_MAX_NAME];
+ char zlongname[CDI_MAX_NAME];
+ char zunits[CDI_MAX_NAME];
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_NAME, zname, &length);
+ if (zname[0]) strcpy(axisname, zname);
+ zlongname[0] = 0;
+ size_t zlongnameLen;
+ if (zlongname[0] == 0)
+ {
+ static const char default_zlongname[] = "hybrid sigma pressure coordinate";
+ memcpy(zlongname, default_zlongname, sizeof(default_zlongname));
+ zlongnameLen = sizeof(default_zlongname) - 1;
+ }
+ else
+ zlongnameLen = strlen(zlongname);
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, zunits, &length);
+ size_t zunitsLen;
+ if (zunits[0] == 0)
+ {
+ zunits[0] = '1';
+ zunits[1] = '\0';
+ zunitsLen = 1;
+ }
+ else
+ zunitsLen = strlen(zunits);
+
+ cdf_def_dim(fileID, axisname, dimlen, dimID);
+ cdf_def_var(fileID, axisname, (nc_type) xtype, 1, dimID, ncvaridp);
+ int ncvarid = *ncvaridp;
+
+ {
+ static const char sname[] = "standard_name", lname[] = "long_name", sname_v[] = "atmosphere_hybrid_sigma_pressure_coordinate",
+ axis[] = "axis", axis_v[] = "Z", direction[] = "positive", direction_v[] = "down", units[] = "units";
+ struct attTxtTab2 tab[] = {
+ { sname, sname_v, sizeof(sname_v) - 1 },
+ { axis, axis_v, sizeof(axis_v) - 1 },
+ { direction, direction_v, sizeof(direction_v) - 1 },
+ { units, zunits, zunitsLen },
+ { lname, zlongname, zlongnameLen },
+ };
+ enum
+ {
+ nAtt = sizeof(tab) / sizeof(tab[0])
+ };
+ for (size_t i = 0; i < nAtt; ++i) cdf_put_att_text(fileID, ncvarid, tab[i].attName, tab[i].valLen, tab[i].attVal);
+ }
+
+ size_t len = 0;
+ char txt[CDI_MAX_NAME * 2 + 30];
+ if (p0status == 0)
+ len = (size_t) (snprintf(txt, sizeof(txt), "%s%s %s%s", "a: a b: b p0: ", p0name, "ps: ", psname));
+ else
+ len = (size_t) (snprintf(txt, sizeof(txt), "%s%s", "ap: ap b: b ps: ", psname));
+ cdf_put_att_text(fileID, ncvarid, "formula_terms", len, txt);
+
+ int ncbvarid = CDI_UNDEFID;
+ int nvdimID = CDI_UNDEFID;
+
+ double *buffer = (double *) malloc(2 * dimlen * sizeof(double));
+ double *lbounds = buffer;
+ double *ubounds = buffer + dimlen;
+ double *restrict levels;
+
+ bool hasLevels = zaxisInqLevels(zaxisID, NULL) != 0;
+ if (hasLevels)
+ levels = (double *) zaxisInqLevelsPtr(zaxisID);
+ else
+ {
+ levels = (double *) Malloc(sizeof(*levels) * dimlen);
+ for (size_t i = 0; i < dimlen; ++i) levels[i] = (double) (i + 1);
+ }
+
+ if (zaxisInqLbounds(zaxisID, NULL) && zaxisInqUbounds(zaxisID, NULL))
+ {
+ zaxisInqLbounds(zaxisID, lbounds);
+ zaxisInqUbounds(zaxisID, ubounds);
+ }
+ else
+ {
+ for (size_t i = 0; i < dimlen; ++i) lbounds[i] = levels[i];
+ for (size_t i = 0; i < dimlen - 1; ++i) ubounds[i] = levels[i + 1];
+ ubounds[dimlen - 1] = levels[dimlen - 1] + 1;
+ }
+
+ // if ( zaxisInqLbounds(zaxisID, NULL) && zaxisInqUbounds(zaxisID, NULL) )
+ {
+ size_t nvertex = 2;
+ if (dimlen > 1 && nc_inq_dimid(fileID, bndsName, &nvdimID) != NC_NOERR) cdf_def_dim(fileID, bndsName, nvertex, &nvdimID);
+
+ if (nvdimID != CDI_UNDEFID)
+ {
+ size_t axisnameLen = strlen(axisname);
+ axisname[axisnameLen] = '_';
+ memcpy(axisname + axisnameLen + 1, bndsName, sizeof(bndsName));
+ axisnameLen += sizeof(bndsName);
+ int dimIDs[2] = { *dimID, nvdimID };
+ cdf_def_var(fileID, axisname, (nc_type) xtype, 2, dimIDs, &ncbvarid);
+ cdf_put_att_text(fileID, ncvarid, "bounds", axisnameLen, axisname);
+ size_t formulatermsLen;
+ if (p0status == 0)
+ formulatermsLen = (size_t) (snprintf(txt, sizeof(txt), "%s%s %s%s", "a: a_bnds b: b_bnds p0: ", p0name, "ps: ", psname));
+ else
+ formulatermsLen = (size_t) (snprintf(txt, sizeof(txt), "%s%s", "ap: ap_bnds b: b_bnds ps: ", psname));
+
+ {
+ static const char sname[] = "standard_name", sname_v[] = "atmosphere_hybrid_sigma_pressure_coordinate",
+ formulaterms[] = "formula_terms", units[] = "units";
+ struct attTxtTab2 tab[] = {
+ { sname, sname_v, sizeof(sname_v) - 1 },
+ { units, zunits, zunitsLen },
+ { formulaterms, txt, formulatermsLen },
+ };
+ enum
+ {
+ nAtt = sizeof(tab) / sizeof(tab[0])
+ };
+ for (size_t i = 0; i < nAtt; ++i) cdf_put_att_text(fileID, ncbvarid, tab[i].attName, tab[i].valLen, tab[i].attVal);
+ }
+ }
+ }
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ if (p0varid != CDI_UNDEFID) cdf_put_var_double(fileID, p0varid, &p0value);
+
+ struct cdfPostDefActionList *delayed = NULL;
+ cdfPostDefActionAddPutVal(&delayed, fileID, ncvarid, levels,
+ hasLevels ? (void (*)(void *))(void (*)(void)) memFree : cdfDelayedPutVarDeepCleanup);
+
+ if (ncbvarid != CDI_UNDEFID)
+ {
+ double *restrict zbounds = (double *) Malloc(2 * dimlen * sizeof(*zbounds));
+ for (size_t i = 0; i < dimlen; ++i)
+ {
+ zbounds[2 * i] = lbounds[i];
+ zbounds[2 * i + 1] = ubounds[i];
+ }
+ cdfPostDefActionAddPutVal(&delayed, fileID, ncbvarid, zbounds, cdfDelayedPutVarDeepCleanup);
+ }
+
+ {
+ struct cdfPostDefActionList *delayedVct = cdf_def_vct_cf(streamptr, zaxisID, *dimID, nvdimID, p0status, p0value);
+ delayed = cdfPostDefActionConcat(delayed, delayedVct);
+ Free(delayedVct);
+ }
+
+ if (*dimID == CDI_UNDEFID) streamptr->zaxisID[zaxisindex] = type == ZAXIS_HYBRID ? streamptr->vct.mlevID : streamptr->vct.ilevID;
+
+ free(buffer);
+ return delayed;
+}
+
+static struct cdfPostDefActionList *
+cdf_def_zaxis_hybrid(stream_t *streamptr, int type, int *ncvarid, int zaxisID, int zaxisindex, int xtype, size_t dimlen, int *dimID,
+ char *axisname)
+{
+ struct cdfPostDefActionList *(*def_zaxis_hybrid_delegate)(stream_t * streamptr, int type, int *ncvarid, int zaxisID,
+ int zaxisindex, int xtype, size_t dimlen, int *dimID, char *axisname)
+ = ((!CDI_CMOR_Mode && CDI_Convention == CDI_CONVENTION_ECHAM) || type == ZAXIS_HYBRID_HALF) ? cdf_def_zaxis_hybrid_echam
+ : cdf_def_zaxis_hybrid_cf;
+ return def_zaxis_hybrid_delegate(streamptr, type, ncvarid, zaxisID, zaxisindex, xtype, dimlen, dimID, axisname);
+}
+
+static void
+cdfDefZaxisUUID(stream_t *streamptr, int zaxisID)
+{
+ unsigned char uuid[CDI_UUID_SIZE] = { 0 };
+ int length = CDI_UUID_SIZE;
+ cdiInqKeyBytes(zaxisID, CDI_GLOBAL, CDI_KEY_UUID, uuid, &length);
+ if (!cdiUUIDIsNull(uuid))
+ {
+ char uuidStr[uuidNumHexChars + 1] = { 0 };
+ if (cdiUUID2Str(uuid, uuidStr) == uuidNumHexChars)
+ {
+ int fileID = streamptr->fileID;
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ cdf_put_att_text(fileID, NC_GLOBAL, "uuidOfVGrid", uuidNumHexChars, uuidStr);
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+ }
+ }
+}
+
+#ifndef USE_MPI
+static void
+cdfDefZaxisChar(stream_t *streamptr, int zaxisID, char *axisname, int *dimID, size_t dimlen, int zaxisindex)
+{
+ int fileID = streamptr->fileID;
+ int ncvarID = CDI_UNDEFID;
+ if (streamptr->ncmode == 2) cdf_redef(fileID);
+
+ // Check StrlenID
+ char strlen[8] = "strlen\0";
+ size_t clen = (size_t) zaxisInqCLen(zaxisID);
+ if (clen == 0)
+ Error("Maximal string length value is 0.\nA given character axis requires a dimension to save the maximal string length.");
+ int strlenID = CDI_UNDEFID;
+ strlenID = checkDimName(fileID, clen, strlen);
+
+ if (strlenID == CDI_UNDEFID) cdf_def_dim(fileID, strlen, clen, &strlenID);
+
+ // Check 'areatype'dimID
+ char dimname[CDI_MAX_NAME + 3];
+ int length = sizeof(dimname);
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_DIMNAME, dimname, &length);
+ *dimID = checkDimName(fileID, dimlen, dimname);
+ if (dimlen <= 0) Error("No strings delivered for a character axis.");
+ if (dimname[0] == 0)
+ {
+ memcpy(dimname, "area_type", 10);
+ dimname[10] = 0;
+ }
+
+ if (*dimID == CDI_UNDEFID) cdf_def_dim(fileID, dimname, dimlen, dimID);
+
+ int dimIDs[2];
+ dimIDs[0] = *dimID;
+ dimIDs[1] = strlenID;
+
+ // Get Stringvalues
+ char **cvals = zaxisInqCValsPtr(zaxisID);
+
+ if (cvals)
+ {
+ // Define variable and its attributes
+ cdf_def_var(fileID, axisname, NC_CHAR, 2, dimIDs, &ncvarID);
+
+ cdfPutGridStdAtts(fileID, ncvarID, zaxisID, 'Z');
+ cdf_put_att_text(fileID, ncvarID, "axis", 1, "Z");
+ cdfDefineAttributes(streamptr->filetype, zaxisID, CDI_GLOBAL, fileID, ncvarID);
+
+ streamptr->nczvarID[zaxisindex] = ncvarID;
+ cdf_enddef(fileID, streamptr->self);
+
+ // Write Stringvalues
+ size_t start[2] = { 0, 0 }, count[2] = { 1, clen };
+ for (size_t i = 0; i < dimlen; i++)
+ {
+ start[0] = i;
+ nc_put_vara_text(fileID, ncvarID, start, count, cvals[i]);
+ }
+ }
+
+ streamptr->ncmode = 2;
+}
+#endif
+
+static int
+zaxis_inq_xtype(int zaxisID)
+{
+ int datatype = CDI_UNDEFID;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_DATATYPE, &datatype);
+ int xtype = NC_DOUBLE;
+ // clang-format off
+ if (datatype == CDI_DATATYPE_FLT32) xtype = NC_FLOAT;
+ else if (datatype == CDI_DATATYPE_INT32) xtype = NC_INT;
+ else if (datatype == CDI_DATATYPE_INT16) xtype = NC_SHORT;
+ // clang-format on
+ return xtype;
+}
+
+static struct cdfPostDefActionList *
+cdfDefZaxis(stream_t *streamptr, int zaxisID)
+{
+ // char zaxisname0[CDI_MAX_NAME];
+ int ncvarid = CDI_UNDEFID, ncbvarid = CDI_UNDEFID;
+ int xtype = zaxis_inq_xtype(zaxisID);
+
+ size_t dimlen = (size_t) zaxisInqSize(zaxisID);
+ int type = zaxisInqType(zaxisID);
+
+ int ndims = 1;
+ struct cdfPostDefActionList *delayed = NULL;
+
+ if (dimlen == 1)
+ {
+ bool isScalar = zaxisInqScalar(zaxisID) > 0;
+ if (!isScalar && CDI_CMOR_Mode)
+ {
+ isScalar = true;
+ zaxisDefScalar(zaxisID);
+ }
+
+ if (isScalar) ndims = 0;
+ if (CDI_Reduce_Dim) return delayed;
+
+ switch (type)
+ {
+ case ZAXIS_SURFACE:
+ case ZAXIS_CLOUD_BASE:
+ case ZAXIS_CLOUD_TOP:
+ case ZAXIS_ISOTHERM_ZERO:
+ case ZAXIS_TROPOPAUSE:
+ case ZAXIS_TOA:
+ case ZAXIS_SEA_BOTTOM:
+ case ZAXIS_ATMOSPHERE:
+ case ZAXIS_MEANSEA:
+ case ZAXIS_LAKE_BOTTOM:
+ case ZAXIS_SEDIMENT_BOTTOM:
+ case ZAXIS_SEDIMENT_BOTTOM_TA:
+ case ZAXIS_SEDIMENT_BOTTOM_TW:
+ case ZAXIS_MIX_LAYER: return delayed;
+ }
+ }
+
+ int vlistID = streamptr->vlistID;
+ char axisname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_NAME, axisname, &length);
+ int zaxisindex = vlistZaxisIndex(vlistID, zaxisID);
+ int nzaxis = vlistNzaxis(vlistID);
+ int fileID = streamptr->fileID;
+
+ checkZaxisName(axisname, fileID, vlistID, zaxisID, nzaxis);
+
+ char dimname[CDI_MAX_NAME + 3];
+ dimname[0] = 0;
+ if (dimname[0] == 0) strcpy(dimname, axisname);
+
+ if (type == ZAXIS_REFERENCE) cdfDefZaxisUUID(streamptr, zaxisID);
+
+ int dimID = CDI_UNDEFID;
+ if (type == ZAXIS_HYBRID || type == ZAXIS_HYBRID_HALF)
+ {
+ delayed = cdf_def_zaxis_hybrid(streamptr, type, &ncvarid, zaxisID, zaxisindex, xtype, dimlen, &dimID, axisname);
+
+ int natts;
+ cdiInqNatts(zaxisID, CDI_GLOBAL, &natts);
+ cdfDefineAttributes(streamptr->filetype, zaxisID, CDI_GLOBAL, fileID, ncvarid);
+ }
+#ifndef USE_MPI
+ else if (type == ZAXIS_CHAR)
+ cdfDefZaxisChar(streamptr, zaxisID, axisname, &dimID, dimlen, zaxisindex);
+#endif
+ else
+ {
+ dimID = checkDimName(fileID, dimlen, dimname);
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ if (ndims && dimID == CDI_UNDEFID) cdf_def_dim(fileID, dimname, dimlen, &dimID);
+
+ if (zaxisInqLevels(zaxisID, NULL))
+ {
+ cdf_def_var(fileID, axisname, (nc_type) xtype, ndims, &dimID, &ncvarid);
+
+ cdfPutGridStdAtts(fileID, ncvarid, zaxisID, 'Z');
+
+ {
+ int positive = zaxisInqPositive(zaxisID);
+ static const char positive_up[] = "up", positive_down[] = "down";
+ static const struct attTxtTab tab[2] = {
+ { positive_up, sizeof(positive_up) - 1 },
+ { positive_down, sizeof(positive_down) - 1 },
+ };
+ if (positive == POSITIVE_UP || positive == POSITIVE_DOWN)
+ {
+ size_t select = (positive == POSITIVE_DOWN);
+ cdf_put_att_text(fileID, ncvarid, "positive", tab[select].txtLen, tab[select].txt);
+ }
+ }
+ cdf_put_att_text(fileID, ncvarid, "axis", 1, "Z");
+ cdfPostDefActionAddPutVal(&delayed, fileID, ncvarid, zaxisInqLevelsPtr(zaxisID),
+ (void (*)(void *))(void (*)(void)) memFree);
+
+ if (zaxisInqLbounds(zaxisID, NULL) && zaxisInqUbounds(zaxisID, NULL))
+ {
+ int nvdimID = CDI_UNDEFID;
+ size_t nvertex = 2;
+ if (nc_inq_dimid(fileID, bndsName, &nvdimID) != NC_NOERR) cdf_def_dim(fileID, bndsName, nvertex, &nvdimID);
+
+ if (nvdimID != CDI_UNDEFID)
+ {
+ {
+ size_t axisnameLen = strlen(axisname);
+ axisname[axisnameLen] = '_';
+ memcpy(axisname + axisnameLen + 1, bndsName, sizeof(bndsName));
+ int dimIDs[2];
+ dimIDs[0] = dimID;
+ dimIDs[ndims] = nvdimID;
+ cdf_def_var(fileID, axisname, (nc_type) xtype, ndims + 1, dimIDs, &ncbvarid);
+ cdf_put_att_text(fileID, ncvarid, "bounds", axisnameLen + sizeof(bndsName), axisname);
+ }
+ {
+ double *restrict zbounds = (double *) Malloc(4 * dimlen * sizeof(*zbounds)),
+ *restrict lbounds = zbounds + 2 * dimlen, *restrict ubounds = zbounds + 3 * dimlen;
+ zaxisInqLbounds(zaxisID, lbounds);
+ zaxisInqUbounds(zaxisID, ubounds);
+ for (size_t i = 0; i < dimlen; ++i)
+ {
+ zbounds[2 * i] = lbounds[i];
+ zbounds[2 * i + 1] = ubounds[i];
+ }
+ zbounds = (double *) Realloc(zbounds, 2 * dimlen * sizeof(*zbounds));
+ cdfPostDefActionAddPutVal(&delayed, fileID, ncbvarid, zbounds, cdfDelayedPutVarDeepCleanup);
+ }
+ }
+ }
+ cdfDefineAttributes(streamptr->filetype, zaxisID, CDI_GLOBAL, fileID, ncvarid);
+ }
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ if (zaxisInqLevels(zaxisID, NULL) && ndims == 0) streamptr->nczvarID[zaxisindex] = ncvarid;
+ }
+
+ if (dimID != CDI_UNDEFID) streamptr->zaxisID[zaxisindex] = dimID;
+ return delayed;
+}
+
+static struct cdfPostDefActionList *
+cdf_def_mapping(stream_t *streamptr, int gridID)
+{
+ struct cdfPostDefActionList *delayed = NULL;
+
+ int natts;
+ cdiInqNatts(gridID, CDI_GLOBAL, &natts);
+ if (natts == 0) return delayed;
+
+ int datatype = -1;
+ int status = cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARTYPE, &datatype);
+ nc_type gmapvartype = (status == CDI_NOERR) ? (nc_type) datatype : NC_INT;
+ char gmapvarname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARNAME, gmapvarname, &length);
+ if (!gmapvarname[0]) strcpy(gmapvarname, "crs");
+
+ int fileID = streamptr->fileID;
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ int ncvarid;
+ int ncerrcode = nc_def_var(fileID, gmapvarname, gmapvartype, 0, NULL, &ncvarid);
+ if (ncerrcode == NC_NOERR) cdfDefineAttributes(streamptr->filetype, gridID, CDI_GLOBAL, fileID, ncvarid);
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ if (ncerrcode == NC_NOERR && !xtypeIsText(gmapvartype))
+ {
+ cdfPostDefActionAddPut1Int(&delayed, fileID, ncvarid, 1, (void (*)(void *))(void (*)(void)) memFree);
+ }
+ return delayed;
+}
+
+static void
+cdfDefCharacter(stream_t *streamptr, int gridID, int gridIndex, int cdiAxisID, int strlen)
+{
+ if (streamptr->ncgrid[gridIndex].ncIDs[CDF_DIMID_X] != CDI_UNDEFID) return;
+
+ bool isXaxis = (cdiAxisID == CDI_XAXIS);
+
+ size_t dimlen = isXaxis ? gridInqXsize(gridID) : gridInqYsize(gridID);
+ ncgrid_t *ncgrid = streamptr->ncgrid;
+
+ // Check for all grids up to gridIndex whether it already is defined
+
+ for (int index = 0; index < gridIndex; index++)
+ {
+ int gridID0 = ncgrid[index].gridID;
+ int gridtype0 = gridInqType(gridID0);
+ if (gridtype0 == GRID_CHARXY)
+ {
+ if (gridInqXIsc(gridID0) == strlen && (size_t) gridInqXsize(gridID0) == dimlen)
+ return;
+ else if (gridInqYIsc(gridID0) == strlen && (size_t) gridInqYsize(gridID0) == dimlen)
+ return;
+ }
+ }
+
+ int fileID = streamptr->fileID;
+
+ if (streamptr->ncmode == 2) cdf_redef(fileID);
+
+ // Define Dims
+
+ char dimname[CDI_MAX_NAME + 3];
+ int length = sizeof(dimname);
+ cdiInqKeyString(gridID, cdiAxisID, CDI_KEY_DIMNAME, dimname, &length);
+ if (dimname[0] == 0)
+ {
+ memcpy(dimname, "region", 7);
+ dimname[6] = 0;
+ }
+ int dimID = checkDimName(fileID, dimlen, dimname);
+ if (dimID == CDI_UNDEFID) cdf_def_dim(fileID, dimname, dimlen, &dimID);
+
+ // Define strlength dim
+
+ strcpy(dimname, "strlen");
+ int strlenID = checkDimName(fileID, strlen, dimname);
+ if (strlenID == CDI_UNDEFID) cdf_def_dim(fileID, dimname, strlen, &strlenID);
+
+ // Define Variable
+
+ int dimIDs[2];
+ dimIDs[0] = dimID;
+ dimIDs[1] = strlenID;
+
+ char axisname[CDI_MAX_NAME];
+ char **cvals = (char **) Malloc(dimlen * sizeof(char *));
+ for (size_t i = 0; i < dimlen; i++) cvals[i] = (char *) Malloc(strlen * sizeof(char));
+ int ncaxisid;
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(gridID, cdiAxisID, CDI_KEY_NAME, axisname, &length);
+ gridInqXCvals(gridID, cvals);
+
+ int status = nc_inq_varid(fileID, axisname, &ncaxisid);
+ if (status == NC_NOERR) return;
+
+ cdf_def_var(fileID, axisname, NC_CHAR, 2, dimIDs, &ncaxisid);
+ cdfPutGridStdAtts(fileID, ncaxisid, gridID, isXaxis ? 'X' : 'Y');
+
+ cdf_enddef(fileID, streamptr->self);
+
+ // Write Var
+
+ size_t start[2] = { 0, 0 }, count[2] = { 1, strlen };
+ for (size_t i = 0; i < dimlen; i++)
+ {
+ start[0] = i;
+ (void) nc_put_vara_text(fileID, ncaxisid, start, count, cvals[i]);
+ }
+
+ ncgrid[gridIndex].gridID = gridID;
+ ncgrid[gridIndex].ncIDs[isXaxis ? CDF_DIMID_X : CDF_DIMID_Y] = dimID;
+ ncgrid[gridIndex].ncIDs[isXaxis ? CDF_VARID_X : CDF_VARID_Y] = ncaxisid;
+
+ streamptr->ncmode = 2;
+}
+
+static void
+cdfDefReducedGrid(stream_t *streamptr, int gridID, int gridIndex)
+{
+ ncgrid_t *ncgrid = streamptr->ncgrid;
+
+ ncgrid[gridIndex].gridID = gridID;
+
+ {
+ size_t dimlen = gridInqSize(gridID);
+
+ struct idSearch search = cdfSearchIDBySize(0, (size_t) gridIndex, ncgrid, CDF_DIMID_X, GRID_GAUSSIAN_REDUCED, (int) dimlen,
+ gridInqType, gridInqSize);
+ int iz = search.numNonMatching;
+ int dimID = search.foundID;
+
+ if (dimID == CDI_UNDEFID)
+ {
+ int fileID = streamptr->fileID;
+
+ char axisname[16] = "rgrid";
+ size_t len = strlen(axisname);
+ if (iz) snprintf(axisname + len, sizeof(axisname) - len, "%1d", iz + 1);
+
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ cdf_def_dim(fileID, axisname, dimlen, &dimID);
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+ }
+
+ ncgrid[gridIndex].ncIDs[CDF_DIMID_X] = dimID;
+ }
+
+ {
+ size_t dimlen = gridInqYsize(gridID);
+
+ struct idSearch search = cdfSearchIDBySize(0, (size_t) gridIndex, ncgrid, CDF_DIMID_RP, GRID_GAUSSIAN_REDUCED, (int) dimlen,
+ gridInqType, gridInqSize);
+ int iz = search.numNonMatching;
+ int dimID = search.foundID;
+
+ if (dimID == CDI_UNDEFID)
+ {
+ int fileID = streamptr->fileID;
+
+ char axisname[32] = "reduced_points";
+ size_t len = strlen(axisname);
+ if (iz) snprintf(axisname + len, sizeof(axisname) - len, "%1d", iz + 1);
+
+ if (streamptr->ncmode == 2) cdf_redef(fileID);
+
+ cdf_def_dim(fileID, axisname, dimlen, &dimID);
+
+ int ncvarid = CDI_UNDEFID;
+ cdf_def_var(fileID, axisname, NC_INT, 1, &dimID, &ncvarid);
+
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+
+ int *reducedPoints = (int *) Malloc(dimlen * sizeof(int));
+ gridInqReducedPoints(gridID, reducedPoints);
+ cdf_put_var_int(fileID, ncvarid, reducedPoints);
+ Free(reducedPoints);
+
+ ncgrid[gridIndex].ncIDs[CDF_VARID_RP] = ncvarid;
+ }
+
+ ncgrid[gridIndex].ncIDs[CDF_DIMID_RP] = dimID;
+ }
+}
+
+static void
+cdf_define_generic_dim(stream_t *streamptr, int gridID, int gridIndex)
+{
+ ncgrid_t *ncgrid = streamptr->ncgrid;
+ int dimID = CDI_UNDEFID;
+
+ size_t dimlen = gridInqSize(gridID);
+
+ if (gridInqYsize(gridID) == 0)
+ {
+ struct idSearch search
+ = cdfSearchIDBySize(0, (size_t) gridIndex, ncgrid, CDF_DIMID_X, GRID_GENERIC, (int) dimlen, gridInqType, gridInqSize);
+ dimID = search.foundID;
+ }
+
+ if (gridInqXsize(gridID) == 0)
+ {
+ struct idSearch search
+ = cdfSearchIDBySize(0, (size_t) gridIndex, ncgrid, CDF_DIMID_Y, GRID_GENERIC, (int) dimlen, gridInqType, gridInqSize);
+ dimID = search.foundID;
+ }
+
+ if (dimID == CDI_UNDEFID)
+ {
+ int fileID = streamptr->fileID;
+ char dimname[CDI_MAX_NAME];
+ int length = sizeof(dimname);
+ cdiInqKeyString(gridID, CDI_GLOBAL, CDI_KEY_DIMNAME, dimname, &length);
+ if (dimname[0] == 0) strcpy(dimname, "gsize");
+
+ dimID = checkDimName(fileID, dimlen, dimname);
+
+ if (dimID == CDI_UNDEFID)
+ {
+ bool switchNCMode = (streamptr->ncmode == 2);
+ if (switchNCMode)
+ {
+ streamptr->ncmode = 1;
+ cdf_redef(fileID);
+ }
+
+ cdf_def_dim(fileID, dimname, dimlen, &dimID);
+
+ if (switchNCMode)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+ }
+ }
+
+ ncgrid[gridIndex].gridID = gridID;
+ ncgrid[gridIndex].ncIDs[CDF_DIMID_X] = dimID;
+}
+
+static struct cdfPostDefActionList *
+cdf_define_grid(stream_t *streamptr, int gridID, int gridIndex)
+{
+ struct cdfPostDefActionList *delayed = NULL;
+
+ if (streamptr->ncgrid[gridIndex].ncIDs[CDF_DIMID_X] != CDI_UNDEFID) return delayed;
+
+ int gridtype = gridInqType(gridID);
+ size_t size = gridInqSize(gridID);
+
+ if (CDI_Debug) Message("gridtype = %d size = %zu", gridtype, size);
+
+ if (CDI_Reduce_Dim && size == 1) // no grid information
+ {
+ streamptr->ncgrid[gridIndex].gridID = gridID;
+ return delayed;
+ }
+
+ if (gridtype == GRID_GAUSSIAN || gridtype == GRID_LONLAT || gridtype == GRID_PROJECTION)
+ {
+ int ndims = !(gridtype == GRID_LONLAT && size == 1 && !gridInqHasDims(gridID));
+ size_t xsize = gridInqXsize(gridID);
+ size_t ysize = gridInqYsize(gridID);
+
+ if (xsize)
+ {
+ struct cdfPostDefActionList *xdelayed = cdfDefXaxis(streamptr, gridID, gridIndex, ndims, false);
+ delayed = cdfPostDefActionConcat(delayed, xdelayed);
+ Free(xdelayed);
+ }
+ if (ysize)
+ {
+ struct cdfPostDefActionList *ydelayed = cdfDefYaxis(streamptr, gridID, gridIndex, ndims, false);
+ delayed = cdfPostDefActionConcat(delayed, ydelayed);
+ Free(ydelayed);
+ }
+
+ if (ndims == 1 && xsize == 0 && ysize == 0 && gridtype == GRID_PROJECTION)
+ cdf_define_generic_dim(streamptr, gridID, gridIndex);
+
+ struct cdfPostDefActionList *mdelayed = cdf_def_mapping(streamptr, gridID);
+ delayed = cdfPostDefActionConcat(delayed, mdelayed);
+ Free(mdelayed);
+ }
+ else if (gridtype == GRID_GENERIC)
+ {
+ if (size == 1 && gridInqXsize(gridID) == 0 && gridInqYsize(gridID) == 0)
+ {
+ // no grid information
+ streamptr->ncgrid[gridIndex].gridID = gridID;
+ }
+ else
+ {
+ size_t xsize = gridInqXsize(gridID);
+ size_t ysize = gridInqYsize(gridID);
+
+ if (xsize > 0)
+ {
+ struct cdfPostDefActionList *xdelayed = cdfDefXaxis(streamptr, gridID, gridIndex, 1, false);
+ delayed = cdfPostDefActionConcat(delayed, xdelayed);
+ Free(xdelayed);
+ }
+ if (ysize > 0)
+ {
+ struct cdfPostDefActionList *ydelayed = cdfDefYaxis(streamptr, gridID, gridIndex, 1, false);
+ delayed = cdfPostDefActionConcat(delayed, ydelayed);
+ Free(ydelayed);
+ }
+
+ if (xsize == 0 && ysize == 0) cdf_define_generic_dim(streamptr, gridID, gridIndex);
+ }
+ }
+ else if (gridtype == GRID_CURVILINEAR)
+ {
+ delayed = cdfDefCurvilinear(streamptr, gridID, gridIndex);
+ }
+ else if (gridtype == GRID_UNSTRUCTURED)
+ {
+ delayed = cdfDefUnstructured(streamptr, gridID, gridIndex);
+ }
+ else if (gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ cdfDefReducedGrid(streamptr, gridID, gridIndex);
+ if (gridInqYsize(gridID))
+ {
+ struct cdfPostDefActionList *ydelayed = cdfDefYaxis(streamptr, gridID, gridIndex, 1, true);
+ delayed = cdfPostDefActionConcat(delayed, ydelayed);
+ Free(ydelayed);
+ }
+ }
+ else if (gridtype == GRID_SPECTRAL)
+ {
+ cdfDefComplex(streamptr, gridID, gridIndex);
+ cdfDefSP(streamptr, gridID, gridIndex);
+ }
+ else if (gridtype == GRID_FOURIER)
+ {
+ cdfDefComplex(streamptr, gridID, gridIndex);
+ cdfDefFC(streamptr, gridID, gridIndex);
+ }
+ else if (gridtype == GRID_TRAJECTORY)
+ {
+ cdfDefTrajLon(streamptr, gridID, gridIndex);
+ cdfDefTrajLat(streamptr, gridID, gridIndex);
+ }
+ else if (gridtype == GRID_CHARXY)
+ {
+ int strlen = 0;
+ if ((strlen = gridInqXIsc(gridID)))
+ cdfDefCharacter(streamptr, gridID, gridIndex, CDI_XAXIS, strlen);
+ else if (gridInqXsize(gridID))
+ {
+ struct cdfPostDefActionList *xdelayed = cdfDefXaxis(streamptr, gridID, gridIndex, 1, false);
+ delayed = cdfPostDefActionConcat(delayed, xdelayed);
+ Free(xdelayed);
+ }
+
+ if ((strlen = gridInqYIsc(gridID)))
+ cdfDefCharacter(streamptr, gridID, gridIndex, CDI_YAXIS, strlen);
+ else if (gridInqYsize(gridID))
+ {
+ struct cdfPostDefActionList *ydelayed = cdfDefYaxis(streamptr, gridID, gridIndex, 1, false);
+ delayed = cdfPostDefActionConcat(delayed, ydelayed);
+ Free(ydelayed);
+ }
+ }
+ else
+ {
+ Error("Unsupported grid type: %s", gridNamePtr(gridtype));
+ }
+ return delayed;
+}
+
+void
+cdfDefCoordinateVars(stream_t *streamptr)
+{
+ int vlistID = streamptr->vlistID;
+ if (vlistID == CDI_UNDEFID) Error("Internal problem! vlist undefined for streamptr %p", streamptr);
+
+ if (vlistHasTime(vlistID)) cdfDefTime(streamptr);
+
+ int ngrids = vlistNgrids(vlistID);
+ if (2 * ngrids > MAX_GRIDS_PS) Error("Internal problem! Too many grids per stream (max=%d)\n", MAX_GRIDS_PS);
+
+ struct cdfPostDefActionList *delayed = NULL;
+
+ ncgrid_t *restrict ncgrid = streamptr->ncgrid;
+ for (int index = 0; index < 2 * ngrids; ++index)
+ {
+ ncgrid[index].gridID = CDI_UNDEFID;
+ for (size_t i = 0; i < CDF_SIZE_ncIDs; ++i) ncgrid[index].ncIDs[i] = CDI_UNDEFID;
+ }
+
+ for (int index = 0; index < ngrids; ++index)
+ {
+ int gridID = vlistGrid(vlistID, index);
+ struct cdfPostDefActionList *griddelayed = cdf_define_grid(streamptr, gridID, index);
+ delayed = cdfPostDefActionConcat(delayed, griddelayed);
+ Free(griddelayed);
+ }
+ {
+ int index = ngrids - 1;
+ for (int i = 0; i < ngrids; ++i)
+ {
+ int gridID = vlistGrid(vlistID, i);
+ int projID = gridInqProj(gridID);
+ if (projID != CDI_UNDEFID)
+ {
+ struct cdfPostDefActionList *griddelayed = cdf_define_grid(streamptr, projID, ++index);
+ delayed = cdfPostDefActionConcat(delayed, griddelayed);
+ Free(griddelayed);
+ }
+ }
+ }
+
+ int nzaxis = vlistNzaxis(vlistID);
+ for (int index = 0; index < nzaxis; ++index)
+ {
+ int zaxisID = vlistZaxis(vlistID, index);
+ if (streamptr->zaxisID[index] == CDI_UNDEFID)
+ {
+ struct cdfPostDefActionList *zaxisdelayed = cdfDefZaxis(streamptr, zaxisID);
+ delayed = cdfPostDefActionConcat(delayed, zaxisdelayed);
+ Free(zaxisdelayed);
+ }
+ }
+
+ if (streamptr->ncmode != 2)
+ {
+ cdf_enddef(streamptr->fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ int nvars = vlistNvars(vlistID);
+ for (int varID = 0; varID < nvars; varID++) cdfDefVar(streamptr, varID);
+
+ cdfEndDef(streamptr);
+ if (delayed)
+ {
+ cdfPostDefActionApply(delayed->len, delayed->actions);
+ cdfPostDefActionListDelete(delayed);
+ }
+}
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBNETCDF
+
+#include <stdio.h>
+#include <string.h>
+
+
+static int
+cdfDefTimeBounds(int fileID, int nctimevarid, int nctimedimid, const char *taxis_name, taxis_t *taxis)
+{
+ int dims[2];
+
+ dims[0] = nctimedimid;
+
+ static const char bndsName[] = "bnds";
+ if (nc_inq_dimid(fileID, bndsName, &dims[1]) != NC_NOERR) cdf_def_dim(fileID, bndsName, 2, &dims[1]);
+
+ const char *bndsAttName, *bndsAttVal;
+ size_t bndsAttValLen;
+ char tmpstr[CDI_MAX_NAME];
+ if (taxis->climatology)
+ {
+ static const char climatology_bndsName[] = "climatology_bnds", climatology_bndsAttName[] = "climatology";
+ bndsAttName = climatology_bndsAttName;
+ bndsAttValLen = sizeof(climatology_bndsName) - 1;
+ bndsAttVal = climatology_bndsName;
+ }
+ else
+ {
+ size_t taxisnameLen = strlen(taxis_name);
+ memcpy(tmpstr, taxis_name, taxisnameLen);
+ tmpstr[taxisnameLen] = '_';
+ memcpy(tmpstr + taxisnameLen + 1, bndsName, sizeof(bndsName));
+ size_t tmpstrLen = taxisnameLen + sizeof(bndsName);
+ static const char generic_bndsAttName[] = "bounds";
+ bndsAttName = generic_bndsAttName;
+ bndsAttValLen = tmpstrLen;
+ bndsAttVal = tmpstr;
+ }
+
+ int time_bndsid = -1;
+ cdf_def_var(fileID, bndsAttVal, NC_DOUBLE, 2, dims, &time_bndsid);
+ cdf_put_att_text(fileID, nctimevarid, bndsAttName, bndsAttValLen, bndsAttVal);
+
+ return time_bndsid;
+}
+
+static const char *
+cdfGetTimeUnits(taxis_t *taxis)
+{
+ const char *unitstr;
+ if (taxis->units && taxis->units[0])
+ {
+ unitstr = taxis->units;
+ }
+ else
+ {
+ if (taxis->type == TAXIS_ABSOLUTE)
+ {
+ static const char *const unitstrfmt[3] = { "year as %Y.%f", "month as %Y%m.%f", "day as %Y%m%d.%f" };
+ size_t fmtidx = (taxis->unit == TUNIT_YEAR ? 0 : (taxis->unit == TUNIT_MONTH ? 1 : 2));
+ unitstr = unitstrfmt[fmtidx];
+ }
+ else
+ {
+ int year = taxis->rDateTime.date.year;
+ int month = taxis->rDateTime.date.month;
+ int day = taxis->rDateTime.date.day;
+ int hour = taxis->rDateTime.time.hour;
+ int minute = taxis->rDateTime.time.minute;
+ int second = taxis->rDateTime.time.second;
+
+ int timeunit = (taxis->unit != -1) ? taxis->unit : TUNIT_HOUR;
+ if (timeunit == TUNIT_QUARTER)
+ timeunit = TUNIT_MINUTE;
+ else if (timeunit == TUNIT_30MINUTES)
+ timeunit = TUNIT_MINUTE;
+ else if (timeunit == TUNIT_3HOURS || timeunit == TUNIT_6HOURS || timeunit == TUNIT_12HOURS)
+ timeunit = TUNIT_HOUR;
+
+ char *unitstr_ = ptaxisAllocUnits(taxis, CDF_MAX_TIME_UNIT_STR);
+ snprintf(unitstr_, CDF_MAX_TIME_UNIT_STR, "%s since %d-%d-%d %02d:%02d:%02d", tunitNamePtr(timeunit), year, month, day,
+ hour, minute, second);
+ unitstr = unitstr_;
+ }
+ }
+ return unitstr;
+}
+
+static const char *
+cdfGetForecastTimeUnits(int timeunit)
+{
+ if (timeunit == -1)
+ timeunit = TUNIT_HOUR;
+ else if (timeunit == TUNIT_QUARTER)
+ timeunit = TUNIT_MINUTE;
+ else if (timeunit == TUNIT_30MINUTES)
+ timeunit = TUNIT_MINUTE;
+ else if (timeunit == TUNIT_3HOURS || timeunit == TUNIT_6HOURS || timeunit == TUNIT_12HOURS)
+ timeunit = TUNIT_HOUR;
+
+ return tunitNamePtr(timeunit);
+}
+
+static void
+cdfDefCalendar(int fileID, int ncvarid, int calendar)
+{
+ static const struct
+ {
+ int calCode;
+ const char *calStr;
+ } calTab[] = {
+ { CALENDAR_STANDARD, "standard" }, { CALENDAR_GREGORIAN, "gregorian" }, { CALENDAR_PROLEPTIC, "proleptic_gregorian" },
+ { CALENDAR_NONE, "none" }, { CALENDAR_360DAYS, "360_day" }, { CALENDAR_365DAYS, "365_day" },
+ { CALENDAR_366DAYS, "366_day" },
+ };
+ enum
+ {
+ calTabSize = sizeof calTab / sizeof calTab[0]
+ };
+
+ for (size_t i = 0; i < calTabSize; ++i)
+ if (calTab[i].calCode == calendar)
+ {
+ const char *calstr = calTab[i].calStr;
+ size_t len = strlen(calstr);
+ cdf_put_att_text(fileID, ncvarid, "calendar", len, calstr);
+ break;
+ }
+}
+
+void
+cdfDefTime(stream_t *streamptr)
+{
+ static const char defaultTimeAxisName[] = "time";
+
+ if (streamptr->basetime.ncvarid != CDI_UNDEFID) return;
+
+ int fileID = streamptr->fileID;
+
+ if (streamptr->ncmode == 0) streamptr->ncmode = 1;
+ if (streamptr->ncmode == 2) cdf_redef(fileID);
+
+ taxis_t *taxis = taxisPtr(vlistInqTaxis(streamptr->vlistID));
+
+ const char *taxisName = (taxis->name && taxis->name[0]) ? taxis->name : defaultTimeAxisName;
+
+ size_t timeDimLen = NC_UNLIMITED;
+ if (streamptr->filetype == CDI_FILETYPE_NCZARR)
+ {
+ if (streamptr->maxSteps == CDI_UNDEFID)
+ fprintf(stderr, "Max. number of timesteps undefined for NCZarr!\n");
+ else
+ timeDimLen = streamptr->maxSteps;
+ }
+
+ int timeDimId;
+ cdf_def_dim(fileID, taxisName, timeDimLen, &timeDimId);
+ streamptr->basetime.ncdimid = timeDimId;
+
+ int datatype = taxis->datatype;
+ nc_type xtype = (datatype == CDI_DATATYPE_INT32) ? NC_INT : ((datatype == CDI_DATATYPE_FLT32) ? NC_FLOAT : NC_DOUBLE);
+
+ int timeVarId;
+ cdf_def_var(fileID, taxisName, xtype, 1, &timeDimId, &timeVarId);
+ streamptr->basetime.ncvarid = timeVarId;
+
+#ifdef HAVE_NETCDF4
+ if (timeDimLen == NC_UNLIMITED && (streamptr->filetype == CDI_FILETYPE_NC4 || streamptr->filetype == CDI_FILETYPE_NC4C))
+ {
+ static const size_t chunk = 512;
+ cdf_def_var_chunking(fileID, timeVarId, NC_CHUNKED, &chunk);
+ }
+#endif
+
+ static const char timeStr[] = "time";
+ cdf_put_att_text(fileID, timeVarId, "standard_name", sizeof(timeStr) - 1, timeStr);
+
+ if (taxis->longname && taxis->longname[0])
+ cdf_put_att_text(fileID, timeVarId, "long_name", strlen(taxis->longname), taxis->longname);
+
+ if (taxis->hasBounds) streamptr->basetime.ncvarboundsid = cdfDefTimeBounds(fileID, timeVarId, timeDimId, taxisName, taxis);
+
+ char unitsStr_[CDF_MAX_TIME_UNIT_STR];
+ const char *unitsStr;
+ size_t unitsStrLen;
+ if (taxis->units && taxis->units[0])
+ {
+ unitsStr = taxis->units;
+ unitsStrLen = strlen(taxis->units);
+ }
+ else
+ {
+ /* define bogus value since at this time, streamDefTimestep has
+ * not been called yet
+ * but since taxis->units is not set, it clearly will not
+ * exceed the size of unitstr_, i.e. when defining the units
+ * attribute to this value, a later redefinition will not
+ * cause a recreation of on-disk data
+ */
+ for (size_t i = 0; i < CDF_MAX_TIME_UNIT_STR; ++i) unitsStr_[i] = 'a';
+ unitsStr_[CDF_MAX_TIME_UNIT_STR - 1] = '\0';
+ unitsStr = unitsStr_;
+ unitsStrLen = CDF_MAX_TIME_UNIT_STR - 1;
+ }
+ cdf_put_att_text(fileID, timeVarId, "units", unitsStrLen, unitsStr);
+
+ if (taxis->calendar != -1) cdfDefCalendar(fileID, timeVarId, taxis->calendar);
+
+ if (taxis->type == TAXIS_FORECAST)
+ {
+ int leadtimeid;
+ cdf_def_var(fileID, "leadtime", xtype, 1, &timeDimId, &leadtimeid);
+ streamptr->basetime.leadtimeid = leadtimeid;
+
+ static const char stdName[] = "forecast_period";
+ cdf_put_att_text(fileID, leadtimeid, "standard_name", sizeof(stdName) - 1, stdName);
+
+ static const char longName[] = "Time elapsed since the start of the forecast";
+ cdf_put_att_text(fileID, leadtimeid, "long_name", sizeof(longName) - 1, longName);
+
+ unitsStr = cdfGetForecastTimeUnits(taxis->fc_unit);
+ size_t len = strlen(unitsStr);
+ if (len) cdf_put_att_text(fileID, leadtimeid, "units", len, unitsStr);
+ }
+
+ cdf_put_att_text(fileID, timeVarId, "axis", 1, "T");
+
+ if (streamptr->ncmode == 2) cdf_enddef(fileID, streamptr->self);
+}
+
+void
+cdfDefTimestep(stream_t *streamptr, int tsID, size_t valCount)
+{
+ int time_varid = streamptr->basetime.ncvarid;
+ if (time_varid != CDI_UNDEFID && tsID == 0)
+ {
+ taxis_t *taxis = taxisPtr(vlistInqTaxis(streamptr->vlistID));
+ int fileID = streamptr->fileID;
+ const char *unitstr = cdfGetTimeUnits(taxis);
+ size_t len = strlen(unitstr);
+ if (len) cdf_put_att_text(fileID, time_varid, "units", len, unitstr);
+ }
+
+ int fileID = streamptr->fileID;
+
+ if (CDI_Debug) Message("streamID = %d, fileID = %d, tsID = %d", streamptr->self, fileID, tsID);
+
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ if (streamptr->ncmode == 1)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ if (streamptr->accessmode == 0)
+ {
+ cdfEndDef(streamptr);
+ }
+
+ const size_t start[2] = { [0] = (size_t) tsID, [1] = 0 }, count[2] = { [0] = valCount, [1] = 2 * valCount };
+
+ double timeValue[2] = { cdi_encode_timeval(taxis->vDateTime, &streamptr->tsteps[0].taxis) };
+ if (CDI_Debug) Message("tsID = %d timeValue = %f", tsID, timeValue[0]);
+
+ int ncvarid = streamptr->basetime.ncvarid;
+ cdf_put_vara_double(fileID, ncvarid, start, count, timeValue);
+
+ if (taxis->hasBounds)
+ {
+ ncvarid = streamptr->basetime.ncvarboundsid;
+ if (ncvarid == CDI_UNDEFID) Error("Call to taxisWithBounds() missing!");
+
+ timeValue[0] = cdi_encode_timeval(taxis->vDateTime_lb, &streamptr->tsteps[0].taxis);
+ timeValue[1] = cdi_encode_timeval(taxis->vDateTime_ub, &streamptr->tsteps[0].taxis);
+ cdf_put_vara_double(fileID, ncvarid, start, count, timeValue);
+ }
+
+ ncvarid = streamptr->basetime.leadtimeid;
+ if (taxis->type == TAXIS_FORECAST && ncvarid != CDI_UNDEFID)
+ cdf_put_vara_double(fileID, ncvarid, start, count, &taxis->fc_period);
+}
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#if HAVE_CONFIG_H
+#endif
+
+#include <limits.h>
+#include <stdio.h>
+
+
+#ifdef HAVE_LIBCGRIBEX
+
+
+typedef struct
+{
+ int sec0[2];
+ int sec1[1024];
+ size_t sec2len;
+ int *sec2;
+ int sec3[2];
+ int sec4[512];
+ double fsec2[512];
+ double fsec3[2];
+} cgribexrec_t;
+
+typedef struct
+{
+ int param;
+ int level1;
+ int level2;
+ int ltype;
+ int tsteptype;
+ size_t gridsize;
+} compvar_t;
+
+typedef struct
+{
+ void *gribbuffer;
+ size_t gribbuffersize;
+ unsigned char *pds;
+ unsigned char *gds;
+ unsigned char *bms;
+ unsigned char *bds;
+} cgribex_handle;
+
+static void
+fill_intarr(int *iarr, int val, int n)
+{
+ for (int i = 0; i < n; ++i) iarr[i] = val;
+}
+
+static void
+cgribexInit(cgribexrec_t *cgribexp)
+{
+ cgribexp->sec2len = 4096;
+ cgribexp->sec2 = (int *) Malloc(cgribexp->sec2len * sizeof(int));
+}
+
+void *
+cgribexNew(void)
+{
+ cgribexrec_t *cgribexp = (cgribexrec_t *) Malloc(sizeof(cgribexrec_t));
+ cgribexInit(cgribexp);
+ return (void *) cgribexp;
+}
+
+void
+cgribexDelete(void *cgribex)
+{
+ cgribexrec_t *cgribexp = (cgribexrec_t *) cgribex;
+ if (cgribexp)
+ {
+ if (cgribexp->sec2) Free(cgribexp->sec2);
+ Free(cgribexp);
+ }
+}
+
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+ int grib1Sections(unsigned char *gribbuffer, long gribbufsize, unsigned char **pdsp, unsigned char **gdsp, unsigned char **bmsp,
+ unsigned char **bdsp, long *gribrecsize);
+#ifdef __cplusplus
+}
+#endif
+
+static size_t
+cgribexSection2Length(void *gribbuffer, size_t gribbuffersize)
+{
+ long sec2len = 0;
+
+ if (gribbuffersize && gribbuffer)
+ {
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+ long gribrecsize;
+ int status = grib1Sections((unsigned char *) gribbuffer, (long) gribbuffersize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (status >= 0 && gds != NULL) sec2len = (unsigned) ((gds[0] << 16) + (gds[1] << 8) + (gds[3]));
+ }
+
+ return sec2len;
+}
+
+void *
+cgribex_handle_new_from_meassage(void *gribbuffer, size_t gribbuffersize)
+{
+ cgribex_handle *gh = (cgribex_handle *) Malloc(sizeof(cgribex_handle));
+ gh->gribbuffer = NULL;
+ gh->gribbuffersize = 0;
+ gh->pds = NULL;
+
+ if (gribbuffersize && gribbuffer)
+ {
+ unsigned char *pds = NULL, *gds = NULL, *bms = NULL, *bds = NULL;
+ long gribrecsize;
+ int status = grib1Sections((unsigned char *) gribbuffer, (long) gribbuffersize, &pds, &gds, &bms, &bds, &gribrecsize);
+ if (status >= 0)
+ {
+ gh->gribbuffer = gribbuffer;
+ gh->gribbuffersize = gribbuffersize;
+ gh->pds = pds;
+ gh->gds = gds;
+ gh->bms = bms;
+ gh->bds = bds;
+ }
+ }
+
+ return (void *) gh;
+}
+
+void
+cgribex_handle_delete(void *gh)
+{
+ if (gh) Free(gh);
+}
+
+static int
+cgribexGetGridType(int *isec2)
+{
+ int gridtype = GRID_GENERIC;
+
+ // clang-format off
+ switch (ISEC2_GridType)
+ {
+ case GRIB1_GTYPE_LATLON: { gridtype = GRID_LONLAT; break; }
+ case GRIB1_GTYPE_LATLON_ROT: { gridtype = GRID_PROJECTION; break; }
+ case GRIB1_GTYPE_LCC: { gridtype = CDI_PROJ_LCC; break; }
+ case GRIB1_GTYPE_GAUSSIAN: { gridtype = ISEC2_Reduced ? GRID_GAUSSIAN_REDUCED : GRID_GAUSSIAN; break; }
+ case GRIB1_GTYPE_SPECTRAL: { gridtype = GRID_SPECTRAL; break; }
+ case GRIB1_GTYPE_GME: { gridtype = GRID_GME; break; }
+ }
+ // clang-format on
+
+ return gridtype;
+}
+
+static bool
+cgribexGetIsRotated(int *isec2)
+{
+ return (ISEC2_GridType == GRIB1_GTYPE_LATLON_ROT);
+}
+
+static bool
+cgribexGetZaxisHasBounds(int grb_ltype)
+{
+ // clang-format off
+ switch (grb_ltype)
+ {
+ case GRIB1_LTYPE_SIGMA_LAYER:
+ case GRIB1_LTYPE_HYBRID_LAYER:
+ case GRIB1_LTYPE_LANDDEPTH_LAYER: return true;
+ }
+ // clang-format on
+
+ return false;
+}
+
+static int
+cgribexGetTimeUnit(int *isec1)
+{
+ int timeunit = TUNIT_HOUR;
+ static bool lprint = true;
+
+ // clang-format off
+ switch ( ISEC1_TimeUnit )
+ {
+ case ISEC1_TABLE4_MINUTE: timeunit = TUNIT_MINUTE; break;
+ case ISEC1_TABLE4_QUARTER: timeunit = TUNIT_QUARTER; break;
+ case ISEC1_TABLE4_30MINUTES: timeunit = TUNIT_30MINUTES; break;
+ case ISEC1_TABLE4_HOUR: timeunit = TUNIT_HOUR; break;
+ case ISEC1_TABLE4_3HOURS: timeunit = TUNIT_3HOURS; break;
+ case ISEC1_TABLE4_6HOURS: timeunit = TUNIT_6HOURS; break;
+ case ISEC1_TABLE4_12HOURS: timeunit = TUNIT_12HOURS; break;
+ case ISEC1_TABLE4_DAY: timeunit = TUNIT_DAY; break;
+ default:
+ if (lprint)
+ {
+ Warning("GRIB time unit %d unsupported!", ISEC1_TimeUnit);
+ lprint = false;
+ }
+ break;
+ }
+ // clang-format on
+
+ return timeunit;
+}
+
+static bool
+cgribexTimeIsFC(int *isec1)
+{
+ bool isFC = (ISEC1_TimeRange == 10 && ISEC1_TimePeriod1 == 0 && ISEC1_TimePeriod2 == 0) ? false : true;
+ return isFC;
+}
+
+static int
+cgribexGetTsteptype(int timerange)
+{
+ static bool lprint = true;
+
+ // clang-format off
+ int tsteptype = TSTEP_INSTANT;
+ switch ( timerange )
+ {
+ case 0: tsteptype = TSTEP_INSTANT; break;
+ case 1: tsteptype = TSTEP_INSTANT2; break;
+ case 2: tsteptype = TSTEP_RANGE; break;
+ case 3: tsteptype = TSTEP_AVG; break;
+ case 4: tsteptype = TSTEP_ACCUM; break;
+ case 5: tsteptype = TSTEP_DIFF; break;
+ case 10: tsteptype = TSTEP_INSTANT3; break;
+ default:
+ if (lprint)
+ {
+ Warning("Time range indicator %d unsupported, set to 0!", timerange);
+ lprint = false;
+ }
+ break;
+ }
+ // clang-format on
+
+ return tsteptype;
+}
+
+static bool
+cgribexGetGridRegular(int *isec2, int *isec4, grid_t *grid, int gridtype, bool compyinc)
+{
+ bool ijDirectionIncrementGiven = gribbyte_get_bit(ISEC2_ResFlag, 1);
+ bool uvRelativeToGrid = gribbyte_get_bit(ISEC2_ResFlag, 5);
+
+ size_t nvalues = (size_t) ISEC4_NumValues;
+ size_t nlon = (size_t) ISEC2_NumLon;
+ size_t nlat = (size_t) ISEC2_NumLat;
+ if (nvalues != nlon * nlat) Error("numberOfPoints (%zu) and gridSize (%zu) differ!", nvalues, nlon * nlat);
+
+ grid->size = nvalues;
+ grid->x.size = nlon;
+ grid->y.size = nlat;
+
+ if (gridtype == GRID_GAUSSIAN) grid->np = ISEC2_NumPar;
+ grid->x.inc = 0;
+ grid->y.inc = 0;
+ grid->x.flag = 0;
+ // if ( ISEC2_FirstLon != 0 || ISEC2_LastLon != 0 )
+ {
+ if (grid->x.size > 1)
+ {
+ bool recompinc = true;
+
+ if (ISEC2_LastLon < ISEC2_FirstLon)
+ {
+ if (ISEC2_FirstLon >= 180000)
+ ISEC2_FirstLon -= 360000;
+ else
+ ISEC2_LastLon += 360000;
+ }
+
+ if (ijDirectionIncrementGiven && ISEC2_LonIncr > 0)
+ {
+ if (labs(ISEC2_LastLon - (ISEC2_FirstLon + ISEC2_LonIncr * ((long) grid->x.size - 1))) <= 2)
+ {
+ recompinc = false;
+ grid->x.inc = ISEC2_LonIncr * 0.001;
+ }
+ }
+
+ // recompute xinc if necessary
+ if (recompinc) grid->x.inc = (ISEC2_LastLon - ISEC2_FirstLon) * 0.001 / (grid->x.size - 1);
+
+ // correct xinc if necessary
+ if (ISEC2_FirstLon == 0 && ISEC2_LastLon > 354000 && ISEC2_LastLon < 360000)
+ {
+ double xinc = 360. / grid->x.size;
+ if (fabs(grid->x.inc - xinc) > 0.0)
+ {
+ grid->x.inc = xinc;
+ if (CDI_Debug) Message("set xinc to %g", grid->x.inc);
+ }
+ }
+ }
+ grid->x.first = ISEC2_FirstLon * 0.001;
+ grid->x.last = ISEC2_LastLon * 0.001;
+ grid->x.flag = 2;
+ }
+ grid->y.flag = 0;
+ // if ( ISEC2_FirstLat != 0 || ISEC2_LastLat != 0 )
+ {
+ if (grid->y.size > 1 && compyinc)
+ {
+ bool recompinc = true;
+ if (ijDirectionIncrementGiven && ISEC2_LatIncr > 0)
+ {
+ if (labs(ISEC2_LastLat - (ISEC2_FirstLat + ISEC2_LatIncr * ((long) grid->y.size - 1))) <= 2)
+ {
+ recompinc = false;
+ grid->y.inc = ISEC2_LatIncr * 0.001;
+ }
+ }
+
+ // recompute yinc if necessary
+ if (recompinc) grid->y.inc = (ISEC2_LastLat - ISEC2_FirstLat) * 0.001 / (grid->y.size - 1);
+ }
+ grid->y.first = ISEC2_FirstLat * 0.001;
+ grid->y.last = ISEC2_LastLat * 0.001;
+ grid->y.flag = 2;
+ }
+
+ return uvRelativeToGrid;
+}
+
+static bool
+cgribexGetGridReduced(int *isec2, int *isec4, grid_t *grid)
+{
+ bool ijDirectionIncrementGiven = gribbyte_get_bit(ISEC2_ResFlag, 1);
+ bool uvRelativeToGrid = gribbyte_get_bit(ISEC2_ResFlag, 5);
+ grid->np = ISEC2_NumPar;
+ grid->size = (size_t) ISEC4_NumValues;
+
+ size_t reducedPointsSize = (size_t) ISEC2_NumLat;
+ grid->reducedPointsSize = reducedPointsSize;
+ grid->reducedPoints = (int *) Malloc(reducedPointsSize * sizeof(int));
+ memcpy(grid->reducedPoints, ISEC2_ReducedPointsPtr, reducedPointsSize * sizeof(int));
+
+ grid->y.size = (size_t) ISEC2_NumLat;
+ grid->x.inc = 0;
+ grid->y.inc = 0;
+ grid->x.flag = 0;
+ // if ( ISEC2_FirstLon != 0 || ISEC2_LastLon != 0 )
+ {
+ if (ISEC2_LastLon < ISEC2_FirstLon)
+ {
+ if (ISEC2_FirstLon >= 180000)
+ ISEC2_FirstLon -= 360000;
+ else
+ ISEC2_LastLon += 360000;
+ }
+
+ grid->x.first = ISEC2_FirstLon * 0.001;
+ grid->x.last = ISEC2_LastLon * 0.001;
+ grid->x.flag = 2;
+ }
+ grid->y.flag = 0;
+ // if ( ISEC2_FirstLat != 0 || ISEC2_LastLat != 0 )
+ {
+ if (grid->y.size > 1)
+ {
+ if (ijDirectionIncrementGiven && ISEC2_LatIncr > 0)
+ grid->y.inc = ISEC2_LatIncr * 0.001;
+ else
+ grid->y.inc = (ISEC2_LastLat - ISEC2_FirstLat) * 0.001 / (grid->y.size - 1);
+ }
+ grid->y.first = ISEC2_FirstLat * 0.001;
+ grid->y.last = ISEC2_LastLat * 0.001;
+ grid->y.flag = 2;
+ }
+
+ return uvRelativeToGrid;
+}
+
+static bool
+cgribexGetGridLCC(int *isec2, int *isec4, grid_t *grid)
+{
+ bool uvRelativeToGrid = gribbyte_get_bit(ISEC2_ResFlag, 5);
+
+ size_t nvalues = (size_t) ISEC4_NumValues;
+ size_t nlon = (size_t) ISEC2_NumLon;
+ size_t nlat = (size_t) ISEC2_NumLat;
+ if (nvalues != nlon * nlat) Error("numberOfPoints (%zu) and gridSize (%zu) differ!", nvalues, nlon * nlat);
+
+ grid->size = nvalues;
+ grid->x.size = nlon;
+ grid->y.size = nlat;
+
+ grid->x.first = 0;
+ grid->x.last = 0;
+ grid->x.inc = ISEC2_Lambert_dx;
+ grid->y.first = 0;
+ grid->y.last = 0;
+ grid->y.inc = ISEC2_Lambert_dy;
+ grid->x.flag = 2;
+ grid->y.flag = 2;
+
+ return uvRelativeToGrid;
+}
+
+static bool
+cgribexGetGrid(stream_t *streamptr, int *isec2, int *isec4, grid_t *grid, int iret)
+{
+ bool uvRelativeToGrid = false;
+ bool compyinc = true;
+ int gridtype = cgribexGetGridType(isec2);
+ int projtype = (gridtype == GRID_PROJECTION && cgribexGetIsRotated(isec2)) ? CDI_PROJ_RLL : CDI_UNDEFID;
+ if (gridtype == CDI_PROJ_LCC)
+ {
+ projtype = gridtype;
+ gridtype = GRID_PROJECTION;
+ }
+
+ if (streamptr->unreduced && gridtype == GRID_GAUSSIAN_REDUCED && iret != -801)
+ {
+ int nlon = 0;
+ for (int ilat = 0; ilat < ISEC2_NumLat; ++ilat)
+ if (ISEC2_ReducedPoints(ilat) > nlon) nlon = ISEC2_ReducedPoints(ilat);
+ gridtype = GRID_GAUSSIAN;
+ ISEC2_NumLon = nlon;
+ ISEC4_NumValues = nlon * ISEC2_NumLat;
+ compyinc = false;
+ }
+
+ grid_init(grid);
+ cdiGridTypeInit(grid, gridtype, 0);
+
+ if (gridtype == GRID_LONLAT || gridtype == GRID_GAUSSIAN || projtype == CDI_PROJ_RLL)
+ {
+ uvRelativeToGrid = cgribexGetGridRegular(isec2, isec4, grid, gridtype, compyinc);
+ }
+ else if (gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ uvRelativeToGrid = cgribexGetGridReduced(isec2, isec4, grid);
+ }
+ else if (projtype == CDI_PROJ_LCC)
+ {
+ uvRelativeToGrid = cgribexGetGridLCC(isec2, isec4, grid);
+ }
+ else if (gridtype == GRID_SPECTRAL)
+ {
+ grid->size = (size_t) ISEC4_NumValues;
+ grid->trunc = ISEC2_PentaJ;
+ grid->lcomplex = (ISEC2_RepMode == 2) ? 1 : 0;
+ }
+ else if (gridtype == GRID_GME)
+ {
+ grid->size = (size_t) ISEC4_NumValues;
+ grid->gme.nd = ISEC2_GME_ND;
+ grid->gme.ni = ISEC2_GME_NI;
+ grid->gme.ni2 = ISEC2_GME_NI2;
+ grid->gme.ni3 = ISEC2_GME_NI3;
+ }
+ else if (gridtype == GRID_GENERIC)
+ {
+ grid->size = (size_t) ISEC4_NumValues;
+ grid->x.size = 0;
+ grid->y.size = 0;
+ }
+ else
+ {
+ Error("Unsupported grid type: %s", gridNamePtr(gridtype));
+ }
+
+ grid->type = gridtype;
+ grid->projtype = projtype;
+
+ return uvRelativeToGrid;
+}
+
+static void
+cgribexGetLevel(int *isec1, int *leveltype, int *level1, int *level2)
+{
+ *leveltype = ISEC1_LevelType;
+ *level1 = ISEC1_Level1;
+ *level2 = ISEC1_Level2;
+ if (*leveltype == GRIB1_LTYPE_ISOBARIC)
+ *level1 *= 100;
+ else if (*leveltype == GRIB1_LTYPE_99 || *leveltype == GRIB1_LTYPE_ISOBARIC_PA)
+ *leveltype = GRIB1_LTYPE_ISOBARIC;
+}
+
+static void
+cgribexDefProjLCC(int *isec2, int gridID)
+{
+ struct CDI_GridProjParams gpp;
+ gridProjParamsInit(&gpp);
+
+ bool earthIsOblate = gribbyte_get_bit(ISEC2_ResFlag, 2);
+ if (earthIsOblate)
+ {
+ gpp.a = 6378160.0;
+ gpp.b = 6356775.0;
+ gpp.rf = 297.0;
+ }
+ else
+ {
+ gpp.a = 6367470.0;
+ }
+
+ gpp.xval_0 = ISEC2_FirstLon * 0.001;
+ gpp.yval_0 = ISEC2_FirstLat * 0.001;
+ gpp.lon_0 = ISEC2_Lambert_Lov * 0.001;
+ gpp.lat_1 = ISEC2_Lambert_LatS1 * 0.001;
+ gpp.lat_2 = ISEC2_Lambert_LatS2 * 0.001;
+ bool lsouth = gribbyte_get_bit(ISEC2_Lambert_ProjFlag, 1);
+ if (lsouth)
+ {
+ gpp.lat_1 = -gpp.lat_1;
+ gpp.lat_2 = -gpp.lat_2;
+ }
+
+ gpp.lat_0 = gpp.lat_2;
+
+ if (proj_lonlat_to_lcc_func)
+ {
+ double x_0 = gpp.xval_0, y_0 = gpp.yval_0;
+ proj_lonlat_to_lcc_func(gpp, (size_t) 1, &x_0, &y_0);
+ if (IS_NOT_EQUAL(x_0, gpp.mv) && IS_NOT_EQUAL(y_0, gpp.mv))
+ {
+ gpp.x_0 = -x_0;
+ gpp.y_0 = -y_0;
+ }
+ }
+
+ gridDefParamsLCC(gridID, gpp);
+}
+
+static size_t
+cgribexGetGridsize(const int *isec4)
+{
+ return ISEC4_NumValues;
+}
+
+static void
+cgribexAddRecord(stream_t *streamptr, cgribexrec_t *cgribexp, int param, size_t recsize, off_t position, int comptype, int lmv,
+ int iret)
+{
+ int *isec1 = cgribexp->sec1;
+ int *isec2 = cgribexp->sec2;
+ int *isec4 = cgribexp->sec4;
+ double *fsec2 = cgribexp->fsec2;
+ double *fsec3 = cgribexp->fsec3;
+
+ int datatype = (ISEC4_NumBits > 0 && ISEC4_NumBits <= 32) ? ISEC4_NumBits : CDI_DATATYPE_PACK;
+ if (datatype > 32) datatype = CDI_DATATYPE_PACK32;
+ if (datatype < 0) datatype = CDI_DATATYPE_PACK;
+
+ int vlistID = streamptr->vlistID;
+ int tsID = streamptr->curTsID;
+ int recID = recordNewEntry(streamptr, tsID);
+ record_t *record = &streamptr->tsteps[tsID].records[recID];
+
+ int tsteptype = cgribexGetTsteptype(ISEC1_TimeRange);
+
+ int leveltype, level1, level2;
+ cgribexGetLevel(isec1, &leveltype, &level1, &level2);
+
+ // fprintf(stderr, "param %d %d %d %d\n", param, level1, level2, leveltype);
+
+ record->size = recsize;
+ record->position = position;
+ record->param = param;
+ record->ilevel = level1;
+ record->ilevel2 = level2;
+ record->ltype = leveltype;
+ record->tsteptype = (short) tsteptype;
+ record->gridsize = cgribexGetGridsize(cgribexp->sec4);
+
+ grid_t *gridptr = (grid_t *) Malloc(sizeof(*gridptr));
+ bool uvRelativeToGrid = cgribexGetGrid(streamptr, isec2, isec4, gridptr, iret);
+
+ struct addIfNewRes gridAdded = cdiVlistAddGridIfNew(vlistID, gridptr, 0);
+ int gridID = gridAdded.Id;
+ if (!gridAdded.isNew)
+ {
+ grid_free(gridptr);
+ Free(gridptr);
+ }
+ else if (gridptr->projtype == CDI_PROJ_RLL)
+ {
+ double xpole = ISEC2_LonSP * 0.001 - 180;
+ double ypole = -ISEC2_LatSP * 0.001;
+ double angle = -FSEC2_RotAngle;
+ gridDefParamRLL(gridID, xpole, ypole, angle);
+ }
+ else if (gridptr->projtype == CDI_PROJ_LCC)
+ {
+ cgribexDefProjLCC(isec2, gridID);
+ }
+
+ int zaxistype = grib1ltypeToZaxisType(leveltype);
+ if (zaxistype == ZAXIS_HYBRID || zaxistype == ZAXIS_HYBRID_HALF)
+ {
+ size_t vctsize = (size_t) ISEC2_NumVCP;
+ double *vctptr = &fsec2[10];
+ varDefVCT(vctsize, vctptr);
+ }
+
+ bool lbounds = cgribexGetZaxisHasBounds(leveltype);
+
+ int varID = 0, levelID = 0;
+ varAddRecord(recID, param, gridID, zaxistype, lbounds, level1, level2, 0, 0, datatype, &varID, &levelID, tsteptype, leveltype, -1,
+ NULL, NULL, NULL, NULL);
+
+ record->varID = (short) varID;
+ record->levelID = levelID;
+
+ varDefCompType(varID, comptype);
+
+ if (uvRelativeToGrid) varDefKeyInt(varID, CDI_KEY_UVRELATIVETOGRID, 1);
+
+ if (ISEC1_LocalFLag)
+ {
+ if (ISEC1_CenterID == 78 && isec1[36] == 253) // DWD local extension
+ {
+ varDefKeyInt(varID, CDI_KEY_TYPEOFENSEMBLEFORECAST, isec1[52]);
+ varDefKeyInt(varID, CDI_KEY_NUMBEROFFORECASTSINENSEMBLE, isec1[53]);
+ varDefKeyInt(varID, CDI_KEY_PERTURBATIONNUMBER, isec1[54]);
+ }
+ else if (ISEC1_CenterID == 252 && isec1[36] == 1) // MPIM local extension
+ {
+ varDefKeyInt(varID, CDI_KEY_TYPEOFENSEMBLEFORECAST, isec1[37]);
+ varDefKeyInt(varID, CDI_KEY_NUMBEROFFORECASTSINENSEMBLE, isec1[39]);
+ varDefKeyInt(varID, CDI_KEY_PERTURBATIONNUMBER, isec1[38]);
+ }
+ }
+
+ if (lmv) varDefMissval(varID, FSEC3_MissVal);
+
+ if (varInqInst(varID) == CDI_UNDEFID)
+ {
+ int center = ISEC1_CenterID;
+ int subcenter = ISEC1_SubCenterID;
+ int instID = institutInq(center, subcenter, NULL, NULL);
+ if (instID == CDI_UNDEFID) instID = institutDef(center, subcenter, NULL, NULL);
+ varDefInst(varID, instID);
+ }
+
+ if (varInqModel(varID) == CDI_UNDEFID)
+ {
+ int modelID = modelInq(varInqInst(varID), ISEC1_ModelID, NULL);
+ if (modelID == CDI_UNDEFID) modelID = modelDef(varInqInst(varID), ISEC1_ModelID, NULL);
+ varDefModel(varID, modelID);
+ }
+
+ if (varInqTable(varID) == CDI_UNDEFID)
+ {
+ int tableID = tableInq(varInqModel(varID), ISEC1_CodeTable, NULL);
+ if (tableID == CDI_UNDEFID) tableID = tableDef(varInqModel(varID), ISEC1_CodeTable, NULL);
+ varDefTable(varID, tableID);
+ }
+
+ streamptr->tsteps[tsID].nallrecs++;
+ streamptr->nrecs++;
+}
+
+static void
+MCH_get_undef(int *isec1, double *undef_pds, double *undef_eps)
+{
+ /* 2010-01-13: Oliver Fuhrer */
+ if (ISEC1_CenterID == 215)
+ {
+ if (isec1[34] != 0 && isec1[34] != 255)
+ {
+ if (isec1[34] & 2)
+ {
+ *undef_pds = ((isec1[34] & 1) ? -0.99 : +0.99) * pow(10.0, -isec1[35]);
+ *undef_eps = pow(10.0, -isec1[35] - 1);
+ }
+ else
+ {
+ *undef_pds = ((isec1[34] & 1) ? -0.99 : +0.99) * pow(10.0, +isec1[35]);
+ *undef_eps = pow(10.0, isec1[35] - 1);
+ }
+ }
+ }
+}
+
+static void
+cgribexDecodeHeader(cgribexrec_t *cgribexp, int *gribbuffer, int recsize, int *lmv, int *iret)
+{
+ int *isec0 = cgribexp->sec0;
+ int *isec1 = cgribexp->sec1;
+ int *isec2 = cgribexp->sec2;
+ int *isec3 = cgribexp->sec3;
+ int *isec4 = cgribexp->sec4;
+ double *fsec2 = cgribexp->fsec2;
+ double *fsec3 = cgribexp->fsec3;
+
+ int ipunp = 0, iword = 0;
+
+ fill_intarr(isec1, 0, 256);
+ fill_intarr(isec2, 0, 32);
+
+ double *fsec4 = NULL;
+ gribExDP(isec0, isec1, isec2, fsec2, isec3, fsec3, isec4, fsec4, ipunp, (int *) gribbuffer, recsize, &iword, "J", iret);
+
+ if (!(ISEC1_Sec2Or3Flag & 128)) isec2[0] = -1; // default generic grid
+
+ *lmv = 0;
+
+ if (ISEC1_CenterID == 215 && (isec1[34] != 0 && isec1[34] != 255))
+ {
+ double undef_pds, undef_eps;
+ MCH_get_undef(isec1, &undef_pds, &undef_eps);
+ FSEC3_MissVal = undef_pds;
+ *lmv = 1;
+ }
+}
+
+static compvar_t
+cgribexVarSet(int param, int level1, int level2, int leveltype, int trange, size_t gridsize)
+{
+ int tsteptype = cgribexGetTsteptype(trange);
+
+ compvar_t compVar;
+ compVar.param = param;
+ compVar.level1 = level1;
+ compVar.level2 = level2;
+ compVar.ltype = leveltype;
+ compVar.tsteptype = tsteptype;
+ compVar.gridsize = gridsize;
+
+ return compVar;
+}
+
+static inline int
+cgribexVarCompare(const compvar_t *compVar, const record_t *record, int flag)
+{
+ bool vinst
+ = (compVar->tsteptype == TSTEP_INSTANT || compVar->tsteptype == TSTEP_INSTANT2 || compVar->tsteptype == TSTEP_INSTANT3);
+ bool rinst = (record->tsteptype == TSTEP_INSTANT || record->tsteptype == TSTEP_INSTANT2 || record->tsteptype == TSTEP_INSTANT3);
+ int tstepDiff = (!((flag == 0) & (vinst && rinst))) & (compVar->tsteptype != record->tsteptype);
+ int rstatus = (compVar->param != record->param) | (compVar->level1 != record->ilevel) | (compVar->level2 != record->ilevel2)
+ | (compVar->ltype != record->ltype) | (compVar->gridsize != record->gridsize) | tstepDiff;
+ return rstatus;
+}
+
+#define gribWarning(text, nrecs, timestep, paramstr, level1, level2) \
+ Warning("Record %2d (id=%s lev1=%d lev2=%d) timestep %d: %s", nrecs, paramstr, level1, level2, timestep, text)
+
+static void
+cgribexSkipRecords(int fileID)
+{
+ int nskip = CDI_Skip_Records;
+ while (nskip-- > 0)
+ {
+ size_t recsize = gribGetSize(fileID);
+ if (recsize == 0) Error("Skipping of %d records failed!", CDI_Skip_Records);
+
+ off_t recpos = fileGetPos(fileID);
+ fileSetPos(fileID, recpos, SEEK_CUR);
+ }
+}
+
+static CdiDateTime
+cgribexDateTimeX(int *isec1, CdiDateTime *sDateTime)
+{
+ int vdate = 0, sdate = 0, vtime = 0, stime = 0;
+ gribDateTimeX(isec1, &vdate, &vtime, &sdate, &stime);
+
+ sDateTime->date = cdiDate_set(sdate);
+ sDateTime->time = cdiTime_set(stime);
+
+ return cdiDateTime_set(vdate, vtime);
+}
+
+int
+cgribexScanTimestep1(stream_t *streamptr)
+{
+ CdiDateTime vDateTime0;
+ cdiDateTime_init(&vDateTime0);
+ int lmv = 0, iret = 0;
+ off_t recpos = 0;
+ void *gribbuffer = NULL;
+ size_t buffersize = 0;
+ int leveltype = 0, level1 = 0, level2 = 0;
+ unsigned recID;
+ int nrecsScanned = 0;
+ bool warn_time = true;
+ bool warn_numavg = true;
+ bool fcast = false;
+ char paramstr[32];
+
+ streamptr->curTsID = 0;
+
+ cgribexrec_t *cgribexp = (cgribexrec_t *) streamptr->record->objectp;
+
+ int tsID = tstepsNewEntry(streamptr);
+ if (tsID != 0) Error("Internal problem! tstepsNewEntry returns %d", tsID);
+
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ int fileID = streamptr->fileID;
+
+ if (CDI_Skip_Records) cgribexSkipRecords(fileID);
+
+ unsigned nrecs = 0;
+ while (true)
+ {
+ size_t recsize = gribGetSize(fileID);
+ recpos = fileGetPos(fileID);
+
+ if (recsize == 0)
+ {
+ if (nrecs == 0) Error("No GRIB records found!");
+ streamptr->ntsteps = 1;
+ break;
+ }
+
+ ensureBufferSize(recsize, &buffersize, &gribbuffer);
+
+ size_t readsize = recsize;
+ // Search for next 'GRIB', read the following record, and position file offset after it.
+ if (gribRead(fileID, gribbuffer, &readsize)) break;
+
+ int comptype = grbDecompress(recsize, &buffersize, &gribbuffer);
+
+ size_t sec2len = cgribexSection2Length(gribbuffer, buffersize);
+ if (sec2len > cgribexp->sec2len)
+ {
+ cgribexp->sec2len = sec2len;
+ cgribexp->sec2 = (int *) Realloc(cgribexp->sec2, sec2len * sizeof(int));
+ }
+
+ int *isec1 = cgribexp->sec1;
+
+ nrecsScanned++;
+ cgribexDecodeHeader(cgribexp, (int *) gribbuffer, (int) recsize, &lmv, &iret);
+
+ int param = cdiEncodeParam(ISEC1_Parameter, ISEC1_CodeTable, 255);
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+
+ cgribexGetLevel(isec1, &leveltype, &level1, &level2);
+
+ CdiDateTime sDateTime;
+ CdiDateTime vDateTime = cgribexDateTimeX(isec1, &sDateTime);
+
+ if (nrecs == 0)
+ {
+ vDateTime0 = vDateTime;
+ fcast = cgribexTimeIsFC(isec1);
+ taxis->unit = cgribexGetTimeUnit(isec1);
+ taxis->rDateTime = cdiDateTime_set(gribRefDate(isec1), gribRefTime(isec1));
+ taxis->sDateTime = sDateTime;
+ taxis->vDateTime = vDateTime;
+ }
+ else
+ {
+ if (cdiDateTime_isLT(sDateTime, taxis->sDateTime)) taxis->sDateTime = sDateTime;
+
+ size_t gridsize = cgribexGetGridsize(cgribexp->sec4);
+ compvar_t compVar = cgribexVarSet(param, level1, level2, leveltype, ISEC1_TimeRange, gridsize);
+ record_t *records = streamptr->tsteps[tsID].records;
+ for (recID = 0; recID < nrecs; recID++)
+ {
+ if (cgribexVarCompare(&compVar, &records[recID], 0) == 0) break;
+ }
+
+ if (CDI_Inventory_Mode == 1)
+ {
+ if (recID < nrecs) break;
+ if (warn_time)
+ if (cdiDateTime_isNE(vDateTime, vDateTime0))
+ {
+ gribWarning("Inconsistent verification time!", nrecsScanned, tsID + 1, paramstr, level1, level2);
+ warn_time = false;
+ }
+ }
+ else
+ {
+ if (cdiDateTime_isNE(vDateTime, vDateTime0)) break;
+
+ if (recID < nrecs)
+ {
+ gribWarning("Parameter already exist, skipped!", nrecsScanned, tsID + 1, paramstr, level1, level2);
+ continue;
+ }
+ }
+ }
+
+ if (ISEC1_AvgNum)
+ {
+ if (taxis->numavg && warn_numavg && (taxis->numavg != ISEC1_AvgNum))
+ {
+ Warning("Changing numavg from %d to %d not supported!", taxis->numavg, ISEC1_AvgNum);
+ warn_numavg = false;
+ }
+ else
+ {
+ taxis->numavg = ISEC1_AvgNum;
+ }
+ }
+
+ nrecs++;
+
+ if (CDI_Debug)
+ Message("Read record %2d (id=%s lev1=%d lev2=%d) %s", nrecsScanned, paramstr, level1, level2,
+ CdiDateTime_string(vDateTime));
+
+ cgribexAddRecord(streamptr, cgribexp, param, recsize, recpos, comptype, lmv, iret);
+ }
+
+ streamptr->rtsteps = 1;
+
+ if (nrecs == 0) return CDI_EUFSTRUCT;
+
+ cdi_generate_vars(streamptr);
+
+ taxis->type = fcast ? TAXIS_RELATIVE : TAXIS_ABSOLUTE;
+ int taxisID = taxisCreate(taxis->type);
+
+ int vlistID = streamptr->vlistID;
+ vlistDefTaxis(vlistID, taxisID);
+
+ streamScanResizeRecords1(streamptr);
+
+ streamptr->record->buffer = gribbuffer;
+ streamptr->record->buffersize = buffersize;
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+ streamScanTimeConstAdjust(streamptr, taxis);
+
+ return 0;
+}
+
+int
+cgribexScanTimestep2(stream_t *streamptr)
+{
+ CdiDateTime vDateTime0;
+ cdiDateTime_init(&vDateTime0);
+ int lmv = 0, iret = 0;
+ off_t recpos = 0;
+ int leveltype = 0, level1 = 0, level2 = 0;
+ int recID = 0;
+ bool warn_numavg = true;
+ char paramstr[32];
+
+ streamptr->curTsID = 1;
+
+ cgribexrec_t *cgribexp = (cgribexrec_t *) streamptr->record->objectp;
+ int *isec1 = cgribexp->sec1;
+ int *isec2 = cgribexp->sec2;
+
+ int fileID = streamptr->fileID;
+ int vlistID = streamptr->vlistID;
+
+ void *gribbuffer = streamptr->record->buffer;
+ size_t buffersize = streamptr->record->buffersize;
+
+ int tsID = streamptr->rtsteps;
+ if (tsID != 1) Error("Internal problem! unexpected timestep %d", tsID + 1);
+
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ int nrecords = streamScanInitRecords2(streamptr);
+
+ int nrecsScanned = nrecords;
+ int rindex = 0;
+ while (true)
+ {
+ if (rindex > nrecords) break;
+
+ size_t recsize = gribGetSize(fileID);
+ recpos = fileGetPos(fileID);
+ if (recsize == 0)
+ {
+ streamptr->ntsteps = 2;
+ break;
+ }
+
+ ensureBufferSize(recsize, &buffersize, &gribbuffer);
+
+ size_t readsize = recsize;
+ if (gribRead(fileID, gribbuffer, &readsize)) break;
+
+ grbDecompress(recsize, &buffersize, &gribbuffer);
+
+ nrecsScanned++;
+ cgribexDecodeHeader(cgribexp, (int *) gribbuffer, (int) recsize, &lmv, &iret);
+
+ int param = cdiEncodeParam(ISEC1_Parameter, ISEC1_CodeTable, 255);
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+
+ cgribexGetLevel(isec1, &leveltype, &level1, &level2);
+
+ CdiDateTime sDateTime;
+ CdiDateTime vDateTime = cgribexDateTimeX(isec1, &sDateTime);
+
+ if (rindex == 0)
+ {
+ vDateTime0 = vDateTime;
+ int taxisID = vlistInqTaxis(vlistID);
+ if (taxisInqType(taxisID) == TAXIS_RELATIVE)
+ {
+ taxis->type = TAXIS_RELATIVE;
+ taxis->rDateTime = cdiDateTime_set(gribRefDate(isec1), gribRefTime(isec1));
+ }
+ else
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ }
+ taxis->unit = cgribexGetTimeUnit(isec1);
+ taxis->vDateTime = vDateTime;
+ taxis->sDateTime = sDateTime;
+ }
+ else
+ {
+ if (cdiDateTime_isLT(sDateTime, taxis->sDateTime)) taxis->sDateTime = sDateTime;
+ }
+
+ int tsteptype = cgribexGetTsteptype(ISEC1_TimeRange);
+
+ if (ISEC1_AvgNum)
+ {
+ if (taxis->numavg && warn_numavg && (taxis->numavg != ISEC1_AvgNum))
+ warn_numavg = false;
+ else
+ taxis->numavg = ISEC1_AvgNum;
+ }
+
+ size_t gridsize = cgribexGetGridsize(cgribexp->sec4);
+ compvar_t compVar = cgribexVarSet(param, level1, level2, leveltype, ISEC1_TimeRange, gridsize);
+
+ for (recID = 0; recID < nrecords; recID++)
+ {
+ if (cgribexVarCompare(&compVar, &records[recID], 0) == 0) break;
+ }
+
+ if (recID == nrecords)
+ {
+ gribWarning("Parameter not defined at timestep 1!", nrecsScanned, tsID + 1, paramstr, level1, level2);
+ return CDI_EUFSTRUCT;
+ }
+
+ if (CDI_Inventory_Mode == 1)
+ {
+ if (records[recID].used)
+ {
+ break;
+ }
+ else
+ {
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+ }
+ }
+ else
+ {
+ if (records[recID].used)
+ {
+ if (cdiDateTime_isNE(vDateTime, vDateTime0)) break;
+
+ gribWarning("Parameter already exist, skipped!", nrecsScanned, tsID + 1, paramstr, level1, level2);
+ continue;
+ }
+ else
+ {
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+ }
+ }
+
+ if (CDI_Debug)
+ Message("Read record %2d (id=%s lev1=%d lev2=%d) %s", nrecsScanned, paramstr, level1, level2,
+ CdiDateTime_string(vDateTime));
+
+ if (cgribexVarCompare(&compVar, &streamptr->tsteps[tsID].records[recID], 0) != 0)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, level1);
+ return CDI_EUFSTRUCT;
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+
+ int varID = records[recID].varID;
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ if (gridInqSize(gridID) == 1 && gridInqType(gridID) == GRID_LONLAT)
+ {
+ if (IS_NOT_EQUAL(gridInqXval(gridID, 0), ISEC2_FirstLon * 0.001)
+ || IS_NOT_EQUAL(gridInqYval(gridID, 0), ISEC2_FirstLat * 0.001))
+ gridChangeType(gridID, GRID_TRAJECTORY);
+ }
+
+ if (tsteptype != TSTEP_INSTANT2 && tsteptype != vlistInqVarTsteptype(vlistID, varID))
+ vlistDefVarTsteptype(vlistID, varID, tsteptype);
+
+ rindex++;
+ }
+
+ int nrecs = 0;
+ for (recID = 0; recID < nrecords; recID++)
+ {
+ if (records[recID].used)
+ nrecs++;
+ else
+ vlistDefVarTimetype(vlistID, records[recID].varID, TIME_CONSTANT);
+ }
+ streamptr->tsteps[tsID].nrecs = nrecs;
+
+ streamptr->rtsteps = 2;
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+
+ streamptr->record->buffer = gribbuffer;
+ streamptr->record->buffersize = buffersize;
+
+ return 0;
+}
+
+int
+cgribexScanTimestep(stream_t *streamptr)
+{
+ CdiDateTime vDateTime0;
+ cdiDateTime_init(&vDateTime0);
+ int lmv = 0, iret = 0;
+ off_t recpos = 0;
+ int leveltype = 0, level1 = 0, level2 = 0;
+ int vrecID, recID = 0;
+ bool warn_numavg = true;
+ int nrecs = 0;
+ char paramstr[32];
+
+ cgribexrec_t *cgribexp = (cgribexrec_t *) streamptr->record->objectp;
+ int *isec1 = cgribexp->sec1;
+
+ int tsID = streamptr->rtsteps;
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ if (streamptr->tsteps[tsID].recordSize == 0)
+ {
+ void *gribbuffer = streamptr->record->buffer;
+ size_t buffersize = streamptr->record->buffersize;
+
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ nrecs = streamScanInitRecords(streamptr, tsID);
+
+ int fileID = streamptr->fileID;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ int nrecsScanned = streamptr->tsteps[0].nallrecs + streamptr->tsteps[1].nrecs * (tsID - 1);
+ int rindex = 0;
+ while (true)
+ {
+ if (rindex > nrecs) break;
+
+ size_t recsize = gribGetSize(fileID);
+ recpos = fileGetPos(fileID);
+ if (recsize == 0)
+ {
+ streamptr->ntsteps = streamptr->rtsteps + 1;
+ break;
+ }
+
+ ensureBufferSize(recsize, &buffersize, &gribbuffer);
+
+ size_t readsize = recsize;
+ if (gribRead(fileID, gribbuffer, &readsize))
+ {
+ Warning("Inconsistent timestep %d (GRIB record %d/%d)!", tsID + 1, rindex + 1, streamptr->tsteps[tsID].recordSize);
+ break;
+ }
+
+ grbDecompress(recsize, &buffersize, &gribbuffer);
+
+ nrecsScanned++;
+ cgribexDecodeHeader(cgribexp, (int *) gribbuffer, (int) recsize, &lmv, &iret);
+
+ int param = cdiEncodeParam(ISEC1_Parameter, ISEC1_CodeTable, 255);
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+
+ cgribexGetLevel(isec1, &leveltype, &level1, &level2);
+
+ CdiDateTime sDateTime;
+ CdiDateTime vDateTime = cgribexDateTimeX(isec1, &sDateTime);
+
+ if (rindex == nrecs) break;
+
+ if (rindex == 0)
+ {
+ vDateTime0 = vDateTime;
+ int vlistID = streamptr->vlistID;
+ int taxisID = vlistInqTaxis(vlistID);
+ if (taxisInqType(taxisID) == TAXIS_RELATIVE)
+ {
+ taxis->type = TAXIS_RELATIVE;
+ taxis->rDateTime = cdiDateTime_set(gribRefDate(isec1), gribRefTime(isec1));
+ }
+ else
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ }
+ taxis->unit = cgribexGetTimeUnit(isec1);
+ taxis->vDateTime = vDateTime;
+ taxis->sDateTime = sDateTime;
+ }
+ else
+ {
+ if (cdiDateTime_isLT(sDateTime, taxis->sDateTime)) taxis->sDateTime = sDateTime;
+ }
+
+ if (ISEC1_AvgNum)
+ {
+ if (taxis->numavg && warn_numavg && (taxis->numavg != ISEC1_AvgNum))
+ warn_numavg = false;
+ else
+ taxis->numavg = ISEC1_AvgNum;
+ }
+
+ size_t gridsize = cgribexGetGridsize(cgribexp->sec4);
+ compvar_t compVar = cgribexVarSet(param, level1, level2, leveltype, ISEC1_TimeRange, gridsize);
+
+ for (vrecID = 0; vrecID < nrecs; vrecID++)
+ {
+ recID = streamptr->tsteps[1].recIDs[vrecID];
+ if (cgribexVarCompare(&compVar, &records[recID], 0) == 0) break;
+ }
+
+ if (vrecID == nrecs)
+ {
+ gribWarning("Parameter not defined at timestep 1!", nrecsScanned, tsID + 1, paramstr, level1, level2);
+
+ if (CDI_Inventory_Mode == 1)
+ return CDI_EUFSTRUCT;
+ else
+ continue;
+ }
+
+ if (CDI_Inventory_Mode == 1)
+ {
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+ }
+ else
+ {
+ if (records[recID].used)
+ {
+ char paramstr_[32];
+ cdiParamToString(param, paramstr_, sizeof(paramstr_));
+
+ if (cdiDateTime_isNE(vDateTime, vDateTime0)) break;
+
+ if (CDI_Debug)
+ gribWarning("Parameter already exist, skipped!", nrecsScanned, tsID + 1, paramstr_, level1, level2);
+
+ continue;
+ }
+ else
+ {
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+ }
+ }
+
+ if (CDI_Debug)
+ Message("Read record %2d (id=%s lev1=%d lev2=%d) %s", nrecsScanned, paramstr, level1, level2,
+ CdiDateTime_string(vDateTime));
+
+ if (cgribexVarCompare(&compVar, &records[recID], 0) != 0)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, level1);
+ Error("Invalid, unsupported or inconsistent record structure");
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+
+ rindex++;
+ }
+
+ for (vrecID = 0; vrecID < nrecs; vrecID++)
+ {
+ recID = streamptr->tsteps[tsID].recIDs[vrecID];
+ if (!records[recID].used) break;
+ }
+
+ if (vrecID < nrecs)
+ {
+ cdiParamToString(records[recID].param, paramstr, sizeof(paramstr));
+ gribWarning("Parameter not found!", nrecsScanned, tsID + 1, paramstr, records[recID].ilevel, records[recID].ilevel2);
+ return CDI_EUFSTRUCT;
+ }
+
+ streamptr->rtsteps++;
+
+ if (streamptr->ntsteps != streamptr->rtsteps)
+ {
+ tsID = tstepsNewEntry(streamptr);
+ if (tsID != streamptr->rtsteps) Error("Internal error. tsID = %d", tsID);
+
+ streamptr->tsteps[tsID - 1].next = true;
+ streamptr->tsteps[tsID].position = recpos;
+ }
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+ streamptr->tsteps[tsID].position = recpos;
+
+ streamptr->record->buffer = gribbuffer;
+ streamptr->record->buffersize = buffersize;
+ }
+
+ if (nrecs > 0 && nrecs < streamptr->tsteps[tsID].nrecs)
+ {
+ Warning("Incomplete timestep. Stop scanning at timestep %d.", tsID);
+ streamptr->ntsteps = tsID;
+ }
+
+ return streamptr->ntsteps;
+}
+
+#ifdef gribWarning
+#undef gribWarning
+#endif
+
+int
+cgribexDecode(int memtype, void *cgribex, void *gribbuffer, size_t gribsize, void *data, size_t datasize, int unreduced,
+ size_t *numMissVals, double missval)
+{
+ int status = 0;
+
+ bool lalloc = cgribex == NULL;
+ cgribexrec_t *cgribexp = (cgribexrec_t *) (lalloc ? cgribexNew() : cgribex);
+
+ int *isec0 = cgribexp->sec0;
+ int *isec1 = cgribexp->sec1;
+ int *isec2 = cgribexp->sec2;
+ int *isec3 = cgribexp->sec3;
+ int *isec4 = cgribexp->sec4;
+ double *fsec2 = cgribexp->fsec2;
+ double *fsec3 = cgribexp->fsec3;
+ float fsec2f[sizeof(cgribexp->fsec2) / sizeof(double)];
+ float fsec3f[sizeof(cgribexp->fsec3) / sizeof(double)];
+
+ char hoper[2];
+ strcpy(hoper, unreduced ? "R" : "D");
+
+ FSEC3_MissVal = missval;
+
+ int iret = 0, iword = 0;
+ if (memtype == MEMTYPE_FLOAT)
+ gribExSP(isec0, isec1, isec2, fsec2f, isec3, fsec3f, isec4, (float *) data, (int) datasize, (int *) gribbuffer, (int) gribsize,
+ &iword, hoper, &iret);
+ else
+ gribExDP(isec0, isec1, isec2, fsec2, isec3, fsec3, isec4, (double *) data, (int) datasize, (int *) gribbuffer, (int) gribsize,
+ &iword, hoper, &iret);
+
+ *numMissVals = (ISEC1_Sec2Or3Flag & 64) ? ISEC4_NumValues - ISEC4_NumNonMissValues : 0;
+
+ if (ISEC1_CenterID == 215 && (isec1[34] != 0 && isec1[34] != 255))
+ {
+ double undef_pds, undef_eps;
+ MCH_get_undef(isec1, &undef_pds, &undef_eps);
+
+ *numMissVals = 0;
+ if (memtype == MEMTYPE_FLOAT)
+ {
+ float *restrict dataf = (float *) data;
+ for (size_t i = 0; i < datasize; i++)
+ if ((fabs(dataf[i] - undef_pds) < undef_eps) || IS_EQUAL(dataf[i], FSEC3_MissVal))
+ {
+ dataf[i] = (float) missval;
+ (*numMissVals)++;
+ }
+ }
+ else
+ {
+ double *restrict datad = (double *) data;
+ for (size_t i = 0; i < datasize; i++)
+ if ((fabs(datad[i] - undef_pds) < undef_eps) || IS_EQUAL(datad[i], FSEC3_MissVal))
+ {
+ datad[i] = missval;
+ (*numMissVals)++;
+ }
+ }
+ }
+
+ if (lalloc) cgribexDelete(cgribexp);
+
+ return status;
+}
+
+static void
+cgribexDefInstitut(int *isec1, int vlistID, int varID)
+{
+ int instID = (vlistInqInstitut(vlistID) != CDI_UNDEFID) ? vlistInqInstitut(vlistID) : vlistInqVarInstitut(vlistID, varID);
+ if (instID != CDI_UNDEFID)
+ {
+ ISEC1_CenterID = institutInqCenter(instID);
+ ISEC1_SubCenterID = institutInqSubcenter(instID);
+ }
+}
+
+static void
+cgribexDefModel(int *isec1, int vlistID, int varID)
+{
+ int modelID = (vlistInqModel(vlistID) != CDI_UNDEFID) ? vlistInqModel(vlistID) : vlistInqVarModel(vlistID, varID);
+ if (modelID != CDI_UNDEFID) ISEC1_ModelID = modelInqGribID(modelID);
+}
+
+static void
+cgribexDefParam(int *isec1, int param)
+{
+ int pdis, pcat, pnum;
+ cdiDecodeParam(param, &pnum, &pcat, &pdis);
+ if (pnum < 0) pnum = -pnum;
+
+ static bool lwarn_pdis = true;
+ if (pdis != 255 && lwarn_pdis)
+ {
+ char paramstr[32];
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+ Warning("Can't convert GRIB2 parameter ID (%s) to GRIB1, set to %d.%d!", paramstr, pnum, pcat);
+ lwarn_pdis = false;
+ }
+
+ static bool lwarn_pnum = true;
+ if (pnum > 255 && lwarn_pnum)
+ {
+ Warning("Parameter number %d out of range (1-255), set to %d!", pnum, pnum % 256);
+ lwarn_pnum = false;
+ pnum = pnum % 256;
+ }
+
+ ISEC1_CodeTable = pcat;
+ ISEC1_Parameter = pnum;
+}
+
+static int
+cgribexDefTimerange(int tsteptype, int factor, int calendar, CdiDateTime rDateTime, CdiDateTime vDateTime, CdiDateTime sDateTime,
+ int *pip1, int *pip2)
+{
+ JulianDate julianDate1 = julianDate_encode(calendar, rDateTime);
+ JulianDate julianDate2 = julianDate_encode(calendar, vDateTime);
+ JulianDate julianDate = julianDate_sub(julianDate2, julianDate1);
+
+ int timerange = -1;
+ int ip1 = 0, ip2 = 0;
+ if (!(int) (fmod(julianDate_to_seconds(julianDate), factor)))
+ {
+ int ip = (int) lround(julianDate_to_seconds(julianDate) / factor);
+ if ((ip > 255) && (tsteptype == TSTEP_INSTANT)) tsteptype = TSTEP_INSTANT3;
+
+ int ipx = 0;
+ if (!cdiDateTime_isNull(sDateTime)
+ && (tsteptype == TSTEP_RANGE || tsteptype == TSTEP_AVG || tsteptype == TSTEP_ACCUM || tsteptype == TSTEP_DIFF))
+ {
+ julianDate2 = julianDate_encode(calendar, sDateTime);
+ ipx = (int) lround(julianDate_to_seconds(julianDate_sub(julianDate2, julianDate1)) / factor);
+ }
+
+ // clang-format off
+ switch (tsteptype)
+ {
+ case TSTEP_INSTANT: timerange = 0; ip1 = ip; ip2 = 0; break;
+ case TSTEP_INSTANT2: timerange = 1; ip1 = 0; ip2 = 0; break;
+ case TSTEP_RANGE: timerange = 2; ip1 = 0; ip2 = ip; break;
+ case TSTEP_AVG: timerange = 3; ip1 = 0; ip2 = ip; break;
+ case TSTEP_ACCUM: timerange = 4; ip1 = ipx; ip2 = ip; break;
+ case TSTEP_DIFF: timerange = 5; ip1 = 0; ip2 = ip; break;
+ case TSTEP_INSTANT3:
+ default: timerange = 10; ip1 = ip/256; ip2 = ip%256; break;
+ }
+ // clang-format on
+ }
+
+ *pip1 = ip1;
+ *pip2 = ip2;
+
+ return timerange;
+}
+
+static int
+cgribexDefDateTime(int *isec1, int timeunit, CdiDateTime dt)
+{
+ int year, month, day, hour, minute, second, ms;
+ cdiDate_decode(dt.date, &year, &month, &day);
+ cdiTime_decode(dt.time, &hour, &minute, &second, &ms);
+
+ int century = year / 100;
+ ISEC1_Year = year - century * 100;
+
+ if (year < 0)
+ {
+ century = -century;
+ ISEC1_Year = -ISEC1_Year;
+ }
+
+ if (ISEC1_Year == 0)
+ {
+ century -= 1;
+ ISEC1_Year = 100;
+ }
+
+ century += 1;
+ if (year < 0) century = -century;
+
+ ISEC1_Month = month;
+ ISEC1_Day = day;
+ ISEC1_Hour = hour;
+ ISEC1_Minute = minute;
+
+ ISEC1_Century = century;
+
+ int factor = 1;
+ // clang-format off
+ switch (timeunit)
+ {
+ case TUNIT_MINUTE: factor = 60; ISEC1_TimeUnit = ISEC1_TABLE4_MINUTE; break;
+ case TUNIT_QUARTER: factor = 900; ISEC1_TimeUnit = ISEC1_TABLE4_QUARTER; break;
+ case TUNIT_30MINUTES: factor = 1800; ISEC1_TimeUnit = ISEC1_TABLE4_30MINUTES; break;
+ case TUNIT_HOUR: factor = 3600; ISEC1_TimeUnit = ISEC1_TABLE4_HOUR; break;
+ case TUNIT_3HOURS: factor = 10800; ISEC1_TimeUnit = ISEC1_TABLE4_3HOURS; break;
+ case TUNIT_6HOURS: factor = 21600; ISEC1_TimeUnit = ISEC1_TABLE4_6HOURS; break;
+ case TUNIT_12HOURS: factor = 43200; ISEC1_TimeUnit = ISEC1_TABLE4_12HOURS; break;
+ case TUNIT_DAY: factor = 86400; ISEC1_TimeUnit = ISEC1_TABLE4_DAY; break;
+ default: factor = 3600; ISEC1_TimeUnit = ISEC1_TABLE4_HOUR; break;
+ }
+ // clang-format on
+
+ return factor;
+}
+
+static void
+cgribexDefTime(int *isec1, CdiDateTime vDateTime, int tsteptype, int numavg, int taxisID)
+{
+ int timetype = TAXIS_ABSOLUTE;
+ int timeunit = TUNIT_HOUR;
+
+ if (taxisID != -1)
+ {
+ timetype = taxisInqType(taxisID);
+ timeunit = taxisInqTunit(taxisID);
+ }
+
+ if (timetype == TAXIS_RELATIVE)
+ {
+ int ip1 = 0, ip2 = 0;
+ int calendar = taxisInqCalendar(taxisID);
+
+ CdiDateTime rDateTime = taxisInqRdatetime(taxisID);
+ if (cdiDateTime_isLT(vDateTime, rDateTime)) rDateTime = vDateTime;
+
+ CdiDateTime sDateTime = taxisInqSdatetime(taxisID);
+
+ int factor = cgribexDefDateTime(isec1, timeunit, rDateTime);
+ int timerange = cgribexDefTimerange(tsteptype, factor, calendar, rDateTime, vDateTime, sDateTime, &ip1, &ip2);
+
+ if (ip2 > 0xFF)
+ {
+ rDateTime = vDateTime;
+ factor = cgribexDefDateTime(isec1, timeunit, rDateTime);
+ timerange = cgribexDefTimerange(tsteptype, factor, calendar, rDateTime, vDateTime, sDateTime, &ip1, &ip2);
+ }
+ /*
+ if (ip2 > 0xFF && timeunit < TUNIT_YEAR)
+ {
+ timeunit++;
+ factor = cgribexDefDateTime(isec1, timeunit, rDateTime);
+ timerange = cgribexDefTimerange(tsteptype, factor, calendar, rDateTime, vDateTime, sDateTime, &ip1, &ip2);
+ }
+ */
+ if (timerange == -1 || timerange == 1 || timerange == 3) timetype = TAXIS_ABSOLUTE;
+ /*
+ else if (timerange == 10)
+ {
+ if (ip1 < 0 || ip1 > 0xFFFF) timetype = TAXIS_ABSOLUTE;
+ if (ip2 < 0 || ip2 > 0xFFFF) timetype = TAXIS_ABSOLUTE;
+ }
+ */
+ else
+ {
+ if (ip1 < 0 || ip1 > 0xFF) timetype = TAXIS_ABSOLUTE;
+ if (ip2 < 0 || ip2 > 0xFF) timetype = TAXIS_ABSOLUTE;
+ }
+
+ if (timetype != TAXIS_ABSOLUTE)
+ {
+ ISEC1_TimeRange = timerange;
+ ISEC1_TimePeriod1 = ip1;
+ ISEC1_TimePeriod2 = ip2;
+ }
+ }
+
+ if (timetype == TAXIS_ABSOLUTE)
+ {
+ (void) cgribexDefDateTime(isec1, timeunit, vDateTime);
+
+ /*
+ if (numavg > 0)
+ ISEC1_TimeRange = 0;
+ else
+ */
+ if (ISEC1_TimeRange != 3) ISEC1_TimeRange = 10;
+
+ ISEC1_TimePeriod1 = 0;
+ ISEC1_TimePeriod2 = 0;
+ }
+
+ ISEC1_AvgNum = numavg;
+ ISEC1_AvgMiss = 0;
+ ISEC1_DecScaleFactor = 0;
+}
+
+static void
+cgribexDefGridRegular(int *isec2, double *fsec2, int gridID, int gridtype, bool gridIsRotated, bool gridIsCurvilinear,
+ int uvRelativeToGrid)
+{
+ if (gridtype == GRID_GAUSSIAN || gridtype == GRID_GAUSSIAN_REDUCED)
+ ISEC2_GridType = GRIB1_GTYPE_GAUSSIAN;
+ else if (gridtype == GRID_LONLAT && gridIsRotated)
+ ISEC2_GridType = GRIB1_GTYPE_LATLON_ROT;
+ else
+ ISEC2_GridType = GRIB1_GTYPE_LATLON;
+
+ double xfirst = 0.0, xlast = 0.0, xinc = 0.0;
+ double yfirst = 0.0, ylast = 0.0, yinc = 0.0;
+
+ int nlon = (int) gridInqXsize(gridID);
+ int nlat = (int) gridInqYsize(gridID);
+
+ if (gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ ISEC2_Reduced = true;
+ if (nlon == 2)
+ {
+ xfirst = gridInqXval(gridID, 0);
+ xlast = gridInqXval(gridID, 1);
+ }
+ else
+ {
+ xlast = 360.0 - 360.0 / (nlat * 2);
+ }
+
+ nlon = 0;
+ gridInqReducedPoints(gridID, ISEC2_ReducedPointsPtr);
+ }
+ else
+ {
+ if (nlon == 0)
+ nlon = 1;
+ else
+ {
+ xfirst = gridInqXval(gridID, 0);
+ xlast = gridInqXval(gridID, (gridIsCurvilinear ? nlon * nlat : nlon) - 1);
+ xinc = fabs(gridInqXinc(gridID));
+ }
+ }
+
+ if (nlat == 0)
+ nlat = 1;
+ else
+ {
+ yfirst = gridInqYval(gridID, 0);
+ ylast = gridInqYval(gridID, (gridIsCurvilinear ? nlon * nlat : nlat) - 1);
+ yinc = fabs(gridInqYinc(gridID));
+ }
+
+ ISEC2_NumLon = nlon;
+ ISEC2_NumLat = nlat;
+ ISEC2_FirstLat = (int) lround(yfirst * 1000);
+ ISEC2_LastLat = (int) lround(ylast * 1000);
+ ISEC2_FirstLon = (int) lround(xfirst * 1000);
+ ISEC2_LastLon = (int) lround(xlast * 1000);
+ // gribapi gridType detector doesn't like lonIncr for Gaussian reduced longitides
+ if (gridtype != GRID_GAUSSIAN_REDUCED) ISEC2_LonIncr = (int) lround(xinc * 1000);
+
+ if (gridtype == GRID_GAUSSIAN || gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ int np = gridInqNP(gridID);
+ if (np == 0) np = nlat / 2;
+ ISEC2_NumPar = np;
+ }
+ else
+ {
+ ISEC2_LatIncr = (int) lround(yinc * 1000);
+ }
+
+ if (ISEC2_NumLon > 1 && ISEC2_NumLat == 1)
+ if (ISEC2_LonIncr != 0 && ISEC2_LatIncr == 0) ISEC2_LatIncr = ISEC2_LonIncr;
+
+ if (ISEC2_NumLon == 1 && ISEC2_NumLat > 1)
+ if (ISEC2_LonIncr == 0 && ISEC2_LatIncr != 0) ISEC2_LonIncr = ISEC2_LatIncr;
+
+ ISEC2_ResFlag = 0;
+ if (ISEC2_LatIncr && ISEC2_LonIncr) gribbyte_set_bit(&ISEC2_ResFlag, 1);
+ if (uvRelativeToGrid > 0) gribbyte_set_bit(&ISEC2_ResFlag, 5);
+
+ if (gridIsRotated)
+ {
+ double xpole = 0, ypole = 0, angle = 0;
+ gridInqParamRLL(gridID, &xpole, &ypole, &angle);
+
+ ISEC2_LatSP = -(int) lround(ypole * 1000);
+ ISEC2_LonSP = (int) lround((xpole + 180) * 1000);
+ if (fabs(angle) > 0) angle = -angle;
+ FSEC2_RotAngle = angle;
+ }
+
+ ISEC2_ScanFlag = 0;
+ if (ISEC2_LastLon < ISEC2_FirstLon) gribbyte_set_bit(&ISEC2_ScanFlag, 1); // East -> West
+ if (ISEC2_LastLat > ISEC2_FirstLat) gribbyte_set_bit(&ISEC2_ScanFlag, 2); // South -> North
+}
+
+static void
+cgribexDefGridLambert(int *isec2, int gridID, int uvRelativeToGrid)
+{
+ int xsize = (int) gridInqXsize(gridID);
+ int ysize = (int) gridInqYsize(gridID);
+
+ struct CDI_GridProjParams gpp;
+ gridInqParamsLCC(gridID, &gpp);
+ if (IS_EQUAL(gpp.x_0, gpp.mv) && IS_EQUAL(gpp.y_0, gpp.mv) && (IS_EQUAL(gpp.xval_0, gpp.mv) || IS_EQUAL(gpp.yval_0, gpp.mv)))
+ {
+ gpp.x_0 = gridInqXval(gridID, 0);
+ gpp.y_0 = gridInqYval(gridID, 0);
+ }
+ gridVerifyProjParamsLCC(&gpp);
+
+ bool lsouth = (gpp.lat_1 < 0);
+ if (lsouth)
+ {
+ gpp.lat_1 = -gpp.lat_2;
+ gpp.lat_2 = -gpp.lat_2;
+ }
+
+ double xinc = gridInqXinc(gridID);
+ double yinc = gridInqYinc(gridID);
+ if (IS_EQUAL(xinc, 0.0)) xinc = gridInqXincInMeter(gridID);
+ if (IS_EQUAL(yinc, 0.0)) yinc = gridInqYincInMeter(gridID);
+
+ ISEC2_GridType = GRIB1_GTYPE_LCC;
+ ISEC2_NumLon = xsize;
+ ISEC2_NumLat = ysize;
+ ISEC2_FirstLon = (int) lround(gpp.xval_0 * 1000);
+ ISEC2_FirstLat = (int) lround(gpp.yval_0 * 1000);
+ ISEC2_Lambert_Lov = (int) lround(gpp.lon_0 * 1000);
+ ISEC2_Lambert_LatS1 = (int) lround(gpp.lat_1 * 1000);
+ ISEC2_Lambert_LatS2 = (int) lround(gpp.lat_2 * 1000);
+ ISEC2_Lambert_dx = (int) lround(xinc);
+ ISEC2_Lambert_dy = (int) lround(yinc);
+ ISEC2_Lambert_LatSP = 0;
+ ISEC2_Lambert_LonSP = 0;
+ ISEC2_Lambert_ProjFlag = 0;
+ if (lsouth) gribbyte_set_bit(&ISEC2_Lambert_ProjFlag, 1);
+
+ bool earthIsOblate = (IS_EQUAL(gpp.a, 6378160.0) && IS_EQUAL(gpp.rf, 297.0));
+ ISEC2_ResFlag = 0;
+ if (ISEC2_Lambert_dx && ISEC2_Lambert_dy) gribbyte_set_bit(&ISEC2_ResFlag, 1);
+ if (earthIsOblate) gribbyte_set_bit(&ISEC2_ResFlag, 2);
+ if (uvRelativeToGrid > 0) gribbyte_set_bit(&ISEC2_ResFlag, 5);
+
+ ISEC2_ScanFlag = 0;
+ gribbyte_set_bit(&ISEC2_ScanFlag, 2); // South -> North
+}
+
+static void
+cgribexDefGridSpectal(int *isec2, int *isec4, int gridID)
+{
+ ISEC2_GridType = GRIB1_GTYPE_SPECTRAL;
+ ISEC2_PentaJ = gridInqTrunc(gridID);
+ ISEC2_PentaK = ISEC2_PentaJ;
+ ISEC2_PentaM = ISEC2_PentaJ;
+ ISEC2_RepType = 1;
+ isec4[2] = 128;
+ if (gridInqComplexPacking(gridID) && ISEC2_PentaJ >= 21)
+ {
+ ISEC2_RepMode = 2;
+ isec4[3] = 64;
+ isec4[16] = 0;
+ isec4[17] = 20;
+ isec4[18] = 20;
+ isec4[19] = 20;
+ }
+ else
+ {
+ ISEC2_RepMode = 1;
+ isec4[3] = 0;
+ }
+}
+
+static void
+cgribexDefGridGME(int *isec2, int gridID)
+{
+ ISEC2_GridType = GRIB1_GTYPE_GME;
+ int nd = 0, ni = 0, ni2 = 0, ni3 = 0;
+ gridInqParamGME(gridID, &nd, &ni, &ni2, &ni3);
+ ISEC2_GME_ND = nd;
+ ISEC2_GME_NI = ni;
+ ISEC2_GME_NI2 = ni2;
+ ISEC2_GME_NI3 = ni3;
+ ISEC2_GME_AFlag = 0;
+ ISEC2_GME_LatPP = 90000;
+ ISEC2_GME_LonPP = 0;
+ ISEC2_GME_LonMPL = 0;
+ ISEC2_GME_BFlag = 0;
+}
+
+static void
+cgribexDefGrid(int *isec1, int *isec2, double *fsec2, int *isec4, int gridID, int uvRelativeToGrid)
+{
+ fill_intarr(isec2, 0, 16);
+ ISEC1_Sec2Or3Flag = 128;
+ ISEC1_GridDefinition = 255;
+ ISEC2_Reduced = false;
+ ISEC2_ScanFlag = 0;
+
+ int gridsize = (int) gridInqSize(gridID);
+ bool gridIsRotated = false;
+ bool gridIsCurvilinear = false;
+ int gridtype = grbGetGridtype(&gridID, gridsize, &gridIsRotated, &gridIsCurvilinear);
+
+ switch (gridtype)
+ {
+ case GRID_LONLAT:
+ case GRID_GAUSSIAN:
+ case GRID_GAUSSIAN_REDUCED:
+ case GRID_TRAJECTORY:
+ {
+ cgribexDefGridRegular(isec2, fsec2, gridID, gridtype, gridIsRotated, gridIsCurvilinear, uvRelativeToGrid);
+ break;
+ }
+ case CDI_PROJ_LCC:
+ {
+ cgribexDefGridLambert(isec2, gridID, uvRelativeToGrid);
+ break;
+ }
+ case GRID_SPECTRAL:
+ {
+ cgribexDefGridSpectal(isec2, isec4, gridID);
+ break;
+ }
+ case GRID_GME:
+ {
+ cgribexDefGridGME(isec2, gridID);
+ break;
+ }
+ case GRID_GENERIC:
+ {
+ ISEC1_Sec2Or3Flag = 0;
+ break;
+ }
+ case CDI_PROJ_HEALPIX:
+ {
+ Error("CGRIBEX library doesn't support HEALPix grids!");
+ break;
+ }
+ default:
+ {
+ static bool lwarn = true;
+ ISEC1_Sec2Or3Flag = 0;
+ if (lwarn) Warning("CGRIBEX library doesn't support %s grids, grid information will be lost!", gridNamePtr(gridtype));
+ lwarn = false;
+ break;
+ }
+ }
+}
+
+static int
+level2int(double level)
+{
+ return (int) round(level);
+}
+
+static void
+isec1DefLevel(int *isec1, int leveltype, int level1, int level2)
+{
+ ISEC1_LevelType = leveltype;
+ ISEC1_Level1 = level1;
+ ISEC1_Level2 = level2;
+}
+
+static void
+cgribexDefLevel(int *isec1, int *isec2, double *fsec2, int zaxisID, int levelID)
+{
+ int zaxistype = zaxisInqType(zaxisID);
+ int ltype = 0;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE, <ype);
+
+ bool hasBounds = (zaxisInqLbounds(zaxisID, NULL) && zaxisInqUbounds(zaxisID, NULL));
+ double level = zaxisInqLevels(zaxisID, NULL) ? zaxisInqLevel(zaxisID, levelID) : levelID + 1;
+ double dlevel1 = hasBounds ? zaxisInqLbound(zaxisID, levelID) : level;
+ double dlevel2 = hasBounds ? zaxisInqUbound(zaxisID, levelID) : 0.0;
+
+ if (zaxistype == ZAXIS_GENERIC && ltype == 0)
+ {
+ Warning("Changed zaxis type from %s to %s", zaxisNamePtr(zaxistype), zaxisNamePtr(ZAXIS_PRESSURE));
+ zaxistype = ZAXIS_PRESSURE;
+ zaxisChangeType(zaxisID, zaxistype);
+ cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, "Pa");
+ }
+
+ ISEC2_NumVCP = 0;
+
+ int grib_ltype = zaxisTypeToGrib1ltype(zaxistype);
+
+ switch (zaxistype)
+ {
+ case ZAXIS_SURFACE:
+ case ZAXIS_MEANSEA:
+ case ZAXIS_ALTITUDE:
+ case ZAXIS_DEPTH_BELOW_SEA:
+ case ZAXIS_ISENTROPIC:
+ {
+ isec1DefLevel(isec1, grib_ltype, level2int(level), 0);
+ break;
+ }
+ case ZAXIS_CLOUD_BASE:
+ case ZAXIS_CLOUD_TOP:
+ case ZAXIS_ISOTHERM_ZERO:
+ case ZAXIS_TROPOPAUSE:
+ case ZAXIS_TOA:
+ case ZAXIS_SEA_BOTTOM:
+ case ZAXIS_ATMOSPHERE:
+ {
+ isec1DefLevel(isec1, grib_ltype, 0, 0);
+ break;
+ }
+ case ZAXIS_HYBRID:
+ case ZAXIS_HYBRID_HALF:
+ {
+ grib_ltype = hasBounds ? GRIB1_LTYPE_HYBRID_LAYER : GRIB1_LTYPE_HYBRID;
+ isec1DefLevel(isec1, grib_ltype, level2int(dlevel1), level2int(dlevel2));
+
+ int vctsize = zaxisInqVctSize(zaxisID);
+ if (vctsize > 255)
+ {
+ static bool lwarning_vct = true;
+ ISEC2_NumVCP = 0;
+ if (lwarning_vct)
+ {
+ Warning("VCT size of %d is too large (maximum is 255). Set to 0!", vctsize);
+ lwarning_vct = false;
+ }
+ }
+ else
+ {
+ ISEC2_NumVCP = vctsize;
+ zaxisInqVct(zaxisID, &fsec2[10]);
+ }
+ break;
+ }
+ case ZAXIS_PRESSURE:
+ {
+ if (level < 0) Warning("Pressure level of %f Pa is below zero!", level);
+
+ if (!zaxis_units_is_Pa(zaxisID)) level *= 100.0;
+
+ double dum;
+ if (level < 32768 && (level < 100 || modf(level / 100, &dum) > 0))
+ grib_ltype = GRIB1_LTYPE_ISOBARIC_PA;
+ else
+ level = level / 100;
+
+ isec1DefLevel(isec1, grib_ltype, level2int(level), 0);
+ break;
+ }
+ case ZAXIS_HEIGHT:
+ {
+ double sf = zaxis_units_to_meter(zaxisID);
+ isec1DefLevel(isec1, grib_ltype, level2int(level * sf), 0);
+ break;
+ }
+ case ZAXIS_SIGMA:
+ {
+ grib_ltype = hasBounds ? GRIB1_LTYPE_SIGMA_LAYER : GRIB1_LTYPE_SIGMA;
+ isec1DefLevel(isec1, grib_ltype, level2int(dlevel1), level2int(dlevel2));
+ break;
+ }
+ case ZAXIS_DEPTH_BELOW_LAND:
+ {
+ grib_ltype = hasBounds ? GRIB1_LTYPE_LANDDEPTH_LAYER : GRIB1_LTYPE_LANDDEPTH;
+ double sf = zaxis_units_to_centimeter(zaxisID);
+ isec1DefLevel(isec1, grib_ltype, level2int(sf * dlevel1), level2int(sf * dlevel2));
+ break;
+ }
+ case ZAXIS_GENERIC:
+ {
+ isec1DefLevel(isec1, ltype, level2int(level), 0);
+ break;
+ }
+ default:
+ {
+ Error("Unsupported zaxis type: %s", zaxisNamePtr(zaxistype));
+ break;
+ }
+ }
+}
+
+static void
+cgribexDefaultSec0(int *isec0)
+{
+ ISEC0_GRIB_Len = 0;
+ ISEC0_GRIB_Version = 0;
+}
+
+static void
+cgribexDefaultSec1(int *isec1)
+{
+ ISEC1_CenterID = 0;
+ ISEC1_SubCenterID = 0;
+ ISEC1_LocalFLag = 0;
+}
+
+static void
+cgribexDefaultSec4(int *isec4)
+{
+ for (int i = 2; i <= 10; ++i) isec4[i] = 0;
+}
+
+static void
+cgribexDefEnsembleVar(int *isec1, int vlistID, int varID)
+{
+ // For Ensemble info
+
+ // Put1Byte(isec1[36]); // MPIM local GRIB use definition identifier (extension identifier)
+ // Put1Byte(isec1[37]); // type of ensemble forecast
+ // Put2Byte(isec1[38]); // individual ensemble member
+ // Put2Byte(isec1[39]); // number of forecasts in ensemble
+
+ if (ISEC1_CenterID == 252)
+ {
+ int perturbationNumber, numberOfForecastsInEnsemble, typeOfEnsembleForecast;
+ int r1 = cdiInqKeyInt(vlistID, varID, CDI_KEY_PERTURBATIONNUMBER, &perturbationNumber);
+ int r2 = cdiInqKeyInt(vlistID, varID, CDI_KEY_NUMBEROFFORECASTSINENSEMBLE, &numberOfForecastsInEnsemble);
+ int r3 = cdiInqKeyInt(vlistID, varID, CDI_KEY_TYPEOFENSEMBLEFORECAST, &typeOfEnsembleForecast);
+
+ if (r1 == 0 && r2 == 0 && r3 == 0)
+ {
+ ISEC1_LocalFLag = 1;
+ isec1[36] = 1;
+ isec1[37] = typeOfEnsembleForecast;
+ isec1[38] = perturbationNumber;
+ isec1[39] = numberOfForecastsInEnsemble;
+ }
+ }
+}
+
+size_t
+cgribexEncode(int memtype, int varID, int levelID, int vlistID, int gridID, int zaxisID, CdiDateTime vDateTime, int tsteptype,
+ int numavg, size_t datasize, const void *data, size_t numMissVals, void *gribbuffer, size_t gribbuffersize)
+{
+ cgribexrec_t *cgribexp = (cgribexrec_t *) cgribexNew();
+
+ size_t sec2len = 1024 + 2 * gridInqYsize(gridID); // Gaussian reduced grid
+ if (sec2len > cgribexp->sec2len)
+ {
+ cgribexp->sec2len = sec2len;
+ cgribexp->sec2 = (int *) Realloc(cgribexp->sec2, sec2len * sizeof(int));
+ }
+
+ int *isec0 = cgribexp->sec0;
+ int *isec1 = cgribexp->sec1;
+ int *isec2 = cgribexp->sec2;
+ int *isec3 = cgribexp->sec3;
+ int *isec4 = cgribexp->sec4;
+ double *fsec2 = cgribexp->fsec2;
+ double *fsec3 = cgribexp->fsec3;
+ float fsec2f[sizeof(cgribexp->fsec2) / sizeof(double)];
+ float fsec3f[sizeof(cgribexp->fsec3) / sizeof(double)];
+
+ fill_intarr(isec1, 0, 256);
+ fsec2[0] = 0;
+ fsec2[1] = 0;
+ fsec2f[0] = 0;
+ fsec2f[1] = 0;
+
+ int gribsize = (int) (gribbuffersize / sizeof(int));
+ int param = vlistInqVarParam(vlistID, varID);
+
+ cgribexDefaultSec0(isec0);
+ cgribexDefaultSec1(isec1);
+ cgribexDefaultSec4(isec4);
+
+ cgribexDefInstitut(isec1, vlistID, varID);
+ cgribexDefModel(isec1, vlistID, varID);
+
+ int datatype = vlistInqVarDatatype(vlistID, varID);
+
+ int uvRelativeToGrid = -1;
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_UVRELATIVETOGRID, &uvRelativeToGrid);
+
+ cgribexDefParam(isec1, param);
+ cgribexDefTime(isec1, vDateTime, tsteptype, numavg, vlistInqTaxis(vlistID));
+ cgribexDefGrid(isec1, isec2, fsec2, isec4, gridID, uvRelativeToGrid);
+ cgribexDefLevel(isec1, isec2, fsec2, zaxisID, levelID);
+
+ cgribexDefEnsembleVar(isec1, vlistID, varID);
+
+ cdi_check_gridsize_int_limit("GRIB1", datasize);
+
+ ISEC4_NumValues = (int) datasize;
+ ISEC4_NumBits = grbBitsPerValue(datatype);
+
+ if (numMissVals > 0)
+ {
+ FSEC3_MissVal = vlistInqVarMissval(vlistID, varID);
+ ISEC1_Sec2Or3Flag |= 64;
+ }
+
+ if (isec4[2] == 128 && isec4[3] == 64)
+ {
+ if (memtype == MEMTYPE_FLOAT)
+ isec4[16] = (int) (1000 * calculate_pfactor_float((const float *) data, ISEC2_PentaJ, isec4[17]));
+ else
+ isec4[16] = (int) (1000 * calculate_pfactor_double((const double *) data, ISEC2_PentaJ, isec4[17]));
+ if (isec4[16] < -10000) isec4[16] = -10000;
+ if (isec4[16] > 10000) isec4[16] = 10000;
+ }
+ // printf("isec4[16] %d\n", isec4[16]);
+
+ if (memtype == MEMTYPE_FLOAT)
+ {
+ int numVCP = (ISEC2_NumVCP > 0) ? ISEC2_NumVCP : 0;
+ for (int i = 0; i < numVCP; ++i) fsec2f[10 + i] = (float) fsec2[10 + i];
+ fsec3f[1] = (float) fsec3[1];
+ }
+
+ int iret = 0, iword = 0;
+ if (memtype == MEMTYPE_FLOAT)
+ gribExSP(isec0, isec1, isec2, fsec2f, isec3, fsec3f, isec4, (float *) data, (int) datasize, (int *) gribbuffer, gribsize,
+ &iword, "C", &iret);
+ else
+ gribExDP(isec0, isec1, isec2, fsec2, isec3, fsec3, isec4, (double *) data, (int) datasize, (int *) gribbuffer, gribsize, &iword,
+ "C", &iret);
+
+ cgribexDelete(cgribexp);
+
+ if (iret) Error("Problem during GRIB encode (errno = %d)!", iret);
+
+ size_t nbytes = (size_t) iword * sizeof(int);
+ return nbytes;
+}
+
+void
+cgribexChangeParameterIdentification(void *gh, int code, int ltype, int lev)
+{
+ if (!gh) return;
+
+ unsigned char *pds = ((cgribex_handle *) gh)->pds;
+ if (!pds) return;
+
+ pds[8] = (unsigned char) code;
+ pds[9] = (unsigned char) ltype;
+ pds[10] = (unsigned char) lev;
+}
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+
+#ifdef HAVE_LIBEXTRA
+
+static int
+extInqDatatype(int prec, int number)
+{
+ if (number == 2)
+ return (prec == EXSE_DOUBLE_PRECISION) ? CDI_DATATYPE_CPX64 : CDI_DATATYPE_CPX32;
+ else
+ return (prec == EXSE_DOUBLE_PRECISION) ? CDI_DATATYPE_FLT64 : CDI_DATATYPE_FLT32;
+}
+
+static void
+extDefDatatype(int datatype, int *prec, int *number)
+{
+ if (datatype != CDI_DATATYPE_FLT32 && datatype != CDI_DATATYPE_FLT64 && datatype != CDI_DATATYPE_CPX32
+ && datatype != CDI_DATATYPE_CPX64)
+ datatype = CDI_DATATYPE_FLT32;
+
+ *number = (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64) ? 2 : 1;
+
+ *prec = (datatype == CDI_DATATYPE_FLT64 || datatype == CDI_DATATYPE_CPX64) ? EXSE_DOUBLE_PRECISION : EXSE_SINGLE_PRECISION;
+}
+
+/* not used
+int extInqRecord(stream_t *streamptr, int *varID, int *levelID)
+{
+ int status;
+ int fileID;
+ int icode, ilevel;
+ int zaxisID = -1;
+ int header[4];
+ int vlistID;
+ void *extp = streamptr->record->objectp;
+
+ vlistID = streamptr->vlistID;
+ fileID = streamptr->fileID;
+
+ *varID = -1;
+ *levelID = -1;
+
+ status = extRead(fileID, extp);
+ if ( status != 0 ) return 0;
+
+ extInqHeader(extp, header);
+
+ icode = header[1];
+ ilevel = header[2];
+
+ *varID = vlistInqVarID(vlistID, icode);
+
+ if ( *varID == CDI_UNDEFID ) Error("Code %d undefined", icode);
+
+ zaxisID = vlistInqVarZaxis(vlistID, *varID);
+
+ *levelID = zaxisInqLevelID(zaxisID, (double) ilevel);
+
+ return 1;
+}
+*/
+
+static void
+ext_read_recordSP(stream_t *streamptr, float *data, size_t *numMissVals)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsID = streamptr->curTsID;
+
+ int vrecID = streamptr->tsteps[tsID].curRecID;
+ int recID = streamptr->tsteps[tsID].recIDs[vrecID];
+ int varID = streamptr->tsteps[tsID].records[recID].varID;
+ off_t recpos = streamptr->tsteps[tsID].records[recID].position;
+
+ fileSetPos(fileID, recpos, SEEK_SET);
+
+ void *extp = streamptr->record->objectp;
+ if (extRead(fileID, extp) < 0) Error("Failed to read EXTRA record");
+
+ int header[4];
+ extInqHeader(extp, header);
+ extInqDataSP(extp, data);
+
+ double missval = vlistInqVarMissval(vlistID, varID);
+ size_t size = gridInqSize(vlistInqVarGrid(vlistID, varID));
+
+ if (vlistInqVarNumber(vlistID, varID) == CDI_REAL)
+ *numMissVals = get_num_missvalsSP(size, data, missval);
+ else
+ *numMissVals = get_cplx_num_missvalsSP(size, data, missval);
+
+ streamptr->numvals += size;
+}
+
+static void
+ext_read_recordDP(stream_t *streamptr, double *data, size_t *numMissVals)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsID = streamptr->curTsID;
+
+ int vrecID = streamptr->tsteps[tsID].curRecID;
+ int recID = streamptr->tsteps[tsID].recIDs[vrecID];
+ int varID = streamptr->tsteps[tsID].records[recID].varID;
+ off_t recpos = streamptr->tsteps[tsID].records[recID].position;
+
+ fileSetPos(fileID, recpos, SEEK_SET);
+
+ void *extp = streamptr->record->objectp;
+ if (extRead(fileID, extp) < 0) Error("Failed to read EXTRA record");
+
+ int header[4];
+ extInqHeader(extp, header);
+ extInqDataDP(extp, data);
+
+ double missval = vlistInqVarMissval(vlistID, varID);
+ size_t size = gridInqSize(vlistInqVarGrid(vlistID, varID));
+
+ if (vlistInqVarNumber(vlistID, varID) == CDI_REAL)
+ *numMissVals = get_num_missvalsDP(size, data, missval);
+ else
+ *numMissVals = get_cplx_num_missvalsDP(size, data, missval);
+
+ streamptr->numvals += size;
+}
+
+void
+ext_read_record(stream_t *streamptr, int memtype, void *data, size_t *numMissVals)
+{
+ if (memtype == MEMTYPE_DOUBLE)
+ ext_read_recordDP(streamptr, (double *) data, numMissVals);
+ else
+ ext_read_recordSP(streamptr, (float *) data, numMissVals);
+}
+
+void
+extCopyRecord(stream_t *streamptr2, stream_t *streamptr1)
+{
+ streamFCopyRecord(streamptr2, streamptr1, "EXTRA");
+}
+
+void
+extDefRecord(stream_t *streamptr)
+{
+ Record *record = streamptr->record;
+
+ int pdis, pcat, pnum;
+ cdiDecodeParam(record->param, &pnum, &pcat, &pdis);
+
+ int header[4];
+ header[0] = record->vdate;
+ header[1] = pnum;
+ header[2] = record->ilevel;
+ int gridID = record->gridID;
+ cdi_check_gridsize_int_limit("EXTRA", gridInqSize(gridID));
+ header[3] = (int) gridInqSize(gridID);
+
+ extrec_t *extp = (extrec_t *) record->objectp;
+ extDefDatatype(record->prec, &extp->prec, &extp->number);
+ extDefHeader(extp, header);
+}
+
+static void
+ext_write_recordSP(stream_t *streamptr, const float *data)
+{
+ void *extp = streamptr->record->objectp;
+ extDefDataSP(extp, data);
+ extWrite(streamptr->fileID, extp);
+}
+
+static void
+ext_write_recordDP(stream_t *streamptr, const double *data)
+{
+ void *extp = streamptr->record->objectp;
+ extDefDataDP(extp, data);
+ extWrite(streamptr->fileID, extp);
+}
+
+void
+ext_write_record(stream_t *streamptr, int memtype, const void *data)
+{
+ if (memtype == MEMTYPE_DOUBLE)
+ ext_write_recordDP(streamptr, (const double *) data);
+ else
+ ext_write_recordSP(streamptr, (const float *) data);
+}
+
+static void
+extAddRecord(stream_t *streamptr, int param, int level, size_t xysize, size_t recsize, off_t position, int prec, int number)
+{
+ int vlistID = streamptr->vlistID;
+ int tsID = streamptr->curTsID;
+ int recID = recordNewEntry(streamptr, tsID);
+ record_t *record = &streamptr->tsteps[tsID].records[recID];
+
+ record->size = recsize;
+ record->position = position;
+ record->param = param;
+ record->ilevel = level;
+
+ grid_t *grid = (grid_t *) Malloc(sizeof(*grid));
+ grid_init(grid);
+ cdiGridTypeInit(grid, GRID_GENERIC, xysize);
+ grid->x.size = xysize;
+ grid->y.size = 0;
+ struct addIfNewRes gridAdded = cdiVlistAddGridIfNew(vlistID, grid, 0);
+ int gridID = gridAdded.Id;
+ if (!gridAdded.isNew)
+ {
+ grid_free(grid);
+ Free(grid);
+ }
+
+ int leveltype = ZAXIS_GENERIC;
+ int datatype = extInqDatatype(prec, number);
+
+ int varID, levelID = 0;
+ varAddRecord(recID, param, gridID, leveltype, 0, level, 0, 0, 0, datatype, &varID, &levelID, TSTEP_INSTANT, 0, -1, NULL, NULL,
+ NULL, NULL);
+
+ record->varID = (short) varID;
+ record->levelID = levelID;
+
+ streamptr->tsteps[tsID].nallrecs++;
+ streamptr->nrecs++;
+
+ if (CDI_Debug) Message("varID = %d gridID = %d levelID = %d", varID, gridID, levelID);
+}
+
+static void
+extScanTimestep1(stream_t *streamptr)
+{
+ CdiDateTime datetime0;
+ cdiDateTime_init(&datetime0);
+ int header[4];
+ off_t recpos = 0;
+ extrec_t *extp = (extrec_t *) streamptr->record->objectp;
+
+ streamptr->curTsID = 0;
+
+ int tsID = tstepsNewEntry(streamptr);
+ if (tsID != 0) Error("Internal problem! tstepsNewEntry returns %d", tsID);
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ int fileID = streamptr->fileID;
+
+ int nrecs = 0;
+ while (true)
+ {
+ recpos = fileGetPos(fileID);
+ if (extRead(fileID, extp) != 0)
+ {
+ streamptr->ntsteps = 1;
+ break;
+ }
+
+ size_t recsize = (size_t) (fileGetPos(fileID) - recpos);
+
+ extInqHeader(extp, header);
+
+ int vdate = header[0];
+ int vtime = 0;
+ int rcode = header[1];
+ int rlevel = header[2];
+ int rxysize = header[3];
+ int param = cdiEncodeParam(rcode, 255, 255);
+ CdiDateTime datetime = cdiDateTime_set(vdate, vtime);
+
+ if (nrecs == 0)
+ {
+ datetime0 = datetime;
+ taxis->vDateTime = datetime;
+ }
+ else
+ {
+ record_t *records = streamptr->tsteps[tsID].records;
+ for (int recID = 0; recID < nrecs; recID++)
+ if (param == records[recID].param && rlevel == records[recID].ilevel) goto tstepScanLoopFinished;
+
+ if (cdiDateTime_isNE(datetime, datetime0)) Warning("Inconsistent verification time for code %d level %d", rcode, rlevel);
+ }
+
+ nrecs++;
+
+ if (CDI_Debug) Message("%4d%8d%4d%8d%8d%6d", nrecs, (int) recpos, rcode, rlevel, vdate, vtime);
+
+ extAddRecord(streamptr, param, rlevel, rxysize, recsize, recpos, extp->prec, extp->number);
+ }
+
+tstepScanLoopFinished:
+ streamptr->rtsteps = 1;
+
+ cdi_generate_vars(streamptr);
+
+ int taxisID = taxisCreate(TAXIS_ABSOLUTE);
+ taxis->type = TAXIS_ABSOLUTE;
+ taxis->rDateTime = taxis->vDateTime;
+
+ int vlistID = streamptr->vlistID;
+ vlistDefTaxis(vlistID, taxisID);
+
+ vlist_check_contents(vlistID);
+
+ streamScanResizeRecords1(streamptr);
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+ streamScanTimeConstAdjust(streamptr, taxis);
+}
+
+static int
+extScanTimestep2(stream_t *streamptr)
+{
+ int header[4];
+ off_t recpos = 0;
+ void *extp = streamptr->record->objectp;
+
+ streamptr->curTsID = 1;
+
+ int fileID = streamptr->fileID;
+ int vlistID = streamptr->vlistID;
+
+ int tsID = streamptr->rtsteps;
+ if (tsID != 1) Error("Internal problem! unexpected timestep %d", tsID + 1);
+
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ int nrecords = streamScanInitRecords2(streamptr);
+
+ for (int rindex = 0; rindex <= nrecords; rindex++)
+ {
+ recpos = fileGetPos(fileID);
+ if (extRead(fileID, extp) != 0)
+ {
+ streamptr->ntsteps = 2;
+ break;
+ }
+
+ size_t recsize = (size_t) (fileGetPos(fileID) - recpos);
+
+ extInqHeader(extp, header);
+
+ int vdate = header[0];
+ int vtime = 0;
+ int rcode = header[1];
+ int rlevel = header[2];
+ int param = cdiEncodeParam(rcode, 255, 255);
+
+ if (rindex == 0)
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ taxis->vDateTime = cdiDateTime_set(vdate, vtime);
+ }
+
+ bool nextstep = false;
+ int recID;
+ for (recID = 0; recID < nrecords; recID++)
+ {
+ if (param == records[recID].param && rlevel == records[recID].ilevel)
+ {
+ if (records[recID].used)
+ {
+ nextstep = true;
+ }
+ else
+ {
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+ }
+ break;
+ }
+ }
+ if (recID == nrecords)
+ {
+ Warning("Code %d level %d not found at timestep %d", rcode, rlevel, tsID + 1);
+ return CDI_EUFSTRUCT;
+ }
+
+ if (nextstep) break;
+
+ if (CDI_Debug) Message("%4d%8d%4d%8d%8d%6d", rindex + 1, (int) recpos, rcode, rlevel, vdate, vtime);
+
+ if (param != records[recID].param || rlevel != records[recID].ilevel)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, rlevel);
+ return CDI_EUFSTRUCT;
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+ }
+
+ int nrecs = 0;
+ for (int recID = 0; recID < nrecords; recID++)
+ {
+ if (records[recID].used)
+ nrecs++;
+ else
+ vlistDefVarTimetype(vlistID, records[recID].varID, TIME_CONSTANT);
+ }
+ streamptr->tsteps[tsID].nrecs = nrecs;
+
+ streamptr->rtsteps = 2;
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+
+ return 0;
+}
+
+int
+extInqContents(stream_t *streamptr)
+{
+ streamptr->curTsID = 0;
+
+ extScanTimestep1(streamptr);
+
+ int status = (streamptr->ntsteps == -1) ? extScanTimestep2(streamptr) : 0;
+
+ fileSetPos(streamptr->fileID, 0, SEEK_SET);
+
+ return status;
+}
+
+static long
+extScanTimestep(stream_t *streamptr)
+{
+ int header[4];
+ off_t recpos = 0;
+ int nrecs = 0;
+ void *extp = streamptr->record->objectp;
+
+ int tsID = streamptr->rtsteps;
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ if (streamptr->tsteps[tsID].recordSize == 0)
+ {
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ nrecs = streamScanInitRecords(streamptr, tsID);
+
+ int fileID = streamptr->fileID;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ for (int rindex = 0; rindex <= nrecs; rindex++)
+ {
+ recpos = fileGetPos(fileID);
+ if (extRead(fileID, extp) != 0)
+ {
+ streamptr->ntsteps = streamptr->rtsteps + 1;
+ break;
+ }
+
+ size_t recsize = (size_t) (fileGetPos(fileID) - recpos);
+
+ extInqHeader(extp, header);
+
+ int vdate = header[0];
+ int vtime = 0;
+ int rcode = header[1];
+ int rlevel = header[2];
+ int param = cdiEncodeParam(rcode, 255, 255);
+
+ // if ( rindex == nrecs ) break; gcc-4.5 internal compiler error
+ if (rindex == nrecs) continue;
+ int recID = streamptr->tsteps[tsID].recIDs[rindex];
+
+ if (rindex == 0)
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ taxis->vDateTime = cdiDateTime_set(vdate, vtime);
+ }
+
+ if (param != records[recID].param || rlevel != records[recID].ilevel)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, rlevel);
+ Error("Invalid, unsupported or inconsistent record structure!");
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+
+ if (CDI_Debug) Message("%4d%8d%4d%8d%8d%6d", rindex, (int) recpos, rcode, rlevel, vdate, vtime);
+ }
+
+ streamptr->rtsteps++;
+
+ if (streamptr->ntsteps != streamptr->rtsteps)
+ {
+ tsID = tstepsNewEntry(streamptr);
+ if (tsID != streamptr->rtsteps) Error("Internal error. tsID = %d", tsID);
+
+ streamptr->tsteps[tsID - 1].next = true;
+ streamptr->tsteps[tsID].position = recpos;
+ }
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+ streamptr->tsteps[tsID].position = recpos;
+ }
+
+ if (nrecs > 0 && nrecs < streamptr->tsteps[tsID].nrecs)
+ {
+ Warning("Incomplete timestep. Stop scanning at timestep %d.", tsID);
+ streamptr->ntsteps = tsID;
+ }
+
+ return streamptr->ntsteps;
+}
+
+int
+extInqTimestep(stream_t *streamptr, int tsID)
+{
+ if (tsID == 0 && streamptr->rtsteps == 0) Error("Call to cdiInqContents missing!");
+
+ if (CDI_Debug) Message("tsID = %d rtsteps = %d", tsID, streamptr->rtsteps);
+
+ long ntsteps = CDI_UNDEFID;
+ while ((tsID + 1) > streamptr->rtsteps && ntsteps == CDI_UNDEFID) ntsteps = extScanTimestep(streamptr);
+
+ int nrecs = 0;
+ if (!(tsID >= streamptr->ntsteps && streamptr->ntsteps != CDI_UNDEFID))
+ {
+ streamptr->curTsID = tsID;
+ nrecs = streamptr->tsteps[tsID].nrecs;
+ }
+
+ return nrecs;
+}
+
+void
+extReadVarSliceDP(stream_t *streamptr, int varID, int levID, double *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d levID = %d", streamptr->self, varID, levID);
+
+ void *extp = streamptr->record->objectp;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ double missval = vlistInqVarMissval(vlistID, varID);
+ size_t gridsize = gridInqSize(vlistInqVarGrid(vlistID, varID));
+ int tsid = streamptr->curTsID;
+
+ off_t currentfilepos = fileGetPos(fileID);
+
+ int recID = streamptr->vars[varID].recordTable[0].recordID[levID];
+ off_t recpos = streamptr->tsteps[tsid].records[recID].position;
+ fileSetPos(fileID, recpos, SEEK_SET);
+ extRead(fileID, extp);
+ int header[4];
+ extInqHeader(extp, header);
+ extInqDataDP(extp, data);
+
+ fileSetPos(fileID, currentfilepos, SEEK_SET);
+
+ if (vlistInqVarNumber(vlistID, varID) == CDI_REAL)
+ *numMissVals = get_num_missvalsDP(gridsize, data, missval);
+ else
+ *numMissVals = get_cplx_num_missvalsDP(gridsize, data, missval);
+}
+
+void
+extReadVarDP(stream_t *streamptr, int varID, double *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ size_t gridsize = gridInqSize(vlistInqVarGrid(vlistID, varID));
+ size_t nlevs = (size_t) streamptr->vars[varID].recordTable[0].nlevs;
+
+ for (size_t levID = 0; levID < nlevs; levID++)
+ extReadVarSliceDP(streamptr, varID, (int) levID, &data[levID * gridsize], numMissVals);
+}
+
+void
+extWriteVarSliceDP(stream_t *streamptr, int varID, int levID, const double *data)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d levID = %d", streamptr->self, varID, levID);
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsID = streamptr->curTsID;
+ CdiDateTime vDateTime = streamptr->tsteps[tsID].taxis.vDateTime;
+
+ int pdis, pcat, pnum;
+ cdiDecodeParam(vlistInqVarParam(vlistID, varID), &pnum, &pcat, &pdis);
+
+ int header[4];
+ header[0] = (int) cdiDate_get(vDateTime.date);
+ header[1] = pnum;
+ header[2] = (int) lround(zaxisInqLevel(vlistInqVarZaxis(vlistID, varID), levID));
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ cdi_check_gridsize_int_limit("EXTRA", gridInqSize(gridID));
+ header[3] = (int) gridInqSize(gridID);
+
+ extrec_t *extp = (extrec_t *) streamptr->record->objectp;
+ extDefDatatype(vlistInqVarDatatype(vlistID, varID), &extp->prec, &extp->number);
+ extDefHeader(extp, header);
+
+ extDefDataDP(extp, data);
+ extWrite(fileID, extp);
+}
+
+void
+extWriteVarDP(stream_t *streamptr, int varID, const double *data)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ size_t gridsize = gridInqSize(vlistInqVarGrid(vlistID, varID));
+ size_t nlevs = (size_t) zaxisInqSize(vlistInqVarZaxis(vlistID, varID));
+
+ for (size_t levID = 0; levID < nlevs; levID++) extWriteVarSliceDP(streamptr, varID, (int) levID, &data[levID * gridsize]);
+}
+
+#endif /* HAVE_LIBEXTRA */
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef STREAM_GRIBAPI_H
+#define STREAM_GRIBAPI_H
+
+#ifdef HAVE_LIBGRIB_API
+
+
+int fdbScanTimesteps(stream_t *streamptr);
+
+int gribapiScanTimestep1(stream_t *streamptr);
+int gribapiScanTimestep2(stream_t *streamptr);
+int gribapiScanTimestep(stream_t *streamptr);
+
+int gribapiDecode(int memType, void *gribbuffer, size_t gribsize, void *data, size_t datasize, int unreduced, size_t *numMissVals,
+ double missval);
+
+size_t gribapiEncode(int memType, int varID, int levelID, int vlistID, int gridID, int zaxisID, CdiDateTime vDateTime,
+ int tsteptype, int numavg, size_t datasize, const void *data, size_t numMissVals, void **gribbuffer,
+ size_t *gribbuffersize, int ljpeg, void *gribContainer);
+
+int gribapiGetScanningMode(grib_handle *gh);
+void gribapiSetScanningMode(grib_handle *gh, int scanningMode);
+
+void gribapiChangeParameterIdentification(grib_handle *gh, int code, int ltype, int lev);
+
+#endif
+
+#endif /* STREAM_GRIBAPI_H */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+int cdiDebugExt = 0; // Debug level for the KNMI extensions
+#ifdef HIRLAM_EXTENSIONS
+// *** RELATED to GRIB only ***
+int cdiGribUseTimeRangeIndicator = 0; // normaly cdo looks in grib for attribute called "stepType"
+ // but NWP models such as Harmonie 37h1.2, use "timeRangeIndicator"
+ // where: 0: for instanteneous fields; 4: for accumulated fields
+#endif // HIRLAM_EXTENSIONS
+
+double
+zaxis_units_to_centimeter(int zaxisID)
+{
+ char units[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, units, &length);
+
+ double sf = 100.0; // default: meter
+ // clang-format off
+ if (units[1] == 'm' && !units[2])
+ {
+ if (units[0] == 'm') sf = 0.1;
+ else if (units[0] == 'c') sf = 1.0;
+ else if (units[0] == 'd') sf = 10.0;
+ }
+ // clang-format on
+
+ return sf;
+}
+
+double
+zaxis_units_to_meter(int zaxisID)
+{
+ char units[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, units, &length);
+
+ double sf = 1.0; // default: meter
+ // clang-format off
+ if (units[1] == 'm' && !units[2])
+ {
+ if (units[0] == 'm') sf /= 1000.0;
+ else if (units[0] == 'c') sf /= 100.0;
+ else if (units[0] == 'd') sf /= 10.0;
+ else if (units[0] == 'k') sf *= 1000.0;
+ }
+ // clang-format on
+
+ return sf;
+}
+
+bool
+zaxis_units_is_Pa(int zaxisID)
+{
+ char units[CDI_MAX_NAME] = { 0 };
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, units, &length);
+
+ return (units[0] == 'P' && units[1] == 'a');
+}
+
+void
+ensureBufferSize(size_t requiredSize, size_t *curSize, void **buffer)
+{
+ if (*curSize < requiredSize)
+ {
+ *curSize = requiredSize;
+ *buffer = Realloc(*buffer, *curSize);
+ }
+}
+
+int
+grbDecompress(size_t recsize, size_t *buffersize, void **gribbuffer)
+{
+ int comptype = CDI_COMPRESS_NONE;
+
+ size_t unzipsize;
+ if (gribGetZip(recsize, (unsigned char *) *gribbuffer, &unzipsize) > 0)
+ {
+ comptype = CDI_COMPRESS_SZIP;
+ unzipsize += 100; // need 0 to 1 bytes for rounding of bds
+ ensureBufferSize(unzipsize, buffersize, gribbuffer);
+ }
+
+ return comptype;
+}
+
+// Regarding operation to change parameter identification:
+// change if cdiGribChangeParameterID.active
+struct cdiGribParamChange cdiGribChangeParameterID;
+
+// Used only for CDO module Selmulti
+void
+streamGrbChangeParameterIdentification(int code, int ltype, int lev)
+{
+ // NOTE this is a "PROXY" function for gribapiChangeParameterIdentification();
+ // This just sets the globals. There are probably better solutions to this.
+ // The parameter change is done by function gribapiChangeParameterIdentification() in stream_gribapi.c
+ // Setting this control variable to true will cause calling fnc. gribapiChangeParameterIdentification later.
+ // After grib attributes have been changed this variable goes to false.
+ cdiGribChangeParameterID.active = true;
+ cdiGribChangeParameterID.code = code;
+ cdiGribChangeParameterID.ltype = ltype;
+ cdiGribChangeParameterID.lev = lev;
+}
+
+struct cdiGribScanModeChange cdiGribDataScanningMode;
+
+void
+streamGrbDefDataScanningMode(int scanmode)
+{
+ cdiGribDataScanningMode.active = true;
+ cdiGribDataScanningMode.value = scanmode;
+}
+
+enum
+{
+ MapKey = 0,
+ MapValue = 1
+};
+
+static const int grib1ltypeMap[][2] = {
+ // clang-format off
+ { GRIB1_LTYPE_SURFACE, ZAXIS_SURFACE },
+ { GRIB1_LTYPE_CLOUD_BASE, ZAXIS_CLOUD_BASE },
+ { GRIB1_LTYPE_CLOUD_TOP, ZAXIS_CLOUD_TOP },
+ { GRIB1_LTYPE_ISOTHERM0, ZAXIS_ISOTHERM_ZERO },
+ { GRIB1_LTYPE_TROPOPAUSE, ZAXIS_TROPOPAUSE },
+ { GRIB1_LTYPE_TOA, ZAXIS_TOA },
+ { GRIB1_LTYPE_SEA_BOTTOM, ZAXIS_SEA_BOTTOM },
+ { GRIB1_LTYPE_ATMOSPHERE, ZAXIS_ATMOSPHERE },
+ { GRIB1_LTYPE_ISOBARIC, ZAXIS_PRESSURE },
+ { GRIB1_LTYPE_99, ZAXIS_PRESSURE },
+ { GRIB1_LTYPE_ISOBARIC_PA, ZAXIS_PRESSURE },
+ { GRIB1_LTYPE_MEANSEA, ZAXIS_MEANSEA },
+ { GRIB1_LTYPE_ALTITUDE, ZAXIS_ALTITUDE },
+ { GRIB1_LTYPE_HEIGHT, ZAXIS_HEIGHT },
+ { GRIB1_LTYPE_SIGMA, ZAXIS_SIGMA },
+ { GRIB1_LTYPE_SIGMA_LAYER, ZAXIS_SIGMA },
+ { GRIB1_LTYPE_HYBRID, ZAXIS_HYBRID },
+ { GRIB1_LTYPE_HYBRID_LAYER, ZAXIS_HYBRID },
+ { GRIB1_LTYPE_LANDDEPTH, ZAXIS_DEPTH_BELOW_LAND },
+ { GRIB1_LTYPE_LANDDEPTH_LAYER, ZAXIS_DEPTH_BELOW_LAND },
+ { GRIB1_LTYPE_ISENTROPIC, ZAXIS_ISENTROPIC },
+ { GRIB1_LTYPE_SEADEPTH, ZAXIS_DEPTH_BELOW_SEA },
+ { GRIB1_LTYPE_LAKE_BOTTOM, ZAXIS_LAKE_BOTTOM },
+ { GRIB1_LTYPE_SEDIMENT_BOTTOM, ZAXIS_SEDIMENT_BOTTOM },
+ { GRIB1_LTYPE_SEDIMENT_BOTTOM_TA, ZAXIS_SEDIMENT_BOTTOM_TA },
+ { GRIB1_LTYPE_SEDIMENT_BOTTOM_TW, ZAXIS_SEDIMENT_BOTTOM_TW },
+ { GRIB1_LTYPE_MIX_LAYER, ZAXIS_MIX_LAYER },
+ // clang-format on
+};
+
+static const size_t grib1ltypeMapSize = sizeof(grib1ltypeMap) / (2 * sizeof(int));
+
+static const int grib2ltypeMap[][2] = {
+ // clang-format off
+ { GRIB2_LTYPE_SURFACE, ZAXIS_SURFACE },
+ { GRIB2_LTYPE_CLOUD_BASE, ZAXIS_CLOUD_BASE },
+ { GRIB2_LTYPE_CLOUD_TOP, ZAXIS_CLOUD_TOP },
+ { GRIB2_LTYPE_ISOTHERM0, ZAXIS_ISOTHERM_ZERO },
+ { GRIB2_LTYPE_TROPOPAUSE, ZAXIS_TROPOPAUSE },
+ { GRIB2_LTYPE_TOA, ZAXIS_TOA },
+ { GRIB2_LTYPE_SEA_BOTTOM, ZAXIS_SEA_BOTTOM },
+ { GRIB2_LTYPE_ATMOSPHERE, ZAXIS_ATMOSPHERE },
+ { GRIB2_LTYPE_ISOBARIC, ZAXIS_PRESSURE },
+ { GRIB2_LTYPE_MEANSEA, ZAXIS_MEANSEA },
+ { GRIB2_LTYPE_ALTITUDE, ZAXIS_ALTITUDE },
+ { GRIB2_LTYPE_HEIGHT, ZAXIS_HEIGHT },
+ { GRIB2_LTYPE_SIGMA, ZAXIS_SIGMA },
+ { GRIB2_LTYPE_HYBRID, ZAXIS_HYBRID },
+ { GRIB2_LTYPE_HYBRID, ZAXIS_HYBRID_HALF },
+ { GRIB2_LTYPE_LANDDEPTH, ZAXIS_DEPTH_BELOW_LAND },
+ { GRIB2_LTYPE_ISENTROPIC, ZAXIS_ISENTROPIC },
+ { GRIB2_LTYPE_SEADEPTH, ZAXIS_DEPTH_BELOW_SEA },
+ { GRIB2_LTYPE_LAKE_BOTTOM, ZAXIS_LAKE_BOTTOM },
+ { GRIB2_LTYPE_SEDIMENT_BOTTOM, ZAXIS_SEDIMENT_BOTTOM },
+ { GRIB2_LTYPE_SEDIMENT_BOTTOM_TA, ZAXIS_SEDIMENT_BOTTOM_TA },
+ { GRIB2_LTYPE_SEDIMENT_BOTTOM_TW, ZAXIS_SEDIMENT_BOTTOM_TW },
+ { GRIB2_LTYPE_MIX_LAYER, ZAXIS_MIX_LAYER },
+ { GRIB2_LTYPE_SNOW, ZAXIS_SNOW },
+ { GRIB2_LTYPE_REFERENCE, ZAXIS_REFERENCE },
+ // clang-format on
+};
+
+static const size_t grib2ltypeMapSize = sizeof(grib2ltypeMap) / (2 * sizeof(int));
+
+static int
+getInt2IntMap(int searchKey, bool keyValue, size_t mapSize, const int gribltypeMap[][2], int defaultValue)
+{
+ for (size_t i = 0; i < mapSize; ++i)
+ if (gribltypeMap[i][keyValue] == searchKey) return gribltypeMap[i][!keyValue];
+
+ return defaultValue;
+}
+
+int
+grib1ltypeToZaxisType(int grib_ltype)
+{
+ return getInt2IntMap(grib_ltype, MapKey, grib1ltypeMapSize, grib1ltypeMap, ZAXIS_GENERIC);
+}
+
+int
+zaxisTypeToGrib1ltype(int zaxistype)
+{
+ return getInt2IntMap(zaxistype, MapValue, grib1ltypeMapSize, grib1ltypeMap, -1);
+}
+
+int
+grib2ltypeToZaxisType(int grib_ltype)
+{
+ return getInt2IntMap(grib_ltype, MapKey, grib2ltypeMapSize, grib2ltypeMap, ZAXIS_GENERIC);
+}
+
+int
+zaxisTypeToGrib2ltype(int zaxistype)
+{
+ return getInt2IntMap(zaxistype, MapValue, grib2ltypeMapSize, grib2ltypeMap, -1);
+}
+
+int
+grbBitsPerValue(int datatype)
+{
+ int bitsPerValue = 16;
+
+ if (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64) Error("CDI/GRIB library does not support complex numbers!");
+
+ if (datatype != CDI_UNDEFID)
+ {
+ if (datatype > 0 && datatype <= 32)
+ bitsPerValue = datatype;
+ else if (datatype == CDI_DATATYPE_FLT64)
+ bitsPerValue = 24;
+ else
+ bitsPerValue = 16;
+ }
+
+ return bitsPerValue;
+}
+
+/*
+int grbInqRecord(stream_t * streamptr, int *varID, int *levelID)
+{
+ int status;
+
+ status = cgribexInqRecord(streamptr, varID, levelID);
+
+ return (status);
+}
+*/
+
+void
+grbDefRecord(stream_t *streamptr)
+{
+ UNUSED(streamptr);
+}
+
+static int
+grbScanTimestep1(stream_t *streamptr)
+{
+ int status = CDI_EUFTYPE;
+
+#ifdef HAVE_LIBCGRIBEX
+ int filetype = streamptr->filetype;
+
+ if (filetype == CDI_FILETYPE_GRB && !CDI_gribapi_grib1)
+ status = cgribexScanTimestep1(streamptr);
+ else
+#endif
+#ifdef HAVE_LIBGRIB_API
+ status = gribapiScanTimestep1(streamptr);
+#else
+ Error("GRIB_API support unavailable!");
+#endif
+
+ return status;
+}
+
+static int
+grbScanTimestep2(stream_t *streamptr)
+{
+ int status = CDI_EUFTYPE;
+
+#ifdef HAVE_LIBCGRIBEX
+ int filetype = streamptr->filetype;
+
+ if (filetype == CDI_FILETYPE_GRB && !CDI_gribapi_grib1)
+ status = cgribexScanTimestep2(streamptr);
+ else
+#endif
+#ifdef HAVE_LIBGRIB_API
+ status = gribapiScanTimestep2(streamptr);
+#else
+ Error("GRIB_API support unavailable!");
+#endif
+
+ return status;
+}
+
+static int
+grbScanTimestep(stream_t *streamptr)
+{
+ int status = CDI_EUFTYPE;
+
+#ifdef HAVE_LIBCGRIBEX
+ int filetype = streamptr->filetype;
+
+ if (filetype == CDI_FILETYPE_GRB && !CDI_gribapi_grib1)
+ status = cgribexScanTimestep(streamptr);
+ else
+#endif
+#ifdef HAVE_LIBGRIB_API
+ status = gribapiScanTimestep(streamptr);
+#else
+ Error("GRIB_API support unavailable!");
+#endif
+
+ return status;
+}
+
+#ifdef HAVE_LIBGRIB
+int
+grbInqContents(stream_t *streamptr)
+{
+ streamptr->curTsID = 0;
+
+ int status = grbScanTimestep1(streamptr);
+ if (status == 0 && streamptr->ntsteps == -1) status = grbScanTimestep2(streamptr);
+
+ int fileID = streamptr->fileID;
+ fileSetPos(fileID, 0, SEEK_SET);
+
+ return status;
+}
+
+int
+fdbInqContents(stream_t *streamptr)
+{
+ streamptr->curTsID = 0;
+#ifdef HAVE_LIBGRIB_API
+ return fdbScanTimesteps(streamptr);
+#else
+ return -1;
+#endif
+}
+#endif
+
+int
+fdbInqTimestep(stream_t *streamptr, int tsID)
+{
+ if (tsID == 0 && streamptr->rtsteps == 0) Error("Call to cdiInqContents missing!");
+
+ if (CDI_Debug) Message("tsid = %d rtsteps = %d", tsID, streamptr->rtsteps);
+
+ int nrecs;
+ if (tsID >= streamptr->ntsteps && streamptr->ntsteps != CDI_UNDEFID)
+ {
+ nrecs = 0;
+ }
+ else
+ {
+ streamptr->curTsID = tsID;
+ nrecs = streamptr->tsteps[tsID].nrecs;
+ }
+
+ return nrecs;
+}
+
+int
+grbInqTimestep(stream_t *streamptr, int tsID)
+{
+ if (tsID == 0 && streamptr->rtsteps == 0) Error("Call to cdiInqContents missing!");
+
+ if (CDI_Debug) Message("tsid = %d rtsteps = %d", tsID, streamptr->rtsteps);
+
+ int ntsteps = CDI_UNDEFID;
+ while ((tsID + 1) > streamptr->rtsteps && ntsteps == CDI_UNDEFID)
+ {
+ ntsteps = grbScanTimestep(streamptr);
+ if (ntsteps == CDI_EUFSTRUCT)
+ {
+ streamptr->ntsteps = streamptr->rtsteps;
+ break;
+ }
+ }
+
+ int nrecs;
+ if (tsID >= streamptr->ntsteps && streamptr->ntsteps != CDI_UNDEFID)
+ {
+ nrecs = 0;
+ }
+ else
+ {
+ streamptr->curTsID = tsID;
+ nrecs = streamptr->tsteps[tsID].nrecs;
+ }
+
+ return nrecs;
+}
+
+// used in CDO!!!
+void
+streamInqGRIBinfo(int streamID, int *intnum, float *fltnum, off_t *bignum)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ int filetype = streamptr->filetype;
+
+ if (filetype == CDI_FILETYPE_GRB)
+ {
+ int tsID = streamptr->curTsID;
+ int vrecID = streamptr->tsteps[tsID].curRecID;
+ int recID = streamptr->tsteps[tsID].recIDs[vrecID];
+ off_t recpos = streamptr->tsteps[tsID].records[recID].position;
+ int zip = streamptr->tsteps[tsID].records[recID].zip;
+
+ void *gribbuffer = streamptr->record->buffer;
+ size_t gribbuffersize = streamptr->record->buffersize;
+
+ if (zip > 0)
+ Error("Compressed GRIB records unsupported!");
+ else
+ grib_info_for_grads(recpos, (long) gribbuffersize, (unsigned char *) gribbuffer, intnum, fltnum, bignum);
+ }
+}
+
+int
+grbGetGridtype(int *gridID, size_t gridsize, bool *gridIsRotated, bool *gridIsCurvilinear)
+{
+ int gridtype = gridInqType(*gridID);
+
+ if (gridtype == GRID_GENERIC)
+ {
+ int xsize = (int) gridInqXsize(*gridID);
+ int ysize = (int) gridInqYsize(*gridID);
+
+ if ((ysize == 32 || ysize == 48 || ysize == 64 || ysize == 96 || ysize == 160 || ysize == 192 || ysize == 240 || ysize == 320
+ || ysize == 384 || ysize == 480 || ysize == 768)
+ && (xsize == 2 * ysize || xsize == 1))
+ {
+ gridtype = GRID_GAUSSIAN;
+ }
+ else if (gridsize == 1)
+ {
+ gridtype = GRID_LONLAT;
+ }
+ else if (gridInqXvals(*gridID, NULL) && gridInqYvals(*gridID, NULL))
+ {
+ gridtype = GRID_LONLAT;
+ }
+ }
+ else if (gridtype == GRID_CURVILINEAR)
+ {
+ int projID = gridInqProj(*gridID);
+ if (projID != CDI_UNDEFID && gridInqType(projID) == GRID_PROJECTION)
+ {
+ *gridID = projID;
+ gridtype = GRID_PROJECTION;
+ }
+ else
+ {
+ static bool lwarning = true;
+ if (lwarning && gridsize > 1)
+ {
+ lwarning = false;
+ Warning("Curvilinear grid is unsupported in GRIB format! Created wrong Grid Description Section!");
+ }
+ *gridIsCurvilinear = true;
+ gridtype = GRID_LONLAT;
+ }
+ }
+
+ if (gridtype == GRID_PROJECTION)
+ {
+ int projtype = gridInqProjType(*gridID);
+ if (projtype == CDI_PROJ_RLL)
+ {
+ gridtype = GRID_LONLAT;
+ *gridIsRotated = true;
+ }
+ else if (projtype == CDI_PROJ_LCC)
+ {
+ gridtype = CDI_PROJ_LCC;
+ }
+ else if (projtype == CDI_PROJ_STERE)
+ {
+ gridtype = CDI_PROJ_STERE;
+ }
+ else if (projtype == CDI_PROJ_HEALPIX)
+ {
+ gridtype = CDI_PROJ_HEALPIX;
+ }
+ }
+
+ return gridtype;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef _SUBTYPE_H
+#define _SUBTYPE_H
+
+enum
+{
+ /* subtype attributes wrt. TILES */
+ SUBTYPE_ATT_TILEINDEX = 0,
+ SUBTYPE_ATT_TOTALNO_OF_TILEATTR_PAIRS = 1,
+ SUBTYPE_ATT_TILE_CLASSIFICATION = 2,
+ SUBTYPE_ATT_NUMBER_OF_TILES = 3,
+ SUBTYPE_ATT_NUMBER_OF_ATTR = 4,
+ SUBTYPE_ATT_TILEATTRIBUTE = 5,
+ /* No. of different constants in the enumeration
+ "subtype_attributes" */
+ nSubtypeAttributes
+};
+
+/* Literal constants corresponding to the different constants of the
+ enumeration "subtype_attributes". */
+extern const char *const cdiSubtypeAttributeName[];
+
+/* Data type specifying an attribute of a subtype (for example an
+ attribute of a set of TILES) or an attribute of a subtype entry
+ (for example an attribute of a single TILE). This data type is part
+ of a linked list. */
+struct subtype_attr_t
+{
+ int key, val; /* key/value pair */
+ struct subtype_attr_t *next; /* next element in linked list */
+};
+
+/* Data type specifying a single entry of a subtype, for example a
+ single TILE in a set of TILES. */
+struct subtype_entry_t
+{
+ int self; /* list entry index (0,...,nentries-1) */
+ struct subtype_entry_t *next; /* next node in linked list */
+
+ /* linked list with attributes for this subtype entry, ordered by its key values*/
+ struct subtype_attr_t *atts;
+};
+
+/* Data type specifying a variable subtype, for example a list of
+ TILES. This can be interpreted as an additional axis like the
+ vertical axis. */
+typedef struct
+{
+ int self; /* resource handler ID */
+ int subtype; /* subtype kind: TILES, ... */
+ int nentries; /* counter: total no. of entries in list */
+
+ /* currently active subtype, e.g. GRIB2 tile index (for example for
+ stream/vlist accesses): */
+ int active_subtype_index;
+ struct subtype_entry_t globals; /* global attributes */
+
+ /* list of subtype entries, e.g. the list of tiles, ordered by entry->self. */
+ struct subtype_entry_t *entries;
+} subtype_t;
+
+/* prototypes: allocation and destruction */
+void subtypeAllocate(subtype_t **subtype_ptr2, int subtype);
+int subtypePush(subtype_t *subtype_ptr);
+void subtypeDestroyPtr(void *ptr);
+void subtypeDuplicate(subtype_t *subtype_ptr, subtype_t **dst);
+struct subtype_entry_t *subtypeEntryInsert(subtype_t *head);
+
+/* prototypes: accessing global attributes */
+void subtypePrint(int subtypeID);
+void subtypePrintPtr(subtype_t *subtype_ptr);
+void subtypeDefGlobalDataP(subtype_t *subtype_ptr, int key, int val);
+void subtypeDefGlobalData(int subtypeID, int key, int val);
+int subtypeGetGlobalData(int subtypeID, int key);
+int subtypeGetGlobalDataP(subtype_t *subtype_ptr, int key);
+int subtypeComparePtr(int s1_ID, subtype_t *s2);
+
+/* prototypes: accessing subtype entries */
+void subtypeDefEntryDataP(struct subtype_entry_t *subtype_entry_ptr, int key, int val);
+
+/* prototypes: tile implementations */
+void tilesetInsertP(subtype_t *s1, subtype_t *s2);
+
+/* Construct a new subtype for a tile set. If a corresponding subtype
+ * already exists, then we return this subtype ID instead. */
+int vlistDefTileSubtype(int vlistID, subtype_t *tiles);
+
+/* Insert a trivial one-tile-subtype */
+int vlistInsertTrivialTileSubtype(int vlistID);
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBGRIB_API
+
+
+
+#include <grib_api.h>
+
+extern int CDI_Inventory_Mode;
+
+static const var_tile_t dummy_tiles = { 0, -1, -1, -1, -1, -1 };
+
+typedef struct
+{
+ int param;
+ int level1;
+ int level2;
+ int ltype;
+ int tsteptype;
+ size_t gridsize;
+ char name[32];
+ VarScanKeys scanKeys;
+ var_tile_t tiles;
+} compvar2_t;
+
+static int
+gribapi_get_zaxis_type(long editionNumber, int grib_ltype)
+{
+ return (editionNumber <= 1) ? grib1ltypeToZaxisType(grib_ltype) : grib2ltypeToZaxisType(grib_ltype);
+}
+
+static int
+get_timeunits(long unitsOfTime)
+{
+ switch (unitsOfTime)
+ {
+ case 13: return TUNIT_SECOND;
+ case 0: return TUNIT_MINUTE;
+ case 1: return TUNIT_HOUR;
+ case 10: return TUNIT_3HOURS;
+ case 11: return TUNIT_6HOURS;
+ case 12: return TUNIT_12HOURS;
+ case 2: return TUNIT_DAY;
+ }
+
+ return TUNIT_HOUR;
+}
+
+static double
+timeunits_factor(int timeUnits1, int timeUnits2)
+{
+ if (timeUnits2 == TUNIT_HOUR)
+ {
+ switch (timeUnits1)
+ {
+ case TUNIT_SECOND: return 3600;
+ case TUNIT_MINUTE: return 60;
+ case TUNIT_HOUR: return 1;
+ case TUNIT_3HOURS: return 1.0 / 3;
+ case TUNIT_6HOURS: return 1.0 / 6;
+ case TUNIT_12HOURS: return 1.0 / 12;
+ case TUNIT_DAY: return 1.0 / 24;
+ }
+ }
+
+ return 1;
+}
+
+static int
+gribapi_get_timeunits(grib_handle *gh)
+{
+ long unitsOfTime = -1;
+ grib_get_long(gh, "indicatorOfUnitOfTimeRange", &unitsOfTime);
+
+ GRIB_CHECK(my_grib_set_long(gh, "stepUnits", unitsOfTime), 0);
+
+ return get_timeunits(unitsOfTime);
+}
+
+static void
+gribapiGetSteps(grib_handle *gh, int timeunits, int *startStep, int *endStep)
+{
+ long unitsOfTime;
+ int status = grib_get_long(gh, "stepUnits", &unitsOfTime);
+ int timeunits2 = (status == 0) ? get_timeunits(unitsOfTime) : timeunits;
+ // timeunits2 = gribapi_get_timeunits(gh);
+
+ long lpar;
+ status = grib_get_long(gh, "forecastTime", &lpar);
+ if (status == 0)
+ *startStep = (int) lpar;
+ else
+ {
+ status = grib_get_long(gh, "startStep", &lpar);
+ if (status == 0) *startStep = (int) (((double) lpar * timeunits_factor(timeunits, timeunits2)) + 0.5);
+ }
+
+ *endStep = *startStep;
+ status = grib_get_long(gh, "endStep", &lpar);
+ if (status == 0) *endStep = (int) (((double) lpar * timeunits_factor(timeunits, timeunits2)) + 0.5);
+ // printf("%d %d %d %d %d %g\n", *startStep, *endStep, lpar, timeunits, timeunits2, timeunits_factor(timeunits, timeunits2));
+}
+
+static CdiDateTime
+gribapiGetDataDateTime(grib_handle *gh)
+{
+ long date;
+ GRIB_CHECK(grib_get_long(gh, "dataDate", &date), 0);
+
+ long hour, minute, second;
+ GRIB_CHECK(grib_get_long(gh, "hour", &hour), 0);
+ GRIB_CHECK(grib_get_long(gh, "minute", &minute), 0);
+ GRIB_CHECK(grib_get_long(gh, "second", &second), 0);
+
+ CdiDateTime dt;
+ dt.date = cdiDate_set(date);
+ dt.time.hour = hour;
+ dt.time.minute = minute;
+ dt.time.second = second;
+ dt.time.ms = 0;
+
+ return dt;
+}
+
+static void
+gribapiSetDataDateTime(grib_handle *gh, CdiDateTime dataDateTime)
+{
+ long dataDate = (long) cdiDate_get(dataDateTime.date);
+ GRIB_CHECK(my_grib_set_long(gh, "dataDate", (long) dataDate), 0);
+
+ int hour, minute, second, ms;
+ cdiTime_decode(dataDateTime.time, &hour, &minute, &second, &ms);
+ GRIB_CHECK(my_grib_set_long(gh, "hour", hour), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "minute", minute), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "second", second), 0);
+}
+
+static int
+gribapi_get_timeunits_factor(int timeUnits)
+{
+ static bool lprint = true;
+ switch (timeUnits)
+ {
+ case TUNIT_SECOND: return 1;
+ case TUNIT_MINUTE: return 60;
+ case TUNIT_HOUR: return 3600;
+ case TUNIT_3HOURS: return 10800;
+ case TUNIT_6HOURS: return 21600;
+ case TUNIT_12HOURS: return 43200;
+ case TUNIT_DAY: return 86400;
+ default:
+ if (lprint)
+ {
+ Warning("Time unit %d unsupported", timeUnits);
+ lprint = false;
+ }
+ }
+
+ return 0;
+}
+
+static CdiDateTime
+gribapiGetValidityDateTime(grib_handle *gh, CdiDateTime *sDateTime)
+{
+ CdiDateTime vDateTime;
+ cdiDateTime_init(sDateTime);
+
+ long sigofrtime = 3;
+ if (gribEditionNumber(gh) > 1)
+ GRIB_CHECK(grib_get_long(gh, "significanceOfReferenceTime", &sigofrtime), 0);
+ else
+ GRIB_CHECK(grib_get_long(gh, "timeRangeIndicator", &sigofrtime), 0);
+
+ if (sigofrtime
+ == 3) // XXX: This looks like a bug to me, because timeRangeIndicator == 3 does not seem to have the same meaning as
+ // significanceOfReferenceTime == 3. I would recommend replacing this condition with `if(!gribapiTimeIsFC())`.
+ {
+ vDateTime = gribapiGetDataDateTime(gh);
+ }
+ else
+ {
+ CdiDateTime rDateTime = gribapiGetDataDateTime(gh);
+
+ int timeUnits = gribapi_get_timeunits(gh);
+ int startStep = 0, endStep = 0;
+ gribapiGetSteps(gh, timeUnits, &startStep, &endStep);
+
+ if (rDateTime.date.day > 0)
+ {
+ extern int CGRIBEX_grib_calendar;
+ JulianDate julianDate = julianDate_encode(CGRIBEX_grib_calendar, rDateTime);
+
+ int64_t timeUnitFactor = gribapi_get_timeunits_factor(timeUnits);
+
+ // if (startStep > 0)
+ {
+ JulianDate julianDate2 = julianDate_add_seconds(julianDate, timeUnitFactor * startStep);
+ *sDateTime = julianDate_decode(CGRIBEX_grib_calendar, julianDate2);
+ }
+
+ rDateTime = julianDate_decode(CGRIBEX_grib_calendar, julianDate_add_seconds(julianDate, timeUnitFactor * endStep));
+ }
+
+ vDateTime = rDateTime;
+ }
+
+ return vDateTime;
+}
+
+static void
+grib1_get_level(grib_handle *gh, int *leveltype, int *lbounds, int *level1, int *level2)
+{
+ *leveltype = 0;
+ *lbounds = 0;
+ *level1 = 0;
+ *level2 = 0;
+
+ long lpar;
+ if (!grib_get_long(gh, "indicatorOfTypeOfLevel", &lpar)) // 1 byte
+ {
+ *leveltype = (int) lpar;
+
+ switch (*leveltype)
+ {
+ case GRIB1_LTYPE_SIGMA_LAYER:
+ case GRIB1_LTYPE_HYBRID_LAYER:
+ case GRIB1_LTYPE_LANDDEPTH_LAYER:
+ {
+ *lbounds = 1;
+ break;
+ }
+ }
+
+ if (*lbounds)
+ {
+ GRIB_CHECK(grib_get_long(gh, "topLevel", &lpar), 0); // 1 byte
+ if (lpar == GRIB_MISSING_LONG) lpar = 0;
+ *level1 = (int) lpar;
+ GRIB_CHECK(grib_get_long(gh, "bottomLevel", &lpar), 0); // 1 byte
+ if (lpar == GRIB_MISSING_LONG) lpar = 0;
+ *level2 = (int) lpar;
+ }
+ else
+ {
+ double dlevel;
+ GRIB_CHECK(grib_get_double(gh, "level", &dlevel), 0); // 2 byte
+ if (*leveltype == GRIB1_LTYPE_ISOBARIC) dlevel *= 100;
+ if (dlevel < -2.e9 || dlevel > 2.e9) dlevel = 0;
+ if (*leveltype == GRIB1_LTYPE_99 || *leveltype == GRIB1_LTYPE_ISOBARIC_PA) *leveltype = GRIB1_LTYPE_ISOBARIC;
+
+ *level1 = (int) dlevel;
+ *level2 = 0;
+ }
+ }
+}
+
+static double
+grib2ScaleFactor(long factor)
+{
+ switch (factor)
+ {
+ case GRIB_MISSING_LONG: return 1;
+ case -9: return 1000000000;
+ case -8: return 100000000;
+ case -7: return 10000000;
+ case -6: return 1000000;
+ case -5: return 100000;
+ case -4: return 10000;
+ case -3: return 1000;
+ case -2: return 100;
+ case -1: return 10;
+ case 0: return 1;
+ case 1: return 0.1;
+ case 2: return 0.01;
+ case 3: return 0.001;
+ case 4: return 0.0001;
+ case 5: return 0.00001;
+ case 6: return 0.000001;
+ case 7: return 0.0000001;
+ case 8: return 0.00000001;
+ case 9: return 0.000000001;
+ default: return 0;
+ }
+}
+
+static int
+calc_level(int level_sf, long factor, long level)
+{
+ double result = 0;
+ if (level != GRIB_MISSING_LONG) result = (double) level * grib2ScaleFactor(factor);
+ if (level_sf) result *= level_sf;
+ return (int) result;
+}
+
+static void
+grib2_get_level(grib_handle *gh, int *leveltype1, int *leveltype2, int *lbounds, int *level1, int *level2, int *level_sf,
+ int *level_unit)
+{
+ *leveltype1 = 0;
+ *leveltype2 = -1;
+ *lbounds = 0;
+ *level1 = 0;
+ *level2 = 0;
+ *level_sf = 0;
+ *level_unit = 0;
+
+ long lpar;
+ int status = grib_get_long(gh, "typeOfFirstFixedSurface", &lpar); // 1 byte
+ if (status == 0)
+ {
+ *leveltype1 = (int) lpar;
+
+ status = grib_get_long(gh, "typeOfSecondFixedSurface", &lpar); // 1 byte
+ /* FIXME: assert(lpar >= INT_MIN && lpar <= INT_MAX) */
+ if (status == 0) *leveltype2 = (int) lpar;
+
+ if (*leveltype1 != 255 && *leveltype2 != 255 && *leveltype2 > 0) *lbounds = 1;
+ switch (*leveltype1)
+ {
+ case GRIB2_LTYPE_REFERENCE:
+ if (*leveltype2 == 1) *lbounds = 0;
+ break;
+ case GRIB2_LTYPE_LANDDEPTH:
+ *level_sf = 1000;
+ *level_unit = CDI_UNIT_M;
+ break;
+ case GRIB2_LTYPE_ISOBARIC:
+ *level_sf = 1000;
+ *level_unit = CDI_UNIT_PA;
+ break;
+ case GRIB2_LTYPE_SIGMA:
+ *level_sf = 1000;
+ *level_unit = 0;
+ break;
+ }
+
+ long factor, llevel;
+ GRIB_CHECK(grib_get_long(gh, "scaleFactorOfFirstFixedSurface", &factor), 0); // 1 byte
+ GRIB_CHECK(grib_get_long(gh, "scaledValueOfFirstFixedSurface", &llevel), 0); // 4 byte
+ *level1 = calc_level(*level_sf, factor, llevel);
+
+ if (*lbounds)
+ {
+ GRIB_CHECK(grib_get_long(gh, "scaleFactorOfSecondFixedSurface", &factor), 0); // 1 byte
+ GRIB_CHECK(grib_get_long(gh, "scaledValueOfSecondFixedSurface", &llevel), 0); // 4 byte
+ *level2 = calc_level(*level_sf, factor, llevel);
+ }
+ }
+}
+
+static void
+grib_get_level(grib_handle *gh, int *leveltype1, int *leveltype2, int *lbounds, int *level1, int *level2, int *level_sf,
+ int *level_unit, var_tile_t *tiles)
+{
+ if (gribEditionNumber(gh) <= 1)
+ {
+ grib1_get_level(gh, leveltype1, lbounds, level1, level2);
+ *leveltype2 = -1;
+ *level_sf = 0;
+ *level_unit = 0;
+ }
+ else
+ {
+ grib2_get_level(gh, leveltype1, leveltype2, lbounds, level1, level2, level_sf, level_unit);
+
+ // read in tiles attributes (if there are any)
+ tiles->tileindex = (int) gribGetLongDefault(gh, cdiSubtypeAttributeName[SUBTYPE_ATT_TILEINDEX], 0);
+ tiles->totalno_of_tileattr_pairs
+ = (int) gribGetLongDefault(gh, cdiSubtypeAttributeName[SUBTYPE_ATT_TOTALNO_OF_TILEATTR_PAIRS], -1);
+ tiles->tileClassification = (int) gribGetLongDefault(gh, cdiSubtypeAttributeName[SUBTYPE_ATT_TILE_CLASSIFICATION], -1);
+ tiles->numberOfTiles = (int) gribGetLongDefault(gh, cdiSubtypeAttributeName[SUBTYPE_ATT_NUMBER_OF_TILES], -1);
+ tiles->numberOfAttributes = (int) gribGetLongDefault(gh, cdiSubtypeAttributeName[SUBTYPE_ATT_NUMBER_OF_ATTR], -1);
+ tiles->attribute = (int) gribGetLongDefault(gh, cdiSubtypeAttributeName[SUBTYPE_ATT_TILEATTRIBUTE], -1);
+ }
+}
+
+static void
+gribapi_get_string(grib_handle *gh, const char *key, char *string, size_t length)
+{
+ string[0] = 0;
+
+ int ret = grib_get_string(gh, key, string, &length);
+ if (ret != 0)
+ {
+ fprintf(stderr, "grib_get_string(gh, \"%s\", ...) failed!\n", key);
+ GRIB_CHECK(ret, 0);
+ }
+ // clang-format off
+ if (length == 8 && memcmp(string, "unknown", length) == 0) string[0] = 0;
+ else if (length == 2 && memcmp(string, "~", length) == 0) string[0] = 0;
+ // clang-format on
+}
+
+static void
+param_to_name(int param, char *name)
+{
+ int pdis, pcat, pnum;
+ cdiDecodeParam(param, &pnum, &pcat, &pdis);
+ if (pdis == 255)
+ {
+ snprintf(name, 256, "code%d", pnum);
+ }
+ else
+ {
+ snprintf(name, 256, "param%d.%d.%d", pnum, pcat, pdis);
+ }
+}
+
+static int
+gribapiGetEnsembleInfo(grib_handle *gh, long *numberOfForecastsInEnsemble, long *perturbationNumber, long *typeOfEnsembleForecast)
+{
+ int status = 0;
+ if (grib_get_long(gh, "numberOfForecastsInEnsemble", numberOfForecastsInEnsemble) == 0)
+ {
+ if (*numberOfForecastsInEnsemble > 0) status = 1;
+ GRIB_CHECK(grib_get_long(gh, "perturbationNumber", perturbationNumber), 0);
+ grib_get_long(gh, "typeOfEnsembleForecast", typeOfEnsembleForecast);
+ }
+
+ if (status == 0)
+ {
+ *numberOfForecastsInEnsemble = -1;
+ *perturbationNumber = -1;
+ *typeOfEnsembleForecast = -1;
+ }
+
+ return status;
+}
+
+static VarScanKeys
+gribapiGetScanKeys(grib_handle *gh)
+{
+ VarScanKeys scanKeys;
+ varScanKeysInit(&scanKeys);
+
+ long numberOfForecastsInEnsemble = -1, perturbationNumber = -1, typeOfEnsembleForecast = -1;
+ gribapiGetEnsembleInfo(gh, &numberOfForecastsInEnsemble, &perturbationNumber, &typeOfEnsembleForecast);
+ scanKeys.perturbationNumber = (short) perturbationNumber;
+
+ long typeOfGeneratingProcess = 0;
+ if (grib_get_long(gh, "typeOfGeneratingProcess", &typeOfGeneratingProcess) == 0)
+ scanKeys.typeOfGeneratingProcess = (short) typeOfGeneratingProcess;
+
+ return scanKeys;
+}
+
+static void
+gribapiGetNameKeys(grib_handle *gh, int varID)
+{
+ char string[CDI_MAX_NAME];
+
+ size_t vlen = CDI_MAX_NAME;
+ gribapi_get_string(gh, "name", string, vlen); // longname
+ if (string[0]) varDefKeyString(varID, CDI_KEY_LONGNAME, string);
+
+ gribapi_get_string(gh, "units", string, vlen);
+ if (string[0]) varDefKeyString(varID, CDI_KEY_UNITS, string);
+
+ string[0] = 0;
+ int status = grib_get_string(gh, "cfName", string, &vlen);
+ if (status != 0 || vlen <= 1 || strncmp(string, "unknown", 7) == 0) string[0] = 0;
+ if (string[0]) varDefKeyString(varID, CDI_KEY_STDNAME, string);
+}
+
+static void
+gribapiGetKeys(grib_handle *gh, int varID)
+{
+ long tablesVersion = 0;
+ if (grib_get_long(gh, "tablesVersion", &tablesVersion) == 0) varDefKeyInt(varID, CDI_KEY_TABLESVERSION, (int) tablesVersion);
+
+ long localTablesVersion = 0;
+ if (grib_get_long(gh, "localTablesVersion", &localTablesVersion) == 0)
+ varDefKeyInt(varID, CDI_KEY_LOCALTABLESVERSION, (int) localTablesVersion);
+
+ long typeOfGeneratingProcess = 0;
+ if (grib_get_long(gh, "typeOfGeneratingProcess", &typeOfGeneratingProcess) == 0)
+ varDefKeyInt(varID, CDI_KEY_TYPEOFGENERATINGPROCESS, (int) typeOfGeneratingProcess);
+
+ long productDefinitionTemplate = 0;
+ if (grib_get_long(gh, "productDefinitionTemplateNumber", &productDefinitionTemplate) == 0)
+ varDefKeyInt(varID, CDI_KEY_PRODUCTDEFINITIONTEMPLATE, (int) productDefinitionTemplate);
+
+ long typeOfProcessedData = 0;
+ if (grib_get_long(gh, "typeOfProcessedData", &typeOfProcessedData) == 0)
+ varDefKeyInt(varID, CDI_KEY_TYPEOFPROCESSEDDATA, (int) typeOfProcessedData);
+
+ long shapeOfTheEarth = 0;
+ if (grib_get_long(gh, "shapeOfTheEarth", &shapeOfTheEarth) == 0)
+ varDefKeyInt(varID, CDI_KEY_SHAPEOFTHEEARTH, (int) shapeOfTheEarth);
+
+ long backgroundProcess = 0;
+ if (grib_get_long(gh, "backgroundProcess", &backgroundProcess) == 0)
+ varDefKeyInt(varID, CDI_KEY_BACKGROUNDPROCESS, (int) backgroundProcess);
+
+ long typeOfTimeIncrement = 0;
+ if (grib_get_long(gh, "typeOfTimeIncrement", &typeOfTimeIncrement) == 0)
+ varDefKeyInt(varID, CDI_KEY_TYPEOFTIMEINCREMENT, (int) typeOfTimeIncrement);
+ /*
+ long constituentType = 0;
+ if ( grib_get_long(gh, "constituentType", &constituentType) == 0 )
+ varDefKeyInt(varID, CDI_KEY_CONSTITUENTTYPE, (int) constituentType);
+ */
+
+ /*
+ Get the ensemble information from the grib-2 Tables and update the intermediate datastructure.
+ Further update to the "vlist" is handled in the same way as for GRIB-1 by "cdi_generate_vars"
+ */
+ long numberOfForecastsInEnsemble = -1, perturbationNumber = -1, typeOfEnsembleForecast = -1;
+ gribapiGetEnsembleInfo(gh, &numberOfForecastsInEnsemble, &perturbationNumber, &typeOfEnsembleForecast);
+ if (numberOfForecastsInEnsemble > 0)
+ {
+ varDefKeyInt(varID, CDI_KEY_NUMBEROFFORECASTSINENSEMBLE, (int) numberOfForecastsInEnsemble);
+ varDefKeyInt(varID, CDI_KEY_PERTURBATIONNUMBER, (int) perturbationNumber);
+ if (typeOfEnsembleForecast != -1) varDefKeyInt(varID, CDI_KEY_TYPEOFENSEMBLEFORECAST, (int) typeOfEnsembleForecast);
+ }
+
+ long section2Length = 0;
+ int status = grib_get_long(gh, "section2Length", §ion2Length);
+ if (status == 0 && section2Length > 0)
+ {
+ long grib2LocalSectionNumber;
+ long mpimType, mpimClass, mpimUser;
+ status = grib_get_long(gh, "grib2LocalSectionNumber", &grib2LocalSectionNumber);
+ if (status == 0)
+ {
+ size_t section2PaddingLength = 0;
+ status = grib_get_size(gh, "section2Padding", §ion2PaddingLength);
+ if (status == 0 && section2PaddingLength > 0)
+ {
+ varDefKeyInt(varID, CDI_KEY_GRIB2LOCALSECTIONNUMBER, (int) grib2LocalSectionNumber);
+ varDefKeyInt(varID, CDI_KEY_SECTION2PADDINGLENGTH, (int) section2PaddingLength);
+ unsigned char *section2Padding = (unsigned char *) Malloc(section2PaddingLength);
+ grib_get_bytes(gh, "section2Padding", section2Padding, §ion2PaddingLength);
+ varDefKeyBytes(varID, CDI_KEY_SECTION2PADDING, section2Padding, (int) section2PaddingLength);
+ Free(section2Padding);
+ }
+ else if (grib_get_long(gh, "mpimType", &mpimType) == 0 && grib_get_long(gh, "mpimClass", &mpimClass) == 0
+ && grib_get_long(gh, "mpimUser", &mpimUser) == 0)
+ {
+ varDefKeyInt(varID, CDI_KEY_MPIMTYPE, mpimType);
+ varDefKeyInt(varID, CDI_KEY_MPIMCLASS, mpimClass);
+ varDefKeyInt(varID, CDI_KEY_MPIMUSER, mpimUser);
+
+ size_t revNumLen = 20;
+ unsigned char revNumber[revNumLen];
+ if (grib_get_bytes(gh, "revNumber", revNumber, &revNumLen) == 0)
+ varDefKeyBytes(varID, CDI_KEY_REVNUMBER, revNumber, (int) revNumLen);
+
+ long revStatus;
+ grib_get_long(gh, "revStatus", &revStatus);
+ varDefKeyInt(varID, CDI_KEY_REVSTATUS, revStatus);
+ }
+ }
+ }
+}
+
+static void
+gribapiDefProjRLL(grib_handle *gh, int gridID)
+{
+ double xpole = 0, ypole = 0, angle = 0;
+ grib_get_double(gh, "latitudeOfSouthernPoleInDegrees", &ypole);
+ grib_get_double(gh, "longitudeOfSouthernPoleInDegrees", &xpole);
+ grib_get_double(gh, "angleOfRotation", &angle);
+ xpole -= 180;
+ if (fabs(ypole) > 0) ypole = -ypole; // change from south to north pole
+ if (fabs(angle) > 0) angle = -angle;
+
+ gridDefParamRLL(gridID, xpole, ypole, angle);
+}
+
+static void
+decode_shapeOfTheEarth(grib_handle *gh, struct CDI_GridProjParams *gpp)
+{
+ long shapeOfTheEarth = 0;
+ grib_get_long(gh, "shapeOfTheEarth", &shapeOfTheEarth);
+
+ double radiusOfTheEarth = 6367470.0;
+ if (shapeOfTheEarth == 1) grib_get_double(gh, "radiusOfTheEarth", &radiusOfTheEarth);
+
+ // clang-format off
+ switch (shapeOfTheEarth)
+ {
+ case 0: gpp->a = radiusOfTheEarth; break;
+ case 1: gpp->a = radiusOfTheEarth; break;
+ case 2: gpp->a = 6378160.0; gpp->b = 6356775.0; gpp->rf = 297.0; break;
+ case 4: gpp->a = 6378137.0; gpp->b = 6356752.314; gpp->rf = 298.257222101; break;
+ case 6: gpp->a = 6371229.0; break;
+ case 8: gpp->a = 6371200.0; break;
+ default: gpp->a = radiusOfTheEarth;
+ }
+ // clang-format on
+}
+
+static void
+gribapiDefProjLCC(grib_handle *gh, int gridID)
+{
+ struct CDI_GridProjParams gpp;
+ gridProjParamsInit(&gpp);
+
+ decode_shapeOfTheEarth(gh, &gpp);
+
+ long projflag = 0;
+ grib_get_double(gh, "longitudeOfFirstGridPointInDegrees", &gpp.xval_0);
+ grib_get_double(gh, "latitudeOfFirstGridPointInDegrees", &gpp.yval_0);
+ grib_get_double(gh, "longitudeOfSouthernPoleInDegrees", &gpp.x_SP);
+ grib_get_double(gh, "latitudeOfSouthernPoleInDegrees", &gpp.y_SP);
+ grib_get_double(gh, "LoVInDegrees", &gpp.lon_0);
+ grib_get_double(gh, "Latin1InDegrees", &gpp.lat_1);
+ grib_get_double(gh, "Latin2InDegrees", &gpp.lat_2);
+ grib_get_long(gh, "projectionCentreFlag", &projflag);
+ bool isSouthPole = gribbyte_get_bit((int) projflag, 1);
+ if (isSouthPole)
+ {
+ gpp.lat_1 = -gpp.lat_1;
+ gpp.lat_2 = -gpp.lat_2;
+ }
+
+ gpp.lat_0 = gpp.lat_2;
+
+ if (proj_lonlat_to_lcc_func)
+ {
+ double x_0 = gpp.xval_0, y_0 = gpp.yval_0;
+ proj_lonlat_to_lcc_func(gpp, (size_t) 1, &x_0, &y_0);
+ if (IS_NOT_EQUAL(x_0, gpp.mv) && IS_NOT_EQUAL(y_0, gpp.mv))
+ {
+ gpp.x_0 = -x_0;
+ gpp.y_0 = -y_0;
+ }
+ }
+
+ gridDefParamsLCC(gridID, gpp);
+}
+
+static void
+gribapiDefProjSTERE(grib_handle *gh, int gridID)
+{
+ struct CDI_GridProjParams gpp;
+ gridProjParamsInit(&gpp);
+
+ decode_shapeOfTheEarth(gh, &gpp);
+
+ grib_get_double(gh, "longitudeOfFirstGridPointInDegrees", &gpp.xval_0);
+ grib_get_double(gh, "latitudeOfFirstGridPointInDegrees", &gpp.yval_0);
+ grib_get_double(gh, "LaDInDegrees", &gpp.lat_1);
+ grib_get_double(gh, "orientationOfTheGridInDegrees", &gpp.lon_0);
+
+ long southPoleOnProjectionPlane;
+ grib_get_long(gh, "southPoleOnProjectionPlane", &southPoleOnProjectionPlane);
+ gpp.lat_0 = southPoleOnProjectionPlane ? -90.0 : 90.0;
+
+ if (proj_lonlat_to_stere_func)
+ {
+ double x_0 = gpp.xval_0, y_0 = gpp.yval_0;
+ proj_lonlat_to_stere_func(gpp, (size_t) 1, &x_0, &y_0);
+ if (IS_NOT_EQUAL(x_0, gpp.mv) && IS_NOT_EQUAL(y_0, gpp.mv))
+ {
+ gpp.x_0 = -x_0;
+ gpp.y_0 = -y_0;
+ }
+ }
+
+ gridDefParamsSTERE(gridID, gpp);
+}
+
+static void
+gribapiDefProjHEALPIX(grib_handle *gh, int gridID)
+{
+ struct CDI_GridProjParams gpp;
+ gridProjParamsInit(&gpp);
+
+ decode_shapeOfTheEarth(gh, &gpp);
+
+ long lval = -1;
+ grib_get_long(gh, "Nside", &lval);
+ gpp.nside = (int) lval;
+ lval = -1;
+ grib_get_long(gh, "ordering", &lval);
+ gpp.order = (int) lval;
+
+ gridDefParamsHEALPIX(gridID, gpp);
+}
+
+static void
+gribapiAddRecord(stream_t *streamptr, int param, grib_handle *gh, size_t recsize, off_t position, int datatype, int comptype,
+ const char *varname, int leveltype1, int leveltype2, int lbounds, int level1, int level2, int level_sf,
+ int level_unit, VarScanKeys *scanKeys, const var_tile_t *tiles, bool lread_additional_keys, int fdbItemIndex)
+{
+ int vlistID = streamptr->vlistID;
+ int tsID = streamptr->curTsID;
+ int recID = recordNewEntry(streamptr, tsID);
+ record_t *record = &streamptr->tsteps[tsID].records[recID];
+
+ int tsteptype = gribapiGetTsteptype(gh);
+
+ // fprintf(stderr, "param %d %d %d %d\n", param, level1, level2, leveltype1);
+
+ record->size = recsize;
+ record->position = position;
+ record->param = param;
+ record->ilevel = level1;
+ record->ilevel2 = level2;
+ record->ltype = leveltype1;
+ record->tsteptype = (short) tsteptype;
+ record->gridsize = gribapiGetGridsize(gh);
+ record->scanKeys = *scanKeys;
+ record->tiles = tiles ? *tiles : dummy_tiles;
+#ifdef HAVE_LIBFDB5
+ record->fdbItemIndex = fdbItemIndex;
+#else
+ (void) fdbItemIndex;
+#endif
+
+ strncpy(record->varname, varname, sizeof(record->varname) - 1);
+ record->varname[sizeof(record->varname) - 1] = 0;
+
+ streamptr->tsteps[tsID].nallrecs++;
+ streamptr->nrecs++;
+
+ // >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+
+ CdiQuery *query = streamptr->query;
+ if (query && cdiQueryName(query, varname) < 0)
+ {
+ record->used = false;
+ return;
+ }
+
+ // >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+
+ grid_t *gridptr = (grid_t *) Malloc(sizeof(*gridptr));
+ bool uvRelativeToGrid = gribapiGetGrid(gh, gridptr);
+
+ struct addIfNewRes gridAdded = cdiVlistAddGridIfNew(vlistID, gridptr, 0);
+ int gridID = gridAdded.Id;
+ // clang-format off
+ if (!gridAdded.isNew)
+ {
+ grid_free(gridptr);
+ Free(gridptr);
+ }
+ else if (gridptr->projtype == CDI_PROJ_RLL) gribapiDefProjRLL(gh, gridID);
+ else if (gridptr->projtype == CDI_PROJ_LCC) gribapiDefProjLCC(gh, gridID);
+ else if (gridptr->projtype == CDI_PROJ_STERE) gribapiDefProjSTERE(gh, gridID);
+ else if (gridptr->projtype == CDI_PROJ_HEALPIX) gribapiDefProjHEALPIX(gh, gridID);
+ // clang-format on
+
+ int zaxistype = gribapi_get_zaxis_type(gribEditionNumber(gh), leveltype1);
+
+ switch (zaxistype)
+ {
+ case ZAXIS_HYBRID:
+ case ZAXIS_HYBRID_HALF:
+ {
+ long lpar;
+ GRIB_CHECK(grib_get_long(gh, "NV", &lpar), 0);
+ /* FIXME: assert(lpar >= 0) */
+ size_t vctsize = (size_t) lpar;
+ if (vctsize > 0)
+ {
+ double *vctptr = (double *) Malloc(vctsize * sizeof(double));
+ size_t dummy = vctsize;
+ GRIB_CHECK(grib_get_double_array(gh, "pv", vctptr, &dummy), 0);
+ varDefVCT(vctsize, vctptr);
+ Free(vctptr);
+ }
+ break;
+ }
+ case ZAXIS_REFERENCE:
+ {
+ unsigned char uuid[CDI_UUID_SIZE];
+ long lpar;
+ GRIB_CHECK(grib_get_long(gh, "NV", &lpar), 0);
+ // if (lpar != 6) fprintf(stderr, "Warning ...\n");
+ GRIB_CHECK(grib_get_long(gh, "nlev", &lpar), 0);
+ int nhlev = (int) lpar;
+ GRIB_CHECK(grib_get_long(gh, "numberOfVGridUsed", &lpar), 0);
+ int nvgrid = (int) lpar;
+ size_t len = (size_t) CDI_UUID_SIZE;
+ memset(uuid, 0, CDI_UUID_SIZE);
+ GRIB_CHECK(grib_get_bytes(gh, "uuidOfVGrid", uuid, &len), 0);
+ varDefZAxisReference(nhlev, nvgrid, uuid);
+ break;
+ }
+ }
+
+ // if ( datatype > 32 ) datatype = CDI_DATATYPE_PACK32;
+ if (datatype < 0) datatype = CDI_DATATYPE_PACK;
+
+ // add the previously read record data to the (intermediate) list of records
+ int tile_index = 0;
+ int varID = 0, levelID = 0;
+ varAddRecord(recID, param, gridID, zaxistype, lbounds, level1, level2, level_sf, level_unit, datatype, &varID, &levelID,
+ tsteptype, leveltype1, leveltype2, varname, scanKeys, tiles, &tile_index);
+
+ record->varID = (short) varID;
+ record->levelID = levelID;
+
+ varDefCompType(varID, comptype);
+
+ if (uvRelativeToGrid) varDefKeyInt(varID, CDI_KEY_UVRELATIVETOGRID, 1);
+
+ if (varname[0]) gribapiGetNameKeys(gh, varID);
+ gribapiGetKeys(gh, varID);
+
+ if (lread_additional_keys)
+ {
+ long lval;
+ double dval;
+ for (int i = 0; i < cdiNAdditionalGRIBKeys; i++)
+ {
+ // note: if the key is not defined, we do not throw an error!
+ if (grib_get_long(gh, cdiAdditionalGRIBKeys[i], &lval) == 0)
+ varDefOptGribInt(varID, tile_index, lval, cdiAdditionalGRIBKeys[i]);
+ if (grib_get_double(gh, cdiAdditionalGRIBKeys[i], &dval) == 0)
+ varDefOptGribDbl(varID, tile_index, dval, cdiAdditionalGRIBKeys[i]);
+ }
+ }
+
+ if (varInqInst(varID) == CDI_UNDEFID)
+ {
+ long center, subcenter;
+ GRIB_CHECK(grib_get_long(gh, "centre", ¢er), 0);
+ GRIB_CHECK(grib_get_long(gh, "subCentre", &subcenter), 0);
+ int instID = institutInq((int) center, (int) subcenter, NULL, NULL);
+ if (instID == CDI_UNDEFID) instID = institutDef((int) center, (int) subcenter, NULL, NULL);
+ varDefInst(varID, instID);
+ }
+
+ if (varInqModel(varID) == CDI_UNDEFID)
+ {
+ long processID;
+ if (grib_get_long(gh, "generatingProcessIdentifier", &processID) == 0)
+ {
+ /* FIXME: assert(processID >= INT_MIN && processID <= INT_MAX) */
+ int modelID = modelInq(varInqInst(varID), (int) processID, NULL);
+ if (modelID == CDI_UNDEFID) modelID = modelDef(varInqInst(varID), (int) processID, NULL);
+ varDefModel(varID, modelID);
+ }
+ }
+
+ if (varInqTable(varID) == CDI_UNDEFID)
+ {
+ int pdis, pcat, pnum;
+ cdiDecodeParam(param, &pnum, &pcat, &pdis);
+
+ if (pdis == 255)
+ {
+ int tabnum = pcat;
+ int tableID = tableInq(varInqModel(varID), tabnum, NULL);
+ if (tableID == CDI_UNDEFID) tableID = tableDef(varInqModel(varID), tabnum, NULL);
+ varDefTable(varID, tableID);
+ }
+ }
+
+ if (CDI_Debug)
+ Message("varID = %d param = %d zaxistype = %d gridID = %d levelID = %d", varID, param, zaxistype, gridID, levelID);
+}
+
+static compvar2_t
+gribapiVarSet(int param, int level1, int level2, int leveltype, int tsteptype, size_t gridsize, char *name, VarScanKeys scanKeys,
+ var_tile_t tiles_data)
+{
+ compvar2_t compVar;
+ memset(&compVar, 0, sizeof(compvar2_t));
+ size_t maxlen = sizeof(compVar.name);
+ size_t len = strlen(name);
+ if (len > maxlen) len = maxlen;
+
+ compVar.param = param;
+ compVar.level1 = level1;
+ compVar.level2 = level2;
+ compVar.ltype = leveltype;
+ compVar.tsteptype = tsteptype;
+ compVar.gridsize = gridsize;
+ // memset(compVar.name, 0, maxlen);
+ memcpy(compVar.name, name, len);
+ compVar.scanKeys = scanKeys;
+ compVar.tiles = tiles_data;
+
+ return compVar;
+}
+
+static int
+gribapiVarCompare(const compvar2_t *compVar, const record_t *record, int flag)
+{
+ compvar2_t compVar0;
+ memset(&compVar0, 0, sizeof(compvar2_t));
+ compVar0.param = record->param;
+ compVar0.level1 = record->ilevel;
+ compVar0.level2 = record->ilevel2;
+ compVar0.ltype = record->ltype;
+ compVar0.tsteptype = record->tsteptype;
+ compVar0.gridsize = record->gridsize;
+ memcpy(compVar0.name, record->varname, sizeof(compVar->name));
+
+ if (flag == 0)
+ {
+ if (compVar0.tsteptype == TSTEP_INSTANT && compVar->tsteptype == TSTEP_INSTANT3) compVar0.tsteptype = TSTEP_INSTANT3;
+ if (compVar0.tsteptype == TSTEP_INSTANT3 && compVar->tsteptype == TSTEP_INSTANT) compVar0.tsteptype = TSTEP_INSTANT;
+ }
+
+ compVar0.scanKeys = record->scanKeys;
+ compVar0.tiles = record->tiles;
+
+ // printf("var1: level1=%d level2=%d\n", compVar.level1, compVar.level2);
+ // printf("var2: level1=%d level2=%d\n", compVar0.level1, compVar0.level2);
+
+ return memcmp(&compVar0, compVar, sizeof(compvar2_t));
+}
+
+static grib_handle *
+gribapiGetDiskRepresentation(size_t recsize, size_t *buffersize, void **gribbuffer, int *outDatatype, int *outCompressionType)
+{
+ int gribversion = (int) ((char *) *gribbuffer)[7];
+
+ if (gribversion <= 1) *outCompressionType = grbDecompress(recsize, buffersize, gribbuffer);
+
+ grib_handle *gh = grib_handle_new_from_message(NULL, *gribbuffer, recsize);
+
+ bool lieee = false;
+
+ if (gribversion > 1)
+ {
+ size_t len = 256;
+ char typeOfPacking[256];
+ if (grib_get_string(gh, "packingType", typeOfPacking, &len) == 0)
+ {
+ // fprintf(stderr, "packingType %zu %s\n", len, typeOfPacking);
+ if (strncmp(typeOfPacking, "grid_jpeg", len) == 0)
+ *outCompressionType = CDI_COMPRESS_JPEG;
+ else if (strncmp(typeOfPacking, "grid_ccsds", len) == 0)
+ *outCompressionType = CDI_COMPRESS_AEC;
+ else if (strncmp(typeOfPacking, "grid_ieee", len) == 0)
+ lieee = true;
+ }
+ }
+
+ if (lieee)
+ {
+ long precision;
+ int status = grib_get_long(gh, "precision", &precision);
+ *outDatatype = (status == 0 && precision == 1) ? CDI_DATATYPE_FLT32 : CDI_DATATYPE_FLT64;
+ }
+ else
+ {
+ *outDatatype = CDI_DATATYPE_PACK;
+ long bitsPerValue;
+ if (grib_get_long(gh, "bitsPerValue", &bitsPerValue) == 0)
+ {
+ if (bitsPerValue > 0 && bitsPerValue <= 32) *outDatatype = (int) bitsPerValue;
+ }
+ }
+
+ return gh;
+}
+
+typedef enum
+{
+ CHECKTIME_OK,
+ CHECKTIME_SKIP,
+ CHECKTIME_STOP,
+ CHECKTIME_INCONSISTENT
+} checkTimeResult;
+
+static checkTimeResult
+checkTime(stream_t *streamptr, const compvar2_t *compVar, CdiDateTime verificationTime, CdiDateTime expectedVTime)
+{
+ // First determine whether the current record exists already.
+ int recID = 0;
+ for (; recID < streamptr->nrecs; recID++)
+ {
+ if (gribapiVarCompare(compVar, &streamptr->tsteps[0].records[recID], 1) == 0) break;
+ }
+ bool recordExists = (recID < streamptr->nrecs);
+
+ // Then we need to know whether the verification time is consistent.
+ bool consistentTime = cdiDateTime_isEQ(verificationTime, expectedVTime);
+
+ // Finally, we make a decision.
+ if (CDI_Inventory_Mode == 1)
+ {
+ if (recordExists) return CHECKTIME_STOP;
+ if (!consistentTime) return CHECKTIME_INCONSISTENT;
+ }
+ else
+ {
+ if (!consistentTime) return CHECKTIME_STOP;
+ if (recordExists) return CHECKTIME_SKIP;
+ }
+
+ return CHECKTIME_OK;
+}
+
+#define gribWarning(text, nrecs, timestep, varname, param, level1, level2) \
+ do \
+ { \
+ char paramstr[32]; \
+ cdiParamToString(param, paramstr, sizeof(paramstr)); \
+ Warning("Record %2d (name=%s id=%s lev1=%d lev2=%d) timestep %d: %s", nrecs, varname, paramstr, level1, level2, timestep, \
+ text); \
+ } \
+ while (0)
+
+#ifdef HAVE_LIBFDB5
+#endif
+
+int
+fdbScanTimesteps(stream_t *streamptr)
+{
+ (void) streamptr;
+#ifdef HAVE_LIBFDB5
+ void *gribbuffer = NULL;
+ size_t buffersize = 0;
+ grib_handle *gh = NULL;
+
+ fdb_handle_t *fdbHandle = streamptr->protocolData;
+
+ fdb_request_t *request = cdi_create_fdb_request(streamptr->filename);
+
+ fdbKeyValueEntry *keyValueList = NULL;
+ int numItems = cdi_fdb_fill_kvlist(fdbHandle, request, &keyValueList);
+ fdb_delete_request(request);
+ if (numItems == 0) Error("FDB request doesn't find any database entries!");
+ if (CDI_Debug)
+ {
+ printf("Original FDB items:\n");
+ print_keyvalueList(numItems, keyValueList);
+ }
+
+ // if (check_keyvalueList(numItems, keyValueList) != 0) return CDI_EUFSTRUCT;
+
+ RecordInfoEntry *recordInfoList = (RecordInfoEntry *) malloc(numItems * sizeof(RecordInfoEntry));
+ if (decode_keyvalue(numItems, keyValueList, recordInfoList) != 0) return CDI_EUFSTRUCT;
+
+ cdi_fdb_sort_datetime(numItems, recordInfoList);
+
+ if (CDI_Debug)
+ {
+ printf("Sorted FDB items:\n");
+ print_keyvalueList_sorted(numItems, keyValueList, recordInfoList);
+ }
+
+ int numRecords = get_num_records(numItems, recordInfoList);
+ if (numRecords == 0) return CDI_EUFSTRUCT;
+
+ int numTimesteps = numItems / numRecords;
+ if (CDI_Debug) Message("numRecords=%d numTimesteps=%d", numRecords, numTimesteps);
+
+ int *timestepRecordOffset = (int *) malloc(numTimesteps * sizeof(int));
+ for (int i = 0; i < numTimesteps; i++) timestepRecordOffset[i] = i * numRecords;
+ numTimesteps = remove_duplicate_timesteps(recordInfoList, numRecords, numTimesteps, timestepRecordOffset);
+ if (CDI_Debug) Message("numRecords=%d numTimesteps=%d", numRecords, numTimesteps);
+ // Message("numRecords=%d numTimesteps=%d", numRecords, numTimesteps);
+
+ // CdiDateTime vDateTime0;
+ // cdiDateTime_init(&vDateTime0);
+ int fcast = 0;
+
+ streamptr->curTsID = 0;
+
+ int tsIDnew = tstepsNewEntry(streamptr);
+ if (tsIDnew != 0) Error("Internal problem! tstepsNewEntry returns %d", tsIDnew);
+
+ taxis_t *taxis = &streamptr->tsteps[tsIDnew].taxis;
+
+ for (int recID = 0; recID < numRecords; recID++)
+ {
+ int fdbItem = recordInfoList[recID].fdbIndex;
+ int vdate = recordInfoList[recID].date;
+ int vtime = recordInfoList[recID].time * 100;
+
+ long recsize = cdi_fdb_read_record(fdbHandle, &keyValueList[fdbItem], &buffersize, &gribbuffer);
+
+ int datatype, comptype = 0;
+ gh = gribapiGetDiskRepresentation(recsize, &buffersize, &gribbuffer, &datatype, &comptype);
+
+ GRIB_CHECK(my_grib_set_double(gh, "missingValue", CDI_Default_Missval), 0);
+
+ int leveltype1 = -1, leveltype2 = -1, lbounds, level_sf, level_unit;
+ var_tile_t tiles = dummy_tiles;
+ int level1 = 0, level2 = 0;
+ grib_get_level(gh, &leveltype1, &leveltype2, &lbounds, &level1, &level2, &level_sf, &level_unit, &tiles);
+
+ char varname[256];
+ gribapi_get_string(gh, "shortName", varname, sizeof(varname));
+
+ int param = gribapiGetParam(gh);
+
+ CdiDateTime sDateTime;
+ // CdiDateTime vDateTime = gribapiGetValidityDateTime(gh, &sDateTime);
+ CdiDateTime vDateTime = cdiDateTime_set(vdate, vtime);
+ sDateTime = vDateTime;
+
+ VarScanKeys scanKeys = gribapiGetScanKeys(gh);
+
+ if (recID == 0)
+ {
+ // vDateTime0 = vDateTime;
+ taxis->rDateTime = gribapiGetDataDateTime(gh);
+ fcast = gribapiTimeIsFC(gh);
+ if (fcast) taxis->unit = gribapi_get_timeunits(gh);
+ taxis->fDateTime = taxis->rDateTime;
+ taxis->sDateTime = sDateTime;
+ taxis->vDateTime = vDateTime;
+ }
+
+ if (CDI_Debug)
+ {
+ char paramstr[32];
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+ Message("%4d name=%s id=%s ltype=%d lev1=%d lev2=%d vDateTime=%s", recID + 1, varname, paramstr, leveltype1, level1,
+ level2, CdiDateTime_string(vDateTime));
+ }
+
+ var_tile_t *ptiles = memcmp(&tiles, &dummy_tiles, sizeof(var_tile_t)) ? &tiles : NULL;
+ int recpos = 0;
+ gribapiAddRecord(streamptr, param, gh, recsize, recpos, datatype, comptype, varname, leveltype1, leveltype2, lbounds, level1,
+ level2, level_sf, level_unit, &scanKeys, ptiles, true, fdbItem);
+
+ grib_handle_delete(gh);
+ gh = NULL;
+ }
+
+ if (gh) grib_handle_delete(gh);
+
+ cdi_generate_vars(streamptr);
+
+ taxis->type = fcast ? TAXIS_RELATIVE : TAXIS_ABSOLUTE;
+ int taxisID = taxisCreate(taxis->type);
+
+ vlistDefTaxis(streamptr->vlistID, taxisID);
+
+ streamScanResizeRecords1(streamptr);
+
+ streamptr->record->buffer = gribbuffer;
+ streamptr->record->buffersize = buffersize;
+
+ if (numTimesteps == 1) streamptr->ntsteps = 1;
+ streamScanTimeConstAdjust(streamptr, taxis);
+
+ for (int tsID = 1; tsID < numTimesteps; tsID++)
+ {
+ int recordOffset = timestepRecordOffset[tsID];
+ int vdate = recordInfoList[recordOffset].date;
+ int vtime = recordInfoList[recordOffset].time * 100;
+ // printf("timestep=%d recOffset=%d date=%d time=%d\n", tsID + 1, recordOffset, vdate, vtime);
+
+ int tsIDnext = tstepsNewEntry(streamptr);
+ if (tsIDnext != tsID) Error("Internal error. tsID = %d", tsID);
+
+ streamptr->tsteps[tsID - 1].next = true;
+ streamptr->tsteps[tsID].position = 0;
+
+ taxis = &streamptr->tsteps[tsID].taxis;
+
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ int nrecs = (tsID == 1) ? streamScanInitRecords2(streamptr) : streamScanInitRecords(streamptr, tsID);
+ if (nrecs != numRecords) Error("Internal error. nrecs = %d", nrecs);
+
+ taxis->vDateTime = cdiDateTime_set(vdate, vtime);
+
+ int rindex = 0;
+ for (int recID = 0; recID < numRecords; recID++)
+ {
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+ rindex++;
+
+ records[recID].position = 0;
+ records[recID].size = 0;
+ records[recID].fdbItemIndex = recordInfoList[recordOffset + recID].fdbIndex;
+ }
+
+ if (tsID == 1) streamptr->tsteps[1].nrecs = numRecords;
+ }
+
+ streamptr->rtsteps = numTimesteps;
+ streamptr->ntsteps = numTimesteps;
+
+ streamptr->fdbNumItems = numItems;
+ streamptr->fdbKeyValueList = keyValueList;
+
+ if (recordInfoList) free(recordInfoList);
+ if (timestepRecordOffset) free(timestepRecordOffset);
+#endif
+
+ return 0;
+}
+
+int
+gribapiScanTimestep1(stream_t *streamptr)
+{
+ CdiDateTime vDateTime0;
+ cdiDateTime_init(&vDateTime0);
+ off_t recpos = 0;
+ void *gribbuffer = NULL;
+ size_t buffersize = 0;
+ int nrecsScanned = 0; // Only used for debug output.
+ bool warn_time = true;
+ int fcast = 0;
+ grib_handle *gh = NULL;
+
+ streamptr->curTsID = 0;
+
+ int tsID = tstepsNewEntry(streamptr);
+ if (tsID != 0) Error("Internal problem! tstepsNewEntry returns %d", tsID);
+
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ int fileID = streamptr->fileID;
+
+ unsigned nrecs = 0;
+ while (true)
+ {
+ size_t recsize = gribGetSize(fileID);
+ recpos = fileGetPos(fileID);
+
+ if (recsize == 0)
+ {
+ streamptr->ntsteps = 1;
+ break;
+ }
+
+ ensureBufferSize(recsize, &buffersize, &gribbuffer);
+
+ size_t readsize = recsize;
+ // Search for next 'GRIB', read the following record, and position file offset after it.
+ if (gribRead(fileID, gribbuffer, &readsize)) break;
+
+ nrecsScanned++;
+
+ int datatype, comptype = 0;
+ gh = gribapiGetDiskRepresentation(recsize, &buffersize, &gribbuffer, &datatype, &comptype);
+
+ GRIB_CHECK(my_grib_set_double(gh, "missingValue", CDI_Default_Missval), 0);
+
+ int leveltype1 = -1, leveltype2 = -1, lbounds, level_sf, level_unit;
+ var_tile_t tiles = dummy_tiles;
+ int level1 = 0, level2 = 0;
+ grib_get_level(gh, &leveltype1, &leveltype2, &lbounds, &level1, &level2, &level_sf, &level_unit, &tiles);
+
+ char varname[256];
+ gribapi_get_string(gh, "shortName", varname, sizeof(varname));
+
+ int param = gribapiGetParam(gh);
+
+ if (!varname[0]) param_to_name(param, varname);
+
+ CdiDateTime sDateTime;
+ CdiDateTime vDateTime = gribapiGetValidityDateTime(gh, &sDateTime);
+
+ VarScanKeys scanKeys = gribapiGetScanKeys(gh);
+
+ if (nrecs == 0)
+ {
+ vDateTime0 = vDateTime;
+ taxis->rDateTime = gribapiGetDataDateTime(gh);
+ fcast = gribapiTimeIsFC(gh);
+ if (fcast) taxis->unit = gribapi_get_timeunits(gh);
+ taxis->fDateTime = taxis->rDateTime;
+ taxis->sDateTime = sDateTime;
+ taxis->vDateTime = vDateTime;
+ }
+ else
+ {
+ if (cdiDateTime_isLT(sDateTime, taxis->sDateTime)) taxis->sDateTime = sDateTime;
+
+ int tsteptype = gribapiGetTsteptype(gh);
+ size_t gridsize = gribapiGetGridsize(gh);
+ compvar2_t compVar = gribapiVarSet(param, level1, level2, leveltype1, tsteptype, gridsize, varname, scanKeys, tiles);
+ checkTimeResult result = checkTime(streamptr, &compVar, vDateTime, vDateTime0);
+ if (result == CHECKTIME_STOP)
+ {
+ nrecsScanned--;
+ break;
+ }
+ else if (result == CHECKTIME_SKIP)
+ {
+ gribWarning("Parameter already exist, skipped!", nrecsScanned, tsID + 1, varname, param, level1, level2);
+ continue;
+ }
+ else if (result == CHECKTIME_INCONSISTENT && warn_time)
+ {
+ gribWarning("Inconsistent verification time!", nrecsScanned, tsID + 1, varname, param, level1, level2);
+ warn_time = false;
+ }
+ assert(result == CHECKTIME_OK || result == CHECKTIME_INCONSISTENT);
+ }
+
+ nrecs++;
+
+ if (CDI_Debug)
+ {
+ char paramstr[32];
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+ Message("%4u %8d name=%s id=%s ltype=%d lev1=%d lev2=%d vDateTime=%s", nrecs, (int) recpos, varname, paramstr, leveltype1,
+ level1, level2, CdiDateTime_string(vDateTime));
+ }
+
+ var_tile_t *ptiles = memcmp(&tiles, &dummy_tiles, sizeof(var_tile_t)) ? &tiles : NULL;
+ gribapiAddRecord(streamptr, param, gh, recsize, recpos, datatype, comptype, varname, leveltype1, leveltype2, lbounds, level1,
+ level2, level_sf, level_unit, &scanKeys, ptiles, true, -1);
+
+ grib_handle_delete(gh);
+ gh = NULL;
+ }
+
+ if (gh) grib_handle_delete(gh);
+
+ streamptr->rtsteps = 1;
+
+ if (nrecs == 0) return CDI_EUFSTRUCT;
+
+ if (streamptr->query)
+ {
+ int numEntries = cdiQueryNumEntries(streamptr->query);
+ int numEntriesFound = cdiQueryNumEntriesFound(streamptr->query);
+ cdiQueryPrintEntriesNotFound(streamptr->query);
+ if (numEntriesFound == 0 || (CDI_Query_Abort && numEntries != numEntriesFound)) return CDI_EQENF;
+ }
+
+ cdi_generate_vars(streamptr);
+
+ taxis->type = fcast ? TAXIS_RELATIVE : TAXIS_ABSOLUTE;
+ int taxisID = taxisCreate(taxis->type);
+
+ int vlistID = streamptr->vlistID;
+ vlistDefTaxis(vlistID, taxisID);
+
+ streamScanResizeRecords1(streamptr);
+
+ streamptr->record->buffer = gribbuffer;
+ streamptr->record->buffersize = buffersize;
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+ streamScanTimeConstAdjust(streamptr, taxis);
+
+ return 0;
+}
+
+int
+gribapiScanTimestep2(stream_t *streamptr)
+{
+ CdiDateTime vDateTime0;
+ cdiDateTime_init(&vDateTime0);
+ int rstatus = 0;
+ off_t recpos = 0;
+ // int gridID;
+ int recID;
+ grib_handle *gh = NULL;
+
+ streamptr->curTsID = 1;
+
+ int fileID = streamptr->fileID;
+ int vlistID = streamptr->vlistID;
+
+ void *gribbuffer = streamptr->record->buffer;
+ size_t buffersize = streamptr->record->buffersize;
+
+ int tsID = streamptr->rtsteps;
+ if (tsID != 1) Error("Internal problem! unexpected timestep %d", tsID + 1);
+
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ int nrecords = streamScanInitRecords2(streamptr);
+
+ int nrecsScanned = nrecords; // Only used for debug output
+ for (int rindex = 0; rindex <= nrecords; ++rindex)
+ {
+ size_t recsize = gribGetSize(fileID);
+ recpos = fileGetPos(fileID);
+ if (recsize == 0)
+ {
+ streamptr->ntsteps = 2;
+ break;
+ }
+
+ ensureBufferSize(recsize, &buffersize, &gribbuffer);
+
+ size_t readsize = recsize;
+ if (gribRead(fileID, gribbuffer, &readsize)) break;
+
+ grbDecompress(recsize, &buffersize, &gribbuffer);
+
+ nrecsScanned++;
+ gh = grib_handle_new_from_message(NULL, gribbuffer, recsize);
+ GRIB_CHECK(my_grib_set_double(gh, "missingValue", CDI_Default_Missval), 0);
+
+ int level1 = 0, level2 = 0, leveltype1, leveltype2, lbounds, level_sf, level_unit;
+ var_tile_t tiles = dummy_tiles;
+ grib_get_level(gh, &leveltype1, &leveltype2, &lbounds, &level1, &level2, &level_sf, &level_unit, &tiles);
+
+ char varname[256];
+ gribapi_get_string(gh, "shortName", varname, sizeof(varname));
+
+ int param = gribapiGetParam(gh);
+
+ if (!varname[0]) param_to_name(param, varname);
+
+ CdiDateTime sDateTime;
+ CdiDateTime vDateTime = gribapiGetValidityDateTime(gh, &sDateTime);
+
+ if (rindex == 0)
+ {
+ vDateTime0 = vDateTime;
+ int taxisID = vlistInqTaxis(vlistID);
+ if (taxisInqType(taxisID) == TAXIS_RELATIVE)
+ {
+ taxis->type = TAXIS_RELATIVE;
+ taxis->unit = gribapi_get_timeunits(gh);
+ taxis->rDateTime = gribapiGetDataDateTime(gh);
+ }
+ else
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ }
+ taxis->fDateTime = taxis->rDateTime;
+ taxis->vDateTime = vDateTime;
+ taxis->sDateTime = sDateTime;
+ }
+ else
+ {
+ if (cdiDateTime_isLT(sDateTime, taxis->sDateTime)) taxis->sDateTime = sDateTime;
+ }
+
+ VarScanKeys scanKeys = gribapiGetScanKeys(gh);
+
+ int tsteptype = gribapiGetTsteptype(gh);
+ size_t gridsize = gribapiGetGridsize(gh);
+ compvar2_t compVar = gribapiVarSet(param, level1, level2, leveltype1, tsteptype, gridsize, varname, scanKeys, tiles);
+
+ for (recID = 0; recID < nrecords; recID++)
+ if (gribapiVarCompare(&compVar, &records[recID], 0) == 0) break;
+
+ if (recID == nrecords)
+ {
+ if (CDI_Inventory_Mode == 1)
+ {
+ gribWarning("Parameter not defined at timestep 1!", nrecsScanned, tsID + 1, varname, param, level1, level2);
+ return CDI_EUFSTRUCT;
+ }
+ else
+ {
+ gribWarning("Parameter not defined at timestep 1, skipped!", nrecsScanned, tsID + 1, varname, param, level1, level2);
+ continue;
+ }
+ }
+
+ if (records[recID].used)
+ {
+ if (CDI_Inventory_Mode == 1)
+ break;
+ else
+ {
+ if (cdiDateTime_isNE(vDateTime, vDateTime0)) break;
+
+ gribWarning("Parameter already exist, skipped!", nrecsScanned, tsID + 1, varname, param, level1, level2);
+ continue;
+ }
+ }
+
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+
+ if (CDI_Debug)
+ {
+ char paramstr[32];
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+ Message("%4d %8lld name=%s id=%s ltype=%d lev1=%d lev2=%d vDateTime=%s", nrecsScanned, (long long) recpos, varname,
+ paramstr, leveltype1, level1, level2, CdiDateTime_string(vDateTime));
+ }
+
+ if (gribapiVarCompare(&compVar, &records[recID], 0) != 0)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, level1);
+ return CDI_EUFSTRUCT;
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+
+ int varID = records[recID].varID;
+
+ if (tsteptype != vlistInqVarTsteptype(vlistID, varID)) vlistDefVarTsteptype(vlistID, varID, tsteptype);
+
+ grib_handle_delete(gh);
+ gh = NULL;
+ }
+
+ if (gh) grib_handle_delete(gh);
+
+ int nrecs = 0;
+ for (recID = 0; recID < nrecords; recID++)
+ {
+ if (records[recID].used)
+ nrecs++;
+ else
+ vlistDefVarTimetype(vlistID, records[recID].varID, TIME_CONSTANT);
+ }
+ streamptr->tsteps[tsID].nrecs = nrecs;
+
+ streamptr->rtsteps = 2;
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+
+ streamptr->record->buffer = gribbuffer;
+ streamptr->record->buffersize = buffersize;
+
+ return rstatus;
+}
+
+int
+gribapiScanTimestep(stream_t *streamptr)
+{
+ int vrecID, recID = -1;
+ int nrecs = 0;
+ int vlistID = streamptr->vlistID;
+ int tsID = streamptr->rtsteps;
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ if (streamptr->tsteps[tsID].recordSize == 0)
+ {
+ void *gribbuffer = streamptr->record->buffer;
+ size_t buffersize = streamptr->record->buffersize;
+
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ nrecs = streamScanInitRecords(streamptr, tsID);
+
+ int fileID = streamptr->fileID;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ int nrecsScanned = streamptr->tsteps[0].nallrecs + streamptr->tsteps[1].nrecs * (tsID - 1); // Only used for debug output.
+ off_t recpos = 0;
+ CdiDateTime vDateTime0;
+ cdiDateTime_init(&vDateTime0);
+ grib_handle *gh = NULL;
+ char varname[256];
+ for (int rindex = 0; rindex <= nrecs; ++rindex)
+ {
+ varname[0] = 0;
+ size_t recsize = gribGetSize(fileID);
+ recpos = fileGetPos(fileID);
+ if (recsize == 0)
+ {
+ streamptr->ntsteps = streamptr->rtsteps + 1;
+ break;
+ }
+
+ ensureBufferSize(recsize, &buffersize, &gribbuffer);
+
+ size_t readsize = recsize;
+ if (gribRead(fileID, gribbuffer, &readsize))
+ {
+ Warning("Inconsistent timestep %d (GRIB record %d/%d)!", tsID + 1, rindex + 1, streamptr->tsteps[tsID].recordSize);
+ break;
+ }
+
+ grbDecompress(recsize, &buffersize, &gribbuffer);
+
+ nrecsScanned++;
+ gh = grib_handle_new_from_message(NULL, gribbuffer, recsize);
+ GRIB_CHECK(my_grib_set_double(gh, "missingValue", CDI_Default_Missval), 0);
+
+ int level1 = 0, level2 = 0, leveltype1, leveltype2 = -1, lbounds, level_sf, level_unit;
+ var_tile_t tiles = dummy_tiles;
+ grib_get_level(gh, &leveltype1, &leveltype2, &lbounds, &level1, &level2, &level_sf, &level_unit, &tiles);
+
+ CdiDateTime sDateTime;
+ CdiDateTime vDateTime = gribapiGetValidityDateTime(gh, &sDateTime);
+
+ if (rindex == nrecs) break;
+
+ gribapi_get_string(gh, "shortName", varname, sizeof(varname));
+
+ int param = gribapiGetParam(gh);
+
+ if (!varname[0]) param_to_name(param, varname);
+
+ if (rindex == 0)
+ {
+ vDateTime0 = vDateTime;
+ int taxisID = vlistInqTaxis(vlistID);
+ if (taxisInqType(taxisID) == TAXIS_RELATIVE)
+ {
+ taxis->type = TAXIS_RELATIVE;
+ taxis->unit = gribapi_get_timeunits(gh);
+ taxis->rDateTime = gribapiGetDataDateTime(gh);
+ }
+ else
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ }
+ taxis->fDateTime = taxis->rDateTime;
+ taxis->vDateTime = vDateTime;
+ taxis->sDateTime = sDateTime;
+ }
+ else
+ {
+ if (cdiDateTime_isLT(sDateTime, taxis->sDateTime)) taxis->sDateTime = sDateTime;
+ }
+
+ VarScanKeys scanKeys = gribapiGetScanKeys(gh);
+
+ int tsteptype = gribapiGetTsteptype(gh);
+ size_t gridsize = gribapiGetGridsize(gh);
+ compvar2_t compVar = gribapiVarSet(param, level1, level2, leveltype1, tsteptype, gridsize, varname, scanKeys, tiles);
+
+ for (vrecID = 0; vrecID < nrecs; vrecID++)
+ {
+ recID = streamptr->tsteps[1].recIDs[vrecID];
+ if (gribapiVarCompare(&compVar, &records[recID], 0) == 0) break;
+ }
+
+ if (vrecID == nrecs)
+ {
+ if (CDI_Inventory_Mode == 1)
+ {
+ gribWarning("Parameter not defined at timestep 1!", nrecsScanned, tsID + 1, varname, param, level1, level2);
+ return CDI_EUFSTRUCT;
+ }
+ else
+ {
+ gribWarning("Parameter not defined at timestep 1, skipped!", nrecsScanned, tsID + 1, varname, param, level1,
+ level2);
+ continue;
+ }
+ }
+
+ if (CDI_Inventory_Mode != 1)
+ {
+ if (records[recID].used)
+ {
+ if (cdiDateTime_isNE(vDateTime, vDateTime0)) break;
+
+ if (CDI_Debug)
+ gribWarning("Parameter already exist, skipped!", nrecsScanned, tsID + 1, varname, param, level1, level2);
+
+ continue;
+ }
+ }
+
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+
+ if (CDI_Debug)
+ Message("%4d %8lld %4d %8d %8s", rindex + 1, (long long) recpos, param, level1, CdiDateTime_string(vDateTime));
+
+ if (gribapiVarCompare(&compVar, &records[recID], 0) != 0)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, level1);
+ Error("Invalid, unsupported or inconsistent record structure");
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+
+ if (CDI_Debug) Message("%4d %8lld %4d %8d %s", rindex, (long long) recpos, param, level1, CdiDateTime_string(vDateTime));
+
+ grib_handle_delete(gh);
+ gh = NULL;
+ }
+
+ if (gh) grib_handle_delete(gh);
+
+ for (vrecID = 0; vrecID < nrecs; vrecID++)
+ {
+ recID = streamptr->tsteps[tsID].recIDs[vrecID];
+ if (!records[recID].used) break;
+ }
+
+ if (vrecID < nrecs)
+ {
+ gribWarning("Parameter not found!", nrecsScanned, tsID + 1, varname, records[recID].param, records[recID].ilevel,
+ records[recID].ilevel2);
+ return CDI_EUFSTRUCT;
+ }
+
+ streamptr->rtsteps++;
+
+ if (streamptr->ntsteps != streamptr->rtsteps)
+ {
+ tsID = tstepsNewEntry(streamptr);
+ if (tsID != streamptr->rtsteps) Error("Internal error. tsID = %d", tsID);
+
+ streamptr->tsteps[tsID - 1].next = true;
+ streamptr->tsteps[tsID].position = recpos;
+ }
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+ streamptr->tsteps[tsID].position = recpos;
+
+ streamptr->record->buffer = gribbuffer;
+ streamptr->record->buffersize = buffersize;
+ }
+
+ if (nrecs > 0 && nrecs < streamptr->tsteps[tsID].nrecs)
+ {
+ Warning("Incomplete timestep. Stop scanning at timestep %d.", tsID);
+ streamptr->ntsteps = tsID;
+ }
+
+ return streamptr->ntsteps;
+}
+
+#ifdef gribWarning
+#undef gribWarning
+#endif
+
+static void
+unpack_alternative_rows(grib_handle *gh, int memType, void *data)
+{
+ long xsize = 0, ysize = 0;
+ grib_get_long(gh, "Nx", &xsize);
+ grib_get_long(gh, "Ny", &ysize);
+
+ if (memType == MEMTYPE_FLOAT)
+ {
+ float *pdata = (float *) data;
+ for (int j = 1; j < ysize; j += 2)
+ for (int i = 0; i < xsize / 2; i++)
+ {
+ float tmp = pdata[j * xsize + i];
+ pdata[j * xsize + i] = pdata[j * xsize + xsize - i - 1];
+ pdata[j * xsize + xsize - i - 1] = tmp;
+ }
+ }
+ else
+ {
+ double *pdata = (double *) data;
+ for (int j = 1; j < ysize; j += 2)
+ for (int i = 0; i < xsize / 2; i++)
+ {
+ double tmp = pdata[j * xsize + i];
+ pdata[j * xsize + i] = pdata[j * xsize + xsize - i - 1];
+ pdata[j * xsize + xsize - i - 1] = tmp;
+ }
+ }
+}
+
+int
+gribapiDecode(int memType, void *gribbuffer, size_t gribsize, void *data, size_t gridsize, int unreduced, size_t *numMissVals,
+ double missval)
+{
+ int status = 0;
+
+ if (unreduced)
+ {
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ Warning("Conversion of gaussian reduced grids unsupported!");
+ }
+ }
+
+ size_t recsize = (size_t) gribsize;
+ grib_handle *gh = grib_handle_new_from_message(NULL, gribbuffer, recsize);
+ GRIB_CHECK(my_grib_set_double(gh, "missingValue", missval), 0);
+
+ // get the size of the values array
+ size_t datasize;
+ GRIB_CHECK(grib_get_size(gh, "values", &datasize), 0);
+ // long numberOfPoints;
+ // GRIB_CHECK(grib_get_long(gh, "numberOfPoints", &numberOfPoints), 0);
+ // printf("values_size = %d numberOfPoints = %ld\n", datasize, numberOfPoints);
+
+ if (datasize != gridsize) Error("numberOfPoint (%zu) and gridSize (%zu) differ!", datasize, gridsize);
+ size_t dummy = datasize;
+
+ if (memType == MEMTYPE_FLOAT)
+ {
+#ifdef HAVE_GRIBAPI_FLOAT_INTERFACE
+ GRIB_CHECK(grib_get_float_array(gh, "values", (float *) data, &dummy), 0);
+#else
+ Error("grib_get_float_array() not found!");
+#endif
+ }
+ else
+ {
+ GRIB_CHECK(grib_get_double_array(gh, "values", (double *) data, &dummy), 0);
+ }
+
+ if (gribEditionNumber(gh) > 1)
+ {
+ long alternativeRowScanning = false;
+ grib_get_long(gh, "alternativeRowScanning", &alternativeRowScanning);
+ if (alternativeRowScanning) unpack_alternative_rows(gh, memType, data);
+ }
+
+ long lpar;
+ GRIB_CHECK(grib_get_long(gh, "gridDefinitionTemplateNumber", &lpar), 0);
+ int gridtype = (int) lpar;
+
+ *numMissVals = 0;
+ if (gridtype < 50 || gridtype > 53)
+ {
+ GRIB_CHECK(grib_get_long(gh, "numberOfMissing", &lpar), 0);
+ *numMissVals = (int) lpar;
+ // printf("gridtype %d, numMissVals %d\n", gridtype, numMissVals);
+ }
+
+ grib_handle_delete(gh);
+
+ return status;
+}
+
+static void
+gribapiDefInstitut(grib_handle *gh, int vlistID, int varID)
+{
+ int instID = vlistInqInstitut(vlistID);
+
+ if (instID == CDI_UNDEFID) instID = vlistInqVarInstitut(vlistID, varID);
+
+ if (instID != CDI_UNDEFID)
+ {
+ long center = institutInqCenter(instID);
+ long subcenter = institutInqSubcenter(instID);
+
+ long center0, subcenter0;
+ GRIB_CHECK(grib_get_long(gh, "centre", ¢er0), 0);
+ GRIB_CHECK(grib_get_long(gh, "subCentre", &subcenter0), 0);
+
+ if (center != center0) GRIB_CHECK(my_grib_set_long(gh, "centre", center), 0);
+ if (subcenter != subcenter0) GRIB_CHECK(my_grib_set_long(gh, "subCentre", subcenter), 0);
+ }
+
+ int status;
+ int centre, subCentre;
+ status = cdiInqKeyInt(vlistID, CDI_GLOBAL, CDI_KEY_CENTRE, ¢re);
+ if (status == 0) grib_set_long(gh, "centre", centre);
+ status = cdiInqKeyInt(vlistID, CDI_GLOBAL, CDI_KEY_SUBCENTRE, &subCentre);
+ if (status == 0) grib_set_long(gh, "subCentre", subCentre);
+
+ status = cdiInqKeyInt(vlistID, varID, CDI_KEY_CENTRE, ¢re);
+ if (status == 0) grib_set_long(gh, "centre", centre);
+ status = cdiInqKeyInt(vlistID, varID, CDI_KEY_SUBCENTRE, &subCentre);
+ if (status == 0) grib_set_long(gh, "subCentre", subCentre);
+}
+
+static void
+gribapiDefModel(grib_handle *gh, int vlistID, int varID)
+{
+ int modelID = vlistInqModel(vlistID);
+ if (modelID == CDI_UNDEFID) modelID = vlistInqVarModel(vlistID, varID);
+
+ if (modelID != CDI_UNDEFID) GRIB_CHECK(my_grib_set_long(gh, "generatingProcessIdentifier", modelInqGribID(modelID)), 0);
+}
+
+static void
+gribapiDefParam(int editionNumber, grib_handle *gh, int param, const char *name, const char *stdname)
+{
+ bool ldefined = false;
+
+ int pdis, pcat, pnum;
+ cdiDecodeParam(param, &pnum, &pcat, &pdis);
+
+ if (pnum < 0)
+ {
+ size_t len = strlen(stdname);
+ if (len)
+ {
+ int status = my_grib_set_string(gh, "cfName", stdname, &len);
+ if (status == 0)
+ ldefined = true;
+ else
+ Warning("grib_api: No match for cfName=%s", stdname);
+ }
+
+ if (ldefined == false)
+ {
+ len = strlen(name);
+ int status = my_grib_set_string(gh, "shortName", name, &len);
+ if (status == 0)
+ ldefined = true;
+ else
+ Warning("grib_api: No match for shortName=%s", name);
+ }
+ }
+
+ if (ldefined == false)
+ {
+ if (pnum < 0) pnum = -pnum;
+
+ if (pnum > 255)
+ {
+ static bool lwarn_pnum = true;
+ if (lwarn_pnum)
+ {
+ Warning("Parameter number %d out of range (1-255), set to %d!", pnum, pnum % 256);
+ lwarn_pnum = false;
+ }
+ pnum = pnum % 256;
+ }
+
+ if (editionNumber <= 1)
+ {
+ static bool lwarn_pdis = true;
+ if (pdis != 255 && lwarn_pdis)
+ {
+ char paramstr[32];
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+ Warning("Can't convert GRIB2 parameter ID (%s) to GRIB1, set to %d.%d!", paramstr, pnum, pcat);
+ lwarn_pdis = false;
+ }
+
+ GRIB_CHECK(my_grib_set_long(gh, "table2Version", pcat), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "indicatorOfParameter", pnum), 0);
+ }
+ else
+ {
+ GRIB_CHECK(my_grib_set_long(gh, "discipline", pdis), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "parameterCategory", pcat), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "parameterNumber", pnum), 0);
+ }
+ }
+
+ // printf("param: %d.%d.%d %s\n", pnum, pcat, pdis, name);
+}
+
+static int
+getTimeunitFactor(int timeunit)
+{
+ switch (timeunit)
+ {
+ case TUNIT_SECOND: return 1;
+ case TUNIT_MINUTE: return 60;
+ case TUNIT_HOUR: return 3600;
+ case TUNIT_3HOURS: return 10800;
+ case TUNIT_6HOURS: return 21600;
+ case TUNIT_12HOURS: return 43200;
+ case TUNIT_DAY: return 86400;
+ }
+
+ return 3600;
+}
+
+static int
+grib2ProDefTempHasStatisticalDef(int proDefTempNum)
+{
+ switch (proDefTempNum)
+ {
+ case 8:
+ case 9:
+ case 10:
+ case 11:
+ case 12:
+ case 13:
+ case 14:
+ case 34:
+ case 42:
+ case 43:
+ case 46:
+ case 47:
+ case 61:
+ case 67:
+ case 68:
+ case 91:
+ case 1001:
+ case 1101:
+ case 40034: return 1;
+ }
+
+ return 0;
+}
+
+static int
+getUnitsOfTime(int timeunit)
+{
+ switch (timeunit)
+ {
+ case TUNIT_SECOND: return 13;
+ case TUNIT_MINUTE: return 0;
+ case TUNIT_HOUR: return 1;
+ case TUNIT_3HOURS: return 10;
+ case TUNIT_6HOURS: return 11;
+ case TUNIT_12HOURS: return 12;
+ case TUNIT_DAY: return 2;
+ }
+
+ return 1;
+}
+
+static void
+gribapiDefStepUnits(int editionNumber, grib_handle *gh, int timeunit, int proDefTempNum, int gcinit)
+{
+ if (!gcinit)
+ {
+ long unitsOfTime = getUnitsOfTime(timeunit);
+
+ grib_set_long(gh, "stepUnits", unitsOfTime);
+ if (editionNumber == 1)
+ {
+ grib_set_long(gh, "unitOfTimeRange", unitsOfTime);
+ }
+ else if (grib2ProDefTempHasStatisticalDef(proDefTempNum))
+ {
+ grib_set_long(gh, "indicatorOfUnitForTimeRange", unitsOfTime);
+ grib_set_long(gh, "indicatorOfUnitOfTimeRange", unitsOfTime);
+ }
+ else
+ {
+ // NOTE KNMI: HIRLAM model files LAMH_D11 are in grib1 and do NOT have key indicatorOfUnitForTimeRange
+ // Watch out for compatibility issues.
+ grib_set_long(gh, "indicatorOfUnitOfTimeRange", unitsOfTime);
+ }
+ }
+}
+
+static int
+gribapiDefSteptype(int editionNumber, grib_handle *gh, int productDefinitionTemplate, int typeOfGeneratingProcess, int tsteptype,
+ int gcinit)
+{
+ const char *stepType = "instant";
+ long proDefTempNum = 0;
+
+ if (tsteptype >= TSTEP_INSTANT && tsteptype <= TSTEP_SUM)
+ {
+ stepType = cdiGribAPI_ts_str_map[tsteptype].sname;
+ proDefTempNum = cdiGribAPI_ts_str_map[tsteptype].productionTemplate;
+ }
+
+ if (productDefinitionTemplate != -1)
+ proDefTempNum = productDefinitionTemplate;
+ else if (typeOfGeneratingProcess == 4)
+ proDefTempNum = (proDefTempNum == 8) ? 11 : 1;
+
+ if (!gcinit)
+ {
+ if (editionNumber > 1) GRIB_CHECK(my_grib_set_long(gh, "productDefinitionTemplateNumber", proDefTempNum), 0);
+ size_t len = strlen(stepType);
+ int status = my_grib_set_string(gh, "stepType", stepType, &len);
+ if (status != 0) GRIB_CHECK(my_grib_set_long(gh, "productDefinitionTemplateNumber", 0), 0);
+ }
+
+ return (int) proDefTempNum;
+}
+
+static void
+gribapiDefDateTimeAbs(int editionNumber, grib_handle *gh, CdiDateTime dateTime, int productDefinitionTemplate,
+ int typeOfGeneratingProcess, int tsteptype, int gcinit)
+{
+ (void) gribapiDefSteptype(editionNumber, gh, productDefinitionTemplate, typeOfGeneratingProcess, tsteptype, gcinit);
+
+ if (editionNumber > 1) GRIB_CHECK(my_grib_set_long(gh, "significanceOfReferenceTime", 0), 0);
+ if (editionNumber > 1) GRIB_CHECK(my_grib_set_long(gh, "stepRange", 0), 0);
+
+ if (cdiDateTime_isNull(dateTime)) dateTime.date = cdiDate_set(10101);
+ gribapiSetDataDateTime(gh, dateTime);
+}
+
+static int
+gribapiDefDateTimeRel(int editionNumber, grib_handle *gh, CdiDateTime fDateTime, CdiDateTime vDateTime, CdiDateTime sDateTime,
+ int productDefinitionTemplate, int typeOfGeneratingProcess, int tsteptype, int timeunit, int calendar,
+ int gcinit)
+{
+ int status = -1;
+
+ JulianDate julianDate1 = julianDate_encode(calendar, fDateTime);
+
+ if (cdiDateTime_isNull(vDateTime)) vDateTime = fDateTime;
+
+ JulianDate julianDate2 = julianDate_encode(calendar, vDateTime);
+ JulianDate julianDate = julianDate_sub(julianDate2, julianDate1);
+
+ int factor = getTimeunitFactor(timeunit);
+
+ if (!(int) (fmod(julianDate_to_seconds(julianDate), factor)))
+ {
+ int proDefTempNum
+ = gribapiDefSteptype(editionNumber, gh, productDefinitionTemplate, typeOfGeneratingProcess, tsteptype, gcinit);
+ gribapiDefStepUnits(editionNumber, gh, timeunit, proDefTempNum, gcinit);
+
+ long startStep = 0;
+ double endStepF = julianDate_to_seconds(julianDate) / factor;
+ long maxStep = (editionNumber > 1) ? INT_MAX : 65000;
+ if (endStepF > maxStep) return status;
+ long endStep = lround(endStepF);
+
+ bool hasStartDate = (tsteptype == TSTEP_RANGE || tsteptype == TSTEP_AVG || tsteptype == TSTEP_ACCUM || tsteptype == TSTEP_DIFF
+ || tsteptype == TSTEP_MIN || tsteptype == TSTEP_MAX || tsteptype == TSTEP_RMS || tsteptype == TSTEP_SD
+ || tsteptype == TSTEP_COV || tsteptype == TSTEP_RATIO || tsteptype == TSTEP_SUM);
+ if (!cdiDateTime_isNull(sDateTime) && hasStartDate)
+ {
+ julianDate2 = julianDate_encode(calendar, sDateTime);
+ startStep = lround(julianDate_to_seconds(julianDate_sub(julianDate2, julianDate1)) / factor);
+ }
+
+ if (editionNumber > 1) GRIB_CHECK(my_grib_set_long(gh, "significanceOfReferenceTime", 1), 0);
+ if (editionNumber > 1) GRIB_CHECK(my_grib_set_long(gh, "stepRange", 0), 0);
+
+ if (cdiDateTime_isNull(fDateTime)) fDateTime.date = cdiDate_set(10101);
+ gribapiSetDataDateTime(gh, fDateTime);
+
+ // printf(">>>>> tsteptype %d startStep %ld endStep %ld\n", tsteptype, startStep, endStep);
+
+ // Product Definition Template Number: defined in GRIB_API file 4.0.table point in time products:
+ if ((proDefTempNum >= 0 && proDefTempNum <= 7) || proDefTempNum == 55 || proDefTempNum == 40055) // Tile
+ startStep = endStep;
+
+ if (endStep < startStep) return status;
+
+ if (editionNumber == 1 && (startStep > 255 || endStep > 255))
+ {
+ startStep = 0;
+ endStep = 0;
+ }
+ else
+ {
+ status = 0;
+ }
+
+ if (editionNumber > 1) GRIB_CHECK(my_grib_set_long(gh, "forecastTime", startStep), 0);
+ // if ( editionNumber == 1 && startStep > 0) GRIB_CHECK(my_grib_set_long(gh, "startStep", startStep), 0);
+ if (editionNumber == 1) GRIB_CHECK(my_grib_set_long(gh, "startStep", startStep), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "endStep", endStep), 0);
+ }
+
+ return status;
+}
+
+static void
+gribapiDefTime(int editionNumber, int productDefinitionTemplate, int typeOfGeneratingProcess, grib_handle *gh,
+ CdiDateTime vDateTime, int tsteptype, int numavg, int taxisID, int gcinit)
+{
+ UNUSED(numavg);
+
+ int taxistype = (taxisID == -1) ? TAXIS_ABSOLUTE : taxisInqType(taxisID);
+
+ if (typeOfGeneratingProcess == 196)
+ {
+ vDateTime = cdiDateTime_set(10101, 0);
+ taxistype = TAXIS_ABSOLUTE;
+ }
+
+ if (taxistype == TAXIS_RELATIVE)
+ {
+ int timeunit = taxisInqTunit(taxisID);
+ int calendar = taxisInqCalendar(taxisID);
+
+ CdiDateTime fDateTime = taxisInqFdatetime(taxisID);
+ if (cdiDateTime_isNull(fDateTime)) fDateTime = taxisInqRdatetime(taxisID);
+ if (cdiDateTime_isLT(vDateTime, fDateTime)) fDateTime = vDateTime;
+
+ CdiDateTime sDateTime = taxisInqSdatetime(taxisID);
+
+ int status = gribapiDefDateTimeRel(editionNumber, gh, fDateTime, vDateTime, sDateTime, productDefinitionTemplate,
+ typeOfGeneratingProcess, tsteptype, timeunit, calendar, gcinit);
+ if (status != 0) taxistype = TAXIS_ABSOLUTE;
+ }
+
+ if (taxistype == TAXIS_ABSOLUTE)
+ gribapiDefDateTimeAbs(editionNumber, gh, vDateTime, productDefinitionTemplate, typeOfGeneratingProcess, tsteptype, gcinit);
+}
+
+static void
+gribapiDefGridRegular(grib_handle *gh, int gridID, int gridtype, bool gridIsRotated, bool gridIsCurvilinear, int uvRelativeToGrid)
+{
+ const char *mesg;
+ // clang-format off
+ if (gridtype == GRID_GAUSSIAN) mesg = "regular_gg";
+ else if (gridtype == GRID_GAUSSIAN_REDUCED) mesg = "reduced_gg";
+ else if (gridIsRotated) mesg = "rotated_ll";
+ else mesg = "regular_ll";
+ // clang-format on
+ size_t len = strlen(mesg);
+ GRIB_CHECK(my_grib_set_string(gh, "gridType", mesg, &len), 0);
+
+ double xfirst = 0.0, xlast = 0.0, xinc = 0.0;
+ double yfirst = 0.0, ylast = 0.0, yinc = 0.0;
+
+ size_t nlon = gridInqXsize(gridID);
+ size_t nlat = gridInqYsize(gridID);
+
+ if (gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ xfirst = (nlon == 2) ? gridInqXval(gridID, 0) : 0.0;
+ xlast = (nlon == 2) ? gridInqXval(gridID, 1) : 360.0 - 360.0 * 0.5 / (double) nlat;
+
+ nlon = 0;
+
+ int *reducedPoints = (int *) Malloc(nlat * sizeof(int));
+ long *pl = (long *) Malloc(nlat * sizeof(long));
+ gridInqReducedPoints(gridID, reducedPoints);
+ for (size_t i = 0; i < nlat; ++i) pl[i] = reducedPoints[i];
+
+ GRIB_CHECK(grib_set_long_array(gh, "pl", pl, nlat), 0);
+
+ Free(pl);
+ Free(reducedPoints);
+ }
+ else
+ {
+ if (nlon == 0)
+ nlon = 1;
+ else
+ {
+ xfirst = gridInqXval(gridID, 0);
+ xlast = gridInqXval(gridID, (gridIsCurvilinear ? nlon * nlat : nlon) - 1);
+ xinc = fabs(gridInqXinc(gridID));
+ }
+ }
+
+ if (nlat == 0)
+ nlat = 1;
+ else
+ {
+ yfirst = gridInqYval(gridID, 0);
+ ylast = gridInqYval(gridID, (gridIsCurvilinear ? nlon * nlat : nlat) - 1);
+ yinc = fabs(gridInqYinc(gridID));
+ }
+
+ double xfirsto = xfirst;
+ double xlasto = xlast;
+ while (xfirsto > 360.0) xfirsto -= 360.0;
+ while (xlasto > 360.0) xlasto -= 360.0;
+
+ if (gridtype != GRID_GAUSSIAN_REDUCED) GRIB_CHECK(my_grib_set_long(gh, "Ni", nlon), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "longitudeOfFirstGridPointInDegrees", xfirsto), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "longitudeOfLastGridPointInDegrees", xlasto), 0);
+ if (gridtype != GRID_GAUSSIAN_REDUCED) GRIB_CHECK(my_grib_set_double(gh, "iDirectionIncrementInDegrees", xinc), 0);
+
+ GRIB_CHECK(my_grib_set_long(gh, "Nj", (long) nlat), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "latitudeOfFirstGridPointInDegrees", yfirst), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "latitudeOfLastGridPointInDegrees", ylast), 0);
+
+ if (uvRelativeToGrid >= 0) GRIB_CHECK(my_grib_set_long(gh, "uvRelativeToGrid", uvRelativeToGrid), 0);
+
+ GRIB_CHECK(my_grib_set_long(gh, "iScansNegatively", (xfirst > xlast)), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "jScansPositively", (yfirst < ylast)), 0);
+
+ if (gridtype == GRID_GAUSSIAN || gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ int np = gridInqNP(gridID);
+ if (np == 0) np = nlat / 2;
+ GRIB_CHECK(my_grib_set_long(gh, "numberOfParallelsBetweenAPoleAndTheEquator", np), 0);
+ }
+ else
+ {
+ GRIB_CHECK(my_grib_set_double(gh, "jDirectionIncrementInDegrees", yinc), 0);
+ }
+
+ if (gridIsRotated)
+ {
+ double xpole = 0.0, ypole = 0.0, angle = 0.0;
+ gridInqParamRLL(gridID, &xpole, &ypole, &angle);
+
+ xpole += 180.0;
+ if (fabs(ypole) > 0.0) ypole = -ypole; // change from north to south pole
+ if (fabs(angle) > 0.0) angle = -angle;
+ GRIB_CHECK(my_grib_set_double(gh, "latitudeOfSouthernPoleInDegrees", ypole), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "longitudeOfSouthernPoleInDegrees", xpole), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "angleOfRotation", angle), 0);
+ }
+}
+
+static int
+encode_shapeOfTheEarth(struct CDI_GridProjParams *gpp)
+{
+ int shapeOfTheEarth = 1;
+ int a = (int) lround(gpp->a);
+ int b = (int) lround(gpp->b);
+ int rf = (int) lround(gpp->rf);
+
+ // clang-format off
+ if (a == 6367470) shapeOfTheEarth = 0;
+ else if (a == 6371229) shapeOfTheEarth = 6;
+ else if (a == 6371200) shapeOfTheEarth = 8;
+ else if (a == 6378160 && b == 6356775 && rf == 297) shapeOfTheEarth = 2;
+ else if (a == 6378137 && b == 6356752 && rf == 298) shapeOfTheEarth = 4;
+ // clang-format on
+
+ return shapeOfTheEarth;
+}
+
+static void
+gribapiDefGridLCC(grib_handle *gh, int editionNumber, int gridID, int uvRelativeToGrid)
+{
+ long xsize = (long) gridInqXsize(gridID);
+ long ysize = (long) gridInqYsize(gridID);
+
+ struct CDI_GridProjParams gpp;
+ gridInqParamsLCC(gridID, &gpp);
+ if (IS_EQUAL(gpp.x_0, gpp.mv) && IS_EQUAL(gpp.y_0, gpp.mv) && (IS_EQUAL(gpp.xval_0, gpp.mv) || IS_EQUAL(gpp.yval_0, gpp.mv)))
+ {
+ gpp.x_0 = gridInqXval(gridID, 0);
+ gpp.y_0 = gridInqYval(gridID, 0);
+ }
+ gridVerifyProjParamsLCC(&gpp);
+ if (gpp.xval_0 < 0.0) gpp.xval_0 += 360.0;
+ if (gpp.lon_0 < 0.0) gpp.lon_0 += 360.0;
+
+ bool isSouthPole = (gpp.lat_1 < 0.0);
+ if (isSouthPole)
+ {
+ gpp.lat_1 = -gpp.lat_2;
+ gpp.lat_2 = -gpp.lat_2;
+ }
+ int projflag = 0;
+ if (isSouthPole) gribbyte_set_bit(&projflag, 1);
+
+ double xinc = gridInqXinc(gridID);
+ double yinc = gridInqYinc(gridID);
+ if (IS_EQUAL(xinc, 0.0)) xinc = gridInqXincInMeter(gridID);
+ if (IS_EQUAL(yinc, 0.0)) yinc = gridInqYincInMeter(gridID);
+
+ static const char mesg[] = "lambert";
+ size_t len = sizeof(mesg) - 1;
+ GRIB_CHECK(my_grib_set_string(gh, "gridType", mesg, &len), 0);
+
+ GRIB_CHECK(my_grib_set_long(gh, "Nx", xsize), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "Ny", ysize), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "DxInMetres", fabs(xinc)), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "DyInMetres", fabs(yinc)), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "longitudeOfFirstGridPointInDegrees", gpp.xval_0), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "latitudeOfFirstGridPointInDegrees", gpp.yval_0), 0);
+ if (editionNumber > 1) GRIB_CHECK(my_grib_set_double(gh, "LaDInDegrees", gpp.lat_1), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "LoVInDegrees", gpp.lon_0), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "Latin1InDegrees", gpp.lat_1), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "Latin2InDegrees", gpp.lat_2), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "projectionCentreFlag", projflag), 0);
+
+ if (gpp.x_SP >= -180 && gpp.x_SP <= 360) GRIB_CHECK(my_grib_set_double(gh, "longitudeOfSouthernPoleInDegrees", gpp.x_SP), 0);
+ if (gpp.y_SP >= -90 && gpp.y_SP <= 90) GRIB_CHECK(my_grib_set_double(gh, "latitudeOfSouthernPoleInDegrees", gpp.y_SP), 0);
+
+ long shapeOfTheEarth = encode_shapeOfTheEarth(&gpp);
+ if (shapeOfTheEarth) GRIB_CHECK(my_grib_set_long(gh, "shapeOfTheEarth", shapeOfTheEarth), 0);
+ if (shapeOfTheEarth == 1) GRIB_CHECK(my_grib_set_long(gh, "radiusOfTheEarth", gpp.a), 0);
+
+ long earthIsOblate = (shapeOfTheEarth == 2 || shapeOfTheEarth == 3 || shapeOfTheEarth == 4);
+ if (earthIsOblate) GRIB_CHECK(my_grib_set_long(gh, "earthIsOblate", earthIsOblate), 0);
+
+ if (uvRelativeToGrid >= 0) GRIB_CHECK(my_grib_set_long(gh, "uvRelativeToGrid", uvRelativeToGrid), 0);
+
+ GRIB_CHECK(my_grib_set_long(gh, "iScansNegatively", (xinc < 0)), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "jScansPositively", (yinc > 0)), 0);
+}
+
+static void
+gribapiDefGridSTERE(grib_handle *gh, int gridID, int uvRelativeToGrid)
+{
+ long xsize = (long) gridInqXsize(gridID);
+ long ysize = (long) gridInqYsize(gridID);
+
+ struct CDI_GridProjParams gpp;
+ gridInqParamsSTERE(gridID, &gpp);
+ gridVerifyProjParamsSTERE(&gpp);
+ if (gpp.xval_0 < 0.0) gpp.xval_0 += 360.0;
+ int projflag = 0;
+
+ double xinc = gridInqXinc(gridID);
+ double yinc = gridInqYinc(gridID);
+
+ static const char mesg[] = "polar_stereographic";
+ size_t len = sizeof(mesg) - 1;
+ GRIB_CHECK(my_grib_set_string(gh, "gridType", mesg, &len), 0);
+
+ GRIB_CHECK(my_grib_set_long(gh, "Nx", xsize), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "Ny", ysize), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "DxInMetres", xinc), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "DyInMetres", yinc), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "longitudeOfFirstGridPointInDegrees", gpp.xval_0), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "latitudeOfFirstGridPointInDegrees", gpp.yval_0), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "LaDInDegrees", gpp.lat_1), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "orientationOfTheGridInDegrees", gpp.lon_0), 0);
+ long southPoleOnProjectionPlane = IS_EQUAL(gpp.lat_0, -90.0);
+ GRIB_CHECK(my_grib_set_double(gh, "southPoleOnProjectionPlane", southPoleOnProjectionPlane), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "projectionCentreFlag", projflag), 0);
+
+ long shapeOfTheEarth = encode_shapeOfTheEarth(&gpp);
+ if (shapeOfTheEarth) GRIB_CHECK(my_grib_set_long(gh, "shapeOfTheEarth", shapeOfTheEarth), 0);
+ if (shapeOfTheEarth == 1) GRIB_CHECK(my_grib_set_long(gh, "radiusOfTheEarth", gpp.a), 0);
+
+ long earthIsOblate = (shapeOfTheEarth == 2 || shapeOfTheEarth == 3 || shapeOfTheEarth == 4);
+ if (earthIsOblate) GRIB_CHECK(my_grib_set_long(gh, "earthIsOblate", earthIsOblate), 0);
+
+ if (uvRelativeToGrid >= 0) GRIB_CHECK(my_grib_set_long(gh, "uvRelativeToGrid", uvRelativeToGrid), 0);
+
+ GRIB_CHECK(my_grib_set_long(gh, "iScansNegatively", (xinc < 0)), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "jScansPositively", (yinc > 0)), 0);
+}
+
+static void
+gribapiDefGridHEALPIX(grib_handle *gh, int gridID, int uvRelativeToGrid)
+{
+ struct CDI_GridProjParams gpp;
+ gridInqParamsHEALPIX(gridID, &gpp);
+ gridVerifyProjParamsHEALPIX(&gpp);
+ // if (gpp.xval_0 < 0.0) gpp.xval_0 += 360.0;
+
+ static const char mesg[] = "healpix";
+ size_t len = sizeof(mesg) - 1;
+ GRIB_CHECK(my_grib_set_string(gh, "gridType", mesg, &len), 0);
+
+ GRIB_CHECK(my_grib_set_long(gh, "Nside", gpp.nside), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "ordering", gpp.order), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "longitudeOfFirstGridPointInDegrees", 45.0), 0);
+ // GRIB_CHECK(my_grib_set_double(gh, "longitudeOfFirstGridPointInDegrees", gpp.xval_0), 0);
+ /*
+ long shapeOfTheEarth = encode_shapeOfTheEarth(&gpp);
+ if (shapeOfTheEarth) GRIB_CHECK(my_grib_set_long(gh, "shapeOfTheEarth", shapeOfTheEarth), 0);
+ if (shapeOfTheEarth == 1) GRIB_CHECK(my_grib_set_long(gh, "radiusOfTheEarth", gpp.a), 0);
+
+ long earthIsOblate = (shapeOfTheEarth == 2 || shapeOfTheEarth == 3 || shapeOfTheEarth == 4);
+ if (earthIsOblate) GRIB_CHECK(my_grib_set_long(gh, "earthIsOblate", earthIsOblate), 0);
+ */
+ if (uvRelativeToGrid >= 0) GRIB_CHECK(my_grib_set_long(gh, "uvRelativeToGrid", uvRelativeToGrid), 0);
+}
+
+static void
+gribapiDefGridGME(grib_handle *gh, int gridID, long gridsize)
+{
+ GRIB_CHECK(my_grib_set_long(gh, "gridDefinitionTemplateNumber", GRIB2_GTYPE_GME), 0);
+
+ int nd = 0, ni = 0, ni2 = 0, ni3 = 0;
+ gridInqParamGME(gridID, &nd, &ni, &ni2, &ni3);
+ GRIB_CHECK(my_grib_set_long(gh, "nd", nd), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "Ni", ni), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "n2", ni2), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "n3", ni3), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "latitudeOfThePolePoint", 90000000), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "longitudeOfThePolePoint", 0), 0);
+
+ GRIB_CHECK(my_grib_set_long(gh, "numberOfDataPoints", gridsize), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "totalNumberOfGridPoints", gridsize), 0);
+}
+
+static void
+gribapiDefGridUnstructured(grib_handle *gh, int gridID)
+{
+ static bool warning = true;
+
+ int status = my_grib_set_long(gh, "gridDefinitionTemplateNumber", GRIB2_GTYPE_UNSTRUCTURED);
+ if (status != 0 && warning)
+ {
+ warning = false;
+ Warning("Can't write reference grid!");
+ Warning("gridDefinitionTemplateNumber %d not found (grib2/template.3.%d.def)!", GRIB2_GTYPE_UNSTRUCTURED,
+ GRIB2_GTYPE_UNSTRUCTURED);
+ }
+ else
+ {
+ int errCount = 0;
+ int number = 0;
+ status = cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDUSED, &number);
+ if (status < 0) errCount++;
+ if (number < 0) number = 0;
+ GRIB_CHECK(my_grib_set_long(gh, "numberOfGridUsed", number), 0);
+
+ int position = 0;
+ status = cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_NUMBEROFGRIDINREFERENCE, &position);
+ if (status < 0) errCount++;
+ if (position < 0) position = 0;
+ GRIB_CHECK(my_grib_set_long(gh, "numberOfGridInReference", position), 0);
+
+ unsigned char uuid[CDI_UUID_SIZE];
+ size_t len = CDI_UUID_SIZE;
+ memset(uuid, 0, len);
+ int length = CDI_UUID_SIZE;
+ status = cdiInqKeyBytes(gridID, CDI_GLOBAL, CDI_KEY_UUID, uuid, &length);
+ if (status < 0) errCount++;
+ if (grib_set_bytes(gh, "uuidOfHGrid", uuid, &len) != 0) Warning("Can't write UUID!");
+
+ if (warning && errCount > 0)
+ {
+ warning = false;
+ char uuidStr[uuidNumHexChars + 1] = { 0 };
+ cdiUUID2Str(uuid, uuidStr);
+ Warning("GRIB2 grid parameter missing: numberOfGridUsed=%d numberOfGridInReference=%d uuidOfHGrid=%s", number, position,
+ uuidStr);
+ }
+ }
+}
+
+static void
+gribapiDefGridSpectral(grib_handle *gh, int gridID)
+{
+ int trunc = gridInqTrunc(gridID);
+ enum
+ {
+ numTruncAtt = 3
+ };
+ static const char truncAttNames[numTruncAtt][2] = { "J", "K", "M" };
+ for (size_t i = 0; i < numTruncAtt; ++i) GRIB_CHECK(my_grib_set_long(gh, truncAttNames[i], trunc), 0);
+
+ if (gridInqComplexPacking(gridID))
+ {
+ static const char truncAttNames2[numTruncAtt][3] = { "JS", "KS", "MS" };
+ for (size_t i = 0; i < numTruncAtt; ++i) GRIB_CHECK(my_grib_set_long(gh, truncAttNames2[i], 20), 0);
+ }
+}
+
+static void
+gribapiDefPackingType(grib_handle *gh, bool lieee, bool lspectral, bool lcomplex, int comptype, size_t gridsize)
+{
+ static const char mesg_spectral_complex[] = "spectral_complex";
+ static const char mesg_spectral_simple[] = "spectral_simple";
+ static const char mesg_grid_jpeg[] = "grid_jpeg";
+ static const char mesg_grid_ccsds[] = "grid_ccsds";
+ static const char mesg_ieee[] = "grid_ieee";
+ static const char mesg_simple[] = "grid_simple";
+ const char *mesg = mesg_simple;
+
+ if (lspectral)
+ {
+ mesg = lcomplex ? mesg_spectral_complex : mesg_spectral_simple;
+ }
+ else if (comptype == CDI_COMPRESS_JPEG && gridsize > 1)
+ {
+ mesg = mesg_grid_jpeg;
+ }
+ else if ((comptype == CDI_COMPRESS_SZIP || comptype == CDI_COMPRESS_AEC) && gridsize > 1)
+ {
+ mesg = mesg_grid_ccsds;
+ }
+ else if (lieee)
+ {
+ mesg = mesg_ieee;
+ }
+
+ size_t len = strlen(mesg);
+ GRIB_CHECK(my_grib_set_string(gh, "packingType", mesg, &len), 0);
+}
+
+static void
+gribapiDefGrid(int editionNumber, grib_handle *gh, int gridID, int comptype, int datatype, int uvRelativeToGrid)
+{
+ size_t gridsize = gridInqSize(gridID);
+ bool gridIsRotated = false;
+ bool gridIsCurvilinear = false;
+ int gridtype = grbGetGridtype(&gridID, gridsize, &gridIsRotated, &gridIsCurvilinear);
+
+ bool lieee = (editionNumber == 2 && (datatype == CDI_DATATYPE_FLT32 || datatype == CDI_DATATYPE_FLT64));
+ bool lspectral = (gridtype == GRID_SPECTRAL);
+ bool lcomplex = (lspectral && gridInqComplexPacking(gridID));
+
+ if (lieee) comptype = 0;
+ if (lspectral) lieee = false;
+
+ if (lspectral) // gridType needs to be defined before packingType !!!
+ {
+ static const char mesg[] = "sh";
+ size_t len = sizeof(mesg) - 1;
+ GRIB_CHECK(my_grib_set_string(gh, "gridType", mesg, &len), 0);
+ }
+
+ gribapiDefPackingType(gh, lieee, lspectral, lcomplex, comptype, gridsize);
+
+ if (lieee) GRIB_CHECK(my_grib_set_long(gh, "precision", datatype == CDI_DATATYPE_FLT64 ? 2 : 1), 0);
+
+ if (editionNumber == 2) GRIB_CHECK(my_grib_set_long(gh, "numberOfValues", (long) gridsize), 0);
+
+ switch (gridtype)
+ {
+ case GRID_LONLAT:
+ case GRID_GAUSSIAN:
+ case GRID_GAUSSIAN_REDUCED:
+ case GRID_TRAJECTORY:
+ {
+ gribapiDefGridRegular(gh, gridID, gridtype, gridIsRotated, gridIsCurvilinear, uvRelativeToGrid);
+ break;
+ }
+ case CDI_PROJ_LCC:
+ {
+ gribapiDefGridLCC(gh, editionNumber, gridID, uvRelativeToGrid);
+ break;
+ }
+ case CDI_PROJ_STERE:
+ {
+ gribapiDefGridSTERE(gh, gridID, uvRelativeToGrid);
+ break;
+ }
+ case CDI_PROJ_HEALPIX:
+ {
+ if (editionNumber <= 1) Error("HEALPix grid can't be stored in GRIB edition %d!", editionNumber);
+ gribapiDefGridHEALPIX(gh, gridID, uvRelativeToGrid);
+ break;
+ }
+ case GRID_SPECTRAL:
+ {
+ gribapiDefGridSpectral(gh, gridID);
+ break;
+ }
+ case GRID_GME:
+ {
+ if (editionNumber <= 1) Error("GME grid can't be stored in GRIB edition %d!", editionNumber);
+ gribapiDefGridGME(gh, gridID, (long) gridsize);
+ break;
+ }
+ case GRID_UNSTRUCTURED:
+ {
+ if (editionNumber <= 1) Error("Unstructured grid can't be stored in GRIB edition %d!", editionNumber);
+ gribapiDefGridUnstructured(gh, gridID);
+ break;
+ }
+ default:
+ {
+ Error("Unsupported grid type: %s", gridNamePtr(gridtype));
+ break;
+ }
+ }
+}
+
+static void
+getLevelFactor(double level, long *factor, long *out_scaled_value)
+{
+ const double eps = 1.0e-7;
+
+ double scaled_value = level;
+ long iscaled_value = lround(scaled_value);
+
+ long i;
+ for (i = 0; (iscaled_value < (4294967295 / 10)) && (fabs(scaled_value - (double) iscaled_value) >= eps) && i < 7; i++)
+ {
+ scaled_value *= 10.0;
+ iscaled_value = lround(scaled_value);
+ }
+
+ (*factor) = i;
+ (*out_scaled_value) = iscaled_value;
+}
+
+static void
+gribapiDefLevelType(grib_handle *gh, int gcinit, const char *keyname, long leveltype)
+{
+ bool lset = false;
+ if ((leveltype == GRIB1_LTYPE_ISOBARIC_PA || leveltype == 99 || leveltype == 100) && gribEditionNumber(gh) == 1)
+ {
+ if (gribGetLong(gh, "indicatorOfTypeOfLevel") != leveltype) lset = true;
+ }
+
+ if (!gcinit || lset) GRIB_CHECK(my_grib_set_long(gh, keyname, leveltype), 0);
+}
+
+static void
+grib1DefLevel(grib_handle *gh, int gcinit, long leveltype1, long leveltype2, bool hasBounds, double level, double dlevel1,
+ double dlevel2)
+{
+ (void) leveltype2;
+ gribapiDefLevelType(gh, gcinit, "indicatorOfTypeOfLevel", leveltype1);
+
+ if (hasBounds)
+ {
+ GRIB_CHECK(my_grib_set_long(gh, "topLevel", lround(dlevel1)), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "bottomLevel", lround(dlevel2)), 0);
+ }
+ else
+ {
+ GRIB_CHECK(my_grib_set_long(gh, "level", lround(level)), 0);
+ }
+}
+
+static void
+grib2DefLevel(grib_handle *gh, int gcinit, long leveltype1, long leveltype2, bool hasBounds, double level, double dlevel1,
+ double dlevel2)
+{
+ gribapiDefLevelType(gh, gcinit, "typeOfFirstFixedSurface", leveltype1);
+ if (hasBounds) gribapiDefLevelType(gh, gcinit, "typeOfSecondFixedSurface", leveltype2);
+
+ if (!hasBounds) dlevel1 = level;
+
+ long scaled_level, factor;
+ getLevelFactor(dlevel1, &factor, &scaled_level);
+ GRIB_CHECK(my_grib_set_long(gh, "scaleFactorOfFirstFixedSurface", factor), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "scaledValueOfFirstFixedSurface", scaled_level), 0);
+
+ if (hasBounds)
+ {
+ getLevelFactor(dlevel2, &factor, &scaled_level);
+ GRIB_CHECK(my_grib_set_long(gh, "scaleFactorOfSecondFixedSurface", factor), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "scaledValueOfSecondFixedSurface", scaled_level), 0);
+ }
+}
+
+static void
+gribapiDefLevel(int editionNumber, grib_handle *gh, int zaxisID, int levelID, int gcinit, int proddef_template_num)
+{
+ int zaxistype = zaxisInqType(zaxisID);
+ int ltype = 0, ltype2 = -1;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE, <ype);
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_TYPEOFSECONDFIXEDSURFACE, <ype2);
+
+ bool hasBounds = (zaxisInqLbounds(zaxisID, NULL) && zaxisInqUbounds(zaxisID, NULL));
+ double level = zaxisInqLevels(zaxisID, NULL) ? zaxisInqLevel(zaxisID, levelID) : levelID + 1;
+ double dlevel1 = hasBounds ? zaxisInqLbound(zaxisID, levelID) : level;
+ double dlevel2 = hasBounds ? zaxisInqUbound(zaxisID, levelID) : 0.0;
+
+ if (zaxistype == ZAXIS_GENERIC && ltype == 0)
+ {
+ Warning("Changed zaxis type from %s to %s", zaxisNamePtr(zaxistype), zaxisNamePtr(ZAXIS_PRESSURE));
+ zaxistype = ZAXIS_PRESSURE;
+ zaxisChangeType(zaxisID, zaxistype);
+ cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, "Pa");
+ }
+
+ long grib_ltype;
+ {
+ int (*ltypeMap)(int grib_ltype) = editionNumber <= 1 ? zaxisTypeToGrib1ltype : zaxisTypeToGrib2ltype;
+ grib_ltype = ltypeMap(zaxistype);
+ }
+ long grib_ltype2 = (ltype != ltype2 && ltype2 != -1) ? ltype2 : grib_ltype;
+
+ void (*defLevel)(grib_handle * gh, int gcinit, long leveltype1, long leveltype2, bool hasBounds, double level, double dlevel1,
+ double dlevel2)
+ = (editionNumber <= 1) ? grib1DefLevel : grib2DefLevel;
+
+ switch (zaxistype)
+ {
+ case ZAXIS_SURFACE:
+ case ZAXIS_MEANSEA:
+ case ZAXIS_HEIGHT:
+ case ZAXIS_ALTITUDE:
+ case ZAXIS_SIGMA:
+ case ZAXIS_DEPTH_BELOW_SEA:
+ case ZAXIS_ISENTROPIC:
+ {
+ if (zaxistype == ZAXIS_HEIGHT)
+ {
+ double sf = zaxis_units_to_meter(zaxisID);
+ level *= sf;
+ dlevel1 *= sf;
+ dlevel2 *= sf;
+ }
+
+ /* GRIB2: PRODUCT DEFINITION TEMPLATE NUMBER 32:
+
+ "Analysis or forecast at a horizontal level or in a
+ horizontal layer at a point in time for simulate
+ (synthetic) satellite data"
+
+ The key/value pairs that are set in "grib2DefLevel" do not
+ exist for this template. */
+ if (editionNumber <= 1 || proddef_template_num != 32)
+ defLevel(gh, gcinit, grib_ltype, grib_ltype2, hasBounds, level, dlevel1, dlevel2);
+
+ break;
+ }
+ case ZAXIS_CLOUD_BASE:
+ case ZAXIS_CLOUD_TOP:
+ case ZAXIS_ISOTHERM_ZERO:
+ case ZAXIS_TROPOPAUSE:
+ case ZAXIS_TOA:
+ case ZAXIS_SEA_BOTTOM:
+ case ZAXIS_LAKE_BOTTOM:
+ case ZAXIS_SEDIMENT_BOTTOM:
+ case ZAXIS_SEDIMENT_BOTTOM_TA:
+ case ZAXIS_SEDIMENT_BOTTOM_TW:
+ case ZAXIS_MIX_LAYER:
+ case ZAXIS_ATMOSPHERE:
+ {
+ defLevel(gh, gcinit, grib_ltype, grib_ltype, hasBounds, level, dlevel1, dlevel2);
+ }
+ break;
+ case ZAXIS_HYBRID:
+ case ZAXIS_HYBRID_HALF:
+ {
+ if (editionNumber <= 1)
+ {
+ grib_ltype = hasBounds ? GRIB1_LTYPE_HYBRID_LAYER : GRIB1_LTYPE_HYBRID;
+ }
+ defLevel(gh, gcinit, grib_ltype, grib_ltype, hasBounds, level, dlevel1, dlevel2);
+
+ if (!gcinit)
+ {
+ int vctsize = zaxisInqVctSize(zaxisID);
+ if (vctsize > 0)
+ {
+ GRIB_CHECK(my_grib_set_long(gh, "PVPresent", 1), 0);
+ GRIB_CHECK(grib_set_double_array(gh, "pv", zaxisInqVctPtr(zaxisID), (size_t) vctsize), 0);
+ }
+ }
+
+ break;
+ }
+ case ZAXIS_PRESSURE:
+ {
+ if (level < 0) Warning("Pressure level of %f Pa is below zero!", level);
+
+ if (!zaxis_units_is_Pa(zaxisID))
+ {
+ level *= 100;
+ dlevel1 *= 100;
+ dlevel2 *= 100;
+ }
+
+ if (editionNumber <= 1)
+ {
+ double dum;
+ if (level < 32768 && (level < 100 || modf(level / 100, &dum) > 0))
+ grib_ltype = GRIB1_LTYPE_ISOBARIC_PA;
+ else
+ level /= 100;
+ }
+ else if (ltype2 == -1)
+ ltype2 = GRIB2_LTYPE_ISOBARIC;
+ defLevel(gh, gcinit, grib_ltype, ltype2, hasBounds, level, dlevel1, dlevel2);
+
+ break;
+ }
+ case ZAXIS_SNOW:
+ if (editionNumber <= 1)
+ ; // not available
+ else
+ {
+ grib2DefLevel(gh, gcinit, grib_ltype, grib_ltype, hasBounds, level, dlevel1, dlevel2);
+ }
+
+ break;
+ case ZAXIS_DEPTH_BELOW_LAND:
+ {
+ double sf = editionNumber <= 1 ? zaxis_units_to_centimeter(zaxisID) : zaxis_units_to_meter(zaxisID);
+ grib_ltype = editionNumber <= 1 ? (hasBounds ? GRIB1_LTYPE_LANDDEPTH_LAYER : GRIB1_LTYPE_LANDDEPTH) : grib_ltype;
+ defLevel(gh, gcinit, grib_ltype, grib_ltype, hasBounds, level * sf, dlevel1 * sf, dlevel2 * sf);
+
+ break;
+ }
+ case ZAXIS_REFERENCE:
+ {
+ if (!gcinit) GRIB_CHECK(my_grib_set_long(gh, "genVertHeightCoords", 1), 0);
+
+ if (editionNumber <= 1)
+ ; // not available
+ else
+ {
+ if (hasBounds)
+ {
+ gribapiDefLevelType(gh, gcinit, "typeOfFirstFixedSurface", grib_ltype);
+ gribapiDefLevelType(gh, gcinit, "typeOfSecondFixedSurface", grib_ltype2);
+ GRIB_CHECK(my_grib_set_long(gh, "topLevel", (long) dlevel1), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "bottomLevel", (long) dlevel2), 0);
+ }
+ else
+ {
+ grib2DefLevel(gh, gcinit, grib_ltype, grib_ltype2, hasBounds, level, dlevel1, dlevel2);
+ }
+
+ GRIB_CHECK(my_grib_set_long(gh, "NV", 6), 0);
+ int number = 0;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_NUMBEROFVGRIDUSED, &number);
+ GRIB_CHECK(my_grib_set_long(gh, "numberOfVGridUsed", number), 0);
+ int nlev = 0;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_NLEV, &nlev);
+ GRIB_CHECK(my_grib_set_long(gh, "nlev", nlev), 0);
+ unsigned char uuid[CDI_UUID_SIZE];
+ int length = CDI_UUID_SIZE;
+ memset(uuid, 0, length);
+ cdiInqKeyBytes(zaxisID, CDI_GLOBAL, CDI_KEY_UUID, uuid, &length);
+ size_t len = CDI_UUID_SIZE;
+ if (grib_set_bytes(gh, "uuidOfVGrid", uuid, &len) != 0) Warning("Can't write UUID!");
+ }
+
+ break;
+ }
+ case ZAXIS_GENERIC:
+ {
+ defLevel(gh, gcinit, ltype, ltype, hasBounds, level, dlevel1, dlevel2);
+ break;
+ }
+ default:
+ {
+ Error("Unsupported zaxis type: %s", zaxisNamePtr(zaxistype));
+ break;
+ }
+ }
+}
+
+int
+gribapiGetScanningMode(grib_handle *gh)
+{
+ long iScansNegatively, jScansPositively, jPointsAreConsecutive;
+ GRIB_CHECK(grib_get_long(gh, "iScansNegatively", &iScansNegatively), 0);
+ GRIB_CHECK(grib_get_long(gh, "jScansPositively", &jScansPositively), 0);
+ GRIB_CHECK(grib_get_long(gh, "jPointsAreConsecutive", &jPointsAreConsecutive), 0);
+ int scanningMode = 128 * (bool) iScansNegatively + 64 * (bool) jScansPositively + 32 * (bool) jPointsAreConsecutive;
+ if (cdiDebugExt >= 30)
+ printf("gribapiGetScanningMode(): Scanning mode = %02d (%1d%1d%1d)*32; \n", scanningMode, (int) jPointsAreConsecutive,
+ (int) jScansPositively, (int) iScansNegatively);
+
+ return scanningMode;
+}
+
+void
+gribapiSetScanningMode(grib_handle *gh, int scanningMode)
+{
+ // 127: reserved for testing; generated test data will be in 64 scanning mode
+ // if (scanningMode== 127) scanningMode = 64;
+
+ long iScansNegatively = (scanningMode & 128) / 128;
+ long jScansPositively = (scanningMode & 64) / 64;
+ long jPointsAreConsecutive = (scanningMode & 32) / 32;
+
+ if (cdiDebugExt >= 30 && gribEditionNumber(gh) <= 1)
+ {
+ long paramId, levelTypeId, levelId, uvRelativeToGrid;
+ GRIB_CHECK(grib_get_long(gh, "uvRelativeToGrid", &uvRelativeToGrid), 0);
+ GRIB_CHECK(grib_get_long(gh, "indicatorOfParameter", ¶mId), 0);
+ GRIB_CHECK(grib_get_long(gh, "indicatorOfTypeOfLevel", &levelTypeId), 0);
+ GRIB_CHECK(grib_get_long(gh, "level", &levelId), 0);
+ printf("gribapiSetScanningMode(): (param,ltype,level) = (%3d,%3d,%4d); Scanning mode = %02d (%1d%1d%1d)*32; "
+ "uvRelativeToGrid = %02d\n",
+ (int) paramId, (int) levelTypeId, (int) levelId, scanningMode, (int) jPointsAreConsecutive, (int) jScansPositively,
+ (int) iScansNegatively, (int) uvRelativeToGrid);
+ }
+
+ GRIB_CHECK(my_grib_set_long(gh, "iScansNegatively", iScansNegatively), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "jScansPositively", jScansPositively), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "jPointsAreConsecutive", jPointsAreConsecutive), 0);
+}
+
+/*
+ TABLE 8. SCANNING MODE FLAG
+
+ (GDS Octet 28)
+ BIT VALUE MEANING
+ 1 0 Points scan in +i direction
+ 1 Points scan in -i direction
+ 2 0 Points scan in -j direction
+ 1 Points scan in +j direction
+ 3 0 Adjacent points in i direction are consecutive
+ (FORTRAN: (I,J))
+ 1 Adjacent points in j direction are consecutive
+ (FORTRAN: (J,I))
+
+ => Scanning Mode 0 0 0 0 0 0 0 0 (00 dec) +i, -j; i direction consecutive (row-major order West->East & North->South)
+ => Scanning Mode 0 1 0 0 0 0 0 0 (64 dec) +i, +j; i direction consecutive (row-major order West->East & South->North )
+ => Scanning Mode 1 1 0 0 0 0 0 0 (96 dec) +i, +j; j direction consecutive (column-major order South->North & West->East )
+
+ NOTE: South->North - As if you would plot the data as image on the screen
+ where [0,0] of the data is the top-left pixel.
+
+ grib2ppm LAMH_D11_201302150000_00000_oro | display ppm:-
+ ImageMagick (display): [0,0] of an image belongs to the top-left pixel
+ [DEFAULT] : 64 dec
+
+ iScansNegatively = 0;
+ jScansPositively = 1;
+ jPointsAreConsecutive = 0; => Scanning Mode 64
+
+ cdo selindexbox,1,726,100,550 LAMH_D11_201302150000_00000_oro LAMH_D11_201302150000_00000_oro_cropped
+ grib2ppm LAMH_D11_201302150000_00000_oro_cropped | /usr/bin/display ppm:- &
+ # ^^^ this image will be missing the souther parts of data
+
+ grib2ppm LAMH_D11_201302150000_00000_oro | /usr/bin/display ppm:- &
+ # ^ full domain data
+*/
+
+#ifdef HIRLAM_EXTENSIONS
+static void
+verticallyFlipGridDefinitionWhenScanningModeChanged(grib_handle *gh, double yfirst, double ylast, double yinc)
+{
+ /*
+ Nj = 550;
+ latitudeOfFirstGridPointInDegrees = -30.8;
+ latitudeOfLastGridPointInDegrees = 24.1;
+ iScansNegatively = 0;
+ jScansPositively = 0;
+ jPointsAreConsecutive = 0;
+ jDirectionIncrementInDegrees = 0.1;
+
+ When switching from scanning mode 0 <=> 64
+ yfirst = -30.8 + (550-1)*0.1
+
+ yfirst = yfirst + (ysize-1) * yinc
+ yinc = -1.0*yinc
+ */
+
+ // long jDim=0;
+ // GRIB_CHECK(grib_get_long(gh, "Nj", &jDim), 0);
+
+ double latitudeOfFirstGridPointInDegrees;
+ double latitudeOfLastGridPointInDegrees;
+ double jDirectionIncrementInDegrees;
+
+ // GRIB_CHECK(grib_get_double(gh, "latitudeOfFirstGridPointInDegrees", &latitudeOfFirstGridPointInDegrees), 0); // yfirst
+ // GRIB_CHECK(grib_get_double(gh, "latitudeOfLastGridPointInDegrees", &latitudeOfLastGridPointInDegrees), 0); // ylast
+ // GRIB_CHECK(grib_get_double(gh, "jDirectionIncrementInDegrees", &jDirectionIncrementInDegrees), 0); // yinc
+
+ if (cdiDebugExt >= 10) Message(" BEFORE: yfirst = %f; ylast = %f; yinc = %f; ", yfirst, ylast, yinc);
+
+ GRIB_CHECK(my_grib_set_double(gh, "latitudeOfFirstGridPointInDegrees", ylast), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "latitudeOfLastGridPointInDegrees", yfirst), 0);
+ // yinc *= -1.0; // don't set yinc here ...
+ // GRIB_CHECK(my_grib_set_double(gh, "jDirectionIncrementInDegrees", yinc), 0);
+
+ if (cdiDebugExt >= 10)
+ {
+ GRIB_CHECK(grib_get_double(gh, "latitudeOfFirstGridPointInDegrees", &latitudeOfFirstGridPointInDegrees), 0); // yfirst
+ GRIB_CHECK(grib_get_double(gh, "latitudeOfLastGridPointInDegrees", &latitudeOfLastGridPointInDegrees), 0); // ylast
+ GRIB_CHECK(grib_get_double(gh, "jDirectionIncrementInDegrees", &jDirectionIncrementInDegrees), 0); // yinc
+ Message("CHANGED INTO: yfirst = %f, ylast = %f, yinc = %f", latitudeOfFirstGridPointInDegrees,
+ latitudeOfLastGridPointInDegrees, jDirectionIncrementInDegrees);
+ }
+}
+
+static void
+convertDataScanningMode(int scanModeIN, int scanModeOUT, double *data, size_t gridsize, size_t iDim, size_t jDim)
+{
+ size_t idxIN, idxOUT;
+
+ // 127: reserved for testing; it will generate test data in 64 scanning mode
+ if (scanModeOUT == 127) // fill with testdata ...
+ {
+ scanModeOUT = 64;
+ if (cdiDebugExt >= 30) printf("convertDataScanningMode(): Generating test data in 64 scanning mode..\n");
+ for (size_t j = 0; j < jDim; j++)
+ {
+ size_t jXiDim = j * iDim;
+ for (size_t i = 0; i < iDim; i++)
+ {
+ idxIN = i + jXiDim;
+ data[idxIN] = (double) (100.0 * j + i);
+ }
+ }
+ }
+
+ if ((iDim * jDim) != gridsize)
+ {
+ if (cdiDebugExt >= 30)
+ printf("convertDataScanningMode(): ERROR: (iDim*jDim)!= gridsize; (%zu * %zu) != %zu\n", iDim, jDim, gridsize);
+ return;
+ }
+ if (cdiDebugExt >= 30)
+ printf("convertDataScanningMode(): scanModeIN=%02d => scanModeOUT=%02d ; where: (iDim * jDim == gridsize) (%zu*%zu == %zu)\n",
+ scanModeIN, scanModeOUT, iDim, jDim, gridsize);
+
+ if (cdiDebugExt >= 100)
+ {
+ printf("convertDataScanningMode(): data IN:\n");
+ for (size_t j = 0; j < jDim; j++)
+ {
+ size_t jXiDim = j * iDim;
+ for (size_t i = 0; i < iDim; i++)
+ {
+ idxIN = i + jXiDim;
+ printf("%03.0f, ", data[idxIN]);
+ }
+ printf("\n");
+ }
+ }
+
+ if (scanModeIN == scanModeOUT)
+ {
+ if (cdiDebugExt >= 30) printf("convertDataScanningMode(): INFO: Nothing to do; scanModeIN==scanModeOUT..\n");
+ return;
+ }
+
+ if (0)
+ {
+ return;
+ if (scanModeOUT == 00)
+ {
+ if (cdiDebugExt > 0) printf("convertDataScanningMode(): Leave data unchaged BUT set scanModeOUT=00.\n");
+ // CHECK: Looks like that GRIB-API provide (no matter what) data in the scannning mode 00, even it is store in the
+ // gribfile as 64 !!
+ return;
+ }
+ }
+ double *dataCopy = (double *) Malloc(gridsize * sizeof(double));
+ memcpy((void *) dataCopy, (void *) data, gridsize * sizeof(double));
+
+ if (scanModeIN
+ == 64) // Scanning Mode (00 dec) +i, -j; i direction consecutive (row-major order West->East & South->North )
+ { // Scanning Mode (64 dec) +i, +j; i direction consecutive (row-major order West->East & North->South )
+ // Scanning Mode (96 dec) +i, +j; j direction consecutive (column-major order North->South & West->East )
+ if (scanModeOUT == 00)
+ // CHECK: Looks like that GRIB-API provide (no matter what) data in the scannning mode 00, even it is store in the gribfile
+ // as 64 !!
+#define VERTICAL_FLIP
+#ifdef VERTICAL_FLIP
+ { // flip the data vertically ..
+ idxIN = 0;
+ idxOUT = (jDim - 1) * iDim;
+ if (cdiDebugExt >= 30) printf("convertDataScanningMode(): copying rows nr. (%04d : %04zu)\n", 0, jDim - 1);
+ for (size_t j = 0; j < jDim; j++)
+ {
+ memcpy((void *) &data[idxOUT], (void *) &dataCopy[idxIN], iDim * sizeof(double));
+ idxIN += iDim;
+ idxOUT -= iDim;
+ }
+ } // end if (scanModeOUT==00)*/
+#endif
+#ifdef HORIZONTAL_FLIP
+ { // flip data horizontally ...
+ if (1)
+ {
+ if (cdiDebugExt >= 30) printf("convertDataScanningMode(): copying columns nr. (%04d : %04d);\n", 0, iDim - 1);
+ for (size_t i = 0; i < iDim; i++)
+ {
+ for (size_t j = 0; j < jDim; j++)
+ {
+ size_t jXiDim = j * iDim;
+ idxIN = i + jXiDim;
+ // data[idxIN] = (double) (100.0*j +i); // just some testdata ..
+ idxOUT = iDim - i - 1 + jXiDim;
+ // printf("[%03d=>%03d] = %f;",idxIN,idxOUT,dataCopy[idxIN]);
+ data[idxOUT] = dataCopy[idxIN];
+ }
+ }
+ }
+ } // end if (scanModeOUT==00)
+#endif
+
+ if (scanModeOUT == 96)
+ { // transpose the data
+ if (cdiDebugExt >= 30)
+ printf("convertDataScanningMode(): transpose data rows=>columns nr. (%04d : %04zu) => (%04d : %04zu);\n", 0, iDim - 1,
+ 0, jDim - 1);
+ for (size_t j = 0; j < jDim; j++)
+ {
+ size_t jXiDim = j * iDim;
+ for (size_t i = 0; i < iDim; i++)
+ {
+ idxIN = i + jXiDim;
+ idxOUT = j + i * jDim;
+ // printf("[%03d=>%03d] = %f;",idxIN,idxOUT,dataCopy[idxIN]);
+ data[idxOUT] = dataCopy[idxIN];
+ }
+ // printf(".\n");
+ }
+ } // end if (scanModeOUT==96)
+ } // end if (scanModeIN==64)
+
+ if (scanModeIN
+ == 00) // Scanning Mode (00 dec) +i, -j; i direction consecutive (row-major order West->East & South->North )
+ { // Scanning Mode (64 dec) +i, +j; i direction consecutive (row-major order West->East & North->South )
+ // Scanning Mode (96 dec) +i, +j; j direction consecutive (column-major order North->South & West->East )
+ if (scanModeOUT == 64)
+ { // flip the data vertically ..
+ idxIN = 0;
+ idxOUT = (jDim - 1) * iDim;
+ for (size_t j = 0; j < jDim; j++)
+ {
+ if (cdiDebugExt >= 25)
+ printf("convertDataScanningMode(): copying row nr. %04zu; [idxIN=%08zu] => [idxOUT=%08zu]\n", j, idxIN, idxOUT);
+ memcpy((void *) &data[idxOUT], (void *) &dataCopy[idxIN], iDim * sizeof(double));
+ idxIN += iDim;
+ idxOUT -= iDim;
+ }
+ } // end if (scanModeOUT==64)
+
+ if (scanModeOUT == 96)
+ { // transpose the data
+ size_t jInv;
+ for (size_t j = 0; j < jDim; j++)
+ {
+ if (cdiDebugExt >= 30) printf("convertDataScanningMode(): processing row nr. %04zu;\n", j);
+ jInv = (jDim - 1) - j;
+ for (size_t i = 0; i < iDim; i++) data[j + i * jDim] = dataCopy[i + jInv * iDim]; // source data has -j
+ }
+ } // end if (scanModeOUT==96)
+ } // end if (scanModeIN==00)
+
+ if (scanModeIN
+ == 96) // Scanning Mode (00 dec) +i, -j; i direction consecutive (row-major order West->East & South->North )
+ { // Scanning Mode (64 dec) +i, +j; i direction consecutive (row-major order West->East & North->South )
+ // Scanning Mode (96 dec) +i, +j; j direction consecutive (column-major order North->South & West->East )
+ if (scanModeOUT == 64)
+ { // transpose the data
+ for (size_t j = 0; j < jDim; j++)
+ {
+ if (cdiDebugExt >= 30) printf("convertDataScanningMode(): processing row nr. %04zu;\n", j);
+ size_t jXiDim = j * iDim;
+ for (size_t i = 0; i < iDim; i++)
+ // data[j + i*jDim] = dataCopy[i + j*iDim];
+ data[i + jXiDim] = dataCopy[j + i * jDim];
+ }
+ } // end if (scanModeOUT==64)
+
+ if (scanModeOUT == 00)
+ { // transpose the data
+ idxIN = 0;
+ idxOUT = 0;
+ size_t jInv;
+ for (size_t j = 0; j < jDim; j++)
+ {
+ if (cdiDebugExt >= 30) printf("convertDataScanningMode(): processing row nr. %04zu;\n", j);
+ jInv = (jDim - 1) - j;
+ size_t jXiDim = j * iDim;
+ for (size_t i = 0; i < iDim; i++)
+ // data[jInv + iXjDim] = dataCopy[i + jXiDim]; // target data has -j
+ data[i + jXiDim] = dataCopy[jInv + i * jDim]; // target data has -j
+ }
+ } // end if (scanModeOUT==00)
+ } // end if (scanModeIN==96)
+
+ if (cdiDebugExt >= 100)
+ {
+ printf("convertDataScanningMode(): data OUT (new scanning mode):\n");
+ for (size_t j = 0; j < jDim; j++)
+ {
+ size_t jXiDim = j * iDim;
+ for (size_t i = 0; i < iDim; i++)
+ {
+ idxIN = i + jXiDim;
+ printf("%03.0f, ", data[idxIN]);
+ }
+ printf("\n");
+ }
+ }
+
+ free(dataCopy);
+}
+#endif // HIRLAM_EXTENSIONS
+
+static void
+gribapiSetExtMode(grib_handle *gh, int gridID, size_t datasize, const void *data)
+{
+#ifndef HIRLAM_EXTENSIONS
+ (void) gh;
+ (void) data;
+ (void) datasize;
+#endif
+ int gridtype = gridInqType(gridID);
+ if (gridtype == GRID_PROJECTION)
+ {
+ int projtype = gridInqProjType(gridID);
+ // clang-format off
+ if (projtype == CDI_PROJ_RLL) gridtype = GRID_LONLAT;
+ else if (projtype == CDI_PROJ_LCC) gridtype = CDI_PROJ_LCC;
+ else if (projtype == CDI_PROJ_STERE) gridtype = CDI_PROJ_STERE;
+ // clang-format on
+ }
+
+ if (gridtype == GRID_GENERIC || gridtype == GRID_LONLAT || gridtype == GRID_GAUSSIAN || gridtype == GRID_GAUSSIAN_REDUCED
+ || gridtype == CDI_PROJ_LCC)
+ {
+#ifdef HIRLAM_EXTENSIONS
+ int scanModeIN = 0;
+ cdiInqKeyInt(gridID, CDI_GLOBAL, CDI_KEY_SCANNINGMODE, &scanModeIN);
+
+ if (cdiDebugExt >= 100) Message("scanModeIN=%d; gridsize=%zu", scanModeIN, gridInqSize(gridID));
+
+ if (cdiGribDataScanningMode.active) // allowed modes: <0, 64, 96>; Default is 64
+ {
+ size_t iDim = gridInqXsize(gridID);
+ size_t jDim = gridInqYsize(gridID);
+
+ double yfirst = gridInqYval(gridID, 0);
+ double ylast = gridInqYval(gridID, jDim - 1);
+ double yinc = gridInqYinc(gridID);
+
+ int scanModeOUT = cdiGribDataScanningMode.value;
+ convertDataScanningMode(scanModeIN, scanModeOUT, (double *) data, datasize, iDim, jDim);
+ // This will overrule the old scanning mode of the given grid
+ if (cdiDebugExt >= 10) Message("Set GribDataScanningMode (%d) => (%d)", scanModeIN, cdiGribDataScanningMode.value);
+ gribapiSetScanningMode(gh, cdiGribDataScanningMode.value);
+
+ if (((scanModeIN == 00) && (cdiGribDataScanningMode.value == 64))
+ || ((scanModeIN == 64) && (cdiGribDataScanningMode.value == 00)))
+ verticallyFlipGridDefinitionWhenScanningModeChanged(gh, yfirst, ylast, yinc);
+ }
+ else
+ {
+ if (cdiDebugExt >= 100) Message("Set GribDataScanningMode => (%d) based on used grid", scanModeIN);
+ gribapiSetScanningMode(gh, scanModeIN);
+ }
+#endif
+ }
+}
+
+// #define GRIBAPIENCODETEST 1
+
+size_t
+gribapiEncode(int memType, int varID, int levelID, int vlistID, int gridID, int zaxisID, CdiDateTime vDateTime, int tsteptype,
+ int numavg, size_t datasize, const void *data, size_t numMissVals, void **gribbuffer, size_t *gribbuffersize,
+ int comptype, void *gribContainer)
+{
+ long editionNumber = 2;
+
+ // extern unsigned char _grib_template_GRIB2[];
+ cdi_check_gridsize_int_limit("GRIB", datasize);
+
+ int param = vlistInqVarParam(vlistID, varID);
+ int datatype = vlistInqVarDatatype(vlistID, varID);
+ int typeOfGeneratingProcess = 0;
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_TYPEOFGENERATINGPROCESS, &typeOfGeneratingProcess);
+ int productDefinitionTemplate = -1;
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_PRODUCTDEFINITIONTEMPLATE, &productDefinitionTemplate);
+
+ int uvRelativeToGrid = -1;
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_UVRELATIVETOGRID, &uvRelativeToGrid);
+
+#ifdef GRIBAPIENCODETEST
+ grib_handle *gh = (grib_handle *) gribHandleNew(editionNumber);
+#else
+ gribContainer_t *gc = (gribContainer_t *) gribContainer;
+ assert(gc != NULL);
+ grib_handle *gh = (struct grib_handle *) gc->gribHandle;
+#endif
+
+ GRIB_CHECK(grib_get_long(gh, "editionNumber", &editionNumber), 0);
+
+ if (editionNumber == 2)
+ {
+ if (!gc->init)
+ {
+ int backgroundProcess = 0;
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_BACKGROUNDPROCESS, &backgroundProcess);
+ GRIB_CHECK(my_grib_set_long(gh, "typeOfGeneratingProcess", typeOfGeneratingProcess), 0);
+ GRIB_CHECK(my_grib_set_long(gh, "backgroundProcess", backgroundProcess), 0);
+ int status, tablesVersion, localTablesVersion;
+ status = cdiInqKeyInt(vlistID, varID, CDI_KEY_TABLESVERSION, &tablesVersion);
+ if (status == 0) GRIB_CHECK(my_grib_set_long(gh, "tablesVersion", (long) tablesVersion), 0);
+ status = cdiInqKeyInt(vlistID, varID, CDI_KEY_LOCALTABLESVERSION, &localTablesVersion);
+ if (status == 0) GRIB_CHECK(my_grib_set_long(gh, "localTablesVersion", (long) localTablesVersion), 0);
+ int typeOfProcessedData = 0;
+ status = cdiInqKeyInt(vlistID, varID, CDI_KEY_TYPEOFPROCESSEDDATA, &typeOfProcessedData);
+ if (status == 0) GRIB_CHECK(my_grib_set_long(gh, "typeOfProcessedData", (long) typeOfProcessedData), 0);
+ /*
+ int constituentType = 0;
+ status = cdiInqKeyInt(vlistID, varID, CDI_KEY_CONSTITUENTTYPE, &constituentType);
+ if ( status == 0 ) GRIB_CHECK(my_grib_set_long(gh, "constituentType", (long)constituentType), 0);
+ */
+ }
+ }
+
+ gribapiDefTime((int) editionNumber, productDefinitionTemplate, typeOfGeneratingProcess, gh, vDateTime, tsteptype, numavg,
+ vlistInqTaxis(vlistID), gc->init);
+
+ {
+ int typeOfTimeIncrement = 0;
+ int status = cdiInqKeyInt(vlistID, varID, CDI_KEY_TYPEOFTIMEINCREMENT, &typeOfTimeIncrement);
+ if (status == 0) grib_set_long(gh, "typeOfTimeIncrement", (long) typeOfTimeIncrement);
+ }
+
+ {
+ int status, perturbationNumber, numberOfForecastsInEnsemble, typeOfEnsembleForecast;
+ status = cdiInqKeyInt(vlistID, varID, CDI_KEY_NUMBEROFFORECASTSINENSEMBLE, &numberOfForecastsInEnsemble);
+ if (status == 0) grib_set_long(gh, "numberOfForecastsInEnsemble", numberOfForecastsInEnsemble);
+ status = cdiInqKeyInt(vlistID, varID, CDI_KEY_PERTURBATIONNUMBER, &perturbationNumber);
+ if (status == 0) grib_set_long(gh, "perturbationNumber", perturbationNumber);
+ status = cdiInqKeyInt(vlistID, varID, CDI_KEY_TYPEOFENSEMBLEFORECAST, &typeOfEnsembleForecast);
+ if (status == 0) grib_set_long(gh, "typeOfEnsembleForecast", typeOfEnsembleForecast);
+ }
+
+ if (!gc->init) gribapiDefInstitut(gh, vlistID, varID);
+ if (!gc->init) gribapiDefModel(gh, vlistID, varID);
+
+ if (!gc->init)
+ {
+ char name[256], stdname[256];
+ vlistInqVarName(vlistID, varID, name);
+ vlistInqVarStdname(vlistID, varID, stdname);
+ gribapiDefParam((int) editionNumber, gh, param, name, stdname);
+ }
+
+ if (!gc->init && editionNumber == 2)
+ {
+ int shapeOfTheEarth = 0;
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_SHAPEOFTHEEARTH, &shapeOfTheEarth);
+ GRIB_CHECK(my_grib_set_long(gh, "shapeOfTheEarth", (long) shapeOfTheEarth), 0);
+
+ int grib2LocalSectionNumber, section2PaddingLength;
+ int mpimType, mpimClass, mpimUser;
+ if (cdiInqKeyInt(vlistID, varID, CDI_KEY_MPIMTYPE, &mpimType) == CDI_NOERR
+ && cdiInqKeyInt(vlistID, varID, CDI_KEY_MPIMCLASS, &mpimClass) == CDI_NOERR
+ && cdiInqKeyInt(vlistID, varID, CDI_KEY_MPIMUSER, &mpimUser) == CDI_NOERR)
+ {
+ grib_set_long(gh, "grib2LocalSectionPresent", 1);
+ grib_set_long(gh, "grib2LocalSectionNumber", 1);
+ grib_set_long(gh, "mpimType", mpimType);
+ grib_set_long(gh, "mpimClass", mpimClass);
+ grib_set_long(gh, "mpimUser", mpimUser);
+
+ int revNumLen = 20;
+ unsigned char revNumber[revNumLen];
+ if (cdiInqKeyBytes(vlistID, varID, CDI_KEY_REVNUMBER, revNumber, &revNumLen) == CDI_NOERR)
+ {
+ size_t revNumLenS = revNumLen;
+ grib_set_bytes(gh, "revNumber", revNumber, &revNumLenS);
+ }
+ int revStatus;
+ if (cdiInqKeyInt(vlistID, varID, CDI_KEY_REVSTATUS, &revStatus) == CDI_NOERR) grib_set_long(gh, "revStatus", revStatus);
+ }
+ else if (cdiInqKeyInt(vlistID, varID, CDI_KEY_GRIB2LOCALSECTIONNUMBER, &grib2LocalSectionNumber) == CDI_NOERR
+ && cdiInqKeyInt(vlistID, varID, CDI_KEY_SECTION2PADDINGLENGTH, §ion2PaddingLength) == CDI_NOERR)
+ {
+ grib_set_long(gh, "grib2LocalSectionPresent", 1);
+ grib_set_long(gh, "grib2LocalSectionNumber", grib2LocalSectionNumber);
+ unsigned char *section2Padding = (unsigned char *) Malloc(section2PaddingLength);
+ cdiInqKeyBytes(vlistID, varID, CDI_KEY_SECTION2PADDING, section2Padding, §ion2PaddingLength);
+ size_t len = section2PaddingLength;
+ // Does not work anymore with ecCodes 2.22.0/2.25.0!!!
+ // ECCODES ERROR : pack_bytes: Wrong size (10) for section2Padding. It is 0 bytes long
+ grib_set_bytes(gh, "section2Padding", section2Padding, &len);
+ Free(section2Padding);
+ }
+ }
+
+ // bitsPerValue have to be defined first (complex packing)
+ GRIB_CHECK(my_grib_set_long(gh, "bitsPerValue", (long) grbBitsPerValue(datatype)), 0);
+
+ if (!gc->init) gribapiDefGrid((int) editionNumber, gh, gridID, comptype, datatype, uvRelativeToGrid);
+
+ gribapiDefLevel((int) editionNumber, gh, zaxisID, levelID, gc->init, productDefinitionTemplate);
+
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ int zaxisSize = zaxisInqSize(zaxisID);
+ // if (!gc->init)
+ {
+ int ret = 0;
+
+ // NOTE: Optional key/value pairs: Note that we do not distinguish between tiles here!
+
+ for (int i = 0; i < vlistptr->vars[varID].opt_grib_nentries; i++)
+ {
+ if (vlistptr->vars[varID].opt_grib_kvpair[i].update)
+ {
+ // DR: Fix for multi-level fields (otherwise only the 1st level is correct)
+ if (zaxisSize == (levelID + 1)) vlistptr->vars[varID].opt_grib_kvpair[i].update = false;
+
+ if (vlistptr->vars[varID].opt_grib_kvpair[i].data_type == t_double)
+ {
+ if (CDI_Debug)
+ Message("key \"%s\" : double value = %g", vlistptr->vars[varID].opt_grib_kvpair[i].keyword,
+ vlistptr->vars[varID].opt_grib_kvpair[i].dbl_val);
+ my_grib_set_double(gh, vlistptr->vars[varID].opt_grib_kvpair[i].keyword,
+ vlistptr->vars[varID].opt_grib_kvpair[i].dbl_val);
+ GRIB_CHECK(ret, 0);
+ }
+ if (vlistptr->vars[varID].opt_grib_kvpair[i].data_type == t_int)
+ {
+ if (CDI_Debug)
+ Message("key \"%s\" : integer value = %d", vlistptr->vars[varID].opt_grib_kvpair[i].keyword,
+ vlistptr->vars[varID].opt_grib_kvpair[i].int_val);
+ my_grib_set_long(gh, vlistptr->vars[varID].opt_grib_kvpair[i].keyword,
+ (long) vlistptr->vars[varID].opt_grib_kvpair[i].int_val);
+ GRIB_CHECK(ret, 0);
+ }
+ }
+ }
+ }
+
+ if (numMissVals > 0)
+ {
+ GRIB_CHECK(my_grib_set_long(gh, "bitmapPresent", 1), 0);
+ GRIB_CHECK(my_grib_set_double(gh, "missingValue", vlistInqVarMissval(vlistID, varID)), 0);
+ }
+
+ gribapiSetExtMode(gh, gridID, datasize, data);
+
+ if (memType == MEMTYPE_FLOAT)
+ {
+#ifdef HAVE_GRIBAPI_FLOAT_INTERFACE
+ GRIB_CHECK(grib_set_float_array(gh, "values", (const float *) data, datasize), 0);
+#else
+ Error("grib_set_float_array() not found!");
+#endif
+ }
+ else
+ {
+ GRIB_CHECK(grib_set_double_array(gh, "values", (const double *) data, datasize), 0);
+ }
+
+ if (numMissVals)
+ {
+ long numberOfMissing = -1;
+ GRIB_CHECK(grib_get_long(gh, "numberOfMissing", &numberOfMissing), 0);
+ if (numberOfMissing == 0) GRIB_CHECK(my_grib_set_long(gh, "bitmapPresent", 0), 0);
+ }
+
+ // get the size of coded message
+ const void *dummy = NULL;
+ size_t recsize = 0;
+ GRIB_CHECK(grib_get_message(gh, &dummy, &recsize), 0);
+ recsize += 512; // add some space for possible filling
+ *gribbuffersize = recsize;
+ *gribbuffer = Malloc(*gribbuffersize);
+
+ if (CDI_Debug && !gc->init && editionNumber == 2)
+ {
+ long pdis;
+ grib_get_long(gh, "discipline", &pdis);
+ if (pdis != 255)
+ {
+ char cdi_name[CDI_MAX_NAME];
+ cdi_name[0] = 0;
+ vlistInqVarName(vlistID, varID, cdi_name);
+ char grb_name[256];
+ gribapi_get_string(gh, "shortName", grb_name, sizeof(grb_name));
+ str_to_lower(cdi_name);
+ str_to_lower(grb_name);
+ bool checkName = (!grb_name[0] && strncmp(cdi_name, "param", 5) == 0) ? false : true;
+ if (checkName && ((strlen(cdi_name) != strlen(grb_name)) || !strStartsWith(cdi_name, grb_name)))
+ Warning("*** GRIB2 shortName does not correspond to chosen variable name: \"%s\" (\"%s\").",
+ grb_name[0] ? grb_name : "unknown", cdi_name);
+ }
+ }
+
+ // get a copy of the coded message
+ GRIB_CHECK(grib_get_message_copy(gh, *gribbuffer, &recsize), 0);
+
+#ifdef GRIBAPIENCODETEST
+ gribHandleDelete(gh);
+#endif
+
+ gc->init = true;
+
+ return recsize;
+}
+
+void
+gribapiChangeParameterIdentification(grib_handle *gh, int code, int ltype, int level)
+{
+ // timeRangeIndicator: could be included later
+ if (gribEditionNumber(gh) <= 1)
+ {
+ if (code != -1) GRIB_CHECK(my_grib_set_long(gh, "indicatorOfParameter", code), 0);
+ if (ltype != -1) GRIB_CHECK(my_grib_set_long(gh, "indicatorOfTypeOfLevel", ltype), 0);
+ if (level != -1) GRIB_CHECK(my_grib_set_long(gh, "level", level), 0);
+ }
+}
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <float.h>
+
+
+
+#ifdef HAVE_LIBIEG
+
+static int
+iegInqDatatype(int prec)
+{
+ return (prec == EXSE_DOUBLE_PRECISION) ? CDI_DATATYPE_FLT64 : CDI_DATATYPE_FLT32;
+}
+
+static int
+iegDefDatatype(int datatype)
+{
+ if (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64) Error("CDI/IEG library does not support complex numbers!");
+
+ if (datatype != CDI_DATATYPE_FLT32 && datatype != CDI_DATATYPE_FLT64) datatype = CDI_DATATYPE_FLT32;
+
+ return (datatype == CDI_DATATYPE_FLT64) ? EXSE_DOUBLE_PRECISION : EXSE_SINGLE_PRECISION;
+}
+
+static void
+ieg_read_recordSP(stream_t *streamptr, float *data, size_t *numMissVals)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsID = streamptr->curTsID;
+
+ int vrecID = streamptr->tsteps[tsID].curRecID;
+ int recID = streamptr->tsteps[tsID].recIDs[vrecID];
+ int varID = streamptr->tsteps[tsID].records[recID].varID;
+ off_t recpos = streamptr->tsteps[tsID].records[recID].position;
+
+ fileSetPos(fileID, recpos, SEEK_SET);
+
+ void *iegp = streamptr->record->objectp;
+ if (iegRead(fileID, iegp) < 0) Error("Could not read IEG record!");
+
+ iegInqDataSP(iegp, data);
+
+ double missval = vlistInqVarMissval(vlistID, varID);
+ size_t size = gridInqSize(vlistInqVarGrid(vlistID, varID));
+
+ *numMissVals = get_num_missvalsSP(size, data, missval);
+
+ streamptr->numvals += size;
+}
+
+static void
+ieg_read_recordDP(stream_t *streamptr, double *data, size_t *numMissVals)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsID = streamptr->curTsID;
+
+ int vrecID = streamptr->tsteps[tsID].curRecID;
+ int recID = streamptr->tsteps[tsID].recIDs[vrecID];
+ int varID = streamptr->tsteps[tsID].records[recID].varID;
+ off_t recpos = streamptr->tsteps[tsID].records[recID].position;
+
+ fileSetPos(fileID, recpos, SEEK_SET);
+
+ void *iegp = streamptr->record->objectp;
+ if (iegRead(fileID, iegp) < 0) Error("Could not read IEG record!");
+
+ iegInqDataDP(iegp, data);
+
+ double missval = vlistInqVarMissval(vlistID, varID);
+ size_t size = gridInqSize(vlistInqVarGrid(vlistID, varID));
+
+ *numMissVals = get_num_missvalsDP(size, data, missval);
+
+ streamptr->numvals += size;
+}
+
+void
+ieg_read_record(stream_t *streamptr, int memtype, void *data, size_t *numMissVals)
+{
+ if (memtype == MEMTYPE_DOUBLE)
+ ieg_read_recordDP(streamptr, (double *) data, numMissVals);
+ else
+ ieg_read_recordSP(streamptr, (float *) data, numMissVals);
+}
+
+static int
+iegGetZaxisType(int iegleveltype)
+{
+ // clang-format off
+ switch (iegleveltype)
+ {
+ case IEG_LTYPE_SURFACE: return ZAXIS_SURFACE;
+ case IEG_LTYPE_99:
+ case IEG_LTYPE_ISOBARIC: return ZAXIS_PRESSURE;
+ case IEG_LTYPE_HEIGHT: return ZAXIS_HEIGHT;
+ case IEG_LTYPE_ALTITUDE: return ZAXIS_ALTITUDE;
+ case IEG_LTYPE_HYBRID:
+ case IEG_LTYPE_HYBRID_LAYER: return ZAXIS_HYBRID;
+ case IEG_LTYPE_LANDDEPTH:
+ case IEG_LTYPE_LANDDEPTH_LAYER: return ZAXIS_DEPTH_BELOW_LAND;
+ case IEG_LTYPE_SEADEPTH: return ZAXIS_DEPTH_BELOW_SEA;
+ }
+ // clang-format on
+ return ZAXIS_GENERIC;
+}
+
+static void
+iegDefTime(int *pdb, CdiDateTime datetime, int taxisID)
+{
+ int timetype = (taxisID != -1) ? taxisInqType(taxisID) : -1;
+ if (timetype == TAXIS_ABSOLUTE || timetype == TAXIS_RELATIVE)
+ {
+ IEG_P_Year(pdb) = datetime.date.year;
+ IEG_P_Month(pdb) = datetime.date.month;
+ IEG_P_Day(pdb) = datetime.date.day;
+ IEG_P_Hour(pdb) = datetime.time.hour;
+ IEG_P_Minute(pdb) = datetime.time.minute;
+
+ pdb[15] = 1;
+ pdb[16] = 0;
+ pdb[17] = 0;
+ pdb[18] = 10;
+ pdb[36] = 1;
+ }
+
+ pdb[5] = 128;
+}
+
+/* find smallest power of 10 in [1000,10000000] that upon multiplication results in fractional part
+ close to zero for all arguments */
+static double
+calc_resfac(double xfirst, double xlast, double xinc, double yfirst, double ylast, double yinc)
+{
+ double resfac = 1000.0;
+ enum
+ {
+ nPwrOf10 = 5,
+ nMultTests = 6,
+ };
+ static const double scaleFactors[nPwrOf10] = { 1000, 10000, 100000, 1000000, 10000000 };
+ const double vals[nMultTests] = { xfirst, xlast, xinc, yfirst, ylast, yinc };
+
+ for (size_t j = 0; j < nPwrOf10; ++j)
+ {
+ double scaleBy = scaleFactors[j];
+ bool fractionalScale = false;
+ for (size_t i = 0; i < nMultTests; ++i)
+ {
+ fractionalScale = fractionalScale || fabs(vals[i] * scaleBy - round(vals[i] * scaleBy)) > FLT_EPSILON;
+ }
+ if (!fractionalScale)
+ {
+ resfac = scaleBy;
+ break;
+ }
+ }
+
+ return resfac;
+}
+
+static void
+iegDefGrid(int *gdb, int gridID)
+{
+ int projID = gridInqProj(gridID);
+ if (projID != CDI_UNDEFID && gridInqProjType(projID) == CDI_PROJ_RLL) gridID = projID;
+
+ int gridtype = gridInqType(gridID);
+ int projtype = CDI_UNDEFID;
+ if (gridtype == GRID_PROJECTION && gridInqProjType(gridID) == CDI_PROJ_RLL) projtype = CDI_PROJ_RLL;
+
+ size_t xsize = gridInqXsize(gridID);
+ size_t ysize = gridInqYsize(gridID);
+
+ cdi_check_gridsize_int_limit("IEG", xsize * ysize);
+
+ if (gridtype == GRID_GENERIC)
+ {
+ if ((ysize == 32 || ysize == 48 || ysize == 64 || ysize == 96 || ysize == 160) && (xsize == 2 * ysize || xsize == 1))
+ {
+ gridtype = GRID_GAUSSIAN;
+ gridChangeType(gridID, gridtype);
+ }
+ else if ((xsize == 1 && ysize == 1) || (xsize == 0 && ysize == 0))
+ {
+ gridtype = GRID_LONLAT;
+ gridChangeType(gridID, gridtype);
+ }
+ else if (gridInqXvals(gridID, NULL) && gridInqYvals(gridID, NULL))
+ {
+ gridtype = GRID_LONLAT;
+ gridChangeType(gridID, gridtype);
+ }
+ }
+ else if (gridtype == GRID_CURVILINEAR)
+ {
+ gridtype = GRID_LONLAT;
+ }
+
+ bool lrotated = (projtype == CDI_PROJ_RLL);
+
+ if (gridtype == GRID_LONLAT || gridtype == GRID_GAUSSIAN || projtype == CDI_PROJ_RLL)
+ {
+ double xfirst = 0.0, xlast = 0.0, xinc = 0.0;
+ double yfirst = 0.0, ylast = 0.0, yinc = 0.0;
+
+ if (xsize == 0)
+ xsize = 1;
+ else
+ {
+ xfirst = gridInqXval(gridID, 0);
+ xlast = gridInqXval(gridID, xsize - 1);
+ xinc = gridInqXinc(gridID);
+ }
+
+ if (ysize == 0)
+ ysize = 1;
+ else
+ {
+ yfirst = gridInqYval(gridID, 0);
+ ylast = gridInqYval(gridID, ysize - 1);
+ yinc = gridInqYinc(gridID);
+ }
+
+ if (gridtype == GRID_GAUSSIAN)
+ IEG_G_GridType(gdb) = 4;
+ else if (lrotated)
+ IEG_G_GridType(gdb) = 10;
+ else
+ IEG_G_GridType(gdb) = 0;
+
+ double resfac = calc_resfac(xfirst, xlast, xinc, yfirst, ylast, yinc);
+ int iresfac = (int) resfac;
+ if (iresfac == 1000) iresfac = 0;
+
+ IEG_G_ResFac(gdb) = iresfac;
+
+ IEG_G_NumLon(gdb) = (int) xsize;
+ IEG_G_NumLat(gdb) = (int) ysize;
+ IEG_G_FirstLat(gdb) = (int) lround(yfirst * resfac);
+ IEG_G_LastLat(gdb) = (int) lround(ylast * resfac);
+ IEG_G_FirstLon(gdb) = (int) lround(xfirst * resfac);
+ IEG_G_LastLon(gdb) = (int) lround(xlast * resfac);
+ IEG_G_LonIncr(gdb) = (int) lround(xinc * resfac);
+ if (fabs(xinc * resfac - IEG_G_LonIncr(gdb)) > FLT_EPSILON) IEG_G_LonIncr(gdb) = 0;
+
+ if (gridtype == GRID_GAUSSIAN)
+ IEG_G_LatIncr(gdb) = (int) ysize / 2;
+ else
+ {
+ IEG_G_LatIncr(gdb) = (int) lround(yinc * resfac);
+ if (fabs(yinc * resfac - IEG_G_LatIncr(gdb)) > FLT_EPSILON) IEG_G_LatIncr(gdb) = 0;
+
+ if (IEG_G_LatIncr(gdb) < 0) IEG_G_LatIncr(gdb) = -IEG_G_LatIncr(gdb);
+ }
+
+ if (IEG_G_NumLon(gdb) > 1 && IEG_G_NumLat(gdb) == 1)
+ if (IEG_G_LonIncr(gdb) != 0 && IEG_G_LatIncr(gdb) == 0) IEG_G_LatIncr(gdb) = IEG_G_LonIncr(gdb);
+
+ if (IEG_G_NumLon(gdb) == 1 && IEG_G_NumLat(gdb) > 1)
+ if (IEG_G_LonIncr(gdb) == 0 && IEG_G_LatIncr(gdb) != 0) IEG_G_LonIncr(gdb) = IEG_G_LatIncr(gdb);
+
+ IEG_G_ResFlag(gdb) = (IEG_G_LatIncr(gdb) == 0 || IEG_G_LonIncr(gdb) == 0) ? 0 : 128;
+
+ if (lrotated)
+ {
+ double xpole = 0.0, ypole = 0.0, angle = 0.0;
+ gridInqParamRLL(gridID, &xpole, &ypole, &angle);
+
+ IEG_G_LatSP(gdb) = -(int) lround(ypole * resfac);
+ IEG_G_LonSP(gdb) = (int) lround((xpole + 180) * resfac);
+ IEG_G_Size(gdb) = 42;
+ }
+ else
+ {
+ IEG_G_Size(gdb) = 32;
+ }
+ }
+ else
+ {
+ Error("Unsupported grid type: %s", gridNamePtr(gridtype));
+ }
+
+ IEG_G_ScanFlag(gdb) = 64;
+}
+
+static void
+pdbDefLevel(int *pdb, int leveltype, int level1, int level2)
+{
+ IEG_P_LevelType(pdb) = leveltype;
+ IEG_P_Level1(pdb) = level1;
+ IEG_P_Level2(pdb) = level2;
+}
+
+static void
+iegDefLevel(int *pdb, int *gdb, double *vct, int zaxisID, int levelID)
+{
+ double level;
+
+ int leveltype = zaxisInqType(zaxisID);
+ if (leveltype == ZAXIS_GENERIC)
+ {
+ Warning("Changed zaxis type from %s to %s", zaxisNamePtr(leveltype), zaxisNamePtr(ZAXIS_PRESSURE));
+ leveltype = ZAXIS_PRESSURE;
+ zaxisChangeType(zaxisID, leveltype);
+ cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, "Pa");
+ }
+
+ // IEG_G_NumVCP(gdb) = 0;
+
+ switch (leveltype)
+ {
+ case ZAXIS_SURFACE:
+ {
+ pdbDefLevel(pdb, IEG_LTYPE_SURFACE, 0, (int) (zaxisInqLevel(zaxisID, levelID)));
+ break;
+ }
+ case ZAXIS_HYBRID:
+ {
+ if (zaxisInqLbounds(zaxisID, NULL) && zaxisInqUbounds(zaxisID, NULL))
+ pdbDefLevel(pdb, IEG_LTYPE_HYBRID_LAYER, (int) (zaxisInqLbound(zaxisID, levelID)),
+ (int) (zaxisInqUbound(zaxisID, levelID)));
+ else
+ pdbDefLevel(pdb, IEG_LTYPE_HYBRID, 0, (int) (zaxisInqLevel(zaxisID, levelID)));
+
+ int vctsize = zaxisInqVctSize(zaxisID);
+ if (vctsize > 100)
+ {
+ static bool vct_warning = true;
+ // IEG_G_NumVCP(gdb) = 0;
+ if (vct_warning)
+ {
+ Warning("VCT size of %d is too large (maximum is 100). Set to 0!", vctsize);
+ vct_warning = false;
+ }
+ }
+ else
+ {
+ IEG_G_Size(gdb) += (vctsize * 4);
+ memcpy(vct, zaxisInqVctPtr(zaxisID), (size_t) vctsize / 2 * sizeof(double));
+ memcpy(vct + 50, zaxisInqVctPtr(zaxisID) + vctsize / 2, (size_t) vctsize / 2 * sizeof(double));
+ }
+ break;
+ }
+ case ZAXIS_PRESSURE:
+ {
+ level = zaxisInqLevel(zaxisID, levelID);
+ if (level < 0) Warning("pressure level of %f Pa is below 0.", level);
+
+ char units[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, units, &length);
+ if (memcmp(units, "hPa", 3) == 0 || memcmp(units, "mb", 2) == 0) level = level * 100;
+
+ double dum;
+ int ilevel = (int) level;
+ if (level < 32768 && (level < 100 || modf(level / 100, &dum) > 0))
+ pdbDefLevel(pdb, IEG_LTYPE_99, 0, ilevel);
+ else
+ pdbDefLevel(pdb, IEG_LTYPE_ISOBARIC, 0, ilevel / 100);
+
+ break;
+ }
+ case ZAXIS_HEIGHT:
+ {
+ level = zaxisInqLevel(zaxisID, levelID);
+ pdbDefLevel(pdb, IEG_LTYPE_HEIGHT, 0, (int) level);
+ break;
+ }
+ case ZAXIS_ALTITUDE:
+ {
+ level = zaxisInqLevel(zaxisID, levelID);
+ pdbDefLevel(pdb, IEG_LTYPE_ALTITUDE, 0, (int) level);
+ break;
+ }
+ case ZAXIS_DEPTH_BELOW_LAND:
+ {
+ if (zaxisInqLbounds(zaxisID, NULL) && zaxisInqUbounds(zaxisID, NULL))
+ pdbDefLevel(pdb, IEG_LTYPE_LANDDEPTH_LAYER, (int) (zaxisInqLbound(zaxisID, levelID)),
+ (int) (zaxisInqUbound(zaxisID, levelID)));
+ else
+ pdbDefLevel(pdb, IEG_LTYPE_LANDDEPTH, 0, (int) (zaxisInqLevel(zaxisID, levelID)));
+
+ break;
+ }
+ case ZAXIS_DEPTH_BELOW_SEA:
+ {
+ level = zaxisInqLevel(zaxisID, levelID);
+ pdbDefLevel(pdb, IEG_LTYPE_SEADEPTH, 0, (int) level);
+ break;
+ }
+ case ZAXIS_ISENTROPIC:
+ {
+ level = zaxisInqLevel(zaxisID, levelID);
+ pdbDefLevel(pdb, 113, 0, (int) level);
+ break;
+ }
+ default:
+ {
+ Error("Unsupported zaxis type: %s", zaxisNamePtr(leveltype));
+ break;
+ }
+ }
+}
+
+void
+iegCopyRecord(stream_t *streamptr2, stream_t *streamptr1)
+{
+ streamFCopyRecord(streamptr2, streamptr1, "IEG");
+}
+
+void
+iegDefRecord(stream_t *streamptr)
+{
+ Record *record = streamptr->record;
+
+ int vlistID = streamptr->vlistID;
+ int byteorder = streamptr->byteorder;
+
+ int varID = record->varID;
+ int levelID = record->levelID;
+ int tsID = streamptr->curTsID;
+ CdiDateTime vDateTime = streamptr->tsteps[tsID].taxis.vDateTime;
+
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+
+ iegrec_t *iegp = (iegrec_t *) record->objectp;
+ iegInitMem(iegp);
+ for (int i = 0; i < 37; i++) iegp->ipdb[i] = -1;
+
+ iegp->byteswap = getByteswap(byteorder);
+
+ int param = vlistInqVarParam(vlistID, varID);
+ int pdis, pcat, pnum;
+ cdiDecodeParam(param, &pnum, &pcat, &pdis);
+ IEG_P_Parameter(iegp->ipdb) = pnum;
+ if (pdis == 255) IEG_P_CodeTable(iegp->ipdb) = pcat;
+
+ iegDefTime(iegp->ipdb, vDateTime, vlistInqTaxis(vlistID));
+ iegDefGrid(iegp->igdb, gridID);
+ iegDefLevel(iegp->ipdb, iegp->igdb, iegp->vct, zaxisID, levelID);
+
+ iegp->dprec = iegDefDatatype(record->prec);
+}
+
+static double
+calc_refvalSP(size_t size, const float *data)
+{
+ float refval = data[0];
+ for (size_t i = 1; i < size; ++i)
+ if (data[i] < refval) refval = data[i];
+ return refval;
+}
+
+static double
+calc_refvalDP(size_t size, const double *data)
+{
+ double refval = data[0];
+ for (size_t i = 1; i < size; ++i)
+ if (data[i] < refval) refval = data[i];
+ return refval;
+}
+
+static void
+ieg_write_recordSP(stream_t *streamptr, const float *data)
+{
+ Record *record = streamptr->record;
+ iegrec_t *iegp = (iegrec_t *) record->objectp;
+
+ int fileID = streamptr->fileID;
+ size_t gridsize = gridInqSize(record->gridID);
+
+ iegp->refval = calc_refvalSP(gridsize, data);
+
+ iegDefDataSP(iegp, data);
+ iegWrite(fileID, iegp);
+}
+
+static void
+ieg_write_recordDP(stream_t *streamptr, const double *data)
+{
+ Record *record = streamptr->record;
+ iegrec_t *iegp = (iegrec_t *) record->objectp;
+
+ int fileID = streamptr->fileID;
+ size_t gridsize = gridInqSize(record->gridID);
+
+ iegp->refval = calc_refvalDP(gridsize, data);
+
+ iegDefDataDP(iegp, data);
+ iegWrite(fileID, iegp);
+}
+
+void
+ieg_write_record(stream_t *streamptr, int memtype, const void *data)
+{
+ if (memtype == MEMTYPE_DOUBLE)
+ ieg_write_recordDP(streamptr, (const double *) data);
+ else
+ ieg_write_recordSP(streamptr, (const float *) data);
+}
+
+static void
+iegAddRecord(stream_t *streamptr, int param, int *pdb, int *gdb, double *vct, size_t recsize, off_t position, int prec)
+{
+ int vlistID = streamptr->vlistID;
+ int tsID = streamptr->curTsID;
+ int recID = recordNewEntry(streamptr, tsID);
+ record_t *record = &streamptr->tsteps[tsID].records[recID];
+
+ int level1, level2;
+ if (IEG_P_LevelType(pdb) == IEG_LTYPE_HYBRID_LAYER)
+ {
+ level1 = IEG_P_Level1(pdb);
+ level2 = IEG_P_Level2(pdb);
+ }
+ else
+ {
+ level1 = IEG_P_Level2(pdb);
+ level2 = 0;
+ if (IEG_P_LevelType(pdb) == 100) level1 *= 100;
+ }
+
+ record->size = recsize;
+ record->position = position;
+ record->param = param;
+ record->ilevel = level1;
+ record->ilevel2 = level2;
+ record->ltype = IEG_P_LevelType(pdb);
+
+ int gridtype = (IEG_G_GridType(gdb) == 0) ? GRID_LONLAT
+ : (IEG_G_GridType(gdb) == 10) ? GRID_PROJECTION
+ : (IEG_G_GridType(gdb) == 4) ? GRID_GAUSSIAN
+ : GRID_GENERIC;
+
+ grid_t *grid = (grid_t *) Malloc(sizeof(*grid));
+ grid_init(grid);
+ cdiGridTypeInit(grid, gridtype, IEG_G_NumLon(gdb) * IEG_G_NumLat(gdb));
+ size_t xsize = (size_t) IEG_G_NumLon(gdb);
+ size_t ysize = (size_t) IEG_G_NumLat(gdb);
+ grid->x.size = xsize;
+ grid->y.size = ysize;
+ grid->x.inc = 0;
+ grid->y.inc = 0;
+ grid->x.flag = 0;
+
+ int iresfac = IEG_G_ResFac(gdb);
+ if (iresfac == 0) iresfac = 1000;
+ double resfac = 1. / (double) iresfac;
+
+ // if ( IEG_G_FirstLon != 0 || IEG_G_LastLon != 0 )
+ {
+ if (xsize > 1)
+ {
+ if (IEG_G_ResFlag(gdb) && IEG_G_LonIncr(gdb) > 0)
+ grid->x.inc = IEG_G_LonIncr(gdb) * resfac;
+ else
+ grid->x.inc = (IEG_G_LastLon(gdb) - IEG_G_FirstLon(gdb)) * resfac / (xsize - 1);
+
+ // correct xinc if necessary
+ if (IEG_G_FirstLon(gdb) == 0 && IEG_G_LastLon(gdb) > 354000)
+ {
+ double xinc = 360. / xsize;
+ // FIXME: why not use grid->x.inc != xinc as condition?
+ if (fabs(grid->x.inc - xinc) > 0.0)
+ {
+ grid->x.inc = xinc;
+ if (CDI_Debug) Message("set xinc to %g", grid->x.inc);
+ }
+ }
+ }
+ grid->x.first = IEG_G_FirstLon(gdb) * resfac;
+ grid->x.last = IEG_G_LastLon(gdb) * resfac;
+ grid->x.flag = 2;
+ }
+ grid->y.flag = 0;
+ // if ( IEG_G_FirstLat != 0 || IEG_G_LastLat != 0 )
+ {
+ if (ysize > 1)
+ {
+ if (IEG_G_ResFlag(gdb) && IEG_G_LatIncr(gdb) > 0)
+ grid->y.inc = IEG_G_LatIncr(gdb) * resfac;
+ else
+ grid->y.inc = (IEG_G_LastLat(gdb) - IEG_G_FirstLat(gdb)) * resfac / (ysize - 1);
+ }
+ grid->y.first = IEG_G_FirstLat(gdb) * resfac;
+ grid->y.last = IEG_G_LastLat(gdb) * resfac;
+ grid->y.flag = 2;
+ }
+
+ double xpole = 0, ypole = 0;
+ if (IEG_G_GridType(gdb) == 10)
+ {
+ xpole = IEG_G_LonSP(gdb) * resfac - 180;
+ ypole = -IEG_G_LatSP(gdb) * resfac;
+ grid->projtype = CDI_PROJ_RLL;
+ }
+
+ struct addIfNewRes gridAdded = cdiVlistAddGridIfNew(vlistID, grid, 0);
+ int gridID = gridAdded.Id;
+ if (!gridAdded.isNew)
+ {
+ grid_free(grid);
+ Free(grid);
+ }
+ else if (gridtype == GRID_PROJECTION)
+ gridDefParamRLL(gridID, xpole, ypole, 0);
+
+ int leveltype = iegGetZaxisType(IEG_P_LevelType(pdb));
+ if (leveltype == ZAXIS_HYBRID)
+ {
+ double tmpvct[100];
+ size_t vctsize = (size_t) IEG_G_NumVCP(gdb);
+
+ for (size_t i = 0; i < vctsize / 2; i++) tmpvct[i] = vct[i];
+ for (size_t i = 0; i < vctsize / 2; i++) tmpvct[i + vctsize / 2] = vct[i + 50];
+
+ varDefVCT(vctsize, tmpvct);
+ }
+
+ int lbounds = IEG_P_LevelType(pdb) == IEG_LTYPE_HYBRID_LAYER ? 1 : 0;
+
+ int datatype = iegInqDatatype(prec);
+
+ int varID, levelID = 0;
+ varAddRecord(recID, param, gridID, leveltype, lbounds, level1, level2, 0, 0, datatype, &varID, &levelID, TSTEP_INSTANT, 0, -1,
+ NULL, NULL, NULL, NULL);
+
+ record->varID = (short) varID;
+ record->levelID = levelID;
+
+ streamptr->tsteps[tsID].nallrecs++;
+ streamptr->nrecs++;
+
+ if (CDI_Debug) Message("varID = %d gridID = %d levelID = %d", varID, gridID, levelID);
+}
+
+#if 0
+static
+void iegCmpRecord(stream_t *streamptr, int tsID, int recID, off_t position, int param,
+ int level, size_t xsize, size_t ysize)
+{
+ int varID = 0;
+ int levelID = 0;
+
+ record_t *record = &streamptr->tsteps[tsID].records[recID];
+
+ if (param != (*record).param || level != (*record).ilevel) Error("inconsistent timestep");
+
+ (*record).position = position;
+ /*
+ varID = (*record).varID;
+ levelID = (*record).levelID;
+
+ streamptr->vars[varID].level[levelID] = recID;
+
+ streamptr->tsteps[tsID].nallrecs++;
+ streamptr->nrecs++;
+ */
+ if (CDI_Debug) Message("varID = %d levelID = %d", varID, levelID);
+}
+#endif
+
+static CdiDateTime
+iegDateTime(const int *pdb)
+{
+ int ryear = IEG_P_Year(pdb);
+ int rmonth = IEG_P_Month(pdb);
+ int rday = IEG_P_Day(pdb);
+
+ int rhour = IEG_P_Hour(pdb);
+ int rminute = IEG_P_Minute(pdb);
+
+ if (rminute == -1) rminute = 0;
+
+ CdiDateTime cdiDateTime;
+ cdiDateTime.date = cdiDate_encode(ryear, rmonth, rday);
+ cdiDateTime.time = cdiTime_encode(rhour, rminute, 0, 0);
+ return cdiDateTime;
+}
+
+static void
+iegScanTimestep1(stream_t *streamptr)
+{
+ CdiDateTime datetime0;
+ cdiDateTime_init(&datetime0);
+ off_t recpos;
+ iegrec_t *iegp = (iegrec_t *) streamptr->record->objectp;
+
+ streamptr->curTsID = 0;
+
+ int tsID = tstepsNewEntry(streamptr);
+ if (tsID != 0) Error("Internal problem! tstepsNewEntry returns %d", tsID);
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ int fileID = streamptr->fileID;
+
+ int nrecs = 0;
+ while (true)
+ {
+ recpos = fileGetPos(fileID);
+ if (iegRead(fileID, iegp) != 0)
+ {
+ streamptr->ntsteps = 1;
+ break;
+ }
+
+ size_t recsize = (size_t) (fileGetPos(fileID) - recpos);
+
+ int prec = iegp->dprec;
+ int rcode = IEG_P_Parameter(iegp->ipdb);
+ int tabnum = IEG_P_CodeTable(iegp->ipdb);
+ int param = cdiEncodeParam(rcode, tabnum, 255);
+ int rlevel = (IEG_P_LevelType(iegp->ipdb) == IEG_LTYPE_HYBRID_LAYER) ? IEG_P_Level1(iegp->ipdb) : IEG_P_Level2(iegp->ipdb);
+
+ if (IEG_P_LevelType(iegp->ipdb) == 100) rlevel *= 100;
+
+ CdiDateTime datetime = iegDateTime(iegp->ipdb);
+
+ if (nrecs == 0)
+ {
+ datetime0 = datetime;
+ taxis->vDateTime = datetime;
+ }
+ else
+ {
+ record_t *records = streamptr->tsteps[tsID].records;
+ for (int recID = 0; recID < nrecs; recID++)
+ if (param == records[recID].param && rlevel == records[recID].ilevel) goto tstepScanLoopFinished;
+
+ if (cdiDateTime_isNE(datetime, datetime0)) Warning("Inconsistent verification time for param %d level %d", param, rlevel);
+ }
+
+ nrecs++;
+
+ if (CDI_Debug) Message("%4d%8d%4d%8d %s", nrecs, (int) recpos, param, rlevel, CdiDateTime_string(datetime));
+
+ iegAddRecord(streamptr, param, iegp->ipdb, iegp->igdb, iegp->vct, recsize, recpos, prec);
+ }
+
+tstepScanLoopFinished:
+ streamptr->rtsteps = 1;
+
+ cdi_generate_vars(streamptr);
+
+ int taxisID = taxisCreate(TAXIS_ABSOLUTE);
+ taxis->type = TAXIS_ABSOLUTE;
+ taxis->rDateTime = taxis->vDateTime;
+
+ int vlistID = streamptr->vlistID;
+ vlistDefTaxis(vlistID, taxisID);
+
+ vlist_check_contents(vlistID);
+
+ streamScanResizeRecords1(streamptr);
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+ streamScanTimeConstAdjust(streamptr, taxis);
+}
+
+static int
+iegScanTimestep2(stream_t *streamptr)
+{
+ off_t recpos = 0;
+ iegrec_t *iegp = (iegrec_t *) streamptr->record->objectp;
+
+ streamptr->curTsID = 1;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ int tsID = streamptr->rtsteps;
+ if (tsID != 1) Error("Internal problem! unexpected timestep %d", tsID + 1);
+
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ int nrecords = streamScanInitRecords2(streamptr);
+
+ for (int rindex = 0; rindex <= nrecords; rindex++)
+ {
+ recpos = fileGetPos(fileID);
+ if (iegRead(fileID, iegp) != 0)
+ {
+ streamptr->ntsteps = 2;
+ break;
+ }
+
+ size_t recsize = (size_t) (fileGetPos(fileID) - recpos);
+
+ int rcode = IEG_P_Parameter(iegp->ipdb);
+ int tabnum = IEG_P_CodeTable(iegp->ipdb);
+ int param = cdiEncodeParam(rcode, tabnum, 255);
+ int rlevel = (IEG_P_LevelType(iegp->ipdb) == IEG_LTYPE_HYBRID_LAYER) ? IEG_P_Level1(iegp->ipdb) : IEG_P_Level2(iegp->ipdb);
+
+ if (IEG_P_LevelType(iegp->ipdb) == 100) rlevel *= 100;
+
+ CdiDateTime datetime = iegDateTime(iegp->ipdb);
+
+ if (rindex == 0)
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ taxis->vDateTime = datetime;
+ }
+
+ bool nextstep = false;
+ int recID = 0;
+ for (recID = 0; recID < nrecords; recID++)
+ {
+ if (param == records[recID].param && rlevel == records[recID].ilevel)
+ {
+ if (records[recID].used)
+ {
+ nextstep = true;
+ }
+ else
+ {
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+ }
+ break;
+ }
+ }
+ if (recID == nrecords)
+ {
+ char paramstr[32];
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+ Warning("param %s level %d not defined at timestep 1", paramstr, rlevel);
+ return CDI_EUFSTRUCT;
+ }
+
+ if (nextstep) break;
+
+ if (CDI_Debug) Message("%4d%8d%4d%8d %s", rindex + 1, (int) recpos, param, rlevel, CdiDateTime_string(datetime));
+
+ if (param != records[recID].param || rlevel != records[recID].ilevel)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, rlevel);
+ return CDI_EUFSTRUCT;
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+ }
+
+ int nrecs = 0;
+ for (int recID = 0; recID < nrecords; recID++)
+ {
+ if (records[recID].used)
+ nrecs++;
+ else
+ vlistDefVarTimetype(vlistID, records[recID].varID, TIME_CONSTANT);
+ }
+ streamptr->tsteps[tsID].nrecs = nrecs;
+
+ streamptr->rtsteps = 2;
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+
+ return 0;
+}
+
+int
+iegInqContents(stream_t *streamptr)
+{
+ streamptr->curTsID = 0;
+
+ iegScanTimestep1(streamptr);
+
+ int status = (streamptr->ntsteps == -1) ? iegScanTimestep2(streamptr) : 0;
+
+ fileSetPos(streamptr->fileID, 0, SEEK_SET);
+
+ return status;
+}
+
+static long
+iegScanTimestep(stream_t *streamptr)
+{
+ off_t recpos = 0;
+ iegrec_t *iegp = (iegrec_t *) streamptr->record->objectp;
+
+ if (streamptr->rtsteps == 0) Error("Internal problem! Missing contents.");
+
+ int tsID = streamptr->rtsteps;
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ int nrecs = 0;
+ if (streamptr->tsteps[tsID].recordSize == 0)
+ {
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ nrecs = streamScanInitRecords(streamptr, tsID);
+
+ int fileID = streamptr->fileID;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ for (int rindex = 0; rindex <= nrecs; rindex++)
+ {
+ recpos = fileGetPos(fileID);
+ if (iegRead(fileID, iegp) != 0)
+ {
+ streamptr->ntsteps = streamptr->rtsteps + 1;
+ break;
+ }
+
+ size_t recsize = (size_t) (fileGetPos(fileID) - recpos);
+
+ int rcode = IEG_P_Parameter(iegp->ipdb);
+ int tabnum = IEG_P_CodeTable(iegp->ipdb);
+ int param = cdiEncodeParam(rcode, tabnum, 255);
+ int rlevel
+ = (IEG_P_LevelType(iegp->ipdb) == IEG_LTYPE_HYBRID_LAYER) ? IEG_P_Level1(iegp->ipdb) : IEG_P_Level2(iegp->ipdb);
+
+ if (IEG_P_LevelType(iegp->ipdb) == 100) rlevel *= 100;
+
+ CdiDateTime datetime = iegDateTime(iegp->ipdb);
+
+ // if ( rindex == nrecs ) break; gcc-4.5 internal compiler error
+ if (rindex == nrecs) continue;
+ int recID = streamptr->tsteps[tsID].recIDs[rindex];
+
+ if (rindex == 0)
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ taxis->vDateTime = datetime;
+ }
+
+ if (param != records[recID].param || rlevel != records[recID].ilevel)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, rlevel);
+ Error("Invalid, unsupported or inconsistent record structure");
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+
+ if (CDI_Debug) Message("%4d%8d%4d%8d %s", rindex, (int) recpos, param, rlevel, CdiDateTime_string(datetime));
+ }
+
+ streamptr->rtsteps++;
+
+ if (streamptr->ntsteps != streamptr->rtsteps)
+ {
+ tsID = tstepsNewEntry(streamptr);
+ if (tsID != streamptr->rtsteps) Error("Internal error. tsID = %d", tsID);
+
+ streamptr->tsteps[tsID - 1].next = true;
+ streamptr->tsteps[tsID].position = recpos;
+ }
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+ streamptr->tsteps[tsID].position = recpos;
+ }
+
+ if (nrecs > 0 && nrecs < streamptr->tsteps[tsID].nrecs)
+ {
+ Warning("Incomplete timestep. Stop scanning at timestep %d.", tsID);
+ streamptr->ntsteps = tsID;
+ }
+
+ return streamptr->ntsteps;
+}
+
+int
+iegInqTimestep(stream_t *streamptr, int tsID)
+{
+ if (tsID == 0 && streamptr->rtsteps == 0) Error("Call to cdiInqContents missing!");
+
+ if (CDI_Debug) Message("tsID = %d rtsteps = %d", tsID, streamptr->rtsteps);
+
+ long ntsteps = CDI_UNDEFID;
+ while ((tsID + 1) > streamptr->rtsteps && ntsteps == CDI_UNDEFID) ntsteps = iegScanTimestep(streamptr);
+
+ int nrecs = 0;
+ if (!(tsID >= streamptr->ntsteps && streamptr->ntsteps != CDI_UNDEFID))
+ {
+ streamptr->curTsID = tsID;
+ nrecs = streamptr->tsteps[tsID].nrecs;
+ }
+
+ return nrecs;
+}
+
+void
+iegReadVarSliceDP(stream_t *streamptr, int varID, int levID, double *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d levID = %d", streamptr->self, varID, levID);
+
+ void *iegp = streamptr->record->objectp;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ double missval = vlistInqVarMissval(vlistID, varID);
+ size_t gridsize = gridInqSize(vlistInqVarGrid(vlistID, varID));
+ int tsid = streamptr->curTsID;
+
+ off_t currentfilepos = fileGetPos(fileID);
+
+ int recID = streamptr->vars[varID].recordTable[0].recordID[levID];
+ off_t recpos = streamptr->tsteps[tsid].records[recID].position;
+ fileSetPos(fileID, recpos, SEEK_SET);
+ iegRead(fileID, iegp);
+ iegInqDataDP(iegp, data);
+
+ fileSetPos(fileID, currentfilepos, SEEK_SET);
+
+ *numMissVals = get_num_missvalsDP(gridsize, data, missval);
+}
+
+void
+iegReadVarDP(stream_t *streamptr, int varID, double *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ size_t gridsize = gridInqSize(vlistInqVarGrid(vlistID, varID));
+ size_t nlevs = (size_t) streamptr->vars[varID].recordTable[0].nlevs;
+
+ for (size_t levID = 0; levID < nlevs; levID++)
+ iegReadVarSliceDP(streamptr, varID, (int) levID, &data[levID * gridsize], numMissVals);
+}
+
+void
+iegWriteVarSliceDP(stream_t *streamptr, int varID, int levID, const double *data)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d levID = %d", streamptr->self, varID, levID);
+
+ iegrec_t *iegp = (iegrec_t *) streamptr->record->objectp;
+ iegInitMem(iegp);
+ for (int i = 0; i < 37; i++) iegp->ipdb[i] = -1;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsID = streamptr->curTsID;
+ CdiDateTime vDateTime = streamptr->tsteps[tsID].taxis.vDateTime;
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+
+ int param = vlistInqVarParam(vlistID, varID);
+ int pdis, pcat, pnum;
+ cdiDecodeParam(param, &pnum, &pcat, &pdis);
+ IEG_P_Parameter(iegp->ipdb) = pnum;
+ if (pdis == 255) IEG_P_CodeTable(iegp->ipdb) = pcat;
+
+ iegDefTime(iegp->ipdb, vDateTime, vlistInqTaxis(vlistID));
+ iegDefGrid(iegp->igdb, gridID);
+ iegDefLevel(iegp->ipdb, iegp->igdb, iegp->vct, zaxisID, levID);
+
+ iegp->dprec = iegDefDatatype(vlistInqVarDatatype(vlistID, varID));
+
+ size_t gridsize = gridInqSize(gridID);
+ iegp->refval = calc_refvalDP(gridsize, data);
+
+ iegDefDataDP(iegp, data);
+ iegWrite(fileID, iegp);
+}
+
+void
+iegWriteVarDP(stream_t *streamptr, int varID, const double *data)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ size_t gridsize = gridInqSize(vlistInqVarGrid(vlistID, varID));
+ size_t nlevels = (size_t) zaxisInqSize(vlistInqVarZaxis(vlistID, varID));
+
+ for (size_t levID = 0; levID < nlevels; levID++) iegWriteVarSliceDP(streamptr, varID, (int) levID, &data[levID * gridsize]);
+}
+
+#endif /* HAVE_LIBIEG */
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <limits.h>
+#include <stdio.h>
+#include <string.h>
+
+
+
+void
+recordInitEntry(record_t *record)
+{
+ record->position = CDI_UNDEFID;
+ record->size = 0;
+ record->gridsize = 0;
+ record->param = 0;
+ record->ilevel = CDI_UNDEFID;
+ record->used = false;
+ record->tsteptype = CDI_UNDEFID;
+ record->varID = CDI_UNDEFID;
+ record->levelID = CDI_UNDEFID;
+ memset(record->varname, 0, sizeof(record->varname));
+ varScanKeysInit(&record->scanKeys);
+ memset(&record->tiles, 0, sizeof(record->tiles));
+#ifdef HAVE_LIBFDB5
+ record->fdbItemIndex = -1;
+#endif
+}
+
+int
+recordNewEntry(stream_t *streamptr, int tsID)
+{
+ int recordSize = streamptr->tsteps[tsID].recordSize;
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ // Look for a free slot in record.
+ int recordID = 0;
+ if (recordSize)
+ {
+ while (recordID < recordSize && records[recordID].used != CDI_UNDEFID) ++recordID;
+ }
+ else // Create the table the first time through.
+ {
+ recordSize = 1; // <<<<----
+ records = (record_t *) Malloc(recordSize * sizeof(record_t));
+ for (int i = recordID; i < recordSize; i++) records[i].used = CDI_UNDEFID;
+ }
+
+ // If the table overflows, double its size.
+ if (recordID == recordSize)
+ {
+ // clang-format off
+ if (recordSize <= INT_MAX / 2) recordSize *= 2;
+ else if (recordSize < INT_MAX) recordSize = INT_MAX;
+ else Error("Cannot handle this many records!\n");
+ // clang-format on
+ records = (record_t *) Realloc(records, recordSize * sizeof(record_t));
+
+ for (int i = recordID; i < recordSize; i++) records[i].used = CDI_UNDEFID;
+ }
+
+ recordInitEntry(&records[recordID]);
+
+ records[recordID].used = true;
+
+ streamptr->tsteps[tsID].recordSize = recordSize;
+ streamptr->tsteps[tsID].records = records;
+
+ return recordID;
+}
+
+static void
+cdiInitRecord(stream_t *streamptr)
+{
+ Record *record = (Record *) Malloc(sizeof(Record));
+ streamptr->record = record;
+
+ record->param = 0;
+ record->ilevel = 0;
+ record->vdate = 0;
+ record->vtime = 0;
+ record->gridID = 0;
+ record->buffer = NULL;
+ record->buffersize = 0;
+ record->position = 0;
+ record->varID = 0;
+ record->levelID = CDI_UNDEFID;
+}
+
+void
+streamInqRecord(int streamID, int *varID, int *levelID)
+{
+ check_parg(varID);
+ check_parg(levelID);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ cdiDefAccesstype(streamID, TYPE_REC);
+
+ if (!streamptr->record) cdiInitRecord(streamptr);
+
+ int tsID = streamptr->curTsID;
+ int rindex = streamptr->tsteps[tsID].curRecID + 1;
+
+ if (rindex >= streamptr->tsteps[tsID].nrecs) Error("record %d not available at timestep %d", rindex + 1, tsID + 1);
+
+ int recID = streamptr->tsteps[tsID].recIDs[rindex];
+
+ if (recID == -1 || recID >= streamptr->tsteps[tsID].nallrecs) Error("Internal problem! tsID = %d recID = %d", tsID, recID);
+
+ *varID = streamptr->tsteps[tsID].records[recID].varID;
+ if (*varID == -1) Error("Internal problem! varID = %d recID = %d", *varID, recID);
+
+ int lindex = streamptr->tsteps[tsID].records[recID].levelID;
+
+ int isub = subtypeInqActiveIndex(streamptr->vars[*varID].subtypeID);
+ *levelID = streamptr->vars[*varID].recordTable[isub].lindex[lindex];
+
+ if (CDI_Debug) Message("streamID = %d tsID = %d, recID = %d, varID = %d, levelID = %d", streamID, tsID, recID, *varID, *levelID);
+
+ streamptr->curTsID = tsID;
+ streamptr->tsteps[tsID].curRecID = rindex;
+}
+
+/*
+@Function streamDefRecord
+@Title Define the next record
+
+@Prototype void streamDefRecord(int streamID, int varID, int levelID)
+@Parameter
+ @Item streamID Stream ID, from a previous call to @fref{streamOpenWrite}.
+ @Item varID Variable identifier.
+ @Item levelID Level identifier.
+
+@Description
+The function streamDefRecord defines the meta-data of the next record.
+@EndFunction
+*/
+void
+streamDefRecord(int streamID, int varID, int levelID)
+{
+ stream_t *streamptr = stream_to_pointer(streamID);
+
+ int tsID = streamptr->curTsID;
+ if (tsID == CDI_UNDEFID)
+ {
+ tsID++;
+ streamDefTimestep(streamID, tsID);
+ }
+
+ if (!streamptr->record) cdiInitRecord(streamptr);
+
+ int vlistID = streamptr->vlistID;
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+ int param = vlistInqVarParam(vlistID, varID);
+ int ilevel = (int) lround(zaxisInqLevel(zaxisID, levelID));
+
+ Record *record = streamptr->record;
+ record->varID = varID;
+ record->levelID = levelID;
+ record->param = param;
+ record->ilevel = ilevel;
+ record->vdate = (int) cdiDate_get(streamptr->tsteps[tsID].taxis.vDateTime.date);
+ record->vtime = cdiTime_get(streamptr->tsteps[tsID].taxis.vDateTime.time);
+ record->gridID = gridID;
+ record->prec = vlistInqVarDatatype(vlistID, varID);
+
+ switch (cdiBaseFiletype(streamptr->filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB: grbDefRecord(streamptr); break;
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: srvDefRecord(streamptr); break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: extDefRecord(streamptr); break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: iegDefRecord(streamptr); break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+ if (streamptr->accessmode == 0) cdfEndDef(streamptr);
+ cdfDefRecord(streamptr);
+ break;
+#endif
+ default: Error("%s support not compiled in!", strfiletype(streamptr->filetype)); break;
+ }
+}
+
+void
+streamCopyRecord(int streamID2, int streamID1)
+{
+ stream_t *streamptr1 = stream_to_pointer(streamID1), *streamptr2 = stream_to_pointer(streamID2);
+ int filetype1 = streamptr1->filetype, filetype2 = streamptr2->filetype, filetype = CDI_FILETYPE_UNDEF;
+
+ if (cdiBaseFiletype(filetype1) == cdiBaseFiletype(filetype2)) filetype = filetype2;
+
+ if (filetype == CDI_FILETYPE_UNDEF)
+ Error("Streams have different file types (%s -> %s)!", strfiletype(filetype1), strfiletype(filetype2));
+
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB: grbCopyRecord(streamptr2, streamptr1); break;
+#endif
+#ifdef HAVE_LIBSERVICE
+ case CDI_FILETYPE_SRV: srvCopyRecord(streamptr2, streamptr1); break;
+#endif
+#ifdef HAVE_LIBEXTRA
+ case CDI_FILETYPE_EXT: extCopyRecord(streamptr2, streamptr1); break;
+#endif
+#ifdef HAVE_LIBIEG
+ case CDI_FILETYPE_IEG: iegCopyRecord(streamptr2, streamptr1); break;
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF: cdfCopyRecord(streamptr2, streamptr1); break;
+#endif
+ default: Error("%s support not compiled in!", strfiletype(filetype));
+ }
+}
+
+void
+cdi_create_records(stream_t *streamptr, int tsID)
+{
+ unsigned nrecords, maxrecords;
+
+ tsteps_t *sourceTstep = streamptr->tsteps;
+ tsteps_t *destTstep = sourceTstep + tsID;
+
+ if (destTstep->records) return;
+
+ int vlistID = streamptr->vlistID;
+
+ if (tsID == 0)
+ {
+ maxrecords = 0;
+ int nvars = streamptr->nvars;
+ for (int varID = 0; varID < nvars; varID++)
+ for (int isub = 0; isub < streamptr->vars[varID].subtypeSize; isub++)
+ maxrecords += (unsigned) streamptr->vars[varID].recordTable[isub].nlevs;
+ }
+ else
+ {
+ maxrecords = (unsigned) sourceTstep->recordSize;
+ }
+
+ if (tsID == 0)
+ {
+ nrecords = maxrecords;
+ }
+ else if (tsID == 1)
+ {
+ nrecords = 0;
+ maxrecords = (unsigned) sourceTstep->recordSize;
+ if (sourceTstep->records)
+ {
+ for (size_t recID = 0; recID < maxrecords; recID++)
+ {
+ int varID = sourceTstep->records[recID].varID;
+ nrecords += (varID == CDI_UNDEFID /* varID = CDI_UNDEFID for write mode !!! */
+ || vlistInqVarTimetype(vlistID, varID) != TIME_CONSTANT);
+ // printf("varID nrecords %d %d %d \n", varID, nrecords, vlistInqVarTsteptype(vlistID, varID));
+ }
+ }
+ else
+ {
+ nrecords = maxrecords;
+ }
+ }
+ else
+ {
+ nrecords = (unsigned) streamptr->tsteps[1].nallrecs;
+ }
+ // printf("tsID, nrecords %d %d\n", tsID, nrecords);
+
+ record_t *records = (maxrecords > 0) ? (record_t *) (Malloc(maxrecords * sizeof(record_t))) : (record_t *) NULL;
+
+ destTstep->records = records;
+ destTstep->recordSize = (int) maxrecords;
+ destTstep->nallrecs = (int) nrecords;
+#ifdef HAVE_LIBFDB5
+ destTstep->records->fdbItemIndex = -1;
+#endif
+
+ if (tsID == 0)
+ {
+ for (unsigned recID = 0; recID < maxrecords; recID++) recordInitEntry(&destTstep->records[recID]);
+ }
+ else if (sourceTstep->records)
+ {
+ memcpy(destTstep->records, sourceTstep->records, (size_t) maxrecords * sizeof(record_t));
+
+ for (size_t recID = 0; recID < maxrecords; recID++)
+ {
+ record_t *curRecord = &sourceTstep->records[recID];
+ destTstep->records[recID].used = curRecord->used;
+ if (curRecord->used != CDI_UNDEFID && curRecord->varID != -1) // curRecord->varID = -1 for write mode !!!
+ {
+ if (vlistInqVarTimetype(vlistID, curRecord->varID) != TIME_CONSTANT)
+ {
+ destTstep->records[recID].position = CDI_UNDEFID;
+ destTstep->records[recID].size = 0;
+ destTstep->records[recID].used = false;
+ }
+ }
+ }
+ }
+}
+
+
+void
+streamFCopyRecord(stream_t *streamptr2, stream_t *streamptr1, const char *container_name)
+{
+ int fileID1 = streamptr1->fileID;
+ int fileID2 = streamptr2->fileID;
+
+ int tsID = streamptr1->curTsID;
+ int vrecID = streamptr1->tsteps[tsID].curRecID;
+ int recID = streamptr1->tsteps[tsID].recIDs[vrecID];
+ off_t recpos = streamptr1->tsteps[tsID].records[recID].position;
+ size_t recsize = streamptr1->tsteps[tsID].records[recID].size;
+
+ if (fileSetPos(fileID1, recpos, SEEK_SET) != 0) Error("Cannot seek input file for %s record copy!", container_name);
+
+ char *buffer = (char *) Malloc(recsize);
+
+ if (fileRead(fileID1, buffer, recsize) != recsize) Error("Failed to read record from %s file for copying!", container_name);
+
+ if (fileWrite(fileID2, buffer, recsize) != recsize) Error("Failed to write record to %s file when copying!", container_name);
+
+ Free(buffer);
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+
+#ifdef HAVE_LIBSERVICE
+
+static int
+srvInqDatatype(int prec)
+{
+ return (prec == EXSE_DOUBLE_PRECISION) ? CDI_DATATYPE_FLT64 : CDI_DATATYPE_FLT32;
+}
+
+static int
+srvDefDatatype(int datatype)
+{
+ if (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64)
+ Error("CDI/SERVICE library does not support complex numbers!");
+
+ if (datatype != CDI_DATATYPE_FLT32 && datatype != CDI_DATATYPE_FLT64) datatype = CDI_DATATYPE_FLT32;
+
+ return (datatype == CDI_DATATYPE_FLT64) ? EXSE_DOUBLE_PRECISION : EXSE_SINGLE_PRECISION;
+}
+
+/* not used
+int srvInqRecord(stream_t *streamptr, int *varID, int *levelID)
+{
+ int status;
+ int fileID;
+ int icode, ilevel;
+ int zaxisID = -1;
+ int header[8];
+ int vlistID;
+ void *srvp = streamptr->record->objectp;
+
+ vlistID = streamptr->vlistID;
+ fileID = streamptr->fileID;
+
+ *varID = -1;
+ *levelID = -1;
+
+ status = srvRead(fileID, srvp);
+ if ( status != 0 ) return (0);
+
+ srvInqHeader(srvp, header);
+
+ icode = header[0];
+ ilevel = header[1];
+
+ *varID = vlistInqVarID(vlistID, icode);
+
+ if ( *varID == CDI_UNDEFID ) Error("Code %d undefined", icode);
+
+ zaxisID = vlistInqVarZaxis(vlistID, *varID);
+
+ *levelID = zaxisInqLevelID(zaxisID, (double) ilevel);
+
+ return 1;
+}
+*/
+
+static void
+srv_read_recordSP(stream_t *streamptr, float *data, size_t *numMissVals)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsID = streamptr->curTsID;
+
+ int vrecID = streamptr->tsteps[tsID].curRecID;
+ int recID = streamptr->tsteps[tsID].recIDs[vrecID];
+ int varID = streamptr->tsteps[tsID].records[recID].varID;
+ off_t recpos = streamptr->tsteps[tsID].records[recID].position;
+
+ fileSetPos(fileID, recpos, SEEK_SET);
+
+ void *srvp = streamptr->record->objectp;
+ if (srvRead(fileID, srvp) < 0) Error("Failed to read record from SRV file");
+
+ int header[8];
+ srvInqHeader(srvp, header);
+ srvInqDataSP(srvp, data);
+
+ double missval = vlistInqVarMissval(vlistID, varID);
+ size_t size = gridInqSize(vlistInqVarGrid(vlistID, varID));
+
+ *numMissVals = get_num_missvalsSP(size, data, (float) missval);
+
+ streamptr->numvals += size;
+}
+
+static void
+srv_read_recordDP(stream_t *streamptr, double *data, size_t *numMissVals)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsID = streamptr->curTsID;
+
+ int vrecID = streamptr->tsteps[tsID].curRecID;
+ int recID = streamptr->tsteps[tsID].recIDs[vrecID];
+ int varID = streamptr->tsteps[tsID].records[recID].varID;
+ off_t recpos = streamptr->tsteps[tsID].records[recID].position;
+
+ fileSetPos(fileID, recpos, SEEK_SET);
+
+ void *srvp = streamptr->record->objectp;
+ if (srvRead(fileID, srvp) < 0) Error("Failed to read record from SRV file");
+
+ int header[8];
+ srvInqHeader(srvp, header);
+ srvInqDataDP(srvp, data);
+
+ double missval = vlistInqVarMissval(vlistID, varID);
+ size_t size = gridInqSize(vlistInqVarGrid(vlistID, varID));
+
+ *numMissVals = get_num_missvalsDP(size, data, missval);
+
+ streamptr->numvals += size;
+}
+
+void
+srv_read_record(stream_t *streamptr, int memtype, void *data, size_t *numMissVals)
+{
+ if (memtype == MEMTYPE_DOUBLE)
+ srv_read_recordDP(streamptr, (double *) data, numMissVals);
+ else
+ srv_read_recordSP(streamptr, (float *) data, numMissVals);
+}
+
+void
+srvCopyRecord(stream_t *streamptr2, stream_t *streamptr1)
+{
+ streamFCopyRecord(streamptr2, streamptr1, "SRV");
+}
+
+void
+srvDefRecord(stream_t *streamptr)
+{
+ Record *record = streamptr->record;
+
+ int pdis, pcat, pnum;
+ cdiDecodeParam(record->param, &pnum, &pcat, &pdis);
+
+ int header[8];
+ header[0] = pnum;
+ header[1] = record->ilevel;
+ header[2] = record->vdate;
+ header[3] = record->vtime;
+
+ int gridID = record->gridID;
+ size_t xsize = gridInqXsize(gridID), ysize = gridInqYsize(gridID);
+ if (xsize == 0 || ysize == 0)
+ {
+ xsize = gridInqSize(gridID);
+ ysize = 1;
+ }
+ if (gridInqType(gridID) == GRID_UNSTRUCTURED) ysize = 1;
+ if ((size_t) gridInqSize(gridID) != xsize * ysize) Error("Internal problem with gridsize!");
+
+ cdi_check_gridsize_int_limit("SERVICE", gridInqSize(gridID));
+
+ header[4] = (int) xsize;
+ header[5] = (int) ysize;
+ header[6] = 0;
+ header[7] = 0;
+
+ srvrec_t *srvp = (srvrec_t *) record->objectp;
+ srvp->dprec = srvDefDatatype(record->prec);
+
+ srvDefHeader(srvp, header);
+}
+
+static void
+srv_write_recordSP(stream_t *streamptr, const float *data)
+{
+ void *srvp = streamptr->record->objectp;
+ srvDefDataSP(srvp, data);
+ srvWrite(streamptr->fileID, srvp);
+}
+
+static void
+srv_write_recordDP(stream_t *streamptr, const double *data)
+{
+ void *srvp = streamptr->record->objectp;
+ srvDefDataDP(srvp, data);
+ srvWrite(streamptr->fileID, srvp);
+}
+
+void
+srv_write_record(stream_t *streamptr, int memtype, const void *data)
+{
+ if (memtype == MEMTYPE_DOUBLE)
+ srv_write_recordDP(streamptr, (const double *) data);
+ else
+ srv_write_recordSP(streamptr, (const float *) data);
+}
+
+static void
+srv_add_record(stream_t *streamptr, int param, int level, size_t xsize, size_t ysize, size_t recsize, off_t position, int prec)
+{
+ int vlistID = streamptr->vlistID;
+ int tsID = streamptr->curTsID;
+ int recID = recordNewEntry(streamptr, tsID);
+ record_t *record = &streamptr->tsteps[tsID].records[recID];
+
+ record->size = recsize;
+ record->position = position;
+ record->param = param;
+ record->ilevel = level;
+
+ grid_t *grid = (grid_t *) Malloc(sizeof(*grid));
+ grid_init(grid);
+ cdiGridTypeInit(grid, GRID_GENERIC, xsize * ysize);
+ grid->x.size = xsize;
+ grid->y.size = ysize;
+ struct addIfNewRes gridAdded = cdiVlistAddGridIfNew(vlistID, grid, 0);
+ int gridID = gridAdded.Id;
+ if (!gridAdded.isNew)
+ {
+ grid_free(grid);
+ Free(grid);
+ }
+
+ int leveltype = ZAXIS_GENERIC;
+ int datatype = srvInqDatatype(prec);
+
+ int varID, levelID = 0;
+ varAddRecord(recID, param, gridID, leveltype, 0, level, 0, 0, 0, datatype, &varID, &levelID, TSTEP_INSTANT, 0, -1, NULL, NULL,
+ NULL, NULL);
+
+ xassert(varID <= SHRT_MAX && levelID <= SHRT_MAX);
+ record->varID = (short) varID;
+ record->levelID = levelID;
+
+ streamptr->tsteps[tsID].nallrecs++;
+ streamptr->nrecs++;
+
+ if (CDI_Debug) Message("varID = %d gridID = %d levelID = %d", varID, gridID, levelID);
+}
+
+static void
+srvScanTimestep1(stream_t *streamptr)
+{
+ CdiDateTime datetime0;
+ cdiDateTime_init(&datetime0);
+ off_t recpos;
+ srvrec_t *srvp = (srvrec_t *) streamptr->record->objectp;
+
+ streamptr->curTsID = 0;
+
+ int tsID = tstepsNewEntry(streamptr);
+ if (tsID != 0) Error("Internal problem! tstepsNewEntry returns %d", tsID);
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ int fileID = streamptr->fileID;
+
+ int nrecs = 0;
+ while (true)
+ {
+ recpos = fileGetPos(fileID);
+ if (srvRead(fileID, srvp) != 0)
+ {
+ streamptr->ntsteps = 1;
+ break;
+ }
+
+ size_t recsize = (size_t) (fileGetPos(fileID) - recpos);
+
+ int header[8];
+ srvInqHeader(srvp, header);
+
+ int prec = srvp->dprec;
+ int rcode = header[0];
+ int rlevel = header[1];
+ int vdate = header[2];
+ int vtime = header[3];
+ int rxsize = header[4];
+ int rysize = header[5];
+ int param = cdiEncodeParam(rcode, 255, 255);
+ CdiDateTime datetime = cdiDateTime_set(vdate, vtime);
+
+ if (nrecs == 0)
+ {
+ datetime0 = datetime;
+ taxis->vDateTime = datetime;
+ }
+ else
+ {
+ record_t *records = streamptr->tsteps[tsID].records;
+ for (int recID = 0; recID < nrecs; recID++)
+ if (param == records[recID].param && rlevel == records[recID].ilevel) goto tstepScanLoopFinished;
+
+ if (cdiDateTime_isNE(datetime, datetime0)) Warning("Inconsistent verification time for code %d level %d", rcode, rlevel);
+ }
+
+ nrecs++;
+
+ if (CDI_Debug) Message("%4d%8d%4d%8d%8d%6d", nrecs, (int) recpos, rcode, rlevel, vdate, vtime);
+
+ srv_add_record(streamptr, param, rlevel, rxsize, rysize, recsize, recpos, prec);
+ }
+
+tstepScanLoopFinished:
+ streamptr->rtsteps = 1;
+
+ cdi_generate_vars(streamptr);
+
+ int taxisID = taxisCreate(TAXIS_ABSOLUTE);
+ taxis->type = TAXIS_ABSOLUTE;
+ taxis->rDateTime = taxis->vDateTime;
+
+ int vlistID = streamptr->vlistID;
+ vlistDefTaxis(vlistID, taxisID);
+
+ vlist_check_contents(vlistID);
+
+ streamScanResizeRecords1(streamptr);
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+ streamScanTimeConstAdjust(streamptr, taxis);
+}
+
+static int
+srvScanTimestep2(stream_t *streamptr)
+{
+ int header[8];
+ off_t recpos = 0;
+ void *srvp = streamptr->record->objectp;
+
+ streamptr->curTsID = 1;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ int tsID = streamptr->rtsteps;
+ if (tsID != 1) Error("Internal problem! unexpected timestep %d", tsID + 1);
+
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ int nrecords = streamScanInitRecords2(streamptr);
+
+ for (int rindex = 0; rindex <= nrecords; rindex++)
+ {
+ recpos = fileGetPos(fileID);
+ if (srvRead(fileID, srvp) != 0)
+ {
+ streamptr->ntsteps = 2;
+ break;
+ }
+
+ size_t recsize = (size_t) (fileGetPos(fileID) - recpos);
+
+ srvInqHeader(srvp, header);
+
+ int rcode = header[0];
+ int rlevel = header[1];
+ int vdate = header[2];
+ int vtime = header[3];
+ int param = cdiEncodeParam(rcode, 255, 255);
+
+ if (rindex == 0)
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ taxis->vDateTime = cdiDateTime_set(vdate, vtime);
+ }
+
+ bool nextstep = false;
+ int recID;
+ for (recID = 0; recID < nrecords; recID++)
+ {
+ if (param == records[recID].param && rlevel == records[recID].ilevel)
+ {
+ if (records[recID].used)
+ {
+ nextstep = true;
+ }
+ else
+ {
+ records[recID].used = true;
+ streamptr->tsteps[tsID].recIDs[rindex] = recID;
+ }
+ break;
+ }
+ }
+ if (recID == nrecords)
+ {
+ Warning("Code %d level %d not found at timestep %d", rcode, rlevel, tsID + 1);
+ return CDI_EUFSTRUCT;
+ }
+
+ if (nextstep) break;
+
+ if (CDI_Debug) Message("%4d%8d%4d%8d%8d%6d", rindex + 1, (int) recpos, rcode, rlevel, vdate, vtime);
+
+ if (param != records[recID].param || rlevel != records[recID].ilevel)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, rlevel);
+ return CDI_EUFSTRUCT;
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+ }
+
+ int nrecs = 0;
+ for (int recID = 0; recID < nrecords; recID++)
+ {
+ if (records[recID].used)
+ nrecs++;
+ else
+ vlistDefVarTimetype(vlistID, records[recID].varID, TIME_CONSTANT);
+ }
+ streamptr->tsteps[tsID].nrecs = nrecs;
+
+ streamptr->rtsteps = 2;
+
+ streamScanTsFixNtsteps(streamptr, recpos);
+
+ return 0;
+}
+
+int
+srvInqContents(stream_t *streamptr)
+{
+ streamptr->curTsID = 0;
+
+ srvScanTimestep1(streamptr);
+
+ int status = (streamptr->ntsteps == -1) ? srvScanTimestep2(streamptr) : 0;
+
+ fileSetPos(streamptr->fileID, 0, SEEK_SET);
+
+ return status;
+}
+
+static long
+srvScanTimestep(stream_t *streamptr)
+{
+ int header[8];
+ off_t recpos = 0;
+ int nrecs = 0;
+ void *srvp = streamptr->record->objectp;
+
+ int tsID = streamptr->rtsteps;
+ taxis_t *taxis = &streamptr->tsteps[tsID].taxis;
+
+ if (streamptr->tsteps[tsID].recordSize == 0)
+ {
+ cdi_create_records(streamptr, tsID);
+ record_t *records = streamptr->tsteps[tsID].records;
+
+ nrecs = streamScanInitRecords(streamptr, tsID);
+
+ int fileID = streamptr->fileID;
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+
+ for (int rindex = 0; rindex <= nrecs; rindex++)
+ {
+ recpos = fileGetPos(fileID);
+ if (srvRead(fileID, srvp) != 0)
+ {
+ streamptr->ntsteps = streamptr->rtsteps + 1;
+ break;
+ }
+
+ size_t recsize = (size_t) (fileGetPos(fileID) - recpos);
+
+ srvInqHeader(srvp, header);
+
+ int rcode = header[0];
+ int rlevel = header[1];
+ int vdate = header[2];
+ int vtime = header[3];
+ int param = cdiEncodeParam(rcode, 255, 255);
+
+ // if ( rindex == nrecs ) break; gcc-4.5 internal compiler error
+ if (rindex == nrecs) continue;
+ int recID = streamptr->tsteps[tsID].recIDs[rindex];
+
+ if (rindex == 0)
+ {
+ taxis->type = TAXIS_ABSOLUTE;
+ taxis->vDateTime = cdiDateTime_set(vdate, vtime);
+ }
+
+ if (param != records[recID].param || rlevel != records[recID].ilevel)
+ {
+ Message("tsID = %d recID = %d param = %3d new %3d level = %3d new %3d", tsID, recID, records[recID].param, param,
+ records[recID].ilevel, rlevel);
+ Error("Invalid, unsupported or inconsistent record structure!");
+ }
+
+ records[recID].position = recpos;
+ records[recID].size = recsize;
+
+ if (CDI_Debug) Message("%4d%8d%4d%8d%8d%6d", rindex, (int) recpos, rcode, rlevel, vdate, vtime);
+ }
+
+ streamptr->rtsteps++;
+
+ if (streamptr->ntsteps != streamptr->rtsteps)
+ {
+ tsID = tstepsNewEntry(streamptr);
+ if (tsID != streamptr->rtsteps) Error("Internal error. tsID = %d", tsID);
+
+ streamptr->tsteps[tsID - 1].next = true;
+ streamptr->tsteps[tsID].position = recpos;
+ }
+
+ fileSetPos(fileID, streamptr->tsteps[tsID].position, SEEK_SET);
+ streamptr->tsteps[tsID].position = recpos;
+ }
+
+ if (nrecs > 0 && nrecs < streamptr->tsteps[tsID].nrecs)
+ {
+ Warning("Incomplete timestep. Stop scanning at timestep %d.", tsID);
+ streamptr->ntsteps = tsID;
+ }
+
+ return streamptr->ntsteps;
+}
+
+int
+srvInqTimestep(stream_t *streamptr, int tsID)
+{
+ if (tsID == 0 && streamptr->rtsteps == 0) Error("Call to cdiInqContents missing!");
+
+ if (CDI_Debug) Message("tsID = %d rtsteps = %d", tsID, streamptr->rtsteps);
+
+ long ntsteps = CDI_UNDEFID;
+ while ((tsID + 1) > streamptr->rtsteps && ntsteps == CDI_UNDEFID) ntsteps = srvScanTimestep(streamptr);
+
+ int nrecs = 0;
+ if (!(tsID >= streamptr->ntsteps && streamptr->ntsteps != CDI_UNDEFID))
+ {
+ streamptr->curTsID = tsID;
+ nrecs = streamptr->tsteps[tsID].nrecs;
+ }
+
+ return nrecs;
+}
+
+void
+srvReadVarSliceDP(stream_t *streamptr, int varID, int levID, double *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d levID = %d", streamptr->self, varID, levID);
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsid = streamptr->curTsID;
+
+ off_t currentfilepos = fileGetPos(fileID);
+
+ int recID = streamptr->vars[varID].recordTable[0].recordID[levID];
+ off_t recpos = streamptr->tsteps[tsid].records[recID].position;
+
+ fileSetPos(fileID, recpos, SEEK_SET);
+
+ void *srvp = streamptr->record->objectp;
+ if (srvRead(fileID, srvp) < 0) abort();
+
+ int header[8];
+ srvInqHeader(srvp, header);
+ srvInqDataDP(srvp, data);
+
+ fileSetPos(fileID, currentfilepos, SEEK_SET);
+
+ double missval = vlistInqVarMissval(vlistID, varID);
+ size_t size = gridInqSize(vlistInqVarGrid(vlistID, varID));
+
+ *numMissVals = get_num_missvalsDP(size, data, missval);
+}
+
+void
+srvReadVarDP(stream_t *streamptr, int varID, double *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ size_t gridsize = gridInqSize(vlistInqVarGrid(vlistID, varID));
+ size_t nlevs = (size_t) streamptr->vars[varID].recordTable[0].nlevs;
+
+ for (size_t levID = 0; levID < nlevs; levID++)
+ srvReadVarSliceDP(streamptr, varID, (int) levID, &data[levID * gridsize], numMissVals);
+}
+
+void
+srvWriteVarSliceDP(stream_t *streamptr, int varID, int levID, const double *data)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d levID = %d", streamptr->self, varID, levID);
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int tsID = streamptr->curTsID;
+ CdiDateTime vDateTime = streamptr->tsteps[tsID].taxis.vDateTime;
+ int gridID = vlistInqVarGrid(vlistID, varID);
+
+ int pdis, pcat, pnum;
+ cdiDecodeParam(vlistInqVarParam(vlistID, varID), &pnum, &pcat, &pdis);
+
+ int header[8];
+ header[0] = pnum;
+ header[1] = (int) lround(zaxisInqLevel(vlistInqVarZaxis(vlistID, varID), levID));
+ header[2] = (int) cdiDate_get(vDateTime.date);
+ header[3] = cdiTime_get(vDateTime.time);
+
+ size_t xsize = gridInqXsize(gridID);
+ size_t ysize = gridInqYsize(gridID);
+ if (xsize == 0 || ysize == 0)
+ {
+ xsize = gridInqSize(gridID);
+ ysize = 1;
+ }
+ if (gridInqType(gridID) == GRID_UNSTRUCTURED) ysize = 1;
+ if ((size_t) gridInqSize(gridID) != xsize * ysize) Error("Internal problem with gridsize!");
+
+ cdi_check_gridsize_int_limit("SERVICE", gridInqSize(gridID));
+
+ header[4] = xsize;
+ header[5] = ysize;
+ header[6] = 0;
+ header[7] = 0;
+
+ int datatype = vlistInqVarDatatype(vlistID, varID);
+
+ srvrec_t *srvp = (srvrec_t *) streamptr->record->objectp;
+ srvp->dprec = srvDefDatatype(datatype);
+
+ srvDefHeader(srvp, header);
+ srvDefDataDP(srvp, data);
+ srvWrite(fileID, srvp);
+}
+
+void
+srvWriteVarDP(stream_t *streamptr, int varID, const double *data)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ size_t gridsize = gridInqSize(vlistInqVarGrid(vlistID, varID));
+ size_t nlevs = (size_t) zaxisInqSize(vlistInqVarZaxis(vlistID, varID));
+
+ for (size_t levID = 0; levID < nlevs; levID++) srvWriteVarSliceDP(streamptr, varID, (int) levID, &data[levID * gridsize]);
+}
+
+#endif /* HAVE_LIBSERVICE */
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+
+static void
+streamvar_init_recordtable(stream_t *streamptr, int varID, int isub)
+{
+ streamptr->vars[varID].recordTable[isub].nlevs = 0;
+ streamptr->vars[varID].recordTable[isub].recordID = NULL;
+ streamptr->vars[varID].recordTable[isub].lindex = NULL;
+}
+
+static void
+streamvar_init_entry(stream_t *streamptr, int varID)
+{
+ streamptr->vars[varID].ncvarid = CDI_UNDEFID;
+ streamptr->vars[varID].defmiss = false;
+
+ streamptr->vars[varID].subtypeSize = 0;
+ streamptr->vars[varID].recordTable = NULL;
+
+ streamptr->vars[varID].gridID = CDI_UNDEFID;
+ streamptr->vars[varID].zaxisID = CDI_UNDEFID;
+ streamptr->vars[varID].tsteptype = CDI_UNDEFID;
+ streamptr->vars[varID].subtypeID = CDI_UNDEFID;
+}
+
+static int
+streamvar_new_entry(stream_t *streamptr)
+{
+ int varID = 0;
+ int streamvarSize = streamptr->varsAllocated;
+ svarinfo_t *streamvar = streamptr->vars;
+ /*
+ Look for a free slot in streamvar.
+ (Create the table the first time through).
+ */
+ if (!streamvarSize)
+ {
+ streamvarSize = 2;
+ streamvar = (svarinfo_t *) Malloc((size_t) streamvarSize * sizeof(svarinfo_t));
+ if (streamvar == NULL)
+ {
+ Message("streamvarSize = %d", streamvarSize);
+ SysError("Allocation of svarinfo_t failed");
+ }
+
+ for (int i = 0; i < streamvarSize; i++) streamvar[i].isUsed = false;
+ }
+ else
+ {
+ while (varID < streamvarSize)
+ {
+ if (!streamvar[varID].isUsed) break;
+ varID++;
+ }
+ }
+ /*
+ If the table overflows, double its size.
+ */
+ if (varID == streamvarSize)
+ {
+ streamvarSize = 2 * streamvarSize;
+ streamvar = (svarinfo_t *) Realloc(streamvar, (size_t) streamvarSize * sizeof(svarinfo_t));
+ if (streamvar == NULL)
+ {
+ Message("streamvarSize = %d", streamvarSize);
+ SysError("Reallocation of svarinfo_t failed");
+ }
+ varID = streamvarSize / 2;
+
+ for (int i = varID; i < streamvarSize; i++) streamvar[i].isUsed = false;
+ }
+
+ streamptr->varsAllocated = streamvarSize;
+ streamptr->vars = streamvar;
+
+ streamvar_init_entry(streamptr, varID);
+
+ streamptr->vars[varID].isUsed = true;
+
+ return varID;
+}
+
+static void
+allocate_record_table_entry(stream_t *streamptr, int varID, int subID, int nlevs)
+{
+ int *level = (int *) Malloc((size_t) nlevs * sizeof(int));
+ int *lindex = (int *) Malloc((size_t) nlevs * sizeof(int));
+
+ for (int levID = 0; levID < nlevs; levID++)
+ {
+ level[levID] = CDI_UNDEFID;
+ lindex[levID] = levID;
+ }
+
+ streamptr->vars[varID].recordTable[subID].nlevs = nlevs;
+ streamptr->vars[varID].recordTable[subID].recordID = level;
+ streamptr->vars[varID].recordTable[subID].lindex = lindex;
+}
+
+int
+stream_new_var(stream_t *streamptr, int gridID, int zaxisID, int tilesetID)
+{
+ if (CDI_Debug) Message("gridID = %d zaxisID = %d", gridID, zaxisID);
+
+ int varID = streamvar_new_entry(streamptr);
+ int nlevs = zaxisInqSize(zaxisID);
+
+ streamptr->nvars++;
+
+ streamptr->vars[varID].gridID = gridID;
+ streamptr->vars[varID].zaxisID = zaxisID;
+
+ int nsub = 1;
+ if (tilesetID != CDI_UNDEFID) nsub = subtypeInqSize(tilesetID); /* e.g. no of tiles */
+ if (CDI_Debug) Message("varID %d: create %d tiles with %d level(s), zaxisID=%d", varID, nsub, nlevs, zaxisID);
+ streamptr->vars[varID].recordTable = (sleveltable_t *) Malloc((size_t) nsub * sizeof(sleveltable_t));
+ if (streamptr->vars[varID].recordTable == NULL) SysError("Allocation of leveltable failed!");
+ streamptr->vars[varID].subtypeSize = nsub;
+
+ for (int isub = 0; isub < nsub; isub++)
+ {
+ streamvar_init_recordtable(streamptr, varID, isub);
+ allocate_record_table_entry(streamptr, varID, isub, nlevs);
+ if (CDI_Debug)
+ Message("streamptr->vars[varID].recordTable[isub].recordID[0]=%d", streamptr->vars[varID].recordTable[isub].recordID[0]);
+ }
+
+ streamptr->vars[varID].subtypeID = tilesetID;
+
+ return varID;
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBGRIB
+
+#ifdef HAVE_LIBFDB5
+#endif
+
+#ifdef HAVE_ACROSS
+#endif
+
+
+static size_t
+grb_encode(int filetype, int memType, int datatype, int varID, int levelID, int vlistID, int gridID, int zaxisID,
+ CdiDateTime vDateTime, int tsteptype, int numavg, size_t datasize, const void *data, size_t numMissVals,
+ void **gribbuffer, int comptype, void *gribContainers)
+{
+ size_t nbytes = 0;
+
+#ifdef HAVE_LIBCGRIBEX
+ if (filetype == CDI_FILETYPE_GRB && !CDI_gribapi_grib1)
+ {
+ size_t gribbuffersize = datasize * 4 + 3000;
+ *gribbuffer = Malloc(gribbuffersize);
+
+ nbytes = cgribexEncode(memType, varID, levelID, vlistID, gridID, zaxisID, vDateTime, tsteptype, numavg, datasize, data,
+ numMissVals, *gribbuffer, gribbuffersize);
+ }
+ else
+#endif
+#ifdef HAVE_LIBGRIB_API
+ {
+#ifdef GRIBCONTAINER2D
+ void *gribContainer = (void *) &((gribContainer_t **) gribContainers)[varID][levelID];
+#else
+ void *gribContainer = (void *) &((gribContainer_t *) gribContainers)[varID];
+#endif
+ // bool useFloatInterface = (have_gribapi_float_interface() && datatype != CDI_DATATYPE_FLT32 && datatype !=
+ // CDI_DATATYPE_FLT64);
+ bool useFloatInterface = false;
+ int memTypeX = useFloatInterface ? memType : MEMTYPE_DOUBLE;
+ const void *datap = data;
+
+ // if (useFloatInterface) printf("gribapi write: useFloatInterface\n");
+
+ if (!useFloatInterface && memType == MEMTYPE_FLOAT)
+ {
+ // printf("gribapi write: convert float to double\n");
+ const float *dataf = (const float *) data;
+ double *datad = (double *) Malloc(datasize * sizeof(double));
+ for (size_t i = 0; i < datasize; ++i) datad[i] = (double) dataf[i];
+ datap = (const void *) datad;
+ }
+
+ size_t gribbuffersize;
+ nbytes = gribapiEncode(memTypeX, varID, levelID, vlistID, gridID, zaxisID, vDateTime, tsteptype, numavg, (long) datasize,
+ datap, numMissVals, gribbuffer, &gribbuffersize, comptype, gribContainer);
+
+ if (!useFloatInterface && memType == MEMTYPE_FLOAT) Free((void *) datap);
+ }
+#else
+ {
+ Error("ecCodes support not compiled in!");
+ (void) gribContainers;
+ (void) comptype;
+ }
+#endif
+
+ return nbytes;
+}
+
+static size_t
+grbSzip(int filetype, void *gribbuffer, size_t gribbuffersize)
+{
+ size_t buffersize = gribbuffersize + 1000; // compressed record can be greater than source record
+ void *buffer = Malloc(buffersize);
+
+ // memcpy(buffer, gribbuffer, gribbuffersize);
+
+ size_t nbytes = 0;
+ if (filetype == CDI_FILETYPE_GRB)
+ {
+ nbytes = (size_t) gribZip((unsigned char *) gribbuffer, (long) gribbuffersize, (unsigned char *) buffer, (long) buffersize);
+ }
+ else
+ {
+ static int lszip_warn = 1;
+ if (lszip_warn) Warning("Szip compression of GRIB2 records not implemented!");
+ lszip_warn = 0;
+ nbytes = gribbuffersize;
+ }
+
+ Free(buffer);
+
+ return nbytes;
+}
+
+typedef struct
+{
+ char date[16];
+ char time[8];
+ char param[8];
+ char levtype[8];
+ char levelist[8];
+} FDB_Keys;
+
+void
+cdi_fdb_store(void *fdbHandle, const char *filename, void *gribbuffer, size_t nbytes, const FDB_Keys *fdbKeys)
+{
+#ifdef HAVE_LIBFDB5
+ size_t len = strlen(filename);
+ if (len == 6) Error("FDB keys missing!");
+
+ KeyValueItem keyValue;
+ keyValue.item = NULL;
+ decode_fdbitem(filename + 6, &keyValue);
+
+ if (keyValue.numKeys == 0) Error("FDB keys missing!");
+
+ bool expverDefined = false;
+ bool classDefined = false;
+ for (int k = 0; k < keyValue.numKeys; k++)
+ {
+ // clang-format off
+ if (!expverDefined && str_is_equal(keyValue.keys[k], "expver")) expverDefined = true;
+ else if (!classDefined && str_is_equal(keyValue.keys[k], "class")) classDefined = true;
+ // clang-format on
+ }
+
+ if (!expverDefined) Error("FDB parameter <expver> undefined!");
+ if (!classDefined) Error("FDB parameter <class> undefined!");
+
+ if (CDI_Debug)
+ {
+ printf("{");
+ for (int k = 0; k < keyValue.numKeys; k++)
+ {
+ printf("%s%s=%s", (k > 0) ? "," : "", keyValue.keys[k], keyValue.values[k]);
+ }
+ printf(",date=%s,time=%s,domain=g}", fdbKeys->date, fdbKeys->time);
+ printf("{type=an,levtype=%s}{step=0,", fdbKeys->levtype);
+ if (fdbKeys->levelist[0]) printf("levelist=%s,", fdbKeys->levelist);
+ printf("param=%s},length=%zu\n", fdbKeys->param, nbytes);
+ }
+
+ fdb_key_t *key;
+ check_fdb_error(fdb_new_key(&key));
+ for (int k = 0; k < keyValue.numKeys; k++)
+ {
+ check_fdb_error(fdb_key_add(key, keyValue.keys[k], keyValue.values[k]));
+ }
+ check_fdb_error(fdb_key_add(key, "domain", "g"));
+ check_fdb_error(fdb_key_add(key, "date", fdbKeys->date));
+ check_fdb_error(fdb_key_add(key, "time", fdbKeys->time));
+ check_fdb_error(fdb_key_add(key, "type", "an"));
+ check_fdb_error(fdb_key_add(key, "levtype", fdbKeys->levtype));
+ check_fdb_error(fdb_key_add(key, "step", "0"));
+ check_fdb_error(fdb_key_add(key, "param", fdbKeys->param));
+ if (fdbKeys->levelist[0]) check_fdb_error(fdb_key_add(key, "levelist", fdbKeys->levelist));
+
+ check_fdb_error(fdb_archive(fdbHandle, key, gribbuffer, nbytes));
+ // alternative: write to tmpfile and use C++ code from fdb_write
+
+ check_fdb_error(fdb_delete_key(key));
+#endif
+}
+
+static int
+map_grib2_param(int pnum, int pcat, int pdis)
+{
+ // clang-format off
+ if (pnum == 8 && pcat == 2 && pdis == 0) return 135;
+ else if (pnum == 0 && pcat == 0 && pdis == 0) return 130;
+ else if (pnum == 0 && pcat == 1 && pdis == 0) return 133;
+ else if (pnum == 83 && pcat == 1 && pdis == 0) return 246;
+ else if (pnum == 84 && pcat == 1 && pdis == 0) return 247;
+ else if (pnum == 85 && pcat == 1 && pdis == 0) return 75;
+ else if (pnum == 86 && pcat == 1 && pdis == 0) return 76;
+ else if (pnum == 2 && pcat == 2 && pdis == 0) return 131;
+ else if (pnum == 3 && pcat == 2 && pdis == 0) return 132;
+ else if (pnum == 25 && pcat == 3 && pdis == 0) return 152;
+ else if (pnum == 4 && pcat == 3 && pdis == 0) return 129;
+ // clang-format on
+
+ return -1;
+}
+
+static int
+get_fdb_param(int cdiParam)
+{
+ int pnum, pcat, pdis;
+ cdiDecodeParam(cdiParam, &pnum, &pcat, &pdis);
+ if (pnum < 0) pnum = -pnum;
+ if (pnum > 255) pnum = pnum % 256;
+
+ int fdbParam = (pdis == 255) ? pnum : map_grib2_param(pnum, pcat, pdis);
+
+ return fdbParam;
+}
+
+static void
+fillup_gribbuffer(size_t nbytes, unsigned char *gribbuffer)
+{
+ while (nbytes & 7) gribbuffer[nbytes++] = 0;
+}
+
+void
+grbCopyRecord(stream_t *streamptr2, stream_t *streamptr1)
+{
+ int filetype = streamptr1->filetype;
+ int fileID1 = streamptr1->fileID;
+ int fileID2 = streamptr2->fileID;
+ int tsID = streamptr1->curTsID;
+ int vrecID = streamptr1->tsteps[tsID].curRecID;
+ int recID = streamptr1->tsteps[tsID].recIDs[vrecID];
+ const record_t *record = &streamptr1->tsteps[tsID].records[recID];
+ off_t recpos = record->position;
+ size_t recsize = record->size;
+
+ void *gribbuffer = NULL;
+
+ if (streamptr1->protocol == CDI_PROTOCOL_FDB)
+ {
+#ifdef HAVE_LIBFDB5
+ int fdbItemIndex = streamptr1->tsteps[tsID].records[recID].fdbItemIndex;
+ if (fdbItemIndex == -1) Error("fdbItem not available!");
+
+ size_t buffersize = 0;
+ recsize
+ = cdi_fdb_read_record(streamptr1->protocolData, &(streamptr1->fdbKeyValueList[fdbItemIndex]), &buffersize, &gribbuffer);
+
+ // round up recsize to next multiple of 8
+ size_t gribbuffersize = ((recsize + 7U) & ~7U);
+
+ gribbuffer = (unsigned char *) Realloc(gribbuffer, gribbuffersize);
+#endif
+ }
+ else
+ {
+ fileSetPos(fileID1, recpos, SEEK_SET);
+
+ // round up recsize to next multiple of 8
+ size_t gribbuffersize = ((recsize + 7U) & ~7U);
+
+ gribbuffer = (unsigned char *) Malloc(gribbuffersize);
+
+ if (fileRead(fileID1, gribbuffer, recsize) != recsize) Error("Could not read GRIB record for copying!");
+ }
+
+ size_t nbytes = recsize;
+
+#ifdef HAVE_LIBCGRIBEX
+ if (filetype == CDI_FILETYPE_GRB && !CDI_gribapi_grib1)
+ {
+ if (cdiGribChangeParameterID.active)
+ {
+ // Even if you are stream-copy records you might need to change a bit of grib-header !
+ void *gh = cgribex_handle_new_from_meassage((void *) gribbuffer, recsize);
+ cgribexChangeParameterIdentification(gh, cdiGribChangeParameterID.code, cdiGribChangeParameterID.ltype,
+ cdiGribChangeParameterID.lev);
+ cgribex_handle_delete(gh);
+ cdiGribChangeParameterID.active = false; // after grib attributes have been changed turn it off again
+ }
+ }
+ else
+#endif
+#ifdef HAVE_LIBGRIB_API
+ {
+ if (cdiGribChangeParameterID.active)
+ {
+ // Even if you are stream-copy records you might need to change a bit of grib-header !
+ grib_handle *gh = grib_handle_new_from_message(NULL, (void *) gribbuffer, recsize);
+ gribapiChangeParameterIdentification(gh, cdiGribChangeParameterID.code, cdiGribChangeParameterID.ltype,
+ cdiGribChangeParameterID.lev);
+ grib_handle_delete(gh);
+ cdiGribChangeParameterID.active = false; // after grib attributes have been changed turn it off again
+ }
+ }
+#else
+ {
+ Error("ecCodes support not compiled in!");
+ }
+#endif
+
+#ifdef HAVE_LIBGRIB_API
+#ifdef HIRLAM_EXTENSIONS
+ // Even if you are stream-copy records you might need to change a bit of grib-header !
+
+ if (cdiGribDataScanningMode.active)
+ // allowed modes: <0, 64, 96>; Default is 64
+ // This will overrule the old scanning mode of the given grid
+ {
+ grib_handle *gh = grib_handle_new_from_message(NULL, (void *) gribbuffer, recsize);
+
+ int scanModeIN = gribapiGetScanningMode(gh);
+
+ grib_handle_delete(gh);
+
+ if (cdiDebugExt >= 20)
+ Message("Change GribDataScanningMode => %d (scanModeIN = %d)", cdiGribDataScanningMode.value, scanModeIN);
+
+ if (scanModeIN != cdiGribDataScanningMode.value)
+ {
+ size_t numMissVals = 0;
+
+ int vlistID = streamptr1->vlistID;
+ int varID = record->varID;
+ int levelID = record->levelID;
+ int gridID = vlistInqVarGrid(vlistID, varID);
+
+ size_t gridsize = gridInqSize(gridID);
+ if (vlistNumber(vlistID) != CDI_REAL) gridsize *= 2;
+ double *data = (double *) Malloc(gridsize * sizeof(double));
+
+ if (cdiDebugExt >= 20) Message(" processing varID %d; levelID %d", varID, levelID);
+
+ grb_write_var_slice(streamptr2, varID, levelID, MEMTYPE_DOUBLE, (const void *) data, numMissVals);
+
+ free(data);
+ }
+ }
+#endif // HIRLAM_EXTENSIONS
+#endif
+
+ if (filetype == CDI_FILETYPE_GRB)
+ {
+ size_t unzipsize;
+ int izip = gribGetZip(recsize, (unsigned char *) gribbuffer, &unzipsize);
+
+ if (izip == 0 && (streamptr2->comptype == CDI_COMPRESS_SZIP || streamptr2->comptype == CDI_COMPRESS_AEC))
+ nbytes = grbSzip(filetype, gribbuffer, nbytes);
+ }
+
+ fillup_gribbuffer(nbytes, (unsigned char *) gribbuffer);
+
+ if (streamptr2->protocol == CDI_PROTOCOL_FDB)
+ {
+ int vlistID = streamptr1->vlistID;
+ int varID = record->varID;
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+ int zaxisType = zaxisInqType(zaxisID);
+ CdiDateTime vDateTime = streamptr1->tsteps[tsID].taxis.vDateTime;
+
+ FDB_Keys fdbKeys;
+ snprintf(fdbKeys.date, sizeof(fdbKeys.date), "%d", (int) cdiDate_get(vDateTime.date));
+ snprintf(fdbKeys.time, sizeof(fdbKeys.time), "%04d", (short) (cdiTime_get(vDateTime.time) / 100));
+ snprintf(fdbKeys.param, sizeof(fdbKeys.param), "%d", get_fdb_param(record->param));
+ bool isML = (zaxisType == ZAXIS_HYBRID || zaxisType == ZAXIS_HYBRID_HALF);
+ snprintf(fdbKeys.levtype, sizeof(fdbKeys.levtype), "%s", isML ? "ml" : "sfc");
+ fdbKeys.levelist[0] = 0;
+ if (isML) snprintf(fdbKeys.levelist, sizeof(fdbKeys.levelist), "%d", isML ? record->ilevel : 0);
+
+#ifdef HAVE_LIBFDB5
+ cdi_fdb_store(streamptr2->protocolData, streamptr2->filename, gribbuffer, nbytes, &fdbKeys);
+#endif
+ }
+ else
+ {
+ size_t nwrite = fileWrite(fileID2, gribbuffer, nbytes);
+ if (nwrite != nbytes) SysError("Could not write record for copying!");
+ }
+
+ Free(gribbuffer);
+}
+
+void
+grb_write_var_slice(stream_t *streamptr, int varID, int levelID, int memtype, const void *data, size_t numMissVals)
+{
+ int filetype = streamptr->filetype;
+ int fileID = streamptr->fileID;
+ int vlistID = streamptr->vlistID;
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+ int tsteptype = vlistInqVarTsteptype(vlistID, varID);
+ int tsID = streamptr->curTsID;
+ CdiDateTime vDateTime = streamptr->tsteps[tsID].taxis.vDateTime;
+ int numavg = (tsteptype == TSTEP_AVG) ? streamptr->tsteps[tsID].taxis.numavg : 0;
+ int comptype = streamptr->comptype;
+ int datatype = vlistInqVarDatatype(vlistID, varID);
+
+ if (CDI_Debug) Message("gridID = %d zaxisID = %d", gridID, zaxisID);
+
+ size_t datasize = gridInqSize(gridID);
+
+ if (comptype != CDI_COMPRESS_JPEG && comptype != CDI_COMPRESS_SZIP && comptype != CDI_COMPRESS_AEC) comptype = CDI_COMPRESS_NONE;
+
+ if (filetype == CDI_FILETYPE_GRB && !CDI_gribapi_grib1 && comptype == CDI_COMPRESS_JPEG)
+ {
+ static bool ljpeg_warn = true;
+ if (ljpeg_warn) Warning("JPEG compression of GRIB1 records not available!");
+ ljpeg_warn = false;
+ }
+
+ void *gribbuffer = NULL;
+ size_t nbytes = grb_encode(filetype, memtype, datatype, varID, levelID, vlistID, gridID, zaxisID, vDateTime, tsteptype, numavg,
+ datasize, data, numMissVals, &gribbuffer, comptype, streamptr->gribContainers);
+
+ if (filetype == CDI_FILETYPE_GRB && (comptype == CDI_COMPRESS_SZIP || comptype == CDI_COMPRESS_AEC))
+ nbytes = grbSzip(filetype, gribbuffer, nbytes);
+
+ switch (streamptr->protocol)
+ {
+ case CDI_PROTOCOL_ACROSS:
+ {
+#ifdef HAVE_ACROSS
+ if (across_write_grib_message(streamptr, gribbuffer, nbytes)) SysError("Failed to write GRIB slice!");
+#endif
+ }
+ break;
+
+ case CDI_PROTOCOL_FDB:
+ {
+#ifdef HAVE_LIBFDB5
+ int zaxisType = zaxisInqType(zaxisID);
+ double level = zaxisInqLevel(zaxisID, levelID);
+
+ FDB_Keys fdbKeys;
+ snprintf(fdbKeys.date, sizeof(fdbKeys.date), "%d", (int) cdiDate_get(vDateTime.date));
+ snprintf(fdbKeys.time, sizeof(fdbKeys.time), "%04d", (short) (cdiTime_get(vDateTime.time) / 100));
+ snprintf(fdbKeys.param, sizeof(fdbKeys.param), "%d", get_fdb_param(vlistInqVarParam(vlistID, varID)));
+ bool isML = (zaxisType == ZAXIS_HYBRID || zaxisType == ZAXIS_HYBRID_HALF);
+ snprintf(fdbKeys.levtype, sizeof(fdbKeys.levtype), "%s", isML ? "ml" : "sfc");
+ fdbKeys.levelist[0] = 0;
+ int ilevel = (isML) ? (int) level : 0;
+ if (isML) snprintf(fdbKeys.levelist, sizeof(fdbKeys.levelist), "%d", isML ? ilevel : 0);
+
+ cdi_fdb_store(streamptr->protocolData, streamptr->filename, gribbuffer, nbytes, &fdbKeys);
+#endif
+ }
+ break;
+
+ case CDI_PROTOCOL_OTHER:
+ case CDI_PROTOCOL_FILE:
+ {
+ size_t (*myFileWrite)(int fileID, const void *restrict buffer, size_t len)
+ = (size_t(*)(int, const void *restrict, size_t)) namespaceSwitchGet(NSSWITCH_FILE_WRITE).func;
+
+ size_t nwrite = myFileWrite(fileID, gribbuffer, nbytes);
+ if (nwrite != nbytes) SysError("Failed to write GRIB slice!");
+ }
+ break;
+ }
+
+ if (gribbuffer) Free(gribbuffer);
+}
+
+void
+grb_write_var(stream_t *streamptr, int varID, int memtype, const void *data, size_t numMissVals)
+{
+ int vlistID = streamptr->vlistID, gridID = vlistInqVarGrid(vlistID, varID), zaxisID = vlistInqVarZaxis(vlistID, varID),
+ nlevs = zaxisInqSize(zaxisID);
+ size_t gridsize = gridInqSize(gridID);
+ double missval = vlistInqVarMissval(vlistID, varID);
+
+ size_t chunkLen = gridsize;
+ if (memtype == MEMTYPE_FLOAT)
+ for (int levelID = 0; levelID < nlevs; levelID++)
+ {
+ const float *restrict fdata = ((const float *) data) + levelID * gridsize;
+
+ size_t numMissVals_slice = 0;
+ if (numMissVals)
+ for (size_t i = 0; i < chunkLen; ++i) numMissVals_slice += DBL_IS_EQUAL(fdata[i], missval);
+
+ grb_write_var_slice(streamptr, varID, levelID, memtype, fdata, numMissVals_slice);
+ }
+ else
+ for (int levelID = 0; levelID < nlevs; levelID++)
+ {
+ const double *restrict ddata = ((const double *) data) + levelID * gridsize;
+
+ size_t numMissVals_slice = 0;
+ if (numMissVals)
+ for (size_t i = 0; i < chunkLen; ++i) numMissVals_slice += DBL_IS_EQUAL(ddata[i], missval);
+
+ grb_write_var_slice(streamptr, varID, levelID, memtype, ddata, numMissVals_slice);
+ }
+}
+
+void
+grb_write_record(stream_t *streamptr, int memtype, const void *data, size_t numMissVals)
+{
+ int varID = streamptr->record->varID;
+ int levelID = streamptr->record->levelID;
+ grb_write_var_slice(streamptr, varID, levelID, memtype, data, numMissVals);
+}
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBGRIB
+
+#ifdef HAVE_LIBFDB5
+#endif
+
+
+static int
+grb_decode(int filetype, int memType, int datatype, void *cgribexp, void *gribbuffer, size_t gribsize, void *data, size_t datasize,
+ int unreduced, size_t *numMissVals, double missval)
+{
+ int status = 0;
+
+#ifdef HAVE_LIBCGRIBEX
+ if (filetype == CDI_FILETYPE_GRB && !CDI_gribapi_grib1)
+ {
+#ifdef HAVE_LIBGRIB_API
+ extern int cdiNAdditionalGRIBKeys;
+ if (cdiNAdditionalGRIBKeys > 0) Error("CGRIBEX decode does not support reading of additional GRIB keys!");
+#endif
+ status = cgribexDecode(memType, cgribexp, gribbuffer, gribsize, data, datasize, unreduced, numMissVals, missval);
+ }
+ else
+#endif
+#ifdef HAVE_LIBGRIB_API
+ {
+ bool useFloatInterface = (have_gribapi_float_interface() && datatype != CDI_DATATYPE_FLT32 && datatype != CDI_DATATYPE_FLT64);
+ int memTypeX = useFloatInterface ? memType : MEMTYPE_DOUBLE;
+ void *datap = (!useFloatInterface && memType == MEMTYPE_FLOAT) ? Malloc(datasize * sizeof(double)) : data;
+
+ // if (useFloatInterface) printf("gribapi read: useFloatInterface\n");
+
+ status = gribapiDecode(memTypeX, gribbuffer, gribsize, datap, datasize, unreduced, numMissVals, missval);
+
+ if (!useFloatInterface && memType == MEMTYPE_FLOAT)
+ {
+ // printf("gribapi read: convert double to float\n");
+ float *dataf = (float *) data;
+ double *datad = (double *) datap;
+ for (size_t i = 0; i < datasize; ++i) dataf[i] = (float) datad[i];
+ Free(datap);
+ }
+ }
+#else
+ {
+ Error("ecCodes support not compiled in!");
+ }
+#endif
+
+ return status;
+}
+
+// Decompresses the grib data in gribbuffer.
+static int
+grib1_unzip_record(void *gribbuffer, size_t *gribsize)
+{
+ int zip = 0;
+
+ size_t igribsize = *gribsize;
+ size_t ogribsize = *gribsize;
+
+ int izip;
+ size_t unzipsize;
+ if ((izip = gribGetZip(igribsize, (unsigned char *) gribbuffer, &unzipsize)) > 0)
+ {
+ zip = izip;
+ if (izip == 128) // szip
+ {
+ if (unzipsize < igribsize)
+ {
+ fprintf(stderr, "Decompressed size smaller than compressed size (in %zu; out %zu)!\n", igribsize, unzipsize);
+ return 0;
+ }
+
+ unzipsize += 100; // need 0 to 1 bytes for rounding of bds
+
+ void *buffer = Malloc(igribsize);
+ memcpy(buffer, gribbuffer, igribsize);
+
+ ogribsize
+ = (size_t) gribUnzip((unsigned char *) gribbuffer, (long) unzipsize, (unsigned char *) buffer, (long) igribsize);
+
+ Free(buffer);
+
+ if (ogribsize <= 0) Error("Decompression problem!");
+ }
+ else
+ {
+ Error("Decompression for %d not implemented!", izip);
+ }
+ }
+
+ *gribsize = ogribsize;
+
+ return zip;
+}
+
+typedef struct JobArgs
+{
+ int recID, tsID, *outZip, filetype, memType, datatype, unreduced;
+ void *cgribexp, *gribbuffer, *data;
+ size_t recsize, gridsize, numMissVals;
+ double missval;
+} JobArgs;
+
+static int
+grb_decode_record(void *untypedArgs)
+{
+ JobArgs *args = (JobArgs *) untypedArgs;
+ *args->outZip = grib1_unzip_record(args->gribbuffer, &args->recsize);
+ grb_decode(args->filetype, args->memType, args->datatype, args->cgribexp, args->gribbuffer, args->recsize, args->data,
+ args->gridsize, args->unreduced, &args->numMissVals, args->missval);
+ return 0;
+}
+
+static JobArgs
+grb_read_raw_data(stream_t *streamptr, int tsID, int recID, int memType, void *gribbuffer, void *data, bool resetFilePos)
+{
+ int vlistID = streamptr->vlistID;
+ int varID = streamptr->tsteps[tsID].records[recID].varID;
+ size_t recsize = streamptr->tsteps[tsID].records[recID].size;
+
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ size_t gridsize = gridInqSize(gridID);
+ if (CDI_Debug) Message("gridID = %d gridsize = %zu", gridID, gridsize);
+
+ void *cgribexp = (gribbuffer && streamptr->record->objectp) ? streamptr->record->objectp : NULL;
+ if (!gribbuffer) gribbuffer = Malloc(streamptr->record->buffersize);
+ if (!data) data = Malloc(gridsize * ((memType == MEMTYPE_FLOAT) ? sizeof(float) : sizeof(double)));
+
+ if (streamptr->protocol == CDI_PROTOCOL_FDB)
+ {
+#ifdef HAVE_LIBFDB5
+ int fdbItemIndex = streamptr->tsteps[tsID].records[recID].fdbItemIndex;
+ if (fdbItemIndex == -1) Error("fdbItem not available!");
+
+ recsize = cdi_fdb_read_record(streamptr->protocolData, &(streamptr->fdbKeyValueList[fdbItemIndex]),
+ &(streamptr->record->buffersize), &gribbuffer);
+#endif
+ }
+ else
+ {
+ if (recsize == 0) Error("Internal problem! Recordsize is zero for record %d at timestep %d", recID + 1, tsID + 1);
+
+ int fileID = streamptr->fileID;
+ off_t recpos = streamptr->tsteps[tsID].records[recID].position;
+ off_t currentfilepos = (resetFilePos ? fileGetPos(fileID) : 0);
+
+ fileSetPos(fileID, recpos, SEEK_SET);
+ if (fileRead(fileID, gribbuffer, recsize) != recsize) Error("Failed to read GRIB record!");
+
+ if (resetFilePos) fileSetPos(fileID, currentfilepos, SEEK_SET);
+ if (!resetFilePos) streamptr->numvals += gridsize;
+ }
+
+ return (JobArgs){
+ .recID = recID,
+ .tsID = tsID,
+ .outZip = &streamptr->tsteps[tsID].records[recID].zip,
+ .filetype = streamptr->filetype,
+ .memType = memType,
+ .unreduced = streamptr->unreduced,
+ .cgribexp = cgribexp,
+ .gribbuffer = gribbuffer,
+ .data = data,
+ .recsize = recsize,
+ .gridsize = gridsize,
+ .numMissVals = 0,
+ .missval = vlistInqVarMissval(vlistID, varID),
+ .datatype = vlistInqVarDatatype(vlistID, varID),
+ };
+}
+
+static size_t
+grb_read_and_decode_record(stream_t *streamptr, int recID, int memType, void *data, bool resetFilePos)
+{
+ JobArgs args = grb_read_raw_data(streamptr, streamptr->curTsID, recID, memType, streamptr->record->buffer, data, resetFilePos);
+ grb_decode_record(&args);
+ return args.numMissVals;
+}
+
+typedef struct JobDescriptor
+{
+ JobArgs args;
+ AsyncJob *job;
+} JobDescriptor;
+
+static void
+JobDescriptor_startJob(AsyncManager *jobManager, JobDescriptor *me, stream_t *streamptr, int tsID, int recID, int memType)
+{
+ me->args = grb_read_raw_data(streamptr, tsID, recID, memType, NULL, NULL, false);
+ me->job = AsyncWorker_requestWork(jobManager, grb_decode_record, &me->args);
+ if (!me->job) xabort("error while trying to send job to worker thread");
+}
+
+static void
+JobDescriptor_finishJob(AsyncManager *jobManager, JobDescriptor *me, void *data, size_t *numMissVals)
+{
+ if (AsyncWorker_wait(jobManager, me->job)) xabort("error executing job in worker thread");
+ memcpy(data, me->args.data, me->args.gridsize * ((me->args.memType == MEMTYPE_FLOAT) ? sizeof(float) : sizeof(double)));
+ *numMissVals = me->args.numMissVals;
+
+ Free(me->args.gribbuffer);
+ Free(me->args.data);
+ me->args.recID = -1; // mark as inactive
+ me->args.tsID = -1; // mark as inactive
+}
+/*
+static long
+get_global_recId(stream_t *streamptr, int tsID, int recID)
+{
+ const tsteps_t *tsteps = streamptr->tsteps;
+ long globalRecId = recID;
+ if (tsID > 0) globalRecId += tsteps[0].nrecs;
+ if (tsID > 1) globalRecId += tsteps[1].nrecs * (tsID - 1);
+ return globalRecId;
+}
+*/
+
+static void
+get_local_step_and_recId(stream_t *streamptr, long globalRecId, int *tsID, int *recID)
+{
+ int localTsId = 0;
+ long numSteps = streamptr->ntsteps;
+ const tsteps_t *tsteps = streamptr->tsteps;
+ if (numSteps > 0 && globalRecId >= tsteps[0].nrecs)
+ {
+ localTsId++;
+ globalRecId -= tsteps[0].nrecs;
+ }
+ while (globalRecId >= tsteps[1].nrecs)
+ {
+ localTsId++;
+ globalRecId -= tsteps[1].nrecs;
+ }
+
+ *tsID = localTsId;
+ *recID = globalRecId;
+}
+
+static void
+read_next_record(AsyncManager *jobManager, JobDescriptor *jd, stream_t *streamptr, int memType)
+{
+ int tsId = -1, recId = -1;
+ get_local_step_and_recId(streamptr, streamptr->nextGlobalRecId, &tsId, &recId);
+ int xRecId = streamptr->tsteps[tsId].recIDs[recId];
+ JobDescriptor_startJob(jobManager, jd, streamptr, tsId, xRecId, memType);
+ streamptr->nextGlobalRecId++;
+}
+
+static void
+grb_read_next_record(stream_t *streamptr, int recID, int memType, void *data, size_t *numMissVals)
+{
+ bool jobFound = false;
+
+ int workerCount = streamptr->numWorker;
+ if (workerCount > 0)
+ {
+ int tsID = streamptr->curTsID;
+
+ AsyncManager *jobManager = (AsyncManager *) streamptr->jobManager;
+ JobDescriptor *jobs = (JobDescriptor *) streamptr->jobs;
+
+ // if this is the first call, init and start worker threads
+ if (!jobs)
+ {
+ jobs = (JobDescriptor *) malloc(workerCount * sizeof(*jobs));
+ streamptr->jobs = jobs;
+ for (int i = 0; i < workerCount; i++) jobs[i].args.recID = -1;
+ for (int i = 0; i < workerCount; i++) jobs[i].args.tsID = -1;
+ if (AsyncWorker_init(&jobManager, workerCount)) xabort("error while trying to start worker threads");
+ streamptr->jobManager = jobManager;
+
+ // Start as many new jobs as possible.
+ for (int i = 0; streamptr->nextGlobalRecId < streamptr->maxGlobalRecs && i < workerCount; i++)
+ {
+ JobDescriptor *jd = &jobs[i];
+ if (jd->args.recID < 0 && jd->args.tsID < 0) read_next_record(jobManager, jd, streamptr, memType);
+ }
+ }
+
+ // search for a job descriptor with the given tsID and recID, and use its results if it exists
+ for (int i = 0; !jobFound && i < workerCount; i++)
+ {
+ JobDescriptor *jd = &jobs[i];
+ if (jd->args.recID == recID && jd->args.tsID == tsID)
+ {
+ jobFound = true;
+ JobDescriptor_finishJob(jobManager, jd, data, numMissVals);
+ if (streamptr->nextGlobalRecId < streamptr->maxGlobalRecs) read_next_record(jobManager, jd, streamptr, memType);
+ }
+ }
+ }
+
+ // perform the work synchronously if we didn't start a job for it yet
+ if (!jobFound) *numMissVals = grb_read_and_decode_record(streamptr, recID, memType, data, false);
+}
+
+void
+grb_read_record(stream_t *streamptr, int memType, void *data, size_t *numMissVals)
+{
+ int tsID = streamptr->curTsID;
+ int vrecID = streamptr->tsteps[tsID].curRecID;
+ int recID = streamptr->tsteps[tsID].recIDs[vrecID];
+
+ grb_read_next_record(streamptr, recID, memType, data, numMissVals);
+}
+
+void
+grb_read_var_slice(stream_t *streamptr, int varID, int levelID, int memType, void *data, size_t *numMissVals)
+{
+ int isub = subtypeInqActiveIndex(streamptr->vars[varID].subtypeID);
+ int recID = streamptr->vars[varID].recordTable[isub].recordID[levelID];
+
+ *numMissVals = grb_read_and_decode_record(streamptr, recID, memType, data, true);
+}
+
+void
+grb_read_var(stream_t *streamptr, int varID, int memType, void *data, size_t *numMissVals)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ size_t gridsize = gridInqSize(gridID);
+
+ off_t currentfilepos = fileGetPos(fileID);
+
+ int isub = subtypeInqActiveIndex(streamptr->vars[varID].subtypeID);
+ int nlevs = streamptr->vars[varID].recordTable[0].nlevs;
+
+ if (CDI_Debug) Message("nlevs = %d gridID = %d gridsize = %zu", nlevs, gridID, gridsize);
+
+ *numMissVals = 0;
+ for (int levelID = 0; levelID < nlevs; levelID++)
+ {
+ int recID = streamptr->vars[varID].recordTable[isub].recordID[levelID];
+ size_t offset = levelID * gridsize;
+ void *datap = (memType == MEMTYPE_FLOAT) ? (void *) ((float *) data + offset) : (void *) ((double *) data + offset);
+
+ *numMissVals += grb_read_and_decode_record(streamptr, recID, memType, datap, false);
+ }
+
+ fileSetPos(fileID, currentfilepos, SEEK_SET);
+}
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef VLIST_VAR_H
+#define VLIST_VAR_H
+
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifndef VLIST_H
+#endif
+
+int vlistVarGetPackSize(vlist_t *p, int varID, void *context);
+void vlistVarPack(vlist_t *p, int varID, char *buffer, int bufferSize, int *pos, void *context);
+void vlistVarUnpack(int vlistID, char *buf, int size, int *position, int, void *context);
+int vlistVarCompare(vlist_t *a, int varIDA, vlist_t *b, int varIDB);
+void vlistDefVarIOrank(int, int, int);
+int vlistInqVarIOrank(int, int);
+
+void cdiVlistCreateVarLevInfo(vlist_t *vlistptr, int varID);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBNETCDF
+
+
+// #include <netcdf_filter.h>
+
+void
+cdf_def_var_filter(int ncid, int ncvarID, unsigned int id, size_t nparams, const unsigned int *params)
+{
+#ifdef HAVE_NETCDF4
+ int status;
+ if ((status = nc_def_var_filter(ncid, ncvarID, id, nparams, params)))
+ {
+ Message("filterId=%u numParams=%zu", id, nparams);
+ Error("nc_def_var_filter failed; %s", nc_strerror(status));
+ }
+#else
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ Warning("filter failed, NetCDF4 not available!");
+ }
+#endif
+}
+
+void
+cdfDefVarDeflate(int ncid, int ncvarID, int shuffle, int compLevel)
+{
+#ifdef HAVE_NETCDF4
+ int deflate = 1;
+
+ if (CDI_Shuffle > 0 && shuffle == 0) shuffle = 1;
+
+ if (compLevel < 1 || compLevel > 9) compLevel = 1;
+
+ int status;
+ if ((status = nc_def_var_deflate(ncid, ncvarID, shuffle, deflate, compLevel)))
+ {
+ Error("nc_def_var_deflate failed; %s", nc_strerror(status));
+ }
+#else
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ Warning("Deflate compression failed, NetCDF4 not available!");
+ }
+#endif
+}
+
+void
+cdfDefVarSzip(int ncid, int ncvarID, int pixels_per_block)
+{
+#ifdef HAVE_NC_DEF_VAR_SZIP
+ // Set options_mask.
+ /*
+ H5_SZIP_ALLOW_K13_OPTION_MASK 1
+ H5_SZIP_CHIP_OPTION_MASK 2
+ H5_SZIP_EC_OPTION_MASK 4
+ H5_SZIP_NN_OPTION_MASK 32
+ H5_SZIP_ALL_MASKS (H5_SZIP_CHIP_OPTION_MASK|H5_SZIP_EC_OPTION_MASK|H5_SZIP_NN_OPTION_MASK)
+ */
+ int options_mask = 38;
+ int status;
+ if ((status = nc_def_var_szip(ncid, ncvarID, options_mask, pixels_per_block)))
+ Error("nc_def_var_szip failed; %s", nc_strerror(status));
+#else
+ (void) ncid;
+ (void) ncvarID;
+ (void) pixels_per_block;
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ Warning("Szip compression failed, NetCDF4/szlib not available!");
+ }
+#endif
+}
+
+#ifdef HAVE_NETCDF4
+static nc_type
+cdfTypeComplexFloat(stream_t *streamptr)
+{
+ if (streamptr->nc_complex_float_id == CDI_UNDEFID)
+ {
+ typedef struct complex_float
+ {
+ float r, i;
+ } complex_float;
+ int fileID = streamptr->fileID;
+ int nc_complex_id;
+ int status;
+ status = nc_def_compound(fileID, sizeof(complex_float), "complex_float", &nc_complex_id);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+ status = nc_insert_compound(fileID, nc_complex_id, "r", NC_COMPOUND_OFFSET(complex_float, r), NC_FLOAT);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+ status = nc_insert_compound(fileID, nc_complex_id, "i", NC_COMPOUND_OFFSET(complex_float, i), NC_FLOAT);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+ streamptr->nc_complex_float_id = nc_complex_id;
+ }
+
+ return (nc_type) streamptr->nc_complex_float_id;
+}
+
+static nc_type
+cdfTypeComplexDouble(stream_t *streamptr)
+{
+ if (streamptr->nc_complex_double_id == CDI_UNDEFID)
+ {
+ typedef struct complex_double
+ {
+ double r, i;
+ } complex_double;
+ int fileID = streamptr->fileID;
+ int nc_complex_id;
+ int status;
+ status = nc_def_compound(fileID, sizeof(complex_double), "complex_double", &nc_complex_id);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+ status = nc_insert_compound(fileID, nc_complex_id, "r", NC_COMPOUND_OFFSET(complex_double, r), NC_DOUBLE);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+ status = nc_insert_compound(fileID, nc_complex_id, "i", NC_COMPOUND_OFFSET(complex_double, i), NC_DOUBLE);
+ if (status != NC_NOERR) Error("%s", nc_strerror(status));
+ streamptr->nc_complex_double_id = nc_complex_id;
+ }
+
+ return (nc_type) streamptr->nc_complex_double_id;
+}
+#endif
+
+nc_type
+cdfDefDatatype(int datatype, stream_t *streamptr)
+{
+ nc_type xtype = NC_FLOAT;
+
+ // clang-format off
+ if (streamptr->filetype == CDI_FILETYPE_NC4)
+ {
+ if (datatype == CDI_DATATYPE_INT8 ) xtype = NC_BYTE;
+ else if (datatype == CDI_DATATYPE_INT16 ) xtype = NC_SHORT;
+ else if (datatype == CDI_DATATYPE_INT32 ) xtype = NC_INT;
+#ifdef HAVE_NETCDF4
+ else if (datatype == CDI_DATATYPE_UINT8 ) xtype = NC_UBYTE;
+ else if (datatype == CDI_DATATYPE_UINT16) xtype = NC_USHORT;
+ else if (datatype == CDI_DATATYPE_UINT32) xtype = NC_UINT;
+ else if (datatype == CDI_DATATYPE_CPX32 ) xtype = cdfTypeComplexFloat(streamptr);
+ else if (datatype == CDI_DATATYPE_CPX64 ) xtype = cdfTypeComplexDouble(streamptr);
+#else
+ else if (datatype == CDI_DATATYPE_UINT8 ) xtype = NC_SHORT;
+ else if (datatype == CDI_DATATYPE_UINT16) xtype = NC_INT;
+ else if (datatype == CDI_DATATYPE_UINT32) xtype = NC_INT;
+ else if (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64)
+ Error("CDI library does not support complex numbers with NetCDF4 classic!");
+#endif
+ else if (datatype == CDI_DATATYPE_FLT64 ) xtype = NC_DOUBLE;
+ else if (datatype == CDI_DATATYPE_FLT32 ) xtype = NC_FLOAT;
+ }
+ else
+ {
+ if (datatype == CDI_DATATYPE_INT8 ) xtype = NC_BYTE;
+ else if (datatype == CDI_DATATYPE_INT16 ) xtype = NC_SHORT;
+ else if (datatype == CDI_DATATYPE_INT32 ) xtype = NC_INT;
+ else if (datatype == CDI_DATATYPE_UINT8 ) xtype = NC_SHORT;
+ else if (datatype == CDI_DATATYPE_UINT16) xtype = NC_INT;
+ else if (datatype == CDI_DATATYPE_UINT32) xtype = NC_INT;
+ else if (datatype == CDI_DATATYPE_FLT64 ) xtype = NC_DOUBLE;
+ else if (datatype == CDI_DATATYPE_FLT32 ) xtype = NC_FLOAT;
+ else if (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64)
+ Error("CDI library does not support complex numbers with NetCDF classic!");
+ }
+ // clang-format on
+
+ return xtype;
+}
+
+static void
+cdfDefVarMissval(stream_t *streamptr, int varID, int dtype, int lcheck)
+{
+ if (streamptr->vars[varID].defmiss == false)
+ {
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int ncvarID = streamptr->vars[varID].ncvarid;
+ double missval = vlistInqVarMissval(vlistID, varID);
+
+ if (lcheck && streamptr->ncmode == 2) cdf_redef(fileID);
+
+ nc_type xtype = cdfDefDatatype(dtype, streamptr);
+ if (xtype == NC_BYTE && missval > 127 && missval < 256) xtype = NC_INT;
+
+ if (lcheck == 0 || streamptr->ncmode != 2 || streamptr->filetype == CDI_FILETYPE_NC || streamptr->filetype == CDI_FILETYPE_NC2
+ || streamptr->filetype == CDI_FILETYPE_NC5)
+ cdf_put_att_double(fileID, ncvarID, "_FillValue", xtype, 1, &missval);
+
+ cdf_put_att_double(fileID, ncvarID, "missing_value", xtype, 1, &missval);
+
+ if (lcheck && streamptr->ncmode == 2) cdf_enddef(fileID, streamptr->self);
+
+ streamptr->vars[varID].defmiss = true;
+ }
+}
+
+static void
+cdfDefInstituteGlobal(const stream_t *streamptr)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int instID = vlistInqInstitut(vlistID);
+
+ if (instID != CDI_UNDEFID)
+ {
+ const char *longname = institutInqLongnamePtr(instID);
+ if (longname)
+ {
+ size_t len = strlen(longname);
+ if (len > 0)
+ {
+ if (streamptr->ncmode == 2) cdf_redef(fileID);
+ cdf_put_att_text(fileID, NC_GLOBAL, "institution", len, longname);
+ if (streamptr->ncmode == 2) cdf_enddef(fileID, streamptr->self);
+ }
+ }
+ }
+}
+
+static void
+cdfDefSourceGlobal(const stream_t *streamptr)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int modelID = vlistInqModel(vlistID);
+
+ if (modelID != CDI_UNDEFID)
+ {
+ const char *longname = modelInqNamePtr(modelID);
+ if (longname)
+ {
+ size_t len = strlen(longname);
+ if (len > 0)
+ {
+ if (streamptr->ncmode == 2) cdf_redef(fileID);
+ cdf_put_att_text(fileID, NC_GLOBAL, "source", len, longname);
+ if (streamptr->ncmode == 2) cdf_enddef(fileID, streamptr->self);
+ }
+ }
+ }
+}
+
+static inline void *
+resizeBuf(void **buf, size_t *bufSize, size_t reqSize)
+{
+ if (reqSize > *bufSize)
+ {
+ *buf = Realloc(*buf, reqSize);
+ *bufSize = reqSize;
+ }
+ return *buf;
+}
+
+static void
+cdfDefineCellMethods(stream_t *streamptr, int cdiID, int varID, int fileID, int ncvarID)
+{
+ taxis_t *taxis = &streamptr->tsteps[0].taxis;
+ if (!taxis->hasBounds) return;
+
+ int timeVarId = streamptr->basetime.ncvarid;
+ char timeVarName[CDI_MAX_NAME];
+ cdf_inq_varname(fileID, timeVarId, timeVarName);
+
+ int stepType = vlistInqVarTsteptype(cdiID, varID);
+
+ const char *cellMethod = NULL;
+ // clang-format off
+ if (stepType == TSTEP_AVG) cellMethod = "mean";
+ else if (stepType == TSTEP_SUM) cellMethod = "sum";
+ else if (stepType == TSTEP_RANGE) cellMethod = "range";
+ else if (stepType == TSTEP_MIN) cellMethod = "minimum";
+ else if (stepType == TSTEP_MAX) cellMethod = "maximum";
+ // clang-format on
+
+ if (cellMethod)
+ {
+ const char *attname = "cell_methods";
+ char atttxt[CDI_MAX_NAME + 10];
+ snprintf(atttxt, sizeof(atttxt), "%s: %s", timeVarName, cellMethod);
+ cdf_put_att_text(fileID, ncvarID, attname, strlen(atttxt), atttxt);
+ }
+}
+
+static nc_type
+int_datatype_to_xtype(int filetype, int datatype)
+{
+ // clang-format off
+ if (filetype == CDI_FILETYPE_NC4 || filetype == CDI_FILETYPE_NC4C || filetype == CDI_FILETYPE_NCZARR)
+ {
+ return (datatype == CDI_DATATYPE_INT8) ? NC_BYTE :
+ (datatype == CDI_DATATYPE_INT16) ? NC_SHORT :
+#ifdef HAVE_NETCDF4
+ (datatype == CDI_DATATYPE_UINT8) ? NC_UBYTE :
+ (datatype == CDI_DATATYPE_UINT16) ? NC_USHORT :
+ (datatype == CDI_DATATYPE_UINT32) ? NC_UINT :
+#endif
+ NC_INT;
+ }
+
+ return (datatype == CDI_DATATYPE_INT8) ? NC_BYTE :
+ (datatype == CDI_DATATYPE_INT16) ? NC_SHORT :
+ NC_INT;
+ // clang-format on
+}
+
+void
+cdfDefineAttributes(int filetype, int cdiID, int varID, int fileID, int ncvarID)
+{
+ int atttype, attlen;
+ char attname[CDI_MAX_NAME + 1];
+ void *attBuf = NULL;
+ size_t attBufSize = 0;
+
+ int natts;
+ cdiInqNatts(cdiID, varID, &natts);
+
+ for (int iatt = 0; iatt < natts; ++iatt)
+ {
+ cdiInqAtt(cdiID, varID, iatt, attname, &atttype, &attlen);
+
+ // if (attlen == 0) continue;
+
+ if (atttype == CDI_DATATYPE_TXT)
+ {
+ size_t attSize = (size_t) attlen * sizeof(char);
+ char *atttxt = (char *) resizeBuf(&attBuf, &attBufSize, attSize);
+ cdiInqAttTxt(cdiID, varID, attname, attlen, atttxt);
+ size_t len = (size_t) attlen;
+ cdf_put_att_text(fileID, ncvarID, attname, len, atttxt);
+ }
+ else if (atttype == CDI_DATATYPE_INT8 || atttype == CDI_DATATYPE_UINT8 || atttype == CDI_DATATYPE_INT16
+ || atttype == CDI_DATATYPE_UINT16 || atttype == CDI_DATATYPE_INT32 || atttype == CDI_DATATYPE_UINT32)
+ {
+ if (attlen == 0) continue;
+ size_t attSize = (size_t) attlen * sizeof(int);
+ int *attint = (int *) resizeBuf(&attBuf, &attBufSize, attSize);
+ cdiInqAttInt(cdiID, varID, attname, attlen, &attint[0]);
+ size_t len = (size_t) attlen;
+ cdf_put_att_int(fileID, ncvarID, attname, int_datatype_to_xtype(filetype, atttype), len, attint);
+ }
+ else if (atttype == CDI_DATATYPE_FLT32 || atttype == CDI_DATATYPE_FLT64)
+ {
+ if (attlen == 0) continue;
+ size_t attSize = (size_t) attlen * sizeof(double);
+ double *attflt = (double *) resizeBuf(&attBuf, &attBufSize, attSize);
+ cdiInqAttFlt(cdiID, varID, attname, attlen, attflt);
+ size_t len = (size_t) attlen;
+ if (atttype == CDI_DATATYPE_FLT32)
+ {
+ float attflt_sp[8];
+ float *pattflt_sp = (len > 8) ? (float *) malloc(len * sizeof(float)) : attflt_sp;
+ for (size_t i = 0; i < len; ++i) pattflt_sp[i] = (float) attflt[i];
+ cdf_put_att_float(fileID, ncvarID, attname, NC_FLOAT, len, pattflt_sp);
+ if (len > 8) free(pattflt_sp);
+ }
+ else
+ cdf_put_att_double(fileID, ncvarID, attname, NC_DOUBLE, len, attflt);
+ }
+ }
+
+ if (attBuf) Free(attBuf);
+}
+
+static void
+cdfDefineInstituteName(int vlistID, int varID, int fileID, int ncvarID)
+{
+ int instID = vlistInqVarInstitut(vlistID, varID);
+ if (instID != CDI_UNDEFID)
+ {
+ const char *name = institutInqNamePtr(instID);
+ if (name) cdf_put_att_text(fileID, ncvarID, "institution", strlen(name), name);
+ }
+}
+
+static void
+cdfDefGlobalAtts(stream_t *streamptr)
+{
+ if (streamptr->globalatts) return;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ cdfDefSourceGlobal(streamptr);
+ cdfDefInstituteGlobal(streamptr);
+
+ int natts;
+ cdiInqNatts(vlistID, CDI_GLOBAL, &natts);
+
+ if (natts > 0 && streamptr->ncmode == 2) cdf_redef(fileID);
+
+ cdfDefineAttributes(streamptr->filetype, vlistID, CDI_GLOBAL, fileID, NC_GLOBAL);
+
+ if (natts > 0 && streamptr->ncmode == 2) cdf_enddef(fileID, streamptr->self);
+
+ streamptr->globalatts = 1;
+}
+
+static void
+cdf_get_gmapvarname(int gridID, char *gmapvarname)
+{
+ int length = CDI_MAX_NAME;
+ int pgridID = gridID;
+ cdiInqKeyString(pgridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARNAME, gmapvarname, &length);
+
+ if (!gmapvarname[0])
+ {
+ length = CDI_MAX_NAME;
+ pgridID = gridInqProj(gridID);
+ if (pgridID != CDI_UNDEFID) cdiInqKeyString(pgridID, CDI_GLOBAL, CDI_KEY_GRIDMAP_VARNAME, gmapvarname, &length);
+ }
+}
+
+static int
+nc_grid_index(stream_t *streamptr, int gridID)
+{
+ int index = 0;
+ int vlistID = streamptr->vlistID;
+ int ngrids = vlistNgrids(vlistID);
+ for (index = 0; index < ngrids; ++index)
+ if (streamptr->ncgrid[index].gridID == gridID) break;
+
+ assert(index < ngrids);
+
+ return index;
+}
+
+// convert NetCDF xtype to pixels_per_block
+static int
+xtype2ppb(nc_type xtype)
+{
+ int ppb = 32;
+
+ // clang-format off
+ if (xtype == NC_BYTE) ppb = 8;
+ else if (xtype == NC_SHORT) ppb = 16;
+#ifdef HAVE_NETCDF4
+ else if (xtype == NC_UBYTE) ppb = 8;
+ else if (xtype == NC_USHORT) ppb = 16;
+#endif
+ // clang-format on
+
+ return ppb;
+}
+
+static void
+cdfDefVarFilter(const stream_t *s, int ncvarID)
+{
+ if (s->filterId != 0)
+ {
+ if (s->filetype == CDI_FILETYPE_NC4 || s->filetype == CDI_FILETYPE_NC4C || s->filetype == CDI_FILETYPE_NCZARR)
+ {
+ cdf_def_var_filter(s->fileID, ncvarID, s->filterId, s->numParams, s->params);
+ }
+ else
+ {
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ Warning("Filter is only available for NetCDF4!");
+ }
+ }
+ }
+}
+
+static void
+cdfDefVarCompression(const stream_t *streamptr, int ncvarID, nc_type xtype)
+{
+ if (streamptr->comptype == CDI_COMPRESS_ZIP)
+ {
+ if (streamptr->filetype == CDI_FILETYPE_NC4 || streamptr->filetype == CDI_FILETYPE_NC4C
+ || streamptr->filetype == CDI_FILETYPE_NCZARR)
+ {
+ cdfDefVarDeflate(streamptr->fileID, ncvarID, streamptr->shuffle, streamptr->complevel);
+ }
+ else
+ {
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ Warning("Deflate compression is only available for NetCDF4!");
+ }
+ }
+ }
+ /*
+ else if (streamptr->comptype == CDI_COMPRESS_ZSTD)
+ {
+ if (streamptr->filetype == CDI_FILETYPE_NC4 || streamptr->filetype == CDI_FILETYPE_NC4C
+ || streamptr->filetype == CDI_FILETYPE_NCZARR)
+ {
+ cdfDefVarZstd(streamptr->fileID, ncvarID, streamptr->complevel);
+ }
+ else
+ {
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ Warning("SZIP compression is only available for NetCDF4!");
+ }
+ }
+ }
+ */
+ else if (streamptr->comptype == CDI_COMPRESS_SZIP)
+ {
+ if (streamptr->filetype == CDI_FILETYPE_NC4 || streamptr->filetype == CDI_FILETYPE_NC4C
+ || streamptr->filetype == CDI_FILETYPE_NCZARR)
+ {
+ cdfDefVarSzip(streamptr->fileID, ncvarID, xtype2ppb(xtype));
+ }
+ else
+ {
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ Warning("SZIP compression is only available for NetCDF4!");
+ }
+ }
+ }
+}
+
+static void
+cdfDefVarPacking(const stream_t *streamptr, int ncvarID, nc_type xtype, int vlistID, int varID)
+{
+ // if ( xtype == NC_BYTE || xtype == NC_SHORT || xtype == NC_INT )
+ {
+ double addoffset = 0.0, scalefactor = 1.0;
+ bool haveAddoffset = (cdiInqKeyFloat(vlistID, varID, CDI_KEY_ADDOFFSET, &addoffset) == CDI_NOERR);
+ bool haveScalefactor = (cdiInqKeyFloat(vlistID, varID, CDI_KEY_SCALEFACTOR, &scalefactor) == CDI_NOERR);
+
+ if (haveAddoffset || haveScalefactor)
+ {
+ nc_type astype = (xtype == NC_FLOAT) ? NC_FLOAT : NC_DOUBLE;
+ if ((astype == NC_DOUBLE) && IS_EQUAL(addoffset, (double) ((float) addoffset))
+ && IS_EQUAL(scalefactor, (double) ((float) scalefactor)))
+ {
+ astype = NC_FLOAT;
+ }
+
+ cdf_put_att_double(streamptr->fileID, ncvarID, "add_offset", astype, 1, &addoffset);
+ cdf_put_att_double(streamptr->fileID, ncvarID, "scale_factor", astype, 1, &scalefactor);
+ }
+ }
+}
+
+static void
+cdfAppendCoordinates(int fileID, int ncvarID, char coordinates[CDI_MAX_NAME])
+{
+ if (ncvarID != CDI_UNDEFID)
+ {
+ size_t len = strlen(coordinates);
+ if (len) coordinates[len++] = ' ';
+ cdf_inq_varname(fileID, ncvarID, coordinates + len);
+ }
+}
+
+static void
+cdfDefineCoordinates(const stream_t *streamptr, int ncvarID, int nczvarID, int gridtype, int gridID, int gridindex, int xid,
+ int yid, size_t gridsize, char axis[5], size_t iax)
+{
+ int fileID = streamptr->fileID;
+
+ if (gridtype != GRID_GENERIC && gridtype != GRID_LONLAT && gridtype != GRID_PROJECTION && gridtype != GRID_CURVILINEAR
+ && gridtype != GRID_CHARXY)
+ {
+ size_t len = strlen(gridNamePtr(gridtype));
+ if (len > 0) cdf_put_att_text(fileID, ncvarID, "CDI_grid_type", len, gridNamePtr(gridtype));
+ }
+
+ char gmapvarname[CDI_MAX_NAME];
+ gmapvarname[0] = 0;
+ cdf_get_gmapvarname(gridID, gmapvarname);
+ if (gmapvarname[0]) cdf_put_att_text(fileID, ncvarID, "grid_mapping", strlen(gmapvarname), gmapvarname);
+
+ if (gridtype == GRID_GAUSSIAN || gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ int numLPE = gridInqNP(gridID);
+ if (numLPE > 0) cdf_put_att_int(fileID, ncvarID, "CDI_grid_num_LPE", NC_INT, 1, &numLPE);
+ }
+
+ if (gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ int ncyvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_Y];
+ if (ncyvarID != CDI_UNDEFID)
+ {
+ char name[CDI_MAX_NAME];
+ name[0] = 0;
+ cdf_inq_varname(fileID, ncyvarID, name);
+ size_t len = strlen(name);
+ cdf_put_att_text(fileID, ncvarID, "CDI_grid_latitudes", len, name);
+ }
+
+ int ncrpvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_RP];
+ if (ncrpvarID != CDI_UNDEFID)
+ {
+ char name[CDI_MAX_NAME];
+ name[0] = 0;
+ cdf_inq_varname(fileID, ncrpvarID, name);
+ size_t len = strlen(name);
+ cdf_put_att_text(fileID, ncvarID, "CDI_grid_reduced_points", len, name);
+ }
+ }
+
+ // define coordinates attribute
+
+ char coordinates[CDI_MAX_NAME];
+ coordinates[0] = 0;
+
+ if (nczvarID != CDI_UNDEFID) cdfAppendCoordinates(fileID, nczvarID, coordinates);
+
+ if (gridtype == GRID_TRAJECTORY)
+ {
+ cdf_put_att_text(fileID, ncvarID, "coordinates", 9, "tlon tlat");
+ }
+ else if (gridtype == GRID_LONLAT && xid == CDI_UNDEFID && yid == CDI_UNDEFID && gridsize == 1)
+ {
+ int ncxvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_X];
+ int ncyvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_Y];
+ cdfAppendCoordinates(fileID, ncyvarID, coordinates);
+ cdfAppendCoordinates(fileID, ncxvarID, coordinates);
+ }
+ else if (gridtype == GRID_GAUSSIAN_REDUCED)
+ {
+ /*
+ int ncxvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_X];
+ int ncyvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_Y];
+ cdfAppendCoordinates(fileID, ncyvarID, coordinates);
+ cdfAppendCoordinates(fileID, ncxvarID, coordinates);
+ */
+ }
+ else if (gridtype == GRID_UNSTRUCTURED || gridtype == GRID_CURVILINEAR)
+ {
+ int ncxvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_X];
+ int ncyvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_Y];
+ int ncavarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_A];
+ // CMOR order: coordinates = "lat lon"
+ if (CDI_Coordinates_Lon_Lat)
+ {
+ cdfAppendCoordinates(fileID, ncxvarID, coordinates);
+ cdfAppendCoordinates(fileID, ncyvarID, coordinates);
+ }
+ else
+ {
+ cdfAppendCoordinates(fileID, ncyvarID, coordinates);
+ cdfAppendCoordinates(fileID, ncxvarID, coordinates);
+ }
+
+ if (ncavarID != CDI_UNDEFID)
+ {
+ char cellarea[CDI_MAX_NAME] = "area: ";
+ size_t len = strlen(cellarea);
+ cdf_inq_varname(fileID, ncavarID, cellarea + len);
+ len = strlen(cellarea);
+ cdf_put_att_text(fileID, ncvarID, "cell_measures", len, cellarea);
+ }
+
+ if (gridtype == GRID_UNSTRUCTURED)
+ {
+ int position = gridInqPosition(gridID);
+ if (position > 0) cdf_put_att_int(fileID, ncvarID, "number_of_grid_in_reference", NC_INT, 1, &position);
+ }
+ }
+ else if (gridtype == GRID_SPECTRAL || gridtype == GRID_FOURIER)
+ {
+ axis[iax++] = '-';
+ axis[iax++] = '-';
+ cdf_put_att_text(fileID, ncvarID, "axis", iax, axis);
+ int gridTruncation = gridInqTrunc(gridID);
+ cdf_put_att_int(fileID, ncvarID, "truncation", NC_INT, 1, &gridTruncation);
+ }
+ else if (gridtype == GRID_CHARXY)
+ {
+ if (gridInqXIsc(gridID))
+ {
+ int ncxvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_X];
+ cdfAppendCoordinates(fileID, ncxvarID, coordinates);
+ }
+ else if (gridInqYIsc(gridID))
+ {
+ int ncyvarID = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_Y];
+ cdfAppendCoordinates(fileID, ncyvarID, coordinates);
+ }
+ }
+
+ size_t len = strlen(coordinates);
+ if (len) cdf_put_att_text(fileID, ncvarID, "coordinates", len, coordinates);
+}
+
+static size_t
+calc_chunksize(size_t chunkSizeLim, size_t size)
+{
+ static const size_t pageSize = 4096;
+
+ if (size <= chunkSizeLim) return size;
+
+ size_t numChunks = (size / chunkSizeLim) + 1;
+ size_t chunkSize = size / numChunks;
+ if (chunkSize % pageSize) chunkSize = (chunkSize / pageSize + 1) * pageSize;
+
+ return chunkSize;
+}
+
+static const size_t chunkSizeMin = 262144; // 256k
+static const size_t chunkSizeLim = 16777216; // 16m
+
+size_t
+calc_chunksize_y(int chunkType, size_t gridsize, size_t xsize, size_t ysize)
+{
+ if (chunkType == CDI_CHUNK_AUTO)
+ return (gridsize <= chunkSizeMin) ? ysize : chunkSizeMin / xsize;
+ else
+ return (chunkType == CDI_CHUNK_LINES) ? 1 : ysize;
+}
+
+size_t
+calc_chunksize_x(int chunkType, int chunkSize, size_t xsize, bool yIsUndefined)
+{
+ if (chunkType == CDI_CHUNK_AUTO && yIsUndefined)
+ return (chunkSize > 0 && chunkSize < (int) xsize) ? (size_t) chunkSize : ((xsize <= chunkSizeMin) ? xsize : chunkSizeMin);
+ else
+ return calc_chunksize(chunkSizeLim, xsize);
+}
+
+static int
+cdfDefineDimsAndChunks(const stream_t *streamptr, int varID, int xid, int yid, int zid, size_t gridsize, const int dimorder[3],
+ int dims[4], bool useChunks, size_t chunks[4], char axis[5], size_t *piax)
+{
+ int fileID = streamptr->fileID;
+ int vlistID = streamptr->vlistID;
+
+ size_t iax = *piax;
+ int ndims = 0;
+
+ for (int i = 0; i < 4; ++i) chunks[i] = 0;
+
+ size_t xsize = 0, ysize = 0;
+ if (xid != CDI_UNDEFID) cdf_inq_dimlen(fileID, xid, &xsize);
+ if (yid != CDI_UNDEFID) cdf_inq_dimlen(fileID, yid, &ysize);
+
+ int timetype = vlistInqVarTimetype(vlistID, varID);
+ if (vlistHasTime(vlistID) && timetype != TIME_CONSTANT)
+ {
+ int tid = streamptr->basetime.ncdimid;
+ if (tid == CDI_UNDEFID) Error("Internal problem, time undefined!");
+ axis[iax++] = 'T';
+ chunks[ndims] = 1;
+ dims[ndims] = tid;
+ ndims++;
+ }
+
+ int chunkSize = 0;
+ int chunkType = CDI_CHUNK_GRID;
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_CHUNKTYPE, &chunkType);
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_CHUNKSIZE, &chunkSize);
+ if (chunkSize > 0 && yid == CDI_UNDEFID) chunkType = CDI_CHUNK_AUTO;
+
+ if (chunkType == CDI_CHUNK_GRID && gridsize > ChunkSizeLim)
+ {
+ if (CDI_Debug) fprintf(stderr, "gridsize > %u, changed chunkType to CDI_CHUNK_LINES!\n", ChunkSizeLim);
+ chunkType = CDI_CHUNK_LINES;
+ }
+
+ for (int id = 0; id < 3; ++id)
+ {
+ if (dimorder[id] == 3 && zid != CDI_UNDEFID)
+ {
+ axis[iax++] = 'Z';
+ chunks[ndims] = 1;
+ dims[ndims] = zid;
+ ndims++;
+ }
+ else if (dimorder[id] == 2 && yid != CDI_UNDEFID)
+ {
+ chunks[ndims] = calc_chunksize_y(chunkType, gridsize, xsize, ysize);
+ dims[ndims] = yid;
+ ndims++;
+ }
+ else if (dimorder[id] == 1 && xid != CDI_UNDEFID)
+ {
+ chunks[ndims] = calc_chunksize_x(chunkType, chunkSize, xsize, (yid == CDI_UNDEFID));
+ dims[ndims] = xid;
+ ndims++;
+ }
+ }
+
+ if (CDI_Debug)
+ fprintf(stderr, "useChunks %d chunkType %d chunkSize %d chunks %zu %zu %zu %zu\n", useChunks, chunkType, chunkSize, chunks[0],
+ chunks[1], chunks[2], chunks[3]);
+
+ *piax = iax;
+ return ndims;
+}
+
+static void
+cdfDefineAttrLeveltype(int fileID, int ncvarID, int zaxisID, int zaxistype)
+{
+ // clang-format off
+ if ( zaxistype == ZAXIS_CLOUD_BASE ||
+ zaxistype == ZAXIS_CLOUD_TOP ||
+ zaxistype == ZAXIS_ISOTHERM_ZERO ||
+ zaxistype == ZAXIS_TROPOPAUSE ||
+ zaxistype == ZAXIS_TOA ||
+ zaxistype == ZAXIS_SEA_BOTTOM ||
+ zaxistype == ZAXIS_LAKE_BOTTOM ||
+ zaxistype == ZAXIS_SEDIMENT_BOTTOM ||
+ zaxistype == ZAXIS_SEDIMENT_BOTTOM_TA ||
+ zaxistype == ZAXIS_SEDIMENT_BOTTOM_TW ||
+ zaxistype == ZAXIS_MIX_LAYER ||
+ zaxistype == ZAXIS_ATMOSPHERE )
+ {
+ char varname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_NAME, varname, &length);
+ cdf_put_att_text(fileID, ncvarID, "level_type", strlen(varname), varname);
+ }
+ // clang-format on
+}
+
+static void
+cdfDefineAttrEnsemble(int fileID, int ncvarID, int vlistID, int varID)
+{
+ int perturbationNumber, numberOfForecastsInEnsemble, typeOfEnsembleForecast;
+ if (cdiInqKeyInt(vlistID, varID, CDI_KEY_PERTURBATIONNUMBER, &perturbationNumber) == 0)
+ cdf_put_att_int(fileID, ncvarID, "realization", NC_INT, 1, &perturbationNumber);
+ if (cdiInqKeyInt(vlistID, varID, CDI_KEY_NUMBEROFFORECASTSINENSEMBLE, &numberOfForecastsInEnsemble) == 0)
+ cdf_put_att_int(fileID, ncvarID, "ensemble_members", NC_INT, 1, &numberOfForecastsInEnsemble);
+ if (cdiInqKeyInt(vlistID, varID, CDI_KEY_TYPEOFENSEMBLEFORECAST, &typeOfEnsembleForecast) == 0)
+ cdf_put_att_int(fileID, ncvarID, "forecast_init_type", NC_INT, 1, &typeOfEnsembleForecast);
+}
+
+static void
+cdfCheckVarname(int fileID, char name[CDI_MAX_NAME])
+{
+ if (name[0])
+ {
+ int ncvarID;
+ char varname[CDI_MAX_NAME];
+ snprintf(varname, sizeof(varname), "%s", name);
+ size_t len = strlen(varname);
+ char *varname2 = varname + len;
+ unsigned iz = 0;
+
+ do
+ {
+ if (iz) snprintf(varname2, sizeof(varname) - len, "_%u", iz + 1);
+
+ if (nc_inq_varid(fileID, varname, &ncvarID) != NC_NOERR) break;
+
+ ++iz;
+ }
+ while (iz <= 99);
+
+ if (iz > 99) Error("Variable name %s already exsist!", name);
+
+ if (!str_is_equal(name, varname))
+ Warning("Changed %s entry of variable name '%s' to '%s'!", (iz == 1) ? "double" : "multiple", name, varname);
+
+ strcpy(name, varname);
+ }
+}
+
+static void
+cdfGenVarname(int fileID, char name[CDI_MAX_NAME], int pnum, int pcat, int *pdis, int *pcode)
+{
+ char varname[CDI_MAX_NAME];
+
+ int code = *pcode;
+ if (code < 0) code = -code;
+ if (pnum < 0) pnum = -pnum;
+
+ if (*pdis == 255)
+ snprintf(varname, sizeof(varname), "var%d", code);
+ else
+ snprintf(varname, sizeof(varname), "param%d.%d.%d", pnum, pcat, *pdis);
+
+ size_t len = strlen(varname);
+ char *varname2 = varname + len;
+ int ncvarID;
+ unsigned iz = 0;
+
+ do
+ {
+ if (iz) snprintf(varname2, sizeof(varname) - len, "_%u", iz + 1);
+
+ if (nc_inq_varid(fileID, varname, &ncvarID) != NC_NOERR) break;
+
+ ++iz;
+ }
+ while (iz <= 99);
+
+ if (iz > 99) Error("Variable name %s already exsist!", name);
+
+ strcpy(name, varname);
+ *pcode = 0;
+ *pdis = 255;
+}
+
+int
+cdfDefVar(stream_t *streamptr, int varID)
+{
+ if (streamptr->vars[varID].ncvarid != CDI_UNDEFID) return streamptr->vars[varID].ncvarid;
+
+ int fileID = streamptr->fileID;
+ if (CDI_Debug) Message("streamID = %d, fileID = %d, varID = %d", streamptr->self, fileID, varID);
+
+ int vlistID = streamptr->vlistID;
+ int param = vlistInqVarParam(vlistID, varID);
+ int code = vlistInqVarCode(vlistID, varID);
+ int pnum, pcat, pdis;
+ cdiDecodeParam(param, &pnum, &pcat, &pdis);
+
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ SizeType gridsize = gridInqSize(gridID);
+ int gridtype = gridInqType(gridID);
+ int gridindex = nc_grid_index(streamptr, gridID);
+ int xid = (gridtype != GRID_TRAJECTORY) ? streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_X] : CDI_UNDEFID;
+ int yid = (gridtype != GRID_TRAJECTORY && gridtype != GRID_GAUSSIAN_REDUCED) ? streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_Y]
+ : CDI_UNDEFID;
+
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+ int zaxistype = zaxisInqType(zaxisID);
+ int zaxisindex = vlistZaxisIndex(vlistID, zaxisID);
+ int zid = streamptr->zaxisID[zaxisindex];
+
+ int dimorder[3]; // ZYX/321 and ZXY/312
+ vlistInqVarDimorder(vlistID, varID, dimorder);
+ bool useChunks
+ = (gridsize >= 32) && ((dimorder[0] == 3) || (dimorder[1] == 3 && dimorder[2] == 1 && gridsize == gridInqXsize(gridID)));
+
+ if (((dimorder[0] > 0) + (dimorder[1] > 0) + (dimorder[2] > 0))
+ < ((xid != CDI_UNDEFID) + (yid != CDI_UNDEFID) + (zid != CDI_UNDEFID)))
+ {
+ printf("zid=%d yid=%d xid=%d\n", zid, yid, xid);
+ Error("Internal problem, dimension order missing!");
+ }
+
+ size_t iax = 0;
+ char axis[5];
+ int dims[4];
+ size_t chunks[4];
+ int ndims = cdfDefineDimsAndChunks(streamptr, varID, xid, yid, zid, gridsize, dimorder, dims, useChunks, chunks, axis, &iax);
+
+ char name[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(vlistID, varID, CDI_KEY_NAME, name, &length);
+
+ char longname[CDI_MAX_NAME];
+ vlistInqVarLongname(vlistID, varID, longname);
+
+ char units[CDI_MAX_NAME];
+ vlistInqVarUnits(vlistID, varID, units);
+
+ char stdname[CDI_MAX_NAME];
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(vlistID, varID, CDI_KEY_STDNAME, stdname, &length);
+
+ int tableID = vlistInqVarTable(vlistID, varID);
+ if (!name[0]) tableInqEntry(tableID, code, -1, name, longname, units);
+ if (name[0])
+ cdfCheckVarname(fileID, name);
+ else
+ cdfGenVarname(fileID, name, pnum, pcat, &pdis, &code);
+
+ int dtype = vlistInqVarDatatype(vlistID, varID);
+ const nc_type xtype = cdfDefDatatype(dtype, streamptr);
+
+ if (streamptr->ncmode == 2)
+ {
+ cdf_redef(fileID);
+ streamptr->ncmode = 1;
+ }
+
+ int ncvarID = -1;
+ cdf_def_var(fileID, name, xtype, ndims, dims, &ncvarID);
+
+#ifdef HAVE_NETCDF4
+#ifdef NC_QUANTIZE_BITROUND
+ if (xtype == NC_FLOAT || xtype == NC_DOUBLE)
+ {
+ int nsb = vlistInqVarNSB(vlistID, varID);
+ if (nsb > 0) nc_def_var_quantize(fileID, ncvarID, NC_QUANTIZE_BITROUND, nsb);
+ // if (nsb > 0) nc_def_var_quantize(fileID, ncvarID, NC_QUANTIZE_GRANULARBR, nsb);
+ }
+#endif
+
+ if (useChunks
+ && (streamptr->filetype == CDI_FILETYPE_NC4 || streamptr->filetype == CDI_FILETYPE_NC4C
+ || streamptr->filetype == CDI_FILETYPE_NCZARR))
+ cdf_def_var_chunking(fileID, ncvarID, NC_CHUNKED, chunks);
+#endif
+
+ if (useChunks) cdfDefVarCompression(streamptr, ncvarID, xtype);
+ if (useChunks) cdfDefVarFilter(streamptr, ncvarID);
+
+ if (*stdname) cdf_put_att_text(fileID, ncvarID, "standard_name", strlen(stdname), stdname);
+ if (*longname) cdf_put_att_text(fileID, ncvarID, "long_name", strlen(longname), longname);
+ if (*units) cdf_put_att_text(fileID, ncvarID, "units", strlen(units), units);
+
+ if (code > 0 && pdis == 255) cdf_put_att_int(fileID, ncvarID, "code", NC_INT, 1, &code);
+
+ if (pdis != 255)
+ {
+ char paramstr[32];
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+ cdf_put_att_text(fileID, ncvarID, "param", strlen(paramstr), paramstr);
+ }
+
+ if (tableID != CDI_UNDEFID)
+ {
+ int tablenum = tableInqNum(tableID);
+ if (tablenum > 0) cdf_put_att_int(fileID, ncvarID, "table", NC_INT, 1, &tablenum);
+ }
+
+ bool zaxisIsScalar = (zid == CDI_UNDEFID) ? (zaxisInqScalar(zaxisID) > 0) : false;
+ int nczvarID = (zaxisIsScalar || zaxistype == ZAXIS_CHAR) ? streamptr->nczvarID[zaxisindex] : CDI_UNDEFID;
+
+ cdfDefineCoordinates(streamptr, ncvarID, nczvarID, gridtype, gridID, gridindex, xid, yid, gridsize, axis, iax);
+
+ cdfDefVarPacking(streamptr, ncvarID, xtype, vlistID, varID);
+
+ if (dtype == CDI_DATATYPE_UINT8 && xtype == NC_BYTE)
+ {
+ int validrange[2] = { 0, 255 };
+ cdf_put_att_int(fileID, ncvarID, "valid_range", NC_SHORT, 2, validrange);
+ cdf_put_att_text(fileID, ncvarID, "_Unsigned", 4, "true");
+ }
+
+ streamptr->vars[varID].ncvarid = ncvarID;
+
+ if (vlistInqVarMissvalUsed(vlistID, varID)) cdfDefVarMissval(streamptr, varID, vlistInqVarDatatype(vlistID, varID), 0);
+
+ if (zid == CDI_UNDEFID) cdfDefineAttrLeveltype(fileID, ncvarID, zaxisID, zaxistype);
+
+ cdfDefineAttrEnsemble(fileID, ncvarID, vlistID, varID);
+
+ // Attribute: cell_methods
+ cdfDefineCellMethods(streamptr, vlistID, varID, fileID, ncvarID);
+
+ // Attributes
+ cdfDefineAttributes(streamptr->filetype, vlistID, varID, fileID, ncvarID);
+
+ // Institute
+ if (vlistInqInstitut(vlistID) == CDI_UNDEFID) cdfDefineInstituteName(vlistID, varID, fileID, ncvarID);
+
+ return ncvarID;
+}
+
+void
+cdfEndDef(stream_t *streamptr)
+{
+ cdfDefGlobalAtts(streamptr);
+
+ if (streamptr->accessmode == 0)
+ {
+ int fileID = streamptr->fileID;
+ if (streamptr->ncmode == 2)
+ {
+ cdf_redef(fileID);
+ streamptr->ncmode = 1;
+ }
+
+ int nvars = streamptr->nvars;
+ for (int varID = 0; varID < nvars; ++varID) cdfDefVar(streamptr, varID);
+
+ if (streamptr->ncmode != 2)
+ {
+ if (CDI_Netcdf_Hdr_Pad == 0UL)
+ cdf_enddef(fileID, streamptr->self);
+ else
+ cdf__enddef(fileID, streamptr->self, CDI_Netcdf_Hdr_Pad);
+ streamptr->ncmode = 2;
+ }
+
+ streamptr->accessmode = 1;
+ }
+}
+
+static void
+cdfWriteGridTraj(stream_t *streamptr, int gridID)
+{
+ int gridindex = nc_grid_index(streamptr, gridID);
+ int lonID = streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_X];
+ int latID = streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_Y];
+ size_t index = (size_t) streamptr->curTsID;
+
+ double xlon = gridInqXval(gridID, 0);
+ double xlat = gridInqYval(gridID, 0);
+
+ cdf_put_var1_double(streamptr->fileID, lonID, &index, &xlon);
+ cdf_put_var1_double(streamptr->fileID, latID, &index, &xlat);
+}
+
+static void
+cdf_write_var_data(int fileID, int vlistID, int varID, int ncvarID, int dtype, size_t nvals, size_t xsize, size_t ysize,
+ bool swapxy, size_t *start, size_t *count, int memtype, const void *data, size_t numMissVals)
+{
+ const double *pdata_dp = (const double *) data;
+ double *mdata_dp = NULL;
+ double *sdata_dp = NULL;
+ const float *pdata_sp = (const float *) data;
+ float *mdata_sp = NULL;
+ float *sdata_sp = NULL;
+
+ /* if ( dtype == CDI_DATATYPE_INT8 || dtype == CDI_DATATYPE_INT16 || dtype == CDI_DATATYPE_INT32 ) */
+ {
+ double missval = vlistInqVarMissval(vlistID, varID);
+ double addoffset = 0.0, scalefactor = 1.0;
+ bool haveAddoffset = (cdiInqKeyFloat(vlistID, varID, CDI_KEY_ADDOFFSET, &addoffset) == CDI_NOERR);
+ bool haveScalefactor = (cdiInqKeyFloat(vlistID, varID, CDI_KEY_SCALEFACTOR, &scalefactor) == CDI_NOERR);
+
+ if (haveAddoffset || haveScalefactor)
+ {
+ if (memtype == MEMTYPE_FLOAT)
+ {
+ mdata_sp = (float *) Malloc(nvals * sizeof(float));
+ memcpy(mdata_sp, pdata_sp, nvals * sizeof(float));
+ pdata_sp = mdata_sp;
+
+ if (numMissVals > 0)
+ {
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ double temp = mdata_sp[i];
+ if (!DBL_IS_EQUAL(temp, (float) missval))
+ {
+ if (haveAddoffset) temp -= addoffset;
+ if (haveScalefactor) temp /= scalefactor;
+ mdata_sp[i] = (float) temp;
+ }
+ }
+ }
+ else
+ {
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ double temp = mdata_sp[i];
+ if (haveAddoffset) temp -= addoffset;
+ if (haveScalefactor) temp /= scalefactor;
+ mdata_sp[i] = (float) temp;
+ }
+ }
+ }
+ else
+ {
+ mdata_dp = (double *) Malloc(nvals * sizeof(double));
+ memcpy(mdata_dp, pdata_dp, nvals * sizeof(double));
+ pdata_dp = mdata_dp;
+
+ if (numMissVals > 0)
+ {
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ if (!DBL_IS_EQUAL(mdata_dp[i], missval))
+ {
+ if (haveAddoffset) mdata_dp[i] -= addoffset;
+ if (haveScalefactor) mdata_dp[i] /= scalefactor;
+ }
+ }
+ }
+ else
+ {
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ if (haveAddoffset) mdata_dp[i] -= addoffset;
+ if (haveScalefactor) mdata_dp[i] /= scalefactor;
+ }
+ }
+ }
+ }
+
+ if (dtype == CDI_DATATYPE_UINT8 || dtype == CDI_DATATYPE_INT8 || dtype == CDI_DATATYPE_UINT16 || dtype == CDI_DATATYPE_INT16
+ || dtype == CDI_DATATYPE_UINT32 || dtype == CDI_DATATYPE_INT32)
+ {
+ if (memtype == MEMTYPE_FLOAT)
+ {
+ if (mdata_sp == NULL)
+ {
+ mdata_sp = (float *) Malloc(nvals * sizeof(float));
+ memcpy(mdata_sp, pdata_sp, nvals * sizeof(float));
+ pdata_sp = mdata_sp;
+ }
+
+ for (size_t i = 0; i < nvals; ++i) mdata_sp[i] = roundf(mdata_sp[i]);
+
+ if (dtype == CDI_DATATYPE_UINT8)
+ {
+ nc_type xtype;
+ cdf_inq_vartype(fileID, ncvarID, &xtype);
+ if (xtype == NC_BYTE)
+ {
+ for (size_t i = 0; i < nvals; ++i)
+ if (mdata_sp[i] > 127) mdata_sp[i] -= 256;
+ }
+ }
+ }
+ else
+ {
+ if (mdata_dp == NULL)
+ {
+ mdata_dp = (double *) Malloc(nvals * sizeof(double));
+ memcpy(mdata_dp, pdata_dp, nvals * sizeof(double));
+ pdata_dp = mdata_dp;
+ }
+
+ for (size_t i = 0; i < nvals; ++i) mdata_dp[i] = round(mdata_dp[i]);
+
+ if (dtype == CDI_DATATYPE_UINT8)
+ {
+ nc_type xtype;
+ cdf_inq_vartype(fileID, ncvarID, &xtype);
+ if (xtype == NC_BYTE)
+ {
+ for (size_t i = 0; i < nvals; ++i)
+ if (mdata_dp[i] > 127) mdata_dp[i] -= 256;
+ }
+ }
+ }
+ }
+
+ if (CDF_Debug)
+ {
+ double fmin = 1.0e200;
+ double fmax = -1.0e200;
+ if (memtype == MEMTYPE_FLOAT)
+ {
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ if (!DBL_IS_EQUAL(pdata_sp[i], (float) missval))
+ {
+ if (pdata_sp[i] < fmin) fmin = pdata_sp[i];
+ if (pdata_sp[i] > fmax) fmax = pdata_sp[i];
+ }
+ }
+ }
+ else
+ {
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ if (!DBL_IS_EQUAL(pdata_dp[i], missval))
+ {
+ if (pdata_dp[i] < fmin) fmin = pdata_dp[i];
+ if (pdata_dp[i] > fmax) fmax = pdata_dp[i];
+ }
+ }
+ }
+
+ Message("nvals = %zu, numMissVals = %d, missval = %g, minval = %g, maxval = %g", nvals, numMissVals, missval, fmin, fmax);
+ }
+ }
+
+ if (swapxy) // implemented only for cdf_write_var_slice()
+ {
+ size_t gridsize = xsize * ysize;
+ if (memtype == MEMTYPE_FLOAT)
+ {
+ sdata_sp = (float *) Malloc(gridsize * sizeof(float));
+ for (size_t j = 0; j < ysize; ++j)
+ for (size_t i = 0; i < xsize; ++i) sdata_sp[i * ysize + j] = pdata_sp[j * xsize + i];
+ pdata_sp = sdata_sp;
+ }
+ else
+ {
+ sdata_dp = (double *) Malloc(gridsize * sizeof(double));
+ for (size_t j = 0; j < ysize; ++j)
+ for (size_t i = 0; i < xsize; ++i) sdata_dp[i * ysize + j] = pdata_dp[j * xsize + i];
+ pdata_dp = sdata_dp;
+ }
+ }
+
+ if (dtype == CDI_DATATYPE_CPX32 || dtype == CDI_DATATYPE_CPX64)
+ {
+ void *pdata = (memtype == MEMTYPE_FLOAT) ? (void *) pdata_sp : (void *) pdata_dp;
+ float *cdata_sp = NULL;
+ double *cdata_dp = NULL;
+ if (memtype == MEMTYPE_FLOAT && dtype == CDI_DATATYPE_CPX64)
+ {
+ cdata_dp = (double *) Malloc(2 * nvals * sizeof(double));
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ cdata_dp[2 * i] = (double) (pdata_sp[2 * i]);
+ cdata_dp[2 * i + 1] = (double) (pdata_sp[2 * i + 1]);
+ }
+ pdata = cdata_dp;
+ }
+ else if (memtype == MEMTYPE_DOUBLE && dtype == CDI_DATATYPE_CPX32)
+ {
+ cdata_sp = (float *) Malloc(2 * nvals * sizeof(float));
+ for (size_t i = 0; i < nvals; ++i)
+ {
+ cdata_sp[2 * i] = (float) (pdata_dp[2 * i]);
+ cdata_sp[2 * i + 1] = (float) (pdata_dp[2 * i + 1]);
+ }
+ pdata = cdata_sp;
+ }
+
+ cdf_put_vara(fileID, ncvarID, start, count, pdata);
+ if (cdata_sp) Free(cdata_sp);
+ if (cdata_dp) Free(cdata_dp);
+ }
+ else
+ {
+ if (memtype == MEMTYPE_FLOAT)
+ cdf_put_vara_float(fileID, ncvarID, start, count, pdata_sp);
+ else
+ cdf_put_vara_double(fileID, ncvarID, start, count, pdata_dp);
+ }
+
+ if (mdata_dp) Free(mdata_dp);
+ if (sdata_dp) Free(sdata_dp);
+ if (mdata_sp) Free(mdata_sp);
+ if (sdata_sp) Free(sdata_sp);
+}
+
+static void
+cdfGetXYZid(stream_t *streamptr, int gridID, int zaxisID, int *xid, int *yid, int *zid)
+{
+ *xid = CDI_UNDEFID;
+ *yid = CDI_UNDEFID;
+
+ int gridtype = gridInqType(gridID);
+ if (gridtype == GRID_TRAJECTORY)
+ {
+ cdfWriteGridTraj(streamptr, gridID);
+ }
+ else
+ {
+ int gridindex = nc_grid_index(streamptr, gridID);
+ *xid = streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_X];
+ if (gridtype != GRID_GAUSSIAN_REDUCED) *yid = streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_Y];
+ }
+
+ int vlistID = streamptr->vlistID;
+ int zaxisindex = vlistZaxisIndex(vlistID, zaxisID);
+ *zid = streamptr->zaxisID[zaxisindex];
+}
+
+static void
+cdfDefineStartAndCount(stream_t *streamptr, int varID, int xid, int yid, int zid, size_t start[5], size_t count[5], size_t *xsize,
+ size_t *ysize)
+{
+ size_t ndims = 0;
+ *xsize = 0;
+ *ysize = 0;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ const long ntsteps = streamptr->ntsteps;
+ if (CDI_Debug) Message("ntsteps = %ld", ntsteps);
+
+ int timetype = vlistInqVarTimetype(vlistID, varID);
+
+ if (vlistHasTime(vlistID) && timetype != TIME_CONSTANT)
+ {
+ start[ndims] = (size_t) ntsteps - 1;
+ count[ndims] = 1;
+ ndims++;
+ }
+
+ if (zid != CDI_UNDEFID)
+ {
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+ start[ndims] = 0;
+ count[ndims] = (size_t) zaxisInqSize(zaxisID);
+ ndims++;
+ }
+
+ if (yid != CDI_UNDEFID)
+ {
+ start[ndims] = 0;
+ size_t size;
+ cdf_inq_dimlen(fileID, yid, &size);
+ /* count[ndims] = gridInqYsize(gridID); */
+ count[ndims] = size;
+ ndims++;
+ }
+
+ if (xid != CDI_UNDEFID)
+ {
+ start[ndims] = 0;
+ size_t size;
+ cdf_inq_dimlen(fileID, xid, &size);
+ /* count[ndims] = gridInqXsize(gridID); */
+ count[ndims] = size;
+ ndims++;
+ }
+
+ if (CDI_Debug)
+ for (size_t idim = 0; idim < ndims; ++idim) Message("dim = %d start = %d count = %d", idim, start[idim], count[idim]);
+}
+
+void
+cdf_write_var(stream_t *streamptr, int varID, int memtype, const void *data, size_t numMissVals)
+{
+ if (streamptr->accessmode == 0) cdfEndDef(streamptr);
+
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ int ncvarID = cdfDefVar(streamptr, varID);
+
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+
+ int xid, yid, zid;
+ cdfGetXYZid(streamptr, gridID, zaxisID, &xid, &yid, &zid);
+
+ size_t xsize, ysize;
+ size_t start[5], count[5];
+ cdfDefineStartAndCount(streamptr, varID, xid, yid, zid, start, count, &xsize, &ysize);
+
+ if (streamptr->ncmode == 1)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ int dtype = vlistInqVarDatatype(vlistID, varID);
+
+ if (numMissVals > 0) cdfDefVarMissval(streamptr, varID, dtype, 1);
+
+ size_t nvals = gridInqSize(gridID) * (size_t) (zaxisInqSize(zaxisID));
+
+ bool swapxy = false;
+ cdf_write_var_data(fileID, vlistID, varID, ncvarID, dtype, nvals, xsize, ysize, swapxy, start, count, memtype, data, numMissVals);
+}
+
+static void
+cdfDefineStartAndCountChunk(stream_t *streamptr, const int rect[][2], int varID, int xid, int yid, int zid, size_t start[5],
+ size_t count[5], size_t *xsize, size_t *ysize)
+{
+ size_t ndims = 0;
+ *xsize = 0;
+ *ysize = 0;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ const long ntsteps = streamptr->ntsteps;
+ if (CDI_Debug) Message("ntsteps = %ld", ntsteps);
+
+ int timetype = vlistInqVarTimetype(vlistID, varID);
+
+ if (vlistHasTime(vlistID) && timetype != TIME_CONSTANT)
+ {
+ start[ndims] = (size_t) ntsteps - 1;
+ count[ndims] = 1;
+ ndims++;
+ }
+
+ if (zid != CDI_UNDEFID)
+ {
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+ int size = zaxisInqSize(zaxisID);
+ xassert(rect[2][0] >= 0 && rect[2][0] <= rect[2][1] + 1 && rect[2][1] <= size);
+ start[ndims] = (size_t) rect[2][0];
+ count[ndims] = rect[2][1] < 0 ? (size_t) 0 : (size_t) rect[2][1] - (size_t) rect[2][0] + 1;
+ ndims++;
+ }
+
+ if (yid != CDI_UNDEFID)
+ {
+ size_t size;
+ cdf_inq_dimlen(fileID, yid, &size);
+ xassert(rect[1][0] >= 0 && rect[1][0] <= rect[1][1] + 1 && (rect[1][1] < 0 || (size_t) rect[1][1] <= size));
+ start[ndims] = (size_t) rect[1][0];
+ count[ndims] = rect[1][1] < 0 ? (size_t) 0 : ((size_t) rect[1][1] - (size_t) rect[1][0] + 1);
+ ndims++;
+ }
+
+ if (xid != CDI_UNDEFID)
+ {
+ size_t size;
+ cdf_inq_dimlen(fileID, xid, &size);
+ xassert(rect[0][0] >= 0 && rect[0][0] <= rect[0][1] + 1 && (rect[0][1] < 0 || (size_t) rect[0][1] <= size));
+ start[ndims] = (size_t) rect[0][0];
+ count[ndims] = rect[0][1] < 0 ? (size_t) 0 : (size_t) rect[0][1] - (size_t) rect[0][0] + 1;
+ ndims++;
+ }
+
+ if (CDI_Debug)
+ for (size_t idim = 0; idim < ndims; ++idim) Message("dim = %d start = %d count = %d", idim, start[idim], count[idim]);
+}
+
+void
+cdf_write_var_chunk(stream_t *streamptr, int varID, int memtype, const int rect[][2], const void *data, size_t numMissVals)
+{
+ if (streamptr->accessmode == 0) cdfEndDef(streamptr);
+
+ int streamID = streamptr->self;
+
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamID, varID);
+
+ int vlistID = streamInqVlist(streamID);
+ int fileID = streamInqFileID(streamID);
+
+ int ncvarID = cdfDefVar(streamptr, varID);
+
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+
+ int xid, yid, zid;
+ cdfGetXYZid(streamptr, gridID, zaxisID, &xid, &yid, &zid);
+
+ size_t xsize, ysize;
+ size_t start[5], count[5];
+ cdfDefineStartAndCountChunk(streamptr, rect, varID, xid, yid, zid, start, count, &xsize, &ysize);
+
+ if (streamptr->ncmode == 1)
+ {
+ cdf_enddef(fileID, streamptr->self);
+ streamptr->ncmode = 2;
+ }
+
+ int dtype = vlistInqVarDatatype(vlistID, varID);
+
+ if (numMissVals > 0) cdfDefVarMissval(streamptr, varID, dtype, 1);
+
+ size_t nvals = gridInqSize(gridID) * (size_t) (zaxisInqSize(zaxisID));
+
+ bool swapxy = false;
+ cdf_write_var_data(fileID, vlistID, varID, ncvarID, dtype, nvals, xsize, ysize, swapxy, start, count, memtype, data, numMissVals);
+}
+
+static void
+cdfDefineStartAndCountSlice(stream_t *streamptr, int varID, int levelID, int dimorder[3], int xid, int yid, int zid,
+ size_t start[5], size_t count[5], size_t *xsize, size_t *ysize)
+{
+ size_t ndims = 0;
+ *xsize = 0;
+ *ysize = 0;
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ const long ntsteps = streamptr->ntsteps;
+ if (CDI_Debug) Message("ntsteps = %ld", ntsteps);
+
+ int timetype = vlistInqVarTimetype(vlistID, varID);
+
+ if (vlistHasTime(vlistID) && timetype != TIME_CONSTANT)
+ {
+ start[ndims] = (size_t) ntsteps - 1;
+ count[ndims] = 1;
+ ndims++;
+ }
+
+ for (int id = 0; id < 3; ++id)
+ {
+ if (dimorder[id] == 3 && zid != CDI_UNDEFID)
+ {
+ start[ndims] = (size_t) levelID;
+ count[ndims] = 1;
+ ndims++;
+ }
+ else if (dimorder[id] == 2 && yid != CDI_UNDEFID)
+ {
+ start[ndims] = 0;
+ cdf_inq_dimlen(fileID, yid, ysize);
+ count[ndims] = *ysize;
+ ndims++;
+ }
+ else if (dimorder[id] == 1 && xid != CDI_UNDEFID)
+ {
+ start[ndims] = 0;
+ cdf_inq_dimlen(fileID, xid, xsize);
+ count[ndims] = *xsize;
+ ndims++;
+ }
+ }
+
+ if (CDI_Debug)
+ for (size_t idim = 0; idim < ndims; ++idim) Message("dim = %d start = %d count = %d", idim, start[idim], count[idim]);
+}
+
+void
+cdf_write_var_slice(stream_t *streamptr, int varID, int levelID, int memtype, const void *data, size_t numMissVals)
+{
+ if (streamptr->accessmode == 0) cdfEndDef(streamptr);
+
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ int ncvarID = cdfDefVar(streamptr, varID);
+
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+
+ int xid, yid, zid;
+ cdfGetXYZid(streamptr, gridID, zaxisID, &xid, &yid, &zid);
+
+ int dimorder[3];
+ vlistInqVarDimorder(vlistID, varID, dimorder);
+ bool swapxy = (dimorder[2] == 2 || dimorder[0] == 1) && xid != CDI_UNDEFID && yid != CDI_UNDEFID;
+
+ size_t xsize, ysize;
+ size_t start[5], count[5];
+ cdfDefineStartAndCountSlice(streamptr, varID, levelID, dimorder, xid, yid, zid, start, count, &xsize, &ysize);
+
+ int dtype = vlistInqVarDatatype(vlistID, varID);
+
+ if (numMissVals > 0) cdfDefVarMissval(streamptr, varID, dtype, 1);
+
+ size_t nvals = gridInqSize(gridID);
+
+ cdf_write_var_data(fileID, vlistID, varID, ncvarID, dtype, nvals, xsize, ysize, swapxy, start, count, memtype, data, numMissVals);
+}
+
+void
+cdf_write_record(stream_t *streamptr, int memtype, const void *data, size_t numMissVals)
+{
+ int varID = streamptr->record->varID;
+ int levelID = streamptr->record->levelID;
+ cdf_write_var_slice(streamptr, varID, levelID, memtype, data, numMissVals);
+}
+
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#ifdef HAVE_LIBNETCDF
+
+#include <limits.h>
+#include <float.h>
+
+
+static void
+cdfReadGridTraj(stream_t *streamptr, int gridID)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+
+ int gridindex = vlistGridIndex(vlistID, gridID);
+ int ncLonId = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_X];
+ int ncLatId = streamptr->ncgrid[gridindex].ncIDs[CDF_VARID_Y];
+
+ int tsID = streamptr->curTsID;
+ size_t ncStepIndex = (size_t) streamptr->tsteps[tsID].ncStepIndex;
+
+ double xlon, xlat;
+ cdf_get_var1_double(fileID, ncLonId, &ncStepIndex, &xlon);
+ cdf_get_var1_double(fileID, ncLatId, &ncStepIndex, &xlat);
+
+ gridDefXvals(gridID, &xlon);
+ gridDefYvals(gridID, &xlat);
+}
+
+static void
+cdfGetSlapDescription(stream_t *streamptr, int varID, size_t (*start)[MAX_DIMENSIONS], size_t (*count)[MAX_DIMENSIONS])
+{
+ int vlistID = streamptr->vlistID;
+ int tsID = streamptr->curTsID;
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+ int timetype = vlistInqVarTimetype(vlistID, varID);
+ int gridindex = vlistGridIndex(vlistID, gridID);
+ size_t ncStepIndex = (size_t) streamptr->tsteps[tsID].ncStepIndex;
+
+ int xid = CDI_UNDEFID, yid = CDI_UNDEFID;
+ if (gridInqType(gridID) == GRID_TRAJECTORY)
+ {
+ cdfReadGridTraj(streamptr, gridID);
+ }
+ else
+ {
+ xid = streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_X];
+ yid = streamptr->ncgrid[gridindex].ncIDs[CDF_DIMID_Y];
+ }
+ int zaxisindex = vlistZaxisIndex(vlistID, zaxisID);
+ int zid = streamptr->zaxisID[zaxisindex];
+
+ int ndims = 0;
+#define addDimension(startCoord, length) \
+ do \
+ { \
+ (*start)[ndims] = startCoord; \
+ (*count)[ndims] = length; \
+ ndims++; \
+ } \
+ while (0)
+ if (timetype != TIME_CONSTANT) addDimension(ncStepIndex, 1);
+ if (zid != CDI_UNDEFID) addDimension(0, (size_t) zaxisInqSize(zaxisID));
+ if (yid != CDI_UNDEFID) addDimension(0, gridInqYsize(gridID));
+ if (xid != CDI_UNDEFID) addDimension(0, gridInqXsize(gridID));
+#undef addDimension
+
+ assert(ndims <= (int) (sizeof(*start) / sizeof(**start)));
+ assert(ndims <= (int) (sizeof(*count) / sizeof(**count)));
+
+ if (CDI_Debug)
+ for (int idim = 0; idim < ndims; ++idim) Message("dim = %d start = %d count = %d", idim, start[idim], count[idim]);
+}
+
+// Scans the data array for missVals, optionally applying first a scale factor and then an offset.
+// Returns the number of missing + out-of-range values encountered.
+static size_t
+cdfDoInputDataTransformationDP(int vlistID, int varID, size_t valueCount, double *data)
+{
+ double missVal = vlistInqVarMissval(vlistID, varID);
+ int haveMissVal = vlistInqVarMissvalUsed(vlistID, varID);
+ double validRange[2];
+ if (!(haveMissVal && vlistInqVarValidrange(vlistID, varID, validRange))) validRange[0] = DBL_MIN, validRange[1] = DBL_MAX;
+ double addoffset = 0.0, scalefactor = 1.0;
+ int haveAddoffset = (cdiInqKeyFloat(vlistID, varID, CDI_KEY_ADDOFFSET, &addoffset) == CDI_NOERR);
+ int haveScalefactor = (cdiInqKeyFloat(vlistID, varID, CDI_KEY_SCALEFACTOR, &scalefactor) == CDI_NOERR);
+
+ bool missValIsNaN = DBL_IS_NAN(missVal);
+ size_t missValCount = 0;
+
+ double validMin = validRange[0];
+ double validMax = validRange[1];
+ if (IS_EQUAL(validMin, VALIDMISS)) validMin = DBL_MIN;
+ if (IS_EQUAL(validMax, VALIDMISS)) validMax = DBL_MAX;
+
+ int haveRangeCheck = (IS_NOT_EQUAL(validMax, DBL_MAX)) | (IS_NOT_EQUAL(validMin, DBL_MIN));
+ assert(!haveRangeCheck || haveMissVal);
+
+ switch (haveMissVal | (haveScalefactor << 1) | (haveAddoffset << 2) | (haveRangeCheck << 3))
+ {
+ case 15: // haveRangeCheck & haveMissVal & haveScalefactor & haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i)
+ {
+ int outOfRange = (data[i] < validMin || data[i] > validMax);
+ int isMissVal = DBL_IS_EQUAL(data[i], missVal);
+ missValCount += (size_t) (outOfRange | isMissVal);
+ data[i] = outOfRange ? missVal : isMissVal ? data[i] : data[i] * scalefactor + addoffset;
+ }
+ break;
+ case 13: // haveRangeCheck & haveMissVal & haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i)
+ {
+ int outOfRange = (data[i] < validMin || data[i] > validMax);
+ int isMissVal = DBL_IS_EQUAL(data[i], missVal);
+ missValCount += (size_t) (outOfRange | isMissVal);
+ data[i] = outOfRange ? missVal : isMissVal ? data[i] : data[i] + addoffset;
+ }
+ break;
+ case 11: // haveRangeCheck & haveMissVal & haveScalefactor
+ for (size_t i = 0; i < valueCount; ++i)
+ {
+ int outOfRange = (data[i] < validMin || data[i] > validMax);
+ int isMissVal = DBL_IS_EQUAL(data[i], missVal);
+ missValCount += (size_t) (outOfRange | isMissVal);
+ data[i] = outOfRange ? missVal : isMissVal ? data[i] : data[i] * scalefactor;
+ }
+ break;
+ case 9: // haveRangeCheck & haveMissVal
+ for (size_t i = 0; i < valueCount; ++i)
+ {
+ int outOfRange = (data[i] < validMin || data[i] > validMax);
+ int isMissVal = DBL_IS_EQUAL(data[i], missVal);
+ missValCount += (size_t) (outOfRange | isMissVal);
+ data[i] = outOfRange ? missVal : data[i];
+ }
+ break;
+ case 7: // haveMissVal & haveScalefactor & haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i)
+ if (DBL_IS_EQUAL(data[i], missVal))
+ missValCount++;
+ else
+ data[i] = data[i] * scalefactor + addoffset;
+ break;
+ case 6: // haveAddoffset & haveScalefactor
+ for (size_t i = 0; i < valueCount; ++i) data[i] = data[i] * scalefactor + addoffset;
+ break;
+ case 5: // haveMissVal & haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i)
+ if (DBL_IS_EQUAL(data[i], missVal))
+ missValCount++;
+ else
+ data[i] += addoffset;
+ break;
+ case 4: // haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i) data[i] += addoffset;
+ break;
+ case 3: // haveMissVal & haveScalefactor
+ for (size_t i = 0; i < valueCount; ++i)
+ if (DBL_IS_EQUAL(data[i], missVal))
+ missValCount++;
+ else
+ data[i] *= scalefactor;
+ break;
+ case 2: // haveScalefactor
+ for (size_t i = 0; i < valueCount; ++i) data[i] *= scalefactor;
+ break;
+ case 1: // haveMissVal
+ if (missValIsNaN)
+ {
+ for (size_t i = 0; i < valueCount; ++i) missValCount += (size_t) DBL_IS_NAN(data[i]);
+ }
+ else
+ {
+ for (size_t i = 0; i < valueCount; ++i) missValCount += (size_t) DBL_IS_EQUAL(data[i], missVal);
+ }
+ break;
+ }
+
+ return missValCount;
+}
+
+static size_t
+cdfDoInputDataTransformationSP(int vlistID, int varID, size_t valueCount, float *data)
+{
+ double missVal = vlistInqVarMissval(vlistID, varID);
+ int haveMissVal = vlistInqVarMissvalUsed(vlistID, varID);
+ double validRange[2];
+ if (!(haveMissVal && vlistInqVarValidrange(vlistID, varID, validRange))) validRange[0] = DBL_MIN, validRange[1] = DBL_MAX;
+ double addoffset = 0.0, scalefactor = 1.0;
+ int haveAddoffset = (cdiInqKeyFloat(vlistID, varID, CDI_KEY_ADDOFFSET, &addoffset) == CDI_NOERR);
+ int haveScalefactor = (cdiInqKeyFloat(vlistID, varID, CDI_KEY_SCALEFACTOR, &scalefactor) == CDI_NOERR);
+
+ bool missValIsNaN = DBL_IS_NAN(missVal);
+ size_t missValCount = 0;
+
+ double validMin = validRange[0];
+ double validMax = validRange[1];
+ if (IS_EQUAL(validMin, VALIDMISS)) validMin = DBL_MIN;
+ if (IS_EQUAL(validMax, VALIDMISS)) validMax = DBL_MAX;
+
+ int haveRangeCheck = (IS_NOT_EQUAL(validMax, DBL_MAX)) | (IS_NOT_EQUAL(validMin, DBL_MIN));
+ assert(!haveRangeCheck || haveMissVal);
+
+ switch (haveMissVal | (haveScalefactor << 1) | (haveAddoffset << 2) | (haveRangeCheck << 3))
+ {
+ case 15: // haveRangeCheck & haveMissVal & haveScalefactor & haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i)
+ {
+ int outOfRange = (data[i] < validMin || data[i] > validMax);
+ int isMissVal = DBL_IS_EQUAL(data[i], missVal);
+ missValCount += (size_t) (outOfRange | isMissVal);
+ data[i] = outOfRange ? (float) missVal : isMissVal ? data[i] : (float) (data[i] * scalefactor + addoffset);
+ }
+ break;
+ case 13: // haveRangeCheck & haveMissVal & haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i)
+ {
+ int outOfRange = (data[i] < validMin || data[i] > validMax);
+ int isMissVal = DBL_IS_EQUAL(data[i], missVal);
+ missValCount += (size_t) (outOfRange | isMissVal);
+ data[i] = outOfRange ? (float) missVal : isMissVal ? data[i] : (float) (data[i] + addoffset);
+ }
+ break;
+ case 11: // haveRangeCheck & haveMissVal & haveScalefactor
+ for (size_t i = 0; i < valueCount; ++i)
+ {
+ int outOfRange = (data[i] < validMin || data[i] > validMax);
+ int isMissVal = DBL_IS_EQUAL(data[i], missVal);
+ missValCount += (size_t) (outOfRange | isMissVal);
+ data[i] = outOfRange ? (float) missVal : isMissVal ? data[i] : (float) (data[i] * scalefactor);
+ }
+ break;
+ case 9: // haveRangeCheck & haveMissVal
+ for (size_t i = 0; i < valueCount; ++i)
+ {
+ int outOfRange = (data[i] < validMin || data[i] > validMax);
+ int isMissVal = DBL_IS_EQUAL(data[i], missVal);
+ missValCount += (size_t) (outOfRange | isMissVal);
+ data[i] = outOfRange ? (float) missVal : data[i];
+ }
+ break;
+ case 7: // haveMissVal & haveScalefactor & haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i)
+ if (DBL_IS_EQUAL(data[i], missVal))
+ missValCount++;
+ else
+ data[i] = (float) (data[i] * scalefactor + addoffset);
+ break;
+ case 6: // haveAddoffset & haveScalefactor
+ for (size_t i = 0; i < valueCount; ++i) data[i] = (float) (data[i] * scalefactor + addoffset);
+ break;
+ case 5: // haveMissVal & haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i)
+ if (DBL_IS_EQUAL(data[i], missVal))
+ missValCount++;
+ else
+ data[i] = (float) (data[i] + addoffset);
+ break;
+ case 4: // haveAddoffset
+ for (size_t i = 0; i < valueCount; ++i) data[i] = (float) (data[i] + addoffset);
+ break;
+ case 3: // haveMissVal & haveScalefactor
+ for (size_t i = 0; i < valueCount; ++i)
+ if (DBL_IS_EQUAL(data[i], missVal))
+ missValCount++;
+ else
+ data[i] = (float) (data[i] * scalefactor);
+ break;
+ case 2: // haveScalefactor
+ for (size_t i = 0; i < valueCount; ++i) data[i] = (float) (data[i] * scalefactor);
+ break;
+ case 1: // haveMissVal
+ if (missValIsNaN)
+ {
+ for (size_t i = 0; i < valueCount; ++i) missValCount += (size_t) DBL_IS_NAN(data[i]);
+ }
+ else
+ {
+ for (size_t i = 0; i < valueCount; ++i) missValCount += (size_t) DBL_IS_EQUAL(data[i], missVal);
+ }
+ break;
+ }
+
+ return missValCount;
+}
+
+static size_t
+min_size(size_t a, size_t b)
+{
+ return a < b ? a : b;
+}
+
+static void
+transpose2dArrayDP(int gridId, double *data)
+{
+ size_t inWidth = gridInqYsize(gridId);
+ size_t inHeight = gridInqXsize(gridId);
+
+ size_t cacheBlockSize = 256; // Purely an optimization parameter. Current value of 32 means we are handling 8kB blocks,
+ // which should be a decent compromise on many architectures.
+ double **out = (double **) malloc(inWidth * sizeof(double *));
+ double **temp = (double **) malloc(inHeight * sizeof(double *));
+ temp[0] = (double *) malloc(inHeight * inWidth * sizeof(double));
+ memcpy(temp[0], data, inHeight * inWidth * sizeof(double));
+ for (size_t i = 0; i < inWidth; ++i) out[i] = data + (inHeight * i);
+ for (size_t i = 1; i < inHeight; ++i) temp[i] = temp[0] + (inWidth * i);
+
+ /*
+ for (size_t y = 0; y < inHeight; ++y)
+ for (size_t x = 0; x < inWidth; ++x)
+ out[x][y] = temp[y][x];
+ */
+
+ for (size_t yBlock = 0; yBlock < inHeight; yBlock += cacheBlockSize)
+ for (size_t xBlock = 0; xBlock < inWidth; xBlock += cacheBlockSize)
+ for (size_t y = yBlock, yEnd = min_size(yBlock + cacheBlockSize, inHeight); y < yEnd; y++)
+ for (size_t x = xBlock, xEnd = min_size(xBlock + cacheBlockSize, inWidth); x < xEnd; x++)
+ {
+ out[x][y] = temp[y][x];
+ }
+
+ free(out);
+ free(temp[0]);
+ free(temp);
+}
+
+static void
+transpose2dArraySP(size_t gridId, float *data)
+{
+ size_t inWidth = gridInqYsize(gridId);
+ size_t inHeight = gridInqXsize(gridId);
+
+ size_t cacheBlockSize = 256; // Purely an optimization parameter. Current value of 32 means we are handling 8kB blocks,
+ // which should be a decent compromise on many architectures.
+ float **out = (float **) malloc(inWidth * sizeof(float *));
+ float **temp = (float **) malloc(inHeight * sizeof(float *));
+ temp[0] = (float *) malloc(inHeight * inWidth * sizeof(float));
+ memcpy(temp[0], data, inHeight * inWidth * sizeof(float));
+ for (size_t i = 0; i < inWidth; i++) out[i] = data + (inHeight * i);
+ for (size_t i = 1; i < inHeight; i++) temp[i] = temp[0] + (inWidth * i);
+
+ /*
+ for (size_t y = 0; y < inHeight; ++y)
+ for (size_t x = 0; x < inWidth; ++x)
+ out[x][y] = temp[y][x];
+ */
+
+ for (size_t yBlock = 0; yBlock < inHeight; yBlock += cacheBlockSize)
+ for (size_t xBlock = 0; xBlock < inWidth; xBlock += cacheBlockSize)
+ for (size_t y = yBlock, yEnd = min_size(yBlock + cacheBlockSize, inHeight); y < yEnd; y++)
+ for (size_t x = xBlock, xEnd = min_size(xBlock + cacheBlockSize, inWidth); x < xEnd; x++)
+ {
+ out[x][y] = temp[y][x];
+ }
+
+ free(out);
+ free(temp[0]);
+ free(temp);
+}
+
+static void
+cdf_inq_dimIds(stream_t *streamptr, int varId, int (*outDimIds)[4])
+{
+ int vlistID = streamptr->vlistID;
+ int gridId = vlistInqVarGrid(vlistID, varId);
+ int gridindex = vlistGridIndex(vlistID, gridId);
+ const int *ncIDs = streamptr->ncgrid[gridindex].ncIDs;
+
+ switch (gridInqType(gridId))
+ {
+ case GRID_TRAJECTORY: cdfReadGridTraj(streamptr, gridId); break;
+ case GRID_UNSTRUCTURED:
+ (*outDimIds)[0] = ncIDs[CDF_DIMID_X];
+ (*outDimIds)[3] = ncIDs[CDF_DIMID_E]; // used only for cube_sphere grids
+ if ((*outDimIds)[3] != CDI_UNDEFID) (*outDimIds)[1] = ncIDs[CDF_DIMID_Y]; // used only for cube_sphere grids
+ break;
+ case GRID_GAUSSIAN_REDUCED: (*outDimIds)[0] = ncIDs[CDF_DIMID_X]; break;
+ default:
+ (*outDimIds)[0] = ncIDs[CDF_DIMID_X];
+ (*outDimIds)[1] = ncIDs[CDF_DIMID_Y];
+ break;
+ }
+
+ int zaxisID = vlistInqVarZaxis(vlistID, varId);
+ int zaxisindex = vlistZaxisIndex(vlistID, zaxisID);
+ (*outDimIds)[2] = streamptr->zaxisID[zaxisindex];
+}
+
+static size_t
+stream_inq_dimlen(stream_t *streamptr, int dimid)
+{
+ int ndims = streamptr->ncNumDims;
+ int *ncdimid = streamptr->ncDimID;
+ size_t *ncdimlen = streamptr->ncDimLen;
+ for (int i = 0; i < ndims; ++i)
+ {
+ if (dimid == ncdimid[i]) return ncdimlen[i];
+ }
+
+ size_t size = 0;
+ int fileId = streamptr->fileID;
+ cdf_inq_dimlen(fileId, dimid, &size);
+ return size;
+}
+
+static int
+stream_get_skip_dim(stream_t *streamptr, int ncvarid, int dimIds[3])
+{
+ if (dimIds[0] != CDI_UNDEFID || dimIds[1] != CDI_UNDEFID) return 0;
+
+ int fileId = streamptr->fileID;
+ int nvdims;
+ cdf_inq_varndims(fileId, ncvarid, &nvdims);
+ if (nvdims != 3) return 0;
+
+ int varDimIds[3] = { -1, -1, -1 };
+ cdf_inq_vardimid(fileId, ncvarid, varDimIds);
+
+ if (dimIds[2] == varDimIds[2])
+ {
+ if (stream_inq_dimlen(streamptr, varDimIds[1]) == 1) return 1;
+ }
+ else if (dimIds[2] == varDimIds[1])
+ {
+ if (stream_inq_dimlen(streamptr, varDimIds[2]) == 1) return 2;
+ }
+
+ return 0;
+}
+
+enum
+{
+ cdfSliceNDim = MAX_DIMENSIONS
+};
+
+static void
+cdfGetSliceSlapDescription(stream_t *streamptr, int tsID, int varID, int levelID, bool *outSwapXY, size_t start[cdfSliceNDim],
+ size_t count[cdfSliceNDim])
+{
+ int fileId = streamptr->fileID;
+ int vlistID = streamptr->vlistID;
+ int ncvarid = streamptr->vars[varID].ncvarid;
+ size_t ncStepIndex = (size_t) streamptr->tsteps[tsID].ncStepIndex;
+
+ int gridId = vlistInqVarGrid(vlistID, varID);
+ int timetype = vlistInqVarTimetype(vlistID, varID);
+ size_t gridsize = gridInqSize(gridId);
+
+ streamptr->numvals += gridsize;
+
+ int dimIds[4] = { -1, -1, -1, -1 }; // this array joins the old variables xid, yid, and zid
+ cdf_inq_dimIds(streamptr, varID, &dimIds);
+
+ int skipdim = stream_get_skip_dim(streamptr, ncvarid, dimIds);
+
+ int dimorder[4] = { 3, 4, 2, 1 }; // order of cube sphere grid
+ if (dimIds[3] == CDI_UNDEFID)
+ {
+ int tmpdimorder[3];
+ vlistInqVarDimorder(vlistID, varID, tmpdimorder);
+ for (int i = 0; i < 3; ++i) dimorder[i] = tmpdimorder[i];
+ dimorder[3] = 4;
+ *outSwapXY = ((dimorder[2] == 2 || dimorder[0] == 1) && (dimIds[0] != CDI_UNDEFID) && (dimIds[1] != CDI_UNDEFID));
+ }
+
+ int ndims = 0;
+
+#define addDimension(startIndex, extent) \
+ do \
+ { \
+ start[ndims] = startIndex; \
+ count[ndims] = extent; \
+ ndims++; \
+ } \
+ while (0)
+
+ if (timetype != TIME_CONSTANT) addDimension(ncStepIndex, 1);
+ if (skipdim == 1) addDimension(0, 1);
+
+ int gridindex = vlistGridIndex(vlistID, gridId);
+ const ncgrid_t *ncGrid = &streamptr->ncgrid[gridindex];
+ bool readPart = (ncGrid->gridID == gridId && ncGrid->start != -1 && ncGrid->count != -1);
+
+ for (int id = 0; id < 4; ++id)
+ {
+ int curDimId = dimIds[dimorder[id] - 1];
+ if (curDimId == CDI_UNDEFID) continue;
+ switch (dimorder[id])
+ {
+ case 1:
+ case 2:
+ case 4:
+ if (readPart && curDimId == dimIds[0])
+ addDimension(ncGrid->start, ncGrid->count);
+ else
+ addDimension(0, stream_inq_dimlen(streamptr, curDimId));
+ break;
+ case 3: addDimension((size_t) levelID, 1); break;
+ default: Error("Internal errror: Malformed dimension order encountered. Please report this bug.");
+ }
+ }
+
+ if (skipdim == 2) addDimension(0, 1);
+
+ assert(ndims <= cdfSliceNDim);
+
+#undef addDimension
+
+ if (CDI_Debug)
+ for (int idim = 0; idim < ndims; ++idim) Message("dim = %d start = %zu count = %zu", idim, start[idim], count[idim]);
+
+ int nvdims;
+ cdf_inq_varndims(fileId, ncvarid, &nvdims);
+
+ if (nvdims != ndims)
+ {
+ char name[CDI_MAX_NAME];
+ vlistInqVarName(vlistID, varID, name);
+ Error("Internal error, variable %s has an unsupported array structure!", name);
+ }
+}
+
+static size_t
+getSizeVar3D(int vlistID, int varID)
+{
+ int gridID = vlistInqVarGrid(vlistID, varID);
+ int zaxisID = vlistInqVarZaxis(vlistID, varID);
+ return gridInqSize(gridID) * (size_t) zaxisInqSize(zaxisID);
+}
+
+static void
+cdfReadDataSliceSP2DP(int fileID, int ncvarid, size_t length, size_t start[MAX_DIMENSIONS], size_t count[MAX_DIMENSIONS],
+ double *data)
+{
+ float *data_fp = (float *) Malloc(length * sizeof(*data_fp));
+ cdf_get_vara_float(fileID, ncvarid, start, count, data_fp);
+ for (size_t i = 0; i < length; ++i) data[i] = (double) data_fp[i];
+ Free(data_fp);
+}
+
+static void
+cdfReadDataSliceDP2SP(int fileID, int ncvarid, size_t length, size_t start[MAX_DIMENSIONS], size_t count[MAX_DIMENSIONS],
+ float *data)
+{
+ double *data_dp = (double *) Malloc(length * sizeof(*data_dp));
+ cdf_get_vara_double(fileID, ncvarid, start, count, data_dp);
+ for (size_t i = 0; i < length; ++i) data[i] = (float) data_dp[i];
+ Free(data_dp);
+}
+
+static void
+cdfCheckDataDP_UINT8(int fileID, int ncvarid, int vlistID, int varID, size_t length, double *data)
+{
+ if (vlistInqVarDatatype(vlistID, varID) == CDI_DATATYPE_UINT8)
+ {
+ nc_type xtype;
+ cdf_inq_vartype(fileID, ncvarid, &xtype);
+ if (xtype == NC_BYTE)
+ {
+ for (size_t i = 0; i < length; ++i)
+ if (data[i] < 0) data[i] += 256;
+ }
+ }
+}
+
+static void
+cdfCheckDataSP_UINT8(int fileID, int ncvarid, int vlistID, int varID, size_t length, float *data)
+{
+ if (vlistInqVarDatatype(vlistID, varID) == CDI_DATATYPE_UINT8)
+ {
+ nc_type xtype;
+ cdf_inq_vartype(fileID, ncvarid, &xtype);
+ if (xtype == NC_BYTE)
+ {
+ for (size_t i = 0; i < length; ++i)
+ if (data[i] < 0) data[i] += 256;
+ }
+ }
+}
+
+static void
+cdfReadDataDP(stream_t *streamptr, int varID, size_t length, size_t start[MAX_DIMENSIONS], size_t count[MAX_DIMENSIONS],
+ double *data)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int ncvarid = streamptr->vars[varID].ncvarid;
+ int datatype = vlistInqVarDatatype(vlistID, varID);
+
+ if (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64)
+ {
+ cdf_get_vara(fileID, ncvarid, start, count, data);
+ if (datatype == CDI_DATATYPE_CPX32)
+ {
+ for (long i = (long) length - 1; i >= 0; --i)
+ {
+ data[2 * i] = (double) (((float *) data)[2 * i]);
+ data[2 * i + 1] = (double) (((float *) data)[2 * i + 1]);
+ }
+ }
+ }
+ else
+ {
+ if (datatype == CDI_DATATYPE_FLT32)
+ {
+ cdfReadDataSliceSP2DP(fileID, ncvarid, length, start, count, data);
+ }
+ else
+ {
+ cdf_get_vara_double(fileID, ncvarid, start, count, data);
+
+ cdfCheckDataDP_UINT8(fileID, ncvarid, vlistID, varID, length, data);
+ }
+ }
+}
+
+static void
+cdfReadDataSP(stream_t *streamptr, int varID, size_t length, size_t start[MAX_DIMENSIONS], size_t count[MAX_DIMENSIONS],
+ float *data)
+{
+ int vlistID = streamptr->vlistID;
+ int fileID = streamptr->fileID;
+ int ncvarid = streamptr->vars[varID].ncvarid;
+ int datatype = vlistInqVarDatatype(vlistID, varID);
+
+ if (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64)
+ {
+ if (datatype == CDI_DATATYPE_CPX64)
+ {
+ double *cdata = (double *) Malloc(2 * length * sizeof(double));
+ cdf_get_vara(fileID, ncvarid, start, count, cdata);
+ for (size_t i = 0; i < length; ++i)
+ {
+ data[2 * i] = (float) (cdata[2 * i]);
+ data[2 * i + 1] = (float) (cdata[2 * i + 1]);
+ }
+ Free(cdata);
+ }
+ else
+ {
+ cdf_get_vara(fileID, ncvarid, start, count, data);
+ }
+ }
+ else
+ {
+ if (datatype == CDI_DATATYPE_FLT64)
+ {
+ cdfReadDataSliceDP2SP(fileID, ncvarid, length, start, count, data);
+ }
+ else
+ {
+ cdf_get_vara_float(fileID, ncvarid, start, count, data);
+
+ cdfCheckDataSP_UINT8(fileID, ncvarid, vlistID, varID, length, data);
+ }
+ }
+}
+
+static void
+cdfReadVarDP(stream_t *streamptr, int varID, double *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+
+ size_t start[MAX_DIMENSIONS], count[MAX_DIMENSIONS];
+ cdfGetSlapDescription(streamptr, varID, &start, &count);
+
+ size_t length = getSizeVar3D(vlistID, varID);
+ cdfReadDataDP(streamptr, varID, length, start, count, data);
+
+ *numMissVals = cdfDoInputDataTransformationDP(vlistID, varID, length, data);
+}
+
+static void
+cdfReadVarSP(stream_t *streamptr, int varID, float *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+
+ size_t start[MAX_DIMENSIONS], count[MAX_DIMENSIONS];
+ cdfGetSlapDescription(streamptr, varID, &start, &count);
+
+ size_t length = getSizeVar3D(vlistID, varID);
+ cdfReadDataSP(streamptr, varID, length, start, count, data);
+
+ *numMissVals = cdfDoInputDataTransformationSP(vlistID, varID, length, data);
+}
+
+void
+cdf_read_var(stream_t *streamptr, int varID, int memtype, void *data, size_t *numMissVals)
+{
+ if (memtype == MEMTYPE_DOUBLE)
+ cdfReadVarDP(streamptr, varID, (double *) data, numMissVals);
+ else
+ cdfReadVarSP(streamptr, varID, (float *) data, numMissVals);
+}
+
+static void
+cdf_read_var_slice_DP(stream_t *streamptr, int tsID, int varID, int levelID, double *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID=%d tsID=%d varID=%d levelID=%d", streamptr->self, tsID, varID, levelID);
+
+ bool swapxy = false;
+ size_t start[cdfSliceNDim], count[cdfSliceNDim];
+ cdfGetSliceSlapDescription(streamptr, tsID, varID, levelID, &swapxy, start, count);
+
+ int vlistID = streamptr->vlistID;
+ int gridId = vlistInqVarGrid(vlistID, varID);
+ size_t length = gridInqSize(gridId);
+ cdfReadDataDP(streamptr, varID, length, start, count, data);
+
+ if (swapxy) transpose2dArrayDP(gridId, data);
+
+ *numMissVals = cdfDoInputDataTransformationDP(vlistID, varID, length, data);
+}
+
+static void
+cdfReadVarSliceDP(stream_t *streamptr, int varID, int levelID, double *data, size_t *numMissVals)
+{
+ cdf_read_var_slice_DP(streamptr, streamptr->curTsID, varID, levelID, data, numMissVals);
+}
+
+static void
+cdf_read_var_slice_SP(stream_t *streamptr, int tsID, int varID, int levelID, float *data, size_t *numMissVals)
+{
+ if (CDI_Debug) Message("streamID=%d tsID=%d varID=%d levelID=%d", streamptr->self, tsID, varID, levelID);
+
+ bool swapxy = false;
+ size_t start[cdfSliceNDim], count[cdfSliceNDim];
+ cdfGetSliceSlapDescription(streamptr, tsID, varID, levelID, &swapxy, start, count);
+
+ int vlistID = streamptr->vlistID;
+ int gridId = vlistInqVarGrid(vlistID, varID);
+ size_t length = gridInqSize(gridId);
+ cdfReadDataSP(streamptr, varID, length, start, count, data);
+
+ if (swapxy) transpose2dArraySP(gridId, data);
+
+ *numMissVals = cdfDoInputDataTransformationSP(vlistID, varID, length, data);
+}
+
+static void
+cdfReadVarSliceSP(stream_t *streamptr, int varID, int levelID, float *data, size_t *numMissVals)
+{
+ cdf_read_var_slice_SP(streamptr, streamptr->curTsID, varID, levelID, data, numMissVals);
+}
+
+void
+cdf_read_var_slice(stream_t *streamptr, int varID, int levelID, int memtype, void *data, size_t *numMissVals)
+{
+ if (memtype == MEMTYPE_DOUBLE)
+ cdfReadVarSliceDP(streamptr, varID, levelID, (double *) data, numMissVals);
+ else
+ cdfReadVarSliceSP(streamptr, varID, levelID, (float *) data, numMissVals);
+}
+
+typedef struct JobArgs
+{
+ stream_t *streamptr;
+ int varID, levelID;
+ int recID, tsID, memtype;
+ void *data;
+ size_t gridsize, numMissVals;
+} JobArgs;
+
+static int
+cdf_read_data_async(void *untypedArgs)
+{
+ JobArgs *args = (JobArgs *) untypedArgs;
+
+ if (args->memtype == MEMTYPE_DOUBLE)
+ cdf_read_var_slice_DP(args->streamptr, args->tsID, args->varID, args->levelID, (double *) args->data, &args->numMissVals);
+ else
+ cdf_read_var_slice_SP(args->streamptr, args->tsID, args->varID, args->levelID, (float *) args->data, &args->numMissVals);
+
+ return 0;
+}
+
+static size_t
+cdf_read_data(stream_t *streamptr, int recID, int memtype, void *data)
+{
+ int tsID = streamptr->curTsID;
+ int varID = streamptr->tsteps[tsID].records[recID].varID;
+ int levelID = streamptr->tsteps[tsID].records[recID].levelID;
+
+ size_t numMissVals = 0;
+ if (memtype == MEMTYPE_DOUBLE)
+ cdf_read_var_slice_DP(streamptr, tsID, varID, levelID, (double *) data, &numMissVals);
+ else
+ cdf_read_var_slice_SP(streamptr, tsID, varID, levelID, (float *) data, &numMissVals);
+
+ return numMissVals;
+}
+
+typedef struct JobDescriptor
+{
+ JobArgs args;
+ AsyncJob *job;
+} JobDescriptor;
+
+static JobArgs
+job_args_init(stream_t *streamptr, int tsID, int recID, int memtype, void *data)
+{
+ int varID = streamptr->tsteps[tsID].records[recID].varID;
+ int levelID = streamptr->tsteps[tsID].records[recID].levelID;
+ size_t gridsize = gridInqSize(vlistInqVarGrid(streamptr->vlistID, varID));
+
+ if (!data) data = Malloc(gridsize * ((memtype == MEMTYPE_FLOAT) ? sizeof(float) : sizeof(double)));
+
+ return (JobArgs){
+ .streamptr = streamptr,
+ .varID = varID,
+ .levelID = levelID,
+ .recID = recID,
+ .tsID = tsID,
+ .memtype = memtype,
+ .data = data,
+ .gridsize = gridsize,
+ .numMissVals = 0,
+ };
+}
+
+static void
+JobDescriptor_startJob(AsyncManager *jobManager, JobDescriptor *me, stream_t *streamptr, int tsID, int recID, int memtype)
+{
+ me->args = job_args_init(streamptr, tsID, recID, memtype, NULL);
+ me->job = AsyncWorker_requestWork(jobManager, cdf_read_data_async, &me->args);
+ if (!me->job) xabort("error while trying to send job to worker thread");
+}
+
+static void
+JobDescriptor_finishJob(AsyncManager *jobManager, JobDescriptor *me, void *data, size_t *numMissVals)
+{
+ if (AsyncWorker_wait(jobManager, me->job)) xabort("error executing job in worker thread");
+ memcpy(data, me->args.data, me->args.gridsize * ((me->args.memtype == MEMTYPE_FLOAT) ? sizeof(float) : sizeof(double)));
+ *numMissVals = me->args.numMissVals;
+
+ Free(me->args.data);
+ me->args.recID = -1; // mark as inactive
+ me->args.tsID = -1; // mark as inactive
+}
+/*
+static long
+get_global_recId(stream_t *streamptr, int tsID, int recID)
+{
+ const tsteps_t *tsteps = streamptr->tsteps;
+ long globalRecId = recID;
+ if (tsID > 0) globalRecId += tsteps[0].nrecs;
+ if (tsID > 1) globalRecId += tsteps[1].nrecs * (tsID - 1);
+ return globalRecId;
+}
+*/
+
+static void
+get_local_step_and_recId(stream_t *streamptr, long globalRecId, int *tsID, int *recID)
+{
+ int localTsId = 0;
+ long numSteps = streamptr->ntsteps;
+ const tsteps_t *tsteps = streamptr->tsteps;
+ if (numSteps > 0 && globalRecId >= tsteps[0].nrecs)
+ {
+ localTsId++;
+ globalRecId -= tsteps[0].nrecs;
+ }
+ while (globalRecId >= tsteps[1].nrecs)
+ {
+ localTsId++;
+ globalRecId -= tsteps[1].nrecs;
+ }
+
+ *tsID = localTsId;
+ *recID = globalRecId;
+}
+
+static void
+read_next_record(AsyncManager *jobManager, JobDescriptor *jd, stream_t *streamptr, int memtype)
+{
+ int tsId = -1, recId = -1;
+ get_local_step_and_recId(streamptr, streamptr->nextGlobalRecId, &tsId, &recId);
+ int xRecId = streamptr->tsteps[tsId].recIDs[recId];
+ JobDescriptor_startJob(jobManager, jd, streamptr, tsId, xRecId, memtype);
+ streamptr->nextGlobalRecId++;
+}
+
+static void
+cdf_read_next_record(stream_t *streamptr, int recID, int memtype, void *data, size_t *numMissVals)
+{
+ bool jobFound = false;
+
+ int workerCount = streamptr->numWorker;
+ if (workerCount > 0)
+ {
+ int tsID = streamptr->curTsID;
+
+ AsyncManager *jobManager = (AsyncManager *) streamptr->jobManager;
+ JobDescriptor *jobs = (JobDescriptor *) streamptr->jobs;
+
+ // if this is the first call, init and start worker threads
+ if (!jobs)
+ {
+ jobs = (JobDescriptor *) malloc(workerCount * sizeof(*jobs));
+ streamptr->jobs = jobs;
+ for (int i = 0; i < workerCount; i++) jobs[i].args.recID = -1;
+ for (int i = 0; i < workerCount; i++) jobs[i].args.tsID = -1;
+ if (AsyncWorker_init(&jobManager, workerCount)) xabort("error while trying to start worker threads");
+ streamptr->jobManager = jobManager;
+
+ // Start as many new jobs as possible.
+ for (int i = 0; streamptr->nextGlobalRecId < streamptr->maxGlobalRecs && i < workerCount; i++)
+ {
+ JobDescriptor *jd = &jobs[i];
+ if (jd->args.recID < 0 && jd->args.tsID < 0) read_next_record(jobManager, jd, streamptr, memtype);
+ }
+ }
+
+ // search for a job descriptor with the given tsID and recID, and use its results if it exists
+ for (int i = 0; !jobFound && i < workerCount; i++)
+ {
+ JobDescriptor *jd = &jobs[i];
+ if (jd->args.recID == recID && jd->args.tsID == tsID)
+ {
+ jobFound = true;
+ JobDescriptor_finishJob(jobManager, jd, data, numMissVals);
+ if (streamptr->nextGlobalRecId < streamptr->maxGlobalRecs) read_next_record(jobManager, jd, streamptr, memtype);
+ }
+ }
+ }
+
+ // perform the work synchronously if we didn't start a job for it yet
+ if (!jobFound) *numMissVals = cdf_read_data(streamptr, recID, memtype, data);
+}
+
+void
+cdf_read_record(stream_t *streamptr, int memtype, void *data, size_t *numMissVals)
+{
+ int tsID = streamptr->curTsID;
+ int vrecID = streamptr->tsteps[tsID].curRecID;
+ int recID = streamptr->tsteps[tsID].recIDs[vrecID];
+
+ cdf_read_next_record(streamptr, recID, memtype, data, numMissVals);
+}
+
+//----------------------------------------------------------------------------
+// Parallel Version
+//----------------------------------------------------------------------------
+
+void
+cdfReadVarSliceDPPart(stream_t *streamptr, int varID, int levelID, int varType, int startpoint, size_t length, double *data,
+ size_t *numMissVals)
+{
+ (void) (varType);
+
+ if (CDI_Debug) Message("streamID = %d varID = %d levelID = %d", streamptr->self, varID, levelID);
+
+ int vlistID = streamptr->vlistID;
+
+ bool swapxy = false;
+ size_t start[cdfSliceNDim], count[cdfSliceNDim];
+ cdfGetSliceSlapDescription(streamptr, streamptr->curTsID, varID, levelID, &swapxy, start, count);
+
+ int gridId = vlistInqVarGrid(vlistID, varID);
+ size_t gridsize = gridInqSize(gridId);
+
+ unsigned int position = 0;
+ for (int i = 0; i < MAX_DIMENSIONS; ++i)
+ if (count[i] == gridsize) position = i;
+
+ start[position] = start[position] + startpoint;
+ count[position] = length;
+
+ cdfReadDataDP(streamptr, varID, length, start, count, data);
+
+ if (swapxy) transpose2dArrayDP(gridId, data);
+
+ *numMissVals = cdfDoInputDataTransformationDP(vlistID, varID, length, data);
+}
+
+void
+cdfReadVarSliceSPPart(stream_t *streamptr, int varID, int levelID, int varType, int startpoint, size_t length, float *data,
+ size_t *numMissVals)
+{
+ (void) (varType);
+
+ if (CDI_Debug) Message("streamID = %d varID = %d levelID = %d", streamptr->self, varID, levelID);
+
+ int vlistID = streamptr->vlistID;
+
+ bool swapxy = false;
+ size_t start[cdfSliceNDim], count[cdfSliceNDim];
+ cdfGetSliceSlapDescription(streamptr, streamptr->curTsID, varID, levelID, &swapxy, start, count);
+
+ int gridId = vlistInqVarGrid(vlistID, varID);
+ size_t gridsize = gridInqSize(gridId);
+
+ unsigned int position = 0;
+ for (int i = 0; i < MAX_DIMENSIONS; ++i)
+ if (count[i] == gridsize) position = i;
+
+ start[position] = start[position] + startpoint;
+ count[position] = length;
+
+ cdfReadDataSP(streamptr, varID, length, start, count, data);
+
+ if (swapxy) transpose2dArraySP(gridId, data);
+
+ *numMissVals = cdfDoInputDataTransformationSP(vlistID, varID, length, data);
+}
+
+static int
+cdiStreamReadVarSlicePart(int streamID, int varID, int levelID, int varType, int start, size_t size, int memtype, void *data,
+ size_t *numMissVals)
+{
+ int status = 0;
+
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamID, varID);
+
+ check_parg(data);
+ check_parg(numMissVals);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+ int filetype = streamptr->filetype;
+
+ *numMissVals = 0;
+
+ // currently we only care for netcdf data
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB:
+ {
+ grb_read_var_slice(streamptr, varID, levelID, memtype, data, numMissVals);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+ {
+ if (memtype == MEMTYPE_FLOAT)
+ cdfReadVarSliceSPPart(streamptr, varID, levelID, varType, start, size, (float *) data, numMissVals);
+ else
+ cdfReadVarSliceDPPart(streamptr, varID, levelID, varType, start, size, (double *) data, numMissVals);
+ break;
+ }
+#endif
+ default:
+ {
+ Error("%s support not compiled in!", strfiletype(filetype));
+ status = 2;
+ break;
+ }
+ }
+
+ return status;
+}
+
+void
+cdfReadVarDPPart(stream_t *streamptr, int varID, int varType, int startpoint, size_t length, double *data, size_t *numMissVals)
+{
+ (void) (varType);
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ int ncvarid = streamptr->vars[varID].ncvarid;
+
+ size_t start[MAX_DIMENSIONS], count[MAX_DIMENSIONS];
+ cdfGetSlapDescription(streamptr, varID, &start, &count);
+
+ int ltime = (TIME_CONSTANT != vlistInqVarTimetype(vlistID, varID));
+ start[1 + ltime] = start[1 + ltime] + startpoint;
+ count[1 + ltime] = length;
+
+ cdf_get_vara_double(streamptr->fileID, ncvarid, start, count, data);
+
+ *numMissVals = cdfDoInputDataTransformationDP(vlistID, varID, length, data);
+}
+
+void
+cdfReadVarSPPart(stream_t *streamptr, int varID, int varType, int startpoint, size_t length, float *data, size_t *numMissVals)
+{
+ (void) (varType);
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamptr->self, varID);
+
+ int vlistID = streamptr->vlistID;
+ int ncvarid = streamptr->vars[varID].ncvarid;
+
+ size_t start[MAX_DIMENSIONS], count[MAX_DIMENSIONS];
+ cdfGetSlapDescription(streamptr, varID, &start, &count);
+
+ int ltime = (TIME_CONSTANT != vlistInqVarTimetype(vlistID, varID));
+ start[1 + ltime] = start[1 + ltime] + startpoint;
+ count[1 + ltime] = length;
+
+ cdf_get_vara_float(streamptr->fileID, ncvarid, start, count, data);
+
+ *numMissVals = cdfDoInputDataTransformationSP(vlistID, varID, length, data);
+}
+
+static void
+cdiStreamReadVarPart(int streamID, int varID, int varType, int start, size_t size, int memtype, void *data, size_t *numMissVals)
+{
+ (void) (varType);
+ if (CDI_Debug) Message("streamID = %d varID = %d", streamID, varID);
+
+ check_parg(data);
+ check_parg(numMissVals);
+
+ stream_t *streamptr = stream_to_pointer(streamID);
+ int filetype = streamptr->filetype;
+
+ *numMissVals = 0;
+
+ // currently we only care for netcdf data
+ switch (cdiBaseFiletype(filetype))
+ {
+#ifdef HAVE_LIBGRIB
+ case CDI_FILETYPE_GRIB:
+ {
+ grb_read_var(streamptr, varID, memtype, data, numMissVals);
+ break;
+ }
+#endif
+#ifdef HAVE_LIBNETCDF
+ case CDI_FILETYPE_NETCDF:
+ {
+ if (memtype == MEMTYPE_FLOAT)
+ cdfReadVarSPPart(streamptr, varID, varType, start, size, (float *) data, numMissVals);
+ else
+ cdfReadVarDPPart(streamptr, varID, varType, start, size, (double *) data, numMissVals);
+
+ break;
+ }
+#endif
+ default:
+ {
+ Error("%s support not compiled in!", strfiletype(filetype));
+ break;
+ }
+ }
+}
+
+void
+streamReadVarSlicePart(int streamID, int varID, int levelID, int varType, int start, SizeType size, void *data,
+ SizeType *numMissVals, int memtype)
+{
+ size_t numMiss = 0;
+ if (cdiStreamReadVarSlicePart(streamID, varID, levelID, varType, start, size, memtype, data, &numMiss))
+ {
+ Error("Unexpected error returned from cdiStreamReadVarSlicePart()!");
+ }
+ *numMissVals = (SizeType) numMiss;
+}
+
+void
+streamReadVarPart(int streamID, int varID, int varType, int start, SizeType size, void *data, SizeType *numMissVals, int memtype)
+{
+ size_t numMiss = 0;
+ cdiStreamReadVarPart(streamID, varID, varType, start, size, memtype, data, &numMiss);
+ *numMissVals = (SizeType) numMiss;
+}
+
+#endif /* HAVE_LIBNETCDF */
+/* Subroutines and data structures for storing "subtypes". */
+/* */
+/* A subtype is, for example, a list of TILES. This can be interpreted */
+/* as an additional axis like the vertical axis. */
+/* */
+/* @author 02/2015 F. Prill, DWD */
+/* */
+/* DATA LAYOUT: */
+/* */
+/* A subtype contains several "subtype entries", each of which */
+/* contains a linked list of subtype attributes. */
+/* */
+/* The number of subtype entries is not specified in advance, but the */
+/* list of entries is itself dynamically growing. There is no */
+/* guaranteed ordering of the entries, therefore each entry must be */
+/* identifiable by its attributes. */
+/* */
+/* [subtype_t] */
+/* | */
+/* |------- globals [subtype_entry_t] */
+/* | |--- atts [subtype_attr_t] */
+/* | */
+/* |------- entries */
+/* |- entry #0 */
+/* | |--- atts [subtype_attr_t] */
+/* |- entry #1 */
+/* | |--- atts [subtype_attr_t] */
+/* |- entry #2 */
+/* . |--- atts [subtype_attr_t] */
+/* . */
+
+
+/* Literal constants corresponding to the different subtypes of the
+ enumeration "subtype_kind". */
+static const char *subtypeName[] = { "tileset" };
+
+const char *const cdiSubtypeAttributeName[] = { "tileIndex", "totalNumberOfTileAttributePairs", "tileClassification",
+ "numberOfTiles", "numberOfTileAttributes", "tileAttribute" };
+
+/* prototypes: */
+static int subtypeCompareP(subtype_t *z1, subtype_t *z2);
+static void subtypeDestroyP(void *subtype_ptr);
+static void subtypePrintP(void *subtype_ptr, FILE *fp);
+static int subtypeGetPackSize(void *subtype_ptr, void *context);
+static void subtypePack(void *subtype_ptr, void *buffer, int size, int *pos, void *context);
+static int subtypeTxCode(void *subtype_ptr);
+
+static const resOps subtypeOps = { (int (*)(void *, void *)) subtypeCompareP,
+ (void (*)(void *)) subtypeDestroyP,
+ (void (*)(void *, FILE *)) subtypePrintP,
+ (int (*)(void *, void *)) subtypeGetPackSize,
+ subtypePack,
+ subtypeTxCode };
+
+enum
+{
+ differ = 1,
+};
+
+/* ------------------------------------------------------------------- */
+/* SUBROUTINES FOR ATTRIBUTE LISTS */
+/* ------------------------------------------------------------------- */
+
+static int
+attribute_to_index(const char *key)
+{
+ if (key == NULL) Error("Internal error!");
+ for (int i = 0; i < nSubtypeAttributes; i++)
+ if (str_is_equal(key, cdiSubtypeAttributeName[i])) return i;
+ return -1;
+}
+
+/*
+ @Function subtypeAttrNewList
+ @Title Create new linked list of subtype attributes.
+ @EndFunction
+*/
+static struct subtype_attr_t *
+subtypeAttrNewList(struct subtype_entry_t *head, int key, int val)
+{
+ if (head == NULL) Error("Internal error!");
+ struct subtype_attr_t *ptr = (struct subtype_attr_t *) Malloc(sizeof(struct subtype_attr_t));
+ if (NULL == ptr) Error("Node creation failed");
+ ptr->key = key;
+ ptr->val = val;
+ ptr->next = NULL;
+
+ head->atts = ptr;
+ return ptr;
+}
+
+/*
+ @Function subtypeAttrInsert
+
+ @Title Add subtype attribute to linked list, s.t. the result is a
+ smallest-to-largest ordered list.
+ @EndFunction
+*/
+static struct subtype_attr_t *
+subtypeAttrInsert(struct subtype_entry_t *head, int key, int val)
+{
+ if (head == NULL) Error("Internal error!");
+ if (head->atts == NULL) return (subtypeAttrNewList(head, key, val));
+
+ /* create new attribute */
+ struct subtype_attr_t *ptr = (struct subtype_attr_t *) Malloc(sizeof(struct subtype_attr_t));
+ if (NULL == ptr) Error("Node creation failed");
+
+ ptr->key = key;
+ ptr->val = val;
+ ptr->next = NULL;
+
+ /* find the right place for insertion: */
+ if (head->atts->key >= key)
+ {
+ /* insert at position 0 */
+ ptr->next = head->atts;
+ head->atts = ptr;
+ }
+ else
+ {
+ struct subtype_attr_t **predec = &head->atts;
+ while (((*predec)->next != NULL) && ((*predec)->next->key < key))
+ {
+ predec = &((*predec)->next);
+ }
+ ptr->next = (*predec)->next;
+ (*predec)->next = ptr;
+ }
+ return ptr;
+}
+
+/* Recursively free a linked list with attributes. */
+static void
+subtypeAttrDestroy(struct subtype_attr_t *head)
+{
+ if (head == NULL) return;
+ subtypeAttrDestroy(head->next);
+ Free(head);
+ head = NULL;
+}
+
+/* Find an attribute in linked list by its key or return NULL
+ otherwise. */
+static struct subtype_attr_t *
+subtypeAttrFind(struct subtype_attr_t *head, int key)
+{
+ if (head == NULL)
+ return NULL;
+ else if (head->key == key)
+ return head;
+ else
+ return subtypeAttrFind(head->next, key);
+}
+
+/* Recursively compares two subtype attribute lists under the implicit
+ assumptions that both lists are ordered by their keys and that keys
+ are unique. */
+static int
+subtypeAttsCompare(struct subtype_attr_t *a1, struct subtype_attr_t *a2)
+{
+ if ((a1 == NULL) && (a2 == NULL))
+ return 0;
+ else if ((a1 == NULL) && (a2 != NULL))
+ {
+ return differ;
+ }
+ else if ((a1 != NULL) && (a2 == NULL))
+ {
+ return differ;
+ }
+
+ if (a1->key != a2->key)
+ {
+ return differ;
+ }
+ if (a1->val != a2->val) return differ;
+
+ return subtypeAttsCompare(a1->next, a2->next);
+}
+
+/* (Recursively) duplicate linked list of attributes. */
+static void
+subtypeAttsDuplicate(struct subtype_attr_t *a1, struct subtype_entry_t *dst)
+{
+ if (a1 == NULL) return;
+ /* duplicate "a1->key", "a1->val" */
+ subtypeAttsDuplicate(a1->next, dst);
+ (void) subtypeAttrInsert(dst, a1->key, a1->val);
+}
+
+/* ------------------------------------------------------------------- */
+/* SUBROUTINES FOR LIST OF ENTRIES */
+/* ------------------------------------------------------------------- */
+
+/*
+ @Function subtypeEntryNewList
+ @Title Create new linked list of subtype entries.
+ @EndFunction
+*/
+static struct subtype_entry_t *
+subtypeEntryNewList(subtype_t *head)
+{
+ struct subtype_entry_t *ptr = (struct subtype_entry_t *) Malloc(sizeof(struct subtype_entry_t));
+ if (NULL == ptr) Error("Node creation failed");
+ ptr->atts = NULL;
+ ptr->next = NULL;
+ head->entries = ptr;
+ head->nentries = 0;
+ ptr->self = head->nentries++;
+ return ptr;
+}
+
+/*
+ @Function subtypeEntryInsert
+
+ @Title Add subtype entry to the head of a linked list.
+ @EndFunction
+*/
+struct subtype_entry_t *
+subtypeEntryInsert(subtype_t *head)
+{
+ if (head == NULL) Error("Internal error!");
+ if (head->entries == NULL) return (subtypeEntryNewList(head));
+
+ /* create new entry */
+ struct subtype_entry_t *ptr = (struct subtype_entry_t *) Malloc(sizeof(struct subtype_entry_t));
+ if (NULL == ptr) Error("Node creation failed");
+
+ ptr->atts = NULL;
+ ptr->self = head->nentries++;
+
+ /* find the right place for insertion: */
+ if (head->entries->self >= ptr->self)
+ {
+ /* insert at position 0 */
+ ptr->next = head->entries;
+ head->entries = ptr;
+ }
+ else
+ {
+ struct subtype_entry_t **predec = &head->entries;
+ while (((*predec)->next != NULL) && ((*predec)->next->self < ptr->self))
+ {
+ predec = &((*predec)->next);
+ }
+ ptr->next = (*predec)->next;
+ (*predec)->next = ptr;
+ }
+ return ptr;
+}
+
+/*
+ @Function subtypeEntryAppend
+
+ @Title Append subtype entry to the end of a linked list.
+ @EndFunction
+*/
+static struct subtype_entry_t *
+subtypeEntryAppend(subtype_t *head)
+{
+ if (head == NULL) Error("Internal error!");
+ if (head->entries == NULL) return (subtypeEntryNewList(head));
+
+ /* create new entry */
+ struct subtype_entry_t *ptr = (struct subtype_entry_t *) Malloc(sizeof(struct subtype_entry_t));
+ if (NULL == ptr) Error("Node creation failed");
+
+ ptr->atts = NULL;
+ ptr->next = NULL;
+ ptr->self = head->nentries++;
+
+ /* find last position of linked list */
+ struct subtype_entry_t *prec_ptr = head->entries;
+ while (prec_ptr->next != NULL) prec_ptr = prec_ptr->next;
+
+ prec_ptr->next = ptr;
+ return ptr;
+}
+
+/* Recursively free a list of subtype entries. */
+static void
+subtypeEntryDestroy(struct subtype_entry_t *entry)
+{
+ if (entry == NULL) return;
+ subtypeEntryDestroy(entry->next);
+ subtypeAttrDestroy(entry->atts);
+ Free(entry);
+ entry = NULL;
+}
+
+/* Compares two subtype entries. */
+static int
+subtypeEntryCompare(struct subtype_entry_t *e1, struct subtype_entry_t *e2)
+{
+ if (e1 == NULL) Error("Internal error!");
+ if (e2 == NULL) Error("Internal error!");
+ return (e1->self == e2->self) && subtypeAttsCompare(e1->atts, e2->atts);
+}
+
+/* (Recursively) duplicate list of entries. */
+static void
+subtypeEntryDuplicate(struct subtype_entry_t *a1, subtype_t *dst)
+{
+ if (a1 == NULL) return;
+ /* append entry to dst pointer */
+ struct subtype_entry_t *ptr = subtypeEntryAppend(dst);
+ /* duplicate attributes */
+ subtypeAttsDuplicate(a1->atts, ptr);
+ ptr->self = a1->self;
+ /* call next link in linked list */
+ subtypeEntryDuplicate(a1->next, dst);
+}
+
+/* ------------------------------------------------------------------- */
+/* SUBROUTINES FOR THE SUBTYPE ITSELF */
+/* ------------------------------------------------------------------- */
+
+/* Print-out subtype data structure together with its attributes. */
+static void
+subtypePrintKernel(subtype_t *subtype_ptr, FILE *fp)
+{
+ if (subtype_ptr == NULL) Error("Internal error!");
+ fprintf(fp, "# %s (subtype ID %d)\n", subtypeName[subtype_ptr->subtype], subtype_ptr->self);
+ /* print global attributes of this subtype */
+ struct subtype_attr_t *ptr = subtype_ptr->globals.atts;
+ if (ptr != NULL) fprintf(fp, "#\n# global attributes:\n");
+ while (ptr != NULL)
+ {
+ fprintf(fp, "# %-40s (%2d) : %d\n", cdiSubtypeAttributeName[ptr->key], ptr->key, ptr->val);
+ ptr = ptr->next;
+ }
+ /* print attributes for each subtype */
+ fprintf(fp, "# %d local entries:\n", subtype_ptr->nentries);
+ struct subtype_entry_t *entry = subtype_ptr->entries;
+ while (entry != NULL)
+ {
+ fprintf(fp, "# subtype entry %d\n", entry->self);
+ ptr = entry->atts;
+ if (ptr != NULL) fprintf(fp, "# attributes:\n");
+ while (ptr != NULL)
+ {
+ fprintf(fp, "# %-40s (%2d) : %d\n", cdiSubtypeAttributeName[ptr->key], ptr->key, ptr->val);
+ ptr = ptr->next;
+ }
+ entry = entry->next;
+ }
+ fprintf(fp, "\n");
+}
+
+/* Compares two subtype data structures. Pointer version of this
+ method. */
+static int
+subtypeCompareP(subtype_t *s1, subtype_t *s2)
+{
+ xassert(s1 && s2);
+ if (s1->subtype != s2->subtype) return differ;
+ if (subtypeEntryCompare(&s1->globals, &s2->globals) != 0) return differ;
+
+ struct subtype_entry_t *entry1 = s1->entries;
+ struct subtype_entry_t *entry2 = s2->entries;
+ while ((entry1 != NULL) && (entry2 != NULL))
+ {
+ if (subtypeEntryCompare(entry1, entry2) != 0) return differ;
+ entry1 = entry1->next;
+ entry2 = entry2->next;
+ }
+ /* compare list lengths: */
+ if ((entry1 != NULL) || (entry2 != NULL)) return differ;
+ return 0;
+}
+
+/* Clean up data structure. */
+static void
+subtypeDestroyP(void *ptr)
+{
+ subtype_t *subtype_ptr = (subtype_t *) ptr;
+ /* destroy global attributes */
+ subtypeAttrDestroy(subtype_ptr->globals.atts);
+ /* destroy list of subtype entries */
+ subtypeEntryDestroy(subtype_ptr->entries);
+ subtype_ptr->entries = NULL;
+ Free(subtype_ptr);
+ subtype_ptr = NULL;
+}
+
+/* Non-static wrapper function for "subtypeDestroyP". */
+void
+subtypeDestroyPtr(void *ptr)
+{
+ subtypeDestroyP(ptr);
+}
+
+/* Non-static wrapper function for "subtypeCompareP". */
+int
+subtypeComparePtr(int s1_ID, subtype_t *s2)
+{
+ subtype_t *subtype_ptr = (subtype_t *) reshGetVal(s1_ID, &subtypeOps);
+ if (subtype_ptr == NULL) Error("Internal error");
+ return subtypeCompareP(subtype_ptr, s2);
+}
+
+/* Print-out subtype data structure together with its attributes.
+ Pointer version of this method. */
+static void
+subtypePrintP(void *subtype_ptr, FILE *fp)
+{
+ subtypePrintKernel((subtype_t *) subtype_ptr, fp);
+}
+
+/* Print-out subtype data structure together with its attributes. */
+void
+subtypePrintPtr(subtype_t *subtype_ptr)
+{
+ subtypePrintKernel(subtype_ptr, stdout);
+}
+
+/* Fill subtype data structure with default values. */
+static void
+subtypeDefaultValue(subtype_t *subtype_ptr)
+{
+ if (subtype_ptr == NULL) Error("Internal error!");
+ subtype_ptr->self = CDI_UNDEFID;
+ subtype_ptr->nentries = 0;
+ subtype_ptr->entries = NULL;
+ subtype_ptr->globals.atts = NULL;
+ subtype_ptr->globals.next = NULL;
+ subtype_ptr->globals.self = -1;
+ subtype_ptr->active_subtype_index = 0;
+}
+
+void
+subtypeAllocate(subtype_t **subtype_ptr2, int subtype)
+{
+ /* allocate new subtype */
+ (*subtype_ptr2) = (subtype_t *) Malloc(sizeof(subtype_t));
+ subtype_t *subtype_ptr = *subtype_ptr2;
+ subtypeDefaultValue(subtype_ptr);
+ subtype_ptr->subtype = subtype;
+ subtype_ptr->self = CDI_UNDEFID;
+}
+
+/* Create a copy of an existing subtype data structure. */
+void
+subtypeDuplicate(subtype_t *subtype_ptr, subtype_t **dst_ptr)
+{
+ if (subtype_ptr == NULL) Error("Internal error!");
+ subtypeAllocate(dst_ptr, subtype_ptr->subtype);
+ subtype_t *dst = (*dst_ptr);
+ /* create duplicate of subtype globals */
+ subtypeAttsDuplicate(subtype_ptr->globals.atts, &dst->globals);
+ dst->globals.self = subtype_ptr->globals.self;
+ /* create duplicate of subtype entries */
+ subtypeEntryDuplicate(subtype_ptr->entries, dst);
+}
+
+/* Register subtype object at resource handler. */
+int
+subtypePush(subtype_t *subtype_ptr)
+{
+ if (subtype_ptr == NULL) Error("Internal error!");
+ subtype_ptr->self = reshPut(subtype_ptr, &subtypeOps);
+ return subtype_ptr->self; /* subtypeID */
+}
+
+/* Sets an attribute for a subtype (for example a set of TILES). If
+ the attribute has already been defined, then its value is
+ overwritten. */
+void
+subtypeDefGlobalDataP(subtype_t *subtype_ptr, int key, int val)
+{
+ if (subtype_ptr == NULL) Error("Internal error!");
+ /* find entry in linked list or append otherwise */
+ struct subtype_attr_t *att_ptr = subtypeAttrFind(subtype_ptr->globals.atts, key);
+ if (att_ptr == NULL)
+ subtypeAttrInsert(&subtype_ptr->globals, key, val);
+ else
+ att_ptr->val = val;
+}
+
+/* Sets an attribute for a subtype (for example a set of TILES). If
+ the attribute has already been defined, then its value is
+ overwritten. */
+void
+subtypeDefGlobalData(int subtypeID, int key, int val)
+{
+ subtype_t *subtype_ptr = (subtype_t *) reshGetVal(subtypeID, &subtypeOps);
+ subtypeDefGlobalDataP(subtype_ptr, key, val);
+}
+
+/* Retrieves an attribute for a subtype (for example a set of TILES).
+ If the attribute has not been defined, then return -1. */
+int
+subtypeGetGlobalDataP(subtype_t *subtype_ptr, int key)
+{
+ if (subtype_ptr == NULL) Error("Internal error!");
+ /* find entry in linked list */
+ struct subtype_attr_t *att_ptr = subtypeAttrFind(subtype_ptr->globals.atts, key);
+ if (att_ptr == NULL)
+ return -1;
+ else
+ return att_ptr->val;
+}
+
+/* Retrieves an attribute for a subtype (for example a set of TILES) .
+ If the attribute has not been defined, then return -1. */
+int
+subtypeGetGlobalData(int subtypeID, int key)
+{
+ subtype_t *subtype_ptr = (subtype_t *) reshGetVal(subtypeID, &subtypeOps);
+ return subtypeGetGlobalDataP(subtype_ptr, key);
+}
+
+/* Sets an attribute for a single subtype entry (e.g. a single TILE).
+ If the attribute has already been defined, then its value is
+ overwritten. */
+void
+subtypeDefEntryDataP(struct subtype_entry_t *subtype_entry_ptr, int key, int val)
+{
+ if (subtype_entry_ptr == NULL) Error("Internal error!");
+ /* find entry in linked list or append otherwise */
+ struct subtype_attr_t *att_ptr = subtypeAttrFind(subtype_entry_ptr->atts, key);
+ if (att_ptr == NULL)
+ subtypeAttrInsert(subtype_entry_ptr, key, val);
+ else
+ att_ptr->val = val;
+}
+
+/* ------------------------------------------------------------------- */
+/* IMPLEMENTATIONS FOR KEY-VALUE-PAIR QUERIES */
+/* ------------------------------------------------------------------- */
+
+/* Generate a "query object" out of a key-value pair. */
+subtype_query_t
+keyValuePair(const char *key, int value)
+{
+ subtype_query_t result;
+ result.nAND = 1;
+ result.key_value_pairs[0][0] = attribute_to_index(key);
+ result.key_value_pairs[1][0] = value;
+ if (CDI_Debug) Message("key %s matches %d", key, result.key_value_pairs[0][0]);
+ if (CDI_Debug) Message("%d --?-- %d", result.key_value_pairs[0][0], result.key_value_pairs[1][0]);
+ return result;
+}
+
+/* Generate an AND-combined "query object" out of two previous query
+ objects. */
+subtype_query_t
+matchAND(subtype_query_t q1, subtype_query_t q2)
+{
+ if ((q1.nAND + q2.nAND) > MAX_KV_PAIRS_MATCH) Error("Internal error");
+ subtype_query_t result;
+ memset(&result, 0, sizeof(subtype_query_t));
+ result.nAND = q1.nAND;
+ for (int i = 0; i < q1.nAND; i++)
+ {
+ result.key_value_pairs[0][i] = q1.key_value_pairs[0][i];
+ result.key_value_pairs[1][i] = q1.key_value_pairs[1][i];
+ }
+ for (int i = 0; i < q2.nAND; i++)
+ {
+ result.key_value_pairs[0][result.nAND] = q2.key_value_pairs[0][i];
+ result.key_value_pairs[1][result.nAND] = q2.key_value_pairs[1][i];
+ result.nAND++;
+ }
+
+ if (CDI_Debug) Message("combined criterion:");
+ if (CDI_Debug)
+ for (int i = 0; i < result.nAND; i++) Message("%d --?-- %d", result.key_value_pairs[0][i], result.key_value_pairs[1][i]);
+
+ return result;
+}
+
+/* ------------------------------------------------------------------- */
+/* SPECIFIC IMPLEMENTATIONS FOR TILE SETS */
+/* ------------------------------------------------------------------- */
+
+/* Integrate tile set "s2" into the tile set "subtype1_ID":
+
+ Insert all entries set 2 to set 1 together with its attributes.
+*/
+void
+tilesetInsertP(subtype_t *s1, subtype_t *s2)
+{
+ if (s1 == NULL) Error("Internal error!");
+ if (s2 == NULL) Error("Internal error!");
+ struct subtype_entry_t *entry1 = s1->entries, *entry2 = s2->entries;
+ struct subtype_attr_t *att_ptr2;
+
+ /* test all entries of set 2 against set 1, to check if entry
+ already exists: */
+ if (subtypeAttsCompare(s1->globals.atts, s2->globals.atts) != differ)
+ {
+ while (entry1 != NULL)
+ {
+ int found = 1;
+ entry2 = s2->entries;
+ while (entry2 != NULL)
+ {
+ found &= (subtypeAttsCompare(entry1->atts, entry2->atts) != differ);
+ entry2 = entry2->next;
+ }
+ if (found)
+ {
+ return;
+ }
+ entry1 = entry1->next;
+ }
+
+ entry2 = s2->entries;
+ while (entry2 != NULL)
+ {
+ entry1 = subtypeEntryInsert(s1);
+
+ att_ptr2 = entry2->atts;
+ while (att_ptr2 != NULL)
+ {
+ (void) subtypeAttrInsert(entry1, att_ptr2->key, att_ptr2->val);
+ att_ptr2 = att_ptr2->next;
+ }
+ entry2 = entry2->next;
+ }
+ }
+ else
+ {
+ fprintf(stderr, "\n# SUBTYPE A:\n");
+ subtypePrintKernel(s1, stderr);
+ fprintf(stderr, "\n# SUBTYPE B:\n");
+ subtypePrintKernel(s2, stderr);
+ Error("Attempting to insert subtype entry into subtype with different global attributes!");
+ }
+}
+
+/* ------------------------------------------------------------------- */
+/* IMPLEMENTATIONS FOR ROUTINES VISIBLE THROUGH CDI.H */
+/* ------------------------------------------------------------------- */
+
+/*
+ @Function subtypeCreate
+ @Title Create a variable subtype
+
+ @Prototype int subtypeCreate(int subtype)
+ @Parameter
+ @Item subtype The type of the variable subtype, one of the set of predefined CDI variable subtypes.
+ The valid CDI variable subtypes are @func{SUBTYPE_TILES}
+
+ @Description
+ The function @func{subtypeCreate} creates a variable subtype.
+
+ @Result
+ @func{subtypeCreate} returns an identifier to the variable subtype.
+
+ @EndFunction
+*/
+int
+subtypeCreate(int subtype)
+{
+ if (CDI_Debug) Message("subtype: %d ", subtype);
+
+ /* allocate new subtype */
+ subtype_t *subtype_ptr;
+ subtypeAllocate(&subtype_ptr, subtype);
+ /* register object at resource handler */
+ return subtypePush(subtype_ptr);
+}
+
+/* Print-out subtype data structure together with its attributes. */
+void
+subtypePrint(int subtypeID)
+{
+ subtype_t *subtype_ptr = (subtype_t *) reshGetVal(subtypeID, &subtypeOps);
+ subtypePrintKernel(subtype_ptr, stdout);
+}
+
+/* Compares two subtype data structures. */
+int
+subtypeCompare(int subtypeID1, int subtypeID2)
+{
+ subtype_t *subtype_ptr1 = (subtype_t *) reshGetVal(subtypeID1, &subtypeOps);
+ subtype_t *subtype_ptr2 = (subtype_t *) reshGetVal(subtypeID2, &subtypeOps);
+ return subtypeCompareP(subtype_ptr1, subtype_ptr2);
+}
+
+/* Get the size of a subtype (e.g. no. of tiles). */
+int
+subtypeInqSize(int subtypeID)
+{
+ if (subtypeID == CDI_UNDEFID)
+ {
+ return 0;
+ }
+ else
+ {
+ subtype_t *subtype_ptr = (subtype_t *) reshGetVal(subtypeID, &subtypeOps);
+ return subtype_ptr->nentries;
+ }
+}
+
+/* Get the currently active index of a subtype (e.g. current tile index). */
+int
+subtypeInqActiveIndex(int subtypeID)
+{
+ if (subtypeID == CDI_UNDEFID) return 0;
+ subtype_t *subtype_ptr = (subtype_t *) reshGetVal(subtypeID, &subtypeOps);
+ return subtype_ptr->active_subtype_index;
+}
+
+/* Set the currently active index of a subtype (e.g. current tile index). */
+void
+subtypeDefActiveIndex(int subtypeID, int index)
+{
+ subtype_t *subtype_ptr = (subtype_t *) reshGetVal(subtypeID, &subtypeOps);
+ subtype_ptr->active_subtype_index = index;
+}
+
+/* subtypeInqSubEntry: Returns subtype entry ID for a given
+ criterion. */
+int
+subtypeInqSubEntry(int subtypeID, subtype_query_t criterion)
+{
+ subtype_t *subtype_ptr = (subtype_t *) reshGetVal(subtypeID, &subtypeOps);
+ struct subtype_entry_t *entry = subtype_ptr->entries;
+ /* loop over all entries of this subtype */
+ while (entry != NULL)
+ {
+ {
+ int match = 1;
+ /* test if this entry matches ALL criteria. */
+ for (int j = 0; (j < criterion.nAND) && (match); j++)
+ {
+ if (CDI_Debug)
+ Message("check criterion %d : %d --?-- %d", j, criterion.key_value_pairs[0][j], criterion.key_value_pairs[1][j]);
+ struct subtype_attr_t *att_ptr = subtypeAttrFind(entry->atts, criterion.key_value_pairs[0][j]);
+ if (att_ptr == NULL)
+ {
+ match = 0;
+ if (CDI_Debug) Message("did not find %d", criterion.key_value_pairs[0][j]);
+ }
+ else
+ {
+ if (CDI_Debug) Message("found %d", criterion.key_value_pairs[0][j]);
+ match &= (att_ptr->val == criterion.key_value_pairs[1][j]);
+ }
+ }
+ if (match) return entry->self;
+ }
+ entry = entry->next;
+ }
+ return CDI_UNDEFID;
+}
+
+int
+subtypeInqTile(int subtypeID, int tileindex, int attribute)
+{
+ return subtypeInqSubEntry(subtypeID, matchAND(keyValuePair(cdiSubtypeAttributeName[SUBTYPE_ATT_TILEINDEX], tileindex),
+ keyValuePair(cdiSubtypeAttributeName[SUBTYPE_ATT_TILEATTRIBUTE], attribute)));
+}
+
+int
+subtypeInqAttribute(int subtypeID, int index, const char *key, int *outValue)
+{
+ // Validate input params.
+ if (subtypeID == CDI_UNDEFID)
+ xabort("CDI_UNDEFID was passed to %s() as a subtypeID. Please check the origin of that ID.", __func__);
+ subtype_t *subtype_ptr = (subtype_t *) reshGetVal(subtypeID, &subtypeOps);
+ if (!subtype_ptr) xabort("Internal error: subtypeID %d resolved to NULL.", subtypeID);
+
+ if ((unsigned) index >= (unsigned) subtype_ptr->nentries)
+ {
+ xabort("index argument of %s() is out of range. Expected 0 <= index < %d, but got index = %d.", __func__,
+ subtype_ptr->nentries, index);
+ }
+
+#ifndef __cplusplus
+ if (!outValue) outValue = &(int){ 0 };
+#else
+ int dummy = 0;
+ if (!outValue) outValue = &dummy;
+#endif
+
+ if (!key) return CDI_EINVAL;
+ int iKey = attribute_to_index(key);
+ if (iKey < 0) return CDI_EINVAL;
+
+ // Find the entry.
+ struct subtype_entry_t *entry = subtype_ptr->entries;
+ for (; index--; entry = entry->next)
+ if (!entry) xabort("internal error: preliminary end of subtype entry list");
+
+ // Find the attribute.
+ for (struct subtype_attr_t *attribute = entry->atts; attribute; attribute = attribute->next)
+ {
+ if (attribute->key == iKey)
+ {
+ *outValue = attribute->val;
+ return CDI_NOERR;
+ }
+ }
+
+ // Failed to find the attribute if this point is reached.
+ return CDI_EINVAL;
+}
+
+/* Construct a new subtype for a tile set. If a corresponding subtype
+ * already exists, then we return this subtype ID instead.
+ *
+ * See comment on subtype.c::tilesetMatchingPtr for the specification
+ * of the term "corresponding" tile set.
+ */
+int
+vlistDefTileSubtype(int vlistID, subtype_t *tiles)
+{
+ int subtypeID = CDI_UNDEFID;
+
+ /* loop over subtypes and search for an identical tileset */
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ int tileset_defined = 0;
+ for (int isub = 0; isub < vlistptr->nsubtypes; isub++)
+ {
+ /* get the ID of the "isub"th subtype */
+ subtypeID = vlistptr->subtypeIDs[isub];
+ if (subtypeComparePtr(subtypeID, tiles) == 0)
+ {
+ tileset_defined = 1;
+ break;
+ }
+ }
+
+ /* tile set seems to be new: register at resource handler. */
+ if (tileset_defined == 0)
+ {
+ subtype_t *tiles_duplicate = NULL;
+ subtypeDuplicate(tiles, &tiles_duplicate);
+ subtypeID = vlistptr->subtypeIDs[vlistptr->nsubtypes++] = subtypePush(tiles_duplicate);
+ }
+
+ return subtypeID;
+}
+
+int
+vlistInsertTrivialTileSubtype(int vlistID)
+{
+ /* first, generate a subtype */
+ subtype_t *subtype_ptr;
+ subtypeAllocate(&subtype_ptr, SUBTYPE_TILES);
+
+ /* create a tile set that contains only one tile/attribute pair. */
+ (void) subtypeEntryInsert(subtype_ptr);
+
+ /* register tile */
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ int subtypeID = vlistptr->subtypeIDs[vlistptr->nsubtypes++] = subtypePush(subtype_ptr);
+ return subtypeID;
+}
+
+/* ------------------------------------------------------------------- */
+/* NOT YET IMPLEMENTED */
+/* ------------------------------------------------------------------- */
+
+static int
+subtypeGetPackSize(void *subtype_ptr, void *context)
+{
+ (void) subtype_ptr;
+ (void) context;
+ Error("Not yet implemented for subtypes!");
+ return 0;
+}
+
+static void
+subtypePack(void *subtype_ptr, void *buffer, int size, int *pos, void *context)
+{
+ (void) subtype_ptr;
+ (void) buffer;
+ (void) size;
+ (void) pos;
+ (void) context;
+ Error("Not yet implemented for subtypes!");
+}
+
+static int
+subtypeTxCode(void *subtypePtr)
+{
+ (void) subtypePtr;
+ Error("Not yet implemented for subtypes!");
+ return 0;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <inttypes.h>
+#include <stdio.h>
+
+
+void
+swap4byte(void *ptr, size_t size)
+{
+ int32_t *ptrtmp = (int32_t *) ptr;
+
+ // clang-format off
+ for (size_t i = 0; i < size; ++i)
+ ptrtmp[i] = (((ptrtmp[i] >> 24) & 0x00ff) | ((ptrtmp[i] & 0x00ff) << 24) |
+ ((ptrtmp[i] >> 8) & 0xff00) | ((ptrtmp[i] & 0xff00) << 8));
+ // clang-format on
+}
+
+void
+swap8byte(void *ptr, size_t size)
+{
+ int64_t *ptrtmp = (int64_t *) ptr;
+
+ // clang-format off
+ for (size_t i = 0; i < size; ++i)
+ ptrtmp[i] = (((ptrtmp[i] >> 56) & 0x000000ff) | ((ptrtmp[i] & 0x000000ff) << 56) |
+ ((ptrtmp[i] >> 40) & 0x0000ff00) | ((ptrtmp[i] & 0x0000ff00) << 40) |
+ ((ptrtmp[i] >> 24) & 0x00ff0000) | ((ptrtmp[i] & 0x00ff0000) << 24) |
+ ((ptrtmp[i] >> 8) & 0xff000000) | ((ptrtmp[i] & 0xff000000) << 8));
+ // clang-format on
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef TABLEPAR_H
+#define TABLEPAR_H
+
+enum
+{
+ TABLE_DUP_NAME = 1 << 0,
+ TABLE_DUP_LONGNAME = 1 << 1,
+ TABLE_DUP_UNITS = 1 << 2,
+};
+
+typedef struct
+{
+ int id; // Parameter number (GRIB)
+ int ltype; // Level type (GRIB)
+ int dupflags; // keep track of which attributes got strdup'ed
+ const char *name; // Parameter name
+ const char *longname; // Parameter long name
+ const char *units; // Parameter units
+} param_type;
+
+void tableLink(int tableID, const param_type *pars, int npars);
+int tableDef(int modelID, int tablegribID, const char *tablename);
+
+int tableInqParCode(int tableID, char *name, int *code);
+
+#endif
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+/* Automatically generated, do not edit! */
+#ifndef TABLE_H
+#define TABLE_H
+
+// clang-format off
+
+static const param_type echam4[] = {
+ { 4, -1, 0, "precip", "total precipitation", "m/s" },
+ { 34, -1, 0, "low_cld", "low cloud", NULL },
+ { 35, -1, 0, "mid_cld", "mid cloud", NULL },
+ { 36, -1, 0, "hih_cld", "high cloud", NULL },
+ { 129, -1, 0, "geosp", "surface geopotential (orography)", "m^2/s^2" },
+ { 130, -1, 0, "t", "temperature", "K" },
+ { 131, -1, 0, "u", "u-velocity", "m/s" },
+ { 132, -1, 0, "v", "v-velocity", "m/s" },
+ { 133, -1, 0, "sq", "specific humidity", "kg/kg" },
+ { 134, -1, 0, "aps", "Surface pressure", "Pa" },
+ { 135, -1, 0, "omega", "vertical velocity", "Pa/s" },
+ { 138, -1, 0, "svo", "vorticity", "1/s" },
+ { 139, -1, 0, "ts", "surface temperature", "K" },
+ { 140, -1, 0, "ws", "soil wetness", "m" },
+ { 141, -1, 0, "sn", "snow depth", "m" },
+ { 142, -1, 0, "aprl", "large scale precipitation", "m/s" },
+ { 143, -1, 0, "aprc", "convective precipitation", "m/s" },
+ { 144, -1, 0, "aprs", "snow fall", "m/s" },
+ { 145, -1, 0, "vdis", "boundary layer dissipation", "W/m^2" },
+ { 146, -1, 0, "ahfs", "surface sensible heat flux", "W/m^2" },
+ { 147, -1, 0, "ahfl", "surface latent heat flux", "W/m^2" },
+ { 148, -1, 0, "stream", "streamfunction", "m^2/s" },
+ { 149, -1, 0, "velopot", "velocity potential", "m^2/s" },
+ { 151, -1, 0, "slp", "mean sea level pressure", "Pa" },
+ { 152, -1, 0, "lsp", "log surface pressure", NULL },
+ { 153, -1, 0, "sx", "liquid water content", "kg/kg" },
+ { 155, -1, 0, "sd", "divergence", "1/s" },
+ { 156, -1, 0, "geopoth", "geopotential height", "m" },
+ { 157, -1, 0, "rhumidity", "relative humidity", "fraction" },
+ { 158, -1, 0, "var158", "tendency of surface pressure", "Pa/s" },
+ { 159, -1, 0, "ustar3", "ustar3", "m^3/s^3" },
+ { 160, -1, 0, "runoff", "surface runoff", "m/s" },
+ { 161, -1, 0, "alwc", "liquid water content", "kg/kg" },
+ { 162, -1, 0, "aclc", "cloud cover", "fraction" },
+ { 163, -1, 0, "aclcv", "total cloud cover", "fraction" },
+ { 164, -1, 0, "aclcov", "total cloud cover", "fraction" },
+ { 165, -1, 0, "u10", "10m u-velocity", "m/s" },
+ { 166, -1, 0, "v10", "10m v-velocity", "m/s" },
+ { 167, -1, 0, "temp2", "2m temperature", "K" },
+ { 168, -1, 0, "dew2", "2m dew point temperature", "K" },
+ { 169, -1, 0, "tsurf", "surface temperature", "K" },
+ { 170, -1, 0, "td", "deep soil temperature", "K" },
+ { 171, -1, 0, "wind10", "10m windspeed", "m/s" },
+ { 172, -1, 0, "slm", "land sea mask", "fraction" },
+ { 173, -1, 0, "az0", "surface roughness length", "m" },
+ { 174, -1, 0, "alb", "surface background albedo", "fraction" },
+ { 175, -1, 0, "albedo", "surface albedo", "fraction" },
+ { 176, -1, 0, "srads", "net surface solar radiation", "W/m^2" },
+ { 177, -1, 0, "trads", "net surface thermal radiation", "W/m^2" },
+ { 178, -1, 0, "srad0", "net top solar radiation", "W/m^2" },
+ { 179, -1, 0, "trad0", "top thermal radiation (OLR)", "W/m^2" },
+ { 180, -1, 0, "ustr", "surface u-stress", "Pa" },
+ { 181, -1, 0, "vstr", "surface v-stress", "Pa" },
+ { 182, -1, 0, "evap", "surface evaporation", "m/s" },
+ { 183, -1, 0, "tdcl", "soil temperature", "K" },
+ { 185, -1, 0, "srafs", "net surf. solar radiation (clear sky)", "W/m^2" },
+ { 186, -1, 0, "trafs", "net surf. thermal radiation (clear sky)", "W/m^2" },
+ { 187, -1, 0, "sraf0", "net top solar radiation (clear sky)", "W/m^2" },
+ { 188, -1, 0, "traf0", "net top thermal radiation (clear sky)", "W/m^2" },
+ { 189, -1, 0, "sclfs", "surface solar cloud forcing", "W/m^2" },
+ { 190, -1, 0, "tclfs", "surface thermal cloud forcing", "W/m^2" },
+ { 191, -1, 0, "sclf0", "top solar cloud forcing", "W/m^2" },
+ { 192, -1, 0, "tclf0", "top thermal cloud forcing", "W/m^2" },
+ { 193, -1, 0, "wl", "skin reservoir content", "m" },
+ { 194, -1, 0, "wlm1", "skin reservoir content of plants", "m" },
+ { 195, -1, 0, "ustrgw", "u-gravity wave stress", "Pa" },
+ { 196, -1, 0, "vstrgw", "v-gravity wave stress", "Pa" },
+ { 197, -1, 0, "vdisgw", "gravity wave dissipation", "W/m^2" },
+ { 198, -1, 0, "vgrat", "vegetation ratio", "fraction" },
+ { 199, -1, 0, "varor", "orographic variance", "m^2" },
+ { 200, -1, 0, "vlt", "leaf area index", NULL },
+ { 201, -1, 0, "t2max", "maximum 2m-temperature", "K" },
+ { 202, -1, 0, "t2min", "minimum 2m-temperature", "K" },
+ { 203, -1, 0, "srad0u", "top solar radiation upward", "W/m^2" },
+ { 204, -1, 0, "sradsu", "surface solar radiation upward", "W/m^2" },
+ { 205, -1, 0, "tradsu", "surface thermal radiation upward", "W/m^2" },
+ { 206, -1, 0, "tsn", "snow temperature", "K" },
+ { 207, -1, 0, "td3", "soil temperature 3", "K" },
+ { 208, -1, 0, "td4", "soil temperature 4", "K" },
+ { 209, -1, 0, "td5", "soil temperature 5", "K" },
+ { 210, -1, 0, "seaice", "sea ice cover", "fraction" },
+ { 211, -1, 0, "siced", "sea ice depth", "m" },
+ { 212, -1, 0, "forest", "vegetation type", "fraction" },
+ { 213, -1, 0, "teff", "(effective) sea-ice skin temperature", "K" },
+ { 214, -1, 0, "tsmax", "maximum surface temperature", "K" },
+ { 215, -1, 0, "tsmin", "minimum surface temperature", "K" },
+ { 216, -1, 0, "wimax", "maximum 10m-wind speed", "m/s" },
+ { 217, -1, 0, "topmax", "maximum height of convective cloud tops", "Pa" },
+ { 218, -1, 0, "snmel", "snow melt", "m/s" },
+ { 219, -1, 0, "runtoc", "surface runoff into ocean", NULL },
+ { 220, -1, 0, "tslin", "land: residual surface heat budget", "W/m^2" },
+ { 221, -1, 0, "dsnac", "snow depth change", "m/s" },
+ { 222, -1, 0, "alwcac", "liquid water content", "kg/kg" },
+ { 223, -1, 0, "aclcac", "cloud cover", "fraction" },
+ { 224, -1, 0, "tke", "turbulent kinetic energy", NULL },
+ { 225, -1, 0, "tkem1", "turbulent kinetic energy (t-1)", NULL },
+ { 226, -1, 0, "fao", "FAO data set (soil data flags)", NULL },
+ { 227, -1, 0, "rgcgn", "heat capacity of soil", NULL },
+ { 228, -1, 0, "sodif", "soil diffusivity", NULL },
+ { 229, -1, 0, "wsmx", "field capacity of soil", "m" },
+ { 230, -1, 0, "qvi", "vertically integrated specific humidity", "kg/m^2" },
+ { 231, -1, 0, "alwcvi", "vertically integrated liquid water cont.", "kg/m^2" },
+ { 232, -1, 0, "glac", "glacier mask", "fraction" },
+ { 233, -1, 0, "runlnd", "surface runoff not running into ocean", NULL },
+ { 259, -1, 0, "windspeed", "windspeed (sqrt(u^2+v^2))", NULL },
+ { 260, -1, 0, "precip", "total precipitation", "m/s" },
+ { 261, -1, 0, "net_top", "total top radiation", NULL },
+ { 262, -1, 0, "net_bot", "total surface radiation", NULL },
+ { 263, -1, 0, "net_heat", "net surface heat flux", NULL },
+ { 264, -1, 0, "net_water", "total surface water", NULL },
+ { 268, -1, 0, "sw_atm", NULL, NULL },
+ { 269, -1, 0, "lw_atm", NULL, NULL },
+ { 270, -1, 0, "net_atm", NULL, NULL },
+ { 271, -1, 0, "surf_runoff", "surface runoff", NULL },
+ { 275, -1, 0, "fresh_water", NULL, NULL },
+};
+
+static const param_type echam5[] = {
+ { 4, -1, 0, "precip", "total precipitation", "kg/m^2s" },
+ { 79, -1, 0, "swnirac", "net surface NIR flux acc.", "W/m^2" },
+ { 80, -1, 0, "swdifnirac", "fraction of diffuse NIR acc.", "W/m^2" },
+ { 81, -1, 0, "swvisac", "net surface visible flux acc.", "W/m^2" },
+ { 82, -1, 0, "swdifvisac", "fraction of diffuse visible acc.", "W/m^2" },
+ { 83, -1, 0, "ocu", "ocean eastw. velocity (coupled mode)", "m/s" },
+ { 84, -1, 0, "ocv", "ocean northw. velocity (coupled mode)", "m/s" },
+ { 85, -1, 0, "tradl", "net LW radiation 200mb", "W/m^2" },
+ { 86, -1, 0, "sradl", "net SW radiation 200mb", "W/m^2" },
+ { 87, -1, 0, "trafl", "net LW radiation 200mb (clear sky)", "W/m^2" },
+ { 88, -1, 0, "srafl", "net SW radiation 200mb (clear sky)", "W/m^2" },
+ { 89, -1, 0, "amlcorac", "mixed layer flux correction", "W/m^2" },
+ { 90, -1, 0, "amlheatac", "mixed layer heat content", "J/m^2" },
+ { 91, -1, 0, "trfliac", "net LW radiation over ice", "W/m^2" },
+ { 92, -1, 0, "trflwac", "net LW radiation over water", "W/m^2" },
+ { 93, -1, 0, "trfllac", "net LW radiation over land", "W/m^2" },
+ { 94, -1, 0, "sofliac", "net SW radiation over ice", "W/m^2" },
+ { 95, -1, 0, "soflwac", "net SW radiation over water", "W/m^2" },
+ { 96, -1, 0, "sofllac", "net SW radiation over land", "W/m^2" },
+ { 97, -1, 0, "friac", "ice cover (fraction of grid box)", NULL },
+ { 102, -1, 0, "tsi", "surface temperature of ice", "K" },
+ { 103, -1, 0, "tsw", "surface temperature of water", "K" },
+ { 104, -1, 0, "ustri", "zonal wind stress over ice", "Pa" },
+ { 105, -1, 0, "vstri", "meridional wind stress over ice", "Pa" },
+ { 106, -1, 0, "ustrw", "zonal wind stress over water", "Pa" },
+ { 107, -1, 0, "vstrw", "meridional wind stress over water", "Pa" },
+ { 108, -1, 0, "ustrl", "zonal wind stress over land", "Pa" },
+ { 109, -1, 0, "vstrl", "meridional wind stress over land", "Pa" },
+ { 110, -1, 0, "ahfliac", "latent heat flux over ice", "W/m^2" },
+ { 111, -1, 0, "ahflwac", "latent heat flux over water", "W/m^2" },
+ { 112, -1, 0, "ahfllac", "latent heat flux over land", "W/m^2" },
+ { 113, -1, 0, "evapiac", "evaporation over ice", "kg/m^2s" },
+ { 114, -1, 0, "evapwac", "evaporation over water", "kg/m^2s" },
+ { 115, -1, 0, "evaplac", "evaporation over land", "kg/m^2s" },
+ { 116, -1, 0, "az0i", "roughness length over ice", "m" },
+ { 117, -1, 0, "az0w", "roughness length over water", "m" },
+ { 118, -1, 0, "az0l", "roughness length over land", "m" },
+ { 119, -1, 0, "ahfsiac", "sensible heat flux over ice", "W/m^2" },
+ { 120, -1, 0, "ahfswac", "sensible heat flux over water", "W/m^2" },
+ { 121, -1, 0, "ahfslac", "sensible heat flux over land", "W/m^2" },
+ { 122, -1, 0, "alsoi", "albedo of ice", NULL },
+ { 123, -1, 0, "alsow", "albedo of water", NULL },
+ { 124, -1, 0, "alsol", "albedo of land", NULL },
+ { 125, -1, 0, "ahfice", "conductive heat flux through ice", "W/m^2" },
+ { 126, -1, 0, "qres", "residual heat flux for melting sea ice", "W/m^2" },
+ { 127, -1, 0, "alake", "lake fraction", NULL },
+ { 128, -1, 0, "rintop", "low level inversion", NULL },
+ { 129, -1, 0, "geosp", "surface geopotential (orography)", "m^2/s^2" },
+ { 130, -1, 0, "t", "temperature", "K" },
+ { 131, -1, 0, "u", "u-velocity", "m/s" },
+ { 132, -1, 0, "v", "v-velocity", "m/s" },
+ { 133, -1, 0, "q", "specific humidity", "kg/kg" },
+ { 134, -1, 0, "aps", "surface pressure", "Pa" },
+ { 135, -1, 0, "omega", "vertical velocity", "Pa/s" },
+ { 136, -1, 0, "acdnc", "cloud droplet number concentration", "1/m^3" },
+ { 137, -1, 0, "apmeb", "(P-E) error", "kg/m^2s" },
+ { 138, -1, 0, "svo", "vorticity", "1/s" },
+ { 139, -1, 0, "tslm1", "surface temperature of land", "K" },
+ { 140, -1, 0, "ws", "soil wetness", "m" },
+ { 141, -1, 0, "sn", "water equivalent snow depth", "m" },
+ { 142, -1, 0, "aprl", "large scale precipitation", "kg/m^2s" },
+ { 143, -1, 0, "aprc", "convective precipitation", "kg/m^2s" },
+ { 144, -1, 0, "aprs", "snow fall", "kg/m^2s" },
+ { 145, -1, 0, "vdis", "boundary layer dissipation", "W/m^2" },
+ { 146, -1, 0, "ahfs", "sensible heat flux", "W/m^2" },
+ { 147, -1, 0, "ahfl", "latent heat flux", "W/m^2" },
+ { 148, -1, 0, "stream", "streamfunction", "m^2/s" },
+ { 149, -1, 0, "velopot", "velocity potential", "m^2/s" },
+ { 150, -1, 0, "xivi", "vertically integrated cloud ice", "kg/m^2" },
+ { 151, -1, 0, "slp", "mean sea level pressure", "Pa" },
+ { 152, -1, 0, "lsp", "log surface pressure", NULL },
+ { 153, -1, 0, "xl", "cloud water", "kg/kg" },
+ { 154, -1, 0, "xi", "cloud ice", "kg/kg" },
+ { 155, -1, 0, "sd", "divergence", "1/s" },
+ { 156, -1, 0, "geopoth", "geopotential height", "m" },
+ { 157, -1, 0, "rhumidity", "relative humidity", NULL },
+ { 159, -1, 0, "wind10w", "10m windspeed over water", "m/s" },
+ { 160, -1, 0, "runoff", "surface runoff and drainage", "kg/m^2s" },
+ { 161, -1, 0, "drain", "drainage", "kg/m^2s" },
+ { 162, -1, 0, "aclc", "cloud cover", NULL },
+ { 164, -1, 0, "aclcov", "total cloud cover", NULL },
+ { 165, -1, 0, "u10", "10m u-velocity", "m/s" },
+ { 166, -1, 0, "v10", "10m v-velocity", "m/s" },
+ { 167, -1, 0, "temp2", "2m temperature", "K" },
+ { 168, -1, 0, "dew2", "2m dew point temperature", "K" },
+ { 169, -1, 0, "tsurf", "surface temperature", "K" },
+ { 170, -1, 0, "xvar", "variance of total water amount", "kg/kg" },
+ { 171, -1, 0, "wind10", "10m windspeed", "m/s" },
+ { 172, -1, 0, "slm", "land sea mask (1. = land, 0. = sea/lakes)", NULL },
+ { 173, -1, 0, "az0", "roughness length", "m" },
+ { 174, -1, 0, "alb", "surface background albedo", NULL },
+ { 175, -1, 0, "albedo", "surface albedo", NULL },
+ { 176, -1, 0, "srads", "net surface SW radiation", "W/m^2" },
+ { 177, -1, 0, "trads", "net surface LW radiation", "W/m^2" },
+ { 178, -1, 0, "srad0", "net top SW radiation", "W/m^2" },
+ { 179, -1, 0, "trad0", "net top LW radiation (-OLR)", "W/m^2" },
+ { 180, -1, 0, "ustr", "u-stress", "Pa" },
+ { 181, -1, 0, "vstr", "v-stress", "Pa" },
+ { 182, -1, 0, "evap", "evaporation", "kg/m^2s" },
+ { 183, -1, 0, "xskew", "skewness of total water amount qv+qi+ql", NULL },
+ { 184, -1, 0, "srad0d", "top incoming SW radiation", "W/m^2" },
+ { 185, -1, 0, "srafs", "net surface SW radiation (clear sky)", "W/m^2" },
+ { 186, -1, 0, "trafs", "net surface LW radiation (clear sky)", "W/m^2" },
+ { 187, -1, 0, "sraf0", "net top SW radiation (clear sky)", "W/m^2" },
+ { 188, -1, 0, "traf0", "net top LW radiation (clear sky)", "W/m^2" },
+ { 189, -1, 0, "sclfs", "net surface SW cloud forcing (176-185)", "W/m^2" },
+ { 190, -1, 0, "tclfs", "net surface LW cloud forcing (177-186)", "W/m^2" },
+ { 191, -1, 0, "sclf0", "net SW top cloud forcing (178-187)", "W/m^2" },
+ { 192, -1, 0, "tclf0", "net LW top cloud forcing (179-188)", "W/m^2" },
+ { 193, -1, 0, "wl", "skin reservoir content", "m" },
+ { 194, -1, 0, "slf", "fractional land cover", NULL },
+ { 195, -1, 0, "ustrgw", "u-gravity wave stress", "Pa" },
+ { 196, -1, 0, "vstrgw", "v-gravity wave stress", "Pa" },
+ { 197, -1, 0, "vdisgw", "gravity wave dissipation", "W/m^2" },
+ { 198, -1, 0, "vgrat", "vegetation ratio", NULL },
+ { 199, -1, 0, "orostd", "orographic standard deviation", "m" },
+ { 200, -1, 0, "vlt", "leaf area index", NULL },
+ { 201, -1, 0, "t2max", "maximum 2m-temperature", "K" },
+ { 202, -1, 0, "t2min", "minimum 2m-temperature", "K" },
+ { 203, -1, 0, "srad0u", "top SW radiation upward", "W/m^2" },
+ { 204, -1, 0, "sradsu", "surface SW radiation upward", "W/m^2" },
+ { 205, -1, 0, "tradsu", "surface LW radiation upward", "W/m^2" },
+ { 206, -1, 0, "grndflux", "surface ground heat flux", NULL },
+ { 207, -1, 0, "tsoil", "deep soil temperatures (5 layers)", "K" },
+ { 208, -1, 0, "ahfcon", "conductive heat flux through ice", "W/m^2" },
+ { 209, -1, 0, "ahfres", "res. heat flux for melting ice", "W/m^2" },
+ { 210, -1, 0, "seaice", "ice cover (fraction of ice+water)", NULL },
+ { 211, -1, 0, "siced", "ice thickness", "m" },
+ { 212, -1, 0, "forest", "forest fraction", NULL },
+ { 213, -1, 0, "gld", "glacier thickness", "m" },
+ { 214, -1, 0, "sni", "water equivalent of snow on ice", "m" },
+ { 215, -1, 0, "rogl", "glacier runoff", "kg/m^2s" },
+ { 216, -1, 0, "wimax", "maximum 10m-wind speed", "m/s" },
+ { 217, -1, 0, "topmax", "maximum height of convective cloud tops", "Pa" },
+ { 218, -1, 0, "snmel", "snow melt", "kg/m^2s" },
+ { 219, -1, 0, "runtoc", "surface runoff into ocean", "kg/m^2s" },
+ { 220, -1, 0, "runlnd", "surface runoff not running into ocean", "kg/m^2s" },
+ { 221, -1, 0, "apmegl", "P-E over land ice", "kg/m^2s" },
+ { 222, -1, 0, "snacl", "snow accumulation over land", "kg/m^2s" },
+ { 223, -1, 0, "aclcac", "cloud cover", NULL },
+ { 224, -1, 0, "tke", "turbulent kinetic energy", "m^2/s^2" },
+ { 225, -1, 0, "tkem1", "turbulent kinetic energy (t-1)", "m^2/s^2" },
+ { 226, -1, 0, "fao", "FAO data set (soil data flags) 0...5", NULL },
+ { 227, -1, 0, "rgcgn", "heat capacity of soil", NULL },
+ { 228, -1, 0, "sodif", "soil diffusivity", "m^2/s" },
+ { 229, -1, 0, "wsmx", "field capacity of soil", "m" },
+ { 230, -1, 0, "qvi", "vertically integrated water vapor", "kg/m^2" },
+ { 231, -1, 0, "xlvi", "vertically integrated cloud water", "kg/m^2" },
+ { 232, -1, 0, "glac", "fraction of land covered by glaciers", NULL },
+ { 233, -1, 0, "snc", "snow depth at the canopy", "m" },
+ { 234, -1, 0, "rtype", "type of convection", "0...3" },
+ { 235, -1, 0, "abso4", "anthropogenic sulfur burden", "kg/m^2" },
+ { 236, -1, 0, "ao3", "ipcc ozone", "kg/m^2" },
+ { 237, -1, 0, "tropo", "WMO defined tropopause height", "Pa" },
+ { 259, -1, 0, "windspeed", "windspeed (sqrt(u^2+v^2))", "m/s" },
+ { 260, -1, 0, "precip", "total precipitation (142+143)", "kg/m^2s" },
+ { 261, -1, 0, "net_top", "total top radiation (178+179)", "W/m^2" },
+ { 262, -1, 0, "net_bot", "total surface radiation (176+177)", "W/m^2" },
+ { 272, -1, 0, "mastrfu", "mass stream function", "kg/s" },
+};
+
+static const param_type echam6[] = {
+ { 4, -1, 0, "precip", "total precipitation", "kg m-2 s-1" },
+ { 34, -1, 0, "low_cld", "low cloud", NULL },
+ { 35, -1, 0, "mid_cld", "mid cloud", NULL },
+ { 36, -1, 0, "hih_cld", "high cloud", NULL },
+ { 68, -1, 0, "fage", "aging factor of snow on ice", NULL },
+ { 69, -1, 0, "snifrac", "fraction of ice covered with snow", NULL },
+ { 70, -1, 0, "barefrac", "bare ice fraction", NULL },
+ { 71, -1, 0, "alsom", "albedo of melt ponds", NULL },
+ { 72, -1, 0, "alsobs", "albedo of bare ice and snow", NULL },
+ { 73, -1, 0, "sicepdw", "melt pond depth on sea-ice", "m" },
+ { 74, -1, 0, "sicepdi", "ice thickness on melt pond", "m" },
+ { 75, -1, 0, "tsicepdi", "ice temperature on frozen melt pond", "K" },
+ { 76, -1, 0, "sicepres", "residual heat flux", "W m-2" },
+ { 77, -1, 0, "ameltdepth", "total melt pond depth", "m" },
+ { 78, -1, 0, "ameltfrac", "fractional area of melt ponds on sea-ice", NULL },
+ { 79, -1, 0, "albedo_vis_dir", "surface albedo visible range direct", NULL },
+ { 80, -1, 0, "albedo_nir_dir", "surface albedo NIR range direct", NULL },
+ { 81, -1, 0, "albedo_vis_dif", "surface albedo visible range diffuse", NULL },
+ { 82, -1, 0, "albedo_nir_dif", "surface albedo NIR range diffuse", NULL },
+ { 83, -1, 0, "ocu", "ocean eastw. velocity (coupled mode)", "m/s" },
+ { 84, -1, 0, "ocv", "ocean northw. velocity (coupled mode)", "m/s" },
+ { 85, -1, 0, "tradl", "thermal radiation 200mb", "W m-2" },
+ { 86, -1, 0, "sradl", "solar radiation 200mb", "W m-2" },
+ { 87, -1, 0, "trafl", "thermal radiation 200mb (clear sky)", "W m-2" },
+ { 88, -1, 0, "srafl", "solar radiation 200mb (clear sky)", "W m-2" },
+ { 89, -1, 0, "amlcorac", "mixed layer flux correction", "W m-2" },
+ { 90, -1, 0, "amlheatac", "mixed layer heat content", "J m-2" },
+ { 91, -1, 0, "trfliac", "LW flux over ice", "W m-2" },
+ { 92, -1, 0, "trflwac", "LW flux over water", "W m-2" },
+ { 93, -1, 0, "trfllac", "LW flux over land", "W m-2" },
+ { 94, -1, 0, "sofliac", "SW flux over ice", "W m-2" },
+ { 95, -1, 0, "soflwac", "SW flux over water", "W m-2" },
+ { 96, -1, 0, "sofllac", "SW flux over land", "W m-2" },
+ { 97, -1, 0, "friac", "ice cover (fraction of grid box)", NULL },
+ { 102, -1, 0, "tsi", "surface temperature of ice", "K" },
+ { 103, -1, 0, "tsw", "surface temperature of water", "K" },
+ { 104, -1, 0, "ustri", "zonal wind stress over ice", "Pa" },
+ { 105, -1, 0, "vstri", "meridional wind stress over ice", "Pa" },
+ { 106, -1, 0, "ustrw", "zonal wind stress over water", "Pa" },
+ { 107, -1, 0, "vstrw", "meridional wind stress over water", "Pa" },
+ { 108, -1, 0, "ustrl", "zonal wind stress over land", "Pa" },
+ { 109, -1, 0, "vstrl", "meridional wind stress over land", "Pa" },
+ { 110, -1, 0, "ahfliac", "latent heat flux over ice", "W m-2" },
+ { 111, -1, 0, "ahflwac", "latent heat flux over water", "W m-2" },
+ { 112, -1, 0, "ahfllac", "latent heat flux over land", "W m-2" },
+ { 113, -1, 0, "evapiac", "evaporation over ice", "kg m-2 s-1" },
+ { 114, -1, 0, "evapwac", "evaporation over water", "kg m-2 s-1" },
+ { 115, -1, 0, "evaplac", "evaporation over land", "kg m-2 s-1" },
+ { 116, -1, 0, "az0i", "roughness length over ice", "m" },
+ { 117, -1, 0, "az0w", "roughness length over water", "m" },
+ { 118, -1, 0, "az0l", "roughness length over land", "m" },
+ { 119, -1, 0, "ahfsiac", "sensible heat flux over ice", "W m-2" },
+ { 120, -1, 0, "ahfswac", "sensible heat flux over water", "W m-2" },
+ { 121, -1, 0, "ahfslac", "sensible heat flux over land", "W m-2" },
+ { 122, -1, 0, "alsoi", "albedo of ice", NULL },
+ { 123, -1, 0, "alsow", "albedo of water", NULL },
+ { 124, -1, 0, "alsol", "albedo of land", NULL },
+ { 125, -1, 0, "ahfice", "conductive heat flux", "W m-2" },
+ { 126, -1, 0, "qres", "residual heat flux for melting sea ice", "W m-2" },
+ { 127, -1, 0, "alake", "lake fraction of grid box", "fraction" },
+ { 128, -1, 0, "rintop", "low level inversion", NULL },
+ { 129, -1, 0, "geosp", "surface geopotential (orography)", "m^2/s^2" },
+ { 130, -1, 0, "t", "temperature", "K" },
+ { 131, -1, 0, "u", "u-velocity", "m/s" },
+ { 132, -1, 0, "v", "v-velocity", "m/s" },
+ { 133, -1, 0, "q", "specific humidity", "kg/kg" },
+ { 134, -1, 0, "aps", "surface pressure", "Pa" },
+ { 135, -1, 0, "omega", "vertical velocity", "Pa/s" },
+ { 136, -1, 0, "acdnc", "cloud droplet number concentration", "1 m-3" },
+ { 137, -1, 0, "apmeb", "vert. integr. tendencies of water", "kg m-2 s-1" },
+ { 138, -1, 0, "svo", "vorticity", "1/s" },
+ { 139, -1, 0, "tslm1", "surface temperature of land", "K" },
+ { 140, -1, 0, "ws", "soil wetness", "m" },
+ { 141, -1, 0, "sn", "snow depth", "m" },
+ { 142, -1, 0, "aprl", "large scale precipitation", "kg m-2 s-1" },
+ { 143, -1, 0, "aprc", "convective precipitation", "kg m-2 s-1" },
+ { 144, -1, 0, "aprs", "snow fall", "kg m-2 s-1" },
+ { 145, -1, 0, "vdis", "boundary layer dissipation", "W m-2" },
+ { 146, -1, 0, "ahfs", "sensible heat flux", "W m-2" },
+ { 147, -1, 0, "ahfl", "latent heat flux", "W m-2" },
+ { 148, -1, 0, "stream", "streamfunction", "m^2/s" },
+ { 149, -1, 0, "velopot", "velocity potential", "m^2/s" },
+ { 150, -1, 0, "xivi", "vertically integrated cloud ice", "kg m-2" },
+ { 151, -1, 0, "slp", "mean sea level pressure", "Pa" },
+ { 152, -1, 0, "lsp", "log surface pressure", NULL },
+ { 153, -1, 0, "xl", "cloud water", "kg/kg" },
+ { 154, -1, 0, "xi", "cloud ice", "kg/kg" },
+ { 155, -1, 0, "sd", "divergence", "1/s" },
+ { 156, -1, 0, "geopoth", "geopotential height", "m" },
+ { 157, -1, 0, "rhumidity", "relative humidity", "fraction" },
+ { 158, -1, 0, "var158", "tendency of surface pressure", "Pa/s" },
+ { 159, -1, 0, "wind10w", "10m windspeed over water", "m/s" },
+ { 160, -1, 0, "runoff", "surface runoff and drainage", "kg m-2 s-1" },
+ { 161, -1, 0, "drain", "drainage", "kg m-2 s-1" },
+ { 162, -1, 0, "aclc", "cloud cover", NULL },
+ { 163, -1, 0, "aclcv", "total cloud cover", NULL },
+ { 164, -1, 0, "aclcov", "total cloud cover (mean)", NULL },
+ { 165, -1, 0, "u10", "10m u-velocity", "m/s" },
+ { 166, -1, 0, "v10", "10m v-velocity", "m/s" },
+ { 167, -1, 0, "temp2", "2m temperature", "K" },
+ { 168, -1, 0, "dew2", "2m dew point temperature", "K" },
+ { 169, -1, 0, "tsurf", "surface temperature", "K" },
+ { 170, -1, 0, "xvar", "variance of total water amount qv+qi+ql", "kg/kg" },
+ { 171, -1, 0, "wind10", "10m windspeed", "m/s" },
+ { 172, -1, 0, "slm", "land sea mask (1. = land, 0. = sea/lakes)", NULL },
+ { 173, -1, 0, "az0", "roughness length", "m" },
+ { 174, -1, 0, "alb", "surface background albedo", NULL },
+ { 175, -1, 0, "albedo", "surface albedo", NULL },
+ { 176, -1, 0, "srads", "net surface solar radiation", "W m-2" },
+ { 177, -1, 0, "trads", "net surface thermal radiation", "W m-2" },
+ { 178, -1, 0, "srad0", "net top solar radiation", "W m-2" },
+ { 179, -1, 0, "trad0", "top thermal radiation (OLR)", "W m-2" },
+ { 180, -1, 0, "ustr", "u-stress", "Pa" },
+ { 181, -1, 0, "vstr", "v-stress", "Pa" },
+ { 182, -1, 0, "evap", "evaporation", "kg m-2 s-1" },
+ { 183, -1, 0, "xskew", "skewness of total water amount qv+qi+ql", NULL },
+ { 184, -1, 0, "srad0d", "top incoming solar radiation", "W m-2" },
+ { 185, -1, 0, "srafs", "net surf. solar radiation (clear sky)", "W m-2" },
+ { 186, -1, 0, "trafs", "net surf. thermal radiation (clear sky)", "W m-2" },
+ { 187, -1, 0, "sraf0", "net top solar radiation (clear sky)", "W m-2" },
+ { 188, -1, 0, "traf0", "net top thermal radiation (clear sky)", "W m-2" },
+ { 189, -1, 0, "sclfs", "surface solar cloud forcing", "W m-2" },
+ { 190, -1, 0, "tclfs", "surface thermal cloud forcing", "W m-2" },
+ { 191, -1, 0, "sclf0", "SW top cloud forcing (178-187)", "W m-2" },
+ { 192, -1, 0, "tclf0", "LW top cloud forcing (179-188)", "W m-2" },
+ { 193, -1, 0, "wl", "skin reservoir content", "m" },
+ { 194, -1, 0, "slf", "sea land fraction", NULL },
+ { 195, -1, 0, "ustrgw", "u-gravity wave stress", "Pa" },
+ { 196, -1, 0, "vstrgw", "v-gravity wave stress", "Pa" },
+ { 197, -1, 0, "vdisgw", "gravity wave dissipation", "W m-2" },
+ { 198, -1, 0, "vgrat", "vegetation ratio", NULL },
+ { 199, -1, 0, "orostd", "orographic standard deviation", "m" },
+ { 200, -1, 0, "vlt", "leaf area index", NULL },
+ { 201, -1, 0, "t2max", "maximum 2m-temperature", "K" },
+ { 202, -1, 0, "t2min", "minimum 2m-temperature", "K" },
+ { 203, -1, 0, "srad0u", "top solar radiation upward", "W m-2" },
+ { 204, -1, 0, "sradsu", "surface solar radiation upward", "W m-2" },
+ { 205, -1, 0, "tradsu", "surface thermal radiation upward", "W m-2" },
+ { 206, -1, 0, "grndflux", "surface ground heat flux", NULL },
+ { 207, -1, 0, "tsoil", "deep soil temperatures (5 layers)", "K" },
+ { 208, -1, 0, "ahfcon", "conductive heat flux through ice", "W m-2" },
+ { 209, -1, 0, "ahfres", "melting of ice", "W m-2" },
+ { 210, -1, 0, "seaice", "ice cover (fraction of 1-SLM)", NULL },
+ { 211, -1, 0, "siced", "ice depth", "m" },
+ { 212, -1, 0, "forest", "forest fraction", NULL },
+ { 213, -1, 0, "gld", "glacier depth", "m" },
+ { 214, -1, 0, "sni", "water equivalent of snow on ice", "m" },
+ { 215, -1, 0, "rogl", "glacier runoff", "kg m-2 s-1" },
+ { 216, -1, 0, "wimax", "maximum 10m-wind speed", "m/s" },
+ { 217, -1, 0, "topmax", "maximum height of convective cloud tops", "Pa" },
+ { 218, -1, 0, "snmel", "snow melt", "kg m-2 s-1" },
+ { 219, -1, 0, "runtoc", "surface runoff into ocean", "kg m-2 s-1" },
+ { 220, -1, 0, "runlnd", "surface runoff not running into ocean", "kg m-2 s-1" },
+ { 221, -1, 0, "apmegl", "P-E over land ice", "kg m-2 s-1" },
+ { 222, -1, 0, "snacl", "snow accumulation over land", "kg m-2 s-1" },
+ { 223, -1, 0, "aclcac", "cloud cover", NULL },
+ { 224, -1, 0, "tke", "turbulent kinetic energy", "m^2/s^2" },
+ { 225, -1, 0, "tkem1", "turbulent kinetic energy (t-1)", "m^2/s^2" },
+ { 226, -1, 0, "fao", "FAO data set (soil data flags)", "0...5" },
+ { 227, -1, 0, "rgcgn", "heat capacity of soil", NULL },
+ { 228, -1, 0, "sodif", "diffusivity of soil and land ice", "m^2/s" },
+ { 229, -1, 0, "wsmx", "field capacity of soil", "m" },
+ { 230, -1, 0, "qvi", "vertically integrated water vapor", "kg m-2" },
+ { 231, -1, 0, "xlvi", "vertically integrated cloud water", "kg m-2" },
+ { 232, -1, 0, "glac", "fraction of land covered by glaciers", NULL },
+ { 233, -1, 0, "snc", "snow depth at the canopy", "m" },
+ { 234, -1, 0, "rtype", "type of convection", "0...3" },
+ { 235, -1, 0, "abso4", "antropogenic sulfur burden", "kg m-2" },
+ { 236, -1, 0, "ao3", "ipcc ozone", "kg m-2" },
+ { 237, -1, 0, "tropo", "WMO defined tropopause height", "Pa" },
+ { 259, -1, 0, "windspeed", "windspeed (sqrt(u^2+v^2))", "m/s" },
+ { 260, -1, 0, "precip", "total precipitation (142+143)", "kg m-2 s-1" },
+ { 261, -1, 0, "net_top", "total top radiation (178+179)", "W m-2" },
+ { 262, -1, 0, "net_bot", "total surface radiation (176+177)", "W m-2" },
+ { 272, -1, 0, "mastfru", "mass stream function", "kg/s" },
+};
+
+static const param_type mpiom1[] = {
+ { 2, -1, 0, "THO", "temperature", "C" },
+ { 5, -1, 0, "SAO", "salinity", "psu" },
+ { 3, -1, 0, "UKO", "zon. velocity", "m/s" },
+ { 4, -1, 0, "VKE", "mer. velocity", "m/s" },
+ { 303, -1, 0, "UKOMFL", "zon. velocity (divergence free)", "m/s" },
+ { 304, -1, 0, "VKEMFL", "mer. velocity (divergence free)", "m/s" },
+ { 7, -1, 0, "WO", "ver. velocity", "m/s" },
+ { 8, -1, 0, "RHO", "insitu density", "kg/m**3" },
+ { 6, -1, 0, "PO", "pressure", "Pa" },
+ { 67, -1, 0, "EMINPO", "freshwaterflux by restoring", "m/s" },
+ { 70, -1, 0, "FLUM", "total heatflux", "W/m**2" },
+ { 79, -1, 0, "PEM", "total freshwaterflux", "m/s" },
+ { 13, -1, 0, "SICTHO", "ice thickness", "m" },
+ { 15, -1, 0, "SICOMO", "ice compactness", "frac." },
+ { 35, -1, 0, "SICUO", "zon. ice velocity", "m/s" },
+ { 36, -1, 0, "SICVE", "mer. ice velocity", "m/s" },
+ { 92, -1, 0, "TAFO", "surface air temperature", "C" },
+ { 164, -1, 0, "FCLOU", "cloud cover", NULL },
+ { 52, -1, 0, "TXO", "surface u-stress", "Pa/1025." },
+ { 53, -1, 0, "TYE", "surface v-stress", "Pa/1025." },
+ { 260, -1, 0, "FPREC", "prescr. precipitation", "m/s" },
+ { 80, -1, 0, "FSWR", "downward shortwave rad.", "W/m**2" },
+ { 81, -1, 0, "FTDEW", "dewpoint temperature", "K" },
+ { 171, -1, 0, "FU10", "10m windspeed", "m/s" },
+ { 141, -1, 0, "SICSNO", "snow thickness", "m" },
+ { 176, -1, 0, "QSWO", "heat flux shortwave", "W/m**2" },
+ { 177, -1, 0, "QLWO", "heat flux longwave", "W/m**2" },
+ { 147, -1, 0, "QLAO", "heat flux latent", "W/m**2" },
+ { 146, -1, 0, "QSEO", "heat flux sensible", "W/m**2" },
+ { 65, -1, 0, "PRECO", "net freshwater flux + runoff", "m/s" },
+ { 1, -1, 0, "ZO", "sealevel", "m" },
+ { 82, -1, 0, "Z1O", "sealevel change", "m" },
+ { 69, -1, 0, "KCONDEP", "depth of convection", "level" },
+ { 27, -1, 0, "PSIUWE", "hor. bar. streamfunction", "Sv" },
+ { 83, -1, 0, "AMLD", "mixed layer depth", "m" },
+ { 172, -1, 0, "WETO", "landseamask (pressure points)", NULL },
+ { 507, -1, 0, "AMSUE", "landseamask (vector points v)", NULL },
+ { 508, -1, 0, "AMSUO", "landseamask (vector points u)", NULL },
+ { 84, -1, 0, "DEPTO", "depth at pressure points", "m" },
+ { 484, -1, 0, "DEUTO", "depth at vector points (u)", "m" },
+ { 584, -1, 0, "DEUTE", "depth at vector points (v)", "m" },
+ { 184, -1, 0, "DDUO", "level thickness (vector u )", "m" },
+ { 284, -1, 0, "DDUE", "level thickness (vector v )", "m" },
+ { 384, -1, 0, "DDPO", "level thickness (pressure )", "m" },
+ { 85, -1, 0, "DLXP", "grid distance x", "m" },
+ { 86, -1, 0, "DLYP", "grid distance y", "m" },
+ { 185, -1, 0, "DLXU", "grid distance x (vector u)", "m" },
+ { 186, -1, 0, "DLYU", "grid distance y (vector u)", "m" },
+ { 285, -1, 0, "DLXV", "grid distance x (vector v)", "m" },
+ { 286, -1, 0, "DLYV", "grid distance y (vector v)", "m" },
+ { 54, -1, 0, "GILA", "latitude in radiants", "rad" },
+ { 55, -1, 0, "GIPH", "longitude in radiants", "rad" },
+ { 354, -1, 0, "ALAT", "latitude in degrees (pressure)", "deg" },
+ { 355, -1, 0, "ALON", "longitude in degrees (pressure)", "deg" },
+ { 154, -1, 0, "ALATU", "latitude in degrees (vector u)", "deg" },
+ { 155, -1, 0, "ALONU", "longitude in degrees (vector u)", "deg" },
+ { 254, -1, 0, "ALATV", "latitude in degrees (vector v)", "deg" },
+ { 255, -1, 0, "ALONV", "longitude in degrees (vector v)", "deg" },
+ { 110, -1, 0, "AVO", "vertical impuls diffusion", "m**2/s" },
+ { 111, -1, 0, "DVO", "vertical T,S diffusion", "m**2/s" },
+ { 142, -1, 0, "SICTRU", "seaice transport x", "m**2/s" },
+ { 143, -1, 0, "SICTRV", "seaice transport y", "m**2/s" },
+ { 612, -1, 0, "WTMIX", "wind mixing", "m**2/s" },
+ { 183, -1, 0, "zmld", "mixed layer depth (SJ)", "m" },
+ { 207, -1, 0, "WGO", "GM vertical velocity", "m/s" },
+ { 305, -1, 0, "rivrun", "RiverRunoff", "m/s" },
+ { 158, -1, 0, "TMCDO", "mon. mean depth of convection", "level" },
+ { 247, -1, 0, "DQSWO", "heatflux sw over water", "W/m**2" },
+ { 248, -1, 0, "DQLWO", "heatflux lw over water", "W/m**2" },
+ { 249, -1, 0, "DQSEO", "heatflux se over water", "W/m**2" },
+ { 250, -1, 0, "DQLAO", "heatflux la over water", "W/m**2" },
+ { 251, -1, 0, "DQTHO", "heatflux net over water", "W/m**2" },
+ { 252, -1, 0, "DQSWI", "heatflux sw over seaice", "W/m**2" },
+ { 253, -1, 0, "DQLWI", "heatflux lw over seaice", "W/m**2" },
+ { 254, -1, 0, "DQSEI", "heatflux se over seaice", "W/m**2" },
+ { 255, -1, 0, "DQLAI", "heatflux la over seaice", "W/m**2" },
+ { 256, -1, 0, "DQTHI", "heatflux net over seaice", "W/m**2" },
+ { 257, -1, 0, "DTICEO", "Equi. temp over seaice", "K" },
+ { 270, -1, 0, "AOFLNHWO", "oasis net heat flux water", "W/m**2" },
+ { 271, -1, 0, "AOFLSHWO", "oasis downward short wave", "W/m**2" },
+ { 272, -1, 0, "AOFLRHIO", "oasis residual heat flux ice", "W/m**2" },
+ { 273, -1, 0, "AOFLCHIO", "oasis conduct. heat flux ice", "W/m**2" },
+ { 274, -1, 0, "AOFLFRWO", "oasis fluid fresh water flux", "m/s" },
+ { 275, -1, 0, "AOFLFRIO", "oasis solid fresh water flux", "m/s" },
+ { 276, -1, 0, "AOFLTXWO", "oasis wind stress water x", "Pa/102" },
+ { 277, -1, 0, "AOFLTYWO", "oasis wind stress water y", "Pa/102" },
+ { 278, -1, 0, "AOFLTXIO", "oasis wind stress ice x", "Pa/102" },
+ { 279, -1, 0, "AOFLTYIO", "oasis wind stress ice x", "Pa/102" },
+ { 280, -1, 0, "AOFLWSVO", "oasis wind speed", "m/s" },
+};
+
+static const param_type ecmwf[] = {
+ { 1, -1, 0, "STRF", "Stream function", "m**2 s**-1" },
+ { 2, -1, 0, "VPOT", "Velocity potential", "m**2 s**-1" },
+ { 3, -1, 0, "PT", "Potential temperature", "K" },
+ { 4, -1, 0, "EQPT", "Equivalent potential temperature", "K" },
+ { 5, -1, 0, "SEPT", "Saturated equivalent potential temperature", "K" },
+ { 11, -1, 0, "UDVW", "U component of divergent wind", "m s**-1" },
+ { 12, -1, 0, "VDVW", "V component of divergent wind", "m s**-1" },
+ { 13, -1, 0, "URTW", "U component of rotational wind", "m s**-1" },
+ { 14, -1, 0, "VRTW", "V component of rotational wind", "m s**-1" },
+ { 21, -1, 0, "UCTP", "Unbalanced component of temperature", "K" },
+ { 22, -1, 0, "UCLN", "Unbalanced component of logarithm of surface pressure", NULL },
+ { 23, -1, 0, "UCDV", "Unbalanced component of divergence", "s**-1" },
+ { 26, -1, 0, "CL", "Lake cover", NULL },
+ { 27, -1, 0, "CVL", "Low vegetation cover", NULL },
+ { 28, -1, 0, "CVH", "High vegetation cover", NULL },
+ { 29, -1, 0, "TVL", "Type of low vegetation", NULL },
+ { 30, -1, 0, "TVH", "Type of high vegetation", NULL },
+ { 31, -1, 0, "CI", "Sea-ice cover", NULL },
+ { 32, -1, 0, "ASN", "Snow albedo", NULL },
+ { 33, -1, 0, "RSN", "Snow density kg", "m**-3" },
+ { 34, -1, 0, "SSTK", "Sea surface temperature", "K" },
+ { 35, -1, 0, "ISTL1", "Ice surface temperature layer 1", "K" },
+ { 36, -1, 0, "ISTL2", "Ice surface temperature layer 2", "K" },
+ { 37, -1, 0, "ISTL3", "Ice surface temperature layer 3", "K" },
+ { 38, -1, 0, "ISTL4", "Ice surface temperature layer 4", "K" },
+ { 39, -1, 0, "SWVL1", "Volumetric soil water layer 1", "m**3 m**-3" },
+ { 40, -1, 0, "SWVL2", "Volumetric soil water layer 2", "m**3 m**-3" },
+ { 41, -1, 0, "SWVL3", "Volumetric soil water layer 3", "m**3 m**-3" },
+ { 42, -1, 0, "SWVL4", "Volumetric soil water layer 4", "m**3 m**-3" },
+ { 43, -1, 0, "SLT", "Soil type", NULL },
+ { 44, -1, 0, "ES", "Snow evaporation m of water", NULL },
+ { 45, -1, 0, "SMLT", "Snowmelt m of water", NULL },
+ { 46, -1, 0, "SDUR", "Solar duration", "s" },
+ { 47, -1, 0, "DSRP", "Direct solar radiation", "w m**-2" },
+ { 48, -1, 0, "MAGSS", "Magnitude of surface stress", "N m**-2 s" },
+ { 49, -1, 0, "WG10", "Wind gust at 10 metres", "m s**-1" },
+ { 50, -1, 0, "LSPF", "Large-scale precipitation fraction", "s" },
+ { 51, -1, 0, "MX2T24", "Maximum 2 metre temperature", "K" },
+ { 52, -1, 0, "MN2T24", "Minimum 2 metre temperature", "K" },
+ { 53, -1, 0, "MONT", "Montgomery potential", "m**2 s**-2" },
+ { 54, -1, 0, "PRES", "Pressure", "Pa" },
+ { 55, -1, 0, "MEAN2T24", "Mean 2 metre temperature past 24 hours", "K" },
+ { 56, -1, 0, "MEAN2D24", "Mean 2 metre dewpoint temperature past 24 hours", "K" },
+ { 60, -1, 0, "PV", "Potential vorticity", "K m**2 kg**-1 s**-1" },
+ { 127, -1, 0, "AT", "Atmospheric tide", NULL },
+ { 128, -1, 0, "BV", "Budget values", NULL },
+ { 129, -1, 0, "Z", "Geopotential", "m**2 s**-2" },
+ { 130, -1, 0, "T", "Temperature", "K" },
+ { 131, -1, 0, "U", "U velocity", "m s**-1" },
+ { 132, -1, 0, "V", "V velocity", "m s**-1" },
+ { 133, -1, 0, "Q", "Specific humidity", "kg kg**-1" },
+ { 134, -1, 0, "SP", "Surface pressure", "Pa" },
+ { 135, -1, 0, "W", "Vertical velocity", "Pa s**-1" },
+ { 136, -1, 0, "TCW", "Total column water", "kg m**-2" },
+ { 137, -1, 0, "TCWV", "Total column water vapour", "kg m**-2" },
+ { 138, -1, 0, "VO", "Vorticity (relative)", "s**-1" },
+ { 139, -1, 0, "STL1", "Soil temperature level 1", "K" },
+ { 140, -1, 0, "SWL1", "Soil wetness level 1 m of water", NULL },
+ { 141, -1, 0, "SD", "Snow depth 1 m of water equivalent", NULL },
+ { 142, -1, 0, "LSP", "Stratiform precipitation (Large scale precipitation)", "m" },
+ { 143, -1, 0, "CP", "Convective precipitation", "m" },
+ { 144, -1, 0, "SF", "Snowfall (convective + stratiform)", "m" },
+ { 145, -1, 0, "BLD", "Boundary layer dissipation", "W m**-2 s" },
+ { 146, -1, 0, "SSHF", "Surface sensible heat flux", "W m**-2 s" },
+ { 147, -1, 0, "SLHF", "Surface latent heat flux", "W m**-2 s" },
+ { 148, -1, 0, "CHNK", "Charnock", NULL },
+ { 149, -1, 0, "SNR", "Surface net radiation", "W m**-2 s" },
+ { 150, -1, 0, "TNR", "Top net radiation", NULL },
+ { 151, -1, 0, "MSL", "Mean sea-level pressure", "Pa" },
+ { 152, -1, 0, "LNSP", "Logarithm of surface pressure", NULL },
+ { 153, -1, 0, "SWHR", "Short-wave heating rate", "K" },
+ { 154, -1, 0, "LWHR", "Long-wave heating rate", "K" },
+ { 155, -1, 0, "D", "Divergence", "s**-1" },
+ { 156, -1, 0, "GH", "Height m Geopotential height", NULL },
+ { 157, -1, 0, "R", "Relative humidity", "%" },
+ { 158, -1, 0, "TSP", "Tendency of surface pressure", "Pa s**-1" },
+ { 159, -1, 0, "BLH", "Boundary layer height", "m" },
+ { 160, -1, 0, "SDOR", "Standard deviation of orography", NULL },
+ { 161, -1, 0, "ISOR", "Anisotropy of sub-gridscale orography", NULL },
+ { 162, -1, 0, "ANOR", "Angle of sub-gridscale orography", "rad" },
+ { 163, -1, 0, "SLOR", "Slope of sub-gridscale orography", NULL },
+ { 164, -1, 0, "TCC", "Total cloud cover", NULL },
+ { 165, -1, 0, "U10M", "10 metre U wind component", "m s**-1" },
+ { 166, -1, 0, "V10M", "10 metre V wind component", "m s**-1" },
+ { 167, -1, 0, "T2M", "2 metre temperature", "K" },
+ { 168, -1, 0, "D2M", "2 metre dewpoint temperature", "K" },
+ { 169, -1, 0, "SSRD", "Surface solar radiation downwards", "W m**-2 s" },
+ { 170, -1, 0, "STL2", "Soil temperature level 2", "K" },
+ { 171, -1, 0, "SWL2", "Soil wetness level 2", "m of water" },
+ { 172, -1, 0, "LSM", "Land/sea mask", NULL },
+ { 173, -1, 0, "SR", "Surface roughness", "m" },
+ { 174, -1, 0, "AL", "Albedo", NULL },
+ { 175, -1, 0, "STRD", "Surface thermal radiation downwards", "W m**-2 s" },
+ { 176, -1, 0, "SSR", "Surface solar radiation", "W m**-2 s" },
+ { 177, -1, 0, "STR", "Surface thermal radiation", "W m**-2 s" },
+ { 178, -1, 0, "TSR", "Top solar radiation", "W m**-2 s" },
+ { 179, -1, 0, "TTR", "Top thermal radiation", "W m**-2 s" },
+ { 180, -1, 0, "EWSS", "East/West surface stress", "N m**-2 s" },
+ { 181, -1, 0, "NSSS", "North/South surface stress", "N m**-2 s" },
+ { 182, -1, 0, "E", "Evaporation", "m of water" },
+ { 183, -1, 0, "STL3", "Soil temperature level 3", "K" },
+ { 184, -1, 0, "SWL3", "Soil wetness level 3", "m of water" },
+ { 185, -1, 0, "CCC", "Convective cloud cover", NULL },
+ { 186, -1, 0, "LCC", "Low cloud cover", NULL },
+ { 187, -1, 0, "MCC", "Medium cloud cover", NULL },
+ { 188, -1, 0, "HCC", "High cloud cover", NULL },
+ { 189, -1, 0, "SUND", "Sunshine duration", "s" },
+ { 190, -1, 0, "EWOV", "EW component of subgrid orographic variance", "m**2" },
+ { 191, -1, 0, "NSOV", "NS component of subgrid orographic variance", "m**2" },
+ { 192, -1, 0, "NWOV", "NWSE component of subgrid orographic variance", "m**2" },
+ { 193, -1, 0, "NEOV", "NESW component of subgrid orographic variance", "m**2" },
+ { 194, -1, 0, "BTMP", "Brightness temperature", "K" },
+ { 195, -1, 0, "LGWS", "Lat. component of gravity wave stress", "N m**-2 s" },
+ { 196, -1, 0, "MGWS", "Meridional component of gravity wave stress", "N m**-2 s" },
+ { 197, -1, 0, "GWD", "Gravity wave dissipation", "W m**-2 s" },
+ { 198, -1, 0, "SRC", "Skin reservoir content", "m of water" },
+ { 199, -1, 0, "VEG", "Vegetation fraction", NULL },
+ { 200, -1, 0, "VSO", "Variance of sub-gridscale orography", "m**2" },
+ { 201, -1, 0, "MX2T", "Maximum 2 metre temperature since previous post-processing", "K" },
+ { 202, -1, 0, "MN2T", "Minimum 2 metre temperature since previous post-processing", "K" },
+ { 203, -1, 0, "O3", "Ozone mass mixing ratio", "kg kg**-1" },
+ { 204, -1, 0, "PAW", "Precipiation analysis weights", NULL },
+ { 205, -1, 0, "RO", "Runoff", "m" },
+ { 206, -1, 0, "TCO3", "Total column ozone", "kg m**-2" },
+ { 207, -1, 0, "WS10", "10 meter windspeed", "m s**-1" },
+ { 208, -1, 0, "TSRC", "Top net solar radiation, clear sky", "W m**-2" },
+ { 209, -1, 0, "TTRC", "Top net thermal radiation, clear sky", "W m**-2" },
+ { 210, -1, 0, "SSRC", "Surface net solar radiation, clear sky", "W m**-2" },
+ { 211, -1, 0, "STRC", "Surface net thermal radiation, clear sky", "W m**-2" },
+ { 212, -1, 0, "SI", "Solar insolation", "W m**-2" },
+ { 214, -1, 0, "DHR", "Diabatic heating by radiation", "K" },
+ { 215, -1, 0, "DHVD", "Diabatic heating by vertical diffusion", "K" },
+ { 216, -1, 0, "DHCC", "Diabatic heating by cumulus convection", "K" },
+ { 217, -1, 0, "DHLC", "Diabatic heating large-scale condensation", "K" },
+ { 218, -1, 0, "VDZW", "Vertical diffusion of zonal wind", "m s**-1" },
+ { 219, -1, 0, "VDMW", "Vertical diffusion of meridional wind", "m s**-1" },
+ { 220, -1, 0, "EWGD", "EW gravity wave drag tendency", "m s**-1" },
+ { 221, -1, 0, "NSGD", "NS gravity wave drag tendency", "m s**-1" },
+ { 222, -1, 0, "CTZW", "Convective tendency of zonal wind", "m s**-1" },
+ { 223, -1, 0, "CTMW", "Convective tendency of meridional wind", "m s**-1" },
+ { 224, -1, 0, "VDH", "Vertical diffusion of humidity", "kg kg**-1" },
+ { 225, -1, 0, "HTCC", "Humidity tendency by cumulus convection", "kg kg**-1" },
+ { 226, -1, 0, "HTLC", "Humidity tendency large-scale condensation", "kg kg**-1" },
+ { 227, -1, 0, "CRNH", "Change from removing negative humidity", "kg kg**-1" },
+ { 228, -1, 0, "TP", "Total precipitation", "m" },
+ { 229, -1, 0, "IEWS", "Instantaneous X surface stress", "N m**-2" },
+ { 230, -1, 0, "INSS", "Instantaneous Y surface stress", "N m**-2" },
+ { 231, -1, 0, "ISHF", "Instantaneous surface heat flux", "W m**-2" },
+ { 232, -1, 0, "IE", "Instantaneous moisture flux", "kg m**-2 s" },
+ { 233, -1, 0, "ASQ", "Apparent surface humidity", "kg kg**-1" },
+ { 234, -1, 0, "LSRH", "Logarithm of surface roughness length for heat", NULL },
+ { 235, -1, 0, "SKT", "Skin temperature", "K" },
+ { 236, -1, 0, "STL4", "Soil temperature level 4", "K" },
+ { 237, -1, 0, "SWL4", "Soil wetness level 4", "m" },
+ { 238, -1, 0, "TSN", "Temperature of snow layer", "K" },
+ { 239, -1, 0, "CSF", "Convective snowfall", "m of water equivalent" },
+ { 240, -1, 0, "LSF", "Large-scale snowfall", "m of water equivalent" },
+ { 241, -1, 0, "ACF", "Accumulated cloud fraction tendency", NULL },
+ { 242, -1, 0, "ALW", "Accumulated liquid water tendency", NULL },
+ { 243, -1, 0, "FAL", "Forecast albedo", NULL },
+ { 244, -1, 0, "FSR", "Forecast surface roughness", "m" },
+ { 245, -1, 0, "FLSR", "Forecast log of surface roughness for heat", NULL },
+ { 246, -1, 0, "CLWC", "Cloud liquid water content", "kg kg**-1" },
+ { 247, -1, 0, "CIWC", "Cloud ice water content", "kg kg**-1" },
+ { 248, -1, 0, "CC", "Cloud cover", NULL },
+ { 249, -1, 0, "AIW", "Accumulated ice water tendency", NULL },
+ { 250, -1, 0, "ICE", "Ice age", NULL },
+ { 251, -1, 0, "ATTE", "Adiabatic tendency of temperature", "K" },
+ { 252, -1, 0, "ATHE", "Adiabatic tendency of humidity", "kg kg**-1" },
+ { 253, -1, 0, "ATZE", "Adiabatic tendency of zonal wind", "m s**-1" },
+ { 254, -1, 0, "ATMW", "Adiabatic tendency of meridional wind", "m s**-1" },
+};
+
+static const param_type remo[] = {
+ { 14, -1, 0, "FTKVM", "turbulent transfer coefficient of momentum in the atmosphere", NULL },
+ { 15, -1, 0, "FTKVH", "turbulent transfer coefficient of heat in the atmosphere", NULL },
+ { 38, -1, 0, "U10ER", "10m u-velocity", "m/s" },
+ { 39, -1, 0, "V10ER", "10m v-velocity", "m/s" },
+ { 40, -1, 0, "CAPE", "convetive available potential energy", NULL },
+ { 41, -1, 0, "GHPBL", "height of the planetary boudary layer", "gpm" },
+ { 42, -1, 0, "BETA", "BETA", NULL },
+ { 43, -1, 0, "WMINLOK", "WMINLOK", NULL },
+ { 44, -1, 0, "WMAXLOK", "WMAXLOK", NULL },
+ { 45, -1, 0, "VBM10M", "maximum of the expected gust velocity near the surface", "m/s" },
+ { 46, -1, 0, "BFLHS", "surface sensible heat flux", "W/m**2" },
+ { 47, -1, 0, "BFLQDS", "surface latent heat flux", "W/m**2" },
+ { 48, -1, 0, "TMCM", "turbulent transfer coefficient of momentum at the surface", NULL },
+ { 49, -1, 0, "TRSOL", "TRSOL", NULL },
+ { 50, -1, 0, "TMCH", "turbulent transfer coefficient of heat at the surface", NULL },
+ { 51, -1, 0, "EMTEF", "EMTEF", NULL },
+ { 52, -1, 0, "TRSOF", "TRSOF", NULL },
+ { 53, -1, 0, "DRAIN", "drainage", "mm" },
+ { 54, -1, 0, "TSL", "surface temperature (land)", "K" },
+ { 55, -1, 0, "TSW", "surface temperature (water)", "K" },
+ { 56, -1, 0, "TSI", "surface temperature (ice)", "K" },
+ { 57, -1, 0, "USTRL", "surface u-stress (land)", "Pa" },
+ { 58, -1, 0, "USTRW", "surface u-stress (water)", "Pa" },
+ { 59, -1, 0, "USTRI", "surface u-stress (ice)", "Pa" },
+ { 60, -1, 0, "VSTRL", "surface v-stress (land)", "Pa" },
+ { 61, -1, 0, "VSTRW", "surface v-stress (water)", "Pa" },
+ { 62, -1, 0, "VSTRI", "surface v-stress (ice)", "Pa" },
+ { 63, -1, 0, "EVAPL", "surface evaporation (land)", "mm" },
+ { 64, -1, 0, "EVAPW", "surface evaporation (water)", "mm" },
+ { 65, -1, 0, "EVAPI", "surface evaporation (ice)", "mm" },
+ { 66, -1, 0, "AHFLL", "surface latent heat flux (land)", "W/m**2" },
+ { 67, -1, 0, "AHFLW", "surface latent heat flux (water)", "W/m**2" },
+ { 68, -1, 0, "AHFLI", "surface latent heat flux (ice)", "W/m**2" },
+ { 69, -1, 0, "AHFSL", "surface sensible heat flux (land)", "W/m**2" },
+ { 70, -1, 0, "AHFSW", "surface sensible heat flux (water)", "W/m**2" },
+ { 71, -1, 0, "AHFSI", "surface sensible heat flux (ice)", "W/m**2" },
+ { 72, -1, 0, "AZ0L", "surface roughness length (land)", "m" },
+ { 73, -1, 0, "AZ0W", "surface roughness length (water)", "m" },
+ { 74, -1, 0, "AZ0I", "surface roughness length (ice)", "m" },
+ { 75, -1, 0, "ALSOL", "surface albedo (land)", "fract." },
+ { 76, -1, 0, "ALSOW", "surface albedo (water)", "fract." },
+ { 77, -1, 0, "ALSOI", "surface albedo (ice)", "fract." },
+ { 81, -1, 0, "TMCHL", "turbulent transfer coefficient of heat at the surface (land)", NULL },
+ { 82, -1, 0, "TMCHW", "turbulent transfer coefficient of heat at the surface (water)", NULL },
+ { 83, -1, 0, "TMCHI", "turbulent transfer coefficient of heat at the surface (ice)", NULL },
+ { 84, -1, 0, "QDBL", "specific humidity surface (land)", "kg/kg" },
+ { 85, -1, 0, "QDBW", "specific humidity surface (water)", "kg/kg" },
+ { 86, -1, 0, "QDBI", "specific humidity surface (ice)", "kg/kg" },
+ { 87, -1, 0, "BFLHSL", "surface sensible heat flux (land)", "W/m**2" },
+ { 88, -1, 0, "BFLHSW", "surface sensible heat flux (water)", "W/m**2" },
+ { 89, -1, 0, "BFLHSI", "surface sensible heat flux (ice)", "W/m**2" },
+ { 90, -1, 0, "BFLQDSL", "surface latent heat flux (land)", "W/m**2" },
+ { 91, -1, 0, "BFLQDSW", "surface latent heat flux (water)", "W/m**2" },
+ { 92, -1, 0, "BFLQDSI", "surface latent heat flux (ice)", "W/m**2" },
+ { 93, -1, 0, "AHFICE", "sea-ice: conductive heat", "W/m" },
+ { 94, -1, 0, "QRES", "residual heat flux for melting sea ice", "W/m**2" },
+ { 95, -1, 0, "SRFL", "SRFL", NULL },
+ { 96, -1, 0, "QDBOXS", "horizontal transport of water vapour", "kg/m**2" },
+ { 97, -1, 0, "QWBOXS", "horizontal transport of cloud water", "kg/m**2" },
+ { 98, -1, 0, "EKBOXS", "horizontal transport of kinetic energy", "(3600*J)/m**2" },
+ { 99, -1, 0, "FHBOXS", "horizontal transport of sensible heat", "(3600*J)/m**2" },
+ { 100, -1, 0, "FIBOXS", "horizontal transport of potential energy", "(3600*J)/m**2" },
+ { 101, -1, 0, "TLAMBDA", "heat conductivity of dry soil", "W/(K*m)" },
+ { 103, -1, 0, "DLAMBDA", "parameter for increasing the heat conductivity of the soil", NULL },
+ { 104, -1, 0, "PORVOL", "pore volume", NULL },
+ { 105, -1, 0, "FCAP", "field capacity of soil", NULL },
+ { 106, -1, 0, "WI3", "fraction of frozen soil", NULL },
+ { 107, -1, 0, "WI4", "fraction of frozen soil", NULL },
+ { 108, -1, 0, "WI5", "fraction of frozen soil", NULL },
+ { 109, -1, 0, "WI", "fraction of frozen soil", NULL },
+ { 110, -1, 0, "WICL", "fraction of frozen soil", NULL },
+ { 112, -1, 0, "QDB", "specific humidity surface", "kg/kg" },
+ { 129, -1, 0, "FIB", "surface geopotential (orography)", "m" },
+ { 130, -1, 0, "T", "temperature", "K" },
+ { 131, -1, 0, "U", "u-velocity", "m/s" },
+ { 132, -1, 0, "V", "v-velocity", "m/s" },
+ { 133, -1, 0, "QD", "specific humidity", "kg/kg" },
+ { 134, -1, 0, "PS", "Surface pressure", "Pa" },
+ { 135, -1, 0, "VERVEL", "Vertical velocity", "Pa/s" },
+ { 138, -1, 0, "SVO", "vorticity", "1/s" },
+ { 139, -1, 0, "TS", "surface temperature", "K" },
+ { 140, -1, 0, "WS", "soil wetness", "m" },
+ { 141, -1, 0, "SN", "snow depth", "m" },
+ { 142, -1, 0, "APRL", "large scale precipitation", "mm" },
+ { 143, -1, 0, "APRC", "convective precipitation", "mm" },
+ { 144, -1, 0, "APRS", "snow fall", "mm" },
+ { 145, -1, 0, "VDIS", "boundary layer dissipation", "W/m**2" },
+ { 146, -1, 0, "AHFS", "surface sensible heat flux", "W/m**2" },
+ { 147, -1, 0, "AHFL", "surface latent heat flux", "W/m**2" },
+ { 148, -1, 0, "STREAM", "streamfunction", "m**2/s" },
+ { 149, -1, 0, "VELOPOT", "velocity potential", "m**2/s" },
+ { 151, -1, 0, "PSRED", "mean sea level pressure", "Pa" },
+ { 152, -1, 0, "LSP", "log surface pressure", NULL },
+ { 153, -1, 0, "QW", "liquid water content", "kg/kg" },
+ { 155, -1, 0, "SD", "divergence", "1/s" },
+ { 156, -1, 0, "FI", "geopotential height", "gpm" },
+ { 159, -1, 0, "USTAR3", "ustar**3", "m**3/s**3" },
+ { 160, -1, 0, "RUNOFF", "surface runoff", "mm" },
+ { 162, -1, 0, "ACLC", "cloud cover", "fract." },
+ { 163, -1, 0, "ACLCV", "total cloud cover", "fract." },
+ { 164, -1, 0, "ACLCOV", "total cloud cover", "fract." },
+ { 165, -1, 0, "U10", "10m u-velocity", "m/s" },
+ { 166, -1, 0, "V10", "10m v-velocity", "m/s" },
+ { 167, -1, 0, "TEMP2", "2m temperature", "K" },
+ { 168, -1, 0, "DEW2", "2m dew point temperature", "K" },
+ { 169, -1, 0, "TSURF", "surface temperature (land)", "K" },
+ { 170, -1, 0, "TD", "deep soil temperature", "K" },
+ { 171, -1, 0, "WIND10", "10m windspeed", "m/s" },
+ { 172, -1, 0, "BLA", "land sea mask", "fract." },
+ { 173, -1, 0, "AZ0", "surface roughness length", "m" },
+ { 174, -1, 0, "ALB", "surface background albedo", "fract." },
+ { 175, -1, 0, "ALBEDO", "surface albedo", "fract." },
+ { 176, -1, 0, "SRADS", "net surface solar radiation", "W/m**2" },
+ { 177, -1, 0, "TRADS", "net surface thermal radiation", "W/m**2" },
+ { 178, -1, 0, "SRAD0", "net top solar radiation", "W/m**2" },
+ { 179, -1, 0, "TRAD0", "top thermal radiation (OLR)", "W/m**2" },
+ { 180, -1, 0, "USTR", "surface u-stress", "Pa" },
+ { 181, -1, 0, "VSTR", "surface v-stress", "Pa" },
+ { 182, -1, 0, "EVAP", "surface evaporation", "mm" },
+ { 183, -1, 0, "TDCL", "soil temperature", "K" },
+ { 185, -1, 0, "SRAFS", "net surf. solar radiation (clear sky)", "W/m**2" },
+ { 186, -1, 0, "TRAFS", "net surf. thermal radiation (clear sky)", "W/m**2" },
+ { 187, -1, 0, "SRAF0", "net top solar radiation (clear sky)", "W/m**2" },
+ { 188, -1, 0, "TRAF0", "net top thermal radiation (clear sky)", "W/m**2" },
+ { 189, -1, 0, "SCLFS", "surface solar cloud forcing", "W/m**2" },
+ { 190, -1, 0, "TCLFS", "surface thermal cloud forcing", "W/m**2" },
+ { 191, -1, 0, "SCLF0", "top solar cloud forcing", "W/m**2" },
+ { 192, -1, 0, "TCLF0", "top thermal cloud forcing", "W/m**2" },
+ { 194, -1, 0, "WL", "skin reservoir content", "m" },
+ { 195, -1, 0, "USTRGW", "u-gravity wave stress", "Pa" },
+ { 196, -1, 0, "VSTRGW", "v-gravity wave stress", "Pa" },
+ { 197, -1, 0, "VDISGW", "gravity wave dissipation", "W/m**2" },
+ { 198, -1, 0, "VGRAT", "vegetation ratio", NULL },
+ { 199, -1, 0, "VAROR", "orographic variance (for surface runoff)", NULL },
+ { 200, -1, 0, "VLT", "leaf area index", NULL },
+ { 201, -1, 0, "T2MAX", "maximum 2m-temperature", "K" },
+ { 202, -1, 0, "T2MIN", "minimum 2m-temperature", "K" },
+ { 203, -1, 0, "SRAD0U", "top solar radiation upward", "W/m**2" },
+ { 204, -1, 0, "SRADSU", "surface solar radiation upward", "W/m**2" },
+ { 205, -1, 0, "TRADSU", "surface thermal radiation upward", "W/m**2" },
+ { 206, -1, 0, "TSN", "snow temperature", "K" },
+ { 207, -1, 0, "TD3", "soil temperature", "K" },
+ { 208, -1, 0, "TD4", "soil temperature", "K" },
+ { 209, -1, 0, "TD5", "soil temperature", "K" },
+ { 210, -1, 0, "SEAICE", "sea ice cover", "fract." },
+ { 211, -1, 0, "SICED", "sea ice depth", "m" },
+ { 212, -1, 0, "FOREST", "vegetation type", NULL },
+ { 213, -1, 0, "TEFF", "(effective) sea-ice skin temperature", "K" },
+ { 214, -1, 0, "TSMAX", "maximum surface temperature", "K" },
+ { 215, -1, 0, "TSMIN", "minimum surface temperature", "K" },
+ { 216, -1, 0, "WIMAX", "maximum 10m-wind speed", "m/s" },
+ { 217, -1, 0, "TOPMAX", "maximum height of convective cloud tops", "Pa" },
+ { 218, -1, 0, "SNMEL", "snow melt", "mm" },
+ { 220, -1, 0, "TSLIN", "land: residual surface heat budget", "W/m**2" },
+ { 221, -1, 0, "DSNAC", "snow depth change", "mm" },
+ { 222, -1, 0, "EMTER", "EMTER", NULL },
+ { 223, -1, 0, "ACLCAC", "cloud cover", "fract." },
+ { 224, -1, 0, "TKE", "turbulent kinetic energy", NULL },
+ { 226, -1, 0, "FAO", "FAO data set (soil data flags)", NULL },
+ { 227, -1, 0, "RGCGN", "heat capacity of soil", NULL },
+ { 229, -1, 0, "WSMX", "field capacity of soil", NULL },
+ { 230, -1, 0, "QVI", "vertically integrated specific humidity", "kg/m**2" },
+ { 231, -1, 0, "ALWCVI", "vertically integrated liquid water cont.", "kg/m**2" },
+ { 232, -1, 0, "GLAC", "glacier mask", NULL },
+ { 253, -1, 0, "PHI", "latitude in real coordinates", "degrees_north" },
+ { 254, -1, 0, "RLA", "longitude in real coordinates", "degrees_east" },
+ { 259, -1, 0, "WINDSPEED", "windspeed (sqrt(u**2+v**2))", NULL },
+ { 260, -1, 0, "PRECIP", "total precipitation", NULL },
+};
+
+static const param_type cosmo002[] = {
+ { 1, -1, 0, "P", "pressure", "Pa" },
+ { 2, -1, 0, "PMSL", "mean sea level pressure", "Pa" },
+ { 3, -1, 0, "DPSDT", "surface pressure change", "Pa s-1" },
+ { 6, -1, 0, "FI", "geopotential", "m2 s-2" },
+ { 8, -1, 0, "HH", "height", "m" },
+ { 10, -1, 0, "TO3", "vertical integrated ozone content", "Dobson" },
+ { 11, -1, 0, "T", "temperature", "K" },
+ { 15, -1, 0, "TMAX", "2m maximum temperature", "K" },
+ { 16, -1, 0, "TMIN", "2m minimum temperature", "K" },
+ { 17, -1, 0, "TD", "2m dew point temperature", "K" },
+ { 31, -1, 0, "DD", "undefined", "undefined" },
+ { 32, -1, 0, "FF", "undefined", "undefined" },
+ { 33, -1, 0, "U", "U-component of wind", "m s-1" },
+ { 34, -1, 0, "V", "V-component of wind", "m s-1" },
+ { 39, -1, 0, "OMEGA", "omega", "Pa s-1" },
+ { 40, -1, 0, "W", "vertical wind velocity", "m s-1" },
+ { 51, -1, 0, "QV", "specific humidity", "kg kg-1" },
+ { 52, -1, 0, "RELHUM", "relative humidity", "%" },
+ { 54, -1, 0, "TQV", "precipitable water", "kg m-2" },
+ { 57, -1, 0, "AEVAP", "surface evaporation", "kg m-2" },
+ { 58, -1, 0, "TQI", "vertical integrated cloud ice", "kg m-2" },
+ { 59, -1, 0, "TOT_PR", "total precipitation rate", "kg m-2 s-1" },
+ { 61, -1, 0, "TOT_PREC", "total precipitation amount", "kg m-2" },
+ { 65, -1, 0, "W_SNOW", "surface snow amount", "m" },
+ { 66, -1, 0, "H_SNOW", "thickness of snow", "m" },
+ { 71, -1, 0, "CLCT", "total cloud cover", "1" },
+ { 72, -1, 0, "CLC_CON", "convective cloud area fraction", "1" },
+ { 73, -1, 0, "CLCL", "low cloud cover", "1" },
+ { 74, -1, 0, "CLCM", "medium cloud cover", "1" },
+ { 75, -1, 0, "CLCH", "high cloud cover", "1" },
+ { 76, -1, 0, "TQC", "vertical integrated cloud water", "kg m-2" },
+ { 78, -1, 0, "SNOW_CON", "convective snowfall", "kg m-2" },
+ { 79, -1, 0, "SNOW_GSP", "large scale snowfall", "kg m-2" },
+ { 81, -1, 0, "FR_LAND", "land-sea fraction", "1" },
+ { 83, -1, 0, "Z0", "surface roughness length", "m" },
+ { 84, -1, 0, "ALB_RAD", "surface albedo", "1" },
+ { 85, -1, 0, "TSOIL", "soil surface temperature", "K" },
+ { 86, -1, 0, "WSOIL", "water content of 1. soil layer", "m" },
+ { 87, -1, 0, "PLCOV", "vegetation area fraction", "1" },
+ { 90, -1, 0, "RUNOFF", "subsurface runoff", "kg m-2" },
+ { 91, -1, 0, "FR_ICE", "sea ice area fraction", "1" },
+ { 92, -1, 0, "H_ICE", "sea ice thickness", "m" },
+ { 111, -1, 0, "ASOB", "averaged surface net downward shortwave radiation", "W m-2" },
+ { 112, -1, 0, "ATHB", "averaged surface net downward longwave radiation", "W m-2" },
+ { 113, -1, 0, "ASOB", "averaged TOA net downward shortwave radiation", "W m-2" },
+ { 114, -1, 0, "ATHB", "averaged TOA outgoing longwave radiation", "W m-2" },
+ { 115, -1, 0, "ASWDIR", "direct downward sw radiation at the surface", "W m-2" },
+ { 116, -1, 0, "ASWDIFD", "diffuse downward sw radiation at the surface", "W m-2" },
+ { 117, -1, 0, "ASWDIFU", "diffuse upwnward sw radiation at the surface", "W m-2" },
+ { 118, -1, 0, "ALWD", "downward lw radiation at the surface", "W m-2" },
+ { 119, -1, 0, "ALWU", "upward lw radiation at the surface", "W m-2" },
+ { 121, -1, 0, "ALHFL", "averaged surface latent heat flux", "W m-2" },
+ { 122, -1, 0, "ASHFL", "averaged surface sensible heat flux", "W m-2" },
+ { 124, -1, 0, "AUMFL", "averaged eastward stress", "Pa" },
+ { 125, -1, 0, "AVMFL", "averaged northward stress", "Pa" },
+ { 128, -1, 0, "SUNSH", "undefined", "undefined" },
+ { 129, -1, 0, "SUNSH2", "undefined", "undefined" },
+ { 130, -1, 0, "SUN_SUM", "undefined", "undefined" },
+ { 131, -1, 0, "SUN_SUM2", "undefined", "undefined" },
+ { 133, -1, 0, "FCOR", "undefined", "undefined" },
+ { 134, -1, 0, "SKYVIEW", "sky-view factor", "1" },
+ { 137, -1, 0, "SWDIR_COR", "topo correction of direct solar radiarion", "1" },
+};
+
+static const param_type cosmo201[] = {
+ { 5, -1, 0, "APAB", "&", "W m-2" },
+ { 13, -1, 0, "SOHR_RAD", "&", "K s-1" },
+ { 14, -1, 0, "THHR_RAD", "&", "K s-1" },
+ { 20, -1, 0, "DURSUN", "duration of sunshine", "s" },
+ { 29, -1, 0, "CLC", "cloud area fraction", "1" },
+ { 30, -1, 0, "CLC_SGS", "grid scale cloud area fraction", "1" },
+ { 31, -1, 0, "QC", "specific cloud liquid water content", "kg kg-1" },
+ { 33, -1, 0, "QI", "specific cloud ice content", "kg kg-1" },
+ { 35, -1, 0, "QR", "specific rain content", "kg kg-1" },
+ { 36, -1, 0, "QS", "specific snow content", "kg kg-1" },
+ { 37, -1, 0, "TQR", "total rain water content vertically integrated", "kg m-2" },
+ { 38, -1, 0, "TQS", "total snow content vertically integrated", "kg m-2" },
+ { 39, -1, 0, "QG", "specific graupel content", "kg kg-1" },
+ { 40, -1, 0, "TQG", "total graupel content vertically integrated", "kg m-2" },
+ { 41, -1, 0, "TWATER", "cloud condensed water content", "kg m-2" },
+ { 42, -1, 0, "TDIV_HUM", "atmosphere water divergence", "kg m-2" },
+ { 43, -1, 0, "QC_RAD", "sub scale specific cloud liquid water content", "kg kg-1" },
+ { 44, -1, 0, "QI_RAD", "sub scale specific cloud ice content", "kg kg-1" },
+ { 61, -1, 0, "CLW_CON", "convective cloud liquid water", "1" },
+ { 68, -1, 0, "HBAS_CON", "height of convective cloud base", "m" },
+ { 69, -1, 0, "HTOP_CON", "height of convective cloud top", "m" },
+ { 70, -1, 0, "HBAS_CONI", "height of convective cloud base", "m" },
+ { 71, -1, 0, "HTOP_CONI", "height of convective cloud top", "m" },
+ { 72, -1, 0, "BAS_CON", "index of convective cloud base", "1" },
+ { 73, -1, 0, "TOP_CON", "index of convective cloud top", "1" },
+ { 74, -1, 0, "DT_CON", "convective tendency of temperature", "K s-1" },
+ { 75, -1, 0, "DQV_CON", "convective tendency of specific humidity", "s-1" },
+ { 78, -1, 0, "DU_CON", "convective tendency of u-wind component", "m s-2" },
+ { 79, -1, 0, "DV_CON", "convective tendency of v-wind component", "m s-2" },
+ { 82, -1, 0, "HTOP_DC", "height of dry convection top", "m" },
+ { 84, -1, 0, "HZEROCL", "height of freezing level", "m" },
+ { 85, -1, 0, "SNOWLMT", "height of the snow fall limit in m above sea level", "m" },
+ { 86, -1, 0, "HCBAS", "height of cloud base", "m" },
+ { 87, -1, 0, "HCTOP", "height of cloud top", "m" },
+ { 91, -1, 0, "C_T_LK", "&", "1" },
+ { 92, -1, 0, "GAMSO_LK", "&", "m-1" },
+ { 93, -1, 0, "DP_BS_LK", "&", "m" },
+ { 94, -1, 0, "H_B1_LK", "&", "m" },
+ { 95, -1, 0, "H_ML_LK", "&", "m" },
+ { 96, -1, 0, "DEPTH_LK", "lake depth", "m" },
+ { 97, -1, 0, "FETCH_LK", "wind fetch over lake", "m" },
+ { 99, -1, 0, "QRS", "precipitation water (water loading)", "1" },
+ { 100, -1, 0, "PRR_GSP", "mass flux density of large scale rainfall", "kg m-2 s-1" },
+ { 101, -1, 0, "PRS_GSP", "mass flux density of large scale snowfall", "kg m-2 s-1" },
+ { 102, -1, 0, "RAIN_GSP", "large scale rainfall", "kg m-2" },
+ { 111, -1, 0, "PRR_CON", "mass flux density of convective rainfall", "kg m-2 s-1" },
+ { 112, -1, 0, "PRS_CON", "mass flux density of convective snowfall", "kg m-2 s-1" },
+ { 113, -1, 0, "RAIN_CON", "convective rainfall", "kg m-2" },
+ { 129, -1, 0, "FRESHSNW", "freshness of snow", "undefined" },
+ { 131, -1, 0, "PRG_GSP", "mass flux density of large scale graupel", "kg m-2 s-1" },
+ { 132, -1, 0, "GRAU_GSP", "large scale graupel", "kg m-2" },
+ { 133, -1, 0, "RHO_SNOW", "density of snow", "kg m-3" },
+ { 139, -1, 0, "PP", "deviation from reference pressure", "Pa" },
+ { 140, -1, 0, "RCLD", "standard deviation of saturation deficit", "undefined" },
+ { 143, -1, 0, "CAPE_MU", "cape of most unstable parcel", "J kg-1" },
+ { 144, -1, 0, "CIN_MU", "convective inhibition of most unstable parcel", "J kg-1" },
+ { 145, -1, 0, "CAPE_ML", "cape of mean surface layer parcel", "J kg-1" },
+ { 146, -1, 0, "CIN_ML", "convective inhibition of mean surface layer parcel", "J kg-1" },
+ { 147, -1, 0, "TKE_CON", "convective turbulent kinetic energy", "undefined" },
+ { 148, -1, 0, "TKETENS", "tendency of turbulent kinetic energy", "undefined" },
+ { 152, -1, 0, "TKE", "turbulent kinetic energy", "m2 s-2" },
+ { 153, -1, 0, "TKVM", "diffusion coefficient of momentum", "m2 s-1" },
+ { 154, -1, 0, "TKVH", "diffusion coefficient of heat", "m2 s-1" },
+ { 170, -1, 0, "TCM", "drag coefficient of momentum", "1" },
+ { 171, -1, 0, "TCH", "drag coefficient of heat", "1" },
+ { 187, -1, 0, "VMAX", "maximum turbulent wind gust in 10m", "m s-1" },
+ { 190, -1, 0, "TSOIL", "&", "K" },
+ { 191, -1, 0, "TSOIL", "&", "K" },
+ { 192, -1, 0, "TSOIL", "&", "K" },
+ { 193, -1, 0, "TSOIL", "mixed layer temperature", "K" },
+ { 194, -1, 0, "TSOIL", "mean temperature of water column", "K" },
+ { 197, -1, 0, "TSOIL", "soil temperature", "K" },
+ { 198, -1, 0, "W_SO", "soil water content", "m" },
+ { 199, -1, 0, "W_SO_ICE", "soil frozen water content", "m" },
+ { 200, -1, 0, "W_I", "canopy water amount", "m" },
+ { 203, -1, 0, "TSOIL", "snow surface temperature", "K" },
+ { 215, -1, 0, "TSOIL", "temperature of ice upper surface", "K" },
+ { 230, -1, 0, "dBZ", "unattenuated radar reflectivity in Rayleigh approximation", "1" },
+ { 240, -1, 0, "MFLX_CON", "convective mass flux density", "kg m-2 s-1" },
+ { 241, -1, 0, "CAPE_CON", "&", "J kg-1" },
+ { 243, -1, 0, "QCVG_CON", "&", "s-1" },
+};
+
+static const param_type cosmo202[] = {
+ { 46, -1, 0, "SSO_STDH", "standard deviation of subgrid scale height", "m" },
+ { 47, -1, 0, "SSO_GAMMA", "anisotropy of topography", "-" },
+ { 48, -1, 0, "SSO_THETA", "angle between principal axis of orography and global east", "-" },
+ { 49, -1, 0, "SSO_SIGMA", "mean slope of subgrid scale orography", "-" },
+ { 55, -1, 0, "FR_LAKE", "fraction of inland lake water", "1" },
+ { 57, -1, 0, "SOILTYP", "soil type", "1" },
+ { 61, -1, 0, "LAI", "leaf area index", "1" },
+ { 62, -1, 0, "ROOTDP", "root depth", "m" },
+ { 64, -1, 0, "HMO3", "air pressure at ozone maximum", "Pa" },
+ { 65, -1, 0, "VIO3", "vertical integrated ozone amount", "Pa" },
+ { 67, -1, 0, "PLCOV_MX", "vegetation area fraction maximum", "1" },
+ { 68, -1, 0, "PLCOV_MN", "vegetation area fraction minimum", "1" },
+ { 69, -1, 0, "LAI_MX", "leaf area index maximum", "1" },
+ { 70, -1, 0, "LAI_MN", "leaf area index minimum", "1" },
+ { 75, -1, 0, "FOR_E", "ground fraction covered by evergreen forest", "-" },
+ { 76, -1, 0, "FOR_D", "ground fraction covered by deciduous forest", "-" },
+ { 104, -1, 0, "DQVDT", "tendency of water vapor", "s-1" },
+ { 105, -1, 0, "QVSFLX", "surface flux of water vapour", "s-1m-2" },
+ { 113, -1, 0, "FC", "coriolis parameter", "s-1" },
+ { 114, -1, 0, "RLAT", "latitude", "radian" },
+ { 115, -1, 0, "RLON", "longitude", "radian" },
+ { 121, -1, 0, "ZTD", "integrated total atmospheric refractivity", "undefined" },
+ { 122, -1, 0, "ZWD", "integrated wet atmospheric refractivity", "undefined" },
+ { 123, -1, 0, "ZHD", "integrated dry atmospheric refractivity", "undefined" },
+ { 180, -1, 0, "O3", "ozone mass mixing ratio", "kg kg-1" },
+ { 200, -1, 0, "I131a", "undefined", "undefined" },
+ { 201, -1, 0, "I131a_DD", "undefined", "undefined" },
+ { 202, -1, 0, "I131a_WD", "undefined", "undefined" },
+ { 203, -1, 0, "Cs137", "undefined", "undefined" },
+ { 204, -1, 0, "Cs137_DD", "undefined", "undefined" },
+ { 205, -1, 0, "Cs137_WD", "undefined", "undefined" },
+ { 206, -1, 0, "Te132", "undefined", "undefined" },
+ { 207, -1, 0, "Te132_DD", "undefined", "undefined" },
+ { 208, -1, 0, "Te132_WD", "undefined", "undefined" },
+ { 209, -1, 0, "Zr95", "undefined", "undefined" },
+ { 210, -1, 0, "Zr95_DD", "undefined", "undefined" },
+ { 211, -1, 0, "Zr95_WD", "undefined", "undefined" },
+ { 212, -1, 0, "Kr85", "undefined", "undefined" },
+ { 213, -1, 0, "Kr85_DD", "undefined", "undefined" },
+ { 214, -1, 0, "Kr85_WD", "undefined", "undefined" },
+ { 215, -1, 0, "TRACER", "undefined", "undefined" },
+ { 216, -1, 0, "TRACER_DD", "undefined", "undefined" },
+ { 217, -1, 0, "TRACER_WD", "undefined", "undefined" },
+ { 218, -1, 0, "Xe133", "undefined", "undefined" },
+ { 219, -1, 0, "Xe133_DD", "undefined", "undefined" },
+ { 220, -1, 0, "Xe133_WD", "undefined", "undefined" },
+ { 221, -1, 0, "I131g", "undefined", "undefined" },
+ { 222, -1, 0, "I131g_DD", "undefined", "undefined" },
+ { 223, -1, 0, "I131g_WD", "undefined", "undefined" },
+ { 224, -1, 0, "I131o", "undefined", "undefined" },
+ { 225, -1, 0, "I131o_DD", "undefined", "undefined" },
+ { 226, -1, 0, "I131o_WD", "undefined", "undefined" },
+ { 227, -1, 0, "Ba140", "undefined", "undefined" },
+ { 228, -1, 0, "Ba140_DD", "undefined", "undefined" },
+ { 229, -1, 0, "Ba140_WD", "undefined", "undefined" },
+ { 230, -1, 0, "Sr90", "undefined", "undefined" },
+ { 231, -1, 0, "Sr90_DD", "undefined", "undefined" },
+ { 232, -1, 0, "Sr90_WD", "undefined", "undefined" },
+ { 233, -1, 0, "Ru103", "undefined", "undefined" },
+ { 234, -1, 0, "Ru103_DD", "undefined", "undefined" },
+ { 235, -1, 0, "Ru103_WD", "undefined", "undefined" },
+};
+
+static const param_type cosmo203[] = {
+ { 135, -1, 0, "LCL_ML", "undefined", "undefined" },
+ { 136, -1, 0, "LFC_ML", "undefined", "undefined" },
+ { 137, -1, 0, "CAPE_3KM", "undefined", "undefined" },
+ { 138, -1, 0, "SWISS00", "swiss00 index", "1" },
+ { 139, -1, 0, "SWISS12", "swiss12 index", "1" },
+ { 147, -1, 0, "SLI", "surface lifted index", "K" },
+ { 149, -1, 0, "SI", "showalter index", "K" },
+ { 155, -1, 0, "BRN", "undefined", "undefined" },
+ { 156, -1, 0, "HPBL", "undefined", "undefined" },
+ { 203, -1, 0, "CLDEPTH", "normalized cloud depth", "1" },
+ { 204, -1, 0, "CLCT_MOD", "modified_total_cloud_cover", "1" },
+};
+
+static const param_type cosmo205[] = {
+ { 1, -1, 0, "SYNME5", "synthetic satellite images Meteosat5", "-" },
+ { 2, -1, 0, "SYNME6", "synthetic satellite images Meteosat6", "-" },
+ { 3, -1, 0, "SYNME7", "synthetic satellite images Meteosat7", "-" },
+ { 4, -1, 0, "SYNMSG", "synthetic satellite images MSG", "-" },
+};
+
+static const param_type cosmo250[] = {
+ { 1, -1, 0, "QNH", "sea level air pressure", "hPa" },
+ { 11, -1, 0, "TSOIL", "2m temperature", "K" },
+ { 12, -1, 0, "TSOIL", "2m temperature", "K" },
+ { 13, -1, 0, "D_T_2M_K", "kalman correction to 2m temperature", "K" },
+ { 14, -1, 0, "TSOIL", "2m temperature", "K" },
+ { 15, -1, 0, "TSOIL", "2m temperature", "K" },
+ { 16, -1, 0, "RH_ICE", "relative humidity over ice", "%" },
+ { 17, -1, 0, "TD", "dew point temperature", "K" },
+ { 18, -1, 0, "D_TD", "dew point depression", "K" },
+ { 19, -1, 0, "THETAE", "equivalent potential temperature", "K" },
+ { 20, -1, 0, "TD_2M_K", "2m dew point temperature", "K" },
+ { 21, -1, 0, "D_TD_2M_K", "kalman correction to 2m dew point temperature", "K" },
+ { 22, -1, 0, "TD_2M_OLD", "2m dew point temperature", "K" },
+ { 23, -1, 0, "TD_2M_BUZ", "2m dew point temperature", "K" },
+ { 24, -1, 0, "HI", "heat index", "Fahrenheit" },
+ { 25, -1, 0, "DURSUN_M", "maximum duration of sunshine", "s" },
+ { 26, -1, 0, "DURSUN_R", "relative duration of sunshine", "%" },
+ { 52, -1, 0, "RH_2M_K", "2m relative humidity", "%" },
+ { 53, -1, 0, "D_RH_2M_K", "kalman correction to 2m relative humidity", "%" },
+ { 58, -1, 0, "CLI_RATIO", "cloud ice ratio (Qi/Qc+Qi)", "%" },
+ { 61, -1, 0, "TOT_SNOW", "total precipitation in snow", "kg/m**2" },
+ { 62, -1, 0, "TOT_RAIN", "total precipitation in rain", "kg/m**2" },
+ { 63, -1, 0, "TOT_CON", "total convective precipitation", "kg/m**2" },
+ { 64, -1, 0, "TOT_GSP", "total large scale precipitation", "kg/m**2" },
+ { 65, -1, 0, "SNOW_%", "percentage of precipitation in snow", "%" },
+ { 66, -1, 0, "CONV_%", "percentage of convective precipitation", "%" },
+ { 67, -1, 0, "VORTP_ABS", "absolute", "VORTP_ABS 67 -1 absolute vorticity" },
+ { 68, -1, 0, "VORTP_REL", "relative", "VORTP_REL 68 -1 relative vorticity" },
+ { 70, -1, 0, "PDIFF_CON", "pressure difference between cloud base and cloud top", "Pa" },
+ { 71, -1, 0, "TTOP_CON", "temperature at cloud top", "K" },
+ { 80, -1, 0, "GEM", "emissivity of the ground", "%" },
+ { 82, -1, 0, "Z0LOC", "local surface roughness length", "m" },
+ { 110, -1, 0, "LUM", "luminosity", "klux" },
+ { 111, -1, 0, "GLOB", "global shortwave radiation at surface", "W/m**2" },
+ { 112, -1, 0, "LW_IN_TG", "incoming longwave radiation at surface", "W/m**2" },
+ { 113, -1, 0, "LW_IN_TS", "incoming longwave radiation at surface", "W/m**2" },
+ { 114, -1, 0, "LW_IN_T2M", "incoming longwave radiation at surface", "W/m**2" },
+ { 115, -1, 0, "SWISS_WE", "Swiss", "SWISS_WE 115 1 Swiss coordinates" },
+ { 116, -1, 0, "SWISS_SN", "Swiss", "SWISS_SN 116 1 Swiss coordinates" },
+ { 150, -1, 0, "KOINDEX", "KO index", "K" },
+ { 151, -1, 0, "TTINDEX", "total-totals index", "K" },
+ { 152, -1, 0, "DCI", "deep convection index", "K" },
+ { 153, -1, 0, "SWEAT", "severe weather thread index", "undefined" },
+ { 154, -1, 0, "ADEDO2", "adedokun 2 index", "K" },
+ { 160, -1, 0, "C_TSTORM", "thunderstorm index using AdaBoost classifier", "undefined" },
+ { 161, -1, 0, "CN_TSTORM", "thunderstorm probabilty using AdaBoost classifier", "%" },
+ { 200, -1, 0, "WSHEARL", "wind shear between surface and 3 km asl", "1/s" },
+ { 201, -1, 0, "WSHEARM", "wind shear between surface and 6 km asl", "1/s" },
+ { 202, -1, 0, "WSHEARU", "wind shear between 3 km (or surface) and 6 km asl", "1/s" },
+ { 211, -1, 0, "VWIN", "maximum OLD turbulent wind gust in 10m", "m s-1" },
+ { 212, -1, 0, "VW10M_20", "maximum 10m wind speed", "m s-1" },
+ { 213, -1, 0, "VW10M_25", "duration of VWIN_10M above 25 knots", "s" },
+ { 214, -1, 0, "VW10M_30", "duration of VWIN_10M above 30 knots", "s" },
+ { 215, -1, 0, "VW10M_35", "duration of VWIN_10M above 35 knots", "s" },
+ { 216, -1, 0, "VW10M_40", "duration of VWIN_10M above 40 knots", "s" },
+ { 217, -1, 0, "VW10M_45", "duration of VWIN_10M above 45 knots", "s" },
+ { 218, -1, 0, "VW10M_50", "duration of VWIN_10M above 50 knots", "s" },
+ { 219, -1, 0, "VOLD", "maximum turbulent wind gust in 10m", "m s-1" },
+ { 220, -1, 0, "VJPS", "maximum turbulent wind gust in 10m", "m s-1" },
+ { 221, -1, 0, "VBRA", "maximum Brasseur turbulent wind gust in 10m", "m s-1" },
+ { 222, -1, 0, "VB10M_20", "duration of VBRA_10M above 20 knots", "s" },
+ { 223, -1, 0, "VB10M_25", "duration of VBRA_10M above 25 knots", "s" },
+ { 224, -1, 0, "VB10M_30", "duration of VBRA_10M above 30 knots", "s" },
+ { 225, -1, 0, "VB10M_35", "duration of VBRA_10M above 35 knots", "s" },
+ { 226, -1, 0, "VB10M_40", "duration of VBRA_10M above 40 knots", "s" },
+ { 227, -1, 0, "VB10M_45", "duration of VBRA_10M above 45 knots", "s" },
+ { 228, -1, 0, "VB10M_50", "duration of VBRA_10M above 50 knots", "s" },
+ { 231, -1, 0, "VCON", "maximum convective wind gust in 10m", "m s-1" },
+ { 232, -1, 0, "VC10M_20", "duration of VCON_10M above 20 knots", "s" },
+ { 233, -1, 0, "VC10M_25", "duration of VCON_10M above 25 knots", "s" },
+ { 234, -1, 0, "VC10M_30", "duration of VCON_10M above 30 knots", "s" },
+ { 235, -1, 0, "VC10M_35", "duration of VCON_10M above 35 knots", "s" },
+ { 236, -1, 0, "VC10M_40", "duration of VCON_10M above 40 knots", "s" },
+ { 237, -1, 0, "VC10M_45", "duration of VCON_10M above 45 knots", "s" },
+ { 238, -1, 0, "VC10M_50", "duration of VCON_10M above 50 knots", "s" },
+ { 241, -1, 0, "FMAX", "maximum wind speed at k=ke", "m s-1" },
+ { 242, -1, 0, "USTARMAX", "maximal u*=SQRT(Drag_coef)*fmax_10m", "m s-1" },
+ { 243, -1, 0, "GLOB_DIF", "global diffuse shortwave radiation at the surface", "W/m**2" },
+ { 244, -1, 0, "GLOB_DIR", "global direct (beam) shortwave radiation at the surface", "W/m**2" },
+ { 245, -1, 0, "GLOB_vE", "global shortwave radiation on a vertical surface facing east", "W/m**2" },
+ { 246, -1, 0, "GLOB_vS", "global shortwave radiation on a vertical surface facing south", "W/m**2" },
+ { 247, -1, 0, "GLOB_vW", "global shortwave radiation on a vertical surface facing west", "W/m**2" },
+ { 248, -1, 0, "GLOB_vN", "global shortwave radiation on a vertical surface facing north", "W/m**2" },
+ { 249, -1, 0, "LW_TG_vS", "incoming longwave radiation on a vertical surface facing south", "W/m**2" },
+ { 250, -1, 0, "ENTH", "enthalpy", "kJ/kg" },
+ { 251, -1, 0, "ENTH", "enthalpy", "kJ/kg" },
+ { 252, -1, 0, "MIXRAT", "mixing ratio", "g/kg" },
+ { 253, -1, 0, "MIXRAT", "mixing ratio", "g/kg" },
+ { 254, -1, 0, "TW", "wet bulb temperature", "degC" },
+ { 255, -1, 0, "TW", "wet bulb temperature", "degC" },
+};
+
+
+static
+void tableDefault(void)
+{
+
+ // define table : echam4
+ {
+ int instID = institutInq(98, 255, "MPIMET", NULL);
+ if (instID == -1) instID = institutDef(98, 255, "MPIMET", NULL);
+
+ int modelID = modelInq(instID, 0, "ECHAM4");
+ if (modelID == -1) modelID = modelDef(instID, 0, "ECHAM4");
+
+ int tableID = tableDef(modelID, 128, "echam4");
+
+ tableLink(tableID, echam4, sizeof(echam4) / sizeof(param_type));
+ }
+
+ // define table : echam5
+ {
+ int instID = institutInq(98, 232, "MPIMET", NULL);
+ if (instID == -1) instID = institutDef(98, 232, "MPIMET", NULL);
+
+ int modelID = modelInq(instID, 0, "ECHAM5");
+ if (modelID == -1) modelID = modelDef(instID, 0, "ECHAM5");
+
+ int tableID = tableDef(modelID, 128, "echam5");
+
+ tableLink(tableID, echam5, sizeof(echam5) / sizeof(param_type));
+ }
+
+ // define table : echam6
+ {
+ int instID = institutInq(0, 0, "MPIMET", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "MPIMET", NULL);
+
+ int modelID = modelInq(instID, 0, "ECHAM6");
+ if (modelID == -1) modelID = modelDef(instID, 0, "ECHAM6");
+
+ int tableID = tableDef(modelID, 128, "echam6");
+
+ tableLink(tableID, echam6, sizeof(echam6) / sizeof(param_type));
+ }
+
+ // define table : mpiom1
+ {
+ int instID = institutInq(0, 0, "MPIMET", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "MPIMET", NULL);
+
+ int modelID = modelInq(instID, 0, "MPIOM1");
+ if (modelID == -1) modelID = modelDef(instID, 0, "MPIOM1");
+
+ int tableID = tableDef(modelID, 128, "mpiom1");
+
+ tableLink(tableID, mpiom1, sizeof(mpiom1) / sizeof(param_type));
+ }
+
+ // define table : ecmwf
+ {
+ int instID = institutInq(0, 0, "ECMWF", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "ECMWF", NULL);
+
+ int modelID = modelInq(instID, 0, "");
+ if (modelID == -1) modelID = modelDef(instID, 0, "");
+
+ int tableID = tableDef(modelID, 128, "ecmwf");
+
+ tableLink(tableID, ecmwf, sizeof(ecmwf) / sizeof(param_type));
+ }
+
+ // define table : remo
+ {
+ int instID = institutInq(0, 0, "MPIMET", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "MPIMET", NULL);
+
+ int modelID = modelInq(instID, 0, "REMO");
+ if (modelID == -1) modelID = modelDef(instID, 0, "REMO");
+
+ int tableID = tableDef(modelID, 128, "remo");
+
+ tableLink(tableID, remo, sizeof(remo) / sizeof(param_type));
+ }
+
+ // define table : cosmo002
+ {
+ int instID = institutInq(0, 0, "MCH", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "MCH", NULL);
+
+ int modelID = modelInq(instID, 0, "COSMO");
+ if (modelID == -1) modelID = modelDef(instID, 0, "COSMO");
+
+ int tableID = tableDef(modelID, 002, "cosmo002");
+
+ tableLink(tableID, cosmo002, sizeof(cosmo002) / sizeof(param_type));
+ }
+
+ // define table : cosmo201
+ {
+ int instID = institutInq(0, 0, "MCH", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "MCH", NULL);
+
+ int modelID = modelInq(instID, 0, "COSMO");
+ if (modelID == -1) modelID = modelDef(instID, 0, "COSMO");
+
+ int tableID = tableDef(modelID, 201, "cosmo201");
+
+ tableLink(tableID, cosmo201, sizeof(cosmo201) / sizeof(param_type));
+ }
+
+ // define table : cosmo202
+ {
+ int instID = institutInq(0, 0, "MCH", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "MCH", NULL);
+
+ int modelID = modelInq(instID, 0, "COSMO");
+ if (modelID == -1) modelID = modelDef(instID, 0, "COSMO");
+
+ int tableID = tableDef(modelID, 202, "cosmo202");
+
+ tableLink(tableID, cosmo202, sizeof(cosmo202) / sizeof(param_type));
+ }
+
+ // define table : cosmo203
+ {
+ int instID = institutInq(0, 0, "MCH", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "MCH", NULL);
+
+ int modelID = modelInq(instID, 0, "COSMO");
+ if (modelID == -1) modelID = modelDef(instID, 0, "COSMO");
+
+ int tableID = tableDef(modelID, 203, "cosmo203");
+
+ tableLink(tableID, cosmo203, sizeof(cosmo203) / sizeof(param_type));
+ }
+
+ // define table : cosmo205
+ {
+ int instID = institutInq(0, 0, "MCH", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "MCH", NULL);
+
+ int modelID = modelInq(instID, 0, "COSMO");
+ if (modelID == -1) modelID = modelDef(instID, 0, "COSMO");
+
+ int tableID = tableDef(modelID, 205, "cosmo205");
+
+ tableLink(tableID, cosmo205, sizeof(cosmo205) / sizeof(param_type));
+ }
+
+ // define table : cosmo250
+ {
+ int instID = institutInq(0, 0, "MCH", NULL);
+ if (instID == -1) instID = institutDef(0, 0, "MCH", NULL);
+
+ int modelID = modelInq(instID, 0, "COSMO");
+ if (modelID == -1) modelID = modelDef(instID, 0, "COSMO");
+
+ int tableID = tableDef(modelID, 250, "cosmo250");
+
+ tableLink(tableID, cosmo250, sizeof(cosmo250) / sizeof(param_type));
+ }
+}
+
+// clang-format on
+
+#endif /* TABLE_H */
+#include <stddef.h>
+#include <string.h>
+#include <ctype.h>
+
+
+
+#define MAX_TABLE 256
+#define MAX_PARS 1024
+
+typedef struct
+{
+ bool used;
+ int npars;
+ int modelID;
+ int number;
+ char *name;
+ param_type *pars;
+} paramtab_type;
+
+static paramtab_type parTable[MAX_TABLE];
+static int parTableSize = MAX_TABLE;
+static int parTableNum = 0;
+static int ParTableInit = 0;
+
+static char *tablePath = NULL;
+
+static void tableDefModelID(int tableID, int modelID);
+static void tableDefNum(int tableID, int tablenum);
+
+static void
+tableDefEntry(int tableID, int id, int ltype, const char *name, const char *longname, const char *units)
+{
+ if (tableID >= 0 && tableID < MAX_TABLE && parTable[tableID].used)
+ {
+ }
+ else
+ Error("Invalid table ID %d", tableID);
+
+ int item = parTable[tableID].npars++;
+ parTable[tableID].pars[item].id = id;
+ parTable[tableID].pars[item].ltype = ltype;
+ parTable[tableID].pars[item].dupflags = 0;
+ parTable[tableID].pars[item].name = NULL;
+ parTable[tableID].pars[item].longname = NULL;
+ parTable[tableID].pars[item].units = NULL;
+
+ if (name && name[0])
+ {
+ parTable[tableID].pars[item].name = strdup(name);
+ parTable[tableID].pars[item].dupflags |= TABLE_DUP_NAME;
+ }
+ if (longname && longname[0])
+ {
+ parTable[tableID].pars[item].longname = strdup(longname);
+ parTable[tableID].pars[item].dupflags |= TABLE_DUP_LONGNAME;
+ }
+ if (units && units[0])
+ {
+ parTable[tableID].pars[item].units = strdup(units);
+ parTable[tableID].pars[item].dupflags |= TABLE_DUP_UNITS;
+ }
+}
+
+void
+tableLink(int tableID, const param_type *pars, int npars)
+{
+ for (int item = 0; item < npars; item++)
+ {
+ parTable[tableID].pars[item].id = pars[item].id;
+ parTable[tableID].pars[item].ltype = pars[item].ltype;
+ parTable[tableID].pars[item].dupflags = 0;
+ parTable[tableID].pars[item].name = pars[item].name;
+ parTable[tableID].pars[item].longname = pars[item].longname;
+ parTable[tableID].pars[item].units = pars[item].units;
+ }
+
+ parTable[tableID].npars = npars;
+}
+
+static void
+parTableInitEntry(int tableID)
+{
+ parTable[tableID].used = false;
+ parTable[tableID].pars = NULL;
+ parTable[tableID].npars = 0;
+ parTable[tableID].modelID = CDI_UNDEFID;
+ parTable[tableID].number = CDI_UNDEFID;
+ parTable[tableID].name = NULL;
+}
+
+static void
+tableGetPath(void)
+{
+ char *path = getenv("TABLEPATH");
+ if (path) tablePath = strdup(path);
+ // printf("tablePath = %s\n", tablePath);
+}
+
+static void
+parTableFinalize(void)
+{
+ for (int tableID = 0; tableID < MAX_TABLE; ++tableID)
+ if (parTable[tableID].used)
+ {
+ int npars = parTable[tableID].npars;
+ for (int item = 0; item < npars; ++item)
+ {
+ if (parTable[tableID].pars[item].dupflags & TABLE_DUP_NAME) Free((void *) parTable[tableID].pars[item].name);
+ if (parTable[tableID].pars[item].dupflags & TABLE_DUP_LONGNAME) Free((void *) parTable[tableID].pars[item].longname);
+ if (parTable[tableID].pars[item].dupflags & TABLE_DUP_UNITS) Free((void *) parTable[tableID].pars[item].units);
+ }
+ Free(parTable[tableID].pars);
+ Free(parTable[tableID].name);
+ }
+}
+
+static void
+parTableInit(void)
+{
+ ParTableInit = 1;
+
+ atexit(parTableFinalize);
+ if (cdiPartabIntern) tableDefault();
+
+ tableGetPath();
+}
+
+static int
+tableNewEntry(void)
+{
+ int tableID = 0;
+
+ static int init = 0;
+ if (!init)
+ {
+ for (tableID = 0; tableID < parTableSize; tableID++) parTableInitEntry(tableID);
+ init = 1;
+ }
+
+ // Look for a free slot in parTable.
+ for (tableID = 0; tableID < parTableSize; tableID++)
+ {
+ if (!parTable[tableID].used) break;
+ }
+
+ if (tableID == parTableSize) Error("no more entries!");
+
+ parTable[tableID].used = true;
+ parTableNum++;
+
+ return tableID;
+}
+
+static int
+decodeForm1(char *pline, char *name, char *longname, char *units)
+{
+ char *pstart, *pend;
+
+ // FIXME: parse success isn't verified
+ /* long level = */ strtol(pline, &pline, 10);
+ while (isspace((int) *pline)) pline++;
+
+ pstart = pline;
+ while (!(isspace((int) *pline) || *pline == 0)) pline++;
+ size_t len = (size_t) (pline - pstart);
+ if (len > 0)
+ {
+ memcpy(name, pstart, len);
+ name[len] = 0;
+ }
+ else
+ return 0;
+
+ if (pline[0] == 0) return 0;
+
+ // Format 1 : code name add mult longname [units]
+ // FIXME: successful parse isn't verified
+ /* double add = */ strtod(pline, &pline);
+ // FIXME: successful parse isn't verified
+ /* double mult = */ strtod(pline, &pline);
+
+ while (isspace((int) *pline)) pline++;
+
+ len = strlen(pline);
+ if (len > 0)
+ {
+ pstart = pline;
+ pend = strrchr(pline, '[');
+ if (pend == pstart)
+ len = 0;
+ else
+ {
+ if (pend)
+ pend--;
+ else
+ pend = pstart + len;
+ while (isspace((int) *pend)) pend--;
+ len = (size_t) (pend - pstart + 1);
+ }
+ if (len > 0)
+ {
+ memcpy(longname, pstart, len);
+ longname[len] = 0;
+ }
+ pstart = strrchr(pline, '[');
+ if (pstart)
+ {
+ pstart++;
+ while (isspace((int) *pstart)) pstart++;
+ pend = strchr(pstart, ']');
+ if (!pend) return 0;
+ pend--;
+ while (isspace((int) *pend)) pend--;
+ len = (size_t) (pend - pstart + 1);
+ if (len > 0)
+ {
+ memcpy(units, pstart, len);
+ units[len] = 0;
+ }
+ }
+ }
+
+ return 0;
+}
+
+static int
+decodeForm2(char *pline, char *name, char *longname, char *units)
+{
+ // Format 2 : code | name | longname | units
+ char *pend;
+
+ pline = strchr(pline, '|');
+ pline++;
+
+ while (isspace((int) *pline)) pline++;
+ if (*pline != '|')
+ {
+ pend = strchr(pline, '|');
+ if (!pend)
+ {
+ pend = pline;
+ while (!isspace((int) *pend)) pend++;
+ size_t len = (size_t) (pend - pline);
+ if (len > 0)
+ {
+ memcpy(name, pline, len);
+ name[len] = 0;
+ }
+ return 0;
+ }
+ else
+ {
+ pend--;
+ while (isspace((int) *pend)) pend--;
+ size_t len = (size_t) (pend - pline + 1);
+ if (len > 0)
+ {
+ memcpy(name, pline, len);
+ name[len] = 0;
+ }
+ }
+ }
+ else
+ name[0] = '\0';
+
+ pline = strchr(pline, '|');
+ pline++;
+ while (isspace((int) *pline)) pline++;
+ pend = strchr(pline, '|');
+ if (!pend) pend = strchr(pline, 0);
+ pend--;
+ while (isspace((int) *pend)) pend--;
+ {
+ size_t len = (size_t) (pend - pline + 1);
+ if (len > 0)
+ {
+ memcpy(longname, pline, len);
+ longname[len] = 0;
+ }
+ }
+
+ pline = strchr(pline, '|');
+ if (pline)
+ {
+ pline++;
+ while (isspace((int) *pline)) pline++;
+ pend = strchr(pline, '|');
+ if (!pend) pend = strchr(pline, 0);
+ pend--;
+ while (isspace((int) *pend)) pend--;
+ ptrdiff_t len = pend - pline + 1;
+ if (len < 0) len = 0;
+ memcpy(units, pline, (size_t) len);
+ units[len] = 0;
+ }
+
+ return 0;
+}
+
+int
+tableRead(const char *tablefile)
+{
+ char line[1024], *pline;
+ char name[256], longname[256], units[256];
+ int tableID = CDI_UNDEFID;
+
+ FILE *tablefp = fopen(tablefile, "r");
+ if (tablefp == NULL) return tableID;
+
+ const char *tablename = strrchr(tablefile, '/');
+ if (tablename == 0)
+ tablename = tablefile;
+ else
+ tablename++;
+
+ tableID = tableDef(-1, 0, tablename);
+
+ while (fgets(line, 1023, tablefp))
+ {
+ size_t len = strlen(line);
+ if (line[len - 1] == '\n') line[len - 1] = '\0';
+ name[0] = 0;
+ longname[0] = 0;
+ units[0] = 0;
+ if (line[0] == '#') continue;
+ pline = line;
+
+ len = strlen(pline);
+ if (len < 4) continue;
+ while (isspace((int) *pline)) pline++;
+ int id = atoi(pline);
+ // if ( id > 255 ) id -= 256;
+ if (id == 0) continue;
+
+ while (isdigit((int) *pline)) pline++;
+
+ int ltype = CDI_UNDEFID;
+ if (*pline == ';' || *pline == ':')
+ {
+ pline++;
+ ltype = atoi(pline);
+ while (isdigit((int) *pline)) pline++;
+
+ if (*pline == ';' || *pline == ':')
+ {
+ pline++;
+ while (isdigit((int) *pline)) pline++;
+ }
+ }
+
+ while (isdigit((int) *pline)) pline++;
+
+ int err = (strchr(pline, '|')) ? decodeForm2(pline, name, longname, units) : decodeForm1(pline, name, longname, units);
+ if (err) continue;
+
+ if (name[0] == 0) snprintf(name, sizeof(name), "var%d", id);
+
+ tableDefEntry(tableID, id, ltype, name, longname, units);
+ }
+
+ return tableID;
+}
+
+static int
+tableFromEnv(int modelID, int tablenum)
+{
+ char tablename[256] = { '\0' };
+ size_t tablenameLen = 0;
+ int instID;
+
+ const char *name2Use;
+ {
+ const char *modelName, *instName;
+ if ((modelName = modelInqNamePtr(modelID)))
+ name2Use = modelName;
+ else if ((instID = modelInqInstitut(modelID)) != CDI_UNDEFID && (instName = institutInqNamePtr(instID)))
+ name2Use = instName;
+ else
+ return CDI_UNDEFID;
+ }
+ tablenameLen = strlen(name2Use);
+ memcpy(tablename, name2Use, tablenameLen);
+ if (tablenum) tablenameLen += (size_t) (snprintf(tablename + tablenameLen, 256 - tablenameLen, "_%03d", tablenum));
+ size_t lenp = 0, lenf = tablenameLen;
+ if (tablePath) lenp = strlen(tablePath);
+ // if (tablePath) printf("tablePath = %s\n", tablePath);
+ // if (tablename) printf("tableName = %s\n", tablename);
+ char *tablefile = (char *) Malloc(lenp + lenf + 3);
+ if (tablePath)
+ {
+ strcpy(tablefile, tablePath);
+ strcat(tablefile, "/");
+ }
+ else
+ tablefile[0] = '\0';
+ strcat(tablefile, tablename);
+ // if (tablefile) printf("tableFile = %s\n", tablefile);
+
+ int tableID = tableRead(tablefile);
+ if (tableID != CDI_UNDEFID)
+ {
+ tableDefModelID(tableID, modelID);
+ tableDefNum(tableID, tablenum);
+ }
+ // printf("tableID = %d %s\n", tableID, tablefile);
+ Free(tablefile);
+
+ return tableID;
+}
+
+int
+tableInq(int modelID, int tablenum, const char *tablename)
+{
+ int tableID = CDI_UNDEFID;
+ int modelID2 = CDI_UNDEFID;
+ char tablefile[256] = { '\0' };
+
+ if (!ParTableInit) parTableInit();
+
+ if (tablename)
+ {
+ strcpy(tablefile, tablename);
+ /*
+ printf("tableInq: tablefile = >%s<\n", tablefile);
+ */
+ /* search for internal table */
+ for (tableID = 0; tableID < MAX_TABLE; tableID++)
+ {
+ if (parTable[tableID].used && parTable[tableID].name)
+ {
+ /* len = strlen(parTable[tableID].name); */
+ size_t len = strlen(tablename);
+ if (memcmp(parTable[tableID].name, tablename, len) == 0) break;
+ }
+ }
+ if (tableID == MAX_TABLE) tableID = CDI_UNDEFID;
+ if (CDI_Debug) Message("tableID = %d tablename = %s", tableID, tablename);
+ }
+ else
+ {
+ for (tableID = 0; tableID < MAX_TABLE; tableID++)
+ {
+ if (parTable[tableID].used)
+ {
+ if (parTable[tableID].modelID == modelID && parTable[tableID].number == tablenum) break;
+ }
+ }
+
+ if (tableID == MAX_TABLE) tableID = CDI_UNDEFID;
+
+ if (tableID == CDI_UNDEFID)
+ {
+ if (modelID != CDI_UNDEFID)
+ {
+ const char *modelName;
+ if ((modelName = modelInqNamePtr(modelID)))
+ {
+ strcpy(tablefile, modelName);
+ size_t len = strlen(tablefile);
+ for (size_t i = 0; i < len; i++)
+ if (tablefile[i] == '.') tablefile[i] = '\0';
+ modelID2 = modelInq(-1, 0, tablefile);
+ }
+ }
+ if (modelID2 != CDI_UNDEFID)
+ for (tableID = 0; tableID < MAX_TABLE; tableID++)
+ {
+ if (parTable[tableID].used)
+ {
+ if (parTable[tableID].modelID == modelID2 && parTable[tableID].number == tablenum) break;
+ }
+ }
+ }
+
+ if (tableID == MAX_TABLE) tableID = CDI_UNDEFID;
+
+ if (tableID == CDI_UNDEFID && modelID != CDI_UNDEFID) tableID = tableFromEnv(modelID, tablenum);
+
+ if (CDI_Debug && tablename) Message("tableID = %d tablename = %s", tableID, tablename);
+ }
+
+ return tableID;
+}
+
+int
+tableDef(int modelID, int tablenum, const char *tablename)
+{
+ int tableID = CDI_UNDEFID;
+
+ if (!ParTableInit) parTableInit();
+ // if (!(modelID == CDI_UNDEFID && tablenum == 0)) tableID = tableInq(modelID, tablenum, tablename);
+ if (tableID == CDI_UNDEFID)
+ {
+ tableID = tableNewEntry();
+
+ parTable[tableID].modelID = modelID;
+ parTable[tableID].number = tablenum;
+ if (tablename) parTable[tableID].name = strdup(tablename);
+
+ parTable[tableID].pars = (param_type *) Malloc(MAX_PARS * sizeof(param_type));
+ }
+
+ return tableID;
+}
+
+static void
+tableDefModelID(int tableID, int modelID)
+{
+ parTable[tableID].modelID = modelID;
+}
+
+static void
+tableDefNum(int tableID, int tablenum)
+{
+ parTable[tableID].number = tablenum;
+}
+
+int
+tableInqNum(int tableID)
+{
+ int number = 0;
+
+ if (tableID >= 0 && tableID < MAX_TABLE) number = parTable[tableID].number;
+
+ return number;
+}
+
+int
+tableInqModel(int tableID)
+{
+ int modelID = -1;
+
+ if (tableID >= 0 && tableID < MAX_TABLE) modelID = parTable[tableID].modelID;
+
+ return modelID;
+}
+
+static void
+partabCheckID(int item)
+{
+ if (item < 0 || item >= parTableSize) Error("item %d undefined!", item);
+
+ if (!parTable[item].name) Error("item %d name undefined!", item);
+}
+
+const char *
+tableInqNamePtr(int tableID)
+{
+ const char *tablename = NULL;
+
+ if (CDI_Debug) Message("tableID = %d", tableID);
+
+ if (!ParTableInit) parTableInit();
+
+ if (tableID >= 0 && tableID < parTableSize)
+ if (parTable[tableID].name) tablename = parTable[tableID].name;
+
+ return tablename;
+}
+
+static size_t
+max_length(size_t maxlen, const char *cstring)
+{
+ if (cstring)
+ {
+ size_t len = strlen(cstring);
+ if (len > maxlen) maxlen = len;
+ }
+ return maxlen;
+}
+
+void
+tableWrite(const char *ptfile, int tableID)
+{
+ size_t maxname = 4, maxlname = 10, maxunits = 2;
+ int instID = CDI_UNDEFID;
+ int center = 0, subcenter = 0;
+ const char *instnameptr = NULL, *modelnameptr = NULL;
+
+ if (CDI_Debug) Message("write parameter table %d to %s", tableID, ptfile);
+
+ if (tableID == CDI_UNDEFID)
+ {
+ Warning("parameter table ID undefined");
+ return;
+ }
+
+ partabCheckID(tableID);
+
+ FILE *ptfp = fopen(ptfile, "w");
+
+ int npars = parTable[tableID].npars;
+ for (int item = 0; item < npars; item++)
+ {
+ maxname = max_length(maxname, parTable[tableID].pars[item].name);
+ maxlname = max_length(maxlname, parTable[tableID].pars[item].longname);
+ maxunits = max_length(maxunits, parTable[tableID].pars[item].units);
+ }
+
+ int tablenum = tableInqNum(tableID);
+ int modelID = parTable[tableID].modelID;
+ if (modelID != CDI_UNDEFID)
+ {
+ modelnameptr = modelInqNamePtr(modelID);
+ instID = modelInqInstitut(modelID);
+ }
+ if (instID != CDI_UNDEFID)
+ {
+ center = institutInqCenter(instID);
+ subcenter = institutInqSubcenter(instID);
+ instnameptr = institutInqNamePtr(instID);
+ }
+
+ fprintf(ptfp, "# Parameter table\n");
+ fprintf(ptfp, "#\n");
+ if (tablenum) fprintf(ptfp, "# TABLE_ID=%d\n", tablenum);
+ fprintf(ptfp, "# TABLE_NAME=%s\n", parTable[tableID].name);
+ if (modelnameptr) fprintf(ptfp, "# TABLE_MODEL=%s\n", modelnameptr);
+ if (instnameptr) fprintf(ptfp, "# TABLE_INSTITUT=%s\n", instnameptr);
+ if (center) fprintf(ptfp, "# TABLE_CENTER=%d\n", center);
+ if (subcenter) fprintf(ptfp, "# TABLE_SUBCENTER=%d\n", subcenter);
+ fprintf(ptfp, "#\n");
+ fprintf(ptfp, "#\n");
+ fprintf(ptfp, "# id = parameter ID\n");
+ fprintf(ptfp, "# name = variable name\n");
+ fprintf(ptfp, "# title = long name (description)\n");
+ fprintf(ptfp, "# units = variable units\n");
+ fprintf(ptfp, "#\n");
+ fprintf(ptfp, "# The format of each record is:\n");
+ fprintf(ptfp, "#\n");
+ fprintf(ptfp, "# id | %-*s | %-*s | %-*s\n", (int) maxname, "name", (int) maxlname, "title", (int) maxunits, "units");
+
+ for (int item = 0; item < npars; item++)
+ {
+ const char *name = parTable[tableID].pars[item].name, *longname = parTable[tableID].pars[item].longname,
+ *units = parTable[tableID].pars[item].units;
+ if (name == NULL) name = " ";
+ if (longname == NULL) longname = " ";
+ if (units == NULL) units = " ";
+ fprintf(ptfp, "%4d | %-*s | %-*s | %-*s\n", parTable[tableID].pars[item].id, (int) maxname, name, (int) maxlname, longname,
+ (int) maxunits, units);
+ }
+
+ fclose(ptfp);
+}
+
+void
+tableFWriteC(FILE *ptfp, int tableID)
+{
+ const char chelp[] = "";
+ size_t maxname = 0, maxlname = 0, maxunits = 0;
+ char tablename[256];
+
+ if (tableID == CDI_UNDEFID)
+ {
+ Warning("parameter table ID undefined");
+ return;
+ }
+
+ partabCheckID(tableID);
+
+ int npars = parTable[tableID].npars;
+ for (int item = 0; item < npars; item++)
+ {
+ maxname = max_length(maxname, parTable[tableID].pars[item].name);
+ maxlname = max_length(maxlname, parTable[tableID].pars[item].longname);
+ maxunits = max_length(maxunits, parTable[tableID].pars[item].units);
+ }
+
+ strncpy(tablename, parTable[tableID].name, sizeof(tablename) - 1);
+ tablename[sizeof(tablename) - 1] = '\0';
+ {
+ size_t len = strlen(tablename);
+ for (size_t i = 0; i < len; i++)
+ if (tablename[i] == '.') tablename[i] = '_';
+ }
+ fprintf(ptfp, "static const param_type %s[] = {\n", tablename);
+
+ for (int item = 0; item < npars; item++)
+ {
+ size_t len = strlen(parTable[tableID].pars[item].name),
+ llen = parTable[tableID].pars[item].longname ? strlen(parTable[tableID].pars[item].longname) : 0,
+ ulen = parTable[tableID].pars[item].units ? strlen(parTable[tableID].pars[item].units) : 0;
+ fprintf(ptfp, " {%4d, -1, 0, \"%s\", %-*s%c%s%s, %-*s%c%s%s %-*s},\n", parTable[tableID].pars[item].id,
+ parTable[tableID].pars[item].name, (int) (maxname - len), chelp, llen ? '"' : ' ',
+ llen ? parTable[tableID].pars[item].longname : "NULL", llen ? "\"" : "", (int) (maxlname - (llen ? llen : 3)), chelp,
+ ulen ? '"' : ' ', ulen ? parTable[tableID].pars[item].units : "NULL", ulen ? "\"" : "",
+ (int) (maxunits - (ulen ? ulen : 3)), chelp);
+ }
+
+ fprintf(ptfp, "};\n\n");
+}
+
+void
+tableInqEntry(int tableID, int id, int ltype, char *name, char *longname, char *units)
+{
+ if (((tableID >= 0) & (tableID < MAX_TABLE)) | (tableID == CDI_UNDEFID))
+ {
+ }
+ else
+ Error("Invalid table ID %d", tableID);
+
+ if (tableID != CDI_UNDEFID)
+ {
+ int npars = parTable[tableID].npars;
+ for (int item = 0; item < npars; item++)
+ {
+ if (parTable[tableID].pars[item].id == id
+ && (parTable[tableID].pars[item].ltype == -1 || ltype == -1 || parTable[tableID].pars[item].ltype == ltype))
+ {
+ if (name && parTable[tableID].pars[item].name) strcpy(name, parTable[tableID].pars[item].name);
+ if (longname && parTable[tableID].pars[item].longname) strcpy(longname, parTable[tableID].pars[item].longname);
+ if (units && parTable[tableID].pars[item].units) strcpy(units, parTable[tableID].pars[item].units);
+
+ break;
+ }
+ }
+ }
+}
+
+int
+tableInqParCode(int tableID, char *varname, int *code)
+{
+ int err = 1;
+
+ if (tableID != CDI_UNDEFID && varname != NULL)
+ {
+ int npars = parTable[tableID].npars;
+ for (int item = 0; item < npars; item++)
+ {
+ if (parTable[tableID].pars[item].name && str_is_equal(parTable[tableID].pars[item].name, varname))
+ {
+ *code = parTable[tableID].pars[item].id;
+ err = 0;
+ break;
+ }
+ }
+ }
+
+ return err;
+}
+
+int
+tableInqNumber(void)
+{
+ if (!ParTableInit) parTableInit();
+
+ return parTableNum;
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifndef NORMALIZE_MONTH_H
+#define NORMALIZE_MONTH_H
+
+#include <stdlib.h>
+
+struct YearMonth
+{
+ int year, month;
+};
+
+/* normalizes month to range [1,12] and adjusts year accordingly */
+static inline struct YearMonth
+normalize_month(int year, int month)
+{
+ div_t modres = div(month - 1, 12);
+ year += modres.quot - ((month < 1) & (modres.rem != 0));
+ return (struct YearMonth){ .year = year, .month = (modres.rem + 12) % 12 + 1 };
+}
+
+#endif
+#include <stddef.h>
+#include <stdio.h>
+
+
+static int DefaultTimeType = TAXIS_ABSOLUTE;
+static int DefaultTimeUnit = TUNIT_HOUR;
+
+static int taxisCompareP(void *taxisptr1, void *taxisptr2);
+static void taxisDestroyP(void *taxisptr);
+static void taxisPrintKernel(taxis_t *taxisptr, FILE *fp);
+static int taxisGetPackSize(void *taxisptr, void *context);
+static void taxisPack(void *taxisptr, void *buf, int size, int *position, void *context);
+static int taxisTxCode(void *taxisptr);
+
+const resOps taxisOps
+ = { taxisCompareP, taxisDestroyP, (void (*)(void *, FILE *)) taxisPrintKernel, taxisGetPackSize, taxisPack, taxisTxCode };
+
+#define container_of(ptr, type, member) ((type *) (void *) ((unsigned char *) ptr - offsetof(type, member)))
+
+struct refcount_string
+{
+ int ref_count;
+ char string[];
+};
+
+static char *
+new_refcount_string(size_t len)
+{
+ struct refcount_string *container = (struct refcount_string *) Malloc(sizeof(*container) + len + 1);
+ container->ref_count = 1;
+ return container->string;
+}
+
+static void
+delete_refcount_string(void *p)
+{
+ if (p)
+ {
+ struct refcount_string *container = container_of(p, struct refcount_string, string);
+ if (!--(container->ref_count)) Free(container);
+ }
+}
+
+static char *
+dup_refcount_string(char *p)
+{
+ if (p)
+ {
+ struct refcount_string *container = container_of(p, struct refcount_string, string);
+ ++(container->ref_count);
+ }
+ return p;
+}
+
+#undef container_of
+
+const char *
+taxisNamePtr(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr->name;
+}
+
+const char *
+tunitNamePtr(int unitID)
+{
+ static const char Timeunits[][TAXIS_MAX_UNIT_STR_LEN + 1] = {
+ "undefined", "seconds", "minutes", "quarters", "30minutes", "hours", "3hours", "6hours", "12hours", "days", "months", "years",
+ };
+ enum
+ {
+ size = sizeof(Timeunits) / sizeof(Timeunits[0])
+ };
+
+ const char *name = unitID > 0 && unitID < size ? Timeunits[unitID] : Timeunits[0];
+
+ return name;
+}
+
+void
+ptaxisInit(taxis_t *taxisptr)
+{
+ taxisptr->self = CDI_UNDEFID;
+ taxisptr->datatype = CDI_DATATYPE_FLT64;
+ taxisptr->type = DefaultTimeType;
+ taxisptr->calendar = CDI_Default_Calendar;
+ taxisptr->unit = DefaultTimeUnit;
+ taxisptr->numavg = 0;
+ taxisptr->climatology = false;
+ taxisptr->hasBounds = false;
+ cdiDateTime_init(&taxisptr->sDateTime);
+ cdiDateTime_init(&taxisptr->vDateTime);
+ cdiDateTime_init(&taxisptr->rDateTime);
+ cdiDateTime_init(&taxisptr->fDateTime);
+ cdiDateTime_init(&taxisptr->vDateTime_lb);
+ cdiDateTime_init(&taxisptr->vDateTime_ub);
+ taxisptr->fc_unit = DefaultTimeUnit;
+ taxisptr->fc_period = 0;
+ taxisptr->name = NULL;
+ taxisptr->longname = NULL;
+ taxisptr->units = NULL;
+}
+
+static taxis_t *
+taxisNewEntry(cdiResH resH)
+{
+ taxis_t *taxisptr = (taxis_t *) Malloc(sizeof(taxis_t));
+
+ ptaxisInit(taxisptr);
+ if (resH == CDI_UNDEFID)
+ taxisptr->self = reshPut(taxisptr, &taxisOps);
+ else
+ {
+ taxisptr->self = resH;
+ reshReplace(resH, taxisptr, &taxisOps);
+ }
+
+ return taxisptr;
+}
+
+/*
+@Function taxisCreate
+@Title Create a Time axis
+
+@Prototype int taxisCreate(int taxistype)
+@Parameter
+ @Item taxistype The type of the Time axis, one of the set of predefined CDI time axis types.
+ The valid CDI time axis types are @func{TAXIS_ABSOLUTE} and @func{TAXIS_RELATIVE}.
+
+@Description
+The function @func{taxisCreate} creates a Time axis.
+
+@Result
+@func{taxisCreate} returns an identifier to the Time axis.
+
+@Example
+Here is an example using @func{taxisCreate} to create a relative T-axis with a standard calendar.
+
+@Source
+ ...
+int taxisID;
+ ...
+taxisID = taxisCreate(TAXIS_RELATIVE);
+taxisDefCalendar(taxisID, CALENDAR_STANDARD);
+taxisDefRdate(taxisID, 19850101);
+taxisDefRtime(taxisID, 120000);
+ ...
+@EndSource
+@EndFunction
+*/
+int
+taxisCreate(int taxistype)
+{
+ taxis_t *taxisptr = taxisNewEntry(CDI_UNDEFID);
+ taxisptr->type = taxistype;
+
+ int taxisID = taxisptr->self;
+ return taxisID;
+}
+
+void
+taxisDestroyKernel(taxis_t *taxisptr)
+{
+ delete_refcount_string(taxisptr->name);
+ delete_refcount_string(taxisptr->longname);
+ delete_refcount_string(taxisptr->units);
+}
+
+/*
+@Function taxisDestroy
+@Title Destroy a Time axis
+
+@Prototype void taxisDestroy(int taxisID)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @func{taxisCreate}
+
+@EndFunction
+*/
+void
+taxisDestroy(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ reshRemove(taxisID, &taxisOps);
+ taxisDestroyKernel(taxisptr);
+ Free(taxisptr);
+}
+
+void
+taxisDestroyP(void *taxisptr)
+{
+ taxisDestroyKernel((taxis_t *) taxisptr);
+ Free(taxisptr);
+}
+
+int
+taxisDuplicate(int taxisID1)
+{
+ taxis_t *taxisptr1 = (taxis_t *) reshGetVal(taxisID1, &taxisOps);
+ taxis_t *taxisptr2 = taxisNewEntry(CDI_UNDEFID);
+
+ int taxisID2 = taxisptr2->self;
+
+ ptaxisCopy(taxisptr2, taxisptr1);
+
+ return taxisID2;
+}
+
+void
+taxisDefType(int taxisID, int taxistype)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->type != taxistype)
+ {
+ taxisptr->type = taxistype;
+ taxisptr->datatype = CDI_DATATYPE_FLT64;
+ delete_refcount_string(taxisptr->units);
+ taxisptr->units = NULL;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function taxisDefVdate
+@Title Define the verification date
+
+@Prototype void taxisDefVdate(int taxisID, int vdate)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate}
+ @Item vdate Verification date (YYYYMMDD)
+
+@Description
+The function @func{taxisDefVdate} defines the verification date of a Time axis.
+
+@EndFunction
+*/
+void
+taxisDefVdate(int taxisID, int vdate)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if ((int) cdiDate_get(taxisptr->vDateTime.date) != vdate)
+ {
+ taxisptr->vDateTime.date = cdiDate_set(vdate);
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function taxisDefVtime
+@Title Define the verification time
+
+@Prototype void taxisDefVtime(int taxisID, int vtime)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate}
+ @Item vtime Verification time (hhmmss)
+
+@Description
+The function @func{taxisDefVtime} defines the verification time of a Time axis.
+
+@EndFunction
+*/
+void
+taxisDefVtime(int taxisID, int vtime)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (cdiTime_get(taxisptr->vDateTime.time) != vtime)
+ {
+ taxisptr->vDateTime.time = cdiTime_set(vtime);
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+taxisDefVdatetime(int taxisID, CdiDateTime vDateTime)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (cdiDateTime_isNE(taxisptr->vDateTime, vDateTime))
+ {
+ taxisptr->vDateTime = vDateTime;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+taxisDefRdatetime(int taxisID, CdiDateTime rDateTime)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (cdiDateTime_isNE(taxisptr->rDateTime, rDateTime))
+ {
+ taxisptr->rDateTime = rDateTime;
+ delete_refcount_string(taxisptr->units);
+ taxisptr->units = NULL;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function taxisDefRdate
+@Title Define the reference date
+
+@Prototype void taxisDefRdate(int taxisID, int rdate)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate}
+ @Item rdate Reference date (YYYYMMDD)
+
+@Description
+The function @func{taxisDefRdate} defines the reference date of a Time axis.
+
+@EndFunction
+*/
+void
+taxisDefRdate(int taxisID, int rdate)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if ((int) cdiDate_get(taxisptr->rDateTime.date) != rdate)
+ {
+ taxisptr->rDateTime.date = cdiDate_set(rdate);
+ delete_refcount_string(taxisptr->units);
+ taxisptr->units = NULL;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function taxisDefRtime
+@Title Define the reference time
+
+@Prototype void taxisDefRtime(int taxisID, int rtime)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate}
+ @Item rtime Reference time (hhmmss)
+
+@Description
+The function @func{taxisDefRtime} defines the reference time of a Time axis.
+
+@EndFunction
+*/
+void
+taxisDefRtime(int taxisID, int rtime)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (cdiTime_get(taxisptr->rDateTime.time) != rtime)
+ {
+ taxisptr->rDateTime.time = cdiTime_set(rtime);
+ if (taxisptr->units)
+ {
+ delete_refcount_string(taxisptr->units);
+ taxisptr->units = NULL;
+ }
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function taxisDefFdatetime
+@Title Define the forecast reference date/time
+
+@Prototype void taxisDefFdatetime(int taxisID, CdiDateTime fDateTime)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate}
+ @Item fDateTime Forecast reference date/time
+
+@Description
+The function @func{taxisDefFdatetime} defines the forecast reference date/time of a Time axis.
+
+@EndFunction
+*/
+void
+taxisDefFdatetime(int taxisID, CdiDateTime fDateTime)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (cdiDateTime_isNE(taxisptr->fDateTime, fDateTime))
+ {
+ taxisptr->fDateTime = fDateTime;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function taxisDefCalendar
+@Title Define the calendar
+
+@Prototype void taxisDefCalendar(int taxisID, int calendar)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate}
+ @Item calendar The type of the calendar, one of the set of predefined CDI calendar types.
+ The valid CDI calendar types are @func{CALENDAR_STANDARD}, @func{CALENDAR_PROLEPTIC},
+ @func{CALENDAR_360DAYS}, @func{CALENDAR_365DAYS} and @func{CALENDAR_366DAYS}.
+
+@Description
+The function @func{taxisDefCalendar} defines the calendar of a Time axis.
+
+@EndFunction
+*/
+void
+taxisDefCalendar(int taxisID, int calendar)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->calendar != calendar)
+ {
+ taxisptr->calendar = calendar;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+taxisDefTunit(int taxisID, int unit)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->unit != unit)
+ {
+ taxisptr->unit = unit;
+ delete_refcount_string(taxisptr->units);
+ taxisptr->units = NULL;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+taxisDefForecastTunit(int taxisID, int unit)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->fc_unit != unit)
+ {
+ taxisptr->fc_unit = unit;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+taxisDefForecastPeriod(int taxisID, double fc_period)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (IS_NOT_EQUAL(taxisptr->fc_period, fc_period))
+ {
+ taxisptr->fc_period = fc_period;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+taxisDefNumavg(int taxisID, int numavg)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->numavg != numavg)
+ {
+ taxisptr->numavg = numavg;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+ The type of the time axis, one of the set of predefined CDI time types.
+ The valid CDI time types are TAXIS_ABSOLUTE and TAXIS_RELATIVE.
+*/
+int
+taxisInqType(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr->type;
+}
+
+int
+taxisHasBounds(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return (int) taxisptr->hasBounds;
+}
+
+void
+taxisWithBounds(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->hasBounds == false)
+ {
+ taxisptr->hasBounds = true;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+taxisDeleteBounds(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->hasBounds)
+ {
+ taxisptr->hasBounds = false;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+taxisCopyTimestep(int taxisID2, int taxisID1)
+{
+ taxis_t *taxisptr1 = (taxis_t *) reshGetVal(taxisID1, &taxisOps), *taxisptr2 = (taxis_t *) reshGetVal(taxisID2, &taxisOps);
+
+ reshLock();
+
+ // reference date/time and units can't be changed after streamDefVlist()!
+
+ taxisptr2->sDateTime = taxisptr1->sDateTime;
+ taxisptr2->vDateTime = taxisptr1->vDateTime;
+ taxisptr2->fDateTime = taxisptr1->fDateTime;
+
+ if (taxisptr2->hasBounds)
+ {
+ taxisptr2->vDateTime_lb = taxisptr1->vDateTime_lb;
+ taxisptr2->vDateTime_ub = taxisptr1->vDateTime_ub;
+ }
+
+ taxisptr2->fc_unit = taxisptr1->fc_unit;
+ taxisptr2->fc_period = taxisptr1->fc_period;
+
+ reshSetStatus(taxisID2, &taxisOps, RESH_DESYNC_IN_USE);
+ reshUnlock();
+}
+
+CdiDateTime
+taxisInqVdatetime(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr->vDateTime;
+}
+
+CdiDateTime
+taxisInqRdatetime(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (cdiDateTime_isNull(taxisptr->rDateTime))
+ {
+ taxisptr->rDateTime = taxisptr->vDateTime;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+
+ return taxisptr->rDateTime;
+}
+
+/*
+@Function taxisInqVdate
+@Title Get the verification date
+
+@Prototype int taxisInqVdate(int taxisID)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate} or @fref{vlistInqTaxis}
+
+@Description
+The function @func{taxisInqVdate} returns the verification date of a Time axis.
+
+@Result
+@func{taxisInqVdate} returns the verification date.
+
+@EndFunction
+*/
+int
+taxisInqVdate(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return (int) cdiDate_get(taxisptr->vDateTime.date);
+}
+
+CdiDateTime
+taxisInqSdatetime(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr->sDateTime;
+}
+
+void
+taxisInqVdateBounds(int taxisID, int *vdate_lb, int *vdate_ub)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ *vdate_lb = (int) cdiDate_get(taxisptr->vDateTime_lb.date);
+ *vdate_ub = (int) cdiDate_get(taxisptr->vDateTime_ub.date);
+}
+
+void
+taxisInqVdatetimeBounds(int taxisID, CdiDateTime *vDateTime_lb, CdiDateTime *vDateTime_ub)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ *vDateTime_lb = taxisptr->vDateTime_lb;
+ *vDateTime_ub = taxisptr->vDateTime_ub;
+}
+
+void
+taxisDefVdateBounds(int taxisID, int vdate_lb, int vdate_ub)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->hasBounds == false || (int) cdiDate_get(taxisptr->vDateTime_lb.date) != vdate_lb
+ || (int) cdiDate_get(taxisptr->vDateTime_ub.date) != vdate_ub)
+ {
+ taxisptr->vDateTime_lb.date = cdiDate_set(vdate_lb);
+ taxisptr->vDateTime_ub.date = cdiDate_set(vdate_ub);
+ taxisptr->hasBounds = true;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+taxisDefVdatetimeBounds(int taxisID, CdiDateTime vDateTime_lb, CdiDateTime vDateTime_ub)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->hasBounds == false || cdiDateTime_isNE(taxisptr->vDateTime_lb, vDateTime_lb)
+ || cdiDateTime_isNE(taxisptr->vDateTime_ub, vDateTime_ub))
+ {
+ taxisptr->vDateTime_lb = vDateTime_lb;
+ taxisptr->vDateTime_ub = vDateTime_ub;
+ taxisptr->hasBounds = true;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function taxisInqVtime
+@Title Get the verification time
+
+@Prototype int taxisInqVtime(int taxisID)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate} or @fref{vlistInqTaxis}
+
+@Description
+The function @func{taxisInqVtime} returns the verification time of a Time axis.
+
+@Result
+@func{taxisInqVtime} returns the verification time.
+
+@EndFunction
+*/
+int
+taxisInqVtime(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return cdiTime_get(taxisptr->vDateTime.time);
+}
+
+void
+taxisInqVtimeBounds(int taxisID, int *vtime_lb, int *vtime_ub)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ *vtime_lb = cdiTime_get(taxisptr->vDateTime_lb.time);
+ *vtime_ub = cdiTime_get(taxisptr->vDateTime_ub.time);
+}
+
+void
+taxisDefVtimeBounds(int taxisID, int vtime_lb, int vtime_ub)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (taxisptr->hasBounds == false || cdiTime_get(taxisptr->vDateTime_lb.time) != vtime_lb
+ || cdiTime_get(taxisptr->vDateTime_ub.time) != vtime_ub)
+ {
+ taxisptr->vDateTime_lb.time = cdiTime_set(vtime_lb);
+ taxisptr->vDateTime_ub.time = cdiTime_set(vtime_ub);
+ taxisptr->hasBounds = true;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function taxisInqRdate
+@Title Get the reference date
+
+@Prototype int taxisInqRdate(int taxisID)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate} or @fref{vlistInqTaxis}
+
+@Description
+The function @func{taxisInqRdate} returns the reference date of a Time axis.
+
+@Result
+@func{taxisInqRdate} returns the reference date.
+
+@EndFunction
+*/
+int
+taxisInqRdate(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (cdiDateTime_isNull(taxisptr->rDateTime))
+ {
+ taxisptr->rDateTime = taxisptr->vDateTime;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+
+ return (int) cdiDate_get(taxisptr->rDateTime.date);
+}
+
+/*
+@Function taxisInqRtime
+@Title Get the reference time
+
+@Prototype int taxisInqRtime(int taxisID)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate} or @fref{vlistInqTaxis}
+
+@Description
+The function @func{taxisInqRtime} returns the reference time of a Time axis.
+
+@Result
+@func{taxisInqRtime} returns the reference time.
+
+@EndFunction
+*/
+int
+taxisInqRtime(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (cdiDateTime_isNull(taxisptr->rDateTime))
+ {
+ taxisptr->rDateTime = taxisptr->vDateTime;
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+
+ return cdiTime_get(taxisptr->rDateTime.time);
+}
+
+/*
+@Function taxisInqFdatetime
+@Title Get the forecast reference date/time
+
+@Prototype int taxisInqFdatetime(int taxisID)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate} or @fref{vlistInqTaxis}
+
+@Description
+The function @func{taxisInqFdatetime} returns the forecast reference date/time of a Time axis.
+
+@Result
+@func{taxisInqFdate} returns the forecast reference date/time.
+
+@EndFunction
+*/
+CdiDateTime
+taxisInqFdatetime(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+
+ if (cdiDateTime_isNull(taxisptr->fDateTime))
+ {
+ // rDateTime is initialized from vDateTime if empty!
+ taxisptr->fDateTime = taxisInqRdatetime(taxisID);
+ reshSetStatus(taxisID, &taxisOps, RESH_DESYNC_IN_USE);
+ }
+
+ return taxisptr->fDateTime;
+}
+
+/*
+@Function taxisInqCalendar
+@Title Get the calendar
+
+@Prototype int taxisInqCalendar(int taxisID)
+@Parameter
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate} or @fref{vlistInqTaxis}
+
+@Description
+The function @func{taxisInqCalendar} returns the calendar of a Time axis.
+
+@Result
+@func{taxisInqCalendar} returns the type of the calendar,
+one of the set of predefined CDI calendar types.
+The valid CDI calendar types are @func{CALENDAR_STANDARD}, @func{CALENDAR_PROLEPTIC},
+@func{CALENDAR_360DAYS}, @func{CALENDAR_365DAYS} and @func{CALENDAR_366DAYS}.
+
+@EndFunction
+*/
+int
+taxisInqCalendar(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr->calendar;
+}
+
+int
+taxisInqTunit(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr->unit;
+}
+
+int
+taxisInqForecastTunit(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr->fc_unit;
+}
+
+double
+taxisInqForecastPeriod(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr->fc_period;
+}
+
+int
+taxisInqNumavg(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr->numavg;
+}
+
+taxis_t *
+taxisPtr(int taxisID)
+{
+ taxis_t *taxisptr = (taxis_t *) reshGetVal(taxisID, &taxisOps);
+ return taxisptr;
+}
+
+void
+ptaxisDefDatatype(taxis_t *taxisptr, int datatype)
+{
+ taxisptr->datatype = datatype;
+}
+
+void
+ptaxisDefName(taxis_t *taxisptr, const char *name)
+{
+ if (name)
+ {
+ size_t len = strlen(name);
+ delete_refcount_string(taxisptr->name);
+ char *taxisname = taxisptr->name = new_refcount_string(len);
+ strcpy(taxisname, name);
+ }
+}
+
+void
+ptaxisDefLongname(taxis_t *taxisptr, const char *longname)
+{
+ if (longname)
+ {
+ size_t len = strlen(longname);
+ delete_refcount_string(taxisptr->longname);
+ char *taxislongname = taxisptr->longname = new_refcount_string(len);
+ strcpy(taxislongname, longname);
+ }
+}
+
+char *
+ptaxisAllocUnits(taxis_t *taxisptr, size_t len)
+{
+ delete_refcount_string(taxisptr->units);
+ return taxisptr->units = new_refcount_string(len);
+}
+
+void
+ptaxisDefUnits(taxis_t *taxisptr, const char *units)
+{
+ if (units)
+ {
+ size_t len = strlen(units);
+ char *taxisunits = ptaxisAllocUnits(taxisptr, len);
+ strcpy(taxisunits, units);
+ }
+}
+
+static JulianDate
+timevalue_decode(int timeunits, double timevalue)
+{
+ JulianDate julianDate;
+ julianDate.julianDay = 0;
+ julianDate.secondOfDay = 0.0;
+
+ if (timeunits == TUNIT_MINUTE)
+ {
+ timevalue *= 60;
+ timeunits = TUNIT_SECOND;
+ }
+ else if (timeunits == TUNIT_HOUR)
+ {
+ timevalue /= 24;
+ timeunits = TUNIT_DAY;
+ }
+
+ if (timeunits == TUNIT_SECOND)
+ {
+ julianDate.julianDay = (int64_t) (timevalue / 86400.0);
+ double seconds = timevalue - julianDate.julianDay * 86400.0;
+ julianDate.secondOfDay = round(seconds * 1000.0) / 1000.0;
+ if (julianDate.secondOfDay < 0)
+ {
+ julianDate.julianDay -= 1;
+ julianDate.secondOfDay += 86400.0;
+ };
+ /*
+ {
+ double cval = julianDate.julianDay * 86400.0 + julianDate.secondOfDay;
+ if (cval != timevalue) printf("TUNIT_SECOND error: %g %g %d %d\n", timevalue, cval, julianDate.julianDay,
+ julianDate.secondOfDay);
+ }
+ */
+ }
+ else if (timeunits == TUNIT_DAY)
+ {
+ julianDate.julianDay = (int64_t) timevalue;
+ double seconds = (timevalue - julianDate.julianDay) * 86400.0;
+ julianDate.secondOfDay = (int) lround(seconds);
+ if (julianDate.secondOfDay < 0)
+ {
+ julianDate.julianDay -= 1;
+ julianDate.secondOfDay += 86400.0;
+ };
+ /*
+ {
+ double cval = julianDate.julianDay + julianDate.secondOfDay / 86400.0;
+ if (cval != timevalue) printf("TUNIT_DAY error: %g %g %d %d\n", timevalue, cval, julianDate.julianDay,
+ julianDate.secondOfDay);
+ }
+ */
+ }
+ else
+ {
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ Warning("timeunit %s unsupported!", tunitNamePtr(timeunits));
+ lwarn = false;
+ }
+ }
+
+ return julianDate;
+}
+
+static double
+cdi_encode_timevalue(int days, double secs, int timeunit)
+{
+ double timevalue = 0.0;
+
+ if (timeunit == TUNIT_SECOND)
+ {
+ timevalue = days * 86400.0 + secs;
+ }
+ else if (timeunit == TUNIT_MINUTE || timeunit == TUNIT_QUARTER || timeunit == TUNIT_30MINUTES)
+ {
+ timevalue = days * 1440. + secs / 60.;
+ }
+ else if (timeunit == TUNIT_HOUR || timeunit == TUNIT_3HOURS || timeunit == TUNIT_6HOURS || timeunit == TUNIT_12HOURS)
+ {
+ timevalue = days * 24. + secs / 3600.;
+ }
+ else if (timeunit == TUNIT_DAY)
+ {
+ timevalue = days + secs / 86400.;
+ }
+ else
+ {
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ Warning("timeunit %s unsupported!", tunitNamePtr(timeunit));
+ lwarn = false;
+ }
+ }
+
+ return timevalue;
+}
+
+// convert relative time value to CdiDateTime
+static CdiDateTime
+rtimeval2datetime(double timevalue, const taxis_t *taxis)
+{
+ if (IS_EQUAL(timevalue, 0.0)) return taxis->rDateTime;
+
+ int timeunits = taxis->unit;
+ int calendar = taxis->calendar;
+
+ if (timeunits == TUNIT_MONTH && calendar == CALENDAR_360DAYS)
+ {
+ timeunits = TUNIT_DAY;
+ timevalue *= 30;
+ }
+
+ CdiDateTime rDateTime = taxis->rDateTime;
+
+ if (timeunits == TUNIT_MONTH || timeunits == TUNIT_YEAR)
+ {
+ int year = rDateTime.date.year;
+ int month = rDateTime.date.month;
+
+ if (timeunits == TUNIT_YEAR) timevalue *= 12;
+
+ int nmon = (int) timevalue;
+ double fmon = timevalue - nmon;
+
+ month += nmon;
+
+ struct YearMonth ym = normalize_month(year, month);
+ year = ym.year;
+ month = ym.month;
+
+ timeunits = TUNIT_DAY;
+ timevalue = fmon * days_per_month(calendar, year, month);
+
+ rDateTime.date.year = year;
+ rDateTime.date.month = month;
+ }
+
+ JulianDate julianDate = julianDate_encode(calendar, rDateTime);
+ JulianDate julianDate2 = timevalue_decode(timeunits, timevalue);
+
+ return julianDate_decode(calendar, julianDate_add(julianDate2, julianDate));
+}
+
+// convert CdiDateTime to relative time value
+static double
+datetime2rtimeval(CdiDateTime vDateTime, const taxis_t *taxis)
+{
+ double value = 0.0;
+
+ int calendar = taxis->calendar;
+ int timeunits = taxis->unit;
+ int timeunits0 = timeunits;
+
+ CdiDateTime rDateTime = taxis->rDateTime;
+
+ if (cdiDateTime_isNull(rDateTime)) rDateTime = (*taxis).vDateTime;
+
+ if (cdiDateTime_isNull(rDateTime) && cdiDateTime_isNull(vDateTime)) return value;
+
+ JulianDate julianDate1 = julianDate_encode(calendar, rDateTime);
+
+ if (timeunits == TUNIT_MONTH && calendar == CALENDAR_360DAYS) timeunits = TUNIT_DAY;
+
+ if (timeunits == TUNIT_MONTH || timeunits == TUNIT_YEAR)
+ {
+ int ryear = rDateTime.date.year;
+ int rmonth = rDateTime.date.month;
+ int year = vDateTime.date.year;
+ int month = vDateTime.date.month;
+ value = (year - ryear) * 12 - rmonth + month;
+
+ int nmonth = (int) value;
+ month -= nmonth;
+
+ struct YearMonth ym = normalize_month(year, month);
+ year = ym.year;
+ month = ym.month;
+
+ int dpm = days_per_month(calendar, year, month);
+
+ vDateTime.date.year = year;
+ vDateTime.date.month = month;
+ JulianDate julianDate2 = julianDate_encode(calendar, vDateTime);
+ JulianDate dateDifference = julianDate_sub(julianDate2, julianDate1);
+
+ value += (dateDifference.julianDay + dateDifference.secondOfDay / 86400.0) / dpm;
+ if (timeunits == TUNIT_YEAR) value = value / 12;
+ }
+ else
+ {
+ JulianDate julianDate2 = julianDate_encode(calendar, vDateTime);
+ JulianDate dateDifference = julianDate_sub(julianDate2, julianDate1);
+
+ value = cdi_encode_timevalue(dateDifference.julianDay, dateDifference.secondOfDay, timeunits);
+ }
+
+ if (timeunits0 == TUNIT_MONTH && calendar == CALENDAR_360DAYS) value /= 30.0;
+
+ return value;
+}
+
+// convert absolute seconds to CdiDateTime
+static CdiDateTime
+seconds2datetime(double timevalue)
+{
+ int calendar = CALENDAR_STANDARD;
+ int64_t seconds = (int64_t) timevalue;
+
+ CdiDateTime datetime0;
+ datetime0.date = cdiDate_encode(1, 1, 1);
+ datetime0.time = cdiTime_encode(0, 0, 0, 0);
+ JulianDate julianDate = julianDate_encode(calendar, datetime0);
+
+ return julianDate_decode(calendar, julianDate_add_seconds(julianDate, seconds));
+}
+
+// convert absolute time value to CdiDateTime
+static CdiDateTime
+absTimeval2datetime(double timevalue)
+{
+ int64_t vdate = (int64_t) timevalue;
+ double tmpval = (timevalue - vdate) * 86400.0;
+ int daysec = (vdate < 0) ? (int) (-tmpval + 0.01) : (int) (tmpval + 0.01);
+
+ int year, month, day;
+ cdiDecodeDate(vdate, &year, &month, &day);
+
+ int hour = daysec / 3600;
+ int minute = (daysec - hour * 3600) / 60;
+ int second = daysec - hour * 3600 - minute * 60;
+ int ms = 0;
+
+ CdiDateTime datetime;
+ datetime.date = cdiDate_encode(year, month, day);
+ datetime.time = cdiTime_encode(hour, minute, second, ms);
+
+ return datetime;
+}
+
+static CdiDateTime
+split_timevalue(double timevalue, int timeunit)
+{
+ CdiDateTime datetime;
+ cdiDateTime_init(&datetime);
+
+ if (timeunit == TUNIT_SECOND)
+ {
+ datetime = seconds2datetime(timevalue);
+ }
+ else if (timeunit == TUNIT_HOUR)
+ {
+ timevalue /= 24;
+ datetime = absTimeval2datetime(timevalue);
+ }
+ else if (timeunit == TUNIT_DAY)
+ {
+ datetime = absTimeval2datetime(timevalue);
+ }
+ else if (timeunit == TUNIT_MONTH)
+ {
+ int64_t vdate = (int64_t) timevalue * 100 - ((timevalue < 0) * 2 - 1);
+ datetime.date = cdiDate_set(vdate);
+ }
+ else if (timeunit == TUNIT_YEAR)
+ {
+ {
+ static bool lwarn = true;
+ if (lwarn && (fabs(timevalue - (int64_t) timevalue) > 0))
+ {
+ Warning("Fraction of a year is not supported!!");
+ lwarn = false;
+ }
+ }
+
+ {
+ static bool lwarn = true;
+ if (timevalue < -214700)
+ {
+ if (lwarn)
+ {
+ Warning("Year %g out of range, set to -214700", timevalue);
+ lwarn = false;
+ }
+ timevalue = -214700;
+ }
+ else if (timevalue > 214700)
+ {
+ if (lwarn)
+ {
+ Warning("Year %g out of range, set to 214700", timevalue);
+ lwarn = false;
+ }
+ timevalue = 214700;
+ }
+ }
+
+ int64_t vdate = (int64_t) timevalue * 10000;
+ vdate += (timevalue < 0) ? -101 : 101;
+ datetime.date = cdiDate_set(vdate);
+ }
+ else
+ {
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ Warning("timeunit %s unsupported!", tunitNamePtr(timeunit));
+ lwarn = false;
+ }
+ }
+
+ // verify date and time
+
+ int year, month, day;
+ cdiDate_decode(datetime.date, &year, &month, &day);
+ int hour, minute, second, ms;
+ cdiTime_decode(datetime.time, &hour, &minute, &second, &ms);
+
+ if (month > 17 || day > 31 || hour > 23 || minute > 59 || second > 59)
+ {
+ if ((month > 17 || day > 31) && (year < -9999 || year > 9999)) year = 1;
+ if (month > 17) month = 1;
+ if (day > 31) day = 1;
+ if (hour > 23) hour = 0;
+ if (minute > 59) minute = 0;
+ if (second > 59) second = 0;
+
+ datetime.date = cdiDate_encode(year, month, day);
+ datetime.time = cdiTime_encode(hour, minute, second, ms);
+
+ static bool lwarn = true;
+ if (lwarn)
+ {
+ lwarn = false;
+ Warning("Reset wrong date/time to %4.4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d!", year, month, day, hour, minute, second);
+ }
+ }
+
+ return datetime;
+}
+
+void
+cdi_set_forecast_period(double timevalue, taxis_t *taxis)
+{
+ taxis->fc_period = timevalue;
+
+ int timeunits = taxis->fc_unit;
+ int calendar = taxis->calendar;
+
+ if (cdiDateTime_isNull(taxis->vDateTime) && DBL_IS_EQUAL(timevalue, 0.0)) return;
+
+ if (timeunits == TUNIT_MONTH && calendar == CALENDAR_360DAYS)
+ {
+ timeunits = TUNIT_DAY;
+ timevalue *= 30;
+ }
+
+ CdiDateTime vDateTime = taxis->vDateTime;
+
+ if (timeunits == TUNIT_MONTH || timeunits == TUNIT_YEAR)
+ {
+ int year = vDateTime.date.year;
+ int month = vDateTime.date.month;
+
+ if (timeunits == TUNIT_YEAR) timevalue *= 12;
+
+ int nmon = (int) timevalue;
+ double fmon = timevalue - nmon;
+
+ month -= nmon;
+
+ struct YearMonth ym = normalize_month(year, month);
+ year = ym.year;
+ month = ym.month;
+
+ timeunits = TUNIT_DAY;
+ timevalue = fmon * days_per_month(calendar, year, month);
+
+ vDateTime.date.year = year;
+ vDateTime.date.month = month;
+ }
+
+ JulianDate julianDate = julianDate_encode(calendar, vDateTime);
+ JulianDate julianDate2 = timevalue_decode(timeunits, timevalue);
+
+ taxis->fDateTime = julianDate_decode(calendar, julianDate_sub(julianDate, julianDate2));
+}
+
+CdiDateTime
+cdi_decode_timeval(double timevalue, const taxis_t *taxis)
+{
+ return (taxis->type == TAXIS_ABSOLUTE) ? split_timevalue(timevalue, taxis->unit) : rtimeval2datetime(timevalue, taxis);
+}
+
+static int64_t
+datetime2seconds(CdiDateTime datetime)
+{
+ int calendar = CALENDAR_STANDARD;
+
+ CdiDateTime datetime0;
+ datetime0.date = cdiDate_encode(1, 1, 1);
+ datetime0.time = cdiTime_encode(0, 0, 0, 0);
+ JulianDate julianDate0 = julianDate_encode(calendar, datetime0);
+ JulianDate julianDate = julianDate_encode(calendar, datetime);
+
+ int64_t days = julianDate.julianDay - julianDate0.julianDay;
+ int64_t seconds = days * 86400 + julianDate.secondOfDay;
+
+ return seconds;
+}
+
+double
+cdi_encode_timeval(CdiDateTime datetime, taxis_t *taxis)
+{
+ double timeValue = 0.0;
+
+ if (taxis->type == TAXIS_ABSOLUTE)
+ {
+ if (taxis->unit == TUNIT_YEAR)
+ {
+ timeValue = datetime.date.year;
+ }
+ else if (taxis->unit == TUNIT_MONTH)
+ {
+ int64_t xdate = cdiDate_get(datetime.date);
+ timeValue = xdate / 100 + copysign((double) (datetime.date.day != 0) * 0.5, (double) xdate);
+ }
+ else if (taxis->unit == TUNIT_SECOND)
+ {
+ timeValue = datetime2seconds(datetime);
+ }
+ else
+ {
+ int hour, minute, second, ms;
+ cdiTime_decode(datetime.time, &hour, &minute, &second, &ms);
+ int64_t xdate = cdiDate_get(datetime.date);
+ timeValue = copysign(1.0, (double) xdate) * (fabs((double) xdate) + (hour * 3600 + minute * 60 + second) / 86400.0);
+ }
+ }
+ else
+ timeValue = datetime2rtimeval(datetime, taxis);
+
+ return timeValue;
+}
+
+void
+ptaxisCopy(taxis_t *dest, taxis_t *source)
+{
+ reshLock();
+
+ // memcpy(dest, source, sizeof(taxis_t));
+ dest->datatype = source->datatype;
+ dest->type = source->type;
+ dest->calendar = source->calendar;
+ dest->unit = source->unit;
+ dest->numavg = source->numavg;
+ dest->climatology = source->climatology;
+ dest->hasBounds = source->hasBounds;
+ dest->sDateTime = source->sDateTime;
+ dest->vDateTime = source->vDateTime;
+ dest->rDateTime = source->rDateTime;
+ dest->fDateTime = source->fDateTime;
+ dest->vDateTime_lb = source->vDateTime_lb;
+ dest->vDateTime_ub = source->vDateTime_ub;
+ dest->fc_unit = source->fc_unit;
+ dest->fc_period = source->fc_period;
+
+ dest->climatology = source->climatology;
+ delete_refcount_string(dest->name);
+ delete_refcount_string(dest->longname);
+ delete_refcount_string(dest->units);
+ dest->name = dup_refcount_string(source->name);
+ dest->longname = dup_refcount_string(source->longname);
+ dest->units = dup_refcount_string(source->units);
+ if (dest->self != CDI_UNDEFID) reshSetStatus(dest->self, &taxisOps, RESH_DESYNC_IN_USE);
+
+ reshUnlock();
+}
+
+static void
+taxisPrintKernel(taxis_t *taxisptr, FILE *fp)
+{
+ int vdate_lb, vdate_ub;
+ int vtime_lb, vtime_ub;
+
+ taxisInqVdateBounds(taxisptr->self, &vdate_lb, &vdate_ub);
+ taxisInqVtimeBounds(taxisptr->self, &vtime_lb, &vtime_ub);
+
+ fprintf(fp,
+ "#\n"
+ "# taxisID %d\n"
+ "#\n"
+ "self = %d\n"
+ "type = %d\n"
+ "vdate = %d\n"
+ "vtime = %d\n"
+ "rdate = %d\n"
+ "rtime = %d\n"
+ "fdate = %d\n"
+ "ftime = %d\n"
+ "calendar = %d\n"
+ "unit = %d\n"
+ "numavg = %d\n"
+ "climatology = %d\n"
+ "hasBounds = %d\n"
+ "vdate_lb = %d\n"
+ "vtime_lb = %d\n"
+ "vdate_ub = %d\n"
+ "vtime_ub = %d\n"
+ "fc_unit = %d\n"
+ "fc_period = %g\n"
+ "\n",
+ taxisptr->self, taxisptr->self, taxisptr->type, (int) cdiDate_get(taxisptr->vDateTime.date),
+ cdiTime_get(taxisptr->vDateTime.time), (int) cdiDate_get(taxisptr->rDateTime.date), cdiTime_get(taxisptr->rDateTime.time),
+ (int) cdiDate_get(taxisptr->fDateTime.date), cdiTime_get(taxisptr->fDateTime.time), taxisptr->calendar, taxisptr->unit,
+ taxisptr->numavg, (int) taxisptr->climatology, (int) taxisptr->hasBounds, vdate_lb, vtime_lb, vdate_ub, vtime_ub,
+ taxisptr->fc_unit, taxisptr->fc_period);
+}
+
+static int
+taxisCompareP(void *taxisptr1, void *taxisptr2)
+{
+ const taxis_t *t1 = (const taxis_t *) taxisptr1, *t2 = (const taxis_t *) taxisptr2;
+
+ xassert(t1 && t2);
+
+ return !(t1->type == t2->type && cdiDateTime_isEQ(t1->vDateTime, t2->vDateTime) && cdiDateTime_isEQ(t1->rDateTime, t2->rDateTime)
+ && cdiDateTime_isEQ(t1->fDateTime, t2->fDateTime) && t1->calendar == t2->calendar && t1->unit == t2->unit
+ && t1->fc_unit == t2->fc_unit && IS_EQUAL(t1->fc_period, t2->fc_period) && t1->numavg == t2->numavg
+ && t1->climatology == t2->climatology && t1->hasBounds == t2->hasBounds
+ && cdiDateTime_isEQ(t1->vDateTime_lb, t2->vDateTime_lb) && cdiDateTime_isEQ(t1->vDateTime_ub, t2->vDateTime_ub));
+}
+
+static int
+taxisTxCode(void *taxisptr)
+{
+ (void) taxisptr;
+ return TAXIS;
+}
+
+enum
+{
+ TAXIS_PACK_INT_SELF,
+ TAXIS_PACK_INT_TYPE,
+ TAXIS_PACK_INT_VDATE,
+ TAXIS_PACK_INT_VTIME,
+ TAXIS_PACK_INT_RDATE,
+ TAXIS_PACK_INT_RTIME,
+ TAXIS_PACK_INT_FDATE,
+ TAXIS_PACK_INT_FTIME,
+ TAXIS_PACK_INT_CALENDAR,
+ TAXIS_PACK_INT_UNIT,
+ TAXIS_PACK_INT_FC_UNIT,
+ TAXIS_PACK_INT_NUMAVG,
+ TAXIS_PACK_INT_CLIMATOLOGY,
+ TAXIS_PACK_INT_HAS_BOUNDS,
+ TAXIS_PACK_INT_VDATE_LB,
+ TAXIS_PACK_INT_VDATE_UB,
+ TAXIS_PACK_INT_VTIME_LB,
+ TAXIS_PACK_INT_VTIME_UB,
+ TAXIS_PACK_INT_NAMELEN,
+ TAXIS_PACK_INT_LNAMELEN,
+ TAXIS_PACK_INT_UNITSLEN,
+ taxisNint
+};
+
+enum
+{
+ TAXIS_PACK_FC_PERIOD,
+ taxisNdouble
+};
+
+static int
+taxisGetPackSize(void *p, void *context)
+{
+ taxis_t *taxisptr = (taxis_t *) p;
+ int packBufferSize = serializeGetSize(taxisNint, CDI_DATATYPE_INT, context)
+ + serializeGetSize(taxisNdouble, CDI_DATATYPE_FLT64, context)
+ + (taxisptr->name ? serializeGetSize((int) strlen(taxisptr->name), CDI_DATATYPE_TXT, context) : 0)
+ + (taxisptr->longname ? serializeGetSize((int) strlen(taxisptr->longname), CDI_DATATYPE_TXT, context) : 0)
+ + (taxisptr->units ? serializeGetSize((int) strlen(taxisptr->units), CDI_DATATYPE_TXT, context) : 0)
+ + serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+ return packBufferSize;
+}
+
+int
+taxisUnpack(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context, int force_id)
+{
+#define adaptKey(key) (namespaceAdaptKey((key), originNamespace))
+ taxis_t *taxisP;
+ int intBuffer[taxisNint];
+ double dblBuffer[taxisNdouble];
+ uint32_t d;
+
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, intBuffer, taxisNint, CDI_DATATYPE_INT, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, dblBuffer, taxisNdouble, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+
+ xassert(cdiCheckSum(CDI_DATATYPE_INT, taxisNint, intBuffer) == d);
+
+ cdiResH targetID = force_id ? adaptKey(intBuffer[TAXIS_PACK_INT_SELF]) : CDI_UNDEFID;
+ taxisP = taxisNewEntry(targetID);
+
+ xassert(!force_id || targetID == taxisP->self);
+
+ taxisP->type = intBuffer[TAXIS_PACK_INT_TYPE];
+ taxisP->vDateTime.date = cdiDate_set(intBuffer[TAXIS_PACK_INT_VDATE]);
+ taxisP->vDateTime.time = cdiTime_set(intBuffer[TAXIS_PACK_INT_VTIME]);
+ taxisP->rDateTime.date = cdiDate_set(intBuffer[TAXIS_PACK_INT_RDATE]);
+ taxisP->rDateTime.time = cdiTime_set(intBuffer[TAXIS_PACK_INT_RTIME]);
+ taxisP->fDateTime.date = cdiDate_set(intBuffer[TAXIS_PACK_INT_FDATE]);
+ taxisP->fDateTime.time = cdiTime_set(intBuffer[TAXIS_PACK_INT_FTIME]);
+ taxisP->calendar = intBuffer[TAXIS_PACK_INT_CALENDAR];
+ taxisP->unit = intBuffer[TAXIS_PACK_INT_UNIT];
+ taxisP->fc_unit = intBuffer[TAXIS_PACK_INT_FC_UNIT];
+ taxisP->numavg = intBuffer[TAXIS_PACK_INT_NUMAVG];
+ taxisP->climatology = intBuffer[TAXIS_PACK_INT_CLIMATOLOGY];
+ taxisP->hasBounds = (bool) intBuffer[TAXIS_PACK_INT_HAS_BOUNDS];
+ taxisP->vDateTime_lb.date = cdiDate_set(intBuffer[TAXIS_PACK_INT_VDATE_LB]);
+ taxisP->vDateTime_lb.time = cdiTime_set(intBuffer[TAXIS_PACK_INT_VDATE_UB]);
+ taxisP->vDateTime_ub.date = cdiDate_set(intBuffer[TAXIS_PACK_INT_VTIME_LB]);
+ taxisP->vDateTime_ub.time = cdiTime_set(intBuffer[TAXIS_PACK_INT_VTIME_UB]);
+ taxisP->fc_period = dblBuffer[TAXIS_PACK_FC_PERIOD];
+ if (intBuffer[TAXIS_PACK_INT_NAMELEN])
+ {
+ int len = intBuffer[TAXIS_PACK_INT_NAMELEN];
+ char *name = new_refcount_string((size_t) len);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, name, len, CDI_DATATYPE_TXT, context);
+ name[len] = '\0';
+ taxisP->name = name;
+ }
+ if (intBuffer[TAXIS_PACK_INT_LNAMELEN])
+ {
+ int len = intBuffer[TAXIS_PACK_INT_LNAMELEN];
+ char *longname = new_refcount_string((size_t) len);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, longname, len, CDI_DATATYPE_TXT, context);
+ longname[len] = '\0';
+ taxisP->longname = longname;
+ }
+ if (intBuffer[TAXIS_PACK_INT_UNITSLEN])
+ {
+ int len = intBuffer[TAXIS_PACK_INT_UNITSLEN];
+ char *units = new_refcount_string((size_t) len);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, units, len, CDI_DATATYPE_TXT, context);
+ units[len] = '\0';
+ taxisP->units = units;
+ }
+
+ reshSetStatus(taxisP->self, &taxisOps, reshGetStatus(taxisP->self, &taxisOps) & ~RESH_SYNC_BIT);
+#undef adaptKey
+
+ return taxisP->self;
+}
+
+static void
+taxisPack(void *voidP, void *packBuffer, int packBufferSize, int *packBufferPos, void *context)
+{
+ taxis_t *taxisP = (taxis_t *) voidP;
+ int nameLen, lnameLen, unitsLen;
+ uint32_t d;
+
+ {
+ int intBuffer[taxisNint];
+ intBuffer[TAXIS_PACK_INT_SELF] = taxisP->self;
+ intBuffer[TAXIS_PACK_INT_TYPE] = taxisP->type;
+ intBuffer[TAXIS_PACK_INT_VDATE] = (int) cdiDate_get(taxisP->vDateTime.date);
+ intBuffer[TAXIS_PACK_INT_VTIME] = cdiTime_get(taxisP->vDateTime.time);
+ intBuffer[TAXIS_PACK_INT_RDATE] = (int) cdiDate_get(taxisP->rDateTime.date);
+ intBuffer[TAXIS_PACK_INT_RTIME] = cdiTime_get(taxisP->rDateTime.time);
+ intBuffer[TAXIS_PACK_INT_FDATE] = (int) cdiDate_get(taxisP->fDateTime.date);
+ intBuffer[TAXIS_PACK_INT_FTIME] = cdiTime_get(taxisP->fDateTime.time);
+ intBuffer[TAXIS_PACK_INT_CALENDAR] = taxisP->calendar;
+ intBuffer[TAXIS_PACK_INT_UNIT] = taxisP->unit;
+ intBuffer[TAXIS_PACK_INT_FC_UNIT] = taxisP->fc_unit;
+ intBuffer[TAXIS_PACK_INT_NUMAVG] = taxisP->numavg;
+ intBuffer[TAXIS_PACK_INT_CLIMATOLOGY] = taxisP->climatology;
+ intBuffer[TAXIS_PACK_INT_HAS_BOUNDS] = taxisP->hasBounds;
+ intBuffer[TAXIS_PACK_INT_VDATE_LB] = (int) cdiDate_get(taxisP->vDateTime_lb.date);
+ intBuffer[TAXIS_PACK_INT_VDATE_UB] = cdiTime_get(taxisP->vDateTime_lb.time);
+ intBuffer[TAXIS_PACK_INT_VTIME_LB] = (int) cdiDate_get(taxisP->vDateTime_ub.date);
+ intBuffer[TAXIS_PACK_INT_VTIME_UB] = cdiTime_get(taxisP->vDateTime_ub.time);
+ intBuffer[TAXIS_PACK_INT_NAMELEN] = nameLen = taxisP->name ? (int) strlen(taxisP->name) : 0;
+ intBuffer[TAXIS_PACK_INT_LNAMELEN] = lnameLen = taxisP->longname ? (int) strlen(taxisP->longname) : 0;
+ intBuffer[TAXIS_PACK_INT_UNITSLEN] = unitsLen = taxisP->units ? (int) strlen(taxisP->units) : 0;
+ serializePack(intBuffer, taxisNint, CDI_DATATYPE_INT, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_INT, taxisNint, intBuffer);
+ }
+
+ {
+ double dblBuffer[taxisNdouble];
+ dblBuffer[TAXIS_PACK_FC_PERIOD] = taxisP->fc_period;
+ serializePack(dblBuffer, taxisNdouble, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ }
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ if (taxisP->name) serializePack(taxisP->name, nameLen, CDI_DATATYPE_TXT, packBuffer, packBufferSize, packBufferPos, context);
+ if (taxisP->longname)
+ serializePack(taxisP->longname, lnameLen, CDI_DATATYPE_TXT, packBuffer, packBufferSize, packBufferPos, context);
+ if (taxisP->units) serializePack(taxisP->units, unitsLen, CDI_DATATYPE_TXT, packBuffer, packBufferSize, packBufferPos, context);
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <limits.h>
+
+
+static void
+tstepsInitEntry(tsteps_t *tstep)
+{
+ tstep->recIDs = NULL;
+ tstep->records = NULL;
+ tstep->recordSize = 0;
+ tstep->nrecs = 0;
+ tstep->curRecID = CDI_UNDEFID;
+ tstep->ncStepIndex = 0;
+ tstep->position = 0;
+ tstep->nallrecs = 0;
+ tstep->next = 0;
+
+ ptaxisInit(&(tstep->taxis));
+}
+
+int
+tstepsNewEntry(stream_t *streamptr)
+{
+ const int tsID = streamptr->tstepsNextID++;
+ int tstepsTableSize = streamptr->tstepsTableSize;
+ tsteps_t *tstepsTable = streamptr->tsteps;
+
+ // If the table overflows, double its size.
+ if (tsID == tstepsTableSize)
+ {
+ if (tstepsTableSize == 0) tstepsTableSize = 1;
+ if (tstepsTableSize <= INT_MAX / 2)
+ tstepsTableSize *= 2;
+ else if (tstepsTableSize < INT_MAX)
+ tstepsTableSize = INT_MAX;
+ else
+ Error("Resizing of tstep table failed!");
+
+ tstepsTable = (tsteps_t *) Realloc(tstepsTable, (size_t) tstepsTableSize * sizeof(tsteps_t));
+ }
+
+ streamptr->tstepsTableSize = tstepsTableSize;
+ streamptr->tsteps = tstepsTable;
+
+ tsteps_t *curTstep = &streamptr->tsteps[tsID];
+ tstepsInitEntry(curTstep);
+
+ return tsID;
+}
+
+void
+cdi_create_timesteps(int numTimesteps, stream_t *streamptr)
+{
+ streamptr->ntsteps = (long) numTimesteps;
+ if (numTimesteps < 0 || streamptr->tstepsTableSize > 0) return;
+
+ int ntsteps = (numTimesteps == 0) ? 1 : numTimesteps;
+
+ streamptr->tsteps = (tsteps_t *) Malloc((size_t) ntsteps * sizeof(tsteps_t));
+
+ streamptr->tstepsTableSize = ntsteps;
+ streamptr->tstepsNextID = ntsteps;
+
+ for (int tsID = 0; tsID < ntsteps; tsID++)
+ {
+ tstepsInitEntry(&streamptr->tsteps[tsID]);
+ }
+}
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#define _XOPEN_SOURCE 600
+
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+
+static const char uuidFmt[] = "%02hhx%02hhx%02hhx%02hhx-"
+ "%02hhx%02hhx-%02hhx%02hhx-%02hhx%02hhx-"
+ "%02hhx%02hhx%02hhx%02hhx%02hhx%02hhx";
+
+int
+cdiUUID2Str(const unsigned char *uuid, char *uuidstr)
+{
+ if (uuid == NULL || uuidstr == NULL) return 0;
+
+ int iret = snprintf(uuidstr, uuidNumHexChars + 1, uuidFmt, uuid[0], uuid[1], uuid[2], uuid[3], uuid[4], uuid[5], uuid[6], uuid[7],
+ uuid[8], uuid[9], uuid[10], uuid[11], uuid[12], uuid[13], uuid[14], uuid[15]);
+
+ if (iret != uuidNumHexChars)
+ {
+ uuidstr[0] = 0;
+ iret = -1;
+ }
+
+ return iret;
+}
+
+int
+cdiStr2UUID(const char *uuidstr, unsigned char *uuid)
+{
+ if (uuid == NULL || uuidstr == NULL || strlen(uuidstr) != uuidNumHexChars) return -1;
+
+ int iret = sscanf(uuidstr, uuidFmt, &uuid[0], &uuid[1], &uuid[2], &uuid[3], &uuid[4], &uuid[5], &uuid[6], &uuid[7], &uuid[8],
+ &uuid[9], &uuid[10], &uuid[11], &uuid[12], &uuid[13], &uuid[14], &uuid[15]);
+ if (iret != CDI_UUID_SIZE) return -1;
+
+ return iret;
+}
+
+// Returns a malloc'ed string that escapes all spaces and backslashes with backslashes.
+char *
+cdiEscapeSpaces(const char *string)
+{
+ // How much memory do we need?
+ size_t escapeCount = 0, length = 0;
+ for (; string[length]; ++length) escapeCount += string[length] == ' ' || string[length] == '\\';
+
+ char *result = (char *) Malloc(length + escapeCount + 1);
+ if (!result) return NULL;
+
+ // Do the escaping.
+ for (size_t in = 0, out = 0; in < length; ++out, ++in)
+ {
+ if (string[in] == ' ' || string[in] == '\\') result[out++] = '\\';
+ result[out] = string[in];
+ }
+ result[length + escapeCount] = 0; // termination!
+ return result;
+}
+
+// input: a space terminated string that may contain escaped characters
+// output: a new zero terminated string with the escape characters removed
+//*outStringEnd points to the terminating character upon return.
+char *
+cdiUnescapeSpaces(const char *string, const char **outStringEnd)
+{
+ // How much memory do we need?
+ size_t escapeCount = 0, length = 0;
+ for (const char *current = string; *current && *current != ' '; current++)
+ {
+ if (*current == '\\')
+ {
+ current++, escapeCount++;
+ if (!current) return NULL;
+ }
+ length++;
+ }
+
+ char *result = (char *) Malloc(length + 1);
+ if (!result) return NULL;
+
+ // Do the unescaping.
+ for (size_t in = 0, out = 0; out < length;)
+ {
+ if (string[in] == '\\') in++;
+ result[out++] = string[in++];
+ }
+ result[length] = 0; // termination!
+ if (outStringEnd) *outStringEnd = &string[length + escapeCount];
+ return result;
+}
+
+#if defined(HAVE_DECL_UUID_GENERATE) && defined(HAVE_UUID_UUID_H)
+#ifdef HAVE_SYS_TIME_H
+#include <sys/time.h>
+#endif
+#include <uuid/uuid.h>
+void
+cdiCreateUUID(unsigned char uuid[CDI_UUID_SIZE])
+{
+ static int uuid_seeded = 0;
+ static char uuid_rand_state[31 * sizeof(long)];
+ char *caller_rand_state;
+ if (uuid_seeded)
+ caller_rand_state = setstate(uuid_rand_state);
+ else
+ {
+ struct timeval tv;
+ int status = gettimeofday(&tv, NULL);
+ if (status != 0)
+ {
+ perror("uuid random seed generation failed!");
+ exit(1);
+ }
+ unsigned seed = (unsigned) (tv.tv_sec ^ tv.tv_usec);
+ caller_rand_state = initstate(seed, uuid_rand_state, sizeof(uuid_rand_state));
+ uuid_seeded = 1;
+ }
+ uuid_generate(uuid);
+ setstate(caller_rand_state);
+}
+#elif defined(HAVE_DECL_UUID_CREATE) && defined(HAVE_UUID_H)
+#ifdef HAVE_DECL_UUID_MAKE_V5
+#include <uuid.h>
+void
+cdiCreateUUID(unsigned char *uuid)
+{
+ static const char error_stage[][16]
+ = { "uuid_create", "uuid_create", "uuid_load", "uuid_make", "uuid_export", "uuid_destroy1", "uuid_destroy2" };
+ uuid_t *objuuid = NULL, *nsuuid = NULL;
+ int stage = 0;
+ uuid_rc_t status;
+ if ((status = uuid_create(&objuuid)) == UUID_RC_OK)
+ {
+ ++stage;
+ if ((status = uuid_create(&nsuuid)) == UUID_RC_OK)
+ {
+ ++stage;
+ if ((status = uuid_load(nsuuid, "ns:OID")) == UUID_RC_OK)
+ {
+ ++stage;
+ if ((status = uuid_make(objuuid, UUID_MAKE_V5, nsuuid, cdiLibraryVersion())) == UUID_RC_OK)
+ {
+ ++stage;
+ size_t datalen = CDI_UUID_SIZE;
+ status = uuid_export(objuuid, UUID_FMT_BIN, &uuid, &datalen);
+ }
+ }
+ }
+ }
+ if (status != UUID_RC_OK) Error("failed to generate UUID at stage %s\n", error_stage[stage]);
+ stage = 5;
+ if ((status = uuid_destroy(nsuuid)) != UUID_RC_OK) Error("failed to generate UUID at stage %s\n", error_stage[stage]);
+ ++stage;
+ if ((status = uuid_destroy(objuuid)) != UUID_RC_OK) Error("failed to generate UUID at stage %s\n", error_stage[stage]);
+}
+#else
+#include <inttypes.h>
+typedef uint8_t u_int8_t;
+typedef uint16_t u_int16_t;
+typedef uint32_t u_int32_t;
+#include <uuid.h>
+void
+cdiCreateUUID(unsigned char *uuid)
+{
+ uint32_t status;
+ uuid_create((uuid_t *) (void *) uuid, &status);
+ if (status != uuid_s_ok)
+ {
+ perror("uuid generation failed!");
+ exit(1);
+ }
+}
+#endif
+#else
+#ifdef HAVE_SYS_TIME_H
+#include <sys/time.h>
+#endif
+void
+cdiCreateUUID(unsigned char *uuid)
+{
+ static int uuid_seeded = 0;
+#ifndef _SX
+ static char uuid_rand_state[31 * sizeof(long)];
+ char *caller_rand_state;
+ if (uuid_seeded)
+ caller_rand_state = setstate(uuid_rand_state);
+ else
+ {
+#ifdef HAVE_SYS_TIME_H
+ struct timeval tv;
+ int status = gettimeofday(&tv, NULL);
+ if (status != 0)
+ {
+ perror("failed seed generation!");
+ exit(1);
+ }
+ unsigned seed = tv.tv_sec ^ tv.tv_usec;
+#else
+ unsigned seed = 0;
+#endif
+ caller_rand_state = initstate(seed, uuid_rand_state, sizeof(uuid_rand_state));
+ uuid_seeded = 1;
+ }
+ for (size_t i = 0; i < CDI_UUID_SIZE; ++i) uuid[i] = (unsigned char) random();
+#else
+ unsigned short caller_rand_state[3];
+ {
+ static unsigned short our_rand_state[3];
+ if (!uuid_seeded)
+ {
+#ifdef HAVE_SYS_TIME_H
+ struct timeval tv;
+ int status = gettimeofday(&tv, NULL);
+ if (status != 0)
+ {
+ perror("failed seed generation!");
+ exit(1);
+ }
+ unsigned seed = tv.tv_sec ^ tv.tv_usec;
+#else
+ unsigned seed = 0;
+#endif
+ our_rand_state[0] = 0x330E;
+ our_rand_state[1] = (unsigned short) (seed & 0xFFFFU);
+ our_rand_state[2] = (unsigned short) ((seed >> 16) & 0xFFFFU);
+ }
+ unsigned short *p = seed48(our_rand_state);
+ uuid_seeded = 1;
+ memcpy(caller_rand_state, p, sizeof(caller_rand_state));
+ }
+ for (size_t i = 0; i < CDI_UUID_SIZE; ++i) uuid[i] = (unsigned char) lrand48();
+#endif
+ /* encode variant into msb of octet 8 */
+ uuid[8] = (unsigned char) ((uuid[8] & 0x3f) | (1 << 7));
+ /* encode version 4 ((pseudo-)random uuid) into msb of octet 7 */
+ uuid[7] = (unsigned char) ((uuid[7] & 0x0f) | (4 << 4));
+#ifndef _SX
+ setstate(caller_rand_state);
+#else
+ seed48(caller_rand_state);
+#endif
+}
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+static size_t Vctsize = 0;
+static double *Vct = NULL;
+
+static int numberOfVerticalLevels = 0;
+static int numberOfVerticalGrid = 0;
+static unsigned char uuidVGrid[CDI_UUID_SIZE];
+
+typedef struct
+{
+ int level1;
+ int level2;
+ int recID;
+ int lindex;
+} leveltable_t;
+
+typedef struct
+{
+ int subtypeIndex; // corresponding tile in subtype_t structure (subtype->self)
+ int nlevels;
+ int levelTableSize;
+ leveltable_t *levelTable;
+} subtypetable_t;
+
+typedef struct
+{
+ int varID;
+ int param;
+ int prec;
+ int tsteptype;
+ VarScanKeys scanKeys;
+ int gridID;
+ int zaxistype;
+ int ltype1; // GRIB first level type
+ int ltype2; // GRIB second level type
+ int hasBounds;
+ int level_sf;
+ int level_unit;
+ int zaxisID;
+
+ int nsubtypes_alloc;
+ int nsubtypes;
+ subtypetable_t *recordTable; // ~ two-dimensional record list [nsubtypes_alloc][levelTableSize]
+
+ int instID;
+ int modelID;
+ int tableID;
+ int comptype; // compression type
+ int complevel; // compression level
+ bool lmissval;
+ double missval;
+ char *name;
+
+ // meta-data for specification of tiles (currently only GRIB-API:
+ subtype_t *tiles;
+
+ cdi_keys_t keys;
+
+ int opt_grib_nentries; // current no. key-value pairs
+ int opt_grib_kvpair_size; // current allocated size
+ opt_key_val_pair_t *opt_grib_kvpair; // (optional) list of keyword/value pairs
+} vartable_t;
+
+static vartable_t *vartable;
+static int varTableSize = 0;
+static int varTableUsed = 0;
+
+static void
+paramInitEntry(int varID, int param)
+{
+ vartable[varID].varID = varID;
+ vartable[varID].param = param;
+ vartable[varID].prec = 0;
+ vartable[varID].tsteptype = TSTEP_INSTANT;
+ varScanKeysInit(&vartable[varID].scanKeys);
+ vartable[varID].gridID = CDI_UNDEFID;
+ vartable[varID].zaxistype = 0;
+ vartable[varID].ltype1 = 0;
+ vartable[varID].ltype2 = -1;
+ vartable[varID].hasBounds = 0;
+ vartable[varID].level_sf = 0;
+ vartable[varID].level_unit = 0;
+ vartable[varID].recordTable = NULL;
+ vartable[varID].nsubtypes_alloc = 0;
+ vartable[varID].nsubtypes = 0;
+ vartable[varID].instID = CDI_UNDEFID;
+ vartable[varID].modelID = CDI_UNDEFID;
+ vartable[varID].tableID = CDI_UNDEFID;
+ cdiInitKeys(&vartable[varID].keys);
+ vartable[varID].comptype = CDI_COMPRESS_NONE;
+ vartable[varID].complevel = 1;
+ vartable[varID].lmissval = false;
+ vartable[varID].missval = 0;
+ vartable[varID].name = NULL;
+ vartable[varID].tiles = NULL;
+}
+
+// Test if a variable specified by the given meta-data has already been registered in "vartable".
+static int
+varGetEntry(int param, int gridID, int zaxistype, int ltype1, int tsteptype, const char *name, const VarScanKeys *scanKeys,
+ const var_tile_t *tiles)
+{
+ for (int varID = 0; varID < varTableSize; ++varID)
+ {
+ // testing for "param" implicitly checks if we are beyond the current vartable size:
+ if (vartable[varID].param == param)
+ {
+ int no_of_tiles = tiles ? tiles->numberOfTiles : -1;
+ int vt_no_of_tiles
+ = vartable[varID].tiles ? subtypeGetGlobalDataP(vartable[varID].tiles, SUBTYPE_ATT_NUMBER_OF_TILES) : -1;
+ if ((vartable[varID].zaxistype == zaxistype) && (vartable[varID].ltype1 == ltype1)
+ && (vartable[varID].tsteptype == tsteptype)
+ && (scanKeys == NULL || varScanKeysIsEqual(&vartable[varID].scanKeys, scanKeys)) && (vartable[varID].gridID == gridID)
+ && (vt_no_of_tiles == no_of_tiles))
+ {
+ if (name && name[0] && vartable[varID].name && vartable[varID].name[0])
+ {
+ if (str_is_equal(name, vartable[varID].name)) return varID;
+ }
+ else
+ {
+ return varID;
+ }
+ }
+ }
+ }
+
+ return -1;
+}
+
+static void
+varFree(void)
+{
+ if (CDI_Debug) Message("call to varFree");
+
+ for (int varID = 0; varID < varTableUsed; ++varID)
+ {
+ if (vartable[varID].recordTable)
+ {
+ for (int isub = 0; isub < vartable[varID].nsubtypes_alloc; isub++) Free(vartable[varID].recordTable[isub].levelTable);
+ Free(vartable[varID].recordTable);
+ }
+
+ if (vartable[varID].name) Free(vartable[varID].name);
+ if (vartable[varID].tiles) subtypeDestroyPtr(vartable[varID].tiles);
+
+ cdi_keys_t *keysp = &(vartable[varID].keys);
+ cdiDeleteVarKeys(keysp);
+
+ if (vartable[varID].opt_grib_kvpair)
+ {
+ for (int i = 0; i < vartable[varID].opt_grib_nentries; i++)
+ {
+ if (vartable[varID].opt_grib_kvpair[i].keyword) Free(vartable[varID].opt_grib_kvpair[i].keyword);
+ }
+ Free(vartable[varID].opt_grib_kvpair);
+ }
+ vartable[varID].opt_grib_nentries = 0;
+ vartable[varID].opt_grib_kvpair_size = 0;
+ vartable[varID].opt_grib_kvpair = NULL;
+ }
+
+ if (vartable) Free(vartable);
+ vartable = NULL;
+ varTableSize = 0;
+ varTableUsed = 0;
+
+ if (Vct) Free(Vct);
+ Vct = NULL;
+ Vctsize = 0;
+}
+
+// Search for a tile subtype with subtypeIndex == tile_index.
+static int
+tileGetEntry(int varID, int tile_index)
+{
+ for (int isub = 0; isub < vartable[varID].nsubtypes; isub++)
+ if (vartable[varID].recordTable[isub].subtypeIndex == tile_index) return isub;
+ return CDI_UNDEFID;
+}
+
+/* Resizes vartable:recordTable data structure, if necessary. */
+static int
+tileNewEntry(int varID)
+{
+ int tileID = 0;
+ if (vartable[varID].nsubtypes_alloc == 0)
+ {
+ /* create table for the first time. */
+ vartable[varID].nsubtypes_alloc = 2;
+ vartable[varID].nsubtypes = 0;
+ vartable[varID].recordTable = (subtypetable_t *) Malloc((size_t) vartable[varID].nsubtypes_alloc * sizeof(subtypetable_t));
+ if (vartable[varID].recordTable == NULL) SysError("Allocation of leveltable failed!");
+
+ for (int isub = 0; isub < vartable[varID].nsubtypes_alloc; isub++)
+ {
+ vartable[varID].recordTable[isub].levelTable = NULL;
+ vartable[varID].recordTable[isub].levelTableSize = 0;
+ vartable[varID].recordTable[isub].nlevels = 0;
+ vartable[varID].recordTable[isub].subtypeIndex = CDI_UNDEFID;
+ }
+ }
+ else
+ {
+ /* data structure large enough; find a free entry. */
+ while (tileID < vartable[varID].nsubtypes_alloc)
+ {
+ if (vartable[varID].recordTable[tileID].levelTable == NULL) break;
+ tileID++;
+ }
+ }
+
+ /* If the table overflows, double its size. */
+ if (tileID == vartable[varID].nsubtypes_alloc)
+ {
+ tileID = vartable[varID].nsubtypes_alloc;
+ vartable[varID].nsubtypes_alloc *= 2;
+ vartable[varID].recordTable = (subtypetable_t *) Realloc(vartable[varID].recordTable,
+ (size_t) vartable[varID].nsubtypes_alloc * sizeof(subtypetable_t));
+ if (vartable[varID].recordTable == NULL) SysError("Reallocation of leveltable failed");
+ for (int isub = tileID; isub < vartable[varID].nsubtypes_alloc; isub++)
+ {
+ vartable[varID].recordTable[isub].levelTable = NULL;
+ vartable[varID].recordTable[isub].levelTableSize = 0;
+ vartable[varID].recordTable[isub].nlevels = 0;
+ vartable[varID].recordTable[isub].subtypeIndex = CDI_UNDEFID;
+ }
+ }
+
+ return tileID;
+}
+
+static int
+levelNewEntry(int varID, int level1, int level2, int tileID)
+{
+ int levelID = 0;
+ int levelTableSize = vartable[varID].recordTable[tileID].levelTableSize;
+ leveltable_t *levelTable = vartable[varID].recordTable[tileID].levelTable;
+
+ // Look for a free slot in levelTable. (Create the table the first time through).
+ if (!levelTableSize)
+ {
+ levelTableSize = 2;
+ levelTable = (leveltable_t *) Malloc((size_t) levelTableSize * sizeof(leveltable_t));
+ for (int i = 0; i < levelTableSize; i++) levelTable[i].recID = CDI_UNDEFID;
+ }
+ else
+ {
+ while (levelID < levelTableSize && levelTable[levelID].recID != CDI_UNDEFID) ++levelID;
+ }
+
+ // If the table overflows, double its size.
+ if (levelID == levelTableSize)
+ {
+ levelTable = (leveltable_t *) Realloc(levelTable, (size_t) (levelTableSize *= 2) * sizeof(leveltable_t));
+ for (int i = levelID; i < levelTableSize; i++) levelTable[i].recID = CDI_UNDEFID;
+ }
+
+ levelTable[levelID].level1 = level1;
+ levelTable[levelID].level2 = level2;
+ levelTable[levelID].lindex = levelID;
+
+ vartable[varID].recordTable[tileID].nlevels = levelID + 1;
+ vartable[varID].recordTable[tileID].levelTableSize = levelTableSize;
+ vartable[varID].recordTable[tileID].levelTable = levelTable;
+
+ return levelID;
+}
+
+#define UNDEF_PARAM -4711
+
+static int
+paramNewEntry(int param)
+{
+ int varID = 0;
+
+ // Look for a free slot in vartable. (Create the table the first time through).
+ if (!varTableSize)
+ {
+ varTableSize = 2;
+ vartable = (vartable_t *) Malloc((size_t) varTableSize * sizeof(vartable_t));
+ if (vartable == NULL)
+ {
+ Message("varTableSize = %d", varTableSize);
+ SysError("Allocation of vartable failed");
+ }
+
+ for (int i = 0; i < varTableSize; i++)
+ {
+ vartable[i].param = UNDEF_PARAM;
+ vartable[i].opt_grib_kvpair = NULL;
+ vartable[i].opt_grib_kvpair_size = 0;
+ vartable[i].opt_grib_nentries = 0;
+ }
+ }
+ else
+ {
+ while (varID < varTableSize)
+ {
+ if (vartable[varID].param == UNDEF_PARAM) break;
+ varID++;
+ }
+ }
+
+ // If the table overflows, double its size.
+ if (varID == varTableSize)
+ {
+ vartable = (vartable_t *) Realloc(vartable, (size_t) (varTableSize *= 2) * sizeof(vartable_t));
+ for (int i = varID; i < varTableSize; i++)
+ {
+ vartable[i].param = UNDEF_PARAM;
+ vartable[i].opt_grib_kvpair = NULL;
+ vartable[i].opt_grib_kvpair_size = 0;
+ vartable[i].opt_grib_nentries = 0;
+ }
+ }
+
+ paramInitEntry(varID, param);
+
+ return varID;
+}
+
+// Append tile set to a subtype. Return index of the new tile (i.e. the "entry->self" value).
+static int
+varInsertTileSubtype(vartable_t *vptr, const var_tile_t *tiles)
+{
+ if (tiles == NULL) return 0;
+
+ // first, generate a subtype based on the info in "tiles".
+ subtype_t *subtype_ptr;
+ subtypeAllocate(&subtype_ptr, SUBTYPE_TILES);
+ subtypeDefGlobalDataP(subtype_ptr, SUBTYPE_ATT_TOTALNO_OF_TILEATTR_PAIRS, tiles->totalno_of_tileattr_pairs);
+ subtypeDefGlobalDataP(subtype_ptr, SUBTYPE_ATT_TILE_CLASSIFICATION, tiles->tileClassification);
+ subtypeDefGlobalDataP(subtype_ptr, SUBTYPE_ATT_NUMBER_OF_TILES, tiles->numberOfTiles);
+
+ // Here, we create a tile set for comparison that contains only one tile/attribute pair (based on "tiles").
+ struct subtype_entry_t *entry = subtypeEntryInsert(subtype_ptr);
+ subtypeDefEntryDataP(entry, SUBTYPE_ATT_NUMBER_OF_ATTR, tiles->numberOfAttributes);
+ subtypeDefEntryDataP(entry, SUBTYPE_ATT_TILEINDEX, tiles->tileindex);
+ subtypeDefEntryDataP(entry, SUBTYPE_ATT_TILEATTRIBUTE, tiles->attribute);
+
+ if (vptr->tiles == NULL)
+ {
+ vptr->tiles = subtype_ptr;
+ return 0;
+ }
+ else
+ {
+ tilesetInsertP(vptr->tiles, subtype_ptr);
+ subtypeDestroyPtr(subtype_ptr);
+ return vptr->tiles->nentries - 1;
+ }
+}
+
+void
+varAddRecord(int recID, int param, int gridID, int zaxistype, int hasBounds, int level1, int level2, int level_sf, int level_unit,
+ int prec, int *pvarID, int *plevelID, int tsteptype, int ltype1, int ltype2, const char *name,
+ const VarScanKeys *scanKeys, const var_tile_t *tiles, int *tile_index)
+{
+ int varID = (CDI_Split_Ltype105 != 1 || zaxistype != ZAXIS_HEIGHT)
+ ? varGetEntry(param, gridID, zaxistype, ltype1, tsteptype, name, scanKeys, tiles)
+ : CDI_UNDEFID;
+
+ if (varID == CDI_UNDEFID)
+ {
+ varTableUsed++;
+ varID = paramNewEntry(param);
+ vartable[varID].gridID = gridID;
+ vartable[varID].zaxistype = zaxistype;
+ vartable[varID].ltype1 = ltype1;
+ vartable[varID].ltype2 = ltype2;
+ vartable[varID].hasBounds = hasBounds;
+ vartable[varID].level_sf = level_sf;
+ vartable[varID].level_unit = level_unit;
+ vartable[varID].tsteptype = tsteptype;
+ if (scanKeys) vartable[varID].scanKeys = *scanKeys;
+
+ if (name && name[0]) vartable[varID].name = strdup(name);
+ }
+ else
+ {
+ char paramstr[32];
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+
+ if (vartable[varID].gridID != gridID)
+ {
+ Message("param = %s gridID = %d", paramstr, gridID);
+ Error("horizontal grid must not change for same parameter!");
+ }
+ if (vartable[varID].zaxistype != zaxistype)
+ {
+ Message("param = %s zaxistype = %d", paramstr, zaxistype);
+ Error("zaxistype must not change for same parameter!");
+ }
+ }
+
+ if (prec > vartable[varID].prec) vartable[varID].prec = prec;
+
+ // append current tile to tile subtype info.
+ int this_tile = varInsertTileSubtype(&vartable[varID], tiles);
+ int tileID = tileGetEntry(varID, this_tile);
+ if (tile_index) (*tile_index) = this_tile;
+ if (tileID == CDI_UNDEFID)
+ {
+ tileID = tileNewEntry((int) varID);
+ vartable[varID].recordTable[tileID].subtypeIndex = this_tile;
+ vartable[varID].nsubtypes++;
+ }
+
+ // append current level to level table info
+ int levelID = levelNewEntry(varID, level1, level2, tileID);
+ if (CDI_Debug)
+ Message("vartable[%d].recordTable[%d].levelTable[%d].recID = %d; level1,2=%d,%d", varID, tileID, levelID, recID, level1,
+ level2);
+ vartable[varID].recordTable[tileID].levelTable[levelID].recID = recID;
+
+ *pvarID = (int) varID;
+ *plevelID = levelID;
+}
+
+/*
+static
+int dblcmp(const void *s1, const void *s2)
+{
+ int cmp = 0;
+
+ if ( *((double *) s1) < *((double *) s2) ) cmp = -1;
+ else if ( *((double *) s1) > *((double *) s2) ) cmp = 1;
+
+ return cmp;
+}
+*/
+static int
+cmpLevelTable(const void *s1, const void *s2)
+{
+ int cmp = 0;
+ const leveltable_t *x = (const leveltable_t *) s1;
+ const leveltable_t *y = (const leveltable_t *) s2;
+ // printf("%g %g %d %d\n", x->leve11, y->level1, x, y);
+ if (x->level1 < y->level1)
+ cmp = -1;
+ else if (x->level1 > y->level1)
+ cmp = 1;
+
+ return cmp;
+}
+
+static int
+cmpLevelTableInv(const void *s1, const void *s2)
+{
+ int cmp = 0;
+ const leveltable_t *x = (const leveltable_t *) s1;
+ const leveltable_t *y = (const leveltable_t *) s2;
+ // printf("%g %g %d %d\n", x->leve11, y->level1, x, y);
+ if (x->level1 < y->level1)
+ cmp = 1;
+ else if (x->level1 > y->level1)
+ cmp = -1;
+
+ return cmp;
+}
+
+void
+varCopyKeys(int vlistID, int varID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ cdiInitKeys(&vlistptr->vars[varID].keys);
+ cdiCopyVarKeys(&vartable[varID].keys, &vlistptr->vars[varID].keys);
+}
+
+struct cdi_generate_varinfo
+{
+ int varid;
+ const char *name;
+};
+
+/*
+static int
+cdi_generate_cmp_varname(const void *s1, const void *s2)
+{
+ const struct cdi_generate_varinfo *x = (const struct cdi_generate_varinfo *) s1, *y = (const struct cdi_generate_varinfo *) s2;
+ return strcmp(x->name, y->name);
+}
+*/
+
+void
+cdi_generate_vars(stream_t *streamptr)
+{
+ int vlistID = streamptr->vlistID;
+
+ int *varids = (int *) Malloc(varTableUsed * sizeof(int));
+ for (int varID = 0; varID < varTableUsed; varID++) varids[varID] = (int) varID;
+ /*
+ if ( streamptr->sortname )
+ {
+ size_t varID;
+ for (varID = 0; varID < varTableUsed; varID++)
+ if (!vartable[varID].name) break;
+
+ if ( varID == varTableUsed )
+ {
+ struct cdi_generate_varinfo *varInfo
+ = (struct cdi_generate_varinfo *) Malloc((size_t)varTableUsed * sizeof(struct cdi_generate_varinfo));
+
+ for (size_t varID = 0; varID < varTableUsed; varID++)
+ {
+ varInfo[varID].varid = varids[varID];
+ varInfo[varID].name = vartable[varids[varID]].name;
+ }
+ qsort(varInfo, varTableUsed, sizeof(varInfo[0]), cdi_generate_cmp_varname);
+ for (size_t varID = 0; varID < varTableUsed; varID++)
+ {
+ varids[varID] = varInfo[varID].varid;
+ }
+ Free(varInfo);
+ }
+ }
+ */
+ for (int index = 0; index < varTableUsed; index++)
+ {
+ int varid = varids[index];
+
+ int gridID = vartable[varid].gridID;
+ int param = vartable[varid].param;
+ int ltype1 = vartable[varid].ltype1;
+ int ltype2 = vartable[varid].ltype2;
+ int zaxistype = vartable[varid].zaxistype;
+ if (ltype1 == 0 && zaxistype == ZAXIS_GENERIC && cdiDefaultLeveltype != -1) zaxistype = cdiDefaultLeveltype;
+ int hasBounds = vartable[varid].hasBounds;
+ int prec = vartable[varid].prec;
+ int instID = vartable[varid].instID;
+ int modelID = vartable[varid].modelID;
+ int tableID = vartable[varid].tableID;
+ int tsteptype = vartable[varid].tsteptype;
+ int comptype = vartable[varid].comptype;
+
+ double level_sf = (vartable[varid].level_sf != 0) ? (1.0 / vartable[varid].level_sf) : 1;
+
+ /* consistency check: test if all subtypes have the same levels: */
+ int nlevels = vartable[varid].recordTable[0].nlevels;
+ for (int isub = 1; isub < vartable[varid].nsubtypes; isub++)
+ {
+ if (vartable[varid].recordTable[isub].nlevels != nlevels)
+ {
+ fprintf(stderr,
+ "var \"%s\": isub = %d / %d :: "
+ "nlevels = %d, vartable[varid].recordTable[isub].nlevels = %d\n",
+ vartable[varid].name, isub, vartable[varid].nsubtypes, nlevels, vartable[varid].recordTable[isub].nlevels);
+ Error("zaxis size must not change for same parameter!");
+ }
+
+ const leveltable_t *t1 = vartable[varid].recordTable[isub - 1].levelTable;
+ const leveltable_t *t2 = vartable[varid].recordTable[isub].levelTable;
+ for (int ilev = 0; ilev < nlevels; ilev++)
+ if ((t1[ilev].level1 != t2[ilev].level1) || (t1[ilev].level2 != t2[ilev].level2)
+ || (t1[ilev].lindex != t2[ilev].lindex))
+ {
+ fprintf(stderr,
+ "var \"%s\", varID=%d: isub = %d / %d :: "
+ "nlevels = %d, vartable[varid].recordTable[isub].nlevels = %d\n",
+ vartable[varid].name, varid, isub, vartable[varid].nsubtypes, nlevels,
+ vartable[varid].recordTable[isub].nlevels);
+ Message("t1[ilev].level1=%d / t2[ilev].level1=%d", t1[ilev].level1, t2[ilev].level1);
+ Message("t1[ilev].level2=%d / t2[ilev].level2=%d", t1[ilev].level2, t2[ilev].level2);
+ Message("t1[ilev].lindex=%d / t2[ilev].lindex=%d", t1[ilev].lindex, t2[ilev].lindex);
+ Error("zaxis type must not change for same parameter!");
+ }
+ }
+ leveltable_t *levelTable = vartable[varid].recordTable[0].levelTable;
+
+ if (ltype1 == 0 && zaxistype == ZAXIS_GENERIC && nlevels == 1 && levelTable[0].level1 == 0) zaxistype = ZAXIS_SURFACE;
+
+ double *dlevels = (double *) Malloc(nlevels * sizeof(double));
+
+ /*
+ if ( hasBounds && zaxistype != ZAXIS_HYBRID && zaxistype != ZAXIS_HYBRID_HALF )
+ for (int levelID = 0; levelID < nlevels; levelID++)
+ dlevels[levelID] = (level_sf*levelTable[levelID].level1 + level_sf*levelTable[levelID].level2) / 2.0;
+ else
+ */
+ for (int levelID = 0; levelID < nlevels; levelID++) dlevels[levelID] = level_sf * levelTable[levelID].level1;
+
+ if (nlevels > 1)
+ {
+ bool linc = true, ldec = true, lsort = false;
+ for (int levelID = 1; levelID < nlevels; levelID++)
+ {
+ // check increasing of levels
+ linc &= (dlevels[levelID] > dlevels[levelID - 1]);
+ // check decreasing of levels
+ ldec &= (dlevels[levelID] < dlevels[levelID - 1]);
+ }
+ /*
+ * always sort pressure z-axis to ensure
+ * levelTable[levelID1].level1 < levelTable[levelID2].level1 <=> levelID1 > levelID2
+ * unless already sorted in decreasing order
+ */
+ if ((!linc && !ldec) && zaxistype == ZAXIS_PRESSURE)
+ {
+ qsort(levelTable, nlevels, sizeof(leveltable_t), cmpLevelTableInv);
+ lsort = true;
+ }
+ /*
+ * always sort hybrid and depth-below-land z-axis to ensure
+ * levelTable[levelID1].level1 < levelTable[levelID2].level1 <=> levelID1 < levelID2
+ * unless already sorted in increasing order
+ */
+ else if ((!linc && !ldec) || zaxistype == ZAXIS_HYBRID || zaxistype == ZAXIS_DEPTH_BELOW_LAND)
+ {
+ qsort(levelTable, nlevels, sizeof(leveltable_t), cmpLevelTable);
+ lsort = true;
+ }
+
+ if (lsort)
+ {
+ /*
+ if ( hasBounds && zaxistype != ZAXIS_HYBRID && zaxistype != ZAXIS_HYBRID_HALF )
+ for (int levelID = 0; levelID < nlevels; levelID++)
+ dlevels[levelID] = (level_sf*levelTable[levelID].level1 + level_sf*levelTable[levelID].level2) / 2.0;
+ else
+ */
+ for (int levelID = 0; levelID < nlevels; levelID++) dlevels[levelID] = level_sf * levelTable[levelID].level1;
+ }
+ }
+
+ double *dlevels1 = NULL;
+ double *dlevels2 = NULL;
+ if (hasBounds)
+ {
+ dlevels1 = (double *) Malloc(nlevels * sizeof(double));
+ for (int levelID = 0; levelID < nlevels; levelID++) dlevels1[levelID] = level_sf * levelTable[levelID].level1;
+ dlevels2 = (double *) Malloc(nlevels * sizeof(double));
+ for (int levelID = 0; levelID < nlevels; levelID++) dlevels2[levelID] = level_sf * levelTable[levelID].level2;
+ }
+
+ const char **cvals = NULL;
+ const char *unitptr = cdiUnitNamePtr(vartable[varid].level_unit);
+ int zaxisID = varDefZaxis(vlistID, zaxistype, (int) nlevels, dlevels, cvals, 0, hasBounds, dlevels1, dlevels2, (int) Vctsize,
+ Vct, NULL, NULL, unitptr, 0, 0, ltype1, ltype2);
+
+ if (CDI_CMOR_Mode && nlevels == 1 && zaxistype != ZAXIS_HYBRID) zaxisDefScalar(zaxisID);
+
+ if (zaxisInqType(zaxisID) == ZAXIS_REFERENCE)
+ {
+ if (numberOfVerticalLevels > 0) cdiDefKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_NLEV, numberOfVerticalLevels);
+ if (numberOfVerticalGrid > 0) cdiDefKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_NUMBEROFVGRIDUSED, numberOfVerticalGrid);
+ if (!cdiUUIDIsNull(uuidVGrid)) cdiDefKeyBytes(zaxisID, CDI_GLOBAL, CDI_KEY_UUID, uuidVGrid, CDI_UUID_SIZE);
+ }
+
+ if (hasBounds) Free(dlevels1);
+ if (hasBounds) Free(dlevels2);
+ Free(dlevels);
+
+ // define new subtype for tile set
+ int tilesetID = CDI_UNDEFID;
+ if (vartable[varid].tiles) tilesetID = vlistDefTileSubtype(vlistID, vartable[varid].tiles);
+
+ // generate new variable
+ int varID = stream_new_var(streamptr, gridID, zaxisID, tilesetID);
+ varID = vlistDefVarTiles(vlistID, gridID, zaxisID, TIME_VARYING, tilesetID);
+
+ vlistDefVarTsteptype(vlistID, varID, tsteptype);
+ vlistDefVarParam(vlistID, varID, param);
+ vlistDefVarDatatype(vlistID, varID, prec);
+ vlistDefVarCompType(vlistID, varID, comptype);
+
+ varCopyKeys(vlistID, varID);
+
+ if (vartable[varid].lmissval) vlistDefVarMissval(vlistID, varID, vartable[varid].missval);
+ if (vartable[varid].name) cdiDefKeyString(vlistID, varID, CDI_KEY_NAME, vartable[varid].name);
+
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ for (int i = 0; i < vartable[varid].opt_grib_nentries; i++)
+ {
+ resize_opt_grib_entries(&vlistptr->vars[varID], vlistptr->vars[varID].opt_grib_nentries + 1);
+ vlistptr->vars[varID].opt_grib_nentries += 1;
+ int idx = vlistptr->vars[varID].opt_grib_nentries - 1;
+
+ vlistptr->vars[varID].opt_grib_kvpair[idx] = vartable[varid].opt_grib_kvpair[i];
+ vlistptr->vars[varID].opt_grib_kvpair[idx].keyword = NULL;
+ if (vartable[varid].opt_grib_kvpair[i].keyword)
+ vlistptr->vars[varID].opt_grib_kvpair[idx].keyword = strdup(vartable[varid].opt_grib_kvpair[i].keyword);
+ vlistptr->vars[varID].opt_grib_kvpair[i].update = true;
+ }
+ // note: if the key is not defined, we do not throw an error!
+
+ if (CDI_Default_TableID != CDI_UNDEFID)
+ {
+ int pdis, pcat, pnum;
+ cdiDecodeParam(param, &pnum, &pcat, &pdis);
+ char name[CDI_MAX_NAME];
+ name[0] = 0;
+ char longname[CDI_MAX_NAME];
+ longname[0] = 0;
+ char units[CDI_MAX_NAME];
+ units[0] = 0;
+ tableInqEntry(CDI_Default_TableID, pnum, -1, name, longname, units);
+ if (name[0])
+ {
+ if (tableID != CDI_UNDEFID)
+ {
+ cdiDefKeyString(vlistID, varID, CDI_KEY_NAME, name);
+ if (longname[0]) cdiDefKeyString(vlistID, varID, CDI_KEY_LONGNAME, longname);
+ if (units[0]) cdiDefKeyString(vlistID, varID, CDI_KEY_UNITS, units);
+ }
+ else
+ tableID = CDI_Default_TableID;
+ }
+ if (CDI_Default_ModelID != CDI_UNDEFID) modelID = CDI_Default_ModelID;
+ if (CDI_Default_InstID != CDI_UNDEFID) instID = CDI_Default_InstID;
+ }
+
+ if (instID != CDI_UNDEFID) vlistDefVarInstitut(vlistID, varID, instID);
+ if (modelID != CDI_UNDEFID) vlistDefVarModel(vlistID, varID, modelID);
+ if (tableID != CDI_UNDEFID) vlistDefVarTable(vlistID, varID, tableID);
+ }
+
+ for (int index = 0; index < varTableUsed; index++)
+ {
+ int varid = varids[index];
+ int nlevels = vartable[varid].recordTable[0].nlevels;
+
+ int nsub = (vartable[varid].nsubtypes >= 0) ? vartable[varid].nsubtypes : 0;
+ for (int isub = 0; isub < nsub; isub++)
+ {
+ sleveltable_t *streamRecordTable = streamptr->vars[index].recordTable + isub;
+ leveltable_t *vartableLevelTable = vartable[varid].recordTable[isub].levelTable;
+ for (int levelID = 0; levelID < nlevels; levelID++)
+ {
+ streamRecordTable->recordID[levelID] = vartableLevelTable[levelID].recID;
+ int lindex;
+ for (lindex = 0; lindex < nlevels; lindex++)
+ if (levelID == vartableLevelTable[lindex].lindex) break;
+ if (lindex == nlevels) Error("Internal problem! lindex not found.");
+ streamRecordTable->lindex[levelID] = (int) lindex;
+ }
+ }
+ }
+
+ Free(varids);
+
+ varFree();
+}
+
+void
+varDefVCT(size_t vctsize, double *vctptr)
+{
+ if (Vct == NULL && vctptr != NULL && vctsize > 0)
+ {
+ Vctsize = vctsize;
+ Vct = (double *) Malloc(vctsize * sizeof(double));
+ memcpy(Vct, vctptr, vctsize * sizeof(double));
+ }
+}
+
+void
+varDefZAxisReference(int nhlev, int nvgrid, unsigned char uuid[CDI_UUID_SIZE])
+{
+ numberOfVerticalLevels = nhlev;
+ numberOfVerticalGrid = nvgrid;
+ memcpy(uuidVGrid, uuid, CDI_UUID_SIZE);
+}
+
+bool
+zaxis_compare(int zaxisID, int zaxistype, int nlevels, const double *levels, const double *lbounds, const double *ubounds,
+ const char *longname, const char *units, int ltype1, int ltype2)
+{
+ bool differ = true;
+
+ int ltype1_0 = 0, ltype2_0 = -1;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE, <ype1_0);
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_TYPEOFSECONDFIXEDSURFACE, <ype2_0);
+ bool ltype1IsEqual = (ltype1 == ltype1_0);
+ bool ltype2IsEqual = (ltype2 == ltype2_0);
+ bool hasBounds = (lbounds && ubounds);
+
+ if (ltype1IsEqual && ltype2IsEqual && (zaxistype == zaxisInqType(zaxisID) || zaxistype == ZAXIS_GENERIC))
+ {
+ bool hasBoundsZ = (zaxisInqLbounds(zaxisID, NULL) > 0 && zaxisInqUbounds(zaxisID, NULL) > 0);
+ if (nlevels == zaxisInqSize(zaxisID) && hasBoundsZ == hasBounds)
+ {
+ const double *dlevels = zaxisInqLevelsPtr(zaxisID);
+ if (dlevels && levels)
+ {
+ int levelID;
+ for (levelID = 0; levelID < nlevels; levelID++)
+ {
+ if (fabs(dlevels[levelID] - levels[levelID]) > 1.e-9) break;
+ }
+ if (levelID == nlevels) differ = false;
+ }
+
+ if (!differ && hasBounds)
+ {
+ double *bounds = (double *) malloc(2 * nlevels * sizeof(double));
+ zaxisInqLbounds(zaxisID, bounds);
+ zaxisInqUbounds(zaxisID, bounds + nlevels);
+ for (int levelID = 0; levelID < nlevels; levelID++)
+ {
+ if (fabs(lbounds[levelID] - bounds[levelID]) > 1.e-9
+ || fabs(ubounds[levelID] - bounds[levelID + nlevels]) > 1.e-9)
+ {
+ differ = true;
+ break;
+ }
+ }
+ free(bounds);
+ }
+
+ if (!differ)
+ {
+ if (longname && longname[0])
+ {
+ char zlongname[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_LONGNAME, zlongname, &length);
+ if (zlongname[0] && !str_is_equal(longname, zlongname)) differ = true;
+ }
+ if (units && units[0])
+ {
+ char zunits[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, zunits, &length);
+ if (zunits[0] && !str_is_equal(units, zunits)) differ = true;
+ }
+ }
+ }
+ }
+
+ return differ;
+}
+
+struct varDefZAxisSearchState
+{
+ int resIDValue;
+ int zaxistype;
+ int nlevels;
+ const double *levels;
+ const double *lbounds;
+ const double *ubounds;
+ const char *longname;
+ const char *units;
+ int ltype1;
+ int ltype2;
+};
+
+static enum cdiApplyRet
+varDefZAxisSearch(int id, void *res, void *data)
+{
+ struct varDefZAxisSearchState *state = (struct varDefZAxisSearchState *) data;
+ (void) res;
+ if (zaxis_compare(id, state->zaxistype, state->nlevels, state->levels, state->lbounds, state->ubounds, state->longname,
+ state->units, state->ltype1, state->ltype2)
+ == false)
+ {
+ state->resIDValue = id;
+ return CDI_APPLY_STOP;
+ }
+ else
+ return CDI_APPLY_GO_ON;
+}
+
+int
+varDefZaxis(int vlistID, int zaxistype, int nlevels, const double *levels, const char **cvals, size_t clength, bool hasBounds,
+ const double *levels1, const double *levels2, int vctsize, const double *vct, char *name, const char *longname,
+ const char *units, int prec, int mode, int ltype1, int ltype2)
+{
+ /*
+ mode: 0 search in vlist and zaxis table
+ 1 search in zaxis table
+ */
+ int zaxisID = CDI_UNDEFID;
+ bool zaxisdefined = false;
+ bool zaxisglobdefined = false;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ int nzaxis = vlistptr->nzaxis;
+
+ if (ltype2 == 255) ltype2 = -1;
+
+ if (mode == 0)
+ for (int index = 0; index < nzaxis; index++)
+ {
+ zaxisID = vlistptr->zaxisIDs[index];
+
+ if (!zaxis_compare(zaxisID, zaxistype, nlevels, levels, levels1, levels2, longname, units, ltype1, ltype2))
+ {
+ zaxisdefined = true;
+ break;
+ }
+ }
+
+ if (!zaxisdefined)
+ {
+ struct varDefZAxisSearchState query;
+ query.zaxistype = zaxistype;
+ query.nlevels = nlevels;
+ query.levels = levels;
+ query.lbounds = levels1;
+ query.ubounds = levels2;
+ query.longname = longname;
+ query.units = units;
+ query.ltype1 = ltype1;
+ query.ltype2 = ltype2;
+
+ if ((zaxisglobdefined = (cdiResHFilterApply(getZaxisOps(), varDefZAxisSearch, &query) == CDI_APPLY_STOP)))
+ zaxisID = query.resIDValue;
+
+ if (mode == 1 && zaxisglobdefined)
+ for (int index = 0; index < nzaxis; index++)
+ if (vlistptr->zaxisIDs[index] == zaxisID)
+ {
+ zaxisglobdefined = false;
+ break;
+ }
+ }
+
+ if (!zaxisdefined)
+ {
+ if (!zaxisglobdefined)
+ {
+ zaxisID = zaxisCreate(zaxistype, nlevels);
+ if (levels) zaxisDefLevels(zaxisID, levels);
+ if (hasBounds)
+ {
+ zaxisDefLbounds(zaxisID, levels1);
+ zaxisDefUbounds(zaxisID, levels2);
+ }
+
+ if (cvals != NULL && nlevels != 0 && clength != 0) zaxisDefCvals(zaxisID, cvals, (int) clength);
+
+ if ((zaxistype == ZAXIS_HYBRID || zaxistype == ZAXIS_HYBRID_HALF) && vctsize > 0) zaxisDefVct(zaxisID, vctsize, vct);
+
+ if (name && name[0]) cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_NAME, name);
+ if (longname && longname[0]) cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_LONGNAME, longname);
+ if (units && units[0]) cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, units);
+ zaxisDefDatatype(zaxisID, prec);
+ cdiDefKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE, ltype1);
+ if (ltype2 != -1) cdiDefKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_TYPEOFSECONDFIXEDSURFACE, ltype2);
+ }
+
+ vlistptr->zaxisIDs[nzaxis] = zaxisID;
+ vlistptr->nzaxis++;
+ }
+
+ return zaxisID;
+}
+
+void
+varDefMissval(int varID, double missval)
+{
+ vartable[varID].lmissval = true;
+ vartable[varID].missval = missval;
+}
+
+void
+varDefCompType(int varID, int comptype)
+{
+ if (vartable[varID].comptype == CDI_COMPRESS_NONE) vartable[varID].comptype = comptype;
+}
+
+void
+varDefCompLevel(int varID, int complevel)
+{
+ vartable[varID].complevel = complevel;
+}
+
+int
+varInqInst(int varID)
+{
+ return vartable[varID].instID;
+}
+
+void
+varDefInst(int varID, int instID)
+{
+ vartable[varID].instID = instID;
+}
+
+int
+varInqModel(int varID)
+{
+ return vartable[varID].modelID;
+}
+
+void
+varDefModel(int varID, int modelID)
+{
+ vartable[varID].modelID = modelID;
+}
+
+int
+varInqTable(int varID)
+{
+ return vartable[varID].tableID;
+}
+
+void
+varDefTable(int varID, int tableID)
+{
+ vartable[varID].tableID = tableID;
+}
+
+void
+varDefKeyInt(int varID, int key, int value)
+{
+ cdi_keys_t *keysp = &(vartable[varID].keys);
+ cdiDefVarKeyInt(keysp, key, value);
+}
+
+void
+varDefKeyBytes(int varID, int key, const unsigned char *bytes, int length)
+{
+ cdi_keys_t *keysp = &(vartable[varID].keys);
+ cdiDefVarKeyBytes(keysp, key, bytes, length);
+}
+
+void
+varDefKeyString(int varID, int key, const char *string)
+{
+ int length = strlen(string) + 1;
+ cdi_keys_t *keysp = &(vartable[varID].keys);
+ cdiDefVarKeyBytes(keysp, key, (const unsigned char *) string, length);
+}
+
+#ifdef HAVE_LIBGRIB_API
+// Resizes and initializes opt_grib_kvpair data structure.
+static void
+resize_vartable_opt_grib_entries(vartable_t *var, int nentries)
+{
+ if (var->opt_grib_kvpair_size < nentries)
+ {
+ if (CDI_Debug) Message("resize data structure, %d -> %d", var->opt_grib_kvpair_size, nentries);
+
+ int new_size = ((2 * var->opt_grib_kvpair_size) > nentries) ? (2 * var->opt_grib_kvpair_size) : nentries;
+ if (CDI_Debug) Message("resize vartable opt_grib_entries array to size %d", new_size);
+ opt_key_val_pair_t *tmp = (opt_key_val_pair_t *) Malloc((size_t) new_size * sizeof(opt_key_val_pair_t));
+ for (int i = 0; i < var->opt_grib_kvpair_size; i++)
+ {
+ tmp[i] = var->opt_grib_kvpair[i];
+ }
+ for (int i = var->opt_grib_kvpair_size; i < new_size; i++)
+ {
+ tmp[i].int_val = 0;
+ tmp[i].dbl_val = 0;
+ tmp[i].update = false;
+ tmp[i].keyword = NULL;
+ } // for
+ var->opt_grib_kvpair_size = new_size;
+ Free(var->opt_grib_kvpair);
+ var->opt_grib_kvpair = tmp;
+ }
+}
+#endif
+
+#ifdef HAVE_LIBGRIB_API
+void
+varDefOptGribInt(int varID, int tile_index, long lval, const char *keyword)
+{
+ int idx = -1;
+ for (int i = 0; i < vartable[varID].opt_grib_nentries; i++)
+ {
+ if (str_is_equal(keyword, vartable[varID].opt_grib_kvpair[i].keyword)
+ && (vartable[varID].opt_grib_kvpair[i].data_type == t_int)
+ && (vartable[varID].opt_grib_kvpair[i].subtype_index == tile_index))
+ idx = i;
+ }
+
+ if (idx == -1)
+ {
+ resize_vartable_opt_grib_entries(&vartable[varID], vartable[varID].opt_grib_nentries + 1);
+ vartable[varID].opt_grib_nentries += 1;
+ idx = vartable[varID].opt_grib_nentries - 1;
+ }
+ else
+ {
+ if (vartable[varID].opt_grib_kvpair[idx].keyword) Free(vartable[varID].opt_grib_kvpair[idx].keyword);
+ }
+ vartable[varID].opt_grib_kvpair[idx].data_type = t_int;
+ vartable[varID].opt_grib_kvpair[idx].int_val = (int) lval;
+ vartable[varID].opt_grib_kvpair[idx].keyword = strdup(keyword);
+ vartable[varID].opt_grib_kvpair[idx].subtype_index = tile_index;
+}
+#endif
+
+#ifdef HAVE_LIBGRIB_API
+void
+varDefOptGribDbl(int varID, int tile_index, double dval, const char *keyword)
+{
+ int idx = -1;
+ for (int i = 0; i < vartable[varID].opt_grib_nentries; i++)
+ {
+ if (str_is_equal(keyword, vartable[varID].opt_grib_kvpair[i].keyword)
+ && (vartable[varID].opt_grib_kvpair[i].data_type == t_double)
+ && (vartable[varID].opt_grib_kvpair[i].subtype_index == tile_index))
+ idx = i;
+ }
+
+ if (idx == -1)
+ {
+ resize_vartable_opt_grib_entries(&vartable[varID], vartable[varID].opt_grib_nentries + 1);
+ vartable[varID].opt_grib_nentries += 1;
+ idx = vartable[varID].opt_grib_nentries - 1;
+ }
+ else
+ {
+ if (vartable[varID].opt_grib_kvpair[idx].keyword) Free(vartable[varID].opt_grib_kvpair[idx].keyword);
+ }
+ vartable[varID].opt_grib_kvpair[idx].data_type = t_double;
+ vartable[varID].opt_grib_kvpair[idx].dbl_val = dval;
+ vartable[varID].opt_grib_kvpair[idx].keyword = strdup(keyword);
+ vartable[varID].opt_grib_kvpair[idx].subtype_index = tile_index;
+}
+#endif
+
+#ifdef HAVE_LIBGRIB_API
+int
+varOptGribNentries(int varID)
+{
+ int nentries = vartable[varID].opt_grib_nentries;
+ return nentries;
+}
+#endif
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+#include <stdbool.h>
+
+
+
+#ifdef HAVE_LIBGRIB_API
+/* list of additional GRIB2 keywords which are read by the open process */
+int cdiNAdditionalGRIBKeys = 0;
+char *cdiAdditionalGRIBKeys[MAX_OPT_GRIB_ENTRIES];
+#endif
+
+static int VLIST_Debug = 0;
+
+static void vlist_initialize(void);
+
+#ifdef HAVE_LIBPTHREAD
+#include <pthread.h>
+
+static pthread_once_t _vlist_init_thread = PTHREAD_ONCE_INIT;
+
+#define VLIST_INIT() pthread_once(&_vlist_init_thread, vlist_initialize)
+
+#else
+
+static bool vlistIsInitialized = false;
+
+#define VLIST_INIT() \
+ if (!vlistIsInitialized) vlist_initialize()
+#endif
+
+static int
+vlist_compare(vlist_t *a, vlist_t *b)
+{
+ int diff = (a->nvars != b->nvars) | (a->ngrids != b->ngrids) | (a->nzaxis != b->nzaxis) | (a->instID != b->instID)
+ | (a->modelID != b->modelID) | (a->tableID != b->tableID) | (a->ntsteps != b->ntsteps)
+ | (a->atts.nelems != b->atts.nelems);
+
+ int nvars = a->nvars;
+ for (int varID = 0; varID < nvars; ++varID) diff |= vlistVarCompare(a, varID, b, varID);
+
+ size_t natts = a->atts.nelems;
+ for (size_t attID = 0; attID < natts; ++attID) diff |= cdi_att_compare(&a->atts, &a->atts, (int) attID);
+
+ return diff;
+}
+
+static void vlistPrintKernel(vlist_t *vlistptr, FILE *fp);
+static void vlist_delete(vlist_t *vlistptr);
+
+static int vlistGetSizeP(void *vlistptr, void *context);
+static void vlistPackP(void *vlistptr, void *buff, int size, int *position, void *context);
+static int vlistTxCode(void *vlistptr);
+
+#if !defined(__cplusplus)
+const
+#endif
+ resOps vlistOps
+ = { (valCompareFunc) vlist_compare,
+ (valDestroyFunc) vlist_delete,
+ (valPrintFunc) vlistPrintKernel,
+ vlistGetSizeP,
+ vlistPackP,
+ vlistTxCode };
+
+vlist_t *
+vlist_to_pointer(int vlistID)
+{
+ VLIST_INIT();
+ return (vlist_t *) reshGetVal(vlistID, &vlistOps);
+}
+
+static void
+vlist_init_entry(vlist_t *vlistptr)
+{
+ vlistptr->immutable = 0;
+ vlistptr->internal = 0;
+ vlistptr->self = CDI_UNDEFID;
+ vlistptr->nvars = 0;
+ vlistptr->vars = NULL;
+ vlistptr->ngrids = 0;
+ vlistptr->nzaxis = 0;
+ vlistptr->taxisID = CDI_UNDEFID;
+ vlistptr->instID = CDI_Default_InstID;
+ vlistptr->modelID = CDI_Default_ModelID;
+ vlistptr->tableID = CDI_Default_TableID;
+ vlistptr->varsAllocated = 0;
+ vlistptr->ntsteps = CDI_UNDEFID;
+ vlistptr->keys.nalloc = MAX_KEYS;
+ vlistptr->keys.nelems = 0;
+ for (int i = 0; i < MAX_KEYS; ++i) vlistptr->keys.value[i].length = 0;
+ vlistptr->atts.nalloc = MAX_ATTRIBUTES;
+ vlistptr->atts.nelems = 0;
+ vlistptr->nsubtypes = 0;
+ for (int i = 0; i < MAX_SUBTYPES_PS; ++i) vlistptr->subtypeIDs[i] = CDI_UNDEFID;
+}
+
+static vlist_t *
+vlist_new_entry(cdiResH resH)
+{
+ vlist_t *vlistptr = (vlist_t *) Malloc(sizeof(vlist_t));
+ vlist_init_entry(vlistptr);
+ if (resH == CDI_UNDEFID)
+ vlistptr->self = reshPut(vlistptr, &vlistOps);
+ else
+ {
+ vlistptr->self = resH;
+ reshReplace(resH, vlistptr, &vlistOps);
+ }
+ return vlistptr;
+}
+
+static void
+vlist_delete_entry(int vlistID)
+{
+ reshRemove(vlistID, &vlistOps);
+
+ if (VLIST_Debug) Message("Removed idx %d from vlist list", vlistID);
+}
+
+static void
+vlist_initialize(void)
+{
+ char *env = getenv("VLIST_DEBUG");
+ if (env) VLIST_Debug = atoi(env);
+#ifndef HAVE_LIBPTHREAD
+ vlistIsInitialized = true;
+#endif
+}
+
+static void
+vlist_copy(vlist_t *vlistptr2, vlist_t *vlistptr1)
+{
+ int vlistID2 = vlistptr2->self;
+ int vlist2internal = vlistptr2->internal;
+ memcpy(vlistptr2, vlistptr1, sizeof(vlist_t));
+ vlistptr2->internal = vlist2internal; // the question who's responsible to destroy the vlist is tied to its containing memory
+ // region, so we retain this flag
+ vlistptr2->immutable = 0; // this is a copy, so it's mutable, independent of whether the original is mutable or not
+ vlistptr2->keys.nelems = 0;
+ vlistptr2->atts.nelems = 0;
+ vlistptr2->self = vlistID2;
+}
+
+void
+cdiVlistMakeInternal(int vlistID)
+{
+ vlist_to_pointer(vlistID)->internal = 1;
+}
+
+void
+cdiVlistMakeImmutable(int vlistID)
+{
+ vlist_to_pointer(vlistID)->immutable = 1;
+}
+
+/*
+@Function vlistCreate
+@Title Create a variable list
+
+@Prototype int vlistCreate(void)
+
+@Example
+Here is an example using @func{vlistCreate} to create a variable list
+and add a variable with @func{vlistDefVar}.
+
+@Source
+ ...
+int vlistID, varID;
+ ...
+vlistID = vlistCreate();
+varID = vlistDefVar(vlistID, gridID, zaxisID, TIME_VARYING);
+ ...
+streamDefVlist(streamID, vlistID);
+ ...
+vlistDestroy(vlistID);
+ ...
+@EndSource
+@EndFunction
+*/
+int
+vlistCreate(void)
+{
+ cdiInitialize();
+
+ VLIST_INIT();
+
+ vlist_t *vlistptr = vlist_new_entry(CDI_UNDEFID);
+ if (CDI_Debug) Message("create vlistID = %d", vlistptr->self);
+ return vlistptr->self;
+}
+
+static void
+vlist_delete(vlist_t *vlistptr)
+{
+ int vlistID = vlistptr->self;
+ if (CDI_Debug) Message("call to vlist_delete, vlistID = %d", vlistID);
+
+ cdiDeleteKeys(vlistID, CDI_GLOBAL);
+ cdiDeleteAtts(vlistID, CDI_GLOBAL);
+
+ int nvars = vlistptr->nvars;
+ var_t *vars = vlistptr->vars;
+
+ for (int varID = 0; varID < nvars; varID++)
+ {
+ if (vars[varID].levinfo) Free(vars[varID].levinfo);
+
+ if (vlistptr->vars[varID].opt_grib_kvpair)
+ {
+ for (int i = 0; i < vlistptr->vars[varID].opt_grib_nentries; i++)
+ {
+ if (vlistptr->vars[varID].opt_grib_kvpair[i].keyword) Free(vlistptr->vars[varID].opt_grib_kvpair[i].keyword);
+ }
+ Free(vlistptr->vars[varID].opt_grib_kvpair);
+ }
+ vlistptr->vars[varID].opt_grib_nentries = 0;
+ vlistptr->vars[varID].opt_grib_kvpair_size = 0;
+ vlistptr->vars[varID].opt_grib_kvpair = NULL;
+
+ cdiDeleteKeys(vlistID, varID);
+ cdiDeleteAtts(vlistID, varID);
+ }
+
+ if (vars) Free(vars);
+
+ Free(vlistptr);
+}
+
+// destroy a vlist object, should always be called through namespace lookup
+void
+cdiVlistDestroy_(int vlistID, bool assertInternal)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ static const char warningTextUserByInternal[]
+ = "Destroying a vlist object that is owned by the user (vlistID=%d).\n"
+ "This is most likely because of a missing vlistDestroy() in the application code.\n"
+ "If that's not the case, and you are absolutely certain about it, please report the bug.",
+ warningTextInternalByUser[] = "Attempt to destroy an internal vlist object by the user (vlistID=%d).";
+ static const char *const wText[2] = { warningTextUserByInternal, warningTextInternalByUser };
+ if (vlistptr->internal == assertInternal)
+ {
+ vlist_delete(vlistptr);
+ vlist_delete_entry(vlistID);
+ }
+ else
+ Warning(wText[!assertInternal], vlistID);
+}
+
+/*
+@Function vlistDestroy
+@Title Destroy a variable list
+
+@Prototype void vlistDestroy(int vlistID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+
+@EndFunction
+*/
+void
+vlistDestroy(int vlistID)
+{
+ void (*mycdiVlistDestroy_)(int, bool) = (void (*)(int, bool)) namespaceSwitchGet(NSSWITCH_VLIST_DESTROY_).func;
+ mycdiVlistDestroy_(vlistID, false);
+}
+
+static void
+var_copy_entries(var_t *var2, var_t *var1)
+{
+ var2->opt_grib_kvpair_size = 0;
+ var2->opt_grib_kvpair = NULL;
+ var2->opt_grib_nentries = 0;
+
+ resize_opt_grib_entries(var2, var1->opt_grib_nentries);
+ var2->opt_grib_nentries = var1->opt_grib_nentries;
+ if ((var2->opt_grib_nentries > 0) && CDI_Debug) Message("copy %d optional GRIB keywords", var2->opt_grib_nentries);
+
+ for (int i = 0; i < var1->opt_grib_nentries; i++)
+ {
+ if (CDI_Debug) Message("copy entry \"%s\" ...", var1->opt_grib_kvpair[i].keyword);
+ var2->opt_grib_kvpair[i].keyword = NULL;
+ if (var1->opt_grib_kvpair[i].keyword != NULL)
+ {
+ var2->opt_grib_kvpair[i] = var1->opt_grib_kvpair[i];
+ var2->opt_grib_kvpair[i].keyword = strdup(var1->opt_grib_kvpair[i].keyword);
+ var2->opt_grib_kvpair[i].update = true;
+ if (CDI_Debug) Message("done.");
+ }
+ else
+ {
+ if (CDI_Debug) Message("not done.");
+ }
+ }
+}
+
+/*
+@Function vlistCopy
+@Title Copy a variable list
+
+@Prototype void vlistCopy(int vlistID2, int vlistID1)
+@Parameter
+ @Item vlistID2 Target variable list ID.
+ @Item vlistID1 Source variable list ID.
+
+@Description
+The function @func{vlistCopy} copies all entries from vlistID1 to vlistID2.
+
+@EndFunction
+*/
+void
+vlistCopy(int vlistID2, int vlistID1)
+{
+ vlist_t *vlistptr1 = vlist_to_pointer(vlistID1);
+ vlist_t *vlistptr2 = vlist_to_pointer(vlistID2);
+ if (CDI_Debug) Message("call to vlistCopy, vlistIDs %d -> %d", vlistID1, vlistID2);
+
+ var_t *vars1 = vlistptr1->vars;
+ var_t *vars2 = vlistptr2->vars;
+ vlist_copy(vlistptr2, vlistptr1);
+
+ vlistptr2->keys.nelems = 0;
+ cdiCopyKeys(vlistID1, CDI_GLOBAL, vlistID2, CDI_GLOBAL);
+ vlistptr2->atts.nelems = 0;
+ cdiCopyAtts(vlistID1, CDI_GLOBAL, vlistID2, CDI_GLOBAL);
+
+ if (vars1)
+ {
+ int nvars = vlistptr1->nvars;
+ // vlistptr2->varsAllocated = nvars;
+
+ size_t n = (size_t) vlistptr2->varsAllocated;
+ vars2 = (var_t *) Realloc(vars2, n * sizeof(var_t));
+ memcpy(vars2, vars1, n * sizeof(var_t));
+ vlistptr2->vars = vars2;
+
+ for (int varID = 0; varID < nvars; varID++)
+ {
+ var_copy_entries(&vars2[varID], &vars1[varID]);
+ vlistptr2->vars[varID].keys.nelems = 0;
+ cdiCopyKeys(vlistID1, varID, vlistID2, varID);
+
+ vlistptr2->vars[varID].atts.nelems = 0;
+ cdiCopyAtts(vlistID1, varID, vlistID2, varID);
+
+ if (vars1[varID].levinfo)
+ {
+ n = (size_t) zaxisInqSize(vars1[varID].zaxisID);
+ vars2[varID].levinfo = (levinfo_t *) Malloc(n * sizeof(levinfo_t));
+ memcpy(vars2[varID].levinfo, vars1[varID].levinfo, n * sizeof(levinfo_t));
+ }
+ }
+ }
+}
+
+/*
+@Function vlistDuplicate
+@Title Duplicate a variable list
+
+@Prototype int vlistDuplicate(int vlistID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+
+@Description
+The function @func{vlistDuplicate} duplicates the variable list from vlistID1.
+
+@Result
+@func{vlistDuplicate} returns an identifier to the duplicated variable list.
+
+@EndFunction
+*/
+int
+vlistDuplicate(int vlistID)
+{
+ if (CDI_Debug) Message("call to vlistDuplicate");
+
+ int vlistIDnew = vlistCreate();
+ vlistCopy(vlistIDnew, vlistID);
+ return vlistIDnew;
+}
+
+void
+vlistClearFlag(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ for (int varID = 0; varID < vlistptr->nvars; varID++)
+ {
+ vlistptr->vars[varID].flag = false;
+ if (vlistptr->vars[varID].levinfo)
+ {
+ int nlevs = zaxisInqSize(vlistptr->vars[varID].zaxisID);
+ for (int levID = 0; levID < nlevs; levID++) vlistptr->vars[varID].levinfo[levID].flag = false;
+ }
+ }
+}
+
+struct vgzSearchState
+{
+ int resIDValue;
+ int zaxistype;
+ int nlevels;
+ const double *levels;
+ const double *lbounds;
+ const double *ubounds;
+};
+
+static enum cdiApplyRet
+vgzZAxisSearch(int id, void *res, void *data)
+{
+ struct vgzSearchState *state = (struct vgzSearchState *) data;
+ (void) res;
+ if (zaxis_compare(id, state->zaxistype, state->nlevels, state->levels, state->lbounds, state->ubounds, NULL, NULL, 0, -1)
+ == false)
+ {
+ state->resIDValue = id;
+ return CDI_APPLY_STOP;
+ }
+ else
+ return CDI_APPLY_GO_ON;
+}
+
+static int
+vlist_generate_zaxis(int vlistID, int zaxistype, int nlevels, const double *levels, const double *lbounds, const double *ubounds,
+ int vctsize, const double *vct, const char **cvals, size_t clen)
+{
+ int zaxisID = CDI_UNDEFID;
+ bool zaxisdefined = false;
+ bool zaxisglobdefined = false;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ int nzaxis = vlistptr->nzaxis;
+
+ bool hasBounds = (lbounds && ubounds);
+
+ for (int index = 0; index < nzaxis; ++index)
+ {
+ zaxisID = vlistptr->zaxisIDs[index];
+
+ if (zaxis_compare(zaxisID, zaxistype, nlevels, levels, lbounds, ubounds, NULL, NULL, 0, -1) == false)
+ {
+ zaxisdefined = true;
+ break;
+ }
+ }
+
+ if (!zaxisdefined)
+ {
+ struct vgzSearchState query;
+ query.zaxistype = zaxistype;
+ query.nlevels = nlevels;
+ query.levels = levels;
+ query.lbounds = lbounds;
+ query.ubounds = ubounds;
+
+ if ((zaxisglobdefined = (cdiResHFilterApply(getZaxisOps(), vgzZAxisSearch, &query) == CDI_APPLY_STOP)))
+ zaxisID = query.resIDValue;
+ }
+
+ if (!zaxisdefined)
+ {
+ if (!zaxisglobdefined)
+ {
+ zaxisID = zaxisCreate(zaxistype, nlevels);
+ zaxisDefLevels(zaxisID, levels);
+
+ if (zaxistype == ZAXIS_CHAR) zaxisDefCvals(zaxisID, cvals, (int) clen);
+
+ if (hasBounds)
+ {
+ zaxisDefLbounds(zaxisID, lbounds);
+ zaxisDefUbounds(zaxisID, ubounds);
+ }
+
+ if (zaxistype == ZAXIS_HYBRID && vctsize > 0) zaxisDefVct(zaxisID, vctsize, vct);
+ }
+
+ nzaxis = vlistptr->nzaxis;
+ vlistptr->zaxisIDs[nzaxis] = zaxisID;
+ vlistptr->nzaxis++;
+ }
+
+ return zaxisID;
+}
+
+/*
+@Function vlistCopyFlag
+@Title Copy some entries of a variable list
+
+@Prototype void vlistCopyFlag(int vlistID2, int vlistID1)
+@Parameter
+ @Item vlistID2 Target variable list ID.
+ @Item vlistID1 Source variable list ID.
+
+@Description
+The function @func{vlistCopyFlag} copies all entries with a flag from vlistID1 to vlistID2.
+
+@EndFunction
+*/
+void
+vlistCopyFlag(int vlistID2, int vlistID1)
+{
+ vlist_t *vlistptr1 = vlist_to_pointer(vlistID1);
+ vlist_t *vlistptr2 = vlist_to_pointer(vlistID2);
+ var_t *vars1 = vlistptr1->vars;
+ var_t *vars2 = vlistptr2->vars;
+
+ vlist_copy(vlistptr2, vlistptr1);
+
+ vlistptr2->keys.nelems = 0;
+ cdiCopyKeys(vlistID1, CDI_GLOBAL, vlistID2, CDI_GLOBAL);
+ vlistptr2->atts.nelems = 0;
+ cdiCopyAtts(vlistID1, CDI_GLOBAL, vlistID2, CDI_GLOBAL);
+
+ if (vlistptr1->vars)
+ {
+ vlistptr2->ngrids = 0;
+ vlistptr2->nzaxis = 0;
+
+ int nvars = vlistptr1->nvars;
+ int nvars2 = 0;
+ for (int varID = 0; varID < nvars; varID++) nvars2 += vars1[varID].flag;
+
+ vlistptr2->nvars = nvars2;
+ vlistptr2->varsAllocated = nvars2;
+ vars2 = (nvars2 > 0) ? (var_t *) Malloc((size_t) nvars2 * sizeof(var_t)) : NULL;
+
+ vlistptr2->vars = vars2;
+
+ int varID2 = 0;
+ for (int varID = 0; varID < nvars; varID++)
+ if (vars1[varID].flag)
+ {
+ vlistptr2->vars[varID2].flag = false;
+ int zaxisID = vlistptr1->vars[varID].zaxisID;
+ int gridID = vlistptr1->vars[varID].gridID;
+ int subtypeID = vlistptr1->vars[varID].subtypeID;
+
+ memcpy(&vars2[varID2], &vars1[varID], sizeof(var_t));
+
+ vars1[varID].fvarID = varID2;
+ vars2[varID2].fvarID = varID;
+
+ vars2[varID2].mvarID = varID2;
+
+ var_copy_entries(&vars2[varID2], &vars1[varID]);
+ vlistptr2->vars[varID2].keys.nelems = 0;
+ cdiCopyKeys(vlistID1, varID, vlistID2, varID2);
+
+ vlistptr2->vars[varID2].atts.nelems = 0;
+ cdiCopyAtts(vlistID1, varID, vlistID2, varID2);
+
+ int nlevs = zaxisInqSize(vars1[varID].zaxisID);
+ int nlevs2 = 0;
+ if (vars1[varID].levinfo)
+ for (int levID = 0; levID < nlevs; levID++) nlevs2 += vars1[varID].levinfo[levID].flag;
+
+ vars2[varID2].levinfo = (levinfo_t *) Malloc((size_t) nlevs2 * sizeof(levinfo_t));
+
+ if (nlevs != nlevs2)
+ {
+ int nvct = 0;
+ double *levels = NULL;
+ double *lbounds = NULL, *ubounds = NULL;
+ const double *vct = NULL;
+
+ if (!vars1[varID].levinfo) cdiVlistCreateVarLevInfo(vlistptr1, varID);
+
+ zaxisID = vars1[varID].zaxisID;
+ int zaxisType = zaxisInqType(zaxisID);
+
+ int levID2 = 0;
+ for (int levID = 0; levID < nlevs; levID++)
+ if (vars1[varID].levinfo[levID].flag)
+ {
+ vars1[varID].levinfo[levID].flevelID = levID2;
+ vars1[varID].levinfo[levID].mlevelID = levID2;
+ }
+
+ if (zaxisInqLevels(zaxisID, NULL))
+ {
+ levels = (double *) Malloc((size_t) nlevs2 * sizeof(double));
+
+ levID2 = 0;
+ for (int levID = 0; levID < nlevs; ++levID)
+ if (vars1[varID].levinfo[levID].flag) levels[levID2++] = zaxisInqLevel(zaxisID, levID);
+ }
+
+ if (zaxisType == ZAXIS_HYBRID)
+ {
+ nvct = zaxisInqVctSize(zaxisID);
+ vct = zaxisInqVctPtr(zaxisID);
+ }
+
+ size_t clen2 = 0;
+ char **cvals2 = NULL;
+#ifndef USE_MPI
+ if (zaxisType == ZAXIS_CHAR)
+ {
+ char **cvals1 = zaxisInqCValsPtr(zaxisID);
+ size_t clen1 = (size_t) zaxisInqCLen(zaxisID);
+ for (int levID = 0; levID < nlevs; ++levID)
+ if (vars1[varID].levinfo[levID].flag)
+ {
+ size_t testlen = clen1;
+ while (cvals1[levID][testlen] == ' ') testlen--;
+ if (clen2 < testlen) clen2 = testlen;
+ }
+ cvals2 = (char **) Malloc((size_t) nlevs2 * sizeof(char *));
+ levID2 = 0;
+
+ for (int levID = 0; levID < nlevs; ++levID)
+ if (vars1[varID].levinfo[levID].flag)
+ {
+ cvals2[levID2] = (char *) Malloc((size_t) (clen2) * sizeof(char));
+ memcpy(cvals2[levID2], cvals1[levID], clen2 * sizeof(char));
+ levID2++;
+ }
+ }
+#endif
+
+ if (zaxisInqLbounds(zaxisID, NULL) && zaxisInqUbounds(zaxisID, NULL))
+ {
+ lbounds = (double *) Malloc(2 * (size_t) nlevs2 * sizeof(double));
+ ubounds = lbounds + nlevs2;
+
+ double *lbounds1 = (double *) Malloc(2 * (size_t) nlevs * sizeof(double)), *ubounds1 = lbounds1 + nlevs;
+
+ zaxisInqLbounds(zaxisID, lbounds1);
+ zaxisInqUbounds(zaxisID, ubounds1);
+
+ levID2 = 0;
+ for (int levID = 0; levID < nlevs; ++levID)
+ if (vars1[varID].levinfo[levID].flag)
+ {
+ lbounds[levID2] = lbounds1[levID];
+ ubounds[levID2] = ubounds1[levID];
+ levID2++;
+ }
+
+ Free(lbounds1);
+ }
+
+ int zaxisID2 = vlist_generate_zaxis(vlistID2, zaxisType, nlevs2, levels, lbounds, ubounds, nvct, vct,
+ (const char **) cvals2, clen2);
+ if (levels) Free(levels);
+ if (lbounds) Free(lbounds);
+ if (cvals2)
+ {
+ for (int levID = 0; levID < nlevs2; ++levID) Free(cvals2[levID]);
+ Free(cvals2);
+ }
+
+ char ctemp[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_NAME, ctemp, &length);
+ cdiDefKeyString(zaxisID2, CDI_GLOBAL, CDI_KEY_NAME, ctemp);
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_LONGNAME, ctemp, &length);
+ cdiDefKeyString(zaxisID2, CDI_GLOBAL, CDI_KEY_LONGNAME, ctemp);
+ length = CDI_MAX_NAME;
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, ctemp, &length);
+ cdiDefKeyString(zaxisID2, CDI_GLOBAL, CDI_KEY_UNITS, ctemp);
+
+ zaxisDefDatatype(zaxisID2, zaxisInqDatatype(zaxisID));
+ zaxisDefPositive(zaxisID2, zaxisInqPositive(zaxisID));
+
+ if (zaxisType == ZAXIS_CHAR)
+ {
+ char dimname[CDI_MAX_NAME + 3];
+ length = sizeof(dimname);
+ cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_DIMNAME, dimname, &length);
+ if (dimname[0] == 0)
+ {
+ memcpy(dimname, "area_type", 10);
+ dimname[10] = 0;
+ }
+ cdiDefKeyString(zaxisID2, CDI_GLOBAL, CDI_KEY_DIMNAME, dimname);
+ }
+
+ if (zaxisType == ZAXIS_GENERIC) cdiCopyKey(zaxisID, CDI_GLOBAL, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE, zaxisID2);
+
+ cdiCopyAtts(zaxisID, CDI_GLOBAL, zaxisID2, CDI_GLOBAL);
+
+ zaxisID = zaxisID2;
+ vars2[varID2].zaxisID = zaxisID2;
+ }
+
+ for (int levID = 0; levID < nlevs2; levID++)
+ {
+ vars2[varID2].levinfo[levID].flag = false;
+ vars2[varID2].levinfo[levID].index = -1;
+ }
+
+ int levID2 = 0;
+ for (int levID = 0; levID < nlevs; levID++)
+ if (vars1[varID].levinfo[levID].flag)
+ {
+ vars2[varID2].levinfo[levID2].flevelID = levID;
+ vars2[varID2].levinfo[levID2].mlevelID = levID2;
+ levID2++;
+ }
+
+ vlistAdd2GridIDs(vlistptr2, gridID);
+ vlistAdd2ZaxisIDs(vlistptr2, zaxisID);
+ vlistAdd2SubtypeIDs(vlistptr2, subtypeID);
+
+ varID2++;
+ }
+ }
+}
+
+/*
+@Function vlistCat
+@Title Concatenate two variable lists
+
+@Prototype void vlistCat(int vlistID2, int vlistID1)
+@Parameter
+ @Item vlistID2 Target variable list ID.
+ @Item vlistID1 Source variable list ID.
+
+@Description
+Concatenate the variable list vlistID1 at the end of vlistID2.
+
+@EndFunction
+*/
+void
+vlistCat(int vlistID2, int vlistID1)
+{
+ vlist_t *vlistptr1 = vlist_to_pointer(vlistID1);
+ vlist_t *vlistptr2 = vlist_to_pointer(vlistID2);
+ var_t *vars1 = vlistptr1->vars;
+ var_t *vars2 = vlistptr2->vars;
+ int nvars1 = vlistptr1->nvars;
+ int nvars2 = vlistptr2->nvars;
+ int nvars = nvars1 + nvars2;
+ vlistptr2->nvars = nvars;
+
+ if (nvars > vlistptr2->varsAllocated)
+ {
+ vlistptr2->varsAllocated = nvars;
+ vars2 = (var_t *) Realloc(vars2, (size_t) nvars * sizeof(var_t));
+ vlistptr2->vars = vars2;
+ }
+ memcpy(vars2 + nvars2, vars1, (size_t) nvars1 * sizeof(var_t));
+
+ for (int varID = 0; varID < nvars1; varID++)
+ {
+ int varID2 = varID + nvars2;
+ vars1[varID].fvarID = varID2;
+ vars2[varID2].fvarID = varID;
+
+ vars1[varID].mvarID = varID2;
+ vars2[varID2].mvarID = varID;
+
+ if (vars1[varID].param < 0)
+ {
+ int pnum, pcat, pdis;
+ cdiDecodeParam(vars1[varID].param, &pnum, &pcat, &pdis);
+ pnum = -(varID2 + 1);
+ vars2[varID2].param = cdiEncodeParam(pnum, pcat, pdis);
+ }
+
+ var_copy_entries(&vars2[varID2], &vars1[varID]);
+ vars2[varID2].keys.nelems = 0;
+ cdiCopyKeys(vlistID1, varID, vlistID2, varID2);
+
+ if (vars1[varID].levinfo)
+ {
+ size_t nlevs = (size_t) zaxisInqSize(vars1[varID].zaxisID);
+ vars2[varID2].levinfo = (levinfo_t *) Malloc(nlevs * sizeof(levinfo_t));
+ memcpy(vars2[varID2].levinfo, vars1[varID].levinfo, nlevs * sizeof(levinfo_t));
+ }
+
+ vars2[varID2].atts.nelems = 0;
+ cdiCopyAtts(vlistID1, varID, vlistID2, varID2);
+
+ vlistAdd2GridIDs(vlistptr2, vars1[varID].gridID);
+ vlistAdd2ZaxisIDs(vlistptr2, vars1[varID].zaxisID);
+ vlistAdd2SubtypeIDs(vlistptr2, vars1[varID].subtypeID);
+ }
+}
+
+/*
+@Function vlistMerge
+@Title Merge two variable lists
+
+@Prototype void vlistMerge(int vlistID2, int vlistID1)
+@Parameter
+ @Item vlistID2 Target variable list ID.
+ @Item vlistID1 Source variable list ID.
+
+@Description
+Merge the variable list vlistID1 to the variable list vlistID2.
+
+@EndFunction
+*/
+void
+vlistMerge(int vlistID2, int vlistID1)
+{
+ int varID = 0;
+ vlist_t *vlistptr1 = vlist_to_pointer(vlistID1);
+ vlist_t *vlistptr2 = vlist_to_pointer(vlistID2);
+ var_t *vars1 = vlistptr1->vars;
+ var_t *vars2 = vlistptr2->vars;
+ int nvars1 = vlistptr1->nvars;
+ int nvars2 = vlistptr2->nvars;
+
+ if (nvars1 == nvars2)
+ {
+ char name1[CDI_MAX_NAME], name2[CDI_MAX_NAME];
+ for (varID = 0; varID < nvars2; varID++)
+ {
+ size_t ngp1 = gridInqSize(vars1[varID].gridID);
+ size_t ngp2 = gridInqSize(vars2[varID].gridID);
+ if (ngp1 != ngp2) break;
+
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(vlistID1, varID, CDI_KEY_NAME, name1, &length);
+ length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(vlistID2, varID, CDI_KEY_NAME, name2, &length);
+
+ if (*name1 && *name2)
+ {
+ if (!str_is_equal(name1, name2)) break;
+ }
+ else
+ {
+ if (vars1[varID].param != vars2[varID].param) break;
+ }
+ }
+ }
+
+ if (varID == nvars2) /* same variables in vlistID1 and vlistID2 */
+ {
+ for (varID = 0; varID < nvars2; varID++)
+ {
+ vars1[varID].fvarID = varID;
+ vars2[varID].fvarID = varID;
+
+ vars1[varID].mvarID = varID;
+ vars2[varID].mvarID = varID;
+
+ int nlevs1 = zaxisInqSize(vars1[varID].zaxisID);
+ int nlevs2 = zaxisInqSize(vars2[varID].zaxisID);
+
+ int nlevs = nlevs1 + nlevs2;
+
+ /*
+ fprintf(stderr, "var %d %d %d %d %d\n", varID, nlevs1, nlevs2, nlevs, sizeof(levinfo_t));
+ */
+ if (vars1[varID].levinfo)
+ {
+ vars2[varID].levinfo = (levinfo_t *) Realloc(vars2[varID].levinfo, (size_t) nlevs * sizeof(levinfo_t));
+
+ memcpy(vars2[varID].levinfo + nlevs2, vars1[varID].levinfo, (size_t) nlevs1 * sizeof(levinfo_t));
+ }
+ else
+ cdiVlistCreateVarLevInfo(vlistptr1, varID);
+
+ for (int levID = 0; levID < nlevs1; levID++) vars1[varID].levinfo[levID].mlevelID = nlevs2 + levID;
+ }
+
+ bool *lvar = (bool *) Calloc((size_t) nvars2, sizeof(bool));
+
+ for (varID = 0; varID < nvars2; varID++)
+ {
+ if (lvar[varID] == true) continue;
+
+ int zaxisID1 = vars1[varID].zaxisID;
+ int zaxisID2 = vars2[varID].zaxisID;
+ // nlevs1 = zaxisInqSize(vars1[varID].zaxisID);
+ // nlevs2 = zaxisInqSize(vars2[varID].zaxisID);
+ int nlevs1 = zaxisInqSize(zaxisID1);
+ int nlevs2 = zaxisInqSize(zaxisID2);
+ // fprintf(stderr, "zaxis %d %d %d %d\n", zaxisID1, zaxisID2, nlevs1, nlevs2);
+
+ int nlevs = nlevs1 + nlevs2;
+
+ int zaxisID = zaxisDuplicate(zaxisID2);
+ zaxisResize(zaxisID, nlevs);
+
+ if (zaxisInqLevels(zaxisID1, NULL))
+ {
+ double *levels = (double *) Malloc((size_t) nlevs1 * sizeof(double));
+
+ zaxisInqLevels(zaxisID1, levels);
+ /*
+ for (int levID = 0; levID < nlevs1; levID++)
+ fprintf(stderr, "%d %d %d %d %d %g\n", varID, levID, nlevs1, nlevs2, vars2[varID].nlevs, levels[levID]);
+ */
+ for (int levID = 0; levID < nlevs1; levID++) zaxisDefLevel(zaxisID, nlevs2 + levID, levels[levID]);
+
+ Free(levels);
+ }
+
+ for (int index = 0; index < vlistptr2->nzaxis; index++)
+ if (vlistptr2->zaxisIDs[index] == zaxisID2) vlistptr2->zaxisIDs[index] = zaxisID;
+
+ for (int varID2 = 0; varID2 < nvars2; varID2++)
+ if (lvar[varID2] == false && vars2[varID2].zaxisID == zaxisID2)
+ {
+ vars2[varID2].zaxisID = zaxisID;
+ lvar[varID2] = true;
+ }
+ }
+
+ Free(lvar);
+ }
+ else
+ {
+ vlistCat(vlistID2, vlistID1);
+ }
+}
+
+/*
+@Function vlistNvars
+@Title Number of variables in a variable list
+
+@Prototype int vlistNvars(int vlistID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+
+@Description
+The function @func{vlistNvars} returns the number of variables in the variable list vlistID.
+
+@Result
+@func{vlistNvars} returns the number of variables in a variable list.
+
+@EndFunction
+*/
+int
+vlistNvars(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ return vlistptr->nvars;
+}
+
+int
+vlistNrecs(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int nrecs = 0;
+ for (int varID = 0; varID < vlistptr->nvars; varID++) nrecs += zaxisInqSize(vlistptr->vars[varID].zaxisID);
+
+ return nrecs;
+}
+
+int
+vlistNumber(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int datatype = vlistptr->vars[0].datatype;
+ int number = (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64) ? CDI_COMP : CDI_REAL;
+
+ for (int varID = 1; varID < vlistptr->nvars; varID++)
+ {
+ datatype = vlistptr->vars[varID].datatype;
+ int number2 = (datatype == CDI_DATATYPE_CPX32 || datatype == CDI_DATATYPE_CPX64) ? CDI_COMP : CDI_REAL;
+ if (number2 != number)
+ {
+ number = CDI_BOTH;
+ break;
+ }
+ }
+
+ return number;
+}
+
+/*
+@Function vlistNgrids
+@Title Number of grids in a variable list
+
+@Prototype int vlistNgrids(int vlistID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+
+@Description
+The function @func{vlistNgrids} returns the number of grids in the variable list vlistID.
+
+@Result
+@func{vlistNgrids} returns the number of grids in a variable list.
+
+@EndFunction
+*/
+int
+vlistNgrids(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ return vlistptr->ngrids;
+}
+
+/*
+@Function vlistNzaxis
+@Title Number of zaxis in a variable list
+
+@Prototype int vlistNzaxis(int vlistID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+
+@Description
+The function @func{vlistNzaxis} returns the number of zaxis in the variable list vlistID.
+
+@Result
+@func{vlistNzaxis} returns the number of zaxis in a variable list.
+
+@EndFunction
+*/
+int
+vlistNzaxis(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ return vlistptr->nzaxis;
+}
+
+int
+vlistNsubtypes(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ return vlistptr->nsubtypes;
+}
+
+void
+vlistDefNtsteps(int vlistID, int nts)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (vlistptr->ntsteps != nts)
+ {
+ vlistptr->ntsteps = nts;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+// This function is used in CDO!
+int
+vlistNtsteps(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ return (int) vlistptr->ntsteps;
+}
+
+static void
+vlistPrintKernel(vlist_t *vlistptr, FILE *fp)
+{
+ int vlistID = vlistptr->self;
+ fprintf(fp, "#\n# vlistID %d\n#\n", vlistID);
+
+ int nvars = vlistptr->nvars;
+
+ fprintf(fp,
+ "nvars : %d\n"
+ "ngrids : %d\n"
+ "nzaxis : %d\n"
+ "nsubtypes: %d\n"
+ "taxisID : %d\n"
+ "instID : %d\n"
+ "modelID : %d\n"
+ "tableID : %d\n",
+ nvars, vlistptr->ngrids, vlistptr->nzaxis, vlistptr->nsubtypes, vlistptr->taxisID, vlistptr->instID, vlistptr->modelID,
+ vlistptr->tableID);
+
+ if (nvars > 0)
+ {
+ fprintf(fp, " varID param gridID zaxisID stypeID tsteptype flag name longname units\n");
+ for (int varID = 0; varID < nvars; varID++)
+ {
+ int param = vlistptr->vars[varID].param;
+ int gridID = vlistptr->vars[varID].gridID;
+ int zaxisID = vlistptr->vars[varID].zaxisID;
+ int subtypeID = vlistptr->vars[varID].subtypeID;
+ int tsteptype = vlistptr->vars[varID].tsteptype;
+ char name[CDI_MAX_NAME], longname[CDI_MAX_NAME], units[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(vlistID, varID, CDI_KEY_NAME, name, &length);
+ length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(vlistID, varID, CDI_KEY_LONGNAME, longname, &length);
+ length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(vlistID, varID, CDI_KEY_UNITS, units, &length);
+ int flag = vlistptr->vars[varID].flag;
+
+ char paramstr[32];
+ cdiParamToString(param, paramstr, sizeof(paramstr));
+ fprintf(fp, "%6d %-8s %6d %6d %6d %6d %5d %-8s %s [%s]\n", varID, paramstr, gridID, zaxisID, subtypeID, tsteptype,
+ flag, name, longname, units);
+ }
+
+ fputs("\n"
+ " varID levID fvarID flevID mvarID mlevID index dtype flag level\n",
+ fp);
+ for (int varID = 0; varID < nvars; varID++)
+ {
+ int zaxisID = vlistptr->vars[varID].zaxisID;
+ int nlevs = zaxisInqSize(zaxisID);
+ int fvarID = vlistptr->vars[varID].fvarID;
+ int mvarID = vlistptr->vars[varID].mvarID;
+ int dtype = vlistptr->vars[varID].datatype;
+ for (int levID = 0; levID < nlevs; levID++)
+ {
+ levinfo_t li;
+ if (vlistptr->vars[varID].levinfo)
+ li = vlistptr->vars[varID].levinfo[levID];
+ else
+ li = DEFAULT_LEVINFO(levID);
+ int flevID = li.flevelID;
+ int mlevID = li.mlevelID;
+ int index = li.index;
+ int flag = li.flag;
+
+ double level = zaxisInqLevels(zaxisID, NULL) ? zaxisInqLevel(zaxisID, levID) : levID + 1;
+
+ fprintf(fp, "%6d %6d %6d %6d %6d %6d %6d %6d %5d %.9g\n", varID, levID, fvarID, flevID, mvarID, mlevID, index, dtype,
+ flag, level);
+ }
+ }
+
+ fputs("\n"
+ " varID size\n",
+ fp);
+ for (int varID = 0; varID < nvars; varID++)
+ fprintf(fp, "%3d %8zu\n", varID,
+ (size_t) zaxisInqSize(vlistptr->vars[varID].zaxisID) * gridInqSize(vlistptr->vars[varID].gridID));
+ }
+}
+
+void
+vlistPrint(int vlistID)
+{
+ if (vlistID == CDI_UNDEFID) return;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ vlistPrintKernel(vlistptr, stdout);
+}
+
+/*
+@Function vlistDefTaxis
+@Title Define the time axis
+
+@Prototype void vlistDefTaxis(int vlistID, int taxisID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item taxisID Time axis ID, from a previous call to @fref{taxisCreate}.
+
+@Description
+The function @func{vlistDefTaxis} defines the time axis of a variable list.
+
+@EndFunction
+*/
+void
+vlistDefTaxis(int vlistID, int taxisID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (vlistptr->taxisID != taxisID)
+ {
+ // FIXME: This code seems to leak a taxis_t object if `vlistptr->taxisID` was valid before the call to vlistDefTaxis.
+ vlistptr->taxisID = taxisID;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function vlistInqTaxis
+@Title Get the time axis
+
+@Prototype int vlistInqTaxis(int vlistID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+
+@Description
+The function @func{vlistInqTaxis} returns the time axis of a variable list.
+
+@Result
+@func{vlistInqTaxis} returns an identifier to the time axis.
+
+@EndFunction
+*/
+int
+vlistInqTaxis(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ return vlistptr->taxisID;
+}
+
+void
+vlistDefTable(int vlistID, int tableID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (vlistptr->tableID != tableID)
+ {
+ vlistptr->tableID = tableID;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqTable(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ return vlistptr->tableID;
+}
+
+void
+vlistDefInstitut(int vlistID, int instID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (vlistptr->instID != instID)
+ {
+ vlistptr->instID = instID;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqInstitut(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int instID = vlistptr->instID;
+
+ if (instID == CDI_UNDEFID)
+ {
+ instID = vlistInqVarInstitut(vlistID, 0);
+
+ for (int varID = 1; varID < vlistptr->nvars; varID++)
+ if (instID != vlistInqVarInstitut(vlistID, varID))
+ {
+ instID = CDI_UNDEFID;
+ break;
+ }
+ vlistDefInstitut(vlistID, instID);
+ }
+
+ return instID;
+}
+
+void
+vlistDefModel(int vlistID, int modelID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (vlistptr->modelID != modelID)
+ {
+ vlistptr->modelID = modelID;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqModel(int vlistID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int modelID = vlistptr->modelID;
+
+ if (modelID == CDI_UNDEFID)
+ {
+ modelID = vlistInqVarModel(vlistID, 0);
+
+ for (int varID = 1; varID < vlistptr->nvars; varID++)
+ if (modelID != vlistInqVarModel(vlistID, varID))
+ {
+ modelID = CDI_UNDEFID;
+ break;
+ }
+
+ vlistDefModel(vlistID, modelID);
+ }
+
+ return modelID;
+}
+
+SizeType
+vlistGridsizeMax(int vlistID)
+{
+ SizeType gridsizemax = 0;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ for (int index = 0; index < vlistptr->ngrids; index++)
+ {
+ int gridID = vlistptr->gridIDs[index];
+ SizeType gridsize = gridInqSize(gridID);
+ if (gridsize > gridsizemax) gridsizemax = gridsize;
+ }
+
+ return gridsizemax;
+}
+
+int
+vlistGrid(int vlistID, int index)
+{
+ int gridID = CDI_UNDEFID;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (index < vlistptr->ngrids && index >= 0) gridID = vlistptr->gridIDs[index];
+
+ return gridID;
+}
+
+int
+vlistGridIndex(int vlistID, int gridID)
+{
+ int index;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ for (index = 0; index < vlistptr->ngrids; index++)
+ if (gridID == vlistptr->gridIDs[index]) break;
+
+ if (index == vlistptr->ngrids) index = -1;
+
+ return index;
+}
+
+void
+vlistChangeGridIndex(int vlistID, int index, int gridID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int gridIDold = vlistptr->gridIDs[index];
+ if (gridIDold != gridID)
+ {
+ vlistptr->gridIDs[index] = gridID;
+
+ int nvars = vlistptr->nvars;
+ for (int varID = 0; varID < nvars; varID++)
+ if (vlistptr->vars[varID].gridID == gridIDold)
+ {
+ vlistptr->vars[varID].gridID = gridID;
+ int chunkSize = 0;
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_CHUNKSIZE, &chunkSize);
+ if (chunkSize > 0) cdiDeleteKey(vlistID, varID, CDI_KEY_CHUNKSIZE);
+ }
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+vlistChangeGrid(int vlistID, int gridID1, int gridID2)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (gridID1 != gridID2)
+ {
+ int ngrids = vlistptr->ngrids;
+ for (int index = 0; index < ngrids; index++)
+ {
+ if (vlistptr->gridIDs[index] == gridID1)
+ {
+ vlistptr->gridIDs[index] = gridID2;
+ break;
+ }
+ }
+ int nvars = vlistptr->nvars;
+ for (int varID = 0; varID < nvars; varID++)
+ if (vlistptr->vars[varID].gridID == gridID1) vlistptr->vars[varID].gridID = gridID2;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistZaxis(int vlistID, int index)
+{
+ int zaxisID = CDI_UNDEFID;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (index < vlistptr->nzaxis && index >= 0) zaxisID = vlistptr->zaxisIDs[index];
+
+ return zaxisID;
+}
+
+int
+vlistZaxisIndex(int vlistID, int zaxisID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int index;
+ for (index = 0; index < vlistptr->nzaxis; index++)
+ if (zaxisID == vlistptr->zaxisIDs[index]) break;
+
+ if (index == vlistptr->nzaxis) index = -1;
+
+ return index;
+}
+
+void
+vlistChangeZaxisIndex(int vlistID, int index, int zaxisID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int zaxisIDold = vlistptr->zaxisIDs[index];
+ if (zaxisIDold != zaxisID)
+ {
+ vlistptr->zaxisIDs[index] = zaxisID;
+
+ int nlevs = zaxisInqSize(zaxisID), nlevsOld = zaxisInqSize(zaxisIDold);
+ int nvars = vlistptr->nvars;
+ for (int varID = 0; varID < nvars; varID++)
+ if (vlistptr->vars[varID].zaxisID == zaxisIDold)
+ {
+ vlistptr->vars[varID].zaxisID = zaxisID;
+ if (vlistptr->vars[varID].levinfo && nlevs != nlevsOld)
+ {
+ vlistptr->vars[varID].levinfo
+ = (levinfo_t *) Realloc(vlistptr->vars[varID].levinfo, (size_t) nlevs * sizeof(levinfo_t));
+
+ for (int levID = 0; levID < nlevs; levID++) vlistptr->vars[varID].levinfo[levID] = DEFAULT_LEVINFO(levID);
+ }
+ }
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+vlistChangeZaxis(int vlistID, int zaxisID1, int zaxisID2)
+{
+ int nlevs1 = zaxisInqSize(zaxisID1), nlevs2 = zaxisInqSize(zaxisID2);
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int nzaxis = vlistptr->nzaxis;
+ for (int index = 0; index < nzaxis; index++)
+ {
+ if (vlistptr->zaxisIDs[index] == zaxisID1)
+ {
+ vlistptr->zaxisIDs[index] = zaxisID2;
+ break;
+ }
+ }
+
+ int nvars = vlistptr->nvars;
+ for (int varID = 0; varID < nvars; varID++)
+ if (vlistptr->vars[varID].zaxisID == zaxisID1)
+ {
+ vlistptr->vars[varID].zaxisID = zaxisID2;
+
+ if (vlistptr->vars[varID].levinfo && nlevs2 != nlevs1)
+ {
+ vlistptr->vars[varID].levinfo
+ = (levinfo_t *) Realloc(vlistptr->vars[varID].levinfo, (size_t) nlevs2 * sizeof(levinfo_t));
+
+ for (int levID = 0; levID < nlevs2; levID++) vlistptr->vars[varID].levinfo[levID] = DEFAULT_LEVINFO(levID);
+ }
+ }
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+}
+
+int
+vlistSubtype(int vlistID, int index)
+{
+ int subtypeID = CDI_UNDEFID;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (index < vlistptr->nsubtypes && index >= 0) subtypeID = vlistptr->subtypeIDs[index];
+
+ return subtypeID;
+}
+
+int
+vlistSubtypeIndex(int vlistID, int subtypeID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ int index;
+ for (index = vlistptr->nsubtypes; index--;)
+ if (subtypeID == vlistptr->subtypeIDs[index]) break;
+
+ return index;
+}
+
+int
+vlistHasTime(int vlistID)
+{
+ bool hastime = false;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ if (!(CDI_Reduce_Dim && vlistptr->ntsteps == 1))
+ {
+ size_t nvars = vlistptr->nvars > 0 ? (size_t) vlistptr->nvars : (size_t) 0;
+ var_t *restrict vars = vlistptr->vars;
+ for (size_t varID = 0; varID < nvars; varID++)
+ if (vars[varID].timetype != TIME_CONSTANT)
+ {
+ hastime = true;
+ break;
+ }
+ }
+
+ return (int) hastime;
+}
+
+enum
+{
+ VLIST_PACK_INT_SELF,
+ VLIST_PACK_INT_NVARS,
+ VLIST_PACK_INT_TAXISID,
+ VLIST_PACK_INT_TABLEID,
+ VLIST_PACK_INT_INSTID,
+ VLIST_PACK_INT_MODELID,
+ vlistNints,
+};
+
+static int
+vlistTxCode(void *vlistptr)
+{
+ (void) vlistptr;
+ return VLIST;
+}
+
+static int
+vlistGetSizeP(void *vlistptr, void *context)
+{
+ vlist_t *p = (vlist_t *) vlistptr;
+ int txsize = serializeGetSize(vlistNints, CDI_DATATYPE_INT, context);
+ txsize += serializeGetSize(1, CDI_DATATYPE_LONG, context);
+ txsize += cdiAttsGetSize(p, CDI_GLOBAL, context);
+ for (int varID = 0; varID < p->nvars; varID++) txsize += vlistVarGetPackSize(p, varID, context);
+ return txsize;
+}
+
+static void
+vlistPackP(void *vlistptr, void *buf, int size, int *position, void *context)
+{
+ int tempbuf[vlistNints];
+ vlist_t *p = (vlist_t *) vlistptr;
+ tempbuf[VLIST_PACK_INT_SELF] = p->self;
+ tempbuf[VLIST_PACK_INT_NVARS] = p->nvars;
+ tempbuf[VLIST_PACK_INT_TAXISID] = p->taxisID;
+ tempbuf[VLIST_PACK_INT_TABLEID] = p->tableID;
+ tempbuf[VLIST_PACK_INT_INSTID] = p->instID;
+ tempbuf[VLIST_PACK_INT_MODELID] = p->modelID;
+ serializePack(tempbuf, vlistNints, CDI_DATATYPE_INT, buf, size, position, context);
+ serializePack(&p->ntsteps, 1, CDI_DATATYPE_LONG, buf, size, position, context);
+
+ cdiAttsPack(p, CDI_GLOBAL, buf, size, position, context);
+ for (int varID = 0; varID < p->nvars; varID++)
+ {
+ vlistVarPack(p, varID, (char *) buf, size, position, context);
+ }
+}
+
+int
+vlistUnpack(char *buf, int size, int *position, int originNamespace, void *context, int force_id)
+{
+#define adaptKey(key) (namespaceAdaptKey((key), originNamespace))
+ int tempbuf[vlistNints];
+ serializeUnpack(buf, size, position, tempbuf, vlistNints, CDI_DATATYPE_INT, context);
+ int nvars = tempbuf[VLIST_PACK_INT_NVARS];
+ int targetID = force_id ? adaptKey(tempbuf[VLIST_PACK_INT_SELF]) : CDI_UNDEFID;
+ vlist_t *p = vlist_new_entry(targetID);
+ xassert(!force_id || p->self == targetID);
+ if (!force_id) targetID = p->self;
+ cdiVlistMakeInternal(p->self);
+ p->taxisID = adaptKey(tempbuf[VLIST_PACK_INT_TAXISID]);
+ p->tableID = tempbuf[VLIST_PACK_INT_TABLEID];
+ p->instID = adaptKey(tempbuf[VLIST_PACK_INT_INSTID]);
+ p->modelID = adaptKey(tempbuf[VLIST_PACK_INT_MODELID]);
+ serializeUnpack(buf, size, position, &p->ntsteps, 1, CDI_DATATYPE_LONG, context);
+ cdiAttsUnpack(targetID, CDI_GLOBAL, buf, size, position, context);
+ for (int varID = 0; varID < nvars; varID++) vlistVarUnpack(targetID, buf, size, position, originNamespace, context);
+ reshSetStatus(targetID, &vlistOps, reshGetStatus(targetID, &vlistOps) & ~RESH_SYNC_BIT);
+#undef adaptKey
+ return targetID;
+}
+
+void
+vlist_check_contents(int vlistID)
+{
+ int nzaxis = vlistNzaxis(vlistID);
+ for (int index = 0; index < nzaxis; index++)
+ {
+ int zaxisID = vlistZaxis(vlistID, index);
+ if (zaxisInqType(zaxisID) == ZAXIS_GENERIC) cdiCheckZaxis(zaxisID);
+ }
+}
+
+/* Resizes and initializes opt_grib_kvpair data structure. */
+void
+resize_opt_grib_entries(var_t *var, int nentries)
+{
+ if (var->opt_grib_kvpair_size >= nentries)
+ {
+ return; /* nothing to do; array is still large enough */
+ }
+ else
+ {
+ if (CDI_Debug) Message("resize data structure, %d -> %d", var->opt_grib_kvpair_size, nentries);
+
+ int new_size = (2 * var->opt_grib_kvpair_size) > nentries ? (2 * var->opt_grib_kvpair_size) : nentries;
+ opt_key_val_pair_t *tmp = (opt_key_val_pair_t *) Malloc((size_t) new_size * sizeof(opt_key_val_pair_t));
+ for (int i = 0; i < var->opt_grib_kvpair_size; ++i)
+ {
+ tmp[i] = var->opt_grib_kvpair[i];
+ }
+ for (int i = var->opt_grib_kvpair_size; i < new_size; ++i)
+ {
+ tmp[i].int_val = 0;
+ tmp[i].dbl_val = 0;
+ tmp[i].update = false;
+ tmp[i].keyword = NULL;
+ } // for
+ var->opt_grib_kvpair_size = new_size;
+ Free(var->opt_grib_kvpair);
+ var->opt_grib_kvpair = tmp;
+ }
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+static cdi_keys_t *
+vlist_get_keysp(vlist_t *vlistptr, int varID)
+{
+ if (varID == CDI_GLOBAL) return &vlistptr->keys;
+ if (varID >= 0 && varID < vlistptr->nvars) return &(vlistptr->vars[varID].keys);
+
+ return NULL;
+}
+
+static cdi_keys_t *
+grid_get_keysp(grid_t *gridptr, int varID)
+{
+ if (varID == CDI_GLOBAL) return &gridptr->keys;
+ if (varID == CDI_XAXIS) return &gridptr->x.keys;
+ if (varID == CDI_YAXIS) return &gridptr->y.keys;
+
+ return NULL;
+}
+
+static cdi_keys_t *
+zaxis_get_keysp(zaxis_t *zaxisptr, int varID)
+{
+ return (varID == CDI_GLOBAL) ? &zaxisptr->keys : NULL;
+}
+
+static cdi_key_t *
+new_key(cdi_keys_t *keysp, int key)
+{
+ xassert(keysp != NULL);
+
+ if (keysp->nelems == keysp->nalloc) return NULL;
+
+ cdi_key_t *keyp = &(keysp->value[keysp->nelems]);
+ keysp->nelems++;
+
+ keyp->key = key;
+ keyp->type = 0;
+ keyp->length = 0;
+ keyp->v.s = NULL;
+
+ return keyp;
+}
+
+cdi_key_t *
+find_key(cdi_keys_t *keysp, int key)
+{
+ xassert(keysp != NULL);
+
+ if (keysp->nelems == 0) return NULL;
+
+ for (size_t keyid = 0; keyid < keysp->nelems; keyid++)
+ {
+ cdi_key_t *keyp = &(keysp->value[keyid]);
+ if (keyp->key == key) return keyp; // Normal return
+ }
+
+ return NULL;
+}
+
+static const cdi_key_t *
+find_key_const(const cdi_keys_t *keysp, int key)
+{
+ xassert(keysp != NULL);
+
+ if (keysp->nelems == 0) return NULL;
+
+ for (size_t keyid = 0; keyid < keysp->nelems; keyid++)
+ {
+ const cdi_key_t *keyp = &(keysp->value[keyid]);
+ if (keyp->key == key) return keyp; // Normal return
+ }
+
+ return NULL;
+}
+
+static cdi_keys_t *
+cdi_get_keysp(int objID, int varID)
+{
+ if (reshGetTxCode(objID) == GRID) return grid_get_keysp(grid_to_pointer(objID), varID);
+ if (reshGetTxCode(objID) == DIST_GRID) return grid_get_keysp(grid_to_pointer(objID), varID);
+ if (reshGetTxCode(objID) == ZAXIS) return zaxis_get_keysp(zaxis_to_pointer(objID), varID);
+ if (reshGetTxCode(objID) == VLIST) return vlist_get_keysp(vlist_to_pointer(objID), varID);
+
+ return NULL;
+}
+
+int
+cdi_key_compare(cdi_keys_t *keyspa, cdi_keys_t *keyspb, int keynum)
+{
+ xassert(keynum >= 0 && keynum < (int) keyspa->nelems && keynum < (int) keyspb->nelems);
+ cdi_key_t *keypa = keyspa->value + keynum, *keypb = keyspb->value + keynum;
+
+ if (keypa->key != keypb->key) return 1;
+ if (keypa->type != keypb->type) return 1;
+ if (keypa->length != keypb->length) return 1;
+
+ if (keypa->type == KEY_BYTES) return (memcmp(keypa->v.s, keypb->v.s, keypa->length) != 0);
+ if (keypa->type == KEY_FLOAT) return (IS_NOT_EQUAL(keypa->v.d, keypb->v.d));
+ if (keypa->type == KEY_INT) return (keypa->v.i != keypb->v.i);
+
+ return 0;
+}
+
+static void
+cdi_delete_key(cdi_key_t *keyp)
+{
+ if (keyp != NULL && keyp->length) // key in use
+ {
+ keyp->length = 0;
+ if (keyp->type == KEY_BYTES)
+ {
+ if (keyp->v.s) free(keyp->v.s);
+ keyp->v.s = NULL;
+ }
+ else if (keyp->type == KEY_FLOAT)
+ {
+ keyp->v.d = 0.0;
+ }
+ else if (keyp->type == KEY_INT)
+ {
+ keyp->v.i = 0;
+ }
+ }
+}
+
+void
+cdiDeleteVarKeys(cdi_keys_t *keysp)
+{
+ int nelems = keysp ? (int) keysp->nelems : 0;
+ for (int keyid = 0; keyid < nelems; keyid++)
+ {
+ cdi_delete_key(&(keysp->value[keyid]));
+ }
+
+ keysp->nelems = 0;
+}
+
+void
+cdiDeleteKeys(int cdiID, int varID)
+{
+ cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ cdiDeleteVarKeys(keysp);
+}
+
+void
+cdiPrintVarKeys(cdi_keys_t *keysp)
+{
+ int nelems = keysp ? (int) keysp->nelems : 0;
+ for (int keyid = 0; keyid < nelems; keyid++)
+ {
+ cdi_key_t *keyp = &(keysp->value[keyid]);
+ if (keyp->length == 0) continue;
+ if (keyp->type == KEY_BYTES)
+ {
+ fprintf(stdout, "%d key %d length %d value %s\n", keyid + 1, keyp->key, keyp->length, keyp->v.s);
+ }
+ else if (keyp->type == KEY_FLOAT)
+ {
+ fprintf(stdout, "%d key %d value %g\n", keyid + 1, keyp->key, keyp->v.d);
+ }
+ else if (keyp->type == KEY_INT)
+ {
+ fprintf(stdout, "%d key %d value %d\n", keyid + 1, keyp->key, keyp->v.i);
+ }
+ }
+}
+
+void
+cdiPrintKeys(int cdiID, int varID)
+{
+ cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ cdiPrintVarKeys(keysp);
+}
+
+// cdiInqKeyLen: Get the length of the string representation of the key
+int
+cdiInqKeyLen(int cdiID, int varID, int key, int *length)
+{
+ int status = -1;
+
+ const cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ const cdi_key_t *keyp = find_key_const(keysp, key);
+ if (keyp != NULL && keyp->length > 0)
+ {
+ *length = keyp->length;
+ status = CDI_NOERR;
+ }
+
+ return status;
+}
+
+static void
+cdi_define_key(const cdi_key_t *keyp, cdi_keys_t *keysp)
+{
+ // clang-format off
+ if (keyp->type == KEY_INT) cdiDefVarKeyInt(keysp, keyp->key, keyp->v.i);
+ else if (keyp->type == KEY_FLOAT) cdiDefVarKeyFloat(keysp, keyp->key, keyp->v.d);
+ else if (keyp->type == KEY_BYTES) cdiDefVarKeyBytes(keysp, keyp->key, keyp->v.s, keyp->length);
+ // clang-format on
+}
+
+int
+cdiDeleteKey(int cdiID, int varID, int key)
+{
+ int status = CDI_NOERR;
+
+ cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ cdi_delete_key(find_key(keysp, key));
+
+ return status;
+}
+
+void
+cdiCopyVarKeys(const cdi_keys_t *keysp1, cdi_keys_t *keysp2)
+{
+ for (size_t keyid = 0; keyid < keysp1->nelems; keyid++)
+ {
+ const cdi_key_t *keyp = &(keysp1->value[keyid]);
+ if (keyp->length > 0) cdi_define_key(keyp, keysp2);
+ }
+}
+
+int
+cdiCopyKeys(int cdiID1, int varID1, int cdiID2, int varID2)
+{
+ int status = CDI_NOERR;
+
+ cdi_keys_t *keysp1 = cdi_get_keysp(cdiID1, varID1);
+ xassert(keysp1 != NULL);
+
+ cdi_keys_t *keysp2 = cdi_get_keysp(cdiID2, varID2);
+ xassert(keysp2 != NULL);
+
+ cdiCopyVarKeys(keysp1, keysp2);
+
+ return status;
+}
+
+int
+cdiCopyVarKey(const cdi_keys_t *keysp1, int key, cdi_keys_t *keysp2)
+{
+ int status = CDI_NOERR;
+
+ const cdi_key_t *keyp = find_key_const(keysp1, key);
+ if (keyp == NULL) return -1;
+
+ if (keyp->length > 0) cdi_define_key(keyp, keysp2);
+
+ return status;
+}
+
+int
+cdiCopyKey(int cdiID1, int varID1, int key, int cdiID2)
+{
+ cdi_keys_t *keysp1 = cdi_get_keysp(cdiID1, varID1);
+ xassert(keysp1 != NULL);
+
+ cdi_keys_t *keysp2 = cdi_get_keysp(cdiID2, varID1);
+ xassert(keysp2 != NULL);
+
+ return cdiCopyVarKey(keysp1, key, keysp2);
+}
+
+void
+cdiDefVarKeyInt(cdi_keys_t *keysp, int key, int value)
+{
+ cdi_key_t *keyp = find_key(keysp, key);
+ if (keyp == NULL) keyp = new_key(keysp, key);
+
+ if (keyp != NULL)
+ {
+ // if ( keyp->v.i != value )
+ {
+ keyp->type = KEY_INT;
+ keyp->v.i = value;
+ keyp->length = 1;
+ }
+ }
+}
+
+/*
+@Function cdiDefKeyInt
+@Title Define an integer value from a key
+
+@Prototype int cdiDefKeyInt(int cdiID, int varID, int key, int value)
+@Parameter
+ @Item cdiID CDI object ID (vlistID, gridID, zaxisID).
+ @Item varID Variable identifier or CDI_GLOBAL.
+ @Item key The key to be searched.
+ @Item value An integer where the data will be read.
+
+@Description
+The function @func{cdiDefKeyInt} defines an integer value from a key.
+
+@Result
+@func{cdiDefKeyInt} returns CDI_NOERR if OK.
+
+@EndFunction
+*/
+int
+cdiDefKeyInt(int cdiID, int varID, int key, int value)
+{
+ int status = CDI_NOERR;
+
+ cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ cdiDefVarKeyInt(keysp, key, value);
+
+ return status;
+}
+
+/*
+@Function cdiInqKeyInt
+@Title Get an integer value from a key
+
+@Prototype int cdiInqKeyInt(int cdiID, int varID, int key, int *value)
+@Parameter
+ @Item cdiID CDI object ID (vlistID, gridID, zaxisID).
+ @Item varID Variable identifier or CDI_GLOBAL.
+ @Item key The key to be searched..
+ @Item value The address of an integer where the data will be retrieved.
+
+@Description
+The function @func{cdiInqKeyInt} gets an integer value from a key.
+
+@Result
+@func{cdiInqKeyInt} returns CDI_NOERR if key is available.
+
+@EndFunction
+*/
+int
+cdiInqKeyInt(int cdiID, int varID, int key, int *value)
+{
+ int status = -1;
+
+ // if (varID != CDI_GLOBAL) status = cdiInqKeyInt(cdiID, CDI_GLOBAL, key, value);
+
+ const cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ const cdi_key_t *keyp = find_key_const(keysp, key);
+ if (keyp != NULL && keyp->length == 1) // key in use
+ {
+ if (keyp->type == KEY_INT)
+ {
+ *value = keyp->v.i;
+ status = CDI_NOERR;
+ }
+ }
+
+ return status;
+}
+
+int
+cdiInqVarKeyInt(const cdi_keys_t *keysp, int key)
+{
+ int value = 0;
+
+ const cdi_key_t *keyp = find_key_const(keysp, key);
+ if (keyp && keyp->type == KEY_INT) value = keyp->v.i;
+
+ return value;
+}
+
+void
+cdiDefVarKeyFloat(cdi_keys_t *keysp, int key, double value)
+{
+ cdi_key_t *keyp = find_key(keysp, key);
+ if (keyp == NULL) keyp = new_key(keysp, key);
+
+ if (keyp != NULL)
+ {
+ keyp->type = KEY_FLOAT;
+ keyp->v.d = value;
+ keyp->length = 1;
+ }
+}
+
+/*
+@Function cdiDefKeyFloat
+@Title Define a floating point value from a key
+
+@Prototype int cdiDefKeyFloat(int cdiID, int varID, int key, double value)
+@Parameter
+ @Item cdiID CDI object ID (vlistID, gridID, zaxisID).
+ @Item varID Variable identifier or CDI_GLOBAL.
+ @Item key The key to be searched
+ @Item value A double where the data will be read
+
+@Description
+The function @func{cdiDefKeyFloat} defines a CDI floating point value from a key.
+
+@Result
+@func{cdiDefKeyFloat} returns CDI_NOERR if OK.
+
+@EndFunction
+*/
+int
+cdiDefKeyFloat(int cdiID, int varID, int key, double value)
+{
+ int status = CDI_NOERR;
+
+ cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ cdiDefVarKeyFloat(keysp, key, value);
+
+ return status;
+}
+
+/*
+@Function cdiInqKeyFloat
+@Title Get a floating point value from a key
+
+@Prototype int cdiInqKeyFloat(int cdiID, int varID, int key, double *value)
+@Parameter
+ @Item cdiID CDI object ID (vlistID, gridID, zaxisID).
+ @Item varID Variable identifier or CDI_GLOBAL.
+ @Item key The key to be searched.
+ @Item value The address of a double where the data will be retrieved.
+
+@Description
+The function @func{cdiInqKeyFloat} gets a floating point value from a key.
+
+@Result
+@func{cdiInqKeyFloat} returns CDI_NOERR if key is available.
+
+@EndFunction
+*/
+int
+cdiInqKeyFloat(int cdiID, int varID, int key, double *value)
+{
+ int status = -1;
+
+ // if (varID != CDI_GLOBAL) status = cdiInqKeyFloat(cdiID, CDI_GLOBAL, key, value);
+
+ const cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ const cdi_key_t *keyp = find_key_const(keysp, key);
+ if (keyp != NULL && keyp->length == 1) // key in use
+ {
+ if (keyp->type == KEY_FLOAT)
+ {
+ *value = keyp->v.d;
+ status = CDI_NOERR;
+ }
+ }
+
+ return status;
+}
+
+void
+cdiDefVarKeyBytes(cdi_keys_t *keysp, int key, const unsigned char *bytes, int length)
+{
+ cdi_key_t *keyp = find_key(keysp, key);
+ if (keyp == NULL) keyp = new_key(keysp, key);
+
+ if (keyp != NULL)
+ {
+ if (keyp->length != 0 && keyp->length != length)
+ {
+ if (keyp->v.s) free(keyp->v.s);
+ keyp->length = 0;
+ }
+ if (keyp->length == 0)
+ {
+ keyp->v.s = (unsigned char *) malloc((size_t) length);
+ keyp->length = length;
+ }
+
+ memcpy(keyp->v.s, bytes, length);
+ keyp->type = KEY_BYTES;
+ }
+}
+
+/*
+@Function cdiDefKeyBytes
+@Title Define a byte array from a key
+
+@Prototype int cdiDefKeyBytes(int cdiID, int varID, int key, const unsigned char *bytes, int length)
+@Parameter
+ @Item cdiID CDI object ID (vlistID, gridID, zaxisID).
+ @Item varID Variable identifier or CDI_GLOBAL.
+ @Item key The key to be searched.
+ @Item bytes The address of a byte array where the data will be read.
+ @Item length Length of the byte array
+
+@Description
+The function @func{cdiDefKeyBytes} defines a byte array from a key.
+
+@Result
+@func{cdiDefKeyBytes} returns CDI_NOERR if OK.
+
+@EndFunction
+*/
+int
+cdiDefKeyBytes(int cdiID, int varID, int key, const unsigned char *bytes, int length)
+{
+ int status = CDI_NOERR;
+
+ cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ cdiDefVarKeyBytes(keysp, key, bytes, length);
+
+ return status;
+}
+
+int
+cdiInqVarKeyBytes(const cdi_keys_t *keysp, int key, unsigned char *bytes, int *length)
+{
+ int status = -1;
+
+ const cdi_key_t *keyp = find_key_const(keysp, key);
+ if (keyp != NULL && keyp->length > 0) // key in use
+ {
+ if (keyp->type == KEY_BYTES)
+ {
+ if (keyp->length < *length) *length = keyp->length;
+ memcpy(bytes, keyp->v.s, *length);
+ status = CDI_NOERR;
+ }
+ }
+
+ return status;
+}
+
+// cdiInqKeyBytes: Get a byte array from a key
+/*
+@Function cdiInqKeyBytes
+@Title Get a byte array from a key
+
+@Prototype int cdiInqKeyBytes(int cdiID, int varID, int key, unsigned char *bytes, int *length)
+@Parameter
+ @Item cdiID CDI object ID (vlistID, gridID, zaxisID).
+ @Item varID Variable identifier or CDI_GLOBAL.
+ @Item key The key to be searched.
+ @Item bytes The address of a byte array where the data will be retrieved.
+ The caller must allocate space for the returned byte array.
+ @Item length The allocated length of the byte array on input.
+@Description
+The function @func{cdiInqKeyBytes} gets a byte array from a key.
+
+@Result
+@func{cdiInqKeyBytes} returns CDI_NOERR if key is available.
+
+@EndFunction
+*/
+int
+cdiInqKeyBytes(int cdiID, int varID, int key, unsigned char *bytes, int *length)
+{
+ xassert(bytes != NULL);
+ xassert(length != NULL);
+
+ // if (varID != CDI_GLOBAL) status = cdiInqKeyBytes(cdiID, CDI_GLOBAL, key, bytes, length);
+
+ const cdi_keys_t *keysp = cdi_get_keysp(cdiID, varID);
+ xassert(keysp != NULL);
+
+ return cdiInqVarKeyBytes(keysp, key, bytes, length);
+}
+
+/*
+@Function cdiDefKeyString
+@Title Define a string from a key
+
+@Prototype int cdiDefKeyString(int cdiID, int varID, int key, const char *string)
+@Parameter
+ @Item cdiID CDI object ID (vlistID, gridID, zaxisID).
+ @Item varID Variable identifier or CDI_GLOBAL.
+ @Item key The key to be searched.
+ @Item string The address of a string where the data will be read.
+
+@Description
+The function @func{cdiDefKeyString} defines a text string from a key.
+
+@Result
+@func{cdiDefKeyString} returns CDI_NOERR if OK.
+
+@Example
+Here is an example using @func{cdiDefKeyString} to define the name of a variable:
+
+@Source
+ ...
+int vlistID, varID, status;
+ ...
+vlistID = vlistCreate();
+varID = vlistDefVar(vlistID, gridID, zaxisID, TIME_VARYING);
+ ...
+status = cdiDefKeyString(vlistID, varID, CDI_KEY_NAME, "temperature");
+ ...
+@EndSource
+@EndFunction
+*/
+int
+cdiDefKeyString(int cdiID, int varID, int key, const char *string)
+{
+ xassert(string != NULL);
+
+ int length = strlen(string) + 1;
+ int status = cdiDefKeyBytes(cdiID, varID, key, (const unsigned char *) string, length);
+
+ return status;
+}
+
+/*
+@Function cdiInqKeyString
+@Title Get a string from a key
+
+@Prototype int cdiInqKeyString(int cdiID, int varID, int key, char *string, int *length)
+@Parameter
+ @Item cdiID CDI object ID (vlistID, gridID, zaxisID).
+ @Item varID Variable identifier or CDI_GLOBAL.
+ @Item key The key to be searched.
+ @Item string The address of a string where the data will be retrieved.
+ The caller must allocate space for the returned string.
+ @Item length The allocated length of the string on input.
+@Description
+The function @func{cdiInqKeyString} gets a text string from a key.
+
+@Result
+@func{cdiInqKeyString} returns CDI_NOERR if key is available.
+
+@Example
+Here is an example using @func{cdiInqKeyString} to get the name of the first variable:
+
+@Source
+ ...
+#define STRLEN 256
+ ...
+int streamID, vlistID, varID, status;
+int length = STRLEN;
+char name[STRLEN];
+ ...
+streamID = streamOpenRead(...);
+vlistID = streamInqVlist(streamID);
+ ...
+varID = 0;
+status = cdiInqKeyString(vlistID, varID, CDI_KEY_NAME, name, &length);
+ ...
+@EndSource
+@EndFunction
+*/
+int
+cdiInqKeyString(int cdiID, int varID, int key, char *string, int *length)
+{
+ xassert(string != NULL);
+ xassert(length != NULL);
+
+ int maxlength = *length;
+ if (maxlength > 0) string[0] = '\0';
+
+ int status = cdiInqKeyBytes(cdiID, varID, key, (unsigned char *) string, length);
+ if (CDI_NOERR == status)
+ string[maxlength - 1] = '\0';
+ else
+ *length = 0;
+
+ return status;
+}
+
+const char *
+cdiInqVarKeyStringPtr(const cdi_keys_t *keysp, int key)
+{
+ const cdi_key_t *keyp = find_key_const(keysp, key);
+ if (keyp != NULL) // key in use
+ {
+ if (keyp->type == KEY_BYTES) return (const char *) keyp->v.s;
+ }
+
+ return NULL;
+}
+
+void
+cdiInitKeys(cdi_keys_t *keysp)
+{
+ keysp->nalloc = MAX_KEYS;
+ keysp->nelems = 0;
+ for (int i = 0; i < MAX_KEYS; ++i) keysp->value[i].length = 0;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <assert.h>
+#include <limits.h>
+#include <stdio.h>
+#include <string.h>
+
+
+
+static cdi_atts_t *
+get_attsp(vlist_t *vlistptr, int varID)
+{
+ if (varID == CDI_GLOBAL)
+ return &vlistptr->atts;
+ else if (varID >= 0 && varID < vlistptr->nvars)
+ return &(vlistptr->vars[varID].atts);
+
+ return NULL;
+}
+
+static cdi_att_t *
+find_att(cdi_atts_t *attsp, const char *name)
+{
+ xassert(attsp != NULL);
+
+ if (attsp->nelems == 0) return NULL;
+
+ size_t slen = strlen(name);
+ if (slen > CDI_MAX_NAME) slen = CDI_MAX_NAME;
+
+ cdi_att_t *atts = attsp->value;
+ for (size_t attid = 0; attid < attsp->nelems; attid++)
+ {
+ cdi_att_t *attp = atts + attid;
+ if (attp->namesz == slen && memcmp(attp->name, name, slen) == 0) return attp; // Normal return
+ }
+
+ return NULL;
+}
+
+static cdi_att_t *
+new_att(cdi_atts_t *attsp, const char *name)
+{
+ xassert(attsp != NULL);
+ xassert(name != NULL);
+
+ if (attsp->nelems == attsp->nalloc) return NULL;
+
+ cdi_att_t *attp = &(attsp->value[attsp->nelems]);
+ attsp->nelems++;
+
+ size_t slen = strlen(name);
+ if (slen > CDI_MAX_NAME) slen = CDI_MAX_NAME;
+
+ attp->name = (char *) Malloc(slen + 1);
+ memcpy(attp->name, name, slen + 1);
+ attp->namesz = slen;
+ attp->xvalue = NULL;
+
+ return attp;
+}
+
+static void
+fill_att(cdi_att_t *attp, int indtype, int exdtype, size_t nelems, size_t xsz, const void *xvalue)
+{
+ xassert(attp != NULL);
+
+ attp->xsz = xsz;
+ attp->indtype = indtype;
+ attp->exdtype = exdtype;
+ attp->nelems = nelems;
+
+ if (xsz > 0)
+ {
+ attp->xvalue = Realloc(attp->xvalue, xsz);
+ memcpy(attp->xvalue, xvalue, xsz);
+ }
+}
+
+static cdi_atts_t *
+cdi_get_attsp(int objID, int varID)
+{
+ cdi_atts_t *attsp = NULL;
+
+ if (varID == CDI_GLOBAL && reshGetTxCode(objID) == GRID)
+ {
+ grid_t *gridptr = grid_to_pointer(objID);
+ attsp = &gridptr->atts;
+ }
+ else if (varID == CDI_GLOBAL && reshGetTxCode(objID) == ZAXIS)
+ {
+ zaxis_t *zaxisptr = zaxis_to_pointer(objID);
+ attsp = &zaxisptr->atts;
+ }
+ else
+ {
+ vlist_t *vlistptr = vlist_to_pointer(objID);
+ attsp = get_attsp(vlistptr, varID);
+ }
+
+ return attsp;
+}
+
+/*
+@Function cdiInqNatts
+@Title Get number of attributes
+
+@Prototype int cdiInqNatts(int cdiID, int varID, int *nattsp)
+@Parameter
+ @Item cdiID CDI ID, from a previous call to @fref{vlistCreate}, @fref{gridCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier, or @func{CDI_GLOBAL} for a global attribute.
+ @Item nattsp Pointer to location for returned number of attributes.
+
+@Description
+The function @func{cdiInqNatts} gets the number of attributes assigned to this variable.
+
+@EndFunction
+*/
+int
+cdiInqNatts(int cdiID, int varID, int *nattsp)
+{
+ int status = CDI_NOERR;
+
+ cdi_atts_t *attsp = cdi_get_attsp(cdiID, varID);
+ xassert(attsp != NULL);
+
+ *nattsp = (int) attsp->nelems;
+
+ return status;
+}
+
+/*
+@Function cdiInqAtt
+@Title Get information about an attribute
+
+@Prototype int cdiInqAtt(int cdiID, int varID, int attnum, char *name, int *typep, int *lenp)
+@Parameter
+ @Item cdiID CDI ID, from a previous call to @fref{vlistCreate}, @fref{gridCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier, or @func{CDI_GLOBAL} for a global attribute.
+ @Item attnum Attribute number (from 0 to natts-1).
+ @Item name Pointer to the location for the returned attribute name. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+ @Item typep Pointer to location for returned attribute type.
+ @Item lenp Pointer to location for returned attribute number.
+
+@Description
+The function @func{cdiInqAtt} gets information about an attribute.
+
+@EndFunction
+*/
+int
+cdiInqAtt(int cdiID, int varID, int attnum, char *name, int *typep, int *lenp)
+{
+ int status = CDI_NOERR;
+
+ xassert(name != NULL);
+
+ cdi_atts_t *attsp = cdi_get_attsp(cdiID, varID);
+ xassert(attsp != NULL);
+
+ cdi_att_t *attp = NULL;
+ if (attnum >= 0 && attnum < (int) attsp->nelems) attp = &(attsp->value[attnum]);
+
+ if (attp != NULL && attp->name) // name in use
+ {
+ memcpy(name, attp->name, attp->namesz + 1);
+ *typep = attp->exdtype;
+ *lenp = (int) attp->nelems;
+ }
+ else
+ {
+ name[0] = 0;
+ *typep = -1;
+ *lenp = 0;
+ status = -1;
+ }
+
+ return status;
+}
+
+int
+cdiInqAttLen(int cdiID, int varID, const char *name)
+{
+ int length = -1;
+
+ xassert(name != NULL);
+
+ cdi_atts_t *attsp = cdi_get_attsp(cdiID, varID);
+ xassert(attsp != NULL);
+
+ for (int attid = 0; attid < (int) attsp->nelems; attid++)
+ {
+ cdi_att_t *attp = &(attsp->value[attid]);
+ if (attp->name && str_is_equal(attp->name, name)) length = (int) attp->nelems;
+ }
+
+ return length;
+}
+
+int
+cdiInqAttType(int cdiID, int varID, const char *name)
+{
+ int type = -1;
+
+ xassert(name != NULL);
+
+ cdi_atts_t *attsp = cdi_get_attsp(cdiID, varID);
+ xassert(attsp != NULL);
+
+ for (int attid = 0; attid < (int) attsp->nelems; attid++)
+ {
+ cdi_att_t *attp = &(attsp->value[attid]);
+ if (attp->name && str_is_equal(attp->name, name)) type = attp->exdtype;
+ }
+
+ return type;
+}
+
+static void
+cdi_attribute_free(cdi_att_t *attp)
+{
+ if (attp->name)
+ {
+ Free(attp->name);
+ attp->name = NULL;
+ attp->namesz = 0;
+ }
+ if (attp->xvalue)
+ {
+ Free(attp->xvalue);
+ attp->xvalue = NULL;
+ }
+}
+
+int
+cdiDeleteAtts(int cdiID, int varID)
+{
+ int status = CDI_NOERR;
+
+ cdi_atts_t *attsp = cdi_get_attsp(cdiID, varID);
+ xassert(attsp != NULL);
+
+ for (int attid = 0; attid < (int) attsp->nelems; attid++)
+ {
+ cdi_att_t *attp = &(attsp->value[attid]);
+ cdi_attribute_free(attp);
+ }
+
+ attsp->nelems = 0;
+
+ return status;
+}
+
+int
+cdiDelAtt(int cdiID, int varID, const char *name)
+{
+ int status = -1;
+
+ cdi_atts_t *attsp = cdi_get_attsp(cdiID, varID);
+ xassert(attsp != NULL);
+
+ for (int attid = 0; attid < (int) attsp->nelems; attid++)
+ {
+ cdi_att_t *attp = &(attsp->value[attid]);
+ if (attp->name && str_is_equal(attp->name, name))
+ {
+ cdi_attribute_free(attp);
+ status = CDI_NOERR;
+ break;
+ }
+ }
+
+ return status;
+}
+
+static int
+cdi_def_att(int indtype, int exdtype, int cdiID, int varID, const char *name, size_t len, size_t xsz, const void *xp)
+{
+ int status = CDI_NOERR;
+
+ if (len != 0 && xp == NULL) return CDI_EINVAL; // Null arg
+
+ cdi_atts_t *attsp = cdi_get_attsp(cdiID, varID);
+ xassert(attsp != NULL);
+
+ cdi_att_t *attp = find_att(attsp, name);
+ if (attp == NULL) attp = new_att(attsp, name);
+
+ if (attp != NULL) fill_att(attp, indtype, exdtype, len, xsz, xp);
+
+ return status;
+}
+
+static int
+cdi_inq_att(int indtype, int cdiID, int varID, const char *name, size_t mxsz, void *xp)
+{
+ int status = CDI_NOERR;
+
+ if (mxsz != 0 && xp == NULL) return CDI_EINVAL; // Null arg
+
+ cdi_atts_t *attsp = cdi_get_attsp(cdiID, varID);
+ xassert(attsp != NULL);
+
+ cdi_att_t *attp = find_att(attsp, name);
+ if (attp != NULL) // name in use
+ {
+ if (attp->indtype == indtype)
+ {
+ size_t xsz = attp->xsz;
+ if (mxsz < xsz) xsz = mxsz;
+ if (xsz > 0) memcpy(xp, attp->xvalue, xsz);
+ }
+ else
+ {
+ Warning("Attribute %s has wrong data type!", name);
+ status = -2;
+ }
+ }
+ else
+ {
+ // Warning("Internal problem, attribute %s not found!", name);
+ status = -1;
+ }
+
+ return status;
+}
+
+int
+cdiCopyAtts(int cdiID1, int varID1, int cdiID2, int varID2)
+{
+ int status = CDI_NOERR;
+
+ cdi_atts_t *attsp1 = cdi_get_attsp(cdiID1, varID1);
+ xassert(attsp1 != NULL);
+
+ for (size_t attid = 0; attid < attsp1->nelems; attid++)
+ {
+ cdi_att_t *attp = &(attsp1->value[attid]);
+ cdi_def_att(attp->indtype, attp->exdtype, cdiID2, varID2, attp->name, attp->nelems, attp->xsz, attp->xvalue);
+ }
+
+ return status;
+}
+
+/*
+@Function cdiDefAttInt
+@Title Define an integer attribute
+
+@Prototype int cdiDefAttInt(int cdiID, int varID, const char *name, int type, int len, const int *ip)
+
+@Parameter
+ @Item cdiID CDI ID, from a previous call to @fref{vlistCreate}, @fref{gridCreate} or @fref{zaxisCreate}.
+ @Item varID Variable identifier, or @func{CDI_GLOBAL} for a global attribute.
+ @Item name Attribute name.
+ @Item type External data type (@func{CDI_DATATYPE_INT16} or @func{CDI_DATATYPE_INT32}).
+ @Item len Number of values provided for the attribute.
+ @Item ip Pointer to one or more integer values.
+
+@Description
+The function @func{cdiDefAttInt} defines an integer attribute.
+
+@EndFunction
+*/
+int
+cdiDefAttInt(int cdiID, int varID, const char *name, int type, int len, const int *ip)
+{
+ return cdi_def_att(CDI_DATATYPE_INT, type, cdiID, varID, name, (size_t) len, (size_t) len * sizeof(int), ip);
+}
+
+/*
+@Function cdiDefAttFlt
+@Title Define a floating point attribute
+
+@Prototype int cdiDefAttFlt(int cdiID, int varID, const char *name, int type, int len, const double *dp)
+
+@Parameter
+ @Item cdiID CDI ID, from a previous call to @fref{vlistCreate}, @fref{gridCreate} or @fref{zaxisCreate}.
+ @Item varID Variable identifier, or @func{CDI_GLOBAL} for a global attribute.
+ @Item name Attribute name.
+ @Item type External data type (@func{CDI_DATATYPE_FLT32} or @func{CDI_DATATYPE_FLT64}).
+ @Item len Number of values provided for the attribute.
+ @Item dp Pointer to one or more floating point values.
+
+@Description
+The function @func{cdiDefAttFlt} defines a floating point attribute.
+
+@EndFunction
+*/
+int
+cdiDefAttFlt(int cdiID, int varID, const char *name, int type, int len, const double *dp)
+{
+ return cdi_def_att(CDI_DATATYPE_FLT, type, cdiID, varID, name, (size_t) len, (size_t) len * sizeof(double), dp);
+}
+
+/*
+@Function cdiDefAttTxt
+@Title Define a text attribute
+
+@Prototype int cdiDefAttTxt(int cdiID, int varID, const char *name, int len, const char *tp)
+
+@Parameter
+ @Item cdiID CDI ID, from a previous call to @fref{vlistCreate}, @fref{gridCreate} or @fref{zaxisCreate}.
+ @Item varID Variable identifier, or @func{CDI_GLOBAL} for a global attribute.
+ @Item name Attribute name.
+ @Item len Number of values provided for the attribute.
+ @Item tp Pointer to one or more character values.
+
+@Description
+The function @func{cdiDefAttTxt} defines a text attribute.
+
+@Example
+Here is an example using @func{cdiDefAttTxt} to define the attribute "description":
+
+@Source
+ ...
+int vlistID, varID, status;
+char text[] = "description of the variable";
+ ...
+vlistID = vlistCreate();
+varID = vlistDefVar(vlistID, gridID, zaxisID, TIME_VARYING);
+ ...
+status = cdiDefAttTxt(vlistID, varID, "description", LEN(text), text);
+ ...
+@EndSource
+@EndFunction
+*/
+int
+cdiDefAttTxt(int cdiID, int varID, const char *name, int len, const char *tp)
+{
+ return cdi_def_att(CDI_DATATYPE_TXT, CDI_DATATYPE_TXT, cdiID, varID, name, (size_t) len, (size_t) len, tp);
+}
+
+/*
+@Function cdiInqAttInt
+@Title Get the value(s) of an integer attribute
+
+@Prototype int cdiInqAttInt(int cdiID, int varID, const char *name, int mlen, int *ip)
+@Parameter
+ @Item cdiID CDI ID, from a previous call to @fref{vlistCreate}, @fref{gridCreate} or @fref{zaxisCreate}.
+ @Item varID Variable identifier, or @func{CDI_GLOBAL} for a global attribute.
+ @Item name Attribute name.
+ @Item mlen Number of allocated values provided for the attribute.
+ @Item ip Pointer location for returned integer attribute value(s).
+
+@Description
+The function @func{cdiInqAttInt} gets the values(s) of an integer attribute.
+
+@EndFunction
+*/
+int
+cdiInqAttInt(int cdiID, int varID, const char *name, int mlen, int *ip)
+{
+ return cdi_inq_att(CDI_DATATYPE_INT, cdiID, varID, name, (size_t) mlen * sizeof(int), ip);
+}
+
+/*
+@Function cdiInqAttFlt
+@Title Get the value(s) of a floating point attribute
+
+@Prototype int cdiInqAttFlt(int cdiID, int varID, const char *name, int mlen, double *dp)
+@Parameter
+ @Item cdiID CDI ID, from a previous call to @fref{vlistCreate}, @fref{gridCreate} or @fref{zaxisCreate}.
+ @Item varID Variable identifier, or @func{CDI_GLOBAL} for a global attribute.
+ @Item name Attribute name.
+ @Item mlen Number of allocated values provided for the attribute.
+ @Item dp Pointer location for returned floating point attribute value(s).
+
+@Description
+The function @func{cdiInqAttFlt} gets the values(s) of a floating point attribute.
+
+@EndFunction
+*/
+int
+cdiInqAttFlt(int cdiID, int varID, const char *name, int mlen, double *dp)
+{
+ return cdi_inq_att(CDI_DATATYPE_FLT, cdiID, varID, name, (size_t) mlen * sizeof(double), dp);
+}
+
+/*
+@Function cdiInqAttTxt
+@Title Get the value(s) of a text attribute
+
+@Prototype int cdiInqAttTxt(int cdiID, int varID, const char *name, int mlen, char *tp)
+@Parameter
+ @Item cdiID CDI ID, from a previous call to @fref{vlistCreate}, @fref{gridCreate} or @fref{zaxisCreate}.
+ @Item varID Variable identifier, or @func{CDI_GLOBAL} for a global attribute.
+ @Item name Attribute name.
+ @Item mlen Number of allocated values provided for the attribute.
+ @Item tp Pointer location for returned text attribute value(s).
+
+@Description
+The function @func{cdiInqAttTxt} gets the values(s) of a text attribute.
+
+@EndFunction
+*/
+int
+cdiInqAttTxt(int cdiID, int varID, const char *name, int mlen, char *tp)
+{
+ return cdi_inq_att(CDI_DATATYPE_TXT, cdiID, varID, name, (size_t) mlen * sizeof(char), tp);
+}
+
+enum
+{
+ cdi_att_nints = 4, /* namesz, exdtype, indtype, nelems */
+};
+
+static inline int
+cdiAttTypeLookup(cdi_att_t *attp)
+{
+ int type;
+ switch (attp->indtype)
+ {
+ case CDI_DATATYPE_FLT: type = CDI_DATATYPE_FLT64; break;
+ case CDI_DATATYPE_INT:
+ case CDI_DATATYPE_TXT: type = attp->indtype; break;
+ default: xabort("Unknown datatype encountered in attribute %s: %d\n", attp->name, attp->indtype);
+ }
+ return type;
+}
+
+int
+cdi_att_compare(cdi_atts_t *attspa, cdi_atts_t *attspb, int attnum)
+{
+ xassert(attnum >= 0 && attnum < (int) attspa->nelems && attnum < (int) attspb->nelems);
+ cdi_att_t *attpa = attspa->value + attnum, *attpb = attspb->value + attnum;
+
+ if (attpa->namesz != attpb->namesz) return 1;
+
+ if (attpa->name && attpb->name && memcmp(attpa->name, attpb->name, attpa->namesz)) return 1;
+
+ if (attpa->indtype != attpb->indtype || attpa->exdtype != attpb->exdtype || attpa->nelems != attpb->nelems) return 1;
+
+ return memcmp(attpa->xvalue, attpb->xvalue, attpa->xsz);
+}
+
+static int
+cdiAttGetSize(cdi_atts_t *attsp, int attnum, void *context)
+{
+ xassert(attnum >= 0 && attnum < (int) attsp->nelems);
+ cdi_att_t *attp = &(attsp->value[attnum]);
+ int txsize = serializeGetSize(cdi_att_nints, CDI_DATATYPE_INT, context)
+ + serializeGetSize((int) attp->namesz, CDI_DATATYPE_TXT, context);
+ txsize += serializeGetSize((int) attp->nelems, cdiAttTypeLookup(attp), context);
+ return txsize;
+}
+
+int
+cdiAttsGetSize(void *vp, int varID, void *context)
+{
+ cdi_atts_t *attsp;
+ xassert(attsp = get_attsp((vlist_t *) vp, varID));
+ int txsize = serializeGetSize(1, CDI_DATATYPE_INT, context);
+ size_t numAtts = attsp->nelems;
+ for (size_t i = 0; i < numAtts; ++i) txsize += cdiAttGetSize(attsp, (int) i, context);
+ return txsize;
+}
+
+static void
+cdiAttPack(cdi_atts_t *attsp, int attnum, void *buf, int size, int *position, void *context)
+{
+ int tempbuf[cdi_att_nints];
+
+ xassert(attnum >= 0 && attnum < (int) attsp->nelems);
+ cdi_att_t *attp = &(attsp->value[attnum]);
+ tempbuf[0] = (int) attp->namesz;
+ tempbuf[1] = attp->exdtype;
+ tempbuf[2] = attp->indtype;
+ tempbuf[3] = (int) attp->nelems;
+ serializePack(tempbuf, cdi_att_nints, CDI_DATATYPE_INT, buf, size, position, context);
+ serializePack(attp->name, (int) attp->namesz, CDI_DATATYPE_TXT, buf, size, position, context);
+ serializePack(attp->xvalue, (int) attp->nelems, cdiAttTypeLookup(attp), buf, size, position, context);
+}
+
+void
+cdiAttsPack(void *vp, int varID, void *buf, int size, int *position, void *context)
+{
+ cdi_atts_t *attsp;
+ xassert(attsp = get_attsp((vlist_t *) vp, varID));
+ size_t numAtts = attsp->nelems;
+ int numAttsI = (int) numAtts;
+ xassert(numAtts <= INT_MAX);
+ serializePack(&numAttsI, 1, CDI_DATATYPE_INT, buf, size, position, context);
+ for (size_t i = 0; i < numAtts; ++i) cdiAttPack(attsp, (int) i, buf, size, position, context);
+}
+
+static void
+cdiAttUnpack(int cdiID, int varID, void *buf, int size, int *position, void *context)
+{
+ int tempbuf[cdi_att_nints];
+
+ serializeUnpack(buf, size, position, tempbuf, cdi_att_nints, CDI_DATATYPE_INT, context);
+ char *attName = (char *) Malloc((size_t) tempbuf[0] + 1);
+ serializeUnpack(buf, size, position, attName, tempbuf[0], CDI_DATATYPE_TXT, context);
+ attName[tempbuf[0]] = '\0';
+ int attVDt;
+ size_t elemSize;
+ switch (tempbuf[2])
+ {
+ case CDI_DATATYPE_FLT:
+ attVDt = CDI_DATATYPE_FLT64;
+ elemSize = sizeof(double);
+ break;
+ case CDI_DATATYPE_INT:
+ attVDt = CDI_DATATYPE_INT;
+ elemSize = sizeof(int);
+ break;
+ case CDI_DATATYPE_TXT:
+ attVDt = CDI_DATATYPE_TXT;
+ elemSize = 1;
+ break;
+ default: xabort("Unknown datatype encountered in attribute %s: %d\n", attName, tempbuf[2]);
+ }
+ void *attData = Malloc(elemSize * (size_t) tempbuf[3]);
+ serializeUnpack(buf, size, position, attData, tempbuf[3], attVDt, context);
+ cdi_def_att(tempbuf[2], tempbuf[1], cdiID, varID, attName, (size_t) tempbuf[3], (size_t) tempbuf[3] * elemSize, attData);
+ Free(attName);
+ Free(attData);
+}
+
+void
+cdiAttsUnpack(int cdiID, int varID, void *buf, int size, int *position, void *context)
+{
+ int numAtts;
+ serializeUnpack(buf, size, position, &numAtts, 1, CDI_DATATYPE_INT, context);
+ for (int i = 0; i < numAtts; ++i) cdiAttUnpack(cdiID, varID, buf, size, position, context);
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <float.h> /* FLT_MAX */
+
+static void
+vlistvar_init_entry(var_t *vlistvars, int varID)
+{
+ var_t *varptr = &vlistvars[varID];
+ varptr->flag = false;
+ varptr->lvalidrange = false;
+ varptr->xyz = 5; // xyzStorVals[5] == 321
+ varptr->missvalused = false;
+ varptr->mvarID = varID;
+ varptr->fvarID = varID;
+ varptr->param = 0;
+ varptr->gridID = CDI_UNDEFID;
+ varptr->zaxisID = CDI_UNDEFID;
+ varptr->timetype = CDI_UNDEFID;
+ varptr->tsteptype = TSTEP_INSTANT;
+ varptr->datatype = CDI_UNDEFID;
+ varptr->instID = CDI_UNDEFID;
+ varptr->modelID = CDI_UNDEFID;
+ varptr->tableID = CDI_UNDEFID;
+ varptr->timave = 0;
+ varptr->nsb = 0;
+ varptr->missval = CDI_Default_Missval;
+ varptr->validrange[0] = VALIDMISS;
+ varptr->validrange[1] = VALIDMISS;
+ varptr->levinfo = NULL;
+ varptr->comptype = CDI_COMPRESS_NONE;
+ varptr->complevel = 1;
+ varptr->keys.nalloc = MAX_KEYS;
+ varptr->keys.nelems = 0;
+ for (int i = 0; i < MAX_KEYS; ++i) varptr->keys.value[i].length = 0;
+ varptr->atts.nalloc = MAX_ATTRIBUTES;
+ varptr->atts.nelems = 0;
+ varptr->subtypeID = CDI_UNDEFID;
+ varptr->opt_grib_nentries = 0;
+ varptr->opt_grib_kvpair_size = 0;
+ varptr->opt_grib_kvpair = NULL;
+}
+
+static int
+vlistvarNewEntry(int vlistID)
+{
+ int varID = 0;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ int vlistvarSize = vlistptr->varsAllocated;
+ var_t *vlistvars = vlistptr->vars;
+ // Look for a free slot in vlistvar. (Create the table the first time through).
+ if (!vlistvarSize)
+ {
+ vlistvarSize = 2;
+ vlistvars = (var_t *) Malloc((size_t) vlistvarSize * sizeof(var_t));
+ for (int i = 0; i < vlistvarSize; ++i) vlistvars[i].isUsed = false;
+ }
+ else
+ {
+ while (varID < vlistvarSize && vlistvars[varID].isUsed) ++varID;
+ }
+ // If the table overflows, double its size.
+ if (varID == vlistvarSize)
+ {
+ vlistvars = (var_t *) Realloc(vlistvars, (size_t) (vlistvarSize *= 2) * sizeof(var_t));
+ for (int i = varID; i < vlistvarSize; ++i) vlistvars[i].isUsed = false;
+ }
+
+ vlistptr->varsAllocated = vlistvarSize;
+ vlistptr->vars = vlistvars;
+
+ vlistvar_init_entry(vlistvars, varID);
+ vlistvars[varID].isUsed = true;
+
+ return varID;
+}
+
+static var_t *
+vlistptr_get_varptr(const char *caller, vlist_t *vlistptr, int varID)
+{
+ if (varID < 0 || varID >= vlistptr->nvars || !vlistptr->vars[varID].isUsed) Errorc("varID %d undefined!", varID);
+ return &vlistptr->vars[varID];
+}
+
+int
+vlistDefVarTiles(int vlistID, int gridID, int zaxisID, int timetype, int tilesetID)
+{
+ if (CDI_Debug) Message("gridID = %d zaxisID = %d timetype = %d", gridID, zaxisID, timetype);
+
+ int varID = vlistvarNewEntry(vlistID);
+
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ vlistptr->nvars++;
+ var_t *varptr = &vlistptr->vars[varID];
+ varptr->gridID = gridID;
+ varptr->zaxisID = zaxisID;
+ varptr->timetype = timetype;
+ varptr->subtypeID = tilesetID;
+
+ if (timetype < 0)
+ {
+ Warning("Unexpected time type %d, set to TIME_VARYING!", timetype);
+ varptr->timetype = TIME_VARYING;
+ }
+
+ // Compatibility for release 1.8.3
+ if (timetype > 1 && timetype < 15)
+ {
+ varptr->timetype = TIME_VARYING;
+ varptr->tsteptype = timetype;
+ static bool printInfo = true;
+ if (printInfo)
+ {
+ printInfo = false;
+ fprintf(stdout, "CDI info: The vlistDefVar() function was called with an invalid value for the timetype parameter.\n");
+ fprintf(stdout, "CDI info: This may be an obsolete form of using the vlistDefVar() function.\n");
+ fprintf(stdout, "CDI info: The correct form is:\n");
+ fprintf(stdout, "CDI info: varID = vlistDefVar(vlistID, gridID, zaxisID, timetype)\n");
+ fprintf(stdout, "CDI info: vlistDefVarTsteptype(vlistID, varID, tsteptype)\n");
+ fprintf(stdout, "CDI info: with: timetype = TIME_CONSTANT | TIME_VARYING\n");
+ fprintf(stdout, "CDI info: tsteptype = TSTEP_AVG .... TSTEP_SUM\n");
+ }
+ }
+
+ vlistAdd2GridIDs(vlistptr, gridID);
+ vlistAdd2ZaxisIDs(vlistptr, zaxisID);
+ vlistAdd2SubtypeIDs(vlistptr, tilesetID);
+
+ varptr->param = cdiEncodeParam(-(varID + 1), 255, 255);
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+
+ return varID;
+}
+
+/*
+@Function vlistDefVar
+@Title Define a Variable
+
+@Prototype int vlistDefVar(int vlistID, int gridID, int zaxisID, int timetype)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item gridID Grid ID, from a previous call to @fref{gridCreate}.
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate}.
+ @Item timetype One of the set of predefined CDI timestep types.
+ The valid CDI timestep types are @func{TIME_CONSTANT} and @func{TIME_VARYING}.
+
+@Description
+The function @func{vlistDefVar} adds a new variable to vlistID.
+
+@Result
+@func{vlistDefVar} returns an identifier to the new variable.
+
+@Example
+Here is an example using @func{vlistCreate} to create a variable list
+and add a variable with @func{vlistDefVar}.
+
+@Source
+ ...
+int vlistID, varID;
+ ...
+vlistID = vlistCreate();
+varID = vlistDefVar(vlistID, gridID, zaxisID, TIME_VARYING);
+ ...
+streamDefVlist(streamID, vlistID);
+ ...
+vlistDestroy(vlistID);
+ ...
+@EndSource
+@EndFunction
+*/
+int
+vlistDefVar(int vlistID, int gridID, int zaxisID, int timetype)
+{
+ // call "vlistDefVarTiles" with a trivial tile index:
+ return vlistDefVarTiles(vlistID, gridID, zaxisID, timetype, CDI_UNDEFID);
+}
+
+void
+cdiVlistCreateVarLevInfo(vlist_t *vlistptr, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlistptr, varID);
+ xassert(varID >= 0 && varID < vlistptr->nvars && varptr->levinfo == NULL);
+
+ int zaxisID = varptr->zaxisID;
+ size_t nlevs = (size_t) zaxisInqSize(zaxisID);
+
+ varptr->levinfo = (levinfo_t *) Malloc(nlevs * sizeof(levinfo_t));
+
+ for (size_t levID = 0; levID < nlevs; ++levID) varptr->levinfo[levID] = DEFAULT_LEVINFO((int) levID);
+}
+
+/*
+@Function vlistDefVarParam
+@Title Define the parameter number of a Variable
+
+@Prototype void vlistDefVarParam(int vlistID, int varID, int param)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item varID Variable identifier.
+ @Item param Parameter number.
+
+@Description
+The function @func{vlistDefVarParam} defines the parameter number of a variable.
+
+@EndFunction
+*/
+void
+vlistDefVarParam(int vlistID, int varID, int param)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (varptr->param != param)
+ {
+ varptr->param = param;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function vlistDefVarCode
+@Title Define the code number of a Variable
+
+@Prototype void vlistDefVarCode(int vlistID, int varID, int code)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item varID Variable identifier.
+ @Item code Code number.
+
+@Description
+The function @func{vlistDefVarCode} defines the code number of a variable.
+
+@EndFunction
+*/
+void
+vlistDefVarCode(int vlistID, int varID, int code)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ int pnum, pcat, pdis;
+ cdiDecodeParam(varptr->param, &pnum, &pcat, &pdis);
+ int newParam = cdiEncodeParam(code, pcat, pdis);
+ if (varptr->param != newParam)
+ {
+ varptr->param = newParam;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+vlistInqVar(int vlistID, int varID, int *gridID, int *zaxisID, int *timetype)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ *gridID = varptr->gridID;
+ *zaxisID = varptr->zaxisID;
+ *timetype = varptr->timetype;
+}
+
+/*
+@Function vlistInqVarGrid
+@Title Get the Grid ID of a Variable
+
+@Prototype int vlistInqVarGrid(int vlistID, int varID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+
+@Description
+The function @func{vlistInqVarGrid} returns the grid ID of a Variable.
+
+@Result
+@func{vlistInqVarGrid} returns the grid ID of the Variable.
+
+@EndFunction
+*/
+int
+vlistInqVarGrid(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->gridID;
+}
+
+/*
+@Function vlistInqVarZaxis
+@Title Get the Zaxis ID of a Variable
+
+@Prototype int vlistInqVarZaxis(int vlistID, int varID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+
+@Description
+The function @func{vlistInqVarZaxis} returns the zaxis ID of a variable.
+
+@Result
+@func{vlistInqVarZaxis} returns the zaxis ID of the variable.
+
+@EndFunction
+*/
+int
+vlistInqVarZaxis(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->zaxisID;
+}
+
+/*
+@Function vlistInqVarSubtype
+@Title Get the Subtype ID of a Variable
+
+@Description
+The function @func{vlistInqVarSubtype} returns the subtype ID of a variable.
+
+@Result
+@func{vlistInqVarSubtype} returns the subtype ID of the variable.
+
+@EndFunction
+*/
+int
+vlistInqVarSubtype(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->subtypeID;
+}
+
+/*
+@Function vlistInqVarParam
+@Title Get the parameter number of a Variable
+
+@Prototype int vlistInqVarParam(int vlistID, int varID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+
+@Description
+The function @func{vlistInqVarParam} returns the parameter number of a variable.
+
+@Result
+@func{vlistInqVarParam} returns the parameter number of the variable.
+
+@EndFunction
+*/
+int
+vlistInqVarParam(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->param;
+}
+
+/*
+@Function vlistInqVarCode
+@Title Get the Code number of a Variable
+
+@Prototype int vlistInqVarCode(int vlistID, int varID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+
+@Description
+The function @func{vlistInqVarCode} returns the code number of a variable.
+
+@Result
+@func{vlistInqVarCode} returns the code number of the variable.
+
+@EndFunction
+*/
+int
+vlistInqVarCode(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ int pdis, pcat, pnum;
+ cdiDecodeParam(varptr->param, &pnum, &pcat, &pdis);
+ int code = pnum;
+ if (pdis != 255) code = -varID - 1; // GRIB2 Parameter
+
+ int tableID = varptr->tableID;
+ if (code < 0 && tableID != -1)
+ {
+ char name[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(vlistID, varID, CDI_KEY_NAME, name, &length);
+
+ if (name[0]) tableInqParCode(tableID, name, &code);
+ }
+
+ return code;
+}
+
+/*
+@Function vlistInqVarName
+@Title Get the name of a Variable
+
+@Prototype void vlistInqVarName(int vlistID, int varID, char *name)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+ @Item name Returned variable name. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{vlistInqVarName} returns the name of a variable.
+
+@Result
+@func{vlistInqVarName} returns the name of the variable to the parameter name if available,
+otherwise the result is an empty string.
+
+@EndFunction
+*/
+void
+vlistInqVarName(int vlistID, int varID, char *name)
+{
+ int length = CDI_MAX_NAME;
+ if (CDI_NOERR != cdiInqKeyString(vlistID, varID, CDI_KEY_NAME, name, &length))
+ {
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ int pdis, pcat, pnum;
+ cdiDecodeParam(varptr->param, &pnum, &pcat, &pdis);
+ if (pdis == 255)
+ {
+ int code = pnum;
+ int tableID = varptr->tableID;
+ tableInqEntry(tableID, code, -1, name, NULL, NULL);
+ if (!name[0]) snprintf(name, 8, "var%d", code);
+ }
+ else
+ {
+ snprintf(name, CDI_MAX_NAME, "param%d.%d.%d", pnum, pcat, pdis);
+ }
+ }
+}
+
+/*
+@Function vlistCopyVarName
+@Tatle Get the name of a Variable in a safe way
+
+@Prototype char* vlistCopyVarName(int vlistId, int varId)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+
+@Return A pointer to a malloc'ed string. Must be cleaned up with Free().
+
+@Description
+This is the buffer overflow immune version of vlistInqVarName().
+The memory for the returned string is allocated to fit the string via Malloc().
+
+@EndFunction
+*/
+char *
+vlistCopyVarName(int vlistID, int varID)
+{
+ // If a name is set in the variable description, use that.
+ char name[CDI_MAX_NAME];
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(vlistID, varID, CDI_KEY_NAME, name, &length);
+ if (name[0]) return strdup(name);
+
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ // Otherwise we check if we should use the table of parameter descriptions.
+ int discipline, category, number;
+ cdiDecodeParam(varptr->param, &number, &category, &discipline);
+ char *result = NULL;
+ if (discipline == 255)
+ {
+ tableInqEntry(varptr->tableID, number, -1, name, NULL, NULL);
+ if (name[0])
+ result = strdup(name);
+ else
+ {
+ // No luck, fall back to outputting a name of the format "var<num>".
+ size_t len = 3 + 3 * sizeof(int) * CHAR_BIT / 8 + 2;
+ result = (char *) Malloc(len);
+ snprintf(result, len, "var%d", number);
+ }
+ }
+ else
+ {
+ size_t len = 5 + 2 + 3 * (3 * sizeof(int) * CHAR_BIT + 1) + 1;
+ result = (char *) Malloc(len);
+ snprintf(result, len, "param%d.%d.%d", number, category, discipline);
+ }
+ // Finally, we fall back to outputting a name of the format "param<num>.<cat>.<dis>".
+ return result;
+}
+
+/*
+@Function vlistInqVarLongname
+@Title Get the longname of a Variable
+
+@Prototype void vlistInqVarLongname(int vlistID, int varID, char *longname)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+ @Item longname Long name of the variable. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{vlistInqVarLongname} returns the longname of a variable if available,
+otherwise the result is an empty string.
+
+@Result
+@func{vlistInqVarLongname} returns the longname of the variable to the parameter longname.
+
+@EndFunction
+*/
+void
+vlistInqVarLongname(int vlistID, int varID, char *longname)
+{
+ int length = CDI_MAX_NAME;
+ if (CDI_NOERR != cdiInqKeyString(vlistID, varID, CDI_KEY_LONGNAME, longname, &length))
+ {
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ int pdis, pcat, pnum;
+ cdiDecodeParam(varptr->param, &pnum, &pcat, &pdis);
+ if (pdis == 255) tableInqEntry(varptr->tableID, pnum, -1, NULL, longname, NULL);
+ }
+}
+
+/*
+@Function vlistInqVarStdname
+@Title Get the standard name of a Variable
+
+@Prototype void vlistInqVarStdname(int vlistID, int varID, char *stdname)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+ @Item stdname Standard name of the variable. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{vlistInqVarStdname} returns the standard name of a variable if available,
+otherwise the result is an empty string.
+
+@Result
+@func{vlistInqVarStdname} returns the standard name of the variable to the parameter stdname.
+
+@EndFunction
+*/
+void
+vlistInqVarStdname(int vlistID, int varID, char *stdname)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(vlistID, varID, CDI_KEY_STDNAME, stdname, &length);
+}
+
+// obsolete function
+int
+vlistInqVarTypeOfGeneratingProcess(int vlistID, int varID)
+{
+ static bool printInfo = true;
+ if (printInfo) printInfo = cdiObsoleteInfo(__func__, "cdiInqKeyInt");
+ int typeOfGeneratingProcess = 0;
+ cdiInqKeyInt(vlistID, varID, CDI_KEY_TYPEOFGENERATINGPROCESS, &typeOfGeneratingProcess);
+ return typeOfGeneratingProcess;
+}
+
+// obsolete function
+void
+vlistDefVarTypeOfGeneratingProcess(int vlistID, int varID, int typeOfGeneratingProcess)
+{
+ static bool printInfo = true;
+ if (printInfo) printInfo = cdiObsoleteInfo(__func__, "cdiDefKeyInt");
+ cdiDefKeyInt(vlistID, varID, CDI_KEY_TYPEOFGENERATINGPROCESS, typeOfGeneratingProcess);
+}
+
+// obsolete function
+void
+vlistDefVarProductDefinitionTemplate(int vlistID, int varID, int productDefinitionTemplate)
+{
+ static bool printInfo = true;
+ if (printInfo) printInfo = cdiObsoleteInfo(__func__, "cdiDefKeyInt");
+ cdiDefKeyInt(vlistID, varID, CDI_KEY_PRODUCTDEFINITIONTEMPLATE, productDefinitionTemplate);
+}
+
+/*
+@Function vlistInqVarUnits
+@Title Get the units of a Variable
+
+@Prototype void vlistInqVarUnits(int vlistID, int varID, char *units)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+ @Item units Units of the variable. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{vlistInqVarUnits} returns the units of a variable if available,
+otherwise the result is an empty string.
+
+@Result
+@func{vlistInqVarUnits} returns the units of the variable to the parameter units.
+
+@EndFunction
+*/
+void
+vlistInqVarUnits(int vlistID, int varID, char *units)
+{
+ int length = CDI_MAX_NAME;
+ if (CDI_NOERR != cdiInqKeyString(vlistID, varID, CDI_KEY_UNITS, units, &length))
+ {
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ int pdis, pcat, pnum;
+ cdiDecodeParam(varptr->param, &pnum, &pcat, &pdis);
+ if (pdis == 255) tableInqEntry(varptr->tableID, pnum, -1, NULL, NULL, units);
+ }
+}
+
+// used in MPIOM !
+int
+vlistInqVarID(int vlistID, int code)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ for (int varID = 0; varID < vlistptr->nvars; ++varID)
+ {
+ int param = vlistptr->vars[varID].param;
+ int pdis, pcat, pnum;
+ cdiDecodeParam(param, &pnum, &pcat, &pdis);
+ if (pnum == code) return varID;
+ }
+
+ return CDI_UNDEFID;
+}
+
+SizeType
+vlistInqVarSize(int vlistID, int varID)
+{
+ int zaxisID, gridID, timetype;
+ vlistInqVar(vlistID, varID, &gridID, &zaxisID, &timetype);
+
+ SizeType nlevs = (SizeType) zaxisInqSize(zaxisID);
+ SizeType gridsize = gridInqSize(gridID);
+
+ return gridsize * nlevs;
+}
+
+/*
+@Function vlistInqVarDatatype
+@Title Get the data type of a Variable
+
+@Prototype int vlistInqVarDatatype(int vlistID, int varID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+
+@Description
+The function @func{vlistInqVarDatatype} returns the data type of a variable.
+
+@Result
+@func{vlistInqVarDatatype} returns an identifier to the data type of the variable.
+The valid CDI data types are @func{CDI_DATATYPE_PACK8}, @func{CDI_DATATYPE_PACK16}, @func{CDI_DATATYPE_PACK24},
+@func{CDI_DATATYPE_FLT32}, @func{CDI_DATATYPE_FLT64}, @func{CDI_DATATYPE_INT8}, @func{CDI_DATATYPE_INT16} and
+@func{CDI_DATATYPE_INT32}.
+
+@EndFunction
+*/
+int
+vlistInqVarDatatype(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->datatype;
+}
+
+int
+vlistInqVarNumber(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return (varptr->datatype == CDI_DATATYPE_CPX32 || varptr->datatype == CDI_DATATYPE_CPX64) ? CDI_COMP : CDI_REAL;
+}
+
+static bool
+check_range(double value, double lowerBound, double upperBound)
+{
+ return (value >= lowerBound && value <= upperBound);
+}
+
+/*
+@Function vlistDefVarDatatype
+@Title Define the data type of a Variable
+
+@Prototype void vlistDefVarDatatype(int vlistID, int varID, int datatype)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item varID Variable identifier.
+ @Item datatype The data type identifier.
+ The valid CDI data types are @func{CDI_DATATYPE_PACK8}, @func{CDI_DATATYPE_PACK16},
+ @func{CDI_DATATYPE_PACK24}, @func{CDI_DATATYPE_FLT32}, @func{CDI_DATATYPE_FLT64},
+ @func{CDI_DATATYPE_INT8}, @func{CDI_DATATYPE_INT16} and @func{CDI_DATATYPE_INT32}.
+
+@Description
+The function @func{vlistDefVarDatatype} defines the data type of a variable.
+
+@EndFunction
+*/
+void
+vlistDefVarDatatype(int vlistID, int varID, int datatype)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (varptr->datatype != datatype)
+ {
+ varptr->datatype = datatype;
+
+ if (!varptr->missvalused)
+ {
+ double missval = varptr->missval;
+ bool missvalIsDefault = DBL_IS_EQUAL(missval, CDI_Default_Missval);
+ if (missvalIsDefault)
+ {
+ // clang-format off
+ switch (datatype)
+ {
+ case CDI_DATATYPE_INT8: varptr->missval = -SCHAR_MAX; break;
+ case CDI_DATATYPE_UINT8: varptr->missval = UCHAR_MAX; break;
+ case CDI_DATATYPE_INT16: varptr->missval = -SHRT_MAX; break;
+ case CDI_DATATYPE_UINT16: varptr->missval = USHRT_MAX; break;
+ case CDI_DATATYPE_INT32: varptr->missval = -INT_MAX; break;
+ case CDI_DATATYPE_UINT32: varptr->missval = UINT_MAX; break;
+ case CDI_DATATYPE_FLT32: varptr->missval = (float) CDI_Default_Missval; break;
+ }
+ // clang-format on
+ }
+ else
+ {
+ // clang-format off
+ switch (datatype)
+ {
+ case CDI_DATATYPE_INT8: varptr->missval = check_range(missval, -SCHAR_MAX, SCHAR_MAX) ? missval : -SCHAR_MAX; break;
+ case CDI_DATATYPE_UINT8: varptr->missval = check_range(missval, 0, UCHAR_MAX) ? missval : UCHAR_MAX; break;
+ case CDI_DATATYPE_INT16: varptr->missval = check_range(missval, -SHRT_MAX, SHRT_MAX) ? missval : -SHRT_MAX; break;
+ case CDI_DATATYPE_UINT16: varptr->missval = check_range(missval, 0, USHRT_MAX) ? missval : USHRT_MAX; break;
+ case CDI_DATATYPE_INT32: varptr->missval = check_range(missval, -INT_MAX, INT_MAX) ? missval : -INT_MAX; break;
+ case CDI_DATATYPE_UINT32: varptr->missval = check_range(missval, 0, UINT_MAX) ? missval : UINT_MAX; break;
+ case CDI_DATATYPE_FLT32: varptr->missval = check_range(missval, -FLT_MAX, FLT_MAX) ? missval : CDI_Default_Missval; break;
+ }
+ // clang-format on
+ }
+ }
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+vlistDefVarInstitut(int vlistID, int varID, int instID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ if (varptr->instID != instID)
+ {
+ varptr->instID = instID;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqVarInstitut(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->instID;
+}
+
+void
+vlistDefVarModel(int vlistID, int varID, int modelID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ if (varptr->modelID != modelID)
+ {
+ varptr->modelID = modelID;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqVarModel(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->modelID;
+}
+
+void
+vlistDefVarTable(int vlistID, int varID, int tableID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (varptr->tableID != tableID)
+ {
+ varptr->tableID = tableID;
+ int tablenum = tableInqNum(tableID);
+ int pnum, pcat, pdis;
+ cdiDecodeParam(varptr->param, &pnum, &pcat, &pdis);
+ varptr->param = cdiEncodeParam(pnum, tablenum, pdis);
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqVarTable(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->tableID;
+}
+
+/*
+@Function vlistDefVarName
+@Title Define the name of a Variable
+
+@Prototype void vlistDefVarName(int vlistID, int varID, const char *name)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item varID Variable identifier.
+ @Item name Name of the variable.
+
+@Description
+The function @func{vlistDefVarName} defines the name of a variable.
+
+@EndFunction
+*/
+void
+vlistDefVarName(int vlistID, int varID, const char *name)
+{
+ (void) cdiDefKeyString(vlistID, varID, CDI_KEY_NAME, name);
+}
+
+/*
+@Function vlistDefVarLongname
+@Title Define the long name of a Variable
+
+@Prototype void vlistDefVarLongname(int vlistID, int varID, const char *longname)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item varID Variable identifier.
+ @Item longname Long name of the variable.
+
+@Description
+The function @func{vlistDefVarLongname} defines the long name of a variable.
+
+@EndFunction
+*/
+void
+vlistDefVarLongname(int vlistID, int varID, const char *longname)
+{
+ if (longname) (void) cdiDefKeyString(vlistID, varID, CDI_KEY_LONGNAME, longname);
+}
+
+/*
+@Function vlistDefVarStdname
+@Title Define the standard name of a Variable
+
+@Prototype void vlistDefVarStdname(int vlistID, int varID, const char *stdname)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item varID Variable identifier.
+ @Item stdname Standard name of the variable.
+
+@Description
+The function @func{vlistDefVarStdname} defines the standard name of a variable.
+
+@EndFunction
+*/
+void
+vlistDefVarStdname(int vlistID, int varID, const char *stdname)
+{
+ if (stdname) (void) cdiDefKeyString(vlistID, varID, CDI_KEY_STDNAME, stdname);
+}
+
+/*
+@Function vlistDefVarUnits
+@Title Define the units of a Variable
+
+@Prototype void vlistDefVarUnits(int vlistID, int varID, const char *units)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item varID Variable identifier.
+ @Item units Units of the variable.
+
+@Description
+The function @func{vlistDefVarUnits} defines the units of a variable.
+
+@EndFunction
+*/
+void
+vlistDefVarUnits(int vlistID, int varID, const char *units)
+{
+ if (units) (void) cdiDefKeyString(vlistID, varID, CDI_KEY_UNITS, units);
+}
+
+/*
+@Function vlistInqVarMissval
+@Title Get the missing value of a Variable
+
+@Prototype double vlistInqVarMissval(int vlistID, int varID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+
+@Description
+The function @func{vlistInqVarMissval} returns the missing value of a variable.
+
+@Result
+@func{vlistInqVarMissval} returns the missing value of the variable.
+
+@EndFunction
+*/
+double
+vlistInqVarMissval(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->missval;
+}
+
+/*
+@Function vlistDefVarMissval
+@Title Define the missing value of a Variable
+
+@Prototype void vlistDefVarMissval(int vlistID, int varID, double missval)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate}.
+ @Item varID Variable identifier.
+ @Item missval Missing value.
+
+@Description
+The function @func{vlistDefVarMissval} defines the missing value of a variable.
+
+@EndFunction
+*/
+void
+vlistDefVarMissval(int vlistID, int varID, double missval)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ varptr->missval = missval;
+ varptr->missvalused = true;
+}
+
+int
+vlistInqVarValidrange(int vlistID, int varID, double *validrange)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (validrange != NULL && varptr->lvalidrange)
+ {
+ validrange[0] = varptr->validrange[0];
+ validrange[1] = varptr->validrange[1];
+ }
+
+ return (int) varptr->lvalidrange;
+}
+
+void
+vlistDefVarValidrange(int vlistID, int varID, const double *validrange)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ varptr->validrange[0] = validrange[0];
+ varptr->validrange[1] = validrange[1];
+ varptr->lvalidrange = true;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+}
+
+void
+vlistDefVarTimetype(int vlistID, int varID, int timetype)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ if (varptr->timetype != timetype)
+ {
+ varptr->timetype = timetype;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqVarTimetype(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->timetype;
+}
+
+void
+vlistDefVarTsteptype(int vlistID, int varID, int tsteptype)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ if (varptr->tsteptype != tsteptype)
+ {
+ varptr->tsteptype = tsteptype;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+/*
+@Function vlistInqVarTsteptype
+@Title Get the timestep type of a Variable
+
+@Prototype int vlistInqVarTsteptype(int vlistID, int varID)
+@Parameter
+ @Item vlistID Variable list ID, from a previous call to @fref{vlistCreate} or @fref{streamInqVlist}.
+ @Item varID Variable identifier.
+
+@Description
+The function @func{vlistInqVarTsteptype} returns the timestep type of a Variable.
+
+@Result
+@func{vlistInqVarTsteptype} returns the timestep type of the Variable,
+one of the set of predefined CDI timestep types.
+The valid CDI timestep types are @func{TSTEP_INSTANT},
+@func{TSTEP_ACCUM}, @func{TSTEP_AVG}, @func{TSTEP_MAX}, @func{TSTEP_MIN} and @func{TSTEP_SD}.
+
+@EndFunction
+*/
+int
+vlistInqVarTsteptype(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->tsteptype;
+}
+
+int
+vlistInqVarMissvalUsed(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return (int) varptr->missvalused;
+}
+
+void
+vlistDefFlag(int vlistID, int varID, int levID, int flag)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ var_t *varptr = vlistptr_get_varptr(__func__, vlistptr, varID);
+
+ levinfo_t li = DEFAULT_LEVINFO(levID);
+ if (varptr->levinfo)
+ ;
+ else if (flag != li.flag)
+ cdiVlistCreateVarLevInfo(vlistptr, varID);
+ else
+ return;
+
+ varptr->levinfo[levID].flag = flag;
+ varptr->flag = 0;
+
+ int nlevs = zaxisInqSize(varptr->zaxisID);
+ for (int levelID = 0; levelID < nlevs; ++levelID)
+ {
+ if (varptr->levinfo[levelID].flag)
+ {
+ varptr->flag = 1;
+ break;
+ }
+ }
+
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+}
+
+int
+vlistInqFlag(int vlistID, int varID, int levID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (varptr->levinfo)
+ return varptr->levinfo[levID].flag;
+ else
+ {
+ levinfo_t li = DEFAULT_LEVINFO(levID);
+ return li.flag;
+ }
+}
+
+int
+vlistFindVar(int vlistID, int fvarID)
+{
+ int varID;
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ for (varID = 0; varID < vlistptr->nvars; ++varID)
+ {
+ if (vlistptr->vars[varID].fvarID == fvarID) break;
+ }
+
+ if (varID == vlistptr->nvars)
+ {
+ varID = -1;
+ Warning("varID not found for fvarID %d in vlistID %d!", fvarID, vlistID);
+ }
+
+ return varID;
+}
+
+int
+vlistFindLevel(int vlistID, int fvarID, int flevelID)
+{
+ int levelID = -1;
+ int varID = vlistFindVar(vlistID, fvarID);
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (varID != -1)
+ {
+ int nlevs = zaxisInqSize(varptr->zaxisID);
+ for (levelID = 0; levelID < nlevs; ++levelID)
+ {
+ if (varptr->levinfo[levelID].flevelID == flevelID) break;
+ }
+
+ if (levelID == nlevs)
+ {
+ levelID = -1;
+ Warning("levelID not found for fvarID %d and levelID %d in vlistID %d!", fvarID, flevelID, vlistID);
+ }
+ }
+
+ return levelID;
+}
+
+int
+vlistMergedVar(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->mvarID;
+}
+
+int
+vlistMergedLevel(int vlistID, int varID, int levelID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (varptr->levinfo)
+ return varptr->levinfo[levelID].mlevelID;
+ else
+ {
+ levinfo_t li = DEFAULT_LEVINFO(levelID);
+ return li.mlevelID;
+ }
+}
+
+void
+vlistDefIndex(int vlistID, int varID, int levelID, int index)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ var_t *varptr = vlistptr_get_varptr(__func__, vlistptr, varID);
+
+ levinfo_t li = DEFAULT_LEVINFO(levelID);
+ if (varptr->levinfo)
+ ;
+ else if (index != li.index)
+ cdiVlistCreateVarLevInfo(vlistptr, varID);
+ else
+ return;
+
+ varptr->levinfo[levelID].index = index;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+}
+
+int
+vlistInqIndex(int vlistID, int varID, int levelID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (varptr->levinfo)
+ return varptr->levinfo[levelID].index;
+ else
+ {
+ levinfo_t li = DEFAULT_LEVINFO(levelID);
+ return li.index;
+ }
+}
+
+void
+vlistChangeVarZaxis(int vlistID, int varID, int zaxisID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ var_t *varptr = vlistptr_get_varptr(__func__, vlistptr, varID);
+
+ int nlevs1 = zaxisInqSize(varptr->zaxisID);
+ int nlevs2 = zaxisInqSize(zaxisID);
+
+ if (nlevs1 != nlevs2) Error("Number of levels must not change!");
+
+ int nvars = vlistptr->nvars;
+ int found = 0;
+ int oldZaxisID = varptr->zaxisID;
+ for (int i = 0; i < varID; ++i) found |= (vlistptr->vars[i].zaxisID == oldZaxisID);
+ for (int i = varID + 1; i < nvars; ++i) found |= (vlistptr->vars[i].zaxisID == oldZaxisID);
+
+ if (found)
+ {
+ int nzaxis = vlistptr->nzaxis;
+ for (int i = 0; i < nzaxis; ++i)
+ if (vlistptr->zaxisIDs[i] == oldZaxisID) vlistptr->zaxisIDs[i] = zaxisID;
+ }
+ else
+ vlistAdd2ZaxisIDs(vlistptr, zaxisID);
+
+ varptr->zaxisID = zaxisID;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+}
+
+void
+vlistChangeVarGrid(int vlistID, int varID, int gridID)
+{
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ var_t *varptr = vlistptr_get_varptr(__func__, vlistptr, varID);
+
+ int nvars = vlistptr->nvars;
+ int index;
+ for (index = 0; index < nvars; index++)
+ if (index != varID)
+ if (vlistptr->vars[index].gridID == vlistptr->vars[varID].gridID) break;
+
+ if (index == nvars)
+ {
+ for (index = 0; index < vlistptr->ngrids; index++)
+ if (vlistptr->gridIDs[index] == vlistptr->vars[varID].gridID) vlistptr->gridIDs[index] = gridID;
+ }
+ else
+ vlistAdd2GridIDs(vlistptr, gridID);
+
+ varptr->gridID = gridID;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+}
+
+void
+vlistDefVarCompType(int vlistID, int varID, int comptype)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (varptr->comptype != comptype)
+ {
+ varptr->comptype = comptype;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqVarCompType(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->comptype;
+}
+
+void
+vlistDefVarCompLevel(int vlistID, int varID, int complevel)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (varptr->complevel != complevel)
+ {
+ varptr->complevel = complevel;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqVarCompLevel(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->complevel;
+}
+
+void
+vlistDefVarNSB(int vlistID, int varID, int nsb)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ if (varptr->nsb != nsb)
+ {
+ varptr->nsb = nsb;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+vlistInqVarNSB(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return varptr->nsb;
+}
+
+static int
+vlistEncodeXyz(const int dimorder[3])
+{
+ return (short) (dimorder[0] * 100 + dimorder[1] * 10 + dimorder[2]);
+}
+
+static void
+vlistDecodeXyz(int xyz, int outDimorder[3])
+{
+ outDimorder[0] = xyz / 100, xyz = xyz % 100;
+ outDimorder[1] = xyz / 10;
+ outDimorder[2] = xyz % 10;
+}
+
+static const short xyzStorVals[] = { 123, 132, 213, 231, 312, 321 };
+enum
+{
+ numXYZStorVals = sizeof(xyzStorVals) / sizeof(xyzStorVals[0])
+};
+
+void
+vlistDefVarXYZ(int vlistID, int varID, int xyz)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+
+ if (xyz == 3) xyz = 321;
+
+ // check xyz dimension order
+ {
+ int dimorder[3];
+ vlistDecodeXyz(xyz, dimorder);
+ int dimx = 0, dimy = 0, dimz = 0;
+ for (int id = 0; id < 3; ++id)
+ {
+ switch (dimorder[id])
+ {
+ case 1: dimx++; break;
+ case 2: dimy++; break;
+ case 3: dimz++; break;
+ default: dimorder[id] = 0; break; // Ensure that we assign a valid dimension to this position.
+ }
+ }
+ if (dimz > 1 || dimy > 1 || dimx > 1)
+ xyz = 321; // ZYX
+ else
+ {
+ // clang-format off
+ if (dimz == 0) for (int id = 0; id < 3; ++id) if (dimorder[id] == 0) { dimorder[id] = 3; break; }
+ if (dimy == 0) for (int id = 0; id < 3; ++id) if (dimorder[id] == 0) { dimorder[id] = 2; break; }
+ if (dimx == 0) for (int id = 0; id < 3; ++id) if (dimorder[id] == 0) { dimorder[id] = 1; break; }
+ // clang-format on
+ xyz = vlistEncodeXyz(dimorder);
+ }
+ }
+
+ assert(xyz == 123 || xyz == 312 || xyz == 231 || xyz == 321 || xyz == 132 || xyz == 213);
+
+ for (size_t i = 0; i < numXYZStorVals; ++i)
+ if (xyz == xyzStorVals[i])
+ {
+ xyz = (int) i;
+ break;
+ }
+ varptr->xyz = (signed char) xyz;
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+}
+
+void
+vlistInqVarDimorder(int vlistID, int varID, int outDimorder[3])
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ vlistDecodeXyz(xyzStorVals[varptr->xyz], outDimorder);
+}
+
+int
+vlistInqVarXYZ(int vlistID, int varID)
+{
+ var_t *varptr = vlistptr_get_varptr(__func__, vlist_to_pointer(vlistID), varID);
+ return xyzStorVals[varptr->xyz];
+}
+
+int
+vlistVarCompare(vlist_t *a, int varIDA, vlist_t *b, int varIDB)
+{
+ xassert(a && b && varIDA >= 0 && varIDA < a->nvars && varIDB >= 0 && varIDB < b->nvars);
+ var_t *pva = a->vars + varIDA, *pvb = b->vars + varIDB;
+#define FCMP(f) ((pva->f) != (pvb->f))
+#define FCMPFLT(f) (IS_NOT_EQUAL((pva->f), (pvb->f)))
+#define FCMPSTR(fs) ((pva->fs) != (pvb->fs) && strcmp((pva->fs), (pvb->fs)))
+#define FCMP2(f) (namespaceResHDecode(pva->f).idx != namespaceResHDecode(pvb->f).idx)
+ int diff = (int) FCMP(fvarID) | FCMP(mvarID) | FCMP(flag) | FCMP(param) | FCMP(datatype) | FCMP(timetype) | FCMP(tsteptype)
+ | FCMP(xyz) | FCMP2(gridID) | FCMP2(zaxisID) | FCMP2(instID) | FCMP2(modelID) | FCMP2(tableID) | FCMP(missvalused)
+ | FCMPFLT(missval) | FCMP(comptype) | FCMP(complevel) | FCMP(lvalidrange) | FCMPFLT(validrange[0])
+ | FCMPFLT(validrange[1]);
+#undef FCMP
+#undef FCMPFLT
+#undef FCMPSTR
+#undef FCMP2
+ if ((diff |= ((pva->levinfo == NULL) ^ (pvb->levinfo == NULL)))) return 1;
+
+ if (pva->levinfo)
+ {
+ int zaxisID = pva->zaxisID;
+ size_t nlevs = (size_t) zaxisInqSize(zaxisID);
+ diff |= (memcmp(pva->levinfo, pvb->levinfo, sizeof(levinfo_t) * nlevs) != 0);
+ if (diff) return 1;
+ }
+
+ size_t natts = a->vars[varIDA].atts.nelems;
+ if (natts != b->vars[varIDB].atts.nelems) return 1;
+ for (size_t attID = 0; attID < natts; ++attID) diff |= cdi_att_compare(&a->vars[varIDA].atts, &b->vars[varIDB].atts, (int) attID);
+
+ size_t nkeys = a->vars[varIDA].keys.nelems;
+ if (nkeys != b->vars[varIDB].keys.nelems) return 1;
+ for (size_t keyID = 0; keyID < nkeys; ++keyID) diff |= cdi_key_compare(&a->vars[varIDA].keys, &b->vars[varIDB].keys, (int) keyID);
+
+ return diff;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+
+enum
+{
+ VLISTVAR_PACK_INT_IDX_FLAG,
+ VLISTVAR_PACK_INT_IDX_GRIDID,
+ VLISTVAR_PACK_INT_IDX_ZAXISID,
+ VLISTVAR_PACK_INT_IDX_TIMETYPE,
+ VLISTVAR_PACK_INT_IDX_DATATYPE,
+ VLISTVAR_PACK_INT_IDX_PARAM,
+ VLISTVAR_PACK_INT_IDX_INSTID,
+ VLISTVAR_PACK_INT_IDX_MODELID,
+ VLISTVAR_PACK_INT_IDX_TABLEID,
+ VLISTVAR_PACK_INT_IDX_MISSVALUSED,
+ VLISTVAR_PACK_INT_IDX_COMPTYPE,
+ VLISTVAR_PACK_INT_IDX_COMPLEVEL,
+ VLISTVAR_PACK_INT_IDX_NLEVS,
+ vlistvarNint
+};
+
+enum
+{
+ VLIST_VAR_PACK_DBL_MISSVAL,
+ vlistvar_ndbls,
+};
+
+int
+vlistVarGetPackSize(vlist_t *p, int varID, void *context)
+{
+ var_t *var = p->vars + varID;
+ int varsize
+ = serializeGetSize(vlistvarNint, CDI_DATATYPE_INT, context) + serializeGetSize(vlistvar_ndbls, CDI_DATATYPE_FLT64, context);
+
+ if (var->levinfo) varsize += serializeGetSize(4 * zaxisInqSize(var->zaxisID), CDI_DATATYPE_INT, context);
+ varsize += serializeKeysGetPackSize(&var->keys, context);
+ varsize += cdiAttsGetSize(p, varID, context);
+
+ return varsize;
+}
+
+void
+vlistVarPack(vlist_t *p, int varID, char *buf, int size, int *position, void *context)
+{
+ var_t *var = p->vars + varID;
+ int nlevs;
+ {
+ int tempbuf[vlistvarNint];
+ tempbuf[VLISTVAR_PACK_INT_IDX_FLAG] = var->flag;
+ tempbuf[VLISTVAR_PACK_INT_IDX_GRIDID] = var->gridID;
+ tempbuf[VLISTVAR_PACK_INT_IDX_ZAXISID] = var->zaxisID;
+ tempbuf[VLISTVAR_PACK_INT_IDX_TIMETYPE] = var->timetype;
+ tempbuf[VLISTVAR_PACK_INT_IDX_DATATYPE] = var->datatype;
+ tempbuf[VLISTVAR_PACK_INT_IDX_PARAM] = var->param;
+ tempbuf[VLISTVAR_PACK_INT_IDX_INSTID] = var->instID;
+ tempbuf[VLISTVAR_PACK_INT_IDX_MODELID] = var->modelID;
+ tempbuf[VLISTVAR_PACK_INT_IDX_TABLEID] = var->tableID;
+ tempbuf[VLISTVAR_PACK_INT_IDX_MISSVALUSED] = (int) var->missvalused;
+ tempbuf[VLISTVAR_PACK_INT_IDX_COMPTYPE] = var->comptype;
+ tempbuf[VLISTVAR_PACK_INT_IDX_COMPLEVEL] = var->complevel;
+ nlevs = var->levinfo ? zaxisInqSize(var->zaxisID) : 0;
+ tempbuf[VLISTVAR_PACK_INT_IDX_NLEVS] = nlevs;
+ serializePack(tempbuf, vlistvarNint, CDI_DATATYPE_INT, buf, size, position, context);
+ }
+ {
+ double dtempbuf[vlistvar_ndbls];
+ dtempbuf[VLIST_VAR_PACK_DBL_MISSVAL] = var->missval;
+ serializePack(dtempbuf, vlistvar_ndbls, CDI_DATATYPE_FLT64, buf, size, position, context);
+ }
+ if (nlevs)
+ {
+ int *levbuf = (int *) malloc(nlevs * sizeof(int));
+ for (int levID = 0; levID < nlevs; ++levID) levbuf[levID] = var->levinfo[levID].flag;
+ serializePack(levbuf, nlevs, CDI_DATATYPE_INT, buf, size, position, context);
+ for (int levID = 0; levID < nlevs; ++levID) levbuf[levID] = var->levinfo[levID].index;
+ serializePack(levbuf, nlevs, CDI_DATATYPE_INT, buf, size, position, context);
+ for (int levID = 0; levID < nlevs; ++levID) levbuf[levID] = var->levinfo[levID].mlevelID;
+ serializePack(levbuf, nlevs, CDI_DATATYPE_INT, buf, size, position, context);
+ for (int levID = 0; levID < nlevs; ++levID) levbuf[levID] = var->levinfo[levID].flevelID;
+ free(levbuf);
+ }
+
+ serializeKeysPack(&var->keys, buf, size, position, context);
+
+ cdiAttsPack(p, varID, buf, size, position, context);
+}
+
+void
+vlistVarUnpack(int vlistID, char *buf, int size, int *position, int originNamespace, void *context)
+{
+#define adaptKey(key) (namespaceAdaptKey((key), originNamespace))
+ double dtempbuf[vlistvar_ndbls];
+ int tempbuf[vlistvarNint];
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ serializeUnpack(buf, size, position, tempbuf, vlistvarNint, CDI_DATATYPE_INT, context);
+ serializeUnpack(buf, size, position, dtempbuf, vlistvar_ndbls, CDI_DATATYPE_FLT64, context);
+
+ /* ------------------------------------------- */
+ /* NOTE: Tile sets currently not supported!!! */
+ /* ------------------------------------------- */
+
+ int newvar = vlistDefVar(vlistID, adaptKey(tempbuf[VLISTVAR_PACK_INT_IDX_GRIDID]),
+ adaptKey(tempbuf[VLISTVAR_PACK_INT_IDX_ZAXISID]), tempbuf[VLISTVAR_PACK_INT_IDX_TIMETYPE]);
+ vlistDefVarDatatype(vlistID, newvar, tempbuf[VLISTVAR_PACK_INT_IDX_DATATYPE]);
+ vlistDefVarInstitut(vlistID, newvar, adaptKey(tempbuf[VLISTVAR_PACK_INT_IDX_INSTID]));
+ vlistDefVarModel(vlistID, newvar, adaptKey(tempbuf[VLISTVAR_PACK_INT_IDX_MODELID]));
+ vlistDefVarTable(vlistID, newvar, tempbuf[VLISTVAR_PACK_INT_IDX_TABLEID]);
+ // FIXME: changing the table might change the param code
+ vlistDefVarParam(vlistID, newvar, tempbuf[VLISTVAR_PACK_INT_IDX_PARAM]);
+ if (tempbuf[VLISTVAR_PACK_INT_IDX_MISSVALUSED]) vlistDefVarMissval(vlistID, newvar, dtempbuf[VLIST_VAR_PACK_DBL_MISSVAL]);
+ vlistDefVarCompType(vlistID, newvar, tempbuf[VLISTVAR_PACK_INT_IDX_COMPTYPE]);
+ vlistDefVarCompLevel(vlistID, newvar, tempbuf[VLISTVAR_PACK_INT_IDX_COMPLEVEL]);
+ const int nlevs = tempbuf[VLISTVAR_PACK_INT_IDX_NLEVS];
+ var_t *var = vlistptr->vars + newvar;
+ if (nlevs)
+ {
+ int i, flagSetLev = 0;
+ cdiVlistCreateVarLevInfo(vlistptr, newvar);
+
+ int *levbuf = (int *) malloc(nlevs * sizeof(int));
+ serializeUnpack(buf, size, position, levbuf, nlevs, CDI_DATATYPE_INT, context);
+ for (i = 0; i < nlevs; ++i) vlistDefFlag(vlistID, newvar, i, levbuf[i]);
+ for (i = 0; i < nlevs; ++i)
+ if (levbuf[i] == tempbuf[0]) flagSetLev = i;
+ vlistDefFlag(vlistID, newvar, flagSetLev, levbuf[flagSetLev]);
+ serializeUnpack(buf, size, position, levbuf, nlevs, CDI_DATATYPE_INT, context);
+ for (i = 0; i < nlevs; ++i) vlistDefIndex(vlistID, newvar, i, levbuf[i]);
+ serializeUnpack(buf, size, position, levbuf, nlevs, CDI_DATATYPE_INT, context);
+ for (i = 0; i < nlevs; ++i) var->levinfo[i].mlevelID = levbuf[i];
+ serializeUnpack(buf, size, position, levbuf, nlevs, CDI_DATATYPE_INT, context);
+ for (i = 0; i < nlevs; ++i) var->levinfo[i].flevelID = levbuf[i];
+ free(levbuf);
+ }
+
+ serializeKeysUnpack(buf, size, position, &var->keys, context);
+
+ cdiAttsUnpack(vlistID, newvar, buf, size, position, context);
+#undef adaptKey
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#ifdef HAVE_CONFIG_H
+#endif
+
+
+/* vlistDefVarIntKey: Set an arbitrary keyword/integer value pair for GRIB API */
+void
+vlistDefVarIntKey(int vlistID, int varID, const char *name, int value)
+{
+#ifdef HAVE_LIBGRIB_API
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ if (vlistptr == NULL) Error("Internal error!");
+ int idx;
+
+ if (vlistptr->immutable)
+ Error("vlistDefVarIntKey() was called on an immutable vlist object (vlistID = %d)\n"
+ "Either call vlistDefVarIntKey() before passing the vlist object to streamDefVlist(),\n"
+ "or use the stream-internal vlist by calling streamInqVlist().",
+ vlistID);
+
+ for (idx = 0; idx < vlistptr->vars[varID].opt_grib_nentries; idx++)
+ if (str_is_equal(name, vlistptr->vars[varID].opt_grib_kvpair[idx].keyword)
+ && (vlistptr->vars[varID].opt_grib_kvpair[idx].data_type == t_int))
+ break;
+
+ if (idx < vlistptr->vars[varID].opt_grib_nentries)
+ {
+ vlistptr->vars[varID].opt_grib_kvpair[idx].int_val = value;
+ vlistptr->vars[varID].opt_grib_kvpair[idx].update = true;
+ }
+ else
+ {
+ resize_opt_grib_entries(&vlistptr->vars[varID], vlistptr->vars[varID].opt_grib_nentries + 1);
+ vlistptr->vars[varID].opt_grib_nentries += 1;
+ idx = vlistptr->vars[varID].opt_grib_nentries - 1;
+ vlistptr->vars[varID].opt_grib_kvpair[idx].data_type = t_int;
+ vlistptr->vars[varID].opt_grib_kvpair[idx].int_val = value;
+ vlistptr->vars[varID].opt_grib_kvpair[idx].update = true;
+ if (name)
+ vlistptr->vars[varID].opt_grib_kvpair[idx].keyword = strdup(name);
+ else
+ Error("Internal error, name undefined!");
+ }
+
+ if (CDI_Debug)
+ {
+ Message("define additional GRIB2 key \"%s\" (integer): %d", name, value);
+ Message("total list of registered, additional GRIB2 keys (total: %d):", vlistptr->vars[varID].opt_grib_nentries);
+ for (idx = 0; idx < vlistptr->vars[varID].opt_grib_nentries; idx++)
+ if (vlistptr->vars[varID].opt_grib_kvpair[idx].data_type == t_int)
+ Message("%s -> integer %d", vlistptr->vars[varID].opt_grib_kvpair[idx].keyword,
+ vlistptr->vars[varID].opt_grib_kvpair[idx].int_val);
+ else if (vlistptr->vars[varID].opt_grib_kvpair[idx].data_type == t_double)
+ Message("%s -> double %d", vlistptr->vars[varID].opt_grib_kvpair[idx].keyword,
+ vlistptr->vars[varID].opt_grib_kvpair[idx].dbl_val);
+ else
+ Message("%s -> unknown", vlistptr->vars[varID].opt_grib_kvpair[idx].keyword);
+ }
+
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+#else
+ (void) vlistID;
+ (void) varID;
+ (void) name;
+ (void) value;
+#endif
+}
+
+/* vlistDefVarDblKey: Set an arbitrary keyword/double value pair for GRIB API */
+void
+vlistDefVarDblKey(int vlistID, int varID, const char *name, double value)
+{
+#ifdef HAVE_LIBGRIB_API
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+ if (vlistptr == NULL) Error("Internal error!");
+ int idx;
+
+ if (vlistptr->immutable)
+ Error("vlistDefVarDblKey() was called on an immutable vlist object (vlistID = %d)\n"
+ "Either call vlistDefVarIntKey() before passing the vlist object to streamDefVlist(),\n"
+ "or use the stream-internal vlist by calling streamInqVlist().",
+ vlistID);
+
+ for (idx = 0; idx < vlistptr->vars[varID].opt_grib_nentries; idx++)
+ if (str_is_equal(name, vlistptr->vars[varID].opt_grib_kvpair[idx].keyword)
+ && (vlistptr->vars[varID].opt_grib_kvpair[idx].data_type == t_double))
+ break;
+
+ if (idx < vlistptr->vars[varID].opt_grib_nentries)
+ {
+ vlistptr->vars[varID].opt_grib_kvpair[idx].dbl_val = value;
+ vlistptr->vars[varID].opt_grib_kvpair[idx].update = true;
+ }
+ else
+ {
+ resize_opt_grib_entries(&vlistptr->vars[varID], vlistptr->vars[varID].opt_grib_nentries + 1);
+ vlistptr->vars[varID].opt_grib_nentries += 1;
+ idx = vlistptr->vars[varID].opt_grib_nentries - 1;
+ vlistptr->vars[varID].opt_grib_kvpair[idx].data_type = t_double;
+ vlistptr->vars[varID].opt_grib_kvpair[idx].dbl_val = value;
+ vlistptr->vars[varID].opt_grib_kvpair[idx].update = true;
+ if (name)
+ vlistptr->vars[varID].opt_grib_kvpair[idx].keyword = strdup(name);
+ else
+ Error("Internal error, name undefined!");
+ }
+
+ if (CDI_Debug)
+ {
+ Message("define additional GRIB2 key \"%s\" (double): %d", name, value);
+ Message("total list of registered, additional GRIB2 keys (total: %d):", vlistptr->vars[varID].opt_grib_nentries);
+ for (idx = 0; idx < vlistptr->vars[varID].opt_grib_nentries; idx++)
+ if (vlistptr->vars[varID].opt_grib_kvpair[idx].data_type == t_int)
+ Message("%s -> integer %d", vlistptr->vars[varID].opt_grib_kvpair[idx].keyword,
+ vlistptr->vars[varID].opt_grib_kvpair[idx].int_val);
+ else if (vlistptr->vars[varID].opt_grib_kvpair[idx].data_type == t_double)
+ Message("%s -> double %d", vlistptr->vars[varID].opt_grib_kvpair[idx].keyword,
+ vlistptr->vars[varID].opt_grib_kvpair[idx].dbl_val);
+ else
+ Message("%s -> unknown", vlistptr->vars[varID].opt_grib_kvpair[idx].keyword);
+ }
+
+ reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
+#else
+ (void) vlistID;
+ (void) varID;
+ (void) name;
+ (void) value;
+#endif
+}
+
+/* cdiClearAdditionalKeys: Clears the list of additional GRIB keys. */
+void
+cdiClearAdditionalKeys(void)
+{
+#ifdef HAVE_LIBGRIB_API
+ for (int i = 0; i < cdiNAdditionalGRIBKeys; ++i) free(cdiAdditionalGRIBKeys[i]);
+ cdiNAdditionalGRIBKeys = 0;
+#endif
+}
+
+/* cdiDefAdditionalKey: Register an additional GRIB key which is read when file is opened. */
+void
+cdiDefAdditionalKey(const char *name)
+{
+#ifdef HAVE_LIBGRIB_API
+ int idx = cdiNAdditionalGRIBKeys;
+ cdiNAdditionalGRIBKeys++;
+ if (idx >= MAX_OPT_GRIB_ENTRIES) Error("Too many additional keywords!");
+ if (name)
+ cdiAdditionalGRIBKeys[idx] = strdup(name);
+ else
+ Error("Internal error!");
+#else
+ (void) name;
+#endif
+}
+
+/* vlistHasVarKey: returns 1 if meta-data key was read, 0 otherwise. */
+int
+vlistHasVarKey(int vlistID, int varID, const char *name)
+{
+#ifdef HAVE_LIBGRIB_API
+ /* check if the GRIB key was previously read and is stored */
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ for (int i = 0; i < vlistptr->vars[varID].opt_grib_nentries; ++i)
+ {
+ if (str_is_equal(name, vlistptr->vars[varID].opt_grib_kvpair[i].keyword)) return 1;
+ }
+#else
+ (void) vlistID;
+ (void) varID;
+ (void) name;
+#endif
+ return 0;
+}
+
+/* vlistInqVarDblKey: raw access to GRIB meta-data */
+double
+vlistInqVarDblKey(int vlistID, int varID, const char *name)
+{
+ double value = 0;
+#ifdef HAVE_LIBGRIB_API
+ /* check if the GRIB key was previously read and is stored in "opt_grib_dbl_val" */
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ for (int i = 0; i < vlistptr->vars[varID].opt_grib_nentries; ++i)
+ {
+ int isub = subtypeInqActiveIndex(vlistptr->vars[varID].subtypeID);
+ if (str_is_equal(name, vlistptr->vars[varID].opt_grib_kvpair[i].keyword)
+ && (vlistptr->vars[varID].opt_grib_kvpair[i].data_type == t_double)
+ && (vlistptr->vars[varID].opt_grib_kvpair[i].subtype_index == isub))
+ return vlistptr->vars[varID].opt_grib_kvpair[i].dbl_val;
+ }
+#else
+ (void) vlistID;
+ (void) varID;
+ (void) name;
+#endif
+ return value;
+}
+
+/* vlistInqVarIntKey: raw access to GRIB meta-data */
+int
+vlistInqVarIntKey(int vlistID, int varID, const char *name)
+{
+ long value = 0;
+#ifdef HAVE_LIBGRIB_API
+ /* check if the GRIB key was previously read and is stored in "opt_grib_int_val" */
+ vlist_t *vlistptr = vlist_to_pointer(vlistID);
+
+ for (int i = 0; i < vlistptr->vars[varID].opt_grib_nentries; ++i)
+ {
+ int isub = subtypeInqActiveIndex(vlistptr->vars[varID].subtypeID);
+ if (str_is_equal(name, vlistptr->vars[varID].opt_grib_kvpair[i].keyword)
+ && (vlistptr->vars[varID].opt_grib_kvpair[i].data_type == t_int)
+ && (vlistptr->vars[varID].opt_grib_kvpair[i].subtype_index == isub))
+ return vlistptr->vars[varID].opt_grib_kvpair[i].int_val;
+ }
+
+#else
+ (void) vlistID;
+ (void) varID;
+ (void) name;
+#endif
+ return (int) value;
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+#include <string.h>
+#include <math.h>
+#include <float.h>
+
+
+
+#define LevelUp 1
+#define LevelDown 2
+
+// clang-format off
+static const struct
+{
+ unsigned char positive; // 1: up; 2: down
+ const char *name;
+ const char *longname;
+ const char *stdname;
+ const char *units;
+}
+ZaxistypeEntry[] = {
+ { /* 0 */ 0, "sfc", "surface", "", ""},
+ { /* 1 */ 0, "lev", "generic", "", ""},
+ { /* 2 */ 2, "lev", "hybrid", "", "level"},
+ { /* 3 */ 2, "lev", "hybrid_half", "", "level"},
+ { /* 4 */ 2, "plev", "pressure", "air_pressure", "Pa"},
+ { /* 5 */ 1, "height", "height", "height", "m"},
+ { /* 6 */ 2, "depth", "depth_below_sea", "depth", "m"},
+ { /* 7 */ 2, "depth", "depth_below_land", "", "cm"},
+ { /* 8 */ 0, "lev", "isentropic", "", "K"},
+ { /* 9 */ 0, "lev", "trajectory", "", ""},
+ { /* 10 */ 1, "alt", "height above mean sea level", "altitude", "m"},
+ { /* 11 */ 0, "lev", "sigma", "", "level"},
+ { /* 12 */ 0, "lev", "meansea", "", "level"},
+ { /* 13 */ 0, "toa", "top_of_atmosphere", "", ""},
+ { /* 14 */ 0, "seabottom", "sea_bottom", "", ""},
+ { /* 15 */ 0, "atmosphere", "atmosphere", "", ""},
+ { /* 16 */ 0, "cloudbase", "cloud_base", "", ""},
+ { /* 17 */ 0, "cloudtop", "cloud_top", "", ""},
+ { /* 18 */ 0, "isotherm0", "isotherm_zero", "", ""},
+ { /* 19 */ 0, "snow", "snow", "", ""},
+ { /* 20 */ 0, "lakebottom", "lake_bottom", "", ""},
+ { /* 21 */ 0, "sedimentbottom", "sediment_bottom", "", ""},
+ { /* 22 */ 0, "sedimentbottomta", "sediment_bottom_ta", "", ""},
+ { /* 23 */ 0, "sedimentbottomtw", "sediment_bottom_tw", "", ""},
+ { /* 24 */ 0, "mixlayer", "mix_layer", "", ""},
+ { /* 25 */ 0, "height", "generalized_height", "height", ""},
+ { /* 26 */ 0, "character", "area_type", "", ""},
+ { /* 27 */ 0, "tropopause", "tropopause", "", ""},
+};
+// clang-format on
+
+enum
+{
+ CDI_NumZaxistype = sizeof(ZaxistypeEntry) / sizeof(ZaxistypeEntry[0]),
+};
+
+static int zaxisCompareP(zaxis_t *z1, zaxis_t *z2);
+static void zaxisDestroyP(void *zaxisptr);
+static void zaxisPrintP(void *zaxisptr, FILE *fp);
+static int zaxisGetPackSize(void *zaxisptr, void *context);
+static void zaxisPack(void *zaxisptr, void *buffer, int size, int *pos, void *context);
+static int zaxisTxCode(void *zaxisptr);
+
+static const resOps zaxisOps
+ = { (int (*)(void *, void *)) zaxisCompareP, zaxisDestroyP, zaxisPrintP, zaxisGetPackSize, zaxisPack, zaxisTxCode };
+
+const resOps *
+getZaxisOps(void)
+{
+ return &zaxisOps;
+}
+
+void
+zaxisGetTypeDescription(int zaxisType, int *outPositive, const char **outName, const char **outLongName, const char **outStdName,
+ const char **outUnit)
+{
+ if (zaxisType < 0 || zaxisType >= CDI_NumZaxistype)
+ {
+ if (outPositive) *outPositive = 0;
+ if (outName) *outName = NULL;
+ if (outLongName) *outLongName = NULL;
+ if (outStdName) *outStdName = NULL;
+ if (outUnit) *outUnit = NULL;
+ }
+ else
+ {
+ if (outPositive) *outPositive = ZaxistypeEntry[zaxisType].positive;
+ if (outName) *outName = ZaxistypeEntry[zaxisType].name;
+ if (outLongName && zaxisType != ZAXIS_GENERIC) *outLongName = ZaxistypeEntry[zaxisType].longname;
+ if (outStdName) *outStdName = ZaxistypeEntry[zaxisType].stdname;
+ if (outUnit) *outUnit = ZaxistypeEntry[zaxisType].units;
+ }
+}
+
+zaxis_t *
+zaxis_to_pointer(int id)
+{
+ return (zaxis_t *) reshGetVal(id, &zaxisOps);
+}
+
+static void
+zaxis_init(zaxis_t *zaxisptr)
+{
+ zaxisptr->self = CDI_UNDEFID;
+ zaxisptr->vals = NULL;
+#ifndef USE_MPI
+ zaxisptr->cvals = NULL;
+ zaxisptr->clength = 0;
+#endif
+ zaxisptr->ubounds = NULL;
+ zaxisptr->lbounds = NULL;
+ zaxisptr->weights = NULL;
+ zaxisptr->type = CDI_UNDEFID;
+ zaxisptr->positive = 0;
+ zaxisptr->scalar = 0;
+ zaxisptr->direction = 0;
+ zaxisptr->size = 0;
+ zaxisptr->vctsize = 0;
+ zaxisptr->vct = NULL;
+
+ cdiInitKeys(&zaxisptr->keys);
+ zaxisptr->atts.nalloc = MAX_ATTRIBUTES;
+ zaxisptr->atts.nelems = 0;
+
+ cdiDefVarKeyInt(&zaxisptr->keys, CDI_KEY_DATATYPE, CDI_DATATYPE_FLT64);
+}
+
+static zaxis_t *
+zaxisNewEntry(int id)
+{
+ zaxis_t *zaxisptr = (zaxis_t *) Malloc(sizeof(zaxis_t));
+ zaxis_init(zaxisptr);
+
+ if (id == CDI_UNDEFID)
+ zaxisptr->self = reshPut(zaxisptr, &zaxisOps);
+ else
+ {
+ zaxisptr->self = id;
+ reshReplace(id, zaxisptr, &zaxisOps);
+ }
+
+ return zaxisptr;
+}
+
+static void
+zaxisInit(void)
+{
+ static bool zaxisInitialized = false;
+ if (zaxisInitialized) return;
+ zaxisInitialized = true;
+}
+
+static void
+zaxis_copy(zaxis_t *zaxisptr2, zaxis_t *zaxisptr1)
+{
+ int zaxisID2 = zaxisptr2->self;
+ memcpy(zaxisptr2, zaxisptr1, sizeof(zaxis_t));
+ zaxisptr2->self = zaxisID2;
+ cdiInitKeys(&zaxisptr2->keys);
+ cdiCopyVarKeys(&zaxisptr1->keys, &zaxisptr2->keys);
+}
+
+unsigned
+cdiZaxisCount(void)
+{
+ return reshCountType(&zaxisOps);
+}
+
+static int
+zaxisCreate_(int zaxistype, int size, int id)
+{
+ zaxis_t *zaxisptr = zaxisNewEntry(id);
+
+ xassert(size >= 0);
+ zaxisptr->type = zaxistype;
+ zaxisptr->size = size;
+
+ int zaxisID = zaxisptr->self;
+
+ if (zaxistype >= 0 && zaxistype < CDI_NumZaxistype)
+ {
+ cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_NAME, ZaxistypeEntry[zaxistype].name);
+ if (zaxistype != ZAXIS_GENERIC) zaxisDefLongname(zaxisID, ZaxistypeEntry[zaxistype].longname);
+ cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, ZaxistypeEntry[zaxistype].units);
+
+ const char *stdname = ZaxistypeEntry[zaxistype].stdname;
+ if (*stdname) cdiDefVarKeyBytes(&zaxisptr->keys, CDI_KEY_STDNAME, (const unsigned char *) stdname, (int) strlen(stdname) + 1);
+
+ zaxisptr->positive = ZaxistypeEntry[zaxistype].positive;
+ }
+ else
+ {
+ Error("Internal problem! zaxistype=%d out of range (min=0/max=%d)!", zaxistype, CDI_NumZaxistype - 1);
+ }
+
+ return zaxisID;
+}
+
+/*
+@Function zaxisCreate
+@Title Create a vertical Z-axis
+
+@Prototype int zaxisCreate(int zaxistype, int size)
+@Parameter
+ @Item zaxistype The type of the Z-axis, one of the set of predefined CDI Z-axis types.
+ The valid CDI Z-axis types are @func{ZAXIS_GENERIC}, @func{ZAXIS_SURFACE},
+ @func{ZAXIS_HYBRID}, @func{ZAXIS_SIGMA}, @func{ZAXIS_PRESSURE}, @func{ZAXIS_HEIGHT},
+ @func{ZAXIS_ISENTROPIC}, @func{ZAXIS_ALTITUDE}, @func{ZAXIS_MEANSEA}, @func{ZAXIS_TOA},
+ @func{ZAXIS_SEA_BOTTOM}, @func{ZAXIS_ATMOSPHERE}, @func{ZAXIS_CLOUD_BASE},
+ @func{ZAXIS_CLOUD_TOP}, @func{ZAXIS_ISOTHERM_ZERO}, @func{ZAXIS_SNOW},
+ @func{ZAXIS_LAKE_BOTTOM}, @func{ZAXIS_SEDIMENT_BOTTOM}, @func{ZAXIS_SEDIMENT_BOTTOM_TA},
+ @func{ZAXIS_SEDIMENT_BOTTOM_TW}, @func{ZAXIS_MIX_LAYER},
+ @func{ZAXIS_DEPTH_BELOW_SEA} and @func{ZAXIS_DEPTH_BELOW_LAND}.
+ @Item size Number of levels.
+
+@Description
+The function @func{zaxisCreate} creates a vertical Z-axis.
+
+@Result
+@func{zaxisCreate} returns an identifier to the Z-axis.
+
+@Example
+Here is an example using @func{zaxisCreate} to create a pressure level Z-axis:
+
+@Source
+ ...
+#define nlev 5
+ ...
+double levs[nlev] = {101300, 92500, 85000, 50000, 20000};
+int zaxisID;
+ ...
+zaxisID = zaxisCreate(ZAXIS_PRESSURE, nlev);
+zaxisDefLevels(zaxisID, levs);
+ ...
+@EndSource
+@EndFunction
+*/
+int
+zaxisCreate(int zaxistype, int size)
+{
+ if (CDI_Debug) Message("zaxistype: %d size: %d ", zaxistype, size);
+
+ xassert(size);
+ zaxisInit();
+
+ return zaxisCreate_(zaxistype, size, CDI_UNDEFID);
+}
+
+static void
+zaxisDestroyKernel(zaxis_t *zaxisptr)
+{
+ xassert(zaxisptr);
+
+ if (zaxisptr->vals) Free(zaxisptr->vals);
+#ifndef USE_MPI
+ if (zaxisptr->cvals)
+ {
+ for (int i = 0; i < zaxisptr->size; i++) Free(zaxisptr->cvals[i]);
+ Free(zaxisptr->cvals);
+ }
+#endif
+ if (zaxisptr->lbounds) Free(zaxisptr->lbounds);
+ if (zaxisptr->ubounds) Free(zaxisptr->ubounds);
+ if (zaxisptr->weights) Free(zaxisptr->weights);
+ if (zaxisptr->vct) Free(zaxisptr->vct);
+
+ int zaxisID = zaxisptr->self;
+ cdiDeleteKeys(zaxisID, CDI_GLOBAL);
+ cdiDeleteAtts(zaxisID, CDI_GLOBAL);
+
+ Free(zaxisptr);
+}
+
+/*
+@Function zaxisDestroy
+@Title Destroy a vertical Z-axis
+
+@Prototype void zaxisDestroy(int zaxisID)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate}.
+
+@EndFunction
+*/
+void
+zaxisDestroy(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ zaxisDestroyKernel(zaxisptr);
+ reshRemove(zaxisID, &zaxisOps);
+}
+
+static void
+zaxisDestroyP(void *zaxisptr)
+{
+ zaxisDestroyKernel((zaxis_t *) zaxisptr);
+}
+
+const char *
+zaxisNamePtr(int zaxistype)
+{
+ const char *name = (zaxistype >= 0 && zaxistype < CDI_NumZaxistype) ? ZaxistypeEntry[zaxistype].longname
+ : ZaxistypeEntry[ZAXIS_GENERIC].longname;
+ return name;
+}
+
+void
+zaxisName(int zaxistype, char *zaxisname)
+{
+ strcpy(zaxisname, zaxisNamePtr(zaxistype));
+}
+
+// obsolete function
+void
+zaxisDefLtype(int zaxisID, int ltype)
+{
+ static bool printInfo = true;
+ if (printInfo) printInfo = cdiObsoleteInfo(__func__, "cdiDefKeyInt");
+
+ (void) cdiDefKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE, ltype);
+}
+
+/*
+@Function zaxisDefName
+@Title Define the name of a Z-axis
+
+@Prototype void zaxisDefName(int zaxisID, const char *name)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate}.
+ @Item name Name of the Z-axis.
+
+@Description
+The function @func{zaxisDefName} defines the name of a Z-axis.
+
+@EndFunction
+*/
+void
+zaxisDefName(int zaxisID, const char *name)
+{
+ (void) cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_NAME, name);
+}
+
+/*
+@Function zaxisDefLongname
+@Title Define the longname of a Z-axis
+
+@Prototype void zaxisDefLongname(int zaxisID, const char *longname)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate}.
+ @Item longname Longname of the Z-axis.
+
+@Description
+The function @func{zaxisDefLongname} defines the longname of a Z-axis.
+
+@EndFunction
+*/
+void
+zaxisDefLongname(int zaxisID, const char *longname)
+{
+ (void) cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_LONGNAME, longname);
+}
+
+/*
+@Function zaxisDefUnits
+@Title Define the units of a Z-axis
+
+@Prototype void zaxisDefUnits(int zaxisID, const char *units)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate}.
+ @Item units Units of the Z-axis.
+
+@Description
+The function @func{zaxisDefUnits} defines the units of a Z-axis.
+
+@EndFunction
+*/
+void
+zaxisDefUnits(int zaxisID, const char *units)
+{
+ (void) cdiDefKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, units);
+}
+
+/*
+@Function zaxisInqName
+@Title Get the name of a Z-axis
+
+@Prototype void zaxisInqName(int zaxisID, char *name)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate} or @fref{vlistInqVarZaxis}.
+ @Item name Name of the Z-axis. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{zaxisInqName} returns the name of a Z-axis.
+
+@Result
+@func{zaxisInqName} returns the name of the Z-axis to the parameter name.
+
+@EndFunction
+*/
+void
+zaxisInqName(int zaxisID, char *name)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_NAME, name, &length);
+}
+
+const char *
+zaxisInqNamePtr(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ return cdiInqVarKeyString(&zaxisptr->keys, CDI_KEY_NAME);
+}
+
+/*
+@Function zaxisInqLongname
+@Title Get the longname of a Z-axis
+
+@Prototype void zaxisInqLongname(int zaxisID, char *longname)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate} or @fref{vlistInqVarZaxis}.
+ @Item longname Longname of the Z-axis. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{zaxisInqLongname} returns the longname of a Z-axis.
+
+@Result
+@func{zaxisInqLongname} returns the longname of the Z-axis to the parameter longname.
+
+@EndFunction
+*/
+void
+zaxisInqLongname(int zaxisID, char *longname)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_LONGNAME, longname, &length);
+}
+
+/*
+@Function zaxisInqUnits
+@Title Get the units of a Z-axis
+
+@Prototype void zaxisInqUnits(int zaxisID, char *units)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate} or @fref{vlistInqVarZaxis}.
+ @Item units Units of the Z-axis. The caller must allocate space for the
+ returned string. The maximum possible length, in characters, of
+ the string is given by the predefined constant @func{CDI_MAX_NAME}.
+
+@Description
+The function @func{zaxisInqUnits} returns the units of a Z-axis.
+
+@Result
+@func{zaxisInqUnits} returns the units of the Z-axis to the parameter units.
+
+@EndFunction
+*/
+void
+zaxisInqUnits(int zaxisID, char *units)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_UNITS, units, &length);
+}
+
+void
+zaxisInqStdname(int zaxisID, char *stdname)
+{
+ int length = CDI_MAX_NAME;
+ (void) cdiInqKeyString(zaxisID, CDI_GLOBAL, CDI_KEY_STDNAME, stdname, &length);
+}
+
+void
+zaxisDefDatatype(int zaxisID, int datatype)
+{
+ cdiDefKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_DATATYPE, datatype);
+}
+
+int
+zaxisInqDatatype(int zaxisID)
+{
+ int datatype = 0;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_DATATYPE, &datatype);
+ return datatype;
+}
+
+void
+zaxisDefPositive(int zaxisID, int positive)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ if (zaxisptr->positive != (unsigned) positive)
+ {
+ zaxisptr->positive = (unsigned) positive;
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+int
+zaxisInqPositive(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ return (int) zaxisptr->positive;
+}
+
+void
+zaxisDefScalar(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ zaxisptr->scalar = 1;
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+}
+
+int
+zaxisInqScalar(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ return zaxisptr->scalar;
+}
+
+/*
+@Function zaxisDefLevels
+@Title Define the levels of a Z-axis
+
+@Prototype void zaxisDefLevels(int zaxisID, const double *levels)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate}.
+ @Item levels All levels of the Z-axis.
+
+@Description
+The function @func{zaxisDefLevels} defines the levels of a Z-axis.
+
+@EndFunction
+*/
+void
+zaxisDefLevels(int zaxisID, const double *levels)
+{
+ if (levels)
+ {
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ const size_t size = (size_t) zaxisptr->size;
+ xassert(size);
+
+ if (zaxisptr->vals == NULL && size) zaxisptr->vals = (double *) Malloc(size * sizeof(double));
+
+ double *vals = zaxisptr->vals;
+
+ for (size_t ilev = 0; ilev < size; ++ilev) vals[ilev] = levels[ilev];
+
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+ }
+}
+
+void
+zaxisDefCvals(int zaxisID, const char **cvals, int clen)
+{
+#ifndef USE_MPI
+ if (cvals && clen)
+ {
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ const size_t size = zaxisptr->size;
+ xassert(size);
+
+ zaxisptr->clength = clen;
+ if (size) zaxisptr->cvals = (char **) Malloc(size * sizeof(char *));
+
+ for (size_t ilev = 0; ilev < size; ++ilev)
+ {
+ zaxisptr->cvals[ilev] = (char *) Malloc(clen * sizeof(char));
+ memcpy(zaxisptr->cvals[ilev], cvals[ilev], clen * sizeof(char));
+ }
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+ }
+#else
+ Error("This function was disabled!");
+#endif
+}
+
+/*
+@Function zaxisDefLevel
+@Title Define one level of a Z-axis
+
+@Prototype void zaxisDefLevel(int zaxisID, int levelID, double level)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate}.
+ @Item levelID Level identifier.
+ @Item level Level.
+
+@Description
+The function @func{zaxisDefLevel} defines one level of a Z-axis.
+
+@EndFunction
+*/
+void
+zaxisDefLevel(int zaxisID, int levelID, double level)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ int size = zaxisptr->size;
+ xassert(size);
+ xassert(levelID >= 0 && levelID < size);
+
+ if (zaxisptr->vals == NULL && size) zaxisptr->vals = (double *) Malloc((size_t) size * sizeof(double));
+
+ if (levelID >= 0 && levelID < size) zaxisptr->vals[levelID] = level;
+
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+}
+
+void
+zaxisDefNlevRef(int zaxisID, int nlev)
+{
+ cdiDefKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_NLEV, nlev);
+}
+
+int
+zaxisInqNlevRef(int zaxisID)
+{
+ int nlev = 0;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_NLEV, &nlev);
+ return nlev;
+}
+
+/*
+@Function zaxisDefNumber
+@Title Define the reference number for a generalized Z-axis
+
+@Prototype void zaxisDefNumber(int zaxisID, int number)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate}.
+ @Item number Reference number for a generalized Z-axis.
+
+@Description
+The function @func{zaxisDefNumber} defines the reference number for a generalized Z-axis.
+
+@EndFunction
+*/
+void
+zaxisDefNumber(int zaxisID, int number)
+{
+ cdiDefKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_NUMBEROFVGRIDUSED, number);
+}
+
+/*
+@Function zaxisInqNumber
+@Title Get the reference number to a generalized Z-axis
+
+@Prototype int zaxisInqNumber(int zaxisID)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate} or @fref{vlistInqVarZaxis}.
+
+@Description
+The function @func{zaxisInqNumber} returns the reference number to a generalized Z-axis.
+
+@Result
+@func{zaxisInqNumber} returns the reference number to a generalized Z-axis.
+@EndFunction
+*/
+int
+zaxisInqNumber(int zaxisID)
+{
+ int referenceNumber = 0;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_NUMBEROFVGRIDUSED, &referenceNumber);
+ return referenceNumber;
+}
+
+/*
+@Function zaxisDefUUID
+@Title Define the UUID for a genralized Z-axis
+
+@Prototype void zaxisDefUUID(int zaxisID, const char *uuid)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate}.
+ @Item uuid UUID for a generalized Z-axis.
+
+@Description
+The function @func{zaxisDefUUID} defines the UUID for a generalized Z-axis.
+
+@EndFunction
+*/
+void
+zaxisDefUUID(int zaxisID, const unsigned char uuid[CDI_UUID_SIZE])
+{
+ cdiDefKeyBytes(zaxisID, CDI_GLOBAL, CDI_KEY_UUID, uuid, CDI_UUID_SIZE);
+
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+}
+
+/*
+@Function zaxisInqUUID
+@Title Get the uuid to a generalized Z-axis
+
+@Prototype void zaxisInqUUID(int zaxisID, char *uuid)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate} or @fref{vlistInqVarZaxis}.
+ @Item uuid A user supplied buffer of at least 16 bytes.
+
+@Description
+The function @func{zaxisInqUUID} returns the UUID to a generalized Z-axis.
+
+@Result
+@func{zaxisInqUUID} returns the UUID to a generalized Z-axis to the parameter uuid.
+@EndFunction
+*/
+void
+zaxisInqUUID(int zaxisID, unsigned char uuid[CDI_UUID_SIZE])
+{
+ memset(uuid, 0, CDI_UUID_SIZE);
+ int length = CDI_UUID_SIZE;
+ cdiInqKeyBytes(zaxisID, CDI_GLOBAL, CDI_KEY_UUID, uuid, &length);
+}
+
+/*
+@Function zaxisInqLevel
+@Title Get one level of a Z-axis
+
+@Prototype double zaxisInqLevel(int zaxisID, int levelID)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate} or @fref{vlistInqVarZaxis}.
+ @Item levelID Level index (range: 0 to nlevel-1).
+
+@Description
+The function @func{zaxisInqLevel} returns one level of a Z-axis.
+
+@Result
+@func{zaxisInqLevel} returns the level of a Z-axis.
+@EndFunction
+*/
+double
+zaxisInqLevel(int zaxisID, int levelID)
+{
+ double level = 0;
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ if (zaxisptr->vals && levelID >= 0 && levelID < zaxisptr->size) level = zaxisptr->vals[levelID];
+
+ return level;
+}
+
+double
+zaxisInqLbound(int zaxisID, int levelID)
+{
+ double level = 0;
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ if (zaxisptr->lbounds && levelID >= 0 && levelID < zaxisptr->size) level = zaxisptr->lbounds[levelID];
+
+ return level;
+}
+
+double
+zaxisInqUbound(int zaxisID, int levelID)
+{
+ double level = 0;
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ if (zaxisptr->ubounds && levelID >= 0 && levelID < zaxisptr->size) level = zaxisptr->ubounds[levelID];
+
+ return level;
+}
+
+const double *
+zaxisInqLevelsPtr(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ return zaxisptr->vals;
+}
+
+#ifndef USE_MPI
+char **
+zaxisInqCValsPtr(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ return zaxisptr->cvals;
+}
+#endif
+
+/*
+@Function zaxisInqLevels
+@Title Get all levels of a Z-axis
+
+@Prototype void zaxisInqLevels(int zaxisID, double *levels)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate} or @fref{vlistInqVarZaxis}.
+ @Item levels Pointer to the location into which the levels are read.
+ The caller must allocate space for the returned values.
+
+@Description
+The function @func{zaxisInqLevels} returns all levels of a Z-axis.
+
+@Result
+@func{zaxisInqLevels} saves all levels to the parameter @func{levels}.
+@EndFunction
+*/
+int
+zaxisInqLevels(int zaxisID, double *levels)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ int size = 0;
+ if (zaxisptr->vals)
+ {
+ size = zaxisptr->size;
+
+ if (levels)
+ for (int i = 0; i < size; i++) levels[i] = zaxisptr->vals[i];
+ }
+
+ return size;
+}
+
+int
+zaxisInqCLen(int zaxisID)
+{
+ int clen = 0;
+#ifndef USE_MPI
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ if (zaxisptr->cvals && zaxisptr->clength) clen = zaxisptr->clength;
+#endif
+
+ return clen;
+}
+
+int
+zaxisInqCVals(int zaxisID, char ***clevels)
+{
+ int size = 0;
+#ifndef USE_MPI
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ if (zaxisptr->cvals)
+ {
+ size = zaxisptr->size;
+ const size_t clen = zaxisptr->clength;
+ if (size && clen)
+ {
+ (*clevels) = (char **) Malloc(size * sizeof(char *));
+ for (int i = 0; i < size; i++)
+ {
+ (*clevels)[i] = (char *) Malloc(clen * sizeof(char));
+ memcpy((*clevels)[i], zaxisptr->cvals[i], clen * sizeof(char));
+ }
+ }
+ }
+#endif
+
+ return size;
+}
+
+int
+zaxisInqLbounds(int zaxisID, double *lbounds)
+{
+ int size = 0;
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ if (zaxisptr->lbounds)
+ {
+ size = zaxisptr->size;
+
+ if (lbounds)
+ for (int i = 0; i < size; i++) lbounds[i] = zaxisptr->lbounds[i];
+ }
+
+ return size;
+}
+
+int
+zaxisInqUbounds(int zaxisID, double *ubounds)
+{
+ int size = 0;
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ if (zaxisptr->ubounds)
+ {
+ size = zaxisptr->size;
+
+ if (ubounds)
+ for (int i = 0; i < size; i++) ubounds[i] = zaxisptr->ubounds[i];
+ }
+
+ return size;
+}
+
+int
+zaxisInqWeights(int zaxisID, double *weights)
+{
+ int size = 0;
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ if (zaxisptr->weights)
+ {
+ size = zaxisptr->size;
+
+ if (weights)
+ for (int i = 0; i < size; i++) weights[i] = zaxisptr->weights[i];
+ }
+
+ return size;
+}
+
+int
+zaxisInqLevelID(int zaxisID, double level)
+{
+ int levelID = CDI_UNDEFID;
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ if (zaxisptr->vals)
+ {
+ int size = zaxisptr->size;
+ for (int i = 0; i < size; i++)
+ if (fabs(level - zaxisptr->vals[i]) < DBL_EPSILON)
+ {
+ levelID = i;
+ break;
+ }
+ }
+
+ return levelID;
+}
+
+/*
+@Function zaxisInqType
+@Title Get the type of a Z-axis
+
+@Prototype int zaxisInqType(int zaxisID)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate} or @fref{vlistInqVarZaxis}.
+
+@Description
+The function @func{zaxisInqType} returns the type of a Z-axis.
+
+@Result
+@func{zaxisInqType} returns the type of the Z-axis,
+one of the set of predefined CDI Z-axis types.
+The valid CDI Z-axis types are @func{ZAXIS_GENERIC}, @func{ZAXIS_SURFACE},
+@func{ZAXIS_HYBRID}, @func{ZAXIS_SIGMA}, @func{ZAXIS_PRESSURE}, @func{ZAXIS_HEIGHT},
+@func{ZAXIS_ISENTROPIC}, @func{ZAXIS_ALTITUDE}, @func{ZAXIS_MEANSEA}, @func{ZAXIS_TOA},
+@func{ZAXIS_SEA_BOTTOM}, @func{ZAXIS_ATMOSPHERE}, @func{ZAXIS_CLOUD_BASE},
+@func{ZAXIS_CLOUD_TOP}, @func{ZAXIS_ISOTHERM_ZERO}, @func{ZAXIS_SNOW},
+@func{ZAXIS_LAKE_BOTTOM}, @func{ZAXIS_SEDIMENT_BOTTOM}, @func{ZAXIS_SEDIMENT_BOTTOM_TA},
+@func{ZAXIS_SEDIMENT_BOTTOM_TW}, @func{ZAXIS_MIX_LAYER},
+@func{ZAXIS_DEPTH_BELOW_SEA} and @func{ZAXIS_DEPTH_BELOW_LAND}.
+
+@EndFunction
+*/
+int
+zaxisInqType(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ return zaxisptr->type;
+}
+
+/*
+@Function zaxisInqSize
+@Title Get the size of a Z-axis
+
+@Prototype int zaxisInqSize(int zaxisID)
+@Parameter
+ @Item zaxisID Z-axis ID, from a previous call to @fref{zaxisCreate} or @fref{vlistInqVarZaxis}.
+
+@Description
+The function @func{zaxisInqSize} returns the size of a Z-axis.
+
+@Result
+@func{zaxisInqSize} returns the number of levels of a Z-axis.
+
+@EndFunction
+*/
+int
+zaxisInqSize(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ return zaxisptr->size;
+}
+
+void
+cdiCheckZaxis(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ if (zaxisInqType(zaxisID) == ZAXIS_GENERIC && zaxisptr->vals)
+ {
+ int size = zaxisptr->size;
+ if (size > 1)
+ {
+ /* check direction */
+ if (!zaxisptr->direction)
+ {
+ int ups = 0, downs = 0;
+ for (int i = 1; i < size; i++)
+ {
+ ups += (zaxisptr->vals[i] > zaxisptr->vals[i - 1]);
+ downs += (zaxisptr->vals[i] < zaxisptr->vals[i - 1]);
+ }
+ if (ups == size - 1)
+ {
+ zaxisptr->direction = LevelUp;
+ }
+ else if (downs == size - 1)
+ {
+ zaxisptr->direction = LevelDown;
+ }
+ else /* !zaxisptr->direction */
+ {
+ Warning("Direction undefined for zaxisID %d", zaxisID);
+ }
+ }
+ }
+ }
+}
+
+void
+zaxisDefVct(int zaxisID, int size, const double *vct)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ if (zaxisptr->vct == 0 || zaxisptr->vctsize != size)
+ {
+ zaxisptr->vctsize = size;
+ zaxisptr->vct = (double *) Realloc(zaxisptr->vct, (size_t) size * sizeof(double));
+ }
+
+ if (vct) memcpy(zaxisptr->vct, vct, (size_t) size * sizeof(double));
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+}
+
+void
+zaxisInqVct(int zaxisID, double *vct)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ memcpy(vct, zaxisptr->vct, (size_t) zaxisptr->vctsize * sizeof(double));
+}
+
+int
+zaxisInqVctSize(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ return zaxisptr->vctsize;
+}
+
+const double *
+zaxisInqVctPtr(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ return zaxisptr->vct;
+}
+
+void
+zaxisDefLbounds(int zaxisID, const double *lbounds)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ const size_t size = (size_t) zaxisptr->size;
+
+ if (CDI_Debug)
+ if (zaxisptr->lbounds) Warning("Lower bounds already defined for zaxisID = %d", zaxisID);
+
+ if (zaxisptr->lbounds == NULL) zaxisptr->lbounds = (double *) Malloc(size * sizeof(double));
+
+ if (lbounds) memcpy(zaxisptr->lbounds, lbounds, size * sizeof(double));
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+}
+
+void
+zaxisDefUbounds(int zaxisID, const double *ubounds)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ const size_t size = (size_t) zaxisptr->size;
+
+ if (CDI_Debug)
+ if (zaxisptr->ubounds) Warning("Upper bounds already defined for zaxisID = %d", zaxisID);
+
+ if (zaxisptr->ubounds == NULL) zaxisptr->ubounds = (double *) Malloc(size * sizeof(double));
+
+ if (ubounds) memcpy(zaxisptr->ubounds, ubounds, size * sizeof(double));
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+}
+
+void
+zaxisDefWeights(int zaxisID, const double *weights)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ const size_t size = (size_t) zaxisptr->size;
+
+ if (CDI_Debug)
+ if (zaxisptr->weights != NULL) Warning("Weights already defined for zaxisID = %d", zaxisID);
+
+ if (zaxisptr->weights == NULL) zaxisptr->weights = (double *) Malloc(size * sizeof(double));
+
+ memcpy(zaxisptr->weights, weights, size * sizeof(double));
+ reshSetStatus(zaxisID, &zaxisOps, RESH_DESYNC_IN_USE);
+}
+
+void
+zaxisChangeType(int zaxisID, int zaxistype)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+ zaxisptr->type = zaxistype;
+}
+
+void
+zaxisResize(int zaxisID, int size)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ xassert(size >= 0);
+
+ zaxisptr->size = size;
+
+ if (zaxisptr->vals) zaxisptr->vals = (double *) Realloc(zaxisptr->vals, (size_t) size * sizeof(double));
+}
+
+static inline void
+zaxisCopyKeyStr(zaxis_t *zaxisptr1, zaxis_t *zaxisptr2, int key)
+{
+ cdi_key_t *keyp = find_key(&zaxisptr1->keys, key);
+ if (keyp && keyp->type == KEY_BYTES)
+ cdiDefVarKeyBytes(&zaxisptr2->keys, key, (const unsigned char *) keyp->v.s, (int) keyp->length);
+}
+
+int
+zaxisDuplicate(int zaxisID)
+{
+ zaxis_t *zaxisptr = zaxis_to_pointer(zaxisID);
+
+ int zaxistype = zaxisInqType(zaxisID);
+ int zaxissize = zaxisInqSize(zaxisID);
+
+ int zaxisIDnew = zaxisCreate(zaxistype, zaxissize);
+ zaxis_t *zaxisptrnew = zaxis_to_pointer(zaxisIDnew);
+
+ zaxis_copy(zaxisptrnew, zaxisptr);
+
+ zaxisCopyKeyStr(zaxisptr, zaxisptrnew, CDI_KEY_NAME);
+ zaxisCopyKeyStr(zaxisptr, zaxisptrnew, CDI_KEY_LONGNAME);
+ zaxisCopyKeyStr(zaxisptr, zaxisptrnew, CDI_KEY_UNITS);
+
+ if (zaxisptr->vals)
+ {
+ const size_t size = (size_t) zaxissize;
+ zaxisptrnew->vals = (double *) Malloc(size * sizeof(double));
+ memcpy(zaxisptrnew->vals, zaxisptr->vals, size * sizeof(double));
+ }
+
+ if (zaxisptr->lbounds)
+ {
+ const size_t size = (size_t) zaxissize;
+ zaxisptrnew->lbounds = (double *) Malloc(size * sizeof(double));
+ memcpy(zaxisptrnew->lbounds, zaxisptr->lbounds, size * sizeof(double));
+ }
+
+ if (zaxisptr->ubounds)
+ {
+ const size_t size = (size_t) zaxissize;
+ zaxisptrnew->ubounds = (double *) Malloc(size * sizeof(double));
+ memcpy(zaxisptrnew->ubounds, zaxisptr->ubounds, size * sizeof(double));
+ }
+
+ if (zaxisptr->vct)
+ {
+ const size_t size = (size_t) zaxisptr->vctsize;
+ if (size)
+ {
+ zaxisptrnew->vctsize = (int) size;
+ zaxisptrnew->vct = (double *) Malloc(size * sizeof(double));
+ memcpy(zaxisptrnew->vct, zaxisptr->vct, size * sizeof(double));
+ }
+ }
+
+ zaxisptrnew->atts.nelems = 0;
+ cdiCopyAtts(zaxisID, CDI_GLOBAL, zaxisIDnew, CDI_GLOBAL);
+
+ return zaxisIDnew;
+}
+
+static void
+zaxisPrintKernel(zaxis_t *zaxisptr, FILE *fp)
+{
+ xassert(zaxisptr);
+
+ int zaxisID = zaxisptr->self;
+ int datatype = CDI_UNDEFID;
+ cdiInqKeyInt(zaxisID, CDI_GLOBAL, CDI_KEY_DATATYPE, &datatype);
+
+ int type = zaxisptr->type;
+ int nlevels = zaxisptr->size;
+
+ int dig = (datatype == CDI_DATATYPE_FLT64) ? 15 : 7;
+
+ fprintf(fp, "zaxistype = %s\n", zaxisNamePtr(type));
+ fprintf(fp, "size = %d\n", nlevels);
+ if (nlevels == 1)
+ {
+ const bool zscalar = (bool) zaxisptr->scalar;
+ if (zscalar) fprintf(fp, "scalar = true\n");
+ }
+
+ const char *string = cdiInqVarKeyString(&zaxisptr->keys, CDI_KEY_NAME);
+ if (string[0]) fprintf(fp, "name = %s\n", string);
+ string = cdiInqVarKeyString(&zaxisptr->keys, CDI_KEY_LONGNAME);
+ if (string[0]) fprintf(fp, "longname = %s\n", string);
+ string = cdiInqVarKeyString(&zaxisptr->keys, CDI_KEY_UNITS);
+ if (string[0]) fprintf(fp, "units = %s\n", string);
+
+ if (zaxisptr->vals)
+ {
+ int nbyte0 = fprintf(fp, "levels = ");
+ int nbyte = nbyte0;
+ for (int levelID = 0; levelID < nlevels; levelID++)
+ {
+ if (nbyte > 80)
+ {
+ fprintf(fp, "\n");
+ fprintf(fp, "%*s", nbyte0, "");
+ nbyte = nbyte0;
+ }
+ nbyte += fprintf(fp, "%.*g ", dig, zaxisptr->vals[levelID]);
+ }
+ fprintf(fp, "\n");
+ }
+
+ if (zaxisptr->lbounds && zaxisptr->ubounds)
+ {
+ int nbyte0 = fprintf(fp, "lbounds = ");
+ int nbyte = nbyte0;
+ for (int levelID = 0; levelID < nlevels; levelID++)
+ {
+ if (nbyte > 80)
+ {
+ fprintf(fp, "\n");
+ fprintf(fp, "%*s", nbyte0, "");
+ nbyte = nbyte0;
+ }
+ nbyte += fprintf(fp, "%.*g ", dig, zaxisptr->lbounds[levelID]);
+ }
+ fprintf(fp, "\n");
+
+ nbyte0 = fprintf(fp, "ubounds = ");
+ nbyte = nbyte0;
+ for (int levelID = 0; levelID < nlevels; levelID++)
+ {
+ if (nbyte > 80)
+ {
+ fprintf(fp, "\n");
+ fprintf(fp, "%*s", nbyte0, "");
+ nbyte = nbyte0;
+ }
+ nbyte += fprintf(fp, "%.*g ", dig, zaxisptr->ubounds[levelID]);
+ }
+ fprintf(fp, "\n");
+ }
+
+ if (type == ZAXIS_HYBRID || type == ZAXIS_HYBRID_HALF)
+ {
+ int vctsize = zaxisptr->vctsize;
+ const double *vct = zaxisptr->vct;
+ fprintf(fp, "vctsize = %d\n", vctsize);
+ if (vctsize)
+ {
+ int nbyte0 = fprintf(fp, "vct = ");
+ int nbyte = nbyte0;
+ for (int i = 0; i < vctsize; i++)
+ {
+ if (nbyte > 70 || i == vctsize / 2)
+ {
+ fprintf(fp, "\n%*s", nbyte0, "");
+ nbyte = nbyte0;
+ }
+ nbyte += fprintf(fp, "%.15g ", vct[i]);
+ }
+ fprintf(fp, "\n");
+ }
+ }
+}
+
+static void
+zaxisPrintP(void *voidptr, FILE *fp)
+{
+ zaxis_t *zaxisptr = (zaxis_t *) voidptr;
+
+ xassert(zaxisptr);
+
+ zaxisPrintKernel(zaxisptr, fp);
+}
+
+static int
+zaxisCompareP(zaxis_t *z1, zaxis_t *z2)
+{
+ enum
+ {
+ differ = 1
+ };
+ int diff = 0;
+ xassert(z1 && z2);
+
+ diff |= (z1->type != z2->type)
+ | (cdiInqVarKeyInt(&z1->keys, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE)
+ != cdiInqVarKeyInt(&z2->keys, CDI_KEY_TYPEOFFIRSTFIXEDSURFACE))
+ | (cdiInqVarKeyInt(&z1->keys, CDI_KEY_DATATYPE) != cdiInqVarKeyInt(&z2->keys, CDI_KEY_DATATYPE))
+ | (z1->direction != z2->direction) | (z1->size != z2->size) | (z1->vctsize != z2->vctsize)
+ | (z1->positive != z2->positive);
+
+ if (diff) return differ;
+
+ int size = z1->size;
+ int anyPresent = 0;
+ int present = (z1->vals != NULL);
+ diff |= (present ^ (z2->vals != NULL));
+ anyPresent |= present;
+ if (!diff && present)
+ {
+ const double *p = z1->vals, *q = z2->vals;
+ for (int i = 0; i < size; i++) diff |= IS_NOT_EQUAL(p[i], q[i]);
+ }
+
+ present = (z1->lbounds != NULL);
+ diff |= (present ^ (z2->lbounds != NULL));
+ anyPresent |= present;
+ if (!diff && present)
+ {
+ const double *p = z1->lbounds, *q = z2->lbounds;
+ for (int i = 0; i < size; i++) diff |= IS_NOT_EQUAL(p[i], q[i]);
+ }
+
+ present = (z1->ubounds != NULL);
+ diff |= (present ^ (z2->ubounds != NULL));
+ anyPresent |= present;
+ if (!diff && present)
+ {
+ const double *p = z1->ubounds, *q = z2->ubounds;
+ for (int i = 0; i < size; ++i) diff |= IS_NOT_EQUAL(p[i], q[i]);
+ }
+
+ present = (z1->weights != NULL);
+ diff |= (present ^ (z2->weights != NULL));
+ anyPresent |= present;
+ if (!diff && present)
+ {
+ const double *p = z1->weights, *q = z2->weights;
+ for (int i = 0; i < size; ++i) diff |= IS_NOT_EQUAL(p[i], q[i]);
+ }
+
+ present = (z1->vct != NULL);
+ diff |= (present ^ (z2->vct != NULL));
+ if (!diff && present)
+ {
+ int vctsize = z1->vctsize;
+ xassert(vctsize);
+ const double *p = z1->vct, *q = z2->vct;
+ for (int i = 0; i < vctsize; ++i) diff |= IS_NOT_EQUAL(p[i], q[i]);
+ }
+
+ if (anyPresent) xassert(size);
+
+ diff |= strcmp(cdiInqVarKeyString(&z1->keys, CDI_KEY_NAME), cdiInqVarKeyString(&z2->keys, CDI_KEY_NAME))
+ | strcmp(cdiInqVarKeyString(&z1->keys, CDI_KEY_LONGNAME), cdiInqVarKeyString(&z2->keys, CDI_KEY_LONGNAME))
+ | strcmp(cdiInqVarKeyString(&z1->keys, CDI_KEY_STDNAME), cdiInqVarKeyString(&z2->keys, CDI_KEY_STDNAME))
+ | strcmp(cdiInqVarKeyString(&z1->keys, CDI_KEY_UNITS), cdiInqVarKeyString(&z2->keys, CDI_KEY_UNITS));
+
+ return diff != 0;
+}
+
+static int
+zaxisTxCode(void *zaxisPtr)
+{
+ (void) zaxisPtr;
+ return ZAXIS;
+}
+
+enum
+{
+ ZAXIS_PACK_INT_SELF,
+ ZAXIS_PACK_INT_TYPE,
+ ZAXIS_PACK_INT_SIZE,
+ ZAXIS_PACK_INT_DIRECTION,
+ ZAXIS_PACK_INT_VCTSIZE,
+ ZAXIS_PACK_INT_MEMBERMASK,
+ zaxisNint
+};
+
+enum
+{
+ vals = 1 << 0,
+ lbounds = 1 << 1,
+ ubounds = 1 << 2,
+ weights = 1 << 3,
+ vct = 1 << 4,
+};
+
+static int
+zaxisGetMemberMask(zaxis_t *zaxisP)
+{
+ int memberMask = 0;
+
+ if (zaxisP->vals) memberMask |= vals;
+ if (zaxisP->lbounds) memberMask |= lbounds;
+ if (zaxisP->ubounds) memberMask |= ubounds;
+ if (zaxisP->weights) memberMask |= weights;
+ if (zaxisP->vct) memberMask |= vct;
+
+ return memberMask;
+}
+
+static int
+zaxisGetPackSize(void *voidP, void *context)
+{
+ zaxis_t *zaxisP = (zaxis_t *) voidP;
+ int packBufferSize = serializeGetSize(zaxisNint, CDI_DATATYPE_INT, context) + serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+
+ if (zaxisP->vals || zaxisP->lbounds || zaxisP->ubounds || zaxisP->weights) xassert(zaxisP->size);
+
+ if (zaxisP->vals)
+ packBufferSize
+ += serializeGetSize(zaxisP->size, CDI_DATATYPE_FLT64, context) + serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+
+ if (zaxisP->lbounds)
+ packBufferSize
+ += serializeGetSize(zaxisP->size, CDI_DATATYPE_FLT64, context) + serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+
+ if (zaxisP->ubounds)
+ packBufferSize
+ += serializeGetSize(zaxisP->size, CDI_DATATYPE_FLT64, context) + serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+
+ if (zaxisP->weights)
+ packBufferSize
+ += serializeGetSize(zaxisP->size, CDI_DATATYPE_FLT64, context) + serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+
+ if (zaxisP->vct)
+ {
+ xassert(zaxisP->vctsize);
+ packBufferSize
+ += serializeGetSize(zaxisP->vctsize, CDI_DATATYPE_FLT64, context) + serializeGetSize(1, CDI_DATATYPE_UINT32, context);
+ }
+
+ packBufferSize += serializeKeysGetPackSize(&zaxisP->keys, context);
+
+ packBufferSize += serializeGetSize(1, CDI_DATATYPE_UINT, context);
+
+ return packBufferSize;
+}
+
+int
+zaxisUnpack(char *unpackBuffer, int unpackBufferSize, int *unpackBufferPos, int originNamespace, void *context, int force_id)
+{
+ int intBuffer[zaxisNint], memberMask;
+ uint32_t d;
+
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, intBuffer, zaxisNint, CDI_DATATYPE_INT, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+
+ xassert(cdiCheckSum(CDI_DATATYPE_INT, zaxisNint, intBuffer) == d);
+
+ zaxisInit();
+
+ zaxis_t *zaxisP = zaxisNewEntry(force_id ? namespaceAdaptKey(intBuffer[ZAXIS_PACK_INT_SELF], originNamespace) : CDI_UNDEFID);
+
+ zaxisP->type = intBuffer[ZAXIS_PACK_INT_TYPE];
+ zaxisP->size = intBuffer[ZAXIS_PACK_INT_SIZE];
+ zaxisP->direction = intBuffer[ZAXIS_PACK_INT_DIRECTION];
+ zaxisP->vctsize = intBuffer[ZAXIS_PACK_INT_VCTSIZE];
+ memberMask = intBuffer[ZAXIS_PACK_INT_MEMBERMASK];
+
+ if (memberMask & vals)
+ {
+ int size = zaxisP->size;
+ xassert(size >= 0);
+
+ zaxisP->vals = (double *) Malloc((size_t) size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, zaxisP->vals, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT, size, zaxisP->vals) == d);
+ }
+
+ if (memberMask & lbounds)
+ {
+ int size = zaxisP->size;
+ xassert(size >= 0);
+
+ zaxisP->lbounds = (double *) Malloc((size_t) size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, zaxisP->lbounds, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT, size, zaxisP->lbounds) == d);
+ }
+
+ if (memberMask & ubounds)
+ {
+ int size = zaxisP->size;
+ xassert(size >= 0);
+
+ zaxisP->ubounds = (double *) Malloc((size_t) size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, zaxisP->ubounds, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT, size, zaxisP->ubounds) == d);
+ }
+
+ if (memberMask & weights)
+ {
+ int size = zaxisP->size;
+ xassert(size >= 0);
+
+ zaxisP->weights = (double *) Malloc((size_t) size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, zaxisP->weights, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT, size, zaxisP->weights) == d);
+ }
+
+ if (memberMask & vct)
+ {
+ int size = zaxisP->vctsize;
+ xassert(size >= 0);
+
+ zaxisP->vct = (double *) Malloc((size_t) size * sizeof(double));
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, zaxisP->vct, size, CDI_DATATYPE_FLT64, context);
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &d, 1, CDI_DATATYPE_UINT32, context);
+ xassert(cdiCheckSum(CDI_DATATYPE_FLT64, size, zaxisP->vct) == d);
+ }
+
+ serializeKeysUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &zaxisP->keys, context);
+
+ serializeUnpack(unpackBuffer, unpackBufferSize, unpackBufferPos, &zaxisP->positive, 1, CDI_DATATYPE_UINT, context);
+
+ reshSetStatus(zaxisP->self, &zaxisOps, reshGetStatus(zaxisP->self, &zaxisOps) & ~RESH_SYNC_BIT);
+ return zaxisP->self;
+}
+
+static void
+zaxisPack(void *voidP, void *packBuffer, int packBufferSize, int *packBufferPos, void *context)
+{
+ zaxis_t *zaxisP = (zaxis_t *) voidP;
+ int intBuffer[zaxisNint];
+ int memberMask;
+ uint32_t d;
+
+ intBuffer[ZAXIS_PACK_INT_SELF] = zaxisP->self;
+ intBuffer[ZAXIS_PACK_INT_TYPE] = zaxisP->type;
+ intBuffer[ZAXIS_PACK_INT_SIZE] = zaxisP->size;
+ intBuffer[ZAXIS_PACK_INT_DIRECTION] = zaxisP->direction;
+ intBuffer[ZAXIS_PACK_INT_VCTSIZE] = zaxisP->vctsize;
+ intBuffer[ZAXIS_PACK_INT_MEMBERMASK] = memberMask = zaxisGetMemberMask(zaxisP);
+
+ serializePack(intBuffer, zaxisNint, CDI_DATATYPE_INT, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_INT, zaxisNint, intBuffer);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+
+ if (memberMask & vals)
+ {
+ xassert(zaxisP->size);
+ serializePack(zaxisP->vals, zaxisP->size, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, zaxisP->size, zaxisP->vals);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & lbounds)
+ {
+ xassert(zaxisP->size);
+ serializePack(zaxisP->lbounds, zaxisP->size, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, zaxisP->size, zaxisP->lbounds);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & ubounds)
+ {
+ xassert(zaxisP->size);
+
+ serializePack(zaxisP->ubounds, zaxisP->size, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, zaxisP->size, zaxisP->ubounds);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & weights)
+ {
+ xassert(zaxisP->size);
+
+ serializePack(zaxisP->weights, zaxisP->size, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT, zaxisP->size, zaxisP->weights);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ if (memberMask & vct)
+ {
+ xassert(zaxisP->vctsize);
+
+ serializePack(zaxisP->vct, zaxisP->vctsize, CDI_DATATYPE_FLT64, packBuffer, packBufferSize, packBufferPos, context);
+ d = cdiCheckSum(CDI_DATATYPE_FLT64, zaxisP->vctsize, zaxisP->vct);
+ serializePack(&d, 1, CDI_DATATYPE_UINT32, packBuffer, packBufferSize, packBufferPos, context);
+ }
+
+ serializeKeysPack(&zaxisP->keys, packBuffer, packBufferSize, packBufferPos, context);
+
+ serializePack(&zaxisP->positive, 1, CDI_DATATYPE_UINT, packBuffer, packBufferSize, packBufferPos, context);
+}
+
+void
+cdiZaxisGetIndexList(unsigned nzaxis, int *zaxisResHs)
+{
+ reshGetResHListOfType(nzaxis, zaxisResHs, &zaxisOps);
+}
+
+/*
+ * Local Variables:
+ * c-file-style: "Java"
+ * c-basic-offset: 2
+ * indent-tabs-mode: nil
+ * show-trailing-whitespace: t
+ * require-trailing-newline: t
+ * End:
+ */
+static const char cdi_libvers[] = "2.4.0";
+const char *
+cdiLibraryVersion(void)
+{
+ return cdi_libvers;
+}
+#if defined (HAVE_CF_INTERFACE)
+#undef realloc
+#undef malloc
+#undef calloc
+#undef free
+#undef DOUBLE_PRECISION
+/* cfortran.h 4.4 */
+/* http://www-zeus.desy.de/~burow/cfortran/ */
+/* Burkhard Burow burow@desy.de 1990 - 2002. */
+
+#ifndef __CFORTRAN_LOADED
+#define __CFORTRAN_LOADED
+
+// clang-format off
+
+/*
+ THIS FILE IS PROPERTY OF BURKHARD BUROW. IF YOU ARE USING THIS FILE YOU
+ SHOULD ALSO HAVE ACCESS TO CFORTRAN.DOC WHICH PROVIDES TERMS FOR USING,
+ MODIFYING, COPYING AND DISTRIBUTING THE CFORTRAN.H PACKAGE.
+*/
+
+/* THIS PACKAGE, I.E. CFORTRAN.H, THIS DOCUMENT, AND THE CFORTRAN.H EXAMPLE
+PROGRAMS ARE PROPERTY OF THE AUTHOR WHO RESERVES ALL RIGHTS. THIS PACKAGE AND
+THE CODE IT PRODUCES MAY BE FREELY DISTRIBUTED WITHOUT FEES, SUBJECT
+(AT YOUR CHOICE) EITHER TO THE GNU LIBRARY GENERAL PUBLIC LICENSE
+AT http://www.gnu.org/licenses/lgpl.html OR TO THE FOLLOWING RESTRICTIONS:
+- YOU MUST ACCOMPANY ANY COPIES OR DISTRIBUTION WITH THIS (UNALTERED) NOTICE.
+- YOU MAY NOT RECEIVE MONEY FOR THE DISTRIBUTION OR FOR ITS MEDIA
+ (E.G. TAPE, DISK, COMPUTER, PAPER.)
+- YOU MAY NOT PREVENT OTHERS FROM COPYING IT FREELY.
+- YOU MAY NOT DISTRIBUTE MODIFIED VERSIONS WITHOUT CLEARLY DOCUMENTING YOUR
+ CHANGES AND NOTIFYING THE AUTHOR.
+- YOU MAY NOT MISREPRESENTED THE ORIGIN OF THIS SOFTWARE, EITHER BY EXPLICIT
+ CLAIM OR BY OMISSION.
+
+THE INTENT OF THE ABOVE TERMS IS TO ENSURE THAT THE CFORTRAN.H PACKAGE NOT BE
+USED FOR PROFIT MAKING ACTIVITIES UNLESS SOME ROYALTY ARRANGEMENT IS ENTERED
+INTO WITH ITS AUTHOR.
+
+THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
+EXPRESSED OR IMPLIED. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
+SOFTWARE IS WITH YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST
+OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. THE AUTHOR IS NOT RESPONSIBLE
+FOR ANY SUPPORT OR SERVICE OF THE CFORTRAN.H PACKAGE.
+
+ Burkhard Burow
+ burow@desy.de
+*/
+
+/* The following modifications were made by the authors of CFITSIO or by me.
+ * They are flagged below with CFITSIO, the author's initials, or KMCCARTY.
+ * PDW = Peter Wilson
+ * DM = Doug Mink
+ * LEB = Lee E Brotzman
+ * MR = Martin Reinecke
+ * WDP = William D Pence
+ * BR = Bastien ROUCARIES
+ * -- Kevin McCarty, for Debian (19 Dec. 2005) */
+
+/*******
+ Modifications:
+ Oct 1997: Changed symbol name extname to appendus (PDW/HSTX)
+ (Conflicted with a common variable name in FTOOLS)
+ Nov 1997: If g77Fortran defined, also define f2cFortran (PDW/HSTX)
+ Feb 1998: Let VMS see the NUM_ELEMS code. Lets programs treat
+ single strings as vectors with single elements
+ Nov 1999: If macintoxh defined, also define f2cfortran (for Mac OS-X)
+ Apr 2000: If WIN32 defined, also define PowerStationFortran and
+ VISUAL_CPLUSPLUS (Visual C++)
+ Jun 2000: If __GNUC__ and linux defined, also define f2cFortran
+ (linux/gcc environment detection)
+ Apr 2002: If __CYGWIN__ is defined, also define f2cFortran
+ Nov 2002: If __APPLE__ defined, also define f2cfortran (for Mac OS-X)
+
+ Nov 2003: If __INTEL_COMPILER or INTEL_COMPILER defined, also define
+ f2cFortran (KMCCARTY)
+ Dec 2005: If f2cFortran is defined, enforce REAL functions in FORTRAN
+ returning "double" in C. This was one of the items on
+ Burkhard's TODO list. (KMCCARTY)
+ Dec 2005: Modifications to support 8-byte integers. (MR)
+ USE AT YOUR OWN RISK!
+ Feb 2006 Added logic to typedef the symbol 'LONGLONG' to an appropriate
+ intrinsic 8-byte integer datatype (WDP)
+ Apr 2006: Modifications to support gfortran (and g77 with -fno-f2c flag)
+ since by default it returns "float" for FORTRAN REAL function.
+ (KMCCARTY)
+ May 2008: Revert commenting out of "extern" in COMMON_BLOCK_DEF macro.
+ Add braces around do-nothing ";" in 3 empty while blocks to
+ get rid of compiler warnings. Thanks to ROOT developers
+ Jacek Holeczek and Rene Brun for these suggestions. (KMCCARTY)
+ Aug 2008: If __GNUC__ is defined and no FORTRAN compiler is specified
+ via a #define or -D, default to gfortran behavior rather than
+ g77 behavior. (KMCCARTY)
+ Oct 2009: Add warning if guessing default fortran. Move g77 above guessing bloc
+ *******/
+
+/*
+ Avoid symbols already used by compilers and system *.h:
+ __ - OSF1 zukal06 V3.0 347 alpha, cc -c -std1 cfortest.c
+
+*/
+
+/*
+ Determine what 8-byte integer data type is available.
+ 'long long' is now supported by most compilers, but older
+ MS Visual C++ compilers before V7.0 use '__int64' instead. (WDP)
+*/
+
+#ifndef LONGLONG_TYPE /* this may have been previously defined */
+#if defined(_MSC_VER) /* Microsoft Visual C++ */
+
+#if (_MSC_VER < 1300) /* versions earlier than V7.0 do not have 'long long' */
+ typedef __int64 LONGLONG;
+#else /* newer versions do support 'long long' */
+ typedef long long LONGLONG;
+#endif
+
+#else
+ typedef long long LONGLONG;
+#endif
+
+#define LONGLONG_TYPE
+#endif
+
+
+/* First prepare for the C compiler. */
+
+#ifndef ANSI_C_preprocessor /* i.e. user can override. */
+#ifdef __CF__KnR
+#define ANSI_C_preprocessor 0
+#else
+#ifdef __STDC__
+#define ANSI_C_preprocessor 1
+#else
+#define _cfleft 1
+#define _cfright
+#define _cfleft_cfright 0
+#define ANSI_C_preprocessor _cfleft/**/_cfright
+#endif
+#endif
+#endif
+
+#if ANSI_C_preprocessor
+#define _0(A,B) A##B
+#define _(A,B) _0(A,B) /* see cat,xcat of K&R ANSI C p. 231 */
+#define _2(A,B) A##B /* K&R ANSI C p.230: .. identifier is not replaced */
+#define _3(A,B,C) _(A,_(B,C))
+#else /* if it turns up again during rescanning. */
+#define _(A,B) A/**/B
+#define _2(A,B) A/**/B
+#define _3(A,B,C) A/**/B/**/C
+#endif
+
+#if (defined(vax)&&defined(unix)) || (defined(__vax__)&&defined(__unix__))
+#define VAXUltrix
+#endif
+
+#include <stdio.h> /* NULL [in all machines stdio.h] */
+#include <string.h> /* strlen, memset, memcpy, memchr. */
+#if !( defined(VAXUltrix) || defined(sun) || (defined(apollo)&&!defined(__STDCPP__)) )
+#include <stdlib.h> /* malloc,free */
+#else
+#include <malloc.h> /* Had to be removed for DomainOS h105 10.4 sys5.3 425t*/
+#ifdef apollo
+#define __CF__APOLLO67 /* __STDCPP__ is in Apollo 6.8 (i.e. ANSI) and onwards */
+#endif
+#endif
+
+#if !defined(__GNUC__) && !defined(__sun) && (defined(sun)||defined(VAXUltrix)||defined(lynx))
+#define __CF__KnR /* Sun, LynxOS and VAX Ultrix cc only supports K&R. */
+ /* Manually define __CF__KnR for HP if desired/required.*/
+#endif /* i.e. We will generate Kernighan and Ritchie C. */
+/* Note that you may define __CF__KnR before #include cfortran.h, in order to
+generate K&R C instead of the default ANSI C. The differences are mainly in the
+function prototypes and declarations. All machines, except the Apollo, work
+with either style. The Apollo's argument promotion rules require ANSI or use of
+the obsolete std_$call which we have not implemented here. Hence on the Apollo,
+only C calling FORTRAN subroutines will work using K&R style.*/
+
+
+/* Remainder of cfortran.h depends on the Fortran compiler. */
+
+/* 11/29/2003 (KMCCARTY): add *INTEL_COMPILER symbols here */
+/* 04/05/2006 (KMCCARTY): add gFortran symbol here */
+#if defined(CLIPPERFortran) || defined(pgiFortran) || defined(__INTEL_COMPILER) || defined(INTEL_COMPILER) || defined(gFortran)
+#define f2cFortran
+#endif
+
+#if defined(g77Fortran) /* 11/03/97 PDW (CFITSIO) */
+#define f2cFortran
+#endif
+
+/* VAX/VMS does not let us \-split long #if lines. */
+/* Split #if into 2 because some HP-UX can't handle long #if */
+#if !(defined(NAGf90Fortran)||defined(f2cFortran)||defined(hpuxFortran)||defined(apolloFortran)||defined(sunFortran)||defined(IBMR2Fortran)||defined(CRAYFortran))
+#if !(defined(mipsFortran)||defined(DECFortran)||defined(vmsFortran)||defined(CONVEXFortran)||defined(PowerStationFortran)||defined(AbsoftUNIXFortran)||defined(AbsoftProFortran)||defined(SXFortran))
+/* If no Fortran compiler is given, we choose one for the machines we know. */
+#if defined(__GNUC__) || defined(WIN32) /* 10/2009 BR: warm if guess */
+#warning "Please specify the fortran compiler using -D flags. Try to guess the compiler used"
+#endif
+#if defined(lynx) || defined(VAXUltrix)
+#define f2cFortran /* Lynx: Only support f2c at the moment.
+ VAXUltrix: f77 behaves like f2c.
+ Support f2c or f77 with gcc, vcc with f2c.
+ f77 with vcc works, missing link magic for f77 I/O.*/
+#endif
+/* 04/13/00 DM (CFITSIO): Add these lines for NT */
+/* with PowerStationFortran and and Visual C++ */
+#if defined(WIN32) && !defined(__CYGWIN__)
+#define PowerStationFortran
+#define VISUAL_CPLUSPLUS
+#endif
+#if defined(__CYGWIN__) /* 04/11/02 LEB (CFITSIO) */
+#define f2cFortran
+#define gFortran /* 8/26/08 (KMCCARTY) */
+#endif
+#if defined(__GNUC__) && defined(linux) /* 06/21/00 PDW (CFITSIO) */
+#define f2cFortran
+#define gFortran /* 8/26/08 (KMCCARTY) */
+#endif
+#if defined(macintosh) /* 11/1999 (CFITSIO) */
+#define f2cFortran
+#define gFortran /* 8/26/08 (KMCCARTY) */
+#endif
+#if defined(__APPLE__) /* 11/2002 (CFITSIO) */
+#define f2cFortran
+#define gFortran /* 8/26/08 (KMCCARTY) */
+#endif
+#if defined(__hpux) /* 921107: Use __hpux instead of __hp9000s300 */
+#define hpuxFortran /* Should also allow hp9000s7/800 use.*/
+#endif
+#if defined(apollo)
+#define apolloFortran /* __CF__APOLLO67 also defines some behavior. */
+#endif
+#if defined(sun) || defined(__sun)
+#define sunFortran
+#endif
+#if defined(_IBMR2)
+#define IBMR2Fortran
+#endif
+#if defined(_CRAY)
+#define CRAYFortran /* _CRAYT3E also defines some behavior. */
+#endif
+#if defined(_SX)
+#define SXFortran
+#endif
+#if defined(__NEC__)
+#define SXFortran
+#endif
+#if defined(mips) || defined(__mips)
+#define mipsFortran
+#endif
+#if defined(vms) || defined(__vms)
+#define vmsFortran
+#endif
+#if defined(__alpha) && defined(__unix__)
+#define DECFortran
+#endif
+#if defined(__convex__)
+#define CONVEXFortran
+#endif
+#if defined(VISUAL_CPLUSPLUS)
+#define PowerStationFortran
+#endif
+#endif /* ...Fortran */
+#endif /* ...Fortran */
+
+/* Split #if into 2 because some HP-UX can't handle long #if */
+#if !(defined(NAGf90Fortran)||defined(f2cFortran)||defined(hpuxFortran)||defined(apolloFortran)||defined(sunFortran)||defined(IBMR2Fortran)||defined(CRAYFortran))
+#if !(defined(mipsFortran)||defined(DECFortran)||defined(vmsFortran)||defined(CONVEXFortran)||defined(PowerStationFortran)||defined(AbsoftUNIXFortran)||defined(AbsoftProFortran)||defined(SXFortran))
+/* If your compiler barfs on ' #error', replace # with the trigraph for # */
+ #error "cfortran.h: Can't find your environment among:\
+ - GNU gcc (gfortran) on Linux. \
+ - MIPS cc and f77 2.0. (e.g. Silicon Graphics, DECstations, ...) \
+ - IBM AIX XL C and FORTRAN Compiler/6000 Version 01.01.0000.0000 \
+ - VAX VMS CC 3.1 and FORTRAN 5.4. \
+ - Alpha VMS DEC C 1.3 and DEC FORTRAN 6.0. \
+ - Alpha OSF DEC C and DEC Fortran for OSF/1 AXP Version 1.2 \
+ - Apollo DomainOS 10.2 (sys5.3) with f77 10.7 and cc 6.7. \
+ - CRAY \
+ - NEC SX-4 SUPER-UX \
+ - CONVEX \
+ - Sun \
+ - PowerStation Fortran with Visual C++ \
+ - HP9000s300/s700/s800 Latest test with: HP-UX A.08.07 A 9000/730 \
+ - LynxOS: cc or gcc with f2c. \
+ - VAXUltrix: vcc,cc or gcc with f2c. gcc or cc with f77. \
+ - f77 with vcc works; but missing link magic for f77 I/O. \
+ - NO fort. None of gcc, cc or vcc generate required names.\
+ - f2c/g77: Use #define f2cFortran, or cc -Df2cFortran \
+ - gfortran: Use #define gFortran, or cc -DgFortran \
+ (also necessary for g77 with -fno-f2c option) \
+ - NAG f90: Use #define NAGf90Fortran, or cc -DNAGf90Fortran \
+ - Absoft UNIX F77: Use #define AbsoftUNIXFortran or cc -DAbsoftUNIXFortran \
+ - Absoft Pro Fortran: Use #define AbsoftProFortran \
+ - Portland Group Fortran: Use #define pgiFortran \
+ - Intel Fortran: Use #define INTEL_COMPILER"
+/* Compiler must throw us out at this point! */
+#endif
+#endif
+
+
+#if defined(VAXC) && !defined(__VAXC)
+#define OLD_VAXC
+#pragma nostandard /* Prevent %CC-I-PARAMNOTUSED. */
+#endif
+
+/* Throughout cfortran.h we use: UN = Uppercase Name. LN = Lowercase Name. */
+
+/* "extname" changed to "appendus" below (CFITSIO) */
+#if defined(f2cFortran) || defined(NAGf90Fortran) || defined(DECFortran) || defined(mipsFortran) || defined(apolloFortran) || defined(sunFortran) || defined(CONVEXFortran) || defined(SXFortran) || defined(appendus)
+#define CFC_(UN,LN) _(LN,_) /* Lowercase FORTRAN symbols. */
+#define orig_fcallsc(UN,LN) CFC_(UN,LN)
+#else
+#if defined(CRAYFortran) || defined(PowerStationFortran) || defined(AbsoftProFortran)
+#ifdef _CRAY /* (UN), not UN, circumvents CRAY preprocessor bug. */
+#define CFC_(UN,LN) (UN) /* Uppercase FORTRAN symbols. */
+#else /* At least VISUAL_CPLUSPLUS barfs on (UN), so need UN. */
+#define CFC_(UN,LN) UN /* Uppercase FORTRAN symbols. */
+#endif
+#define orig_fcallsc(UN,LN) CFC_(UN,LN) /* CRAY insists on arg.'s here. */
+#else /* For following machines one may wish to change the fcallsc default. */
+#define CF_SAME_NAMESPACE
+#ifdef vmsFortran
+#define CFC_(UN,LN) LN /* Either case FORTRAN symbols. */
+ /* BUT we usually use UN for C macro to FORTRAN routines, so use LN here,*/
+ /* because VAX/VMS doesn't do recursive macros. */
+#define orig_fcallsc(UN,LN) UN
+#else /* HP-UX without +ppu or IBMR2 without -qextname. NOT reccomended. */
+#define CFC_(UN,LN) LN /* Lowercase FORTRAN symbols. */
+#define orig_fcallsc(UN,LN) CFC_(UN,LN)
+#endif /* vmsFortran */
+#endif /* CRAYFortran PowerStationFortran */
+#endif /* ....Fortran */
+
+#define fcallsc(UN,LN) orig_fcallsc(UN,LN)
+#define preface_fcallsc(P,p,UN,LN) CFC_(_(P,UN),_(p,LN))
+#define append_fcallsc(P,p,UN,LN) CFC_(_(UN,P),_(LN,p))
+
+#define C_FUNCTION(UN,LN) fcallsc(UN,LN)
+#define FORTRAN_FUNCTION(UN,LN) CFC_(UN,LN)
+
+#ifndef COMMON_BLOCK
+#ifndef CONVEXFortran
+#ifndef CLIPPERFortran
+#if !(defined(AbsoftUNIXFortran)||defined(AbsoftProFortran))
+#define COMMON_BLOCK(UN,LN) CFC_(UN,LN)
+#else
+#define COMMON_BLOCK(UN,LN) _(_C,LN)
+#endif /* AbsoftUNIXFortran or AbsoftProFortran */
+#else
+#define COMMON_BLOCK(UN,LN) _(LN,__)
+#endif /* CLIPPERFortran */
+#else
+#define COMMON_BLOCK(UN,LN) _3(_,LN,_)
+#endif /* CONVEXFortran */
+#endif /* COMMON_BLOCK */
+
+#ifndef DOUBLE_PRECISION
+#if defined(CRAYFortran) && !defined(_CRAYT3E)
+#define DOUBLE_PRECISION long double
+#else
+#define DOUBLE_PRECISION double
+#endif
+#endif
+
+#ifndef FORTRAN_REAL
+#if defined(CRAYFortran) && defined(_CRAYT3E)
+#define FORTRAN_REAL double
+#else
+#define FORTRAN_REAL float
+#endif
+#endif
+
+#ifdef CRAYFortran
+#ifdef _CRAY
+#include <fortran.h>
+#else
+#include "fortran.h" /* i.e. if crosscompiling assume user has file. */
+#endif
+#define FLOATVVVVVVV_cfPP (FORTRAN_REAL *) /* Used for C calls FORTRAN. */
+/* CRAY's double==float but CRAY says pointers to doubles and floats are diff.*/
+#define VOIDP (void *) /* When FORTRAN calls C, we don't know if C routine
+ arg.'s have been declared float *, or double *. */
+#else
+#define FLOATVVVVVVV_cfPP
+#define VOIDP
+#endif
+
+#ifdef vmsFortran
+#if defined(vms) || defined(__vms)
+#include <descrip.h>
+#else
+#include "descrip.h" /* i.e. if crosscompiling assume user has file. */
+#endif
+#endif
+
+#ifdef sunFortran
+#if defined(sun) || defined(__sun)
+#include <math.h> /* Sun's FLOATFUNCTIONTYPE, ASSIGNFLOAT, RETURNFLOAT. */
+#else
+#include "math.h" /* i.e. if crosscompiling assume user has file. */
+#endif
+/* At least starting with the default C compiler SC3.0.1 of SunOS 5.3,
+ * FLOATFUNCTIONTYPE, ASSIGNFLOAT, RETURNFLOAT are not required and not in
+ * <math.h>, since sun C no longer promotes C float return values to doubles.
+ * Therefore, only use them if defined.
+ * Even if gcc is being used, assume that it exhibits the Sun C compiler
+ * behavior in order to be able to use *.o from the Sun C compiler.
+ * i.e. If FLOATFUNCTIONTYPE, etc. are in math.h, they required by gcc.
+ */
+#endif
+
+#ifndef apolloFortran
+#define COMMON_BLOCK_DEF(DEFINITION, NAME) extern DEFINITION NAME
+#define CF_NULL_PROTO
+#else /* HP doesn't understand #elif. */
+/* Without ANSI prototyping, Apollo promotes float functions to double. */
+/* Note that VAX/VMS, IBM, Mips choke on 'type function(...);' prototypes. */
+#define CF_NULL_PROTO ...
+#ifndef __CF__APOLLO67
+#define COMMON_BLOCK_DEF(DEFINITION, NAME) \
+ DEFINITION NAME __attribute((__section(NAME)))
+#else
+#define COMMON_BLOCK_DEF(DEFINITION, NAME) \
+ DEFINITION NAME #attribute[section(NAME)]
+#endif
+#endif
+
+#ifdef __cplusplus
+#undef CF_NULL_PROTO
+#define CF_NULL_PROTO ...
+#endif
+
+
+#ifndef USE_NEW_DELETE
+#ifdef __cplusplus
+#define USE_NEW_DELETE 1
+#else
+#define USE_NEW_DELETE 0
+#endif
+#endif
+#if USE_NEW_DELETE
+#define _cf_malloc(N) new char[N]
+#define _cf_free(P) delete[] P
+#else
+#define _cf_malloc(N) (char *)malloc(N)
+#define _cf_free(P) free(P)
+#endif
+
+#ifdef mipsFortran
+#define CF_DECLARE_GETARG int f77argc; char **f77argv
+#define CF_SET_GETARG(ARGC,ARGV) f77argc = ARGC; f77argv = ARGV
+#else
+#define CF_DECLARE_GETARG
+#define CF_SET_GETARG(ARGC,ARGV)
+#endif
+
+#ifdef OLD_VAXC /* Allow %CC-I-PARAMNOTUSED. */
+#pragma standard
+#endif
+
+#define AcfCOMMA ,
+#define AcfCOLON ;
+
+/*-------------------------------------------------------------------------*/
+
+/* UTILITIES USED WITHIN CFORTRAN.H */
+
+#define _cfMIN(A,B) (A<B?A:B)
+
+/* 970211 - XIX.145:
+ firstindexlength - better name is all_but_last_index_lengths
+ secondindexlength - better name is last_index_length
+ */
+#define firstindexlength(A) (sizeof(A[0])==1 ? 1 : (sizeof(A) / sizeof(A[0])) )
+#define secondindexlength(A) (sizeof(A[0])==1 ? sizeof(A) : sizeof(A[0]) )
+
+/* Behavior of FORTRAN LOGICAL. All machines' LOGICAL is same size as C's int.
+Conversion is automatic except for arrays which require F2CLOGICALV/C2FLOGICALV.
+f2c, MIPS f77 [DECstation, SGI], VAX Ultrix f77,
+HP-UX f77 : as in C.
+VAX/VMS FORTRAN, VAX Ultrix fort,
+Absoft Unix Fortran, IBM RS/6000 xlf : LS Bit = 0/1 = TRUE/FALSE.
+Apollo : neg. = TRUE, else FALSE.
+[Apollo accepts -1 as TRUE for function values, but NOT all other neg. values.]
+[DECFortran for Ultrix RISC is also called f77 but is the same as VAX/VMS.]
+[MIPS f77 treats .eqv./.neqv. as .eq./.ne. and hence requires LOGICAL_STRICT.]*/
+
+#if defined(NAGf90Fortran) || defined(f2cFortran) || defined(mipsFortran) || defined(PowerStationFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran) || defined(AbsoftProFortran) || defined(SXFortran)
+/* SX/PowerStationFortran have 0 and 1 defined, others are neither T nor F. */
+/* hpuxFortran800 has 0 and 0x01000000 defined. Others are unknown. */
+#define LOGICAL_STRICT /* Other Fortran have .eqv./.neqv. == .eq./.ne. */
+#endif
+
+#define C2FLOGICALV(A,I) \
+ do {int __i; for(__i=0;__i<I;__i++) A[__i]=C2FLOGICAL(A[__i]); } while (0)
+#define F2CLOGICALV(A,I) \
+ do {int __i; for(__i=0;__i<I;__i++) A[__i]=F2CLOGICAL(A[__i]); } while (0)
+
+#if defined(apolloFortran)
+#define C2FLOGICAL(L) ((L)?-1:(L)&~((unsigned)1<<sizeof(int)*8-1))
+#define F2CLOGICAL(L) ((L)<0?(L):0)
+#else
+#if defined(CRAYFortran)
+#define C2FLOGICAL(L) _btol(L)
+#define F2CLOGICAL(L) _ltob(&(L)) /* Strangely _ltob() expects a pointer. */
+#else
+#if defined(IBMR2Fortran) || defined(vmsFortran) || defined(DECFortran) || defined(AbsoftUNIXFortran)
+/* How come no AbsoftProFortran ? */
+#define C2FLOGICAL(L) ((L)?(L)|1:(L)&~(int)1)
+#define F2CLOGICAL(L) ((L)&1?(L):0)
+#else
+#if defined(CONVEXFortran)
+#define C2FLOGICAL(L) ((L) ? ~0 : 0 )
+#define F2CLOGICAL(L) (L)
+#else /* others evaluate LOGICALs as for C. */
+#define C2FLOGICAL(L) (L)
+#define F2CLOGICAL(L) (L)
+#ifndef LOGICAL_STRICT
+#undef C2FLOGICALV
+#undef F2CLOGICALV
+#define C2FLOGICALV(A,I)
+#define F2CLOGICALV(A,I)
+#endif /* LOGICAL_STRICT */
+#endif /* CONVEXFortran || All Others */
+#endif /* IBMR2Fortran vmsFortran DECFortran AbsoftUNIXFortran */
+#endif /* CRAYFortran */
+#endif /* apolloFortran */
+
+/* 970514 - In addition to CRAY, there may be other machines
+ for which LOGICAL_STRICT makes no sense. */
+#if defined(LOGICAL_STRICT) && !defined(CRAYFortran)
+/* Force C2FLOGICAL to generate only the values for either .TRUE. or .FALSE.
+ SX/PowerStationFortran only have 0 and 1 defined.
+ Elsewhere, only needed if you want to do:
+ logical lvariable
+ if (lvariable .eq. .true.) then ! (1)
+ instead of
+ if (lvariable .eqv. .true.) then ! (2)
+ - (1) may not even be FORTRAN/77 and that Apollo's f77 and IBM's xlf
+ refuse to compile (1), so you are probably well advised to stay away from
+ (1) and from LOGICAL_STRICT.
+ - You pay a (slight) performance penalty for using LOGICAL_STRICT. */
+#undef C2FLOGICAL
+#ifdef hpuxFortran800
+#define C2FLOGICAL(L) ((L)?0x01000000:0)
+#else
+#if defined(apolloFortran) || defined(vmsFortran) || defined(DECFortran)
+#define C2FLOGICAL(L) ((L)?-1:0) /* These machines use -1/0 for .true./.false.*/
+#else
+#define C2FLOGICAL(L) ((L)? 1:0) /* All others use +1/0 for .true./.false.*/
+#endif
+#endif
+#endif /* LOGICAL_STRICT */
+
+/* Convert a vector of C strings into FORTRAN strings. */
+#ifndef __CF__KnR
+static char *c2fstrv(char* cstr, char *fstr, int elem_len, int sizeofcstr)
+#else
+static char *c2fstrv( cstr, fstr, elem_len, sizeofcstr)
+ char* cstr; char *fstr; int elem_len; int sizeofcstr;
+#endif
+{ int i,j;
+/* elem_len includes \0 for C strings. Fortran strings don't have term. \0.
+ Useful size of string must be the same in both languages. */
+for (i=0; i<sizeofcstr/elem_len; i++) {
+ for (j=1; j<elem_len && *cstr; j++) *fstr++ = *cstr++;
+ cstr += 1+elem_len-j;
+ for (; j<elem_len; j++) *fstr++ = ' ';
+} /* 95109 - Seems to be returning the original fstr. */
+return fstr-sizeofcstr+sizeofcstr/elem_len; }
+
+/* Convert a vector of FORTRAN strings into C strings. */
+#ifndef __CF__KnR
+static char *f2cstrv(char *fstr, char* cstr, int elem_len, int sizeofcstr)
+#else
+static char *f2cstrv( fstr, cstr, elem_len, sizeofcstr)
+ char *fstr; char* cstr; int elem_len; int sizeofcstr;
+#endif
+{ int i,j;
+/* elem_len includes \0 for C strings. Fortran strings don't have term. \0.
+ Useful size of string must be the same in both languages. */
+cstr += sizeofcstr;
+fstr += sizeofcstr - sizeofcstr/elem_len;
+for (i=0; i<sizeofcstr/elem_len; i++) {
+ *--cstr = '\0';
+ for (j=1; j<elem_len; j++) *--cstr = *--fstr;
+} return cstr; }
+
+/* kill the trailing char t's in string s. */
+#ifndef __CF__KnR
+static char *kill_trailing(char *s, char t)
+#else
+static char *kill_trailing( s, t) char *s; char t;
+#endif
+{char *e;
+e = s + strlen(s);
+if (e>s) { /* Need this to handle NULL string.*/
+ while (e>s && *--e==t) {;} /* Don't follow t's past beginning. */
+ e[*e==t?0:1] = '\0'; /* Handle s[0]=t correctly. */
+} return s; }
+
+#ifndef __CF__KnR
+static int num_elem(const char *strv, unsigned elem_len, int term_char, int num_term);
+#endif
+/* kill_trailingn(s,t,e) will kill the trailing t's in string s. e normally
+points to the terminating '\0' of s, but may actually point to anywhere in s.
+s's new '\0' will be placed at e or earlier in order to remove any trailing t's.
+If e<s string s is left unchanged. */
+#ifndef __CF__KnR
+static char *kill_trailingn(char *s, char t, char *e)
+#else
+static char *kill_trailingn( s, t, e) char *s; char t; char *e;
+#endif
+{
+if (e==s) *e = '\0'; /* Kill the string makes sense here.*/
+else if (e>s) { /* Watch out for neg. length string.*/
+ while (e>s && *--e==t){;} /* Don't follow t's past beginning. */
+ e[*e==t?0:1] = '\0'; /* Handle s[0]=t correctly. */
+}
+(void)num_elem; /* to prevent not used warnings in gcc (added by TJ) */
+
+ return s; }
+
+/* Note the following assumes that any element which has t's to be chopped off,
+does indeed fill the entire element. */
+#ifndef __CF__KnR
+static char *vkill_trailing(char* cstr, int elem_len, int sizeofcstr, char t)
+#else
+static char *vkill_trailing( cstr, elem_len, sizeofcstr, t)
+ char* cstr; int elem_len; int sizeofcstr; char t;
+#endif
+{ int i;
+for (i=0; i<sizeofcstr/elem_len; i++) /* elem_len includes \0 for C strings. */
+ kill_trailingn(cstr+elem_len*i,t,cstr+elem_len*(i+1)-1);
+return cstr; }
+
+#ifdef vmsFortran
+typedef struct dsc$descriptor_s fstring;
+#define DSC$DESCRIPTOR_A(DIMCT) \
+struct { \
+ unsigned short dsc$w_length; unsigned char dsc$b_dtype; \
+ unsigned char dsc$b_class; char *dsc$a_pointer; \
+ char dsc$b_scale; unsigned char dsc$b_digits; \
+ struct { \
+ unsigned : 3; unsigned dsc$v_fl_binscale : 1; \
+ unsigned dsc$v_fl_redim : 1; unsigned dsc$v_fl_column : 1; \
+ unsigned dsc$v_fl_coeff : 1; unsigned dsc$v_fl_bounds : 1; \
+ } dsc$b_aflags; \
+ unsigned char dsc$b_dimct; unsigned long dsc$l_arsize; \
+ char *dsc$a_a0; long dsc$l_m [DIMCT]; \
+ struct { \
+ long dsc$l_l; long dsc$l_u; \
+ } dsc$bounds [DIMCT]; \
+}
+typedef DSC$DESCRIPTOR_A(1) fstringvector;
+/*typedef DSC$DESCRIPTOR_A(2) fstringarrarr;
+ typedef DSC$DESCRIPTOR_A(3) fstringarrarrarr;*/
+#define initfstr(F,C,ELEMNO,ELEMLEN) \
+( (F).dsc$l_arsize= ( (F).dsc$w_length =(ELEMLEN) ) \
+ *( (F).dsc$l_m[0]=(F).dsc$bounds[0].dsc$l_u=(ELEMNO) ), \
+ (F).dsc$a_a0 = ( (F).dsc$a_pointer=(C) ) - (F).dsc$w_length ,(F))
+
+#endif /* PDW: 2/10/98 (CFITSIO) -- Let VMS see NUM_ELEMS definitions */
+#define _NUM_ELEMS -1
+#define _NUM_ELEM_ARG -2
+#define NUM_ELEMS(A) A,_NUM_ELEMS
+#define NUM_ELEM_ARG(B) *_2(A,B),_NUM_ELEM_ARG
+#define TERM_CHARS(A,B) A,B
+#ifndef __CF__KnR
+static int num_elem(const char *strv, unsigned elem_len, int term_char, int num_term)
+#else
+static int num_elem( strv, elem_len, term_char, num_term)
+ char *strv; unsigned elem_len; int term_char; int num_term;
+#endif
+/* elem_len is the number of characters in each element of strv, the FORTRAN
+vector of strings. The last element of the vector must begin with at least
+num_term term_char characters, so that this routine can determine how
+many elements are in the vector. */
+{
+unsigned num,i;
+if (num_term == _NUM_ELEMS || num_term == _NUM_ELEM_ARG)
+ return term_char;
+if (num_term <=0) num_term = (int)elem_len;
+for (num=0; ; num++) {
+ for (i=0; i<(unsigned)num_term && *strv==term_char; i++,strv++){;}
+ if (i==(unsigned)num_term) break;
+ else strv += elem_len-i;
+}
+/* to prevent not used warnings in gcc (added by ROOT, changed by TJ
+ * because of unreachable warnings from clang) */
+(void)c2fstrv; (void)f2cstrv; (void)kill_trailing;
+(void)vkill_trailing; (void)num_elem;
+return (int)num;
+}
+/* #endif removed 2/10/98 (CFITSIO) */
+
+/*-------------------------------------------------------------------------*/
+
+/* UTILITIES FOR C TO USE STRINGS IN FORTRAN COMMON BLOCKS */
+
+/* C string TO Fortran Common Block STRing. */
+/* DIM is the number of DIMensions of the array in terms of strings, not
+ characters. e.g. char a[12] has DIM = 0, char a[12][4] has DIM = 1, etc. */
+#define C2FCBSTR(CSTR,FSTR,DIM) \
+ c2fstrv((char *)CSTR, (char *)FSTR, sizeof(FSTR)/cfelementsof(FSTR,DIM)+1, \
+ sizeof(FSTR)+cfelementsof(FSTR,DIM))
+
+/* Fortran Common Block string TO C STRing. */
+#define FCB2CSTR(FSTR,CSTR,DIM) \
+ vkill_trailing(f2cstrv((char *)FSTR, (char *)CSTR, \
+ sizeof(FSTR)/cfelementsof(FSTR,DIM)+1, \
+ sizeof(FSTR)+cfelementsof(FSTR,DIM)), \
+ sizeof(FSTR)/cfelementsof(FSTR,DIM)+1, \
+ sizeof(FSTR)+cfelementsof(FSTR,DIM), ' ')
+
+#define cfDEREFERENCE0
+#define cfDEREFERENCE1 *
+#define cfDEREFERENCE2 **
+#define cfDEREFERENCE3 ***
+#define cfDEREFERENCE4 ****
+#define cfDEREFERENCE5 *****
+#define cfelementsof(A,D) (sizeof(A)/sizeof(_(cfDEREFERENCE,D)(A)))
+
+/*-------------------------------------------------------------------------*/
+
+/* UTILITIES FOR C TO CALL FORTRAN SUBROUTINES */
+
+/* Define lookup tables for how to handle the various types of variables. */
+
+#ifdef OLD_VAXC /* Prevent %CC-I-PARAMNOTUSED. */
+#pragma nostandard
+#endif
+
+#define ZTRINGV_NUM(I) I
+#define ZTRINGV_ARGFP(I) (*(_2(A,I))) /* Undocumented. For PINT, etc. */
+#define ZTRINGV_ARGF(I) _2(A,I)
+#ifdef CFSUBASFUN
+#define ZTRINGV_ARGS(I) ZTRINGV_ARGF(I)
+#else
+#define ZTRINGV_ARGS(I) _2(B,I)
+#endif
+
+#define PBYTE_cfVP(A,B) PINT_cfVP(A,B)
+#define PDOUBLE_cfVP(A,B)
+#define PFLOAT_cfVP(A,B)
+#ifdef ZTRINGV_ARGS_allows_Pvariables
+/* This allows Pvariables for ARGS. ARGF machinery is above ARGFP.
+ * B is not needed because the variable may be changed by the Fortran routine,
+ * but because B is the only way to access an arbitrary macro argument. */
+#define PINT_cfVP(A,B) int B = (int)A; /* For ZSTRINGV_ARGS */
+#else
+#define PINT_cfVP(A,B)
+#endif
+#define PLOGICAL_cfVP(A,B) int *B; /* Returning LOGICAL in FUNn and SUBn */
+#define PLONG_cfVP(A,B) PINT_cfVP(A,B)
+#define PSHORT_cfVP(A,B) PINT_cfVP(A,B)
+
+#define VCF_INT_S(T,A,B) _(T,VVVVVVV_cfTYPE) B = A;
+#define VCF_INT_F(T,A,B) _(T,_cfVCF)(A,B)
+/* _cfVCF table is directly mapped to _cfCCC table. */
+#define BYTE_cfVCF(A,B)
+#define DOUBLE_cfVCF(A,B)
+#if !defined(__CF__KnR)
+#define FLOAT_cfVCF(A,B)
+#else
+#define FLOAT_cfVCF(A,B) FORTRAN_REAL B = A;
+#endif
+#define INT_cfVCF(A,B)
+#define LOGICAL_cfVCF(A,B)
+#define LONG_cfVCF(A,B)
+#define SHORT_cfVCF(A,B)
+
+/* 980416
+ Cast (void (*)(CF_NULL_PROTO)) causes SunOS CC 4.2 occasionally to barf,
+ while the following equivalent typedef is fine.
+ For consistency use the typedef on all machines.
+ */
+typedef void (*cfCAST_FUNCTION)(CF_NULL_PROTO);
+
+#define VCF(TN,I) _Icf4(4,V,TN,_(A,I),_(B,I),F)
+#define VVCF(TN,AI,BI) _Icf4(4,V,TN,AI,BI,S)
+#define INT_cfV(T,A,B,F) _(VCF_INT_,F)(T,A,B)
+#define INTV_cfV(T,A,B,F)
+#define INTVV_cfV(T,A,B,F)
+#define INTVVV_cfV(T,A,B,F)
+#define INTVVVV_cfV(T,A,B,F)
+#define INTVVVVV_cfV(T,A,B,F)
+#define INTVVVVVV_cfV(T,A,B,F)
+#define INTVVVVVVV_cfV(T,A,B,F)
+#define PINT_cfV( T,A,B,F) _(T,_cfVP)(A,B)
+#define PVOID_cfV( T,A,B,F)
+#if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
+#define ROUTINE_cfV(T,A,B,F) void (*B)(CF_NULL_PROTO) = (cfCAST_FUNCTION)A;
+#else
+#define ROUTINE_cfV(T,A,B,F)
+#endif
+#define SIMPLE_cfV(T,A,B,F)
+#ifdef vmsFortran
+#define STRING_cfV(T,A,B,F) static struct {fstring f; unsigned clen;} B = \
+ {{0,DSC$K_DTYPE_T,DSC$K_CLASS_S,NULL},0};
+#define PSTRING_cfV(T,A,B,F) static fstring B={0,DSC$K_DTYPE_T,DSC$K_CLASS_S,NULL};
+#define STRINGV_cfV(T,A,B,F) static fstringvector B = \
+ {sizeof(A),DSC$K_DTYPE_T,DSC$K_CLASS_A,NULL,0,0,{0,0,1,1,1},1,0,NULL,0,{1,0}};
+#define PSTRINGV_cfV(T,A,B,F) static fstringvector B = \
+ {0,DSC$K_DTYPE_T,DSC$K_CLASS_A,NULL,0,0,{0,0,1,1,1},1,0,NULL,0,{1,0}};
+#else
+#define STRING_cfV(T,A,B,F) struct {unsigned int clen, flen; char *nombre;} B;
+#define STRINGV_cfV(T,A,B,F) struct {char *s, *fs; unsigned flen; char *nombre;} B;
+#define PSTRING_cfV(T,A,B,F) int B;
+#define PSTRINGV_cfV(T,A,B,F) struct{char *fs; unsigned int sizeofA,flen;}B;
+#endif
+#define ZTRINGV_cfV(T,A,B,F) STRINGV_cfV(T,A,B,F)
+#define PZTRINGV_cfV(T,A,B,F) PSTRINGV_cfV(T,A,B,F)
+
+/* Note that the actions of the A table were performed inside the AA table.
+ VAX Ultrix vcc, and HP-UX cc, didn't evaluate arguments to functions left to
+ right, so we had to split the original table into the current robust two. */
+#define ACF(NAME,TN,AI,I) _(TN,_cfSTR)(4,A,NAME,I,AI,_(B,I),0)
+#define DEFAULT_cfA(M,I,A,B)
+#define LOGICAL_cfA(M,I,A,B) B=C2FLOGICAL(B);
+#define PLOGICAL_cfA(M,I,A,B) A=C2FLOGICAL(A);
+#define STRING_cfA(M,I,A,B) STRING_cfC(M,I,A,B,sizeof(A))
+#define PSTRING_cfA(M,I,A,B) PSTRING_cfC(M,I,A,B,sizeof(A))
+#ifdef vmsFortran
+#define AATRINGV_cfA( A,B, sA,filA,silA) \
+ initfstr(B,_cf_malloc((sA)-(filA)),(filA),(silA)-1), \
+ c2fstrv(A,B.dsc$a_pointer,(silA),(sA));
+#define APATRINGV_cfA( A,B, sA,filA,silA) \
+ initfstr(B,A,(filA),(silA)-1),c2fstrv(A,A,(silA),(sA));
+#else
+#define AATRINGV_cfA( A,B, sA,filA,silA) \
+ (B.s=_cf_malloc((sA)-(filA)),B.fs=c2fstrv(A,B.s,(B.flen=(silA)-1)+1,(sA)));
+#define APATRINGV_cfA( A,B, sA,filA,silA) \
+ B.fs=c2fstrv(A,A,(B.flen=(silA)-1)+1,B.sizeofA=(sA));
+#endif
+#define STRINGV_cfA(M,I,A,B) \
+ AATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))
+#define PSTRINGV_cfA(M,I,A,B) \
+ APATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))
+#define ZTRINGV_cfA(M,I,A,B) AATRINGV_cfA( (char *)A,B, \
+ (_3(M,_ELEMS_,I))*(( _3(M,_ELEMLEN_,I))+1), \
+ (_3(M,_ELEMS_,I)),(_3(M,_ELEMLEN_,I))+1)
+#define PZTRINGV_cfA(M,I,A,B) APATRINGV_cfA( (char *)A,B, \
+ (_3(M,_ELEMS_,I))*(( _3(M,_ELEMLEN_,I))+1), \
+ (_3(M,_ELEMS_,I)),(_3(M,_ELEMLEN_,I))+1)
+
+#define PBYTE_cfAAP(A,B) &A
+#define PDOUBLE_cfAAP(A,B) &A
+#define PFLOAT_cfAAP(A,B) FLOATVVVVVVV_cfPP &A
+#define PINT_cfAAP(A,B) &A
+#define PLOGICAL_cfAAP(A,B) B= &A /* B used to keep a common W table. */
+#define PLONG_cfAAP(A,B) &A
+#define PSHORT_cfAAP(A,B) &A
+
+#define AACF(TN,AI,I,C) _SEP_(TN,C,cfCOMMA) _Icf(3,AA,TN,AI,_(B,I))
+#define INT_cfAA(T,A,B) &B
+#define INTV_cfAA(T,A,B) _(T,VVVVVV_cfPP) A
+#define INTVV_cfAA(T,A,B) _(T,VVVVV_cfPP) A[0]
+#define INTVVV_cfAA(T,A,B) _(T,VVVV_cfPP) A[0][0]
+#define INTVVVV_cfAA(T,A,B) _(T,VVV_cfPP) A[0][0][0]
+#define INTVVVVV_cfAA(T,A,B) _(T,VV_cfPP) A[0][0][0][0]
+#define INTVVVVVV_cfAA(T,A,B) _(T,V_cfPP) A[0][0][0][0][0]
+#define INTVVVVVVV_cfAA(T,A,B) _(T,_cfPP) A[0][0][0][0][0][0]
+#define PINT_cfAA(T,A,B) _(T,_cfAAP)(A,B)
+#define PVOID_cfAA(T,A,B) (void *) A
+#if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran)
+#define ROUTINE_cfAA(T,A,B) &B
+#else
+#define ROUTINE_cfAA(T,A,B) (cfCAST_FUNCTION)A
+#endif
+#define STRING_cfAA(T,A,B) STRING_cfCC(T,A,B)
+#define PSTRING_cfAA(T,A,B) PSTRING_cfCC(T,A,B)
+#ifdef vmsFortran
+#define STRINGV_cfAA(T,A,B) &B
+#else
+#ifdef CRAYFortran
+#define STRINGV_cfAA(T,A,B) _cptofcd(B.fs,B.flen)
+#else
+#define STRINGV_cfAA(T,A,B) B.fs
+#endif
+#endif
+#define PSTRINGV_cfAA(T,A,B) STRINGV_cfAA(T,A,B)
+#define ZTRINGV_cfAA(T,A,B) STRINGV_cfAA(T,A,B)
+#define PZTRINGV_cfAA(T,A,B) STRINGV_cfAA(T,A,B)
+
+#if defined(vmsFortran) || defined(CRAYFortran)
+#define JCF(TN,I)
+#define KCF(TN,I)
+#else
+#define JCF(TN,I) _(TN,_cfSTR)(1,J,_(B,I), 0,0,0,0)
+#if defined(AbsoftUNIXFortran)
+#define DEFAULT_cfJ(B) ,0
+#else
+#define DEFAULT_cfJ(B)
+#endif
+#define LOGICAL_cfJ(B) DEFAULT_cfJ(B)
+#define PLOGICAL_cfJ(B) DEFAULT_cfJ(B)
+#define STRING_cfJ(B) ,B.flen
+#define PSTRING_cfJ(B) ,B
+#define STRINGV_cfJ(B) STRING_cfJ(B)
+#define PSTRINGV_cfJ(B) STRING_cfJ(B)
+#define ZTRINGV_cfJ(B) STRING_cfJ(B)
+#define PZTRINGV_cfJ(B) STRING_cfJ(B)
+
+/* KCF is identical to DCF, except that KCF ZTRING is not empty. */
+#define KCF(TN,I) _(TN,_cfSTR)(1,KK,_(B,I), 0,0,0,0)
+#if defined(AbsoftUNIXFortran)
+#define DEFAULT_cfKK(B) , unsigned B
+#else
+#define DEFAULT_cfKK(B)
+#endif
+#define LOGICAL_cfKK(B) DEFAULT_cfKK(B)
+#define PLOGICAL_cfKK(B) DEFAULT_cfKK(B)
+#define STRING_cfKK(B) , unsigned B
+#define PSTRING_cfKK(B) STRING_cfKK(B)
+#define STRINGV_cfKK(B) STRING_cfKK(B)
+#define PSTRINGV_cfKK(B) STRING_cfKK(B)
+#define ZTRINGV_cfKK(B) STRING_cfKK(B)
+#define PZTRINGV_cfKK(B) STRING_cfKK(B)
+#endif
+
+#define WCF(TN,AN,I) _(TN,_cfSTR)(2,W,AN,_(B,I), 0,0,0)
+#define DEFAULT_cfW(A,B)
+#define LOGICAL_cfW(A,B)
+#define PLOGICAL_cfW(A,B) *B=F2CLOGICAL(*B);
+#define STRING_cfW(A,B) (B.nombre=A,B.nombre[B.clen]!='\0'?B.nombre[B.clen]='\0':0); /* A?="constnt"*/
+#define PSTRING_cfW(A,B) kill_trailing(A,' ');
+#ifdef vmsFortran
+#define STRINGV_cfW(A,B) _cf_free(B.dsc$a_pointer);
+#define PSTRINGV_cfW(A,B) \
+ vkill_trailing(f2cstrv((char*)A, (char*)A, \
+ B.dsc$w_length+1, B.dsc$l_arsize+B.dsc$l_m[0]), \
+ B.dsc$w_length+1, B.dsc$l_arsize+B.dsc$l_m[0], ' ');
+#else
+#define STRINGV_cfW(A,B) _cf_free(B.s);
+#define PSTRINGV_cfW(A,B) vkill_trailing( \
+ f2cstrv((char*)A,(char*)A,B.flen+1,B.sizeofA), B.flen+1,B.sizeofA,' ');
+#endif
+#define ZTRINGV_cfW(A,B) STRINGV_cfW(A,B)
+#define PZTRINGV_cfW(A,B) PSTRINGV_cfW(A,B)
+
+#define NCF(TN,I,C) _SEP_(TN,C,cfCOMMA) _Icf(2,N,TN,_(A,I),0)
+#define NNCF(TN,I,C) UUCF(TN,I,C)
+#define NNNCF(TN,I,C) _SEP_(TN,C,cfCOLON) _Icf(2,N,TN,_(A,I),0)
+#define INT_cfN(T,A) _(T,VVVVVVV_cfTYPE) * A
+#define INTV_cfN(T,A) _(T,VVVVVV_cfTYPE) * A
+#define INTVV_cfN(T,A) _(T,VVVVV_cfTYPE) * A
+#define INTVVV_cfN(T,A) _(T,VVVV_cfTYPE) * A
+#define INTVVVV_cfN(T,A) _(T,VVV_cfTYPE) * A
+#define INTVVVVV_cfN(T,A) _(T,VV_cfTYPE) * A
+#define INTVVVVVV_cfN(T,A) _(T,V_cfTYPE) * A
+#define INTVVVVVVV_cfN(T,A) _(T,_cfTYPE) * A
+#define PINT_cfN(T,A) _(T,_cfTYPE) * A
+#define PVOID_cfN(T,A) void * A
+#if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran)
+#define ROUTINE_cfN(T,A) void (**A)(CF_NULL_PROTO)
+#else
+#define ROUTINE_cfN(T,A) void ( *A)(CF_NULL_PROTO)
+#endif
+#ifdef vmsFortran
+#define STRING_cfN(T,A) fstring * A
+#define STRINGV_cfN(T,A) fstringvector * A
+#else
+#ifdef CRAYFortran
+#define STRING_cfN(T,A) _fcd A
+#define STRINGV_cfN(T,A) _fcd A
+#else
+#define STRING_cfN(T,A) char * A
+#define STRINGV_cfN(T,A) char * A
+#endif
+#endif
+#define PSTRING_cfN(T,A) STRING_cfN(T,A) /* CRAY insists on arg.'s here. */
+#define PNSTRING_cfN(T,A) STRING_cfN(T,A) /* CRAY insists on arg.'s here. */
+#define PPSTRING_cfN(T,A) STRING_cfN(T,A) /* CRAY insists on arg.'s here. */
+#define PSTRINGV_cfN(T,A) STRINGV_cfN(T,A)
+#define ZTRINGV_cfN(T,A) STRINGV_cfN(T,A)
+#define PZTRINGV_cfN(T,A) PSTRINGV_cfN(T,A)
+
+
+/* Apollo 6.7, CRAY, old Sun, VAX/Ultrix vcc/cc and new ultrix
+ can't hack more than 31 arg's.
+ e.g. ultrix >= 4.3 gives message:
+ zow35> cc -c -DDECFortran cfortest.c
+ cfe: Fatal: Out of memory: cfortest.c
+ zow35>
+ Old __hpux had the problem, but new 'HP-UX A.09.03 A 9000/735' is fine
+ if using -Aa, otherwise we have a problem.
+ */
+#ifndef MAX_PREPRO_ARGS
+#if !defined(__GNUC__) && (defined(VAXUltrix) || defined(__CF__APOLLO67) || (defined(sun)&&!defined(__sun)) || defined(_CRAY) || defined(__ultrix__) || (defined(__hpux)&&defined(__CF__KnR)))
+#define MAX_PREPRO_ARGS 31
+#else
+#define MAX_PREPRO_ARGS 99
+#endif
+#endif
+
+#if defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
+/* In addition to explicit Absoft stuff, only Absoft requires:
+ - DEFAULT coming from _cfSTR.
+ DEFAULT could have been called e.g. INT, but keep it for clarity.
+ - M term in CFARGT14 and CFARGT14FS.
+ */
+#define ABSOFT_cf1(T0) _(T0,_cfSTR)(0,ABSOFT1,0,0,0,0,0)
+#define ABSOFT_cf2(T0) _(T0,_cfSTR)(0,ABSOFT2,0,0,0,0,0)
+#define ABSOFT_cf3(T0) _(T0,_cfSTR)(0,ABSOFT3,0,0,0,0,0)
+#define DEFAULT_cfABSOFT1
+#define LOGICAL_cfABSOFT1
+#define STRING_cfABSOFT1 ,MAX_LEN_FORTRAN_FUNCTION_STRING
+#define DEFAULT_cfABSOFT2
+#define LOGICAL_cfABSOFT2
+#define STRING_cfABSOFT2 ,unsigned D0
+#define DEFAULT_cfABSOFT3
+#define LOGICAL_cfABSOFT3
+#define STRING_cfABSOFT3 ,D0
+#else
+#define ABSOFT_cf1(T0)
+#define ABSOFT_cf2(T0)
+#define ABSOFT_cf3(T0)
+#endif
+
+/* _Z introduced to cicumvent IBM and HP silly preprocessor warning.
+ e.g. "Macro CFARGT14 invoked with a null argument."
+ */
+#define _Z
+
+#define CFARGT14S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ S(T1,1) S(T2,2) S(T3,3) S(T4,4) S(T5,5) S(T6,6) S(T7,7) \
+ S(T8,8) S(T9,9) S(TA,10) S(TB,11) S(TC,12) S(TD,13) S(TE,14)
+#define CFARGT27S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ S(T1,1) S(T2,2) S(T3,3) S(T4,4) S(T5,5) S(T6,6) S(T7,7) \
+ S(T8,8) S(T9,9) S(TA,10) S(TB,11) S(TC,12) S(TD,13) S(TE,14) \
+ S(TF,15) S(TG,16) S(TH,17) S(TI,18) S(TJ,19) S(TK,20) S(TL,21) \
+ S(TM,22) S(TN,23) S(TO,24) S(TP,25) S(TQ,26) S(TR,27)
+
+#define CFARGT14FS(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ F(T1,1,0) F(T2,2,1) F(T3,3,1) F(T4,4,1) F(T5,5,1) F(T6,6,1) F(T7,7,1) \
+ F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1) \
+ M CFARGT14S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
+#define CFARGT27FS(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ F(T1,1,0) F(T2,2,1) F(T3,3,1) F(T4,4,1) F(T5,5,1) F(T6,6,1) F(T7,7,1) \
+ F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1) \
+ F(TF,15,1) F(TG,16,1) F(TH,17,1) F(TI,18,1) F(TJ,19,1) F(TK,20,1) F(TL,21,1) \
+ F(TM,22,1) F(TN,23,1) F(TO,24,1) F(TP,25,1) F(TQ,26,1) F(TR,27,1) \
+ M CFARGT27S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
+
+#if !(defined(PowerStationFortran)||defined(hpuxFortran800))
+/* Old CFARGT14 -> CFARGT14FS as seen below, for Absoft cross-compile yields:
+ SunOS> cc -c -Xa -DAbsoftUNIXFortran c.c
+ "c.c", line 406: warning: argument mismatch
+ Haven't checked if this is ANSI C or a SunOS bug. SunOS -Xs works ok.
+ Behavior is most clearly seen in example:
+ #define A 1 , 2
+ #define C(X,Y,Z) x=X. y=Y. z=Z.
+ #define D(X,Y,Z) C(X,Y,Z)
+ D(x,A,z)
+ Output from preprocessor is: x = x . y = 1 . z = 2 .
+ #define CFARGT14(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ CFARGT14FS(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
+*/
+#define CFARGT14(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ F(T1,1,0) F(T2,2,1) F(T3,3,1) F(T4,4,1) F(T5,5,1) F(T6,6,1) F(T7,7,1) \
+ F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1) \
+ M CFARGT14S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
+#define CFARGT27(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ F(T1,1,0) F(T2,2,1) F(T3,3,1) F(T4,4,1) F(T5,5,1) F(T6,6,1) F(T7,7,1) \
+ F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1) \
+ F(TF,15,1) F(TG,16,1) F(TH,17,1) F(TI,18,1) F(TJ,19,1) F(TK,20,1) F(TL,21,1) \
+ F(TM,22,1) F(TN,23,1) F(TO,24,1) F(TP,25,1) F(TQ,26,1) F(TR,27,1) \
+ M CFARGT27S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
+
+#define CFARGT20(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
+ F(T1,1,0) F(T2,2,1) F(T3,3,1) F(T4,4,1) F(T5,5,1) F(T6,6,1) F(T7,7,1) \
+ F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1) \
+ F(TF,15,1) F(TG,16,1) F(TH,17,1) F(TI,18,1) F(TJ,19,1) F(TK,20,1) \
+ S(T1,1) S(T2,2) S(T3,3) S(T4,4) S(T5,5) S(T6,6) S(T7,7) \
+ S(T8,8) S(T9,9) S(TA,10) S(TB,11) S(TC,12) S(TD,13) S(TE,14) \
+ S(TF,15) S(TG,16) S(TH,17) S(TI,18) S(TJ,19) S(TK,20)
+#define CFARGTA14(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE) \
+ F(T1,A1,1,0) F(T2,A2,2,1) F(T3,A3,3,1) F(T4,A4,4,1) F(T5,A5,5,1) F(T6,A6,6,1) \
+ F(T7,A7,7,1) F(T8,A8,8,1) F(T9,A9,9,1) F(TA,AA,10,1) F(TB,AB,11,1) F(TC,AC,12,1) \
+ F(TD,AD,13,1) F(TE,AE,14,1) S(T1,1) S(T2,2) S(T3,3) S(T4,4) \
+ S(T5,5) S(T6,6) S(T7,7) S(T8,8) S(T9,9) S(TA,10) \
+ S(TB,11) S(TC,12) S(TD,13) S(TE,14)
+#if MAX_PREPRO_ARGS>31
+#define CFARGTA20(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) \
+ F(T1,A1,1,0) F(T2,A2,2,1) F(T3,A3,3,1) F(T4,A4,4,1) F(T5,A5,5,1) F(T6,A6,6,1) \
+ F(T7,A7,7,1) F(T8,A8,8,1) F(T9,A9,9,1) F(TA,AA,10,1) F(TB,AB,11,1) F(TC,AC,12,1) \
+ F(TD,AD,13,1) F(TE,AE,14,1) F(TF,AF,15,1) F(TG,AG,16,1) F(TH,AH,17,1) F(TI,AI,18,1) \
+ F(TJ,AJ,19,1) F(TK,AK,20,1) S(T1,1) S(T2,2) S(T3,3) S(T4,4) \
+ S(T5,5) S(T6,6) S(T7,7) S(T8,8) S(T9,9) S(TA,10) \
+ S(TB,11) S(TC,12) S(TD,13) S(TE,14) S(TF,15) S(TG,16) \
+ S(TH,17) S(TI,18) S(TJ,19) S(TK,20)
+#define CFARGTA27(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) \
+ F(T1,A1,1,0) F(T2,A2,2,1) F(T3,A3,3,1) F(T4,A4,4,1) F(T5,A5,5,1) F(T6,A6,6,1) \
+ F(T7,A7,7,1) F(T8,A8,8,1) F(T9,A9,9,1) F(TA,AA,10,1) F(TB,AB,11,1) F(TC,AC,12,1) \
+ F(TD,AD,13,1) F(TE,AE,14,1) F(TF,AF,15,1) F(TG,AG,16,1) F(TH,AH,17,1) F(TI,AI,18,1) \
+ F(TJ,AJ,19,1) F(TK,AK,20,1) F(TL,AL,21,1) F(TM,AM,22,1) F(TN,AN,23,1) F(TO,AO,24,1) \
+ F(TP,AP,25,1) F(TQ,AQ,26,1) F(TR,AR,27,1) S(T1,1) S(T2,2) S(T3,3) \
+ S(T4,4) S(T5,5) S(T6,6) S(T7,7) S(T8,8) S(T9,9) \
+ S(TA,10) S(TB,11) S(TC,12) S(TD,13) S(TE,14) S(TF,15) \
+ S(TG,16) S(TH,17) S(TI,18) S(TJ,19) S(TK,20) S(TL,21) \
+ S(TM,22) S(TN,23) S(TO,24) S(TP,25) S(TQ,26) S(TR,27)
+#endif
+#else
+#define CFARGT14(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ F(T1,1,0) S(T1,1) F(T2,2,1) S(T2,2) F(T3,3,1) S(T3,3) F(T4,4,1) S(T4,4) \
+ F(T5,5,1) S(T5,5) F(T6,6,1) S(T6,6) F(T7,7,1) S(T7,7) F(T8,8,1) S(T8,8) \
+ F(T9,9,1) S(T9,9) F(TA,10,1) S(TA,10) F(TB,11,1) S(TB,11) F(TC,12,1) S(TC,12) \
+ F(TD,13,1) S(TD,13) F(TE,14,1) S(TE,14)
+#define CFARGT27(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ F(T1,1,0) S(T1,1) F(T2,2,1) S(T2,2) F(T3,3,1) S(T3,3) F(T4,4,1) S(T4,4) \
+ F(T5,5,1) S(T5,5) F(T6,6,1) S(T6,6) F(T7,7,1) S(T7,7) F(T8,8,1) S(T8,8) \
+ F(T9,9,1) S(T9,9) F(TA,10,1) S(TA,10) F(TB,11,1) S(TB,11) F(TC,12,1) S(TC,12) \
+ F(TD,13,1) S(TD,13) F(TE,14,1) S(TE,14) F(TF,15,1) S(TF,15) F(TG,16,1) S(TG,16) \
+ F(TH,17,1) S(TH,17) F(TI,18,1) S(TI,18) F(TJ,19,1) S(TJ,19) F(TK,20,1) S(TK,20) \
+ F(TL,21,1) S(TL,21) F(TM,22,1) S(TM,22) F(TN,23,1) S(TN,23) F(TO,24,1) S(TO,24) \
+ F(TP,25,1) S(TP,25) F(TQ,26,1) S(TQ,26) F(TR,27,1) S(TR,27)
+
+#define CFARGT20(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
+ F(T1,1,0) S(T1,1) F(T2,2,1) S(T2,2) F(T3,3,1) S(T3,3) F(T4,4,1) S(T4,4) \
+ F(T5,5,1) S(T5,5) F(T6,6,1) S(T6,6) F(T7,7,1) S(T7,7) F(T8,8,1) S(T8,8) \
+ F(T9,9,1) S(T9,9) F(TA,10,1) S(TA,10) F(TB,11,1) S(TB,11) F(TC,12,1) S(TC,12) \
+ F(TD,13,1) S(TD,13) F(TE,14,1) S(TE,14) F(TF,15,1) S(TF,15) F(TG,16,1) S(TG,16) \
+ F(TH,17,1) S(TH,17) F(TI,18,1) S(TI,18) F(TJ,19,1) S(TJ,19) F(TK,20,1) S(TK,20)
+#define CFARGTA14(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE) \
+ F(T1,A1,1,0) S(T1,1) F(T2,A2,2,1) S(T2,2) F(T3,A3,3,1) S(T3,3) \
+ F(T4,A4,4,1) S(T4,4) F(T5,A5,5,1) S(T5,5) F(T6,A6,6,1) S(T6,6) \
+ F(T7,A7,7,1) S(T7,7) F(T8,A8,8,1) S(T8,8) F(T9,A9,9,1) S(T9,9) \
+ F(TA,AA,10,1) S(TA,10) F(TB,AB,11,1) S(TB,11) F(TC,AC,12,1) S(TC,12) \
+ F(TD,AD,13,1) S(TD,13) F(TE,AE,14,1) S(TE,14)
+#if MAX_PREPRO_ARGS>31
+#define CFARGTA20(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) \
+ F(T1,A1,1,0) S(T1,1) F(T2,A2,2,1) S(T2,2) F(T3,A3,3,1) S(T3,3) \
+ F(T4,A4,4,1) S(T4,4) F(T5,A5,5,1) S(T5,5) F(T6,A6,6,1) S(T6,6) \
+ F(T7,A7,7,1) S(T7,7) F(T8,A8,8,1) S(T8,8) F(T9,A9,9,1) S(T9,9) \
+ F(TA,AA,10,1) S(TA,10) F(TB,AB,11,1) S(TB,11) F(TC,AC,12,1) S(TC,12) \
+ F(TD,AD,13,1) S(TD,13) F(TE,AE,14,1) S(TE,14) F(TF,AF,15,1) S(TF,15) \
+ F(TG,AG,16,1) S(TG,16) F(TH,AH,17,1) S(TH,17) F(TI,AI,18,1) S(TI,18) \
+ F(TJ,AJ,19,1) S(TJ,19) F(TK,AK,20,1) S(TK,20)
+#define CFARGTA27(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) \
+ F(T1,A1,1,0) S(T1,1) F(T2,A2,2,1) S(T2,2) F(T3,A3,3,1) S(T3,3) \
+ F(T4,A4,4,1) S(T4,4) F(T5,A5,5,1) S(T5,5) F(T6,A6,6,1) S(T6,6) \
+ F(T7,A7,7,1) S(T7,7) F(T8,A8,8,1) S(T8,8) F(T9,A9,9,1) S(T9,9) \
+ F(TA,AA,10,1) S(TA,10) F(TB,AB,11,1) S(TB,11) F(TC,AC,12,1) S(TC,12) \
+ F(TD,AD,13,1) S(TD,13) F(TE,AE,14,1) S(TE,14) F(TF,AF,15,1) S(TF,15) \
+ F(TG,AG,16,1) S(TG,16) F(TH,AH,17,1) S(TH,17) F(TI,AI,18,1) S(TI,18) \
+ F(TJ,AJ,19,1) S(TJ,19) F(TK,AK,20,1) S(TK,20) F(TL,AL,21,1) S(TL,21) \
+ F(TM,AM,22,1) S(TM,22) F(TN,AN,23,1) S(TN,23) F(TO,AO,24,1) S(TO,24) \
+ F(TP,AP,25,1) S(TP,25) F(TQ,AQ,26,1) S(TQ,26) F(TR,AR,27,1) S(TR,27)
+#endif
+#endif
+
+
+#define PROTOCCALLSFSUB1( UN,LN,T1) \
+ PROTOCCALLSFSUB14(UN,LN,T1,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB2( UN,LN,T1,T2) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB3( UN,LN,T1,T2,T3) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB4( UN,LN,T1,T2,T3,T4) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB5( UN,LN,T1,T2,T3,T4,T5) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB6( UN,LN,T1,T2,T3,T4,T5,T6) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB7( UN,LN,T1,T2,T3,T4,T5,T6,T7) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB8( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB9( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB11(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB12(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)
+#define PROTOCCALLSFSUB13(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)
+
+
+#define PROTOCCALLSFSUB15(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF) \
+ PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB16(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG) \
+ PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB17(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH) \
+ PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB18(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI) \
+ PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0)
+#define PROTOCCALLSFSUB19(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ) \
+ PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0)
+
+#define PROTOCCALLSFSUB21(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL) \
+ PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB22(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM) \
+ PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB23(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN) \
+ PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB24(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO) \
+ PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFSUB25(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP) \
+ PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0)
+#define PROTOCCALLSFSUB26(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ) \
+ PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0)
+
+
+#ifndef FCALLSC_QUALIFIER
+#ifdef VISUAL_CPLUSPLUS
+#define FCALLSC_QUALIFIER __stdcall
+#else
+#define FCALLSC_QUALIFIER
+#endif
+#endif
+
+#ifdef __cplusplus
+#define CFextern extern "C"
+#else
+#define CFextern extern
+#endif
+
+
+#ifdef CFSUBASFUN
+#define PROTOCCALLSFSUB0(UN,LN) \
+ PROTOCCALLSFFUN0( VOID,UN,LN)
+#define PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ PROTOCCALLSFFUN14(VOID,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
+#define PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)\
+ PROTOCCALLSFFUN20(VOID,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
+#define PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)\
+ PROTOCCALLSFFUN27(VOID,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
+#else
+/* Note: Prevent compiler warnings, null #define PROTOCCALLSFSUB14/20 after
+ #include-ing cfortran.h if calling the FORTRAN wrapper within the same
+ source code where the wrapper is created. */
+#define PROTOCCALLSFSUB0(UN,LN) _(VOID,_cfPU)(CFC_(UN,LN))();
+#ifndef __CF__KnR
+#define PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT14(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) );
+#define PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)\
+ _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT20(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) );
+#define PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)\
+ _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT27(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) );
+#else
+#define PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ PROTOCCALLSFSUB0(UN,LN)
+#define PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
+ PROTOCCALLSFSUB0(UN,LN)
+#define PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ PROTOCCALLSFSUB0(UN,LN)
+#endif
+#endif
+
+
+#ifdef OLD_VAXC /* Allow %CC-I-PARAMNOTUSED. */
+#pragma standard
+#endif
+
+
+#define CCALLSFSUB1( UN,LN,T1, A1) \
+ CCALLSFSUB5 (UN,LN,T1,CF_0,CF_0,CF_0,CF_0,A1,0,0,0,0)
+#define CCALLSFSUB2( UN,LN,T1,T2, A1,A2) \
+ CCALLSFSUB5 (UN,LN,T1,T2,CF_0,CF_0,CF_0,A1,A2,0,0,0)
+#define CCALLSFSUB3( UN,LN,T1,T2,T3, A1,A2,A3) \
+ CCALLSFSUB5 (UN,LN,T1,T2,T3,CF_0,CF_0,A1,A2,A3,0,0)
+#define CCALLSFSUB4( UN,LN,T1,T2,T3,T4, A1,A2,A3,A4)\
+ CCALLSFSUB5 (UN,LN,T1,T2,T3,T4,CF_0,A1,A2,A3,A4,0)
+#define CCALLSFSUB5( UN,LN,T1,T2,T3,T4,T5, A1,A2,A3,A4,A5) \
+ CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,0,0,0,0,0)
+#define CCALLSFSUB6( UN,LN,T1,T2,T3,T4,T5,T6, A1,A2,A3,A4,A5,A6) \
+ CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,0,0,0,0)
+#define CCALLSFSUB7( UN,LN,T1,T2,T3,T4,T5,T6,T7, A1,A2,A3,A4,A5,A6,A7) \
+ CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,0,0,0)
+#define CCALLSFSUB8( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8, A1,A2,A3,A4,A5,A6,A7,A8) \
+ CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,0,0)
+#define CCALLSFSUB9( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,A1,A2,A3,A4,A5,A6,A7,A8,A9)\
+ CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,0)
+#define CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA)\
+ CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,0,0,0,0)
+#define CCALLSFSUB11(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB)\
+ CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,0,0,0)
+#define CCALLSFSUB12(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC)\
+ CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,0,0)
+#define CCALLSFSUB13(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD)\
+ CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,0)
+
+#ifdef __cplusplus
+#define CPPPROTOCLSFSUB0( UN,LN)
+#define CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
+#define CPPPROTOCLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
+#define CPPPROTOCLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
+#else
+#define CPPPROTOCLSFSUB0(UN,LN) \
+ PROTOCCALLSFSUB0(UN,LN)
+#define CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
+#define CPPPROTOCLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
+ PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
+#define CPPPROTOCLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
+#endif
+
+#ifdef CFSUBASFUN
+#define CCALLSFSUB0(UN,LN) CCALLSFFUN0(UN,LN)
+#define CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE)\
+ CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE)
+#else
+/* do{...}while(0) allows if(a==b) FORT(); else BORT(); */
+#define CCALLSFSUB0( UN,LN) do{CPPPROTOCLSFSUB0(UN,LN) CFC_(UN,LN)();}while(0)
+#define CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE)\
+do{VVCF(T1,A1,B1) VVCF(T2,A2,B2) VVCF(T3,A3,B3) VVCF(T4,A4,B4) VVCF(T5,A5,B5) \
+ VVCF(T6,A6,B6) VVCF(T7,A7,B7) VVCF(T8,A8,B8) VVCF(T9,A9,B9) VVCF(TA,AA,B10) \
+ VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14) \
+ CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ ACF(LN,T1,A1,1) ACF(LN,T2,A2,2) ACF(LN,T3,A3,3) \
+ ACF(LN,T4,A4,4) ACF(LN,T5,A5,5) ACF(LN,T6,A6,6) ACF(LN,T7,A7,7) \
+ ACF(LN,T8,A8,8) ACF(LN,T9,A9,9) ACF(LN,TA,AA,10) ACF(LN,TB,AB,11) \
+ ACF(LN,TC,AC,12) ACF(LN,TD,AD,13) ACF(LN,TE,AE,14) \
+ CFC_(UN,LN)( CFARGTA14(AACF,JCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE) );\
+ WCF(T1,A1,1) WCF(T2,A2,2) WCF(T3,A3,3) WCF(T4,A4,4) WCF(T5,A5,5) \
+ WCF(T6,A6,6) WCF(T7,A7,7) WCF(T8,A8,8) WCF(T9,A9,9) WCF(TA,AA,10) \
+ WCF(TB,AB,11) WCF(TC,AC,12) WCF(TD,AD,13) WCF(TE,AE,14) }while(0)
+#endif
+
+
+#if MAX_PREPRO_ARGS>31
+#define CCALLSFSUB15(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF)\
+ CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,0,0,0,0,0)
+#define CCALLSFSUB16(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG)\
+ CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,0,0,0,0)
+#define CCALLSFSUB17(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH)\
+ CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,0,0,0)
+#define CCALLSFSUB18(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI)\
+ CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,0,0)
+#define CCALLSFSUB19(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ)\
+ CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,0)
+
+#ifdef CFSUBASFUN
+#define CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH, \
+ TI,TJ,TK, A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) \
+ CCALLSFFUN20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH, \
+ TI,TJ,TK, A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK)
+#else
+#define CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH, \
+ TI,TJ,TK, A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) \
+do{VVCF(T1,A1,B1) VVCF(T2,A2,B2) VVCF(T3,A3,B3) VVCF(T4,A4,B4) VVCF(T5,A5,B5) \
+ VVCF(T6,A6,B6) VVCF(T7,A7,B7) VVCF(T8,A8,B8) VVCF(T9,A9,B9) VVCF(TA,AA,B10) \
+ VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14) VVCF(TF,AF,B15) \
+ VVCF(TG,AG,B16) VVCF(TH,AH,B17) VVCF(TI,AI,B18) VVCF(TJ,AJ,B19) VVCF(TK,AK,B20) \
+ CPPPROTOCLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
+ ACF(LN,T1,A1,1) ACF(LN,T2,A2,2) ACF(LN,T3,A3,3) ACF(LN,T4,A4,4) \
+ ACF(LN,T5,A5,5) ACF(LN,T6,A6,6) ACF(LN,T7,A7,7) ACF(LN,T8,A8,8) \
+ ACF(LN,T9,A9,9) ACF(LN,TA,AA,10) ACF(LN,TB,AB,11) ACF(LN,TC,AC,12) \
+ ACF(LN,TD,AD,13) ACF(LN,TE,AE,14) ACF(LN,TF,AF,15) ACF(LN,TG,AG,16) \
+ ACF(LN,TH,AH,17) ACF(LN,TI,AI,18) ACF(LN,TJ,AJ,19) ACF(LN,TK,AK,20) \
+ CFC_(UN,LN)( CFARGTA20(AACF,JCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) ); \
+ WCF(T1,A1,1) WCF(T2,A2,2) WCF(T3,A3,3) WCF(T4,A4,4) WCF(T5,A5,5) WCF(T6,A6,6) \
+ WCF(T7,A7,7) WCF(T8,A8,8) WCF(T9,A9,9) WCF(TA,AA,10) WCF(TB,AB,11) WCF(TC,AC,12) \
+ WCF(TD,AD,13) WCF(TE,AE,14) WCF(TF,AF,15) WCF(TG,AG,16) WCF(TH,AH,17) WCF(TI,AI,18) \
+ WCF(TJ,AJ,19) WCF(TK,AK,20) }while(0)
+#endif
+#endif /* MAX_PREPRO_ARGS */
+
+#if MAX_PREPRO_ARGS>31
+#define CCALLSFSUB21(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL)\
+ CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,0,0,0,0,0,0)
+#define CCALLSFSUB22(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM)\
+ CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,0,0,0,0,0)
+#define CCALLSFSUB23(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN)\
+ CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,0,0,0,0)
+#define CCALLSFSUB24(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO)\
+ CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,0,0,0)
+#define CCALLSFSUB25(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP)\
+ CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,0,0)
+#define CCALLSFSUB26(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ)\
+ CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,0)
+
+#ifdef CFSUBASFUN
+#define CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR, \
+ A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) \
+ CCALLSFFUN27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR, \
+ A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR)
+#else
+#define CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR, \
+ A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) \
+do{VVCF(T1,A1,B1) VVCF(T2,A2,B2) VVCF(T3,A3,B3) VVCF(T4,A4,B4) VVCF(T5,A5,B5) \
+ VVCF(T6,A6,B6) VVCF(T7,A7,B7) VVCF(T8,A8,B8) VVCF(T9,A9,B9) VVCF(TA,AA,B10) \
+ VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14) VVCF(TF,AF,B15) \
+ VVCF(TG,AG,B16) VVCF(TH,AH,B17) VVCF(TI,AI,B18) VVCF(TJ,AJ,B19) VVCF(TK,AK,B20) \
+ VVCF(TL,AL,B21) VVCF(TM,AM,B22) VVCF(TN,AN,B23) VVCF(TO,AO,B24) VVCF(TP,AP,B25) \
+ VVCF(TQ,AQ,B26) VVCF(TR,AR,B27) \
+ CPPPROTOCLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ ACF(LN,T1,A1,1) ACF(LN,T2,A2,2) ACF(LN,T3,A3,3) ACF(LN,T4,A4,4) \
+ ACF(LN,T5,A5,5) ACF(LN,T6,A6,6) ACF(LN,T7,A7,7) ACF(LN,T8,A8,8) \
+ ACF(LN,T9,A9,9) ACF(LN,TA,AA,10) ACF(LN,TB,AB,11) ACF(LN,TC,AC,12) \
+ ACF(LN,TD,AD,13) ACF(LN,TE,AE,14) ACF(LN,TF,AF,15) ACF(LN,TG,AG,16) \
+ ACF(LN,TH,AH,17) ACF(LN,TI,AI,18) ACF(LN,TJ,AJ,19) ACF(LN,TK,AK,20) \
+ ACF(LN,TL,AL,21) ACF(LN,TM,AM,22) ACF(LN,TN,AN,23) ACF(LN,TO,AO,24) \
+ ACF(LN,TP,AP,25) ACF(LN,TQ,AQ,26) ACF(LN,TR,AR,27) \
+ CFC_(UN,LN)( CFARGTA27(AACF,JCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR,\
+ A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) ); \
+ WCF(T1,A1,1) WCF(T2,A2,2) WCF(T3,A3,3) WCF(T4,A4,4) WCF(T5,A5,5) WCF(T6,A6,6) \
+ WCF(T7,A7,7) WCF(T8,A8,8) WCF(T9,A9,9) WCF(TA,AA,10) WCF(TB,AB,11) WCF(TC,AC,12) \
+ WCF(TD,AD,13) WCF(TE,AE,14) WCF(TF,AF,15) WCF(TG,AG,16) WCF(TH,AH,17) WCF(TI,AI,18) \
+ WCF(TJ,AJ,19) WCF(TK,AK,20) WCF(TL,AL,21) WCF(TM,AM,22) WCF(TN,AN,23) WCF(TO,AO,24) \
+ WCF(TP,AP,25) WCF(TQ,AQ,26) WCF(TR,AR,27) }while(0)
+#endif
+#endif /* MAX_PREPRO_ARGS */
+
+/*-------------------------------------------------------------------------*/
+
+/* UTILITIES FOR C TO CALL FORTRAN FUNCTIONS */
+
+/*N.B. PROTOCCALLSFFUNn(..) generates code, whether or not the FORTRAN
+ function is called. Therefore, especially for creator's of C header files
+ for large FORTRAN libraries which include many functions, to reduce
+ compile time and object code size, it may be desirable to create
+ preprocessor directives to allow users to create code for only those
+ functions which they use. */
+
+/* The following defines the maximum length string that a function can return.
+ Of course it may be undefine-d and re-define-d before individual
+ PROTOCCALLSFFUNn(..) as required. It would also be nice to have this derived
+ from the individual machines' limits. */
+#define MAX_LEN_FORTRAN_FUNCTION_STRING 0x4FE
+
+/* The following defines a character used by CFORTRAN.H to flag the end of a
+ string coming out of a FORTRAN routine. */
+#define CFORTRAN_NON_CHAR 0x7F
+
+#ifdef OLD_VAXC /* Prevent %CC-I-PARAMNOTUSED. */
+#pragma nostandard
+#endif
+
+#define _SEP_(TN,C,cfCOMMA) _(__SEP_,C)(TN,cfCOMMA)
+#define __SEP_0(TN,cfCOMMA)
+#define __SEP_1(TN,cfCOMMA) _Icf(2,SEP,TN,cfCOMMA,0)
+#define INT_cfSEP(T,B) _(A,B)
+#define INTV_cfSEP(T,B) INT_cfSEP(T,B)
+#define INTVV_cfSEP(T,B) INT_cfSEP(T,B)
+#define INTVVV_cfSEP(T,B) INT_cfSEP(T,B)
+#define INTVVVV_cfSEP(T,B) INT_cfSEP(T,B)
+#define INTVVVVV_cfSEP(T,B) INT_cfSEP(T,B)
+#define INTVVVVVV_cfSEP(T,B) INT_cfSEP(T,B)
+#define INTVVVVVVV_cfSEP(T,B) INT_cfSEP(T,B)
+#define PINT_cfSEP(T,B) INT_cfSEP(T,B)
+#define PVOID_cfSEP(T,B) INT_cfSEP(T,B)
+#define ROUTINE_cfSEP(T,B) INT_cfSEP(T,B)
+#define SIMPLE_cfSEP(T,B) INT_cfSEP(T,B)
+#define VOID_cfSEP(T,B) INT_cfSEP(T,B) /* For FORTRAN calls C subr.s.*/
+#define STRING_cfSEP(T,B) INT_cfSEP(T,B)
+#define STRINGV_cfSEP(T,B) INT_cfSEP(T,B)
+#define PSTRING_cfSEP(T,B) INT_cfSEP(T,B)
+#define PSTRINGV_cfSEP(T,B) INT_cfSEP(T,B)
+#define PNSTRING_cfSEP(T,B) INT_cfSEP(T,B)
+#define PPSTRING_cfSEP(T,B) INT_cfSEP(T,B)
+#define ZTRINGV_cfSEP(T,B) INT_cfSEP(T,B)
+#define PZTRINGV_cfSEP(T,B) INT_cfSEP(T,B)
+
+#if defined(SIGNED_BYTE) || !defined(UNSIGNED_BYTE)
+#ifdef OLD_VAXC
+#define INTEGER_BYTE char /* Old VAXC barfs on 'signed char' */
+#else
+#define INTEGER_BYTE signed char /* default */
+#endif
+#else
+#define INTEGER_BYTE unsigned char
+#endif
+#define BYTEVVVVVVV_cfTYPE INTEGER_BYTE
+#define DOUBLEVVVVVVV_cfTYPE DOUBLE_PRECISION
+#define FLOATVVVVVVV_cfTYPE FORTRAN_REAL
+#define INTVVVVVVV_cfTYPE int
+#define LOGICALVVVVVVV_cfTYPE int
+#define LONGVVVVVVV_cfTYPE long
+#define LONGLONGVVVVVVV_cfTYPE LONGLONG /* added by MR December 2005 */
+#define SHORTVVVVVVV_cfTYPE short
+#define PBYTE_cfTYPE INTEGER_BYTE
+#define PDOUBLE_cfTYPE DOUBLE_PRECISION
+#define PFLOAT_cfTYPE FORTRAN_REAL
+#define PINT_cfTYPE int
+#define PLOGICAL_cfTYPE int
+#define PLONG_cfTYPE long
+#define PLONGLONG_cfTYPE LONGLONG /* added by MR December 2005 */
+#define PSHORT_cfTYPE short
+
+#define CFARGS0(A,T,V,W,X,Y,Z) _3(T,_cf,A)
+#define CFARGS1(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V)
+#define CFARGS2(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V,W)
+#define CFARGS3(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V,W,X)
+#define CFARGS4(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V,W,X,Y)
+#define CFARGS5(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V,W,X,Y,Z)
+
+#define _Icf(N,T,I,X,Y) _(I,_cfINT)(N,T,I,X,Y,0)
+#define _Icf4(N,T,I,X,Y,Z) _(I,_cfINT)(N,T,I,X,Y,Z)
+#define BYTE_cfINT(N,A,B,X,Y,Z) DOUBLE_cfINT(N,A,B,X,Y,Z)
+#define DOUBLE_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INT,B,X,Y,Z,0)
+#define FLOAT_cfINT(N,A,B,X,Y,Z) DOUBLE_cfINT(N,A,B,X,Y,Z)
+#define INT_cfINT(N,A,B,X,Y,Z) DOUBLE_cfINT(N,A,B,X,Y,Z)
+#define LOGICAL_cfINT(N,A,B,X,Y,Z) DOUBLE_cfINT(N,A,B,X,Y,Z)
+#define LONG_cfINT(N,A,B,X,Y,Z) DOUBLE_cfINT(N,A,B,X,Y,Z)
+#define LONGLONG_cfINT(N,A,B,X,Y,Z) DOUBLE_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
+#define SHORT_cfINT(N,A,B,X,Y,Z) DOUBLE_cfINT(N,A,B,X,Y,Z)
+#define PBYTE_cfINT(N,A,B,X,Y,Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)
+#define PDOUBLE_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,PINT,B,X,Y,Z,0)
+#define PFLOAT_cfINT(N,A,B,X,Y,Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)
+#define PINT_cfINT(N,A,B,X,Y,Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)
+#define PLOGICAL_cfINT(N,A,B,X,Y,Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)
+#define PLONG_cfINT(N,A,B,X,Y,Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)
+#define PLONGLONG_cfINT(N,A,B,X,Y,Z) PDOUBLE_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
+#define PSHORT_cfINT(N,A,B,X,Y,Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)
+#define BYTEV_cfINT(N,A,B,X,Y,Z) DOUBLEV_cfINT(N,A,B,X,Y,Z)
+#define BYTEVV_cfINT(N,A,B,X,Y,Z) DOUBLEVV_cfINT(N,A,B,X,Y,Z)
+#define BYTEVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
+#define BYTEVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
+#define BYTEVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
+#define BYTEVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define BYTEVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define DOUBLEV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTV,B,X,Y,Z,0)
+#define DOUBLEVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVV,B,X,Y,Z,0)
+#define DOUBLEVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVV,B,X,Y,Z,0)
+#define DOUBLEVVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVVV,B,X,Y,Z,0)
+#define DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVVVV,B,X,Y,Z,0)
+#define DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVVVVV,B,X,Y,Z,0)
+#define DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVVVVVV,B,X,Y,Z,0)
+#define FLOATV_cfINT(N,A,B,X,Y,Z) DOUBLEV_cfINT(N,A,B,X,Y,Z)
+#define FLOATVV_cfINT(N,A,B,X,Y,Z) DOUBLEVV_cfINT(N,A,B,X,Y,Z)
+#define FLOATVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
+#define FLOATVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
+#define FLOATVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
+#define FLOATVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define FLOATVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define INTV_cfINT(N,A,B,X,Y,Z) DOUBLEV_cfINT(N,A,B,X,Y,Z)
+#define INTVV_cfINT(N,A,B,X,Y,Z) DOUBLEVV_cfINT(N,A,B,X,Y,Z)
+#define INTVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
+#define INTVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
+#define INTVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
+#define INTVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define INTVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define LOGICALV_cfINT(N,A,B,X,Y,Z) DOUBLEV_cfINT(N,A,B,X,Y,Z)
+#define LOGICALVV_cfINT(N,A,B,X,Y,Z) DOUBLEVV_cfINT(N,A,B,X,Y,Z)
+#define LOGICALVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
+#define LOGICALVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
+#define LOGICALVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
+#define LOGICALVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define LOGICALVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define LONGV_cfINT(N,A,B,X,Y,Z) DOUBLEV_cfINT(N,A,B,X,Y,Z)
+#define LONGVV_cfINT(N,A,B,X,Y,Z) DOUBLEVV_cfINT(N,A,B,X,Y,Z)
+#define LONGVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
+#define LONGVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
+#define LONGVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
+#define LONGVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define LONGVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define LONGLONGV_cfINT(N,A,B,X,Y,Z) DOUBLEV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
+#define LONGLONGVV_cfINT(N,A,B,X,Y,Z) DOUBLEVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
+#define LONGLONGVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
+#define LONGLONGVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
+#define LONGLONGVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
+#define LONGLONGVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
+#define LONGLONGVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
+#define SHORTV_cfINT(N,A,B,X,Y,Z) DOUBLEV_cfINT(N,A,B,X,Y,Z)
+#define SHORTVV_cfINT(N,A,B,X,Y,Z) DOUBLEVV_cfINT(N,A,B,X,Y,Z)
+#define SHORTVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
+#define SHORTVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
+#define SHORTVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
+#define SHORTVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define SHORTVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
+#define PVOID_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,B,B,X,Y,Z,0)
+#define ROUTINE_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+/*CRAY coughs on the first,
+ i.e. the usual trouble of not being able to
+ define macros to macros with arguments.
+ New ultrix is worse, it coughs on all such uses.
+ */
+/*#define SIMPLE_cfINT PVOID_cfINT*/
+#define SIMPLE_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define VOID_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define STRING_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define STRINGV_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define PSTRING_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define PSTRINGV_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define PNSTRING_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define PPSTRING_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define ZTRINGV_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define PZTRINGV_cfINT(N,A,B,X,Y,Z) PVOID_cfINT(N,A,B,X,Y,Z)
+#define CF_0_cfINT(N,A,B,X,Y,Z)
+
+
+#define UCF(TN,I,C) _SEP_(TN,C,cfCOMMA) _Icf(2,U,TN,_(A,I),0)
+#define UUCF(TN,I,C) _SEP_(TN,C,cfCOMMA) _SEP_(TN,1,I)
+#define UUUCF(TN,I,C) _SEP_(TN,C,cfCOLON) _Icf(2,U,TN,_(A,I),0)
+#define INT_cfU(T,A) _(T,VVVVVVV_cfTYPE) A
+#define INTV_cfU(T,A) _(T,VVVVVV_cfTYPE) * A
+#define INTVV_cfU(T,A) _(T,VVVVV_cfTYPE) * A
+#define INTVVV_cfU(T,A) _(T,VVVV_cfTYPE) * A
+#define INTVVVV_cfU(T,A) _(T,VVV_cfTYPE) * A
+#define INTVVVVV_cfU(T,A) _(T,VV_cfTYPE) * A
+#define INTVVVVVV_cfU(T,A) _(T,V_cfTYPE) * A
+#define INTVVVVVVV_cfU(T,A) _(T,_cfTYPE) * A
+#define PINT_cfU(T,A) _(T,_cfTYPE) * A
+#define PVOID_cfU(T,A) void *A
+#define ROUTINE_cfU(T,A) void (*A)(CF_NULL_PROTO)
+#define VOID_cfU(T,A) void A /* Needed for C calls FORTRAN sub.s. */
+#define STRING_cfU(T,A) char *A /* via VOID and wrapper. */
+#define STRINGV_cfU(T,A) char *A
+#define PSTRING_cfU(T,A) char *A
+#define PSTRINGV_cfU(T,A) char *A
+#define ZTRINGV_cfU(T,A) char *A
+#define PZTRINGV_cfU(T,A) char *A
+
+/* VOID breaks U into U and UU. */
+#define INT_cfUU(T,A) _(T,VVVVVVV_cfTYPE) A
+#define VOID_cfUU(T,A) /* Needed for FORTRAN calls C sub.s. */
+#define STRING_cfUU(T,A) const char *A
+
+
+#define BYTE_cfPU(A) CFextern INTEGER_BYTE FCALLSC_QUALIFIER A
+#define DOUBLE_cfPU(A) CFextern DOUBLE_PRECISION FCALLSC_QUALIFIER A
+#if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
+#if defined (f2cFortran) && ! defined (gFortran)
+/* f2c/g77 return double from FORTRAN REAL functions. (KMCCARTY, 2005/12/09) */
+#define FLOAT_cfPU(A) CFextern DOUBLE_PRECISION FCALLSC_QUALIFIER A
+#else
+#define FLOAT_cfPU(A) CFextern FORTRAN_REAL FCALLSC_QUALIFIER A
+#endif
+#else
+#define FLOAT_cfPU(A) CFextern FLOATFUNCTIONTYPE FCALLSC_QUALIFIER A
+#endif
+#define INT_cfPU(A) CFextern int FCALLSC_QUALIFIER A
+#define LOGICAL_cfPU(A) CFextern int FCALLSC_QUALIFIER A
+#define LONG_cfPU(A) CFextern long FCALLSC_QUALIFIER A
+#define SHORT_cfPU(A) CFextern short FCALLSC_QUALIFIER A
+#define STRING_cfPU(A) CFextern void FCALLSC_QUALIFIER A
+#define VOID_cfPU(A) CFextern void FCALLSC_QUALIFIER A
+
+#define BYTE_cfE INTEGER_BYTE A0;
+#define DOUBLE_cfE DOUBLE_PRECISION A0;
+#if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
+#define FLOAT_cfE FORTRAN_REAL A0;
+#else
+#define FLOAT_cfE FORTRAN_REAL AA0; FLOATFUNCTIONTYPE A0;
+#endif
+#define INT_cfE int A0;
+#define LOGICAL_cfE int A0;
+#define LONG_cfE long A0;
+#define SHORT_cfE short A0;
+#define VOID_cfE
+#ifdef vmsFortran
+#define STRING_cfE static char AA0[1+MAX_LEN_FORTRAN_FUNCTION_STRING]; \
+ static fstring A0 = \
+ {MAX_LEN_FORTRAN_FUNCTION_STRING,DSC$K_DTYPE_T,DSC$K_CLASS_S,AA0};\
+ memset(AA0, CFORTRAN_NON_CHAR, MAX_LEN_FORTRAN_FUNCTION_STRING);\
+ *(AA0+MAX_LEN_FORTRAN_FUNCTION_STRING)='\0';
+#else
+#ifdef CRAYFortran
+#define STRING_cfE static char AA0[1+MAX_LEN_FORTRAN_FUNCTION_STRING]; \
+ static _fcd A0; *(AA0+MAX_LEN_FORTRAN_FUNCTION_STRING)='\0';\
+ memset(AA0,CFORTRAN_NON_CHAR, MAX_LEN_FORTRAN_FUNCTION_STRING);\
+ A0 = _cptofcd(AA0,MAX_LEN_FORTRAN_FUNCTION_STRING);
+#else
+/* 'cc: SC3.0.1 13 Jul 1994' barfs on char A0[0x4FE+1];
+ * char A0[0x4FE +1]; char A0[1+0x4FE]; are both OK. */
+#define STRING_cfE static char A0[1+MAX_LEN_FORTRAN_FUNCTION_STRING]; \
+ memset(A0, CFORTRAN_NON_CHAR, \
+ MAX_LEN_FORTRAN_FUNCTION_STRING); \
+ *(A0+MAX_LEN_FORTRAN_FUNCTION_STRING)='\0';
+#endif
+#endif
+/* ESTRING must use static char. array which is guaranteed to exist after
+ function returns. */
+
+/* N.B.i) The diff. for 0 (Zero) and >=1 arguments.
+ ii)That the following create an unmatched bracket, i.e. '(', which
+ must of course be matched in the call.
+ iii)Commas must be handled very carefully */
+#define INT_cfGZ(T,UN,LN) A0=CFC_(UN,LN)(
+#define VOID_cfGZ(T,UN,LN) CFC_(UN,LN)(
+#ifdef vmsFortran
+#define STRING_cfGZ(T,UN,LN) CFC_(UN,LN)(&A0
+#else
+#if defined(CRAYFortran) || defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
+#define STRING_cfGZ(T,UN,LN) CFC_(UN,LN)( A0
+#else
+#define STRING_cfGZ(T,UN,LN) CFC_(UN,LN)( A0,MAX_LEN_FORTRAN_FUNCTION_STRING
+#endif
+#endif
+
+#define INT_cfG(T,UN,LN) INT_cfGZ(T,UN,LN)
+#define VOID_cfG(T,UN,LN) VOID_cfGZ(T,UN,LN)
+#define STRING_cfG(T,UN,LN) STRING_cfGZ(T,UN,LN), /*, is only diff. from _cfG*/
+
+#define BYTEVVVVVVV_cfPP
+#define INTVVVVVVV_cfPP /* These complement FLOATVVVVVVV_cfPP. */
+#define DOUBLEVVVVVVV_cfPP
+#define LOGICALVVVVVVV_cfPP
+#define LONGVVVVVVV_cfPP
+#define SHORTVVVVVVV_cfPP
+#define PBYTE_cfPP
+#define PINT_cfPP
+#define PDOUBLE_cfPP
+#define PLOGICAL_cfPP
+#define PLONG_cfPP
+#define PSHORT_cfPP
+#define PFLOAT_cfPP FLOATVVVVVVV_cfPP
+
+#define BCF(TN,AN,C) _SEP_(TN,C,cfCOMMA) _Icf(2,B,TN,AN,0)
+#define INT_cfB(T,A) (_(T,VVVVVVV_cfTYPE)) A
+#define INTV_cfB(T,A) A
+#define INTVV_cfB(T,A) (A)[0]
+#define INTVVV_cfB(T,A) (A)[0][0]
+#define INTVVVV_cfB(T,A) (A)[0][0][0]
+#define INTVVVVV_cfB(T,A) (A)[0][0][0][0]
+#define INTVVVVVV_cfB(T,A) (A)[0][0][0][0][0]
+#define INTVVVVVVV_cfB(T,A) (A)[0][0][0][0][0][0]
+#define PINT_cfB(T,A) _(T,_cfPP)&A
+#define STRING_cfB(T,A) (char *) A
+#define STRINGV_cfB(T,A) (char *) A
+#define PSTRING_cfB(T,A) (char *) A
+#define PSTRINGV_cfB(T,A) (char *) A
+#define PVOID_cfB(T,A) (void *) A
+#define ROUTINE_cfB(T,A) (cfCAST_FUNCTION)A
+#define ZTRINGV_cfB(T,A) (char *) A
+#define PZTRINGV_cfB(T,A) (char *) A
+
+#define SCF(TN,NAME,I,A) _(TN,_cfSTR)(3,S,NAME,I,A,0,0)
+#define DEFAULT_cfS(M,I,A)
+#define LOGICAL_cfS(M,I,A)
+#define PLOGICAL_cfS(M,I,A)
+#define STRING_cfS(M,I,A) ,sizeof(A)
+#define STRINGV_cfS(M,I,A) ,( (unsigned)0xFFFF*firstindexlength(A) \
+ +secondindexlength(A))
+#define PSTRING_cfS(M,I,A) ,sizeof(A)
+#define PSTRINGV_cfS(M,I,A) STRINGV_cfS(M,I,A)
+#define ZTRINGV_cfS(M,I,A)
+#define PZTRINGV_cfS(M,I,A)
+
+#define HCF(TN,I) _(TN,_cfSTR)(3,H,cfCOMMA, H,_(C,I),0,0)
+#define HHCF(TN,I) _(TN,_cfSTR)(3,H,cfCOMMA,HH,_(C,I),0,0)
+#define HHHCF(TN,I) _(TN,_cfSTR)(3,H,cfCOLON, H,_(C,I),0,0)
+#define H_CF_SPECIAL unsigned
+#define HH_CF_SPECIAL
+#define DEFAULT_cfH(M,I,A)
+#define LOGICAL_cfH(S,U,B)
+#define PLOGICAL_cfH(S,U,B)
+#define STRING_cfH(S,U,B) _(A,S) _(U,_CF_SPECIAL) B
+#define STRINGV_cfH(S,U,B) STRING_cfH(S,U,B)
+#define PSTRING_cfH(S,U,B) STRING_cfH(S,U,B)
+#define PSTRINGV_cfH(S,U,B) STRING_cfH(S,U,B)
+#define PNSTRING_cfH(S,U,B) STRING_cfH(S,U,B)
+#define PPSTRING_cfH(S,U,B) STRING_cfH(S,U,B)
+#define ZTRINGV_cfH(S,U,B)
+#define PZTRINGV_cfH(S,U,B)
+
+/* Need VOID_cfSTR because Absoft forced function types go through _cfSTR. */
+/* No spaces inside expansion. They screws up macro catenation kludge. */
+#define VOID_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define BYTE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define DOUBLE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define FLOAT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define INT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LOGICAL_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,LOGICAL,A,B,C,D,E)
+#define LONG_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LONGLONG_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
+#define SHORT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define BYTEV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define BYTEVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define BYTEVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define BYTEVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define BYTEVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define BYTEVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define BYTEVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define DOUBLEV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define DOUBLEVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define DOUBLEVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define DOUBLEVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define DOUBLEVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define DOUBLEVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define DOUBLEVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define FLOATV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define FLOATVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define FLOATVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define FLOATVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define FLOATVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define FLOATVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define FLOATVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define INTV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define INTVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define INTVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define INTVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define INTVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define INTVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define INTVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LOGICALV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LOGICALVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LOGICALVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LOGICALVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LOGICALVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LOGICALVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LOGICALVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LONGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LONGVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LONGVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LONGVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LONGVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LONGVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LONGVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define LONGLONGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
+#define LONGLONGVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
+#define LONGLONGVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
+#define LONGLONGVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
+#define LONGLONGVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
+#define LONGLONGVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
+#define LONGLONGVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
+#define SHORTV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define SHORTVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define SHORTVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define SHORTVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define SHORTVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define SHORTVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define SHORTVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define PBYTE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define PDOUBLE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define PFLOAT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define PINT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define PLOGICAL_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PLOGICAL,A,B,C,D,E)
+#define PLONG_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define PLONGLONG_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
+#define PSHORT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define STRING_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,STRING,A,B,C,D,E)
+#define PSTRING_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PSTRING,A,B,C,D,E)
+#define STRINGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,STRINGV,A,B,C,D,E)
+#define PSTRINGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PSTRINGV,A,B,C,D,E)
+#define PNSTRING_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PNSTRING,A,B,C,D,E)
+#define PPSTRING_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PPSTRING,A,B,C,D,E)
+#define PVOID_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define ROUTINE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define SIMPLE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
+#define ZTRINGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,ZTRINGV,A,B,C,D,E)
+#define PZTRINGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PZTRINGV,A,B,C,D,E)
+#define CF_0_cfSTR(N,T,A,B,C,D,E)
+
+/* See ACF table comments, which explain why CCF was split into two. */
+#define CCF(NAME,TN,I) _(TN,_cfSTR)(5,C,NAME,I,_(A,I),_(B,I),_(C,I))
+#define DEFAULT_cfC(M,I,A,B,C)
+#define LOGICAL_cfC(M,I,A,B,C) A=C2FLOGICAL( A);
+#define PLOGICAL_cfC(M,I,A,B,C) *A=C2FLOGICAL(*A);
+#ifdef vmsFortran
+#define STRING_cfC(M,I,A,B,C) (B.clen=strlen(A),B.f.dsc$a_pointer=A, \
+ C==sizeof(char*)||C==(unsigned)(B.clen+1)?B.f.dsc$w_length=B.clen: \
+ (memset((A)+B.clen,' ',C-B.clen-1),A[B.f.dsc$w_length=C-1]='\0'));
+ /* PSTRING_cfC to beware of array A which does not contain any \0. */
+#define PSTRING_cfC(M,I,A,B,C) (B.dsc$a_pointer=A, C==sizeof(char*) ? \
+ B.dsc$w_length=strlen(A): (A[C-1]='\0',B.dsc$w_length=strlen(A), \
+ (unsigned)memset((A)+B.dsc$w_length,' ',C-B.dsc$w_length-1), B.dsc$w_length=C-1));
+#else
+#define STRING_cfC(M,I,A,B,C) (B.nombre=A,B.clen=(unsigned)strlen(A), \
+ C==sizeof(char*)||C==(unsigned)(B.clen+1)?B.flen=B.clen: \
+ (unsigned)(memset(B.nombre+B.clen,' ',C-B.clen-1),B.nombre[B.flen=C-1]='\0'));
+#define PSTRING_cfC(M,I,A,B,C) (C==sizeof(char*)? B=strlen(A): \
+ (A[C-1]='\0',B=strlen(A),memset((A)+B,' ',C-B-1),B=C-1));
+#endif
+ /* For CRAYFortran for (P)STRINGV_cfC, B.fs is set, but irrelevant. */
+#define STRINGV_cfC(M,I,A,B,C) \
+ AATRINGV_cfA( A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)
+#define PSTRINGV_cfC(M,I,A,B,C) \
+ APATRINGV_cfA( A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)
+#define ZTRINGV_cfC(M,I,A,B,C) \
+ AATRINGV_cfA( A,B, (_3(M,_ELEMS_,I))*((_3(M,_ELEMLEN_,I))+1), \
+ (_3(M,_ELEMS_,I)), (_3(M,_ELEMLEN_,I))+1 )
+#define PZTRINGV_cfC(M,I,A,B,C) \
+ APATRINGV_cfA( A,B, (_3(M,_ELEMS_,I))*((_3(M,_ELEMLEN_,I))+1), \
+ (_3(M,_ELEMS_,I)), (_3(M,_ELEMLEN_,I))+1 )
+
+#define BYTE_cfCCC(A,B) &A
+#define DOUBLE_cfCCC(A,B) &A
+#if !defined(__CF__KnR)
+#define FLOAT_cfCCC(A,B) &A
+ /* Although the VAX doesn't, at least the */
+#else /* HP and K&R mips promote float arg.'s of */
+#define FLOAT_cfCCC(A,B) &B /* unprototyped functions to double. Cannot */
+#endif /* use A here to pass the argument to FORTRAN. */
+#define INT_cfCCC(A,B) &A
+#define LOGICAL_cfCCC(A,B) &A
+#define LONG_cfCCC(A,B) &A
+#define SHORT_cfCCC(A,B) &A
+#define PBYTE_cfCCC(A,B) A
+#define PDOUBLE_cfCCC(A,B) A
+#define PFLOAT_cfCCC(A,B) A
+#define PINT_cfCCC(A,B) A
+#define PLOGICAL_cfCCC(A,B) B=A /* B used to keep a common W table. */
+#define PLONG_cfCCC(A,B) A
+#define PSHORT_cfCCC(A,B) A
+
+#define CCCF(TN,I,M) _SEP_(TN,M,cfCOMMA) _Icf(3,CC,TN,_(A,I),_(B,I))
+#define INT_cfCC(T,A,B) _(T,_cfCCC)(A,B)
+#define INTV_cfCC(T,A,B) A
+#define INTVV_cfCC(T,A,B) A
+#define INTVVV_cfCC(T,A,B) A
+#define INTVVVV_cfCC(T,A,B) A
+#define INTVVVVV_cfCC(T,A,B) A
+#define INTVVVVVV_cfCC(T,A,B) A
+#define INTVVVVVVV_cfCC(T,A,B) A
+#define PINT_cfCC(T,A,B) _(T,_cfCCC)(A,B)
+#define PVOID_cfCC(T,A,B) A
+#if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran)
+#define ROUTINE_cfCC(T,A,B) &A
+#else
+#define ROUTINE_cfCC(T,A,B) A
+#endif
+#define SIMPLE_cfCC(T,A,B) A
+#ifdef vmsFortran
+#define STRING_cfCC(T,A,B) &B.f
+#define STRINGV_cfCC(T,A,B) &B
+#define PSTRING_cfCC(T,A,B) &B
+#define PSTRINGV_cfCC(T,A,B) &B
+#else
+#ifdef CRAYFortran
+#define STRING_cfCC(T,A,B) _cptofcd(A,B.flen)
+#define STRINGV_cfCC(T,A,B) _cptofcd(B.s,B.flen)
+#define PSTRING_cfCC(T,A,B) _cptofcd(A,B)
+#define PSTRINGV_cfCC(T,A,B) _cptofcd(A,B.flen)
+#else
+#define STRING_cfCC(T,A,B) A
+#define STRINGV_cfCC(T,A,B) B.fs
+#define PSTRING_cfCC(T,A,B) A
+#define PSTRINGV_cfCC(T,A,B) B.fs
+#endif
+#endif
+#define ZTRINGV_cfCC(T,A,B) STRINGV_cfCC(T,A,B)
+#define PZTRINGV_cfCC(T,A,B) PSTRINGV_cfCC(T,A,B)
+
+#define BYTE_cfX return A0;
+#define DOUBLE_cfX return A0;
+#if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
+#define FLOAT_cfX return A0;
+#else
+#define FLOAT_cfX ASSIGNFLOAT(AA0,A0); return AA0;
+#endif
+#define INT_cfX return A0;
+#define LOGICAL_cfX return F2CLOGICAL(A0);
+#define LONG_cfX return A0;
+#define SHORT_cfX return A0;
+#define VOID_cfX return ;
+#if defined(vmsFortran) || defined(CRAYFortran)
+#define STRING_cfX return kill_trailing( \
+ kill_trailing(AA0,CFORTRAN_NON_CHAR),' ');
+#else
+#define STRING_cfX return kill_trailing( \
+ kill_trailing( A0,CFORTRAN_NON_CHAR),' ');
+#endif
+
+#define CFFUN(NAME) _(__cf__,NAME)
+
+/* Note that we don't use LN here, but we keep it for consistency. */
+#define CCALLSFFUN0(UN,LN) CFFUN(UN)()
+
+#ifdef OLD_VAXC /* Allow %CC-I-PARAMNOTUSED. */
+#pragma standard
+#endif
+
+#define CCALLSFFUN1( UN,LN,T1, A1) \
+ CCALLSFFUN5 (UN,LN,T1,CF_0,CF_0,CF_0,CF_0,A1,0,0,0,0)
+#define CCALLSFFUN2( UN,LN,T1,T2, A1,A2) \
+ CCALLSFFUN5 (UN,LN,T1,T2,CF_0,CF_0,CF_0,A1,A2,0,0,0)
+#define CCALLSFFUN3( UN,LN,T1,T2,T3, A1,A2,A3) \
+ CCALLSFFUN5 (UN,LN,T1,T2,T3,CF_0,CF_0,A1,A2,A3,0,0)
+#define CCALLSFFUN4( UN,LN,T1,T2,T3,T4, A1,A2,A3,A4)\
+ CCALLSFFUN5 (UN,LN,T1,T2,T3,T4,CF_0,A1,A2,A3,A4,0)
+#define CCALLSFFUN5( UN,LN,T1,T2,T3,T4,T5, A1,A2,A3,A4,A5) \
+ CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,0,0,0,0,0)
+#define CCALLSFFUN6( UN,LN,T1,T2,T3,T4,T5,T6, A1,A2,A3,A4,A5,A6) \
+ CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,0,0,0,0)
+#define CCALLSFFUN7( UN,LN,T1,T2,T3,T4,T5,T6,T7, A1,A2,A3,A4,A5,A6,A7) \
+ CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,0,0,0)
+#define CCALLSFFUN8( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8, A1,A2,A3,A4,A5,A6,A7,A8) \
+ CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,0,0)
+#define CCALLSFFUN9( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,A1,A2,A3,A4,A5,A6,A7,A8,A9)\
+ CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,0)
+#define CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA)\
+ CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,0,0,0,0)
+#define CCALLSFFUN11(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB)\
+ CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,0,0,0)
+#define CCALLSFFUN12(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC)\
+ CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,0,0)
+#define CCALLSFFUN13(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD)\
+ CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,0)
+
+#define CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE)\
+((CFFUN(UN)( BCF(T1,A1,0) BCF(T2,A2,1) BCF(T3,A3,1) BCF(T4,A4,1) BCF(T5,A5,1) \
+ BCF(T6,A6,1) BCF(T7,A7,1) BCF(T8,A8,1) BCF(T9,A9,1) BCF(TA,AA,1) \
+ BCF(TB,AB,1) BCF(TC,AC,1) BCF(TD,AD,1) BCF(TE,AE,1) \
+ SCF(T1,LN,1,A1) SCF(T2,LN,2,A2) SCF(T3,LN,3,A3) SCF(T4,LN,4,A4) \
+ SCF(T5,LN,5,A5) SCF(T6,LN,6,A6) SCF(T7,LN,7,A7) SCF(T8,LN,8,A8) \
+ SCF(T9,LN,9,A9) SCF(TA,LN,10,AA) SCF(TB,LN,11,AB) SCF(TC,LN,12,AC) \
+ SCF(TD,LN,13,AD) SCF(TE,LN,14,AE))))
+
+/* N.B. Create a separate function instead of using (call function, function
+value here) because in order to create the variables needed for the input
+arg.'s which may be const.'s one has to do the creation within {}, but these
+can never be placed within ()'s. Therefore one must create wrapper functions.
+gcc, on the other hand may be able to avoid the wrapper functions. */
+
+/* Prototypes are needed to correctly handle the value returned correctly. N.B.
+Can only have prototype arg.'s with difficulty, a la G... table since FORTRAN
+functions returning strings have extra arg.'s. Don't bother, since this only
+causes a compiler warning to come up when one uses FCALLSCFUNn and CCALLSFFUNn
+for the same function in the same source code. Something done by the experts in
+debugging only.*/
+
+#define PROTOCCALLSFFUN0(F,UN,LN) \
+_(F,_cfPU)( CFC_(UN,LN))(CF_NULL_PROTO); \
+static _Icf(2,U,F,CFFUN(UN),0)() {_(F,_cfE) _Icf(3,GZ,F,UN,LN) ABSOFT_cf1(F));_(F,_cfX)}
+
+#define PROTOCCALLSFFUN1( T0,UN,LN,T1) \
+ PROTOCCALLSFFUN5 (T0,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFFUN2( T0,UN,LN,T1,T2) \
+ PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFFUN3( T0,UN,LN,T1,T2,T3) \
+ PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,CF_0,CF_0)
+#define PROTOCCALLSFFUN4( T0,UN,LN,T1,T2,T3,T4) \
+ PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,T4,CF_0)
+#define PROTOCCALLSFFUN5( T0,UN,LN,T1,T2,T3,T4,T5) \
+ PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFFUN6( T0,UN,LN,T1,T2,T3,T4,T5,T6) \
+ PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFFUN7( T0,UN,LN,T1,T2,T3,T4,T5,T6,T7) \
+ PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFFUN8( T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8) \
+ PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0)
+#define PROTOCCALLSFFUN9( T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9) \
+ PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0)
+#define PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA) \
+ PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFFUN11(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB) \
+ PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)
+#define PROTOCCALLSFFUN12(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC) \
+ PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)
+#define PROTOCCALLSFFUN13(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD) \
+ PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)
+
+/* HP/UX 9.01 cc requires the blank between '_Icf(3,G,T0,UN,LN) CCCF(T1,1,0)' */
+
+#ifndef __CF__KnR
+#define PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ _(T0,_cfPU)(CFC_(UN,LN))(CF_NULL_PROTO); static _Icf(2,U,T0,CFFUN(UN),0)( \
+ CFARGT14FS(UCF,HCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) ) \
+{ CFARGT14S(VCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) _(T0,_cfE) \
+ CCF(LN,T1,1) CCF(LN,T2,2) CCF(LN,T3,3) CCF(LN,T4,4) CCF(LN,T5,5) \
+ CCF(LN,T6,6) CCF(LN,T7,7) CCF(LN,T8,8) CCF(LN,T9,9) CCF(LN,TA,10) \
+ CCF(LN,TB,11) CCF(LN,TC,12) CCF(LN,TD,13) CCF(LN,TE,14) _Icf(3,G,T0,UN,LN) \
+ CFARGT14(CCCF,JCF,ABSOFT_cf1(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)); \
+ WCF(T1,A1,1) WCF(T2,A2,2) WCF(T3,A3,3) WCF(T4,A4,4) WCF(T5,A5,5) \
+ WCF(T6,A6,6) WCF(T7,A7,7) WCF(T8,A8,8) WCF(T9,A9,9) WCF(TA,A10,10) \
+ WCF(TB,A11,11) WCF(TC,A12,12) WCF(TD,A13,13) WCF(TE,A14,14) _(T0,_cfX)}
+#else
+#define PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ _(T0,_cfPU)(CFC_(UN,LN))(CF_NULL_PROTO); static _Icf(2,U,T0,CFFUN(UN),0)( \
+ CFARGT14FS(UUCF,HHCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) ) \
+ CFARGT14FS(UUUCF,HHHCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) ; \
+{ CFARGT14S(VCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) _(T0,_cfE) \
+ CCF(LN,T1,1) CCF(LN,T2,2) CCF(LN,T3,3) CCF(LN,T4,4) CCF(LN,T5,5) \
+ CCF(LN,T6,6) CCF(LN,T7,7) CCF(LN,T8,8) CCF(LN,T9,9) CCF(LN,TA,10) \
+ CCF(LN,TB,11) CCF(LN,TC,12) CCF(LN,TD,13) CCF(LN,TE,14) _Icf(3,G,T0,UN,LN) \
+ CFARGT14(CCCF,JCF,ABSOFT_cf1(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)); \
+ WCF(T1,A1,1) WCF(T2,A2,2) WCF(T3,A3,3) WCF(T4,A4,4) WCF(T5,A5,5) \
+ WCF(T6,A6,6) WCF(T7,A7,7) WCF(T8,A8,8) WCF(T9,A9,9) WCF(TA,A10,10) \
+ WCF(TB,A11,11) WCF(TC,A12,12) WCF(TD,A13,13) WCF(TE,A14,14) _(T0,_cfX)}
+#endif
+
+/*-------------------------------------------------------------------------*/
+
+/* UTILITIES FOR FORTRAN TO CALL C ROUTINES */
+
+#ifdef OLD_VAXC /* Prevent %CC-I-PARAMNOTUSED. */
+#pragma nostandard
+#endif
+
+#if defined(vmsFortran) || defined(CRAYFortran)
+#define DCF(TN,I)
+#define DDCF(TN,I)
+#define DDDCF(TN,I)
+#else
+#define DCF(TN,I) HCF(TN,I)
+#define DDCF(TN,I) HHCF(TN,I)
+#define DDDCF(TN,I) HHHCF(TN,I)
+#endif
+
+#define QCF(TN,I) _(TN,_cfSTR)(1,Q,_(B,I), 0,0,0,0)
+#define DEFAULT_cfQ(B)
+#define LOGICAL_cfQ(B)
+#define PLOGICAL_cfQ(B)
+#define STRINGV_cfQ(B) char *B; unsigned int _(B,N);
+#define STRING_cfQ(B) char *B=NULL;
+#define PSTRING_cfQ(B) char *B=NULL;
+#define PSTRINGV_cfQ(B) STRINGV_cfQ(B)
+#define PNSTRING_cfQ(B) char *B=NULL;
+#define PPSTRING_cfQ(B)
+
+#ifdef __sgi /* Else SGI gives warning 182 contrary to its C LRM A.17.7 */
+#define ROUTINE_orig *(void**)&
+#else
+#define ROUTINE_orig (void *)
+#endif
+
+#define ROUTINE_1 ROUTINE_orig
+#define ROUTINE_2 ROUTINE_orig
+#define ROUTINE_3 ROUTINE_orig
+#define ROUTINE_4 ROUTINE_orig
+#define ROUTINE_5 ROUTINE_orig
+#define ROUTINE_6 ROUTINE_orig
+#define ROUTINE_7 ROUTINE_orig
+#define ROUTINE_8 ROUTINE_orig
+#define ROUTINE_9 ROUTINE_orig
+#define ROUTINE_10 ROUTINE_orig
+#define ROUTINE_11 ROUTINE_orig
+#define ROUTINE_12 ROUTINE_orig
+#define ROUTINE_13 ROUTINE_orig
+#define ROUTINE_14 ROUTINE_orig
+#define ROUTINE_15 ROUTINE_orig
+#define ROUTINE_16 ROUTINE_orig
+#define ROUTINE_17 ROUTINE_orig
+#define ROUTINE_18 ROUTINE_orig
+#define ROUTINE_19 ROUTINE_orig
+#define ROUTINE_20 ROUTINE_orig
+#define ROUTINE_21 ROUTINE_orig
+#define ROUTINE_22 ROUTINE_orig
+#define ROUTINE_23 ROUTINE_orig
+#define ROUTINE_24 ROUTINE_orig
+#define ROUTINE_25 ROUTINE_orig
+#define ROUTINE_26 ROUTINE_orig
+#define ROUTINE_27 ROUTINE_orig
+
+#define TCF(NAME,TN,I,M) _SEP_(TN,M,cfCOMMA) _(TN,_cfT)(NAME,I,_(A,I),_(B,I),_(C,I))
+#define BYTE_cfT(M,I,A,B,D) *A
+#define DOUBLE_cfT(M,I,A,B,D) *A
+#define FLOAT_cfT(M,I,A,B,D) *A
+#define INT_cfT(M,I,A,B,D) *A
+#define LOGICAL_cfT(M,I,A,B,D) F2CLOGICAL(*A)
+#define LONG_cfT(M,I,A,B,D) *A
+#define LONGLONG_cfT(M,I,A,B,D) *A /* added by MR December 2005 */
+#define SHORT_cfT(M,I,A,B,D) *A
+#define BYTEV_cfT(M,I,A,B,D) A
+#define DOUBLEV_cfT(M,I,A,B,D) A
+#define FLOATV_cfT(M,I,A,B,D) VOIDP A
+#define INTV_cfT(M,I,A,B,D) A
+#define LOGICALV_cfT(M,I,A,B,D) A
+#define LONGV_cfT(M,I,A,B,D) A
+#define LONGLONGV_cfT(M,I,A,B,D) A /* added by MR December 2005 */
+#define SHORTV_cfT(M,I,A,B,D) A
+#define BYTEVV_cfT(M,I,A,B,D) (void *)A /* We have to cast to void *,*/
+#define BYTEVVV_cfT(M,I,A,B,D) (void *)A /* since we don't know the */
+#define BYTEVVVV_cfT(M,I,A,B,D) (void *)A /* dimensions of the array. */
+#define BYTEVVVVV_cfT(M,I,A,B,D) (void *)A /* i.e. Unfortunately, can't */
+#define BYTEVVVVVV_cfT(M,I,A,B,D) (void *)A /* check that the type */
+#define BYTEVVVVVVV_cfT(M,I,A,B,D) (void *)A /* matches the prototype. */
+#define DOUBLEVV_cfT(M,I,A,B,D) (void *)A
+#define DOUBLEVVV_cfT(M,I,A,B,D) (void *)A
+#define DOUBLEVVVV_cfT(M,I,A,B,D) (void *)A
+#define DOUBLEVVVVV_cfT(M,I,A,B,D) (void *)A
+#define DOUBLEVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define DOUBLEVVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define FLOATVV_cfT(M,I,A,B,D) (void *)A
+#define FLOATVVV_cfT(M,I,A,B,D) (void *)A
+#define FLOATVVVV_cfT(M,I,A,B,D) (void *)A
+#define FLOATVVVVV_cfT(M,I,A,B,D) (void *)A
+#define FLOATVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define FLOATVVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define INTVV_cfT(M,I,A,B,D) (void *)A
+#define INTVVV_cfT(M,I,A,B,D) (void *)A
+#define INTVVVV_cfT(M,I,A,B,D) (void *)A
+#define INTVVVVV_cfT(M,I,A,B,D) (void *)A
+#define INTVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define INTVVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define LOGICALVV_cfT(M,I,A,B,D) (void *)A
+#define LOGICALVVV_cfT(M,I,A,B,D) (void *)A
+#define LOGICALVVVV_cfT(M,I,A,B,D) (void *)A
+#define LOGICALVVVVV_cfT(M,I,A,B,D) (void *)A
+#define LOGICALVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define LOGICALVVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define LONGVV_cfT(M,I,A,B,D) (void *)A
+#define LONGVVV_cfT(M,I,A,B,D) (void *)A
+#define LONGVVVV_cfT(M,I,A,B,D) (void *)A
+#define LONGVVVVV_cfT(M,I,A,B,D) (void *)A
+#define LONGVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define LONGVVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define LONGLONGVV_cfT(M,I,A,B,D) (void *)A /* added by MR December 2005 */
+#define LONGLONGVVV_cfT(M,I,A,B,D) (void *)A /* added by MR December 2005 */
+#define LONGLONGVVVV_cfT(M,I,A,B,D) (void *)A /* added by MR December 2005 */
+#define LONGLONGVVVVV_cfT(M,I,A,B,D) (void *)A /* added by MR December 2005 */
+#define LONGLONGVVVVVV_cfT(M,I,A,B,D) (void *)A /* added by MR December 2005 */
+#define LONGLONGVVVVVVV_cfT(M,I,A,B,D) (void *)A /* added by MR December 2005 */
+#define SHORTVV_cfT(M,I,A,B,D) (void *)A
+#define SHORTVVV_cfT(M,I,A,B,D) (void *)A
+#define SHORTVVVV_cfT(M,I,A,B,D) (void *)A
+#define SHORTVVVVV_cfT(M,I,A,B,D) (void *)A
+#define SHORTVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define SHORTVVVVVVV_cfT(M,I,A,B,D) (void *)A
+#define PBYTE_cfT(M,I,A,B,D) A
+#define PDOUBLE_cfT(M,I,A,B,D) A
+#define PFLOAT_cfT(M,I,A,B,D) VOIDP A
+#define PINT_cfT(M,I,A,B,D) A
+#define PLOGICAL_cfT(M,I,A,B,D) ((*A=F2CLOGICAL(*A)),A)
+#define PLONG_cfT(M,I,A,B,D) A
+#define PLONGLONG_cfT(M,I,A,B,D) A /* added by MR December 2005 */
+#define PSHORT_cfT(M,I,A,B,D) A
+#define PVOID_cfT(M,I,A,B,D) A
+#if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran)
+#define ROUTINE_cfT(M,I,A,B,D) _(ROUTINE_,I) (*A)
+#else
+#define ROUTINE_cfT(M,I,A,B,D) _(ROUTINE_,I) A
+#endif
+/* A == pointer to the characters
+ D == length of the string, or of an element in an array of strings
+ E == number of elements in an array of strings */
+#define TTSTR( A,B,D) \
+ ((B=_cf_malloc(D+1))[D]='\0', memcpy(B,A,D), kill_trailing(B,' '))
+#define TTTTSTR( A,B,D) (!(D<4||A[0]||A[1]||A[2]||A[3]))?NULL: \
+ memchr(A,'\0',D) ?A : TTSTR(A,B,D)
+#define TTTTSTRV( A,B,D,E) (_(B,N)=E,B=_cf_malloc(_(B,N)*(D+1)), (void *) \
+ vkill_trailing(f2cstrv(A,B,D+1, _(B,N)*(D+1)), D+1,_(B,N)*(D+1),' '))
+#ifdef vmsFortran
+#define STRING_cfT(M,I,A,B,D) TTTTSTR( A->dsc$a_pointer,B,A->dsc$w_length)
+#define STRINGV_cfT(M,I,A,B,D) TTTTSTRV(A->dsc$a_pointer, B, \
+ A->dsc$w_length , A->dsc$l_m[0])
+#define PSTRING_cfT(M,I,A,B,D) TTSTR( A->dsc$a_pointer,B,A->dsc$w_length)
+#define PPSTRING_cfT(M,I,A,B,D) A->dsc$a_pointer
+#else
+#ifdef CRAYFortran
+#define STRING_cfT(M,I,A,B,D) TTTTSTR( _fcdtocp(A),B,_fcdlen(A))
+#define STRINGV_cfT(M,I,A,B,D) TTTTSTRV(_fcdtocp(A),B,_fcdlen(A), \
+ num_elem(_fcdtocp(A),_fcdlen(A),_3(M,_STRV_A,I)))
+#define PSTRING_cfT(M,I,A,B,D) TTSTR( _fcdtocp(A),B,_fcdlen(A))
+#define PPSTRING_cfT(M,I,A,B,D) _fcdtocp(A)
+#else
+#define STRING_cfT(M,I,A,B,D) TTTTSTR( A,B,D)
+#define STRINGV_cfT(M,I,A,B,D) TTTTSTRV(A,B,D, num_elem(A,D,_3(M,_STRV_A,I)))
+#define PSTRING_cfT(M,I,A,B,D) TTSTR( A,B,D)
+#define PPSTRING_cfT(M,I,A,B,D) ((void)D, A)
+#endif
+#endif
+#define PNSTRING_cfT(M,I,A,B,D) STRING_cfT(M,I,A,B,D)
+#define PSTRINGV_cfT(M,I,A,B,D) STRINGV_cfT(M,I,A,B,D)
+#define CF_0_cfT(M,I,A,B,D)
+
+#define RCF(TN,I) _(TN,_cfSTR)(3,R,_(A,I),_(B,I),_(C,I),0,0)
+#define DEFAULT_cfR(A,B,D)
+#define LOGICAL_cfR(A,B,D)
+#define PLOGICAL_cfR(A,B,D) *A=C2FLOGICAL(*A);
+#define STRING_cfR(A,B,D) if (B) _cf_free(B);
+#define STRINGV_cfR(A,B,D) _cf_free(B);
+/* A and D as defined above for TSTRING(V) */
+#define RRRRPSTR( A,B,D) if (B) memcpy(A,B, _cfMIN(strlen(B),D)), \
+ (D>strlen(B)?memset(A+strlen(B),' ', D-strlen(B)):0), _cf_free(B);
+#define RRRRPSTRV(A,B,D) c2fstrv(B,A,D+1,(D+1)*_(B,N)), _cf_free(B);
+#ifdef vmsFortran
+#define PSTRING_cfR(A,B,D) RRRRPSTR( A->dsc$a_pointer,B,A->dsc$w_length)
+#define PSTRINGV_cfR(A,B,D) RRRRPSTRV(A->dsc$a_pointer,B,A->dsc$w_length)
+#else
+#ifdef CRAYFortran
+#define PSTRING_cfR(A,B,D) RRRRPSTR( _fcdtocp(A),B,_fcdlen(A))
+#define PSTRINGV_cfR(A,B,D) RRRRPSTRV(_fcdtocp(A),B,_fcdlen(A))
+#else
+#define PSTRING_cfR(A,B,D) RRRRPSTR( A,B,D)
+#define PSTRINGV_cfR(A,B,D) RRRRPSTRV(A,B,D)
+#endif
+#endif
+#define PNSTRING_cfR(A,B,D) PSTRING_cfR(A,B,D)
+#define PPSTRING_cfR(A,B,D)
+
+#define BYTE_cfFZ(UN,LN) INTEGER_BYTE FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#define DOUBLE_cfFZ(UN,LN) DOUBLE_PRECISION FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#define INT_cfFZ(UN,LN) int FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#define LOGICAL_cfFZ(UN,LN) int FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#define LONG_cfFZ(UN,LN) long FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#define LONGLONG_cfFZ(UN,LN) LONGLONG FCALLSC_QUALIFIER fcallsc(UN,LN)( /* added by MR December 2005 */
+#define SHORT_cfFZ(UN,LN) short FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#define VOID_cfFZ(UN,LN) void FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#ifndef __CF__KnR
+/* The void is req'd by the Apollo, to make this an ANSI function declaration.
+ The Apollo promotes K&R float functions to double. */
+#if defined (f2cFortran) && ! defined (gFortran)
+/* f2c/g77 return double from FORTRAN REAL functions. (KMCCARTY, 2005/12/09) */
+#define FLOAT_cfFZ(UN,LN) DOUBLE_PRECISION FCALLSC_QUALIFIER fcallsc(UN,LN)(void
+#else
+#define FLOAT_cfFZ(UN,LN) FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(void
+#endif
+#ifdef vmsFortran
+#define STRING_cfFZ(UN,LN) void FCALLSC_QUALIFIER fcallsc(UN,LN)(fstring *AS
+#else
+#ifdef CRAYFortran
+#define STRING_cfFZ(UN,LN) void FCALLSC_QUALIFIER fcallsc(UN,LN)(_fcd AS
+#else
+#if defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
+#define STRING_cfFZ(UN,LN) void FCALLSC_QUALIFIER fcallsc(UN,LN)(char *AS
+#else
+#define STRING_cfFZ(UN,LN) void FCALLSC_QUALIFIER fcallsc(UN,LN)(char *AS, unsigned D0
+#endif
+#endif
+#endif
+#else
+#if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
+#if defined (f2cFortran) && ! defined (gFortran)
+/* f2c/g77 return double from FORTRAN REAL functions. (KMCCARTY, 2005/12/09) */
+#define FLOAT_cfFZ(UN,LN) DOUBLE_PRECISION FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#else
+#define FLOAT_cfFZ(UN,LN) FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#endif
+#else
+#define FLOAT_cfFZ(UN,LN) FLOATFUNCTIONTYPE FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#endif
+#if defined(vmsFortran) || defined(CRAYFortran) || defined(AbsoftUNIXFortran)
+#define STRING_cfFZ(UN,LN) void FCALLSC_QUALIFIER fcallsc(UN,LN)(AS
+#else
+#define STRING_cfFZ(UN,LN) void FCALLSC_QUALIFIER fcallsc(UN,LN)(AS, D0
+#endif
+#endif
+
+#define BYTE_cfF(UN,LN) BYTE_cfFZ(UN,LN)
+#define DOUBLE_cfF(UN,LN) DOUBLE_cfFZ(UN,LN)
+#ifndef __CF_KnR
+#if defined (f2cFortran) && ! defined (gFortran)
+/* f2c/g77 return double from FORTRAN REAL functions. (KMCCARTY, 2005/12/09) */
+#define FLOAT_cfF(UN,LN) DOUBLE_PRECISION FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#else
+#define FLOAT_cfF(UN,LN) FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(
+#endif
+#else
+#define FLOAT_cfF(UN,LN) FLOAT_cfFZ(UN,LN)
+#endif
+#define INT_cfF(UN,LN) INT_cfFZ(UN,LN)
+#define LOGICAL_cfF(UN,LN) LOGICAL_cfFZ(UN,LN)
+#define LONG_cfF(UN,LN) LONG_cfFZ(UN,LN)
+#define LONGLONG_cfF(UN,LN) LONGLONG_cfFZ(UN,LN) /* added by MR December 2005 */
+#define SHORT_cfF(UN,LN) SHORT_cfFZ(UN,LN)
+#define VOID_cfF(UN,LN) VOID_cfFZ(UN,LN)
+#define STRING_cfF(UN,LN) STRING_cfFZ(UN,LN),
+
+#define INT_cfFF
+#define VOID_cfFF
+#ifdef vmsFortran
+#define STRING_cfFF fstring *AS;
+#else
+#ifdef CRAYFortran
+#define STRING_cfFF _fcd AS;
+#else
+#define STRING_cfFF char *AS; unsigned D0;
+#endif
+#endif
+
+#define INT_cfL A0=
+#define STRING_cfL A0=
+#define VOID_cfL
+
+#define INT_cfK
+#define VOID_cfK
+/* KSTRING copies the string into the position provided by the caller. */
+#ifdef vmsFortran
+#define STRING_cfK \
+ memcpy(AS->dsc$a_pointer,A0,_cfMIN(AS->dsc$w_length,(A0==NULL?0:strlen(A0))));\
+ AS->dsc$w_length>(A0==NULL?0:strlen(A0))? \
+ memset(AS->dsc$a_pointer+(A0==NULL?0:strlen(A0)),' ', \
+ AS->dsc$w_length-(A0==NULL?0:strlen(A0))):0;
+#else
+#ifdef CRAYFortran
+#define STRING_cfK \
+ memcpy(_fcdtocp(AS),A0, _cfMIN(_fcdlen(AS),(A0==NULL?0:strlen(A0))) ); \
+ _fcdlen(AS)>(A0==NULL?0:strlen(A0))? \
+ memset(_fcdtocp(AS)+(A0==NULL?0:strlen(A0)),' ', \
+ _fcdlen(AS)-(A0==NULL?0:strlen(A0))):0;
+#else
+#define STRING_cfK memcpy(AS,A0, _cfMIN(D0,(A0==NULL?0:strlen(A0))) ); \
+ D0>(A0==NULL?0:strlen(A0))?memset(AS+(A0==NULL?0:strlen(A0)), \
+ ' ', D0-(A0==NULL?0:strlen(A0))):0;
+#endif
+#endif
+
+/* Note that K.. and I.. can't be combined since K.. has to access data before
+R.., in order for functions returning strings which are also passed in as
+arguments to work correctly. Note that R.. frees and hence may corrupt the
+string. */
+#define BYTE_cfI return A0;
+#define DOUBLE_cfI return A0;
+#if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
+#define FLOAT_cfI return A0;
+#else
+#define FLOAT_cfI RETURNFLOAT(A0);
+#endif
+#define INT_cfI return A0;
+#ifdef hpuxFortran800
+/* Incredibly, functions must return true as 1, elsewhere .true.==0x01000000. */
+#define LOGICAL_cfI return ((A0)?1:0);
+#else
+#define LOGICAL_cfI return C2FLOGICAL(A0);
+#endif
+#define LONG_cfI return A0;
+#define LONGLONG_cfI return A0; /* added by MR December 2005 */
+#define SHORT_cfI return A0;
+#define STRING_cfI return ;
+#define VOID_cfI return ;
+
+#ifdef OLD_VAXC /* Allow %CC-I-PARAMNOTUSED. */
+#pragma standard
+#endif
+
+#define FCALLSCSUB0( CN,UN,LN) FCALLSCFUN0(VOID,CN,UN,LN)
+#define FCALLSCSUB1( CN,UN,LN,T1) FCALLSCFUN1(VOID,CN,UN,LN,T1)
+#define FCALLSCSUB2( CN,UN,LN,T1,T2) FCALLSCFUN2(VOID,CN,UN,LN,T1,T2)
+#define FCALLSCSUB3( CN,UN,LN,T1,T2,T3) FCALLSCFUN3(VOID,CN,UN,LN,T1,T2,T3)
+#define FCALLSCSUB4( CN,UN,LN,T1,T2,T3,T4) \
+ FCALLSCFUN4(VOID,CN,UN,LN,T1,T2,T3,T4)
+#define FCALLSCSUB5( CN,UN,LN,T1,T2,T3,T4,T5) \
+ FCALLSCFUN5(VOID,CN,UN,LN,T1,T2,T3,T4,T5)
+#define FCALLSCSUB6( CN,UN,LN,T1,T2,T3,T4,T5,T6) \
+ FCALLSCFUN6(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6)
+#define FCALLSCSUB7( CN,UN,LN,T1,T2,T3,T4,T5,T6,T7) \
+ FCALLSCFUN7(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7)
+#define FCALLSCSUB8( CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8) \
+ FCALLSCFUN8(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8)
+#define FCALLSCSUB9( CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9) \
+ FCALLSCFUN9(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9)
+#define FCALLSCSUB10(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA) \
+ FCALLSCFUN10(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA)
+#define FCALLSCSUB11(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB) \
+ FCALLSCFUN11(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB)
+#define FCALLSCSUB12(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC) \
+ FCALLSCFUN12(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC)
+#define FCALLSCSUB13(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD) \
+ FCALLSCFUN13(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD)
+#define FCALLSCSUB14(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ FCALLSCFUN14(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
+#define FCALLSCSUB15(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF) \
+ FCALLSCFUN15(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF)
+#define FCALLSCSUB16(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG) \
+ FCALLSCFUN16(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG)
+#define FCALLSCSUB17(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH) \
+ FCALLSCFUN17(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH)
+#define FCALLSCSUB18(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI) \
+ FCALLSCFUN18(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI)
+#define FCALLSCSUB19(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ) \
+ FCALLSCFUN19(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ)
+#define FCALLSCSUB20(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
+ FCALLSCFUN20(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
+#define FCALLSCSUB21(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL) \
+ FCALLSCFUN21(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL)
+#define FCALLSCSUB22(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM) \
+ FCALLSCFUN22(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM)
+#define FCALLSCSUB23(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN) \
+ FCALLSCFUN23(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN)
+#define FCALLSCSUB24(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO) \
+ FCALLSCFUN24(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO)
+#define FCALLSCSUB25(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP) \
+ FCALLSCFUN25(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP)
+#define FCALLSCSUB26(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ) \
+ FCALLSCFUN26(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ)
+#define FCALLSCSUB27(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ FCALLSCFUN27(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
+
+
+#define FCALLSCFUN1( T0,CN,UN,LN,T1) \
+ FCALLSCFUN5 (T0,CN,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN2( T0,CN,UN,LN,T1,T2) \
+ FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,CF_0,CF_0,CF_0)
+#define FCALLSCFUN3( T0,CN,UN,LN,T1,T2,T3) \
+ FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,T3,CF_0,CF_0)
+#define FCALLSCFUN4( T0,CN,UN,LN,T1,T2,T3,T4) \
+ FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,T3,T4,CF_0)
+#define FCALLSCFUN5( T0,CN,UN,LN,T1,T2,T3,T4,T5) \
+ FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN6( T0,CN,UN,LN,T1,T2,T3,T4,T5,T6) \
+ FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN7( T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7) \
+ FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0)
+#define FCALLSCFUN8( T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8) \
+ FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0)
+#define FCALLSCFUN9( T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9) \
+ FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0)
+#define FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA) \
+ FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN11(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB) \
+ FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)
+#define FCALLSCFUN12(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC) \
+ FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)
+#define FCALLSCFUN13(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD) \
+ FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)
+
+
+#define FCALLSCFUN15(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF) \
+ FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN16(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG) \
+ FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN17(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH) \
+ FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0)
+#define FCALLSCFUN18(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI) \
+ FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0)
+#define FCALLSCFUN19(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ) \
+ FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0)
+#define FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
+ FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN21(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL) \
+ FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN22(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM) \
+ FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN23(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN) \
+ FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0)
+#define FCALLSCFUN24(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO) \
+ FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0)
+#define FCALLSCFUN25(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP) \
+ FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0)
+#define FCALLSCFUN26(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ) \
+ FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0)
+
+
+#ifndef __CF__KnR
+#define FCALLSCFUN0(T0,CN,UN,LN) CFextern _(T0,_cfFZ)(UN,LN) ABSOFT_cf2(T0)) \
+ {_Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN(); _Icf(0,K,T0,0,0) _(T0,_cfI)}
+
+#define FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ CFextern _(T0,_cfF)(UN,LN) \
+ CFARGT14(NCF,DCF,ABSOFT_cf2(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) ) \
+ { CFARGT14S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN( TCF(LN,T1,1,0) TCF(LN,T2,2,1) \
+ TCF(LN,T3,3,1) TCF(LN,T4,4,1) TCF(LN,T5,5,1) TCF(LN,T6,6,1) TCF(LN,T7,7,1) \
+ TCF(LN,T8,8,1) TCF(LN,T9,9,1) TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
+ TCF(LN,TD,13,1) TCF(LN,TE,14,1) ); _Icf(0,K,T0,0,0) \
+ CFARGT14S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) _(T0,_cfI) }
+
+#define FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ CFextern _(T0,_cfF)(UN,LN) \
+ CFARGT27(NCF,DCF,ABSOFT_cf2(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) ) \
+ { CFARGT27S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN( TCF(LN,T1,1,0) TCF(LN,T2,2,1) \
+ TCF(LN,T3,3,1) TCF(LN,T4,4,1) TCF(LN,T5,5,1) TCF(LN,T6,6,1) TCF(LN,T7,7,1) \
+ TCF(LN,T8,8,1) TCF(LN,T9,9,1) TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
+ TCF(LN,TD,13,1) TCF(LN,TE,14,1) TCF(LN,TF,15,1) TCF(LN,TG,16,1) TCF(LN,TH,17,1) \
+ TCF(LN,TI,18,1) TCF(LN,TJ,19,1) TCF(LN,TK,20,1) TCF(LN,TL,21,1) TCF(LN,TM,22,1) \
+ TCF(LN,TN,23,1) TCF(LN,TO,24,1) TCF(LN,TP,25,1) TCF(LN,TQ,26,1) TCF(LN,TR,27,1) ); _Icf(0,K,T0,0,0) \
+ CFARGT27S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) _(T0,_cfI) }
+
+#else
+#define FCALLSCFUN0(T0,CN,UN,LN) CFextern _(T0,_cfFZ)(UN,LN) ABSOFT_cf3(T0)) _Icf(0,FF,T0,0,0)\
+ {_Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN(); _Icf(0,K,T0,0,0) _(T0,_cfI)}
+
+#define FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ CFextern _(T0,_cfF)(UN,LN) \
+ CFARGT14(NNCF,DDCF,ABSOFT_cf3(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)) _Icf(0,FF,T0,0,0) \
+ CFARGT14FS(NNNCF,DDDCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE); \
+ { CFARGT14S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
+ _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN( TCF(LN,T1,1,0) TCF(LN,T2,2,1) \
+ TCF(LN,T3,3,1) TCF(LN,T4,4,1) TCF(LN,T5,5,1) TCF(LN,T6,6,1) TCF(LN,T7,7,1) \
+ TCF(LN,T8,8,1) TCF(LN,T9,9,1) TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
+ TCF(LN,TD,13,1) TCF(LN,TE,14,1) ); _Icf(0,K,T0,0,0) \
+ CFARGT14S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) _(T0,_cfI)}
+
+#define FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ CFextern _(T0,_cfF)(UN,LN) \
+ CFARGT27(NNCF,DDCF,ABSOFT_cf3(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)) _Icf(0,FF,T0,0,0) \
+ CFARGT27FS(NNNCF,DDDCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR); \
+ { CFARGT27S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
+ _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN( TCF(LN,T1,1,0) TCF(LN,T2,2,1) \
+ TCF(LN,T3,3,1) TCF(LN,T4,4,1) TCF(LN,T5,5,1) TCF(LN,T6,6,1) TCF(LN,T7,7,1) \
+ TCF(LN,T8,8,1) TCF(LN,T9,9,1) TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
+ TCF(LN,TD,13,1) TCF(LN,TE,14,1) TCF(LN,TF,15,1) TCF(LN,TG,16,1) TCF(LN,TH,17,1) \
+ TCF(LN,TI,18,1) TCF(LN,TJ,19,1) TCF(LN,TK,20,1) TCF(LN,TL,21,1) TCF(LN,TM,22,1) \
+ TCF(LN,TN,23,1) TCF(LN,TO,24,1) TCF(LN,TP,25,1) TCF(LN,TQ,26,1) TCF(LN,TR,27,1) ); _Icf(0,K,T0,0,0) \
+ CFARGT27S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) _(T0,_cfI)}
+
+#endif
+
+// clang-format on
+
+#endif /* __CFORTRAN_LOADED */
+#endif
+// Automatically generated by make_fint.c, don't edit!
+
+// clang-format off
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#ifndef CDI_H_
+#include "cdi.h"
+#endif
+
+#ifdef HAVE_CF_INTERFACE
+
+#include <limits.h>
+#include <assert.h>
+
+#ifndef __CFORTRAN_LOADED
+# if defined __clang__
+# pragma GCC diagnostic push
+# pragma GCC diagnostic ignored "-Wreserved-id-macro"
+# endif
+# include "cfortran.h"
+# if defined __clang__
+# pragma GCC diagnostic pop
+# endif
+#endif
+/* These functions are meant to be called from Fortran and don't
+ * need an interface declaration in a C header. */
+#ifdef __clang__
+# pragma GCC diagnostic push
+# pragma GCC diagnostic ignored "-Wmissing-prototypes"
+#endif
+
+#ifdef CDI_H_
+
+static inline
+int SizeType_c2f(SizeType value_SizeType)
+{
+ assert(value_SizeType < INT_MAX);
+ return (int) value_SizeType;
+}
+
+#endif
+
+/* Start of fortran interface for the following routines (make_fint.c) */
+
+
+/* Byte order */
+
+
+/* Error identifier */
+
+
+/* File types */
+
+
+/* Compatibility defines for release 1.8.3 (obsolete defines) */
+
+
+/* Protocols (in filename/URI) */
+
+
+/* Compress types */
+
+
+/* external data types */
+
+
+/* Compatibility defines for release 1.8.3 (obsolete defines) */
+
+
+/* internal data types */
+
+
+/* Chunk types */
+
+
+/* GRID types */
+
+
+/* ZAXIS types */
+
+
+/* SUBTYPE types */
+
+
+/* Data structure defining a key-value search, possibly with multiple
+ key-value pairs in combination.
+
+ Currently, only multiple pairs combined by AND are supported. */
+
+
+/* TIME types */
+
+
+/* TSTEP types */
+
+
+/* TAXIS types */
+
+
+/* TUNIT types */
+
+
+/* CALENDAR types */
+
+
+/* number of unsigned char needed to store UUID */
+
+
+/* Structs that are used to return data to the user */
+
+
+/* Opaque types */
+
+
+/* CDI control routines */
+
+FCALLSCSUB0 (cdiReset, CDIRESET, cdireset)
+FCALLSCFUN1 (STRING, cdiStringError, CDISTRINGERROR, cdistringerror, INT)
+FCALLSCSUB1 (cdiDebug, CDIDEBUG, cdidebug, INT)
+FCALLSCFUN0 (STRING, cdiLibraryVersion, CDILIBRARYVERSION, cdilibraryversion)
+FCALLSCSUB0 (cdiPrintVersion, CDIPRINTVERSION, cdiprintversion)
+FCALLSCFUN1 (INT, cdiHaveFiletype, CDIHAVEFILETYPE, cdihavefiletype, INT)
+FCALLSCSUB1 (cdiDefMissval, CDIDEFMISSVAL, cdidefmissval, DOUBLE)
+FCALLSCFUN0 (DOUBLE, cdiInqMissval, CDIINQMISSVAL, cdiinqmissval)
+FCALLSCSUB2 (cdiDefGlobal, CDIDEFGLOBAL, cdidefglobal, STRING, INT)
+FCALLSCFUN0 (INT, namespaceNew, NAMESPACENEW, namespacenew)
+FCALLSCSUB1 (namespaceSetActive, NAMESPACESETACTIVE, namespacesetactive, INT)
+FCALLSCFUN0 (INT, namespaceGetActive, NAMESPACEGETACTIVE, namespacegetactive)
+FCALLSCSUB1 (namespaceDelete, NAMESPACEDELETE, namespacedelete, INT)
+
+/* CDI converter routines */
+
+
+/* parameter */
+
+FCALLSCSUB3 (cdiParamToString, CDIPARAMTOSTRING, cdiparamtostring, INT, PSTRING, INT)
+FCALLSCSUB4 (cdiDecodeParam, CDIDECODEPARAM, cdidecodeparam, INT, PINT, PINT, PINT)
+FCALLSCFUN3 (INT, cdiEncodeParam, CDIENCODEPARAM, cdiencodeparam, INT, INT, INT)
+
+/* date format: YYYYMMDD */
+
+
+/* time format: hhmmss */
+
+FCALLSCSUB4 (cdiDecodeDate, CDIDECODEDATE, cdidecodedate, INT, PINT, PINT, PINT)
+FCALLSCFUN3 (INT, cdiEncodeDate, CDIENCODEDATE, cdiencodedate, INT, INT, INT)
+FCALLSCSUB4 (cdiDecodeTime, CDIDECODETIME, cdidecodetime, INT, PINT, PINT, PINT)
+FCALLSCFUN3 (INT, cdiEncodeTime, CDIENCODETIME, cdiencodetime, INT, INT, INT)
+
+/* STREAM control routines */
+
+FCALLSCFUN2 (INT, cdiGetFiletype, CDIGETFILETYPE, cdigetfiletype, STRING, PINT)
+FCALLSCFUN1 (INT, streamOpenRead, STREAMOPENREAD, streamopenread, STRING)
+FCALLSCFUN2 (INT, streamOpenWrite, STREAMOPENWRITE, streamopenwrite, STRING, INT)
+FCALLSCFUN1 (INT, streamOpenAppend, STREAMOPENAPPEND, streamopenappend, STRING)
+FCALLSCSUB1 (streamClose, STREAMCLOSE, streamclose, INT)
+FCALLSCSUB1 (streamSync, STREAMSYNC, streamsync, INT)
+FCALLSCSUB2 (streamDefMaxSteps, STREAMDEFMAXSTEPS, streamdefmaxsteps, INT, INT)
+FCALLSCSUB2 (streamDefNumWorker, STREAMDEFNUMWORKER, streamdefnumworker, INT, INT)
+FCALLSCFUN1 (INT, streamInqNumSteps, STREAMINQNUMSTEPS, streaminqnumsteps, INT)
+FCALLSCSUB2 (streamDefVlist, STREAMDEFVLIST, streamdefvlist, INT, INT)
+FCALLSCFUN1 (INT, streamInqVlist, STREAMINQVLIST, streaminqvlist, INT)
+FCALLSCFUN1 (INT, streamInqFiletype, STREAMINQFILETYPE, streaminqfiletype, INT)
+FCALLSCSUB2 (streamDefByteorder, STREAMDEFBYTEORDER, streamdefbyteorder, INT, INT)
+FCALLSCFUN1 (INT, streamInqByteorder, STREAMINQBYTEORDER, streaminqbyteorder, INT)
+FCALLSCSUB2 (streamDefShuffle, STREAMDEFSHUFFLE, streamdefshuffle, INT, INT)
+FCALLSCSUB4 (streamDefFilter, STREAMDEFFILTER, streamdeffilter, INT, INT, INT, PINT)
+FCALLSCSUB2 (streamDefCompType, STREAMDEFCOMPTYPE, streamdefcomptype, INT, INT)
+FCALLSCFUN1 (INT, streamInqCompType, STREAMINQCOMPTYPE, streaminqcomptype, INT)
+FCALLSCSUB2 (streamDefCompLevel, STREAMDEFCOMPLEVEL, streamdefcomplevel, INT, INT)
+FCALLSCFUN1 (INT, streamInqCompLevel, STREAMINQCOMPLEVEL, streaminqcomplevel, INT)
+FCALLSCFUN2 (INT, streamDefTimestep, STREAMDEFTIMESTEP, streamdeftimestep, INT, INT)
+FCALLSCFUN2 (INT, streamInqTimestep, STREAMINQTIMESTEP, streaminqtimestep, INT, INT)
+FCALLSCFUN1 (INT, streamInqCurTimestepID, STREAMINQCURTIMESTEPID, streaminqcurtimestepid, INT)
+FCALLSCFUN1 (STRING, streamFilename, STREAMFILENAME, streamfilename, INT)
+FCALLSCFUN1 (STRING, streamFilesuffix, STREAMFILESUFFIX, streamfilesuffix, INT)
+static int streamNvals_fwrap(int streamID)
+{
+ SizeType v;
+ v = streamNvals(streamID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, streamNvals_fwrap, STREAMNVALS, streamnvals, INT)
+FCALLSCFUN1 (INT, streamInqNvars, STREAMINQNVARS, streaminqnvars, INT)
+
+/* STREAM var I/O routines (random access) */
+
+static void streamWriteVar_fwrap(int streamID, int varID, const double data[], int numMissVals)
+{
+ streamWriteVar(streamID, varID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB4 (streamWriteVar_fwrap, STREAMWRITEVAR, streamwritevar, INT, INT, DOUBLEV, INT)
+static void streamWriteVarF_fwrap(int streamID, int varID, const float data[], int numMissVals)
+{
+ streamWriteVarF(streamID, varID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB4 (streamWriteVarF_fwrap, STREAMWRITEVARF, streamwritevarf, INT, INT, FLOATV, INT)
+static void streamReadVar_fwrap(int streamID, int varID, double data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadVar(streamID, varID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB4 (streamReadVar_fwrap, STREAMREADVAR, streamreadvar, INT, INT, DOUBLEV, PINT)
+static void streamReadVarF_fwrap(int streamID, int varID, float data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadVarF(streamID, varID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB4 (streamReadVarF_fwrap, STREAMREADVARF, streamreadvarf, INT, INT, FLOATV, PINT)
+static void streamWriteVarSlice_fwrap(int streamID, int varID, int levelID, const double data[], int numMissVals)
+{
+ streamWriteVarSlice(streamID, varID, levelID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB5 (streamWriteVarSlice_fwrap, STREAMWRITEVARSLICE, streamwritevarslice, INT, INT, INT, DOUBLEV, INT)
+static void streamWriteVarSliceF_fwrap(int streamID, int varID, int levelID, const float data[], int numMissVals)
+{
+ streamWriteVarSliceF(streamID, varID, levelID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB5 (streamWriteVarSliceF_fwrap, STREAMWRITEVARSLICEF, streamwritevarslicef, INT, INT, INT, FLOATV, INT)
+static void streamReadVarSlice_fwrap(int streamID, int varID, int levelID, double data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadVarSlice(streamID, varID, levelID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB5 (streamReadVarSlice_fwrap, STREAMREADVARSLICE, streamreadvarslice, INT, INT, INT, DOUBLEV, PINT)
+static void streamReadVarSliceF_fwrap(int streamID, int varID, int levelID, float data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadVarSliceF(streamID, varID, levelID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB5 (streamReadVarSliceF_fwrap, STREAMREADVARSLICEF, streamreadvarslicef, INT, INT, INT, FLOATV, PINT)
+static void streamWriteVarChunk_fwrap(int streamID, int varID, const int rect[][2], const double data[], int numMissVals)
+{
+ streamWriteVarChunk(streamID, varID, rect, data, (SizeType)numMissVals);
+}
+FCALLSCSUB5 (streamWriteVarChunk_fwrap, STREAMWRITEVARCHUNK, streamwritevarchunk, INT, INT, INTVV, DOUBLEV, INT)
+static void streamWriteVarChunkF_fwrap(int streamID, int varID, const int rect[][2], const float data[], int numMissVals)
+{
+ streamWriteVarChunkF(streamID, varID, rect, data, (SizeType)numMissVals);
+}
+FCALLSCSUB5 (streamWriteVarChunkF_fwrap, STREAMWRITEVARCHUNKF, streamwritevarchunkf, INT, INT, INTVV, FLOATV, INT)
+
+/* STREAM record I/O routines (sequential access) */
+
+FCALLSCSUB3 (streamDefRecord, STREAMDEFRECORD, streamdefrecord, INT, INT, INT)
+FCALLSCSUB3 (streamInqRecord, STREAMINQRECORD, streaminqrecord, INT, PINT, PINT)
+static void streamWriteRecord_fwrap(int streamID, const double data[], int numMissVals)
+{
+ streamWriteRecord(streamID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB3 (streamWriteRecord_fwrap, STREAMWRITERECORD, streamwriterecord, INT, DOUBLEV, INT)
+static void streamWriteRecordF_fwrap(int streamID, const float data[], int numMissVals)
+{
+ streamWriteRecordF(streamID, data, (SizeType)numMissVals);
+}
+FCALLSCSUB3 (streamWriteRecordF_fwrap, STREAMWRITERECORDF, streamwriterecordf, INT, FLOATV, INT)
+static void streamReadRecord_fwrap(int streamID, double data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadRecord(streamID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB3 (streamReadRecord_fwrap, STREAMREADRECORD, streamreadrecord, INT, DOUBLEV, PINT)
+static void streamReadRecordF_fwrap(int streamID, float data[], int *numMissVals)
+{
+ SizeType numMissVals_SizeType;
+ streamReadRecordF(streamID, data, &numMissVals_SizeType);
+ assert(numMissVals_SizeType < INT_MAX);
+ *numMissVals = numMissVals_SizeType;
+}
+FCALLSCSUB3 (streamReadRecordF_fwrap, STREAMREADRECORDF, streamreadrecordf, INT, FLOATV, PINT)
+FCALLSCSUB2 (streamCopyRecord, STREAMCOPYRECORD, streamcopyrecord, INT, INT)
+
+/* File driven I/O (may yield better performance than using the streamXXX functions) */
+
+
+/* Creation & Destruction */
+
+
+/* Advancing an iterator */
+
+
+/* Introspecting metadata */
+
+
+/* All outXXX arguments to these functions may be NULL. */
+
+
+/* Reading data */
+
+
+/* TODO[NH]: Add functions to read partial fields. */
+
+
+/* Direct access to grib fields */
+
+
+/* Callthroughs to GRIB-API */
+
+
+/* Convenience functions for accessing GRIB-API keys */
+
+
+/* VLIST routines */
+
+FCALLSCFUN0 (INT, vlistCreate, VLISTCREATE, vlistcreate)
+FCALLSCSUB1 (vlistDestroy, VLISTDESTROY, vlistdestroy, INT)
+FCALLSCFUN1 (INT, vlistDuplicate, VLISTDUPLICATE, vlistduplicate, INT)
+FCALLSCSUB2 (vlistCopy, VLISTCOPY, vlistcopy, INT, INT)
+FCALLSCSUB2 (vlistCopyFlag, VLISTCOPYFLAG, vlistcopyflag, INT, INT)
+FCALLSCSUB1 (vlistClearFlag, VLISTCLEARFLAG, vlistclearflag, INT)
+FCALLSCSUB2 (vlistCat, VLISTCAT, vlistcat, INT, INT)
+FCALLSCSUB2 (vlistMerge, VLISTMERGE, vlistmerge, INT, INT)
+FCALLSCSUB1 (vlistPrint, VLISTPRINT, vlistprint, INT)
+FCALLSCFUN1 (INT, vlistNumber, VLISTNUMBER, vlistnumber, INT)
+FCALLSCFUN1 (INT, vlistNvars, VLISTNVARS, vlistnvars, INT)
+FCALLSCFUN1 (INT, vlistNgrids, VLISTNGRIDS, vlistngrids, INT)
+FCALLSCFUN1 (INT, vlistNzaxis, VLISTNZAXIS, vlistnzaxis, INT)
+FCALLSCFUN1 (INT, vlistNsubtypes, VLISTNSUBTYPES, vlistnsubtypes, INT)
+FCALLSCSUB2 (vlistDefNtsteps, VLISTDEFNTSTEPS, vlistdefntsteps, INT, INT)
+FCALLSCFUN1 (INT, vlistNtsteps, VLISTNTSTEPS, vlistntsteps, INT)
+static int vlistGridsizeMax_fwrap(int vlistID)
+{
+ SizeType v;
+ v = vlistGridsizeMax(vlistID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, vlistGridsizeMax_fwrap, VLISTGRIDSIZEMAX, vlistgridsizemax, INT)
+FCALLSCFUN2 (INT, vlistGrid, VLISTGRID, vlistgrid, INT, INT)
+FCALLSCFUN2 (INT, vlistGridIndex, VLISTGRIDINDEX, vlistgridindex, INT, INT)
+FCALLSCSUB3 (vlistChangeGridIndex, VLISTCHANGEGRIDINDEX, vlistchangegridindex, INT, INT, INT)
+FCALLSCSUB3 (vlistChangeGrid, VLISTCHANGEGRID, vlistchangegrid, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistZaxis, VLISTZAXIS, vlistzaxis, INT, INT)
+FCALLSCFUN2 (INT, vlistZaxisIndex, VLISTZAXISINDEX, vlistzaxisindex, INT, INT)
+FCALLSCSUB3 (vlistChangeZaxisIndex, VLISTCHANGEZAXISINDEX, vlistchangezaxisindex, INT, INT, INT)
+FCALLSCSUB3 (vlistChangeZaxis, VLISTCHANGEZAXIS, vlistchangezaxis, INT, INT, INT)
+FCALLSCFUN1 (INT, vlistNrecs, VLISTNRECS, vlistnrecs, INT)
+FCALLSCFUN2 (INT, vlistSubtype, VLISTSUBTYPE, vlistsubtype, INT, INT)
+FCALLSCFUN2 (INT, vlistSubtypeIndex, VLISTSUBTYPEINDEX, vlistsubtypeindex, INT, INT)
+FCALLSCSUB2 (vlistDefTaxis, VLISTDEFTAXIS, vlistdeftaxis, INT, INT)
+FCALLSCFUN1 (INT, vlistInqTaxis, VLISTINQTAXIS, vlistinqtaxis, INT)
+FCALLSCSUB2 (vlistDefTable, VLISTDEFTABLE, vlistdeftable, INT, INT)
+FCALLSCFUN1 (INT, vlistInqTable, VLISTINQTABLE, vlistinqtable, INT)
+FCALLSCSUB2 (vlistDefInstitut, VLISTDEFINSTITUT, vlistdefinstitut, INT, INT)
+FCALLSCFUN1 (INT, vlistInqInstitut, VLISTINQINSTITUT, vlistinqinstitut, INT)
+FCALLSCSUB2 (vlistDefModel, VLISTDEFMODEL, vlistdefmodel, INT, INT)
+FCALLSCFUN1 (INT, vlistInqModel, VLISTINQMODEL, vlistinqmodel, INT)
+
+/* VLIST VAR routines */
+
+FCALLSCFUN5 (INT, vlistDefVarTiles, VLISTDEFVARTILES, vlistdefvartiles, INT, INT, INT, INT, INT)
+FCALLSCFUN4 (INT, vlistDefVar, VLISTDEFVAR, vlistdefvar, INT, INT, INT, INT)
+FCALLSCSUB3 (vlistChangeVarGrid, VLISTCHANGEVARGRID, vlistchangevargrid, INT, INT, INT)
+FCALLSCSUB3 (vlistChangeVarZaxis, VLISTCHANGEVARZAXIS, vlistchangevarzaxis, INT, INT, INT)
+FCALLSCSUB5 (vlistInqVar, VLISTINQVAR, vlistinqvar, INT, INT, PINT, PINT, PINT)
+FCALLSCFUN2 (INT, vlistInqVarGrid, VLISTINQVARGRID, vlistinqvargrid, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarZaxis, VLISTINQVARZAXIS, vlistinqvarzaxis, INT, INT)
+
+/* used in MPIOM */
+
+FCALLSCFUN2 (INT, vlistInqVarID, VLISTINQVARID, vlistinqvarid, INT, INT)
+FCALLSCSUB3 (vlistDefVarTimetype, VLISTDEFVARTIMETYPE, vlistdefvartimetype, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarTimetype, VLISTINQVARTIMETYPE, vlistinqvartimetype, INT, INT)
+FCALLSCSUB3 (vlistDefVarTsteptype, VLISTDEFVARTSTEPTYPE, vlistdefvartsteptype, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarTsteptype, VLISTINQVARTSTEPTYPE, vlistinqvartsteptype, INT, INT)
+FCALLSCSUB3 (vlistDefVarCompType, VLISTDEFVARCOMPTYPE, vlistdefvarcomptype, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarCompType, VLISTINQVARCOMPTYPE, vlistinqvarcomptype, INT, INT)
+FCALLSCSUB3 (vlistDefVarCompLevel, VLISTDEFVARCOMPLEVEL, vlistdefvarcomplevel, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarCompLevel, VLISTINQVARCOMPLEVEL, vlistinqvarcomplevel, INT, INT)
+FCALLSCSUB3 (vlistDefVarParam, VLISTDEFVARPARAM, vlistdefvarparam, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarParam, VLISTINQVARPARAM, vlistinqvarparam, INT, INT)
+FCALLSCSUB3 (vlistDefVarCode, VLISTDEFVARCODE, vlistdefvarcode, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarCode, VLISTINQVARCODE, vlistinqvarcode, INT, INT)
+FCALLSCSUB3 (vlistDefVarDatatype, VLISTDEFVARDATATYPE, vlistdefvardatatype, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarDatatype, VLISTINQVARDATATYPE, vlistinqvardatatype, INT, INT)
+FCALLSCSUB3 (vlistDefVarXYZ, VLISTDEFVARXYZ, vlistdefvarxyz, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarXYZ, VLISTINQVARXYZ, vlistinqvarxyz, INT, INT)
+FCALLSCSUB3 (vlistDefVarNSB, VLISTDEFVARNSB, vlistdefvarnsb, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarNSB, VLISTINQVARNSB, vlistinqvarnsb, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarNumber, VLISTINQVARNUMBER, vlistinqvarnumber, INT, INT)
+FCALLSCSUB3 (vlistDefVarInstitut, VLISTDEFVARINSTITUT, vlistdefvarinstitut, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarInstitut, VLISTINQVARINSTITUT, vlistinqvarinstitut, INT, INT)
+FCALLSCSUB3 (vlistDefVarModel, VLISTDEFVARMODEL, vlistdefvarmodel, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarModel, VLISTINQVARMODEL, vlistinqvarmodel, INT, INT)
+FCALLSCSUB3 (vlistDefVarTable, VLISTDEFVARTABLE, vlistdefvartable, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarTable, VLISTINQVARTABLE, vlistinqvartable, INT, INT)
+FCALLSCSUB3 (vlistDefVarName, VLISTDEFVARNAME, vlistdefvarname, INT, INT, STRING)
+FCALLSCSUB3 (vlistInqVarName, VLISTINQVARNAME, vlistinqvarname, INT, INT, PSTRING)
+FCALLSCFUN2 (STRING, vlistCopyVarName, VLISTCOPYVARNAME, vlistcopyvarname, INT, INT)
+FCALLSCSUB3 (vlistDefVarStdname, VLISTDEFVARSTDNAME, vlistdefvarstdname, INT, INT, STRING)
+FCALLSCSUB3 (vlistInqVarStdname, VLISTINQVARSTDNAME, vlistinqvarstdname, INT, INT, PSTRING)
+FCALLSCSUB3 (vlistDefVarLongname, VLISTDEFVARLONGNAME, vlistdefvarlongname, INT, INT, STRING)
+FCALLSCSUB3 (vlistInqVarLongname, VLISTINQVARLONGNAME, vlistinqvarlongname, INT, INT, PSTRING)
+FCALLSCSUB3 (vlistDefVarUnits, VLISTDEFVARUNITS, vlistdefvarunits, INT, INT, STRING)
+FCALLSCSUB3 (vlistInqVarUnits, VLISTINQVARUNITS, vlistinqvarunits, INT, INT, PSTRING)
+FCALLSCSUB3 (vlistDefVarMissval, VLISTDEFVARMISSVAL, vlistdefvarmissval, INT, INT, DOUBLE)
+FCALLSCFUN2 (DOUBLE, vlistInqVarMissval, VLISTINQVARMISSVAL, vlistinqvarmissval, INT, INT)
+static int vlistInqVarSize_fwrap(int vlistID, int varID)
+{
+ SizeType v;
+ v = vlistInqVarSize(vlistID, varID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, vlistInqVarSize_fwrap, VLISTINQVARSIZE, vlistinqvarsize, INT, INT)
+FCALLSCSUB4 (vlistDefIndex, VLISTDEFINDEX, vlistdefindex, INT, INT, INT, INT)
+FCALLSCFUN3 (INT, vlistInqIndex, VLISTINQINDEX, vlistinqindex, INT, INT, INT)
+FCALLSCSUB4 (vlistDefFlag, VLISTDEFFLAG, vlistdefflag, INT, INT, INT, INT)
+FCALLSCFUN3 (INT, vlistInqFlag, VLISTINQFLAG, vlistinqflag, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistFindVar, VLISTFINDVAR, vlistfindvar, INT, INT)
+FCALLSCFUN3 (INT, vlistFindLevel, VLISTFINDLEVEL, vlistfindlevel, INT, INT, INT)
+FCALLSCFUN2 (INT, vlistMergedVar, VLISTMERGEDVAR, vlistmergedvar, INT, INT)
+FCALLSCFUN3 (INT, vlistMergedLevel, VLISTMERGEDLEVEL, vlistmergedlevel, INT, INT, INT)
+FCALLSCSUB0 (cdiClearAdditionalKeys, CDICLEARADDITIONALKEYS, cdiclearadditionalkeys)
+FCALLSCSUB1 (cdiDefAdditionalKey, CDIDEFADDITIONALKEY, cdidefadditionalkey, STRING)
+FCALLSCSUB4 (vlistDefVarIntKey, VLISTDEFVARINTKEY, vlistdefvarintkey, INT, INT, STRING, INT)
+FCALLSCSUB4 (vlistDefVarDblKey, VLISTDEFVARDBLKEY, vlistdefvardblkey, INT, INT, STRING, DOUBLE)
+FCALLSCFUN3 (INT, vlistHasVarKey, VLISTHASVARKEY, vlisthasvarkey, INT, INT, STRING)
+FCALLSCFUN3 (DOUBLE, vlistInqVarDblKey, VLISTINQVARDBLKEY, vlistinqvardblkey, INT, INT, STRING)
+FCALLSCFUN3 (INT, vlistInqVarIntKey, VLISTINQVARINTKEY, vlistinqvarintkey, INT, INT, STRING)
+
+/* CDI attributes */
+
+FCALLSCFUN3 (INT, cdiInqNatts, CDIINQNATTS, cdiinqnatts, INT, INT, PINT)
+FCALLSCFUN6 (INT, cdiInqAtt, CDIINQATT, cdiinqatt, INT, INT, INT, PSTRING, PINT, PINT)
+FCALLSCFUN3 (INT, cdiInqAttLen, CDIINQATTLEN, cdiinqattlen, INT, INT, STRING)
+FCALLSCFUN3 (INT, cdiInqAttType, CDIINQATTTYPE, cdiinqatttype, INT, INT, STRING)
+FCALLSCFUN3 (INT, cdiDelAtt, CDIDELATT, cdidelatt, INT, INT, STRING)
+FCALLSCFUN4 (INT, cdiCopyAtts, CDICOPYATTS, cdicopyatts, INT, INT, INT, INT)
+FCALLSCFUN6 (INT, cdiDefAttInt, CDIDEFATTINT, cdidefattint, INT, INT, STRING, INT, INT, INTV)
+FCALLSCFUN6 (INT, cdiDefAttFlt, CDIDEFATTFLT, cdidefattflt, INT, INT, STRING, INT, INT, DOUBLEV)
+FCALLSCFUN5 (INT, cdiDefAttTxt, CDIDEFATTTXT, cdidefatttxt, INT, INT, STRING, INT, PPSTRING)
+FCALLSCFUN5 (INT, cdiInqAttInt, CDIINQATTINT, cdiinqattint, INT, INT, STRING, INT, INTV)
+FCALLSCFUN5 (INT, cdiInqAttFlt, CDIINQATTFLT, cdiinqattflt, INT, INT, STRING, INT, DOUBLEV)
+FCALLSCFUN5 (INT, cdiInqAttTxt, CDIINQATTTXT, cdiinqatttxt, INT, INT, STRING, INT, PPSTRING)
+
+/* GRID routines */
+
+FCALLSCSUB2 (gridName, GRIDNAME, gridname, INT, PSTRING)
+FCALLSCFUN1 (STRING, gridNamePtr, GRIDNAMEPTR, gridnameptr, INT)
+FCALLSCSUB1 (gridCompress, GRIDCOMPRESS, gridcompress, INT)
+FCALLSCSUB2 (gridDefMaskGME, GRIDDEFMASKGME, griddefmaskgme, INT, INTV)
+FCALLSCFUN2 (INT, gridInqMaskGME, GRIDINQMASKGME, gridinqmaskgme, INT, INTV)
+FCALLSCSUB2 (gridDefMask, GRIDDEFMASK, griddefmask, INT, INTV)
+FCALLSCFUN2 (INT, gridInqMask, GRIDINQMASK, gridinqmask, INT, INTV)
+static int gridCreate_fwrap(int gridtype, int size)
+{
+ int v;
+ v = gridCreate(gridtype, (SizeType)size);
+ return v;
+}
+FCALLSCFUN2 (INT, gridCreate_fwrap, GRIDCREATE, gridcreate, INT, INT)
+FCALLSCSUB1 (gridDestroy, GRIDDESTROY, griddestroy, INT)
+FCALLSCFUN1 (INT, gridDuplicate, GRIDDUPLICATE, gridduplicate, INT)
+FCALLSCSUB2 (gridDefProj, GRIDDEFPROJ, griddefproj, INT, INT)
+FCALLSCFUN1 (INT, gridInqProj, GRIDINQPROJ, gridinqproj, INT)
+FCALLSCFUN1 (INT, gridInqProjType, GRIDINQPROJTYPE, gridinqprojtype, INT)
+FCALLSCFUN1 (INT, gridInqType, GRIDINQTYPE, gridinqtype, INT)
+static int gridInqSize_fwrap(int gridID)
+{
+ SizeType v;
+ v = gridInqSize(gridID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, gridInqSize_fwrap, GRIDINQSIZE, gridinqsize, INT)
+static void gridDefXsize_fwrap(int gridID, int xsize)
+{
+ gridDefXsize(gridID, (SizeType)xsize);
+}
+FCALLSCSUB2 (gridDefXsize_fwrap, GRIDDEFXSIZE, griddefxsize, INT, INT)
+static int gridInqXsize_fwrap(int gridID)
+{
+ SizeType v;
+ v = gridInqXsize(gridID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, gridInqXsize_fwrap, GRIDINQXSIZE, gridinqxsize, INT)
+static void gridDefYsize_fwrap(int gridID, int ysize)
+{
+ gridDefYsize(gridID, (SizeType)ysize);
+}
+FCALLSCSUB2 (gridDefYsize_fwrap, GRIDDEFYSIZE, griddefysize, INT, INT)
+static int gridInqYsize_fwrap(int gridID)
+{
+ SizeType v;
+ v = gridInqYsize(gridID);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN1 (INT, gridInqYsize_fwrap, GRIDINQYSIZE, gridinqysize, INT)
+FCALLSCSUB2 (gridDefNP, GRIDDEFNP, griddefnp, INT, INT)
+FCALLSCFUN1 (INT, gridInqNP, GRIDINQNP, gridinqnp, INT)
+FCALLSCSUB2 (gridDefXvals, GRIDDEFXVALS, griddefxvals, INT, DOUBLEV)
+static int gridInqXvals_fwrap(int gridID, double xvals[])
+{
+ SizeType v;
+ v = gridInqXvals(gridID, xvals);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, gridInqXvals_fwrap, GRIDINQXVALS, gridinqxvals, INT, DOUBLEV)
+static int gridInqXvalsPart_fwrap(int gridID, int start, int size, double xvals[])
+{
+ SizeType v;
+ v = gridInqXvalsPart(gridID, start, (SizeType)size, xvals);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN4 (INT, gridInqXvalsPart_fwrap, GRIDINQXVALSPART, gridinqxvalspart, INT, INT, INT, DOUBLEV)
+FCALLSCFUN1 (INT, gridInqXIsc, GRIDINQXISC, gridinqxisc, INT)
+FCALLSCSUB2 (gridDefYvals, GRIDDEFYVALS, griddefyvals, INT, DOUBLEV)
+static int gridInqYvals_fwrap(int gridID, double yvals[])
+{
+ SizeType v;
+ v = gridInqYvals(gridID, yvals);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, gridInqYvals_fwrap, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV)
+static int gridInqYvalsPart_fwrap(int gridID, int start, int size, double yvals[])
+{
+ SizeType v;
+ v = gridInqYvalsPart(gridID, start, (SizeType)size, yvals);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN4 (INT, gridInqYvalsPart_fwrap, GRIDINQYVALSPART, gridinqyvalspart, INT, INT, INT, DOUBLEV)
+FCALLSCFUN1 (INT, gridInqYIsc, GRIDINQYISC, gridinqyisc, INT)
+
+/* CDI var keys */
+
+
+/* String keys */
+
+
+/* Integer keys */
+
+
+/* Floating point keys */
+
+
+/* Byte array keys */
+
+FCALLSCFUN4 (INT, cdiDefKeyInt, CDIDEFKEYINT, cdidefkeyint, INT, INT, INT, INT)
+FCALLSCFUN4 (INT, cdiInqKeyInt, CDIINQKEYINT, cdiinqkeyint, INT, INT, INT, PINT)
+FCALLSCFUN4 (INT, cdiDefKeyFloat, CDIDEFKEYFLOAT, cdidefkeyfloat, INT, INT, INT, DOUBLE)
+
+/* cdiInqKeyFloat Get a float value from a key */
+
+FCALLSCFUN4 (INT, cdiInqKeyFloat, CDIINQKEYFLOAT, cdiinqkeyfloat, INT, INT, INT, PDOUBLE)
+FCALLSCFUN4 (INT, cdiDefKeyString, CDIDEFKEYSTRING, cdidefkeystring, INT, INT, INT, STRING)
+FCALLSCFUN5 (INT, cdiInqKeyString, CDIINQKEYSTRING, cdiinqkeystring, INT, INT, INT, PSTRING, PINT)
+FCALLSCFUN4 (INT, cdiInqKeyLen, CDIINQKEYLEN, cdiinqkeylen, INT, INT, INT, PINT)
+FCALLSCFUN4 (INT, cdiCopyKeys, CDICOPYKEYS, cdicopykeys, INT, INT, INT, INT)
+FCALLSCFUN4 (INT, cdiCopyKey, CDICOPYKEY, cdicopykey, INT, INT, INT, INT)
+FCALLSCFUN3 (INT, cdiDeleteKey, CDIDELETEKEY, cdideletekey, INT, INT, INT)
+
+/* GRID routines */
+
+FCALLSCSUB2 (gridDefXname, GRIDDEFXNAME, griddefxname, INT, STRING)
+FCALLSCSUB2 (gridInqXname, GRIDINQXNAME, gridinqxname, INT, PSTRING)
+FCALLSCSUB2 (gridDefXlongname, GRIDDEFXLONGNAME, griddefxlongname, INT, STRING)
+FCALLSCSUB2 (gridInqXlongname, GRIDINQXLONGNAME, gridinqxlongname, INT, PSTRING)
+FCALLSCSUB2 (gridDefXunits, GRIDDEFXUNITS, griddefxunits, INT, STRING)
+FCALLSCSUB2 (gridInqXunits, GRIDINQXUNITS, gridinqxunits, INT, PSTRING)
+FCALLSCSUB2 (gridDefYname, GRIDDEFYNAME, griddefyname, INT, STRING)
+FCALLSCSUB2 (gridInqYname, GRIDINQYNAME, gridinqyname, INT, PSTRING)
+FCALLSCSUB2 (gridDefYlongname, GRIDDEFYLONGNAME, griddefylongname, INT, STRING)
+FCALLSCSUB2 (gridInqYlongname, GRIDINQYLONGNAME, gridinqylongname, INT, PSTRING)
+FCALLSCSUB2 (gridDefYunits, GRIDDEFYUNITS, griddefyunits, INT, STRING)
+FCALLSCSUB2 (gridInqYunits, GRIDINQYUNITS, gridinqyunits, INT, PSTRING)
+FCALLSCSUB2 (gridDefDatatype, GRIDDEFDATATYPE, griddefdatatype, INT, INT)
+FCALLSCFUN1 (INT, gridInqDatatype, GRIDINQDATATYPE, gridinqdatatype, INT)
+static double gridInqXval_fwrap(int gridID, int index)
+{
+ double v;
+ v = gridInqXval(gridID, (SizeType)index);
+ return v;
+}
+FCALLSCFUN2 (DOUBLE, gridInqXval_fwrap, GRIDINQXVAL, gridinqxval, INT, INT)
+static double gridInqYval_fwrap(int gridID, int index)
+{
+ double v;
+ v = gridInqYval(gridID, (SizeType)index);
+ return v;
+}
+FCALLSCFUN2 (DOUBLE, gridInqYval_fwrap, GRIDINQYVAL, gridinqyval, INT, INT)
+FCALLSCFUN1 (DOUBLE, gridInqXinc, GRIDINQXINC, gridinqxinc, INT)
+FCALLSCFUN1 (DOUBLE, gridInqYinc, GRIDINQYINC, gridinqyinc, INT)
+FCALLSCFUN1 (INT, gridIsCircular, GRIDISCIRCULAR, gridiscircular, INT)
+FCALLSCFUN1 (INT, gridInqTrunc, GRIDINQTRUNC, gridinqtrunc, INT)
+FCALLSCSUB2 (gridDefTrunc, GRIDDEFTRUNC, griddeftrunc, INT, INT)
+
+/* Reference of an unstructured grid */
+
+FCALLSCSUB2 (gridDefNumber, GRIDDEFNUMBER, griddefnumber, INT, INT)
+FCALLSCFUN1 (INT, gridInqNumber, GRIDINQNUMBER, gridinqnumber, INT)
+FCALLSCSUB2 (gridDefPosition, GRIDDEFPOSITION, griddefposition, INT, INT)
+FCALLSCFUN1 (INT, gridInqPosition, GRIDINQPOSITION, gridinqposition, INT)
+FCALLSCSUB2 (gridDefReference, GRIDDEFREFERENCE, griddefreference, INT, STRING)
+FCALLSCFUN2 (INT, gridInqReference, GRIDINQREFERENCE, gridinqreference, INT, PSTRING)
+FCALLSCSUB2 (gridDefUUID, GRIDDEFUUID, griddefuuid, INT, PVOID)
+FCALLSCSUB2 (gridInqUUID, GRIDINQUUID, gridinquuid, INT, PVOID)
+
+/* Rotated Lon/Lat grid */
+
+FCALLSCSUB4 (gridDefParamRLL, GRIDDEFPARAMRLL, griddefparamrll, INT, DOUBLE, DOUBLE, DOUBLE)
+FCALLSCSUB4 (gridInqParamRLL, GRIDINQPARAMRLL, gridinqparamrll, INT, PDOUBLE, PDOUBLE, PDOUBLE)
+
+/* Hexagonal GME grid */
+
+FCALLSCSUB5 (gridDefParamGME, GRIDDEFPARAMGME, griddefparamgme, INT, INT, INT, INT, INT)
+FCALLSCSUB5 (gridInqParamGME, GRIDINQPARAMGME, gridinqparamgme, INT, PINT, PINT, PINT, PINT)
+FCALLSCSUB2 (gridDefArea, GRIDDEFAREA, griddefarea, INT, DOUBLEV)
+FCALLSCSUB2 (gridInqArea, GRIDINQAREA, gridinqarea, INT, DOUBLEV)
+FCALLSCFUN1 (INT, gridHasArea, GRIDHASAREA, gridhasarea, INT)
+FCALLSCSUB2 (gridDefNvertex, GRIDDEFNVERTEX, griddefnvertex, INT, INT)
+FCALLSCFUN1 (INT, gridInqNvertex, GRIDINQNVERTEX, gridinqnvertex, INT)
+FCALLSCSUB2 (gridDefXbounds, GRIDDEFXBOUNDS, griddefxbounds, INT, DOUBLEV)
+static int gridInqXbounds_fwrap(int gridID, double xbounds[])
+{
+ SizeType v;
+ v = gridInqXbounds(gridID, xbounds);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, gridInqXbounds_fwrap, GRIDINQXBOUNDS, gridinqxbounds, INT, DOUBLEV)
+static int gridInqXboundsPart_fwrap(int gridID, int start, int size, double xbounds[])
+{
+ SizeType v;
+ v = gridInqXboundsPart(gridID, start, (SizeType)size, xbounds);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN4 (INT, gridInqXboundsPart_fwrap, GRIDINQXBOUNDSPART, gridinqxboundspart, INT, INT, INT, DOUBLEV)
+FCALLSCSUB2 (gridDefYbounds, GRIDDEFYBOUNDS, griddefybounds, INT, DOUBLEV)
+static int gridInqYbounds_fwrap(int gridID, double ybounds[])
+{
+ SizeType v;
+ v = gridInqYbounds(gridID, ybounds);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN2 (INT, gridInqYbounds_fwrap, GRIDINQYBOUNDS, gridinqybounds, INT, DOUBLEV)
+static int gridInqYboundsPart_fwrap(int gridID, int start, int size, double ybounds[])
+{
+ SizeType v;
+ v = gridInqYboundsPart(gridID, start, (SizeType)size, ybounds);
+ return SizeType_c2f(v);
+}
+FCALLSCFUN4 (INT, gridInqYboundsPart_fwrap, GRIDINQYBOUNDSPART, gridinqyboundspart, INT, INT, INT, DOUBLEV)
+FCALLSCSUB3 (gridDefReducedPoints, GRIDDEFREDUCEDPOINTS, griddefreducedpoints, INT, INT, INTV)
+FCALLSCSUB2 (gridInqReducedPoints, GRIDINQREDUCEDPOINTS, gridinqreducedpoints, INT, INTV)
+FCALLSCSUB2 (gridChangeType, GRIDCHANGETYPE, gridchangetype, INT, INT)
+FCALLSCSUB2 (gridDefComplexPacking, GRIDDEFCOMPLEXPACKING, griddefcomplexpacking, INT, INT)
+FCALLSCFUN1 (INT, gridInqComplexPacking, GRIDINQCOMPLEXPACKING, gridinqcomplexpacking, INT)
+
+/* ZAXIS routines */
+
+FCALLSCSUB2 (zaxisName, ZAXISNAME, zaxisname, INT, PSTRING)
+FCALLSCFUN1 (STRING, zaxisNamePtr, ZAXISNAMEPTR, zaxisnameptr, INT)
+FCALLSCFUN2 (INT, zaxisCreate, ZAXISCREATE, zaxiscreate, INT, INT)
+FCALLSCSUB1 (zaxisDestroy, ZAXISDESTROY, zaxisdestroy, INT)
+FCALLSCFUN1 (INT, zaxisInqType, ZAXISINQTYPE, zaxisinqtype, INT)
+FCALLSCFUN1 (INT, zaxisInqSize, ZAXISINQSIZE, zaxisinqsize, INT)
+FCALLSCFUN1 (INT, zaxisDuplicate, ZAXISDUPLICATE, zaxisduplicate, INT)
+FCALLSCSUB2 (zaxisDefLevels, ZAXISDEFLEVELS, zaxisdeflevels, INT, DOUBLEV)
+FCALLSCFUN2 (INT, zaxisInqLevels, ZAXISINQLEVELS, zaxisinqlevels, INT, DOUBLEV)
+FCALLSCFUN1 (INT, zaxisInqCLen, ZAXISINQCLEN, zaxisinqclen, INT)
+FCALLSCSUB3 (zaxisDefLevel, ZAXISDEFLEVEL, zaxisdeflevel, INT, INT, DOUBLE)
+FCALLSCFUN2 (DOUBLE, zaxisInqLevel, ZAXISINQLEVEL, zaxisinqlevel, INT, INT)
+FCALLSCSUB2 (zaxisDefNlevRef, ZAXISDEFNLEVREF, zaxisdefnlevref, INT, INT)
+FCALLSCFUN1 (INT, zaxisInqNlevRef, ZAXISINQNLEVREF, zaxisinqnlevref, INT)
+FCALLSCSUB2 (zaxisDefNumber, ZAXISDEFNUMBER, zaxisdefnumber, INT, INT)
+FCALLSCFUN1 (INT, zaxisInqNumber, ZAXISINQNUMBER, zaxisinqnumber, INT)
+FCALLSCSUB2 (zaxisDefUUID, ZAXISDEFUUID, zaxisdefuuid, INT, PVOID)
+FCALLSCSUB2 (zaxisInqUUID, ZAXISINQUUID, zaxisinquuid, INT, PVOID)
+FCALLSCSUB2 (zaxisDefName, ZAXISDEFNAME, zaxisdefname, INT, STRING)
+FCALLSCSUB2 (zaxisInqName, ZAXISINQNAME, zaxisinqname, INT, PSTRING)
+FCALLSCSUB2 (zaxisDefLongname, ZAXISDEFLONGNAME, zaxisdeflongname, INT, STRING)
+FCALLSCSUB2 (zaxisInqLongname, ZAXISINQLONGNAME, zaxisinqlongname, INT, PSTRING)
+FCALLSCSUB2 (zaxisDefUnits, ZAXISDEFUNITS, zaxisdefunits, INT, STRING)
+FCALLSCSUB2 (zaxisInqUnits, ZAXISINQUNITS, zaxisinqunits, INT, PSTRING)
+FCALLSCSUB2 (zaxisInqStdname, ZAXISINQSTDNAME, zaxisinqstdname, INT, PSTRING)
+FCALLSCSUB2 (zaxisDefDatatype, ZAXISDEFDATATYPE, zaxisdefdatatype, INT, INT)
+FCALLSCFUN1 (INT, zaxisInqDatatype, ZAXISINQDATATYPE, zaxisinqdatatype, INT)
+FCALLSCSUB2 (zaxisDefPositive, ZAXISDEFPOSITIVE, zaxisdefpositive, INT, INT)
+FCALLSCFUN1 (INT, zaxisInqPositive, ZAXISINQPOSITIVE, zaxisinqpositive, INT)
+FCALLSCSUB1 (zaxisDefScalar, ZAXISDEFSCALAR, zaxisdefscalar, INT)
+FCALLSCFUN1 (INT, zaxisInqScalar, ZAXISINQSCALAR, zaxisinqscalar, INT)
+FCALLSCSUB3 (zaxisDefVct, ZAXISDEFVCT, zaxisdefvct, INT, INT, DOUBLEV)
+FCALLSCSUB2 (zaxisInqVct, ZAXISINQVCT, zaxisinqvct, INT, DOUBLEV)
+FCALLSCFUN1 (INT, zaxisInqVctSize, ZAXISINQVCTSIZE, zaxisinqvctsize, INT)
+FCALLSCSUB2 (zaxisDefLbounds, ZAXISDEFLBOUNDS, zaxisdeflbounds, INT, DOUBLEV)
+FCALLSCFUN2 (INT, zaxisInqLbounds, ZAXISINQLBOUNDS, zaxisinqlbounds, INT, DOUBLEV)
+FCALLSCFUN2 (DOUBLE, zaxisInqLbound, ZAXISINQLBOUND, zaxisinqlbound, INT, INT)
+FCALLSCSUB2 (zaxisDefUbounds, ZAXISDEFUBOUNDS, zaxisdefubounds, INT, DOUBLEV)
+FCALLSCFUN2 (INT, zaxisInqUbounds, ZAXISINQUBOUNDS, zaxisinqubounds, INT, DOUBLEV)
+FCALLSCFUN2 (DOUBLE, zaxisInqUbound, ZAXISINQUBOUND, zaxisinqubound, INT, INT)
+FCALLSCSUB2 (zaxisDefWeights, ZAXISDEFWEIGHTS, zaxisdefweights, INT, DOUBLEV)
+FCALLSCFUN2 (INT, zaxisInqWeights, ZAXISINQWEIGHTS, zaxisinqweights, INT, DOUBLEV)
+FCALLSCSUB2 (zaxisChangeType, ZAXISCHANGETYPE, zaxischangetype, INT, INT)
+
+/* TAXIS routines */
+
+FCALLSCFUN1 (INT, taxisCreate, TAXISCREATE, taxiscreate, INT)
+FCALLSCSUB1 (taxisDestroy, TAXISDESTROY, taxisdestroy, INT)
+FCALLSCFUN1 (INT, taxisDuplicate, TAXISDUPLICATE, taxisduplicate, INT)
+FCALLSCSUB2 (taxisCopyTimestep, TAXISCOPYTIMESTEP, taxiscopytimestep, INT, INT)
+FCALLSCSUB2 (taxisDefType, TAXISDEFTYPE, taxisdeftype, INT, INT)
+FCALLSCFUN1 (INT, taxisInqType, TAXISINQTYPE, taxisinqtype, INT)
+FCALLSCSUB2 (taxisDefVdate, TAXISDEFVDATE, taxisdefvdate, INT, INT)
+FCALLSCSUB2 (taxisDefVtime, TAXISDEFVTIME, taxisdefvtime, INT, INT)
+FCALLSCFUN1 (INT, taxisInqVdate, TAXISINQVDATE, taxisinqvdate, INT)
+FCALLSCFUN1 (INT, taxisInqVtime, TAXISINQVTIME, taxisinqvtime, INT)
+FCALLSCSUB2 (taxisDefRdate, TAXISDEFRDATE, taxisdefrdate, INT, INT)
+FCALLSCSUB2 (taxisDefRtime, TAXISDEFRTIME, taxisdefrtime, INT, INT)
+FCALLSCFUN1 (INT, taxisInqRdate, TAXISINQRDATE, taxisinqrdate, INT)
+FCALLSCFUN1 (INT, taxisInqRtime, TAXISINQRTIME, taxisinqrtime, INT)
+FCALLSCFUN1 (INT, taxisHasBounds, TAXISHASBOUNDS, taxishasbounds, INT)
+FCALLSCSUB1 (taxisWithBounds, TAXISWITHBOUNDS, taxiswithbounds, INT)
+FCALLSCSUB1 (taxisDeleteBounds, TAXISDELETEBOUNDS, taxisdeletebounds, INT)
+FCALLSCSUB3 (taxisDefVdateBounds, TAXISDEFVDATEBOUNDS, taxisdefvdatebounds, INT, INT, INT)
+FCALLSCSUB3 (taxisDefVtimeBounds, TAXISDEFVTIMEBOUNDS, taxisdefvtimebounds, INT, INT, INT)
+FCALLSCSUB3 (taxisInqVdateBounds, TAXISINQVDATEBOUNDS, taxisinqvdatebounds, INT, PINT, PINT)
+FCALLSCSUB3 (taxisInqVtimeBounds, TAXISINQVTIMEBOUNDS, taxisinqvtimebounds, INT, PINT, PINT)
+FCALLSCSUB2 (taxisDefCalendar, TAXISDEFCALENDAR, taxisdefcalendar, INT, INT)
+FCALLSCFUN1 (INT, taxisInqCalendar, TAXISINQCALENDAR, taxisinqcalendar, INT)
+FCALLSCSUB2 (taxisDefTunit, TAXISDEFTUNIT, taxisdeftunit, INT, INT)
+FCALLSCFUN1 (INT, taxisInqTunit, TAXISINQTUNIT, taxisinqtunit, INT)
+FCALLSCSUB2 (taxisDefForecastTunit, TAXISDEFFORECASTTUNIT, taxisdefforecasttunit, INT, INT)
+FCALLSCFUN1 (INT, taxisInqForecastTunit, TAXISINQFORECASTTUNIT, taxisinqforecasttunit, INT)
+FCALLSCSUB2 (taxisDefForecastPeriod, TAXISDEFFORECASTPERIOD, taxisdefforecastperiod, INT, DOUBLE)
+FCALLSCFUN1 (DOUBLE, taxisInqForecastPeriod, TAXISINQFORECASTPERIOD, taxisinqforecastperiod, INT)
+FCALLSCSUB2 (taxisDefNumavg, TAXISDEFNUMAVG, taxisdefnumavg, INT, INT)
+FCALLSCFUN1 (INT, taxisInqNumavg, TAXISINQNUMAVG, taxisinqnumavg, INT)
+FCALLSCFUN1 (STRING, taxisNamePtr, TAXISNAMEPTR, taxisnameptr, INT)
+FCALLSCFUN1 (STRING, tunitNamePtr, TUNITNAMEPTR, tunitnameptr, INT)
+
+/* Institut routines */
+
+FCALLSCFUN4 (INT, institutDef, INSTITUTDEF, institutdef, INT, INT, STRING, STRING)
+FCALLSCFUN4 (INT, institutInq, INSTITUTINQ, institutinq, INT, INT, STRING, STRING)
+FCALLSCFUN0 (INT, institutInqNumber, INSTITUTINQNUMBER, institutinqnumber)
+FCALLSCFUN1 (INT, institutInqCenter, INSTITUTINQCENTER, institutinqcenter, INT)
+FCALLSCFUN1 (INT, institutInqSubcenter, INSTITUTINQSUBCENTER, institutinqsubcenter, INT)
+FCALLSCFUN1 (STRING, institutInqNamePtr, INSTITUTINQNAMEPTR, institutinqnameptr, INT)
+FCALLSCFUN1 (STRING, institutInqLongnamePtr, INSTITUTINQLONGNAMEPTR, institutinqlongnameptr, INT)
+
+/* Model routines */
+
+FCALLSCFUN3 (INT, modelDef, MODELDEF, modeldef, INT, INT, STRING)
+FCALLSCFUN3 (INT, modelInq, MODELINQ, modelinq, INT, INT, STRING)
+FCALLSCFUN1 (INT, modelInqInstitut, MODELINQINSTITUT, modelinqinstitut, INT)
+FCALLSCFUN1 (INT, modelInqGribID, MODELINQGRIBID, modelinqgribid, INT)
+FCALLSCFUN1 (STRING, modelInqNamePtr, MODELINQNAMEPTR, modelinqnameptr, INT)
+
+/* Table routines */
+
+FCALLSCSUB2 (tableWrite, TABLEWRITE, tablewrite, STRING, INT)
+FCALLSCFUN1 (INT, tableRead, TABLEREAD, tableread, STRING)
+FCALLSCFUN3 (INT, tableDef, TABLEDEF, tabledef, INT, INT, STRING)
+FCALLSCFUN1 (STRING, tableInqNamePtr, TABLEINQNAMEPTR, tableinqnameptr, INT)
+FCALLSCFUN3 (INT, tableInq, TABLEINQ, tableinq, INT, INT, STRING)
+FCALLSCFUN0 (INT, tableInqNumber, TABLEINQNUMBER, tableinqnumber)
+FCALLSCFUN1 (INT, tableInqNum, TABLEINQNUM, tableinqnum, INT)
+FCALLSCFUN1 (INT, tableInqModel, TABLEINQMODEL, tableinqmodel, INT)
+FCALLSCSUB6 (tableInqEntry, TABLEINQENTRY, tableinqentry, INT, INT, INT, PSTRING, PSTRING, PSTRING)
+
+/* Subtype routines */
+
+FCALLSCFUN1 (INT, subtypeCreate, SUBTYPECREATE, subtypecreate, INT)
+
+/* Gives a textual summary of the variable subtype */
+
+FCALLSCSUB1 (subtypePrint, SUBTYPEPRINT, subtypeprint, INT)
+
+/* Compares two subtype data structures */
+
+FCALLSCFUN2 (INT, subtypeCompare, SUBTYPECOMPARE, subtypecompare, INT, INT)
+FCALLSCFUN1 (INT, subtypeInqSize, SUBTYPEINQSIZE, subtypeinqsize, INT)
+FCALLSCFUN1 (INT, subtypeInqActiveIndex, SUBTYPEINQACTIVEINDEX, subtypeinqactiveindex, INT)
+FCALLSCSUB2 (subtypeDefActiveIndex, SUBTYPEDEFACTIVEINDEX, subtypedefactiveindex, INT, INT)
+
+/* Generate a "query object" out of a key-value pair */
+
+
+/* Generate an AND-combined "query object" out of two previous query objects */
+
+FCALLSCFUN3 (INT, subtypeInqTile, SUBTYPEINQTILE, subtypeinqtile, INT, INT, INT)
+FCALLSCFUN4 (INT, subtypeInqAttribute, SUBTYPEINQATTRIBUTE, subtypeinqattribute, INT, INT, STRING, PINT)
+FCALLSCFUN2 (INT, vlistInqVarSubtype, VLISTINQVARSUBTYPE, vlistinqvarsubtype, INT, INT)
+FCALLSCSUB3 (gribapiLibraryVersion, GRIBAPILIBRARYVERSION, gribapilibraryversion, PINT, PINT, PINT)
+
+/* Compatibility functions for release 1.8.3 (obsolete functions) */
+
+FCALLSCSUB2 (zaxisDefLtype, ZAXISDEFLTYPE, zaxisdefltype, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarTypeOfGeneratingProcess, VLISTINQVARTYPEOFGENERATINGPROCESS, vlistinqvartypeofgeneratingprocess, INT, INT)
+FCALLSCSUB3 (vlistDefVarTypeOfGeneratingProcess, VLISTDEFVARTYPEOFGENERATINGPROCESS, vlistdefvartypeofgeneratingprocess, INT, INT, INT)
+FCALLSCSUB3 (vlistDefVarProductDefinitionTemplate, VLISTDEFVARPRODUCTDEFINITIONTEMPLATE, vlistdefvarproductdefinitiontemplate, INT, INT, INT)
+
+/* End of fortran interface */
+
+
+#if defined __clang__
+# pragma GCC diagnostic pop
+#endif
+
+// clang-format on
+
+#endif
diff --git a/src/cdipio.inc b/src/cdipio.inc
new file mode 100644
index 000000000..b90a4cac6
--- /dev/null
+++ b/src/cdipio.inc
@@ -0,0 +1,318 @@
+! This file was automatically generated, don't edit!
+!
+! Fortran interface for CDI library version 2.4.0
+!
+! Author:
+! -------
+! Uwe Schulzweida, MPI-MET, Hamburg, April 2024
+!
+
+!
+! Start of fortran interface for the following routines (make_fint.c)
+!
+!
+! parallel IO IOMode
+!
+ INTEGER PIO_NONE
+ PARAMETER (PIO_NONE = 0)
+ INTEGER PIO_MPI
+ PARAMETER (PIO_MPI = 1)
+ INTEGER PIO_WRITER
+ PARAMETER (PIO_WRITER = 2)
+ INTEGER PIO_ASYNCH
+ PARAMETER (PIO_ASYNCH = 3)
+ INTEGER PIO_FPGUARD
+ PARAMETER (PIO_FPGUARD = 4)
+ INTEGER PIO_MPI_FW_ORDERED
+ PARAMETER (PIO_MPI_FW_ORDERED = 5)
+ INTEGER PIO_MPI_FW_AT_ALL
+ PARAMETER (PIO_MPI_FW_AT_ALL = 6)
+ INTEGER PIO_MPI_FW_AT_REBLOCK
+ PARAMETER (PIO_MPI_FW_AT_REBLOCK = 7)
+ INTEGER PIO_MINIOMODE
+ PARAMETER (PIO_MINIOMODE = PIO_NONE)
+ INTEGER PIO_MAXIOMODE
+ PARAMETER (PIO_MAXIOMODE = PIO_MPI_FW_AT_REBLOCK)
+ INTEGER PIO_ROLE_CLIENT
+ PARAMETER (PIO_ROLE_CLIENT = 0)
+ INTEGER PIO_ROLE_COLLECTOR
+ PARAMETER (PIO_ROLE_COLLECTOR = 1)
+ INTEGER PIO_ROLE_WRITER
+ PARAMETER (PIO_ROLE_WRITER = 2)
+ INTEGER PIO_ROLE_WRITER_COLLECTOR
+ PARAMETER (PIO_ROLE_WRITER_COLLECTOR = 3)
+ INTEGER PIO_ROLE_FPGUARD
+ PARAMETER (PIO_ROLE_FPGUARD = 4)
+!
+! parallel IO routines
+!
+! pioEndDef
+ EXTERNAL pioEndDef
+
+! pioEndTimestepping
+ EXTERNAL pioEndTimestepping
+
+! pioFinalize
+ EXTERNAL pioFinalize
+
+! cdiPioNoPostCommSetup
+ EXTERNAL cdiPioNoPostCommSetup
+
+ INTEGER pioInit
+! (INTEGER commSuper,
+! INTEGER nProcsIO,
+! INTEGER IOMode,
+! INTEGER pioNamespace,
+! REAL partInflate,
+! PROCEDURE postCommSetupActions)
+ EXTERNAL pioInit
+
+ INTEGER cdiPioInit
+! (INTEGER commSuper,
+! INTEGER confResH,
+! INTEGER pioNamespace)
+ EXTERNAL cdiPioInit
+
+! pioWriteTimestep
+ EXTERNAL pioWriteTimestep
+
+! cdiPioRDMAProgress
+ EXTERNAL cdiPioRDMAProgress
+
+! cdiPioStreamDefDecomposedVlist
+! (INTEGER streamID,
+! INTEGER vlistID,
+! TYPE(XT_IDXLIST)partDesc(*),
+! INTEGER conversion(*))
+ EXTERNAL cdiPioStreamDefDecomposedVlist
+
+! streamWriteVarPart
+! (INTEGER streamID,
+! INTEGER varID,
+! DOUBLEPRECISION data,
+! INTEGER numMissVals,
+! TYPE(XT_IDXLIST)partDesc)
+ EXTERNAL streamWriteVarPart
+
+! streamWriteVarPartF
+! (INTEGER streamID,
+! INTEGER varID,
+! REAL data,
+! INTEGER numMissVals,
+! TYPE(XT_IDXLIST)partDesc)
+ EXTERNAL streamWriteVarPartF
+
+! streamWriteScatteredVarPart
+! (INTEGER streamID,
+! INTEGER varID,
+! DOUBLEPRECISION data,
+! INTEGER numBlocks,
+! INTEGER blocklengths(*),
+! INTEGER displacements(*),
+! INTEGER numMissVals,
+! TYPE(XT_IDXLIST)partDesc)
+ EXTERNAL streamWriteScatteredVarPart
+
+! streamWriteScatteredVarPartF
+! (INTEGER streamID,
+! INTEGER varID,
+! REAL data,
+! INTEGER numBlocks,
+! INTEGER blocklengths(*),
+! INTEGER displacements(*),
+! INTEGER numMissVals,
+! TYPE(XT_IDXLIST)partDesc)
+ EXTERNAL streamWriteScatteredVarPartF
+
+ INTEGER cdiPioCSRLastN
+! (INTEGER commSuper,
+! INTEGER IOMode,
+! INTEGER nProcsIO)
+ EXTERNAL cdiPioCSRLastN
+
+ INTEGER cdiPioCSRFirstN
+! (INTEGER commSuper,
+! INTEGER IOMode,
+! INTEGER nProcsIO)
+ EXTERNAL cdiPioCSRFirstN
+
+ INTEGER cdiPioCSRBalanced
+! (INTEGER commSuper,
+! INTEGER IOMode,
+! INTEGER nProcsIO)
+ EXTERNAL cdiPioCSRBalanced
+
+ INTEGER cdiPioStr2IOMode
+! (CHARACTER*(*) modeStr)
+ EXTERNAL cdiPioStr2IOMode
+
+ CHARACTER(80) cdiPioIOMode2Str
+! (INTEGER IOMode)
+ EXTERNAL cdiPioIOMode2Str
+
+ INTEGER cdiPioConfCreate
+ EXTERNAL cdiPioConfCreate
+
+! cdiPioConfDestroy
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfDestroy
+
+! cdiPioConfSetPartInflate
+! (INTEGER confResH,
+! REAL partInflate)
+ EXTERNAL cdiPioConfSetPartInflate
+
+ REAL cdiPioConfGetPartInflate
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetPartInflate
+
+! cdiPioConfSetIOMode
+! (INTEGER confResH,
+! INTEGER IOMode)
+ EXTERNAL cdiPioConfSetIOMode
+
+ INTEGER cdiPioConfGetIOMode
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetIOMode
+
+! cdiPioConfSetCSRole
+! (INTEGER confResH,
+! INTEGER CSRole)
+ EXTERNAL cdiPioConfSetCSRole
+
+ INTEGER cdiPioConfGetCSRole
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetCSRole
+
+! cdiPioConfSetPostCommSetupActions
+! (INTEGER confResH,
+! PROCEDURE postCommSetupActions)
+ EXTERNAL cdiPioConfSetPostCommSetupActions
+
+ INTEGER CDIPIO_CALLBACK_POSTCOMMSETUP
+ PARAMETER (CDIPIO_CALLBACK_POSTCOMMSETUP = 0)
+ INTEGER CDIPIO_CALLBACK_POSTSTREAMCLOSE
+ PARAMETER (CDIPIO_CALLBACK_POSTSTREAMCLOSE = 1)
+ INTEGER CDIPIO_CALLBACK_POSTWRITEBATCH
+ PARAMETER (CDIPIO_CALLBACK_POSTWRITEBATCH = 2)
+! cdiPioConfSetCallBackActions
+! (INTEGER confResH,
+! INTEGER trigger,
+! PROCEDURE action)
+ EXTERNAL cdiPioConfSetCallBackActions
+
+!
+! cdiPioConfSetLargePageAlign should block buffer be aligned to
+! large pages instead of normal pages?
+!
+! cdiPioConfSetLargePageAlign
+! (INTEGER confResH,
+! INTEGER largePageAlign)
+ EXTERNAL cdiPioConfSetLargePageAlign
+
+ INTEGER cdiPioConfGetLargePageAlign
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetLargePageAlign
+
+! cdiPioConfSetRecordAggBufLim
+! (INTEGER confResH,
+! INTEGER lim_mb)
+ EXTERNAL cdiPioConfSetRecordAggBufLim
+
+ INTEGER cdiPioConfGetRecordAggBufLim
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetRecordAggBufLim
+
+! cdiPioConfSetWriteAggBufLim
+! (INTEGER confResH,
+! INTEGER lim_mb)
+ EXTERNAL cdiPioConfSetWriteAggBufLim
+
+ INTEGER cdiPioConfGetWriteAggBufLim
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetWriteAggBufLim
+
+! cdiPioConfSetAioQueueDepth
+! (INTEGER confResH,
+! INTEGER queue_depth)
+ EXTERNAL cdiPioConfSetAioQueueDepth
+
+ INTEGER cdiPioConfGetAioQueueDepth
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetAioQueueDepth
+
+! cdiPioConfSetMaxPathLen
+! (INTEGER confResH,
+! INTEGER max_path_len)
+ EXTERNAL cdiPioConfSetMaxPathLen
+
+ INTEGER cdiPioConfGetMaxPathLen
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetMaxPathLen
+
+! cdiPioConfSetRedistCache
+! (INTEGER confResH,
+! INTEGER doCache)
+ EXTERNAL cdiPioConfSetRedistCache
+
+ INTEGER cdiPioConfGetRedistCache
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetRedistCache
+
+! cdiPioConfSetXmapCache
+! (INTEGER confResH,
+! INTEGER doCache)
+ EXTERNAL cdiPioConfSetXmapCache
+
+ INTEGER cdiPioConfGetXmapCache
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetXmapCache
+
+! cdiPioConfSetStripeConversion
+! (INTEGER confResH,
+! INTEGER doStripify)
+ EXTERNAL cdiPioConfSetStripeConversion
+
+ INTEGER cdiPioConfGetStripeConversion
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetStripeConversion
+
+! cdiPioConfSetBatchedRMA
+! (INTEGER confResH,
+! INTEGER doBatchedRMA)
+ EXTERNAL cdiPioConfSetBatchedRMA
+
+ INTEGER cdiPioConfGetBatchedRMA
+! (INTEGER confResH)
+ EXTERNAL cdiPioConfGetBatchedRMA
+
+ INTEGER cdiPioDistGridCreate
+! (INTEGER gridtype,
+! INTEGER size,
+! INTEGER xsize,
+! INTEGER ysize,
+! INTEGER nvertex,
+! INTEGER xy_decomposition_optional(2,*),
+! TYPE(XT_IDXLIST)partDesc2D,
+! TYPE(XT_IDXLIST)partDescX,
+! TYPE(XT_IDXLIST)partDescY)
+ EXTERNAL cdiPioDistGridCreate
+
+! cdiPioDistGridEnableIndividualQueries
+! (INTEGER gridID)
+ EXTERNAL cdiPioDistGridEnableIndividualQueries
+
+! cdiPioDistGridDisableIndividualQueries
+! (INTEGER gridID)
+ EXTERNAL cdiPioDistGridDisableIndividualQueries
+
+ LOGICAL cdiPioDistGridIndividualQueriesEnabled
+! (INTEGER gridID)
+ EXTERNAL cdiPioDistGridIndividualQueriesEnabled
+
+ INTEGER cdiPioInqInterComm
+ EXTERNAL cdiPioInqInterComm
+
+!
+! End of fortran interface
+!
diff --git a/src/cdipioFortran.c b/src/cdipioFortran.c
new file mode 100644
index 000000000..7879d5a59
--- /dev/null
+++ b/src/cdipioFortran.c
@@ -0,0 +1,186 @@
+// Automatically generated by make_fint.c, don't edit!
+
+// clang-format off
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#ifndef CDIPIO_H_
+#include "cdipio.h"
+#endif
+
+#ifdef HAVE_CF_INTERFACE
+
+#include <limits.h>
+#include <assert.h>
+
+#ifndef __CFORTRAN_LOADED
+# if defined __clang__
+# pragma GCC diagnostic push
+# pragma GCC diagnostic ignored "-Wreserved-id-macro"
+# endif
+# include "cfortran.h"
+# if defined __clang__
+# pragma GCC diagnostic pop
+# endif
+#endif
+/* These functions are meant to be called from Fortran and don't
+ * need an interface declaration in a C header. */
+#ifdef __clang__
+# pragma GCC diagnostic push
+# pragma GCC diagnostic ignored "-Wmissing-prototypes"
+#endif
+
+#ifdef CDI_H_
+
+static inline
+int SizeType_c2f(SizeType value_SizeType)
+{
+ assert(value_SizeType < INT_MAX);
+ return (int) value_SizeType;
+}
+
+#endif
+
+/* Start of fortran interface for the following routines (make_fint.c) */
+
+
+/* parallel IO IOMode */
+
+
+/* parallel IO routines */
+
+FCALLSCSUB0 (pioEndDef, PIOENDDEF, pioenddef)
+FCALLSCSUB0 (pioEndTimestepping, PIOENDTIMESTEPPING, pioendtimestepping)
+FCALLSCSUB0 (pioFinalize, PIOFINALIZE, piofinalize)
+FCALLSCSUB0 (cdiPioNoPostCommSetup, CDIPIONOPOSTCOMMSETUP, cdipionopostcommsetup)
+
+#undef ROUTINE_6
+#define ROUTINE_6 (void (*)(void))
+static int pioInit_fwrap(int commSuper, int nProcsIO, int IOMode, int *pioNamespace, float partInflate, void (*postCommSetupActions)(void))
+{
+ MPI_Comm v;
+ v = pioInit(MPI_Comm_f2c(commSuper), nProcsIO, IOMode, pioNamespace, partInflate, postCommSetupActions);
+ return MPI_Comm_c2f(v);
+}
+FCALLSCFUN6 (INT, pioInit_fwrap, PIOINIT, pioinit, INT, INT, INT, PINT, FLOAT, ROUTINE)
+static int cdiPioInit_fwrap(int commSuper, int confResH, int *pioNamespace)
+{
+ MPI_Comm v;
+ v = cdiPioInit(MPI_Comm_f2c(commSuper), confResH, pioNamespace);
+ return MPI_Comm_c2f(v);
+}
+FCALLSCFUN3 (INT, cdiPioInit_fwrap, CDIPIOINIT, cdipioinit, INT, INT, PINT)
+FCALLSCSUB0 (pioWriteTimestep, PIOWRITETIMESTEP, piowritetimestep)
+FCALLSCSUB0 (cdiPioRDMAProgress, CDIPIORDMAPROGRESS, cdipiordmaprogress)
+FCALLSCSUB4 (cdiPioStreamDefDecomposedVlist, CDIPIOSTREAMDEFDECOMPOSEDVLIST, cdipiostreamdefdecomposedvlist, INT, INT, PVOID, INTV)
+static void streamWriteVarPart_fwrap(int streamID, int varID, double *data, int numMissVals, void *partDesc)
+{
+ streamWriteVarPart(streamID, varID, data, numMissVals, (*(Xt_idxlist *)partDesc));
+}
+FCALLSCSUB5 (streamWriteVarPart_fwrap, STREAMWRITEVARPART, streamwritevarpart, INT, INT, PDOUBLE, INT, PVOID)
+static void streamWriteVarPartF_fwrap(int streamID, int varID, float *data, int numMissVals, void *partDesc)
+{
+ streamWriteVarPartF(streamID, varID, data, numMissVals, (*(Xt_idxlist *)partDesc));
+}
+FCALLSCSUB5 (streamWriteVarPartF_fwrap, STREAMWRITEVARPARTF, streamwritevarpartf, INT, INT, PFLOAT, INT, PVOID)
+static void streamWriteScatteredVarPart_fwrap(int streamID, int varID, double *data, int numBlocks, const int blocklengths[], const int displacements[], int numMissVals, void *partDesc)
+{
+ streamWriteScatteredVarPart(streamID, varID, data, numBlocks, blocklengths, displacements, numMissVals, (*(Xt_idxlist *)partDesc));
+}
+FCALLSCSUB8 (streamWriteScatteredVarPart_fwrap, STREAMWRITESCATTEREDVARPART, streamwritescatteredvarpart, INT, INT, PDOUBLE, INT, INTV, INTV, INT, PVOID)
+static void streamWriteScatteredVarPartF_fwrap(int streamID, int varID, float *data, int numBlocks, const int blocklengths[], const int displacements[], int numMissVals, void *partDesc)
+{
+ streamWriteScatteredVarPartF(streamID, varID, data, numBlocks, blocklengths, displacements, numMissVals, (*(Xt_idxlist *)partDesc));
+}
+FCALLSCSUB8 (streamWriteScatteredVarPartF_fwrap, STREAMWRITESCATTEREDVARPARTF, streamwritescatteredvarpartf, INT, INT, PFLOAT, INT, INTV, INTV, INT, PVOID)
+static int cdiPioCSRLastN_fwrap(int commSuper, int IOMode, int nProcsIO)
+{
+ int v;
+ v = cdiPioCSRLastN(MPI_Comm_f2c(commSuper), IOMode, nProcsIO);
+ return v;
+}
+FCALLSCFUN3 (INT, cdiPioCSRLastN_fwrap, CDIPIOCSRLASTN, cdipiocsrlastn, INT, INT, INT)
+static int cdiPioCSRFirstN_fwrap(int commSuper, int IOMode, int nProcsIO)
+{
+ int v;
+ v = cdiPioCSRFirstN(MPI_Comm_f2c(commSuper), IOMode, nProcsIO);
+ return v;
+}
+FCALLSCFUN3 (INT, cdiPioCSRFirstN_fwrap, CDIPIOCSRFIRSTN, cdipiocsrfirstn, INT, INT, INT)
+static int cdiPioCSRBalanced_fwrap(int commSuper, int IOMode, int nProcsIO)
+{
+ int v;
+ v = cdiPioCSRBalanced(MPI_Comm_f2c(commSuper), IOMode, nProcsIO);
+ return v;
+}
+FCALLSCFUN3 (INT, cdiPioCSRBalanced_fwrap, CDIPIOCSRBALANCED, cdipiocsrbalanced, INT, INT, INT)
+FCALLSCFUN1 (INT, cdiPioStr2IOMode, CDIPIOSTR2IOMODE, cdipiostr2iomode, STRING)
+FCALLSCFUN1 (STRING, cdiPioIOMode2Str, CDIPIOIOMODE2STR, cdipioiomode2str, INT)
+FCALLSCFUN0 (INT, cdiPioConfCreate, CDIPIOCONFCREATE, cdipioconfcreate)
+FCALLSCSUB1 (cdiPioConfDestroy, CDIPIOCONFDESTROY, cdipioconfdestroy, INT)
+FCALLSCSUB2 (cdiPioConfSetPartInflate, CDIPIOCONFSETPARTINFLATE, cdipioconfsetpartinflate, INT, FLOAT)
+FCALLSCFUN1 (FLOAT, cdiPioConfGetPartInflate, CDIPIOCONFGETPARTINFLATE, cdipioconfgetpartinflate, INT)
+FCALLSCSUB2 (cdiPioConfSetIOMode, CDIPIOCONFSETIOMODE, cdipioconfsetiomode, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetIOMode, CDIPIOCONFGETIOMODE, cdipioconfgetiomode, INT)
+FCALLSCSUB2 (cdiPioConfSetCSRole, CDIPIOCONFSETCSROLE, cdipioconfsetcsrole, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetCSRole, CDIPIOCONFGETCSROLE, cdipioconfgetcsrole, INT)
+
+#undef ROUTINE_2
+#define ROUTINE_2 (void (*)(void))
+FCALLSCSUB2 (cdiPioConfSetPostCommSetupActions, CDIPIOCONFSETPOSTCOMMSETUPACTIONS, cdipioconfsetpostcommsetupactions, INT, ROUTINE)
+
+#undef ROUTINE_3
+#define ROUTINE_3 (void (*)(void))
+FCALLSCSUB3 (cdiPioConfSetCallBackActions, CDIPIOCONFSETCALLBACKACTIONS, cdipioconfsetcallbackactions, INT, INT, ROUTINE)
+
+/* cdiPioConfSetLargePageAlign should block buffer be aligned to
+ * large pages instead of normal pages? */
+
+FCALLSCSUB2 (cdiPioConfSetLargePageAlign, CDIPIOCONFSETLARGEPAGEALIGN, cdipioconfsetlargepagealign, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetLargePageAlign, CDIPIOCONFGETLARGEPAGEALIGN, cdipioconfgetlargepagealign, INT)
+FCALLSCSUB2 (cdiPioConfSetRecordAggBufLim, CDIPIOCONFSETRECORDAGGBUFLIM, cdipioconfsetrecordaggbuflim, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetRecordAggBufLim, CDIPIOCONFGETRECORDAGGBUFLIM, cdipioconfgetrecordaggbuflim, INT)
+FCALLSCSUB2 (cdiPioConfSetWriteAggBufLim, CDIPIOCONFSETWRITEAGGBUFLIM, cdipioconfsetwriteaggbuflim, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetWriteAggBufLim, CDIPIOCONFGETWRITEAGGBUFLIM, cdipioconfgetwriteaggbuflim, INT)
+FCALLSCSUB2 (cdiPioConfSetAioQueueDepth, CDIPIOCONFSETAIOQUEUEDEPTH, cdipioconfsetaioqueuedepth, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetAioQueueDepth, CDIPIOCONFGETAIOQUEUEDEPTH, cdipioconfgetaioqueuedepth, INT)
+FCALLSCSUB2 (cdiPioConfSetMaxPathLen, CDIPIOCONFSETMAXPATHLEN, cdipioconfsetmaxpathlen, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetMaxPathLen, CDIPIOCONFGETMAXPATHLEN, cdipioconfgetmaxpathlen, INT)
+FCALLSCSUB2 (cdiPioConfSetRedistCache, CDIPIOCONFSETREDISTCACHE, cdipioconfsetredistcache, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetRedistCache, CDIPIOCONFGETREDISTCACHE, cdipioconfgetredistcache, INT)
+FCALLSCSUB2 (cdiPioConfSetXmapCache, CDIPIOCONFSETXMAPCACHE, cdipioconfsetxmapcache, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetXmapCache, CDIPIOCONFGETXMAPCACHE, cdipioconfgetxmapcache, INT)
+FCALLSCSUB2 (cdiPioConfSetStripeConversion, CDIPIOCONFSETSTRIPECONVERSION, cdipioconfsetstripeconversion, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetStripeConversion, CDIPIOCONFGETSTRIPECONVERSION, cdipioconfgetstripeconversion, INT)
+FCALLSCSUB2 (cdiPioConfSetBatchedRMA, CDIPIOCONFSETBATCHEDRMA, cdipioconfsetbatchedrma, INT, INT)
+FCALLSCFUN1 (INT, cdiPioConfGetBatchedRMA, CDIPIOCONFGETBATCHEDRMA, cdipioconfgetbatchedrma, INT)
+static int cdiPioDistGridCreate_fwrap(int gridtype, int size, int xsize, int ysize, int nvertex, const int xy_decomposition_optional[][2], void *partDesc2D, void *partDescX, void *partDescY)
+{
+ int v;
+ v = cdiPioDistGridCreate(gridtype, size, xsize, ysize, nvertex, xy_decomposition_optional, (*(Xt_idxlist *)partDesc2D), (*(Xt_idxlist *)partDescX), (*(Xt_idxlist *)partDescY));
+ return v;
+}
+FCALLSCFUN9 (INT, cdiPioDistGridCreate_fwrap, CDIPIODISTGRIDCREATE, cdipiodistgridcreate, INT, INT, INT, INT, INT, INTVV, PVOID, PVOID, PVOID)
+FCALLSCSUB1 (cdiPioDistGridEnableIndividualQueries, CDIPIODISTGRIDENABLEINDIVIDUALQUERIES, cdipiodistgridenableindividualqueries, INT)
+FCALLSCSUB1 (cdiPioDistGridDisableIndividualQueries, CDIPIODISTGRIDDISABLEINDIVIDUALQUERIES, cdipiodistgriddisableindividualqueries, INT)
+FCALLSCFUN1 (LOGICAL, cdiPioDistGridIndividualQueriesEnabled, CDIPIODISTGRIDINDIVIDUALQUERIESENABLED, cdipiodistgridindividualqueriesenabled, INT)
+static int cdiPioInqInterComm_fwrap()
+{
+ MPI_Comm v;
+ v = cdiPioInqInterComm();
+ return MPI_Comm_c2f(v);
+}
+FCALLSCFUN0 (INT, cdiPioInqInterComm_fwrap, CDIPIOINQINTERCOMM, cdipioinqintercomm)
+
+/* End of fortran interface */
+
+
+#if defined __clang__
+# pragma GCC diagnostic pop
+#endif
+
+// clang-format on
+
+#endif
diff --git a/src/config.h.in b/src/config.h.in
new file mode 100644
index 000000000..db6e9fa99
--- /dev/null
+++ b/src/config.h.in
@@ -0,0 +1,334 @@
+/* src/config.h.in. Generated from configure.ac by autoheader. */
+
+/* Define if building universal (internal helper macro) */
+#undef AC_APPLE_UNIVERSAL_BUILD
+
+/* CDI version */
+#undef CDI
+
+/* Compiler */
+#undef COMPILER
+
+/* Compiler version */
+#undef COMP_VERSION
+
+/* Define to 1 for ACROSS support */
+#undef HAVE_ACROSS
+
+/* Defined if backtrace() could be fully identified. */
+#undef HAVE_BACKTRACE
+
+/* Defined to 1 if C / Fortran interface cfortran.h works */
+#undef HAVE_CF_INTERFACE
+
+/* Define to 1 if you have the declaration of `isnan', and to 0 if you don't.
+ */
+#undef HAVE_DECL_ISNAN
+
+/* Define to 1 if you have the declaration of `MPI_UNSIGNED_LONG_LONG', and to
+ 0 if you don't. */
+#undef HAVE_DECL_MPI_UNSIGNED_LONG_LONG
+
+/* Define to 1 if you have the declaration of `nc_inq_format_extended', and to
+ 0 if you don't. */
+#undef HAVE_DECL_NC_INQ_FORMAT_EXTENDED
+
+/* Define to 1 if you have the declaration of `PAGESIZE', and to 0 if you
+ don't. */
+#undef HAVE_DECL_PAGESIZE
+
+/* Define to 1 if you have the declaration of `PAGE_SIZE', and to 0 if you
+ don't. */
+#undef HAVE_DECL_PAGE_SIZE
+
+/* Define to 1 if you have the declaration of `POSIX_REC_XFER_ALIGN', and to 0
+ if you don't. */
+#undef HAVE_DECL_POSIX_REC_XFER_ALIGN
+
+/* Define to 1 if you have the declaration of `uuid_create', and to 0 if you
+ don't. */
+#undef HAVE_DECL_UUID_CREATE
+
+/* Define to 1 if you have the declaration of `uuid_generate', and to 0 if you
+ don't. */
+#undef HAVE_DECL_UUID_GENERATE
+
+/* Define to 1 if you have the declaration of `UUID_MAKE_V5', and to 0 if you
+ don't. */
+#undef HAVE_DECL_UUID_MAKE_V5
+
+/* Define to 1 if you have the declaration of `_PC_REC_XFER_ALIGN', and to 0
+ if you don't. */
+#undef HAVE_DECL__PC_REC_XFER_ALIGN
+
+/* Define to 1 if you have the declaration of `_SC_LARGE_PAGESIZE', and to 0
+ if you don't. */
+#undef HAVE_DECL__SC_LARGE_PAGESIZE
+
+/* Define to 1 if you have the declaration of `_SC_PAGESIZE', and to 0 if you
+ don't. */
+#undef HAVE_DECL__SC_PAGESIZE
+
+/* Define to 1 if you have the declaration of `_SC_PAGE_SIZE', and to 0 if you
+ don't. */
+#undef HAVE_DECL__SC_PAGE_SIZE
+
+/* Define to 1 if __builtin_ctz is available, 0 if not */
+#undef HAVE_DECL___BUILTIN_CTZ
+
+/* Define to 1 if you have the <dlfcn.h> header file. */
+#undef HAVE_DLFCN_H
+
+/* Define to 1 if you have the <execinfo.h> header file. */
+#undef HAVE_EXECINFO_H
+
+/* Define to 1 if you have the <fdb5/api/fdb_c.h> header file. */
+#undef HAVE_FDB5_API_FDB_C_H
+
+/* Define to 1 if you have the `getline' function. */
+#undef HAVE_GETLINE
+
+/* Define to 1 if you have the `getpagesize' function. */
+#undef HAVE_GETPAGESIZE
+
+/* Define to 1 if you have the <grib_api.h> header file. */
+#undef HAVE_GRIB_API_H
+
+/* Define to 1 if you have the `grib_get_length' function. */
+#undef HAVE_GRIB_GET_LENGTH
+
+/* Define to 1 for H5get_libversion support */
+#undef HAVE_H5GET_LIBVERSION
+
+/* Define to 1 if you have the <inttypes.h> header file. */
+#undef HAVE_INTTYPES_H
+
+/* Define to 1 for GRIB1 decoding/encoding with cgribex */
+#undef HAVE_LIBCGRIBEX
+
+/* Define to 1 for EXTRA interface */
+#undef HAVE_LIBEXTRA
+
+/* Define to 1 for FDB5 support */
+#undef HAVE_LIBFDB5
+
+/* Define to 1 for GRIB support */
+#undef HAVE_LIBGRIB
+
+/* GRIB_API library is present if defined to 1 */
+#undef HAVE_LIBGRIB_API
+
+/* Define to 1 for IEG interface */
+#undef HAVE_LIBIEG
+
+/* Define to 1 for NetCDF OpenDAP */
+#undef HAVE_LIBNC_DAP
+
+/* Define to 1 for NetCDF support */
+#undef HAVE_LIBNETCDF
+
+/* Define to 1 if you have the `pthread' library (-lpthread). */
+#undef HAVE_LIBPTHREAD
+
+/* Define to 1 for SERVICE interface */
+#undef HAVE_LIBSERVICE
+
+/* Define to 1 for SZIP support */
+#undef HAVE_LIBSZ
+
+/* Define to 1 if you have the `mallinfo' function. */
+#undef HAVE_MALLINFO
+
+/* Define to 1 if you have the <malloc.h> header file. */
+#undef HAVE_MALLOC_H
+
+/* Define to 1 if you have the <memory.h> header file. */
+#undef HAVE_MEMORY_H
+
+/* Define to 1 if you have a working `mmap' system call. */
+#undef HAVE_MMAP
+
+/* Define to 1 for NetCDF4/HDF5 support */
+#undef HAVE_NC4HDF5
+
+/* Define to 1 for NetCDF4/szlib support */
+#undef HAVE_NC4SZLIB
+
+/* Define to 1 for NetCDF Zarr */
+#undef HAVE_NCZARR
+
+/* Define to 1 for NetCDF4 nc_def_var_szip support */
+#undef HAVE_NC_DEF_VAR_SZIP
+
+/* Define to 1 for NetCDF2 support */
+#undef HAVE_NETCDF2
+
+/* Define to 1 for NetCDF4 support */
+#undef HAVE_NETCDF4
+
+/* Define to 1 if you have the <netcdf.h> header file. */
+#undef HAVE_NETCDF_H
+
+/* Define to 1 if you have the <netcdf_meta.h> header file. */
+#undef HAVE_NETCDF_META_H
+
+/* Define to 1 if you have the <netcdf_par.h> header file. */
+#undef HAVE_NETCDF_PAR_H
+
+/* Defined to 1 if NetCDF parallel open supports NC_PNETCDF */
+#undef HAVE_NETCDF_PAR_PNETCDF
+
+/* netCDF library does support MPI parallel invocations */
+#undef HAVE_PARALLEL_NC4
+
+/* ScalES PPM C core library is available */
+#undef HAVE_PPM_CORE
+
+/* Define to 1 if you have the <ppm/dist_array.h> header file. */
+#undef HAVE_PPM_DIST_ARRAY_H
+
+/* Define to 1 if you have the <pthread.h> header file. */
+#undef HAVE_PTHREAD_H
+
+/* Have PTHREAD_PRIO_INHERIT. */
+#undef HAVE_PTHREAD_PRIO_INHERIT
+
+/* Define to 1 if you have the `pwrite' function. */
+#undef HAVE_PWRITE
+
+/* If available, contains the Python version number currently in use. */
+#undef HAVE_PYTHON
+
+/* Define to 1 if you have the <stdint.h> header file. */
+#undef HAVE_STDINT_H
+
+/* Define to 1 if you have the <stdlib.h> header file. */
+#undef HAVE_STDLIB_H
+
+/* Define to 1 if you have the <strings.h> header file. */
+#undef HAVE_STRINGS_H
+
+/* Define to 1 if you have the <string.h> header file. */
+#undef HAVE_STRING_H
+
+/* Define to 1 if `st_blksize' is a member of `struct stat'. */
+#undef HAVE_STRUCT_STAT_ST_BLKSIZE
+
+/* Define to 1 if you have the <sys/param.h> header file. */
+#undef HAVE_SYS_PARAM_H
+
+/* Define to 1 if you have the <sys/stat.h> header file. */
+#undef HAVE_SYS_STAT_H
+
+/* Define to 1 if you have the <sys/time.h> header file. */
+#undef HAVE_SYS_TIME_H
+
+/* Define to 1 if you have the <sys/types.h> header file. */
+#undef HAVE_SYS_TYPES_H
+
+/* Define to 1 if you have the <szlib.h> header file. */
+#undef HAVE_SZLIB_H
+
+/* Define to 1 if you have the <unistd.h> header file. */
+#undef HAVE_UNISTD_H
+
+/* Define to 1 if you have the <uuid.h> header file. */
+#undef HAVE_UUID_H
+
+/* Define to 1 if you have the <uuid/uuid.h> header file. */
+#undef HAVE_UUID_UUID_H
+
+/* Define to 1 for HIRLAM extensions */
+#undef HIRLAM_EXTENSIONS
+
+/* Define to the sub-directory where libtool stores uninstalled libraries. */
+#undef LT_OBJDIR
+
+/* Name of package */
+#undef PACKAGE
+
+/* Define to the address where bug reports for this package should be sent. */
+#undef PACKAGE_BUGREPORT
+
+/* Define to the full name of this package. */
+#undef PACKAGE_NAME
+
+/* Define to the full name and version of this package. */
+#undef PACKAGE_STRING
+
+/* Define to the one symbol short name of this package. */
+#undef PACKAGE_TARNAME
+
+/* Define to the home page for this package. */
+#undef PACKAGE_URL
+
+/* Define to the version of this package. */
+#undef PACKAGE_VERSION
+
+/* Define to necessary symbol if this constant uses a non-standard name on
+ your system. */
+#undef PTHREAD_CREATE_JOINABLE
+
+/* The size of `unsigned long', as computed by sizeof. */
+#undef SIZEOF_UNSIGNED_LONG
+
+/* The size of `unsigned long long', as computed by sizeof. */
+#undef SIZEOF_UNSIGNED_LONG_LONG
+
+/* The size of `Xt_uid', as computed by sizeof. */
+#undef SIZEOF_XT_UID
+
+/* Define to 1 if you have the ANSI C header files. */
+#undef STDC_HEADERS
+
+/* System type */
+#undef SYSTEM_TYPE
+
+/* If the compiler supports a TLS storage class, define it to that here */
+#undef TLS
+
+/* Version number of package */
+#undef VERSION
+
+/* Define WORDS_BIGENDIAN to 1 if your processor stores words with the most
+ significant byte first (like Motorola and SPARC, unlike Intel). */
+#if defined AC_APPLE_UNIVERSAL_BUILD
+# if defined __BIG_ENDIAN__
+# define WORDS_BIGENDIAN 1
+# endif
+#else
+# ifndef WORDS_BIGENDIAN
+# undef WORDS_BIGENDIAN
+# endif
+#endif
+
+/* Defined to MPI datatype to be used for Xt_uid */
+#undef YAXT_UID_DT
+
+/* Enable large inode numbers on Mac OS X 10.5. */
+#ifndef _DARWIN_USE_64_BIT_INODE
+# define _DARWIN_USE_64_BIT_INODE 1
+#endif
+
+/* Number of bits in a file offset, on hosts where this is settable. */
+#undef _FILE_OFFSET_BITS
+
+/* Define for large files, on AIX-style hosts. */
+#undef _LARGE_FILES
+
+/* Defined to return type of backtrace(). */
+#undef backtrace_size_t
+
+/* Define to the equivalent of the C99 'restrict' keyword, or to
+ nothing if this is not supported. Do not define if restrict is
+ supported directly. */
+#undef restrict
+/* Work around a bug in Sun C++: it does not support _Restrict or
+ __restrict__, even though the corresponding Sun C compiler ends up with
+ "#define restrict _Restrict" or "#define restrict __restrict__" in the
+ previous line. Perhaps some future version of Sun C++ will work with
+ restrict; if so, hopefully it defines __RESTRICT like Sun C does. */
+#if defined __SUNPRO_CC && !defined __RESTRICT
+# define _Restrict
+# define __restrict__
+#endif
diff --git a/src/mo_cdi.f90 b/src/mo_cdi.f90
new file mode 100644
index 000000000..069a38bab
--- /dev/null
+++ b/src/mo_cdi.f90
@@ -0,0 +1,6121 @@
+! >>> Warning: This is a generated file. If you modify it, you get what you deserve. <<<
+!
+! Generated by "../interfaces/f2003/bindGen.rb" from input file "cdi.h".
+
+module mo_cdi
+ use iso_c_binding
+ implicit none
+ private
+
+ public ctrim
+ public c_len
+
+ interface
+ integer(c_size_t) function lib_strlen(charPtr) bind(c, name = "strlen")
+ import c_size_t, c_ptr
+ type(c_ptr), value :: charPtr
+ end function lib_strlen
+
+ subroutine lib_free(ptr) bind(c, name = "free")
+ import c_ptr
+ type(c_ptr), value, intent(in) :: ptr
+ end subroutine lib_free
+ end interface
+
+ integer(c_int), public, parameter :: CDI_MAX_NAME = 256
+ integer(c_int), public, parameter :: CDI_UNDEFID = -1
+ integer(c_int), public, parameter :: CDI_GLOBAL = -1
+ integer(c_int), public, parameter :: CDI_XAXIS = 1
+ integer(c_int), public, parameter :: CDI_YAXIS = 2
+ integer(c_int), public, parameter :: CDI_BIGENDIAN = 0
+ integer(c_int), public, parameter :: CDI_LITTLEENDIAN = 1
+ integer(c_int), public, parameter :: CDI_PDPENDIAN = 2
+ integer(c_int), public, parameter :: CDI_REAL = 1
+ integer(c_int), public, parameter :: CDI_COMP = 2
+ integer(c_int), public, parameter :: CDI_BOTH = 3
+ integer(c_int), public, parameter :: CDI_NOERR = 0
+ integer(c_int), public, parameter :: CDI_EEOF = -1
+ integer(c_int), public, parameter :: CDI_ETMOF = -9
+ integer(c_int), public, parameter :: CDI_ESYSTEM = -10
+ integer(c_int), public, parameter :: CDI_EINVAL = -20
+ integer(c_int), public, parameter :: CDI_EISDIR = -21
+ integer(c_int), public, parameter :: CDI_EISEMPTY = -22
+ integer(c_int), public, parameter :: CDI_EUFTYPE = -23
+ integer(c_int), public, parameter :: CDI_ELIBNAVAIL = -24
+ integer(c_int), public, parameter :: CDI_EUFSTRUCT = -25
+ integer(c_int), public, parameter :: CDI_EUNC4 = -26
+ integer(c_int), public, parameter :: CDI_EDIMSIZE = -27
+ integer(c_int), public, parameter :: CDI_EQENF = -50
+ integer(c_int), public, parameter :: CDI_EQNAVAIL = -51
+ integer(c_int), public, parameter :: CDI_ELIMIT = -99
+ integer(c_int), public, parameter :: CDI_FILETYPE_GRB = 1
+ integer(c_int), public, parameter :: CDI_FILETYPE_GRB2 = 2
+ integer(c_int), public, parameter :: CDI_FILETYPE_NC = 3
+ integer(c_int), public, parameter :: CDI_FILETYPE_NC2 = 4
+ integer(c_int), public, parameter :: CDI_FILETYPE_NC4 = 5
+ integer(c_int), public, parameter :: CDI_FILETYPE_NC4C = 6
+ integer(c_int), public, parameter :: CDI_FILETYPE_NC5 = 7
+ integer(c_int), public, parameter :: CDI_FILETYPE_SRV = 8
+ integer(c_int), public, parameter :: CDI_FILETYPE_EXT = 9
+ integer(c_int), public, parameter :: CDI_FILETYPE_IEG = 10
+ integer(c_int), public, parameter :: CDI_FILETYPE_NCZARR = 11
+ integer(c_int), public, parameter :: FILETYPE_GRB = 1
+ integer(c_int), public, parameter :: FILETYPE_GRB2 = 2
+ integer(c_int), public, parameter :: FILETYPE_NC = 3
+ integer(c_int), public, parameter :: FILETYPE_NC2 = 4
+ integer(c_int), public, parameter :: FILETYPE_NC4 = 5
+ integer(c_int), public, parameter :: CDI_PROTOCOL_OTHER = 0
+ integer(c_int), public, parameter :: CDI_PROTOCOL_FILE = 1
+ integer(c_int), public, parameter :: CDI_PROTOCOL_FDB = 2
+ integer(c_int), public, parameter :: CDI_PROTOCOL_ACROSS = 3
+ integer(c_int), public, parameter :: CDI_COMPRESS_NONE = 0
+ integer(c_int), public, parameter :: CDI_COMPRESS_SZIP = 1
+ integer(c_int), public, parameter :: CDI_COMPRESS_AEC = 2
+ integer(c_int), public, parameter :: CDI_COMPRESS_ZIP = 3
+ integer(c_int), public, parameter :: CDI_COMPRESS_JPEG = 4
+ integer(c_int), public, parameter :: CDI_COMPRESS_FILTER = 5
+ integer(c_int), public, parameter :: DATATYPE_PACK16 = 16
+ integer(c_int), public, parameter :: DATATYPE_PACK24 = 24
+ integer(c_int), public, parameter :: DATATYPE_FLT32 = 132
+ integer(c_int), public, parameter :: DATATYPE_FLT64 = 164
+ integer(c_int), public, parameter :: DATATYPE_INT32 = 232
+ integer(c_int), public, parameter :: DATATYPE_INT = 251
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK = 0
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK1 = 1
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK2 = 2
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK3 = 3
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK4 = 4
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK5 = 5
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK6 = 6
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK7 = 7
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK8 = 8
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK9 = 9
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK10 = 10
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK11 = 11
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK12 = 12
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK13 = 13
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK14 = 14
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK15 = 15
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK16 = 16
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK17 = 17
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK18 = 18
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK19 = 19
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK20 = 20
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK21 = 21
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK22 = 22
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK23 = 23
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK24 = 24
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK25 = 25
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK26 = 26
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK27 = 27
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK28 = 28
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK29 = 29
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK30 = 30
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK31 = 31
+ integer(c_int), public, parameter :: CDI_DATATYPE_PACK32 = 32
+ integer(c_int), public, parameter :: CDI_DATATYPE_CPX32 = 64
+ integer(c_int), public, parameter :: CDI_DATATYPE_CPX64 = 128
+ integer(c_int), public, parameter :: CDI_DATATYPE_FLT32 = 132
+ integer(c_int), public, parameter :: CDI_DATATYPE_FLT64 = 164
+ integer(c_int), public, parameter :: CDI_DATATYPE_INT8 = 208
+ integer(c_int), public, parameter :: CDI_DATATYPE_INT16 = 216
+ integer(c_int), public, parameter :: CDI_DATATYPE_INT32 = 232
+ integer(c_int), public, parameter :: CDI_DATATYPE_UINT8 = 308
+ integer(c_int), public, parameter :: CDI_DATATYPE_UINT16 = 316
+ integer(c_int), public, parameter :: CDI_DATATYPE_UINT32 = 332
+ integer(c_int), public, parameter :: CDI_DATATYPE_INT = 251
+ integer(c_int), public, parameter :: CDI_DATATYPE_FLT = 252
+ integer(c_int), public, parameter :: CDI_DATATYPE_TXT = 253
+ integer(c_int), public, parameter :: CDI_DATATYPE_CPX = 254
+ integer(c_int), public, parameter :: CDI_DATATYPE_UCHAR = 255
+ integer(c_int), public, parameter :: CDI_DATATYPE_LONG = 256
+ integer(c_int), public, parameter :: CDI_DATATYPE_UINT = 257
+ integer(c_int), public, parameter :: CDI_CHUNK_AUTO = 1
+ integer(c_int), public, parameter :: CDI_CHUNK_GRID = 2
+ integer(c_int), public, parameter :: CDI_CHUNK_LINES = 3
+ integer(c_int), public, parameter :: GRID_GENERIC = 1
+ integer(c_int), public, parameter :: GRID_GAUSSIAN = 2
+ integer(c_int), public, parameter :: GRID_GAUSSIAN_REDUCED = 3
+ integer(c_int), public, parameter :: GRID_LONLAT = 4
+ integer(c_int), public, parameter :: GRID_SPECTRAL = 5
+ integer(c_int), public, parameter :: GRID_FOURIER = 6
+ integer(c_int), public, parameter :: GRID_GME = 7
+ integer(c_int), public, parameter :: GRID_TRAJECTORY = 8
+ integer(c_int), public, parameter :: GRID_UNSTRUCTURED = 9
+ integer(c_int), public, parameter :: GRID_CURVILINEAR = 10
+ integer(c_int), public, parameter :: GRID_PROJECTION = 12
+ integer(c_int), public, parameter :: GRID_CHARXY = 13
+ integer(c_int), public, parameter :: CDI_PROJ_RLL = 21
+ integer(c_int), public, parameter :: CDI_PROJ_LCC = 22
+ integer(c_int), public, parameter :: CDI_PROJ_LAEA = 23
+ integer(c_int), public, parameter :: CDI_PROJ_SINU = 24
+ integer(c_int), public, parameter :: CDI_PROJ_STERE = 25
+ integer(c_int), public, parameter :: CDI_PROJ_HEALPIX = 26
+ integer(c_int), public, parameter :: ZAXIS_SURFACE = 0
+ integer(c_int), public, parameter :: ZAXIS_GENERIC = 1
+ integer(c_int), public, parameter :: ZAXIS_HYBRID = 2
+ integer(c_int), public, parameter :: ZAXIS_HYBRID_HALF = 3
+ integer(c_int), public, parameter :: ZAXIS_PRESSURE = 4
+ integer(c_int), public, parameter :: ZAXIS_HEIGHT = 5
+ integer(c_int), public, parameter :: ZAXIS_DEPTH_BELOW_SEA = 6
+ integer(c_int), public, parameter :: ZAXIS_DEPTH_BELOW_LAND = 7
+ integer(c_int), public, parameter :: ZAXIS_ISENTROPIC = 8
+ integer(c_int), public, parameter :: ZAXIS_TRAJECTORY = 9
+ integer(c_int), public, parameter :: ZAXIS_ALTITUDE = 10
+ integer(c_int), public, parameter :: ZAXIS_SIGMA = 11
+ integer(c_int), public, parameter :: ZAXIS_MEANSEA = 12
+ integer(c_int), public, parameter :: ZAXIS_TOA = 13
+ integer(c_int), public, parameter :: ZAXIS_SEA_BOTTOM = 14
+ integer(c_int), public, parameter :: ZAXIS_ATMOSPHERE = 15
+ integer(c_int), public, parameter :: ZAXIS_CLOUD_BASE = 16
+ integer(c_int), public, parameter :: ZAXIS_CLOUD_TOP = 17
+ integer(c_int), public, parameter :: ZAXIS_ISOTHERM_ZERO = 18
+ integer(c_int), public, parameter :: ZAXIS_SNOW = 19
+ integer(c_int), public, parameter :: ZAXIS_LAKE_BOTTOM = 20
+ integer(c_int), public, parameter :: ZAXIS_SEDIMENT_BOTTOM = 21
+ integer(c_int), public, parameter :: ZAXIS_SEDIMENT_BOTTOM_TA = 22
+ integer(c_int), public, parameter :: ZAXIS_SEDIMENT_BOTTOM_TW = 23
+ integer(c_int), public, parameter :: ZAXIS_MIX_LAYER = 24
+ integer(c_int), public, parameter :: ZAXIS_REFERENCE = 25
+ integer(c_int), public, parameter :: ZAXIS_CHAR = 26
+ integer(c_int), public, parameter :: ZAXIS_TROPOPAUSE = 27
+ integer(c_int), public, parameter :: MAX_KV_PAIRS_MATCH = 10
+ integer(c_int), public, parameter :: TIME_CONSTANT = 0
+ integer(c_int), public, parameter :: TIME_VARYING = 1
+ integer(c_int), public, parameter :: TIME_VARIABLE = 1
+ integer(c_int), public, parameter :: TSTEP_CONSTANT = 0
+ integer(c_int), public, parameter :: TSTEP_INSTANT = 1
+ integer(c_int), public, parameter :: TSTEP_AVG = 2
+ integer(c_int), public, parameter :: TSTEP_ACCUM = 3
+ integer(c_int), public, parameter :: TSTEP_MAX = 4
+ integer(c_int), public, parameter :: TSTEP_MIN = 5
+ integer(c_int), public, parameter :: TSTEP_DIFF = 6
+ integer(c_int), public, parameter :: TSTEP_RMS = 7
+ integer(c_int), public, parameter :: TSTEP_SD = 8
+ integer(c_int), public, parameter :: TSTEP_COV = 9
+ integer(c_int), public, parameter :: TSTEP_RATIO = 10
+ integer(c_int), public, parameter :: TSTEP_SUM = 11
+ integer(c_int), public, parameter :: TSTEP_RANGE = 12
+ integer(c_int), public, parameter :: TSTEP_INSTANT2 = 13
+ integer(c_int), public, parameter :: TSTEP_INSTANT3 = 14
+ integer(c_int), public, parameter :: TAXIS_ABSOLUTE = 1
+ integer(c_int), public, parameter :: TAXIS_RELATIVE = 2
+ integer(c_int), public, parameter :: TAXIS_FORECAST = 3
+ integer(c_int), public, parameter :: TUNIT_SECOND = 1
+ integer(c_int), public, parameter :: TUNIT_MINUTE = 2
+ integer(c_int), public, parameter :: TUNIT_QUARTER = 3
+ integer(c_int), public, parameter :: TUNIT_30MINUTES = 4
+ integer(c_int), public, parameter :: TUNIT_HOUR = 5
+ integer(c_int), public, parameter :: TUNIT_3HOURS = 6
+ integer(c_int), public, parameter :: TUNIT_6HOURS = 7
+ integer(c_int), public, parameter :: TUNIT_12HOURS = 8
+ integer(c_int), public, parameter :: TUNIT_DAY = 9
+ integer(c_int), public, parameter :: TUNIT_MONTH = 10
+ integer(c_int), public, parameter :: TUNIT_YEAR = 11
+ integer(c_int), public, parameter :: CALENDAR_STANDARD = 0
+ integer(c_int), public, parameter :: CALENDAR_GREGORIAN = 1
+ integer(c_int), public, parameter :: CALENDAR_PROLEPTIC = 2
+ integer(c_int), public, parameter :: CALENDAR_360DAYS = 3
+ integer(c_int), public, parameter :: CALENDAR_365DAYS = 4
+ integer(c_int), public, parameter :: CALENDAR_366DAYS = 5
+ integer(c_int), public, parameter :: CALENDAR_NONE = 6
+ integer(c_int), public, parameter :: CDI_UUID_SIZE = 16
+
+ public t_CdiParam
+ type, bind(c) :: t_CdiParam
+ integer(c_int) :: discipline
+ integer(c_int) :: category
+ integer(c_int) :: number
+ end type t_CdiParam
+
+ public :: t_CdiIterator
+ type :: t_CdiIterator
+ type(c_ptr) :: ptr
+ end type t_CdiIterator
+
+ public :: t_CdiGribIterator
+ type :: t_CdiGribIterator
+ type(c_ptr) :: ptr
+ end type t_CdiGribIterator
+ public :: cdiReset
+ public :: cdiStringError
+ public :: cdiDebug
+ public :: cdiLibraryVersion
+ public :: cdiPrintVersion
+ public :: cdiHaveFiletype
+ public :: cdiDefMissval
+ public :: cdiInqMissval
+ public :: cdiDefGlobal
+ public :: namespaceNew
+ public :: namespaceSetActive
+ public :: namespaceGetActive
+ public :: namespaceDelete
+ public :: cdiParamToString
+ public :: cdiDecodeParam
+ public :: cdiEncodeParam
+ public :: cdiDecodeDate
+ public :: cdiEncodeDate
+ public :: cdiDecodeTime
+ public :: cdiEncodeTime
+ public :: cdiGetFiletype
+ public :: streamOpenRead
+ public :: streamOpenWrite
+ public :: streamOpenAppend
+ public :: streamClose
+ public :: streamSync
+ public :: streamDefMaxSteps
+ public :: streamDefNumWorker
+ public :: streamInqNumSteps
+ public :: streamDefVlist
+ public :: streamInqVlist
+ public :: streamInqFiletype
+ public :: streamDefByteorder
+ public :: streamInqByteorder
+ public :: streamDefShuffle
+ public :: streamDefCompType
+ public :: streamInqCompType
+ public :: streamDefCompLevel
+ public :: streamInqCompLevel
+ public :: streamDefTimestep
+ public :: streamInqTimestep
+ public :: streamInqCurTimestepID
+ public :: streamFilename
+ public :: streamFilesuffix
+ public :: streamNvals
+ public :: streamInqNvars
+ public :: streamWriteVar
+ public :: streamWriteVarF
+ public :: streamReadVar
+ public :: streamReadVarF
+ public :: streamWriteVarSlice
+ public :: streamWriteVarSliceF
+ public :: streamReadVarSlice
+ public :: streamReadVarSliceF
+ public :: streamWriteVarChunk
+ public :: streamWriteVarChunkF
+ public :: streamDefRecord
+ public :: streamInqRecord
+ public :: streamWriteRecord
+ public :: streamWriteRecordF
+ public :: streamReadRecord
+ public :: streamReadRecordF
+ public :: streamCopyRecord
+ public :: cdiIterator_new
+ public :: cdiIterator_clone
+ public :: cdiIterator_serialize
+ public :: cdiIterator_deserialize
+ public :: cdiIterator_delete
+ public :: cdiIterator_nextField
+ public :: cdiIterator_inqStartTime
+ public :: cdiIterator_inqEndTime
+ public :: cdiIterator_inqRTime
+ public :: cdiIterator_inqVTime
+ public :: cdiIterator_inqLevelType
+ public :: cdiIterator_inqLevel
+ public :: cdiIterator_inqLevelUuid
+ public :: cdiIterator_inqTile
+ public :: cdiIterator_inqTileCount
+ public :: cdiIterator_inqParam
+ public :: cdiIterator_inqParamParts
+ public :: cdiIterator_inqDatatype
+ public :: cdiIterator_inqFiletype
+ public :: cdiIterator_inqTsteptype
+ public :: cdiIterator_inqVariableName
+ public :: cdiIterator_inqGridId
+ public :: cdiIterator_readField
+ public :: cdiIterator_readFieldF
+ public :: cdiGribIterator_clone
+ public :: cdiGribIterator_delete
+ public :: cdiGribIterator_getLong
+ public :: cdiGribIterator_getDouble
+ public :: cdiGribIterator_getLength
+ public :: cdiGribIterator_getString
+ public :: cdiGribIterator_getSize
+ public :: cdiGribIterator_getLongArray
+ public :: cdiGribIterator_getDoubleArray
+ public :: cdiGribIterator_inqEdition
+ public :: cdiGribIterator_inqLongValue
+ public :: cdiGribIterator_inqLongDefaultValue
+ public :: cdiGribIterator_inqDoubleValue
+ public :: cdiGribIterator_inqDoubleDefaultValue
+ public :: cdiGribIterator_inqStringValue
+ public :: vlistCreate
+ public :: vlistDestroy
+ public :: vlistDuplicate
+ public :: vlistCopy
+ public :: vlistCopyFlag
+ public :: vlistClearFlag
+ public :: vlistCat
+ public :: vlistMerge
+ public :: vlistPrint
+ public :: vlistNumber
+ public :: vlistNvars
+ public :: vlistNgrids
+ public :: vlistNzaxis
+ public :: vlistNsubtypes
+ public :: vlistDefNtsteps
+ public :: vlistNtsteps
+ public :: vlistGridsizeMax
+ public :: vlistGrid
+ public :: vlistGridIndex
+ public :: vlistChangeGridIndex
+ public :: vlistChangeGrid
+ public :: vlistZaxis
+ public :: vlistZaxisIndex
+ public :: vlistChangeZaxisIndex
+ public :: vlistChangeZaxis
+ public :: vlistNrecs
+ public :: vlistSubtype
+ public :: vlistSubtypeIndex
+ public :: vlistDefTaxis
+ public :: vlistInqTaxis
+ public :: vlistDefTable
+ public :: vlistInqTable
+ public :: vlistDefInstitut
+ public :: vlistInqInstitut
+ public :: vlistDefModel
+ public :: vlistInqModel
+ public :: vlistDefVarTiles
+ public :: vlistDefVar
+ public :: vlistChangeVarGrid
+ public :: vlistChangeVarZaxis
+ public :: vlistInqVar
+ public :: vlistInqVarGrid
+ public :: vlistInqVarZaxis
+ public :: vlistInqVarID
+ public :: vlistDefVarTimetype
+ public :: vlistInqVarTimetype
+ public :: vlistDefVarTsteptype
+ public :: vlistInqVarTsteptype
+ public :: vlistDefVarCompType
+ public :: vlistInqVarCompType
+ public :: vlistDefVarCompLevel
+ public :: vlistInqVarCompLevel
+ public :: vlistDefVarParam
+ public :: vlistInqVarParam
+ public :: vlistDefVarCode
+ public :: vlistInqVarCode
+ public :: vlistDefVarDatatype
+ public :: vlistInqVarDatatype
+ public :: vlistDefVarXYZ
+ public :: vlistInqVarXYZ
+ public :: vlistDefVarNSB
+ public :: vlistInqVarNSB
+ public :: vlistInqVarNumber
+ public :: vlistDefVarInstitut
+ public :: vlistInqVarInstitut
+ public :: vlistDefVarModel
+ public :: vlistInqVarModel
+ public :: vlistDefVarTable
+ public :: vlistInqVarTable
+ public :: vlistDefVarName
+ public :: vlistInqVarName
+ public :: vlistCopyVarName
+ public :: vlistDefVarStdname
+ public :: vlistInqVarStdname
+ public :: vlistDefVarLongname
+ public :: vlistInqVarLongname
+ public :: vlistDefVarUnits
+ public :: vlistInqVarUnits
+ public :: vlistDefVarMissval
+ public :: vlistInqVarMissval
+ public :: vlistInqVarSize
+ public :: vlistDefIndex
+ public :: vlistInqIndex
+ public :: vlistDefFlag
+ public :: vlistInqFlag
+ public :: vlistFindVar
+ public :: vlistFindLevel
+ public :: vlistMergedVar
+ public :: vlistMergedLevel
+ public :: cdiClearAdditionalKeys
+ public :: cdiDefAdditionalKey
+ public :: vlistDefVarIntKey
+ public :: vlistDefVarDblKey
+ public :: vlistHasVarKey
+ public :: vlistInqVarDblKey
+ public :: vlistInqVarIntKey
+ public :: cdiInqNatts
+ public :: cdiInqAtt
+ public :: cdiInqAttLen
+ public :: cdiInqAttType
+ public :: cdiDelAtt
+ public :: cdiCopyAtts
+ public :: cdiDefAttInt
+ public :: cdiDefAttFlt
+ public :: cdiDefAttTxt
+ public :: cdiInqAttInt
+ public :: cdiInqAttFlt
+ public :: cdiInqAttTxt
+ public :: gridName
+ public :: gridNamePtr
+ public :: gridCompress
+ public :: gridDefMaskGME
+ public :: gridInqMaskGME
+ public :: gridDefMask
+ public :: gridInqMask
+ public :: gridCreate
+ public :: gridDestroy
+ public :: gridDuplicate
+ public :: gridDefProj
+ public :: gridInqProj
+ public :: gridInqProjType
+ public :: gridInqType
+ public :: gridInqSize
+ public :: gridDefXsize
+ public :: gridInqXsize
+ public :: gridDefYsize
+ public :: gridInqYsize
+ public :: gridDefNP
+ public :: gridInqNP
+ public :: gridDefXvals
+ public :: gridInqXvals
+ public :: gridInqXvalsPart
+ public :: gridInqXvalsPtr
+ public :: gridInqXIsc
+ public :: gridDefYvals
+ public :: gridInqYvals
+ public :: gridInqYvalsPart
+ public :: gridInqYvalsPtr
+ public :: gridInqYIsc
+ integer(c_int), public, parameter :: CDI_KEY_NAME = 942
+ integer(c_int), public, parameter :: CDI_KEY_LONGNAME = 943
+ integer(c_int), public, parameter :: CDI_KEY_STDNAME = 944
+ integer(c_int), public, parameter :: CDI_KEY_UNITS = 945
+ integer(c_int), public, parameter :: CDI_KEY_DATATYPE = 946
+ integer(c_int), public, parameter :: CDI_KEY_REFERENCEURI = 947
+ integer(c_int), public, parameter :: CDI_KEY_CHUNKS = 948
+ integer(c_int), public, parameter :: CDI_KEY_NUMBEROFGRIDUSED = 961
+ integer(c_int), public, parameter :: CDI_KEY_NUMBEROFGRIDINREFERENCE = 962
+ integer(c_int), public, parameter :: CDI_KEY_NUMBEROFVGRIDUSED = 963
+ integer(c_int), public, parameter :: CDI_KEY_NLEV = 964
+ integer(c_int), public, parameter :: CDI_KEY_CHUNKTYPE = 965
+ integer(c_int), public, parameter :: CDI_KEY_CHUNKSIZE = 966
+ integer(c_int), public, parameter :: CDI_KEY_MISSVAL = 701
+ integer(c_int), public, parameter :: CDI_KEY_ADDOFFSET = 702
+ integer(c_int), public, parameter :: CDI_KEY_SCALEFACTOR = 703
+ integer(c_int), public, parameter :: CDI_KEY_UUID = 960
+ integer(c_int), public, parameter :: CDI_KEY_DIMNAME = 941
+ integer(c_int), public, parameter :: CDI_KEY_PSNAME = 950
+ integer(c_int), public, parameter :: CDI_KEY_P0NAME = 951
+ integer(c_int), public, parameter :: CDI_KEY_P0VALUE = 952
+ integer(c_int), public, parameter :: CDI_KEY_TABLESVERSION = 801
+ integer(c_int), public, parameter :: CDI_KEY_LOCALTABLESVERSION = 802
+ integer(c_int), public, parameter :: CDI_KEY_TYPEOFGENERATINGPROCESS = 803
+ integer(c_int), public, parameter :: CDI_KEY_PRODUCTDEFINITIONTEMPLATE = 804
+ integer(c_int), public, parameter :: CDI_KEY_TYPEOFPROCESSEDDATA = 805
+ integer(c_int), public, parameter :: CDI_KEY_SHAPEOFTHEEARTH = 806
+ integer(c_int), public, parameter :: CDI_KEY_BACKGROUNDPROCESS = 807
+ integer(c_int), public, parameter :: CDI_KEY_TYPEOFENSEMBLEFORECAST = 808
+ integer(c_int), public, parameter :: CDI_KEY_NUMBEROFFORECASTSINENSEMBLE =&
+ & 809
+ integer(c_int), public, parameter :: CDI_KEY_PERTURBATIONNUMBER = 810
+ integer(c_int), public, parameter :: CDI_KEY_CENTRE = 811
+ integer(c_int), public, parameter :: CDI_KEY_SUBCENTRE = 812
+ integer(c_int), public, parameter :: CDI_KEY_MPIMTYPE = 813
+ integer(c_int), public, parameter :: CDI_KEY_MPIMCLASS = 814
+ integer(c_int), public, parameter :: CDI_KEY_MPIMUSER = 815
+ integer(c_int), public, parameter :: CDI_KEY_REVSTATUS = 816
+ integer(c_int), public, parameter :: CDI_KEY_REVNUMBER = 817
+ integer(c_int), public, parameter :: CDI_KEY_GRIB2LOCALSECTIONNUMBER = 818
+ integer(c_int), public, parameter :: CDI_KEY_SECTION2PADDINGLENGTH = 819
+ integer(c_int), public, parameter :: CDI_KEY_SECTION2PADDING = 820
+ integer(c_int), public, parameter :: CDI_KEY_CONSTITUENTTYPE = 821
+ integer(c_int), public, parameter :: CDI_KEY_TYPEOFTIMEINCREMENT = 822
+ integer(c_int), public, parameter :: CDI_KEY_TYPEOFFIRSTFIXEDSURFACE = 823
+ integer(c_int), public, parameter :: CDI_KEY_TYPEOFSECONDFIXEDSURFACE = 824
+ integer(c_int), public, parameter :: CDI_KEY_UVRELATIVETOGRID = 825
+ integer(c_int), public, parameter :: CDI_KEY_SCANNINGMODE = 826
+ integer(c_int), public, parameter :: CDI_KEY_VDIMNAME = 920
+ integer(c_int), public, parameter :: CDI_KEY_GRIDMAP_VARTYPE = 921
+ integer(c_int), public, parameter :: CDI_KEY_GRIDMAP_VARNAME = 922
+ integer(c_int), public, parameter :: CDI_KEY_GRIDMAP_NAME = 923
+ public :: cdiDefKeyInt
+ public :: cdiInqKeyInt
+ public :: cdiDefKeyFloat
+ public :: cdiInqKeyFloat
+ public :: cdiDefKeyBytes
+ public :: cdiInqKeyBytes
+ public :: cdiDefKeyString
+ public :: cdiInqKeyString
+ public :: cdiInqKeyLen
+ public :: cdiCopyKeys
+ public :: cdiCopyKey
+ public :: cdiDeleteKey
+ public :: gridDefXname
+ public :: gridInqXname
+ public :: gridDefXlongname
+ public :: gridInqXlongname
+ public :: gridDefXunits
+ public :: gridInqXunits
+ public :: gridDefYname
+ public :: gridInqYname
+ public :: gridDefYlongname
+ public :: gridInqYlongname
+ public :: gridDefYunits
+ public :: gridInqYunits
+ public :: gridDefDatatype
+ public :: gridInqDatatype
+ public :: gridInqXval
+ public :: gridInqYval
+ public :: gridInqXinc
+ public :: gridInqYinc
+ public :: gridIsCircular
+ public :: gridInqTrunc
+ public :: gridDefTrunc
+ public :: gridDefNumber
+ public :: gridInqNumber
+ public :: gridDefPosition
+ public :: gridInqPosition
+ public :: gridDefReference
+ public :: gridInqReference
+ public :: gridDefUUID
+ public :: gridInqUUID
+ public :: gridDefParamRLL
+ public :: gridInqParamRLL
+ public :: gridDefParamGME
+ public :: gridInqParamGME
+ public :: gridDefArea
+ public :: gridInqArea
+ public :: gridHasArea
+ public :: gridDefNvertex
+ public :: gridInqNvertex
+ public :: gridDefXbounds
+ public :: gridInqXbounds
+ public :: gridInqXboundsPart
+ public :: gridInqXboundsPtr
+ public :: gridDefYbounds
+ public :: gridInqYbounds
+ public :: gridInqYboundsPart
+ public :: gridInqYboundsPtr
+ public :: gridDefReducedPoints
+ public :: gridInqReducedPoints
+ public :: gridChangeType
+ public :: gridDefComplexPacking
+ public :: gridInqComplexPacking
+ public :: zaxisName
+ public :: zaxisNamePtr
+ public :: zaxisCreate
+ public :: zaxisDestroy
+ public :: zaxisInqType
+ public :: zaxisInqSize
+ public :: zaxisDuplicate
+ public :: zaxisDefLevels
+ public :: zaxisInqLevels
+ public :: zaxisInqCLen
+ public :: zaxisDefLevel
+ public :: zaxisInqLevel
+ public :: zaxisDefNlevRef
+ public :: zaxisInqNlevRef
+ public :: zaxisDefNumber
+ public :: zaxisInqNumber
+ public :: zaxisDefUUID
+ public :: zaxisInqUUID
+ public :: zaxisDefName
+ public :: zaxisInqName
+ public :: zaxisDefLongname
+ public :: zaxisInqLongname
+ public :: zaxisDefUnits
+ public :: zaxisInqUnits
+ public :: zaxisInqStdname
+ public :: zaxisDefDatatype
+ public :: zaxisInqDatatype
+ public :: zaxisDefPositive
+ public :: zaxisInqPositive
+ public :: zaxisDefScalar
+ public :: zaxisInqScalar
+ public :: zaxisDefVct
+ public :: zaxisInqVct
+ public :: zaxisInqVctSize
+ public :: zaxisInqVctPtr
+ public :: zaxisDefLbounds
+ public :: zaxisInqLbounds
+ public :: zaxisInqLbound
+ public :: zaxisDefUbounds
+ public :: zaxisInqUbounds
+ public :: zaxisInqUbound
+ public :: zaxisDefWeights
+ public :: zaxisInqWeights
+ public :: zaxisChangeType
+ public :: taxisCreate
+ public :: taxisDestroy
+ public :: taxisDuplicate
+ public :: taxisCopyTimestep
+ public :: taxisDefType
+ public :: taxisInqType
+ public :: taxisDefVdate
+ public :: taxisDefVtime
+ public :: taxisInqVdate
+ public :: taxisInqVtime
+ public :: taxisDefRdate
+ public :: taxisDefRtime
+ public :: taxisInqRdate
+ public :: taxisInqRtime
+ public :: taxisHasBounds
+ public :: taxisWithBounds
+ public :: taxisDeleteBounds
+ public :: taxisDefVdateBounds
+ public :: taxisDefVtimeBounds
+ public :: taxisInqVdateBounds
+ public :: taxisInqVtimeBounds
+ public :: taxisDefCalendar
+ public :: taxisInqCalendar
+ public :: taxisDefTunit
+ public :: taxisInqTunit
+ public :: taxisDefForecastTunit
+ public :: taxisInqForecastTunit
+ public :: taxisDefForecastPeriod
+ public :: taxisInqForecastPeriod
+ public :: taxisDefNumavg
+ public :: taxisInqNumavg
+ public :: taxisNamePtr
+ public :: tunitNamePtr
+ public :: institutDef
+ public :: institutInq
+ public :: institutInqNumber
+ public :: institutInqCenter
+ public :: institutInqSubcenter
+ public :: institutInqNamePtr
+ public :: institutInqLongnamePtr
+ public :: modelDef
+ public :: modelInq
+ public :: modelInqInstitut
+ public :: modelInqGribID
+ public :: modelInqNamePtr
+ public :: tableWrite
+ public :: tableRead
+ public :: tableDef
+ public :: tableInqNamePtr
+ public :: tableInq
+ public :: tableInqNumber
+ public :: tableInqNum
+ public :: tableInqModel
+ public :: tableInqEntry
+ public :: subtypeCreate
+ public :: subtypePrint
+ public :: subtypeCompare
+ public :: subtypeInqSize
+ public :: subtypeInqActiveIndex
+ public :: subtypeDefActiveIndex
+ public :: subtypeInqTile
+ public :: subtypeInqAttribute
+ public :: vlistInqVarSubtype
+ public :: gribapiLibraryVersion
+ public :: zaxisDefLtype
+ public :: vlistInqVarTypeOfGeneratingProcess
+ public :: vlistDefVarTypeOfGeneratingProcess
+ public :: vlistDefVarProductDefinitionTemplate
+ public :: date_to_julday
+ public :: julday_to_date
+ public :: time_to_sec
+ public :: sec_to_time
+ integer(c_int), public, parameter :: HAVE_CDI_PROJ_FUNCS = 1
+
+ interface
+ subroutine cdiReset() bind(c, name = 'cdiReset')
+ end subroutine cdiReset
+
+ subroutine cdiDebug(debug_dummy) bind(c, name = 'cdiDebug')
+ import c_int
+ integer(c_int), value :: debug_dummy
+ end subroutine cdiDebug
+
+ subroutine cdiPrintVersion() bind(c, name = 'cdiPrintVersion')
+ end subroutine cdiPrintVersion
+
+ function cdiHaveFiletype(filetype_dummy) bind(c, name = 'cdiHaveFiletype')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: filetype_dummy
+ integer(c_int) :: f_result
+ end function cdiHaveFiletype
+
+ subroutine cdiDefMissval(missval_dummy) bind(c, name = 'cdiDefMissval')
+ import c_double
+ real(c_double), value :: missval_dummy
+ end subroutine cdiDefMissval
+
+ function cdiInqMissval() bind(c, name = 'cdiInqMissval') result(f_result)
+ import c_double
+ real(c_double) :: f_result
+ end function cdiInqMissval
+
+ function namespaceNew() bind(c, name = 'namespaceNew') result(f_result)
+ import c_int
+ integer(c_int) :: f_result
+ end function namespaceNew
+
+ subroutine namespaceSetActive(namespaceID_dummy) bind(c, name =&
+ & 'namespaceSetActive')
+ import c_int
+ integer(c_int), value :: namespaceID_dummy
+ end subroutine namespaceSetActive
+
+ function namespaceGetActive() bind(c, name = 'namespaceGetActive')&
+ & result(f_result)
+ import c_int
+ integer(c_int) :: f_result
+ end function namespaceGetActive
+
+ subroutine namespaceDelete(namespaceID_dummy) bind(c, name =&
+ & 'namespaceDelete')
+ import c_int
+ integer(c_int), value :: namespaceID_dummy
+ end subroutine namespaceDelete
+
+ subroutine cdiDecodeParam(param_dummy, pnum_dummy, pcat_dummy, pdis_dummy)&
+ & bind(c, name = 'cdiDecodeParam')
+ import c_int
+ integer(c_int), value :: param_dummy
+ integer(c_int), intent(inout) :: pnum_dummy
+ integer(c_int), intent(inout) :: pcat_dummy
+ integer(c_int), intent(inout) :: pdis_dummy
+ end subroutine cdiDecodeParam
+
+ function cdiEncodeParam(pnum_dummy, pcat_dummy, pdis_dummy) bind(c, name =&
+ & 'cdiEncodeParam') result(f_result)
+ import c_int
+ integer(c_int), value :: pnum_dummy
+ integer(c_int), value :: pcat_dummy
+ integer(c_int), value :: pdis_dummy
+ integer(c_int) :: f_result
+ end function cdiEncodeParam
+
+ subroutine cdiDecodeDate(date_dummy, year_dummy, month_dummy, day_dummy)&
+ & bind(c, name = 'cdiDecodeDate')
+ import c_int
+ integer(c_int), value :: date_dummy
+ integer(c_int), intent(inout) :: year_dummy
+ integer(c_int), intent(inout) :: month_dummy
+ integer(c_int), intent(inout) :: day_dummy
+ end subroutine cdiDecodeDate
+
+ function cdiEncodeDate(year_dummy, month_dummy, day_dummy) bind(c, name =&
+ & 'cdiEncodeDate') result(f_result)
+ import c_int
+ integer(c_int), value :: year_dummy
+ integer(c_int), value :: month_dummy
+ integer(c_int), value :: day_dummy
+ integer(c_int) :: f_result
+ end function cdiEncodeDate
+
+ subroutine cdiDecodeTime(time_dummy, hour_dummy, minute_dummy,&
+ & second_dummy) bind(c, name = 'cdiDecodeTime')
+ import c_int
+ integer(c_int), value :: time_dummy
+ integer(c_int), intent(inout) :: hour_dummy
+ integer(c_int), intent(inout) :: minute_dummy
+ integer(c_int), intent(inout) :: second_dummy
+ end subroutine cdiDecodeTime
+
+ function cdiEncodeTime(hour_dummy, minute_dummy, second_dummy) bind(c, name&
+ & = 'cdiEncodeTime') result(f_result)
+ import c_int
+ integer(c_int), value :: hour_dummy
+ integer(c_int), value :: minute_dummy
+ integer(c_int), value :: second_dummy
+ integer(c_int) :: f_result
+ end function cdiEncodeTime
+
+ subroutine streamClose(streamID_dummy) bind(c, name = 'streamClose')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ end subroutine streamClose
+
+ subroutine streamSync(streamID_dummy) bind(c, name = 'streamSync')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ end subroutine streamSync
+
+ subroutine streamDefMaxSteps(streamID_dummy, maxSteps_dummy) bind(c, name =&
+ & 'streamDefMaxSteps')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: maxSteps_dummy
+ end subroutine streamDefMaxSteps
+
+ subroutine streamDefNumWorker(streamID_dummy, numWorker_dummy) bind(c, name&
+ & = 'streamDefNumWorker')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: numWorker_dummy
+ end subroutine streamDefNumWorker
+
+ function streamInqNumSteps(streamID_dummy) bind(c, name =&
+ & 'streamInqNumSteps') result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int) :: f_result
+ end function streamInqNumSteps
+
+ subroutine streamDefVlist(streamID_dummy, vlistID_dummy) bind(c, name =&
+ & 'streamDefVlist')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: vlistID_dummy
+ end subroutine streamDefVlist
+
+ function streamInqVlist(streamID_dummy) bind(c, name = 'streamInqVlist')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int) :: f_result
+ end function streamInqVlist
+
+ function streamInqFiletype(streamID_dummy) bind(c, name =&
+ & 'streamInqFiletype') result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int) :: f_result
+ end function streamInqFiletype
+
+ subroutine streamDefByteorder(streamID_dummy, byteorder_dummy) bind(c, name&
+ & = 'streamDefByteorder')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: byteorder_dummy
+ end subroutine streamDefByteorder
+
+ function streamInqByteorder(streamID_dummy) bind(c, name =&
+ & 'streamInqByteorder') result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int) :: f_result
+ end function streamInqByteorder
+
+ subroutine streamDefShuffle(streamID_dummy, shuffle_dummy) bind(c, name =&
+ & 'streamDefShuffle')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: shuffle_dummy
+ end subroutine streamDefShuffle
+
+ subroutine streamDefCompType(streamID_dummy, comptype_dummy) bind(c, name =&
+ & 'streamDefCompType')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: comptype_dummy
+ end subroutine streamDefCompType
+
+ function streamInqCompType(streamID_dummy) bind(c, name =&
+ & 'streamInqCompType') result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int) :: f_result
+ end function streamInqCompType
+
+ subroutine streamDefCompLevel(streamID_dummy, complevel_dummy) bind(c, name&
+ & = 'streamDefCompLevel')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: complevel_dummy
+ end subroutine streamDefCompLevel
+
+ function streamInqCompLevel(streamID_dummy) bind(c, name =&
+ & 'streamInqCompLevel') result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int) :: f_result
+ end function streamInqCompLevel
+
+ function streamDefTimestep(streamID_dummy, tsID_dummy) bind(c, name =&
+ & 'streamDefTimestep') result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: tsID_dummy
+ integer(c_int) :: f_result
+ end function streamDefTimestep
+
+ function streamInqTimestep(streamID_dummy, tsID_dummy) bind(c, name =&
+ & 'streamInqTimestep') result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: tsID_dummy
+ integer(c_int) :: f_result
+ end function streamInqTimestep
+
+ function streamInqCurTimestepID(streamID_dummy) bind(c, name =&
+ & 'streamInqCurTimestepID') result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int) :: f_result
+ end function streamInqCurTimestepID
+
+ function streamNvals(streamID_dummy) bind(c, name = 'streamNvals')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int) :: f_result
+ end function streamNvals
+
+ function streamInqNvars(streamID_dummy) bind(c, name = 'streamInqNvars')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int) :: f_result
+ end function streamInqNvars
+
+ subroutine streamWriteVar(streamID_dummy, varID_dummy, data_dummy,&
+ & numMissVals_dummy) bind(c, name = 'streamWriteVar')
+ import c_double, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ real(c_double), intent(in) :: data_dummy(*)
+ integer(c_int), value :: numMissVals_dummy
+ end subroutine streamWriteVar
+
+ subroutine streamWriteVarF(streamID_dummy, varID_dummy, data_dummy,&
+ & numMissVals_dummy) bind(c, name = 'streamWriteVarF')
+ import c_float, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ real(c_float), intent(in) :: data_dummy(*)
+ integer(c_int), value :: numMissVals_dummy
+ end subroutine streamWriteVarF
+
+ subroutine streamReadVar(streamID_dummy, varID_dummy, data_dummy,&
+ & numMissVals_dummy) bind(c, name = 'streamReadVar')
+ import c_double, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ real(c_double), intent(inout) :: data_dummy(*)
+ integer(c_int), intent(inout) :: numMissVals_dummy
+ end subroutine streamReadVar
+
+ subroutine streamReadVarF(streamID_dummy, varID_dummy, data_dummy,&
+ & numMissVals_dummy) bind(c, name = 'streamReadVarF')
+ import c_float, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ real(c_float), intent(inout) :: data_dummy(*)
+ integer(c_int), intent(inout) :: numMissVals_dummy
+ end subroutine streamReadVarF
+
+ subroutine streamWriteVarSlice(streamID_dummy, varID_dummy, levelID_dummy,&
+ & data_dummy, numMissVals_dummy) bind(c, name = 'streamWriteVarSlice')
+ import c_double, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levelID_dummy
+ real(c_double), intent(in) :: data_dummy(*)
+ integer(c_int), value :: numMissVals_dummy
+ end subroutine streamWriteVarSlice
+
+ subroutine streamWriteVarSliceF(streamID_dummy, varID_dummy, levelID_dummy,&
+ & data_dummy, numMissVals_dummy) bind(c, name = 'streamWriteVarSliceF')
+ import c_float, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levelID_dummy
+ real(c_float), intent(in) :: data_dummy(*)
+ integer(c_int), value :: numMissVals_dummy
+ end subroutine streamWriteVarSliceF
+
+ subroutine streamReadVarSlice(streamID_dummy, varID_dummy, levelID_dummy,&
+ & data_dummy, numMissVals_dummy) bind(c, name = 'streamReadVarSlice')
+ import c_double, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levelID_dummy
+ real(c_double), intent(inout) :: data_dummy(*)
+ integer(c_int), intent(inout) :: numMissVals_dummy
+ end subroutine streamReadVarSlice
+
+ subroutine streamReadVarSliceF(streamID_dummy, varID_dummy, levelID_dummy,&
+ & data_dummy, numMissVals_dummy) bind(c, name = 'streamReadVarSliceF')
+ import c_float, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levelID_dummy
+ real(c_float), intent(inout) :: data_dummy(*)
+ integer(c_int), intent(inout) :: numMissVals_dummy
+ end subroutine streamReadVarSliceF
+
+ subroutine streamWriteVarChunk(streamID_dummy, varID_dummy, rect_dummy,&
+ & data_dummy, numMissVals_dummy) bind(c, name = 'streamWriteVarChunk')
+ import c_double, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), intent(in) :: rect_dummy(2, *)
+ real(c_double), intent(in) :: data_dummy(*)
+ integer(c_int), value :: numMissVals_dummy
+ end subroutine streamWriteVarChunk
+
+ subroutine streamWriteVarChunkF(streamID_dummy, varID_dummy, rect_dummy,&
+ & data_dummy, numMissVals_dummy) bind(c, name = 'streamWriteVarChunkF')
+ import c_float, c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), intent(in) :: rect_dummy(2, *)
+ real(c_float), intent(in) :: data_dummy(*)
+ integer(c_int), value :: numMissVals_dummy
+ end subroutine streamWriteVarChunkF
+
+ subroutine streamDefRecord(streamID_dummy, varID_dummy, levelID_dummy)&
+ & bind(c, name = 'streamDefRecord')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levelID_dummy
+ end subroutine streamDefRecord
+
+ subroutine streamInqRecord(streamID_dummy, varID_dummy, levelID_dummy)&
+ & bind(c, name = 'streamInqRecord')
+ import c_int
+ integer(c_int), value :: streamID_dummy
+ integer(c_int), intent(inout) :: varID_dummy
+ integer(c_int), intent(inout) :: levelID_dummy
+ end subroutine streamInqRecord
+
+ subroutine streamWriteRecord(streamID_dummy, data_dummy, numMissVals_dummy)&
+ & bind(c, name = 'streamWriteRecord')
+ import c_double, c_int
+ integer(c_int), value :: streamID_dummy
+ real(c_double), intent(in) :: data_dummy(*)
+ integer(c_int), value :: numMissVals_dummy
+ end subroutine streamWriteRecord
+
+ subroutine streamWriteRecordF(streamID_dummy, data_dummy,&
+ & numMissVals_dummy) bind(c, name = 'streamWriteRecordF')
+ import c_float, c_int
+ integer(c_int), value :: streamID_dummy
+ real(c_float), intent(in) :: data_dummy(*)
+ integer(c_int), value :: numMissVals_dummy
+ end subroutine streamWriteRecordF
+
+ subroutine streamReadRecord(streamID_dummy, data_dummy, numMissVals_dummy)&
+ & bind(c, name = 'streamReadRecord')
+ import c_double, c_int
+ integer(c_int), value :: streamID_dummy
+ real(c_double), intent(inout) :: data_dummy(*)
+ integer(c_int), intent(inout) :: numMissVals_dummy
+ end subroutine streamReadRecord
+
+ subroutine streamReadRecordF(streamID_dummy, data_dummy, numMissVals_dummy)&
+ & bind(c, name = 'streamReadRecordF')
+ import c_float, c_int
+ integer(c_int), value :: streamID_dummy
+ real(c_float), intent(inout) :: data_dummy(*)
+ integer(c_int), intent(inout) :: numMissVals_dummy
+ end subroutine streamReadRecordF
+
+ subroutine streamCopyRecord(streamIDdest_dummy, streamIDsrc_dummy) bind(c,&
+ & name = 'streamCopyRecord')
+ import c_int
+ integer(c_int), value :: streamIDdest_dummy
+ integer(c_int), value :: streamIDsrc_dummy
+ end subroutine streamCopyRecord
+
+ function vlistCreate() bind(c, name = 'vlistCreate') result(f_result)
+ import c_int
+ integer(c_int) :: f_result
+ end function vlistCreate
+
+ subroutine vlistDestroy(vlistID_dummy) bind(c, name = 'vlistDestroy')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ end subroutine vlistDestroy
+
+ function vlistDuplicate(vlistID_dummy) bind(c, name = 'vlistDuplicate')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistDuplicate
+
+ subroutine vlistCopy(vlistID2_dummy, vlistID1_dummy) bind(c, name =&
+ & 'vlistCopy')
+ import c_int
+ integer(c_int), value :: vlistID2_dummy
+ integer(c_int), value :: vlistID1_dummy
+ end subroutine vlistCopy
+
+ subroutine vlistCopyFlag(vlistID2_dummy, vlistID1_dummy) bind(c, name =&
+ & 'vlistCopyFlag')
+ import c_int
+ integer(c_int), value :: vlistID2_dummy
+ integer(c_int), value :: vlistID1_dummy
+ end subroutine vlistCopyFlag
+
+ subroutine vlistClearFlag(vlistID_dummy) bind(c, name = 'vlistClearFlag')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ end subroutine vlistClearFlag
+
+ subroutine vlistCat(vlistID2_dummy, vlistID1_dummy) bind(c, name =&
+ & 'vlistCat')
+ import c_int
+ integer(c_int), value :: vlistID2_dummy
+ integer(c_int), value :: vlistID1_dummy
+ end subroutine vlistCat
+
+ subroutine vlistMerge(vlistID2_dummy, vlistID1_dummy) bind(c, name =&
+ & 'vlistMerge')
+ import c_int
+ integer(c_int), value :: vlistID2_dummy
+ integer(c_int), value :: vlistID1_dummy
+ end subroutine vlistMerge
+
+ subroutine vlistPrint(vlistID_dummy) bind(c, name = 'vlistPrint')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ end subroutine vlistPrint
+
+ function vlistNumber(vlistID_dummy) bind(c, name = 'vlistNumber')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistNumber
+
+ function vlistNvars(vlistID_dummy) bind(c, name = 'vlistNvars')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistNvars
+
+ function vlistNgrids(vlistID_dummy) bind(c, name = 'vlistNgrids')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistNgrids
+
+ function vlistNzaxis(vlistID_dummy) bind(c, name = 'vlistNzaxis')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistNzaxis
+
+ function vlistNsubtypes(vlistID_dummy) bind(c, name = 'vlistNsubtypes')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistNsubtypes
+
+ subroutine vlistDefNtsteps(vlistID_dummy, nts_dummy) bind(c, name =&
+ & 'vlistDefNtsteps')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: nts_dummy
+ end subroutine vlistDefNtsteps
+
+ function vlistNtsteps(vlistID_dummy) bind(c, name = 'vlistNtsteps')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistNtsteps
+
+ function vlistGridsizeMax(vlistID_dummy) bind(c, name = 'vlistGridsizeMax')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistGridsizeMax
+
+ function vlistGrid(vlistID_dummy, index_dummy) bind(c, name = 'vlistGrid')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: index_dummy
+ integer(c_int) :: f_result
+ end function vlistGrid
+
+ function vlistGridIndex(vlistID_dummy, gridID_dummy) bind(c, name =&
+ & 'vlistGridIndex') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function vlistGridIndex
+
+ subroutine vlistChangeGridIndex(vlistID_dummy, index_dummy, gridID_dummy)&
+ & bind(c, name = 'vlistChangeGridIndex')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: index_dummy
+ integer(c_int), value :: gridID_dummy
+ end subroutine vlistChangeGridIndex
+
+ subroutine vlistChangeGrid(vlistID_dummy, gridID1_dummy, gridID2_dummy)&
+ & bind(c, name = 'vlistChangeGrid')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: gridID1_dummy
+ integer(c_int), value :: gridID2_dummy
+ end subroutine vlistChangeGrid
+
+ function vlistZaxis(vlistID_dummy, index_dummy) bind(c, name =&
+ & 'vlistZaxis') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: index_dummy
+ integer(c_int) :: f_result
+ end function vlistZaxis
+
+ function vlistZaxisIndex(vlistID_dummy, zaxisID_dummy) bind(c, name =&
+ & 'vlistZaxisIndex') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int) :: f_result
+ end function vlistZaxisIndex
+
+ subroutine vlistChangeZaxisIndex(vlistID_dummy, index_dummy, zaxisID_dummy)&
+ & bind(c, name = 'vlistChangeZaxisIndex')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: index_dummy
+ integer(c_int), value :: zaxisID_dummy
+ end subroutine vlistChangeZaxisIndex
+
+ subroutine vlistChangeZaxis(vlistID_dummy, zaxisID1_dummy, zaxisID2_dummy)&
+ & bind(c, name = 'vlistChangeZaxis')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: zaxisID1_dummy
+ integer(c_int), value :: zaxisID2_dummy
+ end subroutine vlistChangeZaxis
+
+ function vlistNrecs(vlistID_dummy) bind(c, name = 'vlistNrecs')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistNrecs
+
+ function vlistSubtype(vlistID_dummy, index_dummy) bind(c, name =&
+ & 'vlistSubtype') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: index_dummy
+ integer(c_int) :: f_result
+ end function vlistSubtype
+
+ function vlistSubtypeIndex(vlistID_dummy, subtypeID_dummy) bind(c, name =&
+ & 'vlistSubtypeIndex') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: subtypeID_dummy
+ integer(c_int) :: f_result
+ end function vlistSubtypeIndex
+
+ subroutine vlistDefTaxis(vlistID_dummy, taxisID_dummy) bind(c, name =&
+ & 'vlistDefTaxis')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: taxisID_dummy
+ end subroutine vlistDefTaxis
+
+ function vlistInqTaxis(vlistID_dummy) bind(c, name = 'vlistInqTaxis')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqTaxis
+
+ subroutine vlistDefTable(vlistID_dummy, tableID_dummy) bind(c, name =&
+ & 'vlistDefTable')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: tableID_dummy
+ end subroutine vlistDefTable
+
+ function vlistInqTable(vlistID_dummy) bind(c, name = 'vlistInqTable')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqTable
+
+ subroutine vlistDefInstitut(vlistID_dummy, instID_dummy) bind(c, name =&
+ & 'vlistDefInstitut')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: instID_dummy
+ end subroutine vlistDefInstitut
+
+ function vlistInqInstitut(vlistID_dummy) bind(c, name = 'vlistInqInstitut')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqInstitut
+
+ subroutine vlistDefModel(vlistID_dummy, modelID_dummy) bind(c, name =&
+ & 'vlistDefModel')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: modelID_dummy
+ end subroutine vlistDefModel
+
+ function vlistInqModel(vlistID_dummy) bind(c, name = 'vlistInqModel')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqModel
+
+ function vlistDefVarTiles(vlistID_dummy, gridID_dummy, zaxisID_dummy,&
+ & timetype_dummy, tilesetID_dummy) bind(c, name = 'vlistDefVarTiles')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: timetype_dummy
+ integer(c_int), value :: tilesetID_dummy
+ integer(c_int) :: f_result
+ end function vlistDefVarTiles
+
+ function vlistDefVar(vlistID_dummy, gridID_dummy, zaxisID_dummy,&
+ & timetype_dummy) bind(c, name = 'vlistDefVar') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: timetype_dummy
+ integer(c_int) :: f_result
+ end function vlistDefVar
+
+ subroutine vlistChangeVarGrid(vlistID_dummy, varID_dummy, gridID_dummy)&
+ & bind(c, name = 'vlistChangeVarGrid')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: gridID_dummy
+ end subroutine vlistChangeVarGrid
+
+ subroutine vlistChangeVarZaxis(vlistID_dummy, varID_dummy, zaxisID_dummy)&
+ & bind(c, name = 'vlistChangeVarZaxis')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: zaxisID_dummy
+ end subroutine vlistChangeVarZaxis
+
+ subroutine vlistInqVar(vlistID_dummy, varID_dummy, gridID_dummy,&
+ & zaxisID_dummy, timetype_dummy) bind(c, name = 'vlistInqVar')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), intent(inout) :: gridID_dummy
+ integer(c_int), intent(inout) :: zaxisID_dummy
+ integer(c_int), intent(inout) :: timetype_dummy
+ end subroutine vlistInqVar
+
+ function vlistInqVarGrid(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarGrid') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarGrid
+
+ function vlistInqVarZaxis(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarZaxis') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarZaxis
+
+ function vlistInqVarID(vlistID_dummy, code_dummy) bind(c, name =&
+ & 'vlistInqVarID') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: code_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarID
+
+ subroutine vlistDefVarTimetype(vlistID_dummy, varID_dummy, timetype_dummy)&
+ & bind(c, name = 'vlistDefVarTimetype')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: timetype_dummy
+ end subroutine vlistDefVarTimetype
+
+ function vlistInqVarTimetype(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarTimetype') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarTimetype
+
+ subroutine vlistDefVarTsteptype(vlistID_dummy, varID_dummy,&
+ & tsteptype_dummy) bind(c, name = 'vlistDefVarTsteptype')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: tsteptype_dummy
+ end subroutine vlistDefVarTsteptype
+
+ function vlistInqVarTsteptype(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarTsteptype') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarTsteptype
+
+ subroutine vlistDefVarCompType(vlistID_dummy, varID_dummy, comptype_dummy)&
+ & bind(c, name = 'vlistDefVarCompType')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: comptype_dummy
+ end subroutine vlistDefVarCompType
+
+ function vlistInqVarCompType(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarCompType') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarCompType
+
+ subroutine vlistDefVarCompLevel(vlistID_dummy, varID_dummy,&
+ & complevel_dummy) bind(c, name = 'vlistDefVarCompLevel')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: complevel_dummy
+ end subroutine vlistDefVarCompLevel
+
+ function vlistInqVarCompLevel(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarCompLevel') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarCompLevel
+
+ subroutine vlistDefVarParam(vlistID_dummy, varID_dummy, param_dummy)&
+ & bind(c, name = 'vlistDefVarParam')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: param_dummy
+ end subroutine vlistDefVarParam
+
+ function vlistInqVarParam(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarParam') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarParam
+
+ subroutine vlistDefVarCode(vlistID_dummy, varID_dummy, code_dummy) bind(c,&
+ & name = 'vlistDefVarCode')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: code_dummy
+ end subroutine vlistDefVarCode
+
+ function vlistInqVarCode(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarCode') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarCode
+
+ subroutine vlistDefVarDatatype(vlistID_dummy, varID_dummy, datatype_dummy)&
+ & bind(c, name = 'vlistDefVarDatatype')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: datatype_dummy
+ end subroutine vlistDefVarDatatype
+
+ function vlistInqVarDatatype(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarDatatype') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarDatatype
+
+ subroutine vlistDefVarXYZ(vlistID_dummy, varID_dummy, xyz_dummy) bind(c,&
+ & name = 'vlistDefVarXYZ')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: xyz_dummy
+ end subroutine vlistDefVarXYZ
+
+ function vlistInqVarXYZ(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarXYZ') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarXYZ
+
+ subroutine vlistDefVarNSB(vlistID_dummy, varID_dummy, nsb_dummy) bind(c,&
+ & name = 'vlistDefVarNSB')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: nsb_dummy
+ end subroutine vlistDefVarNSB
+
+ function vlistInqVarNSB(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarNSB') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarNSB
+
+ function vlistInqVarNumber(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarNumber') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarNumber
+
+ subroutine vlistDefVarInstitut(vlistID_dummy, varID_dummy, instID_dummy)&
+ & bind(c, name = 'vlistDefVarInstitut')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: instID_dummy
+ end subroutine vlistDefVarInstitut
+
+ function vlistInqVarInstitut(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarInstitut') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarInstitut
+
+ subroutine vlistDefVarModel(vlistID_dummy, varID_dummy, modelID_dummy)&
+ & bind(c, name = 'vlistDefVarModel')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: modelID_dummy
+ end subroutine vlistDefVarModel
+
+ function vlistInqVarModel(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarModel') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarModel
+
+ subroutine vlistDefVarTable(vlistID_dummy, varID_dummy, tableID_dummy)&
+ & bind(c, name = 'vlistDefVarTable')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: tableID_dummy
+ end subroutine vlistDefVarTable
+
+ function vlistInqVarTable(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarTable') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarTable
+
+ subroutine vlistDefVarMissval(vlistID_dummy, varID_dummy, missval_dummy)&
+ & bind(c, name = 'vlistDefVarMissval')
+ import c_double, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ real(c_double), value :: missval_dummy
+ end subroutine vlistDefVarMissval
+
+ function vlistInqVarMissval(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarMissval') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ real(c_double) :: f_result
+ end function vlistInqVarMissval
+
+ function vlistInqVarSize(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarSize') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarSize
+
+ subroutine vlistDefIndex(vlistID_dummy, varID_dummy, levID_dummy,&
+ & index_dummy) bind(c, name = 'vlistDefIndex')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levID_dummy
+ integer(c_int), value :: index_dummy
+ end subroutine vlistDefIndex
+
+ function vlistInqIndex(vlistID_dummy, varID_dummy, levID_dummy) bind(c,&
+ & name = 'vlistInqIndex') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqIndex
+
+ subroutine vlistDefFlag(vlistID_dummy, varID_dummy, levID_dummy,&
+ & flag_dummy) bind(c, name = 'vlistDefFlag')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levID_dummy
+ integer(c_int), value :: flag_dummy
+ end subroutine vlistDefFlag
+
+ function vlistInqFlag(vlistID_dummy, varID_dummy, levID_dummy) bind(c, name&
+ & = 'vlistInqFlag') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqFlag
+
+ function vlistFindVar(vlistID_dummy, fvarID_dummy) bind(c, name =&
+ & 'vlistFindVar') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: fvarID_dummy
+ integer(c_int) :: f_result
+ end function vlistFindVar
+
+ function vlistFindLevel(vlistID_dummy, fvarID_dummy, flevelID_dummy)&
+ & bind(c, name = 'vlistFindLevel') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: fvarID_dummy
+ integer(c_int), value :: flevelID_dummy
+ integer(c_int) :: f_result
+ end function vlistFindLevel
+
+ function vlistMergedVar(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistMergedVar') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistMergedVar
+
+ function vlistMergedLevel(vlistID_dummy, varID_dummy, levelID_dummy)&
+ & bind(c, name = 'vlistMergedLevel') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: levelID_dummy
+ integer(c_int) :: f_result
+ end function vlistMergedLevel
+
+ subroutine cdiClearAdditionalKeys() bind(c, name =&
+ & 'cdiClearAdditionalKeys')
+ end subroutine cdiClearAdditionalKeys
+
+ function cdiInqNatts(cdiID_dummy, varID_dummy, nattsp_dummy) bind(c, name =&
+ & 'cdiInqNatts') result(f_result)
+ import c_int
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), intent(inout) :: nattsp_dummy
+ integer(c_int) :: f_result
+ end function cdiInqNatts
+
+ function cdiCopyAtts(cdiID1_dummy, varID1_dummy, cdiID2_dummy,&
+ & varID2_dummy) bind(c, name = 'cdiCopyAtts') result(f_result)
+ import c_int
+ integer(c_int), value :: cdiID1_dummy
+ integer(c_int), value :: varID1_dummy
+ integer(c_int), value :: cdiID2_dummy
+ integer(c_int), value :: varID2_dummy
+ integer(c_int) :: f_result
+ end function cdiCopyAtts
+
+ subroutine gridCompress(gridID_dummy) bind(c, name = 'gridCompress')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ end subroutine gridCompress
+
+ subroutine gridDefMaskGME(gridID_dummy, mask_dummy) bind(c, name =&
+ & 'gridDefMaskGME')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), intent(in) :: mask_dummy(*)
+ end subroutine gridDefMaskGME
+
+ function gridInqMaskGME(gridID_dummy, mask_dummy) bind(c, name =&
+ & 'gridInqMaskGME') result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), intent(inout) :: mask_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqMaskGME
+
+ subroutine gridDefMask(gridID_dummy, mask_dummy) bind(c, name =&
+ & 'gridDefMask')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), intent(in) :: mask_dummy(*)
+ end subroutine gridDefMask
+
+ function gridInqMask(gridID_dummy, mask_dummy) bind(c, name =&
+ & 'gridInqMask') result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), intent(inout) :: mask_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqMask
+
+ function gridCreate(gridtype_dummy, size_dummy) bind(c, name =&
+ & 'gridCreate') result(f_result)
+ import c_int
+ integer(c_int), value :: gridtype_dummy
+ integer(c_int), value :: size_dummy
+ integer(c_int) :: f_result
+ end function gridCreate
+
+ subroutine gridDestroy(gridID_dummy) bind(c, name = 'gridDestroy')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ end subroutine gridDestroy
+
+ function gridDuplicate(gridID_dummy) bind(c, name = 'gridDuplicate')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridDuplicate
+
+ subroutine gridDefProj(gridID_dummy, projID_dummy) bind(c, name =&
+ & 'gridDefProj')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: projID_dummy
+ end subroutine gridDefProj
+
+ function gridInqProj(gridID_dummy) bind(c, name = 'gridInqProj')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqProj
+
+ function gridInqProjType(gridID_dummy) bind(c, name = 'gridInqProjType')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqProjType
+
+ function gridInqType(gridID_dummy) bind(c, name = 'gridInqType')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqType
+
+ function gridInqSize(gridID_dummy) bind(c, name = 'gridInqSize')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqSize
+
+ subroutine gridDefXsize(gridID_dummy, xsize_dummy) bind(c, name =&
+ & 'gridDefXsize')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: xsize_dummy
+ end subroutine gridDefXsize
+
+ function gridInqXsize(gridID_dummy) bind(c, name = 'gridInqXsize')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqXsize
+
+ subroutine gridDefYsize(gridID_dummy, ysize_dummy) bind(c, name =&
+ & 'gridDefYsize')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: ysize_dummy
+ end subroutine gridDefYsize
+
+ function gridInqYsize(gridID_dummy) bind(c, name = 'gridInqYsize')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqYsize
+
+ subroutine gridDefNP(gridID_dummy, np_dummy) bind(c, name = 'gridDefNP')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: np_dummy
+ end subroutine gridDefNP
+
+ function gridInqNP(gridID_dummy) bind(c, name = 'gridInqNP')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqNP
+
+ subroutine gridDefXvals(gridID_dummy, xvals_dummy) bind(c, name =&
+ & 'gridDefXvals')
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(in) :: xvals_dummy(*)
+ end subroutine gridDefXvals
+
+ function gridInqXvals(gridID_dummy, xvals_dummy) bind(c, name =&
+ & 'gridInqXvals') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(inout) :: xvals_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqXvals
+
+ function gridInqXvalsPart(gridID_dummy, start_dummy, size_dummy,&
+ & xvals_dummy) bind(c, name = 'gridInqXvalsPart') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: start_dummy
+ integer(c_int), value :: size_dummy
+ real(c_double), intent(inout) :: xvals_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqXvalsPart
+
+ function gridInqXvalsPtr(gridID_dummy) bind(c, name = 'gridInqXvalsPtr')&
+ & result(f_result)
+ import c_int, c_ptr
+ integer(c_int), value :: gridID_dummy
+ type(c_ptr) :: f_result
+ end function gridInqXvalsPtr
+
+ function gridInqXIsc(gridID_dummy) bind(c, name = 'gridInqXIsc')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqXIsc
+
+ subroutine gridDefYvals(gridID_dummy, yvals_dummy) bind(c, name =&
+ & 'gridDefYvals')
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(in) :: yvals_dummy(*)
+ end subroutine gridDefYvals
+
+ function gridInqYvals(gridID_dummy, yvals_dummy) bind(c, name =&
+ & 'gridInqYvals') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(inout) :: yvals_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqYvals
+
+ function gridInqYvalsPart(gridID_dummy, start_dummy, size_dummy,&
+ & yvals_dummy) bind(c, name = 'gridInqYvalsPart') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: start_dummy
+ integer(c_int), value :: size_dummy
+ real(c_double), intent(inout) :: yvals_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqYvalsPart
+
+ function gridInqYvalsPtr(gridID_dummy) bind(c, name = 'gridInqYvalsPtr')&
+ & result(f_result)
+ import c_int, c_ptr
+ integer(c_int), value :: gridID_dummy
+ type(c_ptr) :: f_result
+ end function gridInqYvalsPtr
+
+ function gridInqYIsc(gridID_dummy) bind(c, name = 'gridInqYIsc')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqYIsc
+
+ function cdiDefKeyInt(cdiID_dummy, varID_dummy, key_dummy, value_dummy)&
+ & bind(c, name = 'cdiDefKeyInt') result(f_result)
+ import c_int
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ integer(c_int), value :: value_dummy
+ integer(c_int) :: f_result
+ end function cdiDefKeyInt
+
+ function cdiInqKeyInt(cdiID_dummy, varID_dummy, key_dummy, value_dummy)&
+ & bind(c, name = 'cdiInqKeyInt') result(f_result)
+ import c_int
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ integer(c_int), intent(inout) :: value_dummy
+ integer(c_int) :: f_result
+ end function cdiInqKeyInt
+
+ function cdiDefKeyFloat(cdiID_dummy, varID_dummy, key_dummy, value_dummy)&
+ & bind(c, name = 'cdiDefKeyFloat') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ real(c_double), value :: value_dummy
+ integer(c_int) :: f_result
+ end function cdiDefKeyFloat
+
+ function cdiInqKeyFloat(cdiID_dummy, varID_dummy, key_dummy, value_dummy)&
+ & bind(c, name = 'cdiInqKeyFloat') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ real(c_double), intent(inout) :: value_dummy
+ integer(c_int) :: f_result
+ end function cdiInqKeyFloat
+
+ function cdiDefKeyBytes(cdiID_dummy, varID_dummy, key_dummy, bytes_dummy,&
+ & length_dummy) bind(c, name = 'cdiDefKeyBytes') result(f_result)
+ import c_int, c_signed_char
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ integer(kind = c_signed_char), intent(in) :: bytes_dummy(*)
+ integer(c_int), value :: length_dummy
+ integer(c_int) :: f_result
+ end function cdiDefKeyBytes
+
+ function cdiInqKeyBytes(cdiID_dummy, varID_dummy, key_dummy, bytes_dummy,&
+ & length_dummy) bind(c, name = 'cdiInqKeyBytes') result(f_result)
+ import c_int, c_signed_char
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ integer(kind = c_signed_char), intent(inout) :: bytes_dummy(*)
+ integer(c_int), intent(inout) :: length_dummy
+ integer(c_int) :: f_result
+ end function cdiInqKeyBytes
+
+ function cdiInqKeyLen(cdiID_dummy, varID_dummy, key_dummy, length_dummy)&
+ & bind(c, name = 'cdiInqKeyLen') result(f_result)
+ import c_int
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ integer(c_int), intent(inout) :: length_dummy
+ integer(c_int) :: f_result
+ end function cdiInqKeyLen
+
+ function cdiCopyKeys(cdiID1_dummy, varID1_dummy, cdiID2_dummy,&
+ & varID2_dummy) bind(c, name = 'cdiCopyKeys') result(f_result)
+ import c_int
+ integer(c_int), value :: cdiID1_dummy
+ integer(c_int), value :: varID1_dummy
+ integer(c_int), value :: cdiID2_dummy
+ integer(c_int), value :: varID2_dummy
+ integer(c_int) :: f_result
+ end function cdiCopyKeys
+
+ function cdiCopyKey(cdiID1_dummy, varID1_dummy, key_dummy, cdiID2_dummy)&
+ & bind(c, name = 'cdiCopyKey') result(f_result)
+ import c_int
+ integer(c_int), value :: cdiID1_dummy
+ integer(c_int), value :: varID1_dummy
+ integer(c_int), value :: key_dummy
+ integer(c_int), value :: cdiID2_dummy
+ integer(c_int) :: f_result
+ end function cdiCopyKey
+
+ function cdiDeleteKey(cdiID_dummy, varID_dummy, key_dummy) bind(c, name =&
+ & 'cdiDeleteKey') result(f_result)
+ import c_int
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ integer(c_int) :: f_result
+ end function cdiDeleteKey
+
+ subroutine gridDefDatatype(gridID_dummy, datatype_dummy) bind(c, name =&
+ & 'gridDefDatatype')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: datatype_dummy
+ end subroutine gridDefDatatype
+
+ function gridInqDatatype(gridID_dummy) bind(c, name = 'gridInqDatatype')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqDatatype
+
+ function gridInqXval(gridID_dummy, index_dummy) bind(c, name =&
+ & 'gridInqXval') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: index_dummy
+ real(c_double) :: f_result
+ end function gridInqXval
+
+ function gridInqYval(gridID_dummy, index_dummy) bind(c, name =&
+ & 'gridInqYval') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: index_dummy
+ real(c_double) :: f_result
+ end function gridInqYval
+
+ function gridInqXinc(gridID_dummy) bind(c, name = 'gridInqXinc')&
+ & result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double) :: f_result
+ end function gridInqXinc
+
+ function gridInqYinc(gridID_dummy) bind(c, name = 'gridInqYinc')&
+ & result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double) :: f_result
+ end function gridInqYinc
+
+ function gridIsCircular(gridID_dummy) bind(c, name = 'gridIsCircular')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridIsCircular
+
+ function gridInqTrunc(gridID_dummy) bind(c, name = 'gridInqTrunc')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqTrunc
+
+ subroutine gridDefTrunc(gridID_dummy, trunc_dummy) bind(c, name =&
+ & 'gridDefTrunc')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: trunc_dummy
+ end subroutine gridDefTrunc
+
+ subroutine gridDefNumber(gridID_dummy, number_dummy) bind(c, name =&
+ & 'gridDefNumber')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: number_dummy
+ end subroutine gridDefNumber
+
+ function gridInqNumber(gridID_dummy) bind(c, name = 'gridInqNumber')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqNumber
+
+ subroutine gridDefPosition(gridID_dummy, position_dummy) bind(c, name =&
+ & 'gridDefPosition')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: position_dummy
+ end subroutine gridDefPosition
+
+ function gridInqPosition(gridID_dummy) bind(c, name = 'gridInqPosition')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqPosition
+
+ subroutine gridDefUUID(gridID_dummy, uuid_dummy) bind(c, name =&
+ & 'gridDefUUID')
+ import CDI_UUID_SIZE, c_int, c_signed_char
+ integer(c_int), value :: gridID_dummy
+ integer(kind = c_signed_char), intent(in) :: uuid_dummy(CDI_UUID_SIZE)
+ end subroutine gridDefUUID
+
+ subroutine gridInqUUID(gridID_dummy, uuid_dummy) bind(c, name =&
+ & 'gridInqUUID')
+ import CDI_UUID_SIZE, c_int, c_signed_char
+ integer(c_int), value :: gridID_dummy
+ integer(kind = c_signed_char), intent(inout) :: uuid_dummy(CDI_UUID_SIZE)
+ end subroutine gridInqUUID
+
+ subroutine gridDefParamRLL(gridID_dummy, xpole_dummy, ypole_dummy,&
+ & angle_dummy) bind(c, name = 'gridDefParamRLL')
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), value :: xpole_dummy
+ real(c_double), value :: ypole_dummy
+ real(c_double), value :: angle_dummy
+ end subroutine gridDefParamRLL
+
+ subroutine gridInqParamRLL(gridID_dummy, xpole_dummy, ypole_dummy,&
+ & angle_dummy) bind(c, name = 'gridInqParamRLL')
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(inout) :: xpole_dummy
+ real(c_double), intent(inout) :: ypole_dummy
+ real(c_double), intent(inout) :: angle_dummy
+ end subroutine gridInqParamRLL
+
+ subroutine gridDefParamGME(gridID_dummy, nd_dummy, ni_dummy, ni2_dummy,&
+ & ni3_dummy) bind(c, name = 'gridDefParamGME')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: nd_dummy
+ integer(c_int), value :: ni_dummy
+ integer(c_int), value :: ni2_dummy
+ integer(c_int), value :: ni3_dummy
+ end subroutine gridDefParamGME
+
+ subroutine gridInqParamGME(gridID_dummy, nd_dummy, ni_dummy, ni2_dummy,&
+ & ni3_dummy) bind(c, name = 'gridInqParamGME')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), intent(inout) :: nd_dummy
+ integer(c_int), intent(inout) :: ni_dummy
+ integer(c_int), intent(inout) :: ni2_dummy
+ integer(c_int), intent(inout) :: ni3_dummy
+ end subroutine gridInqParamGME
+
+ subroutine gridDefArea(gridID_dummy, area_dummy) bind(c, name =&
+ & 'gridDefArea')
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(in) :: area_dummy(*)
+ end subroutine gridDefArea
+
+ subroutine gridInqArea(gridID_dummy, area_dummy) bind(c, name =&
+ & 'gridInqArea')
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(inout) :: area_dummy(*)
+ end subroutine gridInqArea
+
+ function gridHasArea(gridID_dummy) bind(c, name = 'gridHasArea')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridHasArea
+
+ subroutine gridDefNvertex(gridID_dummy, nvertex_dummy) bind(c, name =&
+ & 'gridDefNvertex')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: nvertex_dummy
+ end subroutine gridDefNvertex
+
+ function gridInqNvertex(gridID_dummy) bind(c, name = 'gridInqNvertex')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqNvertex
+
+ subroutine gridDefXbounds(gridID_dummy, xbounds_dummy) bind(c, name =&
+ & 'gridDefXbounds')
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(in) :: xbounds_dummy(*)
+ end subroutine gridDefXbounds
+
+ function gridInqXbounds(gridID_dummy, xbounds_dummy) bind(c, name =&
+ & 'gridInqXbounds') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(inout) :: xbounds_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqXbounds
+
+ function gridInqXboundsPart(gridID_dummy, start_dummy, size_dummy,&
+ & xbounds_dummy) bind(c, name = 'gridInqXboundsPart') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: start_dummy
+ integer(c_int), value :: size_dummy
+ real(c_double), intent(inout) :: xbounds_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqXboundsPart
+
+ function gridInqXboundsPtr(gridID_dummy) bind(c, name =&
+ & 'gridInqXboundsPtr') result(f_result)
+ import c_int, c_ptr
+ integer(c_int), value :: gridID_dummy
+ type(c_ptr) :: f_result
+ end function gridInqXboundsPtr
+
+ subroutine gridDefYbounds(gridID_dummy, ybounds_dummy) bind(c, name =&
+ & 'gridDefYbounds')
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(in) :: ybounds_dummy(*)
+ end subroutine gridDefYbounds
+
+ function gridInqYbounds(gridID_dummy, ybounds_dummy) bind(c, name =&
+ & 'gridInqYbounds') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ real(c_double), intent(inout) :: ybounds_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqYbounds
+
+ function gridInqYboundsPart(gridID_dummy, start_dummy, size_dummy,&
+ & ybounds_dummy) bind(c, name = 'gridInqYboundsPart') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: start_dummy
+ integer(c_int), value :: size_dummy
+ real(c_double), intent(inout) :: ybounds_dummy(*)
+ integer(c_int) :: f_result
+ end function gridInqYboundsPart
+
+ function gridInqYboundsPtr(gridID_dummy) bind(c, name =&
+ & 'gridInqYboundsPtr') result(f_result)
+ import c_int, c_ptr
+ integer(c_int), value :: gridID_dummy
+ type(c_ptr) :: f_result
+ end function gridInqYboundsPtr
+
+ subroutine gridDefReducedPoints(gridID_dummy, reducedPointsSize_dummy,&
+ & reducedPoints_dummy) bind(c, name = 'gridDefReducedPoints')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: reducedPointsSize_dummy
+ integer(c_int), intent(in) :: reducedPoints_dummy(*)
+ end subroutine gridDefReducedPoints
+
+ subroutine gridInqReducedPoints(gridID_dummy, reducedPoints_dummy) bind(c,&
+ & name = 'gridInqReducedPoints')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), intent(inout) :: reducedPoints_dummy(*)
+ end subroutine gridInqReducedPoints
+
+ subroutine gridChangeType(gridID_dummy, gridtype_dummy) bind(c, name =&
+ & 'gridChangeType')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: gridtype_dummy
+ end subroutine gridChangeType
+
+ subroutine gridDefComplexPacking(gridID_dummy, lpack_dummy) bind(c, name =&
+ & 'gridDefComplexPacking')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: lpack_dummy
+ end subroutine gridDefComplexPacking
+
+ function gridInqComplexPacking(gridID_dummy) bind(c, name =&
+ & 'gridInqComplexPacking') result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function gridInqComplexPacking
+
+ function zaxisCreate(zaxistype_dummy, size_dummy) bind(c, name =&
+ & 'zaxisCreate') result(f_result)
+ import c_int
+ integer(c_int), value :: zaxistype_dummy
+ integer(c_int), value :: size_dummy
+ integer(c_int) :: f_result
+ end function zaxisCreate
+
+ subroutine zaxisDestroy(zaxisID_dummy) bind(c, name = 'zaxisDestroy')
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ end subroutine zaxisDestroy
+
+ function zaxisInqType(zaxisID_dummy) bind(c, name = 'zaxisInqType')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int) :: f_result
+ end function zaxisInqType
+
+ function zaxisInqSize(zaxisID_dummy) bind(c, name = 'zaxisInqSize')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int) :: f_result
+ end function zaxisInqSize
+
+ function zaxisDuplicate(zaxisID_dummy) bind(c, name = 'zaxisDuplicate')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int) :: f_result
+ end function zaxisDuplicate
+
+ subroutine zaxisDefLevels(zaxisID_dummy, levels_dummy) bind(c, name =&
+ & 'zaxisDefLevels')
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ real(c_double), intent(in) :: levels_dummy(*)
+ end subroutine zaxisDefLevels
+
+ function zaxisInqLevels(zaxisID_dummy, levels_dummy) bind(c, name =&
+ & 'zaxisInqLevels') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ real(c_double), intent(inout) :: levels_dummy(*)
+ integer(c_int) :: f_result
+ end function zaxisInqLevels
+
+ function zaxisInqCLen(zaxisID_dummy) bind(c, name = 'zaxisInqCLen')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int) :: f_result
+ end function zaxisInqCLen
+
+ subroutine zaxisDefLevel(zaxisID_dummy, levelID_dummy, levels_dummy)&
+ & bind(c, name = 'zaxisDefLevel')
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: levelID_dummy
+ real(c_double), value :: levels_dummy
+ end subroutine zaxisDefLevel
+
+ function zaxisInqLevel(zaxisID_dummy, levelID_dummy) bind(c, name =&
+ & 'zaxisInqLevel') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: levelID_dummy
+ real(c_double) :: f_result
+ end function zaxisInqLevel
+
+ subroutine zaxisDefNlevRef(gridID_dummy, nhlev_dummy) bind(c, name =&
+ & 'zaxisDefNlevRef')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: nhlev_dummy
+ end subroutine zaxisDefNlevRef
+
+ function zaxisInqNlevRef(gridID_dummy) bind(c, name = 'zaxisInqNlevRef')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function zaxisInqNlevRef
+
+ subroutine zaxisDefNumber(gridID_dummy, number_dummy) bind(c, name =&
+ & 'zaxisDefNumber')
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int), value :: number_dummy
+ end subroutine zaxisDefNumber
+
+ function zaxisInqNumber(gridID_dummy) bind(c, name = 'zaxisInqNumber')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: gridID_dummy
+ integer(c_int) :: f_result
+ end function zaxisInqNumber
+
+ subroutine zaxisDefUUID(zaxisID_dummy, uuid_dummy) bind(c, name =&
+ & 'zaxisDefUUID')
+ import CDI_UUID_SIZE, c_int, c_signed_char
+ integer(c_int), value :: zaxisID_dummy
+ integer(kind = c_signed_char), intent(in) :: uuid_dummy(CDI_UUID_SIZE)
+ end subroutine zaxisDefUUID
+
+ subroutine zaxisInqUUID(zaxisID_dummy, uuid_dummy) bind(c, name =&
+ & 'zaxisInqUUID')
+ import CDI_UUID_SIZE, c_int, c_signed_char
+ integer(c_int), value :: zaxisID_dummy
+ integer(kind = c_signed_char), intent(inout) :: uuid_dummy(CDI_UUID_SIZE)
+ end subroutine zaxisInqUUID
+
+ subroutine zaxisDefDatatype(zaxisID_dummy, datatype_dummy) bind(c, name =&
+ & 'zaxisDefDatatype')
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: datatype_dummy
+ end subroutine zaxisDefDatatype
+
+ function zaxisInqDatatype(zaxisID_dummy) bind(c, name = 'zaxisInqDatatype')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int) :: f_result
+ end function zaxisInqDatatype
+
+ subroutine zaxisDefPositive(zaxisID_dummy, positive_dummy) bind(c, name =&
+ & 'zaxisDefPositive')
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: positive_dummy
+ end subroutine zaxisDefPositive
+
+ function zaxisInqPositive(zaxisID_dummy) bind(c, name = 'zaxisInqPositive')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int) :: f_result
+ end function zaxisInqPositive
+
+ subroutine zaxisDefScalar(zaxisID_dummy) bind(c, name = 'zaxisDefScalar')
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ end subroutine zaxisDefScalar
+
+ function zaxisInqScalar(zaxisID_dummy) bind(c, name = 'zaxisInqScalar')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int) :: f_result
+ end function zaxisInqScalar
+
+ subroutine zaxisDefVct(zaxisID_dummy, size_dummy, vct_dummy) bind(c, name =&
+ & 'zaxisDefVct')
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: size_dummy
+ real(c_double), intent(in) :: vct_dummy(*)
+ end subroutine zaxisDefVct
+
+ subroutine zaxisInqVct(zaxisID_dummy, vct_dummy) bind(c, name =&
+ & 'zaxisInqVct')
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ real(c_double), intent(inout) :: vct_dummy(*)
+ end subroutine zaxisInqVct
+
+ function zaxisInqVctSize(zaxisID_dummy) bind(c, name = 'zaxisInqVctSize')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int) :: f_result
+ end function zaxisInqVctSize
+
+ function zaxisInqVctPtr(zaxisID_dummy) bind(c, name = 'zaxisInqVctPtr')&
+ & result(f_result)
+ import c_int, c_ptr
+ integer(c_int), value :: zaxisID_dummy
+ type(c_ptr) :: f_result
+ end function zaxisInqVctPtr
+
+ subroutine zaxisDefLbounds(zaxisID_dummy, lbounds_dummy) bind(c, name =&
+ & 'zaxisDefLbounds')
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ real(c_double), intent(in) :: lbounds_dummy(*)
+ end subroutine zaxisDefLbounds
+
+ function zaxisInqLbound(zaxisID_dummy, index_dummy) bind(c, name =&
+ & 'zaxisInqLbound') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: index_dummy
+ real(c_double) :: f_result
+ end function zaxisInqLbound
+
+ subroutine zaxisDefUbounds(zaxisID_dummy, ubounds_dummy) bind(c, name =&
+ & 'zaxisDefUbounds')
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ real(c_double), intent(in) :: ubounds_dummy(*)
+ end subroutine zaxisDefUbounds
+
+ function zaxisInqUbound(zaxisID_dummy, index_dummy) bind(c, name =&
+ & 'zaxisInqUbound') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: index_dummy
+ real(c_double) :: f_result
+ end function zaxisInqUbound
+
+ subroutine zaxisDefWeights(zaxisID_dummy, weights_dummy) bind(c, name =&
+ & 'zaxisDefWeights')
+ import c_double, c_int
+ integer(c_int), value :: zaxisID_dummy
+ real(c_double), intent(in) :: weights_dummy(*)
+ end subroutine zaxisDefWeights
+
+ subroutine zaxisChangeType(zaxisID_dummy, zaxistype_dummy) bind(c, name =&
+ & 'zaxisChangeType')
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: zaxistype_dummy
+ end subroutine zaxisChangeType
+
+ function taxisCreate(taxistype_dummy) bind(c, name = 'taxisCreate')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxistype_dummy
+ integer(c_int) :: f_result
+ end function taxisCreate
+
+ subroutine taxisDestroy(taxisID_dummy) bind(c, name = 'taxisDestroy')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ end subroutine taxisDestroy
+
+ function taxisDuplicate(taxisID_dummy) bind(c, name = 'taxisDuplicate')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisDuplicate
+
+ subroutine taxisCopyTimestep(taxisIDdes_dummy, taxisIDsrc_dummy) bind(c,&
+ & name = 'taxisCopyTimestep')
+ import c_int
+ integer(c_int), value :: taxisIDdes_dummy
+ integer(c_int), value :: taxisIDsrc_dummy
+ end subroutine taxisCopyTimestep
+
+ subroutine taxisDefType(taxisID_dummy, taxistype_dummy) bind(c, name =&
+ & 'taxisDefType')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: taxistype_dummy
+ end subroutine taxisDefType
+
+ function taxisInqType(taxisID_dummy) bind(c, name = 'taxisInqType')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisInqType
+
+ subroutine taxisDefVdate(taxisID_dummy, date_dummy) bind(c, name =&
+ & 'taxisDefVdate')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: date_dummy
+ end subroutine taxisDefVdate
+
+ subroutine taxisDefVtime(taxisID_dummy, time_dummy) bind(c, name =&
+ & 'taxisDefVtime')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: time_dummy
+ end subroutine taxisDefVtime
+
+ function taxisInqVdate(taxisID_dummy) bind(c, name = 'taxisInqVdate')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisInqVdate
+
+ function taxisInqVtime(taxisID_dummy) bind(c, name = 'taxisInqVtime')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisInqVtime
+
+ subroutine taxisDefRdate(taxisID_dummy, date_dummy) bind(c, name =&
+ & 'taxisDefRdate')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: date_dummy
+ end subroutine taxisDefRdate
+
+ subroutine taxisDefRtime(taxisID_dummy, time_dummy) bind(c, name =&
+ & 'taxisDefRtime')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: time_dummy
+ end subroutine taxisDefRtime
+
+ function taxisInqRdate(taxisID_dummy) bind(c, name = 'taxisInqRdate')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisInqRdate
+
+ function taxisInqRtime(taxisID_dummy) bind(c, name = 'taxisInqRtime')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisInqRtime
+
+ function taxisHasBounds(taxisID_dummy) bind(c, name = 'taxisHasBounds')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisHasBounds
+
+ subroutine taxisWithBounds(taxisID_dummy) bind(c, name = 'taxisWithBounds')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ end subroutine taxisWithBounds
+
+ subroutine taxisDeleteBounds(taxisID_dummy) bind(c, name =&
+ & 'taxisDeleteBounds')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ end subroutine taxisDeleteBounds
+
+ subroutine taxisDefVdateBounds(taxisID_dummy, vdate_lb_dummy,&
+ & vdate_ub_dummy) bind(c, name = 'taxisDefVdateBounds')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: vdate_lb_dummy
+ integer(c_int), value :: vdate_ub_dummy
+ end subroutine taxisDefVdateBounds
+
+ subroutine taxisDefVtimeBounds(taxisID_dummy, vtime_lb_dummy,&
+ & vtime_ub_dummy) bind(c, name = 'taxisDefVtimeBounds')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: vtime_lb_dummy
+ integer(c_int), value :: vtime_ub_dummy
+ end subroutine taxisDefVtimeBounds
+
+ subroutine taxisInqVdateBounds(taxisID_dummy, vdate_lb_dummy,&
+ & vdate_ub_dummy) bind(c, name = 'taxisInqVdateBounds')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), intent(inout) :: vdate_lb_dummy
+ integer(c_int), intent(inout) :: vdate_ub_dummy
+ end subroutine taxisInqVdateBounds
+
+ subroutine taxisInqVtimeBounds(taxisID_dummy, vtime_lb_dummy,&
+ & vtime_ub_dummy) bind(c, name = 'taxisInqVtimeBounds')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), intent(inout) :: vtime_lb_dummy
+ integer(c_int), intent(inout) :: vtime_ub_dummy
+ end subroutine taxisInqVtimeBounds
+
+ subroutine taxisDefCalendar(taxisID_dummy, calendar_dummy) bind(c, name =&
+ & 'taxisDefCalendar')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: calendar_dummy
+ end subroutine taxisDefCalendar
+
+ function taxisInqCalendar(taxisID_dummy) bind(c, name = 'taxisInqCalendar')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisInqCalendar
+
+ subroutine taxisDefTunit(taxisID_dummy, tunit_dummy) bind(c, name =&
+ & 'taxisDefTunit')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: tunit_dummy
+ end subroutine taxisDefTunit
+
+ function taxisInqTunit(taxisID_dummy) bind(c, name = 'taxisInqTunit')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisInqTunit
+
+ subroutine taxisDefForecastTunit(taxisID_dummy, tunit_dummy) bind(c, name =&
+ & 'taxisDefForecastTunit')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: tunit_dummy
+ end subroutine taxisDefForecastTunit
+
+ function taxisInqForecastTunit(taxisID_dummy) bind(c, name =&
+ & 'taxisInqForecastTunit') result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisInqForecastTunit
+
+ subroutine taxisDefForecastPeriod(taxisID_dummy, fc_period_dummy) bind(c,&
+ & name = 'taxisDefForecastPeriod')
+ import c_double, c_int
+ integer(c_int), value :: taxisID_dummy
+ real(c_double), value :: fc_period_dummy
+ end subroutine taxisDefForecastPeriod
+
+ function taxisInqForecastPeriod(taxisID_dummy) bind(c, name =&
+ & 'taxisInqForecastPeriod') result(f_result)
+ import c_double, c_int
+ integer(c_int), value :: taxisID_dummy
+ real(c_double) :: f_result
+ end function taxisInqForecastPeriod
+
+ subroutine taxisDefNumavg(taxisID_dummy, numavg_dummy) bind(c, name =&
+ & 'taxisDefNumavg')
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int), value :: numavg_dummy
+ end subroutine taxisDefNumavg
+
+ function taxisInqNumavg(taxisID_dummy) bind(c, name = 'taxisInqNumavg')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: taxisID_dummy
+ integer(c_int) :: f_result
+ end function taxisInqNumavg
+
+ function institutInqNumber() bind(c, name = 'institutInqNumber')&
+ & result(f_result)
+ import c_int
+ integer(c_int) :: f_result
+ end function institutInqNumber
+
+ function institutInqCenter(instID_dummy) bind(c, name =&
+ & 'institutInqCenter') result(f_result)
+ import c_int
+ integer(c_int), value :: instID_dummy
+ integer(c_int) :: f_result
+ end function institutInqCenter
+
+ function institutInqSubcenter(instID_dummy) bind(c, name =&
+ & 'institutInqSubcenter') result(f_result)
+ import c_int
+ integer(c_int), value :: instID_dummy
+ integer(c_int) :: f_result
+ end function institutInqSubcenter
+
+ function modelInqInstitut(modelID_dummy) bind(c, name = 'modelInqInstitut')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: modelID_dummy
+ integer(c_int) :: f_result
+ end function modelInqInstitut
+
+ function modelInqGribID(modelID_dummy) bind(c, name = 'modelInqGribID')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: modelID_dummy
+ integer(c_int) :: f_result
+ end function modelInqGribID
+
+ function tableInqNumber() bind(c, name = 'tableInqNumber') result(f_result)
+ import c_int
+ integer(c_int) :: f_result
+ end function tableInqNumber
+
+ function tableInqNum(tableID_dummy) bind(c, name = 'tableInqNum')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: tableID_dummy
+ integer(c_int) :: f_result
+ end function tableInqNum
+
+ function tableInqModel(tableID_dummy) bind(c, name = 'tableInqModel')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: tableID_dummy
+ integer(c_int) :: f_result
+ end function tableInqModel
+
+ function subtypeCreate(subtype_dummy) bind(c, name = 'subtypeCreate')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: subtype_dummy
+ integer(c_int) :: f_result
+ end function subtypeCreate
+
+ subroutine subtypePrint(subtypeID_dummy) bind(c, name = 'subtypePrint')
+ import c_int
+ integer(c_int), value :: subtypeID_dummy
+ end subroutine subtypePrint
+
+ function subtypeCompare(subtypeID1_dummy, subtypeID2_dummy) bind(c, name =&
+ & 'subtypeCompare') result(f_result)
+ import c_int
+ integer(c_int), value :: subtypeID1_dummy
+ integer(c_int), value :: subtypeID2_dummy
+ integer(c_int) :: f_result
+ end function subtypeCompare
+
+ function subtypeInqSize(subtypeID_dummy) bind(c, name = 'subtypeInqSize')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: subtypeID_dummy
+ integer(c_int) :: f_result
+ end function subtypeInqSize
+
+ function subtypeInqActiveIndex(subtypeID_dummy) bind(c, name =&
+ & 'subtypeInqActiveIndex') result(f_result)
+ import c_int
+ integer(c_int), value :: subtypeID_dummy
+ integer(c_int) :: f_result
+ end function subtypeInqActiveIndex
+
+ subroutine subtypeDefActiveIndex(subtypeID_dummy, index_dummy) bind(c, name&
+ & = 'subtypeDefActiveIndex')
+ import c_int
+ integer(c_int), value :: subtypeID_dummy
+ integer(c_int), value :: index_dummy
+ end subroutine subtypeDefActiveIndex
+
+ function subtypeInqTile(subtypeID_dummy, tileindex_dummy, attribute_dummy)&
+ & bind(c, name = 'subtypeInqTile') result(f_result)
+ import c_int
+ integer(c_int), value :: subtypeID_dummy
+ integer(c_int), value :: tileindex_dummy
+ integer(c_int), value :: attribute_dummy
+ integer(c_int) :: f_result
+ end function subtypeInqTile
+
+ function vlistInqVarSubtype(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarSubtype') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarSubtype
+
+ subroutine gribapiLibraryVersion(major_version_dummy, minor_version_dummy,&
+ & revision_version_dummy) bind(c, name = 'gribapiLibraryVersion')
+ import c_int
+ integer(c_int), intent(inout) :: major_version_dummy
+ integer(c_int), intent(inout) :: minor_version_dummy
+ integer(c_int), intent(inout) :: revision_version_dummy
+ end subroutine gribapiLibraryVersion
+
+ subroutine zaxisDefLtype(zaxisID_dummy, ltype_dummy) bind(c, name =&
+ & 'zaxisDefLtype')
+ import c_int
+ integer(c_int), value :: zaxisID_dummy
+ integer(c_int), value :: ltype_dummy
+ end subroutine zaxisDefLtype
+
+ function vlistInqVarTypeOfGeneratingProcess(vlistID_dummy, varID_dummy)&
+ & bind(c, name = 'vlistInqVarTypeOfGeneratingProcess') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarTypeOfGeneratingProcess
+
+ subroutine vlistDefVarTypeOfGeneratingProcess(vlistID_dummy, varID_dummy,&
+ & typeOfGeneratingProcess_dummy) bind(c, name =&
+ & 'vlistDefVarTypeOfGeneratingProcess')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: typeOfGeneratingProcess_dummy
+ end subroutine vlistDefVarTypeOfGeneratingProcess
+
+ subroutine vlistDefVarProductDefinitionTemplate(vlistID_dummy, varID_dummy,&
+ & productDefinitionTemplate_dummy) bind(c, name =&
+ & 'vlistDefVarProductDefinitionTemplate')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: productDefinitionTemplate_dummy
+ end subroutine vlistDefVarProductDefinitionTemplate
+
+ function date_to_julday(calendar_dummy, date_dummy) bind(c, name =&
+ & 'date_to_julday') result(f_result)
+ import c_int, c_int64_t
+ integer(c_int), value :: calendar_dummy
+ integer(c_int64_t), value :: date_dummy
+ integer(c_int64_t) :: f_result
+ end function date_to_julday
+
+ function julday_to_date(calendar_dummy, julday_dummy) bind(c, name =&
+ & 'julday_to_date') result(f_result)
+ import c_int, c_int64_t
+ integer(c_int), value :: calendar_dummy
+ integer(c_int64_t), value :: julday_dummy
+ integer(c_int64_t) :: f_result
+ end function julday_to_date
+
+ function time_to_sec(time_dummy) bind(c, name = 'time_to_sec')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: time_dummy
+ integer(c_int) :: f_result
+ end function time_to_sec
+
+ function sec_to_time(secofday_dummy) bind(c, name = 'sec_to_time')&
+ & result(f_result)
+ import c_int
+ integer(c_int), value :: secofday_dummy
+ integer(c_int) :: f_result
+ end function sec_to_time
+
+ end interface
+
+contains
+
+ subroutine ctrim(str)
+ character(kind = c_char, len = *), intent(inout) :: str
+ integer :: i
+
+ do i=1,len(str)
+ if (str(i:i) == c_null_char) then
+ str(i:len(str)) = ' '
+ exit
+ end if
+ end do
+ end subroutine ctrim
+
+ function c_len(s) result(i)
+ character(kind = c_char, len = *), intent(in) :: s
+ integer :: i
+
+ do i = 1, len(s)
+ if (s(i:i) == c_null_char) exit
+ end do
+ i = i - 1
+ end function
+
+ function cdiStringError(cdiErrno_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: cdiErrno_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_cdiStringError(cdiErrno_dummy) bind(c, name =&
+ & 'cdiStringError') result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: cdiErrno_dummy
+ end function lib_cdiStringError
+ end interface
+ f_result => null()
+ ptr = lib_cdiStringError(cdiErrno_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function cdiStringError
+
+ function cdiLibraryVersion() result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_cdiLibraryVersion() bind(c, name = 'cdiLibraryVersion')&
+ & result(c_result)
+ import c_ptr
+ type(c_ptr) :: c_result
+ end function lib_cdiLibraryVersion
+ end interface
+ f_result => null()
+ ptr = lib_cdiLibraryVersion()
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function cdiLibraryVersion
+
+ subroutine cdiDefGlobal(string_dummy, val_dummy)
+ character(kind = c_char, len = *), intent(in) :: string_dummy
+ integer(c_int), value :: val_dummy
+ character(kind = c_char) :: string_temp(len(string_dummy) + 1)
+ integer :: string_i
+ interface
+ subroutine lib_cdiDefGlobal(string_dummy, val_dummy) bind(c, name =&
+ & 'cdiDefGlobal')
+ import c_char, c_int
+ character(kind = c_char) :: string_dummy(*)
+ integer(c_int), value :: val_dummy
+ end subroutine lib_cdiDefGlobal
+ end interface
+ do string_i = 1, len(string_dummy)
+ string_temp(string_i) = string_dummy(string_i:string_i)
+ end do
+ string_temp(len(string_dummy) + 1) = c_null_char
+ call lib_cdiDefGlobal(string_temp, val_dummy)
+ end subroutine cdiDefGlobal
+
+ subroutine cdiParamToString(param_dummy, paramstr_dummy, maxlen_dummy)
+ integer(c_int), value :: param_dummy
+ character(kind = c_char, len = *), intent(inout) :: paramstr_dummy
+ integer(c_int), value :: maxlen_dummy
+ character(kind = c_char) :: paramstr_temp(len(paramstr_dummy) + 1)
+ integer :: paramstr_i
+ interface
+ subroutine lib_cdiParamToString(param_dummy, paramstr_dummy,&
+ & maxlen_dummy) bind(c, name = 'cdiParamToString')
+ import c_char, c_int
+ integer(c_int), value :: param_dummy
+ character(kind = c_char) :: paramstr_dummy(*)
+ integer(c_int), value :: maxlen_dummy
+ end subroutine lib_cdiParamToString
+ end interface
+ paramstr_temp(len(paramstr_dummy) + 1) = c_null_char
+ do paramstr_i = len(paramstr_dummy), 1, -1
+ if(paramstr_dummy(paramstr_i:paramstr_i) /= ' ') exit
+ paramstr_temp(paramstr_i) = c_null_char
+ end do
+ do paramstr_i = paramstr_i, 1, -1
+ paramstr_temp(paramstr_i) = paramstr_dummy(paramstr_i:paramstr_i)
+ end do
+ call lib_cdiParamToString(param_dummy, paramstr_temp, maxlen_dummy)
+ do paramstr_i = 1, len(paramstr_dummy)
+ if(paramstr_temp(paramstr_i) == c_null_char) exit
+ paramstr_dummy(paramstr_i:paramstr_i) = paramstr_temp(paramstr_i)
+ end do
+ do paramstr_i = paramstr_i, len(paramstr_dummy)
+ paramstr_dummy(paramstr_i:paramstr_i) = ' '
+ end do
+ end subroutine cdiParamToString
+
+ function cdiGetFiletype(uri_dummy, byteorder_dummy) result(f_result)
+ integer(c_int) :: f_result
+ character(kind = c_char, len = *), intent(in) :: uri_dummy
+ integer(c_int), intent(inout) :: byteorder_dummy
+ character(kind = c_char) :: uri_temp(len(uri_dummy) + 1)
+ integer :: uri_i
+ interface
+ function lib_cdiGetFiletype(uri_dummy, byteorder_dummy) bind(c, name =&
+ & 'cdiGetFiletype') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ character(kind = c_char) :: uri_dummy(*)
+ integer(c_int), intent(inout) :: byteorder_dummy
+ end function lib_cdiGetFiletype
+ end interface
+ do uri_i = 1, len(uri_dummy)
+ uri_temp(uri_i) = uri_dummy(uri_i:uri_i)
+ end do
+ uri_temp(len(uri_dummy) + 1) = c_null_char
+ f_result = lib_cdiGetFiletype(uri_temp, byteorder_dummy)
+ end function cdiGetFiletype
+
+ function streamOpenRead(path_dummy) result(f_result)
+ integer(c_int) :: f_result
+ character(kind = c_char, len = *), intent(in) :: path_dummy
+ character(kind = c_char) :: path_temp(len(path_dummy) + 1)
+ integer :: path_i
+ interface
+ function lib_streamOpenRead(path_dummy) bind(c, name = 'streamOpenRead')&
+ & result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ character(kind = c_char) :: path_dummy(*)
+ end function lib_streamOpenRead
+ end interface
+ do path_i = 1, len(path_dummy)
+ path_temp(path_i) = path_dummy(path_i:path_i)
+ end do
+ path_temp(len(path_dummy) + 1) = c_null_char
+ f_result = lib_streamOpenRead(path_temp)
+ end function streamOpenRead
+
+ function streamOpenWrite(path_dummy, filetype_dummy) result(f_result)
+ integer(c_int) :: f_result
+ character(kind = c_char, len = *), intent(in) :: path_dummy
+ integer(c_int), value :: filetype_dummy
+ character(kind = c_char) :: path_temp(len(path_dummy) + 1)
+ integer :: path_i
+ interface
+ function lib_streamOpenWrite(path_dummy, filetype_dummy) bind(c, name =&
+ & 'streamOpenWrite') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ character(kind = c_char) :: path_dummy(*)
+ integer(c_int), value :: filetype_dummy
+ end function lib_streamOpenWrite
+ end interface
+ do path_i = 1, len(path_dummy)
+ path_temp(path_i) = path_dummy(path_i:path_i)
+ end do
+ path_temp(len(path_dummy) + 1) = c_null_char
+ f_result = lib_streamOpenWrite(path_temp, filetype_dummy)
+ end function streamOpenWrite
+
+ function streamOpenAppend(path_dummy) result(f_result)
+ integer(c_int) :: f_result
+ character(kind = c_char, len = *), intent(in) :: path_dummy
+ character(kind = c_char) :: path_temp(len(path_dummy) + 1)
+ integer :: path_i
+ interface
+ function lib_streamOpenAppend(path_dummy) bind(c, name =&
+ & 'streamOpenAppend') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ character(kind = c_char) :: path_dummy(*)
+ end function lib_streamOpenAppend
+ end interface
+ do path_i = 1, len(path_dummy)
+ path_temp(path_i) = path_dummy(path_i:path_i)
+ end do
+ path_temp(len(path_dummy) + 1) = c_null_char
+ f_result = lib_streamOpenAppend(path_temp)
+ end function streamOpenAppend
+
+ function streamFilename(streamID_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: streamID_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_streamFilename(streamID_dummy) bind(c, name =&
+ & 'streamFilename') result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: streamID_dummy
+ end function lib_streamFilename
+ end interface
+ f_result => null()
+ ptr = lib_streamFilename(streamID_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function streamFilename
+
+ function streamFilesuffix(filetype_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: filetype_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_streamFilesuffix(filetype_dummy) bind(c, name =&
+ & 'streamFilesuffix') result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: filetype_dummy
+ end function lib_streamFilesuffix
+ end interface
+ f_result => null()
+ ptr = lib_streamFilesuffix(filetype_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function streamFilesuffix
+
+ function cdiIterator_new(path_dummy) result(f_result)
+ type(t_CdiIterator) :: f_result
+ character(kind = c_char, len = *), intent(in) :: path_dummy
+ character(kind = c_char) :: path_temp(len(path_dummy) + 1)
+ integer :: path_i
+ interface
+ function lib_cdiIterator_new(path_dummy) bind(c, name =&
+ & 'cdiIterator_new') result(c_result)
+ import c_char, c_ptr
+ type(c_ptr) :: c_result
+ character(kind = c_char) :: path_dummy(*)
+ end function lib_cdiIterator_new
+ end interface
+ do path_i = 1, len(path_dummy)
+ path_temp(path_i) = path_dummy(path_i:path_i)
+ end do
+ path_temp(len(path_dummy) + 1) = c_null_char
+ f_result%ptr = lib_cdiIterator_new(path_temp)
+ end function cdiIterator_new
+
+ function cdiIterator_clone(me_dummy) result(f_result)
+ type(t_CdiIterator) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ interface
+ function lib_cdiIterator_clone(me_dummy) bind(c, name =&
+ & 'cdiIterator_clone') result(c_result)
+ import c_ptr
+ type(c_ptr) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_clone
+ end interface
+ f_result%ptr = lib_cdiIterator_clone(me_dummy%ptr)
+ end function cdiIterator_clone
+
+ function cdiIterator_serialize(me_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ type(c_ptr) :: cString
+ integer :: rv_shape(1)
+ character(kind = c_char), dimension(:), pointer :: temp
+ interface
+ function lib_cdiIterator_serialize(me_dummy) bind(c, name =&
+ & 'cdiIterator_serialize') result(c_result)
+ import c_ptr
+ type(c_ptr) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_serialize
+ end interface
+ cString = lib_cdiIterator_serialize(me_dummy%ptr)
+ if(c_associated(cString)) then
+ rv_shape(1) = int(lib_strlen(cString))
+ call c_f_pointer(cString, temp, rv_shape)
+ allocate(f_result(rv_shape(1)))
+ f_result = temp
+ call lib_free(cString)
+ else
+ f_result => null()
+ end if
+ end function cdiIterator_serialize
+
+ function cdiIterator_deserialize(description_dummy) result(f_result)
+ type(t_CdiIterator) :: f_result
+ character(kind = c_char, len = *), intent(in) :: description_dummy
+ character(kind = c_char) :: description_temp(len(description_dummy) + 1)
+ integer :: description_i
+ interface
+ function lib_cdiIterator_deserialize(description_dummy) bind(c, name =&
+ & 'cdiIterator_deserialize') result(c_result)
+ import c_char, c_ptr
+ type(c_ptr) :: c_result
+ character(kind = c_char) :: description_dummy(*)
+ end function lib_cdiIterator_deserialize
+ end interface
+ do description_i = 1, len(description_dummy)
+ description_temp(description_i) =&
+ & description_dummy(description_i:description_i)
+ end do
+ description_temp(len(description_dummy) + 1) = c_null_char
+ f_result%ptr = lib_cdiIterator_deserialize(description_temp)
+ end function cdiIterator_deserialize
+
+ subroutine cdiIterator_delete(me_dummy)
+ type(t_CdiIterator), intent(in) :: me_dummy
+ interface
+ subroutine lib_cdiIterator_delete(me_dummy) bind(c, name =&
+ & 'cdiIterator_delete')
+ import c_ptr
+ type(c_ptr), value :: me_dummy
+ end subroutine lib_cdiIterator_delete
+ end interface
+ call lib_cdiIterator_delete(me_dummy%ptr)
+ end subroutine cdiIterator_delete
+
+ function cdiIterator_nextField(me_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ interface
+ function lib_cdiIterator_nextField(me_dummy) bind(c, name =&
+ & 'cdiIterator_nextField') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_nextField
+ end interface
+ f_result = lib_cdiIterator_nextField(me_dummy%ptr)
+ end function cdiIterator_nextField
+
+ function cdiIterator_inqStartTime(me_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ type(c_ptr) :: cString
+ integer :: rv_shape(1)
+ character(kind = c_char), dimension(:), pointer :: temp
+ interface
+ function lib_cdiIterator_inqStartTime(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqStartTime') result(c_result)
+ import c_ptr
+ type(c_ptr) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqStartTime
+ end interface
+ cString = lib_cdiIterator_inqStartTime(me_dummy%ptr)
+ if(c_associated(cString)) then
+ rv_shape(1) = int(lib_strlen(cString))
+ call c_f_pointer(cString, temp, rv_shape)
+ allocate(f_result(rv_shape(1)))
+ f_result = temp
+ call lib_free(cString)
+ else
+ f_result => null()
+ end if
+ end function cdiIterator_inqStartTime
+
+ function cdiIterator_inqEndTime(me_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ type(c_ptr) :: cString
+ integer :: rv_shape(1)
+ character(kind = c_char), dimension(:), pointer :: temp
+ interface
+ function lib_cdiIterator_inqEndTime(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqEndTime') result(c_result)
+ import c_ptr
+ type(c_ptr) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqEndTime
+ end interface
+ cString = lib_cdiIterator_inqEndTime(me_dummy%ptr)
+ if(c_associated(cString)) then
+ rv_shape(1) = int(lib_strlen(cString))
+ call c_f_pointer(cString, temp, rv_shape)
+ allocate(f_result(rv_shape(1)))
+ f_result = temp
+ call lib_free(cString)
+ else
+ f_result => null()
+ end if
+ end function cdiIterator_inqEndTime
+
+ function cdiIterator_inqRTime(me_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ type(c_ptr) :: cString
+ integer :: rv_shape(1)
+ character(kind = c_char), dimension(:), pointer :: temp
+ interface
+ function lib_cdiIterator_inqRTime(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqRTime') result(c_result)
+ import c_ptr
+ type(c_ptr) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqRTime
+ end interface
+ cString = lib_cdiIterator_inqRTime(me_dummy%ptr)
+ if(c_associated(cString)) then
+ rv_shape(1) = int(lib_strlen(cString))
+ call c_f_pointer(cString, temp, rv_shape)
+ allocate(f_result(rv_shape(1)))
+ f_result = temp
+ call lib_free(cString)
+ else
+ f_result => null()
+ end if
+ end function cdiIterator_inqRTime
+
+ function cdiIterator_inqVTime(me_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ type(c_ptr) :: cString
+ integer :: rv_shape(1)
+ character(kind = c_char), dimension(:), pointer :: temp
+ interface
+ function lib_cdiIterator_inqVTime(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqVTime') result(c_result)
+ import c_ptr
+ type(c_ptr) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqVTime
+ end interface
+ cString = lib_cdiIterator_inqVTime(me_dummy%ptr)
+ if(c_associated(cString)) then
+ rv_shape(1) = int(lib_strlen(cString))
+ call c_f_pointer(cString, temp, rv_shape)
+ allocate(f_result(rv_shape(1)))
+ f_result = temp
+ call lib_free(cString)
+ else
+ f_result => null()
+ end if
+ end function cdiIterator_inqVTime
+
+ function cdiIterator_inqLevelType(me_dummy, levelSelector_dummy, outName,&
+ & outLongName, outStdName, outUnit) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ integer(c_int), value :: levelSelector_dummy
+ character(kind = c_char), pointer, optional, intent(inout) :: outName(:)
+ character(kind = c_char), pointer, optional, intent(inout) ::&
+ & outLongName(:)
+ character(kind = c_char), pointer, optional, intent(inout) :: outStdName(:)
+ character(kind = c_char), pointer, optional, intent(inout) :: outUnit(:)
+ type(c_ptr), target :: outName_cptr
+ type(c_ptr) :: outName_handle
+ integer :: outName_shape(1)
+ character(kind = c_char), pointer :: outName_fptr(:)
+ type(c_ptr), target :: outLongName_cptr
+ type(c_ptr) :: outLongName_handle
+ integer :: outLongName_shape(1)
+ character(kind = c_char), pointer :: outLongName_fptr(:)
+ type(c_ptr), target :: outStdName_cptr
+ type(c_ptr) :: outStdName_handle
+ integer :: outStdName_shape(1)
+ character(kind = c_char), pointer :: outStdName_fptr(:)
+ type(c_ptr), target :: outUnit_cptr
+ type(c_ptr) :: outUnit_handle
+ integer :: outUnit_shape(1)
+ character(kind = c_char), pointer :: outUnit_fptr(:)
+ interface
+ function lib_cdiIterator_inqLevelType(me_dummy, levelSelector_dummy,&
+ & outName, outLongName, outStdName, outUnit) bind(c, name =&
+ & 'cdiIterator_inqLevelType') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ integer(c_int), value :: levelSelector_dummy
+ type(c_ptr), value :: outName
+ type(c_ptr), value :: outLongName
+ type(c_ptr), value :: outStdName
+ type(c_ptr), value :: outUnit
+ end function lib_cdiIterator_inqLevelType
+ end interface
+ outName_handle = c_null_ptr
+ if(present(outName)) outName_handle = c_loc(outName_cptr)
+ outLongName_handle = c_null_ptr
+ if(present(outLongName)) outLongName_handle = c_loc(outLongName_cptr)
+ outStdName_handle = c_null_ptr
+ if(present(outStdName)) outStdName_handle = c_loc(outStdName_cptr)
+ outUnit_handle = c_null_ptr
+ if(present(outUnit)) outUnit_handle = c_loc(outUnit_cptr)
+ f_result = lib_cdiIterator_inqLevelType(me_dummy%ptr, levelSelector_dummy,&
+ & outName_handle, outLongName_handle, outStdName_handle, outUnit_handle)
+ if(present(outName)) then
+ if(c_associated(outName_cptr)) then
+ outName_shape(1) = int(lib_strlen(outName_cptr))
+ call c_f_pointer(outName_cptr, outName_fptr, outName_shape)
+ allocate(outName(outName_shape(1)))
+ outName = outName_fptr
+ call lib_free(outName_cptr)
+ else
+ outName => null()
+ end if
+ end if
+ if(present(outLongName)) then
+ if(c_associated(outLongName_cptr)) then
+ outLongName_shape(1) = int(lib_strlen(outLongName_cptr))
+ call c_f_pointer(outLongName_cptr, outLongName_fptr, outLongName_shape)
+ allocate(outLongName(outLongName_shape(1)))
+ outLongName = outLongName_fptr
+ call lib_free(outLongName_cptr)
+ else
+ outLongName => null()
+ end if
+ end if
+ if(present(outStdName)) then
+ if(c_associated(outStdName_cptr)) then
+ outStdName_shape(1) = int(lib_strlen(outStdName_cptr))
+ call c_f_pointer(outStdName_cptr, outStdName_fptr, outStdName_shape)
+ allocate(outStdName(outStdName_shape(1)))
+ outStdName = outStdName_fptr
+ call lib_free(outStdName_cptr)
+ else
+ outStdName => null()
+ end if
+ end if
+ if(present(outUnit)) then
+ if(c_associated(outUnit_cptr)) then
+ outUnit_shape(1) = int(lib_strlen(outUnit_cptr))
+ call c_f_pointer(outUnit_cptr, outUnit_fptr, outUnit_shape)
+ allocate(outUnit(outUnit_shape(1)))
+ outUnit = outUnit_fptr
+ call lib_free(outUnit_cptr)
+ else
+ outUnit => null()
+ end if
+ end if
+ end function cdiIterator_inqLevelType
+
+ function cdiIterator_inqLevel(me_dummy, levelSelector_dummy, outValue1,&
+ & outValue2) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ integer(c_int), value :: levelSelector_dummy
+ real(c_double), target, optional, intent(inout) :: outValue1
+ real(c_double), target, optional, intent(inout) :: outValue2
+ type(c_ptr) :: outValue1_cptr
+ type(c_ptr) :: outValue2_cptr
+ interface
+ function lib_cdiIterator_inqLevel(me_dummy, levelSelector_dummy,&
+ & outValue1, outValue2) bind(c, name = 'cdiIterator_inqLevel')&
+ & result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ integer(c_int), value :: levelSelector_dummy
+ type(c_ptr), value :: outValue1
+ type(c_ptr), value :: outValue2
+ end function lib_cdiIterator_inqLevel
+ end interface
+ outValue1_cptr = c_null_ptr
+ if(present(outValue1)) outValue1_cptr = c_loc(outValue1)
+ outValue2_cptr = c_null_ptr
+ if(present(outValue2)) outValue2_cptr = c_loc(outValue2)
+ f_result = lib_cdiIterator_inqLevel(me_dummy%ptr, levelSelector_dummy,&
+ & outValue1_cptr, outValue2_cptr)
+ end function cdiIterator_inqLevel
+
+ function cdiIterator_inqLevelUuid(me_dummy, outVgridNumber, outLevelCount,&
+ & outUuid) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ integer(c_int), optional, target, intent(inout) :: outVgridNumber
+ integer(c_int), optional, target, intent(inout) :: outLevelCount
+ integer(kind = c_signed_char), target, optional, intent(inout) ::&
+ & outUuid(CDI_UUID_SIZE)
+ type(c_ptr) :: outVgridNumber_cptr
+ type(c_ptr) :: outLevelCount_cptr
+ type(c_ptr) :: outUuid_cptr
+ interface
+ function lib_cdiIterator_inqLevelUuid(me_dummy, outVgridNumber,&
+ & outLevelCount, outUuid) bind(c, name = 'cdiIterator_inqLevelUuid')&
+ & result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ type(c_ptr), value :: outVgridNumber
+ type(c_ptr), value :: outLevelCount
+ type(c_ptr), value :: outUuid
+ end function lib_cdiIterator_inqLevelUuid
+ end interface
+ outVgridNumber_cptr = c_null_ptr
+ if(present(outVgridNumber)) outVgridNumber_cptr = c_loc(outVgridNumber)
+ outLevelCount_cptr = c_null_ptr
+ if(present(outLevelCount)) outLevelCount_cptr = c_loc(outLevelCount)
+ outUuid_cptr = c_null_ptr
+ if(present(outUuid)) outUuid_cptr = c_loc(outUuid)
+ f_result = lib_cdiIterator_inqLevelUuid(me_dummy%ptr, outVgridNumber_cptr,&
+ & outLevelCount_cptr, outUuid_cptr)
+ end function cdiIterator_inqLevelUuid
+
+ function cdiIterator_inqTile(me_dummy, outTileIndex_dummy,&
+ & outTileAttribute_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ integer(c_int), intent(inout) :: outTileIndex_dummy
+ integer(c_int), intent(inout) :: outTileAttribute_dummy
+ interface
+ function lib_cdiIterator_inqTile(me_dummy, outTileIndex_dummy,&
+ & outTileAttribute_dummy) bind(c, name = 'cdiIterator_inqTile')&
+ & result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ integer(c_int), intent(inout) :: outTileIndex_dummy
+ integer(c_int), intent(inout) :: outTileAttribute_dummy
+ end function lib_cdiIterator_inqTile
+ end interface
+ f_result = lib_cdiIterator_inqTile(me_dummy%ptr, outTileIndex_dummy,&
+ & outTileAttribute_dummy)
+ end function cdiIterator_inqTile
+
+ function cdiIterator_inqTileCount(me_dummy, outTileCount_dummy,&
+ & outTileAttributeCount_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ integer(c_int), intent(inout) :: outTileCount_dummy
+ integer(c_int), intent(inout) :: outTileAttributeCount_dummy
+ interface
+ function lib_cdiIterator_inqTileCount(me_dummy, outTileCount_dummy,&
+ & outTileAttributeCount_dummy) bind(c, name = 'cdiIterator_inqTileCount')&
+ & result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ integer(c_int), intent(inout) :: outTileCount_dummy
+ integer(c_int), intent(inout) :: outTileAttributeCount_dummy
+ end function lib_cdiIterator_inqTileCount
+ end interface
+ f_result = lib_cdiIterator_inqTileCount(me_dummy%ptr, outTileCount_dummy,&
+ & outTileAttributeCount_dummy)
+ end function cdiIterator_inqTileCount
+
+ function cdiIterator_inqParam(me_dummy) result(f_result)
+ type(t_CdiParam) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ interface
+ function lib_cdiIterator_inqParam(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqParam') result(c_result)
+ import c_ptr, t_CdiParam
+ type(t_CdiParam) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqParam
+ end interface
+ f_result = lib_cdiIterator_inqParam(me_dummy%ptr)
+ end function cdiIterator_inqParam
+
+ subroutine cdiIterator_inqParamParts(me_dummy, outDiscipline_dummy,&
+ & outCategory_dummy, outNumber_dummy)
+ type(t_CdiIterator), intent(in) :: me_dummy
+ integer(c_int), intent(inout) :: outDiscipline_dummy
+ integer(c_int), intent(inout) :: outCategory_dummy
+ integer(c_int), intent(inout) :: outNumber_dummy
+ interface
+ subroutine lib_cdiIterator_inqParamParts(me_dummy, outDiscipline_dummy,&
+ & outCategory_dummy, outNumber_dummy) bind(c, name =&
+ & 'cdiIterator_inqParamParts')
+ import c_int, c_ptr
+ type(c_ptr), value :: me_dummy
+ integer(c_int), intent(inout) :: outDiscipline_dummy
+ integer(c_int), intent(inout) :: outCategory_dummy
+ integer(c_int), intent(inout) :: outNumber_dummy
+ end subroutine lib_cdiIterator_inqParamParts
+ end interface
+ call lib_cdiIterator_inqParamParts(me_dummy%ptr, outDiscipline_dummy,&
+ & outCategory_dummy, outNumber_dummy)
+ end subroutine cdiIterator_inqParamParts
+
+ function cdiIterator_inqDatatype(me_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ interface
+ function lib_cdiIterator_inqDatatype(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqDatatype') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqDatatype
+ end interface
+ f_result = lib_cdiIterator_inqDatatype(me_dummy%ptr)
+ end function cdiIterator_inqDatatype
+
+ function cdiIterator_inqFiletype(me_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ interface
+ function lib_cdiIterator_inqFiletype(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqFiletype') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqFiletype
+ end interface
+ f_result = lib_cdiIterator_inqFiletype(me_dummy%ptr)
+ end function cdiIterator_inqFiletype
+
+ function cdiIterator_inqTsteptype(me_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ interface
+ function lib_cdiIterator_inqTsteptype(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqTsteptype') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqTsteptype
+ end interface
+ f_result = lib_cdiIterator_inqTsteptype(me_dummy%ptr)
+ end function cdiIterator_inqTsteptype
+
+ function cdiIterator_inqVariableName(me_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ type(c_ptr) :: cString
+ integer :: rv_shape(1)
+ character(kind = c_char), dimension(:), pointer :: temp
+ interface
+ function lib_cdiIterator_inqVariableName(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqVariableName') result(c_result)
+ import c_ptr
+ type(c_ptr) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqVariableName
+ end interface
+ cString = lib_cdiIterator_inqVariableName(me_dummy%ptr)
+ if(c_associated(cString)) then
+ rv_shape(1) = int(lib_strlen(cString))
+ call c_f_pointer(cString, temp, rv_shape)
+ allocate(f_result(rv_shape(1)))
+ f_result = temp
+ call lib_free(cString)
+ else
+ f_result => null()
+ end if
+ end function cdiIterator_inqVariableName
+
+ function cdiIterator_inqGridId(me_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ interface
+ function lib_cdiIterator_inqGridId(me_dummy) bind(c, name =&
+ & 'cdiIterator_inqGridId') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiIterator_inqGridId
+ end interface
+ f_result = lib_cdiIterator_inqGridId(me_dummy%ptr)
+ end function cdiIterator_inqGridId
+
+ subroutine cdiIterator_readField(me_dummy, data_dummy, numMissVals)
+ type(t_CdiIterator), intent(in) :: me_dummy
+ real(c_double), intent(inout) :: data_dummy(*)
+ integer(c_int), optional, target, intent(inout) :: numMissVals
+ type(c_ptr) :: numMissVals_cptr
+ interface
+ subroutine lib_cdiIterator_readField(me_dummy, data_dummy, numMissVals)&
+ & bind(c, name = 'cdiIterator_readField')
+ import c_double, c_ptr
+ type(c_ptr), value :: me_dummy
+ real(c_double), intent(inout) :: data_dummy(*)
+ type(c_ptr), value :: numMissVals
+ end subroutine lib_cdiIterator_readField
+ end interface
+ numMissVals_cptr = c_null_ptr
+ if(present(numMissVals)) numMissVals_cptr = c_loc(numMissVals)
+ call lib_cdiIterator_readField(me_dummy%ptr, data_dummy, numMissVals_cptr)
+ end subroutine cdiIterator_readField
+
+ subroutine cdiIterator_readFieldF(me_dummy, data_dummy, numMissVals)
+ type(t_CdiIterator), intent(in) :: me_dummy
+ real(c_float), intent(inout) :: data_dummy(*)
+ integer(c_int), optional, target, intent(inout) :: numMissVals
+ type(c_ptr) :: numMissVals_cptr
+ interface
+ subroutine lib_cdiIterator_readFieldF(me_dummy, data_dummy, numMissVals)&
+ & bind(c, name = 'cdiIterator_readFieldF')
+ import c_float, c_ptr
+ type(c_ptr), value :: me_dummy
+ real(c_float), intent(inout) :: data_dummy(*)
+ type(c_ptr), value :: numMissVals
+ end subroutine lib_cdiIterator_readFieldF
+ end interface
+ numMissVals_cptr = c_null_ptr
+ if(present(numMissVals)) numMissVals_cptr = c_loc(numMissVals)
+ call lib_cdiIterator_readFieldF(me_dummy%ptr, data_dummy, numMissVals_cptr)
+ end subroutine cdiIterator_readFieldF
+
+ function cdiGribIterator_clone(me_dummy) result(f_result)
+ type(t_CdiGribIterator) :: f_result
+ type(t_CdiIterator), intent(in) :: me_dummy
+ interface
+ function lib_cdiGribIterator_clone(me_dummy) bind(c, name =&
+ & 'cdiGribIterator_clone') result(c_result)
+ import c_ptr
+ type(c_ptr) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiGribIterator_clone
+ end interface
+ f_result%ptr = lib_cdiGribIterator_clone(me_dummy%ptr)
+ end function cdiGribIterator_clone
+
+ subroutine cdiGribIterator_delete(me_dummy)
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ interface
+ subroutine lib_cdiGribIterator_delete(me_dummy) bind(c, name =&
+ & 'cdiGribIterator_delete')
+ import c_ptr
+ type(c_ptr), value :: me_dummy
+ end subroutine lib_cdiGribIterator_delete
+ end interface
+ call lib_cdiGribIterator_delete(me_dummy%ptr)
+ end subroutine cdiGribIterator_delete
+
+ function cdiGribIterator_getLong(me_dummy, key_dummy, value_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ integer(c_long), intent(inout) :: value_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_getLong(me_dummy, key_dummy, value_dummy)&
+ & bind(c, name = 'cdiGribIterator_getLong') result(c_result)
+ import c_char, c_int, c_long, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ integer(c_long), intent(inout) :: value_dummy
+ end function lib_cdiGribIterator_getLong
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_getLong(me_dummy%ptr, key_temp, value_dummy)
+ end function cdiGribIterator_getLong
+
+ function cdiGribIterator_getDouble(me_dummy, key_dummy, value_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ real(c_double), intent(inout) :: value_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_getDouble(me_dummy, key_dummy, value_dummy)&
+ & bind(c, name = 'cdiGribIterator_getDouble') result(c_result)
+ import c_char, c_double, c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ real(c_double), intent(inout) :: value_dummy
+ end function lib_cdiGribIterator_getDouble
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_getDouble(me_dummy%ptr, key_temp,&
+ & value_dummy)
+ end function cdiGribIterator_getDouble
+
+ function cdiGribIterator_getLength(me_dummy, key_dummy, value_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ integer(c_size_t), intent(inout) :: value_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_getLength(me_dummy, key_dummy, value_dummy)&
+ & bind(c, name = 'cdiGribIterator_getLength') result(c_result)
+ import c_char, c_int, c_ptr, c_size_t
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ integer(c_size_t), intent(inout) :: value_dummy
+ end function lib_cdiGribIterator_getLength
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_getLength(me_dummy%ptr, key_temp,&
+ & value_dummy)
+ end function cdiGribIterator_getLength
+
+ function cdiGribIterator_getString(me_dummy, key_dummy, value_dummy,&
+ & length_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ character(kind = c_char, len = *), intent(inout) :: value_dummy
+ integer(c_size_t), intent(inout) :: length_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ character(kind = c_char) :: value_temp(len(value_dummy) + 1)
+ integer :: value_i
+ interface
+ function lib_cdiGribIterator_getString(me_dummy, key_dummy, value_dummy,&
+ & length_dummy) bind(c, name = 'cdiGribIterator_getString')&
+ & result(c_result)
+ import c_char, c_int, c_ptr, c_size_t
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ character(kind = c_char) :: value_dummy(*)
+ integer(c_size_t), intent(inout) :: length_dummy
+ end function lib_cdiGribIterator_getString
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ value_temp(len(value_dummy) + 1) = c_null_char
+ do value_i = len(value_dummy), 1, -1
+ if(value_dummy(value_i:value_i) /= ' ') exit
+ value_temp(value_i) = c_null_char
+ end do
+ do value_i = value_i, 1, -1
+ value_temp(value_i) = value_dummy(value_i:value_i)
+ end do
+ f_result = lib_cdiGribIterator_getString(me_dummy%ptr, key_temp,&
+ & value_temp, length_dummy)
+ do value_i = 1, len(value_dummy)
+ if(value_temp(value_i) == c_null_char) exit
+ value_dummy(value_i:value_i) = value_temp(value_i)
+ end do
+ do value_i = value_i, len(value_dummy)
+ value_dummy(value_i:value_i) = ' '
+ end do
+ end function cdiGribIterator_getString
+
+ function cdiGribIterator_getSize(me_dummy, key_dummy, value_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ integer(c_size_t), intent(inout) :: value_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_getSize(me_dummy, key_dummy, value_dummy)&
+ & bind(c, name = 'cdiGribIterator_getSize') result(c_result)
+ import c_char, c_int, c_ptr, c_size_t
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ integer(c_size_t), intent(inout) :: value_dummy
+ end function lib_cdiGribIterator_getSize
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_getSize(me_dummy%ptr, key_temp, value_dummy)
+ end function cdiGribIterator_getSize
+
+ function cdiGribIterator_getLongArray(me_dummy, key_dummy, value_dummy,&
+ & array_size_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ integer(c_long), intent(inout) :: value_dummy
+ integer(c_size_t), intent(inout) :: array_size_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_getLongArray(me_dummy, key_dummy,&
+ & value_dummy, array_size_dummy) bind(c, name =&
+ & 'cdiGribIterator_getLongArray') result(c_result)
+ import c_char, c_int, c_long, c_ptr, c_size_t
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ integer(c_long), intent(inout) :: value_dummy
+ integer(c_size_t), intent(inout) :: array_size_dummy
+ end function lib_cdiGribIterator_getLongArray
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_getLongArray(me_dummy%ptr, key_temp,&
+ & value_dummy, array_size_dummy)
+ end function cdiGribIterator_getLongArray
+
+ function cdiGribIterator_getDoubleArray(me_dummy, key_dummy, value_dummy,&
+ & array_size_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ real(c_double), intent(inout) :: value_dummy
+ integer(c_size_t), intent(inout) :: array_size_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_getDoubleArray(me_dummy, key_dummy,&
+ & value_dummy, array_size_dummy) bind(c, name =&
+ & 'cdiGribIterator_getDoubleArray') result(c_result)
+ import c_char, c_double, c_int, c_ptr, c_size_t
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ real(c_double), intent(inout) :: value_dummy
+ integer(c_size_t), intent(inout) :: array_size_dummy
+ end function lib_cdiGribIterator_getDoubleArray
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_getDoubleArray(me_dummy%ptr, key_temp,&
+ & value_dummy, array_size_dummy)
+ end function cdiGribIterator_getDoubleArray
+
+ function cdiGribIterator_inqEdition(me_dummy) result(f_result)
+ integer(c_int) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ interface
+ function lib_cdiGribIterator_inqEdition(me_dummy) bind(c, name =&
+ & 'cdiGribIterator_inqEdition') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ type(c_ptr), value :: me_dummy
+ end function lib_cdiGribIterator_inqEdition
+ end interface
+ f_result = lib_cdiGribIterator_inqEdition(me_dummy%ptr)
+ end function cdiGribIterator_inqEdition
+
+ function cdiGribIterator_inqLongValue(me_dummy, key_dummy) result(f_result)
+ integer(c_long) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_inqLongValue(me_dummy, key_dummy) bind(c,&
+ & name = 'cdiGribIterator_inqLongValue') result(c_result)
+ import c_char, c_long, c_ptr
+ integer(c_long) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ end function lib_cdiGribIterator_inqLongValue
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_inqLongValue(me_dummy%ptr, key_temp)
+ end function cdiGribIterator_inqLongValue
+
+ function cdiGribIterator_inqLongDefaultValue(me_dummy, key_dummy,&
+ & defaultValue_dummy) result(f_result)
+ integer(c_long) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ integer(c_long), value :: defaultValue_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_inqLongDefaultValue(me_dummy, key_dummy,&
+ & defaultValue_dummy) bind(c, name =&
+ & 'cdiGribIterator_inqLongDefaultValue') result(c_result)
+ import c_char, c_long, c_ptr
+ integer(c_long) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ integer(c_long), value :: defaultValue_dummy
+ end function lib_cdiGribIterator_inqLongDefaultValue
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_inqLongDefaultValue(me_dummy%ptr, key_temp,&
+ & defaultValue_dummy)
+ end function cdiGribIterator_inqLongDefaultValue
+
+ function cdiGribIterator_inqDoubleValue(me_dummy, key_dummy) result(f_result)
+ real(c_double) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_inqDoubleValue(me_dummy, key_dummy) bind(c,&
+ & name = 'cdiGribIterator_inqDoubleValue') result(c_result)
+ import c_char, c_double, c_ptr
+ real(c_double) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ end function lib_cdiGribIterator_inqDoubleValue
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_inqDoubleValue(me_dummy%ptr, key_temp)
+ end function cdiGribIterator_inqDoubleValue
+
+ function cdiGribIterator_inqDoubleDefaultValue(me_dummy, key_dummy,&
+ & defaultValue_dummy) result(f_result)
+ real(c_double) :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ real(c_double), value :: defaultValue_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_cdiGribIterator_inqDoubleDefaultValue(me_dummy, key_dummy,&
+ & defaultValue_dummy) bind(c, name =&
+ & 'cdiGribIterator_inqDoubleDefaultValue') result(c_result)
+ import c_char, c_double, c_ptr
+ real(c_double) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ real(c_double), value :: defaultValue_dummy
+ end function lib_cdiGribIterator_inqDoubleDefaultValue
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_cdiGribIterator_inqDoubleDefaultValue(me_dummy%ptr,&
+ & key_temp, defaultValue_dummy)
+ end function cdiGribIterator_inqDoubleDefaultValue
+
+ function cdiGribIterator_inqStringValue(me_dummy, key_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ type(t_CdiGribIterator), intent(in) :: me_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ type(c_ptr) :: cString
+ integer :: rv_shape(1)
+ character(kind = c_char), dimension(:), pointer :: temp
+ interface
+ function lib_cdiGribIterator_inqStringValue(me_dummy, key_dummy) bind(c,&
+ & name = 'cdiGribIterator_inqStringValue') result(c_result)
+ import c_char, c_ptr
+ type(c_ptr) :: c_result
+ type(c_ptr), value :: me_dummy
+ character(kind = c_char) :: key_dummy(*)
+ end function lib_cdiGribIterator_inqStringValue
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ cString = lib_cdiGribIterator_inqStringValue(me_dummy%ptr, key_temp)
+ if(c_associated(cString)) then
+ rv_shape(1) = int(lib_strlen(cString))
+ call c_f_pointer(cString, temp, rv_shape)
+ allocate(f_result(rv_shape(1)))
+ f_result = temp
+ call lib_free(cString)
+ else
+ f_result => null()
+ end if
+ end function cdiGribIterator_inqStringValue
+
+ subroutine vlistDefVarName(vlistID_dummy, varID_dummy, name_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ subroutine lib_vlistDefVarName(vlistID_dummy, varID_dummy, name_dummy)&
+ & bind(c, name = 'vlistDefVarName')
+ import c_char, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end subroutine lib_vlistDefVarName
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ call lib_vlistDefVarName(vlistID_dummy, varID_dummy, name_temp)
+ end subroutine vlistDefVarName
+
+ subroutine vlistInqVarName(vlistID_dummy, varID_dummy, name_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(inout) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ subroutine lib_vlistInqVarName(vlistID_dummy, varID_dummy, name_dummy)&
+ & bind(c, name = 'vlistInqVarName')
+ import c_char, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end subroutine lib_vlistInqVarName
+ end interface
+ name_temp(len(name_dummy) + 1) = c_null_char
+ do name_i = len(name_dummy), 1, -1
+ if(name_dummy(name_i:name_i) /= ' ') exit
+ name_temp(name_i) = c_null_char
+ end do
+ do name_i = name_i, 1, -1
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ call lib_vlistInqVarName(vlistID_dummy, varID_dummy, name_temp)
+ do name_i = 1, len(name_dummy)
+ if(name_temp(name_i) == c_null_char) exit
+ name_dummy(name_i:name_i) = name_temp(name_i)
+ end do
+ do name_i = name_i, len(name_dummy)
+ name_dummy(name_i:name_i) = ' '
+ end do
+ end subroutine vlistInqVarName
+
+ function vlistCopyVarName(vlistId_dummy, varId_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: vlistId_dummy
+ integer(c_int), value :: varId_dummy
+ type(c_ptr) :: cString
+ integer :: rv_shape(1)
+ character(kind = c_char), dimension(:), pointer :: temp
+ interface
+ function lib_vlistCopyVarName(vlistId_dummy, varId_dummy) bind(c, name =&
+ & 'vlistCopyVarName') result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: vlistId_dummy
+ integer(c_int), value :: varId_dummy
+ end function lib_vlistCopyVarName
+ end interface
+ cString = lib_vlistCopyVarName(vlistId_dummy, varId_dummy)
+ if(c_associated(cString)) then
+ rv_shape(1) = int(lib_strlen(cString))
+ call c_f_pointer(cString, temp, rv_shape)
+ allocate(f_result(rv_shape(1)))
+ f_result = temp
+ call lib_free(cString)
+ else
+ f_result => null()
+ end if
+ end function vlistCopyVarName
+
+ subroutine vlistDefVarStdname(vlistID_dummy, varID_dummy, stdname_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: stdname_dummy
+ character(kind = c_char) :: stdname_temp(len(stdname_dummy) + 1)
+ integer :: stdname_i
+ interface
+ subroutine lib_vlistDefVarStdname(vlistID_dummy, varID_dummy,&
+ & stdname_dummy) bind(c, name = 'vlistDefVarStdname')
+ import c_char, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: stdname_dummy(*)
+ end subroutine lib_vlistDefVarStdname
+ end interface
+ do stdname_i = 1, len(stdname_dummy)
+ stdname_temp(stdname_i) = stdname_dummy(stdname_i:stdname_i)
+ end do
+ stdname_temp(len(stdname_dummy) + 1) = c_null_char
+ call lib_vlistDefVarStdname(vlistID_dummy, varID_dummy, stdname_temp)
+ end subroutine vlistDefVarStdname
+
+ subroutine vlistInqVarStdname(vlistID_dummy, varID_dummy, stdname_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(inout) :: stdname_dummy
+ character(kind = c_char) :: stdname_temp(len(stdname_dummy) + 1)
+ integer :: stdname_i
+ interface
+ subroutine lib_vlistInqVarStdname(vlistID_dummy, varID_dummy,&
+ & stdname_dummy) bind(c, name = 'vlistInqVarStdname')
+ import c_char, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: stdname_dummy(*)
+ end subroutine lib_vlistInqVarStdname
+ end interface
+ stdname_temp(len(stdname_dummy) + 1) = c_null_char
+ do stdname_i = len(stdname_dummy), 1, -1
+ if(stdname_dummy(stdname_i:stdname_i) /= ' ') exit
+ stdname_temp(stdname_i) = c_null_char
+ end do
+ do stdname_i = stdname_i, 1, -1
+ stdname_temp(stdname_i) = stdname_dummy(stdname_i:stdname_i)
+ end do
+ call lib_vlistInqVarStdname(vlistID_dummy, varID_dummy, stdname_temp)
+ do stdname_i = 1, len(stdname_dummy)
+ if(stdname_temp(stdname_i) == c_null_char) exit
+ stdname_dummy(stdname_i:stdname_i) = stdname_temp(stdname_i)
+ end do
+ do stdname_i = stdname_i, len(stdname_dummy)
+ stdname_dummy(stdname_i:stdname_i) = ' '
+ end do
+ end subroutine vlistInqVarStdname
+
+ subroutine vlistDefVarLongname(vlistID_dummy, varID_dummy, longname_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: longname_dummy
+ character(kind = c_char) :: longname_temp(len(longname_dummy) + 1)
+ integer :: longname_i
+ interface
+ subroutine lib_vlistDefVarLongname(vlistID_dummy, varID_dummy,&
+ & longname_dummy) bind(c, name = 'vlistDefVarLongname')
+ import c_char, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: longname_dummy(*)
+ end subroutine lib_vlistDefVarLongname
+ end interface
+ do longname_i = 1, len(longname_dummy)
+ longname_temp(longname_i) = longname_dummy(longname_i:longname_i)
+ end do
+ longname_temp(len(longname_dummy) + 1) = c_null_char
+ call lib_vlistDefVarLongname(vlistID_dummy, varID_dummy, longname_temp)
+ end subroutine vlistDefVarLongname
+
+ subroutine vlistInqVarLongname(vlistID_dummy, varID_dummy, longname_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(inout) :: longname_dummy
+ character(kind = c_char) :: longname_temp(len(longname_dummy) + 1)
+ integer :: longname_i
+ interface
+ subroutine lib_vlistInqVarLongname(vlistID_dummy, varID_dummy,&
+ & longname_dummy) bind(c, name = 'vlistInqVarLongname')
+ import c_char, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: longname_dummy(*)
+ end subroutine lib_vlistInqVarLongname
+ end interface
+ longname_temp(len(longname_dummy) + 1) = c_null_char
+ do longname_i = len(longname_dummy), 1, -1
+ if(longname_dummy(longname_i:longname_i) /= ' ') exit
+ longname_temp(longname_i) = c_null_char
+ end do
+ do longname_i = longname_i, 1, -1
+ longname_temp(longname_i) = longname_dummy(longname_i:longname_i)
+ end do
+ call lib_vlistInqVarLongname(vlistID_dummy, varID_dummy, longname_temp)
+ do longname_i = 1, len(longname_dummy)
+ if(longname_temp(longname_i) == c_null_char) exit
+ longname_dummy(longname_i:longname_i) = longname_temp(longname_i)
+ end do
+ do longname_i = longname_i, len(longname_dummy)
+ longname_dummy(longname_i:longname_i) = ' '
+ end do
+ end subroutine vlistInqVarLongname
+
+ subroutine vlistDefVarUnits(vlistID_dummy, varID_dummy, units_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: units_dummy
+ character(kind = c_char) :: units_temp(len(units_dummy) + 1)
+ integer :: units_i
+ interface
+ subroutine lib_vlistDefVarUnits(vlistID_dummy, varID_dummy, units_dummy)&
+ & bind(c, name = 'vlistDefVarUnits')
+ import c_char, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: units_dummy(*)
+ end subroutine lib_vlistDefVarUnits
+ end interface
+ do units_i = 1, len(units_dummy)
+ units_temp(units_i) = units_dummy(units_i:units_i)
+ end do
+ units_temp(len(units_dummy) + 1) = c_null_char
+ call lib_vlistDefVarUnits(vlistID_dummy, varID_dummy, units_temp)
+ end subroutine vlistDefVarUnits
+
+ subroutine vlistInqVarUnits(vlistID_dummy, varID_dummy, units_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(inout) :: units_dummy
+ character(kind = c_char) :: units_temp(len(units_dummy) + 1)
+ integer :: units_i
+ interface
+ subroutine lib_vlistInqVarUnits(vlistID_dummy, varID_dummy, units_dummy)&
+ & bind(c, name = 'vlistInqVarUnits')
+ import c_char, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: units_dummy(*)
+ end subroutine lib_vlistInqVarUnits
+ end interface
+ units_temp(len(units_dummy) + 1) = c_null_char
+ do units_i = len(units_dummy), 1, -1
+ if(units_dummy(units_i:units_i) /= ' ') exit
+ units_temp(units_i) = c_null_char
+ end do
+ do units_i = units_i, 1, -1
+ units_temp(units_i) = units_dummy(units_i:units_i)
+ end do
+ call lib_vlistInqVarUnits(vlistID_dummy, varID_dummy, units_temp)
+ do units_i = 1, len(units_dummy)
+ if(units_temp(units_i) == c_null_char) exit
+ units_dummy(units_i:units_i) = units_temp(units_i)
+ end do
+ do units_i = units_i, len(units_dummy)
+ units_dummy(units_i:units_i) = ' '
+ end do
+ end subroutine vlistInqVarUnits
+
+ subroutine cdiDefAdditionalKey(string_dummy)
+ character(kind = c_char, len = *), intent(in) :: string_dummy
+ character(kind = c_char) :: string_temp(len(string_dummy) + 1)
+ integer :: string_i
+ interface
+ subroutine lib_cdiDefAdditionalKey(string_dummy) bind(c, name =&
+ & 'cdiDefAdditionalKey')
+ import c_char
+ character(kind = c_char) :: string_dummy(*)
+ end subroutine lib_cdiDefAdditionalKey
+ end interface
+ do string_i = 1, len(string_dummy)
+ string_temp(string_i) = string_dummy(string_i:string_i)
+ end do
+ string_temp(len(string_dummy) + 1) = c_null_char
+ call lib_cdiDefAdditionalKey(string_temp)
+ end subroutine cdiDefAdditionalKey
+
+ subroutine vlistDefVarIntKey(vlistID_dummy, varID_dummy, name_dummy,&
+ & value_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ integer(c_int), value :: value_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ subroutine lib_vlistDefVarIntKey(vlistID_dummy, varID_dummy, name_dummy,&
+ & value_dummy) bind(c, name = 'vlistDefVarIntKey')
+ import c_char, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ integer(c_int), value :: value_dummy
+ end subroutine lib_vlistDefVarIntKey
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ call lib_vlistDefVarIntKey(vlistID_dummy, varID_dummy, name_temp,&
+ & value_dummy)
+ end subroutine vlistDefVarIntKey
+
+ subroutine vlistDefVarDblKey(vlistID_dummy, varID_dummy, name_dummy,&
+ & value_dummy)
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ real(c_double), value :: value_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ subroutine lib_vlistDefVarDblKey(vlistID_dummy, varID_dummy, name_dummy,&
+ & value_dummy) bind(c, name = 'vlistDefVarDblKey')
+ import c_char, c_double, c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ real(c_double), value :: value_dummy
+ end subroutine lib_vlistDefVarDblKey
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ call lib_vlistDefVarDblKey(vlistID_dummy, varID_dummy, name_temp,&
+ & value_dummy)
+ end subroutine vlistDefVarDblKey
+
+ function vlistHasVarKey(vlistID_dummy, varID_dummy, name_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_vlistHasVarKey(vlistID_dummy, varID_dummy, name_dummy)&
+ & bind(c, name = 'vlistHasVarKey') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end function lib_vlistHasVarKey
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_vlistHasVarKey(vlistID_dummy, varID_dummy, name_temp)
+ end function vlistHasVarKey
+
+ function vlistInqVarDblKey(vlistID_dummy, varID_dummy, name_dummy)&
+ & result(f_result)
+ real(c_double) :: f_result
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_vlistInqVarDblKey(vlistID_dummy, varID_dummy, name_dummy)&
+ & bind(c, name = 'vlistInqVarDblKey') result(c_result)
+ import c_char, c_double, c_int
+ real(c_double) :: c_result
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end function lib_vlistInqVarDblKey
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_vlistInqVarDblKey(vlistID_dummy, varID_dummy, name_temp)
+ end function vlistInqVarDblKey
+
+ function vlistInqVarIntKey(vlistID_dummy, varID_dummy, name_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_vlistInqVarIntKey(vlistID_dummy, varID_dummy, name_dummy)&
+ & bind(c, name = 'vlistInqVarIntKey') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end function lib_vlistInqVarIntKey
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_vlistInqVarIntKey(vlistID_dummy, varID_dummy, name_temp)
+ end function vlistInqVarIntKey
+
+ function cdiInqAtt(cdiID_dummy, varID_dummy, attrnum_dummy, name_dummy,&
+ & typep_dummy, lenp_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: attrnum_dummy
+ character(kind = c_char, len = *), intent(inout) :: name_dummy
+ integer(c_int), intent(inout) :: typep_dummy
+ integer(c_int), intent(inout) :: lenp_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_cdiInqAtt(cdiID_dummy, varID_dummy, attrnum_dummy,&
+ & name_dummy, typep_dummy, lenp_dummy) bind(c, name = 'cdiInqAtt')&
+ & result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: attrnum_dummy
+ character(kind = c_char) :: name_dummy(*)
+ integer(c_int), intent(inout) :: typep_dummy
+ integer(c_int), intent(inout) :: lenp_dummy
+ end function lib_cdiInqAtt
+ end interface
+ name_temp(len(name_dummy) + 1) = c_null_char
+ do name_i = len(name_dummy), 1, -1
+ if(name_dummy(name_i:name_i) /= ' ') exit
+ name_temp(name_i) = c_null_char
+ end do
+ do name_i = name_i, 1, -1
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ f_result = lib_cdiInqAtt(cdiID_dummy, varID_dummy, attrnum_dummy,&
+ & name_temp, typep_dummy, lenp_dummy)
+ do name_i = 1, len(name_dummy)
+ if(name_temp(name_i) == c_null_char) exit
+ name_dummy(name_i:name_i) = name_temp(name_i)
+ end do
+ do name_i = name_i, len(name_dummy)
+ name_dummy(name_i:name_i) = ' '
+ end do
+ end function cdiInqAtt
+
+ function cdiInqAttLen(cdiID_dummy, varID_dummy, name_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_cdiInqAttLen(cdiID_dummy, varID_dummy, name_dummy) bind(c,&
+ & name = 'cdiInqAttLen') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end function lib_cdiInqAttLen
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_cdiInqAttLen(cdiID_dummy, varID_dummy, name_temp)
+ end function cdiInqAttLen
+
+ function cdiInqAttType(cdiID_dummy, varID_dummy, name_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_cdiInqAttType(cdiID_dummy, varID_dummy, name_dummy) bind(c,&
+ & name = 'cdiInqAttType') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end function lib_cdiInqAttType
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_cdiInqAttType(cdiID_dummy, varID_dummy, name_temp)
+ end function cdiInqAttType
+
+ function cdiDelAtt(cdiID_dummy, varID_dummy, name_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_cdiDelAtt(cdiID_dummy, varID_dummy, name_dummy) bind(c, name&
+ & = 'cdiDelAtt') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end function lib_cdiDelAtt
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_cdiDelAtt(cdiID_dummy, varID_dummy, name_temp)
+ end function cdiDelAtt
+
+ function cdiDefAttInt(cdiID_dummy, varID_dummy, name_dummy, type_dummy,&
+ & len_dummy, ip_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ integer(c_int), value :: type_dummy
+ integer(c_int), value :: len_dummy
+ integer(c_int), intent(in) :: ip_dummy(*)
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_cdiDefAttInt(cdiID_dummy, varID_dummy, name_dummy,&
+ & type_dummy, len_dummy, ip_dummy) bind(c, name = 'cdiDefAttInt')&
+ & result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ integer(c_int), value :: type_dummy
+ integer(c_int), value :: len_dummy
+ integer(c_int), intent(in) :: ip_dummy(*)
+ end function lib_cdiDefAttInt
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_cdiDefAttInt(cdiID_dummy, varID_dummy, name_temp,&
+ & type_dummy, len_dummy, ip_dummy)
+ end function cdiDefAttInt
+
+ function cdiDefAttFlt(cdiID_dummy, varID_dummy, name_dummy, type_dummy,&
+ & len_dummy, dp_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ integer(c_int), value :: type_dummy
+ integer(c_int), value :: len_dummy
+ real(c_double), intent(in) :: dp_dummy(*)
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_cdiDefAttFlt(cdiID_dummy, varID_dummy, name_dummy,&
+ & type_dummy, len_dummy, dp_dummy) bind(c, name = 'cdiDefAttFlt')&
+ & result(c_result)
+ import c_char, c_double, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ integer(c_int), value :: type_dummy
+ integer(c_int), value :: len_dummy
+ real(c_double), intent(in) :: dp_dummy(*)
+ end function lib_cdiDefAttFlt
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_cdiDefAttFlt(cdiID_dummy, varID_dummy, name_temp,&
+ & type_dummy, len_dummy, dp_dummy)
+ end function cdiDefAttFlt
+
+ function cdiDefAttTxt(cdiID_dummy, varID_dummy, name_dummy, len_dummy,&
+ & tp_cbuf_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ integer(c_int), value :: len_dummy
+ character(kind = c_char, len = *), intent(in) :: tp_cbuf_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ character(kind = c_char) :: tp_cbuf_temp(len(tp_cbuf_dummy) + 1)
+ integer :: tp_cbuf_i
+ interface
+ function lib_cdiDefAttTxt(cdiID_dummy, varID_dummy, name_dummy,&
+ & len_dummy, tp_cbuf_dummy) bind(c, name = 'cdiDefAttTxt')&
+ & result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ integer(c_int), value :: len_dummy
+ character(kind = c_char) :: tp_cbuf_dummy(*)
+ end function lib_cdiDefAttTxt
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ do tp_cbuf_i = 1, len(tp_cbuf_dummy)
+ tp_cbuf_temp(tp_cbuf_i) = tp_cbuf_dummy(tp_cbuf_i:tp_cbuf_i)
+ end do
+ tp_cbuf_temp(len(tp_cbuf_dummy) + 1) = c_null_char
+ f_result = lib_cdiDefAttTxt(cdiID_dummy, varID_dummy, name_temp, len_dummy,&
+ & tp_cbuf_temp)
+ end function cdiDefAttTxt
+
+ function cdiInqAttInt(cdiID_dummy, varID_dummy, name_dummy, mlen_dummy,&
+ & ip_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ integer(c_int), value :: mlen_dummy
+ integer(c_int), intent(inout) :: ip_dummy(*)
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_cdiInqAttInt(cdiID_dummy, varID_dummy, name_dummy,&
+ & mlen_dummy, ip_dummy) bind(c, name = 'cdiInqAttInt') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ integer(c_int), value :: mlen_dummy
+ integer(c_int), intent(inout) :: ip_dummy(*)
+ end function lib_cdiInqAttInt
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_cdiInqAttInt(cdiID_dummy, varID_dummy, name_temp,&
+ & mlen_dummy, ip_dummy)
+ end function cdiInqAttInt
+
+ function cdiInqAttFlt(cdiID_dummy, varID_dummy, name_dummy, mlen_dummy,&
+ & dp_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ integer(c_int), value :: mlen_dummy
+ real(c_double), intent(inout) :: dp_dummy(*)
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_cdiInqAttFlt(cdiID_dummy, varID_dummy, name_dummy,&
+ & mlen_dummy, dp_dummy) bind(c, name = 'cdiInqAttFlt') result(c_result)
+ import c_char, c_double, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ integer(c_int), value :: mlen_dummy
+ real(c_double), intent(inout) :: dp_dummy(*)
+ end function lib_cdiInqAttFlt
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_cdiInqAttFlt(cdiID_dummy, varID_dummy, name_temp,&
+ & mlen_dummy, dp_dummy)
+ end function cdiInqAttFlt
+
+ function cdiInqAttTxt(cdiID_dummy, varID_dummy, name_dummy, mlen_dummy,&
+ & tp_cbuf_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ integer(c_int), value :: mlen_dummy
+ character(kind = c_char, len = *), intent(inout) :: tp_cbuf_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ character(kind = c_char) :: tp_cbuf_temp(len(tp_cbuf_dummy) + 1)
+ integer :: tp_cbuf_i
+ interface
+ function lib_cdiInqAttTxt(cdiID_dummy, varID_dummy, name_dummy,&
+ & mlen_dummy, tp_cbuf_dummy) bind(c, name = 'cdiInqAttTxt')&
+ & result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ integer(c_int), value :: mlen_dummy
+ character(kind = c_char) :: tp_cbuf_dummy(*)
+ end function lib_cdiInqAttTxt
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ tp_cbuf_temp(len(tp_cbuf_dummy) + 1) = c_null_char
+ do tp_cbuf_i = len(tp_cbuf_dummy), 1, -1
+ if(tp_cbuf_dummy(tp_cbuf_i:tp_cbuf_i) /= ' ') exit
+ tp_cbuf_temp(tp_cbuf_i) = c_null_char
+ end do
+ do tp_cbuf_i = tp_cbuf_i, 1, -1
+ tp_cbuf_temp(tp_cbuf_i) = tp_cbuf_dummy(tp_cbuf_i:tp_cbuf_i)
+ end do
+ f_result = lib_cdiInqAttTxt(cdiID_dummy, varID_dummy, name_temp,&
+ & mlen_dummy, tp_cbuf_temp)
+ do tp_cbuf_i = 1, len(tp_cbuf_dummy)
+ if(tp_cbuf_temp(tp_cbuf_i) == c_null_char) exit
+ tp_cbuf_dummy(tp_cbuf_i:tp_cbuf_i) = tp_cbuf_temp(tp_cbuf_i)
+ end do
+ do tp_cbuf_i = tp_cbuf_i, len(tp_cbuf_dummy)
+ tp_cbuf_dummy(tp_cbuf_i:tp_cbuf_i) = ' '
+ end do
+ end function cdiInqAttTxt
+
+ subroutine gridName(gridtype_dummy, gridname_dummy)
+ integer(c_int), value :: gridtype_dummy
+ character(kind = c_char, len = *), intent(inout) :: gridname_dummy
+ character(kind = c_char) :: gridname_temp(len(gridname_dummy) + 1)
+ integer :: gridname_i
+ interface
+ subroutine lib_gridName(gridtype_dummy, gridname_dummy) bind(c, name =&
+ & 'gridName')
+ import c_char, c_int
+ integer(c_int), value :: gridtype_dummy
+ character(kind = c_char) :: gridname_dummy(*)
+ end subroutine lib_gridName
+ end interface
+ gridname_temp(len(gridname_dummy) + 1) = c_null_char
+ do gridname_i = len(gridname_dummy), 1, -1
+ if(gridname_dummy(gridname_i:gridname_i) /= ' ') exit
+ gridname_temp(gridname_i) = c_null_char
+ end do
+ do gridname_i = gridname_i, 1, -1
+ gridname_temp(gridname_i) = gridname_dummy(gridname_i:gridname_i)
+ end do
+ call lib_gridName(gridtype_dummy, gridname_temp)
+ do gridname_i = 1, len(gridname_dummy)
+ if(gridname_temp(gridname_i) == c_null_char) exit
+ gridname_dummy(gridname_i:gridname_i) = gridname_temp(gridname_i)
+ end do
+ do gridname_i = gridname_i, len(gridname_dummy)
+ gridname_dummy(gridname_i:gridname_i) = ' '
+ end do
+ end subroutine gridName
+
+ function gridNamePtr(gridtype_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: gridtype_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_gridNamePtr(gridtype_dummy) bind(c, name = 'gridNamePtr')&
+ & result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: gridtype_dummy
+ end function lib_gridNamePtr
+ end interface
+ f_result => null()
+ ptr = lib_gridNamePtr(gridtype_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function gridNamePtr
+
+ function cdiDefKeyString(cdiID_dummy, varID_dummy, key_dummy, string_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ character(kind = c_char, len = *), intent(in) :: string_dummy
+ character(kind = c_char) :: string_temp(len(string_dummy) + 1)
+ integer :: string_i
+ interface
+ function lib_cdiDefKeyString(cdiID_dummy, varID_dummy, key_dummy,&
+ & string_dummy) bind(c, name = 'cdiDefKeyString') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ character(kind = c_char) :: string_dummy(*)
+ end function lib_cdiDefKeyString
+ end interface
+ do string_i = 1, len(string_dummy)
+ string_temp(string_i) = string_dummy(string_i:string_i)
+ end do
+ string_temp(len(string_dummy) + 1) = c_null_char
+ f_result = lib_cdiDefKeyString(cdiID_dummy, varID_dummy, key_dummy,&
+ & string_temp)
+ end function cdiDefKeyString
+
+ function cdiInqKeyString(cdiID_dummy, varID_dummy, key_dummy, string_dummy,&
+ & length_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ character(kind = c_char, len = *), intent(inout) :: string_dummy
+ integer(c_int), intent(inout) :: length_dummy
+ character(kind = c_char) :: string_temp(len(string_dummy) + 1)
+ integer :: string_i
+ interface
+ function lib_cdiInqKeyString(cdiID_dummy, varID_dummy, key_dummy,&
+ & string_dummy, length_dummy) bind(c, name = 'cdiInqKeyString')&
+ & result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: cdiID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: key_dummy
+ character(kind = c_char) :: string_dummy(*)
+ integer(c_int), intent(inout) :: length_dummy
+ end function lib_cdiInqKeyString
+ end interface
+ string_temp(len(string_dummy) + 1) = c_null_char
+ do string_i = len(string_dummy), 1, -1
+ if(string_dummy(string_i:string_i) /= ' ') exit
+ string_temp(string_i) = c_null_char
+ end do
+ do string_i = string_i, 1, -1
+ string_temp(string_i) = string_dummy(string_i:string_i)
+ end do
+ f_result = lib_cdiInqKeyString(cdiID_dummy, varID_dummy, key_dummy,&
+ & string_temp, length_dummy)
+ do string_i = 1, len(string_dummy)
+ if(string_temp(string_i) == c_null_char) exit
+ string_dummy(string_i:string_i) = string_temp(string_i)
+ end do
+ do string_i = string_i, len(string_dummy)
+ string_dummy(string_i:string_i) = ' '
+ end do
+ end function cdiInqKeyString
+
+ subroutine gridDefXname(gridID_dummy, xname_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(in) :: xname_dummy
+ character(kind = c_char) :: xname_temp(len(xname_dummy) + 1)
+ integer :: xname_i
+ interface
+ subroutine lib_gridDefXname(gridID_dummy, xname_dummy) bind(c, name =&
+ & 'gridDefXname')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: xname_dummy(*)
+ end subroutine lib_gridDefXname
+ end interface
+ do xname_i = 1, len(xname_dummy)
+ xname_temp(xname_i) = xname_dummy(xname_i:xname_i)
+ end do
+ xname_temp(len(xname_dummy) + 1) = c_null_char
+ call lib_gridDefXname(gridID_dummy, xname_temp)
+ end subroutine gridDefXname
+
+ subroutine gridInqXname(gridID_dummy, xname_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(inout) :: xname_dummy
+ character(kind = c_char) :: xname_temp(len(xname_dummy) + 1)
+ integer :: xname_i
+ interface
+ subroutine lib_gridInqXname(gridID_dummy, xname_dummy) bind(c, name =&
+ & 'gridInqXname')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: xname_dummy(*)
+ end subroutine lib_gridInqXname
+ end interface
+ xname_temp(len(xname_dummy) + 1) = c_null_char
+ do xname_i = len(xname_dummy), 1, -1
+ if(xname_dummy(xname_i:xname_i) /= ' ') exit
+ xname_temp(xname_i) = c_null_char
+ end do
+ do xname_i = xname_i, 1, -1
+ xname_temp(xname_i) = xname_dummy(xname_i:xname_i)
+ end do
+ call lib_gridInqXname(gridID_dummy, xname_temp)
+ do xname_i = 1, len(xname_dummy)
+ if(xname_temp(xname_i) == c_null_char) exit
+ xname_dummy(xname_i:xname_i) = xname_temp(xname_i)
+ end do
+ do xname_i = xname_i, len(xname_dummy)
+ xname_dummy(xname_i:xname_i) = ' '
+ end do
+ end subroutine gridInqXname
+
+ subroutine gridDefXlongname(gridID_dummy, xlongname_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(in) :: xlongname_dummy
+ character(kind = c_char) :: xlongname_temp(len(xlongname_dummy) + 1)
+ integer :: xlongname_i
+ interface
+ subroutine lib_gridDefXlongname(gridID_dummy, xlongname_dummy) bind(c,&
+ & name = 'gridDefXlongname')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: xlongname_dummy(*)
+ end subroutine lib_gridDefXlongname
+ end interface
+ do xlongname_i = 1, len(xlongname_dummy)
+ xlongname_temp(xlongname_i) = xlongname_dummy(xlongname_i:xlongname_i)
+ end do
+ xlongname_temp(len(xlongname_dummy) + 1) = c_null_char
+ call lib_gridDefXlongname(gridID_dummy, xlongname_temp)
+ end subroutine gridDefXlongname
+
+ subroutine gridInqXlongname(gridID_dummy, xlongname_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(inout) :: xlongname_dummy
+ character(kind = c_char) :: xlongname_temp(len(xlongname_dummy) + 1)
+ integer :: xlongname_i
+ interface
+ subroutine lib_gridInqXlongname(gridID_dummy, xlongname_dummy) bind(c,&
+ & name = 'gridInqXlongname')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: xlongname_dummy(*)
+ end subroutine lib_gridInqXlongname
+ end interface
+ xlongname_temp(len(xlongname_dummy) + 1) = c_null_char
+ do xlongname_i = len(xlongname_dummy), 1, -1
+ if(xlongname_dummy(xlongname_i:xlongname_i) /= ' ') exit
+ xlongname_temp(xlongname_i) = c_null_char
+ end do
+ do xlongname_i = xlongname_i, 1, -1
+ xlongname_temp(xlongname_i) = xlongname_dummy(xlongname_i:xlongname_i)
+ end do
+ call lib_gridInqXlongname(gridID_dummy, xlongname_temp)
+ do xlongname_i = 1, len(xlongname_dummy)
+ if(xlongname_temp(xlongname_i) == c_null_char) exit
+ xlongname_dummy(xlongname_i:xlongname_i) = xlongname_temp(xlongname_i)
+ end do
+ do xlongname_i = xlongname_i, len(xlongname_dummy)
+ xlongname_dummy(xlongname_i:xlongname_i) = ' '
+ end do
+ end subroutine gridInqXlongname
+
+ subroutine gridDefXunits(gridID_dummy, xunits_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(in) :: xunits_dummy
+ character(kind = c_char) :: xunits_temp(len(xunits_dummy) + 1)
+ integer :: xunits_i
+ interface
+ subroutine lib_gridDefXunits(gridID_dummy, xunits_dummy) bind(c, name =&
+ & 'gridDefXunits')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: xunits_dummy(*)
+ end subroutine lib_gridDefXunits
+ end interface
+ do xunits_i = 1, len(xunits_dummy)
+ xunits_temp(xunits_i) = xunits_dummy(xunits_i:xunits_i)
+ end do
+ xunits_temp(len(xunits_dummy) + 1) = c_null_char
+ call lib_gridDefXunits(gridID_dummy, xunits_temp)
+ end subroutine gridDefXunits
+
+ subroutine gridInqXunits(gridID_dummy, xunits_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(inout) :: xunits_dummy
+ character(kind = c_char) :: xunits_temp(len(xunits_dummy) + 1)
+ integer :: xunits_i
+ interface
+ subroutine lib_gridInqXunits(gridID_dummy, xunits_dummy) bind(c, name =&
+ & 'gridInqXunits')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: xunits_dummy(*)
+ end subroutine lib_gridInqXunits
+ end interface
+ xunits_temp(len(xunits_dummy) + 1) = c_null_char
+ do xunits_i = len(xunits_dummy), 1, -1
+ if(xunits_dummy(xunits_i:xunits_i) /= ' ') exit
+ xunits_temp(xunits_i) = c_null_char
+ end do
+ do xunits_i = xunits_i, 1, -1
+ xunits_temp(xunits_i) = xunits_dummy(xunits_i:xunits_i)
+ end do
+ call lib_gridInqXunits(gridID_dummy, xunits_temp)
+ do xunits_i = 1, len(xunits_dummy)
+ if(xunits_temp(xunits_i) == c_null_char) exit
+ xunits_dummy(xunits_i:xunits_i) = xunits_temp(xunits_i)
+ end do
+ do xunits_i = xunits_i, len(xunits_dummy)
+ xunits_dummy(xunits_i:xunits_i) = ' '
+ end do
+ end subroutine gridInqXunits
+
+ subroutine gridDefYname(gridID_dummy, yname_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(in) :: yname_dummy
+ character(kind = c_char) :: yname_temp(len(yname_dummy) + 1)
+ integer :: yname_i
+ interface
+ subroutine lib_gridDefYname(gridID_dummy, yname_dummy) bind(c, name =&
+ & 'gridDefYname')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: yname_dummy(*)
+ end subroutine lib_gridDefYname
+ end interface
+ do yname_i = 1, len(yname_dummy)
+ yname_temp(yname_i) = yname_dummy(yname_i:yname_i)
+ end do
+ yname_temp(len(yname_dummy) + 1) = c_null_char
+ call lib_gridDefYname(gridID_dummy, yname_temp)
+ end subroutine gridDefYname
+
+ subroutine gridInqYname(gridID_dummy, yname_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(inout) :: yname_dummy
+ character(kind = c_char) :: yname_temp(len(yname_dummy) + 1)
+ integer :: yname_i
+ interface
+ subroutine lib_gridInqYname(gridID_dummy, yname_dummy) bind(c, name =&
+ & 'gridInqYname')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: yname_dummy(*)
+ end subroutine lib_gridInqYname
+ end interface
+ yname_temp(len(yname_dummy) + 1) = c_null_char
+ do yname_i = len(yname_dummy), 1, -1
+ if(yname_dummy(yname_i:yname_i) /= ' ') exit
+ yname_temp(yname_i) = c_null_char
+ end do
+ do yname_i = yname_i, 1, -1
+ yname_temp(yname_i) = yname_dummy(yname_i:yname_i)
+ end do
+ call lib_gridInqYname(gridID_dummy, yname_temp)
+ do yname_i = 1, len(yname_dummy)
+ if(yname_temp(yname_i) == c_null_char) exit
+ yname_dummy(yname_i:yname_i) = yname_temp(yname_i)
+ end do
+ do yname_i = yname_i, len(yname_dummy)
+ yname_dummy(yname_i:yname_i) = ' '
+ end do
+ end subroutine gridInqYname
+
+ subroutine gridDefYlongname(gridID_dummy, ylongname_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(in) :: ylongname_dummy
+ character(kind = c_char) :: ylongname_temp(len(ylongname_dummy) + 1)
+ integer :: ylongname_i
+ interface
+ subroutine lib_gridDefYlongname(gridID_dummy, ylongname_dummy) bind(c,&
+ & name = 'gridDefYlongname')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: ylongname_dummy(*)
+ end subroutine lib_gridDefYlongname
+ end interface
+ do ylongname_i = 1, len(ylongname_dummy)
+ ylongname_temp(ylongname_i) = ylongname_dummy(ylongname_i:ylongname_i)
+ end do
+ ylongname_temp(len(ylongname_dummy) + 1) = c_null_char
+ call lib_gridDefYlongname(gridID_dummy, ylongname_temp)
+ end subroutine gridDefYlongname
+
+ subroutine gridInqYlongname(gridID_dummy, ylongname_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(inout) :: ylongname_dummy
+ character(kind = c_char) :: ylongname_temp(len(ylongname_dummy) + 1)
+ integer :: ylongname_i
+ interface
+ subroutine lib_gridInqYlongname(gridID_dummy, ylongname_dummy) bind(c,&
+ & name = 'gridInqYlongname')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: ylongname_dummy(*)
+ end subroutine lib_gridInqYlongname
+ end interface
+ ylongname_temp(len(ylongname_dummy) + 1) = c_null_char
+ do ylongname_i = len(ylongname_dummy), 1, -1
+ if(ylongname_dummy(ylongname_i:ylongname_i) /= ' ') exit
+ ylongname_temp(ylongname_i) = c_null_char
+ end do
+ do ylongname_i = ylongname_i, 1, -1
+ ylongname_temp(ylongname_i) = ylongname_dummy(ylongname_i:ylongname_i)
+ end do
+ call lib_gridInqYlongname(gridID_dummy, ylongname_temp)
+ do ylongname_i = 1, len(ylongname_dummy)
+ if(ylongname_temp(ylongname_i) == c_null_char) exit
+ ylongname_dummy(ylongname_i:ylongname_i) = ylongname_temp(ylongname_i)
+ end do
+ do ylongname_i = ylongname_i, len(ylongname_dummy)
+ ylongname_dummy(ylongname_i:ylongname_i) = ' '
+ end do
+ end subroutine gridInqYlongname
+
+ subroutine gridDefYunits(gridID_dummy, yunits_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(in) :: yunits_dummy
+ character(kind = c_char) :: yunits_temp(len(yunits_dummy) + 1)
+ integer :: yunits_i
+ interface
+ subroutine lib_gridDefYunits(gridID_dummy, yunits_dummy) bind(c, name =&
+ & 'gridDefYunits')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: yunits_dummy(*)
+ end subroutine lib_gridDefYunits
+ end interface
+ do yunits_i = 1, len(yunits_dummy)
+ yunits_temp(yunits_i) = yunits_dummy(yunits_i:yunits_i)
+ end do
+ yunits_temp(len(yunits_dummy) + 1) = c_null_char
+ call lib_gridDefYunits(gridID_dummy, yunits_temp)
+ end subroutine gridDefYunits
+
+ subroutine gridInqYunits(gridID_dummy, yunits_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(inout) :: yunits_dummy
+ character(kind = c_char) :: yunits_temp(len(yunits_dummy) + 1)
+ integer :: yunits_i
+ interface
+ subroutine lib_gridInqYunits(gridID_dummy, yunits_dummy) bind(c, name =&
+ & 'gridInqYunits')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: yunits_dummy(*)
+ end subroutine lib_gridInqYunits
+ end interface
+ yunits_temp(len(yunits_dummy) + 1) = c_null_char
+ do yunits_i = len(yunits_dummy), 1, -1
+ if(yunits_dummy(yunits_i:yunits_i) /= ' ') exit
+ yunits_temp(yunits_i) = c_null_char
+ end do
+ do yunits_i = yunits_i, 1, -1
+ yunits_temp(yunits_i) = yunits_dummy(yunits_i:yunits_i)
+ end do
+ call lib_gridInqYunits(gridID_dummy, yunits_temp)
+ do yunits_i = 1, len(yunits_dummy)
+ if(yunits_temp(yunits_i) == c_null_char) exit
+ yunits_dummy(yunits_i:yunits_i) = yunits_temp(yunits_i)
+ end do
+ do yunits_i = yunits_i, len(yunits_dummy)
+ yunits_dummy(yunits_i:yunits_i) = ' '
+ end do
+ end subroutine gridInqYunits
+
+ subroutine gridDefReference(gridID_dummy, reference_dummy)
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(in) :: reference_dummy
+ character(kind = c_char) :: reference_temp(len(reference_dummy) + 1)
+ integer :: reference_i
+ interface
+ subroutine lib_gridDefReference(gridID_dummy, reference_dummy) bind(c,&
+ & name = 'gridDefReference')
+ import c_char, c_int
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: reference_dummy(*)
+ end subroutine lib_gridDefReference
+ end interface
+ do reference_i = 1, len(reference_dummy)
+ reference_temp(reference_i) = reference_dummy(reference_i:reference_i)
+ end do
+ reference_temp(len(reference_dummy) + 1) = c_null_char
+ call lib_gridDefReference(gridID_dummy, reference_temp)
+ end subroutine gridDefReference
+
+ function gridInqReference(gridID_dummy, reference_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char, len = *), intent(inout) :: reference_dummy
+ character(kind = c_char) :: reference_temp(len(reference_dummy) + 1)
+ integer :: reference_i
+ interface
+ function lib_gridInqReference(gridID_dummy, reference_dummy) bind(c, name&
+ & = 'gridInqReference') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: gridID_dummy
+ character(kind = c_char) :: reference_dummy(*)
+ end function lib_gridInqReference
+ end interface
+ reference_temp(len(reference_dummy) + 1) = c_null_char
+ do reference_i = len(reference_dummy), 1, -1
+ if(reference_dummy(reference_i:reference_i) /= ' ') exit
+ reference_temp(reference_i) = c_null_char
+ end do
+ do reference_i = reference_i, 1, -1
+ reference_temp(reference_i) = reference_dummy(reference_i:reference_i)
+ end do
+ f_result = lib_gridInqReference(gridID_dummy, reference_temp)
+ do reference_i = 1, len(reference_dummy)
+ if(reference_temp(reference_i) == c_null_char) exit
+ reference_dummy(reference_i:reference_i) = reference_temp(reference_i)
+ end do
+ do reference_i = reference_i, len(reference_dummy)
+ reference_dummy(reference_i:reference_i) = ' '
+ end do
+ end function gridInqReference
+
+ subroutine zaxisName(zaxistype_dummy, zaxisname_dummy)
+ integer(c_int), value :: zaxistype_dummy
+ character(kind = c_char, len = *), intent(inout) :: zaxisname_dummy
+ character(kind = c_char) :: zaxisname_temp(len(zaxisname_dummy) + 1)
+ integer :: zaxisname_i
+ interface
+ subroutine lib_zaxisName(zaxistype_dummy, zaxisname_dummy) bind(c, name =&
+ & 'zaxisName')
+ import c_char, c_int
+ integer(c_int), value :: zaxistype_dummy
+ character(kind = c_char) :: zaxisname_dummy(*)
+ end subroutine lib_zaxisName
+ end interface
+ zaxisname_temp(len(zaxisname_dummy) + 1) = c_null_char
+ do zaxisname_i = len(zaxisname_dummy), 1, -1
+ if(zaxisname_dummy(zaxisname_i:zaxisname_i) /= ' ') exit
+ zaxisname_temp(zaxisname_i) = c_null_char
+ end do
+ do zaxisname_i = zaxisname_i, 1, -1
+ zaxisname_temp(zaxisname_i) = zaxisname_dummy(zaxisname_i:zaxisname_i)
+ end do
+ call lib_zaxisName(zaxistype_dummy, zaxisname_temp)
+ do zaxisname_i = 1, len(zaxisname_dummy)
+ if(zaxisname_temp(zaxisname_i) == c_null_char) exit
+ zaxisname_dummy(zaxisname_i:zaxisname_i) = zaxisname_temp(zaxisname_i)
+ end do
+ do zaxisname_i = zaxisname_i, len(zaxisname_dummy)
+ zaxisname_dummy(zaxisname_i:zaxisname_i) = ' '
+ end do
+ end subroutine zaxisName
+
+ function zaxisNamePtr(leveltype_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: leveltype_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_zaxisNamePtr(leveltype_dummy) bind(c, name = 'zaxisNamePtr')&
+ & result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: leveltype_dummy
+ end function lib_zaxisNamePtr
+ end interface
+ f_result => null()
+ ptr = lib_zaxisNamePtr(leveltype_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function zaxisNamePtr
+
+ subroutine zaxisDefName(zaxisID_dummy, name)
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char, len = *), optional, intent(in) :: name
+ character(kind = c_char), allocatable, target :: name_temp(:)
+ integer :: name_i
+ type(c_ptr) :: name_cptr
+ interface
+ subroutine lib_zaxisDefName(zaxisID_dummy, name) bind(c, name =&
+ & 'zaxisDefName')
+ import c_int, c_ptr
+ integer(c_int), value :: zaxisID_dummy
+ type(c_ptr), value :: name
+ end subroutine lib_zaxisDefName
+ end interface
+ if (present(name)) then
+ allocate(name_temp(len(name) + 1))
+ name_temp(len(name) + 1) = c_null_char
+ do name_i = len(name), 1, -1
+ if(name(name_i:name_i) /= ' ') exit
+ name_temp(name_i) = c_null_char
+ end do
+ do name_i = name_i, 1, -1
+ name_temp(name_i) = name(name_i:name_i)
+ end do
+ name_cptr = c_loc(name_temp)
+ else
+ name_cptr = c_null_ptr
+ end if
+ call lib_zaxisDefName(zaxisID_dummy, name_cptr)
+ end subroutine zaxisDefName
+
+ subroutine zaxisInqName(zaxisID_dummy, name_dummy)
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char, len = *), intent(inout) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ subroutine lib_zaxisInqName(zaxisID_dummy, name_dummy) bind(c, name =&
+ & 'zaxisInqName')
+ import c_char, c_int
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end subroutine lib_zaxisInqName
+ end interface
+ name_temp(len(name_dummy) + 1) = c_null_char
+ do name_i = len(name_dummy), 1, -1
+ if(name_dummy(name_i:name_i) /= ' ') exit
+ name_temp(name_i) = c_null_char
+ end do
+ do name_i = name_i, 1, -1
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ call lib_zaxisInqName(zaxisID_dummy, name_temp)
+ do name_i = 1, len(name_dummy)
+ if(name_temp(name_i) == c_null_char) exit
+ name_dummy(name_i:name_i) = name_temp(name_i)
+ end do
+ do name_i = name_i, len(name_dummy)
+ name_dummy(name_i:name_i) = ' '
+ end do
+ end subroutine zaxisInqName
+
+ subroutine zaxisDefLongname(zaxisID_dummy, longname)
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char, len = *), optional, intent(in) :: longname
+ character(kind = c_char), allocatable, target :: longname_temp(:)
+ integer :: longname_i
+ type(c_ptr) :: longname_cptr
+ interface
+ subroutine lib_zaxisDefLongname(zaxisID_dummy, longname) bind(c, name =&
+ & 'zaxisDefLongname')
+ import c_int, c_ptr
+ integer(c_int), value :: zaxisID_dummy
+ type(c_ptr), value :: longname
+ end subroutine lib_zaxisDefLongname
+ end interface
+ if (present(longname)) then
+ allocate(longname_temp(len(longname) + 1))
+ longname_temp(len(longname) + 1) = c_null_char
+ do longname_i = len(longname), 1, -1
+ if(longname(longname_i:longname_i) /= ' ') exit
+ longname_temp(longname_i) = c_null_char
+ end do
+ do longname_i = longname_i, 1, -1
+ longname_temp(longname_i) = longname(longname_i:longname_i)
+ end do
+ longname_cptr = c_loc(longname_temp)
+ else
+ longname_cptr = c_null_ptr
+ end if
+ call lib_zaxisDefLongname(zaxisID_dummy, longname_cptr)
+ end subroutine zaxisDefLongname
+
+ subroutine zaxisInqLongname(zaxisID_dummy, longname_dummy)
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char, len = *), intent(inout) :: longname_dummy
+ character(kind = c_char) :: longname_temp(len(longname_dummy) + 1)
+ integer :: longname_i
+ interface
+ subroutine lib_zaxisInqLongname(zaxisID_dummy, longname_dummy) bind(c,&
+ & name = 'zaxisInqLongname')
+ import c_char, c_int
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char) :: longname_dummy(*)
+ end subroutine lib_zaxisInqLongname
+ end interface
+ longname_temp(len(longname_dummy) + 1) = c_null_char
+ do longname_i = len(longname_dummy), 1, -1
+ if(longname_dummy(longname_i:longname_i) /= ' ') exit
+ longname_temp(longname_i) = c_null_char
+ end do
+ do longname_i = longname_i, 1, -1
+ longname_temp(longname_i) = longname_dummy(longname_i:longname_i)
+ end do
+ call lib_zaxisInqLongname(zaxisID_dummy, longname_temp)
+ do longname_i = 1, len(longname_dummy)
+ if(longname_temp(longname_i) == c_null_char) exit
+ longname_dummy(longname_i:longname_i) = longname_temp(longname_i)
+ end do
+ do longname_i = longname_i, len(longname_dummy)
+ longname_dummy(longname_i:longname_i) = ' '
+ end do
+ end subroutine zaxisInqLongname
+
+ subroutine zaxisDefUnits(zaxisID_dummy, units)
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char, len = *), optional, intent(in) :: units
+ character(kind = c_char), allocatable, target :: units_temp(:)
+ integer :: units_i
+ type(c_ptr) :: units_cptr
+ interface
+ subroutine lib_zaxisDefUnits(zaxisID_dummy, units) bind(c, name =&
+ & 'zaxisDefUnits')
+ import c_int, c_ptr
+ integer(c_int), value :: zaxisID_dummy
+ type(c_ptr), value :: units
+ end subroutine lib_zaxisDefUnits
+ end interface
+ if (present(units)) then
+ allocate(units_temp(len(units) + 1))
+ units_temp(len(units) + 1) = c_null_char
+ do units_i = len(units), 1, -1
+ if(units(units_i:units_i) /= ' ') exit
+ units_temp(units_i) = c_null_char
+ end do
+ do units_i = units_i, 1, -1
+ units_temp(units_i) = units(units_i:units_i)
+ end do
+ units_cptr = c_loc(units_temp)
+ else
+ units_cptr = c_null_ptr
+ end if
+ call lib_zaxisDefUnits(zaxisID_dummy, units_cptr)
+ end subroutine zaxisDefUnits
+
+ subroutine zaxisInqUnits(zaxisID_dummy, units_dummy)
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char, len = *), intent(inout) :: units_dummy
+ character(kind = c_char) :: units_temp(len(units_dummy) + 1)
+ integer :: units_i
+ interface
+ subroutine lib_zaxisInqUnits(zaxisID_dummy, units_dummy) bind(c, name =&
+ & 'zaxisInqUnits')
+ import c_char, c_int
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char) :: units_dummy(*)
+ end subroutine lib_zaxisInqUnits
+ end interface
+ units_temp(len(units_dummy) + 1) = c_null_char
+ do units_i = len(units_dummy), 1, -1
+ if(units_dummy(units_i:units_i) /= ' ') exit
+ units_temp(units_i) = c_null_char
+ end do
+ do units_i = units_i, 1, -1
+ units_temp(units_i) = units_dummy(units_i:units_i)
+ end do
+ call lib_zaxisInqUnits(zaxisID_dummy, units_temp)
+ do units_i = 1, len(units_dummy)
+ if(units_temp(units_i) == c_null_char) exit
+ units_dummy(units_i:units_i) = units_temp(units_i)
+ end do
+ do units_i = units_i, len(units_dummy)
+ units_dummy(units_i:units_i) = ' '
+ end do
+ end subroutine zaxisInqUnits
+
+ subroutine zaxisInqStdname(zaxisID_dummy, stdname_dummy)
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char, len = *), intent(inout) :: stdname_dummy
+ character(kind = c_char) :: stdname_temp(len(stdname_dummy) + 1)
+ integer :: stdname_i
+ interface
+ subroutine lib_zaxisInqStdname(zaxisID_dummy, stdname_dummy) bind(c, name&
+ & = 'zaxisInqStdname')
+ import c_char, c_int
+ integer(c_int), value :: zaxisID_dummy
+ character(kind = c_char) :: stdname_dummy(*)
+ end subroutine lib_zaxisInqStdname
+ end interface
+ stdname_temp(len(stdname_dummy) + 1) = c_null_char
+ do stdname_i = len(stdname_dummy), 1, -1
+ if(stdname_dummy(stdname_i:stdname_i) /= ' ') exit
+ stdname_temp(stdname_i) = c_null_char
+ end do
+ do stdname_i = stdname_i, 1, -1
+ stdname_temp(stdname_i) = stdname_dummy(stdname_i:stdname_i)
+ end do
+ call lib_zaxisInqStdname(zaxisID_dummy, stdname_temp)
+ do stdname_i = 1, len(stdname_dummy)
+ if(stdname_temp(stdname_i) == c_null_char) exit
+ stdname_dummy(stdname_i:stdname_i) = stdname_temp(stdname_i)
+ end do
+ do stdname_i = stdname_i, len(stdname_dummy)
+ stdname_dummy(stdname_i:stdname_i) = ' '
+ end do
+ end subroutine zaxisInqStdname
+
+ function zaxisInqLbounds(zaxisID_dummy, lbounds) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: zaxisID_dummy
+ real(c_double), target, optional, intent(inout) :: lbounds(*)
+ type(c_ptr) :: lbounds_cptr
+ interface
+ function lib_zaxisInqLbounds(zaxisID_dummy, lbounds) bind(c, name =&
+ & 'zaxisInqLbounds') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ integer(c_int), value :: zaxisID_dummy
+ type(c_ptr), value :: lbounds
+ end function lib_zaxisInqLbounds
+ end interface
+ lbounds_cptr = c_null_ptr
+ if(present(lbounds)) lbounds_cptr = c_loc(lbounds)
+ f_result = lib_zaxisInqLbounds(zaxisID_dummy, lbounds_cptr)
+ end function zaxisInqLbounds
+
+ function zaxisInqUbounds(zaxisID_dummy, ubounds) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: zaxisID_dummy
+ real(c_double), target, optional, intent(inout) :: ubounds(*)
+ type(c_ptr) :: ubounds_cptr
+ interface
+ function lib_zaxisInqUbounds(zaxisID_dummy, ubounds) bind(c, name =&
+ & 'zaxisInqUbounds') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ integer(c_int), value :: zaxisID_dummy
+ type(c_ptr), value :: ubounds
+ end function lib_zaxisInqUbounds
+ end interface
+ ubounds_cptr = c_null_ptr
+ if(present(ubounds)) ubounds_cptr = c_loc(ubounds)
+ f_result = lib_zaxisInqUbounds(zaxisID_dummy, ubounds_cptr)
+ end function zaxisInqUbounds
+
+ function zaxisInqWeights(zaxisID_dummy, weights) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: zaxisID_dummy
+ real(c_double), target, optional, intent(inout) :: weights(*)
+ type(c_ptr) :: weights_cptr
+ interface
+ function lib_zaxisInqWeights(zaxisID_dummy, weights) bind(c, name =&
+ & 'zaxisInqWeights') result(c_result)
+ import c_int, c_ptr
+ integer(c_int) :: c_result
+ integer(c_int), value :: zaxisID_dummy
+ type(c_ptr), value :: weights
+ end function lib_zaxisInqWeights
+ end interface
+ weights_cptr = c_null_ptr
+ if(present(weights)) weights_cptr = c_loc(weights)
+ f_result = lib_zaxisInqWeights(zaxisID_dummy, weights_cptr)
+ end function zaxisInqWeights
+
+ function taxisNamePtr(taxisID_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: taxisID_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_taxisNamePtr(taxisID_dummy) bind(c, name = 'taxisNamePtr')&
+ & result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: taxisID_dummy
+ end function lib_taxisNamePtr
+ end interface
+ f_result => null()
+ ptr = lib_taxisNamePtr(taxisID_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function taxisNamePtr
+
+ function tunitNamePtr(tunitID_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: tunitID_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_tunitNamePtr(tunitID_dummy) bind(c, name = 'tunitNamePtr')&
+ & result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: tunitID_dummy
+ end function lib_tunitNamePtr
+ end interface
+ f_result => null()
+ ptr = lib_tunitNamePtr(tunitID_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function tunitNamePtr
+
+ function institutDef(center_dummy, subcenter_dummy, name_dummy,&
+ & longname_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: center_dummy
+ integer(c_int), value :: subcenter_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char, len = *), intent(in) :: longname_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ character(kind = c_char) :: longname_temp(len(longname_dummy) + 1)
+ integer :: longname_i
+ interface
+ function lib_institutDef(center_dummy, subcenter_dummy, name_dummy,&
+ & longname_dummy) bind(c, name = 'institutDef') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: center_dummy
+ integer(c_int), value :: subcenter_dummy
+ character(kind = c_char) :: name_dummy(*)
+ character(kind = c_char) :: longname_dummy(*)
+ end function lib_institutDef
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ do longname_i = 1, len(longname_dummy)
+ longname_temp(longname_i) = longname_dummy(longname_i:longname_i)
+ end do
+ longname_temp(len(longname_dummy) + 1) = c_null_char
+ f_result = lib_institutDef(center_dummy, subcenter_dummy, name_temp,&
+ & longname_temp)
+ end function institutDef
+
+ function institutInq(center_dummy, subcenter_dummy, name_dummy,&
+ & longname_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: center_dummy
+ integer(c_int), value :: subcenter_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char, len = *), intent(in) :: longname_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ character(kind = c_char) :: longname_temp(len(longname_dummy) + 1)
+ integer :: longname_i
+ interface
+ function lib_institutInq(center_dummy, subcenter_dummy, name_dummy,&
+ & longname_dummy) bind(c, name = 'institutInq') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: center_dummy
+ integer(c_int), value :: subcenter_dummy
+ character(kind = c_char) :: name_dummy(*)
+ character(kind = c_char) :: longname_dummy(*)
+ end function lib_institutInq
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ do longname_i = 1, len(longname_dummy)
+ longname_temp(longname_i) = longname_dummy(longname_i:longname_i)
+ end do
+ longname_temp(len(longname_dummy) + 1) = c_null_char
+ f_result = lib_institutInq(center_dummy, subcenter_dummy, name_temp,&
+ & longname_temp)
+ end function institutInq
+
+ function institutInqNamePtr(instID_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: instID_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_institutInqNamePtr(instID_dummy) bind(c, name =&
+ & 'institutInqNamePtr') result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: instID_dummy
+ end function lib_institutInqNamePtr
+ end interface
+ f_result => null()
+ ptr = lib_institutInqNamePtr(instID_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function institutInqNamePtr
+
+ function institutInqLongnamePtr(instID_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: instID_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_institutInqLongnamePtr(instID_dummy) bind(c, name =&
+ & 'institutInqLongnamePtr') result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: instID_dummy
+ end function lib_institutInqLongnamePtr
+ end interface
+ f_result => null()
+ ptr = lib_institutInqLongnamePtr(instID_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function institutInqLongnamePtr
+
+ function modelDef(instID_dummy, modelgribID_dummy, name_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: instID_dummy
+ integer(c_int), value :: modelgribID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_modelDef(instID_dummy, modelgribID_dummy, name_dummy)&
+ & bind(c, name = 'modelDef') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: instID_dummy
+ integer(c_int), value :: modelgribID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end function lib_modelDef
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_modelDef(instID_dummy, modelgribID_dummy, name_temp)
+ end function modelDef
+
+ function modelInq(instID_dummy, modelgribID_dummy, name_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: instID_dummy
+ integer(c_int), value :: modelgribID_dummy
+ character(kind = c_char, len = *), intent(in) :: name_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ interface
+ function lib_modelInq(instID_dummy, modelgribID_dummy, name_dummy)&
+ & bind(c, name = 'modelInq') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: instID_dummy
+ integer(c_int), value :: modelgribID_dummy
+ character(kind = c_char) :: name_dummy(*)
+ end function lib_modelInq
+ end interface
+ do name_i = 1, len(name_dummy)
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ name_temp(len(name_dummy) + 1) = c_null_char
+ f_result = lib_modelInq(instID_dummy, modelgribID_dummy, name_temp)
+ end function modelInq
+
+ function modelInqNamePtr(modelID_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: modelID_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_modelInqNamePtr(modelID_dummy) bind(c, name =&
+ & 'modelInqNamePtr') result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: modelID_dummy
+ end function lib_modelInqNamePtr
+ end interface
+ f_result => null()
+ ptr = lib_modelInqNamePtr(modelID_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function modelInqNamePtr
+
+ subroutine tableWrite(filename_dummy, tableID_dummy)
+ character(kind = c_char, len = *), intent(in) :: filename_dummy
+ integer(c_int), value :: tableID_dummy
+ character(kind = c_char) :: filename_temp(len(filename_dummy) + 1)
+ integer :: filename_i
+ interface
+ subroutine lib_tableWrite(filename_dummy, tableID_dummy) bind(c, name =&
+ & 'tableWrite')
+ import c_char, c_int
+ character(kind = c_char) :: filename_dummy(*)
+ integer(c_int), value :: tableID_dummy
+ end subroutine lib_tableWrite
+ end interface
+ do filename_i = 1, len(filename_dummy)
+ filename_temp(filename_i) = filename_dummy(filename_i:filename_i)
+ end do
+ filename_temp(len(filename_dummy) + 1) = c_null_char
+ call lib_tableWrite(filename_temp, tableID_dummy)
+ end subroutine tableWrite
+
+ function tableRead(tablefile_dummy) result(f_result)
+ integer(c_int) :: f_result
+ character(kind = c_char, len = *), intent(in) :: tablefile_dummy
+ character(kind = c_char) :: tablefile_temp(len(tablefile_dummy) + 1)
+ integer :: tablefile_i
+ interface
+ function lib_tableRead(tablefile_dummy) bind(c, name = 'tableRead')&
+ & result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ character(kind = c_char) :: tablefile_dummy(*)
+ end function lib_tableRead
+ end interface
+ do tablefile_i = 1, len(tablefile_dummy)
+ tablefile_temp(tablefile_i) = tablefile_dummy(tablefile_i:tablefile_i)
+ end do
+ tablefile_temp(len(tablefile_dummy) + 1) = c_null_char
+ f_result = lib_tableRead(tablefile_temp)
+ end function tableRead
+
+ function tableDef(modelID_dummy, tablenum_dummy, tablename_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: modelID_dummy
+ integer(c_int), value :: tablenum_dummy
+ character(kind = c_char, len = *), intent(in) :: tablename_dummy
+ character(kind = c_char) :: tablename_temp(len(tablename_dummy) + 1)
+ integer :: tablename_i
+ interface
+ function lib_tableDef(modelID_dummy, tablenum_dummy, tablename_dummy)&
+ & bind(c, name = 'tableDef') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: modelID_dummy
+ integer(c_int), value :: tablenum_dummy
+ character(kind = c_char) :: tablename_dummy(*)
+ end function lib_tableDef
+ end interface
+ do tablename_i = 1, len(tablename_dummy)
+ tablename_temp(tablename_i) = tablename_dummy(tablename_i:tablename_i)
+ end do
+ tablename_temp(len(tablename_dummy) + 1) = c_null_char
+ f_result = lib_tableDef(modelID_dummy, tablenum_dummy, tablename_temp)
+ end function tableDef
+
+ function tableInqNamePtr(tableID_dummy) result(f_result)
+ character(kind = c_char), dimension(:), pointer :: f_result
+ integer(c_int), value :: tableID_dummy
+ type(c_ptr) :: ptr
+ integer :: rv_shape(1)
+ interface
+ function lib_tableInqNamePtr(tableID_dummy) bind(c, name =&
+ & 'tableInqNamePtr') result(c_result)
+ import c_int, c_ptr
+ type(c_ptr) :: c_result
+ integer(c_int), value :: tableID_dummy
+ end function lib_tableInqNamePtr
+ end interface
+ f_result => null()
+ ptr = lib_tableInqNamePtr(tableID_dummy)
+ if(c_associated(ptr)) then
+ rv_shape(1) = int(lib_strlen(ptr))
+ call c_f_pointer(ptr, f_result, rv_shape)
+ end if
+ end function tableInqNamePtr
+
+ function tableInq(modelID_dummy, tablenum_dummy, tablename_dummy)&
+ & result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: modelID_dummy
+ integer(c_int), value :: tablenum_dummy
+ character(kind = c_char, len = *), intent(in) :: tablename_dummy
+ character(kind = c_char) :: tablename_temp(len(tablename_dummy) + 1)
+ integer :: tablename_i
+ interface
+ function lib_tableInq(modelID_dummy, tablenum_dummy, tablename_dummy)&
+ & bind(c, name = 'tableInq') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: modelID_dummy
+ integer(c_int), value :: tablenum_dummy
+ character(kind = c_char) :: tablename_dummy(*)
+ end function lib_tableInq
+ end interface
+ do tablename_i = 1, len(tablename_dummy)
+ tablename_temp(tablename_i) = tablename_dummy(tablename_i:tablename_i)
+ end do
+ tablename_temp(len(tablename_dummy) + 1) = c_null_char
+ f_result = lib_tableInq(modelID_dummy, tablenum_dummy, tablename_temp)
+ end function tableInq
+
+ subroutine tableInqEntry(tableID_dummy, id_dummy, ltype_dummy, name_dummy,&
+ & longname_dummy, units_dummy)
+ integer(c_int), value :: tableID_dummy
+ integer(c_int), value :: id_dummy
+ integer(c_int), value :: ltype_dummy
+ character(kind = c_char, len = *), intent(inout) :: name_dummy
+ character(kind = c_char, len = *), intent(inout) :: longname_dummy
+ character(kind = c_char, len = *), intent(inout) :: units_dummy
+ character(kind = c_char) :: name_temp(len(name_dummy) + 1)
+ integer :: name_i
+ character(kind = c_char) :: longname_temp(len(longname_dummy) + 1)
+ integer :: longname_i
+ character(kind = c_char) :: units_temp(len(units_dummy) + 1)
+ integer :: units_i
+ interface
+ subroutine lib_tableInqEntry(tableID_dummy, id_dummy, ltype_dummy,&
+ & name_dummy, longname_dummy, units_dummy) bind(c, name =&
+ & 'tableInqEntry')
+ import c_char, c_int
+ integer(c_int), value :: tableID_dummy
+ integer(c_int), value :: id_dummy
+ integer(c_int), value :: ltype_dummy
+ character(kind = c_char) :: name_dummy(*)
+ character(kind = c_char) :: longname_dummy(*)
+ character(kind = c_char) :: units_dummy(*)
+ end subroutine lib_tableInqEntry
+ end interface
+ name_temp(len(name_dummy) + 1) = c_null_char
+ do name_i = len(name_dummy), 1, -1
+ if(name_dummy(name_i:name_i) /= ' ') exit
+ name_temp(name_i) = c_null_char
+ end do
+ do name_i = name_i, 1, -1
+ name_temp(name_i) = name_dummy(name_i:name_i)
+ end do
+ longname_temp(len(longname_dummy) + 1) = c_null_char
+ do longname_i = len(longname_dummy), 1, -1
+ if(longname_dummy(longname_i:longname_i) /= ' ') exit
+ longname_temp(longname_i) = c_null_char
+ end do
+ do longname_i = longname_i, 1, -1
+ longname_temp(longname_i) = longname_dummy(longname_i:longname_i)
+ end do
+ units_temp(len(units_dummy) + 1) = c_null_char
+ do units_i = len(units_dummy), 1, -1
+ if(units_dummy(units_i:units_i) /= ' ') exit
+ units_temp(units_i) = c_null_char
+ end do
+ do units_i = units_i, 1, -1
+ units_temp(units_i) = units_dummy(units_i:units_i)
+ end do
+ call lib_tableInqEntry(tableID_dummy, id_dummy, ltype_dummy, name_temp,&
+ & longname_temp, units_temp)
+ do name_i = 1, len(name_dummy)
+ if(name_temp(name_i) == c_null_char) exit
+ name_dummy(name_i:name_i) = name_temp(name_i)
+ end do
+ do name_i = name_i, len(name_dummy)
+ name_dummy(name_i:name_i) = ' '
+ end do
+ do longname_i = 1, len(longname_dummy)
+ if(longname_temp(longname_i) == c_null_char) exit
+ longname_dummy(longname_i:longname_i) = longname_temp(longname_i)
+ end do
+ do longname_i = longname_i, len(longname_dummy)
+ longname_dummy(longname_i:longname_i) = ' '
+ end do
+ do units_i = 1, len(units_dummy)
+ if(units_temp(units_i) == c_null_char) exit
+ units_dummy(units_i:units_i) = units_temp(units_i)
+ end do
+ do units_i = units_i, len(units_dummy)
+ units_dummy(units_i:units_i) = ' '
+ end do
+ end subroutine tableInqEntry
+
+ function subtypeInqAttribute(subtypeID_dummy, index_dummy, key_dummy,&
+ & outValue_dummy) result(f_result)
+ integer(c_int) :: f_result
+ integer(c_int), value :: subtypeID_dummy
+ integer(c_int), value :: index_dummy
+ character(kind = c_char, len = *), intent(in) :: key_dummy
+ integer(c_int), intent(inout) :: outValue_dummy
+ character(kind = c_char) :: key_temp(len(key_dummy) + 1)
+ integer :: key_i
+ interface
+ function lib_subtypeInqAttribute(subtypeID_dummy, index_dummy, key_dummy,&
+ & outValue_dummy) bind(c, name = 'subtypeInqAttribute') result(c_result)
+ import c_char, c_int
+ integer(c_int) :: c_result
+ integer(c_int), value :: subtypeID_dummy
+ integer(c_int), value :: index_dummy
+ character(kind = c_char) :: key_dummy(*)
+ integer(c_int), intent(inout) :: outValue_dummy
+ end function lib_subtypeInqAttribute
+ end interface
+ do key_i = 1, len(key_dummy)
+ key_temp(key_i) = key_dummy(key_i:key_i)
+ end do
+ key_temp(len(key_dummy) + 1) = c_null_char
+ f_result = lib_subtypeInqAttribute(subtypeID_dummy, index_dummy, key_temp,&
+ & outValue_dummy)
+ end function subtypeInqAttribute
+
+end module mo_cdi
diff --git a/tests/Makefile.in b/tests/Makefile.in
new file mode 100644
index 000000000..f2753aab7
--- /dev/null
+++ b/tests/Makefile.in
@@ -0,0 +1,1681 @@
+# Makefile.in generated by automake 1.16.5 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2021 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.
+
+@SET_MAKE@
+
+VPATH = @srcdir@
+am__is_gnu_make = { \
+ if test -z '$(MAKELEVEL)'; then \
+ false; \
+ elif test -n '$(MAKE_HOST)'; then \
+ true; \
+ elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
+ true; \
+ else \
+ false; \
+ fi; \
+}
+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@
+TESTS = calendar_test1$(EXEEXT) cksum_verify$(EXEEXT) pio_write.run \
+ pio_write_deco2d.run test_byteswap.run test_cdf_const.run \
+ test_cdf_transformation.run test_cksum_ext.run \
+ test_cksum_grb.run test_cksum_grb2.run test_cksum_ieg.run \
+ test_cksum_nc.run test_cksum_nc2.run test_cksum_nc4.run \
+ test_cksum_nc_chunk.run test_cksum_srv.run test_f2003.run \
+ test_grib.run test_month_adjust$(EXEEXT) \
+ test_resource_copy.run test_table.run pio_cksum_asynch.run \
+ pio_cksum_fpguard.run pio_cksum_grb2.run \
+ pio_cksum_mpi_fw_at_all.run pio_cksum_mpi_fw_at_reblock.run \
+ pio_cksum_mpi_fw_ordered.run pio_cksum_mpinonb.run \
+ pio_cksum_nc.run pio_cksum_nc2.run pio_cksum_nc4.run \
+ pio_cksum_writer.run pio_write.parallel.run \
+ pio_write_deco2d.parallel.run pio_write_dist_array.run \
+ test_resource_copy.parallel.run
+@ENABLE_NETCDF_TRUE@am__append_1 = \
+@ENABLE_NETCDF_TRUE@ test_cdf_read \
+@ENABLE_NETCDF_TRUE@ test_cdf_write
+
+@ENABLE_MPI_TRUE@am__append_2 = \
+@ENABLE_MPI_TRUE@ pio_write.parallel \
+@ENABLE_MPI_TRUE@ pio_write_deco2d.parallel \
+@ENABLE_MPI_TRUE@ test_resource_copy.parallel
+
+@with_on_demand_check_programs_TRUE@check_PROGRAMS = $(am__EXEEXT_3)
+@with_on_demand_check_programs_FALSE@noinst_PROGRAMS = \
+@with_on_demand_check_programs_FALSE@ $(am__EXEEXT_3)
+@ENABLE_ALL_STATIC_TRUE@am__append_3 = -all-static
+subdir = tests
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = \
+ $(top_srcdir)/m4/acx_assert_lang_is_fortran_variant.m4 \
+ $(top_srcdir)/m4/acx_c_package.m4 \
+ $(top_srcdir)/m4/acx_cfortran_flags.m4 \
+ $(top_srcdir)/m4/acx_check_cfortran.m4 \
+ $(top_srcdir)/m4/acx_check_strptr_convert.m4 \
+ $(top_srcdir)/m4/acx_execinfo.m4 \
+ $(top_srcdir)/m4/acx_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_fortran_include_flag.m4 \
+ $(top_srcdir)/m4/acx_fortran_package.m4 \
+ $(top_srcdir)/m4/acx_lang_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_package.m4 \
+ $(top_srcdir)/m4/acx_lt_problems.m4 \
+ $(top_srcdir)/m4/acx_m4_list_to_quoted_strings.m4 \
+ $(top_srcdir)/m4/acx_mpirun.m4 $(top_srcdir)/m4/acx_mv_obj.m4 \
+ $(top_srcdir)/m4/acx_option_search_libs.m4 \
+ $(top_srcdir)/m4/acx_options.m4 \
+ $(top_srcdir)/m4/acx_prog_cc_posix.m4 \
+ $(top_srcdir)/m4/acx_sl_fc_mod_path_flag.m4 \
+ $(top_srcdir)/m4/acx_sl_mod_suffix.m4 \
+ $(top_srcdir)/m4/acx_tls_xlc_retry.m4 \
+ $(top_srcdir)/m4/acx_use_libtool_configuration.m4 \
+ $(top_srcdir)/m4/acx_uuid.m4 $(top_srcdir)/m4/asx_tr_arg.m4 \
+ $(top_srcdir)/m4/asx_unset.m4 $(top_srcdir)/m4/ax_pthread.m4 \
+ $(top_srcdir)/m4/ax_python_devel.m4 $(top_srcdir)/m4/ax_tls.m4 \
+ $(top_srcdir)/m4/kpse_libtool.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)/m4/pkg.m4 $(top_srcdir)/acinclude.m4 \
+ $(top_srcdir)/m4/ac_lang_program_fortran.m4 \
+ $(top_srcdir)/m4/acx_lang_fortran_check_include.m4 \
+ $(top_srcdir)/m4/acx_lang_c_check_include.m4 \
+ $(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+ $(ACLOCAL_M4)
+DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = $(top_builddir)/src/config.h
+CONFIG_CLEAN_FILES = test_cksum_base pio_cksum_asynch.run \
+ pio_cksum_fpguard.run pio_cksum_grb2.run \
+ pio_cksum_mpi_fw_at_all.run pio_cksum_mpi_fw_at_reblock.run \
+ pio_cksum_mpi_fw_ordered.run pio_cksum_mpinonb.run \
+ pio_cksum_nc.run pio_cksum_nc2.run pio_cksum_nc4.run \
+ pio_cksum_writer.run pio_write.parallel.run pio_write.run \
+ pio_write_deco2d.parallel.run pio_write_deco2d.run \
+ pio_write_dist_array.run test_byteswap.run test_cdf_const.run \
+ test_cdf_transformation.run test_cksum_ext.run \
+ test_cksum_grb.run test_cksum_grb2.run test_cksum_ieg.run \
+ test_cksum_nc.run test_cksum_nc2.run test_cksum_nc4.run \
+ test_cksum_nc_chunk.run test_cksum_srv.run test_f2003.run \
+ test_grib.run test_resource_copy.parallel.run \
+ test_resource_copy.run test_table.run
+CONFIG_CLEAN_VPATH_FILES =
+@ENABLE_NETCDF_TRUE@am__EXEEXT_1 = test_cdf_read$(EXEEXT) \
+@ENABLE_NETCDF_TRUE@ test_cdf_write$(EXEEXT)
+@ENABLE_MPI_TRUE@am__EXEEXT_2 = pio_write.parallel$(EXEEXT) \
+@ENABLE_MPI_TRUE@ pio_write_deco2d.parallel$(EXEEXT) \
+@ENABLE_MPI_TRUE@ test_resource_copy.parallel$(EXEEXT)
+am__EXEEXT_3 = calendar_test1$(EXEEXT) cksum_read$(EXEEXT) \
+ cksum_verify$(EXEEXT) cksum_write$(EXEEXT) \
+ cksum_write_chunk$(EXEEXT) pio_write$(EXEEXT) \
+ pio_write_deco2d$(EXEEXT) test_byteswap$(EXEEXT) \
+ test_grib$(EXEEXT) test_month_adjust$(EXEEXT) \
+ test_resource_copy$(EXEEXT) test_table$(EXEEXT) \
+ $(am__EXEEXT_1) $(am__EXEEXT_2)
+PROGRAMS = $(noinst_PROGRAMS)
+am_calendar_test1_OBJECTS = calendar_test1.$(OBJEXT)
+calendar_test1_OBJECTS = $(am_calendar_test1_OBJECTS)
+calendar_test1_LDADD = $(LDADD)
+calendar_test1_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+AM_V_lt = $(am__v_lt_@AM_V@)
+am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
+am__v_lt_0 = --silent
+am__v_lt_1 =
+am_cksum_read_OBJECTS = cksum_read.$(OBJEXT) \
+ ensure_array_size.$(OBJEXT) stream_cksum.$(OBJEXT) \
+ var_cksum.$(OBJEXT)
+cksum_read_OBJECTS = $(am_cksum_read_OBJECTS)
+cksum_read_LDADD = $(LDADD)
+cksum_read_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cksum_verify_OBJECTS = cksum_verify.$(OBJEXT)
+cksum_verify_OBJECTS = $(am_cksum_verify_OBJECTS)
+cksum_verify_LDADD = $(LDADD)
+cksum_verify_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cksum_write_OBJECTS = cksum_write.$(OBJEXT) \
+ simple_model_helper.$(OBJEXT)
+cksum_write_OBJECTS = $(am_cksum_write_OBJECTS)
+cksum_write_LDADD = $(LDADD)
+cksum_write_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_cksum_write_chunk_OBJECTS = cksum_write_chunk.$(OBJEXT) \
+ simple_model_helper.$(OBJEXT)
+cksum_write_chunk_OBJECTS = $(am_cksum_write_chunk_OBJECTS)
+cksum_write_chunk_LDADD = $(LDADD)
+cksum_write_chunk_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_pio_write_OBJECTS = pio_write.$(OBJEXT) \
+ pio_write_setup_grid.$(OBJEXT) simple_model.$(OBJEXT) \
+ simple_model_helper.$(OBJEXT)
+pio_write_OBJECTS = $(am_pio_write_OBJECTS)
+pio_write_LDADD = $(LDADD)
+pio_write_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am__objects_1 = pio_write.parallel.$(OBJEXT) \
+ pio_write_setup_grid.parallel.$(OBJEXT) \
+ simple_model.parallel.$(OBJEXT) \
+ simple_model_helper.parallel.$(OBJEXT)
+nodist_pio_write_parallel_OBJECTS = $(am__objects_1)
+pio_write_parallel_OBJECTS = $(nodist_pio_write_parallel_OBJECTS)
+am__DEPENDENCIES_1 =
+pio_write_parallel_DEPENDENCIES = $(top_builddir)/src/libcdipio.la \
+ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) $(LDADD)
+am_pio_write_deco2d_OBJECTS = deco2d_model.$(OBJEXT) \
+ pio_write.$(OBJEXT) pio_write_setup_grid.$(OBJEXT) \
+ simple_model_helper.$(OBJEXT)
+pio_write_deco2d_OBJECTS = $(am_pio_write_deco2d_OBJECTS)
+pio_write_deco2d_LDADD = $(LDADD)
+pio_write_deco2d_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am__objects_2 = deco2d_model.parallel.$(OBJEXT) \
+ pio_write.parallel.$(OBJEXT) \
+ pio_write_setup_grid.parallel.$(OBJEXT) \
+ simple_model_helper.parallel.$(OBJEXT)
+nodist_pio_write_deco2d_parallel_OBJECTS = $(am__objects_2)
+pio_write_deco2d_parallel_OBJECTS = \
+ $(nodist_pio_write_deco2d_parallel_OBJECTS)
+pio_write_deco2d_parallel_DEPENDENCIES = \
+ $(top_builddir)/src/libcdipio.la $(am__DEPENDENCIES_1) \
+ $(am__DEPENDENCIES_1) $(LDADD)
+am_test_byteswap_OBJECTS = test_byteswap.$(OBJEXT)
+test_byteswap_OBJECTS = $(am_test_byteswap_OBJECTS)
+test_byteswap_LDADD = $(LDADD)
+test_byteswap_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_test_cdf_read_OBJECTS = test_cdf_read.$(OBJEXT)
+test_cdf_read_OBJECTS = $(am_test_cdf_read_OBJECTS)
+test_cdf_read_LDADD = $(LDADD)
+test_cdf_read_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_test_cdf_write_OBJECTS = simple_model_helper.$(OBJEXT) \
+ test_cdf_write.$(OBJEXT)
+test_cdf_write_OBJECTS = $(am_test_cdf_write_OBJECTS)
+test_cdf_write_LDADD = $(LDADD)
+test_cdf_write_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_test_grib_OBJECTS = test_grib.$(OBJEXT)
+test_grib_OBJECTS = $(am_test_grib_OBJECTS)
+test_grib_LDADD = $(LDADD)
+test_grib_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_test_month_adjust_OBJECTS = test_month_adjust.$(OBJEXT)
+test_month_adjust_OBJECTS = $(am_test_month_adjust_OBJECTS)
+test_month_adjust_LDADD = $(LDADD)
+test_month_adjust_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+am_test_resource_copy_OBJECTS = test_resource_copy.$(OBJEXT)
+test_resource_copy_OBJECTS = $(am_test_resource_copy_OBJECTS)
+test_resource_copy_DEPENDENCIES = \
+ $(top_builddir)/src/libcdiresunpack.la
+am__objects_3 = test_resource_copy.parallel.$(OBJEXT)
+nodist_test_resource_copy_parallel_OBJECTS = $(am__objects_3)
+test_resource_copy_parallel_OBJECTS = \
+ $(nodist_test_resource_copy_parallel_OBJECTS)
+test_resource_copy_parallel_DEPENDENCIES = \
+ $(top_builddir)/src/libcdipio.la $(LDADD)
+am_test_table_OBJECTS = test_table.$(OBJEXT)
+test_table_OBJECTS = $(am_test_table_OBJECTS)
+test_table_LDADD = $(LDADD)
+test_table_DEPENDENCIES = $(top_builddir)/src/libcdi.la
+AM_V_P = $(am__v_P_@AM_V@)
+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_@AM_V@)
+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
+am__v_GEN_0 = @echo " GEN " $@;
+am__v_GEN_1 =
+AM_V_at = $(am__v_at_@AM_V@)
+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
+am__v_at_0 = @
+am__v_at_1 =
+DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/src
+depcomp = $(SHELL) $(top_srcdir)/config/depcomp
+am__maybe_remake_depfiles = depfiles
+am__depfiles_remade = ./$(DEPDIR)/calendar_test1.Po \
+ ./$(DEPDIR)/cksum_read.Po ./$(DEPDIR)/cksum_verify.Po \
+ ./$(DEPDIR)/cksum_write.Po ./$(DEPDIR)/cksum_write_chunk.Po \
+ ./$(DEPDIR)/deco2d_model.Po \
+ ./$(DEPDIR)/deco2d_model.parallel.Po \
+ ./$(DEPDIR)/ensure_array_size.Po ./$(DEPDIR)/pio_write.Po \
+ ./$(DEPDIR)/pio_write.parallel.Po \
+ ./$(DEPDIR)/pio_write_setup_grid.Po \
+ ./$(DEPDIR)/pio_write_setup_grid.parallel.Po \
+ ./$(DEPDIR)/simple_model.Po \
+ ./$(DEPDIR)/simple_model.parallel.Po \
+ ./$(DEPDIR)/simple_model_helper.Po \
+ ./$(DEPDIR)/simple_model_helper.parallel.Po \
+ ./$(DEPDIR)/stream_cksum.Po ./$(DEPDIR)/test_byteswap.Po \
+ ./$(DEPDIR)/test_cdf_read.Po ./$(DEPDIR)/test_cdf_write.Po \
+ ./$(DEPDIR)/test_grib.Po ./$(DEPDIR)/test_month_adjust.Po \
+ ./$(DEPDIR)/test_resource_copy.Po \
+ ./$(DEPDIR)/test_resource_copy.parallel.Po \
+ ./$(DEPDIR)/test_table.Po ./$(DEPDIR)/var_cksum.Po
+am__mv = mv -f
+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_@AM_V@)
+am__v_CC_ = $(am__v_CC_@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_@AM_V@)
+am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
+am__v_CCLD_0 = @echo " CCLD " $@;
+am__v_CCLD_1 =
+SOURCES = $(calendar_test1_SOURCES) $(cksum_read_SOURCES) \
+ $(cksum_verify_SOURCES) $(cksum_write_SOURCES) \
+ $(cksum_write_chunk_SOURCES) $(pio_write_SOURCES) \
+ $(nodist_pio_write_parallel_SOURCES) \
+ $(pio_write_deco2d_SOURCES) \
+ $(nodist_pio_write_deco2d_parallel_SOURCES) \
+ $(test_byteswap_SOURCES) $(test_cdf_read_SOURCES) \
+ $(test_cdf_write_SOURCES) $(test_grib_SOURCES) \
+ $(test_month_adjust_SOURCES) $(test_resource_copy_SOURCES) \
+ $(nodist_test_resource_copy_parallel_SOURCES) \
+ $(test_table_SOURCES)
+DIST_SOURCES = $(calendar_test1_SOURCES) $(cksum_read_SOURCES) \
+ $(cksum_verify_SOURCES) $(cksum_write_SOURCES) \
+ $(cksum_write_chunk_SOURCES) $(pio_write_SOURCES) \
+ $(pio_write_deco2d_SOURCES) $(test_byteswap_SOURCES) \
+ $(test_cdf_read_SOURCES) $(test_cdf_write_SOURCES) \
+ $(test_grib_SOURCES) $(test_month_adjust_SOURCES) \
+ $(test_resource_copy_SOURCES) $(test_table_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
+am__extra_recursive_targets = examples-recursive
+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)`
+am__tty_colors_dummy = \
+ mgn= red= grn= lgn= blu= brg= std=; \
+ am__color_tests=no
+am__tty_colors = { \
+ $(am__tty_colors_dummy); \
+ if test "X$(AM_COLOR_TESTS)" = Xno; then \
+ am__color_tests=no; \
+ elif test "X$(AM_COLOR_TESTS)" = Xalways; then \
+ am__color_tests=yes; \
+ elif test "X$$TERM" != Xdumb && { test -t 1; } 2>/dev/null; then \
+ am__color_tests=yes; \
+ fi; \
+ if test $$am__color_tests = yes; then \
+ red='[0;31m'; \
+ grn='[0;32m'; \
+ lgn='[1;32m'; \
+ blu='[1;34m'; \
+ mgn='[0;35m'; \
+ brg='[1m'; \
+ std='[m'; \
+ fi; \
+}
+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__recheck_rx = ^[ ]*:recheck:[ ]*
+am__global_test_result_rx = ^[ ]*:global-test-result:[ ]*
+am__copy_in_global_log_rx = ^[ ]*:copy-in-global-log:[ ]*
+# A command that, given a newline-separated list of test names on the
+# standard input, print the name of the tests that are to be re-run
+# upon "make recheck".
+am__list_recheck_tests = $(AWK) '{ \
+ recheck = 1; \
+ while ((rc = (getline line < ($$0 ".trs"))) != 0) \
+ { \
+ if (rc < 0) \
+ { \
+ if ((getline line2 < ($$0 ".log")) < 0) \
+ recheck = 0; \
+ break; \
+ } \
+ else if (line ~ /$(am__recheck_rx)[nN][Oo]/) \
+ { \
+ recheck = 0; \
+ break; \
+ } \
+ else if (line ~ /$(am__recheck_rx)[yY][eE][sS]/) \
+ { \
+ break; \
+ } \
+ }; \
+ if (recheck) \
+ print $$0; \
+ close ($$0 ".trs"); \
+ close ($$0 ".log"); \
+}'
+# A command that, given a newline-separated list of test names on the
+# standard input, create the global log from their .trs and .log files.
+am__create_global_log = $(AWK) ' \
+function fatal(msg) \
+{ \
+ print "fatal: making $@: " msg | "cat >&2"; \
+ exit 1; \
+} \
+function rst_section(header) \
+{ \
+ print header; \
+ len = length(header); \
+ for (i = 1; i <= len; i = i + 1) \
+ printf "="; \
+ printf "\n\n"; \
+} \
+{ \
+ copy_in_global_log = 1; \
+ global_test_result = "RUN"; \
+ while ((rc = (getline line < ($$0 ".trs"))) != 0) \
+ { \
+ if (rc < 0) \
+ fatal("failed to read from " $$0 ".trs"); \
+ if (line ~ /$(am__global_test_result_rx)/) \
+ { \
+ sub("$(am__global_test_result_rx)", "", line); \
+ sub("[ ]*$$", "", line); \
+ global_test_result = line; \
+ } \
+ else if (line ~ /$(am__copy_in_global_log_rx)[nN][oO]/) \
+ copy_in_global_log = 0; \
+ }; \
+ if (copy_in_global_log) \
+ { \
+ rst_section(global_test_result ": " $$0); \
+ while ((rc = (getline line < ($$0 ".log"))) != 0) \
+ { \
+ if (rc < 0) \
+ fatal("failed to read from " $$0 ".log"); \
+ print line; \
+ }; \
+ printf "\n"; \
+ }; \
+ close ($$0 ".trs"); \
+ close ($$0 ".log"); \
+}'
+# Restructured Text title.
+am__rst_title = { sed 's/.*/ & /;h;s/./=/g;p;x;s/ *$$//;p;g' && echo; }
+# Solaris 10 'make', and several other traditional 'make' implementations,
+# pass "-e" to $(SHELL), and POSIX 2008 even requires this. Work around it
+# by disabling -e (using the XSI extension "set +e") if it's set.
+am__sh_e_setup = case $$- in *e*) set +e;; esac
+# Default flags passed to test drivers.
+am__common_driver_flags = \
+ --color-tests "$$am__color_tests" \
+ --enable-hard-errors "$$am__enable_hard_errors" \
+ --expect-failure "$$am__expect_failure"
+# To be inserted before the command running the test. Creates the
+# directory for the log if needed. Stores in $dir the directory
+# containing $f, in $tst the test, in $log the log. Executes the
+# developer- defined test setup AM_TESTS_ENVIRONMENT (if any), and
+# passes TESTS_ENVIRONMENT. Set up options for the wrapper that
+# will run the test scripts (or their associated LOG_COMPILER, if
+# thy have one).
+am__check_pre = \
+$(am__sh_e_setup); \
+$(am__vpath_adj_setup) $(am__vpath_adj) \
+$(am__tty_colors); \
+srcdir=$(srcdir); export srcdir; \
+case "$@" in \
+ */*) am__odir=`echo "./$@" | sed 's|/[^/]*$$||'`;; \
+ *) am__odir=.;; \
+esac; \
+test "x$$am__odir" = x"." || test -d "$$am__odir" \
+ || $(MKDIR_P) "$$am__odir" || exit $$?; \
+if test -f "./$$f"; then dir=./; \
+elif test -f "$$f"; then dir=; \
+else dir="$(srcdir)/"; fi; \
+tst=$$dir$$f; log='$@'; \
+if test -n '$(DISABLE_HARD_ERRORS)'; then \
+ am__enable_hard_errors=no; \
+else \
+ am__enable_hard_errors=yes; \
+fi; \
+case " $(XFAIL_TESTS) " in \
+ *[\ \ ]$$f[\ \ ]* | *[\ \ ]$$dir$$f[\ \ ]*) \
+ am__expect_failure=yes;; \
+ *) \
+ am__expect_failure=no;; \
+esac; \
+$(AM_TESTS_ENVIRONMENT) $(TESTS_ENVIRONMENT)
+# A shell command to get the names of the tests scripts with any registered
+# extension removed (i.e., equivalently, the names of the test logs, with
+# the '.log' extension removed). The result is saved in the shell variable
+# '$bases'. This honors runtime overriding of TESTS and TEST_LOGS. Sadly,
+# we cannot use something simpler, involving e.g., "$(TEST_LOGS:.log=)",
+# since that might cause problem with VPATH rewrites for suffix-less tests.
+# See also 'test-harness-vpath-rewrite.sh' and 'test-trs-basic.sh'.
+am__set_TESTS_bases = \
+ bases='$(TEST_LOGS)'; \
+ bases=`for i in $$bases; do echo $$i; done | sed 's/\.log$$//'`; \
+ bases=`echo $$bases`
+AM_TESTSUITE_SUMMARY_HEADER = ' for $(PACKAGE_STRING)'
+RECHECK_LOGS = $(TEST_LOGS)
+AM_RECURSIVE_TARGETS = check recheck
+TEST_SUITE_LOG = test-suite.log
+LOG_DRIVER = $(SHELL) $(top_srcdir)/config/test-driver
+LOG_COMPILE = $(LOG_COMPILER) $(AM_LOG_FLAGS) $(LOG_FLAGS)
+am__set_b = \
+ case '$@' in \
+ */*) \
+ case '$*' in \
+ */*) b='$*';; \
+ *) b=`echo '$@' | sed 's/\.log$$//'`; \
+ esac;; \
+ *) \
+ b='$*';; \
+ esac
+am__test_logs1 = $(TESTS:=.log)
+am__test_logs2 = $(am__test_logs1:@EXEEXT@.log=.log)
+TEST_LOGS = $(am__test_logs2:.run.log=.log)
+RUN_LOG_DRIVER = $(SHELL) $(top_srcdir)/config/test-driver
+RUN_LOG_COMPILE = $(RUN_LOG_COMPILER) $(AM_RUN_LOG_FLAGS) \
+ $(RUN_LOG_FLAGS)
+am__DIST_COMMON = $(srcdir)/Makefile.in \
+ $(srcdir)/pio_cksum_asynch.run.in \
+ $(srcdir)/pio_cksum_fpguard.run.in \
+ $(srcdir)/pio_cksum_grb2.run.in \
+ $(srcdir)/pio_cksum_mpi_fw_at_all.run.in \
+ $(srcdir)/pio_cksum_mpi_fw_at_reblock.run.in \
+ $(srcdir)/pio_cksum_mpi_fw_ordered.run.in \
+ $(srcdir)/pio_cksum_mpinonb.run.in \
+ $(srcdir)/pio_cksum_nc.run.in $(srcdir)/pio_cksum_nc2.run.in \
+ $(srcdir)/pio_cksum_nc4.run.in \
+ $(srcdir)/pio_cksum_writer.run.in \
+ $(srcdir)/pio_write.parallel.run.in $(srcdir)/pio_write.run.in \
+ $(srcdir)/pio_write_deco2d.parallel.run.in \
+ $(srcdir)/pio_write_deco2d.run.in \
+ $(srcdir)/pio_write_dist_array.run.in \
+ $(srcdir)/test_byteswap.run.in $(srcdir)/test_cdf_const.run.in \
+ $(srcdir)/test_cdf_transformation.run.in \
+ $(srcdir)/test_cksum_base.in $(srcdir)/test_cksum_ext.run.in \
+ $(srcdir)/test_cksum_grb.run.in \
+ $(srcdir)/test_cksum_grb2.run.in \
+ $(srcdir)/test_cksum_ieg.run.in $(srcdir)/test_cksum_nc.run.in \
+ $(srcdir)/test_cksum_nc2.run.in \
+ $(srcdir)/test_cksum_nc4.run.in \
+ $(srcdir)/test_cksum_nc_chunk.run.in \
+ $(srcdir)/test_cksum_srv.run.in $(srcdir)/test_f2003.run.in \
+ $(srcdir)/test_grib.run.in \
+ $(srcdir)/test_resource_copy.parallel.run.in \
+ $(srcdir)/test_resource_copy.run.in \
+ $(srcdir)/test_table.run.in $(top_srcdir)/config/depcomp \
+ $(top_srcdir)/config/test-driver
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CSCOPE = @CSCOPE@
+CTAGS = @CTAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DCE_UUIDROOT = @DCE_UUIDROOT@
+DCE_UUID_C_INCLUDE = @DCE_UUID_C_INCLUDE@
+DCE_UUID_C_LIB = @DCE_UUID_C_LIB@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECCODES_INCLUDE = @ECCODES_INCLUDE@
+ECCODES_LIBS = @ECCODES_LIBS@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+ENABLE_ACROSS = @ENABLE_ACROSS@
+ENABLE_CDI_LIB = @ENABLE_CDI_LIB@
+ENABLE_CGRIBEX = @ENABLE_CGRIBEX@
+ENABLE_EXTRA = @ENABLE_EXTRA@
+ENABLE_GRIB = @ENABLE_GRIB@
+ENABLE_IEG = @ENABLE_IEG@
+ENABLE_MPI = @ENABLE_MPI@
+ENABLE_NC2 = @ENABLE_NC2@
+ENABLE_NC4 = @ENABLE_NC4@
+ENABLE_NC4HDF5 = @ENABLE_NC4HDF5@
+ENABLE_NC4SZLIB = @ENABLE_NC4SZLIB@
+ENABLE_NETCDF = @ENABLE_NETCDF@
+ENABLE_SERVICE = @ENABLE_SERVICE@
+ETAGS = @ETAGS@
+EXEEXT = @EXEEXT@
+F77 = @F77@
+FC = @FC@
+FCFLAGS = @FCFLAGS@
+FCFLAGS_f90 = @FCFLAGS_f90@
+FCMODCASE = @FCMODCASE@
+FCMODEXT = @FCMODEXT@
+FC_DEFINE = @FC_DEFINE@
+FC_MOD_FLAG = @FC_MOD_FLAG@
+FC_OPTINC = @FC_OPTINC@
+FDB5_INCLUDE = @FDB5_INCLUDE@
+FDB5_LIBS = @FDB5_LIBS@
+FFLAGS = @FFLAGS@
+FGREP = @FGREP@
+GREP = @GREP@
+GRIB_API_INCLUDE = @GRIB_API_INCLUDE@
+GRIB_API_LIBS = @GRIB_API_LIBS@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBRT = @LIBRT@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
+MAINT = @MAINT@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+MPIROOT = @MPIROOT@
+MPI_C_INCLUDE = @MPI_C_INCLUDE@
+MPI_C_LIB = @MPI_C_LIB@
+MPI_FC_LIB = @MPI_FC_LIB@
+MPI_FC_MOD = @MPI_FC_MOD@
+MPI_LAUNCH = @MPI_LAUNCH@
+NC_CONFIG = @NC_CONFIG@
+NETCDF_INCLUDE = @NETCDF_INCLUDE@
+NETCDF_LIBS = @NETCDF_LIBS@
+NETCDF_ROOT = @NETCDF_ROOT@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OPENMP_CFLAGS = @OPENMP_CFLAGS@
+OSSP_UUIDROOT = @OSSP_UUIDROOT@
+OSSP_UUID_C_INCLUDE = @OSSP_UUID_C_INCLUDE@
+OSSP_UUID_C_LIB = @OSSP_UUID_C_LIB@
+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@
+PKG_CONFIG = @PKG_CONFIG@
+PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
+PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
+PPM_CORE_C_INCLUDE = @PPM_CORE_C_INCLUDE@
+PPM_CORE_C_LIB = @PPM_CORE_C_LIB@
+PTHREAD_CC = @PTHREAD_CC@
+PTHREAD_CFLAGS = @PTHREAD_CFLAGS@
+PTHREAD_CXX = @PTHREAD_CXX@
+PTHREAD_LIBS = @PTHREAD_LIBS@
+PYTHON = @PYTHON@
+PYTHON_CPPFLAGS = @PYTHON_CPPFLAGS@
+PYTHON_EXEC_PREFIX = @PYTHON_EXEC_PREFIX@
+PYTHON_EXTRA_LDFLAGS = @PYTHON_EXTRA_LDFLAGS@
+PYTHON_EXTRA_LIBS = @PYTHON_EXTRA_LIBS@
+PYTHON_LIBS = @PYTHON_LIBS@
+PYTHON_PLATFORM = @PYTHON_PLATFORM@
+PYTHON_PLATFORM_SITE_PKG = @PYTHON_PLATFORM_SITE_PKG@
+PYTHON_PREFIX = @PYTHON_PREFIX@
+PYTHON_SITE_PKG = @PYTHON_SITE_PKG@
+PYTHON_VERSION = @PYTHON_VERSION@
+RANLIB = @RANLIB@
+RUBY = @RUBY@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+SWIG = @SWIG@
+SYSTEM_TYPE = @SYSTEM_TYPE@
+SZLIB_INCLUDE = @SZLIB_INCLUDE@
+SZLIB_LIBS = @SZLIB_LIBS@
+THREADS_INCLUDE = @THREADS_INCLUDE@
+THREADS_LIBS = @THREADS_LIBS@
+UTIL_LINUX_UUIDROOT = @UTIL_LINUX_UUIDROOT@
+UTIL_LINUX_UUID_C_INCLUDE = @UTIL_LINUX_UUID_C_INCLUDE@
+UTIL_LINUX_UUID_C_LIB = @UTIL_LINUX_UUID_C_LIB@
+UUID_C_INCLUDE = @UUID_C_INCLUDE@
+UUID_C_LIB = @UUID_C_LIB@
+VERSION = @VERSION@
+YAXT_C_INCLUDE = @YAXT_C_INCLUDE@
+YAXT_C_LIB = @YAXT_C_LIB@
+YAXT_FC_LIB = @YAXT_FC_LIB@
+YAXT_FC_MOD = @YAXT_FC_MOD@
+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@
+ac_ct_F77 = @ac_ct_F77@
+ac_ct_FC = @ac_ct_FC@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+ax_pthread_config = @ax_pthread_config@
+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@
+pkgpyexecdir = @pkgpyexecdir@
+pkgpythondir = @pkgpythondir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+pyexecdir = @pyexecdir@
+pythondir = @pythondir@
+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@
+TEST_EXTENSIONS = @EXEEXT@ .run
+
+# Update test_cksum_base before running tests that source it:
+test_cksum_TEST_LOGS_ = \
+ test_cksum_ext.log \
+ test_cksum_grb.log \
+ test_cksum_grb2.log \
+ test_cksum_ieg.log \
+ test_cksum_nc.log \
+ test_cksum_nc2.log \
+ test_cksum_nc4.log \
+ test_cksum_srv.log
+
+
+# Update pio_write_dist_array.run before running tests that source it:
+pio_write_dist_array_TEST_LOGS_ = \
+ pio_cksum_asynch.log \
+ pio_cksum_fpguard.log \
+ pio_cksum_grb2.log \
+ pio_cksum_mpi_fw_at_all.log \
+ pio_cksum_mpi_fw_at_reblock.log \
+ pio_cksum_mpi_fw_ordered.log \
+ pio_cksum_mpinonb.log \
+ pio_cksum_nc.log \
+ pio_cksum_nc2.log \
+ pio_cksum_nc4.log \
+ pio_cksum_writer.log
+
+
+# Update pio_write.run before running tests that source it:
+pio_write_TEST_LOGS_ = \
+ $(pio_write_dist_array_TEST_LOGS_) \
+ pio_write.parallel.log \
+ pio_write_deco2d.log \
+ pio_write_deco2d.parallel.log \
+ pio_write_dist_array.log
+
+test_PROGRAMS_ = calendar_test1 cksum_read cksum_verify cksum_write \
+ cksum_write_chunk pio_write pio_write_deco2d test_byteswap \
+ test_grib test_month_adjust test_resource_copy test_table \
+ $(am__append_1) $(am__append_2)
+AM_CPPFLAGS = -I$(top_srcdir)/src
+
+# Avoid compiling twice by running Libtool with '-static'
+# This is safe because all Libtool libraries in this directory are
+# static-only and contain PIC objects:
+AM_CFLAGS = $(PPM_CORE_C_INCLUDE) $(YAXT_C_INCLUDE) $(MPI_C_INCLUDE) \
+ -static
+AM_LDFLAGS = $(am__append_3)
+LDADD = $(top_builddir)/src/libcdi.la
+calendar_test1_SOURCES = calendar_test1.c
+cksum_read_SOURCES = \
+ cksum_read.c \
+ ensure_array_size.c \
+ ensure_array_size.h \
+ stream_cksum.c \
+ stream_cksum.h \
+ var_cksum.c \
+ var_cksum.h
+
+cksum_verify_SOURCES = cksum_verify.c
+cksum_write_SOURCES = \
+ cksum_write.c \
+ simple_model_helper.c \
+ simple_model_helper.h
+
+cksum_write_chunk_SOURCES = \
+ cksum_write_chunk.c \
+ simple_model_helper.c \
+ simple_model_helper.h
+
+pio_write_SOURCES = \
+ pio_write.c \
+ pio_write.h \
+ pio_write_setup_grid.c \
+ pio_write_setup_grid.h \
+ simple_model.c \
+ simple_model_helper.c \
+ simple_model_helper.h
+
+nodist_pio_write_parallel_SOURCES = $(pio_write_SOURCES:.c=.parallel.c)
+pio_write_parallel_LDADD = $(top_builddir)/src/libcdipio.la $(PPM_CORE_C_LIB) $(YAXT_C_LIB) $(LDADD)
+pio_write_deco2d_SOURCES = \
+ deco2d_model.c \
+ pio_write.c \
+ pio_write.h \
+ pio_write_setup_grid.c \
+ pio_write_setup_grid.h \
+ simple_model_helper.c \
+ simple_model_helper.h
+
+nodist_pio_write_deco2d_parallel_SOURCES = $(pio_write_deco2d_SOURCES:.c=.parallel.c)
+pio_write_deco2d_parallel_LDADD = $(top_builddir)/src/libcdipio.la $(PPM_CORE_C_LIB) $(YAXT_C_LIB) $(LDADD)
+test_byteswap_SOURCES = test_byteswap.c
+test_grib_SOURCES = test_grib.c
+test_month_adjust_SOURCES = test_month_adjust.c
+test_resource_copy_SOURCES = test_resource_copy.c
+test_resource_copy_LDADD = $(top_builddir)/src/libcdiresunpack.la
+nodist_test_resource_copy_parallel_SOURCES = $(test_resource_copy_SOURCES:.c=.parallel.c)
+test_resource_copy_parallel_LDADD = $(top_builddir)/src/libcdipio.la $(LDADD)
+test_table_SOURCES = test_table.c
+test_cdf_read_SOURCES = test_cdf_read.c
+test_cdf_write_SOURCES = \
+ simple_model_helper.c \
+ simple_model_helper.h \
+ test_cdf_write.c
+
+AUTOMAKE_OPTIONS = color-tests
+
+# Compile programs using Libtool:
+COMPILE = $(LTCOMPILE)
+FCCOMPILE = $(LTFCCOMPILE)
+PPFCCOMPILE = $(LTPPFCCOMPILE)
+CXXCOMPILE = $(LTCXXCOMPILE)
+
+# Compile *.F90 without CPPFLAGS, which are normally meant for the C compiler
+# and might not be compatible with the Fortran compiler:
+LTPPFCCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=FC $(AM_LIBTOOLFLAGS) \
+ $(LIBTOOLFLAGS) --mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
+
+AM_FCFLAGS = -static
+AM_CXXFLAGS = -static
+
+# Generate source files for parallel versions of the programs. We do this to
+# avoid target-specific flags, which result into rules that do not use the
+# compilation commands above.
+SUFFIXES = .parallel.c
+all: all-am
+
+.SUFFIXES:
+.SUFFIXES: .parallel.c .c .lo .log .o .obj .run .run$(EXEEXT) .trs
+$(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 tests/Makefile'; \
+ $(am__cd) $(top_srcdir) && \
+ $(AUTOMAKE) --foreign tests/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__maybe_remake_depfiles)'; \
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
+ 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):
+test_cksum_base: $(top_builddir)/config.status $(srcdir)/test_cksum_base.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_asynch.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_asynch.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_fpguard.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_fpguard.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_grb2.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_grb2.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_mpi_fw_at_all.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_mpi_fw_at_all.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_mpi_fw_at_reblock.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_mpi_fw_at_reblock.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_mpi_fw_ordered.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_mpi_fw_ordered.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_mpinonb.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_mpinonb.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_nc.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_nc.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_nc2.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_nc2.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_nc4.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_nc4.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_cksum_writer.run: $(top_builddir)/config.status $(srcdir)/pio_cksum_writer.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_write.parallel.run: $(top_builddir)/config.status $(srcdir)/pio_write.parallel.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_write.run: $(top_builddir)/config.status $(srcdir)/pio_write.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_write_deco2d.parallel.run: $(top_builddir)/config.status $(srcdir)/pio_write_deco2d.parallel.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_write_deco2d.run: $(top_builddir)/config.status $(srcdir)/pio_write_deco2d.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+pio_write_dist_array.run: $(top_builddir)/config.status $(srcdir)/pio_write_dist_array.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_byteswap.run: $(top_builddir)/config.status $(srcdir)/test_byteswap.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cdf_const.run: $(top_builddir)/config.status $(srcdir)/test_cdf_const.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cdf_transformation.run: $(top_builddir)/config.status $(srcdir)/test_cdf_transformation.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cksum_ext.run: $(top_builddir)/config.status $(srcdir)/test_cksum_ext.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cksum_grb.run: $(top_builddir)/config.status $(srcdir)/test_cksum_grb.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cksum_grb2.run: $(top_builddir)/config.status $(srcdir)/test_cksum_grb2.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cksum_ieg.run: $(top_builddir)/config.status $(srcdir)/test_cksum_ieg.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cksum_nc.run: $(top_builddir)/config.status $(srcdir)/test_cksum_nc.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cksum_nc2.run: $(top_builddir)/config.status $(srcdir)/test_cksum_nc2.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cksum_nc4.run: $(top_builddir)/config.status $(srcdir)/test_cksum_nc4.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cksum_nc_chunk.run: $(top_builddir)/config.status $(srcdir)/test_cksum_nc_chunk.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_cksum_srv.run: $(top_builddir)/config.status $(srcdir)/test_cksum_srv.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_f2003.run: $(top_builddir)/config.status $(srcdir)/test_f2003.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_grib.run: $(top_builddir)/config.status $(srcdir)/test_grib.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_resource_copy.parallel.run: $(top_builddir)/config.status $(srcdir)/test_resource_copy.parallel.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_resource_copy.run: $(top_builddir)/config.status $(srcdir)/test_resource_copy.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+test_table.run: $(top_builddir)/config.status $(srcdir)/test_table.run.in
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
+
+clean-checkPROGRAMS:
+ @list='$(check_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
+
+calendar_test1$(EXEEXT): $(calendar_test1_OBJECTS) $(calendar_test1_DEPENDENCIES) $(EXTRA_calendar_test1_DEPENDENCIES)
+ @rm -f calendar_test1$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(calendar_test1_OBJECTS) $(calendar_test1_LDADD) $(LIBS)
+
+cksum_read$(EXEEXT): $(cksum_read_OBJECTS) $(cksum_read_DEPENDENCIES) $(EXTRA_cksum_read_DEPENDENCIES)
+ @rm -f cksum_read$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cksum_read_OBJECTS) $(cksum_read_LDADD) $(LIBS)
+
+cksum_verify$(EXEEXT): $(cksum_verify_OBJECTS) $(cksum_verify_DEPENDENCIES) $(EXTRA_cksum_verify_DEPENDENCIES)
+ @rm -f cksum_verify$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cksum_verify_OBJECTS) $(cksum_verify_LDADD) $(LIBS)
+
+cksum_write$(EXEEXT): $(cksum_write_OBJECTS) $(cksum_write_DEPENDENCIES) $(EXTRA_cksum_write_DEPENDENCIES)
+ @rm -f cksum_write$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cksum_write_OBJECTS) $(cksum_write_LDADD) $(LIBS)
+
+cksum_write_chunk$(EXEEXT): $(cksum_write_chunk_OBJECTS) $(cksum_write_chunk_DEPENDENCIES) $(EXTRA_cksum_write_chunk_DEPENDENCIES)
+ @rm -f cksum_write_chunk$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(cksum_write_chunk_OBJECTS) $(cksum_write_chunk_LDADD) $(LIBS)
+
+pio_write$(EXEEXT): $(pio_write_OBJECTS) $(pio_write_DEPENDENCIES) $(EXTRA_pio_write_DEPENDENCIES)
+ @rm -f pio_write$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(pio_write_OBJECTS) $(pio_write_LDADD) $(LIBS)
+
+pio_write.parallel$(EXEEXT): $(pio_write_parallel_OBJECTS) $(pio_write_parallel_DEPENDENCIES) $(EXTRA_pio_write_parallel_DEPENDENCIES)
+ @rm -f pio_write.parallel$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(pio_write_parallel_OBJECTS) $(pio_write_parallel_LDADD) $(LIBS)
+
+pio_write_deco2d$(EXEEXT): $(pio_write_deco2d_OBJECTS) $(pio_write_deco2d_DEPENDENCIES) $(EXTRA_pio_write_deco2d_DEPENDENCIES)
+ @rm -f pio_write_deco2d$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(pio_write_deco2d_OBJECTS) $(pio_write_deco2d_LDADD) $(LIBS)
+
+pio_write_deco2d.parallel$(EXEEXT): $(pio_write_deco2d_parallel_OBJECTS) $(pio_write_deco2d_parallel_DEPENDENCIES) $(EXTRA_pio_write_deco2d_parallel_DEPENDENCIES)
+ @rm -f pio_write_deco2d.parallel$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(pio_write_deco2d_parallel_OBJECTS) $(pio_write_deco2d_parallel_LDADD) $(LIBS)
+
+test_byteswap$(EXEEXT): $(test_byteswap_OBJECTS) $(test_byteswap_DEPENDENCIES) $(EXTRA_test_byteswap_DEPENDENCIES)
+ @rm -f test_byteswap$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(test_byteswap_OBJECTS) $(test_byteswap_LDADD) $(LIBS)
+
+test_cdf_read$(EXEEXT): $(test_cdf_read_OBJECTS) $(test_cdf_read_DEPENDENCIES) $(EXTRA_test_cdf_read_DEPENDENCIES)
+ @rm -f test_cdf_read$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(test_cdf_read_OBJECTS) $(test_cdf_read_LDADD) $(LIBS)
+
+test_cdf_write$(EXEEXT): $(test_cdf_write_OBJECTS) $(test_cdf_write_DEPENDENCIES) $(EXTRA_test_cdf_write_DEPENDENCIES)
+ @rm -f test_cdf_write$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(test_cdf_write_OBJECTS) $(test_cdf_write_LDADD) $(LIBS)
+
+test_grib$(EXEEXT): $(test_grib_OBJECTS) $(test_grib_DEPENDENCIES) $(EXTRA_test_grib_DEPENDENCIES)
+ @rm -f test_grib$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(test_grib_OBJECTS) $(test_grib_LDADD) $(LIBS)
+
+test_month_adjust$(EXEEXT): $(test_month_adjust_OBJECTS) $(test_month_adjust_DEPENDENCIES) $(EXTRA_test_month_adjust_DEPENDENCIES)
+ @rm -f test_month_adjust$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(test_month_adjust_OBJECTS) $(test_month_adjust_LDADD) $(LIBS)
+
+test_resource_copy$(EXEEXT): $(test_resource_copy_OBJECTS) $(test_resource_copy_DEPENDENCIES) $(EXTRA_test_resource_copy_DEPENDENCIES)
+ @rm -f test_resource_copy$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(test_resource_copy_OBJECTS) $(test_resource_copy_LDADD) $(LIBS)
+
+test_resource_copy.parallel$(EXEEXT): $(test_resource_copy_parallel_OBJECTS) $(test_resource_copy_parallel_DEPENDENCIES) $(EXTRA_test_resource_copy_parallel_DEPENDENCIES)
+ @rm -f test_resource_copy.parallel$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(test_resource_copy_parallel_OBJECTS) $(test_resource_copy_parallel_LDADD) $(LIBS)
+
+test_table$(EXEEXT): $(test_table_OBJECTS) $(test_table_DEPENDENCIES) $(EXTRA_test_table_DEPENDENCIES)
+ @rm -f test_table$(EXEEXT)
+ $(AM_V_CCLD)$(LINK) $(test_table_OBJECTS) $(test_table_LDADD) $(LIBS)
+
+mostlyclean-compile:
+ -rm -f *.$(OBJEXT)
+
+distclean-compile:
+ -rm -f *.tab.c
+
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/calendar_test1.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cksum_read.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cksum_verify.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cksum_write.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cksum_write_chunk.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/deco2d_model.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/deco2d_model.parallel.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ensure_array_size.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_write.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_write.parallel.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_write_setup_grid.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pio_write_setup_grid.parallel.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/simple_model.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/simple_model.parallel.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/simple_model_helper.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/simple_model_helper.parallel.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_cksum.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/test_byteswap.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/test_cdf_read.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/test_cdf_write.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/test_grib.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/test_month_adjust.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/test_resource_copy.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/test_resource_copy.parallel.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/test_table.Po@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/var_cksum.Po@am__quote@ # am--include-marker
+
+$(am__depfiles_remade):
+ @$(MKDIR_P) $(@D)
+ @echo '# dummy' >$@-t && $(am__mv) $@-t $@
+
+am--depfiles: $(am__depfiles_remade)
+
+.c.o:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
+
+.c.obj:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
+
+.c.lo:
+@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
+@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
+
+mostlyclean-libtool:
+ -rm -f *.lo
+
+clean-libtool:
+ -rm -rf .libs _libs
+examples-local:
+
+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
+
+# Recover from deleted '.trs' file; this should ensure that
+# "rm -f foo.log; make foo.trs" re-run 'foo.test', and re-create
+# both 'foo.log' and 'foo.trs'. Break the recipe in two subshells
+# to avoid problems with "make -n".
+.log.trs:
+ rm -f $< $@
+ $(MAKE) $(AM_MAKEFLAGS) $<
+
+# Leading 'am--fnord' is there to ensure the list of targets does not
+# expand to empty, as could happen e.g. with make check TESTS=''.
+am--fnord $(TEST_LOGS) $(TEST_LOGS:.log=.trs): $(am__force_recheck)
+am--force-recheck:
+ @:
+
+$(TEST_SUITE_LOG): $(TEST_LOGS)
+ @$(am__set_TESTS_bases); \
+ am__f_ok () { test -f "$$1" && test -r "$$1"; }; \
+ redo_bases=`for i in $$bases; do \
+ am__f_ok $$i.trs && am__f_ok $$i.log || echo $$i; \
+ done`; \
+ if test -n "$$redo_bases"; then \
+ redo_logs=`for i in $$redo_bases; do echo $$i.log; done`; \
+ redo_results=`for i in $$redo_bases; do echo $$i.trs; done`; \
+ if $(am__make_dryrun); then :; else \
+ rm -f $$redo_logs && rm -f $$redo_results || exit 1; \
+ fi; \
+ fi; \
+ if test -n "$$am__remaking_logs"; then \
+ echo "fatal: making $(TEST_SUITE_LOG): possible infinite" \
+ "recursion detected" >&2; \
+ elif test -n "$$redo_logs"; then \
+ am__remaking_logs=yes $(MAKE) $(AM_MAKEFLAGS) $$redo_logs; \
+ fi; \
+ if $(am__make_dryrun); then :; else \
+ st=0; \
+ errmsg="fatal: making $(TEST_SUITE_LOG): failed to create"; \
+ for i in $$redo_bases; do \
+ test -f $$i.trs && test -r $$i.trs \
+ || { echo "$$errmsg $$i.trs" >&2; st=1; }; \
+ test -f $$i.log && test -r $$i.log \
+ || { echo "$$errmsg $$i.log" >&2; st=1; }; \
+ done; \
+ test $$st -eq 0 || exit 1; \
+ fi
+ @$(am__sh_e_setup); $(am__tty_colors); $(am__set_TESTS_bases); \
+ ws='[ ]'; \
+ results=`for b in $$bases; do echo $$b.trs; done`; \
+ test -n "$$results" || results=/dev/null; \
+ all=` grep "^$$ws*:test-result:" $$results | wc -l`; \
+ pass=` grep "^$$ws*:test-result:$$ws*PASS" $$results | wc -l`; \
+ fail=` grep "^$$ws*:test-result:$$ws*FAIL" $$results | wc -l`; \
+ skip=` grep "^$$ws*:test-result:$$ws*SKIP" $$results | wc -l`; \
+ xfail=`grep "^$$ws*:test-result:$$ws*XFAIL" $$results | wc -l`; \
+ xpass=`grep "^$$ws*:test-result:$$ws*XPASS" $$results | wc -l`; \
+ error=`grep "^$$ws*:test-result:$$ws*ERROR" $$results | wc -l`; \
+ if test `expr $$fail + $$xpass + $$error` -eq 0; then \
+ success=true; \
+ else \
+ success=false; \
+ fi; \
+ br='==================='; br=$$br$$br$$br$$br; \
+ result_count () \
+ { \
+ if test x"$$1" = x"--maybe-color"; then \
+ maybe_colorize=yes; \
+ elif test x"$$1" = x"--no-color"; then \
+ maybe_colorize=no; \
+ else \
+ echo "$@: invalid 'result_count' usage" >&2; exit 4; \
+ fi; \
+ shift; \
+ desc=$$1 count=$$2; \
+ if test $$maybe_colorize = yes && test $$count -gt 0; then \
+ color_start=$$3 color_end=$$std; \
+ else \
+ color_start= color_end=; \
+ fi; \
+ echo "$${color_start}# $$desc $$count$${color_end}"; \
+ }; \
+ create_testsuite_report () \
+ { \
+ result_count $$1 "TOTAL:" $$all "$$brg"; \
+ result_count $$1 "PASS: " $$pass "$$grn"; \
+ result_count $$1 "SKIP: " $$skip "$$blu"; \
+ result_count $$1 "XFAIL:" $$xfail "$$lgn"; \
+ result_count $$1 "FAIL: " $$fail "$$red"; \
+ result_count $$1 "XPASS:" $$xpass "$$red"; \
+ result_count $$1 "ERROR:" $$error "$$mgn"; \
+ }; \
+ { \
+ echo "$(PACKAGE_STRING): $(subdir)/$(TEST_SUITE_LOG)" | \
+ $(am__rst_title); \
+ create_testsuite_report --no-color; \
+ echo; \
+ echo ".. contents:: :depth: 2"; \
+ echo; \
+ for b in $$bases; do echo $$b; done \
+ | $(am__create_global_log); \
+ } >$(TEST_SUITE_LOG).tmp || exit 1; \
+ mv $(TEST_SUITE_LOG).tmp $(TEST_SUITE_LOG); \
+ if $$success; then \
+ col="$$grn"; \
+ else \
+ col="$$red"; \
+ test x"$$VERBOSE" = x || cat $(TEST_SUITE_LOG); \
+ fi; \
+ echo "$${col}$$br$${std}"; \
+ echo "$${col}Testsuite summary"$(AM_TESTSUITE_SUMMARY_HEADER)"$${std}"; \
+ echo "$${col}$$br$${std}"; \
+ create_testsuite_report --maybe-color; \
+ echo "$$col$$br$$std"; \
+ if $$success; then :; else \
+ echo "$${col}See $(subdir)/$(TEST_SUITE_LOG)$${std}"; \
+ if test -n "$(PACKAGE_BUGREPORT)"; then \
+ echo "$${col}Please report to $(PACKAGE_BUGREPORT)$${std}"; \
+ fi; \
+ echo "$$col$$br$$std"; \
+ fi; \
+ $$success || exit 1
+
+check-TESTS: $(check_PROGRAMS)
+ @list='$(RECHECK_LOGS)'; test -z "$$list" || rm -f $$list
+ @list='$(RECHECK_LOGS:.log=.trs)'; test -z "$$list" || rm -f $$list
+ @test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG)
+ @set +e; $(am__set_TESTS_bases); \
+ log_list=`for i in $$bases; do echo $$i.log; done`; \
+ trs_list=`for i in $$bases; do echo $$i.trs; done`; \
+ log_list=`echo $$log_list`; trs_list=`echo $$trs_list`; \
+ $(MAKE) $(AM_MAKEFLAGS) $(TEST_SUITE_LOG) TEST_LOGS="$$log_list"; \
+ exit $$?;
+recheck: all $(check_PROGRAMS)
+ @test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG)
+ @set +e; $(am__set_TESTS_bases); \
+ bases=`for i in $$bases; do echo $$i; done \
+ | $(am__list_recheck_tests)` || exit 1; \
+ log_list=`for i in $$bases; do echo $$i.log; done`; \
+ log_list=`echo $$log_list`; \
+ $(MAKE) $(AM_MAKEFLAGS) $(TEST_SUITE_LOG) \
+ am__force_recheck=am--force-recheck \
+ TEST_LOGS="$$log_list"; \
+ exit $$?
+calendar_test1.log: calendar_test1$(EXEEXT)
+ @p='calendar_test1$(EXEEXT)'; \
+ b='calendar_test1'; \
+ $(am__check_pre) $(LOG_DRIVER) --test-name "$$f" \
+ --log-file $$b.log --trs-file $$b.trs \
+ $(am__common_driver_flags) $(AM_LOG_DRIVER_FLAGS) $(LOG_DRIVER_FLAGS) -- $(LOG_COMPILE) \
+ "$$tst" $(AM_TESTS_FD_REDIRECT)
+cksum_verify.log: cksum_verify$(EXEEXT)
+ @p='cksum_verify$(EXEEXT)'; \
+ b='cksum_verify'; \
+ $(am__check_pre) $(LOG_DRIVER) --test-name "$$f" \
+ --log-file $$b.log --trs-file $$b.trs \
+ $(am__common_driver_flags) $(AM_LOG_DRIVER_FLAGS) $(LOG_DRIVER_FLAGS) -- $(LOG_COMPILE) \
+ "$$tst" $(AM_TESTS_FD_REDIRECT)
+test_month_adjust.log: test_month_adjust$(EXEEXT)
+ @p='test_month_adjust$(EXEEXT)'; \
+ b='test_month_adjust'; \
+ $(am__check_pre) $(LOG_DRIVER) --test-name "$$f" \
+ --log-file $$b.log --trs-file $$b.trs \
+ $(am__common_driver_flags) $(AM_LOG_DRIVER_FLAGS) $(LOG_DRIVER_FLAGS) -- $(LOG_COMPILE) \
+ "$$tst" $(AM_TESTS_FD_REDIRECT)
+.run.log:
+ @p='$<'; \
+ $(am__set_b); \
+ $(am__check_pre) $(RUN_LOG_DRIVER) --test-name "$$f" \
+ --log-file $$b.log --trs-file $$b.trs \
+ $(am__common_driver_flags) $(AM_RUN_LOG_DRIVER_FLAGS) $(RUN_LOG_DRIVER_FLAGS) -- $(RUN_LOG_COMPILE) \
+ "$$tst" $(AM_TESTS_FD_REDIRECT)
+@am__EXEEXT_TRUE@.run$(EXEEXT).log:
+@am__EXEEXT_TRUE@ @p='$<'; \
+@am__EXEEXT_TRUE@ $(am__set_b); \
+@am__EXEEXT_TRUE@ $(am__check_pre) $(RUN_LOG_DRIVER) --test-name "$$f" \
+@am__EXEEXT_TRUE@ --log-file $$b.log --trs-file $$b.trs \
+@am__EXEEXT_TRUE@ $(am__common_driver_flags) $(AM_RUN_LOG_DRIVER_FLAGS) $(RUN_LOG_DRIVER_FLAGS) -- $(RUN_LOG_COMPILE) \
+@am__EXEEXT_TRUE@ "$$tst" $(AM_TESTS_FD_REDIRECT)
+distdir: $(BUILT_SOURCES)
+ $(MAKE) $(AM_MAKEFLAGS) distdir-am
+
+distdir-am: $(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
+ $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS)
+ $(MAKE) $(AM_MAKEFLAGS) check-TESTS
+check: check-am
+all-am: Makefile $(PROGRAMS)
+installdirs:
+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:
+ -test -z "$(TEST_LOGS)" || rm -f $(TEST_LOGS)
+ -test -z "$(TEST_LOGS:.log=.trs)" || rm -f $(TEST_LOGS:.log=.trs)
+ -test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG)
+
+clean-generic:
+
+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."
+clean: clean-am
+
+clean-am: clean-checkPROGRAMS clean-generic clean-libtool clean-local \
+ clean-noinstPROGRAMS mostlyclean-am
+
+distclean: distclean-am
+ -rm -f ./$(DEPDIR)/calendar_test1.Po
+ -rm -f ./$(DEPDIR)/cksum_read.Po
+ -rm -f ./$(DEPDIR)/cksum_verify.Po
+ -rm -f ./$(DEPDIR)/cksum_write.Po
+ -rm -f ./$(DEPDIR)/cksum_write_chunk.Po
+ -rm -f ./$(DEPDIR)/deco2d_model.Po
+ -rm -f ./$(DEPDIR)/deco2d_model.parallel.Po
+ -rm -f ./$(DEPDIR)/ensure_array_size.Po
+ -rm -f ./$(DEPDIR)/pio_write.Po
+ -rm -f ./$(DEPDIR)/pio_write.parallel.Po
+ -rm -f ./$(DEPDIR)/pio_write_setup_grid.Po
+ -rm -f ./$(DEPDIR)/pio_write_setup_grid.parallel.Po
+ -rm -f ./$(DEPDIR)/simple_model.Po
+ -rm -f ./$(DEPDIR)/simple_model.parallel.Po
+ -rm -f ./$(DEPDIR)/simple_model_helper.Po
+ -rm -f ./$(DEPDIR)/simple_model_helper.parallel.Po
+ -rm -f ./$(DEPDIR)/stream_cksum.Po
+ -rm -f ./$(DEPDIR)/test_byteswap.Po
+ -rm -f ./$(DEPDIR)/test_cdf_read.Po
+ -rm -f ./$(DEPDIR)/test_cdf_write.Po
+ -rm -f ./$(DEPDIR)/test_grib.Po
+ -rm -f ./$(DEPDIR)/test_month_adjust.Po
+ -rm -f ./$(DEPDIR)/test_resource_copy.Po
+ -rm -f ./$(DEPDIR)/test_resource_copy.parallel.Po
+ -rm -f ./$(DEPDIR)/test_table.Po
+ -rm -f ./$(DEPDIR)/var_cksum.Po
+ -rm -f Makefile
+distclean-am: clean-am distclean-compile distclean-generic \
+ distclean-tags
+
+dvi: dvi-am
+
+dvi-am:
+
+examples: examples-am
+
+examples-am: examples-local
+
+html: html-am
+
+html-am:
+
+info: info-am
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-am
+
+install-dvi-am:
+
+install-exec-am:
+
+install-html: install-html-am
+
+install-html-am:
+
+install-info: install-info-am
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-am
+
+install-pdf-am:
+
+install-ps: install-ps-am
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+ -rm -f ./$(DEPDIR)/calendar_test1.Po
+ -rm -f ./$(DEPDIR)/cksum_read.Po
+ -rm -f ./$(DEPDIR)/cksum_verify.Po
+ -rm -f ./$(DEPDIR)/cksum_write.Po
+ -rm -f ./$(DEPDIR)/cksum_write_chunk.Po
+ -rm -f ./$(DEPDIR)/deco2d_model.Po
+ -rm -f ./$(DEPDIR)/deco2d_model.parallel.Po
+ -rm -f ./$(DEPDIR)/ensure_array_size.Po
+ -rm -f ./$(DEPDIR)/pio_write.Po
+ -rm -f ./$(DEPDIR)/pio_write.parallel.Po
+ -rm -f ./$(DEPDIR)/pio_write_setup_grid.Po
+ -rm -f ./$(DEPDIR)/pio_write_setup_grid.parallel.Po
+ -rm -f ./$(DEPDIR)/simple_model.Po
+ -rm -f ./$(DEPDIR)/simple_model.parallel.Po
+ -rm -f ./$(DEPDIR)/simple_model_helper.Po
+ -rm -f ./$(DEPDIR)/simple_model_helper.parallel.Po
+ -rm -f ./$(DEPDIR)/stream_cksum.Po
+ -rm -f ./$(DEPDIR)/test_byteswap.Po
+ -rm -f ./$(DEPDIR)/test_cdf_read.Po
+ -rm -f ./$(DEPDIR)/test_cdf_write.Po
+ -rm -f ./$(DEPDIR)/test_grib.Po
+ -rm -f ./$(DEPDIR)/test_month_adjust.Po
+ -rm -f ./$(DEPDIR)/test_resource_copy.Po
+ -rm -f ./$(DEPDIR)/test_resource_copy.parallel.Po
+ -rm -f ./$(DEPDIR)/test_table.Po
+ -rm -f ./$(DEPDIR)/var_cksum.Po
+ -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:
+
+.MAKE: check-am install-am install-strip
+
+.PHONY: CTAGS GTAGS TAGS all all-am am--depfiles check check-TESTS \
+ check-am clean clean-checkPROGRAMS clean-generic clean-libtool \
+ clean-local clean-noinstPROGRAMS cscopelist-am ctags ctags-am \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am \
+ examples-am examples-local html html-am info info-am install \
+ install-am 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-man \
+ 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 recheck tags tags-am uninstall \
+ uninstall-am
+
+.PRECIOUS: Makefile
+
+$(test_cksum_TEST_LOGS_): test_cksum_base
+$(pio_write_dist_array_TEST_LOGS_): pio_write_dist_array.run
+$(pio_write_TEST_LOGS_): pio_write.run
+
+@with_concurrent_mpi_checks_FALSE@pio_cksum_fpguard.log: pio_cksum_asynch.log
+@with_concurrent_mpi_checks_FALSE@pio_cksum_grb2.log: pio_cksum_fpguard.log
+@with_concurrent_mpi_checks_FALSE@pio_cksum_mpi_fw_at_all.log: pio_cksum_grb2.log
+@with_concurrent_mpi_checks_FALSE@pio_cksum_mpi_fw_at_reblock.log: pio_cksum_mpi_fw_at_all.log
+@with_concurrent_mpi_checks_FALSE@pio_cksum_mpi_fw_ordered.log: pio_cksum_mpi_fw_at_reblock.log
+@with_concurrent_mpi_checks_FALSE@pio_cksum_mpinonb.log: pio_cksum_mpi_fw_ordered.log
+@with_concurrent_mpi_checks_FALSE@pio_cksum_nc.log: pio_cksum_mpinonb.log
+@with_concurrent_mpi_checks_FALSE@pio_cksum_nc2.log: pio_cksum_nc.log
+@with_concurrent_mpi_checks_FALSE@pio_cksum_nc4.log: pio_cksum_nc2.log
+@with_concurrent_mpi_checks_FALSE@pio_cksum_writer.log: pio_cksum_nc4.log
+@with_concurrent_mpi_checks_FALSE@pio_write.parallel.log: pio_cksum_writer.log
+@with_concurrent_mpi_checks_FALSE@pio_write_deco2d.parallel.log: pio_write.parallel.log
+@with_concurrent_mpi_checks_FALSE@pio_write_dist_array.log: pio_write_deco2d.parallel.log
+@with_concurrent_mpi_checks_FALSE@test_resource_copy.parallel.log: pio_write_dist_array.log
+
+clean-local:
+ -rm -f *.parallel.c
+ -rm -f *.grb *.grb2 *.nc *.nc2 *.nc4 *.srv *.ext *.cksum *.ieg *.stderr *.stdout
+ -rm -rf *.dSYM
+
+.c.parallel.c:
+ $(AM_V_GEN):;{ \
+ echo '#define USE_MPI 1'; \
+ echo '#include "$<"'; \
+ } >$@
+
+# 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:
--
GitLab